Notation init_dstatelet1 := (DStatelet init_dstate1 Unit).Notation init_dstatelet2 := (DStatelet init_dstate2 Unit).

(* Specifications: *)
Lemma validI : valid init_state.
Lemma coh1': calcoh prec cs1 cls1 init_dstatelet1 /\ CalcInv l1 f prec cs1 cls1 init_dstatelet1.
Lemma coh2' : calcoh prec cs2 cls2 init_dstatelet2 /\ CalcInv l2 f prec cs2 cls2 init_dstatelet2.