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

Lemma pt_PhaseOneRespondedE_consume d e dt lg b pt ds i from:
let: d' :=   {|
dstate := upd from ds (dstate d);
dsoup := consume_msg (dsoup d) i
|} in
coh d -> pt \in pts ->
pt != from ->
pt_PhaseOneResponded d e dt lg b pt ->
pt_PhaseOneResponded d' e dt lg b pt.