Definition addFP {tp} (fp: fpool tp) (f': memren) vf arg pmap :
fpool (addThread tp vf arg pmap).

(* Specifications: *)
Lemma gssAddFP:
forall tp fp f vf arg pmap j
(Heq: j = latestThread tp)
(cnt': containsThread (addThread tp vf arg pmap) j),
addFP fp f cnt' = f.