Section BDDvar_make_results.
Variable cfg : BDDconfig.
Variable ul : list ad.
Variable x : BDDvar.
Hypothesis cfg_OK : BDDconfig_OK cfg.
Hypothesis ul_OK : used_list_OK cfg ul.
Definition BDDvar_make := BDDmake gc cfg x BDDzero BDDone ul.

(* Specifications: *)
Lemma BDDvar_make_config_OK : BDDconfig_OK (fst BDDvar_make).
Lemma BDDvar_make_node_OK :
config_node_OK (fst BDDvar_make) (snd BDDvar_make).
Lemma BDDvar_make_used_nodes_preserved :
used_nodes_preserved cfg (fst BDDvar_make) ul.
Lemma BDDvar_make_list_OK : used_list_OK (fst BDDvar_make) ul.
Lemma BDDvar_make_list_OK_cons :
used_list_OK (fst BDDvar_make) (snd BDDvar_make :: ul).
Lemma BDDvar_make_is_var :
bool_fun_eq (bool_fun_of_BDD (fst BDDvar_make) (snd BDDvar_make))
(bool_fun_var x).