End  Safety_Explicity_Safety.
Section Csafe_Safety.
Context (finit_branch_kstep:(forall x : kstate,
finite_on_x
(possible_image
(fun (x0 : kstate) (y : schedule) (x' : kstate) =>
exists y' : schedule, kstep x0 y x' y') valid x))).

Lemma explicit_safety_csafe:
forall tr tp m,
(forall U : schedule, valid (tr, tp,m) U -> explicit_safety U tr tp m) ->
(forall (n : nat) U, valid (tr, tp,m) U -> csafe (U, tr, tp) m n).