helm/gTopLevel/tests/lambda03.cic.test

   1 \lambda n:nat.
   2  \lambda H:n=n.\lambda g:(?\to (le n 0))\to True.(g \lambda f.(f n H))
   3 ### (* METASENV after disambiguation  *)
   4  |- ?4: Type
   5 n : nat; H : (eq nat n n) |- ?5: ?4[]
   6 ### (* TERM after disambiguation      *)
   7 [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))
   8 ### (* TYPE_OF the disambiguated term *)
   9 (n:nat)(H:(eq nat n n))(g:(((x:nat)((eq nat x x)->(le x O))->(le n O))->True))True
  10 ### (* REDUCED disambiguated term     *)
  11 [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))