(*									*)
(*  INCLUSION  								*)
(*    On definit le predicat (inclus E F) par (dans x E)->(dans x F).	*)
(*    On montre ensuite facilement les resultats suivants :		*)
(*    -- inclus empty A							*)
(*    -- inclus A A							*)
(*    -- (inclus a b)->(inclus c d)					*)
(*		->(inclus (prodcart a c) (prodcart b d)			*)
(*									*)

Definition inclus (A B : Ensf) : Prop := forall x : Elt, dans x A -> dans x B.

Lemma singl_inclus_add : forall (e : Elt) (a : Ensf), inclus (singleton e) (add e a).