src/ZF/OrderArith.thy
changeset 437 435875e4b21d
child 753 ec86863e87c8
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/ZF/OrderArith.thy	Thu Jun 23 17:38:12 1994 +0200
@@ -0,0 +1,31 @@
+(*  Title: 	ZF/OrderArith.thy
+    ID:         $Id$
+    Author: 	Lawrence C Paulson, Cambridge University Computer Laboratory
+    Copyright   1994  University of Cambridge
+
+Towards ordinal arithmetic 
+*)
+
+OrderArith = Order + Sum + 
+consts
+  radd, rmult      :: "[i,i,i,i]=>i"
+  rvimage          :: "[i,i,i]=>i"
+
+rules
+  (*disjoint sum of two relations; underlies ordinal addition*)
+  radd_def "radd(A,r,B,s) == \
+\                {z: (A+B) * (A+B).  \
+\                    (EX x y. z = <Inl(x), Inr(y)>)   | 	 \
+\                    (EX x' x. z = <Inl(x'), Inl(x)> & <x',x>:r)   | 	 \
+\                    (EX y' y. z = <Inr(y'), Inr(y)> & <y',y>:s)}"
+
+  (*lexicographic product of two relations; underlies ordinal multiplication*)
+  rmult_def "rmult(A,r,B,s) == \
+\                {z: (A*B) * (A*B).  \
+\                    EX x' y' x y. z = <<x',y'>, <x,y>> &	 \
+\                       (<x',x>: r | (x'=x & <y',y>: s))}"
+
+  (*inverse image of a relation*)
+  rvimage_def "rvimage(A,f,r) == {z: A*A. EX x y. z = <x,y> & <f`x,f`y>: r}"
+
+end