1:- module(mbgd,
    2	  [
    3	      complete_genome/1,
    4	      homologous_member/2,
    5	      in_mbgd_default/1,
    6	      mbgd_ortholog/2
    7	  ]).    8
    9:- sparql_endpoint(mbgd, 'https://sparql.nibb.ac.jp/sparql').   10
   11:- rdf_register_prefix(orth, 'http://purl.org/net/orth#').   12:- rdf_register_prefix(mbgd, 'http://purl.jp/bio/11/mbgd#').   13:- rdf_register_prefix(mbgdr, 'http://mbgd.genome.ad.jp/rdf/resource/').   14
   15complete_genome(G) :-
   16    rdf(G, rdf:type, mbgd:'CompleteGenome').
   17
   18homologous_member(O, G) :-
   19    rdf_path(O, zeroOrMore(orth:hasHomologous), G),
   20    rdf(G, rdf:type, orth:'Gene').
   21
   22in_mbgd_default(OC) :-
   23    rdf(OC, rdf:type, orth:'OrthologsCluster'),
   24    rdf(OC, void:inDataset, mbgdr:default).
   25
   26mbgd_ortholog(G1, G2) :-
   27    in_mbgd_default(OC),
   28    homologous_member(OC, G1),
   29    homologous_member(OC, G2)