Moved code generator setup for lists to List.thy
authorberghofe
Mon Jul 19 18:15:46 2004 +0200 (2004-07-19)
changeset 15063a43d771c18ac
parent 15062 8049f217428e
child 15064 4f3102b50197
Moved code generator setup for lists to List.thy
src/HOL/Main.thy
     1.1 --- a/src/HOL/Main.thy	Mon Jul 19 18:14:57 2004 +0200
     1.2 +++ b/src/HOL/Main.thy	Mon Jul 19 18:15:46 2004 +0200
     1.3 @@ -17,7 +17,6 @@
     1.4  types_code
     1.5    "bool"  ("bool")
     1.6    "*"     ("(_ */ _)")
     1.7 -  "list"  ("_ list")
     1.8  
     1.9  consts_code
    1.10    "True"    ("true")
    1.11 @@ -31,9 +30,6 @@
    1.12    "fst"     ("fst")
    1.13    "snd"     ("snd")
    1.14  
    1.15 -  "Nil"     ("[]")
    1.16 -  "Cons"    ("(_ ::/ _)")
    1.17 -
    1.18    "wfrec"   ("wf'_rec?")
    1.19  
    1.20  quickcheck_params [default_type = int]
    1.21 @@ -42,7 +38,6 @@
    1.22  fun wf_rec f x = f (wf_rec f) x;
    1.23  
    1.24  fun term_of_bool b = if b then HOLogic.true_const else HOLogic.false_const;
    1.25 -val term_of_list = HOLogic.mk_list;
    1.26  val term_of_int = HOLogic.mk_int;
    1.27  fun term_of_id_42 f T g U (x, y) = HOLogic.pair_const T U $ f x $ g y;
    1.28  fun term_of_fun_type _ T _ U _ = Free ("<function>", T --> U);
    1.29 @@ -65,10 +60,6 @@
    1.30  
    1.31  fun gen_bool i = one_of [false, true];
    1.32  
    1.33 -fun gen_list' aG i j = frequency
    1.34 -  [(i, fn () => aG j :: gen_list' aG (i-1) j), (1, fn () => [])] ()
    1.35 -and gen_list aG i = gen_list' aG i i;
    1.36 -
    1.37  fun gen_int i = one_of [~1, 1] * random_range 0 i;
    1.38  
    1.39  fun gen_id_42 aG bG i = (aG i, bG i);