proposition: Lemma bounded_funN (T : Type) (R : realFieldType) (a : T -> R) : bounded_fun a -> bounded_fun (- a).
proof: Proof. move=> [M [Mreal aM]]; rewrite /bounded_fun /bounded_near; near=> x => y /= _. by rewrite normrN; apply: aM. Unshelve. all: by end_near. Qed.
imports: HB(structures) mathcomp(all_ssreflect ssralg ssrint ssrnum finmap matrix) mathcomp(rat interval zmodp vector fieldext falgebra) mathcomp(mathcomp_extra boolp classical_sets functions) mathcomp(cardinality set_interval Rstruct) ereal reals signed topology prodnormedzmodule