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.