fix nat elim quantities

lib/Quox/Syntax/Qty/Three.idr

@@ -106,6 +106,7 @@ public export
 IsQty Three where
   zero = Zero
   one  = One
+  any  = Any
 
   (+) = plus
   (*) = times
@@ -116,6 +117,10 @@ IsQty Three where
   isZero     = decEq Zero
   zeroIsZero = Refl
 
+  IsAny    = Equal Three.Any
+  isAny    = decEq Any
+  anyIsAny = Refl
+
   Compat = Compat3
   compat = compat3
 
@@ -128,6 +133,7 @@ IsQty Three where
   IsGlobal     = IsGlobal3
   isGlobal     = isGlobal3
   zeroIsGlobal = \Refl => GZero
+  anyIsGlobal  = \Refl => GAny
 
   prettySuffix = pretty0M