src/HOLCF/Cfun.thy
changeset 17817 405fb812e738
parent 17816 9942c5ed866a
child 17832 e18fc1a9a0e0
--- a/src/HOLCF/Cfun.thy	Mon Oct 10 05:30:02 2005 +0200
+++ b/src/HOLCF/Cfun.thy	Mon Oct 10 05:46:17 2005 +0200
@@ -22,7 +22,7 @@
 lemma adm_cont: "adm cont"
 by (rule admI, rule cont_lub_fun)
 
-cpodef (CFun)  ('a, 'b) "->" (infixr 0) = "{f::'a => 'b. cont f}"
+cpodef (CFun)  ('a, 'b) "->" (infixr "->" 0) = "{f::'a => 'b. cont f}"
 by (simp add: Ex_cont adm_cont)
 
 syntax (xsymbols)