fact: Definition run X : form := All1 (All1(succ 0 1 --> Less 0 X.+2 --> \or_(paq \in [pred x : A * T * A | nfa_trans x.1.1 x.1.2 x.2]) let: (p,a,q) := paq in Incl 0 ((rank a).+1 + X).+2 :/\: Incl 0 (rank p).+2 :/\: Incl 1 (rank q).+2 )).
imports: mathcomp(all_ssreflect) RegLang(misc languages dfa nfa regexp)