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/verlind1 | 44 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 omega/examples/old_test/verlind1

(limited to 'omega/examples/old_test/verlind1')

diff --git a/omega/examples/old_test/verlind1 b/omega/examples/old_test/verlind1
new file mode 100644
index 0000000..181b1c5
--- /dev/null
+++ b/omega/examples/old_test/verlind1
@@ -0,0 +1,44 @@
+   without_simplify;
+   
+   R3 := {[x] -> [y] : (y = x) | (y = 3x)};
+
+   Rf := {[x] -> [y] : x <= y <= 3x};
+
+   R3;
+
+   Rf;
+
+   s12 := {[x] : 1 <= x <= 2};
+   s12;
+
+   sd3 := R3(s12);
+   sd3;
+
+   sc3 := Rf(s12);
+   sc3;
+
+   sc3 intersection sd3;
+
+   # I think this is faulty
+   sc3 - sd3;
+
+   # This is OK
+   sd3 - sc3;
+
+   complement sc3;
+   complement sd3;
+
+   sc3;
+
+   sc3 intersection (complement sd3);
+
+   # alternative description of sd3;
+   sd3' := {[y] : 1 <= y <= 3 | y = 6};
+   sd3';
+   sc3 - sd3';
+
+   # sd3 wrt sd3';
+
+   sd3 - sd3';
+
+   sd3' - sd3;
-- 
cgit v1.2.3-70-g09d2