sig
  type ('a, 'b) t = (('a, 'b) Bdd.Env.t, 'b Bdd.Expr0.t) Bdd.Env.value
  type ('a, 'b) expr = ('a, 'b) Bdd.Expr1.t
  type 'a dt = ('a, Cudd.Man.d) Bdd.Expr1.t
  type 'a vt = ('a, Cudd.Man.v) Bdd.Expr1.t
  module Bool :
    sig
      type ('a, 'b) t = (('a, 'b) Bdd.Env.t, 'b Cudd.Bdd.t) Bdd.Env.value
      type 'a dt = ('a, Cudd.Man.d) Bdd.Expr1.Bool.t
      type 'a vt = ('a, Cudd.Man.v) Bdd.Expr1.Bool.t
      val of_expr0 :
        ('a, 'b) Bdd.Env.t ->
        'b Bdd.Expr0.Bool.t -> ('a, 'b) Bdd.Expr1.Bool.t
      val get_env : ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Env.t
      val to_expr0 : ('a, 'b) Bdd.Expr1.Bool.t -> 'b Bdd.Expr0.Bool.t
      val of_expr : ('a, 'b) Bdd.Expr1.expr -> ('a, 'b) Bdd.Expr1.Bool.t
      val to_expr : ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.expr
      val extend_environment :
        ('a, 'b) Bdd.Expr1.Bool.t ->
        ('a, 'b) Bdd.Env.t -> ('a, 'b) Bdd.Expr1.Bool.t
      val dtrue : ('a, 'b) Bdd.Env.t -> ('a, 'b) Bdd.Expr1.Bool.t
      val dfalse : ('a, 'b) Bdd.Env.t -> ('a, 'b) Bdd.Expr1.Bool.t
      val of_bool : ('a, 'b) Bdd.Env.t -> bool -> ('a, 'b) Bdd.Expr1.Bool.t
      val var : ('a, 'b) Bdd.Env.t -> 'a -> ('a, 'b) Bdd.Expr1.Bool.t
      val dnot : ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.Bool.t
      val dand :
        ('a, 'b) Bdd.Expr1.Bool.t ->
        ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.Bool.t
      val dor :
        ('a, 'b) Bdd.Expr1.Bool.t ->
        ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.Bool.t
      val xor :
        ('a, 'b) Bdd.Expr1.Bool.t ->
        ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.Bool.t
      val nand :
        ('a, 'b) Bdd.Expr1.Bool.t ->
        ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.Bool.t
      val nor :
        ('a, 'b) Bdd.Expr1.Bool.t ->
        ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.Bool.t
      val nxor :
        ('a, 'b) Bdd.Expr1.Bool.t ->
        ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.Bool.t
      val eq :
        ('a, 'b) Bdd.Expr1.Bool.t ->
        ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.Bool.t
      val leq :
        ('a, 'b) Bdd.Expr1.Bool.t ->
        ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.Bool.t
      val ite :
        ('a, 'b) Bdd.Expr1.Bool.t ->
        ('a, 'b) Bdd.Expr1.Bool.t ->
        ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.Bool.t
      val is_true : ('a, 'b) Bdd.Expr1.Bool.t -> bool
      val is_false : ('a, 'b) Bdd.Expr1.Bool.t -> bool
      val is_cst : ('a, 'b) Bdd.Expr1.Bool.t -> bool
      val is_eq :
        ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.Bool.t -> bool
      val is_leq :
        ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.Bool.t -> bool
      val is_inter_false :
        ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.Bool.t -> bool
      val exist :
        'a list -> ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.Bool.t
      val forall :
        'a list -> ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.Bool.t
      val cofactor :
        ('a, 'b) Bdd.Expr1.Bool.t ->
        ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.Bool.t
      val restrict :
        ('a, 'b) Bdd.Expr1.Bool.t ->
        ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.Bool.t
      val tdrestrict :
        ('a, 'b) Bdd.Expr1.Bool.t ->
        ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.Bool.t
      val substitute_by_var :
        ?memo:Cudd.Memo.t ->
        ('a, 'b) Bdd.Expr1.Bool.t ->
        ('a * 'a) list -> ('a, 'b) Bdd.Expr1.Bool.t
      val substitute :
        ?memo:Cudd.Memo.t ->
        ('a, 'b) Bdd.Expr1.Bool.t ->
        ('a * ('a, 'b) Bdd.Expr1.expr) list -> ('a, 'b) Bdd.Expr1.Bool.t
      val print : Format.formatter -> ('a, 'b) Bdd.Expr1.Bool.t -> unit
    end
  module Bint :
    sig
      type ('a, 'b) t = (('a, 'b) Bdd.Env.t, 'b Bdd.Int.t) Bdd.Env.value
      type 'a dt = ('a, Cudd.Man.d) Bdd.Expr1.Bint.t
      type 'a vt = ('a, Cudd.Man.v) Bdd.Expr1.Bint.t
      val of_expr0 :
        ('a, 'b) Bdd.Env.t ->
        'b Bdd.Expr0.Bint.t -> ('a, 'b) Bdd.Expr1.Bint.t
      val get_env : ('a, 'b) Bdd.Expr1.Bint.t -> ('a, 'b) Bdd.Env.t
      val to_expr0 : ('a, 'b) Bdd.Expr1.Bint.t -> 'b Bdd.Expr0.Bint.t
      val of_expr : ('a, 'b) Bdd.Expr1.expr -> ('a, 'b) Bdd.Expr1.Bint.t
      val to_expr : ('a, 'b) Bdd.Expr1.Bint.t -> ('a, 'b) Bdd.Expr1.expr
      val extend_environment :
        ('a, 'b) Bdd.Expr1.Bint.t ->
        ('a, 'b) Bdd.Env.t -> ('a, 'b) Bdd.Expr1.Bint.t
      val of_int :
        ('a, 'b) Bdd.Env.t ->
        [ `Bint of bool * int ] -> int -> ('a, 'b) Bdd.Expr1.Bint.t
      val var : ('a, 'b) Bdd.Env.t -> 'a -> ('a, 'b) Bdd.Expr1.Bint.t
      val neg : ('a, 'b) Bdd.Expr1.Bint.t -> ('a, 'b) Bdd.Expr1.Bint.t
      val succ : ('a, 'b) Bdd.Expr1.Bint.t -> ('a, 'b) Bdd.Expr1.Bint.t
      val pred : ('a, 'b) Bdd.Expr1.Bint.t -> ('a, 'b) Bdd.Expr1.Bint.t
      val add :
        ('a, 'b) Bdd.Expr1.Bint.t ->
        ('a, 'b) Bdd.Expr1.Bint.t -> ('a, 'b) Bdd.Expr1.Bint.t
      val sub :
        ('a, 'b) Bdd.Expr1.Bint.t ->
        ('a, 'b) Bdd.Expr1.Bint.t -> ('a, 'b) Bdd.Expr1.Bint.t
      val mul :
        ('a, 'b) Bdd.Expr1.Bint.t ->
        ('a, 'b) Bdd.Expr1.Bint.t -> ('a, 'b) Bdd.Expr1.Bint.t
      val shift_left :
        int -> ('a, 'b) Bdd.Expr1.Bint.t -> ('a, 'b) Bdd.Expr1.Bint.t
      val shift_right :
        int -> ('a, 'b) Bdd.Expr1.Bint.t -> ('a, 'b) Bdd.Expr1.Bint.t
      val scale :
        int -> ('a, 'b) Bdd.Expr1.Bint.t -> ('a, 'b) Bdd.Expr1.Bint.t
      val ite :
        ('a, 'b) Bdd.Expr1.Bool.t ->
        ('a, 'b) Bdd.Expr1.Bint.t ->
        ('a, 'b) Bdd.Expr1.Bint.t -> ('a, 'b) Bdd.Expr1.Bint.t
      val zero : ('a, 'b) Bdd.Expr1.Bint.t -> ('a, 'b) Bdd.Expr1.Bool.t
      val eq :
        ('a, 'b) Bdd.Expr1.Bint.t ->
        ('a, 'b) Bdd.Expr1.Bint.t -> ('a, 'b) Bdd.Expr1.Bool.t
      val supeq :
        ('a, 'b) Bdd.Expr1.Bint.t ->
        ('a, 'b) Bdd.Expr1.Bint.t -> ('a, 'b) Bdd.Expr1.Bool.t
      val sup :
        ('a, 'b) Bdd.Expr1.Bint.t ->
        ('a, 'b) Bdd.Expr1.Bint.t -> ('a, 'b) Bdd.Expr1.Bool.t
      val eq_int :
        ('a, 'b) Bdd.Expr1.Bint.t -> int -> ('a, 'b) Bdd.Expr1.Bool.t
      val supeq_int :
        ('a, 'b) Bdd.Expr1.Bint.t -> int -> ('a, 'b) Bdd.Expr1.Bool.t
      val sup_int :
        ('a, 'b) Bdd.Expr1.Bint.t -> int -> ('a, 'b) Bdd.Expr1.Bool.t
      val cofactor :
        ('a, 'b) Bdd.Expr1.Bint.t ->
        ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.Bint.t
      val restrict :
        ('a, 'b) Bdd.Expr1.Bint.t ->
        ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.Bint.t
      val tdrestrict :
        ('a, 'b) Bdd.Expr1.Bint.t ->
        ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.Bint.t
      val substitute_by_var :
        ?memo:Cudd.Memo.t ->
        ('a, 'b) Bdd.Expr1.Bint.t ->
        ('a * 'a) list -> ('a, 'b) Bdd.Expr1.Bint.t
      val substitute :
        ?memo:Cudd.Memo.t ->
        ('a, 'b) Bdd.Expr1.Bint.t ->
        ('a * ('a, 'b) Bdd.Expr1.expr) list -> ('a, 'b) Bdd.Expr1.Bint.t
      val guard_of_int :
        ('a, 'b) Bdd.Expr1.Bint.t -> int -> ('a, 'b) Bdd.Expr1.Bool.t
      val guardints :
        ('a, 'b) Bdd.Expr1.Bint.t -> (('a, 'b) Bdd.Expr1.Bool.t * int) list
      val print : Format.formatter -> ('a, 'b) Bdd.Expr1.Bint.t -> unit
    end
  module Benum :
    sig
      type ('a, 'b) t = (('a, 'b) Bdd.Env.t, 'b Bdd.Enum.t) Bdd.Env.value
      type 'a dt = ('a, Cudd.Man.d) Bdd.Expr1.Benum.t
      type 'a vt = ('a, Cudd.Man.v) Bdd.Expr1.Benum.t
      val of_expr0 :
        ('a, 'b) Bdd.Env.t ->
        'b Bdd.Expr0.Benum.t -> ('a, 'b) Bdd.Expr1.Benum.t
      val get_env : ('a, 'b) Bdd.Expr1.Benum.t -> ('a, 'b) Bdd.Env.t
      val to_expr0 : ('a, 'b) Bdd.Expr1.Benum.t -> 'b Bdd.Expr0.Benum.t
      val of_expr : ('a, 'b) Bdd.Expr1.expr -> ('a, 'b) Bdd.Expr1.Benum.t
      val to_expr : ('a, 'b) Bdd.Expr1.Benum.t -> ('a, 'b) Bdd.Expr1.expr
      val extend_environment :
        ('a, 'b) Bdd.Expr1.Benum.t ->
        ('a, 'b) Bdd.Env.t -> ('a, 'b) Bdd.Expr1.Benum.t
      val var : ('a, 'b) Bdd.Env.t -> 'a -> ('a, 'b) Bdd.Expr1.Benum.t
      val ite :
        ('a, 'b) Bdd.Expr1.Bool.t ->
        ('a, 'b) Bdd.Expr1.Benum.t ->
        ('a, 'b) Bdd.Expr1.Benum.t -> ('a, 'b) Bdd.Expr1.Benum.t
      val eq :
        ('a, 'b) Bdd.Expr1.Benum.t ->
        ('a, 'b) Bdd.Expr1.Benum.t -> ('a, 'b) Bdd.Expr1.Bool.t
      val eq_label :
        ('a, 'b) Bdd.Expr1.Benum.t -> 'a -> ('a, 'b) Bdd.Expr1.Bool.t
      val cofactor :
        ('a, 'b) Bdd.Expr1.Benum.t ->
        ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.Benum.t
      val restrict :
        ('a, 'b) Bdd.Expr1.Benum.t ->
        ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.Benum.t
      val tdrestrict :
        ('a, 'b) Bdd.Expr1.Benum.t ->
        ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.Benum.t
      val substitute_by_var :
        ?memo:Cudd.Memo.t ->
        ('a, 'b) Bdd.Expr1.Benum.t ->
        ('a * 'a) list -> ('a, 'b) Bdd.Expr1.Benum.t
      val substitute :
        ?memo:Cudd.Memo.t ->
        ('a, 'b) Bdd.Expr1.Benum.t ->
        ('a * ('a, 'b) Bdd.Expr1.expr) list -> ('a, 'b) Bdd.Expr1.Benum.t
      val guard_of_label :
        ('a, 'b) Bdd.Expr1.Benum.t -> 'a -> ('a, 'b) Bdd.Expr1.Bool.t
      val guardlabels :
        ('a, 'b) Bdd.Expr1.Benum.t -> (('a, 'b) Bdd.Expr1.Bool.t * 'a) list
      val print : Format.formatter -> ('a, 'b) Bdd.Expr1.Benum.t -> unit
    end
  val typ_of_expr : ('a, 'b) Bdd.Expr1.t -> 'a Bdd.Env.typ
  val make : ('a, 'b) Bdd.Env.t -> 'b Bdd.Expr0.t -> ('a, 'b) Bdd.Expr1.t
  val of_expr0 : ('a, 'b) Bdd.Env.t -> 'b Bdd.Expr0.t -> ('a, 'b) Bdd.Expr1.t
  val get_env : ('a, 'b) Bdd.Expr1.t -> ('a, 'b) Bdd.Env.t
  val to_expr0 : ('a, 'b) Bdd.Expr1.t -> 'b Bdd.Expr0.t
  val extend_environment :
    ('a, 'b) Bdd.Expr1.t -> ('a, 'b) Bdd.Env.t -> ('a, 'b) Bdd.Expr1.t
  val var : ('a, 'b) Bdd.Env.t -> 'a -> ('a, 'b) Bdd.Expr1.t
  val ite :
    ('a, 'b) Bdd.Expr1.Bool.t ->
    ('a, 'b) Bdd.Expr1.t -> ('a, 'b) Bdd.Expr1.t -> ('a, 'b) Bdd.Expr1.t
  val eq :
    ('a, 'b) Bdd.Expr1.t -> ('a, 'b) Bdd.Expr1.t -> ('a, 'b) Bdd.Expr1.Bool.t
  val substitute_by_var :
    ?memo:Cudd.Memo.t ->
    ('a, 'b) Bdd.Expr1.t -> ('a * 'a) list -> ('a, 'b) Bdd.Expr1.t
  val substitute_by_var_list :
    ?memo:Cudd.Memo.t ->
    ('a, 'b) Bdd.Expr1.t list -> ('a * 'a) list -> ('a, 'b) Bdd.Expr1.t list
  val substitute :
    ?memo:Cudd.Memo.t ->
    ('a, 'b) Bdd.Expr1.t ->
    ('a * ('a, 'b) Bdd.Expr1.t) list -> ('a, 'b) Bdd.Expr1.t
  val substitute_list :
    ?memo:Cudd.Memo.t ->
    ('a, 'b) Bdd.Expr1.t list ->
    ('a * ('a, 'b) Bdd.Expr1.t) list -> ('a, 'b) Bdd.Expr1.t list
  val support : ('a, 'b) Bdd.Expr1.t -> 'a PSette.t
  val support_cond : ('a, 'b) Bdd.Expr1.t -> 'b Cudd.Bdd.t
  val cofactor :
    ('a, 'b) Bdd.Expr1.t -> ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.t
  val restrict :
    ('a, 'b) Bdd.Expr1.t -> ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.t
  val tdrestrict :
    ('a, 'b) Bdd.Expr1.t -> ('a, 'b) Bdd.Expr1.Bool.t -> ('a, 'b) Bdd.Expr1.t
  val print : Format.formatter -> ('a, 'b) Bdd.Expr1.t -> unit
  module List :
    sig
      type ('a, 'b) t =
          (('a, 'b) Bdd.Env.t, 'b Bdd.Expr0.t list) Bdd.Env.value
      type 'a dt = ('a, Cudd.Man.d) Bdd.Expr1.List.t
      type 'a vt = ('a, Cudd.Man.v) Bdd.Expr1.List.t
      val of_lexpr0 :
        ('a, 'b) Bdd.Env.t ->
        'b Bdd.Expr0.t list -> ('a, 'b) Bdd.Expr1.List.t
      val get_env : ('a, 'b) Bdd.Expr1.List.t -> ('a, 'b) Bdd.Env.t
      val to_lexpr0 : ('a, 'b) Bdd.Expr1.List.t -> 'b Bdd.Expr0.t list
      val of_lexpr :
        ('a, 'b) Bdd.Env.t ->
        ('a, 'b) Bdd.Expr1.expr list -> ('a, 'b) Bdd.Expr1.List.t
      val to_lexpr :
        ('a, 'b) Bdd.Expr1.List.t -> ('a, 'b) Bdd.Expr1.expr list
      val extend_environment :
        ('a, 'b) Bdd.Expr1.List.t ->
        ('a, 'b) Bdd.Env.t -> ('a, 'b) Bdd.Expr1.List.t
      val print :
        ?first:(unit, Format.formatter, unit) Pervasives.format ->
        ?sep:(unit, Format.formatter, unit) Pervasives.format ->
        ?last:(unit, Format.formatter, unit) Pervasives.format ->
        Format.formatter -> ('a, 'b) Bdd.Expr1.List.t -> unit
    end
  module O :
    sig
      type ('a, 'b, 'c) t = ('b, 'c Bdd.Expr0.t) Bdd.Env.value
        constraint 'b =
          ('a, [> 'a Bdd.Env.typ ] as 'd, [> 'a Bdd.Env.typdef ] as 'e, 'c,
           'f)
          Bdd.Env.O.t
      type ('a, 'b, 'c) expr = ('a, 'b, 'c) Bdd.Expr1.O.t
        constraint 'b =
          ('a, [> 'a Bdd.Env.typ ] as 'd, [> 'a Bdd.Env.typdef ] as 'e, 'c,
           'f)
          Bdd.Env.O.t
      type ('a, 'b) dt = ('a, 'b, Cudd.Man.d) Bdd.Expr1.O.t
        constraint 'b =
          ('a, [> 'a Bdd.Env.typ ] as 'c, [> 'a Bdd.Env.typdef ] as 'd,
           Cudd.Man.d, 'e)
          Bdd.Env.O.t
      type ('a, 'b) vt = ('a, 'b, Cudd.Man.v) Bdd.Expr1.O.t
        constraint 'b =
          ('a, [> 'a Bdd.Env.typ ] as 'c, [> 'a Bdd.Env.typdef ] as 'd,
           Cudd.Man.v, 'e)
          Bdd.Env.O.t
      module Bool :
        sig
          type ('a, 'b, 'c) t = ('b, 'c Cudd.Bdd.t) Bdd.Env.value
            constraint 'b =
              ('a, [> 'a Bdd.Env.typ ] as 'd, [> 'a Bdd.Env.typdef ] as 'e,
               'c, 'f)
              Bdd.Env.O.t
          type ('a, 'b) dt = ('a, 'b, Cudd.Man.d) Bdd.Expr1.O.Bool.t
            constraint 'b =
              ('a, [> 'a Bdd.Env.typ ] as 'c, [> 'a Bdd.Env.typdef ] as 'd,
               Cudd.Man.d, 'e)
              Bdd.Env.O.t
          type ('a, 'b) vt = ('a, 'b, Cudd.Man.v) Bdd.Expr1.O.Bool.t
            constraint 'b =
              ('a, [> 'a Bdd.Env.typ ] as 'c, [> 'a Bdd.Env.typdef ] as 'd,
               Cudd.Man.v, 'e)
              Bdd.Env.O.t
          val of_expr0 :
            ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd, 'c,
             'e)
            Bdd.Env.O.t ->
            'c Bdd.Expr0.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val get_env :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t -> ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t
          val to_expr0 :
            ('a,
             ('a, [> 'a Bdd.Env.typ ], [> 'a Bdd.Env.typdef ], 'c, 'b)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t -> 'c Bdd.Expr0.Bool.t
          val of_expr :
            (('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, [> `Bool of 'c Cudd.Bdd.t ])
            Bdd.Env.value ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val to_expr :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t ->
            (('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, [> `Bool of 'c Cudd.Bdd.t ])
            Bdd.Env.value
          val extend_environment :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t ->
            ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val dtrue :
            ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd, 'c,
             'e)
            Bdd.Env.O.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val dfalse :
            ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd, 'c,
             'e)
            Bdd.Env.O.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val of_bool :
            ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd, 'c,
             'e)
            Bdd.Env.O.t ->
            bool ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val var :
            ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd, 'c,
             'e)
            Bdd.Env.O.t ->
            'a ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val dnot :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val dand :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val dor :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val xor :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val nand :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val nor :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val nxor :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val eq :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val leq :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val ite :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val is_true :
            ('a,
             ('a, [> 'a Bdd.Env.typ ], [> 'a Bdd.Env.typdef ], 'c, 'b)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t -> bool
          val is_false :
            ('a,
             ('a, [> 'a Bdd.Env.typ ], [> 'a Bdd.Env.typdef ], 'c, 'b)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t -> bool
          val is_cst :
            ('a,
             ('a, [> 'a Bdd.Env.typ ], [> 'a Bdd.Env.typdef ], 'c, 'b)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t -> bool
          val is_eq :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t ->
            bool
          val is_leq :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t ->
            bool
          val is_inter_false :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t ->
            bool
          val exist :
            'a list ->
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val forall :
            'a list ->
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val cofactor :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val restrict :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val tdrestrict :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val substitute_by_var :
            ?memo:Cudd.Memo.t ->
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t ->
            ('a * 'a) list ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val substitute :
            ?memo:Cudd.Memo.t ->
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t ->
            ('a * ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.expr)
            list ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val print :
            Format.formatter ->
            ('a,
             ('a, [> 'a Bdd.Env.typ ], [> 'a Bdd.Env.typdef ], 'c, 'b)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t -> unit
        end
      module Bint :
        sig
          type ('a, 'b, 'c) t = ('b, 'c Bdd.Int.t) Bdd.Env.value
            constraint 'b =
              ('a, [> 'a Bdd.Env.typ ] as 'd, [> 'a Bdd.Env.typdef ] as 'e,
               'c, 'f)
              Bdd.Env.O.t
          type ('a, 'b, 'c) dt = ('a, 'b, Cudd.Man.d) Bdd.Expr1.O.Bint.t
            constraint 'b =
              ('a, [> 'a Bdd.Env.typ ] as 'd, [> 'a Bdd.Env.typdef ] as 'e,
               Cudd.Man.d, 'f)
              Bdd.Env.O.t
          type ('a, 'b, 'c) vt = ('a, 'b, Cudd.Man.v) Bdd.Expr1.O.Bint.t
            constraint 'b =
              ('a, [> 'a Bdd.Env.typ ] as 'd, [> 'a Bdd.Env.typdef ] as 'e,
               Cudd.Man.v, 'f)
              Bdd.Env.O.t
          val of_expr0 :
            ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd, 'c,
             'e)
            Bdd.Env.O.t ->
            'c Bdd.Expr0.Bint.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t
          val get_env :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t -> ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t
          val to_expr0 :
            ('a,
             ('a, [> 'a Bdd.Env.typ ], [> 'a Bdd.Env.typdef ], 'c, 'b)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t -> 'c Bdd.Expr0.Bint.t
          val of_expr :
            (('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, [> `Bint of 'c Bdd.Int.t ])
            Bdd.Env.value ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t
          val to_expr :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t ->
            (('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, [> `Bint of 'c Bdd.Int.t ])
            Bdd.Env.value
          val extend_environment :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t ->
            ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t
          val of_int :
            ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd, 'c,
             'e)
            Bdd.Env.O.t ->
            [ `Bint of bool * int ] ->
            int ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t
          val var :
            ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd, 'c,
             'e)
            Bdd.Env.O.t ->
            'a ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t
          val neg :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t
          val succ :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t
          val pred :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t
          val add :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t
          val sub :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t
          val mul :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t
          val shift_left :
            int ->
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t
          val shift_right :
            int ->
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t
          val scale :
            int ->
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t
          val ite :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t
          val zero :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val eq :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val supeq :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val sup :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val eq_int :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t ->
            int ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val supeq_int :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t ->
            int ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val sup_int :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t ->
            int ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val cofactor :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t
          val restrict :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t
          val tdrestrict :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t
          val substitute_by_var :
            ?memo:Cudd.Memo.t ->
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t ->
            ('a * 'a) list ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t
          val substitute :
            ?memo:Cudd.Memo.t ->
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t ->
            ('a * ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.expr)
            list ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bint.t
          val guard_of_int :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t ->
            int ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val guardints :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t ->
            (('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t *
             int)
            list
          val print :
            Format.formatter ->
            ('a,
             ('a, [> 'a Bdd.Env.typ ], [> 'a Bdd.Env.typdef ], 'c, 'b)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bint.t -> unit
        end
      module Benum :
        sig
          type ('a, 'b, 'c) t = ('b, 'c Bdd.Enum.t) Bdd.Env.value
            constraint 'b =
              ('a, [> 'a Bdd.Env.typ ] as 'd, [> 'a Bdd.Env.typdef ] as 'e,
               'c, 'f)
              Bdd.Env.O.t
          type ('a, 'b) dt = ('a, 'b, Cudd.Man.d) Bdd.Expr1.O.Benum.t
            constraint 'b =
              ('a, [> 'a Bdd.Env.typ ] as 'c, [> 'a Bdd.Env.typdef ] as 'd,
               Cudd.Man.d, 'e)
              Bdd.Env.O.t
          type ('a, 'b) vt = ('a, 'b, Cudd.Man.v) Bdd.Expr1.O.Benum.t
            constraint 'b =
              ('a, [> 'a Bdd.Env.typ ] as 'c, [> 'a Bdd.Env.typdef ] as 'd,
               Cudd.Man.v, 'e)
              Bdd.Env.O.t
          val of_expr0 :
            ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd, 'c,
             'e)
            Bdd.Env.O.t ->
            'c Bdd.Expr0.Benum.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Benum.t
          val get_env :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Benum.t -> ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t
          val to_expr0 :
            ('a,
             ('a, [> 'a Bdd.Env.typ ], [> 'a Bdd.Env.typdef ], 'c, 'b)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Benum.t -> 'c Bdd.Expr0.Benum.t
          val of_expr :
            (('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, [> `Benum of 'c Bdd.Enum.t ])
            Bdd.Env.value ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Benum.t
          val to_expr :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Benum.t ->
            (('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, [> `Benum of 'c Bdd.Enum.t ])
            Bdd.Env.value
          val extend_environment :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Benum.t ->
            ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Benum.t
          val var :
            ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd, 'c,
             'e)
            Bdd.Env.O.t ->
            'a ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Benum.t
          val ite :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Benum.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Benum.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Benum.t
          val eq :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Benum.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Benum.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val eq_label :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Benum.t ->
            'a ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val cofactor :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Benum.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Benum.t
          val restrict :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Benum.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Benum.t
          val tdrestrict :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Benum.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Benum.t
          val substitute_by_var :
            ?memo:Cudd.Memo.t ->
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Benum.t ->
            ('a * 'a) list ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Benum.t
          val substitute :
            ?memo:Cudd.Memo.t ->
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Benum.t ->
            ('a * ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.expr)
            list ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Benum.t
          val guard_of_label :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Benum.t ->
            'a ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
          val guardlabels :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Benum.t ->
            (('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t *
             'a)
            list
          val print :
            Format.formatter ->
            ('a,
             ('a, [> 'a Bdd.Env.typ ], [> 'a Bdd.Env.typdef ], 'c, 'b)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.Benum.t -> unit
        end
      val typ_of_expr :
        ('a,
         ('a, [> 'a Bdd.Env.typ ], [> 'a Bdd.Env.typdef ], 'c, 'b)
         Bdd.Env.O.t, 'c)
        Bdd.Expr1.O.t -> 'a Bdd.Env.typ
      val make :
        ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd, 'c, 'e)
        Bdd.Env.O.t ->
        'c Bdd.Expr0.t ->
        ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.expr
      val of_expr0 :
        ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd, 'c, 'e)
        Bdd.Env.O.t ->
        'c Bdd.Expr0.t ->
        ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.expr
      val get_env :
        ('a,
         ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd, 'c,
          'e)
         Bdd.Env.O.t, 'c)
        Bdd.Expr1.O.t -> ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t
      val to_expr0 :
        ('a,
         ('a, [> 'a Bdd.Env.typ ], [> 'a Bdd.Env.typdef ], 'c, 'b)
         Bdd.Env.O.t, 'c)
        Bdd.Expr1.O.t -> 'c Bdd.Expr0.t
      val extend_environment :
        ('a,
         ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd, 'c,
          'e)
         Bdd.Env.O.t, 'c)
        Bdd.Expr1.O.t ->
        ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t ->
        ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.t
      val var :
        ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd, 'c, 'e)
        Bdd.Env.O.t ->
        'a -> ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.t
      val ite :
        ('a,
         ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd, 'c,
          'e)
         Bdd.Env.O.t, 'c)
        Bdd.Expr1.O.Bool.t ->
        ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.t ->
        ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.t ->
        ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.t
      val eq :
        ('a,
         ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd, 'c,
          'e)
         Bdd.Env.O.t, 'c)
        Bdd.Expr1.O.t ->
        ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.t ->
        ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t
      val substitute_by_var :
        ?memo:Cudd.Memo.t ->
        ('a,
         ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd, 'c,
          'e)
         Bdd.Env.O.t, 'c)
        Bdd.Expr1.O.t ->
        ('a * 'a) list ->
        ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.t
      val substitute_by_var_list :
        ?memo:Cudd.Memo.t ->
        ('a,
         ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd, 'c,
          'e)
         Bdd.Env.O.t, 'c)
        Bdd.Expr1.O.t list ->
        ('a * 'a) list ->
        ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.t list
      val substitute :
        ?memo:Cudd.Memo.t ->
        ('a,
         ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd, 'c,
          'e)
         Bdd.Env.O.t, 'c)
        Bdd.Expr1.O.t ->
        ('a * ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.t) list ->
        ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.t
      val substitute_list :
        ?memo:Cudd.Memo.t ->
        ('a,
         ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd, 'c,
          'e)
         Bdd.Env.O.t, 'c)
        Bdd.Expr1.O.t list ->
        ('a * ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.t) list ->
        ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.t list
      val support :
        ('a,
         ('a, [> 'a Bdd.Env.typ ], [> 'a Bdd.Env.typdef ], 'c, 'b)
         Bdd.Env.O.t, 'c)
        Bdd.Expr1.O.t -> 'a PSette.t
      val support_cond :
        ('a,
         ('a, [> 'a Bdd.Env.typ ], [> 'a Bdd.Env.typdef ], 'c, 'b)
         Bdd.Env.O.t, 'c)
        Bdd.Expr1.O.t -> 'c Cudd.Bdd.t
      val cofactor :
        ('a,
         ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd, 'c,
          'e)
         Bdd.Env.O.t, 'c)
        Bdd.Expr1.O.t ->
        ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t ->
        ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.t
      val restrict :
        ('a,
         ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd, 'c,
          'e)
         Bdd.Env.O.t, 'c)
        Bdd.Expr1.O.t ->
        ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t ->
        ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.t
      val tdrestrict :
        ('a,
         ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd, 'c,
          'e)
         Bdd.Env.O.t, 'c)
        Bdd.Expr1.O.t ->
        ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.Bool.t ->
        ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.t
      val print :
        Format.formatter ->
        ('a,
         ('a, [> 'a Bdd.Env.typ ], [> 'a Bdd.Env.typdef ], 'c, 'b)
         Bdd.Env.O.t, 'c)
        Bdd.Expr1.O.t -> unit
      module List :
        sig
          type ('a, 'b, 'c) t = ('b, 'c Bdd.Expr0.t list) Bdd.Env.value
            constraint 'b =
              ('a, [> 'a Bdd.Env.typ ] as 'd, [> 'a Bdd.Env.typdef ] as 'e,
               'c, 'f)
              Bdd.Env.O.t
          type ('a, 'b) dt = ('a, 'b, Cudd.Man.d) Bdd.Expr1.O.List.t
            constraint 'b =
              ('a, [> 'a Bdd.Env.typ ] as 'c, [> 'a Bdd.Env.typdef ] as 'd,
               Cudd.Man.d, 'e)
              Bdd.Env.O.t
          type ('a, 'b) vt = ('a, 'b, Cudd.Man.v) Bdd.Expr1.O.List.t
            constraint 'b =
              ('a, [> 'a Bdd.Env.typ ] as 'c, [> 'a Bdd.Env.typdef ] as 'd,
               Cudd.Man.v, 'e)
              Bdd.Env.O.t
          val of_lexpr0 :
            ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd, 'c,
             'e)
            Bdd.Env.O.t ->
            'c Bdd.Expr0.t list ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.List.t
          val get_env :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.List.t -> ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t
          val to_lexpr0 :
            ('a,
             ('a, [> 'a Bdd.Env.typ ], [> 'a Bdd.Env.typdef ], 'c, 'b)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.List.t -> 'c Bdd.Expr0.t list
          val of_lexpr :
            ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd, 'c,
             'e)
            Bdd.Env.O.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.expr list ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.List.t
          val to_lexpr :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.List.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.expr list
          val extend_environment :
            ('a,
             ('a, [> 'a Bdd.Env.typ ] as 'b, [> 'a Bdd.Env.typdef ] as 'd,
              'c, 'e)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.List.t ->
            ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t ->
            ('a, ('a, 'b, 'd, 'c, 'e) Bdd.Env.O.t, 'c) Bdd.Expr1.O.List.t
          val print :
            ?first:(unit, Format.formatter, unit) Pervasives.format ->
            ?sep:(unit, Format.formatter, unit) Pervasives.format ->
            ?last:(unit, Format.formatter, unit) Pervasives.format ->
            Format.formatter ->
            ('a,
             ('a, [> 'a Bdd.Env.typ ], [> 'a Bdd.Env.typdef ], 'c, 'b)
             Bdd.Env.O.t, 'c)
            Bdd.Expr1.O.List.t -> unit
        end
    end
end