proposition: Lemma Some_cputE T (r : loc T) (s s' : coq_type T) e : nth_error (ofEnv e) (loc_id r) = Some (mkbind s') -> cput r s e = inr (tt, mkEnv (set_nth def (ofEnv e) (loc_id r) (mkbind s))).
proof: Proof. by move=> H; rewrite /cput/= 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