inCheck :: SubseqExtractor v loc (C.Term v loc, C.Type v loc)
inCheck = asPathExtractor $ \case
  C.InCheck e t -> Just (e, t)
  _             -> Nothing

-- inInstantiateL
-- inInstantiateR
inCheck :: SubseqExtractor v loc (C.Term v loc, C.Type v loc)
inCheck = asPathExtractor $ \case
  C.InCheck e t -> Just (e, t)
  _             -> Nothing

-- inInstantiateL
-- inInstantiateR
inCheck = asPathExtractor $ \case
  C.InCheck e t -> Just (e, t)
  _             -> Nothing

-- inInstantiateL
-- inInstantiateR