# HG changeset patch
# User bulwahn
# Date 1322774075 -3600
# Node ID a709e1a0f3ddbb2f7551461ed2d997a5ef1c6944
# Parent  123e3a9a3bb3b5b6baf326e8e1106d8b779cd692
making catch_match polymorphic

diff -r 123e3a9a3bb3 -r a709e1a0f3dd src/HOL/Quickcheck.thy
--- a/src/HOL/Quickcheck.thy	Thu Dec 01 22:14:35 2011 +0100
+++ b/src/HOL/Quickcheck.thy	Thu Dec 01 22:14:35 2011 +0100
@@ -16,7 +16,7 @@
 
 subsection {* Catching Match exceptions *}
 
-definition catch_match :: "(bool * term list) option => (bool * term list) option => (bool * term list) option"
+definition catch_match :: "'a => 'a => 'a" (* "(bool * term list) option => (bool * term list) option => (bool * term list) option"*)
 where
   [code del]: "catch_match t1 t2 = (SOME t. t = t1 \<or> t = t2)"