# HG changeset patch
# User haftmann
# Date 1275046649 -7200
# Node ID 161cf39694df10948ed076181ef267ca9de33d99
# Parent  e8400e31528a0a40d5d5d3ec66ca2ff9a008b47f
avoid reference to thm PairE

diff -r e8400e31528a -r 161cf39694df src/HOL/Tools/split_rule.ML
--- a/src/HOL/Tools/split_rule.ML	Fri May 28 13:37:28 2010 +0200
+++ b/src/HOL/Tools/split_rule.ML	Fri May 28 13:37:29 2010 +0200
@@ -108,7 +108,7 @@
 
 
 fun pair_tac ctxt s =
-  res_inst_tac ctxt [(("p", 0), s)] @{thm PairE}
+  res_inst_tac ctxt [(("y", 0), s)] @{thm prod.exhaust}
   THEN' hyp_subst_tac
   THEN' K prune_params_tac;