proposition: Lemma decomp_triv (A : set rT) : trivIset (decomp A) id.
proof: Proof. rewrite /decomp; case: ifP => _; first by move=> i j/= -> ->. case: pselect => // Am; first by case: cid => //= ? []. by move=> i j /= -> ->. 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)