Program Definition inter (s1 s2: t) : t := R.inter s1 s2.

(* Specifications: *)
Theorem In_inter: forall x s1 s2, In x (inter s1 s2) <-> In x s1 /\ In x s2.
Theorem In_inter: forall x s1 s2, In x (inter s1 s2) <-> In x s1 /\ In x s2.