no goals
ι : Type ?u.93681
α : Type ?u.93684
M : Type u_1
N : Type ?u.93690
P : Type ?u.93693
M₀ : Type ?u.93696
G : Type ?u.93699
R : Type ?u.93702
inst✝⁵ : Monoid M
inst✝⁴ : Monoid N
inst✝³ : Monoid P
l✝ l₁ l₂ : List M
a : M
inst✝² : Preorder M
inst✝¹ : CovariantClass M M (Function.swap fun x x_1 => x * x_1) fun x x_1 => x ≤ x_1
inst✝ : CovariantClass M M (fun x x_1 => x * x_1) fun x x_1 => x ≤ x_1
l : List M
n : M
h : ∀ (x : M), x ∈ l → x ≤ n
⊢ prod l ≤ n ^ length l
simpa only [map_id'', map_const', prod_replicate] using prod_le_prod' h