have := le_of_pathIn_left rest
case step.charStep
cls : Data.Classes
nfa : NFA
next : Fin nfa.nodes.size
result : { nfa' // nfa.nodes.size < nfa'.nodes.size }
cs : List Char
eq✝ : nfa.pushRegex next (Expr.classes cls) = result
eq : result = nfa.pushNode (Node.sparse cls ↑next) ⋯
i : ℕ
scs : List Char
c : Char
h₂✝¹ : i < (↑(nfa.pushNode (Node.sparse cls ↑next) ⋯)).nodes.size
step✝¹ : (↑(nfa.pushNode (Node.sparse cls ↑next) ⋯)).stepIn nfa.nodes.size nfa.nodes.size (↑next) scs
this✝ this h₁✝¹ : True
step✝ : c ∈ cls
j✝ : ℕ
cs₂✝ : List Char
rest : (↑(nfa.pushNode (Node.sparse cls ↑next) ⋯)).pathIn nfa.nodes.size j✝ nfa.nodes.size cs₂✝
c✝ : Char
h₁✝ : nfa.nodes.size ≤ nfa.nodes.size
h₂✝ : nfa.nodes.size < (↑(nfa.pushNode (Node.sparse cls ↑next) ⋯)).nodes.size
eqs : cs = [c✝] ++ cs₂✝ ++ [c]
step : c✝ ∈ cls ∧ j✝ = ↑next
⊢ Expr.matches cs (Expr.classes cls)
case step.charStep
cls : Data.Classes
nfa : NFA
next : Fin nfa.nodes.size
result : { nfa' // nfa.nodes.size < nfa'.nodes.size }
cs : List Char
eq✝ : nfa.pushRegex next (Expr.classes cls) = result
eq : result = nfa.pushNode (Node.sparse cls ↑next) ⋯
i : ℕ
scs : List Char
c : Char
h₂✝¹ : i < (↑(nfa.pushNode (Node.sparse cls ↑next) ⋯)).nodes.size
step✝¹ : (↑(nfa.pushNode (Node.sparse cls ↑next) ⋯)).stepIn nfa.nodes.size nfa.nodes.size (↑next) scs
this✝¹ this✝ h₁✝¹ : True
step✝ : c ∈ cls
j✝ : ℕ
cs₂✝ : List Char
rest : (↑(nfa.pushNode (Node.sparse cls ↑next) ⋯)).pathIn nfa.nodes.size j✝ nfa.nodes.size cs₂✝
c✝ : Char
h₁✝ : nfa.nodes.size ≤ nfa.nodes.size
h₂✝ : nfa.nodes.size < (↑(nfa.pushNode (Node.sparse cls ↑next) ⋯)).nodes.size
eqs : cs = [c✝] ++ cs₂✝ ++ [c]
step : c✝ ∈ cls ∧ j✝ = ↑next
this : nfa.nodes.size ≤ j✝
⊢ Expr.matches cs (Expr.classes cls)