X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FgTopLevel%2Ftests%2Flambda03.cic.test;h=558be3839287ac0f1d9a9e222ad15db57a91cfef;hb=8a62bb1bc12b3a40f54f9d77da204533fc215b0d;hp=0234af4926a62f5760aaf14f69f3c79346638c74;hpb=1b466259a29929276e3dd3a20dd430ea9970183d;p=helm.git diff --git a/helm/gTopLevel/tests/lambda03.cic.test b/helm/gTopLevel/tests/lambda03.cic.test index 0234af492..558be3839 100644 --- a/helm/gTopLevel/tests/lambda03.cic.test +++ b/helm/gTopLevel/tests/lambda03.cic.test @@ -1,12 +1,8 @@ \lambda n:nat. \lambda H:n=n.\lambda g:(?\to (le n 0))\to True.(g \lambda f.(f n H)) ### (* METASENV after disambiguation *) -n : nat; H : (eq nat n n); _ :? _; _ :? _; x : nat |- ?26: Type -n : nat; H : (eq nat n n); _ :? _; _ :? _; x : nat |- ?27: ?26[n ; H ; _ ; _ ; x] -n : nat; H : (eq nat n n); _ :? _ |- ?8: Type -n : nat; H : (eq nat n n); _ :? _ |- ?9: ?8[n ; H ; _] -n : nat; H : (eq nat n n) |- ?5: Type -n : nat; H : (eq nat n n) |- ?6: ?5[n ; H] + |- ?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 *)