(*									*)
(*  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 add_inclus : forall (x : Elt) (a b : Ensf), dans x b -> inclus a b -> inclus (add x a) b.