merged
authorAndreas Lochbihler
Tue, 26 Jul 2011 12:44:36 +0200
changeset 448480eb2b12bd99e
parent 44847 af17d7934116
parent 44846 0e530fe0d33e
child 44849 da7d04d4023c
child 44850 9f27d2bf4087
merged
     1.1 --- a/src/HOL/Library/Transitive_Closure_Table.thy	Tue Jul 26 10:49:34 2011 +0200
     1.2 +++ b/src/HOL/Library/Transitive_Closure_Table.thy	Tue Jul 26 12:44:36 2011 +0200
     1.3 @@ -201,7 +201,9 @@
     1.4  | "test B A"
     1.5  | "test B C"
     1.6  
     1.7 -subsubsection {* Invoking with the SML code generator *}
     1.8 +subsubsection {* Invoking with the (legacy) SML code generator *}
     1.9 +
    1.10 +text {* this test can be removed once the SML code generator is deactivated *}
    1.11  
    1.12  code_module Test
    1.13  contains
     2.1 --- a/src/HOL/Predicate_Compile_Examples/Reg_Exp_Example.thy	Tue Jul 26 10:49:34 2011 +0200
     2.2 +++ b/src/HOL/Predicate_Compile_Examples/Reg_Exp_Example.thy	Tue Jul 26 12:44:36 2011 +0200
     2.3 @@ -117,7 +117,7 @@
     2.4   prolog-style generation. *}
     2.5  
     2.6  lemma "accepts (And (repInt n k p) (repInt n k q)) s --> accepts (repInt n k (And p q)) s"
     2.7 -quickcheck[tester = random, iterations = 100000, expect = counterexample]
     2.8 +quickcheck[tester = random, iterations = 100000]
     2.9  (*quickcheck[tester = predicate_compile_wo_ff]*)
    2.10  (*quickcheck[tester = predicate_compile_ff_fs, iterations = 1]*)
    2.11  (*quickcheck[tester = prolog, iterations = 1, size = 1]*)
    2.12 @@ -133,7 +133,7 @@
    2.13  (*  assumes "s = [N0, N0]"*)
    2.14    shows "accepts (And (repInt n k p) (repInt n k q)) s --> accepts (repInt n k (And p q)) s"
    2.15  (*quickcheck[tester = predicate_compile_wo_ff, iterations = 1]*)
    2.16 -quickcheck[tester = prolog, iterations = 1, size = 1, expect = counterexample]
    2.17 +quickcheck[tester = prolog, iterations = 1, size = 1]
    2.18  oops
    2.19  
    2.20  section {* Checking the counterexample *}
    2.21 @@ -160,7 +160,7 @@
    2.22    assumes "s = [N0, N0]"
    2.23    shows "accepts (And (repInt n k p) (repInt n k q)) s --> accepts (repInt n k (And p q)) s"
    2.24  (*quickcheck[tester = predicate_compile_wo_ff, iterations = 1, expect = counterexample]*)
    2.25 -quickcheck[tester = prolog, iterations = 1, size = 1, expect = counterexample]
    2.26 +quickcheck[tester = prolog, iterations = 1, size = 1]
    2.27  oops
    2.28  
    2.29  lemma
    2.30 @@ -171,11 +171,11 @@
    2.31    assumes "s = [N0, N0]"
    2.32  shows "prop_regex (n, (k, (p, (q, s))))"
    2.33  quickcheck[tester = predicate_compile_wo_ff]
    2.34 -quickcheck[tester = prolog, expect = counterexample]
    2.35 +quickcheck[tester = prolog]
    2.36  oops
    2.37  
    2.38  lemma "prop_regex a_sol"
    2.39 -quickcheck[tester = random, expect = counterexample]
    2.40 +quickcheck[tester = random]
    2.41  quickcheck[tester = predicate_compile_ff_fs]
    2.42  oops
    2.43  
     3.1 --- a/src/HOL/Proofs/Extraction/Higman.thy	Tue Jul 26 10:49:34 2011 +0200
     3.2 +++ b/src/HOL/Proofs/Extraction/Higman.thy	Tue Jul 26 12:44:36 2011 +0200
     3.3 @@ -408,6 +408,9 @@
     3.4  end;
     3.5  *}
     3.6  
     3.7 +text {* The same story with the legacy SML code generator,
     3.8 +this can be removed once the code generator is removed. *}
     3.9 +
    3.10  code_module Higman
    3.11  contains
    3.12    higman = higman_idx
     4.1 --- a/src/HOL/Proofs/Extraction/Pigeonhole.thy	Tue Jul 26 10:49:34 2011 +0200
     4.2 +++ b/src/HOL/Proofs/Extraction/Pigeonhole.thy	Tue Jul 26 12:44:36 2011 +0200
     4.3 @@ -252,6 +252,10 @@
     4.4  ML "timeit (@{code test} 500)"
     4.5  ML "timeit @{code test''}"
     4.6  
     4.7 +text {* the same story with the legacy SML code generator.
     4.8 +this can be removed once the code generator is removed.
     4.9 +*}
    4.10 +
    4.11  consts_code
    4.12    "default :: nat" ("{* 0::nat *}")
    4.13    "default :: nat \<times> nat" ("{* (0::nat, 0::nat) *}")
     5.1 --- a/src/HOL/Proofs/Lambda/WeakNorm.thy	Tue Jul 26 10:49:34 2011 +0200
     5.2 +++ b/src/HOL/Proofs/Lambda/WeakNorm.thy	Tue Jul 26 12:44:36 2011 +0200
     5.3 @@ -437,8 +437,10 @@
     5.4  val ct2' = cterm_of @{theory} (term_of_dB [] (#T (rep_cterm ct2)) dB2);
     5.5  *}
     5.6  
     5.7 +
     5.8  text {*
     5.9 -The same story again for the SML code generator.
    5.10 +The same story again for the (legacy) SML code generator.
    5.11 +This can be removed once the SML code generator is removed.
    5.12  *}
    5.13  
    5.14  consts_code