use LemmaTab in levels

2 years ago · 85f0a2e559
parent 3cbe336ccb
commit 85f0a2e559
8 changed files with 8 additions and 2 deletions
--- a/server/adam/Adam/Levels/Function/L02_Let.lean
+++ b/server/adam/Adam/Levels/Function/L02_Let.lean
@ -44,6 +44,7 @@ Statement "" (x : ℤ) : ∃ (g : ℤ → ℤ), (g ∘ f) x = x + 1 := by

 NewTactic «let»
 NewLemma Function.comp_apply
+LemmaTab "Function"

 Hint (x : ℤ) : ∃ g, (g ∘ f) x = x + 1 =>
 "**Du**: Ist `g ∘ f` Komposition von Funktionen?
--- a/server/adam/Adam/Levels/Function/L03_Piecewise.lean
+++ b/server/adam/Adam/Levels/Function/L03_Piecewise.lean
@ -54,7 +54,7 @@ Statement ""
 NewTactic funext by_cases simp_rw linarith

 NewLemma not_le if_pos if_neg
-
+LemmaTab "Logic"

 Hint : f ∘ g = g ∘ f =>
 "
--- a/server/adam/Adam/Levels/Function/L05_Injective.lean
+++ b/server/adam/Adam/Levels/Function/L05_Injective.lean
@ -31,7 +31,7 @@ Statement "" : Injective (fun (n : ℤ) ↦ n^3 + (n + 3)) := by

 NewDefinition Injective
 NewLemma StrictMono.injective StrictMono.add Odd.strictMono_pow
-
+LemmaTab "Function"

 Hint : Injective fun (n : ℤ) => n ^ 3 + (n + 3) =>
 "**Du**: Hmm, das ist etwas schwieriger…
--- a/server/adam/Adam/Levels/Implication/L10_Apply.lean
+++ b/server/adam/Adam/Levels/Implication/L10_Apply.lean
@ -45,5 +45,6 @@ Conclusion
 **Mechanikerin**: Danke vielmals, jetzt bin ich schon viel ruhiger.
 "

+LemmaTab "Logic"
 NewLemma not_or_of_imp
 DisabledTactic tauto
--- a/server/adam/Adam/Levels/Implication/L12_Rw.lean
+++ b/server/adam/Adam/Levels/Implication/L12_Rw.lean
@ -48,3 +48,4 @@ funktioniert.

 DisabledTactic tauto apply
 NewLemma not_not
+LemmaTab "Logic"
--- a/server/adam/Adam/Levels/Inequality/L02_Pos.lean
+++ b/server/adam/Adam/Levels/Inequality/L02_Pos.lean
@ -46,6 +46,7 @@ Statement Nat.pos_iff_ne_zero (n : ℕ) : 0 < n ↔ n ≠ 0 := by
 NewTactic simp
 NewLemma Nat.succ_pos
 DisabledLemma Nat.pos_iff_ne_zero
+LemmaTab "Nat"

 Conclusion "**Du**: Oh `simp` ist ja echt nicht schlecht…

--- a/server/adam/Adam/Levels/Inequality/L03_Linarith.lean
+++ b/server/adam/Adam/Levels/Inequality/L03_Linarith.lean
@ -22,5 +22,6 @@ Statement (n : ℕ) (h : 2 ≤ n) : n ≠ 0 := by

 NewTactic linarith
 NewLemma Nat.pos_iff_ne_zero
+LemmaTab "Nat"

 Conclusion "**Du**: Naja so beeindruckend war das jetzt auch noch nicht."
--- a/server/adam/Adam/Levels/Proposition/L00_Tauto.lean
+++ b/server/adam/Adam/Levels/Proposition/L00_Tauto.lean
@ -43,4 +43,5 @@ Aber glaubt bloß nicht, dass Ihr damit auf *diesem* Planeten viel weiterkommt!
 Meine Untertanen verstehen `tauto` nicht.  Da müsst Ihr Euch schon etwas mehr anstrengen.
 "

+LemmaTab "Logic"
 NewTactic tauto