author | huffman |
Wed, 21 Sep 2011 08:28:53 -0700 | |
changeset 45036 | ad016fc215f2 |
parent 45033 | 34e5fc15ea02 |
child 45037 | 29b5ff81f709 |
--- a/src/HOL/Library/Extended_Real.thy Wed Sep 21 06:41:34 2011 -0700 +++ b/src/HOL/Library/Extended_Real.thy Wed Sep 21 08:28:53 2011 -0700 @@ -765,14 +765,6 @@ subsubsection {* Power *} -instantiation ereal :: power -begin -primrec power_ereal where - "power_ereal x 0 = 1" | - "power_ereal x (Suc n) = x * x ^ n" -instance .. -end - lemma ereal_power[simp]: "(ereal x) ^ n = ereal (x^n)" by (induct n) (auto simp: one_ereal_def)