6ca699b1ff
This PR enables the new E-matching pattern inference heuristic for `grind`, implemented in PR #10422. **Important**: Users can still use the old pattern inference heuristic by setting: ```lean set_option backward.grind.inferPattern true ``` In PR #10422, we introduced the new modifier `@[grind!]` for enabling the minimal indexable subexpression condition. This option can now also be set in `grind` parameters. Example: ```lean opaque f : Nat → Nat opaque fInv : Nat → Nat axiom fInv_f : fInv (f x) = x /-- trace: [grind.ematch.pattern] fInv_f: [f #0] -/ #guard_msgs in set_option trace.grind.ematch.pattern true in example {x y} : f x = f y → x = y := by /- The modifier `!` instructs `grind` to use the minimal indexable subexpression (i.e., `f x` in this case). -/ grind [!fInv_f] ```
33 lines
1.1 KiB
Text
33 lines
1.1 KiB
Text
module
|
|
reset_grind_attrs%
|
|
|
|
/--
|
|
trace: [grind.ematch.pattern] List.append_ne_nil_of_left_ne_nil: [@HAppend.hAppend (List #3) (List _) (List _) _ #2 #0]
|
|
-/
|
|
#guard_msgs (trace) in
|
|
set_option trace.grind.ematch.pattern true in
|
|
attribute [grind ←] List.append_ne_nil_of_left_ne_nil
|
|
|
|
/--
|
|
trace: [grind.ematch.pattern] List.append_ne_nil_of_right_ne_nil: [@HAppend.hAppend (List #3) (List _) (List _) _ #1 #2]
|
|
-/
|
|
#guard_msgs (trace) in
|
|
set_option trace.grind.ematch.pattern true in
|
|
attribute [grind ←] List.append_ne_nil_of_right_ne_nil
|
|
/-- trace: [grind.ematch.pattern] List.getLast?_eq_some_iff: [@List.getLast? #2 #1, @some _ #0] -/
|
|
#guard_msgs (trace) in
|
|
set_option trace.grind.ematch.pattern true in
|
|
attribute [grind =] List.getLast?_eq_some_iff
|
|
|
|
/--
|
|
trace: [grind.assert] xs.getLast? = b?
|
|
[grind.assert] b? = some 10
|
|
[grind.assert] xs = []
|
|
[grind.assert] (xs.getLast? = some 10) = ∃ ys, xs = ys ++ [10]
|
|
[grind.assert] xs = w ++ [10]
|
|
[grind.assert] ¬w ++ [10] = []
|
|
-/
|
|
#guard_msgs (trace) in
|
|
set_option trace.grind.assert true in
|
|
example (xs : List Nat) : xs.getLast? = b? → b? = some 10 → xs ≠ [] := by
|
|
grind
|