(* Definition prog_vars (p: program) := prog_vars' (prog_defs p). *)
Notation prog_vars := (@prog_vars function).

(* Specifications: *)
Lemma initial_jm_without_locks prog m G n H H1 H2:
no_locks (m_phi (initial_jm prog m G n H H1 H2)).
Lemma initial_jm_ext_without_locks {Z} (ora : Z) prog m G n H H1 H2:
no_locks (m_phi (initial_jm_ext ora prog m G n H H1 H2)).