summaryrefslogtreecommitdiff
path: root/omegalib/examples/old_test/reach3
blob: 39c954dbf72c484440fd70a9975e626b8bf961db (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

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]}
	          };
reachable of b in (a,b,c) {
                  a->b:a2b, b->c:b2c3, a->a:a2a, a:{[1]}, b->b:b2b2, c->c:c2c
	          };
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;