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

Lemma pt_PhaseOneE' d r nd 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_PhaseOne d r nd lg pt ->
pt_PhaseOne d' r nd lg pt.