Sean \(f\) y \(g\) funciones de \(ℝ\) en \(ℝ\). Demostrar con Lean4 que si \(a\) es una cota superior no negativa de \(f\) y \(b\) es es una cota superior de la función no negativa \(g\), entonces \(ab\) es una cota superior de \(fg\).
Para ello, completar la siguiente teoría de Lean4:
import Mathlib.Data.Real.Basic
-- (CotaSuperior f a) se verifica si a es una cota superior de f.
def CotaSuperior (f : ℝ → ℝ) (a : ℝ) : Prop :=
∀ x, f x ≤ a
-- (CotaInferior f a) expresa que a es una cota inferior de f.
def CotaInferior (f : ℝ → ℝ) (a : ℝ) : Prop :=
∀ x, a ≤ f x
variable (f g : ℝ → ℝ)
variable (a b : ℝ)
example
(hfa : CotaSuperior f a)
(hgb : CotaSuperior g b)
(nng : CotaInferior g 0)
(nna : 0 ≤ a)
: CotaSuperior (f * g) (a * b) :=
by sorry
Read more…