proposition: Lemma BDDvar_make_keeps_node_OK : forall (cfg : BDDconfig) (x : BDDvar), BDDconfig_OK cfg -> forall node : ad, config_node_OK cfg node -> config_node_OK (fst (BDDvar_make cfg x)) node.
proof: Proof. intros. apply nodes_preserved_2 with (cfg := cfg). assumption. apply BDDvar_make_preserves_nodes. assumption. Qed.
imports: Bool Sumbool Arith ZArith NArith Nnat Ndec Ndigits IntMap(Allmaps) Wf_nat BDDvar_ad_nat bdd1 bdd2 bdd3 bdd4 bdd5_1 bdd5_2 bdd6 bdd7 BDDdummy_lemma_2 BDDdummy_lemma_3 BDDdummy_lemma_4 bdd8 bdd9 bdd10