diff options
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/failure/evarclear1.v | 10 | ||||
| -rw-r--r-- | test-suite/failure/evarclear2.v | 9 | ||||
| -rw-r--r-- | test-suite/output/Fixpoint.out | 10 | ||||
| -rw-r--r-- | test-suite/output/Tactics.out | 2 |
4 files changed, 25 insertions, 6 deletions
diff --git a/test-suite/failure/evarclear1.v b/test-suite/failure/evarclear1.v new file mode 100644 index 0000000000..2e9fa0f35c --- /dev/null +++ b/test-suite/failure/evarclear1.v @@ -0,0 +1,10 @@ +Set Printing Existential Instances. +Set Printing All. +Goal forall y, let z := S y in exists x, x = 0. +intros. +eexists. +unfold z. +clear y z. +(* should fail because the evar should no longer be allowed to depend on z *) +instantiate (1:=z). + diff --git a/test-suite/failure/evarclear2.v b/test-suite/failure/evarclear2.v new file mode 100644 index 0000000000..e606a06f10 --- /dev/null +++ b/test-suite/failure/evarclear2.v @@ -0,0 +1,9 @@ +Set Printing Existential Instances. +Set Printing All. +Goal let y:=0 in exists x:y=y, x = x. +intros. +eexists. +rename y into z. +unfold z at 1 2. +(* should fail because the evar type depends on z *) +clear z. diff --git a/test-suite/output/Fixpoint.out b/test-suite/output/Fixpoint.out index 09bc008860..c69d31f401 100644 --- a/test-suite/output/Fixpoint.out +++ b/test-suite/output/Fixpoint.out @@ -13,13 +13,13 @@ fix even_pos_odd_pos 2 with (odd_pos_even_pos (n:_) (H:odd n) {struct H} : n >= 1). intros. destruct H. - omega. + omega. - apply odd_pos_even_pos in H. - omega. + apply odd_pos_even_pos in H. + omega. intros. destruct H. - apply even_pos_odd_pos in H. - omega. + apply even_pos_odd_pos in H. + omega. diff --git a/test-suite/output/Tactics.out b/test-suite/output/Tactics.out index 287e848831..ac5eedc175 100644 --- a/test-suite/output/Tactics.out +++ b/test-suite/output/Tactics.out @@ -1,4 +1,4 @@ -intro H; split; [ a H | e H ]. +intro H; split; [ a H | e H ]. intros; match goal with | |- context [if ?X then _ else _] => case X |