VAR
  
  a[4]
  b[4]
  c[4]
  d[4]

DEFINE
  
  c := inc(a);
  d := dec(c);

SPEC
  
  AG (a = b -> a = d & b = d)
