casfactorExp :: Session a => a -> Named CMD -> IO (ProofStatus [EXPRESSION],
                 [(Named CMD, ProofStatus [EXPRESSION])])
casfactorExp sess cmd =
  do
    proofstatus <- procString sess (senAttr cmd) $ exportReduce cmd ++ ";"
    return (proofstatus, [exportLemmaFactor cmd proofstatus])

-- | solves a single equation over the reals
casfactorExp :: Session a => a -> Named CMD -> IO (ProofStatus [EXPRESSION],
                 [(Named CMD, ProofStatus [EXPRESSION])])
casfactorExp sess cmd =
  do
    proofstatus <- procString sess (senAttr cmd) $ exportReduce cmd ++ ";"
    return (proofstatus, [exportLemmaFactor cmd proofstatus])

-- | solves a single equation over the reals
casfactorExp sess cmd =
  do
    proofstatus <- procString sess (senAttr cmd) $ exportReduce cmd ++ ";"
    return (proofstatus, [exportLemmaFactor cmd proofstatus])

-- | solves a single equation over the reals