bf9f7560f7
(Type u) is the old (Type (u+1)) (PType u) is the old (Type u) Type* is the old (Type (_+1)) PType* is the old Type* The stdlib can be compiled, but we still have > 70 broken tests See discussion at #1341
9 lines
290 B
Text
9 lines
290 B
Text
inductive {u} tree (A : Type u) : Type u
|
|
| leaf : A -> tree
|
|
| node : list tree -> tree
|
|
|
|
def foo {A : Type*} : nat → tree A → nat
|
|
| 0 _ := 0
|
|
| (n+1) (tree.leaf a) := 0
|
|
| (n+1) (tree.node []) := foo n (tree.node [])
|
|
| (n+1) (tree.node (x::xs)) := foo n x
|