let mk_global_invariant pred name =
  let li = Cil_const.make_logic_info name in
  li.l_body <- LBpred(unamed pred);
  globals_queue:=
    GAnnot (Cil_types.Dinvariant (li, Location.unknown), Location.unknown)
  :: !globals_queue