src/HOL/Int.thy
changeset 32069 6d28bbd33e2c
parent 31998 2c7a24f74db9
child 32272 cc1bf9077167
equal deleted inserted replaced
32068:98acc234d683 32069:6d28bbd33e2c
  2124 lemma [code]: "nat i = nat_aux i 0"
  2124 lemma [code]: "nat i = nat_aux i 0"
  2125   by (simp add: nat_aux_def)
  2125   by (simp add: nat_aux_def)
  2126 
  2126 
  2127 hide (open) const nat_aux
  2127 hide (open) const nat_aux
  2128 
  2128 
  2129 lemma zero_is_num_zero [code, code_inline, symmetric, code_post]:
  2129 lemma zero_is_num_zero [code, code_unfold_post]:
  2130   "(0\<Colon>int) = Numeral0" 
  2130   "(0\<Colon>int) = Numeral0" 
  2131   by simp
  2131   by simp
  2132 
  2132 
  2133 lemma one_is_num_one [code, code_inline, symmetric, code_post]:
  2133 lemma one_is_num_one [code, code_unfold_post]:
  2134   "(1\<Colon>int) = Numeral1" 
  2134   "(1\<Colon>int) = Numeral1" 
  2135   by simp
  2135   by simp
  2136 
  2136 
  2137 code_modulename SML
  2137 code_modulename SML
  2138   Int Integer
  2138   Int Integer