(****************************************************)
(********* Getter lemmas for local state ************)
(****************************************************)

Lemma cs_in_nodes n : n \in cs -> n \in nodes.
Definition getSt n d (C : CalCoh d) : cstate :=
match find st (getLocal n d) as f return _ = f -> _ with
Some v => fun epf => icast (sym_eq (cohSt C epf)) (dyn_val v)
| _ => fun epf => [::]
end (erefl _).