∀ {R : Type u_2} {M : Type u_3} {N : Type u_1} [inst : CommRing R] [inst_1 : PartialOrder R] [inst_2 : IsOrderedRing R]
  [inst_3 : TopologicalSpace R] [ClosedIciTopology R] [inst_5 : AddCommGroup M] [inst_6 : Module R M]
  [inst_7 : TopologicalSpace M] [inst_8 : AddCommGroup N] [inst_9 : Module R N] [inst_10 : TopologicalSpace N]
  (p : M →ₗ[R] N →ₗ[R] R) [p.IsContPerfPair] (s : Set M), IsClosed ↑(PointedCone.dual p s)