have : p ∣ ∏ p in s, p := Trans.trans (dvd_mul_right p p) h_dvd
case neg
s : Finset ℕ
h : ∀ p ∈ s, p.Prime
p : ℕ
hp : p.Prime
h_dvd : p * p ∣ ∏ p ∈ s, p
hps : p ∉ s
⊢ False
case neg
s : Finset ℕ
h : ∀ p ∈ s, p.Prime
p : ℕ
hp : p.Prime
h_dvd : p * p ∣ ∏ p ∈ s, p
hps : p ∉ s
this : p ∣ ∏ p ∈ s, p
⊢ False