From 45df6252e22ddffc4874083383113594f7ee64fb Mon Sep 17 00:00:00 2001 From: Claudio Sacerdoti Coen Date: Thu, 5 Feb 2004 11:07:02 +0000 Subject: [PATCH] New test. --- helm/gTopLevel/tests/lambda03.cic.test | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 helm/gTopLevel/tests/lambda03.cic.test diff --git a/helm/gTopLevel/tests/lambda03.cic.test b/helm/gTopLevel/tests/lambda03.cic.test new file mode 100644 index 000000000..321dc194b --- /dev/null +++ b/helm/gTopLevel/tests/lambda03.cic.test @@ -0,0 +1,15 @@ +\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); _ :? _; _ :? _; _ : nat |- ?26: Type +n : nat; H : (eq nat n n); _ :? _; _ :? _; _ : nat |- ?27: ?26[n ; H ; _ ; _ ; __1] +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] +### (* TERM after disambiguation *) +[n:nat][H:(eq nat n n)][g:(((nat->((eq nat __1 __1)->(le __2 O)))->(le n O))->True)](g [f:(nat->((eq nat __1 __1)->(le __2 O)))](f n H)) +### (* TYPE_OF the disambiguated term *) +(n:nat)(H:(eq nat n n))(g:(((nat->((eq nat __1 __1)->(le __2 O)))->(le n O))->True))True +### (* REDUCED disambiguated term *) +[n:nat][H:(eq nat n n)][g:(((nat->((eq nat __1 __1)->(le __2 O)))->(le n O))->True)](g [f:(nat->((eq nat __1 __1)->(le __2 O)))](f n H)) -- 2.39.2