5a34ffb9b0
This PR upstreams much of the material from `Mathlib/Data/Nat/Init.lean` and `Mathlib/Data/Nat/Basic.lean`.
26 lines
591 B
Text
26 lines
591 B
Text
attribute [-simp] Nat.add_eq_right -- This was later added to the simp set and interfere with the test.
|
|
|
|
example (a : Nat) : let n := 0; n + a = a := by
|
|
intro n
|
|
fail_if_success simp (config := { zeta := false })
|
|
simp (config := { zeta := false }) [n]
|
|
|
|
/--
|
|
info: a b : Nat
|
|
h : a = b
|
|
n : Nat := 0
|
|
⊢ n + a = b
|
|
---
|
|
info: a b : Nat
|
|
h : a = b
|
|
n : Nat := 0
|
|
⊢ a = b
|
|
-/
|
|
#guard_msgs in
|
|
example (a b : Nat) (h : a = b) : let n := 0; n + a = b := by
|
|
intro n
|
|
fail_if_success simp (config := { zeta := false })
|
|
trace_state
|
|
simp (config := { zeta := false }) [n]
|
|
trace_state
|
|
simp [h]
|