let h' := congrFun h a
case h
α : Type
f : α → α → Bool
a : α
h : (fun a => !f a a) = f a
⊢ False
case h
α : Type
f : α → α → Bool
a : α
h : (fun a => !f a a) = f a
h' : (!f a a) = f a a := congrFun h a
⊢ False