fact: Definition enfa_for_ltn n X Y : enfa (vec n) := {| enfa_s := [set false]; enfa_f := setT; enfa_trans := fun (c : option (vec n)) p q => match p,c,q with | false, Some a, false => ~~ nth false a Y | true, Some a, true => ~~ nth false a X | false, None, true => true | _,_,_ => false end; |}.
imports: mathcomp(all_ssreflect) RegLang(misc languages dfa nfa regexp)