DEFINE 
  
  invar := case b = c : 1; 1 : 0; esac;
  test := 0;

INIT

  invar

SPEC
  
  a = b -> a = c
