Opaque lockRes.

Lemma mem_compatible_spawn :
forall (tpf : thread_pool) (mf : mem) (cf : ctl)
virtue1 virtue2 (f : block -> option block)
vf args i (pff : containsThread tpf i)
(Hmax_inv: max_inv mf)
(HmemCompF: mem_compatible tpf mf)
(Hcodomain: forall b1 b2 : block, f b1 = Some b2 -> Mem.valid_block mf b2),
mem_compatible
(addThread
(updThread pff cf
(computeMap (getThreadR pff).1 (projectAngel f virtue1.1),
computeMap (getThreadR pff).2 (projectAngel f virtue1.2)))
vf args (computeMap empty_map (projectAngel f virtue2.1),
computeMap empty_map (projectAngel f virtue2.2))) mf.