fact: Definition located' (X : CPsMetricSpace) (P : X -> CProp) := forall (x : X) (y : SubPsMetricSpace P), {z : IR | set_glb_IR (fun v : IR => {y : SubPsMetricSpace P | x[-d]from_SubPsMetricSpace X P y[=]v}) z}.
imports: CoRN.metrics.Prod_Sub