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