(** Proof of safety of the FineConc machine*)
Notation fsafe := (@HybridFineMachine.fsafe _ _ _ _ FineDilMem).

Lemma getStepType_cases:
forall tp m i (cnti: containsThread tp i),
getStepType cnti m Concurrent \/
getStepType cnti m Internal \/
getStepType cnti m Suspend.