\lambda n:nat.
 \lambda H:n=n.
  \lambda g:(?\to (le n 0))\to True.(g (\lambda f.(f n H)))