Notation init_dstatelet2 := (DStatelet init_dstate2 Unit).
Definition init_state : state :=
l1 \\-> init_dstatelet1 \+ l2 \\-> init_dstatelet2.

(* Specifications: *)
Lemma validI : valid init_state.
Lemma coh1': calcoh prec cs1 cls1 init_dstatelet1 /\
CalcInv l1 f prec cs1 cls1 init_dstatelet1.
Lemma coh1 : l1 \\-> init_dstatelet1 \In Coh W1.
Lemma coh2' : calcoh prec cs2 cls2 init_dstatelet2 /\
CalcInv l2 f prec cs2 cls2 init_dstatelet2.
Lemma coh2 : l2 \\-> init_dstatelet2 \In Coh W2.
Lemma init_coh : init_state \In Coh V.
Definition client_input :=
[:: [::1; 2]; [::3; 4]; [::5; 6]; [::7; 8]; [::9; 10]].