Type_base.Constraintsinclude module type of struct include Type_constraints endval create : unit -> 'a Type_constraints.tval add : 'a -> 'a Type_constraints.t -> 'a Type_constraints.tval mem : 'a -> 'a Type_constraints.t -> boolval compare : 'a Type_constraints.t -> 'a Type_constraints.t -> intval of_list : 'a list -> 'a Type_constraints.tval elements : 'a Type_constraints.t -> 'a listval cardinal : 'a Type_constraints.t -> intval choose : 'a Type_constraints.t -> 'aval is_empty : 'a Type_constraints.t -> booltype nonrec t = constr Type_constraints.t