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

Lemma coh2' : calcoh prec cs2 cls2 init_dstatelet2 /\
CalcInv l2 f prec cs2 cls2 init_dstatelet2.