proposition: Lemma step_dom (E: r ⊆ (⦗d⦘ ∪ ⦗d'⦘) ⨾ r ⨾ (⦗d⦘ ∪ ⦗d'⦘)) dd (DD: dd = ⦗d⦘ ⨾ r ⨾ ⦗d⦘) de (DE: de = ⦗d⦘ ⨾ r ⨾ ⦗d'⦘) ed (ED: ed = ⦗d'⦘ ⨾ r ⨾ ⦗d⦘) ee (EE: ee = ⦗d'⦘ ⨾ r ⨾ ⦗d'⦘) : r ⊆ dd ∪ de ∪ ed ∪ ee.
proof: Proof. rewrite E; subst; basic_solver 8. Qed.
imports: HahnBase HahnSets HahnRelationsBasic HahnEquational HahnRewrite Setoid