fact: Fixpoint ssf e := match e with | RegExp.plus a b => RegExp.plus (ssf a) (ssf b) | RegExp.dot a b => dot' (ssf a) (ssf b) | RegExp.star e => star' (remove (ssf e)) | e => e end.
imports: ATBR(Common) ATBR(Classes) ATBR(Graph) ATBR(SemiLattice) ATBR(Monoid) ATBR(SemiRing) ATBR(KleeneAlgebra) ATBR(Model_RegExp) Coq(Bool)