mirror of
https://github.com/luau-lang/luau.git
synced 2025-05-04 10:33:46 +01:00
16 lines
287 B
Agda
16 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
|