l3lab/ntp-mathlib huggingface dataset:
theorem ltb_cons_addChar (c : Char) (cs₁ cs₂ : List Char) (i₁ i₂ : Pos) :
    ltb ⟨⟨c :: cs₁⟩, i₁ + c⟩ ⟨⟨c :: cs₂⟩, i₂ + c⟩ = ltb ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ := by
  apply ltb.inductionOn ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ (motive := fun ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ ↦
    ltb ⟨⟨c :: cs₁⟩, i₁ + c⟩ ⟨⟨c :: cs₂⟩, i₂ + c⟩ =
    ltb ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩) <;> simp <;>
  intro ⟨cs₁⟩ ⟨cs₂⟩ i₁ i₂ <;>
  intros <;>
  (conv => lhs; rw [ltb]) <;> (

Proof state:
case base₁
c : Char
cs₁✝ cs₂✝ : List Char
i₁✝ i₂✝ : Pos
cs₁ cs₂ : List Char
i₁ i₂ : Pos
a✝¹ : Iterator.hasNext { s := { data := cs₂ }, i := i₂ } = true
a✝ : Iterator.hasNext { s := { data := cs₁ }, i := i₁ } = false
⊢ (if Iterator.hasNext { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c } = true then
      if Iterator.hasNext { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } = true then
        if
            Iterator.curr { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } =
              Iterator.curr { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c } then
          ltb (Iterator.next { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c })
            (Iterator.next { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c })
        else
          decide
            (Iterator.curr { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } <
              Iterator.curr { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c })
      else true
    else false) =
    ltb { s := { data := { data := cs₁ }.data }, i := i₁ } { s := { data := { data := cs₂ }.data }, i := i₂ }

Next tactic:
conv => rhs; rw [ltb]
theorem ltb_cons_addChar (c : Char) (cs₁ cs₂ : List Char) (i₁ i₂ : Pos) :
    ltb ⟨⟨c :: cs₁⟩, i₁ + c⟩ ⟨⟨c :: cs₂⟩, i₂ + c⟩ = ltb ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ := by
  apply ltb.inductionOn ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ (motive := fun ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ ↦
    ltb ⟨⟨c :: cs₁⟩, i₁ + c⟩ ⟨⟨c :: cs₂⟩, i₂ + c⟩ =
    ltb ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩) <;> simp <;>
  intro ⟨cs₁⟩ ⟨cs₂⟩ i₁ i₂ <;>
  intros <;>
  (conv => lhs; rw [ltb]) <;> (conv => 

Proof state:
c : Char
cs₁✝ cs₂✝ : List Char
i₁✝ i₂✝ : Pos
cs₁ cs₂ : List Char
i₁ i₂ : Pos
a✝¹ : Iterator.hasNext { s := { data := cs₂ }, i := i₂ } = true
a✝ : Iterator.hasNext { s := { data := cs₁ }, i := i₁ } = false
| (if Iterator.hasNext { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c } = true then
      if Iterator.hasNext { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } = true then
        if
            Iterator.curr { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } =
              Iterator.curr { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c } then
          ltb (Iterator.next { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c })
            (Iterator.next { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c })
        else
          decide
            (Iterator.curr { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } <
              Iterator.curr { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c })
      else true
    else false) =
    ltb { s := { data := { data := cs₁ }.data }, i := i₁ } { s := { data := { data := cs₂ }.data }, i := i₂ }

Next tactic:
rhs; rw [ltb]
theorem ltb_cons_addChar (c : Char) (cs₁ cs₂ : List Char) (i₁ i₂ : Pos) :
    ltb ⟨⟨c :: cs₁⟩, i₁ + c⟩ ⟨⟨c :: cs₂⟩, i₂ + c⟩ = ltb ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ := by
  apply ltb.inductionOn ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ (motive := fun ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ ↦
    ltb ⟨⟨c :: cs₁⟩, i₁ + c⟩ ⟨⟨c :: cs₂⟩, i₂ + c⟩ =
    ltb ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩) <;> simp <;>
  intro ⟨cs₁⟩ ⟨cs₂⟩ i₁ i₂ <;>
  intros <;>
  (conv => lhs; rw [ltb]) <;> (conv => 

Proof state:
c : Char
cs₁✝ cs₂✝ : List Char
i₁✝ i₂✝ : Pos
cs₁ cs₂ : List Char
i₁ i₂ : Pos
a✝¹ : Iterator.hasNext { s := { data := cs₂ }, i := i₂ } = true
a✝ : Iterator.hasNext { s := { data := cs₁ }, i := i₁ } = false
| (if Iterator.hasNext { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c } = true then
      if Iterator.hasNext { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } = true then
        if
            Iterator.curr { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } =
              Iterator.curr { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c } then
          ltb (Iterator.next { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c })
            (Iterator.next { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c })
        else
          decide
            (Iterator.curr { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } <
              Iterator.curr { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c })
      else true
    else false) =
    ltb { s := { data := { data := cs₁ }.data }, i := i₁ } { s := { data := { data := cs₂ }.data }, i := i₂ }

Next tactic:
rhs
theorem ltb_cons_addChar (c : Char) (cs₁ cs₂ : List Char) (i₁ i₂ : Pos) :
    ltb ⟨⟨c :: cs₁⟩, i₁ + c⟩ ⟨⟨c :: cs₂⟩, i₂ + c⟩ = ltb ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ := by
  apply ltb.inductionOn ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ (motive := fun ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ ↦
    ltb ⟨⟨c :: cs₁⟩, i₁ + c⟩ ⟨⟨c :: cs₂⟩, i₂ + c⟩ =
    ltb ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩) <;> simp <;>
  intro ⟨cs₁⟩ ⟨cs₂⟩ i₁ i₂ <;>
  intros <;>
  (conv => lhs; rw [ltb]) <;> (conv => rhs; 

Proof state:
c : Char
cs₁✝ cs₂✝ : List Char
i₁✝ i₂✝ : Pos
cs₁ cs₂ : List Char
i₁ i₂ : Pos
a✝¹ : Iterator.hasNext { s := { data := cs₂ }, i := i₂ } = true
a✝ : Iterator.hasNext { s := { data := cs₁ }, i := i₁ } = false
| ltb { s := { data := { data := cs₁ }.data }, i := i₁ } { s := { data := { data := cs₂ }.data }, i := i₂ }

Next tactic:
rw [ltb]
theorem ltb_cons_addChar (c : Char) (cs₁ cs₂ : List Char) (i₁ i₂ : Pos) :
    ltb ⟨⟨c :: cs₁⟩, i₁ + c⟩ ⟨⟨c :: cs₂⟩, i₂ + c⟩ = ltb ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ := by
  apply ltb.inductionOn ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ (motive := fun ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ ↦
    ltb ⟨⟨c :: cs₁⟩, i₁ + c⟩ ⟨⟨c :: cs₂⟩, i₂ + c⟩ =
    ltb ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩) <;> simp <;>
  intro ⟨cs₁⟩ ⟨cs₂⟩ i₁ i₂ <;>
  intros <;>
  (conv => lhs; rw [ltb]) <;> (

Proof state:
case base₂
c : Char
cs₁✝ cs₂✝ : List Char
i₁✝ i₂✝ : Pos
cs₁ cs₂ : List Char
i₁ i₂ : Pos
a✝ : Iterator.hasNext { s := { data := cs₂ }, i := i₂ } = false
⊢ (if Iterator.hasNext { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c } = true then
      if Iterator.hasNext { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } = true then
        if
            Iterator.curr { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } =
              Iterator.curr { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c } then
          ltb (Iterator.next { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c })
            (Iterator.next { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c })
        else
          decide
            (Iterator.curr { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } <
              Iterator.curr { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c })
      else true
    else false) =
    ltb { s := { data := { data := cs₁ }.data }, i := i₁ } { s := { data := { data := cs₂ }.data }, i := i₂ }

Next tactic:
conv => rhs; rw [ltb]
theorem ltb_cons_addChar (c : Char) (cs₁ cs₂ : List Char) (i₁ i₂ : Pos) :
    ltb ⟨⟨c :: cs₁⟩, i₁ + c⟩ ⟨⟨c :: cs₂⟩, i₂ + c⟩ = ltb ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ := by
  apply ltb.inductionOn ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ (motive := fun ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ ↦
    ltb ⟨⟨c :: cs₁⟩, i₁ + c⟩ ⟨⟨c :: cs₂⟩, i₂ + c⟩ =
    ltb ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩) <;> simp <;>
  intro ⟨cs₁⟩ ⟨cs₂⟩ i₁ i₂ <;>
  intros <;>
  (conv => lhs; rw [ltb]) <;> (conv => 

Proof state:
c : Char
cs₁✝ cs₂✝ : List Char
i₁✝ i₂✝ : Pos
cs₁ cs₂ : List Char
i₁ i₂ : Pos
a✝ : Iterator.hasNext { s := { data := cs₂ }, i := i₂ } = false
| (if Iterator.hasNext { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c } = true then
      if Iterator.hasNext { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } = true then
        if
            Iterator.curr { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } =
              Iterator.curr { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c } then
          ltb (Iterator.next { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c })
            (Iterator.next { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c })
        else
          decide
            (Iterator.curr { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } <
              Iterator.curr { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c })
      else true
    else false) =
    ltb { s := { data := { data := cs₁ }.data }, i := i₁ } { s := { data := { data := cs₂ }.data }, i := i₂ }

Next tactic:
rhs; rw [ltb]
theorem ltb_cons_addChar (c : Char) (cs₁ cs₂ : List Char) (i₁ i₂ : Pos) :
    ltb ⟨⟨c :: cs₁⟩, i₁ + c⟩ ⟨⟨c :: cs₂⟩, i₂ + c⟩ = ltb ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ := by
  apply ltb.inductionOn ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ (motive := fun ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ ↦
    ltb ⟨⟨c :: cs₁⟩, i₁ + c⟩ ⟨⟨c :: cs₂⟩, i₂ + c⟩ =
    ltb ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩) <;> simp <;>
  intro ⟨cs₁⟩ ⟨cs₂⟩ i₁ i₂ <;>
  intros <;>
  (conv => lhs; rw [ltb]) <;> (conv => 

Proof state:
c : Char
cs₁✝ cs₂✝ : List Char
i₁✝ i₂✝ : Pos
cs₁ cs₂ : List Char
i₁ i₂ : Pos
a✝ : Iterator.hasNext { s := { data := cs₂ }, i := i₂ } = false
| (if Iterator.hasNext { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c } = true then
      if Iterator.hasNext { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } = true then
        if
            Iterator.curr { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } =
              Iterator.curr { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c } then
          ltb (Iterator.next { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c })
            (Iterator.next { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c })
        else
          decide
            (Iterator.curr { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } <
              Iterator.curr { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c })
      else true
    else false) =
    ltb { s := { data := { data := cs₁ }.data }, i := i₁ } { s := { data := { data := cs₂ }.data }, i := i₂ }

Next tactic:
rhs
theorem ltb_cons_addChar (c : Char) (cs₁ cs₂ : List Char) (i₁ i₂ : Pos) :
    ltb ⟨⟨c :: cs₁⟩, i₁ + c⟩ ⟨⟨c :: cs₂⟩, i₂ + c⟩ = ltb ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ := by
  apply ltb.inductionOn ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ (motive := fun ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ ↦
    ltb ⟨⟨c :: cs₁⟩, i₁ + c⟩ ⟨⟨c :: cs₂⟩, i₂ + c⟩ =
    ltb ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩) <;> simp <;>
  intro ⟨cs₁⟩ ⟨cs₂⟩ i₁ i₂ <;>
  intros <;>
  (conv => lhs; rw [ltb]) <;> (conv => rhs; 

Proof state:
c : Char
cs₁✝ cs₂✝ : List Char
i₁✝ i₂✝ : Pos
cs₁ cs₂ : List Char
i₁ i₂ : Pos
a✝ : Iterator.hasNext { s := { data := cs₂ }, i := i₂ } = false
| ltb { s := { data := { data := cs₁ }.data }, i := i₁ } { s := { data := { data := cs₂ }.data }, i := i₂ }

Next tactic:
rw [ltb]
theorem ltb_cons_addChar (c : Char) (cs₁ cs₂ : List Char) (i₁ i₂ : Pos) :
    ltb ⟨⟨c :: cs₁⟩, i₁ + c⟩ ⟨⟨c :: cs₂⟩, i₂ + c⟩ = ltb ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ := by
  apply ltb.inductionOn ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ (motive := fun ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ ↦
    ltb ⟨⟨c :: cs₁⟩, i₁ + c⟩ ⟨⟨c :: cs₂⟩, i₂ + c⟩ =
    ltb ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩) <;> simp <;>
  intro ⟨cs₁⟩ ⟨cs₂⟩ i₁ i₂ <;>
  intros <;>
  (conv => lhs; rw [ltb]) <;> (conv => rhs; rw [ltb]) <;>
  

Proof state:
case ind
c : Char
cs₁✝ cs₂✝ : List Char
i₁✝ i₂✝ : Pos
cs₁ cs₂ : List Char
i₁ i₂ : Pos
a✝³ : Iterator.hasNext { s := { data := cs₂ }, i := i₂ } = true
a✝² : Iterator.hasNext { s := { data := cs₁ }, i := i₁ } = true
a✝¹ : get { data := cs₁ } i₁ = get { data := cs₂ } i₂
a✝ :
  ltb
      { s := { data := c :: (Iterator.next { s := { data := cs₁ }, i := i₁ }).1.data },
        i := (Iterator.next { s := { data := cs₁ }, i := i₁ }).i + c }
      { s := { data := c :: (Iterator.next { s := { data := cs₂ }, i := i₂ }).1.data },
        i := (Iterator.next { s := { data := cs₂ }, i := i₂ }).i + c } =
    ltb
      { s := { data := (Iterator.next { s := { data := cs₁ }, i := i₁ }).1.data },
        i := (Iterator.next { s := { data := cs₁ }, i := i₁ }).i }
      { s := { data := (Iterator.next { s := { data := cs₂ }, i := i₂ }).1.data },
        i := (Iterator.next { s := { data := cs₂ }, i := i₂ }).i }
⊢ (if Iterator.hasNext { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c } = true then
      if Iterator.hasNext { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } = true then
        if
            Iterator.curr { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } =
              Iterator.curr { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c } then
          ltb (Iterator.next { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c })
            (Iterator.next { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c })
        else
          decide
            (Iterator.curr { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } <
              Iterator.curr { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c })
      else true
    else false) =
    if Iterator.hasNext { s := { data := { data := cs₂ }.data }, i := i₂ } = true then
      if Iterator.hasNext { s := { data := { data := cs₁ }.data }, i := i₁ } = true then
        if
            Iterator.curr { s := { data := { data := cs₁ }.data }, i := i₁ } =
              Iterator.curr { s := { data := { data := cs₂ }.data }, i := i₂ } then
          ltb (Iterator.next { s := { data := { data := cs₁ }.data }, i := i₁ })
            (Iterator.next { s := { data := { data := cs₂ }.data }, i := i₂ })
        else
          decide
            (Iterator.curr { s := { data := { data := cs₁ }.data }, i := i₁ } <
              Iterator.curr { s := { data := { data := cs₂ }.data }, i := i₂ })
      else true
    else false

Next tactic:
simp only [Iterator.hasNext_cons_addChar, ite_false, ite_true, *]
theorem ltb_cons_addChar (c : Char) (cs₁ cs₂ : List Char) (i₁ i₂ : Pos) :
    ltb ⟨⟨c :: cs₁⟩, i₁ + c⟩ ⟨⟨c :: cs₂⟩, i₂ + c⟩ = ltb ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ := by
  apply ltb.inductionOn ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ (motive := fun ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ ↦
    ltb ⟨⟨c :: cs₁⟩, i₁ + c⟩ ⟨⟨c :: cs₂⟩, i₂ + c⟩ =
    ltb ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩) <;> simp <;>
  intro ⟨cs₁⟩ ⟨cs₂⟩ i₁ i₂ <;>
  intros <;>
  (conv => lhs; rw [ltb]) <;> (conv => rhs; rw [ltb]) <;>
  

Proof state:
case eq
c : Char
cs₁✝ cs₂✝ : List Char
i₁✝ i₂✝ : Pos
cs₁ cs₂ : List Char
i₁ i₂ : Pos
a✝² : Iterator.hasNext { s := { data := cs₂ }, i := i₂ } = true
a✝¹ : Iterator.hasNext { s := { data := cs₁ }, i := i₁ } = true
a✝ : ¬get { data := cs₁ } i₁ = get { data := cs₂ } i₂
⊢ (if Iterator.hasNext { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c } = true then
      if Iterator.hasNext { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } = true then
        if
            Iterator.curr { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } =
              Iterator.curr { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c } then
          ltb (Iterator.next { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c })
            (Iterator.next { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c })
        else
          decide
            (Iterator.curr { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } <
              Iterator.curr { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c })
      else true
    else false) =
    if Iterator.hasNext { s := { data := { data := cs₂ }.data }, i := i₂ } = true then
      if Iterator.hasNext { s := { data := { data := cs₁ }.data }, i := i₁ } = true then
        if
            Iterator.curr { s := { data := { data := cs₁ }.data }, i := i₁ } =
              Iterator.curr { s := { data := { data := cs₂ }.data }, i := i₂ } then
          ltb (Iterator.next { s := { data := { data := cs₁ }.data }, i := i₁ })
            (Iterator.next { s := { data := { data := cs₂ }.data }, i := i₂ })
        else
          decide
            (Iterator.curr { s := { data := { data := cs₁ }.data }, i := i₁ } <
              Iterator.curr { s := { data := { data := cs₂ }.data }, i := i₂ })
      else true
    else false

Next tactic:
simp only [Iterator.hasNext_cons_addChar, ite_false, ite_true, *]
theorem ltb_cons_addChar (c : Char) (cs₁ cs₂ : List Char) (i₁ i₂ : Pos) :
    ltb ⟨⟨c :: cs₁⟩, i₁ + c⟩ ⟨⟨c :: cs₂⟩, i₂ + c⟩ = ltb ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ := by
  apply ltb.inductionOn ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ (motive := fun ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ ↦
    ltb ⟨⟨c :: cs₁⟩, i₁ + c⟩ ⟨⟨c :: cs₂⟩, i₂ + c⟩ =
    ltb ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩) <;> simp <;>
  intro ⟨cs₁⟩ ⟨cs₂⟩ i₁ i₂ <;>
  intros <;>
  (conv => lhs; rw [ltb]) <;> (conv => rhs; rw [ltb]) <;>
  

Proof state:
case base₁
c : Char
cs₁✝ cs₂✝ : List Char
i₁✝ i₂✝ : Pos
cs₁ cs₂ : List Char
i₁ i₂ : Pos
a✝¹ : Iterator.hasNext { s := { data := cs₂ }, i := i₂ } = true
a✝ : Iterator.hasNext { s := { data := cs₁ }, i := i₁ } = false
⊢ (if Iterator.hasNext { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c } = true then
      if Iterator.hasNext { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } = true then
        if
            Iterator.curr { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } =
              Iterator.curr { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c } then
          ltb (Iterator.next { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c })
            (Iterator.next { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c })
        else
          decide
            (Iterator.curr { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } <
              Iterator.curr { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c })
      else true
    else false) =
    if Iterator.hasNext { s := { data := { data := cs₂ }.data }, i := i₂ } = true then
      if Iterator.hasNext { s := { data := { data := cs₁ }.data }, i := i₁ } = true then
        if
            Iterator.curr { s := { data := { data := cs₁ }.data }, i := i₁ } =
              Iterator.curr { s := { data := { data := cs₂ }.data }, i := i₂ } then
          ltb (Iterator.next { s := { data := { data := cs₁ }.data }, i := i₁ })
            (Iterator.next { s := { data := { data := cs₂ }.data }, i := i₂ })
        else
          decide
            (Iterator.curr { s := { data := { data := cs₁ }.data }, i := i₁ } <
              Iterator.curr { s := { data := { data := cs₂ }.data }, i := i₂ })
      else true
    else false

Next tactic:
simp only [Iterator.hasNext_cons_addChar, ite_false, ite_true, *]
theorem ltb_cons_addChar (c : Char) (cs₁ cs₂ : List Char) (i₁ i₂ : Pos) :
    ltb ⟨⟨c :: cs₁⟩, i₁ + c⟩ ⟨⟨c :: cs₂⟩, i₂ + c⟩ = ltb ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ := by
  apply ltb.inductionOn ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ (motive := fun ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ ↦
    ltb ⟨⟨c :: cs₁⟩, i₁ + c⟩ ⟨⟨c :: cs₂⟩, i₂ + c⟩ =
    ltb ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩) <;> simp <;>
  intro ⟨cs₁⟩ ⟨cs₂⟩ i₁ i₂ <;>
  intros <;>
  (conv => lhs; rw [ltb]) <;> (conv => rhs; rw [ltb]) <;>
  

Proof state:
case base₂
c : Char
cs₁✝ cs₂✝ : List Char
i₁✝ i₂✝ : Pos
cs₁ cs₂ : List Char
i₁ i₂ : Pos
a✝ : Iterator.hasNext { s := { data := cs₂ }, i := i₂ } = false
⊢ (if Iterator.hasNext { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c } = true then
      if Iterator.hasNext { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } = true then
        if
            Iterator.curr { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } =
              Iterator.curr { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c } then
          ltb (Iterator.next { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c })
            (Iterator.next { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c })
        else
          decide
            (Iterator.curr { s := { data := c :: { data := cs₁ }.data }, i := i₁ + c } <
              Iterator.curr { s := { data := c :: { data := cs₂ }.data }, i := i₂ + c })
      else true
    else false) =
    if Iterator.hasNext { s := { data := { data := cs₂ }.data }, i := i₂ } = true then
      if Iterator.hasNext { s := { data := { data := cs₁ }.data }, i := i₁ } = true then
        if
            Iterator.curr { s := { data := { data := cs₁ }.data }, i := i₁ } =
              Iterator.curr { s := { data := { data := cs₂ }.data }, i := i₂ } then
          ltb (Iterator.next { s := { data := { data := cs₁ }.data }, i := i₁ })
            (Iterator.next { s := { data := { data := cs₂ }.data }, i := i₂ })
        else
          decide
            (Iterator.curr { s := { data := { data := cs₁ }.data }, i := i₁ } <
              Iterator.curr { s := { data := { data := cs₂ }.data }, i := i₂ })
      else true
    else false

Next tactic:
simp only [Iterator.hasNext_cons_addChar, ite_false, ite_true, *]
theorem ltb_cons_addChar (c : Char) (cs₁ cs₂ : List Char) (i₁ i₂ : Pos) :
    ltb ⟨⟨c :: cs₁⟩, i₁ + c⟩ ⟨⟨c :: cs₂⟩, i₂ + c⟩ = ltb ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ := by
  apply ltb.inductionOn ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ (motive := fun ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩ ↦
    ltb ⟨⟨c :: cs₁⟩, i₁ + c⟩ ⟨⟨c :: cs₂⟩, i₂ + c⟩ =
    ltb ⟨⟨cs₁⟩, i₁⟩ ⟨⟨cs₂⟩, i₂⟩) <;> simp <;>
  intro ⟨cs₁⟩ ⟨cs₂⟩ i₁ i₂ <;>
  intros <;>
  (conv => lhs; rw [ltb]) <;> (conv => rhs; rw [ltb]) <;>
  simp only [Iterator.hasNext_cons_addChar, ite_false, ite_true, *]
  · 

Proof state:
case ind
c : Char
cs₁✝ cs₂✝ : List Char
i₁✝ i₂✝ : Pos
cs₁ cs₂ : List Char
i₁ i₂ : Pos
a✝³ : Iterator.hasNext { s := { data := cs₂ }, i := i₂ } = true
a✝² : Iterator.hasNext { s := { data := cs₁ }, i := i₁ } = true
a✝¹ : get { data := cs₁ } i₁ = get { data := cs₂ } i₂
a✝ :
  ltb
      { s := { data := c :: (Iterator.next { s := { data := cs₁ }, i := i₁ }).1.data },
        i := (Iterator.next { s := { data := cs₁ }, i := i₁ }).i + c }
      { s := { data := c :: (Iterator.next { s := { data := cs₂ }, i := i₂ }).1.data },
        i := (Iterator.next { s := { data := cs₂ }, i := i₂ }).i + c } =
    ltb
      { s := { data := (Iterator.next { s := { data := cs₁ }, i := i₁ }).1.data },
        i := (Iterator.next { s := { data := cs₁ }, i := i₁ }).i }
      { s := { data := (Iterator.next { s := { data := cs₂ }, i := i₂ }).1.data },
        i := (Iterator.next { s := { data := cs₂ }, i := i₂ }).i }
⊢ (if
        Iterator.curr { s := { data := c :: cs₁ }, i := i₁ + c } =
          Iterator.curr { s := { data := c :: cs₂ }, i := i₂ + c } then
      ltb (Iterator.next { s := { data := c :: cs₁ }, i := i₁ + c })
        (Iterator.next { s := { data := c :: cs₂ }, i := i₂ + c })
    else
      decide
        (Iterator.curr { s := { data := c :: cs₁ }, i := i₁ + c } <
          Iterator.curr { s := { data := c :: cs₂ }, i := i₂ + c })) =
    if Iterator.curr { s := { data := cs₁ }, i := i₁ } = Iterator.curr { s := { data := cs₂ }, i := i₂ } then
      ltb (Iterator.next { s := { data := cs₁ }, i := i₁ }) (Iterator.next { s := { data := cs₂ }, i := i₂ })
    else decide (Iterator.curr { s := { data := cs₁ }, i := i₁ } < Iterator.curr { s := { data := cs₂ }, i := i₂ })

Next tactic:
rename_i h₂ h₁ heq ih