diff options
author | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-01-17 14:11:13 +0530 |
---|---|---|
committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-01-18 00:16:43 +0530 |
commit | d3c3b67c10774ab09054b94c6db5633f0483a06f (patch) | |
tree | 1e06b56b6cc0f4913c88fe676198f59ea35a4e00 /test-suite/success/univscompute.v | |
parent | 6e0b660b1e58502b7da477b9725ae8ee4f5d00ed (diff) |
Univs: Fix alias computation for VMs, computation of normal form of
match predicates for vm_compute and compile polymorphic definitions
to constant code. Add univscompute test-suite file testing VM
computations in presence of polymorphic universes.
Diffstat (limited to 'test-suite/success/univscompute.v')
-rw-r--r-- | test-suite/success/univscompute.v | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/test-suite/success/univscompute.v b/test-suite/success/univscompute.v new file mode 100644 index 000000000..1d60ab360 --- /dev/null +++ b/test-suite/success/univscompute.v @@ -0,0 +1,32 @@ +Set Universe Polymorphism. + +Polymorphic Definition id {A : Type} (a : A) := a. + +Eval vm_compute in id 1. + +Polymorphic Inductive ind (A : Type) := cons : A -> ind A. + +Eval vm_compute in ind unit. + +Check ind unit. + +Eval vm_compute in ind unit. + +Definition bar := Eval vm_compute in ind unit. +Definition bar' := Eval vm_compute in id (cons _ tt). + +Definition bar'' := Eval native_compute in id 1. +Definition bar''' := Eval native_compute in id (cons _ tt). + +Definition barty := Eval native_compute in id (cons _ Set). + +Definition one := @id. + +Monomorphic Definition sec := one. + +Eval native_compute in sec. +Definition sec' := Eval native_compute in sec. +Eval vm_compute in sec. +Definition sec'' := Eval vm_compute in sec. + + |