fact: Definition nfa_plus (N M : nfa) := {| nfa_s := [set q | match q with inl q => q \in nfa_s N | inr q => q \in nfa_s M end ]; nfa_fin := [set q | match q with inl q => q \in nfa_fin N | inr q => q \in nfa_fin M end ]; nfa_trans p a q := match p,a,q with | inl p,a,inl q => nfa_trans p a q | inr p,a,inr q => nfa_trans p a q | _,_,_ => false end |}.
imports: mathcomp(all_ssreflect) RegLang(misc languages dfa)