src/HOLCF/Cprod1.thy

--- a/src/HOLCF/Cprod1.thy	Fri May 23 18:55:28 1997 +0200
+++ b/src/HOLCF/Cprod1.thy	Sun May 25 11:07:52 1997 +0200
@@ -12,8 +12,10 @@
 
 default cpo
 
+instance "*"::(sq_ord,sq_ord)sq_ord 
+
 defs
 
-  less_cprod_def "less p1 p2 == (fst p1<<fst p2 & snd p1 << snd p2)"
+  less_cprod_def "p1 << p2 == (fst p1<<fst p2 & snd p1 << snd p2)"
 
 end