author | krauss |
Tue, 05 Aug 2008 14:40:48 +0200 | |
changeset 27742 | df552e6027cf |
parent 27455 | 58b695d10cdf |
child 28098 | c92850d2d16c |
permissions | -rw-r--r-- |
21917 | 1 |
(* ID: $Id$ |
2 |
Author: Florian Haftmann, TU Muenchen |
|
3 |
*) |
|
4 |
||
5 |
header {* A huge set of executable constants *} |
|
6 |
||
7 |
theory ExecutableContent |
|
8 |
imports |
|
27421 | 9 |
Complex_Main |
21917 | 10 |
AssocList |
11 |
Binomial |
|
12 |
Commutative_Ring |
|
27421 | 13 |
Enum |
14 |
Eval |
|
21917 | 15 |
List_Prefix |
16 |
Nat_Infinity |
|
17 |
NatPair |
|
24433
4a405457e9d6
added explicit equation for equality of nested environments
haftmann
parents:
24423
diff
changeset
|
18 |
Nested_Environment |
26515 | 19 |
Option_ord |
21917 | 20 |
Permutation |
21 |
Primes |
|
22 |
Product_ord |
|
23 |
SetsAndFunctions |
|
24 |
State_Monad |
|
25 |
While_Combinator |
|
26 |
Word |
|
27421 | 27 |
"~~/src/HOL/ex/Commutative_Ring_Complete" |
28 |
"~~/src/HOL/ex/Records" |
|
21917 | 29 |
begin |
30 |
||
26022 | 31 |
lemma [code func, code func del]: "(Eval.term_of \<Colon> index \<Rightarrow> term) = Eval.term_of" .. |
25963 | 32 |
declare fast_bv_to_nat_helper.simps [code func del] |
24197 | 33 |
|
27103 | 34 |
setup {* |
35 |
Code.del_funcs |
|
36 |
(AxClass.param_of_inst @{theory} (@{const_name "Eval.term_of"}, @{type_name "env"})) |
|
37 |
*} |
|
38 |
||
21917 | 39 |
end |