9
10:- module(reactome,
11 [
12 equiv_go/2
13 ]). 14
15:- use_module(library(sparqlprog/ontologies/biopax3)). 16:- use_module(library(sparqlprog/ontologies/ebi)). 17
18:- rdf_register_prefix(reactome,'http://identifiers.org/reactome/'). 19:- rdf_register_prefix(chebi, 'http://purl.obolibrary.org/obo/CHEBI_'). 20:- rdf_register_prefix(go, 'http://purl.obolibrary.org/obo/GO_'). 21
22
24equiv_go(E,C) :-
25 xref(E,X),
26 id(X,Id),
27 str_starts(Id,"GO:"),
28 bind(replace(Id,"GO:","http://purl.obolibrary.org/obo/GO_"), C)