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 finite_state_preservation:
forall P0 P' : SST kstate,
konig.finite P0 -> SST_step kstate schedule kstep valid P0 P' -> konig.finite P'.