exact Associated.mul_left a hf₂
case intro.intro.refine'_2.inr.intro.intro
R : Type u_1
inst✝ : CommMonoidWithZero R
l : Multiset R
a : R
s : Multiset R
hind : (∀ y ∈ s, IsUnit y ∨ Prime y) → ∃ f, (∀ b ∈ f, Prime b) ∧ Associated (Multiset.prod f) (Multiset.prod s)
hs : ∀ y ∈ s, IsUnit y ∨ Prime y
ha₂ : Prime a
f : Multiset R
hf : ∀ b ∈ f, Prime b
hf₂ : Associated (Multiset.prod f) (Multiset.prod s)
⊢ Associated (a * Multiset.prod f) (a * Multiset.prod s)
no goals