\lambda n:nat.
 \lambda H:n=n.\lambda g:(?\to (le n 0))\to True.(g \lambda f.(f n H))
### (* METASENV after disambiguation  *)

### (* TERM after disambiguation      *)
[n:nat][H:(eq nat n n)][g:(((x:nat)((eq nat x x)->(le x O))->(le n O))->True)](g [f:(x:nat)((eq nat x x)->(le x O))](f n H))
### (* TYPE_OF the disambiguated term *)
(n:nat)(H:(eq nat n n))(g:(((x:nat)((eq nat x x)->(le x O))->(le n O))->True))True
### (* REDUCED disambiguated term     *)
[n:nat][H:(eq nat n n)][g:(((x:nat)((eq nat x x)->(le x O))->(le n O))->True)](g [f:(x:nat)((eq nat x x)->(le x O))](f n H))