anchor.diff:  		session_id:: diameter:'OctetString'()
   				| {NAS :: inet:ip_address() | string(),
   				Port :: string(), Peer :: string()},
  -		request :: #diameter_eap_app_DER{} | #'3gpp_swm_DER'{}
  -				| #radius{} | undefined,
  +		request :: undefined | #diameter_eap_app_DER{} | #'3gpp_swm_DER'{}
  +				| #radius{},
   		response :: undefined | {EapMessage :: binary(),
   				radius_attributes:attributes()},
   		secret :: undefined | binary(),
  
positive.code: 						[Pseudonym | _] = binary:split(Identity, <<$@>>, []),
  						CompressedIMSI = ocs_eap_aka:decrypt_imsi(Pseudonym, Keys),
  						IMSI = ocs_eap_aka:compressed_imsi(CompressedIMSI),
  						gen_fsm:send_event(AucFsm, {vector, {self(), IMSI,
  								get_radius_rat(RequestAttributes)}}),
  						{next_state, vector, NextStateData, ?TIMEOUT};
  					#eap_packet{code = response, type = ?Identity,
  
negative.code: 		origin_host = OriginHost, origin_realm = OriginRealm,
  		identity = Identity} = _StateData)
  		when is_integer(AuthType), is_binary(OriginHost),
  		is_binary(OriginRealm), is_binary(EapMessage), is_pid(PortServer) ->
  	Server = {ServerAddress, ServerPort},
  	Client= {ClientAddress, ClientPort},
  	Answer = #'3gpp_swm_DEA'{'Session-Id' = SessionId,
  