(* Lemma BDD_EGAL_complete : (x,y:BDDvar) (BDDcompare x y)=EGAL -> x=y. *)

(* Specifications: *)
Lemma BDD_EGAL_correct : forall x y : BDDvar, BDDcompare x x = Datatypes.Eq.
Lemma BDD_EGALsymm :
forall x y : BDDvar,
BDDcompare x y = Datatypes.Eq -> BDDcompare y x = Datatypes.Eq.
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.