natural-number-game

Solututions to the Natural Number Game

git clone: git://git.pablopie.xyz/natural-number-game
Log
Files
Refs
README

Commit: 7cc38e35cb4e6e354f44fb2fff0e2e2762d84f6d
Parent: 73420afae5df24fbd5332aab4741cc6f2886acc8
Author: Pablo <pablo-escobar@riseup.net>
Date: Fri, 31 Dec 2021 15:38:46 +0000

Finished the power world

Diffstat

1 file changed, 84 insertions, 0 deletions

Status	File Name	N° Changes	Insertions	Deletions
Added	power.lean	84	84	0

diff --git a/power.lean b/power.lean
@@ -0,0 +1,84 @@
+lemma zero_pow_zero : 0 ^ 0 = 1 :=
+begin
+  rw pow_zero,
+  refl,
+end
+
+lemma zero_pow_succ (m : ℕ) : 0 ^ (succ m) = 0 :=
+begin
+  rw pow_succ,
+  rw mul_zero,
+  refl,
+end
+
+lemma pow_one (a : ℕ) : a ^ 1 = a :=
+begin
+  rw one_eq_succ_zero,
+  rw pow_succ,
+  rw pow_zero,
+  rw one_mul,
+  refl,
+end
+
+lemma one_pow (m : ℕ) : 1 ^ m = 1 :=
+begin
+  induction m,
+  rw pow_zero,
+  refl,
+  rw pow_succ,
+  rw m_ih,
+  rw mul_one,
+  refl,
+end
+
+lemma pow_add (a m n : ℕ) : a ^ (m + n) = a ^ m * a ^ n :=
+begin
+  induction n,
+  rw add_zero,
+  rw pow_zero,
+  rw mul_one,
+  refl,
+  rw add_succ,
+  repeat {rw pow_succ},
+  rw ← mul_assoc,
+  rw n_ih,
+  refl,
+end
+
+lemma mul_pow (a b n : ℕ) : (a * b) ^ n = a ^ n * b ^ n :=
+begin
+  induction n,
+  repeat {rw pow_zero},
+  rw mul_one,
+  refl,
+  repeat {rw pow_succ},
+  rw n_ih,
+  simp,
+end
+
+lemma pow_pow (a m n : ℕ) : (a ^ m) ^ n = a ^ (m * n) :=
+begin
+  induction n,
+  rw mul_zero,
+  repeat {rw pow_zero},
+  rw mul_succ,
+  rw pow_add,
+  rw pow_succ,
+  rw n_ih,
+  refl,
+end
+
+lemma add_squared (a b : ℕ) : (a + b) ^ 2 = a ^ 2 + b ^ 2 + 2 * a * b :=
+begin
+  rw two_eq_succ_one,
+  rw one_eq_succ_zero,
+  repeat {rw pow_succ},
+  repeat {rw pow_zero},
+  repeat {rw one_mul},
+  repeat {rw succ_mul},
+  rw zero_mul,
+  rw zero_add,
+  rw mul_add,
+  repeat {rw add_mul},
+  simp,
+end