right
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀
b : M
pa' : Pow2 (b ^ 2)
IH : ∀ y < 2 * b ^ 2, Pow2 y → ∃ b ≤ y, y = b ^ 2 ∨ y = 2 * b ^ 2
pa : Pow2 (2 * b ^ 2)
ha : 1 < 2 * b ^ 2
this : 0 < b ^ 2
left✝ : b ≤ b ^ 2
⊢ 2 * b ^ 2 = b ^ 2 ∨ 2 * b ^ 2 = 2 * b ^ 2
case h
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀
b : M
pa' : Pow2 (b ^ 2)
IH : ∀ y < 2 * b ^ 2, Pow2 y → ∃ b ≤ y, y = b ^ 2 ∨ y = 2 * b ^ 2
pa : Pow2 (2 * b ^ 2)
ha : 1 < 2 * b ^ 2
this : 0 < b ^ 2
left✝ : b ≤ b ^ 2
⊢ 2 * b ^ 2 = 2 * b ^ 2