let add_annotation a =
  Cil.registerAttribute a Cil.AttrType;
  if not (Logic_env.is_logic_type security_name) then begin
    Logic_env.add_builtin_logic_type security_name security_type
  end;
  if not (Logic_env.is_logic_function a) then begin
    Logic_builtin.add { bl_name = a; bl_params = []; bl_labels = [];
                        bl_type = Some (Ltype (security_type, []));
                        bl_profile = [];
                      }
  end