sig
  type 'a capsule = private { content : 'a; }
  type 'a unique
  type 'a t = 'a Cudd.Mtbddc.unique Cudd.Vdd.t
  type 'a table = 'a Cudd.Mtbddc.unique Cudd.PWeakke.t
  val print_table :
    ?first:(unit, Format.formatter, unit) Pervasives.format ->
    ?sep:(unit, Format.formatter, unit) Pervasives.format ->
    ?last:(unit, Format.formatter, unit) Pervasives.format ->
    (Format.formatter -> 'a -> unit) ->
    Format.formatter -> 'a Cudd.Mtbddc.table -> unit
  val make_table :
    hash:('a -> int) -> equal:('a -> 'a -> bool) -> 'a Cudd.Mtbddc.table
  val unique : 'a Cudd.Mtbddc.table -> 'a -> 'a Cudd.Mtbddc.unique
  val get : 'a Cudd.Mtbddc.unique -> 'a
  type 'a mtbdd =
      Leaf of 'a Cudd.Mtbddc.unique
    | Ite of int * 'a Cudd.Mtbddc.t * 'a Cudd.Mtbddc.t
  external manager : 'a Cudd.Mtbddc.t -> Cudd.Man.v Cudd.Man.t
    = "camlidl_cudd_bdd_manager"
  external is_cst : 'a Cudd.Mtbddc.t -> bool = "camlidl_cudd_bdd_is_cst"
  external topvar : 'a Cudd.Mtbddc.t -> int = "camlidl_cudd_bdd_topvar"
  external dthen : 'a Cudd.Mtbddc.t -> 'a Cudd.Mtbddc.t
    = "camlidl_cudd_add_dthen"
  external delse : 'a Cudd.Mtbddc.t -> 'a Cudd.Mtbddc.t
    = "camlidl_cudd_add_delse"
  external cofactors :
    int -> 'a Cudd.Mtbddc.t -> 'a Cudd.Mtbddc.t * 'a Cudd.Mtbddc.t
    = "camlidl_cudd_add_cofactors"
  external cofactor :
    'a Cudd.Mtbddc.t -> Cudd.Man.v Cudd.Bdd.t -> 'a Cudd.Mtbddc.t
    = "camlidl_cudd_add_cofactor"
  val dval_u : 'a Cudd.Mtbddc.t -> 'a Cudd.Mtbddc.unique
  val dval : 'a Cudd.Mtbddc.t -> 'a
  val inspect : 'a Cudd.Mtbddc.t -> 'a Cudd.Mtbddc.mtbdd
  external support : 'a Cudd.Mtbddc.t -> Cudd.Man.v Cudd.Bdd.t
    = "camlidl_cudd_bdd_support"
  external supportsize : 'a Cudd.Mtbddc.t -> int
    = "camlidl_cudd_bdd_supportsize"
  external is_var_in : int -> 'a Cudd.Mtbddc.t -> bool
    = "camlidl_cudd_bdd_is_var_in"
  external vectorsupport : 'a Cudd.Mtbddc.t array -> Cudd.Man.v Cudd.Bdd.t
    = "camlidl_cudd_bdd_vectorsupport"
  external vectorsupport2 :
    Cudd.Man.v Cudd.Bdd.t array ->
    'a Cudd.Mtbddc.t array -> Cudd.Man.v Cudd.Bdd.t
    = "camlidl_cudd_add_vectorsupport2"
  val cst_u :
    Cudd.Man.v Cudd.Man.t -> 'a Cudd.Mtbddc.unique -> 'a Cudd.Mtbddc.t
  val cst :
    Cudd.Man.v Cudd.Man.t -> 'a Cudd.Mtbddc.table -> 'a -> 'a Cudd.Mtbddc.t
  external ite :
    Cudd.Man.v Cudd.Bdd.t ->
    'a Cudd.Mtbddc.t -> 'a Cudd.Mtbddc.t -> 'a Cudd.Mtbddc.t
    = "camlidl_cudd_add_ite"
  external ite_cst :
    Cudd.Man.v Cudd.Bdd.t ->
    'a Cudd.Mtbddc.t -> 'a Cudd.Mtbddc.t -> 'a Cudd.Mtbddc.t option
    = "camlidl_cudd_add_ite_cst"
  external eval_cst :
    'a Cudd.Mtbddc.t -> Cudd.Man.v Cudd.Bdd.t -> 'a Cudd.Mtbddc.t option
    = "camlidl_cudd_add_eval_cst"
  external compose :
    int -> Cudd.Man.v Cudd.Bdd.t -> 'a Cudd.Mtbddc.t -> 'a Cudd.Mtbddc.t
    = "camlidl_cudd_add_compose"
  external vectorcompose :
    Cudd.Man.v Cudd.Bdd.t array -> 'a Cudd.Mtbddc.t -> 'a Cudd.Mtbddc.t
    = "camlidl_cudd_add_vectorcompose"
  external is_equal : 'a Cudd.Mtbddc.t -> 'a Cudd.Mtbddc.t -> bool
    = "camlidl_cudd_bdd_is_equal"
  external is_equal_when :
    'a Cudd.Mtbddc.t -> 'a Cudd.Mtbddc.t -> Cudd.Man.v Cudd.Bdd.t -> bool
    = "camlidl_cudd_bdd_is_equal_when"
  val is_eval_cst_u :
    'a Cudd.Mtbddc.t -> Cudd.Man.v Cudd.Bdd.t -> 'a Cudd.Mtbddc.unique option
  val is_ite_cst_u :
    Cudd.Man.v Cudd.Bdd.t ->
    'a Cudd.Mtbddc.t -> 'a Cudd.Mtbddc.t -> 'a Cudd.Mtbddc.unique option
  val is_eval_cst : 'a Cudd.Mtbddc.t -> Cudd.Man.v Cudd.Bdd.t -> 'a option
  val is_ite_cst :
    Cudd.Man.v Cudd.Bdd.t ->
    'a Cudd.Mtbddc.t -> 'a Cudd.Mtbddc.t -> 'a option
  external size : 'a Cudd.Mtbddc.t -> int = "camlidl_cudd_bdd_size"
  external nbpaths : 'a Cudd.Mtbddc.t -> float = "camlidl_cudd_bdd_nbpaths"
  external nbnonzeropaths : 'a Cudd.Mtbddc.t -> float
    = "camlidl_cudd_bdd_nbtruepaths"
  external nbminterms : int -> 'a Cudd.Mtbddc.t -> float
    = "camlidl_cudd_bdd_nbminterms"
  external density : int -> 'a Cudd.Mtbddc.t -> float
    = "camlidl_cudd_bdd_density"
  external nbleaves : 'a Cudd.Mtbddc.t -> int = "camlidl_cudd_add_nbleaves"
  external varmap : 'a Cudd.Mtbddc.t -> 'a Cudd.Mtbddc.t
    = "camlidl_cudd_add_varmap"
  external permute : 'a Cudd.Mtbddc.t -> int array -> 'a Cudd.Mtbddc.t
    = "camlidl_cudd_add_permute"
  val iter_cube_u :
    (Cudd.Man.tbool array -> 'a Cudd.Mtbddc.unique -> unit) ->
    'a Cudd.Mtbddc.t -> unit
  val iter_cube :
    (Cudd.Man.tbool array -> 'a -> unit) -> 'a Cudd.Mtbddc.t -> unit
  external iter_node : ('a Cudd.Mtbddc.t -> unit) -> 'a Cudd.Mtbddc.t -> unit
    = "camlidl_cudd_iter_node"
  external guard_of_node :
    'a Cudd.Mtbddc.t -> 'a Cudd.Mtbddc.t -> Cudd.Man.v Cudd.Bdd.t
    = "camlidl_cudd_add_guard_of_node"
  external guard_of_nonbackground : 'a Cudd.Mtbddc.t -> Cudd.Man.v Cudd.Bdd.t
    = "camlidl_cudd_add_guard_of_nonbackground"
  val nodes_below_level :
    ?max:int -> 'a Cudd.Mtbddc.t -> int option -> 'a Cudd.Mtbddc.t array
  val guard_of_leaf_u :
    'a Cudd.Mtbddc.t -> 'a Cudd.Mtbddc.unique -> Cudd.Man.v Cudd.Bdd.t
  val guard_of_leaf :
    'a Cudd.Mtbddc.table -> 'a Cudd.Mtbddc.t -> 'a -> Cudd.Man.v Cudd.Bdd.t
  val leaves_u : 'a Cudd.Mtbddc.t -> 'a Cudd.Mtbddc.unique array
  val leaves : 'a Cudd.Mtbddc.t -> 'a array
  val pick_leaf_u : 'a Cudd.Mtbddc.t -> 'a Cudd.Mtbddc.unique
  val pick_leaf : 'a Cudd.Mtbddc.t -> 'a
  val guardleafs_u :
    'a Cudd.Mtbddc.t -> (Cudd.Man.v Cudd.Bdd.t * 'a Cudd.Mtbddc.unique) array
  val guardleafs : 'a Cudd.Mtbddc.t -> (Cudd.Man.v Cudd.Bdd.t * 'a) array
  external constrain :
    'a Cudd.Mtbddc.t -> Cudd.Man.v Cudd.Bdd.t -> 'a Cudd.Mtbddc.t
    = "camlidl_cudd_add_constrain"
  external tdconstrain :
    'a Cudd.Mtbddc.t -> Cudd.Man.v Cudd.Bdd.t -> 'a Cudd.Mtbddc.t
    = "camlidl_cudd_add_tdconstrain"
  external restrict :
    'a Cudd.Mtbddc.t -> Cudd.Man.v Cudd.Bdd.t -> 'a Cudd.Mtbddc.t
    = "camlidl_cudd_add_restrict"
  external tdrestrict :
    'a Cudd.Mtbddc.t -> Cudd.Man.v Cudd.Bdd.t -> 'a Cudd.Mtbddc.t
    = "camlidl_cudd_add_tdrestrict"
  external transfer :
    'a Cudd.Mtbddc.t -> Cudd.Man.v Cudd.Man.t -> 'a Cudd.Mtbddc.t
    = "camlidl_cudd_add_transfer"
  val print__minterm :
    (Format.formatter -> 'a -> unit) ->
    Format.formatter -> 'a Cudd.Mtbddc.t -> unit
  val print_minterm :
    (Format.formatter -> int -> unit) ->
    (Format.formatter -> 'a -> unit) ->
    Format.formatter -> 'a Cudd.Mtbddc.t -> unit
  val print :
    (Format.formatter -> Cudd.Man.v Cudd.Bdd.t -> unit) ->
    (Format.formatter -> 'a -> unit) ->
    Format.formatter -> 'a Cudd.Mtbddc.t -> unit
end