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