fact: Fixpoint re_to_nfa (r : regexp char): nfa char := match r with | Void => dfa_to_nfa (dfa_void _) | Eps => nfa_eps _ | Atom a => nfa_char a | Star s => nfa_star (re_to_nfa s) | Plus s t => nfa_plus (re_to_nfa s) (re_to_nfa t) | Conc s t => nfa_conc (re_to_nfa s) (re_to_nfa t) end.
imports: HB(structures) mathcomp(all_ssreflect) RegLang(setoid_leq misc languages dfa nfa)