X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FgTopLevel%2Ftests%2Fforall00.cic.test;h=fccef764ea7a673116429fa0d8aea0d264161783;hb=97c2d258a5c524eb5c4b85208899d80751a2c82f;hp=8391ea568ff781f990a75c45628dd754b21b03e4;hpb=d8a1a68b8b7e53ba43fcad55e928a99ef5e08b8e;p=helm.git

diff --git a/helm/gTopLevel/tests/forall00.cic.test b/helm/gTopLevel/tests/forall00.cic.test
index 8391ea568..fccef764e 100644
--- a/helm/gTopLevel/tests/forall00.cic.test
+++ b/helm/gTopLevel/tests/forall00.cic.test
@@ -1,9 +1,14 @@
 \forall n:nat. \forall m. n + m = n
+###### INTERPRETATION NUMBER 1 ######
+### (* disambiguation environment  *)
+alias id nat = cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1)
+alias symbol "eq" (instance 0) = "leibnitz's equality"
+alias symbol "plus" (instance 0) = "natural plus"
 ### (* METASENV after disambiguation  *)
 
 ### (* TERM after disambiguation      *)
-(n:nat)(nat->(eq nat (plus n __1) n))
+(n:nat)(m:nat)(eq nat (plus n m) n)
 ### (* TYPE_OF the disambiguated term *)
 Prop
 ### (* REDUCED disambiguated term     *)
-(n:nat)(nat->(eq nat (plus n __1) n))
+(n:nat)(m:nat)(eq nat (plus n m) n)