函子 (Ord : OrderedType->
  sig
    类型 elt = Ord.t
    类型 t
     empty : t
     add : elt -> t -> t
     singleton : elt -> t
     remove : elt -> t -> t
     union : t -> t -> t
     inter : t -> t -> t
     disjoint : t -> t -> bool
     diff : t -> t -> t
     cardinal : t -> int
     elements : t -> elt list
     min_elt : t -> elt
     min_elt_opt : t -> elt option
     max_elt : t -> elt
     max_elt_opt : t -> elt option
     choose : t -> elt
     choose_opt : t -> elt option
     find : elt -> t -> elt
     find_opt : elt -> t -> elt option
     find_first : (elt -> bool) -> t -> elt
     find_first_opt : (elt -> bool) -> t -> elt option
     find_last : (elt -> bool) -> t -> elt
     find_last_opt : (elt -> bool) -> t -> elt option
     iter : (elt -> unit) -> t -> unit
     fold : (elt -> 'acc -> 'acc) -> t -> 'acc -> 'acc
     map : (elt -> elt) -> t -> t
     filter : (elt -> bool) -> t -> t
     filter_map : (elt -> elt option) -> t -> t
     partition : (elt -> bool) -> t -> t * t
     split : elt -> t -> t * bool * t
     is_empty : t -> bool
     mem : elt -> t -> bool
     equal : t -> t -> bool
     compare : t -> t -> int
     subset : t -> t -> bool
     for_all : (elt -> bool) -> t -> bool
     exists : (elt -> bool) -> t -> bool
     to_list : t -> elt list
     of_list : elt list -> t
     to_seq_from : elt -> t -> elt Seq.t
     to_seq : t -> elt Seq.t
     to_rev_seq : t -> elt Seq.t
     add_seq : elt Seq.t -> t -> t
     of_seq : elt Seq.t -> t
  end