author | haftmann |
Thu, 20 May 2010 16:35:54 +0200 | |
changeset 37023 | efc202e1677e |
parent 36962 | 5fb251d1c32f |
child 37392 | b39f640b94d4 |
permissions | -rw-r--r-- |
31378 | 1 |
|
2 |
(* Author: Florian Haftmann, TU Muenchen *) |
|
21917 | 3 |
|
31378 | 4 |
header {* A huge collection of equations to generate code from *} |
21917 | 5 |
|
31378 | 6 |
theory Codegenerator_Candidates |
21917 | 7 |
imports |
27421 | 8 |
Complex_Main |
21917 | 9 |
AssocList |
10 |
Binomial |
|
35303 | 11 |
"~~/src/HOL/Decision_Procs/Commutative_Ring_Complete" |
12 |
Dlist |
|
31849 | 13 |
Fset |
27421 | 14 |
Enum |
21917 | 15 |
List_Prefix |
37023 | 16 |
More_List |
21917 | 17 |
Nat_Infinity |
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 |
32479 | 21 |
"~~/src/HOL/Number_Theory/Primes" |
21917 | 22 |
Product_ord |
35303 | 23 |
"~~/src/HOL/ex/Records" |
36147
b43b22f63665
theory RBT with abstract type of red-black trees backed by implementation RBT_Impl
haftmann
parents:
36115
diff
changeset
|
24 |
RBT |
21917 | 25 |
SetsAndFunctions |
26 |
While_Combinator |
|
27 |
begin |
|
28 |
||
33500 | 29 |
inductive sublist :: "'a list \<Rightarrow> 'a list \<Rightarrow> bool" where |
30 |
empty: "sublist [] xs" |
|
31 |
| drop: "sublist ys xs \<Longrightarrow> sublist ys (x # xs)" |
|
32 |
| take: "sublist ys xs \<Longrightarrow> sublist (x # ys) (x # xs)" |
|
33 |
||
34 |
code_pred sublist . |
|
35 |
||
33042 | 36 |
(*avoid popular infix*) |
37 |
code_reserved SML upto |
|
31378 | 38 |
|
21917 | 39 |
end |