# HG changeset patch
# User nipkow
# Date 979155674 -3600
# Node ID fef84fefd33fb96cce84ec7af2731c7bf715d6fb
# Parent  857688d775b044f568019db108cffc2ab4e3af8a
Added <cdot> syntax for continuous application $.

diff -r 857688d775b0 -r fef84fefd33f src/HOLCF/Cfun1.thy
--- a/src/HOLCF/Cfun1.thy	Wed Jan 10 20:21:11 2001 +0100
+++ b/src/HOLCF/Cfun1.thy	Wed Jan 10 20:41:14 2001 +0100
@@ -17,9 +17,9 @@
 instance "->"  :: (cpo,cpo)sq_ord
 
 syntax
-	Rep_CFun  :: "('a -> 'b)=>('a => 'b)" ("_$_" [999,1000] 999)
+	Rep_CFun  :: "('a -> 'b) => ('a => 'b)" ("_$_" [999,1000] 999)
                                                 (* application      *)
-        Abs_CFun  :: "('a => 'b)=>('a -> 'b)"     (binder "LAM " 10)
+        Abs_CFun  :: "('a => 'b) => ('a -> 'b)" (binder "LAM " 10)
                                                 (* abstraction      *)
         less_cfun :: "[('a -> 'b),('a -> 'b)]=>bool"
 
@@ -27,6 +27,11 @@
   "->"		:: [type, type] => type	("(_ \\<rightarrow>/ _)" [1,0]0)
   "LAM "	:: "[idts, 'a => 'b] => ('a -> 'b)"
 					("(3\\<Lambda>_./ _)" [0, 10] 10)
+  Rep_CFun      :: "('a -> 'b) => ('a => 'b)"  ("(_\\<cdot>_)" [999,1000] 999)
+
+syntax (HTML output)
+  Rep_CFun      :: "('a -> 'b) => ('a => 'b)"  ("(_\\<cdot>_)" [999,1000] 999)
+
 defs 
   less_cfun_def "(op <<) == (% fo1 fo2. Rep_CFun fo1 << Rep_CFun fo2 )"