unfold DFA.del_star_curried
α qs : Type
M : TotalDFA α qs
head✝ : { x // x ∈ M.Z }
tail✝ : List { x // x ∈ M.Z }
ih : ∀ {q : { x // x ∈ M.Q }}, DFA.del_star_curried M.toDFA tail✝ q = some (del_star' M (q, tail✝))
q : { x // x ∈ M.Q }
⊢ DFA.del_star_curried M.toDFA (head✝ :: tail✝) q = some (del_star' M (q, head✝ :: tail✝))
α qs : Type
M : TotalDFA α qs
head✝ : { x // x ∈ M.Z }
tail✝ : List { x // x ∈ M.Z }
ih : ∀ {q : { x // x ∈ M.Q }}, DFA.del_star_curried M.toDFA tail✝ q = some (del_star' M (q, tail✝))
q : { x // x ∈ M.Q }
⊢ M.δ (q, head✝) >>= DFA.del_star_curried M.toDFA tail✝ = some (del_star' M (q, head✝ :: tail✝))