mirror of
https://github.com/anoma/juvix.git
synced 2025-01-05 22:46:08 +03:00
21 lines
329 B
Plaintext
21 lines
329 B
Plaintext
|
module Data.Bool;
|
||
|
inductive Bool {
|
||
|
true : Bool;
|
||
|
false : Bool;
|
||
|
};
|
||
|
|
||
|
not : Bool → Bool;
|
||
|
not true ≔ false;
|
||
|
not false ≔ true;
|
||
|
|
||
|
infixr 2 ||;
|
||
|
|| : Bool → Bool → Bool;
|
||
|
|| false a ≔ a;
|
||
|
|| true _ ≔ true;
|
||
|
|
||
|
infixr 2 &&;
|
||
|
&& : Bool → Bool → Bool;
|
||
|
&& false _ ≔ false;
|
||
|
&& true a ≔ a;
|
||
|
|
||
|
end;
|