--- a/src/ZF/int_arith.ML Thu Oct 19 16:31:17 2023 +0200
+++ b/src/ZF/int_arith.ML Thu Oct 19 17:06:39 2023 +0200
@@ -6,11 +6,11 @@
signature INT_NUMERAL_SIMPROCS =
sig
- val inteq_cancel_numerals_proc: Proof.context -> cterm -> thm option
- val intless_cancel_numerals_proc: Proof.context -> cterm -> thm option
- val intle_cancel_numerals_proc: Proof.context -> cterm -> thm option
- val int_combine_numerals_proc: Proof.context -> cterm -> thm option
- val int_combine_numerals_prod_proc: Proof.context -> cterm -> thm option
+ val inteq_cancel_numerals_proc: Simplifier.proc
+ val intless_cancel_numerals_proc: Simplifier.proc
+ val intle_cancel_numerals_proc: Simplifier.proc
+ val int_combine_numerals_proc: Simplifier.proc
+ val int_combine_numerals_prod_proc: Simplifier.proc
end
structure Int_Numeral_Simprocs: INT_NUMERAL_SIMPROCS =