proposition: Lemma Var_trans m : `V (X `+cst m) = `V X.
proof: Proof. rewrite /Var E_trans_add_RV; congr (`E (_ `^2)). rewrite boolp.funeqE => /= u; rewrite /trans_add_RV /trans_min_RV /=; field. Qed.
imports: mathcomp(all_ssreflect ssralg ssrnum matrix) mathcomp(Rstruct reals) Reals Lra ssrR Reals_ext realType_ext logb ssr_ext ssralg_ext bigop_ext fdist