fact: Definition nfa_of := {| nfa_s := [set X : {set M} * {set M} | (nfa2_s M \in X.2) & compL X.1 X.2]; nfa_fin := [set X : {set M} * {set M} | [disjoint (nfa2_f M) & X.2] & compR X.1 X.2]; nfa_trans X a Y := (X.2 == Y.1) && comp a X.1 X.2 Y.2 |}.
imports: mathcomp(all_ssreflect) RegLang(misc languages nfa two_way)