author | wenzelm |
Mon, 22 May 2006 22:29:18 +0200 | |
changeset 19699 | 1ecda5544e88 |
parent 19698 | f48cfaacd92c |
child 19700 | e02af528ceef |
--- a/src/HOL/Algebra/Group.thy Mon May 22 22:29:16 2006 +0200 +++ b/src/HOL/Algebra/Group.thy Mon May 22 22:29:18 2006 +0200 @@ -34,7 +34,7 @@ consts pow :: "[('a, 'm) monoid_scheme, 'a, 'b::number] => 'a" (infixr "'(^')\<index>" 75) -defs (unchecked overloaded) +defs (overloaded) nat_pow_def: "pow G a n == nat_rec \<one>\<^bsub>G\<^esub> (%u b. b \<otimes>\<^bsub>G\<^esub> a) n" int_pow_def: "pow G a z == let p = nat_rec \<one>\<^bsub>G\<^esub> (%u b. b \<otimes>\<^bsub>G\<^esub> a)