reserve i,j,k,k1,k2,n,m,i1,i2,j1,j2 for Element of NAT,
  x for set;

theorem
  for i1,i2 being Nat st i1,i2 are_adjacent holds i1+1,i2+1 are_adjacent;
