X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=helm%2FgTopLevel%2Ftests%2Flambda03.cic.test;fp=helm%2FgTopLevel%2Ftests%2Flambda03.cic.test;h=0000000000000000000000000000000000000000;hp=4f21c833992db99fbb65e1daa29b6929ff75caaf;hb=1696761e4b8576e8ed81caa905fd108717019226;hpb=5325734bc2e4927ed7ec146e35a6f0f2b49f50c1 diff --git a/helm/gTopLevel/tests/lambda03.cic.test b/helm/gTopLevel/tests/lambda03.cic.test deleted file mode 100644 index 4f21c8339..000000000 --- a/helm/gTopLevel/tests/lambda03.cic.test +++ /dev/null @@ -1,17 +0,0 @@ -\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#1/1 -alias id le = cic:/Coq/Init/Peano/le.ind#1/1 -alias id nat = cic:/Coq/Init/Datatypes/nat.ind#1/1 -alias num (instance 0) = "natural number" -alias symbol "eq" (instance 0) = "leibnitz's equality" -### (* METASENV after disambiguation *) - -### (* 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 *) -(n:nat)(H:(eq nat n n))(g:(((x:nat)((eq nat x x)->(le x O))->(le n O))->True))True -### (* REDUCED disambiguated term *) -[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))