instance Applicative f => Choice (UpStar f)