Definition CL_initial_core (v: val) (args:list val): option CL_core :=
   match v with
     | Vptr b i =>
          if Int.eq_dec i Int.zero
          then match Genv.find_funct_ptr ge b with
                 | None => None
                 | Some f => Some (CL_Callstate f args Kstop)
               end
          else None
     | _ => None
    end.Definition CL_core_sem (FE:function -> list val -> mem -> env -> temp_env -> mem -> Prop)
         : CoreSemantics genv CL_core mem.

Lemma CL_forward : forall (FE: function -> list val -> mem -> env -> temp_env -> mem -> Prop) (HFE: forall f vargs m e le m', FE f vargs m e le m'-> mem_forward m m') g c m c' m' (CS: clight_corestep FE g c m c' m'), mem_forward m m'.