-- data Exp = ...
varEName, conEName, litEName, appEName, appTypeEName, infixEName, infixAppName,
    sectionLName, sectionRName, lamEName, lamCaseEName, tupEName,
    unboxedTupEName, unboxedSumEName, condEName, multiIfEName, letEName,
    caseEName, doEName, compEName, staticEName, unboundVarEName :: Name
varEName        = libFun (fsLit "varE")        varEIdKey
varEName, conEName, litEName, appEName, appTypeEName, infixEName, infixAppName,
    sectionLName, sectionRName, lamEName, lamCaseEName, tupEName,
    unboxedTupEName, unboxedSumEName, condEName, multiIfEName, letEName,
    caseEName, doEName, compEName, staticEName, unboundVarEName :: Name
varEName        = libFun (fsLit "varE")        varEIdKey
varEName        = libFun (fsLit "varE")        varEIdKey