fact: Definition Floc (X : CPsMetricSpace) (P : X -> CProp) (H0 : located' P) (H2 : SubPsMetricSpace P) (n : nat) (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 | x[-d]from_SubPsMetricSpace X P y[<=]z[+]one_div_succ n}}.
imports: CoRN.metrics.Prod_Sub