use id
case intro.inl
u : ℝ → ℝ
hk : ∀ (x : ℝ), u x = (0 * x).exp
⊢ ∃ f, (StrictMono f ∨ StrictAnti f) ∧ ∀ (x y : ℝ), f (x + y) = f x * u y + f y
case h
u : ℝ → ℝ
hk : ∀ (x : ℝ), u x = (0 * x).exp
⊢ (StrictMono id ∨ StrictAnti id) ∧ ∀ (x y : ℝ), id (x + y) = id x * u y + id y