omegalib/examples/old_test/wrap0


1
2
3
4
5
6
7

symbolic n;
I := {[i,j,k] : 1 <= i,j,k <= n};
R1 := {[i,j,n] -> [i,j+1,1] : 1 <= i,j,j+1 <= n}
	 union {[i,j,k] -> [i,j,k'] : 1 <= i,j,k,k' <= n && k' = k+1};
R1;
R1+ within I;
R1+;