let valid : mem_alloc -> t_zone -> F.pred =  D.p_app2 "rt_valid"