Instance X86Sem : Semantics := @X86Sem the_program Hsafe.Instance X86Inj : CoreInjections.CoreInj := X86Inj the_program Hsafe.

Lemma init_core_wd: forall (c : semC) (v : Values.val) (args : seq Values.val) (m : Memory.mem), valid_val_list (id_ren m) args -> init_mem = Some m -> initial_core semSem 0 m c v args -> CoreInjections.core_wd (id_ren m) c.