| author | blanchet | 
| Sat, 12 Jul 2014 11:31:22 +0200 | |
| changeset 57546 | 2b561e7a0512 | 
| parent 51173 | 3cbb4e95a565 | 
| child 58678 | 398e05aa84d4 | 
| 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  | 
|
| 
37695
 
71e84a203c19
introduced distinct session HOL-Codegenerator_Test
 
haftmann 
parents: 
37407 
diff
changeset
 | 
6  | 
theory Candidates  | 
| 21917 | 7  | 
imports  | 
| 27421 | 8  | 
Complex_Main  | 
| 
51160
 
599ff65b85e2
systematic conversions between nat and nibble/char;
 
haftmann 
parents: 
49077 
diff
changeset
 | 
9  | 
"~~/src/HOL/Library/Library"  | 
| 
51161
 
6ed12ae3b3e1
attempt to re-establish conventions which theories are loaded into the grand unified library theory;
 
haftmann 
parents: 
51160 
diff
changeset
 | 
10  | 
"~~/src/HOL/Library/Sublist_Order"  | 
| 51173 | 11  | 
"~~/src/HOL/Number_Theory/Eratosthenes"  | 
| 35303 | 12  | 
"~~/src/HOL/ex/Records"  | 
| 21917 | 13  | 
begin  | 
14  | 
||
| 
51161
 
6ed12ae3b3e1
attempt to re-establish conventions which theories are loaded into the grand unified library theory;
 
haftmann 
parents: 
51160 
diff
changeset
 | 
15  | 
inductive sublist :: "'a list \<Rightarrow> 'a list \<Rightarrow> bool"  | 
| 
 
6ed12ae3b3e1
attempt to re-establish conventions which theories are loaded into the grand unified library theory;
 
haftmann 
parents: 
51160 
diff
changeset
 | 
16  | 
where  | 
| 
 
6ed12ae3b3e1
attempt to re-establish conventions which theories are loaded into the grand unified library theory;
 
haftmann 
parents: 
51160 
diff
changeset
 | 
17  | 
empty: "sublist [] xs"  | 
| 
 
6ed12ae3b3e1
attempt to re-establish conventions which theories are loaded into the grand unified library theory;
 
haftmann 
parents: 
51160 
diff
changeset
 | 
18  | 
| drop: "sublist ys xs \<Longrightarrow> sublist ys (x # xs)"  | 
| 
 
6ed12ae3b3e1
attempt to re-establish conventions which theories are loaded into the grand unified library theory;
 
haftmann 
parents: 
51160 
diff
changeset
 | 
19  | 
| take: "sublist ys xs \<Longrightarrow> sublist (x # ys) (x # xs)"  | 
| 33500 | 20  | 
|
21  | 
code_pred sublist .  | 
|
22  | 
||
| 
51161
 
6ed12ae3b3e1
attempt to re-establish conventions which theories are loaded into the grand unified library theory;
 
haftmann 
parents: 
51160 
diff
changeset
 | 
23  | 
code_reserved SML upto -- {* avoid popular infix *}
 | 
| 31378 | 24  | 
|
| 21917 | 25  | 
end  |