proposition: Lemma seq_ct_absorb_rt r r' (T: transitive r') : r⁺ ⨾ r' ⊆ r' ∪ r＊ ⨾ (r \ r') ⨾ r'.
proof: Proof. by rewrite seq_ct_absorb_r, minus_seq_r. Qed.
imports: Arith micromega.Lia HahnBase HahnList HahnRelationsBasic HahnEquational HahnMaxElt HahnRewrite HahnDom HahnMinPath