End step.
Implicit Arguments stepS [state step cont s k s' k' n].
Inductive prog_star : state -> prog -> state -> cont -> Prop :=
| star_prog : forall P s k s' k',
P 0%N = Some k -> star (step P) s k s' k' ->
prog_star s P s' k'.
(** interpreter is sound *)

Lemma eval_prog_sound n P s h s' h' :
eval_prog n P s h = Some (State s' h') ->
exists k', prog_star (State s h) P (State s' h') k'.