(** * Compactness: there is a covering based on a gauge function *)

(* Specifications: *)
Lemma compactness_value :
forall n a b (delta : Tn n R -> posreal),
{ d : posreal | forall x, bounded_n n a b x -> ~~ exists t, bounded_n n a b t /\ close_n n (delta t) x t /\ d <= delta t }.