diff options
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. |