anchor.diff:  handle_message({replace_reply, true, OldState, #state{myself=IPeer,tag=ITag,active=Active}=InitiatorState, CandidateState, #state{myself=DPeer}=DisconnectState}, 
   			#state{connections=Connections}) ->
   	remove_from_active_view(DPeer, Active),
  -	add_to_active_view(IPeer, ITag, InitiatorState), %%Tag of i or what?
  +	add_to_active_view(IPeer, ITag, CandidateState), 
   	do_send_message(CandidateState,{optimization_reply, true, OldState, InitiatorState, CandidateState, DisconnectState},Connections);
   handle_message({replace_reply, false, OldState, InitiatorState, CandidateState, DisconnectState}, #state{connections=Connections}) ->
   	do_send_message(CandidateState,{optimization_reply, false, OldState, InitiatorState, CandidateState, DisconnectState},Connections);
  
positive.code:     {noreply, State};
      
  %% Optimization Reply
  handle_message({optimization_reply, true, #state{myself=OPeer}, #state{active=Active} = InitiatorState, CandidateState, undefined}, #state{myself=Myself,connections=Connections}) ->
  	Check = is_in_active_view(OPeer, Active),
  	if Check ->
  		%Revisar los disconnect
  		remove_from_active_view(OPeer, Active),
  	    Connections1 = partisan_util:maybe_connect(OPeer, Connections),
  	    do_send_message(OPeer,
                  {disconnect, Myself, none}, %Change none for NextId ¿What? 
                  Connections1),
          %NewConnections = disconnect(OPeer, Connections1)
          disconnect(OPeer, Connections1)
  	end,
  	move_peer_from_passive_to_active(CandidateState, InitiatorState); %%State of initiator or the peer that will be moved???
  handle_message({optimization_reply, true, #state{myself=OPeer}, #state{active=Active} = InitiatorState, CandidateState, DisconnectState}, _) ->
  	Check = is_in_active_view(OPeer, Active),
  	if Check ->
  		DisconnectState, 
  		remove_from_active_view(OPeer, Active)
  	end,
  	move_peer_from_passive_to_active(CandidateState, InitiatorState); %%State of initiator or the peer that will be moved???
  handle_message({optimization_reply, false, _, _, _, _}, _) ->
  	ok;
  
  
negative.code: handle_message({switch_reply, true, #state{myself=OPeer}=OldState, #state{active=Active,tag=Tag} = InitiatorState, #state{myself=CPeer}=CandidateState, DisconnectState}, 
  			#state{connections=Connections}) ->
  	remove_from_active_view(CPeer, Active),
  	add_to_active_view(OPeer, Tag, DisconnectState),
  	do_send_message(CandidateState,{replace_reply, true, OldState, InitiatorState, CandidateState, DisconnectState}, Connections);
  handle_message({switch_reply, false, OldState, InitiatorState, CandidateState, DisconnectState}, #state{connections=Connections}) ->
  	do_send_message(CandidateState, {replace_reply, false, OldState, InitiatorState, CandidateState, DisconnectState}, Connections);
  	
  %% Switch
  handle_message({switch, _, OldState, #state{myself=IPeer,active=Active} = InitiatorState, CandidateState, #state{myself=DPeer, tag=DTag}=DisconnectState},
  			#state{connections=Connections}) ->
  	Check = is_in_active_view(IPeer, Active),
  	if Check -> 
  			remove_from_active_view(IPeer, Active), 
  			add_to_active_view(DPeer, DTag, OldState),  
  			do_send_message(DisconnectState, {switch_reply, true, OldState, InitiatorState, CandidateState, DisconnectState}, Connections);
  		true -> 
  			do_send_message(DisconnectState, {switch_reply, false, OldState, InitiatorState, CandidateState, DisconnectState}, Connections)
  