src/HOLCF/Cprod1.thy
changeset 15576 efb95d0d01f7
parent 15575 63babb1ee883
child 15577 e16da3068ad6
--- a/src/HOLCF/Cprod1.thy	Fri Mar 04 18:53:46 2005 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,18 +0,0 @@
-(*  Title:      HOLCF/Cprod1.thy
-    ID:         $Id$
-    Author:     Franz Regensburger
-
-Partial ordering for cartesian product of HOL theory prod.thy
-*)
-
-Cprod1 = Cfun3 +
-
-default cpo
-
-instance "*"::(sq_ord,sq_ord)sq_ord 
-
-defs
-
-  less_cprod_def "p1 << p2 == (fst p1<<fst p2 & snd p1 << snd p2)"
-
-end