merged
authornipkow
Thu, 23 Jan 2014 16:02:02 +0100
changeset 55126 9f9db4e6fabc
parent 55124 ffabc0a5853e (diff)
parent 55125 0e0c09fca7bc (current diff)
child 55127 11408b65e9a6
merged
--- a/src/HOL/Library/Extended.thy	Thu Jan 23 16:01:53 2014 +0100
+++ b/src/HOL/Library/Extended.thy	Thu Jan 23 16:02:02 2014 +0100
@@ -77,12 +77,16 @@
 instance ..
 end
 
+declare zero_extended_def[symmetric, code_post]
+
 instantiation extended :: (one)one
 begin
 definition "1 = Fin(1::'a)"
 instance ..
 end
 
+declare one_extended_def[symmetric, code_post]
+
 instantiation extended :: (plus)plus
 begin
 
@@ -155,13 +159,13 @@
 
 instance extended :: ("{ab_semigroup_add,one}")numeral ..
 
-lemma Fin_numeral: "Fin(numeral w) = numeral w"
+lemma Fin_numeral[code_post]: "Fin(numeral w) = numeral w"
   apply (induct w rule: num_induct)
   apply (simp only: numeral_One one_extended_def)
   apply (simp only: numeral_inc one_extended_def plus_extended.simps(1)[symmetric])
   done
 
-lemma Fin_neg_numeral: "Fin (- numeral w) = - numeral w"
+lemma Fin_neg_numeral[code_post]: "Fin (- numeral w) = - numeral w"
 by (simp only: Fin_numeral uminus_extended.simps[symmetric])