Section X86Context.
Context {initU: seq.seq nat}
{the_program: Asm.program}.
Notation the_ge := (@the_ge the_program).
Context {Hsafe : safe_genv the_ge}.
Instance X86Sem: Semantics := @X86Sem the_program Hsafe.

Lemma initial_core_decay :
forall (i : nat) (v : Values.val) (args : list Values.val) (c : semC) (m m' : mem),
initial_core semSem i m c m' v args ->
strong_decay m m'.