]> matita.cs.unibo.it Git - helm.git/blob - helm/gTopLevel/tests/lambda01.cic.test
...
[helm.git] / helm / gTopLevel / tests / lambda01.cic.test
1 (\lambda f. (f 0 (le_n 0))
2   \lambda n. \lambda H. (refl_equal nat 0)))
3 ### (* METASENV after disambiguation  *)
4 _; _ : nat |- ?14: Type
5 _; _ : nat |- ?15: ?14[_ ; -1]
6 ### (* TERM after disambiguation      *)
7 ([f:(nat->((le O O)->(eq nat O O)))](f O (le_n O)) [n:nat][H:(le O O)](refl_equal nat O))
8 ### (* TYPE_OF the disambiguated term *)
9 (eq nat O O)
10 ### (* REDUCED disambiguated term     *)
11 (refl_equal nat O)