-- TODO: implement


{- ----------------------------------------------------------------------
Reduce Lemma Export
---------------------------------------------------------------------- -}

exportLemmaGeneric :: Named CMD -> ProofStatus [EXPRESSION] ->
                      (Named CMD, ProofStatus [EXPRESSION])
exportLemmaGeneric namedcmd ps =
  (makeNamed lemmaname lemma, closedReduceProofStatus lemmaname [mkOp "Proof" []])
      where Cmd _ exps = sentence namedcmd
            lemma = Cmd "=" [head exps, head (proofTree ps)]
            lemmaname = ganame namedcmd
exportLemmaGeneric :: Named CMD -> ProofStatus [EXPRESSION] ->
                      (Named CMD, ProofStatus [EXPRESSION])
exportLemmaGeneric namedcmd ps =
  (makeNamed lemmaname lemma, closedReduceProofStatus lemmaname [mkOp "Proof" []])
      where Cmd _ exps = sentence namedcmd
            lemma = Cmd "=" [head exps, head (proofTree ps)]
            lemmaname = ganame namedcmd
exportLemmaGeneric namedcmd ps =
  (makeNamed lemmaname lemma, closedReduceProofStatus lemmaname [mkOp "Proof" []])
      where Cmd _ exps = sentence namedcmd
            lemma = Cmd "=" [head exps, head (proofTree ps)]
            lemmaname = ganame namedcmd