nat_arith_tac -> arith_tac
authornipkow
Thu Jan 14 13:19:12 1999 +0100 (1999-01-14)
changeset 61290f5ecd633c2f
parent 6128 2acc5d36610c
child 6130 30b84ad2131d
nat_arith_tac -> arith_tac
src/HOLCF/IOA/NTP/Impl.ML
     1.1 --- a/src/HOLCF/IOA/NTP/Impl.ML	Thu Jan 14 13:18:09 1999 +0100
     1.2 +++ b/src/HOLCF/IOA/NTP/Impl.ML	Thu Jan 14 13:19:12 1999 +0100
     1.3 @@ -178,14 +178,14 @@
     1.4    by (forward_tac [rewrite_rule [Impl.inv1_def]
     1.5                                  (inv1 RS invariantE) RS conjunct1] 1);
     1.6    by (tac2 1);
     1.7 -  by(nat_arith_tac 1);
     1.8 +  by(arith_tac 1);
     1.9  
    1.10    (* 3 *)
    1.11    by (forward_tac [rewrite_rule [Impl.inv1_def] (inv1 RS invariantE)] 1);
    1.12  
    1.13    by (tac2 1);
    1.14    by (fold_tac [rewrite_rule [Packet.hdr_def]Impl.hdr_sum_def]);
    1.15 -  by(nat_arith_tac 1);
    1.16 +  by(arith_tac 1);
    1.17  
    1.18    (* 2 *)
    1.19    by (tac2 1);