Definition LR_of_type (t: type) :=
  match t with
  | Tarray _ _ _ => RRRR
  | _ => LLLL
  end.

Lemma isBinOpResultType_add_ptr_ptrofs: forall e t n a t0 ei, is_ptrofs_type (typeof ei) = true -> typeconv (Tarray t0 n a) = typeconv (typeof e) -> complete_legal_cosu_type t0 = true -> eqb_type (typeof e) int_or_ptr_type = false -> isBinOpResultType Cop.Oadd e ei (tptr t) = tc_isptr e.