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

-- | performs quantifier elimination of a given expression
casint :: Session a => a -> Named CMD -> IO (ProofStatus [EXPRESSION],
           [(Named CMD, ProofStatus [EXPRESSION])])
casint sess cmd =
  do
    proofstatus <- procString sess (senAttr cmd) $ exportReduce cmd ++ ";"
    return (proofstatus, [exportLemmaInt cmd proofstatus])

-- | performs quantifier elimination of a given expression
casint sess cmd =
  do
    proofstatus <- procString sess (senAttr cmd) $ exportReduce cmd ++ ";"
    return (proofstatus, [exportLemmaInt cmd proofstatus])

-- | performs quantifier elimination of a given expression