let declare arr _ =
let xt = F.p_fresh (F.pool()) "t" (Model (Array arr)) in
let t = F.var xt in
Axiom (F.p_forall [xt]
(F.p_implies (L.is_array arr t)
(F.p_eq ((a_of_data arr (data_of_a arr t))) t)))