--- 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"