Algorithm 14 Main Process with FS

process       new $prHN$: secKey; let $puHN$ = pk(prHN) in out(usch, $puHN$);       new SUPI: bitstring; new K: key;       new SQN: seq;              insert ueDB(SUPI, K, SQN);       (!UE(SUPI, K, SQN, $puHN$))|(!SN(SNname))|(!HN(SUPI, $prHN$))|       phase 1; out(usch, ($prHN$, K))