mirror of
https://github.com/anoma/juvix.git
synced 2024-12-11 08:25:46 +03:00
21 lines
193 B
Plaintext
21 lines
193 B
Plaintext
|
module Box;
|
||
|
|
|
||
|
|
inductive Box (A : Type) {
|
||
|
|
box : A → Box A;
|
||
|
|
};
|
||
|
|
|
||
|
|
inductive T {
|
||
|
|
t : T;
|
||
|
|
};
|
||
|
|
|
||
|
|
b : Box _;
|
||
|
|
b ≔ box t;
|
||
|
|
|
||
|
|
id : {A : Type} → A → A;
|
||
|
|
id x ≔ x;
|
||
|
|
|
||
|
|
tt : _;
|
||
|
|
tt ≔ id t
|
||
|
|
|
||
|
|
end;
|