Definition getStC d (C : TPCCoh d) : CStateT :=
  match find st (getLocal cn d) as f return _ = f -> _ with
    Some v => fun epf => icast (sym_eq (cohStC C epf)) (dyn_val v)
  | _ => fun epf => (0, CInit)
  end (erefl _).

(* Specifications: *)
Lemma getStCE l i j pf pf' : getLocal cn (getStatelet j l) = getLocal cn (getStatelet i l) -> @getStC (getStatelet j l) pf' = @getStC (getStatelet i l) pf.