proposition: Lemma klipschitzW (K : numFieldType) (V W : normedModType K) (k : K) (f : V -> W) (F : set_system (V * V)) {PF : ProperFilter F} : k.-lipschitz_on f F -> lipschitz_on f F.
proof: Proof. by move=> f_lip; apply/ex_dom_bound; exists k. 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