Changeset 12723

Show
Ignore:
Timestamp:
26.10.2009 13:09:31 (4 weeks ago)
Author:
maeder
Message:

changed to ASCII

Location:
trunk
Files:
3 modified

Legend:

Unmodified
Added
Removed
  • trunk/CASL/Freeness.hs

    r12441 r12723  
    1616import CASL.Sign 
    1717import CASL.Morphism 
    18 import CASL.Sublogic 
    1918import CASL.StaticAna 
    20 --import CASL.Logic_CASL () 
     19 
    2120import CASL.AS_Basic_CASL 
     21 
     22import Logic.Prover () 
    2223 
    2324import Common.Id 
     
    2526import Common.AS_Annotation 
    2627import qualified Common.Lib.Rel as Rel 
    27  
    28 import Logic.Logic 
    2928 
    3029import Data.Char 
     
    6867create_axs :: Set.Set SORT -> CASLSign -> CASLSign -> [Named CASLFORMULA] 
    6968              -> [Named CASLFORMULA] 
    70 create_axs sg_ss sg_m sg_k sens = forms  
     69create_axs sg_ss sg_m sg_k sens = forms 
    7170      where ss_m = sortSet sg_m 
    7271            ss = Set.map mkFreeName $ Set.difference ss_m sg_ss 
     
    108107            q_eq = quantifyUniversally eq 
    109108 
    110 -- | computes the last part of the axioms to assert the kernel of h 
     109-- | computes the last part of the axioms to assert the kernel of h 
    111110larger_then_ker_h :: Set.Set SORT -> Map.Map Id (Set.Set PredType) -> CASLFORMULA 
    112111larger_then_ker_h ss mis = conj 
     
    275274psiName s = mkId [mkSimpleId $ "Psi_" ++ show s] 
    276275 
    277 -- | creates the axiom for the kernel of h given the sorts and the predicates 
     276-- | creates the axiom for the kernel of h given the sorts and the predicates 
    278277-- in M, the premises and the conclusion 
    279 mkKernelAx :: Set.Set SORT -> Map.Map Id (Set.Set PredType) -> CASLFORMULA  
     278mkKernelAx :: Set.Set SORT -> Map.Map Id (Set.Set PredType) -> CASLFORMULA 
    280279              -> CASLFORMULA -> Named CASLFORMULA 
    281280mkKernelAx ss preds prem conc = makeNamed "freeness_kernel" q2 
     
    386385      where f = \ x y -> (sort_surj x) : y 
    387386 
    388 -- | generates the formula to state the homomorphism is surjective 
     387-- | generates the formula to state the homomorphism is surjective 
    389388sort_surj :: SORT -> Named CASLFORMULA 
    390389sort_surj s = form' 
  • trunk/CoCASL.hs

    r9333 r12723  
    1212 
    1313CoCASL is the coalgebraic extension of CASL.  See /Till 
    14 Mossakowski, Lutz Schröder, Markus Roggenbach, Horst 
     14Mossakowski, Lutz Schroeder, Markus Roggenbach, Horst 
    1515Reichel. Algebraic-co-algebraic specification in CoCASL. Journal of 
    1616Logic and Algebraic Programming. To appear./ 
  • trunk/Comorphisms/Maude2CASL.hs

    r12303 r12723  
    22Module      :  $Header$ 
    33Description :  Coding of Maude with preorder semantics into CASL 
    4 Copyright   :  (c) Adri‡n Riesco and Uni Bremen 2007 
     4Copyright   :  (c) Adrian Riesco and Uni Bremen 2007 
    55License     :  similar to LGPL, see HetCATS/LICENSE.txt or LIZENZ.txt 
    66