[\lambda z:nat. \lambda h:(le 0 z). (le 0 (S z))]
match (le_S 0 0 (le_n 0)): le with
[ le_n \Rightarrow (le_S 0 0 (le_n 0))
| (le_S x y) \Rightarrow (le_S 0 (S x) (le_S 0 x y)) ]