Definition BDDneg :=
  BDDneg_1 gc cfg ul node (S (nat_of_N (node_height cfg node))).

(* Specifications: *)
Lemma BDDneg_config_OK : BDDconfig_OK (fst BDDneg).
Lemma BDDneg_node_OK : config_node_OK (fst BDDneg) (snd BDDneg).
Lemma BDDneg_used_nodes_preserved : used_nodes_preserved cfg (fst BDDneg) ul.
Lemma BDDneg_is_neg : bool_fun_eq (bool_fun_of_BDD (fst BDDneg) (snd BDDneg)) (bool_fun_neg (bool_fun_of_BDD cfg node)).
Lemma BDDneg_list_OK : used_list_OK (fst BDDneg) ul.
Lemma BDDneg_list_OK_cons : used_list_OK (fst BDDneg) (snd BDDneg :: ul).
Lemma BDDneg_var_eq : Neqb (node_height (fst BDDneg) (snd BDDneg)) (node_height cfg node) = true.