diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-10-04 19:18:34 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-10-05 00:17:14 +0200 |
commit | 5c7cfb7a934f9a581d6ddc530a4c6fb01cd58aa1 (patch) | |
tree | 127e7fbedfec3ac3d9cfa420754e8b192ebd2942 /test-suite/success/Case21.v | |
parent | c22ccd90ec45099a2e97620f32ed89e0b81daa96 (diff) |
A few improvements on pattern-matching compilation.
- Optimize the removal of generalization when there is no dependency in
the generalized variable (see postprocess_dependencies, and the removal
of dependencies in the default type of impossible cases).
- Compute the onlydflt flag correctly (what allows automatic treatment
of impossible cases even when there is no clause at all).
Diffstat (limited to 'test-suite/success/Case21.v')
-rw-r--r-- | test-suite/success/Case21.v | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/test-suite/success/Case21.v b/test-suite/success/Case21.v new file mode 100644 index 000000000..3f7877456 --- /dev/null +++ b/test-suite/success/Case21.v @@ -0,0 +1,11 @@ +(* Check insertion of impossible case when there is no branch at all *) + +Inductive eq_true : bool -> Prop := is_eq_true : eq_true true. + +Check fun H:eq_true false => match H with end : False. + +Inductive I : bool -> bool -> Prop := C : I true true. + +Check fun x (H:I x false) => match H with end : False. + +Check fun x (H:I false x) => match H with end : False. |