Hint Rewrite @compose_eval_make_args_same : norm.
Hint Rewrite @compose_eval_make_args_other using (solve [clear; intro Hx; inversion Hx]) : norm.

Lemma elim_globals_only':
forall a: mpred,
(@liftx (Tarrow environ (LiftEnviron mpred)) (`a) globals_only) = `a.