Notation nodes := (cs ++ cls).Notation cal := (CalculatorProtocol f prec cs cls l).Notation sts := (snd_trans cal).Notation rts := (rcv_trans cal).Notation W := (mkWorld cal).Notation loc i := (getLocal sv (getStatelet i l)).Definition server_loop_cond (res : Sstate) := true.(* Server-specific infrastructure *)
Notation Sstate := (seq ((seq nat) * nat)).Definition state_wf := fun _ : unit => True.Definition state0 := tt.

Lemma state0_wf : state_wf state0.