proposition: Lemma fine_gt0 x : 0 < x < +oo -> (0 < fine x)%R.
proof: Proof. by move: x => [x| |] //=; rewrite ?ltxx ?andbF// lte_fin => /andP[]. Qed.
imports: HB(structures) mathcomp(all_ssreflect all_algebra finmap) mathcomp(mathcomp_extra) signed