fact: Definition enfa_star : enfa := {| enfa_s := [set None]; enfa_f := [set None]; enfa_trans c p q := match c,p,q with Some a,Some p', Some q' => q' \in nfa_trans p' a | None, Some p', None => p' \in nfa_fin A1 | None, None, Some s => s \in nfa_s A1 | _,_,_ => false end |}.
imports: mathcomp(all_ssreflect) RegLang(misc languages dfa)