proposition: Lemma epsilon_rt_add_one: forall i j A s t, epsilon_rt (add_one i j A) s t -> epsilon_rt A s t \/ epsilon_rt A s i /\ epsilon_rt A j t.
proof: Proof. intros. destruct (rt_t H) as [?|H']. subst. left. constructor 2. destruct (epsilon_t_add_one H'); auto using t_rt. Qed.
imports: ATBR(Common) ATBR(Classes) ATBR(Graph) ATBR(Monoid) ATBR(SemiLattice) ATBR(SemiRing) ATBR(KleeneAlgebra) ATBR(MxGraph) ATBR(MxSemiLattice) ATBR(MxSemiRing) ATBR(MxKleeneAlgebra) ATBR(DKA_Definitions) ATBR(DKA_CheckLabels) ATBR(StrictStarForm) ATBR(Utils_WF) Coq(Relations)