diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2018-03-04 18:16:16 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2018-03-04 18:16:16 +0100 |
commit | a46a04577e34c69b42c2728ec1e0babb5be23e31 (patch) | |
tree | 85fcbb88f1e987041132e9b058fa5b100612887c /test-suite/success | |
parent | 78551857a41a57607ecfb3fd010e0a9755f47cea (diff) | |
parent | 0e79cec728dd4cfc3596a39b5d8bede663fea73c (diff) |
Merge PR #935: Handling evars in the VM
Diffstat (limited to 'test-suite/success')
-rw-r--r-- | test-suite/success/vm_evars.v | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/test-suite/success/vm_evars.v b/test-suite/success/vm_evars.v new file mode 100644 index 000000000..2c8b099ef --- /dev/null +++ b/test-suite/success/vm_evars.v @@ -0,0 +1,23 @@ +Fixpoint iter {A} (n : nat) (f : A -> A) (x : A) := +match n with +| 0 => x +| S n => iter n f (f x) +end. + +Goal nat -> True. +Proof. +intros n. +evar (f : nat -> nat). +cut (iter 10 f 0 = 0). +vm_compute. +intros; constructor. +instantiate (f := (fun x => x)). +reflexivity. +Qed. + +Goal exists x, x = 5 + 5. +Proof. + eexists. + vm_compute. + reflexivity. +Qed. |