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

Lemma coh1': calcoh prec cs1 cls1 init_dstatelet1 /\
CalcInv l1 f prec cs1 cls1 init_dstatelet1.