Definition removeopt_localdef (ret: option ident) (l: list localdef) : list localdef :=
  match ret with
   | Some id => remove_localdef_temp id l
   | None => l
   end.Definition ifvoid {T} t (A B: T) :=
 match t with Tvoid => A | _ => B end.

Lemma fold_right_and_app_lifted: forall (Q1 Q2: list (environ -> Prop)), fold_right `(and) `(True) (Q1 ++ Q2) = `(and) (fold_right `(and) `(True) Q1) (fold_right `(and) `(True) Q2).