{-# LANGUAGE MultiParamTypeClasses, TypeSynonymInstances #-}

{- |

Module : $Header$

Description : Translation of first-order logic with dependent types (DFOL) to

CASL

Copyright : (c) Kristina Sojakova, DFKI Bremen 2009

License : GPLv2 or higher

Maintainer : k.sojakova@jacobs-university.de

Stability : experimental

Portability : portable

Ref: K. Sojakova and F. Rabe. Translating a Dependently-Typed Logic to

First-Order Logic. LNCS 2009, pages 326-341.

-}

module Comorphisms.DFOL2CASL where

import Logic.Logic

import Logic.Comorphism

import Common.ProofTree

import DFOL.Logic_DFOL

import DFOL.AS_DFOL

import DFOL.Sign

import DFOL.Morphism

import DFOL.Symbol

import DFOL.Comorphism

import qualified CASL.Logic_CASL as CASL_Logic

import qualified CASL.Sublogic as CSL

import qualified CASL.AS_Basic_CASL as CASL_AS

import qualified CASL.Sign as CASL_Sign

import qualified CASL.Morphism as CASL_Morphism

-- cid for the comorphism

data DFOL2CASL = DFOL2CASL deriving Show

instance Language DFOL2CASL where

language_name DFOL2CASL = "DFOL2CASL"

instance Comorphism DFOL2CASL

DFOL () BASIC_SPEC FORMULA SYMB_ITEMS SYMB_MAP_ITEMS

Sign Morphism Symbol Symbol ()

CASL_Logic.CASL CSL.CASL_Sublogics CASL_Logic.CASLBasicSpec

CASL_AS.CASLFORMULA CASL_AS.SYMB_ITEMS CASL_AS.SYMB_MAP_ITEMS

CASL_Sign.CASLSign CASL_Morphism.CASLMor CASL_Sign.Symbol

CASL_Morphism.RawSymbol ProofTree

where

sourceLogic DFOL2CASL = DFOL

sourceSublogic DFOL2CASL = ()

targetLogic DFOL2CASL = CASL_Logic.CASL

mapSublogic DFOL2CASL () = Just CSL.bottom

{ CSL.has_eq = True

, CSL.has_pred = True

, CSL.which_logic = CSL.FOL

}

map_theory DFOL2CASL = wrapInResult . theoryTransl

map_symbol DFOL2CASL = symbolTransl

map_sentence DFOL2CASL sig = wrapInResult . (senTransl sig)

map_morphism DFOL2CASL = wrapInResult . morphTransl

has_model_expansion DFOL2CASL = True