equal
deleted
inserted
replaced
3 *) |
3 *) |
4 |
4 |
5 section \<open>Simple example for computations generated by the code generator\<close> |
5 section \<open>Simple example for computations generated by the code generator\<close> |
6 |
6 |
7 theory Computations |
7 theory Computations |
8 imports "../Nat" "../Fun_Def" "../Num" "../Code_Numeral" |
8 imports HOL.Nat HOL.Fun_Def HOL.Num HOL.Code_Numeral |
9 begin |
9 begin |
10 |
10 |
11 fun even :: "nat \<Rightarrow> bool" |
11 fun even :: "nat \<Rightarrow> bool" |
12 where "even 0 \<longleftrightarrow> True" |
12 where "even 0 \<longleftrightarrow> True" |
13 | "even (Suc 0) \<longleftrightarrow> False" |
13 | "even (Suc 0) \<longleftrightarrow> False" |