(***********************************************************)
(* Lemmas about specific sub-predicates *)

Lemma pt_InitE d r lg pt from h to m :
let: d' := {| dstate := upd from h (dstate d);
dsoup := (post_msg (dsoup d)
{| content := m; from := from; to := to; active := true |}).1 |} in
coh d ->
from != pt ->
from != cn ->
pt_Init d r lg pt ->
pt_Init d' r lg pt.