summaryrefslogtreecommitdiff
path: root/omega/examples/old_test/reach2.oc-rt
blob: 8a8a90419f50f09fe2b304cf7392e8d0eee0acd5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
# Omega Calculator v1.2 (based on Omega Library 1.2, August, 2000):
# 
# a2b:={[1]->[2]};
# 
# 
# b2c1:={[i]->[i]};
# 
# b2c2:={[i]->[j]};
# 
# 
# a2a:={[i]->[i]};
# 
# b2b:={[i]->[i]};
# 
# c2c:={[i]->[i]};
# 
# 
# 
# 
# reachable (a,b,c){ a->b:a2b, b->c:b2c1, a->a:a2a, b->b:b2b, c->c:c2c,
#           a:{[1]}};
Node a: {[1]}
Node b: {[2]}
Node c: {[2]}
# 
# 
# reachable (a,b,c) { a->b:a2b, b->c:b2c2, a->a:a2a, b->b:b2b, c->c:c2c,
#           a:{[1]}};
Node a: {[1]}
Node b: {[2]}
Node c: {[In_1]}
# 
# 
# b2c3:={[i]->[i+1]};
# 
# b2b2:={[i]->[i+1]};
# 
# 
# reachable (a,b,c){ a->b:a2b, b->c:b2c3, a->a:a2a, b->b:b2b2, c->c:c2c,
#                    a:{[1]}};
Node a: {[1]}
Node b: {[2]} union
 {[In_1]: 4 <= In_1} union
 {[3]}
Node c: {[i]: 4 <= i} union
 {[3]}
# 
# 
# b2c3:={[i]->[i]};
# 
# 
# reachable (a,b,c){ a->b:a2b, b->c:b2c3, a->a:a2a, b->b:b2b2, c->c:c2c,
#           a:{[1]}};
Node a: {[1]}
Node b: {[2]} union
 {[In_1]: 4 <= In_1} union
 {[3]}
Node c: {[i]: 3 <= i} union
 {[2]}
# 
#