Definition pt_map_onet_event e :=
{| evt_a := (List.map tot_map_name (fst e.(evt_a)), pt_map_onet (snd e.(evt_a))) ;
   evt_l := tot_map_label e.(evt_l) ;
   evt_trace := filterMap pt_map_trace_ev e.(evt_trace) |}.

(* Specifications: *)
Lemma pt_map_onet_event_Map_unfold : forall s, Cons (pt_map_onet_event (hd s)) (map pt_map_onet_event (tl s)) = map pt_map_onet_event s.
Lemma lb_step_execution_lb_step_ordered_failure_pt_map_onet_infseq : forall s, lb_step_execution lb_step_ordered_failure s -> lb_step_execution lb_step_ordered_failure (map pt_map_onet_event s).
Lemma pt_map_onet_tot_map_label_event_inf_often_occurred : forall l s, inf_often (now (occurred l)) s -> inf_often (now (occurred (tot_map_label l))) (map pt_map_onet_event s).
Lemma pt_map_onet_tot_map_label_event_inf_often_occurred_conv : forall l s, inf_often (now (occurred (tot_map_label l))) (map pt_map_onet_event s) -> inf_often (now (occurred l)) s.
Lemma pt_map_onet_tot_map_labeled_event_inf_often_enabled : forall l, tot_map_label l <> label_silent -> forall s, lb_step_execution lb_step_ordered_failure s -> strong_fairness lb_step_ordered_failure label_silent s -> inf_often (now (enabled lb_step_ordered_failure (tot_map_label l))) (map pt_map_onet_event s) -> inf_often (now (enabled lb_step_ordered_failure l)) s.
Lemma pt_map_onet_tot_map_labeled_event_state_continuously_enabled : forall l, tot_map_label l <> label_silent -> forall s, lb_step_execution lb_step_ordered_failure s -> weak_fairness lb_step_ordered_failure label_silent s -> continuously (now (enabled lb_step_ordered_failure (tot_map_label l))) (map pt_map_onet_event s) -> continuously (now (enabled lb_step_ordered_failure l)) s.
Lemma pt_map_onet_tot_map_label_event_strong_fairness : forall s, lb_step_execution lb_step_ordered_failure s -> strong_fairness lb_step_ordered_failure label_silent s -> strong_fairness lb_step_ordered_failure label_silent (map pt_map_onet_event s).
Lemma pt_map_onet_tot_map_label_event_state_weak_fairness : forall s, lb_step_execution lb_step_ordered_failure s -> weak_fairness lb_step_ordered_failure label_silent s -> weak_fairness lb_step_ordered_failure label_silent (map pt_map_onet_event s).
Lemma pt_map_onet_hd_step_ordered_failure_star : forall e, event_step_star step_ordered_failure step_ordered_failure_init e -> event_step_star step_ordered_failure step_ordered_failure_init (pt_map_onet_event e).
Lemma pt_map_onet_hd_step_ordered_failure_star_always : forall s, event_step_star step_ordered_failure step_ordered_failure_init (hd s) -> lb_step_execution lb_step_ordered_failure s -> always (now (event_step_star step_ordered_failure step_ordered_failure_init)) (map pt_map_onet_event s).
Theorem lb_step_ordered_dynamic_failure_pt_mapped_simulation_1_non_silent : forall net net' failed failed' lb tr, tot_map_label lb <> label_silent -> @lb_step_ordered_dynamic_failure _ labeled_multi_fst (failed, net) lb (failed', net') tr -> @lb_step_ordered_dynamic_failure _ labeled_multi_snd (List.map tot_map_name failed, pt_map_odnet net) (tot_map_label lb) (List.map tot_map_name failed', pt_map_odnet net') (filterMap pt_map_trace_ev tr).