let global_scope m p = 
   if L.has_context_vars [m.x_alloc] p
   then F.p_implies (F.p_app1 "global" m.alloc) p
   else p