sig
  type ('a, 'b) man = {
    apron : 'b Apron.Manager.t;
    mutable bdd_restrict : Cudd.Bdd.vt -> Cudd.Bdd.vt -> Cudd.Bdd.vt;
    mutable expr_restrict : 'a Expr0.t -> Cudd.Bdd.vt -> 'a Expr0.t;
    mutable meet_disjoint : bool;
    mutable join_disjoint : bool;
    mutable meet_cond_unique : bool;
    mutable meet_cond_disjoint : bool;
    mutable meet_cond_depth : int;
    mutable assign_unique : bool;
    mutable assign_disjoint : bool;
    mutable substitute_unique : bool;
    mutable substitute_disjoint : bool;
    mutable forget_unique : bool;
    mutable forget_disjoint : bool;
    mutable change_environment_unique : bool;
    mutable change_environment_disjoint : bool;
  }
  type 'a elt = (Cudd.Man.v, 'a Apron.Abstract0.t) Bddleaf.elt
  type 'a t = {
    mutable list : 'a Bdddomain0.elt list;
    bottom : 'a Bdddomain0.elt;
    mutable unique : bool;
    mutable disjoint : bool;
  }
  val make_man : 'a Apron.Manager.t -> ('b, 'a) Bdddomain0.man
  val canonicalize :
    ?apron:bool ->
    ?unique:bool ->
    ?disjoint:bool -> ('a, 'b) Bdddomain0.man -> 'b Bdddomain0.t -> unit
  val size : ('a, 'b) Bdddomain0.man -> 'b Bdddomain0.t -> int
  val print :
    ?print_apron:((int -> string) ->
                  Format.formatter -> 'a Apron.Abstract0.t -> unit) ->
    'b Env.t -> Format.formatter -> 'a Bdddomain0.t -> unit
  val bottom : ('a, 'b) Bdddomain0.man -> 'a Env.t -> 'b Bdddomain0.t
  val top : ('a, 'b) Bdddomain0.man -> 'a Env.t -> 'b Bdddomain0.t
  val of_apron :
    ('a, 'b) Bdddomain0.man ->
    'a Env.t -> 'b Apron.Abstract0.t -> 'b Bdddomain0.t
  val is_bottom : ('a, 'b) Bdddomain0.man -> 'b Bdddomain0.t -> bool
  val is_top : ('a, 'b) Bdddomain0.man -> 'b Bdddomain0.t -> bool
  val is_leq :
    ('a, 'b) Bdddomain0.man -> 'b Bdddomain0.t -> 'b Bdddomain0.t -> bool
  val is_eq :
    ('a, 'b) Bdddomain0.man -> 'b Bdddomain0.t -> 'b Bdddomain0.t -> bool
  val to_bddapron :
    ('a, 'b) Bdddomain0.man ->
    'b Bdddomain0.t -> ('a Expr0.Bool.t * 'b Apron.Abstract0.t) list
  val meet :
    ('a, 'b) Bdddomain0.man ->
    'b Bdddomain0.t -> 'b Bdddomain0.t -> 'b Bdddomain0.t
  val join :
    ('a, 'b) Bdddomain0.man ->
    'b Bdddomain0.t -> 'b Bdddomain0.t -> 'b Bdddomain0.t
  val meet_condition :
    ('a, 'b) Bdddomain0.man ->
    'a Env.t ->
    'a Cond.t -> 'b Bdddomain0.t -> 'a Expr0.Bool.t -> 'b Bdddomain0.t
  val assign_lexpr :
    ?relational:bool ->
    ?nodependency:bool ->
    ('a, 'b) Bdddomain0.man ->
    'a Env.t ->
    'a Cond.t ->
    'b Bdddomain0.t ->
    'a list -> 'a Expr0.t list -> 'b Bdddomain0.t option -> 'b Bdddomain0.t
  val substitute_lexpr :
    ('a, 'b) Bdddomain0.man ->
    'a Env.t ->
    'a Cond.t ->
    'b Bdddomain0.t ->
    'a list -> 'a Expr0.t list -> 'b Bdddomain0.t option -> 'b Bdddomain0.t
  val forget_list :
    ('a, 'b) Bdddomain0.man ->
    'a Env.t -> 'b Bdddomain0.t -> 'a list -> 'b Bdddomain0.t
  val widening :
    ('a, 'b) Bdddomain0.man ->
    'b Bdddomain0.t -> 'b Bdddomain0.t -> 'b Bdddomain0.t
  val apply_change :
    bottom:'a Bdddomain0.t ->
    ('b, 'a) Bdddomain0.man ->
    'a Bdddomain0.t -> Env.change -> 'a Bdddomain0.t
  val apply_permutation :
    ('a, 'b) Bdddomain0.man ->
    'b Bdddomain0.t ->
    int array option * Apron.Dim.perm option -> 'b Bdddomain0.t
  module O :
    sig
      val check_wellformed :
        ('a, 'b) Bdddomain0.man -> 'b Bdddomain0.t -> bool
      val canonicalize :
        ?apron:bool ->
        ?unique:bool ->
        ?disjoint:bool -> ('a, 'b) Bdddomain0.man -> 'b Bdddomain0.t -> unit
      val size : ('a, 'b) Bdddomain0.man -> 'b Bdddomain0.t -> int
      val print :
        ?print_apron:((int -> string) ->
                      Format.formatter -> 'a Apron.Abstract0.t -> unit) ->
        ('b, [> 'b Env.typ ], [> 'b Env.typdef ], 'c) Env.O.t ->
        Format.formatter -> 'a Bdddomain0.t -> unit
      val bottom :
        ('a, 'b) Bdddomain0.man ->
        ('a, [> 'a Env.typ ], [> 'a Env.typdef ], 'c) Env.O.t ->
        'b Bdddomain0.t
      val top :
        ('a, 'b) Bdddomain0.man ->
        ('a, [> 'a Env.typ ], [> 'a Env.typdef ], 'c) Env.O.t ->
        'b Bdddomain0.t
      val of_apron :
        ('a, 'b) Bdddomain0.man ->
        ('a, [> 'a Env.typ ], [> 'a Env.typdef ], 'c) Env.O.t ->
        'b Apron.Abstract0.t -> 'b Bdddomain0.t
      val is_bottom : ('a, 'b) Bdddomain0.man -> 'b Bdddomain0.t -> bool
      val is_top : ('a, 'b) Bdddomain0.man -> 'b Bdddomain0.t -> bool
      val is_leq :
        ('a, 'b) Bdddomain0.man -> 'b Bdddomain0.t -> 'b Bdddomain0.t -> bool
      val is_eq :
        ('a, 'b) Bdddomain0.man -> 'b Bdddomain0.t -> 'b Bdddomain0.t -> bool
      val to_bddapron :
        ('a, 'b) Bdddomain0.man ->
        'b Bdddomain0.t -> ('a Expr0.Bool.t * 'b Apron.Abstract0.t) list
      val meet :
        ('a, 'b) Bdddomain0.man ->
        'b Bdddomain0.t -> 'b Bdddomain0.t -> 'b Bdddomain0.t
      val join :
        ('a, 'b) Bdddomain0.man ->
        'b Bdddomain0.t -> 'b Bdddomain0.t -> 'b Bdddomain0.t
      val meet_condition :
        ('a, 'b) Bdddomain0.man ->
        ('a, [> 'a Env.typ ] as 'c, [> 'a Env.typdef ] as 'd, 'e) Env.O.t ->
        ('a, ('a, 'c, 'd, 'e) Env.O.t) Cond.O.t ->
        'b Bdddomain0.t -> 'a Expr0.Bool.t -> 'b Bdddomain0.t
      val assign_lexpr :
        ?relational:bool ->
        ?nodependency:bool ->
        ('a, 'b) Bdddomain0.man ->
        ('a, [> 'a Env.typ ] as 'c, [> 'a Env.typdef ] as 'd, 'e) Env.O.t ->
        ('a, ('a, 'c, 'd, 'e) Env.O.t) Cond.O.t ->
        'b Bdddomain0.t ->
        'a list ->
        'a Expr0.t list -> 'b Bdddomain0.t option -> 'b Bdddomain0.t
      val substitute_lexpr :
        ('a, 'b) Bdddomain0.man ->
        ('a, [> 'a Env.typ ] as 'c, [> 'a Env.typdef ] as 'd, 'e) Env.O.t ->
        ('a, ('a, 'c, 'd, 'e) Env.O.t) Cond.O.t ->
        'b Bdddomain0.t ->
        'a list ->
        'a Expr0.t list -> 'b Bdddomain0.t option -> 'b Bdddomain0.t
      val forget_list :
        ('a, 'b) Bdddomain0.man ->
        ('a, [> 'a Env.typ ], [> 'a Env.typdef ], 'c) Env.O.t ->
        'b Bdddomain0.t -> 'a list -> 'b Bdddomain0.t
      val widening :
        ('a, 'b) Bdddomain0.man ->
        'b Bdddomain0.t -> 'b Bdddomain0.t -> 'b Bdddomain0.t
      val apply_change :
        bottom:'a Bdddomain0.t ->
        ('b, 'a) Bdddomain0.man ->
        'a Bdddomain0.t -> Env.change -> 'a Bdddomain0.t
      val apply_permutation :
        ('a, 'b) Bdddomain0.man ->
        'b Bdddomain0.t ->
        int array option * Apron.Dim.perm option -> 'b Bdddomain0.t
    end
end