proposition: Lemma Some_cget T (r : loc T) (s : coq_type T) e (A : UU0) (f : coq_type T -> M A) : nth_error (ofEnv e) (loc_id r) = Some (mkbind s) -> (cget r >>= f) e = f s e.
proof: Proof. by move=> H; rewrite MS_bindE /cget H coerce_Some. Qed.
imports: JMeq mathcomp(all_ssreflect finmap) monae_lib HB(structures) hierarchy monad_lib fail_lib state_lib trace_lib monad_transformer monad_model