Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Library/Function_Growth.thy
changeset 63540 f8652d0534fa
parent 63060 293ede07b775 
--- a/src/HOL/Library/Function_Growth.thy	Fri Jul 22 08:02:37 2016 +0200
+++ b/src/HOL/Library/Function_Growth.thy	Fri Jul 22 11:00:43 2016 +0200
@@ -36,8 +36,8 @@
   shows "a ^ (m - n) = (a ^ m) div (a ^ n)"
 proof -
   define q where "q = m - n"
-  moreover with assms have "m = q + n" by (simp add: q_def)
-  ultimately show ?thesis using \<open>a \<noteq> 0\<close> by (simp add: power_add)
+  with assms have "m = q + n" by (simp add: q_def)
+  with q_def show ?thesis using \<open>a \<noteq> 0\<close> by (simp add: power_add)
 qed
isabelle