2075103cd9
This PR surfaces kernel diagnostics even in `example`. The problem was that the kernel checking happens asynchronously. We cannot use `reportDiag` in `addDecl`, which spawns that task, due to the module hierarchy. For non `example`-declaration, `reportDiag` is called somewhere else later, but for `example`, the `withoutModifyingEnv` in `elabMutualDef` hid the kernel diagnostics. (But only the kernel diagnostics; they are in the `Environment`, while the others are in the `State`). I also observed that the `reportDiag` in `elabAsync` (but not in `elabSync`) duplicated the reporting, so without `elab.Async true` you get the message twice. To fix this, `reportDiag` now resets the diagnostics. This should avoid reporting counts twice in general (at least within a linear use of the state). --------- Co-authored-by: Sebastian Ullrich <sebasti@nullri.ch>
106 lines
3.2 KiB
Text
106 lines
3.2 KiB
Text
/-! This file tests kernel diagnostics reporting, triggered using the expensive `ack` function. -/
|
|
|
|
def ack : Nat → Nat → Nat
|
|
| 0, y => y+1
|
|
| x+1, 0 => ack x 1
|
|
| x+1, y+1 => ack x (ack (x+1) y)
|
|
termination_by a b => (a, b)
|
|
|
|
section async_true
|
|
/--
|
|
trace: [simp] Diagnostics
|
|
[simp] used theorems (max: 57, num: 1):
|
|
[simp] ack.eq_3 ↦ 57
|
|
[simp] tried theorems (max: 57, num: 1):
|
|
[simp] ack.eq_3 ↦ 57, succeeded: 57
|
|
use `set_option diagnostics.threshold <num>` to control threshold for reporting counters
|
|
---
|
|
trace: [diag] Diagnostics
|
|
[kernel] unfolded declarations (max: 147, num: 3):
|
|
[kernel] OfNat.ofNat ↦ 147
|
|
[kernel] Add.add ↦ 61
|
|
[kernel] HAdd.hAdd ↦ 61
|
|
use `set_option diagnostics.threshold <num>` to control threshold for reporting counters
|
|
-/
|
|
#guard_msgs in
|
|
set_option diagnostics.threshold 50 in
|
|
set_option diagnostics true in
|
|
theorem ex : ack 3 2 = 29 :=
|
|
by simp [ack]
|
|
|
|
end async_true
|
|
|
|
section async_false
|
|
|
|
set_option Elab.async false
|
|
/--
|
|
trace: [simp] Diagnostics
|
|
[simp] used theorems (max: 57, num: 1):
|
|
[simp] ack.eq_3 ↦ 57
|
|
[simp] tried theorems (max: 57, num: 1):
|
|
[simp] ack.eq_3 ↦ 57, succeeded: 57
|
|
use `set_option diagnostics.threshold <num>` to control threshold for reporting counters
|
|
---
|
|
trace: [diag] Diagnostics
|
|
[kernel] unfolded declarations (max: 145, num: 3):
|
|
[kernel] OfNat.ofNat ↦ 145
|
|
[kernel] Add.add ↦ 59
|
|
[kernel] HAdd.hAdd ↦ 59
|
|
use `set_option diagnostics.threshold <num>` to control threshold for reporting counters
|
|
-/
|
|
#guard_msgs in
|
|
set_option diagnostics.threshold 50 in
|
|
set_option diagnostics true in
|
|
theorem ex2 : ack 3 2 = 29 :=
|
|
by simp [ack]
|
|
|
|
end async_false
|
|
|
|
-- Check that kernel diagnostics are also reported in examples
|
|
|
|
|
|
/--
|
|
trace: [simp] Diagnostics
|
|
[simp] used theorems (max: 57, num: 1):
|
|
[simp] ack.eq_3 ↦ 57
|
|
[simp] tried theorems (max: 57, num: 1):
|
|
[simp] ack.eq_3 ↦ 57, succeeded: 57
|
|
use `set_option diagnostics.threshold <num>` to control threshold for reporting counters
|
|
---
|
|
trace: [diag] Diagnostics
|
|
[kernel] unfolded declarations (max: 145, num: 3):
|
|
[kernel] OfNat.ofNat ↦ 145
|
|
[kernel] Add.add ↦ 59
|
|
[kernel] HAdd.hAdd ↦ 59
|
|
use `set_option diagnostics.threshold <num>` to control threshold for reporting counters
|
|
-/
|
|
#guard_msgs in
|
|
set_option diagnostics.threshold 50 in
|
|
set_option diagnostics true in
|
|
example : ack 3 2 = 29 :=
|
|
by simp [ack]
|
|
|
|
-- Also in nested lemma
|
|
|
|
/--
|
|
trace: [simp] Diagnostics
|
|
[simp] used theorems (max: 57, num: 1):
|
|
[simp] ack.eq_3 ↦ 57
|
|
[simp] tried theorems (max: 57, num: 1):
|
|
[simp] ack.eq_3 ↦ 57, succeeded: 57
|
|
use `set_option diagnostics.threshold <num>` to control threshold for reporting counters
|
|
---
|
|
trace: [diag] Diagnostics
|
|
[def_eq] heuristic for solving `f a =?= f b` (max: 103, num: 1):
|
|
[def_eq] ack ↦ 103
|
|
[kernel] unfolded declarations (max: 145, num: 3):
|
|
[kernel] OfNat.ofNat ↦ 145
|
|
[kernel] Add.add ↦ 59
|
|
[kernel] HAdd.hAdd ↦ 59
|
|
use `set_option diagnostics.threshold <num>` to control threshold for reporting counters
|
|
-/
|
|
#guard_msgs in
|
|
set_option diagnostics.threshold 50 in
|
|
set_option diagnostics true in
|
|
theorem ex3 : ack 3 2 = 29 :=
|
|
by as_aux_lemma => simp [ack]
|