{-# LANGUAGE PatternSynonyms #-}
pattern F x <- (x, _)