intro _
case h.h
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀
v : Fin 1 → M
a✝¹ : ¬LenBit 1 (v 0)
a✝ : LenBit 2 (v 0)
x : M
b✝ : x ≤ v 0
⊢ Pow2 x →
    (2 < x → (LenBit x (v 0) ↔ √x * √x = x ∧ LenBit (√x) (v 0)) ↔
      2 < x → (LenBit x (v 0) ↔ ∃ x_1 ≤ x, x_1 = √x ∧ x_1 * x_1 = x ∧ LenBit x_1 (v 0)))
case h.h
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀
v : Fin 1 → M
a✝² : ¬LenBit 1 (v 0)
a✝¹ : LenBit 2 (v 0)
x : M
b✝ : x ≤ v 0
a✝ : Pow2 x
⊢ 2 < x → (LenBit x (v 0) ↔ √x * √x = x ∧ LenBit (√x) (v 0)) ↔
    2 < x → (LenBit x (v 0) ↔ ∃ x_1 ≤ x, x_1 = √x ∧ x_1 * x_1 = x ∧ LenBit x_1 (v 0))