getGoalThS :: CmdlUseTranslation -> Int -> CmdlState -> [String]
getGoalThS useTrans x state
 = case getTh useTrans x state of
    Nothing -> []
    Just th ->
      let nwth = case th of
                  G_theory x1 syn x2 x3 thSens x4 ->
                    G_theory x1 syn x2 x3
                       (OMap.filter (\ s -> not (isAxiom s) &&
                                          not (isProvenSenStatus s))
                       thSens) x4
      in [showDoc nwth "\n"]

{- local function that computes the theory of a node
   that takes into consideration translated theories in
   the selection too and returns the theory as a string -}
getGoalThS :: CmdlUseTranslation -> Int -> CmdlState -> [String]
getGoalThS useTrans x state
 = case getTh useTrans x state of
    Nothing -> []
    Just th ->
      let nwth = case th of
                  G_theory x1 syn x2 x3 thSens x4 ->
                    G_theory x1 syn x2 x3
                       (OMap.filter (\ s -> not (isAxiom s) &&
                                          not (isProvenSenStatus s))
                       thSens) x4
      in [showDoc nwth "\n"]

{- local function that computes the theory of a node
   that takes into consideration translated theories in
   the selection too and returns the theory as a string -}
getGoalThS useTrans x state
 = case getTh useTrans x state of
    Nothing -> []
    Just th ->
      let nwth = case th of
                  G_theory x1 syn x2 x3 thSens x4 ->
                    G_theory x1 syn x2 x3
                       (OMap.filter (\ s -> not (isAxiom s) &&
                                          not (isProvenSenStatus s))
                       thSens) x4
      in [showDoc nwth "\n"]

{- local function that computes the theory of a node
   that takes into consideration translated theories in
   the selection too and returns the theory as a string -}