X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FgTopLevel%2Ftests%2Fforall00.cic.test;h=29a06443bd509a8c6ef6829579e03311d81a146b;hb=c5d5bf37b1e4c4b9b499ed2cbfe27cf2ec181944;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..29a06443b 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#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)