- 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