| author | paulson | 
| Wed, 01 Jul 2009 16:19:44 +0100 | |
| changeset 31909 | d3b020134006 | 
| parent 31613 | 78ac5c304db7 | 
| child 32108 | 77094a0bbc3e | 
| permissions | -rw-r--r-- | 
| 12115 | 1 | (* Title: HOL/ex/ROOT.ML | 
| 11586 | 2 | |
| 12115 | 3 | Miscellaneous examples for Higher-Order Logic. | 
| 4 | *) | |
| 5 | ||
| 24528 | 6 | no_document use_thys [ | 
| 24740 | 7 | "State_Monad", | 
| 25963 | 8 | "Efficient_Nat_examples", | 
| 9 | "FuncSet", | |
| 10 | "Word", | |
| 11 | "Eval_Examples", | |
| 31378 | 12 | "Codegenerator_Test", | 
| 13 | "Codegenerator_Pretty_Test", | |
| 29377 | 14 | "NormalForm", | 
| 30374 
7311a1546d85
added predicate compiler, as formally checked prototype, not as user package
 haftmann parents: 
30179diff
changeset | 15 | "../NumberTheory/Factorization", | 
| 31129 
d2cead76fca2
split Predicate_Compile examples into separate theory
 haftmann parents: 
30740diff
changeset | 16 | "Predicate_Compile", | 
| 
d2cead76fca2
split Predicate_Compile examples into separate theory
 haftmann parents: 
30740diff
changeset | 17 | "Predicate_Compile_ex" | 
| 25963 | 18 | ]; | 
| 19 | ||
| 24478 | 20 | use_thys [ | 
| 28021 | 21 | "Numeral", | 
| 24478 | 22 | "Higher_Order_Logic", | 
| 23 | "Abstract_NAT", | |
| 24 | "Guess", | |
| 25 | "Binary", | |
| 26 | "Recdefs", | |
| 27 | "Fundefs", | |
| 25568 | 28 | "Induction_Scheme", | 
| 24478 | 29 | "InductiveInvariant_examples", | 
| 30 | "LocaleTest2", | |
| 31 | "Records", | |
| 32 | "MonoidGroup", | |
| 33 | "BinEx", | |
| 34 | "Hex_Bin_Examples", | |
| 35 | "Antiquote", | |
| 36 | "Multiquote", | |
| 37 | "PER", | |
| 38 | "NatSum", | |
| 39 | "ThreeDivides", | |
| 40 | "Intuitionistic", | |
| 41 | "CTL", | |
| 42 | "Arith_Examples", | |
| 43 | "BT", | |
| 44 | "MergeSort", | |
| 45 | "Lagrange", | |
| 46 | "Groebner_Examples", | |
| 47 | "MT", | |
| 48 | "Unification", | |
| 49 | "Commutative_RingEx", | |
| 24740 | 50 | "Commutative_Ring_Complete", | 
| 51 | "Primrec", | |
| 52 | "Tarski", | |
| 25738 
b091cbae3e2a
included meson/metis tests in simultaneous use_thys;
 wenzelm parents: 
25568diff
changeset | 53 | "Adder", | 
| 
b091cbae3e2a
included meson/metis tests in simultaneous use_thys;
 wenzelm parents: 
25568diff
changeset | 54 | "Classical", | 
| 
b091cbae3e2a
included meson/metis tests in simultaneous use_thys;
 wenzelm parents: 
25568diff
changeset | 55 | "set", | 
| 27436 | 56 | "Meson_Test", | 
| 29181 
cc177742e607
renamed LexOrds.thy to Termination.thy; examples for sizechange method
 krauss parents: 
28952diff
changeset | 57 | "Termination", | 
| 29376 | 58 | "Coherent", | 
| 59 | "PresburgerEx", | |
| 29377 | 60 | "ReflectionEx", | 
| 61 | "BinEx", | |
| 62 | "Sqrt", | |
| 63 | "Sqrt_Script", | |
| 64 | "Arithmetic_Series_Complex", | |
| 65 | "HarmonicSeries", | |
| 66 | "Refute_Examples", | |
| 29697 
e8785144719d
Added Formal_Power_Series_Examples to HOL-ex image
 chaieb parents: 
29650diff
changeset | 67 | "Quickcheck_Examples", | 
| 31381 | 68 | "Formal_Power_Series_Examples", | 
| 69 | "Landau" | |
| 24478 | 70 | ]; | 
| 21256 | 71 | |
| 29376 | 72 | setmp Proofterm.proofs 2 use_thy "Hilbert_Classical"; | 
| 24478 | 73 | |
| 12115 | 74 | |
| 29376 | 75 | use_thy "SVC_Oracle"; | 
| 12115 | 76 | |
| 28263 | 77 | fun svc_enabled () = getenv "SVC_HOME" <> ""; | 
| 78 | fun if_svc_enabled f x = if svc_enabled () then f x else (); | |
| 79 | ||
| 29377 | 80 | if_svc_enabled use_thy "svc_test"; | 
| 14459 | 81 | |
| 29376 | 82 | |
| 23191 | 83 | (* requires a proof-generating SAT solver (zChaff or MiniSAT) to be *) | 
| 84 | (* installed: *) | |
| 29376 | 85 | try use_thy "SAT_Examples"; | 
| 17618 
1330157e156a
new sat tactic imports resolution proofs from zChaff
 webertj parents: 
17505diff
changeset | 86 | |
| 23191 | 87 | (* requires zChaff (or some other reasonably fast SAT solver) to be *) | 
| 88 | (* installed: *) | |
| 18408 | 89 | if getenv "ZCHAFF_HOME" <> "" then | 
| 29376 | 90 | use_thy "Sudoku" | 
| 23191 | 91 | else (); | 
| 18408 | 92 | |
| 30179 | 93 | HTML.with_charset "utf-8" (no_document use_thys) | 
| 94 | ["Hebrew", "Chinese", "Serbian"]; |