diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2015-09-08 12:02:43 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2015-09-08 13:49:55 +0200 |
commit | f2130a88e1f67d68d1062cce883a7c2666b146d8 (patch) | |
tree | efdb6140e6fdcc9ebd3fb30c5c823d6c41132a1a /test-suite/success/intros.v | |
parent | dea62dfc660ffd61958c50e955f7b962afd83234 (diff) |
Ensuring that patterns of the form pat/constr move the hypotheses replacing
an initial hypothesis hyp at the same position in the context.
Ensuring the same for "apply c in hyp as pat".
Ensuring that "pose proof (H ...) as H" does not change the position of H.
Diffstat (limited to 'test-suite/success/intros.v')
-rw-r--r-- | test-suite/success/intros.v | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/test-suite/success/intros.v b/test-suite/success/intros.v index 9443d01e3..4959b6578 100644 --- a/test-suite/success/intros.v +++ b/test-suite/success/intros.v @@ -33,3 +33,21 @@ Goal True -> True -> True. intros _ ?. exact H. Qed. + +(* A short test about introduction pattern pat/c *) +Goal (True -> 0=0) -> True /\ False -> 0=0. +intros H (H1/H,_). +exact H1. +Qed. + +(* A test about bugs in 8.5beta2 *) +Goal (True -> 0=0) -> True /\ False -> False -> 0=0. +intros H H0 H1. +destruct H0 as (a/H,_). +(* Check that H0 is removed (was bugged in 8.5beta2) *) +Fail clear H0. +(* Check position of newly created hypotheses when using pat/c (was + left at top in 8.5beta2) *) +match goal with H:_ |- _ => clear H end. (* clear H1:False *) +match goal with H:_ |- _ => exact H end. (* check that next hyp shows 0=0 *) +Qed. |