{- ----------------------------------------------------------------------
Reduce Commands
---------------------------------------------------------------------- -}


cslReduceDefaultMapping :: [(OPNAME, String)]
cslReduceDefaultMapping =
    let idmapping = map (\ x -> (x, show x))
    in (OP_pow, "**") :
           idmapping (Map.keys $ Map.delete OP_pow operatorInfoNameMap)
cslReduceDefaultMapping :: [(OPNAME, String)]
cslReduceDefaultMapping =
    let idmapping = map (\ x -> (x, show x))
    in (OP_pow, "**") :
           idmapping (Map.keys $ Map.delete OP_pow operatorInfoNameMap)
cslReduceDefaultMapping =
    let idmapping = map (\ x -> (x, show x))
    in (OP_pow, "**") :
           idmapping (Map.keys $ Map.delete OP_pow operatorInfoNameMap)