X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FgTopLevel%2Ftests%2Flambda01.cic.test;h=6140de0b172be943097ccc687a20f1dbb6d5a1df;hb=4167cea65ca58897d1a3dbb81ff95de5074700cc;hp=0e1f8c22c5f97869e7f71ecd6ec198543d38f9e7;hpb=cab83f17a2d7a591c4ff2980b07946b50dbf9d00;p=helm.git

diff --git a/helm/gTopLevel/tests/lambda01.cic.test b/helm/gTopLevel/tests/lambda01.cic.test
index 0e1f8c22c..6140de0b1 100644
--- a/helm/gTopLevel/tests/lambda01.cic.test
+++ b/helm/gTopLevel/tests/lambda01.cic.test
@@ -1,8 +1,13 @@
 (\lambda f. (f 0 (le_n 0))
-  \lambda n. \lambda H. (refl_equal nat 0)))
+  \lambda n. \lambda H. (refl_equal nat 0))
+###### INTERPRETATION NUMBER 1 ######
+### (* disambiguation environment  *)
+alias id le_n = cic:/Coq/Init/Peano/le.ind#xpointer(1/1/1)
+alias id nat = cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1)
+alias id refl_equal = cic:/Coq/Init/Logic/eq.ind#xpointer(1/1/1)
+alias num (instance 0) = "natural number"
 ### (* METASENV after disambiguation  *)
-f : (nat->((le O O)->(eq nat O O))); _ : nat |- ?14: Type
-f : (nat->((le O O)->(eq nat O O))); _ : nat |- ?15: ?14[-2 ; -1]
+
 ### (* TERM after disambiguation      *)
 ([f:(nat->((le O O)->(eq nat O O)))](f O (le_n O)) [n:nat][H:(le O O)](refl_equal nat O))
 ### (* TYPE_OF the disambiguated term *)