anchor.diff:  	NewStateData = StateData#statedata{request = undefined,
   			auc_fsm = AucFsm, id_req = full},
   	EapPacket = #eap_packet{code = request,
  -			type = ?AKA, identifier = EapID, data = EapData},
  +			type = ?AKAprime, identifier = EapID, data = EapData},
   	send_diameter_response(SessionId, AuthReqType,
   			?'DIAMETER_BASE_RESULT-CODE_MULTI_ROUND_AUTH', OHost, ORealm,
   			EapPacket, PortServer, Request, StateData),
  
positive.code: 			radius_fsm = RadiusFsm},
  	try
  		EapMessage = radius_attributes:fetch(?EAPMessage, RequestAttributes),
  		#eap_packet{code = response, type = ?AKA, identifier = EapID,
  				data = Data} = ocs_eap_codec:eap_packet(EapMessage),
  		case ocs_eap_codec:eap_aka(Data) of
  			#eap_aka_identity{identity = <<?PERM_TAG,
  
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}
  