{-# OPTIONS -cpp #-}

{- |

Module : $Header$

Description : Instance of class Logic for SoftFOL.

Copyright : (c) Rene Wagner, Klaus L�ttich, Uni Bremen 2005-2007

License : similar to LGPL, see HetCATS/LICENSE.txt or LIZENZ.txt

Maintainer : luecke@informatik.uni-bremen.de

Stability : provisional

Portability : non-portable (imports Logic)

Instance of class Logic for SoftFOL.

-}

module SoftFOL.Logic_SoftFOL where

import Common.DefaultMorphism

import Common.DocUtils

import Logic.Logic

import SoftFOL.ATC_SoftFOL ()

import SoftFOL.Sign

import SoftFOL.Print

import SoftFOL.Conversions

import SoftFOL.Morphism

#ifdef UNI_PACKAGE

import SoftFOL.Prove

import SoftFOL.ProveMathServ

import SoftFOL.ProveVampire

import SoftFOL.ProveDarwin

#endif

instance Pretty Sign where

pretty = pretty . signToSPLogicalPart

{- |

We use the DefaultMorphism for SPASS.

-}

type SoftFOLMorphism = DefaultMorphism Sign

{- |

A dummy datatype for the LogicGraph and for identifying the right

instances

-}

data SoftFOL = SoftFOL deriving (Show)

instance Language SoftFOL where

description _ =

"SoftFOL - Softly typed First Order Logic for "++

"Automated Theorem Proving Systems\n\n" ++

"This logic corresponds to the logic of SPASS, \n"++

"but the generation of TPTP is also possible.\n" ++

"See http://spass.mpi-sb.mpg.de/\n"++

"and http://www.cs.miami.edu/~tptp/TPTP/SyntaxBNF.html"

instance Category SoftFOL Sign SoftFOLMorphism where

dom SoftFOL = domOfDefaultMorphism

cod SoftFOL = codOfDefaultMorphism

ide SoftFOL = ideOfDefaultMorphism

comp SoftFOL = compOfDefaultMorphism

legal_obj SoftFOL = const True

legal_mor SoftFOL = legalDefaultMorphism (legal_obj SoftFOL)

-- abstract syntax, parsing (and printing)

instance Logic.Logic.Syntax SoftFOL () () ()

-- default implementation is fine!

instance Sentences SoftFOL Sentence Sign

SoftFOLMorphism SFSymbol where

map_sen SoftFOL _ s = return s

sym_of SoftFOL = symOf

sym_name SoftFOL = symbolToId

print_named SoftFOL = printFormula

-- other default implementations are fine

instance StaticAnalysis SoftFOL () Sentence

() ()

Sign

SoftFOLMorphism SFSymbol () where

sign_to_basic_spec SoftFOL _sigma _sens = ()

empty_signature SoftFOL = emptySign

inclusion SoftFOL = defaultInclusion (is_subsig SoftFOL)

is_subsig SoftFOL = const $ const True

instance Logic SoftFOL () () Sentence () ()

Sign

SoftFOLMorphism SFSymbol () ATP_ProofTree where

stability _ = Testing

-- again default implementations are fine

-- the prover uses HTk and IO functions from uni

#ifdef UNI_PACKAGE

provers SoftFOL = [spassProver

,mathServBroker,vampire, darwinProver]

cons_checkers SoftFOL = [darwinConsChecker]

#endif