anchor.diff:      case Result of
           {merge, success, __L2, _L1} ->
               State;
  -        {merge, fail, _Reason, __L1, __L2} ->
  +        {merge, fail, _Reason, _Step, __L1, __L2, _Current, _Next} ->
               %% @todo
               State
       end;
  
positive.code: on({takeover_success, get_state, L2, LeaseId, {get_state_response, LeaseList}}, State) ->
      ActiveLease = lease_list:get_active_lease(LeaseList),
      Pid = comm:reply_as(self(), 4, {merge_after_rm_change, L2, ActiveLease, '_'}),
      l_on_cseq:lease_merge(L2, ActiveLease, Pid),
      remove_takeover(State, LeaseId, L2);
  
  
negative.code:     comm:send(Pid, {get_takeovers_response, Takeovers}),
      State.
  
  -spec compare_and_fix_rm_with_leases(state(), intervals:interval(), intervals:interval(),
                                       lease_list:lease_list(), intervals:interval())
                                       -> state().
  compare_and_fix_rm_with_leases(State, OldRange, NewRange, LeaseList, MyRange) ->
      ?TRACE("lease list ~w", [LeaseList]),
  