by_contra A
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀
y : M
hy : 0 < y
x : M
hx : x < y ∧ ∃ y' ≤ y, Exponential x y' ∧ y < 2 * y'
x' : M
hx' : x' < y ∧ ∃ y' ≤ y, Exponential x' y' ∧ y < 2 * y'
⊢ x' = x
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀
y : M
hy : 0 < y
x : M
hx : x < y ∧ ∃ y' ≤ y, Exponential x y' ∧ y < 2 * y'
x' : M
hx' : x' < y ∧ ∃ y' ≤ y, Exponential x' y' ∧ y < 2 * y'
A : ¬x' = x
⊢ False