Definition bool_fun_if (x : BDDvar) (bf bf' : bool_fun) : bool_fun :=
  fun vb : var_binding => ifb (vb x) (bf vb) (bf' vb).

Lemma BDDcompare_le_INFERIEUR_1 : forall x y z : BDDvar, BDDvar_le x y = true -> BDDcompare y z = Datatypes.Lt -> BDDcompare x z = Datatypes.Lt.