src/HOL/Lifting.thy
changeset 47435 e1b761c216ac
parent 47325 ec6187036495
child 47436 d8fad618a67a
--- a/src/HOL/Lifting.thy	Tue Apr 03 23:49:24 2012 +0200
+++ b/src/HOL/Lifting.thy	Wed Apr 04 15:15:48 2012 +0900
@@ -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)