src/HOL/Algebra/RingHom.thy
changeset 70019 095dce9892e8
parent 69895 6b03a8cf092d
child 75963 884dbbc8e1b3
--- a/src/HOL/Algebra/RingHom.thy	Sat Mar 30 15:37:27 2019 +0100
+++ b/src/HOL/Algebra/RingHom.thy	Mon Apr 01 17:02:43 2019 +0100
@@ -176,7 +176,7 @@
     using assms by (auto simp: intro: homeq_imp_rcos rcos_imp_homeq a_elemrcos_carrier)
 qed
 
-lemma (in ring_hom_ring) nat_pow_hom:
+lemma (in ring_hom_ring) hom_nat_pow:
   "x \<in> carrier R \<Longrightarrow> h (x [^] (n :: nat)) = (h x) [^]\<^bsub>S\<^esub> n"
   by (induct n) (auto)