tuned proof in order to avoid warning message
authorChristian Urban <urbanc@in.tum.de>
Mon, 02 Apr 2012 18:12:53 +0100
changeset 47301 ca743eafa1dd
parent 47300 2284a40e0f57
child 47303 2f4efbdc43ba
child 47304 a0d97d919f01
tuned proof in order to avoid warning message
src/HOL/Library/Quotient_Product.thy
--- a/src/HOL/Library/Quotient_Product.thy	Mon Apr 02 16:07:24 2012 +0200
+++ b/src/HOL/Library/Quotient_Product.thy	Mon Apr 02 18:12:53 2012 +0100
@@ -85,7 +85,8 @@
 
 lemma split_rsp [quot_respect]:
   shows "((R1 ===> R2 ===> (op =)) ===> (prod_rel R1 R2) ===> (op =)) split split"
-  by (auto intro!: fun_relI elim!: fun_relE)
+  unfolding prod_rel_def fun_rel_def
+  by auto
 
 lemma split_prs [quot_preserve]:
   assumes q1: "Quotient R1 Abs1 Rep1"