src/HOL/Lifting_Product.thy
changeset 56520 3373f5d1e074
parent 56519 c1048f5bbb45
child 56525 b5b6ad5dc2ae
--- a/src/HOL/Lifting_Product.thy	Thu Apr 10 17:48:15 2014 +0200
+++ b/src/HOL/Lifting_Product.thy	Thu Apr 10 17:48:15 2014 +0200
@@ -24,11 +24,9 @@
   "(rel_prod A B) OO (rel_prod C D) = rel_prod (A OO C) (B OO D)"
 by (rule ext)+ (auto simp: rel_prod_def OO_def)
 
-lemma Domainp_prod[relator_domain]:
-  assumes "Domainp T1 = P1"
-  assumes "Domainp T2 = P2"
-  shows "Domainp (rel_prod T1 T2) = (pred_prod P1 P2)"
-using assms unfolding rel_prod_def pred_prod_def by blast
+lemma Domainp_prod[relator_domain]: 
+  "Domainp (rel_prod T1 T2) = (pred_prod (Domainp T1) (Domainp T2))"
+unfolding rel_prod_def pred_prod_def by blast
 
 lemma left_total_rel_prod [transfer_rule]:
   assumes "left_total R1"