fact: Definition equivalent_psmetric (X : CSetoid) (d0 d1 : CSetoid_bin_fun X X IR) : CProp := (is_CPsMetricSpace X d0 and is_CPsMetricSpace X d1) and {n : nat | forall x y : X, d0 x y[<=]nring (S n)[*]d1 x y} and {n : nat | forall x y : X, d1 x y[<=]nring (S n)[*]d0 x y}.
imports: CoRN.metrics.IR_CPMSpace