∀ {ι : Type u_1} {M : Type u_3} [inst : LinearOrder M] [inst_1 : Monoid M] [MulLeftMono M] [MulRightMono M]
  (s : Finset ι) (f : ι → M) (n : ℕ) (hs : s.Nonempty), s.sup' hs f ^ n = s.sup' hs fun a => f a ^ n