obtain rfl | ⟨pp, -⟩ := hp
a p x : ℤ
ha : OddPrimeOrFour a
hp : OddPrimeOrFour p
hdvd : p ∣ a * x
⊢ p ∣ a ∨ p ∣ x
case inl
a x : ℤ
ha : OddPrimeOrFour a
hdvd : 4 ∣ a * x
⊢ 4 ∣ a ∨ 4 ∣ x

case inr.intro
a p x : ℤ
ha : OddPrimeOrFour a
hdvd : p ∣ a * x
pp : Prime p
⊢ p ∣ a ∨ p ∣ x