diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-04-27 16:04:07 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-04-28 09:40:46 +0200 |
| commit | 9eaf502657ae63f6b184d527eaf1c3b40be90a79 (patch) | |
| tree | 876aeebf7ccfee4837acc91a4f4acd95bf26e7b9 /test-suite/output/Cases.out | |
| parent | 5eb53b5bc8d765ed75e965f43f1084e18efc8790 (diff) | |
Fixing #3293 (eta-expansion at "match" printing time was failing
because of let-in's interpreted as being part of the expansion).
Diffstat (limited to 'test-suite/output/Cases.out')
| -rw-r--r-- | test-suite/output/Cases.out | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test-suite/output/Cases.out b/test-suite/output/Cases.out index 14dc16072..be1bff48b 100644 --- a/test-suite/output/Cases.out +++ b/test-suite/output/Cases.out @@ -36,3 +36,13 @@ fun (A : Type) (x : I A) => match x with Argument scopes are [type_scope _] foo' = if A 0 then true else false : bool +f = +fun H : B => +match H with +| AC x => + (let b0 := b in + if b0 as b return (P b -> True) + then fun _ : P true => Logic.I + else fun _ : P false => Logic.I) x +end + : B -> True |