Definition CMinSel_initial_core (ge:genv) (v: val) (args:list val): option CMinSel_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 (CMinSel_Callstate f args Kstop)
               end
          else None
     | _ => None
    end.Definition CMinSel_core_sem : CoreSemantics genv CMinSel_core mem.

Lemma CMinSel_forward : forall g c m c' m' (CS: CMinSel_corestep g c m c' m'), mem_forward m m'.