add BoolExtra

lib/Quox/BoolExtra.idr

@@ -0,0 +1,12 @@
+module Quox.BoolExtra
+
+import public Data.Bool
+
+
+infixr 5 <&&>
+infixr 4 <||>
+
+public export
+(<&&>), (<||>) : Monad m => m Bool -> m Bool -> m Bool
+a <&&> b = if     !a then b else pure False
+a <||> b = if not !a then b else pure True

lib/quox-lib.ipkg

@@ -9,6 +9,7 @@ depends = base, contrib, elab-util, sop, snocvect
 
 modules =
   Quox.NatExtra,
+  Quox.BoolExtra,
   Quox.Decidable,
   Quox.No,
   Quox.Pretty,