omegalib/examples/old_test/stodghil


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

symbolic n;

S := {[k_w,j_w,l_w]->[k_r,j_r,l_r] : ((1 <= k_w) and (k_w <= n) and ((k_w + 1) <= j_w) 
and (j_w <= n) 
and ((k_w + 1) <= l_w) and (l_w <= j_w) and (1 <= k_r) 
and (k_r <= n) and ((k_r + 1) <= j_r) and (j_r <= n) 
and ((k_r + 1) <= l_r) and (l_r <= j_r) and ((k_w < k_r) or ((k_w = k_r) 
and (j_w < j_r)) or ((k_w = k_r) and (j_w = j_r) and (l_w < l_r))) 
and (j_w = j_r) and (l_w = l_r) 
and !exists(k_1 : ((1 <= k_1) and (k_1 <= n) and (k_w < k_1) and ((k_1 < k_r) or (k_1 = k_r)) 
and (k_1 = j_r) and (k_1 = l_r))) 
and !exists(k_2,i_2 : ((1 <= k_2) and (k_2 <= n) and ((k_2 + 1) <= i_2) and (i_2 <= n) and (k_w < k_2) and ((k_2 < k_r) or (k_2 = k_r)) and (i_2 = j_r) and (k_2 = l_r))) 
and !exists(k_3,j_3,l_3 : ((1 <= k_3) and (k_3 <= n) and ((k_3 + 1) <= j_3) 
	and (j_3 <= n) and ((k_3 + 1) <= l_3) and (l_3 <= j_3) 
and ((k_w < k_3) or ((k_w = k_3) and (j_w < j_3)) or ((k_w = k_3) 
and (j_w = j_3) and (l_w < l_3))) 
and ((k_3 < k_r) or ((k_3 = k_r) and (j_3 < j_r)) or ((k_3 = k_r) 
and (j_3 = j_r) and (l_3 < l_r))) and (j_3 = j_r) and (l_3 = l_r))
))};

S;