src/HOL/List.thy
changeset 55525 70b7e91fa1f9
parent 55524 f41ef840f09d
child 55531 601ca8efa000
--- a/src/HOL/List.thy	Sun Feb 16 21:33:28 2014 +0100
+++ b/src/HOL/List.thy	Sun Feb 16 21:33:28 2014 +0100
@@ -6779,7 +6779,7 @@
   unfolding List.insert_def [abs_def] by transfer_prover
 
 lemma find_transfer [transfer_rule]:
-  "((A ===> op =) ===> list_all2 A ===> option_rel A) List.find List.find"
+  "((A ===> op =) ===> list_all2 A ===> rel_option A) List.find List.find"
   unfolding List.find_def by transfer_prover
 
 lemma remove1_transfer [transfer_rule]: