X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FgTopLevel%2Ftests%2Flambda03.cic.test;h=6ae0213b1d244ef94eb8921b2e29fffb841b2f2d;hb=4167cea65ca58897d1a3dbb81ff95de5074700cc;hp=558be3839287ac0f1d9a9e222ad15db57a91cfef;hpb=8a62bb1bc12b3a40f54f9d77da204533fc215b0d;p=helm.git

diff --git a/helm/gTopLevel/tests/lambda03.cic.test b/helm/gTopLevel/tests/lambda03.cic.test
index 558be3839..6ae0213b1 100644
--- a/helm/gTopLevel/tests/lambda03.cic.test
+++ b/helm/gTopLevel/tests/lambda03.cic.test
@@ -1,8 +1,14 @@
 \lambda n:nat.
  \lambda H:n=n.\lambda g:(?\to (le n 0))\to True.(g \lambda f.(f n H))
+###### INTERPRETATION NUMBER 1 ######
+### (* disambiguation environment  *)
+alias id True = cic:/Coq/Init/Logic/True.ind#xpointer(1/1)
+alias id le = cic:/Coq/Init/Peano/le.ind#xpointer(1/1)
+alias id nat = cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1)
+alias num (instance 0) = "natural number"
+alias symbol "eq" (instance 0) = "leibnitz's equality"
 ### (* METASENV after disambiguation  *)
- |- ?4: Type
-n : nat; H : (eq nat n n) |- ?5: ?4[]
+
 ### (* 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 *)