example : (p ∨ p) → p := fun h => match