anchor.diff:  precondition(_S,{call,_,_,_}) ->
       true.
   
  -%% If the bind succeeded, the value must be an inflation.
   postcondition(#state{store=Store},
  -              {call, ?MODULE, bind, [Id, Value, _]}, {ok, _}) ->
  +              {call, ?MODULE, read, [Id, _, _]}, {op, V}) ->
       case dict:find(Id, Store) of
  -        {ok, #variable{type=Type, value=V}} ->
  -            case Type of
  -                undefined ->
  -                    V == undefined;
  -                _ ->
  -                    derflow_ets:is_inflation(Type, V, Value)
  -            end;
  +        {ok, #variable{value=V}} ->
  +            %% Ensure we always read values that we are expecting.
  +            true;
           _ ->
               false
       end;
  
positive.code:     #state{ets=?ETS, types=?LATTICES, store=dict:new()}.
  
  %% Generate commands
  command(#state{ets=Ets, types=Types, store=Store}) ->
      Variables = dict:fetch_keys(Store),
      oneof(
          [{call, ?MODULE, declare,
            [oneof([elements(Types), undefined]), Ets]}] ++
          [{call, ?MODULE, read,
            [elements(Variables), undefined, Ets]} || length(Variables) > 0] ++
          [?LET({Variable, GeneratedValue}, {elements(Variables), nat()},
  
negative.code:                 setup(),
                  fun teardown/0
             end,
         ?FORALL(Cmds, noshrink(commands(?MODULE)),
                  begin
                      {H, S, Res} = run_commands(?MODULE, Cmds),
                      ?WHENFAIL(
  