sig
  type ('a, 'b, 'c, 'd) man = {
    typ : string;
    man : 'c;
    canonicalize : ?apron:bool -> 'c -> 'd -> unit;
    size : 'c -> 'd -> int;
    print :
      ?print_apron:((int -> string) ->
                    Format.formatter -> 'b Apron.Abstract0.t -> unit) ->
      'a Env.t -> Format.formatter -> 'd -> unit;
    bottom : 'c -> 'a Env.t -> 'd;
    top : 'c -> 'a Env.t -> 'd;
    of_apron : 'c -> 'a Env.t -> 'b Apron.Abstract0.t -> 'd;
    is_bottom : 'c -> 'd -> bool;
    is_top : 'c -> 'd -> bool;
    is_leq : 'c -> 'd -> 'd -> bool;
    is_eq : 'c -> 'd -> 'd -> bool;
    to_bddapron : 'c -> 'd -> ('a Expr0.Bool.t * 'b Apron.Abstract0.t) list;
    meet : 'c -> 'd -> 'd -> 'd;
    join : 'c -> 'd -> 'd -> 'd;
    meet_condition :
      'c -> 'a Env.t -> 'a Cond.t -> 'd -> 'a Expr0.Bool.t -> 'd;
    assign_lexpr :
      ?relational:bool ->
      ?nodependency:bool ->
      'c ->
      'a Env.t ->
      'a Cond.t -> 'd -> 'a list -> 'a Expr0.t list -> 'd option -> 'd;
    substitute_lexpr :
      'c ->
      'a Env.t ->
      'a Cond.t -> 'd -> 'a list -> 'a Expr0.t list -> 'd option -> 'd;
    forget_list : 'c -> 'a Env.t -> 'd -> 'a list -> 'd;
    widening : 'c -> 'd -> 'd -> 'd;
    apply_change : bottom:'d -> 'c -> 'd -> Env.change -> 'd;
    apply_permutation :
      'c -> 'd -> int array option * Apron.Dim.perm option -> 'd;
  }
  type 'a t = 'a
  val canonicalize :
    ?apron:bool -> ('a, 'b, 'c, 'd) Domain0.man -> 'd Domain0.t -> unit
  val size : ('a, 'b, 'c, 'd) Domain0.man -> 'd Domain0.t -> int
  val print :
    ?print_apron:((int -> string) ->
                  Format.formatter -> 'a Apron.Abstract0.t -> unit) ->
    ('b, 'a, 'c, 'd) Domain0.man ->
    'b Env.t -> Format.formatter -> 'd Domain0.t -> unit
  val bottom : ('a, 'b, 'c, 'd) Domain0.man -> 'a Env.t -> 'd Domain0.t
  val top : ('a, 'b, 'c, 'd) Domain0.man -> 'a Env.t -> 'd Domain0.t
  val of_apron :
    ('a, 'b, 'c, 'd) Domain0.man ->
    'a Env.t -> 'b Apron.Abstract0.t -> 'd Domain0.t
  val is_bottom : ('a, 'b, 'c, 'd) Domain0.man -> 'd Domain0.t -> bool
  val is_top : ('a, 'b, 'c, 'd) Domain0.man -> 'd Domain0.t -> bool
  val is_leq :
    ('a, 'b, 'c, 'd) Domain0.man -> 'd Domain0.t -> 'd Domain0.t -> bool
  val is_eq :
    ('a, 'b, 'c, 'd) Domain0.man -> 'd Domain0.t -> 'd Domain0.t -> bool
  val to_bddapron :
    ('a, 'b, 'c, 'd) Domain0.man ->
    'd Domain0.t -> ('a Expr0.Bool.t * 'b Apron.Abstract0.t) list
  val meet :
    ('a, 'b, 'c, 'd) Domain0.man ->
    'd Domain0.t -> 'd Domain0.t -> 'd Domain0.t
  val join :
    ('a, 'b, 'c, 'd) Domain0.man ->
    'd Domain0.t -> 'd Domain0.t -> 'd Domain0.t
  val meet_condition :
    ('a, 'b, 'c, 'd) Domain0.man ->
    'a Env.t -> 'a Cond.t -> 'd Domain0.t -> 'a Expr0.Bool.t -> 'd Domain0.t
  val assign_lexpr :
    ?relational:bool ->
    ?nodependency:bool ->
    ('a, 'b, 'c, 'd) Domain0.man ->
    'a Env.t ->
    'a Cond.t ->
    'd Domain0.t ->
    'a list -> 'a Expr0.t list -> 'd Domain0.t option -> 'd Domain0.t
  val substitute_lexpr :
    ('a, 'b, 'c, 'd) Domain0.man ->
    'a Env.t ->
    'a Cond.t ->
    'd Domain0.t ->
    'a list -> 'a Expr0.t list -> 'd Domain0.t option -> 'd Domain0.t
  val forget_list :
    ('a, 'b, 'c, 'd) Domain0.man ->
    'a Env.t -> 'd Domain0.t -> 'a list -> 'd Domain0.t
  val widening :
    ('a, 'b, 'c, 'd) Domain0.man ->
    'd Domain0.t -> 'd Domain0.t -> 'd Domain0.t
  val apply_change :
    bottom:'a Domain0.t ->
    ('b, 'c, 'd, 'a) Domain0.man ->
    'a Domain0.t -> Env.change -> 'a Domain0.t
  val apply_permutation :
    ('a, 'b, 'c, 'd) Domain0.man ->
    'd Domain0.t -> int array option * Apron.Dim.perm option -> 'd Domain0.t
  type ('a, 'b) mtbdd =
      ('a, 'b, ('a, 'b) Mtbdddomain0.man, 'b Mtbdddomain0.t) Domain0.man
  val make_mtbdd :
    ?global:bool -> 'a Apron.Manager.t -> ('b, 'a) Domain0.mtbdd
  val man_is_mtbdd : ('a, 'b, 'c, 'd) Domain0.man -> bool
  val man_of_mtbdd : ('a, 'b) Domain0.mtbdd -> ('a, 'b, 'c, 'd) Domain0.man
  val man_to_mtbdd : ('a, 'b, 'c, 'd) Domain0.man -> ('a, 'b) Domain0.mtbdd
  val of_mtbdd :
    ('a, 'b) Domain0.mtbdd * 'b Mtbdddomain0.t Domain0.t ->
    ('a, 'b, 'c, 'd) Domain0.man * 'd Domain0.t
  val to_mtbdd :
    ('a, 'b, 'c, 'd) Domain0.man * 'd Domain0.t ->
    ('a, 'b) Domain0.mtbdd * 'b Mtbdddomain0.t Domain0.t
  type ('a, 'b) bdd =
      ('a, 'b, ('a, 'b) Bdddomain0.man, 'b Bdddomain0.t) Domain0.man
  val make_bdd : 'a Apron.Manager.t -> ('b, 'a) Domain0.bdd
  val man_is_bdd : ('a, 'b, 'c, 'd) Domain0.man -> bool
  val man_of_bdd : ('a, 'b) Domain0.bdd -> ('a, 'b, 'c, 'd) Domain0.man
  val man_to_bdd : ('a, 'b, 'c, 'd) Domain0.man -> ('a, 'b) Domain0.bdd
  val of_bdd :
    ('a, 'b) Domain0.bdd * 'b Bdddomain0.t Domain0.t ->
    ('a, 'b, 'c, 'd) Domain0.man * 'd Domain0.t
  val to_bdd :
    ('a, 'b, 'c, 'd) Domain0.man * 'd Domain0.t ->
    ('a, 'b) Domain0.bdd * 'b Bdddomain0.t Domain0.t
end