 }
 
 `{:name "uniprot-sparse-in-taxon"
-  :head ((?/protein obo/RO_0002162 ?/taxon) ; in_taxon
-
-         (?/r1 rdf/type owl/Restriction)
+  :head ((?/r1 rdf/type owl/Restriction)
          (?/r1 owl/onProperty obo/RO_0002162) ; in_taxon
          (?/r1 owl/someValuesFrom ?/taxon)
-
          (?/protein rdfs/subClassOf ?/r1))
   :body 
   ((_/fv0 kiao/hasTemplate iaouniprot/SparseUniProtFileRecord_primaryAccessionDataField1)

;; }

`{:name "uniprot-in-taxon"
  :head (
         (?/r1 rdf/type owl/Restriction)
         (?/r1 owl/onProperty obo/RO_0002162) ; in_taxon
         (?/r1 owl/someValuesFrom ?/taxon)

         (?/protein rdfs/subClassOf ?/r1))
  :body 
  ((_/fv0 kiao/hasTemplate iaouniprot/UniProtFileRecord_primaryAccessionDataField1)

}


;; This rule assigns taxons to bio-entities represented by RefSeq IDs (so
;; genes, proteins, RNAs...)
`{:name "refseq-in-taxon"
  :head ((?/r1 rdf/type owl/Restriction)
         (?/r1 owl/onProperty obo/RO_0002162) ; in_taxon
         (?/r1 owl/someValuesFrom ?/taxon)
         (?/bioentity rdfs/subClassOf ?/r1))

  :body (;;(_/record kiao/hasTemplate iaorefseq/RefSeqReleaseCatalogFileDataSchema1)
         ~@(kabob/rtv _/record
                      iaorefseq/RefSeqReleaseCatalogFileData_refseqIdDataField1 _/refseqIce
