add space to binder syntax
authorhuffman
Fri Jan 18 20:34:28 2008 +0100 (2008-01-18)
changeset 259279c544dac6269
parent 25926 aa0eca1ccb19
child 25928 042e877d9841
add space to binder syntax
src/HOLCF/Cfun.thy
src/HOLCF/Fix.thy
     1.1 --- a/src/HOLCF/Cfun.thy	Fri Jan 18 20:31:11 2008 +0100
     1.2 +++ b/src/HOLCF/Cfun.thy	Fri Jan 18 20:34:28 2008 +0100
     1.3 @@ -68,7 +68,7 @@
     1.4    "_Lambda" :: "[cargs, 'a] \<Rightarrow> logic"  ("(3LAM _./ _)" [1000, 10] 10)
     1.5  
     1.6  syntax (xsymbols)
     1.7 -  "_Lambda" :: "[cargs, 'a] \<Rightarrow> logic" ("(3\<Lambda>_./ _)" [1000, 10] 10)
     1.8 +  "_Lambda" :: "[cargs, 'a] \<Rightarrow> logic" ("(3\<Lambda> _./ _)" [1000, 10] 10)
     1.9  
    1.10  parse_ast_translation {*
    1.11  (* rewrites (LAM x y z. t) => (_cabs x (_cabs y (_cabs z t))) *)
     2.1 --- a/src/HOLCF/Fix.thy	Fri Jan 18 20:31:11 2008 +0100
     2.2 +++ b/src/HOLCF/Fix.thy	Fri Jan 18 20:34:28 2008 +0100
     2.3 @@ -59,7 +59,7 @@
     2.4    "_FIX" :: "['a, 'a] \<Rightarrow> 'a" ("(3FIX _./ _)" [1000, 10] 10)
     2.5  
     2.6  syntax (xsymbols)
     2.7 -  "_FIX" :: "['a, 'a] \<Rightarrow> 'a" ("(3\<mu>_./ _)" [1000, 10] 10)
     2.8 +  "_FIX" :: "['a, 'a] \<Rightarrow> 'a" ("(3\<mu> _./ _)" [1000, 10] 10)
     2.9  
    2.10  translations
    2.11    "\<mu> x. t" == "CONST fix\<cdot>(\<Lambda> x. t)"