apply exists_congr
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
v : Fin 6 → M
⊢ (∃ nₖ ≤ v 5,
      Series (v 0) (v 1) (v 2) (v 3) (v 4 / ‖v 1‖) nₖ ∧
        Segment (v 0) (v 2) (v 3) (‖v 1‖ * (v 4 / ‖v 1‖)) (v 4 % ‖v 1‖) nₖ (v 5)) ↔
    ∃ x ≤ v 5,
      ∃ x_1 ≤ v 1,
        x_1 = ‖v 1‖ ∧
          ∃ x_2 ≤ v 4,
            x_2 = v 4 / x_1 ∧
              ∃ x_3 ≤ v 4,
                x_3 = v 4 % x_1 ∧
                  Series (v 0) (v 1) (v 2) (v (Fin.succ 2)) x_2 x ∧
                    Segment (v 0) (v 2) (v (Fin.succ 2)) (x_1 * x_2) x_3 x (v 5)
case h
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
v : Fin 6 → M
⊢ ∀ (a : M),
    a ≤ v 5 ∧
        Series (v 0) (v 1) (v 2) (v 3) (v 4 / ‖v 1‖) a ∧
          Segment (v 0) (v 2) (v 3) (‖v 1‖ * (v 4 / ‖v 1‖)) (v 4 % ‖v 1‖) a (v 5) ↔
      a ≤ v 5 ∧
        ∃ x ≤ v 1,
          x = ‖v 1‖ ∧
            ∃ x_1 ≤ v 4,
              x_1 = v 4 / x ∧
                ∃ x_2 ≤ v 4,
                  x_2 = v 4 % x ∧
                    Series (v 0) (v 1) (v 2) (v (Fin.succ 2)) x_1 a ∧
                      Segment (v 0) (v 2) (v (Fin.succ 2)) (x * x_1) x_2 a (v 5)