0N/A{-# OPTIONS -cpp #-}

0N/A{- |

0N/AModule : $Header$

0N/ADescription : provides a map of provers to their most useful composed

0N/A comorphisms

0N/ACopyright : (c) Klaus L�ttich, Uni Bremen 2005

0N/ALicense : similar to LGPL, see HetCATS/LICENSE.txt or LIZENZ.txt

0N/A

0N/AMaintainer : luecke@informatik.uni-bremen.de

0N/AStability : provisional

0N/APortability : non-portable(Logic)

0N/A

0N/AThis module provides a map of provers to their most useful composed

0N/Acomorphisms.

0N/A-}

0N/A

0N/Amodule Comorphisms.KnownProvers (KnownProversMap,

0N/A KnownConsCheckersMap,

0N/A defaultGUIProver,

0N/A knownProversGUI,

0N/A knownProversWithKind,

0N/A shrinkKnownProvers,

0N/A showKnownProvers,

0N/A showAllKnownProvers) where

0N/A

import qualified Data.Map as Map

import System.Exit (exitFailure)

import Common.Result

import Logic.Logic (provers) -- hiding (top)

import Logic.Coerce()

import Logic.Grothendieck

import Logic.Comorphism

import Logic.Prover (prover_name,hasProverKind,ProverKind(..))

import CASL.Logic_CASL

import CASL.Sublogic

import qualified Propositional.Sublogic as PS

import SoftFOL.Logic_SoftFOL (SoftFOL(..))

import Isabelle.Logic_Isabelle (Isabelle(..))

import qualified Propositional.Logic_Propositional as Prop

import Comorphisms.Prop2CASL

import Comorphisms.CASL2SubCFOL

import Comorphisms.CASL2PCFOL

import Comorphisms.CASL2HasCASL

import Comorphisms.CFOL2IsabelleHOL

#ifdef CASLEXTENSIONS

import Comorphisms.CoCASL2CoPCFOL

import Comorphisms.CoCASL2CoSubCFOL

import Comorphisms.CoCFOL2IsabelleHOL

import Comorphisms.Modal2CASL

import Comorphisms.CASL_DL2CASL

import OWL.Logic_OWL11

#endif

import Comorphisms.PCoClTyConsHOL2PairsInIsaHOL

import Comorphisms.HasCASL2PCoClTyConsHOL

#ifdef PROGRAMATICA

import Comorphisms.Haskell2IsabelleHOLCF

#endif

import Comorphisms.SuleCFOL2SoftFOL

type KnownProversMap = Map.Map String [AnyComorphism]

type KnownConsCheckersMap = Map.Map String [AnyComorphism]

-- | the default prover selected in the GUI

defaultGUIProver :: String

defaultGUIProver = "SPASS"

-- | a map of known prover names implemanting a GUI interface

knownProversGUI :: Result KnownProversMap

knownProversGUI = knownProversWithKind ProveGUI

-- | a map of known prover names for a specific prover kind

-- to a list of simple (composed) comorphisms

knownProversWithKind :: ProverKind -> Result KnownProversMap

knownProversWithKind pk =

do isaCs <- isaComorphisms

spassCs <- spassComorphisms

zchaffCS <- zchaffComorphisms

qCs <- quickCheckComorphisms

pelletCS <- pelletComorphisms

return $ foldl insProvers Map.empty $

isaCs ++ spassCs ++ zchaffCS ++ qCs ++ pelletCS

where insProvers kpm cm =

case cm of

Comorphism cid ->

let prs = provers (targetLogic cid)

in foldl (\ m p -> if hasProverKind pk p

then Map.insertWith (flip (++))

(prover_name p) [cm] m

else m) kpm prs

shrinkKnownProvers :: G_sublogics -> KnownProversMap -> KnownProversMap

shrinkKnownProvers sub = Map.filter (not . null) .

Map.map (filter $ lessSublogicComor sub)

isaComorphisms :: Result [AnyComorphism]

isaComorphisms = do

-- CASL

subpc2IHOLviaHasCASL <-

compComorphism (Comorphism CASL2PCFOL) (Comorphism CASL2HasCASL)

>>= ( \ x -> compComorphism x

$ Comorphism PCoClTyConsHOL2PairsInIsaHOL)

subpc2IHOL <-

compComorphism (Comorphism CASL2PCFOL)

(Comorphism defaultCASL2SubCFOL)

>>= ( \ x -> compComorphism x $ Comorphism CFOL2IsabelleHOL)

-- HasCASL

subHasCASL <-

compComorphism (Comorphism HasCASL2PCoClTyConsHOL)

$ Comorphism PCoClTyConsHOL2PairsInIsaHOL

#ifdef CASLEXTENSIONS

-- CoCASL

casl_dl2CASL <- compComorphism (Comorphism CASL_DL2CASL) subpc2IHOL

co2IHOL <-

compComorphism (Comorphism CoCASL2CoPCFOL)

(Comorphism CoCASL2CoSubCFOL)

>>= (\ x -> compComorphism x (Comorphism CoCFOL2IsabelleHOL))

-- ModalCASL

mod2IHOL <- compComorphism (Comorphism Modal2CASL) subpc2IHOL

#endif

-- Propositional

prop2IHOL <- compComorphism (Comorphism Prop2CASL) subpc2IHOL

return [Comorphism (mkIdComorphism Isabelle ()),

Comorphism CFOL2IsabelleHOL, subpc2IHOLviaHasCASL, subpc2IHOL,

#ifdef CASLEXTENSIONS

co2IHOL, mod2IHOL,casl_dl2CASL,

#endif

#ifdef PROGRAMATICA

Comorphism Haskell2IsabelleHOLCF,

#endif

subHasCASL, Comorphism PCoClTyConsHOL2PairsInIsaHOL,

prop2IHOL ]

spassComorphisms :: Result [AnyComorphism]

spassComorphisms =

do let max_nosub_SPASS =

caslTop {cons_features = emptyMapConsFeature}

max_sub_SPASS = max_nosub_SPASS { sub_features = LocFilSub }

idCASL_sub = Comorphism (mkIdComorphism CASL max_sub_SPASS)

idCASL_nosub = Comorphism (mkIdComorphism CASL max_nosub_SPASS)

compSPASS x = compComorphism x (Comorphism SuleCFOL2SoftFOL)

partOut <- (compComorphism idCASL_sub (Comorphism defaultCASL2SubCFOL)

>>= compSPASS)

partSubOut <- (compComorphism (Comorphism CASL2PCFOL)

(Comorphism defaultCASL2SubCFOL)

>>= (compComorphism idCASL_nosub)

>>= compSPASS)

#ifdef CASLEXTENSIONS

prop2SPASS <- compComorphism (Comorphism Prop2CASL) partOut

casl_dl2SPASS <- compComorphism (Comorphism CASL_DL2CASL) partOut

#endif

-- Fixme: constraint empty mapping is not available after Modal2CASL

-- mod2SPASS <- compComorphism (Comorphism Modal2CASL) partSubOut

return [Comorphism (mkIdComorphism SoftFOL ()),

Comorphism SuleCFOL2SoftFOL,partOut,partSubOut

#ifdef CASLEXTENSIONS

,prop2SPASS,casl_dl2SPASS

#endif

]

zchaffComorphisms :: Result [AnyComorphism]

zchaffComorphisms = return

[

Comorphism (mkIdComorphism Prop.Propositional PS.top)

]

pelletComorphisms :: Result [AnyComorphism]

pelletComorphisms = return

[

Comorphism (mkIdComorphism OWL11 ())

]

quickCheckComorphisms :: Result [AnyComorphism]

quickCheckComorphisms = do

c <- compComorphism (Comorphism CASL2PCFOL)

(Comorphism defaultCASL2SubCFOL)

return [c, Comorphism $ mkIdComorphism CASL

(top {has_part = False})]

showAllKnownProvers :: IO ()

showAllKnownProvers =

do let Result ds mkpMap = knownProversGUI

putStrLn "Diagnoses:"

putStrLn $ unlines $ map show ds

maybe exitFailure showKnownProvers mkpMap

showKnownProvers :: KnownProversMap -> IO ()

showKnownProvers km =

do putStrLn "-----------\nKnownProvers:"

putStrLn $ unlines $ map form $ Map.toList $ km

where form (name,cl) =

name ++ concatMap (\c -> "\n "++show c) cl