proposition: Lemma seq_eqv_r A (r : relation A) dom : r ⨾ ⦗dom⦘ ≡ (fun x y => r x y /\ dom y).
proof: Proof. autounfold with unfolderDb; intuition; desf; eauto. Qed.
imports: Program.Basics Arith micromega.Lia Permutation List Setoid HahnBase HahnList HahnRelationsBasic HahnSets