Changeset 12723
- Timestamp:
- 26.10.2009 13:09:31 (4 weeks ago)
- Location:
- trunk
- Files:
-
- 3 modified
-
CASL/Freeness.hs (modified) (6 diffs)
-
CoCASL.hs (modified) (1 diff)
-
Comorphisms/Maude2CASL.hs (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/CASL/Freeness.hs
r12441 r12723 16 16 import CASL.Sign 17 17 import CASL.Morphism 18 import CASL.Sublogic19 18 import CASL.StaticAna 20 --import CASL.Logic_CASL () 19 21 20 import CASL.AS_Basic_CASL 21 22 import Logic.Prover () 22 23 23 24 import Common.Id … … 25 26 import Common.AS_Annotation 26 27 import qualified Common.Lib.Rel as Rel 27 28 import Logic.Logic29 28 30 29 import Data.Char … … 68 67 create_axs :: Set.Set SORT -> CASLSign -> CASLSign -> [Named CASLFORMULA] 69 68 -> [Named CASLFORMULA] 70 create_axs sg_ss sg_m sg_k sens = forms 69 create_axs sg_ss sg_m sg_k sens = forms 71 70 where ss_m = sortSet sg_m 72 71 ss = Set.map mkFreeName $ Set.difference ss_m sg_ss … … 108 107 q_eq = quantifyUniversally eq 109 108 110 -- | Âcomputes the last part of the axioms to assert the kernel of h109 -- | computes the last part of the axioms to assert the kernel of h 111 110 larger_then_ker_h :: Set.Set SORT -> Map.Map Id (Set.Set PredType) -> CASLFORMULA 112 111 larger_then_ker_h ss mis = conj … … 275 274 psiName s = mkId [mkSimpleId $ "Psi_" ++ show s] 276 275 277 -- | Âcreates the axiom for the kernel of h given the sorts and the predicates276 -- | creates the axiom for the kernel of h given the sorts and the predicates 278 277 -- in M, the premises and the conclusion 279 mkKernelAx :: Set.Set SORT -> Map.Map Id (Set.Set PredType) -> CASLFORMULA 278 mkKernelAx :: Set.Set SORT -> Map.Map Id (Set.Set PredType) -> CASLFORMULA 280 279 -> CASLFORMULA -> Named CASLFORMULA 281 280 mkKernelAx ss preds prem conc = makeNamed "freeness_kernel" q2 … … 386 385 where f = \ x y -> (sort_surj x) : y 387 386 388 -- | Âgenerates the formula to state the homomorphism is surjective387 -- | generates the formula to state the homomorphism is surjective 389 388 sort_surj :: SORT -> Named CASLFORMULA 390 389 sort_surj s = form' -
trunk/CoCASL.hs
r9333 r12723 12 12 13 13 CoCASL is the coalgebraic extension of CASL. See /Till 14 Mossakowski, Lutz Schr öder, Markus Roggenbach, Horst14 Mossakowski, Lutz Schroeder, Markus Roggenbach, Horst 15 15 Reichel. Algebraic-co-algebraic specification in CoCASL. Journal of 16 16 Logic and Algebraic Programming. To appear./ -
trunk/Comorphisms/Maude2CASL.hs
r12303 r12723 2 2 Module : $Header$ 3 3 Description : Coding of Maude with preorder semantics into CASL 4 Copyright : (c) Adri n Riesco and Uni Bremen 20074 Copyright : (c) Adrian Riesco and Uni Bremen 2007 5 5 License : similar to LGPL, see HetCATS/LICENSE.txt or LIZENZ.txt 6 6