WJJ6PMS6GYR5NIQI6Q6YH6WQSTJ3U56F3KZJOSYHTRAZ5MKIPXAAC
LDJ4DDJZJV3W2UZIK6USOW5IADAWHDYM3EMZNCBFDKCXFYVS3WCAC
XJZ5YZW6TIBBMPL2TGEA2ERD2UYZ4PIXNSV25ETLUVPLDM3RA5EQC
GEBWJGHFGLPFE6PGT5D7W3PL57NPMQRPDUK54GTN4344W6QT7DPAC
XNPLRKJ4ZK442XNJ5BC7TO3DKXGXFSOSGBZBPW5HZZDHY3IVD6FAC
Y25HAVMY4WAD43DQ5PHLHUPDKW7X6DWJVP3VKYVQ3AE25S6ESSXAC
public export
export
[BooleanDisjMagma] Magma Boolean where False <> False = False _ <> _ = True
[BooleanDisjMagma] Magma Boolean where
False <> False = False
_ <> _ = True
disj : Boolean -> Boolean -> Booleandisj False False = Falsedisj _ _ = True
disj : Boolean -> Boolean -> Boolean
disj False False = False
disj _ _ = True
disj : Boolean -> Boolean -> Booleandisj = (<>) @{BooleanDisjMagma}
disj = (<>) @{BooleanDisjMagma}
[BooleanDisjMagma] Magma Boolean where (<>) = disj
(<>) = disj
[BooleanConjMagma] Magma Boolean where True <> True = True _ <> _ = False
[BooleanConjMagma] Magma Boolean where
True <> True = True
_ <> _ = False
conj : Boolean -> Boolean -> Booleanconj True True = Trueconj _ _ = False
conj : Boolean -> Boolean -> Boolean
conj True True = True
conj _ _ = False
conj : Boolean -> Boolean -> Booleanconj = (<>) @{BooleanConjMagma}
conj = (<>) @{BooleanConjMagma}
[BooleanConjMagma] Magma Boolean where (<>) = conj
(<>) = conj