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

Lemma legal_nested_efield_weaken: forall t_root e gfs tts, legal_nested_efield t_root e gfs tts (LR_of_type t_root) = true -> legal_nested_efield_rec t_root gfs tts = true /\ type_almost_match e t_root (LR_of_type t_root) = true.