(* (Htp': tp' = updThread cnt0 (Kresume c) pmap_tid')
            (Htp'': tp'' = updLockSet tp' pmap_lp), *)
          Definition WorF (sh: share): permission:=
            if eq_dec sh Share.top then Freeable else Writable.Definition empty_delta_map: delta_map:= PTree.empty (Z -> option (option permission)).

Lemma mtch_install_perm: forall js ds m m' tid (MATCH : match_st js ds) (Hcmpt : mem_compatible js m) (Htid : containsThread js tid) (Hperm : install_perm Hcmpt Htid m'), DryHybridMachine.install_perm _ _ _ (MTCH_compat _ _ _ MATCH Hcmpt) (MTCH_cnt MATCH Htid) m'.