let mk_global_invariant pred name =
  let li = Cil_const.make_logic_info name in
  li.l_body <- LBpred pred;
  let annot = Cil_types.Dinvariant (li,Location.unknown) in
  Globals.Annotations.add_user annot;
  mk_global (GAnnot (annot, Location.unknown))