diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-09-03 10:32:50 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-09-03 20:41:34 +0200 |
| commit | 2c96be02dfa0a6169856a844dfc36b7f1053d0c5 (patch) | |
| tree | 236c961788453eb3fd0385c04e91abcaa71e1a17 /test-suite/success | |
| parent | 6119a0e4f760ff944351570e90487f066db42858 (diff) | |
Yes another remaining clearing bug with 'apply in'.
Diffstat (limited to 'test-suite/success')
| -rw-r--r-- | test-suite/success/apply.v | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/test-suite/success/apply.v b/test-suite/success/apply.v index 7f1a8f5d4..e10f621aa 100644 --- a/test-suite/success/apply.v +++ b/test-suite/success/apply.v @@ -496,3 +496,17 @@ Goal forall A B C: Prop, (True -> A -> B /\ C) -> A -> B. intros * H. apply H. Abort. + +(* This failed between 2 and 3 September 2014 *) + +Goal forall A B C D:Prop, (A<->B)/\(C<->D) -> A -> B. +intros. +apply H in H0. +pose proof I as H1. (* Test that H1 does not exist *) +Abort. + +Goal forall A B C D:Prop, (A<->B)/\(C<->D) -> A. +intros. +apply H. +pose proof I as H0. (* Test that H0 does not exist *) +Abort. |