# HG changeset patch
# User nipkow
# Date 916316352 -3600
# Node ID 0f5ecd633c2f4d0cb6b2adabdb1ceed2fc9b99a3
# Parent  2acc5d36610c9792b46c4a7f4c95214a247a9fcd
nat_arith_tac -> arith_tac

diff -r 2acc5d36610c -r 0f5ecd633c2f src/HOLCF/IOA/NTP/Impl.ML
--- a/src/HOLCF/IOA/NTP/Impl.ML	Thu Jan 14 13:18:09 1999 +0100
+++ b/src/HOLCF/IOA/NTP/Impl.ML	Thu Jan 14 13:19:12 1999 +0100
@@ -178,14 +178,14 @@
   by (forward_tac [rewrite_rule [Impl.inv1_def]
                                 (inv1 RS invariantE) RS conjunct1] 1);
   by (tac2 1);
-  by(nat_arith_tac 1);
+  by(arith_tac 1);
 
   (* 3 *)
   by (forward_tac [rewrite_rule [Impl.inv1_def] (inv1 RS invariantE)] 1);
 
   by (tac2 1);
   by (fold_tac [rewrite_rule [Packet.hdr_def]Impl.hdr_sum_def]);
-  by(nat_arith_tac 1);
+  by(arith_tac 1);
 
   (* 2 *)
   by (tac2 1);