cd0be38bb4
This PR adds two new delaboration settings: `pp.deepTerms : Bool` (default: `true`) and `pp.deepTerms.threshold : Nat` (default: `20`). Setting `pp.deepTerms` to `false` will make the delaborator terminate early after `pp.deepTerms.threshold` layers of recursion and replace the omitted subterm with the symbol `⋯` if the subterm is deeper than `pp.deepTerms.threshold / 4` (i.e. it is not shallow). To display the omitted subterm in the InfoView, `⋯` can be clicked to open a popup with the delaborated subterm. <details> <summary>InfoView with pp.deepTerms set to false (click to show image)</summary>  </details> ### Implementation - The delaborator is adjusted to use the new configuration settings and terminate early if the threshold is exceeded and the corresponding term to omit is shallow. - To be able to distinguish `⋯` from regular terms, a new constructor `Lean.Elab.Info.ofOmissionInfo` is added to `Lean.Elab.Info` that takes a value of a new type `Lean.Elab.OmissionInfo`. - `ofOmissionInfo` is needed in `Lean.Widget.makePopup` for the `Lean.Widget.InteractiveDiagnostics.infoToInteractive` RPC procedure that is used to display popups when clicking on terms in the InfoView. It ensures that the expansion of an omitted subterm is delaborated using `explicit := false`, which is typically set to `true` in popups for regular terms. - Several `Info` widget utility functions are adjusted to support `ofOmissionInfo`. - The list delaborator is adjusted with special support for `⋯` so that long lists `[x₁, ..., xₖ, ..., xₙ]` are shortened to `[x₁, ..., xₖ, ⋯]`.
34 lines
783 B
Text
34 lines
783 B
Text
/-!
|
|
# Testing the `pp.deepTerms false` option
|
|
|
|
Implemented in PR #3201.
|
|
-/
|
|
|
|
set_option pp.deepTerms false
|
|
set_option pp.deepTerms.threshold 8
|
|
|
|
/-!
|
|
Subterms of terms with depth <= pp.deepTerms.threshold are not omitted
|
|
-/
|
|
#check Nat.zero.succ.succ.succ.succ.succ.succ.succ.succ
|
|
|
|
/-!
|
|
Shallow subterms (subterms with depth <= pp.deepTerms.threshold/4) of terms with
|
|
depth > pp.deepTerms.threshold are not omitted
|
|
-/
|
|
#check Nat.zero.succ.succ.succ.succ.succ.succ.succ.succ.succ.succ
|
|
|
|
/-!
|
|
Deep subterms of terms with depth > pp.deepTerms.threshold are omitted
|
|
-/
|
|
#check Nat.zero.succ.succ.succ.succ.succ.succ.succ.succ.succ.succ.succ
|
|
|
|
/-!
|
|
Nothing is omitted in short lists
|
|
-/
|
|
#check [1, 2, 3, 4, 5, 6, 7, 8]
|
|
|
|
/-!
|
|
In longer lists, the tail is omitted
|
|
-/
|
|
#check [1, 2, 3, 4, 5, 6, 7, 8, 9]
|