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

(* Specifications: *)
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.
Lemma the_ge_wd: forall m, init_mem = Some m -> ge_wd (id_ren m) the_ge.