fact: Fixpoint enfa (e: regex'): t := match e with | r_zer => zer | r_one => one | r_var _ => cst e | r_pls e f => pls (enfa e) (enfa f) | r_dot e f => dot (enfa e) (enfa f) | r_str e => str (enfa e) end.
imports: kleene sums matrix_ext lset boolean lang nfa regex bmx rmx normalisation