proposition: Theorem ssf_correct: forall a: regex, ssf a == a.
proof: Proof. induction a; trivial; simpl; fold_regex; auto with compat. rewrite dot'_dot. auto with compat. rewrite star'_star. rewrite star_remove. auto with compat. Qed.
imports: ATBR(Common) ATBR(Classes) ATBR(Graph) ATBR(SemiLattice) ATBR(Monoid) ATBR(SemiRing) ATBR(KleeneAlgebra) ATBR(Model_RegExp) Coq(Bool)