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; |