fact: Definition restr_bin_fun (X : CPsMetricSpace) (P : cms_crr X -> CProp) (f : CSetoid_bin_fun X X IR) (a b : Build_SubCSetoid X P) : IR := match a, b with | Build_subcsetoid_crr _ _ x p, Build_subcsetoid_crr _ _ y q => f x y end.
imports: CoRN.metrics.IR_CPMSpace