| author | haftmann | 
| Fri, 14 Aug 2009 15:36:55 +0200 | |
| changeset 32373 | c96330408d89 | 
| parent 32372 | b0d2b49bfaed | 
| child 32374 | 62617ef2c0d0 | 
--- a/src/HOL/Quickcheck.thy Fri Aug 14 15:36:54 2009 +0200 +++ b/src/HOL/Quickcheck.thy Fri Aug 14 15:36:55 2009 +0200 @@ -54,7 +54,7 @@ begin definition - "random _ = Pair (STR [], \<lambda>u. Code_Eval.term_of (STR []))" + "random _ = Pair (STR '''', \<lambda>u. Code_Eval.term_of (STR ''''))" instance ..