proposition: Lemma fposZ f c : 0 <= c -> fpos (c \*o f) =1 c \*o fpos f.
proof: Proof. move=> ge0_c x; rewrite /fpos /= -{1}(mulr0 c). by rewrite -maxr_pMr // normrM ger0_norm. Qed.
imports: mathcomp(all_ssreflect all_algebra) mathcomp.classical(boolp) xfinmap ereal reals discrete realseq mathcomp.classical(classical_sets functions mathcomp_extra) topology