Instance Counter_MultiParams : MultiParams Counter_BaseParams :=
  {
    name := Name;
    name_eq_dec := Name_eq_dec;
    msg := Msg;
    msg_eq_dec := Msg_eq_dec;
    nodes := Nodes;
    all_names_nodes := all_Names_Nodes;
    no_dup_nodes := NoDup_Nodes;
    init_handlers := fun _ => init_Data;
    net_handlers := fun dst src msg s =>
                      runGenHandler_ignore s (NetHandler dst msg);
    input_handlers := fun nm i s =>
                      runGenHandler_ignore s (InputHandler nm i)
  }.

Lemma net_handlers_NetHandler : forall h src m d os d' ms, net_handlers h src m d = (os, d', ms) -> NetHandler h m d = (tt, os, d', ms).