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)))