False positive redundant parentheses inspection

[sxhya]

\func ::-++ {X : \Type} {x : X} {xs y : List X} : (x :: xs) ++ y = x :: (xs ++ y) \elim xs
  | nil => idp
  | a :: y => idp

\func foo (x : Nat) (p : Bool) (a : \Sigma Nat Bool) (u1 u2 : List (\Sigma Nat Bool)) => 
   ::-++ {_} {a} {u1} {(x, p) :: (x, not p) :: u2} -- false positive 'Redundant parentheses' reported on (x, p)