proposition: Lemma EFin_max : {morph (@EFin R) : r s / Num.max r s >-> maxe r s}.
proof: Proof. by move=> a b /=; rewrite -fine_max. Qed.
imports: HB(structures) mathcomp(all_ssreflect all_algebra finmap) mathcomp(mathcomp_extra) signed