anchor.diff:  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, '_'}),
  +    %% log:log("rm_leases: merging ~p and ~p~n", [L2, ActiveLease]),
       l_on_cseq:lease_merge(L2, ActiveLease, Pid),
       remove_takeover(State, LeaseId, L2);
   
  
positive.code: % @copyright 2007-2015 Zuse Institute Berlin
  
  %  Licensed under the Apache License, Version 2.0 (the "License");
  %  you may not use this file except in compliance with the License.
  
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]),
  