phc/lean4game
6
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

use LemmaTab in levels

Browse Source
This commit is contained in:
Jon Eugster
2023-03-30 14:59:28 +02:00
parent 3cbe336ccb
commit 85f0a2e559
8 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
server/adam/Adam/Levels/Function/L02_Let.lean
+1
View File
@@ -44,6 +44,7 @@ Statement "" (x : ℤ) : ∃ (g : ℤ → ℤ), (g ∘ f) x = x + 1 := by
NewTactic «let» NewTactic «let»
NewLemma Function.comp_apply NewLemma Function.comp_apply
LemmaTab "Function"
Hint (x : ℤ) : ∃ g, (g ∘ f) x = x + 1 => Hint (x : ℤ) : ∃ g, (g ∘ f) x = x + 1 =>
"**Du**: Ist `g ∘ f` Komposition von Funktionen? "**Du**: Ist `g ∘ f` Komposition von Funktionen?
server/adam/Adam/Levels/Function/L03_Piecewise.lean
+1 -1
View File
@@ -54,7 +54,7 @@ Statement ""
NewTactic funext by_cases simp_rw linarith NewTactic funext by_cases simp_rw linarith
NewLemma not_le if_pos if_neg NewLemma not_le if_pos if_neg
LemmaTab "Logic"
Hint : f ∘ g = g ∘ f => Hint : f ∘ g = g ∘ f =>
" "
server/adam/Adam/Levels/Function/L05_Injective.lean
+1 -1
View File
@@ -31,7 +31,7 @@ Statement "" : Injective (fun (n : ℤ) ↦ n^3 + (n + 3)) := by
NewDefinition Injective NewDefinition Injective
NewLemma StrictMono.injective StrictMono.add Odd.strictMono_pow NewLemma StrictMono.injective StrictMono.add Odd.strictMono_pow
LemmaTab "Function"
Hint : Injective fun (n : ℤ) => n ^ 3 + (n + 3) => Hint : Injective fun (n : ℤ) => n ^ 3 + (n + 3) =>
"**Du**: Hmm, das ist etwas schwieriger… "**Du**: Hmm, das ist etwas schwieriger…
server/adam/Adam/Levels/Implication/L10_Apply.lean
+1
View File
@@ -45,5 +45,6 @@ Conclusion
**Mechanikerin**: Danke vielmals, jetzt bin ich schon viel ruhiger. **Mechanikerin**: Danke vielmals, jetzt bin ich schon viel ruhiger.
" "
LemmaTab "Logic"
NewLemma not_or_of_imp NewLemma not_or_of_imp
DisabledTactic tauto DisabledTactic tauto
server/adam/Adam/Levels/Implication/L12_Rw.lean
+1
View File
@@ -48,3 +48,4 @@ funktioniert.
DisabledTactic tauto apply DisabledTactic tauto apply
NewLemma not_not NewLemma not_not
LemmaTab "Logic"
server/adam/Adam/Levels/Inequality/L02_Pos.lean
+1
View File
@@ -46,6 +46,7 @@ Statement Nat.pos_iff_ne_zero (n : ℕ) : 0 < n ↔ n ≠ 0 := by
NewTactic simp NewTactic simp
NewLemma Nat.succ_pos NewLemma Nat.succ_pos
DisabledLemma Nat.pos_iff_ne_zero DisabledLemma Nat.pos_iff_ne_zero
LemmaTab "Nat"
Conclusion "**Du**: Oh `simp` ist ja echt nicht schlecht… Conclusion "**Du**: Oh `simp` ist ja echt nicht schlecht…
server/adam/Adam/Levels/Inequality/L03_Linarith.lean
+1
View File
@@ -22,5 +22,6 @@ Statement (n : ℕ) (h : 2 ≤ n) : n ≠ 0 := by
NewTactic linarith NewTactic linarith
NewLemma Nat.pos_iff_ne_zero NewLemma Nat.pos_iff_ne_zero
LemmaTab "Nat"
Conclusion "**Du**: Naja so beeindruckend war das jetzt auch noch nicht." Conclusion "**Du**: Naja so beeindruckend war das jetzt auch noch nicht."
server/adam/Adam/Levels/Proposition/L00_Tauto.lean
+1
View File
@@ -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. Meine Untertanen verstehen `tauto` nicht. Da müsst Ihr Euch schon etwas mehr anstrengen.
" "
LemmaTab "Logic"
NewTactic tauto NewTactic tauto