(* équations auxilliaires sur Neqb_1 *)

(* Specifications: *)
Lemma aux_Neqb_1_0 : forall p : positive, Peqb p p = true.
Lemma aux_Neqb_1_1 : forall p p0 : positive, Peqb p p0 = true -> p = p0.
(* lemmes auxilliaires sur Neqb *)
Lemma aux_Neqb_trans :
forall a b c : ad, Neqb a b = true -> Neqb b c = true -> Neqb a c = true.