Ltac coinductive_case CIH :=
    apply W_tl; simpl in *; auto;
    apply CIH; simpl in *; auto.

Lemma Locked_in_network_eventually_MsgLocked : forall i s, lb_step_execution lb_step_async s -> weak_fairness lb_step_async label_silent s -> In (mkPacket Server (Client i) Locked) (nwPackets (evt_a (hd s))) -> eventually (now (occurred (MsgLocked i))) s.