proposition: Lemma seq_wmin_eq r b (MAX: wmin_elt r b) : r ⨾ ⦗eq b⦘ ⊆ ⦗eq b⦘.
proof: Proof. eapply seq_wmin; unfold eqv_rel; ins; desf. Qed.
imports: HahnBase HahnList HahnSets HahnRelationsBasic HahnEquational HahnRewrite HahnMaxElt Arith Setoid