5d46391dde
This PR improves the startup time for `grind ring` by generating the required type classes on demand. This optimization is particularly relevant for files that make hundreds of calls to `grind`, such as `tests/lean/run/grind_bitvec2.lean`. For example, before this change, `grind` spent 6.87 seconds synthesizing type classes, compared to 3.92 seconds after this PR.
84 lines
1.4 KiB
Text
84 lines
1.4 KiB
Text
reset_grind_attrs%
|
|
|
|
attribute [grind] List.map_append
|
|
|
|
def a := 10
|
|
|
|
example : a = 5 + 5 := by
|
|
grind [a]
|
|
|
|
/--
|
|
error: `grind` failed
|
|
case grind
|
|
h : ¬a = 10
|
|
⊢ False
|
|
[grind] Goal diagnostics
|
|
[facts] Asserted facts
|
|
[prop] ¬a = 10
|
|
[eqc] False propositions
|
|
[prop] a = 10
|
|
[cutsat] Assignment satisfying linear constraints
|
|
[assign] a := 1
|
|
-/
|
|
#guard_msgs (error) in
|
|
example : a = 5 + 5 := by
|
|
grind
|
|
|
|
section
|
|
attribute [local grind] a
|
|
|
|
example : a = 5 + 5 := by
|
|
grind
|
|
end
|
|
|
|
def f (x : Nat) := x + 1
|
|
|
|
theorem fa : f a = 11 := rfl
|
|
|
|
example : f a = 10 + 1 := by
|
|
grind [fa]
|
|
|
|
/--
|
|
error: `grind` failed
|
|
case grind
|
|
h : ¬f a = 11
|
|
⊢ False
|
|
[grind] Goal diagnostics
|
|
[facts] Asserted facts
|
|
[prop] ¬f a = 11
|
|
[eqc] False propositions
|
|
[prop] f a = 11
|
|
[cutsat] Assignment satisfying linear constraints
|
|
[assign] a := 2
|
|
[assign] f a := 1
|
|
-/
|
|
#guard_msgs (error) in
|
|
example : f a = 10 + 1 := by
|
|
grind
|
|
|
|
attribute [grind] fa
|
|
|
|
example : f a = 10 + 1 := by
|
|
grind
|
|
|
|
/--
|
|
error: `grind` failed
|
|
case grind
|
|
x : Nat
|
|
h : ¬f x = 11
|
|
⊢ False
|
|
[grind] Goal diagnostics
|
|
[facts] Asserted facts
|
|
[prop] ¬f x = 11
|
|
[eqc] False propositions
|
|
[prop] f x = 11
|
|
[ematch] E-matching patterns
|
|
[thm] fa: [f `[a]]
|
|
[cutsat] Assignment satisfying linear constraints
|
|
[assign] x := 3
|
|
[assign] a := 2
|
|
[assign] f x := 1
|
|
-/
|
|
#guard_msgs (error) in
|
|
example : f x = 10 + 1 := by
|
|
grind
|