proposition: Lemma seq_eqv_inter_lr A S (r r' : relation A) : (r ⨾ ⦗S⦘) ∩ r' ≡ r ∩ r' ⨾ ⦗S⦘.
proof: Proof. autounfold with unfolderDb; intuition; desf; eauto. Qed.
imports: Program.Basics Arith micromega.Lia Permutation List Setoid HahnBase HahnList HahnRelationsBasic HahnSets