6a4fa2d53294f484fa8788a75656eff4ad1fd703Daniel Hausmann{- |

6a4fa2d53294f484fa8788a75656eff4ad1fd703Daniel HausmannModule : $Header$

6a4fa2d53294f484fa8788a75656eff4ad1fd703Daniel HausmannCopyright : (c) Paolo Torrini and Till Mossakowski and Uni Bremen 2004-2005

6a4fa2d53294f484fa8788a75656eff4ad1fd703Daniel HausmannLicense : All rights reserved.

Maintainer : paolot@tzi.de

Stability : provisional

Portability : non-portable (imports Logic.Logic)

The embedding comorphisms from Haskell to Isabelle

-}

module Comorphisms.Haskell2IsabelleHOLCF where

import Comorphisms.Hs2HOLCF as Hs2HOLCF

import Logic.Logic as Logic

import Logic.Comorphism

-- Haskell

import Haskell.Logic_Haskell

import Haskell.HatParser as HatParser

import Haskell.HatAna as HatAna

-- Isabelle

import Isabelle.IsaSign as IsaSign

import Isabelle.Logic_Isabelle

-- Programatica

import PNT

import TiPropDecorate

-- * Comorphisms

-- The identity of the comorphism

data Haskell2IsabelleHOLCF = Haskell2IsabelleHOLCF deriving (Show)

instance Language Haskell2IsabelleHOLCF

instance Comorphism Haskell2IsabelleHOLCF

Haskell ()

HsDecls (TiDecl PNT) () ()

HatAna.Sign HaskellMorphism

() () ()

Isabelle () () IsaSign.Sentence () ()

IsaSign.Sign

IsabelleMorphism () () () where

sourceLogic _ = Haskell

sourceSublogic _ = ()

targetLogic _ = Isabelle

mapSublogic _ _ = Just ()

map_morphism = mapDefaultMorphism

map_theory _ (sign, sens) =

Hs2HOLCF.transTheory IsCont False sign sens

data Haskell2IsabelleHOL = Haskell2IsabelleHOL deriving (Show)

instance Language Haskell2IsabelleHOL

instance Comorphism Haskell2IsabelleHOL

Haskell ()

HsDecls (TiDecl PNT) () ()

HatAna.Sign HaskellMorphism

() () ()

Isabelle () () IsaSign.Sentence () ()

IsaSign.Sign

IsabelleMorphism () () () where

sourceLogic _ = Haskell

sourceSublogic _ = ()

targetLogic _ = Isabelle

mapSublogic _ _ = Just ()

map_morphism = mapDefaultMorphism

map_theory _ (sign, sens) =

Hs2HOLCF.transTheory NotCont False sign sens