fact: Definition cone0 (A : set E) := ([set (t : R_ringType) *: a | t in (@setT Rpos) & a in A] `<=` A)%classic.
imports: mathcomp(all_ssreflect all_algebra vector reals ereal classical_sets boolp Rstruct) infotheo(convex Reals_ext) preliminaries Reals