fact: Fixpoint pure_part (e: regex'): regex' := match e with | r_pls e f => pure_part e + pure_part f | r_dot e f => eps e ⋅ pure_part f | r_str _ | r_one | r_zer => 0 | r_var _ => e end.
imports: syntax kleene boolean lang lset sums normalisation