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