proposition: Lemma star_destruct_right_old A B: forall (a: X A A) (b c: X B A), b+c*a <== c -> b*a# <== c.
proof: Proof. intros; transitivity (c*a#). rewrite <- H; semiring_reflexivity. apply star_destruct_right. rewrite <- H at -1; auto with algebra. Qed.
imports: ATBR(Common) ATBR(Classes) ATBR(Graph) ATBR(Monoid) ATBR(SemiLattice) ATBR(SemiRing)