Proof using.
move => l.
apply: always_map.
apply: eventually_map.
case => e s.
rewrite /= /occurred /evt_l /=.
move => H_eq.
by rewrite H_eq.
Qed.

(* Specifications: *)
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_odnet_tot_map_label_event_inf_often_occurred_conv :
forall l s,
inf_often (now (occurred (tot_map_label l))) (map pt_map_odnet_event s) ->
inf_often (now (occurred l)) s.