Lemma field_compatible0_array_smaller1: forall {cs: compspecs} t i j n1 n2 p, field_compatible0 (Tarray t n1 noattr) (ArraySubsc j::nil) p -> 0 <= i <= n2 -> n2 <= n1 -> field_compatible0 (Tarray t n2 noattr) (ArraySubsc i::nil) p.