proposition: Lemma eq_measure d (T : measurableType d) (R : realFieldType) (m1 m2 : {measure set T -> \bar R}) : (m1 = m2 :> (set T -> \bar R)) -> m1 = m2.
proof: Proof. move: m1 m2 => [m1 [[m10 m1ge0 [m1sa]]]] [m2 [[+ + [+]]]] /= m1m2. rewrite -{}m1m2 => m10' m1ge0' m1sa'; f_equal. by rewrite (_ : m10' = m10)// (_ : m1ge0' = m1ge0)// (_ : m1sa' = m1sa). Qed.
imports: mathcomp(all_ssreflect all_algebra finmap) mathcomp(mathcomp_extra boolp classical_sets functions) mathcomp(cardinality fsbigop ) reals ereal signed topology normedtype sequences esum numfun HB(structures)