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


-- | computes the remainder of a division
casask :: Session a => a -> Named CMD -> IO (ProofStatus [EXPRESSION],
           [(Named CMD, ProofStatus [EXPRESSION])])
casask sess cmd = do
  proofstatus <- procString sess (senAttr cmd) $ exportReduce cmd ++ ";"
  return (proofstatus, [exportLemmaAsk cmd proofstatus])


-- | computes the remainder of a division
casask sess cmd = do
  proofstatus <- procString sess (senAttr cmd) $ exportReduce cmd ++ ";"
  return (proofstatus, [exportLemmaAsk cmd proofstatus])


-- | computes the remainder of a division