diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-04-19 10:30:08 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-05-02 19:25:22 +0200 |
| commit | 880fee8f80503fc8a40e2e07b565cfd2a99d24da (patch) | |
| tree | 67222b783e941aa265a425e1d9162a8c81d8538c /test-suite/success | |
| parent | fd146ca38202c9843b4240cbdac0ae75f57e4d67 (diff) | |
Make "intro"/"intros" progress on existential variables.
Diffstat (limited to 'test-suite/success')
| -rw-r--r-- | test-suite/success/intros.v | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/test-suite/success/intros.v b/test-suite/success/intros.v index a329894aa..d37ad9f52 100644 --- a/test-suite/success/intros.v +++ b/test-suite/success/intros.v @@ -127,4 +127,28 @@ induction 1 as (n,H,IH). exact Logic.I. Qed. +(* Make "intro"/"intros" progress on existential variables *) +Module Evar. + +Goal exists (A:Prop), A. +eexists. +unshelve (intro x). +- exact nat. +- exact (x=x). +- auto. +Qed. + +Goal exists (A:Prop), A. +eexists. +unshelve (intros x). +- exact nat. +- exact (x=x). +- auto. +Qed. + +Definition d := ltac:(intro x; exact (x*x)). + +Definition d' : nat -> _ := ltac:(intros;exact 0). + +End Evar. |