(**** tactics for value_fits  ****)

Lemma value_fits_Tarray:
forall {cs: compspecs} t (v: reptype t) t' n a
(v' : list (reptype t')) r,
t = (Tarray t' n a) ->
JMeq (unfold_reptype v) v' ->
n >= 0 ->
r = (Zlength v' = n /\ Forall (value_fits t') v') ->
value_fits t v =r.