obtain rfl | ⟨ap, aodd⟩ := ha
case inl
a x : ℕ
ha : OddPrimeOrFour a
hdvd : 4 ∣ a * x
⊢ 4 ∣ a ∨ 4 ∣ x
case inl.inl
x : ℕ
hdvd : 4 ∣ 4 * x
⊢ 4 ∣ 4 ∨ 4 ∣ x

case inl.inr.intro
a x : ℕ
hdvd : 4 ∣ a * x
ap : a.Prime
aodd : Odd a
⊢ 4 ∣ a ∨ 4 ∣ x