src/HOL/Lifting.thy
changeset 47436 d8fad618a67a
parent 47376 776254f89a18
parent 47435 e1b761c216ac
child 47501 0b9294e093db
--- a/src/HOL/Lifting.thy	Thu Apr 12 10:13:33 2012 +0200
+++ b/src/HOL/Lifting.thy	Thu Apr 12 11:01:15 2012 +0200
@@ -199,19 +199,19 @@
     apply safe
     apply (drule Abs1, simp)
     apply (erule Abs2)
-    apply (rule pred_compI)
+    apply (rule relcomppI)
     apply (rule Rep1)
     apply (rule Rep2)
-    apply (rule pred_compI, assumption)
+    apply (rule relcomppI, assumption)
     apply (drule Abs1, simp)
     apply (clarsimp simp add: R2)
-    apply (rule pred_compI, assumption)
+    apply (rule relcomppI, assumption)
     apply (drule Abs1, simp)+
     apply (clarsimp simp add: R2)
     apply (drule Abs1, simp)+
     apply (clarsimp simp add: R2)
-    apply (rule pred_compI, assumption)
-    apply (rule pred_compI [rotated])
+    apply (rule relcomppI, assumption)
+    apply (rule relcomppI [rotated])
     apply (erule conversepI)
     apply (drule Abs1, simp)+
     apply (simp add: R2)