anchor.diff:  	NewStateData = StateData#statedata{request = undefined,
   			eap_id = NextEapID, res = Rand, ck = CK, ik = IK,
   			ak = Autn, mk = MK, k_aut = Kaut, k_encr = Kencr},
  -	EapPacket = #eap_packet{code = request, type = ?AKA,
  +	EapPacket = #eap_packet{code = request, type = ?AKAprime,
   			identifier = NextEapID, data = EapData2},
   	send_diameter_response(SessionID, AuthReqType,
   			?'DIAMETER_BASE_RESULT-CODE_MULTI_ROUND_AUTH', OHost, ORealm,
  
positive.code: 			EapData = ocs_eap_codec:eap_aka(#eap_aka_identity{fullauth_id_req = true}),
  			NextStateData = NewStateData#statedata{request = undefined, id_req = full},
  			EapPacket = #eap_packet{code = request,
  					type = ?AKA, identifier = EapID, data = EapData},
  			send_radius_response(EapPacket, ?AccessChallenge, [], RadiusID,
  					RequestAuthenticator, RequestAttributes, NewStateData),
  			{next_state, identity, NextStateData, ?TIMEOUT};
  
negative.code: 			EapData = ocs_eap_codec:eap_aka(#eap_aka_identity{fullauth_id_req = true}),
  			NextStateData = NewStateData#statedata{request = undefined, id_req = full},
  			EapPacket = #eap_packet{code = request,
  					type = ?AKAprime, identifier = EapID, data = EapData},
  			send_radius_response(EapPacket, ?AccessChallenge, [], RadiusID,
  					RequestAuthenticator, RequestAttributes, NewStateData),
  			{next_state, identity, NextStateData, ?TIMEOUT}
  