fact: Definition map_pair {S U} (f : S -> U) (x : (S * S)) : (U * U) := (f x.1, f x.2).
imports: HB(structures) mathcomp(all_ssreflect all_algebra finmap generic_quotient) mathcomp(boolp classical_sets functions) mathcomp(cardinality mathcomp_extra fsbigop) reals signed