At patterns on LHS

aoc2023/Day1.newt

@@ -10,10 +10,6 @@ digits1 (c :: cs) = let x = ord c in
     then x - 48 :: digits1 cs
     else digits1 cs
 
-tail : {a : U} -> List a -> List a
-tail Nil = Nil
-tail (x :: xs) = xs
-
 -- TODO I used @ patterns in Lean
 digits2 : List Char -> List Int
 digits2 xs = case xs of