Definition BDDuniv :=
  BDDuniv_1 gc cfg ul node y (S (nat_of_N (node_height cfg node))).

(* Specifications: *)
Lemma BDDuniv_config_OK : BDDconfig_OK (fst BDDuniv).
Lemma BDDuniv_node_OK : config_node_OK (fst BDDuniv) (snd BDDuniv).
Lemma BDDuniv_used_nodes_preserved : used_nodes_preserved cfg (fst BDDuniv) ul.
Lemma BDDuniv_is_univ : bool_fun_eq (bool_fun_of_BDD (fst BDDuniv) (snd BDDuniv)) (bool_fun_forall y (bool_fun_of_BDD cfg node)).
Lemma BDDuniv_list_OK : used_list_OK (fst BDDuniv) ul.
Lemma BDDuniv_list_OK_cons : used_list_OK (fst BDDuniv) (snd BDDuniv :: ul).
Lemma BDDuniv_var_le : Nleb (node_height (fst BDDuniv) (snd BDDuniv)) (node_height cfg node) = true.