proposition: Lemma nocoerce_cput T (r : loc T) (s : coq_type T) T' (s' : coq_type T') e : nth_error (ofEnv e) (loc_id r) = Some (mkbind s') -> ~~ coercible T s' -> cput r s e = fail.
proof: Proof. move=> H Ts'; move: e H => [e] H; rewrite /cput H. by rewrite not_coercible// (coercible_sym _ s'). Qed.
imports: JMeq mathcomp(all_ssreflect finmap) monae_lib HB(structures) hierarchy monad_lib fail_lib state_lib trace_lib monad_transformer monad_model