Equal.refl
: ∀(A: *)
  ∀(a: A)
  (Equal A a a)
= λA λa
  λP λp p