translateClassExpression :: ScopeInformation -> L1.SrcSpan -> L2.L2NamespaceID -> L1.L1ClassExpression -> ModelTranslation L2.L2ClassExpression
translateClassExpression scope _ nsid (L1.L1ClassExpressionReference ss cpath) = do
  classID <-
    (findScopedSymbolByRAPath ss nsid cpath $ \nsc className ->
      M.lookup (L1.l1IdBS className) (L2.l2nsClasses nsc))
  return $ L2.L2ClassExpressionReference ss classID
translateClassExpression :: ScopeInformation -> L1.SrcSpan -> L2.L2NamespaceID -> L1.L1ClassExpression -> ModelTranslation L2.L2ClassExpression
translateClassExpression scope _ nsid (L1.L1ClassExpressionReference ss cpath) = do
  classID <-
    (findScopedSymbolByRAPath ss nsid cpath $ \nsc className ->
      M.lookup (L1.l1IdBS className) (L2.l2nsClasses nsc))
  return $ L2.L2ClassExpressionReference ss classID
translateClassExpression scope _ nsid (L1.L1ClassExpressionReference ss cpath) = do
  classID <-
    (findScopedSymbolByRAPath ss nsid cpath $ \nsc className ->
      M.lookup (L1.l1IdBS className) (L2.l2nsClasses nsc))
  return $ L2.L2ClassExpressionReference ss classID