- eq (IdentToken _) (_, IdentToken _) = True
- eq (NumberToken _) (_, NumberToken _) = True
- eq (CharToken _) (_, CharToken _) = True
- eq x (_, y) = gEq {|*|} x y
+ eq (IdentToken _) (_, _, IdentToken _) = True
+ eq (NumberToken _) (_, _, NumberToken _) = True
+ eq (CharToken _) (_, _, CharToken _) = True
+ eq x (_, _, y) = gEq {|*|} x y