diff options
| author | herbelin | 2009-10-25 09:35:44 +0000 |
|---|---|---|
| committer | herbelin | 2009-10-25 09:35:44 +0000 |
| commit | b050bc27442c234eafcb8ad634c33897d92c2f15 (patch) | |
| tree | f1e625a3bee24cbb1ba5d08377f6601f34c8798c /test-suite | |
| parent | b02da518c51456b003c61f9775050fbfe6090629 (diff) | |
Add support for remaining side-conditions in "apply in as".
Tolerate that the place where to move an hypothesis with destruct is not
"safe" if the lemma has dependent parameters inferred lately.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12412 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/success/apply.v | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test-suite/success/apply.v b/test-suite/success/apply.v index 8014f73fcc..c3d3b0e3b4 100644 --- a/test-suite/success/apply.v +++ b/test-suite/success/apply.v @@ -284,3 +284,15 @@ Proof. eexists; intros x H. apply H. Qed. + +(* Check that "as" clause applies to main premise only and leave the + side conditions away *) + +Lemma side_condition : + forall (A:Type) (B:Prop) x, (True -> B -> x=0) -> B -> x=x. +Proof. +intros. +apply H in H0 as ->. +reflexivity. +exact I. +Qed. |