fix induction

This commit is contained in:
joneugster
2023-10-15 01:16:09 +02:00
parent c0483b727a
commit 3333a85d02
3 changed files with 70 additions and 33 deletions

28
test/induction.lean Normal file
View File

@@ -0,0 +1,28 @@
import Game.Tactic.Induction
import Game.MyNat.Addition
import Mathlib.Tactic.Have
import Mathlib.Tactic
example (a b : ) : a + b = a b = 0 := by
induction b with d hd
-- looks great
-- base case
/-
a :
⊢ a + 0 = a → 0 = 0
-/
sorry; sorry
example (a b c : ) (g : c = 0) : a + b = a b = 0 := by
intro h -- h : a + b = a
induction b with d hd generalizing g
-- aargh
-- base case
/-
a b:
h✝ : a + b = a
h : a + 0 = a
⊢ 0 = 0
-/
-- Why does b still exist in the base case? And why does h✝ exist at all?
sorry; sorry