Add TermRelation type

CSBiology · Aug 21, 2023 · 45fb8b5 · 45fb8b5
1 parent b8acba0
commit 45fb8b5
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/src/FsOboParser/OboTerm.fs b/src/FsOboParser/OboTerm.fs
@@ -538,4 +538,14 @@ type OboTerm =
 
     /// Takes an OboTerm and returns its relationships as a triple consisting of the input term's ID, the name of the relationship, and the related term's ID.
     static member getRelatedTermIds (term : OboTerm) =
-        term.GetRelatedTermIds()
+        term.GetRelatedTermIds()
+
+
+/// Representation of a the relation an OboTerm can have with other OboTerms.
+type TermRelation<'a> =
+    /// No Relation with other OboTerms.
+    | Empty of SourceTerm : OboTerm
+    /// Relation between one OboTerm with another in the form of generic relation `'a` * source OboTerm * target OboTerm.
+    | Target of Relation :'a * SourceTerm : OboTerm * TargetTerm : OboTerm
+    /// Relation between one OboTerm with another OboTerm that is not defined in the OboOntology in the form of generic relation `'a` * source OboTerm.
+    | TargetMissing of Relation :'a * SourceTerm : OboTerm