:: (a, b) -> a package:ghc-internal

Extract the first component of a pair.