Section Safety.
Context (ST:Type)(SCH:Type).
Context (STEP:ST->SCH->ST->SCH-> Prop).
Context (valid: ST-> SCH -> Prop).
Hypothesis em: forall P, P \/ ~ P.

Lemma ksafe_SsafeN: forall st_init,
(forall U, valid st_init U) ->
forall n, (forall U, ksafe st_init U n) ->
SsafeN n (@P_init st_init).