| Symbol of string * int (* literal, instance num *)
| Num of int (* instance num *)
-module Domain: Set.S with type elt = domain_item
+(* module Domain: Set.S with type elt = domain_item *)
module Environment: Map.S with type key = domain_item
type codomain_item =
end
val string_of_domain_item: domain_item -> string
-val string_of_domain: Domain.t -> string
+val string_of_domain: domain_item list -> string