src/FOLP/simp.ML
changeset 58963 26bf09b95dda
parent 56245 84fc7dfa3cd4
child 59170 de18f8b1a5a2
     1.1 --- a/src/FOLP/simp.ML	Sun Nov 09 20:49:28 2014 +0100
     1.2 +++ b/src/FOLP/simp.ML	Mon Nov 10 21:49:48 2014 +0100
     1.3 @@ -451,7 +451,7 @@
     1.4                       thm', anet, ats, (ss,thm,anet,ats,seq',more)::cs)
     1.5              end
     1.6      | NONE => if more
     1.7 -            then rew((lhs_net_tac anet i THEN assume_tac i) thm,
     1.8 +            then rew((lhs_net_tac anet i THEN atac i) thm,
     1.9                       thm,ss,anet,ats,cs,false)
    1.10              else (ss,thm,anet,ats,cs);
    1.11