type csys = {
uri: Entity.uri;
- mutable is : int list
+ mutable tp : int list;
+ mutable t1 : int list;
+ mutable tn : (int * int) list;
}
val init: unit -> csys
-val add_infinite: csys -> Entity.attrs -> unit
+val add_nonzero: csys -> Entity.attrs -> unit
+
+val add_zero: csys -> Entity.attrs -> unit
+
+val add_equal: csys -> Entity.attrs -> Entity.attrs -> unit