module CoreSyn where -- Needed by Var.lhs data Expr b type CoreExpr = Expr Var.Var