sig
  type 'a t =
      [ `Apron of 'a Bddapron.ApronexprDD.t
      | `Benum of Cudd.Man.v Bdd.Enum.t
      | `Bint of Cudd.Man.v Bdd.Int.t
      | `Bool of Cudd.Man.v Cudd.Bdd.t ]
  type 'a expr = 'a Bddapron.Expr0.t
  module Bool :
    sig
      type 'a t = Cudd.Bdd.vt
      val of_expr : 'a Bddapron.Expr0.expr -> 'a Bddapron.Expr0.Bool.t
      val to_expr : 'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.expr
      val dtrue :
        'a Bddapron.Env.t -> 'a Bddapron.Cond.t -> 'a Bddapron.Expr0.Bool.t
      val dfalse :
        'a Bddapron.Env.t -> 'a Bddapron.Cond.t -> 'a Bddapron.Expr0.Bool.t
      val of_bool :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t -> bool -> 'a Bddapron.Expr0.Bool.t
      val var :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t -> 'a -> 'a Bddapron.Expr0.Bool.t
      val ite :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bool.t ->
        'a Bddapron.Expr0.Bool.t ->
        'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Bool.t
      val dnot :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Bool.t
      val dand :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bool.t ->
        'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Bool.t
      val dor :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bool.t ->
        'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Bool.t
      val xor :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bool.t ->
        'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Bool.t
      val nand :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bool.t ->
        'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Bool.t
      val nor :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bool.t ->
        'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Bool.t
      val nxor :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bool.t ->
        'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Bool.t
      val leq :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bool.t ->
        'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Bool.t
      val eq :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bool.t ->
        'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Bool.t
      val is_true :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t -> 'a Bddapron.Expr0.Bool.t -> bool
      val is_false :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t -> 'a Bddapron.Expr0.Bool.t -> bool
      val is_cst :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t -> 'a Bddapron.Expr0.Bool.t -> bool
      val is_leq :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Bool.t -> bool
      val is_eq :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Bool.t -> bool
      val is_and_false :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Bool.t -> bool
      val exist :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a list -> 'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Bool.t
      val forall :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a list -> 'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Bool.t
      val cofactor :
        'a Bddapron.Expr0.Bool.t ->
        'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Bool.t
      val restrict :
        'a Bddapron.Expr0.Bool.t ->
        'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Bool.t
      val tdrestrict :
        'a Bddapron.Expr0.Bool.t ->
        'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Bool.t
      val permute :
        ?memo:Cudd.Memo.t ->
        'a Bddapron.Expr0.Bool.t -> int array -> 'a Bddapron.Expr0.Bool.t
      val varmap : 'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Bool.t
      val substitute_by_var :
        ?memo:Cudd.Memo.t ->
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bool.t ->
        ('a * 'a) list -> 'a Bddapron.Expr0.Bool.t
      val substitute :
        ?memo:Cudd.Memo.t ->
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bool.t ->
        ('a * 'a Bddapron.Expr0.expr) list -> 'a Bddapron.Expr0.Bool.t
      val print :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        Format.formatter -> 'a Bddapron.Expr0.Bool.t -> unit
    end
  module Bint :
    sig
      type 'a t = Cudd.Man.v Bdd.Int.t
      val of_expr : 'a Bddapron.Expr0.expr -> 'a Bddapron.Expr0.Bint.t
      val to_expr : 'a Bddapron.Expr0.Bint.t -> 'a Bddapron.Expr0.expr
      val of_int :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        [ `Bint of bool * int ] -> int -> 'a Bddapron.Expr0.Bint.t
      val var :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t -> 'a -> 'a Bddapron.Expr0.Bint.t
      val ite :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bool.t ->
        'a Bddapron.Expr0.Bint.t ->
        'a Bddapron.Expr0.Bint.t -> 'a Bddapron.Expr0.Bint.t
      val neg :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bint.t -> 'a Bddapron.Expr0.Bint.t
      val succ :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bint.t -> 'a Bddapron.Expr0.Bint.t
      val pred :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bint.t -> 'a Bddapron.Expr0.Bint.t
      val add :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bint.t ->
        'a Bddapron.Expr0.Bint.t -> 'a Bddapron.Expr0.Bint.t
      val sub :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bint.t ->
        'a Bddapron.Expr0.Bint.t -> 'a Bddapron.Expr0.Bint.t
      val mul :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bint.t ->
        'a Bddapron.Expr0.Bint.t -> 'a Bddapron.Expr0.Bint.t
      val shift_left :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        int -> 'a Bddapron.Expr0.Bint.t -> 'a Bddapron.Expr0.Bint.t
      val shift_right :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        int -> 'a Bddapron.Expr0.Bint.t -> 'a Bddapron.Expr0.Bint.t
      val scale :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        int -> 'a Bddapron.Expr0.Bint.t -> 'a Bddapron.Expr0.Bint.t
      val zero :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bint.t -> 'a Bddapron.Expr0.Bool.t
      val eq :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bint.t ->
        'a Bddapron.Expr0.Bint.t -> 'a Bddapron.Expr0.Bool.t
      val eq_int :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bint.t -> int -> 'a Bddapron.Expr0.Bool.t
      val supeq :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bint.t ->
        'a Bddapron.Expr0.Bint.t -> 'a Bddapron.Expr0.Bool.t
      val supeq_int :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bint.t -> int -> 'a Bddapron.Expr0.Bool.t
      val sup :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bint.t ->
        'a Bddapron.Expr0.Bint.t -> 'a Bddapron.Expr0.Bool.t
      val sup_int :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bint.t -> int -> 'a Bddapron.Expr0.Bool.t
      val cofactor :
        'a Bddapron.Expr0.Bint.t ->
        'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Bint.t
      val restrict :
        'a Bddapron.Expr0.Bint.t ->
        'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Bint.t
      val tdrestrict :
        'a Bddapron.Expr0.Bint.t ->
        'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Bint.t
      val permute :
        ?memo:Cudd.Memo.t ->
        'a Bddapron.Expr0.Bint.t -> int array -> 'a Bddapron.Expr0.Bint.t
      val varmap : 'a Bddapron.Expr0.Bint.t -> 'a Bddapron.Expr0.Bint.t
      val substitute_by_var :
        ?memo:Cudd.Memo.t ->
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bint.t ->
        ('a * 'a) list -> 'a Bddapron.Expr0.Bint.t
      val substitute :
        ?memo:Cudd.Memo.t ->
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bint.t ->
        ('a * 'a Bddapron.Expr0.expr) list -> 'a Bddapron.Expr0.Bint.t
      val print :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        Format.formatter -> 'a Bddapron.Expr0.Bint.t -> unit
    end
  module Benum :
    sig
      type 'a t = Cudd.Man.v Bdd.Enum.t
      val of_expr : 'a Bddapron.Expr0.expr -> 'a Bddapron.Expr0.Benum.t
      val to_expr : 'a Bddapron.Expr0.Benum.t -> 'a Bddapron.Expr0.expr
      val var :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t -> 'a -> 'a Bddapron.Expr0.Benum.t
      val ite :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bool.t ->
        'a Bddapron.Expr0.Benum.t ->
        'a Bddapron.Expr0.Benum.t -> 'a Bddapron.Expr0.Benum.t
      val eq :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Benum.t ->
        'a Bddapron.Expr0.Benum.t -> 'a Bddapron.Expr0.Bool.t
      val eq_label :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Benum.t -> 'a -> 'a Bddapron.Expr0.Bool.t
      val cofactor :
        'a Bddapron.Expr0.Benum.t ->
        'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Benum.t
      val restrict :
        'a Bddapron.Expr0.Benum.t ->
        'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Benum.t
      val tdrestrict :
        'a Bddapron.Expr0.Benum.t ->
        'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Benum.t
      val permute :
        ?memo:Cudd.Memo.t ->
        'a Bddapron.Expr0.Benum.t -> int array -> 'a Bddapron.Expr0.Benum.t
      val varmap : 'a Bddapron.Expr0.Benum.t -> 'a Bddapron.Expr0.Benum.t
      val substitute_by_var :
        ?memo:Cudd.Memo.t ->
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Benum.t ->
        ('a * 'a) list -> 'a Bddapron.Expr0.Benum.t
      val substitute :
        ?memo:Cudd.Memo.t ->
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Benum.t ->
        ('a * 'a Bddapron.Expr0.expr) list -> 'a Bddapron.Expr0.Benum.t
      val print :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        Format.formatter -> 'a Bddapron.Expr0.Benum.t -> unit
    end
  type apron_coeff = Apron.Coeff.t
  type apron_typ = Apron.Texpr1.typ
  type apron_round = Apron.Texpr1.round
  module Apron :
    sig
      type 'a t = 'a Bddapron.ApronexprDD.t
      val of_expr : 'a Bddapron.Expr0.expr -> 'a Bddapron.Expr0.Apron.t
      val to_expr : 'a Bddapron.Expr0.Apron.t -> 'a Bddapron.Expr0.expr
      val cst :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t -> Apron.Coeff.t -> 'a Bddapron.Expr0.Apron.t
      val var :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t -> 'a -> 'a Bddapron.Expr0.Apron.t
      val add :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        ?typ:Apron.Texpr1.typ ->
        ?round:Apron.Texpr1.round ->
        'a Bddapron.Expr0.Apron.t ->
        'a Bddapron.Expr0.Apron.t -> 'a Bddapron.Expr0.Apron.t
      val sub :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        ?typ:Apron.Texpr1.typ ->
        ?round:Apron.Texpr1.round ->
        'a Bddapron.Expr0.Apron.t ->
        'a Bddapron.Expr0.Apron.t -> 'a Bddapron.Expr0.Apron.t
      val mul :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        ?typ:Apron.Texpr1.typ ->
        ?round:Apron.Texpr1.round ->
        'a Bddapron.Expr0.Apron.t ->
        'a Bddapron.Expr0.Apron.t -> 'a Bddapron.Expr0.Apron.t
      val div :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        ?typ:Apron.Texpr1.typ ->
        ?round:Apron.Texpr1.round ->
        'a Bddapron.Expr0.Apron.t ->
        'a Bddapron.Expr0.Apron.t -> 'a Bddapron.Expr0.Apron.t
      val gmod :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        ?typ:Apron.Texpr1.typ ->
        ?round:Apron.Texpr1.round ->
        'a Bddapron.Expr0.Apron.t ->
        'a Bddapron.Expr0.Apron.t -> 'a Bddapron.Expr0.Apron.t
      val negate :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Apron.t -> 'a Bddapron.Expr0.Apron.t
      val cast :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        ?typ:Apron.Texpr1.typ ->
        ?round:Apron.Texpr1.round ->
        'a Bddapron.Expr0.Apron.t -> 'a Bddapron.Expr0.Apron.t
      val sqrt :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        ?typ:Apron.Texpr1.typ ->
        ?round:Apron.Texpr1.round ->
        'a Bddapron.Expr0.Apron.t -> 'a Bddapron.Expr0.Apron.t
      val supeq :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Apron.t -> 'a Bddapron.Expr0.Bool.t
      val sup :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Apron.t -> 'a Bddapron.Expr0.Bool.t
      val eq :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Apron.t -> 'a Bddapron.Expr0.Bool.t
      val ite :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Bool.t ->
        'a Bddapron.Expr0.Apron.t ->
        'a Bddapron.Expr0.Apron.t -> 'a Bddapron.Expr0.Apron.t
      val cofactor :
        'a Bddapron.Expr0.Apron.t ->
        'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Apron.t
      val restrict :
        'a Bddapron.Expr0.Apron.t ->
        'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Apron.t
      val tdrestrict :
        'a Bddapron.Expr0.Apron.t ->
        'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.Apron.t
      val permute :
        ?memo:Cudd.Memo.t ->
        'a Bddapron.Expr0.Apron.t -> int array -> 'a Bddapron.Expr0.Apron.t
      val varmap : 'a Bddapron.Expr0.Apron.t -> 'a Bddapron.Expr0.Apron.t
      val substitute_by_var :
        ?memo:Cudd.Memo.t ->
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Apron.t ->
        ('a * 'a) list -> 'a Bddapron.Expr0.Apron.t
      val substitute :
        ?memo:Cudd.Memo.t ->
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        'a Bddapron.Expr0.Apron.t ->
        ('a * 'a Bddapron.Expr0.expr) list -> 'a Bddapron.Expr0.Apron.t
      val print :
        'a Bddapron.Env.t ->
        'a Bddapron.Cond.t ->
        Format.formatter -> 'a Bddapron.Expr0.Apron.t -> unit
    end
  val typ_of_expr :
    'a Bddapron.Env.t -> 'a Bddapron.Expr0.t -> 'a Bddapron.Env.typ
  val var :
    'a Bddapron.Env.t -> 'a Bddapron.Cond.t -> 'a -> 'a Bddapron.Expr0.t
  val ite :
    'a Bddapron.Env.t ->
    'a Bddapron.Cond.t ->
    'a Bddapron.Expr0.Bool.t ->
    'a Bddapron.Expr0.t -> 'a Bddapron.Expr0.t -> 'a Bddapron.Expr0.t
  val cofactor :
    'a Bddapron.Expr0.t -> 'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.t
  val substitute_by_var :
    ?memo:Cudd.Memo.t ->
    'a Bddapron.Env.t ->
    'a Bddapron.Cond.t ->
    'a Bddapron.Expr0.t -> ('a * 'a) list -> 'a Bddapron.Expr0.t
  val substitute_by_var_list :
    ?memo:Cudd.Memo.t ->
    'a Bddapron.Env.t ->
    'a Bddapron.Cond.t ->
    'a Bddapron.Expr0.t list -> ('a * 'a) list -> 'a Bddapron.Expr0.t list
  val substitute :
    ?memo:Cudd.Memo.t ->
    'a Bddapron.Env.t ->
    'a Bddapron.Cond.t ->
    'a Bddapron.Expr0.t ->
    ('a * 'a Bddapron.Expr0.t) list -> 'a Bddapron.Expr0.t
  val substitute_list :
    ?memo:Cudd.Memo.t ->
    'a Bddapron.Env.t ->
    'a Bddapron.Cond.t ->
    'a Bddapron.Expr0.t list ->
    ('a * 'a Bddapron.Expr0.t) list -> 'a Bddapron.Expr0.t list
  val restrict :
    'a Bddapron.Expr0.t -> 'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.t
  val tdrestrict :
    'a Bddapron.Expr0.t -> 'a Bddapron.Expr0.Bool.t -> 'a Bddapron.Expr0.t
  val permute :
    ?memo:Cudd.Memo.t ->
    'a Bddapron.Expr0.t -> int array -> 'a Bddapron.Expr0.t
  val varmap : 'a Bddapron.Expr0.t -> 'a Bddapron.Expr0.t
  val support :
    'a Bddapron.Env.t ->
    'a Bddapron.Cond.t -> 'a Bddapron.Expr0.t -> 'a PSette.t
  val eq :
    'a Bddapron.Env.t ->
    'a Bddapron.Cond.t ->
    'a Bddapron.Expr0.t -> 'a Bddapron.Expr0.t -> 'a Bddapron.Expr0.Bool.t
  val support_cond : Cudd.Man.vt -> 'a Bddapron.Expr0.t -> Cudd.Bdd.vt
  val print :
    'a Bddapron.Env.t ->
    'a Bddapron.Cond.t ->
    Format.formatter -> [< 'a Bddapron.Expr0.t ] -> unit
  val normalize :
    ?reduce:bool ->
    ?careset:bool ->
    'a Bddapron.Cond.t * 'a Bddapron.Expr0.t list ->
    'a Bddapron.Cond.t * 'a Bddapron.Expr0.t list
  module O :
    sig
      val check_typ2 :
        ('a, [> 'a Bddapron.Env.typ ], [> 'a Bddapron.Env.typdef ], 'd)
        Bddapron.Env.O.t ->
        [< 'a Bddapron.Expr0.t ] ->
        [< 'a Bddapron.Expr0.t ] -> 'a Bddapron.Env.typ
      module Bool :
        sig
          type 'a t = Cudd.Bdd.vt
          val of_expr : 'a Bddapron.Expr0.expr -> 'a Bddapron.Expr0.O.Bool.t
          val to_expr : 'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.expr
          val dtrue :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bool.t
          val dfalse :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bool.t
          val of_bool :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            bool -> 'a Bddapron.Expr0.O.Bool.t
          val var :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a -> 'a Bddapron.Expr0.O.Bool.t
          val ite :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bool.t ->
            'a Bddapron.Expr0.O.Bool.t ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Bool.t
          val dnot :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Bool.t
          val dand :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bool.t ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Bool.t
          val dor :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bool.t ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Bool.t
          val xor :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bool.t ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Bool.t
          val nand :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bool.t ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Bool.t
          val nor :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bool.t ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Bool.t
          val nxor :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bool.t ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Bool.t
          val leq :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bool.t ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Bool.t
          val eq :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bool.t ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Bool.t
          val is_true :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bool.t -> bool
          val is_false :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bool.t -> bool
          val is_cst :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bool.t -> bool
          val is_leq :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Bool.t -> bool
          val is_eq :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Bool.t -> bool
          val is_and_false :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Bool.t -> bool
          val exist :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a list ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Bool.t
          val forall :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a list ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Bool.t
          val cofactor :
            'a Bddapron.Expr0.O.Bool.t ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Bool.t
          val restrict :
            'a Bddapron.Expr0.O.Bool.t ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Bool.t
          val tdrestrict :
            'a Bddapron.Expr0.O.Bool.t ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Bool.t
          val permute :
            ?memo:Cudd.Memo.t ->
            'a Bddapron.Expr0.O.Bool.t ->
            int array -> 'a Bddapron.Expr0.O.Bool.t
          val varmap :
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Bool.t
          val substitute_by_var :
            ?memo:Cudd.Memo.t ->
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bool.t ->
            ('a * 'a) list -> 'a Bddapron.Expr0.O.Bool.t
          val substitute :
            ?memo:Cudd.Memo.t ->
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bool.t ->
            ('a * 'a Bddapron.Expr0.expr) list -> 'a Bddapron.Expr0.O.Bool.t
          val print :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            Format.formatter -> 'a Bddapron.Expr0.O.Bool.t -> unit
        end
      module Bint :
        sig
          type 'a t = Cudd.Man.v Bdd.Int.t
          val of_expr : 'a Bddapron.Expr0.expr -> 'a Bddapron.Expr0.O.Bint.t
          val to_expr : 'a Bddapron.Expr0.O.Bint.t -> 'a Bddapron.Expr0.expr
          val of_int :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            [> `Bint of bool * int ] -> int -> 'a Bddapron.Expr0.O.Bint.t
          val var :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a -> 'a Bddapron.Expr0.O.Bint.t
          val ite :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bool.t ->
            'a Bddapron.Expr0.O.Bint.t ->
            'a Bddapron.Expr0.O.Bint.t -> 'a Bddapron.Expr0.O.Bint.t
          val neg :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bint.t -> 'a Bddapron.Expr0.O.Bint.t
          val succ :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bint.t -> 'a Bddapron.Expr0.O.Bint.t
          val pred :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bint.t -> 'a Bddapron.Expr0.O.Bint.t
          val add :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bint.t ->
            'a Bddapron.Expr0.O.Bint.t -> 'a Bddapron.Expr0.O.Bint.t
          val sub :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bint.t ->
            'a Bddapron.Expr0.O.Bint.t -> 'a Bddapron.Expr0.O.Bint.t
          val mul :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bint.t ->
            'a Bddapron.Expr0.O.Bint.t -> 'a Bddapron.Expr0.O.Bint.t
          val shift_left :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            int -> 'a Bddapron.Expr0.O.Bint.t -> 'a Bddapron.Expr0.O.Bint.t
          val shift_right :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            int -> 'a Bddapron.Expr0.O.Bint.t -> 'a Bddapron.Expr0.O.Bint.t
          val scale :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            int -> 'a Bddapron.Expr0.O.Bint.t -> 'a Bddapron.Expr0.O.Bint.t
          val zero :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bint.t -> 'a Bddapron.Expr0.O.Bool.t
          val eq :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bint.t ->
            'a Bddapron.Expr0.O.Bint.t -> 'a Bddapron.Expr0.O.Bool.t
          val eq_int :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bint.t -> int -> 'a Bddapron.Expr0.O.Bool.t
          val supeq :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bint.t ->
            'a Bddapron.Expr0.O.Bint.t -> 'a Bddapron.Expr0.O.Bool.t
          val supeq_int :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bint.t -> int -> 'a Bddapron.Expr0.O.Bool.t
          val sup :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bint.t ->
            'a Bddapron.Expr0.O.Bint.t -> 'a Bddapron.Expr0.O.Bool.t
          val sup_int :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bint.t -> int -> 'a Bddapron.Expr0.O.Bool.t
          val cofactor :
            'a Bddapron.Expr0.O.Bint.t ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Bint.t
          val restrict :
            'a Bddapron.Expr0.O.Bint.t ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Bint.t
          val tdrestrict :
            'a Bddapron.Expr0.O.Bint.t ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Bint.t
          val permute :
            ?memo:Cudd.Memo.t ->
            'a Bddapron.Expr0.O.Bint.t ->
            int array -> 'a Bddapron.Expr0.O.Bint.t
          val varmap :
            'a Bddapron.Expr0.O.Bint.t -> 'a Bddapron.Expr0.O.Bint.t
          val substitute_by_var :
            ?memo:Cudd.Memo.t ->
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bint.t ->
            ('a * 'a) list -> 'a Bddapron.Expr0.O.Bint.t
          val substitute :
            ?memo:Cudd.Memo.t ->
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bint.t ->
            ('a * 'a Bddapron.Expr0.expr) list -> 'a Bddapron.Expr0.O.Bint.t
          val print :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            Format.formatter -> 'a Bddapron.Expr0.O.Bint.t -> unit
        end
      module Benum :
        sig
          type 'a t = Cudd.Man.v Bdd.Enum.t
          val of_expr : 'a Bddapron.Expr0.expr -> 'a Bddapron.Expr0.O.Benum.t
          val to_expr : 'a Bddapron.Expr0.O.Benum.t -> 'a Bddapron.Expr0.expr
          val var :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a -> 'a Bddapron.Expr0.O.Benum.t
          val ite :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bool.t ->
            'a Bddapron.Expr0.O.Benum.t ->
            'a Bddapron.Expr0.O.Benum.t -> 'a Bddapron.Expr0.O.Benum.t
          val eq :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Benum.t ->
            'a Bddapron.Expr0.O.Benum.t -> 'a Bddapron.Expr0.O.Bool.t
          val eq_label :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Benum.t -> 'a -> 'a Bddapron.Expr0.O.Bool.t
          val cofactor :
            'a Bddapron.Expr0.O.Benum.t ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Benum.t
          val restrict :
            'a Bddapron.Expr0.O.Benum.t ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Benum.t
          val tdrestrict :
            'a Bddapron.Expr0.O.Benum.t ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Benum.t
          val permute :
            ?memo:Cudd.Memo.t ->
            'a Bddapron.Expr0.O.Benum.t ->
            int array -> 'a Bddapron.Expr0.O.Benum.t
          val varmap :
            'a Bddapron.Expr0.O.Benum.t -> 'a Bddapron.Expr0.O.Benum.t
          val substitute_by_var :
            ?memo:Cudd.Memo.t ->
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Benum.t ->
            ('a * 'a) list -> 'a Bddapron.Expr0.O.Benum.t
          val substitute :
            ?memo:Cudd.Memo.t ->
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Benum.t ->
            ('a * 'a Bddapron.Expr0.expr) list -> 'a Bddapron.Expr0.O.Benum.t
          val print :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            Format.formatter -> 'a Bddapron.Expr0.O.Benum.t -> unit
        end
      module Apron :
        sig
          type 'a t = 'a Bddapron.ApronexprDD.t
          val of_expr :
            [> `Apron of 'a Bddapron.Expr0.O.Apron.t ] ->
            'a Bddapron.Expr0.O.Apron.t
          val to_expr :
            'a Bddapron.Expr0.O.Apron.t ->
            [> `Apron of 'a Bddapron.Expr0.O.Apron.t ]
          val cst :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            Bddapron.Expr0.apron_coeff -> 'a Bddapron.Expr0.O.Apron.t
          val var :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a -> 'a Bddapron.Expr0.O.Apron.t
          val add :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            ?typ:Bddapron.Expr0.apron_typ ->
            ?round:Bddapron.Expr0.apron_round ->
            'a Bddapron.Expr0.O.Apron.t ->
            'a Bddapron.Expr0.O.Apron.t -> 'a Bddapron.Expr0.O.Apron.t
          val sub :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            ?typ:Bddapron.Expr0.apron_typ ->
            ?round:Bddapron.Expr0.apron_round ->
            'a Bddapron.Expr0.O.Apron.t ->
            'a Bddapron.Expr0.O.Apron.t -> 'a Bddapron.Expr0.O.Apron.t
          val mul :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            ?typ:Bddapron.Expr0.apron_typ ->
            ?round:Bddapron.Expr0.apron_round ->
            'a Bddapron.Expr0.O.Apron.t ->
            'a Bddapron.Expr0.O.Apron.t -> 'a Bddapron.Expr0.O.Apron.t
          val div :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            ?typ:Bddapron.Expr0.apron_typ ->
            ?round:Bddapron.Expr0.apron_round ->
            'a Bddapron.Expr0.O.Apron.t ->
            'a Bddapron.Expr0.O.Apron.t -> 'a Bddapron.Expr0.O.Apron.t
          val gmod :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            ?typ:Bddapron.Expr0.apron_typ ->
            ?round:Bddapron.Expr0.apron_round ->
            'a Bddapron.Expr0.O.Apron.t ->
            'a Bddapron.Expr0.O.Apron.t -> 'a Bddapron.Expr0.O.Apron.t
          val negate :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Apron.t -> 'a Bddapron.Expr0.O.Apron.t
          val cast :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            ?typ:Bddapron.Expr0.apron_typ ->
            ?round:Bddapron.Expr0.apron_round ->
            'a Bddapron.Expr0.O.Apron.t -> 'a Bddapron.Expr0.O.Apron.t
          val sqrt :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            ?typ:Bddapron.Expr0.apron_typ ->
            ?round:Bddapron.Expr0.apron_round ->
            'a Bddapron.Expr0.O.Apron.t -> 'a Bddapron.Expr0.O.Apron.t
          val supeq :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Apron.t -> 'a Bddapron.Expr0.O.Bool.t
          val sup :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Apron.t -> 'a Bddapron.Expr0.O.Bool.t
          val eq :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Apron.t -> 'a Bddapron.Expr0.O.Bool.t
          val ite :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Bool.t ->
            'a Bddapron.Expr0.O.Apron.t ->
            'a Bddapron.Expr0.O.Apron.t -> 'a Bddapron.Expr0.O.Apron.t
          val cofactor :
            'a Bddapron.Expr0.O.Apron.t ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Apron.t
          val restrict :
            'a Bddapron.Expr0.O.Apron.t ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Apron.t
          val tdrestrict :
            'a Bddapron.Expr0.O.Apron.t ->
            'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.O.Apron.t
          val permute :
            ?memo:Cudd.Memo.t ->
            'a Bddapron.Expr0.O.Apron.t ->
            int array -> 'a Bddapron.Expr0.O.Apron.t
          val varmap :
            'a Bddapron.Expr0.O.Apron.t -> 'a Bddapron.Expr0.O.Apron.t
          val substitute_by_var :
            ?memo:Cudd.Memo.t ->
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Apron.t ->
            ('a * 'a) list -> 'a Bddapron.Expr0.O.Apron.t
          val substitute :
            ?memo:Cudd.Memo.t ->
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            'a Bddapron.Expr0.O.Apron.t ->
            ('a * 'a Bddapron.Expr0.expr) list -> 'a Bddapron.Expr0.O.Apron.t
          val print :
            ('a, [> 'a Bddapron.Env.typ ] as 'b,
             [> 'a Bddapron.Env.typdef ] as 'c, 'd)
            Bddapron.Env.O.t ->
            ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
            Format.formatter -> 'a Bddapron.Expr0.O.Apron.t -> unit
        end
      val typ_of_expr :
        ('a, [> 'a Bddapron.Env.typ ], [> 'a Bddapron.Env.typdef ], 'd)
        Bddapron.Env.O.t -> [< 'a Bddapron.Expr0.t ] -> 'a Bddapron.Env.typ
      val var :
        ('a, [> 'a Bddapron.Env.typ ] as 'b,
         [> 'a Bddapron.Env.typdef ] as 'c, 'd)
        Bddapron.Env.O.t ->
        ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
        'a -> 'a Bddapron.Expr0.t
      val ite :
        ('a, [> 'a Bddapron.Env.typ ] as 'b,
         [> 'a Bddapron.Env.typdef ] as 'c, 'd)
        Bddapron.Env.O.t ->
        ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
        'a Bddapron.Expr0.O.Bool.t ->
        'a Bddapron.Expr0.t -> 'a Bddapron.Expr0.t -> 'a Bddapron.Expr0.t
      val cofactor :
        'a Bddapron.Expr0.t ->
        'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.t
      val restrict :
        'a Bddapron.Expr0.t ->
        'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.t
      val tdrestrict :
        'a Bddapron.Expr0.t ->
        'a Bddapron.Expr0.O.Bool.t -> 'a Bddapron.Expr0.t
      val permute :
        ?memo:Cudd.Memo.t ->
        'a Bddapron.Expr0.t -> int array -> 'a Bddapron.Expr0.t
      val permute_list :
        ?memo:Cudd.Memo.t ->
        'a Bddapron.Expr0.t list -> int array -> 'a Bddapron.Expr0.t list
      val varmap : 'a Bddapron.Expr0.t -> 'a Bddapron.Expr0.t
      val substitute_by_var :
        ?memo:Cudd.Memo.t ->
        ('a, [> 'a Bddapron.Env.typ ] as 'b,
         [> 'a Bddapron.Env.typdef ] as 'c, 'd)
        Bddapron.Env.O.t ->
        ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
        'a Bddapron.Expr0.t -> ('a * 'a) list -> 'a Bddapron.Expr0.t
      val substitute_by_var_list :
        ?memo:Cudd.Memo.t ->
        ('a, [> 'a Bddapron.Env.typ ] as 'b,
         [> 'a Bddapron.Env.typdef ] as 'c, 'd)
        Bddapron.Env.O.t ->
        ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
        'a Bddapron.Expr0.t list ->
        ('a * 'a) list -> 'a Bddapron.Expr0.t list
      val substitute :
        ?memo:Cudd.Memo.t ->
        ('a, [> 'a Bddapron.Env.typ ] as 'b,
         [> 'a Bddapron.Env.typdef ] as 'c, 'd)
        Bddapron.Env.O.t ->
        ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
        'a Bddapron.Expr0.t ->
        ('a * 'a Bddapron.Expr0.t) list -> 'a Bddapron.Expr0.t
      val substitute_list :
        ?memo:Cudd.Memo.t ->
        ('a, [> 'a Bddapron.Env.typ ] as 'b,
         [> 'a Bddapron.Env.typdef ] as 'c, 'd)
        Bddapron.Env.O.t ->
        ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
        'a Bddapron.Expr0.t list ->
        ('a * 'a Bddapron.Expr0.t) list -> 'a Bddapron.Expr0.t list
      val support :
        ('a, [> 'a Bddapron.Env.typ ] as 'b,
         [> 'a Bddapron.Env.typdef ] as 'c, 'd)
        Bddapron.Env.O.t ->
        ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
        'a Bddapron.Expr0.t -> 'a PSette.t
      val eq :
        ('a, [> 'a Bddapron.Env.typ ] as 'b,
         [> 'a Bddapron.Env.typdef ] as 'c, 'd)
        Bddapron.Env.O.t ->
        ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
        'a Bddapron.Expr0.t ->
        'a Bddapron.Expr0.t -> 'a Bddapron.Expr0.O.Bool.t
      val support_cond : Cudd.Man.vt -> 'a Bddapron.Expr0.t -> Cudd.Bdd.vt
      val print :
        ('a, [> 'a Bddapron.Env.typ ] as 'b,
         [> 'a Bddapron.Env.typdef ] as 'c, 'd)
        Bddapron.Env.O.t ->
        ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
        Format.formatter -> [< 'a Bddapron.Expr0.t ] -> unit
      val print_bdd :
        ('a, [> 'a Bddapron.Env.typ ] as 'b,
         [> 'a Bddapron.Env.typdef ] as 'c, 'd)
        Bddapron.Env.O.t ->
        ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
        Format.formatter -> Cudd.Bdd.vt -> unit
      val normalize :
        ?reduce:bool ->
        ?careset:bool ->
        ('a,
         ('a, [> 'a Bddapron.Env.typ ] as 'b,
          [> 'a Bddapron.Env.typdef ] as 'c, 'd)
         Bddapron.Env.O.t)
        Bddapron.Cond.O.t * 'a Bddapron.Expr0.t list ->
        ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t *
        'a Bddapron.Expr0.t list
      val compose_of_lvarexpr :
        ('a, [> 'a Bddapron.Env.typ ] as 'b,
         [> 'a Bddapron.Env.typdef ] as 'c, 'd)
        Bddapron.Env.O.t ->
        ('a, ('a, 'b, 'c, 'd) Bddapron.Env.O.t) Bddapron.Cond.O.t ->
        ('a * 'a Bddapron.Expr0.t) list ->
        Cudd.Bdd.vt array option * ('a, 'a Bddapron.Expr0.t) PMappe.t
    end
end