let r := constrRun w M.q₀
case mpr
α qs : Type
M : DFA α qs
w : Word { x // x ∈ M.Z }
qf : { x // x ∈ M.Q }
hdel : qf ∈ del_star M (M.q₀, w)
hf : qf ∈ M.F
⊢ w ∈ AcceptedLanguage M
case mpr
α qs : Type
M : DFA α qs
w : Word { x // x ∈ M.Z }
qf : { x // x ∈ M.Q }
hdel : qf ∈ del_star M (M.q₀, w)
hf : qf ∈ M.F
r : Option (NFA.Run (toNFA M) M.q₀ w) := constrRun w M.q₀
⊢ w ∈ AcceptedLanguage M