Prop2Prop.hs revision 9bce1b25b852debeed171a6fd774abb44c965f89
{- |
Module : $Header$
Description : Coding of CASL into SoftFOL
Copyright : (c) Dominik Luecke and Uni Bremen 2007
License : similar to LGPL, see HetCATS/LICENSE.txt or LIZENZ.txt
Maintainer : luecke@tzi.de
Stability : experimental
Portability : non-portable (imports Logic.Logic)
Translations from Propositional to its sublogics.
-}
module Comorphisms.Prop2Prop
where
import Logic.Logic
import Logic.Comorphism
import qualified Data.Set as Set
import qualified Common.AS_Annotation as AS_Anno
import qualified Common.Result as Result
import qualified Propositional.Prop2CNF as P2C
-- Propositional
import qualified Propositional.Logic_Propositional as PLogic
import qualified Propositional.AS_BASIC_Propositional as PBasic
import qualified Propositional.Sublogic as PSL
import qualified Propositional.Sign as PSign
import qualified Propositional.Morphism as PMor
import qualified Propositional.Symbol as PSymbol
-- | lids of the morphisms
data Prop2CNF = Prop2CNF deriving (Show)
instance Language Prop2CNF
instance Comorphism Prop2CNF
()
()
where
sourceLogic Prop2CNF = PLogic.Propositional
sourceSublogic Prop2CNF = PSL.top
targetLogic Prop2CNF = PLogic.Propositional
mapSublogic Prop2CNF = mapSubProp2CNF
map_symbol Prop2CNF = mapSymbol
map_morphism Prop2CNF = mapMor
-- | determination of target sublogic
mapSubProp2CNF :: PSL.PropSL -> PSL.PropSL
mapSubProp2CNF sl
| PSL.isProp sl = PSL.PropSL
{
}
| PSL.isCNF sl = PSL.PropSL
{
}
| PSL.isHC sl = PSL.PropSL
{
}
| otherwise = error "Impossible case"
-- | mapping of symbol... which is trivial in our case
mapSymbol sym = Set.singleton sym
-- | mapping of the signature
mapSig :: PSign.Sign -> PSign.Sign
mapSig = id
-- | trivial map of morphisms
mapMor mor = Result.Result
{
Result.diags = []
, Result.maybeResult = Just mor
}