let declare arr _ = 
         let xd = F.p_fresh (F.pool()) "d" (Model t_data) in 
         let d = F.var xd in 
         Axiom (F.p_forall [xd] (L.is_array arr (a_of_data arr d)))