Definition event_step_star (step : step_relation A trace) (init : A) (e : event) :=
    refl_trans_1n_trace step init (evt_a e) (evt_trace e).Definition step_star_lb_step_reachable (lb_step : lb_step_relation) (step : step_relation A trace) (init : A) :=
    forall a l a' tr tr',
     refl_trans_1n_trace step init a tr' ->
     lb_step a l a' tr ->
     refl_trans_1n_trace step init a' (tr' ++ tr).

Lemma step_star_lb_step_execution : forall lb_step step init, step_star_lb_step_reachable lb_step step init -> forall s, event_step_star step init (hd s) -> lb_step_execution lb_step s -> always (now (event_step_star step init)) s.