fact: Definition cone (x: E) (A: set E) := cone0 [set a - x | a in A]%classic.
imports: mathcomp(all_ssreflect all_algebra vector reals ereal classical_sets boolp Rstruct) infotheo(convex Reals_ext) preliminaries Reals