case intro
ι : Type ?u.84722
α : Type u_1
β : Type ?u.84728
γ : Type ?u.84731
inst✝ : CommMonoid α
s : Multiset α
a : α
m : Multiset ι
f g : ι → α
z : Multiset α
h : s ≤ s + z
⊢ prod s ∣ prod (s + z)
ι : Type ?u.84722
α : Type u_1
β : Type ?u.84728
γ : Type ?u.84731
inst✝ : CommMonoid α
s t : Multiset α
a : α
m : Multiset ι
f g : ι → α
h : s ≤ t
⊢ prod s ∣ prod t
obtain ⟨z, rfl⟩ := exists_add_of_le h
no goals
case intro
ι : Type ?u.84722
α : Type u_1
β : Type ?u.84728
γ : Type ?u.84731
inst✝ : CommMonoid α
s : Multiset α
a : α
m : Multiset ι
f g : ι → α
z : Multiset α
h : s ≤ s + z
⊢ prod s ∣ prod (s + z)
simp only [prod_add, dvd_mul_right]