Hint Rewrite @lift1_lift0 : norm2.

(* Specifications: *)
Lemma const_liftx0:
forall B (P: B), (fun _ : environ => P) = `P.
Lemma tc_eval_gvar_i:
forall Delta t i rho, tc_environ Delta rho ->
(var_types Delta) ! i = None ->
(glob_types Delta) ! i = Some t ->
tc_val (Tpointer t noattr) (eval_var i t rho).
Lemma local_lift2_and: forall P Q, local (`and P Q) =
local P && local Q.