mirror of
https://github.com/anoma/juvix.git
synced 2024-12-12 14:28:08 +03:00
19 lines
172 B
Plaintext
19 lines
172 B
Plaintext
module Box;
|
|
|
|
type Box (A : Type) :=
|
|
box : A → Box A;
|
|
|
|
type T :=
|
|
t : T;
|
|
|
|
b : Box _;
|
|
b := box t;
|
|
|
|
id : {A : Type} → A → A;
|
|
id x := x;
|
|
|
|
tt : _;
|
|
tt := id t
|
|
|
|
end;
|