∀ {R : Type u_2} {M : Type u_1} [inst : Semiring R] [inst_1 : PartialOrder R] [inst_2 : AddCommMonoid M]
  [inst_3 : SMul R M] (s : Set (ConvexCone R M)) (a : ConvexCone R M), (∀ b ∈ s, b ≤ a) → sSup s ≤ a