(* EQUALITY/DISJONCTION OF SETS *)
Definition impls(s1 s2:set):Prop:=
forall z:dart, exds s1 z -> exds s2 z.
Definition eqs(s1 s2:set):Prop:=
forall z:dart, exds s1 z <-> exds s2 z.
Definition disjs(s1 s2:set):Prop:=
forall z:dart, exds s1 z -> exds s2 z -> False.
(*=========================================================== NOETHERIAN RELATION ON (MULTI-)SETS ===========================================================*)
Definition Rs(sy sx:set):=
(card sy < card sx)%nat.

Lemma Acc_set:forall s:set, Acc Rs s.