Ltac decomp :=
  match goal with
  | [ H: _ \/ _ |- _ ] => destruct H; decomp
  | [ H: S _ _ _ = S _ _ _ |- _ ] => inv H
  | [ H: False |- _ ] => contradiction
  end.

Lemma loc_arguments_64_bounded: forall ofs ty tyl ir fr ofs0, In (S Outgoing ofs ty) (regs_of_rpairs (loc_arguments_64 tyl ir fr ofs0)) -> ofs + typesize ty <= size_arguments_64 tyl ir fr ofs0.