(* 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.

(* Specifications: *)
Lemma Acc_set:forall s:set, Acc Rs s.
Lemma Rs_wf : well_founded Rs.
Lemma exds_Rs_Ds:
forall(s:set)(z:dart),
exds s z -> Rs (Ds s z) s.