inAndApp, inOrApp, inIfCond, inMatchGuard, inMatchBody
  :: SubseqExtractor v loc ()
inAndApp = asPathExtractor $ \case
  C.InAndApp -> Just ()
  _          -> Nothing
inAndApp, inOrApp, inIfCond, inMatchGuard, inMatchBody
  :: SubseqExtractor v loc ()
inAndApp = asPathExtractor $ \case
  C.InAndApp -> Just ()
  _          -> Nothing
inAndApp = asPathExtractor $ \case
  C.InAndApp -> Just ()
  _          -> Nothing