rcases h x with ⟨y, _, _, rfl, h⟩
case mp
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀
h : ∀ (x : M), ∃ x_1, ∃ x_2 ≤ x, x_2 = ‖x‖ ∧ Exponential (x_2 * x_2) x_1
x : M
⊢ ∃ y, Exponential (‖x‖ * ‖x‖) y
case mp.intro.intro.intro.intro
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀
h✝ : ∀ (x : M), ∃ x_1, ∃ x_2 ≤ x, x_2 = ‖x‖ ∧ Exponential (x_2 * x_2) x_1
x y : M
left✝ : ‖x‖ ≤ x
h : Exponential (‖x‖ * ‖x‖) y
⊢ ∃ y, Exponential (‖x‖ * ‖x‖) y