diff options
author | 2015-03-29 15:16:09 +0200 | |
---|---|---|
committer | 2015-03-29 15:16:44 +0200 | |
commit | 598ac5ca1ac87fbd9152c7da1812a6ae7aa1e7bb (patch) | |
tree | d654a6dd0eaeff06bf702ac6e18758497603dd3e /test-suite/bugs/closed/4165.v | |
parent | 2c7d80e8234797da38d54326b914ded7f343d062 (diff) |
Adding test for bug #4165.
Diffstat (limited to 'test-suite/bugs/closed/4165.v')
-rw-r--r-- | test-suite/bugs/closed/4165.v | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/4165.v b/test-suite/bugs/closed/4165.v new file mode 100644 index 000000000..8e0a62d35 --- /dev/null +++ b/test-suite/bugs/closed/4165.v @@ -0,0 +1,7 @@ +Lemma foo : True. +Proof. +pose (fun x : nat => (let H:=true in x)) as s. +match eval cbv delta [s] in s with +| context C[true] => + let C':=context C[false] in pose C' as s' +end. |