7 lines
220 B
Text
7 lines
220 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
|