(* End of proof of lem_vide_unicite                                        *)

Parameter var_vide : E.Definition Vide := vide var_vide.

(* Specifications: *)
Lemma lem_x_inc_vide : forall x : E, inc x Vide -> x = Vide.
Lemma lem_x_noteq_vide : forall x y : E, In y x -> x <> Vide.
Lemma lem_paire_not_empty : forall a b : E, paire a b <> Vide.
Lemma lem_not_vide_in_vide : ~ In Vide Vide.