fact: Definition read (q:A) (n : pos) : {set (A * dir)} := match ord2P n with | Ord20 _ => setX (nfa2_transL q) [set R] | Ord2M _ => setX (nfa2_transR q) [set L] | Ord2C m' _ => nfa2_trans q (tnth tape m') end.
imports: mathcomp(all_ssreflect) RegLang(misc languages dfa regexp myhill_nerode)