fact: Definition crunnewgetC (A : UU0) T1 T2 (m : M A) (r : A -> loc T1) (s : A -> coq_type T2) : crun (m >>= fun x => cget (r x)) -> crun (m >>= fun x => cnew (s x) >> cget (r x)).
imports: JMeq mathcomp(all_ssreflect) mathcomp(finmap) mathcomp(classical_sets) monae_lib HB(structures) hierarchy monad_lib fail_lib state_lib trace_lib monad_transformer