VAR
  
  a[2]

ASSIGN
  
  init(a) := 0;
  next(a) := 
    case
      a = 2 : 0;
      1 : inc(a);
    esac;

SPEC
  
  AX AG a != 0
