A bit of library clean-up

lib/bytes.tri

@@ -10,39 +10,7 @@ bytesTail = matchList nothing (_ r : just r)
 byteEq? = equal?
 bytesLength = length
 bytesAppend = append
-
-bytesTake_ = y (self remaining n i :
-  matchList
-    t
-    (h r :
-      matchBool
-        t
-        (pair h (self r n (succ i)))
-        (equal? i n))
-    remaining)
-
-bytesTake = n bytes : bytesTake_ bytes n 0
-
-bytesDrop_ = y (self remaining n i :
-  matchList
-    t
-    (_ r :
-      matchBool
-        remaining
-        (self r n (succ i))
-        (equal? i n))
-    remaining)
-
-bytesDrop = n bytes : bytesDrop_ bytes n 0
-
-bytesSplitAt = n bytes : pair (bytesTake n bytes) (bytesDrop n bytes)
-
-bytesEq? = y (self xs ys :
-  matchList
-    (matchList true (_ _ : false) ys)
-    (xh xt :
-      matchList
-        false
-        (yh yt : and? (byteEq? xh yh) (self xt yt))
-        ys)
-    xs)
+bytesTake = take
+bytesDrop = drop
+bytesSplitAt = splitAt
+bytesEq? = equal?