Ltac loadind_correct_solve :=
  match goal with
  | H: Error _ = OK _ |- _ => discriminate H
  | H: OK _ = OK _ |- _ => inv H
  | H: match ?x with _ => _ end = OK _ |- _ => destruct x eqn:?; loadind_correct_solve
  | _ => idtac
  end.

Lemma normalize_addrmode_64_correct: forall am rs, eval_addrmode64 ge am rs = match normalize_addrmode_64 am with | (am', None) => eval_addrmode64 ge am' rs | (am', Some delta) => Val.addl (eval_addrmode64 ge am' rs) (Vlong delta) end.