19eac5f341
This PR ensures that the configuration in `Simp.Config` is used when reducing terms and checking definitional equality in `simp`. closes #5455 --------- Co-authored-by: Kim Morrison <kim@tqft.net>
27 lines
483 B
Text
27 lines
483 B
Text
opaque f : Nat → Nat
|
|
|
|
/--
|
|
info: Try this: simp only [h1, x]
|
|
---
|
|
warning: declaration uses 'sorry'
|
|
-/
|
|
#guard_msgs in
|
|
example (a : Nat) : True := by
|
|
let x := a
|
|
have h1 : f x = 2 := sorry
|
|
suffices f a = 2 by sorry
|
|
let w := a + a
|
|
simp? only [h1, w, x]
|
|
|
|
/--
|
|
info: Try this: simp only [this, x]
|
|
---
|
|
warning: declaration uses 'sorry'
|
|
-/
|
|
#guard_msgs in
|
|
example : True := by
|
|
let x := 37
|
|
let y := 34
|
|
have : x = 2 := sorry
|
|
suffices 37 = 2 by sorry
|
|
simp? only [this, x, y]
|