src/HOLCF/Porder.thy
changeset 1168 74be52691d62
parent 297 5ef75ff3baeb
child 1274 ea0668a1c0ba
--- a/src/HOLCF/Porder.thy	Thu Jun 29 16:16:24 1995 +0200
+++ b/src/HOLCF/Porder.thy	Thu Jun 29 16:28:40 1995 +0200
@@ -18,14 +18,13 @@
 	max_in_chain :: "[nat,nat=>'a::po]=>bool"
 	finite_chain :: "(nat=>'a::po)=>bool"
 
-rules
+defs
 
 (* class definitions *)
 
 is_ub		"S  <| x == ! y.y:S --> y<<x"
 is_lub		"S <<| x == S <| x & (! u. S <| u  --> x << u)"
 
-lub		"lub(S) = (@x. S <<| x)"
 
 (* Arbitrary chains are total orders    *)                  
 is_tord		"is_tord(S) == ! x y. x:S & y:S --> (x<<y | y<<x)"
@@ -35,8 +34,14 @@
 
 (* finite chains, needed for monotony of continouous functions *)
 
-max_in_chain_def "max_in_chain(i,C) == ! j. i <= j --> C(i) = C(j)" 
+max_in_chain_def "max_in_chain i C == ! j. i <= j --> C(i) = C(j)" 
+
+finite_chain_def "finite_chain(C) == is_chain(C) & (? i. max_in_chain i C)"
 
-finite_chain_def "finite_chain(C) == is_chain(C) & (? i. max_in_chain(i,C))"
+rules
+
+lub		"lub(S) = (@x. S <<| x)"
 
 end 
+
+