Admitted.

Lemma gss_restrPermMap:
forall Sems Semt hb i (tp: t_ (ThreadPool hb Sems Semt)) m c
(cnti: containsThread tp i)
(COMPT: HybridMachine.mem_compatible hb Sems Semt
(updThread cnti c (getCurPerm m, snd (getThreadR cnti))) m),
mem_equiv (restrPermMap (FST (COMPT i cnti))) m.