mirror of
https://github.com/luau-lang/luau.git
synced 2024-12-13 05:20:38 +00:00
17 lines
287 B
Agda
17 lines
287 B
Agda
|
module Utility.Bool where
|
||
|
|
|
||
|
|
open import Agda.Builtin.Bool using (Bool; true; false)
|
||
|
|
|
||
|
|
not : Bool → Bool
|
||
|
|
not false = true
|
||
|
|
not true = false
|
||
|
|
|
||
|
|
_or_ : Bool → Bool → Bool
|
||
|
|
true or _ = true
|
||
|
|
_ or true = true
|
||
|
|
_ or _ = false
|
||
|
|
|
||
|
|
_and_ : Bool → Bool → Bool
|
||
|
|
true and true = true
|
||
|
|
_ and _ = false
|