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