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).

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