rintro ⟨k, hk⟩
u : ℝ → ℝ
⊢ (∃ k, ∀ (x : ℝ), u x = (k * x).exp) → ∃ f, (StrictMono f ∨ StrictAnti f) ∧ ∀ (x y : ℝ), f (x + y) = f x * u y + f y
case intro
u : ℝ → ℝ
k : ℝ
hk : ∀ (x : ℝ), u x = (k * x).exp
⊢ ∃ f, (StrictMono f ∨ StrictAnti f) ∧ ∀ (x y : ℝ), f (x + y) = f x * u y + f y