mirror of
https://github.com/anoma/juvix.git
synced 2024-12-04 17:07:28 +03:00
14 lines
175 B
Plaintext
14 lines
175 B
Plaintext
module Main;
|
|
|
|
import M open;
|
|
import M open;
|
|
|
|
type Bool :=
|
|
| true
|
|
| false;
|
|
|
|
instance
|
|
boolI : T Bool := mkT λ{x := x};
|
|
|
|
main : Bool := case T.pp unit of unit := T.pp true;
|