anchor.diff:  			#eap_packet{code = response, type = ?Identity,
   					identifier = StartEapID,
   					data = <<?TEMP_AKA:6, _/bits>> = Identity}
  -					Trusted == true ->
  +					when Trusted == true ->
   				NextStateData = NewStateData#statedata{eap_id = StartEapID,
   						identity = Identity},
   				[Pseudonym | _] = binary:split(Identity, <<$@>>, []),
  
positive.code: 		authenticator = RequestAuthenticator, attributes = RequestAttributes},
  		identity = Identity} = StateData) ->
  	NextEapID = (EapID rem 255) + 1,
  	<<Kencr:16/binary, Kaut:32/binary, Kre:32/binary, MSK:64/binary,
  			EMSK:64/binary, _/binary>> = prf(<<IK/binary,
  			CK/binary>>, <<"EAP-AKA'", Identity/binary>>, 7),
  	AkaChallenge = #eap_aka_challenge{mac = <<0:128>>,
  			kdf = [1], network = <<"WLAN">>, rand = RAND, autn = AUTN},
  	EapData = ocs_eap_codec:eap_aka(AkaChallenge),
  
negative.code: 		diameter_port_server = PortServer,
  		session_id = SessionID, identity = Identity} = StateData) ->
  	NextEapID = (EapID rem 255) + 1,
  	MK = crypto:hash(sha, [Identity, IK, CK]),
  	<<Kencr:16/binary, Kaut:16/binary, MSK:64/binary,
  			EMSK:64/binary, _/binary>> = ocs_eap_aka:prf(MK),
  	AkaChallenge = #eap_aka_challenge{mac = <<0:128>>,
  			kdf = [1], network = <<"WLAN">>, rand = RAND, autn = AUTN},
  	EapData = ocs_eap_codec:eap_aka(AkaChallenge),
  