Definition initial_machine pmap c := mkPool (Krun c) (pmap, empty_map).
Definition init_mach (pmap : option res) (m: mem)
(ms:thread_pool) (m' : mem) (v:val) (args:list val) : Prop :=
exists c, semantics.initial_core semSem 0 m c m' v args /\
ms = mkPool (Krun c) (getCurPerm m', empty_map).
Set Printing All.
Section HybDryMachineLemmas.

Lemma build_delta_content_restr: forall d m p Hlt,
build_delta_content d (@restrPermMap p m Hlt) = build_delta_content d m.