exact ExistsUnique.intro _ H (fun y' H' ↦ H'.uniq H)
case intro.intro
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀
a : M
this : ∀ x < ‖a‖, ∃ y ≤ a, Exponential x y
x : M
hx : x < ‖a‖
w✝ : M
left✝ : w✝ ≤ a
H : Exponential x w✝
⊢ ∃! y, Exponential x y
no goals