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
7 lines
216 B
Text
7 lines
216 B
Text
inductive {u} Foo : Type → Type (u+1)
|
|
| mk : Π (X : Type), Foo X
|
|
| wrap : Π (X : Type), Foo X → Foo X
|
|
|
|
def rig : Π {X : Type}, Foo X → Foo X
|
|
| X (Foo.wrap .X foo) := foo
|
|
| X foo := foo
|