1:- module(obo_metadata,
    2          [synonym_scope/3]).    3
    4:- use_module(library(obo_metadata/oio)).    5:- use_module(library(obo_metadata/iao_metadata)).    6
    7literal_to_atom('^^'(L,_),A) :- atom_string(A,L).
    8
    9
   10synonym_scope(Subj,Syn,related) :-  has_related_synonym(Subj,Syn).
   11synonym_scope(Subj,Syn,narrow) :-   has_narrow_synonym(Subj,Syn).
   12synonym_scope(Subj,Syn,broad) :-    has_broad_synonym(Subj,Syn).
   13synonym_scope(Subj,Syn,exact) :-    has_exact_synonym(Subj,Syn).
   14
   15atomic_synonym_scope(Subj,Syn,Scope) :-
   16        synonym_scope(Subj,SynLit,Scope),
   17        literal_to_atom(SynLit,Syn)