metisGUI :: String -- ^ theory name
           -> Theory Sign Sentence ProofTree
           {- ^ theory consisting of a SoftFOL.Sign.Sign
           and a list of Named SoftFOL.Sign.Sentence -}
           -> [FreeDefMorphism SPTerm SoftFOLMorphism] -- ^ freeness constraints
           -> IO [ProofStatus ProofTree] -- ^ proof status for each goal
metisGUI thName th freedefs =
    genericATPgui (atpFun thName) True (proverName metisProver) thName th
                  freedefs emptyProofTree
metisGUI :: String -- ^ theory name
           -> Theory Sign Sentence ProofTree
           {- ^ theory consisting of a SoftFOL.Sign.Sign
           and a list of Named SoftFOL.Sign.Sentence -}
           -> [FreeDefMorphism SPTerm SoftFOLMorphism] -- ^ freeness constraints
           -> IO [ProofStatus ProofTree]
metisGUI thName th freedefs =
    genericATPgui (atpFun thName) True (proverName metisProver) thName th
                  freedefs emptyProofTree
metisGUI thName th freedefs =
    genericATPgui (atpFun thName) True (proverName metisProver) thName th
                  freedefs emptyProofTree