ι : Type ?u.6108
α : Type ?u.6111
M : Type u_1
N : Type ?u.6117
P : Type ?u.6120
M₀ : Type ?u.6123
G : Type ?u.6126
R : Type ?u.6129
inst✝ : CanonicallyOrderedMonoid M
l : List M
h : ∀ (x : M), x ∈ l → x = 1
⊢ ℕ

ι : Type ?u.6108
α : Type ?u.6111
M : Type u_1
N : Type ?u.6117
P : Type ?u.6120
M₀ : Type ?u.6123
G : Type ?u.6126
R : Type ?u.6129
inst✝ : CanonicallyOrderedMonoid M
l : List M
h : ∀ (x : M), x ∈ l → x = 1
⊢ length l = ?m.7940
ι : Type ?u.6108
α : Type ?u.6111
M : Type u_1
N : Type ?u.6117
P : Type ?u.6120
M₀ : Type ?u.6123
G : Type ?u.6126
R : Type ?u.6129
inst✝ : CanonicallyOrderedMonoid M
l : List M
h : ∀ (x : M), x ∈ l → x = 1
⊢ prod l = 1
rw [List.eq_replicate.2 ⟨_, h⟩, prod_replicate, one_pow]
ι : Type ?u.6108
α : Type ?u.6111
M : Type u_1
N : Type ?u.6117
P : Type ?u.6120
M₀ : Type ?u.6123
G : Type ?u.6126
R : Type ?u.6129
inst✝ : CanonicallyOrderedMonoid M
l : List M
h : ∀ (x : M), x ∈ l → x = 1
⊢ length l = length l
ι : Type ?u.6108
α : Type ?u.6111
M : Type u_1
N : Type ?u.6117
P : Type ?u.6120
M₀ : Type ?u.6123
G : Type ?u.6126
R : Type ?u.6129
inst✝ : CanonicallyOrderedMonoid M
l : List M
h : ∀ (x : M), x ∈ l → x = 1
⊢ ℕ

ι : Type ?u.6108
α : Type ?u.6111
M : Type u_1
N : Type ?u.6117
P : Type ?u.6120
M₀ : Type ?u.6123
G : Type ?u.6126
R : Type ?u.6129
inst✝ : CanonicallyOrderedMonoid M
l : List M
h : ∀ (x : M), x ∈ l → x = 1
⊢ length l = ?m.7940
exact (length l)
no goals
ι : Type ?u.6108
α : Type ?u.6111
M : Type u_1
N : Type ?u.6117
P : Type ?u.6120
M₀ : Type ?u.6123
G : Type ?u.6126
R : Type ?u.6129
inst✝ : CanonicallyOrderedMonoid M
l : List M
h : ∀ (x : M), x ∈ l → x = 1
⊢ length l = length l
rfl