proposition: Lemma R_affine_functionN : affine f -> affine (fun x => - f x)%coqR.
proof: Proof. move/affine_functionP => [H1 H2]; rewrite affine_functionP. split => //; [exact/R_convex_functionN|exact/R_concave_functionN]. Qed.
imports: HB(structures) mathcomp(all_ssreflect ssralg fingroup perm matrix) mathcomp(mathcomp_extra boolp classical_sets Rstruct) mathcomp(ssrnum ereal) mathcomp(lra Rstruct reals) Reals ssrR Reals_ext Ranalysis_ext ssr_ext ssralg_ext logb realType_ext fdist