sig
  module Hash :
    sig
      type t
      external _create : int -> int -> Cudd.Hash.t
        = "camlidl_cudd_hash__create"
      val table : Cudd.Hash.t Weak.t Pervasives.ref
      val create : ?size:int -> int -> Cudd.Hash.t
      external arity : Cudd.Hash.t -> int = "camlidl_cudd_hash_arity"
      external clear : Cudd.Hash.t -> unit = "camlidl_cudd_hash_clear"
      val clear_all : unit -> unit
    end
  module Cache :
    sig
      type t
      external _create : int -> int -> int -> Cudd.Cache.t
        = "camlidl_cudd_cache__create"
      val create : ?size:int -> ?maxsize:int -> arity:int -> Cudd.Cache.t
      val create1 : ?size:int -> ?maxsize:int -> unit -> Cudd.Cache.t
      val create2 : ?size:int -> ?maxsize:int -> unit -> Cudd.Cache.t
      val create3 : ?size:int -> ?maxsize:int -> unit -> Cudd.Cache.t
      external arity : Cudd.Cache.t -> int = "camlidl_cudd_cache_arity"
      external clear : Cudd.Cache.t -> unit = "camlidl_cudd_cache_clear"
    end
  module Memo :
    sig
      type memo_discr = Global | Cache | Hash
      type t = Global | Cache of Cudd.Cache.t | Hash of Cudd.Hash.t
      val clear : Cudd.Memo.t -> unit
    end
  module Man :
    sig
      type d
      type v
      type 'a t
      type reorder =
          REORDER_SAME
        | REORDER_NONE
        | REORDER_RANDOM
        | REORDER_RANDOM_PIVOT
        | REORDER_SIFT
        | REORDER_SIFT_CONVERGE
        | REORDER_SYMM_SIFT
        | REORDER_SYMM_SIFT_CONV
        | REORDER_WINDOW2
        | REORDER_WINDOW3
        | REORDER_WINDOW4
        | REORDER_WINDOW2_CONV
        | REORDER_WINDOW3_CONV
        | REORDER_WINDOW4_CONV
        | REORDER_GROUP_SIFT
        | REORDER_GROUP_SIFT_CONV
        | REORDER_ANNEALING
        | REORDER_GENETIC
        | REORDER_LINEAR
        | REORDER_LINEAR_CONVERGE
        | REORDER_LAZY_SIFT
        | REORDER_EXACT
      type aggregation =
          NO_CHECK
        | GROUP_CHECK
        | GROUP_CHECK2
        | GROUP_CHECK3
        | GROUP_CHECK4
        | GROUP_CHECK5
        | GROUP_CHECK6
        | GROUP_CHECK7
        | GROUP_CHECK8
        | GROUP_CHECK9
      type lazygroup =
          LAZY_NONE
        | LAZY_SOFT_GROUP
        | LAZY_HARD_GROUP
        | LAZY_UNGROUP
      type vartype = VAR_PRIMARY_INPUT | VAR_PRESENT_STATE | VAR_NEXT_STATE
      type mtr = MTR_DEFAULT | MTR_FIXED
      type error =
          NO_ERROR
        | MEMORY_OUT
        | TOO_MANY_NODES
        | MAX_MEM_EXCEEDED
        | INVALID_ARG
        | INTERNAL_ERROR
      type dt = Cudd.Man.d Cudd.Man.t
      type vt = Cudd.Man.v Cudd.Man.t
      type tbool = False | True | Top
      val string_of_reorder : Cudd.Man.reorder -> string
      val string_of_error : Cudd.Man.error -> string
      val print_limit : int Pervasives.ref
      external set_gc : int -> (unit -> unit) -> (unit -> unit) -> unit
        = "camlidl_cudd_set_gc"
      external srandom : int -> unit = "camlidl_cudd_man_srandom"
      external _make :
        bool -> int -> int -> int -> int -> int -> 'a Cudd.Man.t
        = "camlidl_cudd_man__make_bytecode" "camlidl_cudd_man__make"
      val make_d :
        ?numVars:int ->
        ?numVarsZ:int ->
        ?numSlots:int ->
        ?cacheSize:int -> ?maxMemory:int -> unit -> Cudd.Man.d Cudd.Man.t
      val make_v :
        ?numVars:int ->
        ?numVarsZ:int ->
        ?numSlots:int ->
        ?cacheSize:int -> ?maxMemory:int -> unit -> Cudd.Man.v Cudd.Man.t
      external debugcheck : 'a Cudd.Man.t -> bool
        = "camlidl_cudd_man_debugcheck"
      external check_keys : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_check_keys"
      external copy_shr : 'a -> 'a = "camlidl_cudd_custom_copy_shr"
      external level_of_var : 'a Cudd.Man.t -> int -> int
        = "camlidl_cudd_man_level_of_var"
      external var_of_level : 'a Cudd.Man.t -> int -> int
        = "camlidl_cudd_man_var_of_level"
      external reduce_heap : 'a Cudd.Man.t -> Cudd.Man.reorder -> int -> unit
        = "camlidl_cudd_man_reduce_heap"
      external shuffle_heap : 'a Cudd.Man.t -> int array -> unit
        = "camlidl_cudd_man_shuffle_heap"
      external garbage_collect : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_garbage_collect"
      external flush : 'a Cudd.Man.t -> unit = "camlidl_cudd_man_cache_flush"
      external enable_autodyn : 'a Cudd.Man.t -> Cudd.Man.reorder -> unit
        = "camlidl_cudd_man_enable_autodyn"
      external disable_autodyn : 'a Cudd.Man.t -> unit
        = "camlidl_cudd_man_disable_autodyn"
      external autodyn_status : 'a Cudd.Man.t -> Cudd.Man.reorder option
        = "camlidl_cudd_man_autodyn_status"
      external group : 'a Cudd.Man.t -> int -> int -> Cudd.Man.mtr -> unit
        = "camlidl_cudd_man_group"
      external ungroupall : 'a Cudd.Man.t -> unit
        = "camlidl_cudd_man_ungroupall"
      external set_varmap : 'a Cudd.Man.t -> int array -> unit
        = "camlidl_cudd_man_set_varmap"
      external get_background : Cudd.Man.dt -> float
        = "camlidl_cudd_man_get_background"
      external set_background : Cudd.Man.dt -> float -> unit
        = "camlidl_cudd_man_set_background"
      external get_epsilon : Cudd.Man.dt -> float
        = "camlidl_cudd_man_get_epsilon"
      external set_epsilon : Cudd.Man.dt -> float -> unit
        = "camlidl_cudd_man_set_epsilon"
      external get_min_hit : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_get_min_hit"
      external set_min_hit : 'a Cudd.Man.t -> int -> unit
        = "camlidl_cudd_man_set_min_hit"
      external get_max_cache_hard : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_get_max_cache_hard"
      external set_max_cache_hard : 'a Cudd.Man.t -> int -> unit
        = "camlidl_cudd_man_set_max_cache_hard"
      external get_looseupto : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_get_looseupto"
      external set_looseupto : 'a Cudd.Man.t -> int -> unit
        = "camlidl_cudd_man_set_looseupto"
      external get_max_live : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_get_max_live"
      external set_max_live : 'a Cudd.Man.t -> int -> unit
        = "camlidl_cudd_man_set_max_live"
      external get_max_mem : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_get_max_mem"
      external set_max_mem : 'a Cudd.Man.t -> int -> unit
        = "camlidl_cudd_man_set_max_mem"
      external get_sift_max_swap : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_get_sift_max_swap"
      external set_sift_max_swap : 'a Cudd.Man.t -> int -> unit
        = "camlidl_cudd_man_set_sift_max_swap"
      external get_sift_max_var : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_get_sift_max_var"
      external set_sift_max_var : 'a Cudd.Man.t -> int -> unit
        = "camlidl_cudd_man_set_sift_max_var"
      external get_groupcheck : 'a Cudd.Man.t -> Cudd.Man.aggregation
        = "camlidl_cudd_man_get_groupcheck"
      external set_groupcheck : 'a Cudd.Man.t -> Cudd.Man.aggregation -> unit
        = "camlidl_cudd_man_set_groupcheck"
      external get_arcviolation : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_get_arcviolation"
      external set_arcviolation : 'a Cudd.Man.t -> int -> unit
        = "camlidl_cudd_man_set_arcviolation"
      external get_crossovers : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_get_crossovers"
      external set_crossovers : 'a Cudd.Man.t -> int -> unit
        = "camlidl_cudd_man_set_crossovers"
      external get_population : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_get_population"
      external set_population : 'a Cudd.Man.t -> int -> unit
        = "camlidl_cudd_man_set_population"
      external get_recomb : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_get_recomb"
      external set_recomb : 'a Cudd.Man.t -> int -> unit
        = "camlidl_cudd_man_set_recomb"
      external get_symmviolation : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_get_symmviolation"
      external set_symmviolation : 'a Cudd.Man.t -> int -> unit
        = "camlidl_cudd_man_set_symmviolation"
      external get_max_growth : 'a Cudd.Man.t -> float
        = "camlidl_cudd_man_get_max_growth"
      external set_max_growth : 'a Cudd.Man.t -> int -> unit
        = "camlidl_cudd_man_set_max_growth"
      external get_max_growth_alt : 'a Cudd.Man.t -> float
        = "camlidl_cudd_man_get_max_growth_alt"
      external set_max_growth_alt : 'a Cudd.Man.t -> float -> unit
        = "camlidl_cudd_man_set_max_growth_alt"
      external get_reordering_cycle : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_get_reordering_cycle"
      external set_reordering_cycle : 'a Cudd.Man.t -> int -> unit
        = "camlidl_cudd_man_set_reordering_cycle"
      external get_next_autodyn : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_get_next_autodyn"
      external set_next_autodyn : 'a Cudd.Man.t -> int -> unit
        = "camlidl_cudd_man_set_next_autodyn"
      external get_cache_hits : 'a Cudd.Man.t -> float
        = "camlidl_cudd_man_get_cache_hits"
      external get_cache_lookups : 'a Cudd.Man.t -> float
        = "camlidl_cudd_man_get_cache_lookups"
      external get_cache_slots : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_get_cache_slots"
      external get_cache_used_slots : 'a Cudd.Man.t -> float
        = "camlidl_cudd_man_get_cache_used_slots"
      external get_dead : 'a Cudd.Man.t -> int = "camlidl_cudd_man_get_dead"
      external get_error : 'a Cudd.Man.t -> Cudd.Man.error
        = "camlidl_cudd_man_get_error"
      external get_gc_time : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_get_gc_time"
      external get_gc_nb : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_get_gc_nb"
      external get_keys : 'a Cudd.Man.t -> int = "camlidl_cudd_man_get_keys"
      external get_linear : 'a Cudd.Man.t -> int -> int -> int
        = "camlidl_cudd_man_get_linear"
      external get_max_cache : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_get_max_cache"
      external get_min_dead : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_get_min_dead"
      external get_node_count : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_get_node_count"
      external get_node_count_peak : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_get_node_count_peak"
      external get_reordering_time : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_get_reordering_time"
      external get_reordering_nb : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_get_reordering_nb"
      external get_bddvar_nb : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_get_bddvar_nb"
      external get_zddvar_nb : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_get_zddvar_nb"
      external get_slots : 'a Cudd.Man.t -> int
        = "camlidl_cudd_man_get_slots"
      external get_used_slots : 'a Cudd.Man.t -> float
        = "camlidl_cudd_man_get_used_slots"
      external get_swap_nb : 'a Cudd.Man.t -> float
        = "camlidl_cudd_man_get_swap_nb"
      external print_info : 'a Cudd.Man.t -> unit
        = "camlidl_cudd_man_print_info"
    end
  module Bdd :
    sig
      type 'a t
      type 'a bdd = Bool of bool | Ite of int * 'a Cudd.Bdd.t * 'a Cudd.Bdd.t
      type dt = Cudd.Man.d Cudd.Bdd.t
      type vt = Cudd.Man.v Cudd.Bdd.t
      external manager : 'a Cudd.Bdd.t -> 'a Cudd.Man.t
        = "camlidl_cudd_bdd_manager"
      external is_cst : 'a Cudd.Bdd.t -> bool = "camlidl_cudd_bdd_is_cst"
      external is_complement : 'a Cudd.Bdd.t -> bool
        = "camlidl_cudd_bdd_is_complement"
      external topvar : 'a Cudd.Bdd.t -> int = "camlidl_cudd_bdd_topvar"
      external dthen : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_dthen"
      external delse : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_delse"
      external cofactors :
        int -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t * 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_cofactors"
      external cofactor : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_cofactor"
      external inspect : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.bdd
        = "camlidl_cudd_bdd_inspect"
      external support : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_support"
      external supportsize : 'a Cudd.Bdd.t -> int
        = "camlidl_cudd_bdd_supportsize"
      external is_var_in : int -> 'a Cudd.Bdd.t -> bool
        = "camlidl_cudd_bdd_is_var_in"
      external vectorsupport : 'a Cudd.Bdd.t array -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_vectorsupport"
      external support_inter :
        'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_support_inter"
      external support_union :
        'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_dand"
      external support_diff : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_cofactor"
      external list_of_support : 'a Cudd.Bdd.t -> int list
        = "camlidl_cudd_list_of_support"
      external dtrue : 'a Cudd.Man.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_dtrue"
      external dfalse : 'a Cudd.Man.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_dfalse"
      external ithvar : 'a Cudd.Man.t -> int -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_ithvar"
      external newvar : 'a Cudd.Man.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_newvar"
      external newvar_at_level : 'a Cudd.Man.t -> int -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_newvar_at_level"
      external is_true : 'a Cudd.Bdd.t -> bool = "camlidl_cudd_bdd_is_true"
      external is_false : 'a Cudd.Bdd.t -> bool = "camlidl_cudd_bdd_is_false"
      external is_equal : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> bool
        = "camlidl_cudd_bdd_is_equal"
      external is_leq : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> bool
        = "camlidl_cudd_bdd_is_leq"
      external is_inter_empty : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> bool
        = "camlidl_cudd_bdd_is_inter_empty"
      external is_equal_when :
        'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> bool
        = "camlidl_cudd_bdd_is_equal_when"
      external is_leq_when :
        'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> bool
        = "camlidl_cudd_bdd_is_leq_when"
      val is_included_in : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> bool
      external is_ite_cst :
        'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> bool option
        = "camlidl_cudd_bdd_is_ite_cst"
      external is_var_dependent : int -> 'a Cudd.Bdd.t -> bool
        = "camlidl_cudd_bdd_is_var_dependent"
      external is_var_essential : int -> bool -> 'a Cudd.Bdd.t -> bool
        = "camlidl_cudd_bdd_is_var_essential"
      external size : 'a Cudd.Bdd.t -> int = "camlidl_cudd_bdd_size"
      external nbpaths : 'a Cudd.Bdd.t -> float = "camlidl_cudd_bdd_nbpaths"
      external nbtruepaths : 'a Cudd.Bdd.t -> float
        = "camlidl_cudd_bdd_nbtruepaths"
      external nbminterms : int -> 'a Cudd.Bdd.t -> float
        = "camlidl_cudd_bdd_nbminterms"
      external density : int -> 'a Cudd.Bdd.t -> float
        = "camlidl_cudd_bdd_density"
      external dnot : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_dnot"
      external dand : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_dand"
      external dor : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_dor"
      external xor : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_xor"
      external nand : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_nand"
      external nor : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_nor"
      external nxor : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_nxor"
      val eq : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
      external ite :
        'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_ite"
      external ite_cst :
        'a Cudd.Bdd.t ->
        'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t option
        = "camlidl_cudd_bdd_ite_cst"
      external compose :
        int -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_compose"
      val vectorcompose :
        ?memo:Cudd.Memo.t ->
        'a Cudd.Bdd.t array -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
      external intersect : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_intersect"
      external varmap : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_varmap"
      val permute :
        ?memo:Cudd.Memo.t -> 'a Cudd.Bdd.t -> int array -> 'a Cudd.Bdd.t
      external iter_node : ('a Cudd.Bdd.t -> unit) -> 'a Cudd.Bdd.t -> unit
        = "camlidl_cudd_iter_node"
      external iter_cube :
        (Cudd.Man.tbool array -> unit) -> 'a Cudd.Bdd.t -> unit
        = "camlidl_cudd_bdd_iter_cube"
      external iter_prime :
        (Cudd.Man.tbool array -> unit) ->
        'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> unit
        = "camlidl_cudd_bdd_iter_prime"
      external exist : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_exist"
      external forall : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_forall"
      external existand :
        'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_existand"
      external existxor :
        'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_existxor"
      external booleandiff : 'a Cudd.Bdd.t -> int -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_booleandiff"
      external cube_of_bdd : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_cube_of_bdd"
      external cube_of_minterm :
        'a Cudd.Man.t -> Cudd.Man.tbool array -> 'a Cudd.Bdd.t
        = "camlidl_cudd_cube_of_minterm"
      external list_of_cube : 'a Cudd.Bdd.t -> (int * bool) list
        = "camlidl_cudd_list_of_cube"
      external cube_union : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_cube_union"
      external pick_minterm : 'a Cudd.Bdd.t -> Cudd.Man.tbool array
        = "camlidl_cudd_pick_minterm"
      external pick_cube_on_support :
        'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_pick_cube_on_support"
      external pick_cubes_on_support :
        'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> int -> 'a Cudd.Bdd.t array
        = "camlidl_cudd_pick_cubes_on_support"
      external constrain : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_constrain"
      external tdconstrain : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_tdconstrain"
      external restrict : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_restrict"
      external tdrestrict : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_tdrestrict"
      external minimize : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_minimize"
      external licompaction : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_licompaction"
      external squeeze : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_squeeze"
      external clippingand :
        'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> int -> bool -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_clippingand"
      external clippingexistand :
        'a Cudd.Bdd.t ->
        'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> int -> bool -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_clippingexistand"
      external underapprox :
        int -> int -> bool -> float -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_underapprox"
      external overapprox :
        int -> int -> bool -> float -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_overapprox"
      external remapunderapprox :
        int -> int -> float -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_remapunderapprox"
      external remapoverapprox :
        int -> int -> float -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_remapoverapprox"
      external biasedunderapprox :
        int ->
        int ->
        float -> float -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_biasedunderapprox_bytecode"
        "camlidl_cudd_bdd_biasedunderapprox"
      external biasedoverapprox :
        int ->
        int ->
        float -> float -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_biasedoverapprox_bytecode"
        "camlidl_cudd_bdd_biasedoverapprox"
      external subsetcompress : int -> int -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_subsetcompress"
      external supersetcompress :
        int -> int -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_supersetcompress"
      external subsetHB : int -> int -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_subsetHB"
      external supersetHB : int -> int -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_supersetHB"
      external subsetSP :
        int -> int -> bool -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_subsetSP"
      external supersetSP :
        int -> int -> bool -> 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t
        = "camlidl_cudd_bdd_supersetSP"
      external approxconjdecomp :
        'a Cudd.Bdd.t -> ('a Cudd.Bdd.t * 'a Cudd.Bdd.t) option
        = "camlidl_cudd_bdd_approxconjdecomp"
      external approxdisjdecomp :
        'a Cudd.Bdd.t -> ('a Cudd.Bdd.t * 'a Cudd.Bdd.t) option
        = "camlidl_cudd_bdd_approxdisjdecomp"
      external iterconjdecomp :
        'a Cudd.Bdd.t -> ('a Cudd.Bdd.t * 'a Cudd.Bdd.t) option
        = "camlidl_cudd_bdd_iterconjdecomp"
      external iterdisjdecomp :
        'a Cudd.Bdd.t -> ('a Cudd.Bdd.t * 'a Cudd.Bdd.t) option
        = "camlidl_cudd_bdd_iterdisjdecomp"
      external genconjdecomp :
        'a Cudd.Bdd.t -> ('a Cudd.Bdd.t * 'a Cudd.Bdd.t) option
        = "camlidl_cudd_bdd_genconjdecomp"
      external gendisjdecomp :
        'a Cudd.Bdd.t -> ('a Cudd.Bdd.t * 'a Cudd.Bdd.t) option
        = "camlidl_cudd_bdd_gendisjdecomp"
      external varconjdecomp :
        'a Cudd.Bdd.t -> ('a Cudd.Bdd.t * 'a Cudd.Bdd.t) option
        = "camlidl_cudd_bdd_varconjdecomp"
      external vardisjdecomp :
        'a Cudd.Bdd.t -> ('a Cudd.Bdd.t * 'a Cudd.Bdd.t) option
        = "camlidl_cudd_bdd_vardisjdecomp"
      external transfer : 'a Cudd.Bdd.t -> 'b Cudd.Man.t -> 'b Cudd.Bdd.t
        = "camlidl_cudd_bdd_transfer"
      external correlation : 'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> float
        = "camlidl_cudd_bdd_correlation"
      external correlationweights :
        'a Cudd.Bdd.t -> 'a Cudd.Bdd.t -> float array -> float
        = "camlidl_cudd_bdd_correlationweights"
      external _print : 'a Cudd.Bdd.t -> unit = "camlidl_cudd_print"
      val print__minterm : Format.formatter -> 'a Cudd.Bdd.t -> unit
      val print_minterm :
        (Format.formatter -> int -> unit) ->
        Format.formatter -> 'a Cudd.Bdd.t -> unit
      val print :
        (Format.formatter -> int -> unit) ->
        Format.formatter -> 'a Cudd.Bdd.t -> unit
      val print_list :
        (Format.formatter -> int -> unit) ->
        Format.formatter -> (int * bool) list -> unit
    end
  module Vdd :
    sig
      type +'a t
      type 'a vdd = Leaf of 'a | Ite of int * 'a Cudd.Vdd.t * 'a Cudd.Vdd.t
      external manager : 'a Cudd.Vdd.t -> Cudd.Man.v Cudd.Man.t
        = "camlidl_cudd_bdd_manager"
      external is_cst : 'a Cudd.Vdd.t -> bool = "camlidl_cudd_bdd_is_cst"
      external topvar : 'a Cudd.Vdd.t -> int = "camlidl_cudd_bdd_topvar"
      external dthen : 'a Cudd.Vdd.t -> 'a Cudd.Vdd.t
        = "camlidl_cudd_add_dthen"
      external delse : 'a Cudd.Vdd.t -> 'a Cudd.Vdd.t
        = "camlidl_cudd_add_delse"
      external cofactors :
        int -> 'a Cudd.Vdd.t -> 'a Cudd.Vdd.t * 'a Cudd.Vdd.t
        = "camlidl_cudd_add_cofactors"
      external cofactor :
        'a Cudd.Vdd.t -> Cudd.Man.v Cudd.Bdd.t -> 'a Cudd.Vdd.t
        = "camlidl_cudd_add_cofactor"
      external dval : 'a Cudd.Vdd.t -> 'a = "camlidl_cudd_avdd_dval"
      external inspect : 'a Cudd.Vdd.t -> 'a Cudd.Vdd.vdd
        = "camlidl_cudd_avdd_inspect"
      external support : 'a Cudd.Vdd.t -> Cudd.Man.v Cudd.Bdd.t
        = "camlidl_cudd_bdd_support"
      external supportsize : 'a Cudd.Vdd.t -> int
        = "camlidl_cudd_bdd_supportsize"
      external is_var_in : int -> 'a Cudd.Vdd.t -> bool
        = "camlidl_cudd_bdd_is_var_in"
      external vectorsupport : 'a Cudd.Vdd.t array -> Cudd.Man.v Cudd.Bdd.t
        = "camlidl_cudd_bdd_vectorsupport"
      external vectorsupport2 :
        Cudd.Man.v Cudd.Bdd.t array ->
        'a Cudd.Vdd.t array -> Cudd.Man.v Cudd.Bdd.t
        = "camlidl_cudd_add_vectorsupport2"
      external cst : Cudd.Man.v Cudd.Man.t -> 'a -> 'a Cudd.Vdd.t
        = "camlidl_cudd_avdd_cst"
      val _background : Cudd.Man.v Cudd.Man.t -> 'a Cudd.Vdd.t
      external ite :
        Cudd.Man.v Cudd.Bdd.t ->
        'a Cudd.Vdd.t -> 'a Cudd.Vdd.t -> 'a Cudd.Vdd.t
        = "camlidl_cudd_add_ite"
      external ite_cst :
        Cudd.Man.v Cudd.Bdd.t ->
        'a Cudd.Vdd.t -> 'a Cudd.Vdd.t -> 'a Cudd.Vdd.t option
        = "camlidl_cudd_add_ite_cst"
      external eval_cst :
        'a Cudd.Vdd.t -> Cudd.Man.v Cudd.Bdd.t -> 'a Cudd.Vdd.t option
        = "camlidl_cudd_add_eval_cst"
      external compose : int -> Cudd.Bdd.vt -> 'a Cudd.Vdd.t -> 'a Cudd.Vdd.t
        = "camlidl_cudd_add_compose"
      val vectorcompose :
        ?memo:Cudd.Memo.t ->
        Cudd.Bdd.vt array -> 'a Cudd.Vdd.t -> 'a Cudd.Vdd.t
      external is_equal : 'a Cudd.Vdd.t -> 'a Cudd.Vdd.t -> bool
        = "camlidl_cudd_bdd_is_equal"
      external is_equal_when :
        'a Cudd.Vdd.t -> 'a Cudd.Vdd.t -> Cudd.Man.v Cudd.Bdd.t -> bool
        = "camlidl_cudd_bdd_is_equal_when"
      external is_eval_cst :
        'a Cudd.Vdd.t -> Cudd.Man.v Cudd.Bdd.t -> 'a option
        = "camlidl_cudd_avdd_is_eval_cst"
      external is_ite_cst :
        Cudd.Man.v Cudd.Bdd.t -> 'a Cudd.Vdd.t -> 'a Cudd.Vdd.t -> 'a option
        = "camlidl_cudd_avdd_is_ite_cst"
      external size : 'a Cudd.Vdd.t -> int = "camlidl_cudd_bdd_size"
      external nbpaths : 'a Cudd.Vdd.t -> float = "camlidl_cudd_bdd_nbpaths"
      external nbnonzeropaths : 'a Cudd.Vdd.t -> float
        = "camlidl_cudd_bdd_nbtruepaths"
      external nbminterms : int -> 'a Cudd.Vdd.t -> float
        = "camlidl_cudd_bdd_nbminterms"
      external density : int -> 'a Cudd.Vdd.t -> float
        = "camlidl_cudd_bdd_density"
      external nbleaves : 'a Cudd.Vdd.t -> int = "camlidl_cudd_add_nbleaves"
      external varmap : 'a Cudd.Vdd.t -> 'a Cudd.Vdd.t
        = "camlidl_cudd_add_varmap"
      val permute :
        ?memo:Cudd.Memo.t -> 'a Cudd.Vdd.t -> int array -> 'a Cudd.Vdd.t
      external iter_cube :
        (Cudd.Man.tbool array -> 'a -> unit) -> 'a Cudd.Vdd.t -> unit
        = "camlidl_cudd_avdd_iter_cube"
      external iter_node : ('a Cudd.Vdd.t -> unit) -> 'a Cudd.Vdd.t -> unit
        = "camlidl_cudd_iter_node"
      external guard_of_node :
        'a Cudd.Vdd.t -> 'a Cudd.Vdd.t -> Cudd.Man.v Cudd.Bdd.t
        = "camlidl_cudd_add_guard_of_node"
      external guard_of_nonbackground :
        'a Cudd.Vdd.t -> Cudd.Man.v Cudd.Bdd.t
        = "camlidl_cudd_add_guard_of_nonbackground"
      val nodes_below_level :
        ?max:int -> 'a Cudd.Vdd.t -> int option -> 'a Cudd.Vdd.t array
      external guard_of_leaf : 'a Cudd.Vdd.t -> 'a -> Cudd.Man.v Cudd.Bdd.t
        = "camlidl_cudd_avdd_guard_of_leaf"
      external leaves : 'a Cudd.Vdd.t -> 'a array
        = "camlidl_cudd_avdd_leaves"
      external pick_leaf : 'a Cudd.Vdd.t -> 'a
        = "camlidl_cudd_avdd_pick_leaf"
      val guardleafs : 'a Cudd.Vdd.t -> (Cudd.Man.v Cudd.Bdd.t * 'a) array
      external constrain :
        'a Cudd.Vdd.t -> Cudd.Man.v Cudd.Bdd.t -> 'a Cudd.Vdd.t
        = "camlidl_cudd_add_constrain"
      external tdconstrain :
        'a Cudd.Vdd.t -> Cudd.Man.v Cudd.Bdd.t -> 'a Cudd.Vdd.t
        = "camlidl_cudd_add_tdconstrain"
      external restrict :
        'a Cudd.Vdd.t -> Cudd.Man.v Cudd.Bdd.t -> 'a Cudd.Vdd.t
        = "camlidl_cudd_add_restrict"
      external tdrestrict :
        'a Cudd.Vdd.t -> Cudd.Man.v Cudd.Bdd.t -> 'a Cudd.Vdd.t
        = "camlidl_cudd_add_tdrestrict"
      external transfer :
        'a Cudd.Vdd.t -> Cudd.Man.v Cudd.Man.t -> 'a Cudd.Vdd.t
        = "camlidl_cudd_add_transfer"
      val print__minterm :
        (Format.formatter -> 'a -> unit) ->
        Format.formatter -> 'a Cudd.Vdd.t -> unit
      val print_minterm :
        (Format.formatter -> int -> unit) ->
        (Format.formatter -> 'a -> unit) ->
        Format.formatter -> 'a Cudd.Vdd.t -> unit
      val print :
        (Format.formatter -> Cudd.Man.v Cudd.Bdd.t -> unit) ->
        (Format.formatter -> 'a -> unit) ->
        Format.formatter -> 'a Cudd.Vdd.t -> unit
    end
  module Custom :
    sig
      type pid
      and mlvalue
      type common = {
        pid : Cudd.Custom.pid;
        arity : int;
        memo : Cudd.Memo.t;
      }
      type ('a, 'b) op1 = {
        common1 : Cudd.Custom.common;
        closure1 : 'a -> 'b;
      }
      type ('a, 'b, 'c) op2 = {
        common2 : Cudd.Custom.common;
        closure2 : 'a -> 'b -> 'c;
        ospecial2 :
          ('a Cudd.Vdd.t -> 'b Cudd.Vdd.t -> 'c Cudd.Vdd.t option) option;
        commutative : bool;
        idempotent : bool;
      }
      type ('a, 'b) test2 = {
        common2t : Cudd.Custom.common;
        closure2t : 'a -> 'b -> bool;
        ospecial2t : ('a Cudd.Vdd.t -> 'b Cudd.Vdd.t -> bool option) option;
        symetric : bool;
        reflexive : bool;
      }
      type ('a, 'b, 'c, 'd) op3 = {
        common3 : Cudd.Custom.common;
        closure3 : 'a -> 'b -> 'c -> 'd;
        ospecial3 :
          ('a Cudd.Vdd.t ->
           'b Cudd.Vdd.t -> 'c Cudd.Vdd.t -> 'd Cudd.Vdd.t option)
          option;
      }
      type ('a, 'b) opN = {
        commonN : Cudd.Custom.common;
        arityNbdd : int;
        closureN :
          Cudd.Bdd.vt array -> 'a Cudd.Vdd.t array -> 'b Cudd.Vdd.t option;
      }
      type ('a, 'b) opG = {
        commonG : Cudd.Custom.common;
        arityGbdd : int;
        closureG :
          Cudd.Bdd.vt array -> 'a Cudd.Vdd.t array -> 'b Cudd.Vdd.t option;
        oclosureBeforeRec :
          (int * bool ->
           Cudd.Bdd.vt array ->
           'a Cudd.Vdd.t array -> Cudd.Bdd.vt array * 'a Cudd.Vdd.t array)
          option;
        oclosureIte :
          (int -> 'b Cudd.Vdd.t -> 'b Cudd.Vdd.t -> 'b Cudd.Vdd.t) option;
      }
      type 'a exist = {
        commonexist : Cudd.Custom.common;
        combineexist : ('a, 'a, 'a) Cudd.Custom.op2;
      }
      type 'a existand = {
        commonexistand : Cudd.Custom.common;
        combineexistand : ('a, 'a, 'a) Cudd.Custom.op2;
        bottomexistand : 'a;
      }
      type ('a, 'b) existop1 = {
        commonexistop1 : Cudd.Custom.common;
        combineexistop1 : ('b, 'b, 'b) Cudd.Custom.op2;
        existop1 : ('a, 'b) Cudd.Custom.op1;
      }
      type ('a, 'b) existandop1 = {
        commonexistandop1 : Cudd.Custom.common;
        combineexistandop1 : ('b, 'b, 'b) Cudd.Custom.op2;
        existandop1 : ('a, 'b) Cudd.Custom.op1;
        bottomexistandop1 : 'b;
      }
      external newpid : unit -> Cudd.Custom.pid = "camlidl_custom_newpid"
      external apply_op1 :
        ('a, 'b) Cudd.Custom.op1 -> 'a Cudd.Vdd.t -> 'b Cudd.Vdd.t
        = "camlidl_custom_apply_op1"
      external apply_op2 :
        ('a, 'b, 'c) Cudd.Custom.op2 ->
        'a Cudd.Vdd.t -> 'b Cudd.Vdd.t -> 'c Cudd.Vdd.t
        = "camlidl_custom_apply_op2"
      external apply_test2 :
        ('a, 'b) Cudd.Custom.test2 -> 'a Cudd.Vdd.t -> 'b Cudd.Vdd.t -> bool
        = "camlidl_custom_apply_test2"
      external apply_op3 :
        ('a, 'b, 'c, 'd) Cudd.Custom.op3 ->
        'a Cudd.Vdd.t -> 'b Cudd.Vdd.t -> 'c Cudd.Vdd.t -> 'd Cudd.Vdd.t
        = "camlidl_custom_apply_op3"
      external apply_opN :
        ('a, 'b) Cudd.Custom.opN ->
        Cudd.Bdd.vt array -> 'a Cudd.Vdd.t array -> 'b Cudd.Vdd.t
        = "camlidl_cudd_apply_opN"
      external apply_opG :
        ('a, 'b) Cudd.Custom.opG ->
        Cudd.Bdd.vt array -> 'a Cudd.Vdd.t array -> 'b Cudd.Vdd.t
        = "camlidl_cudd_apply_opG"
      external _apply_exist :
        'a Cudd.Custom.exist -> Cudd.Bdd.vt -> 'a Cudd.Vdd.t -> 'a Cudd.Vdd.t
        = "camlidl_custom__apply_exist"
      external _apply_existand :
        'a Cudd.Custom.existand ->
        Cudd.Bdd.vt -> Cudd.Bdd.vt -> 'a Cudd.Vdd.t -> 'a Cudd.Vdd.t
        = "camlidl_custom__apply_existand"
      external _apply_existop1 :
        ('a, 'b) Cudd.Custom.existop1 ->
        Cudd.Bdd.vt -> 'a Cudd.Vdd.t -> 'b Cudd.Vdd.t
        = "camlidl_custom__apply_existop1"
      external _apply_existandop1 :
        ('a, 'b) Cudd.Custom.existandop1 ->
        Cudd.Bdd.vt -> Cudd.Bdd.vt -> 'a Cudd.Vdd.t -> 'b Cudd.Vdd.t
        = "camlidl_custom__apply_existandop1"
    end
  module Weakke :
    sig
      type 'a t
      type 'a hashtbl = 'a Cudd.Weakke.t
      type 'a compare = { hash : 'a -> int; equal : 'a -> 'a -> bool; }
      val create : int -> 'a Cudd.Weakke.t
      val clear : 'a Cudd.Weakke.t -> unit
      val merge : 'a Cudd.Weakke.t -> 'a -> 'a
      val merge_map : 'a Cudd.Weakke.t -> 'a -> ('a -> 'a) -> 'a
      val add : 'a Cudd.Weakke.t -> 'a -> unit
      val remove : 'a Cudd.Weakke.t -> 'a -> unit
      val find : 'a Cudd.Weakke.t -> 'a -> 'a
      val find_all : 'a Cudd.Weakke.t -> 'a -> 'a list
      val mem : 'a Cudd.Weakke.t -> 'a -> bool
      val iter : ('a -> 'b) -> 'a Cudd.Weakke.t -> unit
      val fold : ('a -> 'b -> 'b) -> 'a Cudd.Weakke.t -> 'b -> 'b
      val count : 'a Cudd.Weakke.t -> int
      val stats : 'a Cudd.Weakke.t -> int * int * int * int * int * int
      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 -> unit) ->
        Format.formatter -> 'a Cudd.Weakke.t -> unit
      module type S =
        sig
          type data
          type t
          val create : int -> Cudd.Weakke.S.t
          val clear : Cudd.Weakke.S.t -> unit
          val merge :
            Cudd.Weakke.S.t -> Cudd.Weakke.S.data -> Cudd.Weakke.S.data
          val merge_map :
            Cudd.Weakke.S.t ->
            Cudd.Weakke.S.data ->
            (Cudd.Weakke.S.data -> Cudd.Weakke.S.data) -> Cudd.Weakke.S.data
          val add : Cudd.Weakke.S.t -> Cudd.Weakke.S.data -> unit
          val remove : Cudd.Weakke.S.t -> Cudd.Weakke.S.data -> unit
          val find :
            Cudd.Weakke.S.t -> Cudd.Weakke.S.data -> Cudd.Weakke.S.data
          val find_all :
            Cudd.Weakke.S.t -> Cudd.Weakke.S.data -> Cudd.Weakke.S.data list
          val mem : Cudd.Weakke.S.t -> Cudd.Weakke.S.data -> bool
          val iter : (Cudd.Weakke.S.data -> unit) -> Cudd.Weakke.S.t -> unit
          val fold :
            (Cudd.Weakke.S.data -> 'a -> 'a) -> Cudd.Weakke.S.t -> 'a -> 'a
          val count : Cudd.Weakke.S.t -> int
          val stats : Cudd.Weakke.S.t -> int * int * int * int * int * int
          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 -> Cudd.Weakke.S.data -> unit) ->
            Format.formatter -> Cudd.Weakke.S.t -> unit
        end
      module Make :
        functor (H : Hashtbl.HashedType) ->
          sig
            type data = H.t
            type t
            val create : int -> t
            val clear : t -> unit
            val merge : t -> data -> data
            val merge_map : t -> data -> (data -> data) -> data
            val add : t -> data -> unit
            val remove : t -> data -> unit
            val find : t -> data -> data
            val find_all : t -> data -> data list
            val mem : t -> data -> bool
            val iter : (data -> unit) -> t -> unit
            val fold : (data -> 'a -> 'a) -> t -> 'a -> 'a
            val count : t -> int
            val stats : t -> int * int * int * int * int * int
            val print :
              ?first:(unit, Format.formatter, unit) format ->
              ?sep:(unit, Format.formatter, unit) format ->
              ?last:(unit, Format.formatter, unit) format ->
              (Format.formatter -> data -> unit) ->
              Format.formatter -> t -> unit
          end
      module Compare :
        sig
          val add : 'a Cudd.Weakke.compare -> 'a Cudd.Weakke.t -> 'a -> unit
          val find_or :
            'a Cudd.Weakke.compare ->
            'a Cudd.Weakke.t -> 'a -> (int -> int -> 'a) -> 'a
          val merge : 'a Cudd.Weakke.compare -> 'a Cudd.Weakke.t -> 'a -> 'a
          val merge_map :
            'a Cudd.Weakke.compare ->
            'a Cudd.Weakke.t -> 'a -> ('a -> 'a) -> 'a
          val find : 'a Cudd.Weakke.compare -> 'a Cudd.Weakke.t -> 'a -> 'a
          val find_shadow :
            'a Cudd.Weakke.compare ->
            'a Cudd.Weakke.t -> 'a -> ('a Weak.t -> int -> 'b) -> 'b -> 'b
          val remove :
            'a Cudd.Weakke.compare -> 'a Cudd.Weakke.t -> 'a -> unit
          val mem : 'a Cudd.Weakke.compare -> 'a Cudd.Weakke.t -> 'a -> bool
          val find_all :
            'a Cudd.Weakke.compare -> 'a Cudd.Weakke.t -> 'a -> 'a list
        end
    end
  module PWeakke :
    sig
      type 'a compare =
        'a Cudd.Weakke.compare = {
        hash : 'a -> int;
        equal : 'a -> 'a -> bool;
      }
      type 'a t = {
        compare : 'a Cudd.PWeakke.compare;
        hashtbl : 'a Cudd.Weakke.t;
      }
      val create :
        ('a -> int) -> ('a -> 'a -> bool) -> int -> 'a Cudd.PWeakke.t
      val clear : 'a Cudd.PWeakke.t -> unit
      val merge : 'a Cudd.PWeakke.t -> 'a -> 'a
      val merge_map : 'a Cudd.PWeakke.t -> 'a -> ('a -> 'a) -> 'a
      val add : 'a Cudd.PWeakke.t -> 'a -> unit
      val remove : 'a Cudd.PWeakke.t -> 'a -> unit
      val find : 'a Cudd.PWeakke.t -> 'a -> 'a
      val find_all : 'a Cudd.PWeakke.t -> 'a -> 'a list
      val mem : 'a Cudd.PWeakke.t -> 'a -> bool
      val iter : ('a -> 'b) -> 'a Cudd.PWeakke.t -> unit
      val fold : ('a -> 'b -> 'b) -> 'a Cudd.PWeakke.t -> 'b -> 'b
      val count : 'a Cudd.PWeakke.t -> int
      val stats : 'a Cudd.PWeakke.t -> int * int * int * int * int * int
      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 -> unit) ->
        Format.formatter -> 'a Cudd.PWeakke.t -> unit
    end
  module Mtbdd :
    sig
      type 'a unique
      type 'a t = 'a Cudd.Mtbdd.unique Cudd.Vdd.t
      type 'a table = 'a Cudd.Mtbdd.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.Mtbdd.table -> unit
      val make_table :
        hash:('a -> int) -> equal:('a -> 'a -> bool) -> 'a Cudd.Mtbdd.table
      val unique : 'a Cudd.Mtbdd.table -> 'a -> 'a Cudd.Mtbdd.unique
      val get : 'a Cudd.Mtbdd.unique -> 'a
      type 'a mtbdd =
          Leaf of 'a Cudd.Mtbdd.unique
        | Ite of int * 'a Cudd.Mtbdd.t * 'a Cudd.Mtbdd.t
      external manager : 'a Cudd.Mtbdd.t -> Cudd.Man.v Cudd.Man.t
        = "camlidl_cudd_bdd_manager"
      external is_cst : 'a Cudd.Mtbdd.t -> bool = "camlidl_cudd_bdd_is_cst"
      external topvar : 'a Cudd.Mtbdd.t -> int = "camlidl_cudd_bdd_topvar"
      external dthen : 'a Cudd.Mtbdd.t -> 'a Cudd.Mtbdd.t
        = "camlidl_cudd_add_dthen"
      external delse : 'a Cudd.Mtbdd.t -> 'a Cudd.Mtbdd.t
        = "camlidl_cudd_add_delse"
      external cofactors :
        int -> 'a Cudd.Mtbdd.t -> 'a Cudd.Mtbdd.t * 'a Cudd.Mtbdd.t
        = "camlidl_cudd_add_cofactors"
      external cofactor :
        'a Cudd.Mtbdd.t -> Cudd.Man.v Cudd.Bdd.t -> 'a Cudd.Mtbdd.t
        = "camlidl_cudd_add_cofactor"
      val dval_u : 'a Cudd.Mtbdd.t -> 'a Cudd.Mtbdd.unique
      val dval : 'a Cudd.Mtbdd.t -> 'a
      val inspect : 'a Cudd.Mtbdd.t -> 'a Cudd.Mtbdd.mtbdd
      external support : 'a Cudd.Mtbdd.t -> Cudd.Man.v Cudd.Bdd.t
        = "camlidl_cudd_bdd_support"
      external supportsize : 'a Cudd.Mtbdd.t -> int
        = "camlidl_cudd_bdd_supportsize"
      external is_var_in : int -> 'a Cudd.Mtbdd.t -> bool
        = "camlidl_cudd_bdd_is_var_in"
      external vectorsupport : 'a Cudd.Mtbdd.t array -> Cudd.Man.v Cudd.Bdd.t
        = "camlidl_cudd_bdd_vectorsupport"
      external vectorsupport2 :
        Cudd.Man.v Cudd.Bdd.t array ->
        'a Cudd.Mtbdd.t array -> Cudd.Man.v Cudd.Bdd.t
        = "camlidl_cudd_add_vectorsupport2"
      val cst_u :
        Cudd.Man.v Cudd.Man.t -> 'a Cudd.Mtbdd.unique -> 'a Cudd.Mtbdd.t
      val cst :
        Cudd.Man.v Cudd.Man.t -> 'a Cudd.Mtbdd.table -> 'a -> 'a Cudd.Mtbdd.t
      external ite :
        Cudd.Man.v Cudd.Bdd.t ->
        'a Cudd.Mtbdd.t -> 'a Cudd.Mtbdd.t -> 'a Cudd.Mtbdd.t
        = "camlidl_cudd_add_ite"
      external ite_cst :
        Cudd.Man.v Cudd.Bdd.t ->
        'a Cudd.Mtbdd.t -> 'a Cudd.Mtbdd.t -> 'a Cudd.Mtbdd.t option
        = "camlidl_cudd_add_ite_cst"
      external eval_cst :
        'a Cudd.Mtbdd.t -> Cudd.Man.v Cudd.Bdd.t -> 'a Cudd.Mtbdd.t option
        = "camlidl_cudd_add_eval_cst"
      external compose :
        int -> Cudd.Man.v Cudd.Bdd.t -> 'a Cudd.Mtbdd.t -> 'a Cudd.Mtbdd.t
        = "camlidl_cudd_add_compose"
      val vectorcompose :
        ?memo:Cudd.Memo.t ->
        Cudd.Man.v Cudd.Bdd.t array -> 'a Cudd.Mtbdd.t -> 'a Cudd.Mtbdd.t
      external is_equal : 'a Cudd.Mtbdd.t -> 'a Cudd.Mtbdd.t -> bool
        = "camlidl_cudd_bdd_is_equal"
      external is_equal_when :
        'a Cudd.Mtbdd.t -> 'a Cudd.Mtbdd.t -> Cudd.Man.v Cudd.Bdd.t -> bool
        = "camlidl_cudd_bdd_is_equal_when"
      val is_eval_cst_u :
        'a Cudd.Mtbdd.t ->
        Cudd.Man.v Cudd.Bdd.t -> 'a Cudd.Mtbdd.unique option
      val is_ite_cst_u :
        Cudd.Man.v Cudd.Bdd.t ->
        'a Cudd.Mtbdd.t -> 'a Cudd.Mtbdd.t -> 'a Cudd.Mtbdd.unique option
      val is_eval_cst : 'a Cudd.Mtbdd.t -> Cudd.Man.v Cudd.Bdd.t -> 'a option
      val is_ite_cst :
        Cudd.Man.v Cudd.Bdd.t ->
        'a Cudd.Mtbdd.t -> 'a Cudd.Mtbdd.t -> 'a option
      external size : 'a Cudd.Mtbdd.t -> int = "camlidl_cudd_bdd_size"
      external nbpaths : 'a Cudd.Mtbdd.t -> float
        = "camlidl_cudd_bdd_nbpaths"
      external nbnonzeropaths : 'a Cudd.Mtbdd.t -> float
        = "camlidl_cudd_bdd_nbtruepaths"
      external nbminterms : int -> 'a Cudd.Mtbdd.t -> float
        = "camlidl_cudd_bdd_nbminterms"
      external density : int -> 'a Cudd.Mtbdd.t -> float
        = "camlidl_cudd_bdd_density"
      external nbleaves : 'a Cudd.Mtbdd.t -> int
        = "camlidl_cudd_add_nbleaves"
      external varmap : 'a Cudd.Mtbdd.t -> 'a Cudd.Mtbdd.t
        = "camlidl_cudd_add_varmap"
      val permute :
        ?memo:Cudd.Memo.t -> 'a Cudd.Mtbdd.t -> int array -> 'a Cudd.Mtbdd.t
      val iter_cube_u :
        (Cudd.Man.tbool array -> 'a Cudd.Mtbdd.unique -> unit) ->
        'a Cudd.Mtbdd.t -> unit
      val iter_cube :
        (Cudd.Man.tbool array -> 'a -> unit) -> 'a Cudd.Mtbdd.t -> unit
      external iter_node :
        ('a Cudd.Mtbdd.t -> unit) -> 'a Cudd.Mtbdd.t -> unit
        = "camlidl_cudd_iter_node"
      external guard_of_node :
        'a Cudd.Mtbdd.t -> 'a Cudd.Mtbdd.t -> Cudd.Man.v Cudd.Bdd.t
        = "camlidl_cudd_add_guard_of_node"
      external guard_of_nonbackground :
        'a Cudd.Mtbdd.t -> Cudd.Man.v Cudd.Bdd.t
        = "camlidl_cudd_add_guard_of_nonbackground"
      val nodes_below_level :
        ?max:int -> 'a Cudd.Mtbdd.t -> int option -> 'a Cudd.Mtbdd.t array
      val guard_of_leaf_u :
        'a Cudd.Mtbdd.t -> 'a Cudd.Mtbdd.unique -> Cudd.Man.v Cudd.Bdd.t
      val guard_of_leaf :
        'a Cudd.Mtbdd.table -> 'a Cudd.Mtbdd.t -> 'a -> Cudd.Man.v Cudd.Bdd.t
      val leaves_u : 'a Cudd.Mtbdd.t -> 'a Cudd.Mtbdd.unique array
      val leaves : 'a Cudd.Mtbdd.t -> 'a array
      val pick_leaf_u : 'a Cudd.Mtbdd.t -> 'a Cudd.Mtbdd.unique
      val pick_leaf : 'a Cudd.Mtbdd.t -> 'a
      val guardleafs_u :
        'a Cudd.Mtbdd.t ->
        (Cudd.Man.v Cudd.Bdd.t * 'a Cudd.Mtbdd.unique) array
      val guardleafs : 'a Cudd.Mtbdd.t -> (Cudd.Man.v Cudd.Bdd.t * 'a) array
      external constrain :
        'a Cudd.Mtbdd.t -> Cudd.Man.v Cudd.Bdd.t -> 'a Cudd.Mtbdd.t
        = "camlidl_cudd_add_constrain"
      external tdconstrain :
        'a Cudd.Mtbdd.t -> Cudd.Man.v Cudd.Bdd.t -> 'a Cudd.Mtbdd.t
        = "camlidl_cudd_add_tdconstrain"
      external restrict :
        'a Cudd.Mtbdd.t -> Cudd.Man.v Cudd.Bdd.t -> 'a Cudd.Mtbdd.t
        = "camlidl_cudd_add_restrict"
      external tdrestrict :
        'a Cudd.Mtbdd.t -> Cudd.Man.v Cudd.Bdd.t -> 'a Cudd.Mtbdd.t
        = "camlidl_cudd_add_tdrestrict"
      external transfer :
        'a Cudd.Mtbdd.t -> Cudd.Man.v Cudd.Man.t -> 'a Cudd.Mtbdd.t
        = "camlidl_cudd_add_transfer"
      val print__minterm :
        (Format.formatter -> 'a -> unit) ->
        Format.formatter -> 'a Cudd.Mtbdd.t -> unit
      val print_minterm :
        (Format.formatter -> int -> unit) ->
        (Format.formatter -> 'a -> unit) ->
        Format.formatter -> 'a Cudd.Mtbdd.t -> unit
      val print :
        (Format.formatter -> Cudd.Man.v Cudd.Bdd.t -> unit) ->
        (Format.formatter -> 'a -> unit) ->
        Format.formatter -> 'a Cudd.Mtbdd.t -> unit
    end
  module Mtbddc :
    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
  module User :
    sig
      type pid = Cudd.Custom.pid
      type common =
        Cudd.Custom.common = {
        pid : Cudd.User.pid;
        arity : int;
        memo : Cudd.Memo.t;
      }
      val newpid : unit -> Cudd.Custom.pid
      val make_common : ?memo:Cudd.Memo.t -> int -> Cudd.User.common
      type ('a, 'b) op1 =
        ('a, 'b) Cudd.Custom.op1 = private {
        common1 : Cudd.User.common;
        closure1 : 'a -> 'b;
      }
      val make_op1 :
        ?memo:Cudd.Memo.t -> ('a -> 'b) -> ('a, 'b) Cudd.User.op1
      val apply_op1 :
        ('a, 'b) Cudd.User.op1 -> 'a Cudd.Vdd.t -> 'b Cudd.Vdd.t
      type ('a, 'b, 'c) op2 =
        ('a, 'b, 'c) Cudd.Custom.op2 = private {
        common2 : Cudd.User.common;
        closure2 : 'a -> 'b -> 'c;
        ospecial2 :
          ('a Cudd.Vdd.t -> 'b Cudd.Vdd.t -> 'c Cudd.Vdd.t option) option;
        commutative : bool;
        idempotent : bool;
      }
      val make_op2 :
        ?memo:Cudd.Memo.t ->
        ?commutative:bool ->
        ?idempotent:bool ->
        ?special:('a Cudd.Vdd.t -> 'b Cudd.Vdd.t -> 'c Cudd.Vdd.t option) ->
        ('a -> 'b -> 'c) -> ('a, 'b, 'c) Cudd.User.op2
      val apply_op2 :
        ('a, 'b, 'c) Cudd.User.op2 ->
        'a Cudd.Vdd.t -> 'b Cudd.Vdd.t -> 'c Cudd.Vdd.t
      type ('a, 'b, 'c, 'd) op3 =
        ('a, 'b, 'c, 'd) Cudd.Custom.op3 = private {
        common3 : Cudd.User.common;
        closure3 : 'a -> 'b -> 'c -> 'd;
        ospecial3 :
          ('a Cudd.Vdd.t ->
           'b Cudd.Vdd.t -> 'c Cudd.Vdd.t -> 'd Cudd.Vdd.t option)
          option;
      }
      val make_op3 :
        ?memo:Cudd.Memo.t ->
        ?special:('a Cudd.Vdd.t ->
                  'b Cudd.Vdd.t -> 'c Cudd.Vdd.t -> 'd Cudd.Vdd.t option) ->
        ('a -> 'b -> 'c -> 'd) -> ('a, 'b, 'c, 'd) Cudd.User.op3
      val apply_op3 :
        ('a, 'b, 'c, 'd) Cudd.User.op3 ->
        'a Cudd.Vdd.t -> 'b Cudd.Vdd.t -> 'c Cudd.Vdd.t -> 'd Cudd.Vdd.t
      type ('a, 'b) opN =
        ('a, 'b) Cudd.Custom.opN = private {
        commonN : Cudd.User.common;
        arityNbdd : int;
        closureN :
          Cudd.Bdd.vt array -> 'a Cudd.Vdd.t array -> 'b Cudd.Vdd.t option;
      }
      val make_opN :
        ?memo:Cudd.Memo.t ->
        int ->
        int ->
        (Cudd.Bdd.vt array -> 'a Cudd.Vdd.t array -> 'b Cudd.Vdd.t option) ->
        ('a, 'b) Cudd.User.opN
      val apply_opN :
        ('a, 'b) Cudd.User.opN ->
        Cudd.Bdd.vt array -> 'a Cudd.Vdd.t array -> 'b Cudd.Vdd.t
      type ('a, 'b) opG =
        ('a, 'b) Cudd.Custom.opG = private {
        commonG : Cudd.User.common;
        arityGbdd : int;
        closureG :
          Cudd.Bdd.vt array -> 'a Cudd.Vdd.t array -> 'b Cudd.Vdd.t option;
        oclosureBeforeRec :
          (int * bool ->
           Cudd.Bdd.vt array ->
           'a Cudd.Vdd.t array -> Cudd.Bdd.vt array * 'a Cudd.Vdd.t array)
          option;
        oclosureIte :
          (int -> 'b Cudd.Vdd.t -> 'b Cudd.Vdd.t -> 'b Cudd.Vdd.t) option;
      }
      val make_opG :
        ?memo:Cudd.Memo.t ->
        ?beforeRec:(int * bool ->
                    Cudd.Bdd.vt array ->
                    'a Cudd.Vdd.t array ->
                    Cudd.Bdd.vt array * 'a Cudd.Vdd.t array) ->
        ?ite:(int -> 'b Cudd.Vdd.t -> 'b Cudd.Vdd.t -> 'b Cudd.Vdd.t) ->
        int ->
        int ->
        (Cudd.Bdd.vt array -> 'a Cudd.Vdd.t array -> 'b Cudd.Vdd.t option) ->
        ('a, 'b) Cudd.User.opG
      val apply_opG :
        ('a, 'b) Cudd.User.opG ->
        Cudd.Bdd.vt array -> 'a Cudd.Vdd.t array -> 'b Cudd.Vdd.t
      type ('a, 'b) test2 =
        ('a, 'b) Cudd.Custom.test2 = private {
        common2t : Cudd.User.common;
        closure2t : 'a -> 'b -> bool;
        ospecial2t : ('a Cudd.Vdd.t -> 'b Cudd.Vdd.t -> bool option) option;
        symetric : bool;
        reflexive : bool;
      }
      val make_test2 :
        ?memo:Cudd.Memo.t ->
        ?symetric:bool ->
        ?reflexive:bool ->
        ?special:('a Cudd.Vdd.t -> 'b Cudd.Vdd.t -> bool option) ->
        ('a -> 'b -> bool) -> ('a, 'b) Cudd.User.test2
      val apply_test2 :
        ('a, 'b) Cudd.User.test2 -> 'a Cudd.Vdd.t -> 'b Cudd.Vdd.t -> bool
      type 'a exist =
        'a Cudd.Custom.exist = private {
        commonexist : Cudd.User.common;
        combineexist : ('a, 'a, 'a) Cudd.User.op2;
      }
      val make_exist :
        ?memo:Cudd.Memo.t -> ('a, 'a, 'a) Cudd.User.op2 -> 'a Cudd.User.exist
      val apply_exist :
        'a Cudd.User.exist ->
        supp:Cudd.Bdd.vt -> 'a Cudd.Vdd.t -> 'a Cudd.Vdd.t
      type 'a existand =
        'a Cudd.Custom.existand = private {
        commonexistand : Cudd.User.common;
        combineexistand : ('a, 'a, 'a) Cudd.User.op2;
        bottomexistand : 'a;
      }
      val make_existand :
        ?memo:Cudd.Memo.t ->
        bottom:'a -> ('a, 'a, 'a) Cudd.User.op2 -> 'a Cudd.User.existand
      val apply_existand :
        'a Cudd.User.existand ->
        supp:Cudd.Bdd.vt -> Cudd.Bdd.vt -> 'a Cudd.Vdd.t -> 'a Cudd.Vdd.t
      type ('a, 'b) existop1 =
        ('a, 'b) Cudd.Custom.existop1 = private {
        commonexistop1 : Cudd.User.common;
        combineexistop1 : ('b, 'b, 'b) Cudd.User.op2;
        existop1 : ('a, 'b) Cudd.User.op1;
      }
      val make_existop1 :
        ?memo:Cudd.Memo.t ->
        op1:('a, 'b) Cudd.User.op1 ->
        ('b, 'b, 'b) Cudd.User.op2 -> ('a, 'b) Cudd.User.existop1
      val apply_existop1 :
        ('a, 'b) Cudd.User.existop1 ->
        supp:Cudd.Bdd.vt -> 'a Cudd.Vdd.t -> 'b Cudd.Vdd.t
      type ('a, 'b) existandop1 =
        ('a, 'b) Cudd.Custom.existandop1 = private {
        commonexistandop1 : Cudd.User.common;
        combineexistandop1 : ('b, 'b, 'b) Cudd.User.op2;
        existandop1 : ('a, 'b) Cudd.User.op1;
        bottomexistandop1 : 'b;
      }
      val make_existandop1 :
        ?memo:Cudd.Memo.t ->
        op1:('a, 'b) Cudd.User.op1 ->
        bottom:'b ->
        ('b, 'b, 'b) Cudd.User.op2 -> ('a, 'b) Cudd.User.existandop1
      val apply_existandop1 :
        ('a, 'b) Cudd.User.existandop1 ->
        supp:Cudd.Bdd.vt -> Cudd.Bdd.vt -> 'a Cudd.Vdd.t -> 'b Cudd.Vdd.t
      val clear_common : Cudd.User.common -> unit
      val clear_op1 : ('a, 'b) Cudd.User.op1 -> unit
      val clear_op2 : ('a, 'b, 'c) Cudd.User.op2 -> unit
      val clear_op3 : ('a, 'b, 'c, 'd) Cudd.User.op3 -> unit
      val clear_opN : ('a, 'b) Cudd.User.opN -> unit
      val clear_opG : ('a, 'b) Cudd.User.opG -> unit
      val clear_test2 : ('a, 'b) Cudd.User.test2 -> unit
      val clear_exist : 'a Cudd.User.exist -> unit
      val clear_existand : 'a Cudd.User.existand -> unit
      val clear_existop1 : ('a, 'b) Cudd.User.existop1 -> unit
      val clear_existandop1 : ('a, 'b) Cudd.User.existandop1 -> unit
      val map_op1 :
        ?memo:Cudd.Memo.t -> ('a -> 'b) -> 'a Cudd.Vdd.t -> 'b Cudd.Vdd.t
      val map_op2 :
        ?memo:Cudd.Memo.t ->
        ?commutative:bool ->
        ?idempotent:bool ->
        ?special:('a Cudd.Vdd.t -> 'b Cudd.Vdd.t -> 'c Cudd.Vdd.t option) ->
        ('a -> 'b -> 'c) -> 'a Cudd.Vdd.t -> 'b Cudd.Vdd.t -> 'c Cudd.Vdd.t
      val map_op3 :
        ?memo:Cudd.Memo.t ->
        ?special:('a Cudd.Vdd.t ->
                  'b Cudd.Vdd.t -> 'c Cudd.Vdd.t -> 'd Cudd.Vdd.t option) ->
        ('a -> 'b -> 'c -> 'd) ->
        'a Cudd.Vdd.t -> 'b Cudd.Vdd.t -> 'c Cudd.Vdd.t -> 'd Cudd.Vdd.t
      val map_opN :
        ?memo:Cudd.Memo.t ->
        (Cudd.Bdd.vt array -> 'a Cudd.Vdd.t array -> 'b Cudd.Vdd.t option) ->
        Cudd.Bdd.vt array -> 'a Cudd.Vdd.t array -> 'b Cudd.Vdd.t
      val map_test2 :
        ?memo:Cudd.Memo.t ->
        ?symetric:bool ->
        ?reflexive:bool ->
        ?special:('a Cudd.Vdd.t -> 'b Cudd.Vdd.t -> bool option) ->
        ('a -> 'b -> bool) -> 'a Cudd.Vdd.t -> 'b Cudd.Vdd.t -> bool
    end
  module Mapleaf :
    sig
      val restrict : bool Pervasives.ref
      val mapleaf1 : ('a -> 'b) -> 'a Cudd.Vdd.t -> 'b Cudd.Vdd.t
      val retractivemapleaf1 :
        default:'a Cudd.Vdd.t ->
        (Cudd.Bdd.vt -> 'b -> Cudd.Bdd.vt * 'a) ->
        'b Cudd.Vdd.t -> 'a Cudd.Vdd.t
      val expansivemapleaf1 :
        default:'a Cudd.Vdd.t ->
        merge:('a Cudd.Vdd.t -> 'a Cudd.Vdd.t -> 'a Cudd.Vdd.t) ->
        (Cudd.Bdd.vt -> 'b -> Cudd.Bdd.vt * 'a) ->
        'b Cudd.Vdd.t -> 'a Cudd.Vdd.t
      val combineleaf1 :
        default:'c ->
        combine:('b -> 'c -> 'c) ->
        (Cudd.Bdd.vt -> 'a -> 'b) -> 'a Cudd.Vdd.t -> 'c
      val mapleaf2 :
        ('a -> 'b -> 'c) -> 'a Cudd.Vdd.t -> 'b Cudd.Vdd.t -> 'c Cudd.Vdd.t
      val retractivemapleaf2 :
        default:'a Cudd.Vdd.t ->
        (Cudd.Bdd.vt -> 'b -> 'c -> Cudd.Bdd.vt * 'a) ->
        'b Cudd.Vdd.t -> 'c Cudd.Vdd.t -> 'a Cudd.Vdd.t
      val expansivemapleaf2 :
        default:'a Cudd.Vdd.t ->
        merge:('a Cudd.Vdd.t -> 'a Cudd.Vdd.t -> 'a Cudd.Vdd.t) ->
        (Cudd.Bdd.vt -> 'b -> 'c -> Cudd.Bdd.vt * 'a) ->
        'b Cudd.Vdd.t -> 'c Cudd.Vdd.t -> 'a Cudd.Vdd.t
      val combineleaf2 :
        default:'d ->
        combine:('c -> 'd -> 'd) ->
        (Cudd.Bdd.vt -> 'a -> 'b -> 'c) ->
        'a Cudd.Vdd.t -> 'b Cudd.Vdd.t -> 'd
      val combineleaf_array :
        default:'c ->
        combine:('b -> 'c -> 'c) ->
        tabsorbant:('a -> bool) option array ->
        (Cudd.Bdd.vt -> 'a array -> 'b) -> 'a Cudd.Vdd.t array -> 'c
      val combineleaf1_array :
        default:'d ->
        combine:('c -> 'd -> 'd) ->
        ?absorbant:('a -> bool) ->
        tabsorbant:('b -> bool) option array ->
        (Cudd.Bdd.vt -> 'a -> 'b array -> 'c) ->
        'a Cudd.Vdd.t -> 'b Cudd.Vdd.t array -> 'd
      val combineleaf2_array :
        default:'e ->
        combine:('d -> 'e -> 'e) ->
        ?absorbant1:('a -> bool) ->
        ?absorbant2:('b -> bool) ->
        tabsorbant:('c -> bool) option array ->
        (Cudd.Bdd.vt -> 'a -> 'b -> 'c array -> 'd) ->
        'a Cudd.Vdd.t -> 'b Cudd.Vdd.t -> 'c Cudd.Vdd.t array -> 'e
      val combineretractive :
        Cudd.Bdd.vt * 'a -> 'a Cudd.Vdd.t -> 'a Cudd.Vdd.t
      val combineexpansive :
        default:'a Cudd.Vdd.t ->
        merge:('a Cudd.Vdd.t -> 'b Cudd.Vdd.t -> 'c Cudd.Vdd.t) ->
        Cudd.Bdd.vt * 'a -> 'b Cudd.Vdd.t -> 'c Cudd.Vdd.t
    end
  module Add :
    sig
      type t
      type add = Leaf of float | Ite of int * Cudd.Add.t * Cudd.Add.t
      external manager : Cudd.Add.t -> Cudd.Man.dt
        = "camlidl_cudd_bdd_manager"
      external is_cst : Cudd.Add.t -> bool = "camlidl_cudd_bdd_is_cst"
      external topvar : Cudd.Add.t -> int = "camlidl_cudd_bdd_topvar"
      external dthen : Cudd.Add.t -> Cudd.Add.t = "camlidl_cudd_add_dthen"
      external delse : Cudd.Add.t -> Cudd.Add.t = "camlidl_cudd_add_delse"
      external dval : Cudd.Add.t -> float = "camlidl_cudd_avdd_dval"
      external cofactors : int -> Cudd.Add.t -> Cudd.Add.t * Cudd.Add.t
        = "camlidl_cudd_add_cofactors"
      external cofactor : Cudd.Add.t -> Cudd.Bdd.dt -> Cudd.Add.t
        = "camlidl_cudd_add_cofactor"
      external inspect : Cudd.Add.t -> Cudd.Add.add
        = "camlidl_cudd_avdd_inspect"
      external support : Cudd.Add.t -> Cudd.Bdd.dt
        = "camlidl_cudd_bdd_support"
      external supportsize : Cudd.Add.t -> int
        = "camlidl_cudd_bdd_supportsize"
      external is_var_in : int -> Cudd.Add.t -> bool
        = "camlidl_cudd_bdd_is_var_in"
      external vectorsupport : Cudd.Add.t array -> Cudd.Bdd.dt
        = "camlidl_cudd_bdd_vectorsupport"
      external vectorsupport2 :
        Cudd.Bdd.dt array -> Cudd.Add.t array -> Cudd.Bdd.dt
        = "camlidl_cudd_add_vectorsupport2"
      external cst : Cudd.Man.dt -> float -> Cudd.Add.t
        = "camlidl_cudd_avdd_cst"
      val background : Cudd.Man.dt -> Cudd.Add.t
      external ite : Cudd.Bdd.dt -> Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t
        = "camlidl_cudd_add_ite"
      external ite_cst :
        Cudd.Bdd.dt -> Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t option
        = "camlidl_cudd_add_ite_cst"
      external eval_cst : Cudd.Add.t -> Cudd.Bdd.dt -> Cudd.Add.t option
        = "camlidl_cudd_add_eval_cst"
      external compose : int -> Cudd.Bdd.dt -> Cudd.Add.t -> Cudd.Add.t
        = "camlidl_cudd_add_compose"
      val vectorcompose :
        ?memo:Cudd.Memo.t -> Cudd.Bdd.dt array -> Cudd.Add.t -> Cudd.Add.t
      external varmap : Cudd.Add.t -> Cudd.Add.t = "camlidl_cudd_add_varmap"
      val permute :
        ?memo:Cudd.Memo.t -> Cudd.Add.t -> int array -> Cudd.Add.t
      external is_equal : Cudd.Add.t -> Cudd.Add.t -> bool
        = "camlidl_cudd_bdd_is_equal"
      external is_equal_when :
        Cudd.Add.t -> Cudd.Add.t -> Cudd.Bdd.dt -> bool
        = "camlidl_cudd_bdd_is_equal_when"
      external is_eval_cst : Cudd.Add.t -> Cudd.Bdd.dt -> float option
        = "camlidl_cudd_avdd_is_eval_cst"
      external is_ite_cst :
        Cudd.Bdd.dt -> Cudd.Add.t -> Cudd.Add.t -> float option
        = "camlidl_cudd_avdd_is_ite_cst"
      external size : Cudd.Add.t -> int = "camlidl_cudd_bdd_size"
      external nbpaths : Cudd.Add.t -> float = "camlidl_cudd_bdd_nbpaths"
      external nbnonzeropaths : Cudd.Add.t -> float
        = "camlidl_cudd_bdd_nbtruepaths"
      external nbminterms : int -> Cudd.Add.t -> float
        = "camlidl_cudd_bdd_nbminterms"
      external density : int -> Cudd.Add.t -> float
        = "camlidl_cudd_bdd_density"
      external nbleaves : Cudd.Add.t -> int = "camlidl_cudd_add_nbleaves"
      external iter_cube :
        (Cudd.Man.tbool array -> float -> unit) -> Cudd.Add.t -> unit
        = "camlidl_cudd_avdd_iter_cube"
      external iter_node : (Cudd.Add.t -> unit) -> Cudd.Add.t -> unit
        = "camlidl_cudd_iter_node"
      external guard_of_node : Cudd.Add.t -> Cudd.Add.t -> Cudd.Bdd.dt
        = "camlidl_cudd_add_guard_of_node"
      external guard_of_nonbackground : Cudd.Add.t -> Cudd.Bdd.dt
        = "camlidl_cudd_add_guard_of_nonbackground"
      external nodes_below_level :
        Cudd.Add.t -> int option -> int -> Cudd.Add.t array
        = "camlidl_cudd_avdd_nodes_below_level"
      external guard_of_leaf : Cudd.Add.t -> float -> Cudd.Bdd.dt
        = "camlidl_cudd_avdd_guard_of_leaf"
      external leaves : Cudd.Add.t -> float array
        = "camlidl_cudd_avdd_leaves"
      external pick_leaf : Cudd.Add.t -> float
        = "camlidl_cudd_avdd_pick_leaf"
      val guardleafs : Cudd.Add.t -> (Cudd.Bdd.dt * float) array
      external constrain : Cudd.Add.t -> Cudd.Bdd.dt -> Cudd.Add.t
        = "camlidl_cudd_add_constrain"
      external tdconstrain : Cudd.Add.t -> Cudd.Bdd.dt -> Cudd.Add.t
        = "camlidl_cudd_add_tdconstrain"
      external restrict : Cudd.Add.t -> Cudd.Bdd.dt -> Cudd.Add.t
        = "camlidl_cudd_add_restrict"
      external tdrestrict : Cudd.Add.t -> Cudd.Bdd.dt -> Cudd.Add.t
        = "camlidl_cudd_add_tdrestrict"
      external of_bdd : Cudd.Bdd.dt -> Cudd.Add.t = "camlidl_cudd_add_of_bdd"
      external to_bdd : Cudd.Add.t -> Cudd.Bdd.dt = "camlidl_cudd_add_to_bdd"
      external to_bdd_threshold : float -> Cudd.Add.t -> Cudd.Add.t
        = "camlidl_cudd_add_to_bdd_threshold"
      external to_bdd_strictthreshold : float -> Cudd.Add.t -> Cudd.Add.t
        = "camlidl_cudd_add_to_bdd_strictthreshold"
      external to_bdd_interval : float -> float -> Cudd.Add.t -> Cudd.Add.t
        = "camlidl_cudd_add_to_bdd_interval"
      external exist : Cudd.Bdd.dt -> Cudd.Add.t -> Cudd.Add.t
        = "camlidl_cudd_add_exist"
      external forall : Cudd.Bdd.dt -> Cudd.Add.t -> Cudd.Add.t
        = "camlidl_cudd_add_forall"
      external is_leq : Cudd.Add.t -> Cudd.Add.t -> bool
        = "camlidl_cudd_add_is_leq"
      external add : Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t
        = "camlidl_cudd_add_add"
      external sub : Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t
        = "camlidl_cudd_add_sub"
      external mul : Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t
        = "camlidl_cudd_add_mul"
      external div : Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t
        = "camlidl_cudd_add_div"
      external min : Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t
        = "camlidl_cudd_add_min"
      external max : Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t
        = "camlidl_cudd_add_max"
      external agreement : Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t
        = "camlidl_cudd_add_agreement"
      external diff : Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t
        = "camlidl_cudd_add_diff"
      external threshold : Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t
        = "camlidl_cudd_add_threshold"
      external setNZ : Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t
        = "camlidl_cudd_add_setNZ"
      external log : Cudd.Add.t -> Cudd.Add.t = "camlidl_cudd_add_log"
      external matrix_multiply :
        int array -> Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t
        = "camlidl_cudd_add_matrix_multiply"
      external times_plus :
        int array -> Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t
        = "camlidl_cudd_add_times_plus"
      external triangle : int array -> Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t
        = "camlidl_cudd_add_triangle"
      val mapleaf1 :
        default:Cudd.Add.t ->
        (Cudd.Bdd.dt -> float -> float) -> Cudd.Add.t -> Cudd.Add.t
      val mapleaf2 :
        default:Cudd.Add.t ->
        (Cudd.Bdd.dt -> float -> float -> float) ->
        Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t
      type op1 = (float, float) Cudd.Custom.op1
      type op2 = (float, float, float) Cudd.Custom.op2
      type op3 = (float, float, float, float) Cudd.Custom.op3
      type opN = {
        commonN : Cudd.Custom.common;
        closureN : Cudd.Bdd.dt array -> Cudd.Add.t array -> Cudd.Add.t option;
        arityNbdd : int;
      }
      type opG = {
        commonG : Cudd.Custom.common;
        arityGbdd : int;
        closureG : Cudd.Bdd.dt array -> Cudd.Add.t array -> Cudd.Add.t option;
        oclosureBeforeRec :
          (int * bool ->
           Cudd.Bdd.dt array ->
           Cudd.Add.t array -> Cudd.Bdd.dt array * Cudd.Add.t array)
          option;
        oclosureIte : (int -> Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t) option;
      }
      type test2 = (float, float) Cudd.Custom.test2
      type exist = float Cudd.Custom.exist
      type existand = float Cudd.Custom.existand
      type existop1 = (float, float) Cudd.Custom.existop1
      type existandop1 = (float, float) Cudd.Custom.existandop1
      val make_op1 : ?memo:Cudd.Memo.t -> (float -> float) -> Cudd.Add.op1
      val make_op2 :
        ?memo:Cudd.Memo.t ->
        ?commutative:bool ->
        ?idempotent:bool ->
        ?special:(Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t option) ->
        (float -> float -> float) -> Cudd.Add.op2
      val make_op3 :
        ?memo:Cudd.Memo.t ->
        ?special:(Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t option) ->
        (float -> float -> float -> float) -> Cudd.Add.op3
      val make_opN :
        ?memo:Cudd.Memo.t ->
        int ->
        int ->
        (Cudd.Bdd.dt array -> Cudd.Add.t array -> Cudd.Add.t option) ->
        Cudd.Add.opN
      val make_opG :
        ?memo:Cudd.Memo.t ->
        ?beforeRec:(int * bool ->
                    Cudd.Bdd.dt array ->
                    Cudd.Add.t array -> Cudd.Bdd.dt array * Cudd.Add.t array) ->
        ?ite:(int -> Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t) ->
        int ->
        int ->
        (Cudd.Bdd.dt array -> Cudd.Add.t array -> Cudd.Add.t option) ->
        Cudd.Add.opG
      val make_test2 :
        ?memo:Cudd.Memo.t ->
        ?symetric:bool ->
        ?reflexive:bool ->
        ?special:(Cudd.Add.t -> Cudd.Add.t -> bool option) ->
        (float -> float -> bool) -> Cudd.Add.test2
      val make_exist : ?memo:Cudd.Memo.t -> Cudd.Add.op2 -> Cudd.Add.exist
      val make_existand :
        ?memo:Cudd.Memo.t ->
        bottom:float -> Cudd.Add.op2 -> Cudd.Add.existand
      val make_existop1 :
        ?memo:Cudd.Memo.t ->
        op1:Cudd.Add.op1 -> Cudd.Add.op2 -> Cudd.Add.existop1
      val make_existandop1 :
        ?memo:Cudd.Memo.t ->
        op1:Cudd.Add.op1 ->
        bottom:float -> Cudd.Add.op2 -> Cudd.Add.existandop1
      val clear_op1 : Cudd.Add.op1 -> unit
      val clear_op2 : Cudd.Add.op2 -> unit
      val clear_op3 : Cudd.Add.op3 -> unit
      val clear_opN : Cudd.Add.opN -> unit
      val clear_opG : Cudd.Add.opG -> unit
      val clear_test2 : Cudd.Add.test2 -> unit
      val clear_exist : Cudd.Add.exist -> unit
      val clear_existand : Cudd.Add.existand -> unit
      val clear_existop1 : Cudd.Add.existop1 -> unit
      val clear_existandop1 : Cudd.Add.existandop1 -> unit
      val apply_op1 : Cudd.Add.op1 -> Cudd.Add.t -> Cudd.Add.t
      val apply_op2 : Cudd.Add.op2 -> Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t
      val apply_op3 : Cudd.Add.op3 -> Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t
      val apply_opN :
        Cudd.Add.opN -> Cudd.Bdd.dt array -> Cudd.Add.t array -> Cudd.Add.t
      val apply_opG :
        Cudd.Add.opG -> Cudd.Bdd.dt array -> Cudd.Add.t array -> Cudd.Add.t
      val apply_test2 : Cudd.Add.test2 -> Cudd.Add.t -> Cudd.Add.t -> bool
      val apply_exist :
        Cudd.Add.exist -> supp:Cudd.Bdd.dt -> Cudd.Add.t -> Cudd.Add.t
      val apply_existand :
        Cudd.Add.existand ->
        supp:Cudd.Bdd.dt -> Cudd.Bdd.dt -> Cudd.Add.t -> Cudd.Add.t
      val apply_existop1 :
        Cudd.Add.existop1 -> supp:Cudd.Bdd.dt -> Cudd.Add.t -> Cudd.Add.t
      val apply_existandop1 :
        Cudd.Add.existandop1 ->
        supp:Cudd.Bdd.dt -> Cudd.Bdd.dt -> Cudd.Add.t -> Cudd.Add.t
      val map_op1 :
        ?memo:Cudd.Memo.t -> (float -> float) -> Cudd.Add.t -> Cudd.Add.t
      val map_op2 :
        ?memo:Cudd.Memo.t ->
        ?commutative:bool ->
        ?idempotent:bool ->
        ?special:(Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t option) ->
        (float -> float -> float) -> Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t
      val map_op3 :
        ?memo:Cudd.Memo.t ->
        ?special:(Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t option) ->
        (float -> float -> float -> float) ->
        Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t -> Cudd.Add.t
      val map_opN :
        ?memo:Cudd.Memo.t ->
        (Cudd.Bdd.dt array -> Cudd.Add.t array -> Cudd.Add.t option) ->
        Cudd.Bdd.dt array -> Cudd.Add.t array -> Cudd.Add.t
      val map_test2 :
        ?memo:Cudd.Memo.t ->
        ?symetric:bool ->
        ?reflexive:bool ->
        ?special:(Cudd.Add.t -> Cudd.Add.t -> bool option) ->
        (float -> float -> bool) -> Cudd.Add.t -> Cudd.Add.t -> bool
      external transfer : Cudd.Add.t -> Cudd.Man.d Cudd.Man.t -> Cudd.Add.t
        = "camlidl_cudd_add_transfer"
      external _print : Cudd.Add.t -> unit = "camlidl_cudd_print"
      val print__minterm : Format.formatter -> Cudd.Add.t -> unit
      val print_minterm :
        (Format.formatter -> int -> unit) ->
        (Format.formatter -> float -> unit) ->
        Format.formatter -> Cudd.Add.t -> unit
      val print :
        (Format.formatter -> int -> unit) ->
        (Format.formatter -> float -> unit) ->
        Format.formatter -> Cudd.Add.t -> unit
    end
end