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 n : nat; H : (eq nat n n); _ :? _; _ :? _; _ : nat |- ?26: Type
   5 n : nat; H : (eq nat n n); _ :? _; _ :? _; _ : nat |- ?27: ?26[n ; H ; _ ; _ ; __1]
   6 n : nat; H : (eq nat n n); _ :? _ |- ?8: Type
   7 n : nat; H : (eq nat n n); _ :? _ |- ?9: ?8[n ; H ; _]
   8 n : nat; H : (eq nat n n) |- ?5: Type
   9 n : nat; H : (eq nat n n) |- ?6: ?5[n ; H]
  10 ### (* TERM after disambiguation      *)
  11 [n:nat][H:(eq nat n n)][g:(((nat->((eq nat __1 __1)->(le __2 O)))->(le n O))->True)](g [f:(nat->((eq nat __1 __1)->(le __2 O)))](f n H))
  12 ### (* TYPE_OF the disambiguated term *)
  13 (n:nat)(H:(eq nat n n))(g:(((nat->((eq nat __1 __1)->(le __2 O)))->(le n O))->True))True
  14 ### (* REDUCED disambiguated term     *)
  15 [n:nat][H:(eq nat n n)][g:(((nat->((eq nat __1 __1)->(le __2 O)))->(le n O))->True)](g [f:(nat->((eq nat __1 __1)->(le __2 O)))](f n H))