exact ⟨1, by simp [one_lt_two]⟩
case inl
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀
IH : 0 < 0 → ∃ x < 0, ∃ y' ≤ 0, Exponential x y' ∧ 0 < 2 * y'
hy : 0 < 2 * 0 + 1
⊢ ∃ y' ≤ 1, y' = 1 ∧ 1 < 2 * y'
no goals