sig
  exception Bddindex
  type 'a typdef = [ `Benum of 'a array ]
  type 'a typ = [ `Benum of '| `Bint of bool * int | `Bool ]
  type 'a symbol = {
    compare : '-> '-> int;
    marshal : '-> string;
    unmarshal : string -> 'a;
    mutable print : Format.formatter -> '-> unit;
  }
  type ('a, 'b, 'c, 'd, 'e) t0 = {
    mutable cudd : 'Cudd.Man.t;
    mutable typdef : ('a, 'c) PMappe.t;
    mutable vartyp : ('a, 'b) PMappe.t;
    mutable bddindex0 : int;
    mutable bddsize : int;
    mutable bddindex : int;
    mutable bddincr : int;
    mutable idcondvar : (int, 'a) PMappe.t;
    mutable vartid : ('a, int array) PMappe.t;
    mutable varset : ('a, 'Cudd.Bdd.t) PMappe.t;
    mutable print_external_idcondb : Format.formatter -> int * bool -> unit;
    mutable ext : 'e;
    symbol : 'Bdd.Env.symbol;
    copy_ext : '-> 'e;
  }
  module O :
    sig
      type ('a, 'b, 'c, 'd, 'e) t = ('a, 'b, 'c, 'd, 'e) Bdd.Env.t0
        constraint 'b = [> 'Bdd.Env.typ ]
        constraint 'c = [> 'Bdd.Env.typdef ]
      val make :
        symbol:'Bdd.Env.symbol ->
        copy_ext:('-> 'e) ->
        ?bddindex0:int ->
        ?bddsize:int ->
        ?relational:bool ->
        'Cudd.Man.t ->
        '->
        ('a, [> 'Bdd.Env.typ ], [> 'Bdd.Env.typdef ], 'd, 'e) Bdd.Env.O.t
      val print :
        (Format.formatter -> ([> 'Bdd.Env.typ ] as 'b) -> unit) ->
        (Format.formatter -> ([> 'Bdd.Env.typdef ] as 'c) -> unit) ->
        (Format.formatter -> '-> unit) ->
        Format.formatter -> ('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t -> unit
    end
  type ('a, 'd) t =
      ('a, 'Bdd.Env.typ, 'Bdd.Env.typdef, 'd, unit) Bdd.Env.O.t
  val print_typ :
    (Format.formatter -> '-> unit) ->
    Format.formatter -> [> 'Bdd.Env.typ ] -> unit
  val print_typdef :
    (Format.formatter -> '-> unit) ->
    Format.formatter -> [> 'Bdd.Env.typdef ] -> unit
  val print_tid : Format.formatter -> int array -> unit
  val print_idcondb :
    ('a, [> 'Bdd.Env.typ ], [> 'Bdd.Env.typdef ], 'd, 'e) Bdd.Env.O.t ->
    Format.formatter -> int * bool -> unit
  val print_order :
    ('a, [> 'Bdd.Env.typ ], [> 'Bdd.Env.typdef ], 'd, 'e) Bdd.Env.O.t ->
    Format.formatter -> unit
  val print :
    Format.formatter ->
    ('a, [> 'Bdd.Env.typ ], [> 'Bdd.Env.typdef ], 'd, 'e) Bdd.Env.O.t ->
    unit
  val marshal : '-> string
  val unmarshal : string -> 'a
  val make_symbol :
    ?compare:('-> '-> int) ->
    ?marshal:('-> string) ->
    ?unmarshal:(string -> 'a) ->
    (Format.formatter -> '-> unit) -> 'Bdd.Env.symbol
  val string_symbol : string Bdd.Env.symbol
  val make :
    symbol:'Bdd.Env.symbol ->
    ?bddindex0:int ->
    ?bddsize:int -> ?relational:bool -> 'Cudd.Man.t -> ('a, 'd) Bdd.Env.t
  val make_string :
    ?bddindex0:int ->
    ?bddsize:int ->
    ?relational:bool -> 'Cudd.Man.t -> (string, 'd) Bdd.Env.t
  val copy :
    ('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ] as 'c, 'd, 'e)
    Bdd.Env.O.t -> ('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t
  val mem_typ :
    ('a, [> 'Bdd.Env.typ ], [> 'Bdd.Env.typdef ], 'd, 'e) Bdd.Env.O.t ->
    '-> bool
  val mem_var :
    ('a, [> 'Bdd.Env.typ ], [> 'Bdd.Env.typdef ], 'd, 'e) Bdd.Env.O.t ->
    '-> bool
  val mem_label :
    ('a, [> 'Bdd.Env.typ ], [> 'Bdd.Env.typdef ], 'd, 'e) Bdd.Env.O.t ->
    '-> bool
  val typdef_of_typ :
    ('a, [> 'Bdd.Env.typ ], [> 'Bdd.Env.typdef ] as 'b, 'd, 'e)
    Bdd.Env.O.t -> '-> 'b
  val typ_of_var :
    ('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ], 'd, 'e)
    Bdd.Env.O.t -> '-> 'b
  val vars :
    ('a, [> 'Bdd.Env.typ ], [> 'Bdd.Env.typdef ], 'd, 'e) Bdd.Env.O.t ->
    'PSette.t
  val labels :
    ('a, [> 'Bdd.Env.typ ], [> 'Bdd.Env.typdef ], 'd, 'e) Bdd.Env.O.t ->
    'PSette.t
  val add_typ_with :
    ('a, [> 'Bdd.Env.typ ], [> 'Bdd.Env.typdef ] as 'b, 'd, 'e)
    Bdd.Env.O.t -> '-> '-> unit
  val add_vars_with :
    ('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ], 'd, 'e)
    Bdd.Env.O.t -> ('a * 'b) list -> int array option
  val remove_vars_with :
    ('a, [> 'Bdd.Env.typ ], [> 'Bdd.Env.typdef ], 'd, 'e) Bdd.Env.O.t ->
    'a list -> int array option
  val rename_vars_with :
    ('a, [> 'Bdd.Env.typ ], [> 'Bdd.Env.typdef ], 'd, 'e) Bdd.Env.O.t ->
    ('a * 'a) list -> int array option
  val add_typ :
    ('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ] as 'c, 'd, 'e)
    Bdd.Env.O.t -> '-> '-> ('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t
  val add_vars :
    ('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ] as 'c, 'd, 'e)
    Bdd.Env.O.t -> ('a * 'b) list -> ('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t
  val remove_vars :
    ('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ] as 'c, 'd, 'e)
    Bdd.Env.O.t -> 'a list -> ('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t
  val rename_vars :
    ('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ] as 'c, 'd, 'e)
    Bdd.Env.O.t -> ('a * 'a) list -> ('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t
  val add_var_with :
    ('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ], 'd, 'e)
    Bdd.Env.O.t -> '-> '-> unit
  val iter_ordered :
    ('a, [> 'Bdd.Env.typ ], [> 'Bdd.Env.typdef ], 'd, 'e) Bdd.Env.O.t ->
    ('-> int array -> unit) -> unit
  val is_leq :
    ('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ] as 'c, 'd, 'e)
    Bdd.Env.O.t -> ('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t -> bool
  val is_eq :
    ('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ] as 'c, 'd, 'e)
    Bdd.Env.O.t -> ('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t -> bool
  val shift :
    ('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ] as 'c, 'd, 'e)
    Bdd.Env.O.t -> int -> ('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t
  val lce :
    ('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ] as 'c, 'd, 'e)
    Bdd.Env.O.t ->
    ('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t -> ('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t
  val permutation12 :
    ('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ] as 'c, 'd, 'e)
    Bdd.Env.O.t -> ('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t -> int array
  val permutation21 :
    ('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ] as 'c, 'd, 'e)
    Bdd.Env.O.t -> ('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t -> int array
  type 'a change = {
    intro : int array option;
    remove : ('Cudd.Bdd.t * int array) option;
  }
  val compute_change :
    ('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ] as 'c, 'd, 'e)
    Bdd.Env.O.t -> ('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t -> 'Bdd.Env.change
  val notfound : ('a, Format.formatter, unit, 'b) Pervasives.format4 -> 'a
  type ('a, 'b) value = { env : 'a; val0 : 'b; }
  val make_value :
    ('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ] as 'c, 'd, 'e)
    Bdd.Env.O.t -> '-> (('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t, 'f) Bdd.Env.value
  val get_env : ('a, 'b) Bdd.Env.value -> 'a
  val get_val0 : ('a, 'b) Bdd.Env.value -> 'b
  val extend_environment :
    ('-> int array -> 'f) ->
    (('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ] as 'c, 'd, 'e)
     Bdd.Env.O.t, 'f)
    Bdd.Env.value ->
    ('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t ->
    (('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t, 'f) Bdd.Env.value
  val compare_idb : int * bool -> int * bool -> int
  val permutation :
    ('a, [> 'Bdd.Env.typ ], [> 'Bdd.Env.typdef ], 'd, 'e) Bdd.Env.O.t ->
    int array
  val permute_with :
    ('a, [> 'Bdd.Env.typ ], [> 'Bdd.Env.typdef ], 'd, 'e) Bdd.Env.O.t ->
    int array -> unit
  val normalize_with :
    ('a, [> 'Bdd.Env.typ ], [> 'Bdd.Env.typdef ], 'd, 'e) Bdd.Env.O.t ->
    int array
  val check_normalized :
    ('a, [> 'Bdd.Env.typ ], [> 'Bdd.Env.typdef ], 'd, 'e) Bdd.Env.O.t ->
    bool
  val compose_permutation : int array -> int array -> int array
  val compose_opermutation :
    int array option -> int array option -> int array option
  val permutation_of_offset : int -> int -> int array
  val check_var :
    ('a, [> 'Bdd.Env.typ ], [> 'Bdd.Env.typdef ], 'd, 'e) Bdd.Env.O.t ->
    '-> unit
  val check_lvar :
    ('a, [> 'Bdd.Env.typ ], [> 'Bdd.Env.typdef ], 'd, 'e) Bdd.Env.O.t ->
    'a list -> unit
  val check_value :
    ('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ] as 'c, 'd, 'e)
    Bdd.Env.O.t ->
    (('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t, 'f) Bdd.Env.value -> unit
  val check_value2 :
    (('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ] as 'c, 'd, 'e)
     Bdd.Env.O.t, 'f)
    Bdd.Env.value ->
    (('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t, 'g) Bdd.Env.value -> unit
  val check_value3 :
    (('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ] as 'c, 'd, 'e)
     Bdd.Env.O.t, 'f)
    Bdd.Env.value ->
    (('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t, 'g) Bdd.Env.value ->
    (('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t, 'h) Bdd.Env.value -> unit
  val check_lvarvalue :
    ('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ] as 'c, 'd, 'e)
    Bdd.Env.O.t ->
    ('a * (('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t, 'f) Bdd.Env.value) list ->
    ('a * 'f) list
  val check_lvalue :
    ('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ] as 'c, 'd, 'e)
    Bdd.Env.O.t ->
    (('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t, 'f) Bdd.Env.value list -> 'f list
  val check_ovalue :
    ('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ] as 'c, 'd, 'e)
    Bdd.Env.O.t ->
    (('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t, 'f) Bdd.Env.value option -> 'f option
  val mapunop :
    ('-> 'g) ->
    (('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ] as 'c, 'd, 'e)
     Bdd.Env.O.t, 'f)
    Bdd.Env.value -> (('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t, 'g) Bdd.Env.value
  val mapbinop :
    ('-> '-> 'h) ->
    (('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ] as 'c, 'd, 'e)
     Bdd.Env.O.t, 'f)
    Bdd.Env.value ->
    (('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t, 'g) Bdd.Env.value ->
    (('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t, 'h) Bdd.Env.value
  val mapbinope :
    (('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ] as 'c, 'd, 'e)
     Bdd.Env.O.t -> '-> '-> 'h) ->
    (('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t, 'f) Bdd.Env.value ->
    (('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t, 'g) Bdd.Env.value ->
    (('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t, 'h) Bdd.Env.value
  val mapterop :
    ('-> '-> '-> 'i) ->
    (('a, [> 'Bdd.Env.typ ] as 'b, [> 'Bdd.Env.typdef ] as 'c, 'd, 'e)
     Bdd.Env.O.t, 'f)
    Bdd.Env.value ->
    (('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t, 'g) Bdd.Env.value ->
  $nbsp:&fbsp;(('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t, 'h) Bdd.Env.value ->
    (('a, 'b, 'c, 'd, 'e) Bdd.Env.O.t, 'i) Bdd.Env.value
end