Hint Resolve regs_erasure_get regs_erasure_refl regs_erasure_set
: regs_erasure.
Notation the_ge := (@the_ge the_program).
(** ** Result about at_external, after_external and initial_core *)

(* TODO: these two are duplicated, create a separate library for registers*)
Lemma regset_comm:
forall (rs: Pregmap.t val) r r' v,
(rs # r <- v) # r' <- v = (rs # r' <- v) # r <- v.