∀ {R : Type u_1} [inst : CommMonoidWithZero R] [inst_1 : PartialOrder R] [ZeroLEOneClass R] [PosMulStrictMono R]
  [NeZero 1] {ι : Type u_2} {s : List ι},
  s ≠ [] → ∀ (f g : ι → R), (∀ i ∈ s, 0 < f i) → (∀ i ∈ s, f i < g i) → (List.map f s).prod < (List.map g s).prod