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

DEFINE
  
  b := a;

SPEC

  AG !b
