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


-- | asks value of a given expression
cassimplify :: Session a => a -> Named CMD -> IO (ProofStatus [EXPRESSION],
                [(Named CMD, ProofStatus [EXPRESSION])])
cassimplify sess cmd = do
  proofstatus <- procString sess (senAttr cmd) $ exportReduce cmd ++ ";"
  return (proofstatus, [exportLemmaSimplify cmd proofstatus])


-- | asks value of a given expression
cassimplify sess cmd = do
  proofstatus <- procString sess (senAttr cmd) $ exportReduce cmd ++ ";"
  return (proofstatus, [exportLemmaSimplify cmd proofstatus])


-- | asks value of a given expression