(* (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 halted_diagram: forall U ds js rmap pmap, fst (fst js) = fst (fst ds) -> halted (JMachineSem(ge := ge) U rmap) js = halted (ClightMachineSem(ge := ge) U pmap) ds.