End Ksafety_Clight.
(*The following variables represent a program satisfying some CSL*)
(* Section Clight_safety. Variable CPROOF: CSL_proof. Definition CS :=   CPROOF.(CSL_CS). Definition V :=   CPROOF.(CSL_V). Definition G :=   CPROOF.(CSL_G). Definition ext_link :=   CPROOF.(CSL_ext_link). Definition ext_link_inj :=   CPROOF.(CSL_ext_link_inj). Definition prog :=   CPROOF.(CSL_prog). Definition all_safe :=   CPROOF.(CSL_all_safe). Definition init_mem_not_none :=   CPROOF.(CSL_init_mem_not_none).  Variables (x: block) (block: (Genv.find_symbol (globalenv prog) (prog_main (Ctypes.program_of_program prog)) = Some x)).  Notation init_jmem n:= (initial_jm CPROOF n). Notation init_rmap n:=(Some (juicy_mem.m_phi (init_jmem n) )). Notation init_genv:=(globalenv prog). Notation init_point:=(Vptr (projT1 ((spr CPROOF))) Integers.Int.zero).   Section Csafety_Clight. (** The initial Juicy Machine *)
Definition js_initial n := initial_machine_state CPROOF n.
Definition Juicy_safety:=
safety_initial_state CPROOF.
(*Import JuicyMachineModule.THE_JUICY_MACHINE.SCH.*)

Lemma initial_equivalence_trivial:
forall CPROOF n,
JuicyMachineModule.THE_JUICY_MACHINE.JSEM.initial_machine
(juicy_mem.m_phi
(initial_jm CPROOF n))
(initial_corestate CPROOF) =
initial_machine_state CPROOF n.