src/HOL/Library/Code_Natural.thy
changeset 46547 d1dcb91a512e
parent 39781 2053638a2bf2
child 47108 2a1953f0d20d
equal deleted inserted replaced
46546:42298c5d33b1 46547:d1dcb91a512e
     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 "==")