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
|
# Omega Calculator v1.2 (based on Omega Library 1.2, August, 2000):
#
# a2b:={[1]->[2]};
#
# a2a:={[i]->[i]};
#
# b2b2:={[i]->[i+1]};
#
# b2c3:={[i]->[i]};
#
# c2c:={[i]->[i]};
#
#
# reachable of a in (a,b,c) {
# a->b:a2b, b->c:b2c3, a->a:a2a, b->b:b2b2, c->c:c2c,
# a:{[1]}
# };
{[1]}
#
# reachable of b in (a,b,c) {
# a->b:a2b, b->c:b2c3, a->a:a2a, a:{[1]}, b->b:b2b2, c->c:c2c
# };
{[2]} union
{[In_1]: 4 <= In_1} union
{[3]}
#
# cr := reachable of c in (a,b,c) {
# a:{[1]},a->b:a2b, b->c:b2c3, a->a:a2a,
# b->b:b2b2, c->c:c2c };
#
# cr;
{[i]: 3 <= i} union
{[2]}
#
|
