(***************************************************************************)
(***************************************************************************)
(* Relations n-aires                                                       *)
(***************************************************************************)
(***************************************************************************)
Definition n_aire (n : nat) (a : E) (F : E -> Prop) :=
  subset F (cart_power n a).

Lemma lem_subset : forall (a b y : E) (F : E -> Prop), a = subset F b -> In y a -> In y b.