src/HOL/Library/Old_SMT/old_z3_proof_tools.ML

       addsimps @{thms z3div_def} addsimps @{thms z3mod_def}
       addsimprocs [@{simproc numeral_divmod}]
       addsimprocs [
         Simplifier.make_simproc @{context} "fast_int_arith"
          {lhss = [@{term "(m::int) < n"}, @{term "(m::int) \<le> n"}, @{term "(m::int) = n"}],
-          proc = K Lin_Arith.simproc, identifier = []},
+          proc = K Lin_Arith.simproc},
         Simplifier.make_simproc @{context} "antisym_le"
          {lhss = [@{term "(x::'a::order) \<le> y"}],
-          proc = K prove_antisym_le, identifier = []},
+          proc = K prove_antisym_le},
         Simplifier.make_simproc @{context} "antisym_less"
          {lhss = [@{term "\<not> (x::'a::linorder) < y"}],
-          proc = K prove_antisym_less, identifier = []}])
+          proc = K prove_antisym_less}])
 
   structure Simpset = Generic_Data
   (
     type T = simpset
     val empty = basic_simpset