From e4b20015a4ee35f1279af4caa983478fa2ff0d4a Mon Sep 17 00:00:00 2001 From: dhuth Date: Mon, 6 Oct 2014 11:56:47 -0600 Subject: Added omega to source --- omega/examples/old_test/closure7.oc-rt | 36 ++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 omega/examples/old_test/closure7.oc-rt (limited to 'omega/examples/old_test/closure7.oc-rt') diff --git a/omega/examples/old_test/closure7.oc-rt b/omega/examples/old_test/closure7.oc-rt new file mode 100644 index 0000000..0de9745 --- /dev/null +++ b/omega/examples/old_test/closure7.oc-rt @@ -0,0 +1,36 @@ +# Omega Calculator v1.2 (based on Omega Library 1.2, August, 2000): +# +# R := {[t,s] -> [t+1,s] } union +# {[t,s] -> [t,s] } union +# {[t,s] -> [t,s+1] }; +# +# +# R; + +{[t,s] -> [t+1,s] } union + {[t,s] -> [t,s] } union + {[t,s] -> [t,s+1] } + +# +# R+; + +{[t,s] -> [t,s'] : s <= s'} union + {[t,s] -> [t',s'] : t < t' && s <= s'} + +# +# +# S := {[t,s] -> [t+1,s] } union {[t,s] -> [t,s+1] }; +# +# +# S; + +{[t,s] -> [t+1,s] } union + {[t,s] -> [t,s+1] } + +# +# S+; + +{[t,s] -> [t,s'] : s < s'} union + {[t,s] -> [t',s'] : t < t' && s <= s'} + +# -- cgit v1.2.3-70-g09d2