From e4b20015a4ee35f1279af4caa983478fa2ff0d4a Mon Sep 17 00:00:00 2001
From: dhuth <derickhuth@gmail.com>
Date: Mon, 6 Oct 2014 11:56:47 -0600
Subject: Added omega to source

---
 omega/examples/old_test/closure4.oc-rt | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 omega/examples/old_test/closure4.oc-rt

(limited to 'omega/examples/old_test/closure4.oc-rt')

diff --git a/omega/examples/old_test/closure4.oc-rt b/omega/examples/old_test/closure4.oc-rt
new file mode 100644
index 0000000..d208cce
--- /dev/null
+++ b/omega/examples/old_test/closure4.oc-rt
@@ -0,0 +1,28 @@
+# Omega Calculator v1.2 (based on Omega Library 1.2, August, 2000):
+# symbolic n,m;
+# 
+# R1 := {[x,y] -> [x,y+1] : 1 <= x,y <= 10};
+# 
+# R2 := {[x,y] -> [x+1,y] : 1 <= x <= 20 && 5 <= y <= 15};
+# 
+# R12 := R1 union R2;
+# 
+# R12c := R12+;
+# 
+# R12c;
+
+{[x,y] -> [x,y'] : 1 <= y < y' <= 11 && 1 <= x <= 10} union
+ {[x,y] -> [x',y] : 1 <= x < x' <= 21 && 5 <= y <= 15} union
+ {[x,y] -> [x',y'] : 1 <= x < x' <= 21 && 1 <= y < y' <= 11 && x <= 10 && 5 <= y'}
+
+# 
+# (R12c compose R12c) - R12c;
+
+{[x,y] -> [x',y']  : FALSE }
+
+# 
+# (R12c compose R12) - R12c;
+
+{[x,y] -> [x',y']  : FALSE }
+
+# 
-- 
cgit v1.2.3-70-g09d2