exact absurd p nh₁p
l : List Prop
i : Nat
h₁ h₂ : Prop
hs : List Prop
orNl : ¬orN (h₁ :: h₂ :: hs)
andNotl : andN (notList (h₁ :: h₂ :: hs))
p : (h₁ :: h₂ :: hs).getD 0 False
nh₁p : ¬h₁
right✝ : andN ((¬h₂) :: map Not hs)
⊢ False
no goals