import Adam.Metadata
import Std.Tactic.RCases
import Mathlib.Tactic.Contrapose
import Mathlib.Tactic.Use
import Mathlib.Tactic.Ring

import Mathlib.Algebra.Parity

set_option tactic.hygienic false

Game "Adam"
World "Predicate"
Level 7

Title "Gerade/Ungerade"

Introduction
"
Sofort taucht das nächste Blatt auf.  Anscheinend hatten sie sich auf einen Kompromiss geeinigt.
"

Statement odd_square (n : ℕ) (h : Odd n) : Odd (n ^ 2) := by
  unfold Odd at *
  rcases h with ⟨r, hr⟩
  Hint "**Robo**: Ich hab noch einen Trick auf Lager:
  Wenn du jetzt herausfinden willst, welche Zahl Du einsetzen musst, könntest
  Du schon jetzt mit `rw [{hr}]` weitermachen …"
  rw [hr]
  Hint "**Robo**: Wenn Du jetzt `ring` benötigst, dann schreibt es einfach alles in
  Normalform um, das hilft beim Vergleichen."
  ring
  Hint "**Du**: Was bedeutet `ring_nf`?

  **Robo**: Wenn man `ring` nicht am Schluss benützt, sollte man stattdessen `ring_nf`
  schreiben, aber die funktionieren praktisch gleich."
  use 2 * (r + r ^ 2)
  ring

-- TODO: Allow `ring_nf` as part of `ring`.

Conclusion "Applaus!"