simp at loop
nfa : NFA
next : Fin nfa.nodes.size
r : Expr
result : { nfa' // nfa.nodes.size < nfa'.nodes.size }
cs : List Char
eq : nfa.pushRegex next r.star = result
ev : (↑result).pathIn nfa.nodes.size nfa.nodes.size nfa.nodes.size cs
loop : if nfa.nodes.size = nfa.nodes.size then
  cs = [] ∨
    ∃ cs₁ cs₂,
      cs = cs₁ ++ cs₂ ∧ (↑result).pathToNext nfa.nodes.size (nfa.nodes.size + 1) (rStart_of eq) cs₁ ∧ starLoop eq cs₂
else
  ∃ cs₁ cs₂,
    cs = cs₁ ++ cs₂ ∧ (↑result).pathToNext nfa.nodes.size (nfa.nodes.size + 1) nfa.nodes.size cs₁ ∧ starLoop eq cs₂ :=
  intro' eq result.property rfl ev
⊢ starLoop eq cs
nfa : NFA
next : Fin nfa.nodes.size
r : Expr
result : { nfa' // nfa.nodes.size < nfa'.nodes.size }
cs : List Char
eq : nfa.pushRegex next r.star = result
ev : (↑result).pathIn nfa.nodes.size nfa.nodes.size nfa.nodes.size cs
loop :
  cs = [] ∨
    ∃ cs₁ cs₂,
      cs = cs₁ ++ cs₂ ∧ (↑result).pathToNext nfa.nodes.size (nfa.nodes.size + 1) (rStart_of eq) cs₁ ∧ starLoop eq cs₂
⊢ starLoop eq cs