End termination_preservation.
Local Open Scope nat_scope.
(** ** Safety & semantics preservation *)
Section safety_preservation.
Variables F V TF TV C D Z data : Type.
Variable source : CoreSemantics (Genv.t F V) C mem.
Variable target : CoreSemantics (Genv.t TF TV) D mem.
Variable match_state : data -> meminj -> C -> mem -> D -> mem -> Prop.
Variable ord : data -> data -> Prop.
Variable geS : Genv.t F V.
Variable geT : (Genv.t TF TV).
Variable entry_points : list (val*val*signature).
Variable (SRC_DET : corestep_fun source).
Variable (TGT_DET : corestep_fun target).

Lemma halted_safe:
forall c m c' m' (P: val -> mem -> Prop) rv,
corestep_star source geS c m c' m' ->
halted source c = Some rv ->
P rv m' ->
(forall n, safeN source geS P n c m).