You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
|
|
|
import Mathlib.Algebra.BigOperators.Basic
|
|
|
|
|
|
import Mathlib
|
|
|
|
|
|
|
|
|
|
|
|
import TestGame.Metadata
|
|
|
|
|
|
|
|
|
|
|
|
set_option tactic.hygienic false
|
|
|
|
|
|
|
|
|
|
|
|
Game "TestGame"
|
|
|
|
|
|
World "Induction"
|
|
|
|
|
|
Level 2
|
|
|
|
|
|
|
|
|
|
|
|
Title "endliche Summe"
|
|
|
|
|
|
|
|
|
|
|
|
Introduction
|
|
|
|
|
|
"
|
|
|
|
|
|
n^3 + 2n ist durch 3 teilbar für alle ganzen Zahlen n
|
|
|
|
|
|
"
|
|
|
|
|
|
|
|
|
|
|
|
Statement
|
|
|
|
|
|
"n^3 + 2n ist durch 3 teilbar für alle ganzen Zahlen n"
|
|
|
|
|
|
(n : ℤ) : 3 ∣ n^3 + 2*n := by
|
|
|
|
|
|
induction n
|
|
|
|
|
|
induction a
|
|
|
|
|
|
norm_cast
|
|
|
|
|
|
change 3 ∣ (Nat.succ n : ℤ) ^ 3 + 2 * (Nat.succ n : ℤ)
|
|
|
|
|
|
rw [Int.ofNat_succ]
|
|
|
|
|
|
sorry
|
|
|
|
|
|
sorry
|
|
|
|
|
|
|
|
|
|
|
|
-- example (n : ℕ) : (n - 1) * (n + 1) = (n ^ 2 - 1) := by
|
|
|
|
|
|
-- induction' n with n hn
|
|
|
|
|
|
-- ring
|
|
|
|
|
|
-- rw [Nat.succ_eq_one_add]
|
|
|
|
|
|
-- rw []
|
|
|
|
|
|
NewTactics rw simp ring
|
