diff options
| author | herbelin | 2009-07-08 12:30:19 +0000 |
|---|---|---|
| committer | herbelin | 2009-07-08 12:30:19 +0000 |
| commit | c221e1bebd5fabe7c5995c9306b96596026de047 (patch) | |
| tree | 53280496702a666b4fc6f98dbf7499afccc80ab4 /test-suite | |
| parent | cb0a4dbc77da083e866e88523dc30244b1e25117 (diff) | |
Reactivation of pattern unification of evars in apply unification, in
agreement with wish #2117 (pattern unification of evars remained
deactivated for 3 years because of incompatibilities with eauto [see
commit 9234]; thanks to unification flags, it can be activated for
apply w/o changing eauto).
Also add test for bug #2123 (see commit 12228).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12229 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/bugs/closed/shouldsucceed/2123.v | 11 | ||||
| -rw-r--r-- | test-suite/success/apply.v | 7 |
2 files changed, 18 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/shouldsucceed/2123.v b/test-suite/bugs/closed/shouldsucceed/2123.v new file mode 100644 index 0000000000..422a2c126e --- /dev/null +++ b/test-suite/bugs/closed/shouldsucceed/2123.v @@ -0,0 +1,11 @@ +(* About the detection of non-dependent metas by the refine tactic *) + +(* The following is a simplification of bug #2123 *) + +Parameter fset : nat -> Set. +Parameter widen : forall (n : nat) (s : fset n), { x : fset (S n) | s=s }. +Goal forall i, fset (S i). +intro. +refine (proj1_sig (widen i _)). + + diff --git a/test-suite/success/apply.v b/test-suite/success/apply.v index 4f47702c60..f95352b650 100644 --- a/test-suite/success/apply.v +++ b/test-suite/success/apply.v @@ -277,3 +277,10 @@ try eapply ex_intro. trivial. Qed. +(* Check pattern-unification on evars in apply unification *) + +Lemma evar : exists f : nat -> nat, forall x, f x = 0 -> x = 0. +Proof. +eexists; intros x H. +apply H. +Qed. |