(* This file is copied from RamifyCoq project. *)
Require Coq.Setoids.Setoid.
Require Export Coq.Classes.Equivalence.
Require Export Coq.Sets.Ensembles.
intros.
split; intros [].
Qed.
Arguments Included {U} B C.
Arguments Same_set {U} B C.

Lemma Intersection_Union_distr_l: forall A P Q R,
Same_set (Intersection A (Union A Q R) P)
(Union A (Intersection A Q P) (Intersection A R P)).