equal
deleted
inserted
replaced
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 |