exact ⟨√x, by simpa using h⟩
case h.h.h.h₂.mp
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
a✝ : 2 < x
h : √x * √x = x ∧ LenBit (√x) (v 0)
⊢ ∃ x_1 ≤ x, x_1 = √x ∧ x_1 * x_1 = x ∧ LenBit x_1 (v 0)
no goals