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

Lemma globvars2pred_unfold: forall gv vl rho,
globvars2pred gv vl rho =
andp (prop (gv = globals_of_env rho))
(fold_right sepcon emp (map (fun idv => globvar2pred gv idv rho) vl)).