From 6b649aba925b6f7462da07599fe67ebb12a3460e Mon Sep 17 00:00:00 2001 From: Samuel Mimram Date: Wed, 28 Jul 2004 21:54:47 +0000 Subject: Imported Upstream version 8.0pl1 --- test-suite/output/Cases.out | 4 ++++ 1 file changed, 4 insertions(+) create mode 100644 test-suite/output/Cases.out (limited to 'test-suite/output/Cases.out') diff --git a/test-suite/output/Cases.out b/test-suite/output/Cases.out new file mode 100644 index 00000000..5f13caaf --- /dev/null +++ b/test-suite/output/Cases.out @@ -0,0 +1,4 @@ +t_rect = +[P:(t->Type); f:([x:=t](x0:x)(P x0)->(P (k x0)))] + Fix F{F [t:t] : (P t) :=

Cases t of (k x x0) => (f x0 (F x0)) end} + : (P:(t->Type))([x:=t](x0:x)(P x0)->(P (k x0)))->(t:t)(P t) -- cgit v1.2.3