fact: Fixpoint rewrite (x: regex): regex := match x with | dot x y => cleaning_dot (rewrite x) (rewrite y) | plus x y => cleaning_plus (rewrite x) (rewrite y) | star x => cleaning_star (rewrite x) | x => x end.
imports: ATBR(Common) ATBR(Classes) ATBR(Graph) ATBR(SemiLattice) ATBR(SemiRing) ATBR(KleeneAlgebra) ATBR(MxGraph) ATBR(Reification)