Definition coopstep g c m c' m' :=
   CSharpMin_corestep g c m c' m'.

(* Specifications: *)
Lemma csharpmin_coopstep_not_at_external: forall ge m q m' q', coopstep ge q m q' m' -> CSharpMin_at_external q = None.
Lemma csharpmin_coopstep_not_halted : forall ge m q m' q', coopstep ge q m q' m' -> CSharpMin_halted q = None.