(*									*)
(*  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 cart_inclus : forall a b c d : Ensf, inclus a b -> inclus c d -> inclus (prodcart a c) (prodcart b d).