Theorem: Regex.NFA.matches_of_path.group
Proof state before:
case intro.intro.intro.intro.intro.step.εStep.step
nfa : NFA
next : Fin nfa.nodes.size
i : ℕ
r : Expr
result : { nfa' // nfa.nodes.size < nfa'.nodes.size }
cs : List Char
eq✝ : nfa.pushRegex next (Expr.group i r) = result
ih :
  ∀ {nfa : NFA} {next : Fin nfa.nodes.size} {result : { nfa' // nfa.nodes.size < nfa'.nodes.size }} {cs : List Char},
    nfa.pushRegex next r = result →
      (↑result).pathToNext (↑next) nfa.nodes.size (↑(↑result).start) cs → Expr.matches cs r
nfa' : { nfa' // nfa.nodes.size < nfa'.nodes.size }
nfa'' : { nfa'_1 // (↑nfa').nodes.size < nfa'_1.nodes.size }
nfa''' : { nfa'_1 // (↑nfa'').nodes.size < nfa'_1.nodes.size }
property : nfa.nodes.size < (↑nfa''').nodes.size
inBounds'✝ : (Node.save (2 * i + 1) ↑next).inBounds (nfa.nodes.size + 1)
inBounds'''✝ : (Node.save (2 * i) ↑(↑nfa'').start).inBounds ((↑nfa'').nodes.size + 1)
eq₁ : nfa' = nfa.pushNode (Node.save (2 * i + 1) ↑next) inBounds'✝
eq₂ : nfa'' = (↑nfa').pushRegex (↑nfa').start r
eq₃ : nfa''' = (↑nfa'').pushNode (Node.save (2 * i) ↑(↑nfa'').start) inBounds'''✝
eq : result = ⟨↑nfa''', property⟩
i' : ℕ
cs₂✝¹ : List Char
step✝ : (↑nfa''').stepIn nfa.nodes.size i' (↑next) cs₂✝¹
heq : i' = nfa.nodes.size ∧ cs₂✝¹ = []
cs₂ : List Char
eqStart : (↑nfa''')[↑(↑nfa''').start] = Node.save (2 * i) ↑(↑nfa'').start
h₁✝ : nfa.nodes.size ≤ ↑(↑nfa''').start
h₂✝ : ↑(↑nfa''').start < (↑nfa''').nodes.size
eqs✝ : cs = [] ++ cs₂ ++ cs₂✝¹
rest✝ : (↑nfa''').pathIn nfa.nodes.size (↑(↑nfa'').start) i' cs₂
this : (↑nfa'').pathIn nfa.nodes.size (↑(↑nfa'').start) i' cs₂
cs₃ : List Char
path' : (↑nfa'').pathToNext (↑(↑nfa').start) (↑nfa').nodes.size (↑(↑nfa'').start) cs₃
j✝ : ℕ
cs₁✝ cs₂✝ : List Char
step : (↑nfa'').stepIn nfa.nodes.size (↑(↑nfa').start) j✝ cs₁✝
rest : (↑nfa'').pathIn nfa.nodes.size j✝ i' cs₂✝
eqs : cs₂ = cs₃ ++ (cs₁✝ ++ cs₂✝)
⊢ (↑nfa'').pathToNext (↑(↑nfa').start) (↑nfa').nodes.size (↑(↑nfa'').start) cs₂
Tactic:
have : nfa'.val.start.val < nfa''.val.nodes.size :=
  Nat.lt_trans nfa'.val.start.isLt nfa''.property
Proof state after:
case intro.intro.intro.intro.intro.step.εStep.step
nfa : NFA
next : Fin nfa.nodes.size
i : ℕ
r : Expr
result : { nfa' // nfa.nodes.size < nfa'.nodes.size }
cs : List Char
eq✝ : nfa.pushRegex next (Expr.group i r) = result
ih :
  ∀ {nfa : NFA} {next : Fin nfa.nodes.size} {result : { nfa' // nfa.nodes.size < nfa'.nodes.size }} {cs : List Char},
    nfa.pushRegex next r = result →
      (↑result).pathToNext (↑next) nfa.nodes.size (↑(↑result).start) cs → Expr.matches cs r
nfa' : { nfa' // nfa.nodes.size < nfa'.nodes.size }
nfa'' : { nfa'_1 // (↑nfa').nodes.size < nfa'_1.nodes.size }
nfa''' : { nfa'_1 // (↑nfa'').nodes.size < nfa'_1.nodes.size }
property : nfa.nodes.size < (↑nfa''').nodes.size
inBounds'✝ : (Node.save (2 * i + 1) ↑next).inBounds (nfa.nodes.size + 1)
inBounds'''✝ : (Node.save (2 * i) ↑(↑nfa'').start).inBounds ((↑nfa'').nodes.size + 1)
eq₁ : nfa' = nfa.pushNode (Node.save (2 * i + 1) ↑next) inBounds'✝
eq₂ : nfa'' = (↑nfa').pushRegex (↑nfa').start r
eq₃ : nfa''' = (↑nfa'').pushNode (Node.save (2 * i) ↑(↑nfa'').start) inBounds'''✝
eq : result = ⟨↑nfa''', property⟩
i' : ℕ
cs₂✝¹ : List Char
step✝ : (↑nfa''').stepIn nfa.nodes.size i' (↑next) cs₂✝¹
heq : i' = nfa.nodes.size ∧ cs₂✝¹ = []
cs₂ : List Char
eqStart : (↑nfa''')[↑(↑nfa''').start] = Node.save (2 * i) ↑(↑nfa'').start
h₁✝ : nfa.nodes.size ≤ ↑(↑nfa''').start
h₂✝ : ↑(↑nfa''').start < (↑nfa''').nodes.size
eqs✝ : cs = [] ++ cs₂ ++ cs₂✝¹
rest✝ : (↑nfa''').pathIn nfa.nodes.size (↑(↑nfa'').start) i' cs₂
this✝ : (↑nfa'').pathIn nfa.nodes.size (↑(↑nfa'').start) i' cs₂
cs₃ : List Char
path' : (↑nfa'').pathToNext (↑(↑nfa').start) (↑nfa').nodes.size (↑(↑nfa'').start) cs₃
j✝ : ℕ
cs₁✝ cs₂✝ : List Char
step : (↑nfa'').stepIn nfa.nodes.size (↑(↑nfa').start) j✝ cs₁✝
rest : (↑nfa'').pathIn nfa.nodes.size j✝ i' cs₂✝
eqs : cs₂ = cs₃ ++ (cs₁✝ ++ cs₂✝)
this : ↑(↑nfa').start < (↑nfa'').nodes.size
⊢ (↑nfa'').pathToNext (↑(↑nfa').start) (↑nfa').nodes.size (↑(↑nfa'').start) cs₂