Lemma field_compatible0_Tarray_offset: forall {cs: compspecs} t n i n' i' p p', field_compatible0 (Tarray t n' noattr) (ArraySubsc i' :: nil) p -> naturally_aligned t -> 0 <= n <= n' -> 0 <= i <= n -> n-i <= n'-i' -> i <= i' -> p' = offset_val (sizeof t * (i'-i)) p -> field_compatible0 (Tarray t n noattr) (ArraySubsc i :: nil) p'.