90bfd84a07
In the standard library, we should use explicit universe variables for universe polymorphic definitions. Users that want to declare universe polymorphic definitions but do not want to provide universe level parameters should use Type _ or Type*
34 lines
769 B
Text
34 lines
769 B
Text
open bool nat
|
|
|
|
-- set_option trace.compiler.code_gen true
|
|
|
|
attribute [reducible]
|
|
definition foo (b : bool) : Type :=
|
|
cond b nat (nat → nat)
|
|
|
|
definition bla (b : bool) : foo b → nat :=
|
|
bool.cases_on b (λ f, f 100) (λ n, n)
|
|
|
|
definition of_dec (p : Prop) [h : decidable p] : bool :=
|
|
decidable.cases_on h (λ h, ff) (λ h, tt)
|
|
|
|
definition boo (n : nat) := bla (of_dec (n > 10))
|
|
|
|
definition x : nat := 20
|
|
|
|
definition tst (b : bool) (a : nat) : foo b :=
|
|
bool.cases_on b (λ n : nat, n * a) a
|
|
|
|
eval bla ff (λ n : nat, n+10)
|
|
eval bla tt x
|
|
eval boo 11 x
|
|
eval boo 9 (λ n : nat, n+20)
|
|
eval tst ff 4 10
|
|
eval tst tt 3
|
|
print "---------"
|
|
vm_eval bla ff (λ n : nat, n+10)
|
|
vm_eval bla tt x
|
|
vm_eval boo 11 x
|
|
vm_eval boo 9 (λ n : nat, n+20)
|
|
vm_eval tst ff 4 10
|
|
vm_eval tst tt 3
|