Definition BDDvar_le := Nleb.Definition BDDvar_max (x y : BDDvar) := if BDDvar_le x y then y else x.

Lemma BDDvar_ordered_high_2 : forall (cfg : BDDconfig) (node1 node2 : ad), BDDconfig_OK cfg -> is_internal_node cfg node1 -> is_internal_node cfg node2 -> BDDcompare (var cfg node1) (var cfg node2) = Datatypes.Lt -> BDDcompare (BDDvar_max (var cfg node1) (var cfg (high cfg node2))) (var cfg node2) = Datatypes.Lt.