diff options
| author | Derick Huth <derickhuth@gmail.com> | 2014-10-06 12:42:34 -0600 |
|---|---|---|
| committer | Derick Huth <derickhuth@gmail.com> | 2014-10-06 12:42:34 -0600 |
| commit | 8d73c8fcc75556c1df71dd39dd99783f8f86fc3e (patch) | |
| tree | 157d627863d76a4c256a27cae27ce2e8566c7ea0 /omega/examples/old_test/verlind1.oc-rt | |
| parent | e87b55ad69f0ac6211daae741b32c8ee9dcbe470 (diff) | |
| parent | 8c646f24570079eac53e58fcf42d0d4fbc437ee3 (diff) | |
| download | chill-8d73c8fcc75556c1df71dd39dd99783f8f86fc3e.tar.gz chill-8d73c8fcc75556c1df71dd39dd99783f8f86fc3e.tar.bz2 chill-8d73c8fcc75556c1df71dd39dd99783f8f86fc3e.zip | |
Merge pull request #2 from dhuth/master
Moved omega into chill.
Diffstat (limited to 'omega/examples/old_test/verlind1.oc-rt')
| -rw-r--r-- | omega/examples/old_test/verlind1.oc-rt | 120 |
1 files changed, 120 insertions, 0 deletions
diff --git a/omega/examples/old_test/verlind1.oc-rt b/omega/examples/old_test/verlind1.oc-rt new file mode 100644 index 0000000..050b199 --- /dev/null +++ b/omega/examples/old_test/verlind1.oc-rt @@ -0,0 +1,120 @@ +# Omega Calculator v1.2 (based on Omega Library 1.2, August, 2000): +# R3 := {[x] -> [y] : (y = x) | (y = 3x)}; +# +# +# Rf := {[x] -> [y] : x <= y <= 3x}; +# +# +# R3; + +{[x] -> [x] } union + {[x] -> [3x] } + +# +# +# Rf; + +{[x] -> [y] : x <= y <= 3x} + +# +# +# s12 := {[x] : 1 <= x <= 2}; +# +# s12; + +{[x]: 1 <= x <= 2} + +# +# +# sd3 := R3(s12); +# +# sd3; + +{[y]: 1 <= y <= 2} union + {[y]: Exists ( alpha : y = 3alpha && 3 <= y <= 6)} + +# +# +# sc3 := Rf(s12); +# +# sc3; + +{[y]: 1 <= y <= 6} + +# +# +# sc3 intersection sd3; + +{[y]: 1 <= y <= 2} union + {[y]: Exists ( alpha : y = 3alpha && 3 <= y <= 6)} + +# +# +# # I think this is faulty +# sc3 - sd3; + +{[y]: 4 <= y <= 5} + +# +# +# # This is OK +# sd3 - sc3; + +{[y] : FALSE } + +# +# +# complement sc3; + +{[y]: y <= 0} union + {[y]: 7 <= y} + +# +# complement sd3; + +{[y]: y <= 0} union + {[y]: 7 <= y} union + {[y]: 4 <= y <= 5} + +# +# +# sc3; + +{[y]: 1 <= y <= 6} + +# +# +# sc3 intersection (complement sd3); + +{[y]: 4 <= y <= 5} + +# +# +# # alternative description of sd3; +# sd3' := {[y] : 1 <= y <= 3 | y = 6}; +# +# sd3'; + +{[y]: 1 <= y <= 3} union + {[6]} + +# +# sc3 - sd3'; + +{[y]: 4 <= y <= 5} + +# +# +# # sd3 wrt sd3'; +# +# sd3 - sd3'; + +{[y] : FALSE } + +# +# +# sd3' - sd3; + +{[y] : FALSE } + +# |