exact le_trans (Exponential.monotone_le H Haa' h) ha'
case intro.intro.intro
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀
x y a : M
H : Exponential x y
pos : 0 < a
h : x ≤ log a
a' : M
ha' : a' ≤ a
Haa' : Exponential (log a) a'
right✝ : a < 2 * a'
⊢ y ≤ a
no goals