in Tools/8bit/isa-patches/HOLCF/clean-HOLCF.cfg
authoroheimb
Mon, 02 Dec 1996 12:03:51 +0100
changeset 2289 c53230ac3954
parent 2288 16e7a5adb679
child 2290 e5c08f8b483b
in Tools/8bit/isa-patches/HOLCF/clean-HOLCF.cfg
src/HOLCF/Cfun1.thy
src/Tools/8bit/isa-patches/HOLCF/clean-HOLCF.cfg
--- a/src/HOLCF/Cfun1.thy	Mon Dec 02 10:25:53 1996 +0100
+++ b/src/HOLCF/Cfun1.thy	Mon Dec 02 12:03:51 1996 +0100
@@ -48,26 +48,10 @@
   less_cfun_def         "less_cfun fo1 fo2 == ( fapp fo1 << fapp fo2 )"
 
 (* start 8bit 1 *)
-types
-
-('a, 'b) ""          (infixr 5)
-
-syntax
-	Gfabs	:: "('a => 'b)=>('a -> 'b)"	(binder "" 10)
-
-translations
-
-(type)  "x  y"	== (type) "x -> y" 
-
 (* end 8bit 1 *)
 
 
 end
 
 (* start 8bit 2 *)
-ML
-val parse_ast_translation = ("",    fn asts => Appl (Constant "LAM " :: asts)) ::
-			    parse_ast_translation;
-val print_ast_translation = ("LAM ", fn asts => Appl (Constant ""    :: asts)) ::
-			    print_ast_translation;
 (* end 8bit 2 *)
--- a/src/Tools/8bit/isa-patches/HOLCF/clean-HOLCF.cfg	Mon Dec 02 10:25:53 1996 +0100
+++ b/src/Tools/8bit/isa-patches/HOLCF/clean-HOLCF.cfg	Mon Dec 02 12:03:51 1996 +0100
@@ -2,6 +2,7 @@
 
 STEM "/usr/stud/oheimb/isabelle/"
 
+CLEAN IN HOLCF/Cfun1.thy BETWEEN "^\(\*\s*start\s*8bit\s*1" "^\(\*\s*end\s*8bit\s*1" 
 CLEAN IN HOLCF/Cfun1.thy BETWEEN "^\(\*\s*start\s*8bit\s*2" "^\(\*\s*end\s*8bit\s*2" 
 CLEAN IN HOLCF/Cprod3.thy BETWEEN "^\(\*\s*start\s*8bit\s*1" "^\(\*\s*end\s*8bit\s*1" 
 CLEAN IN HOLCF/Lift3.thy BETWEEN "^\(\*\s*start\s*8bit\s*1" "^\(\*\s*end\s*8bit\s*1"