equal
deleted
inserted
replaced
1 (* Title: HOL/Library/Code_Natural.thy |
1 (* Title: HOL/Library/Code_Natural.thy |
2 Author: Florian Haftmann, TU Muenchen |
2 Author: Florian Haftmann, TU Muenchen |
3 *) |
3 *) |
4 |
4 |
5 theory Code_Natural |
5 theory Code_Natural |
6 imports Main |
6 imports "../Main" |
7 begin |
7 begin |
8 |
8 |
9 section {* Alternative representation of @{typ code_numeral} for @{text Haskell} and @{text Scala} *} |
9 section {* Alternative representation of @{typ code_numeral} for @{text Haskell} and @{text Scala} *} |
10 |
10 |
11 code_include Haskell "Natural" |
11 code_include Haskell "Natural" |
123 |
123 |
124 code_const "op * \<Colon> code_numeral \<Rightarrow> code_numeral \<Rightarrow> code_numeral" |
124 code_const "op * \<Colon> code_numeral \<Rightarrow> code_numeral \<Rightarrow> code_numeral" |
125 (Haskell infixl 7 "*") |
125 (Haskell infixl 7 "*") |
126 (Scala infixl 8 "*") |
126 (Scala infixl 8 "*") |
127 |
127 |
128 code_const div_mod_code_numeral |
128 code_const Code_Numeral.div_mod |
129 (Haskell "divMod") |
129 (Haskell "divMod") |
130 (Scala infixl 8 "/%") |
130 (Scala infixl 8 "/%") |
131 |
131 |
132 code_const "HOL.equal \<Colon> code_numeral \<Rightarrow> code_numeral \<Rightarrow> bool" |
132 code_const "HOL.equal \<Colon> code_numeral \<Rightarrow> code_numeral \<Rightarrow> bool" |
133 (Haskell infix 4 "==") |
133 (Haskell infix 4 "==") |