proposition: Lemma star_plus_one: forall a: regex, (1+a)# == a#.
proof: Proof. intros. rewrite star_distr, star_one, dot_neutral_right, dot_neutral_left. reflexivity. Qed.
imports: ATBR(Common) ATBR(Classes) ATBR(Graph) ATBR(SemiLattice) ATBR(Monoid) ATBR(SemiRing) ATBR(KleeneAlgebra) ATBR(Model_RegExp) Coq(Bool)