src/Pure/tactical.ML
changeset 52131 366fa32ee2a3
parent 49865 eeaf1ec7eac2
child 56231 b98813774a63
--- a/src/Pure/tactical.ML	Fri May 24 16:42:57 2013 +0200
+++ b/src/Pure/tactical.ML	Fri May 24 17:00:46 2013 +0200
@@ -340,7 +340,7 @@
         fun diff st' =
             Thm.nprems_of st' - d <= 0   (*the subgoal no longer exists*)
             orelse
-             not (Pattern.aeconv (t, Thm.term_of (Thm.cprem_of st' (Thm.nprems_of st' - d))))
+             not (Envir.aeconv (t, Thm.term_of (Thm.cprem_of st' (Thm.nprems_of st' - d))))
     in  Seq.filter diff (tac i st)  end
     handle General.Subscript => Seq.empty  (*no subgoal i*);