15a065d14d
This PR fixes a panic in the delaborator for `Std.PRange`. It also modifies the delaborators for both `Std.Range` and `Std.PRange` to not use `let_expr`, which cleans up annotations and metadata, since delaborators must follow the structures of expressions. It adds support for `pp.notation` and `pp.explicit` options. It also adds tests for these delaborators. --------- Co-authored-by: Kim Morrison <kim@tqft.net> Co-authored-by: Kyle Miller <kmill31415@gmail.com>
118 lines
3.5 KiB
Text
118 lines
3.5 KiB
Text
/-!
|
|
# Tests for delaborators for Std.Range and Std.PRange
|
|
-/
|
|
|
|
/-!
|
|
## Tests for `Std.Range`
|
|
-/
|
|
|
|
/-!
|
|
Default lower bound and step
|
|
-/
|
|
/-- info: [:10] : Std.Range -/
|
|
#guard_msgs in #check Std.Range.mk 0 10 1 (by grind)
|
|
|
|
/-!
|
|
Default step
|
|
-/
|
|
/-- info: [5:10] : Std.Range -/
|
|
#guard_msgs in #check Std.Range.mk 5 10 1 (by grind)
|
|
|
|
/-!
|
|
Default lower bound
|
|
-/
|
|
/-- info: [:10:2] : Std.Range -/
|
|
#guard_msgs in #check Std.Range.mk 0 10 2 (by grind)
|
|
|
|
/-!
|
|
No defaults
|
|
-/
|
|
/-- info: [5:10:2] : Std.Range -/
|
|
#guard_msgs in #check Std.Range.mk 5 10 2 (by grind)
|
|
|
|
/-!
|
|
Disable notation
|
|
-/
|
|
/-- info: { stop := 10, step_pos := _check._proof_1 } : Std.Range -/
|
|
#guard_msgs in set_option pp.notation false in #check Std.Range.mk 0 10 1 (by grind)
|
|
|
|
/-!
|
|
## Tests for `Std.PRange`
|
|
-/
|
|
|
|
/-!
|
|
Each of the possibilities, in order of appearance in `Lean.PrettyPrinter.Delaborator.delabPRange`.
|
|
-/
|
|
/--
|
|
info: 1...=10 : Std.PRange { lower := Std.PRange.BoundShape.closed, upper := Std.PRange.BoundShape.closed } Nat
|
|
-/
|
|
#guard_msgs in #check 1...=10
|
|
/--
|
|
info: *...=10 : Std.PRange { lower := Std.PRange.BoundShape.unbounded, upper := Std.PRange.BoundShape.closed } Nat
|
|
-/
|
|
#guard_msgs in #check *...=10
|
|
/--
|
|
info: 1...* : Std.PRange { lower := Std.PRange.BoundShape.closed, upper := Std.PRange.BoundShape.unbounded } Nat
|
|
-/
|
|
#guard_msgs in #check 1...*
|
|
/--
|
|
info: *...* : Std.PRange { lower := Std.PRange.BoundShape.unbounded, upper := Std.PRange.BoundShape.unbounded } Nat
|
|
-/
|
|
#guard_msgs in #check (*...* : Std.PRange _ Nat)
|
|
/--
|
|
info: 1<...=10 : Std.PRange { lower := Std.PRange.BoundShape.open, upper := Std.PRange.BoundShape.closed } Nat
|
|
-/
|
|
#guard_msgs in #check 1<...=10
|
|
/--
|
|
info: 1<...* : Std.PRange { lower := Std.PRange.BoundShape.open, upper := Std.PRange.BoundShape.unbounded } Nat
|
|
-/
|
|
#guard_msgs in #check 1<...*
|
|
/--
|
|
info: 1...10 : Std.PRange { lower := Std.PRange.BoundShape.closed, upper := Std.PRange.BoundShape.open } Nat
|
|
-/
|
|
#guard_msgs in #check 1...10
|
|
/--
|
|
info: *...10 : Std.PRange { lower := Std.PRange.BoundShape.unbounded, upper := Std.PRange.BoundShape.open } Nat
|
|
-/
|
|
#guard_msgs in #check *...10
|
|
/--
|
|
info: 1<...10 : Std.PRange { lower := Std.PRange.BoundShape.open, upper := Std.PRange.BoundShape.open } Nat
|
|
-/
|
|
#guard_msgs in #check 1<...10
|
|
|
|
/-!
|
|
Synonyms for other ranges.
|
|
-/
|
|
/--
|
|
info: 1...10 : Std.PRange { lower := Std.PRange.BoundShape.closed, upper := Std.PRange.BoundShape.open } Nat
|
|
-/
|
|
#guard_msgs in #check 1...<10
|
|
/--
|
|
info: *...10 : Std.PRange { lower := Std.PRange.BoundShape.unbounded, upper := Std.PRange.BoundShape.open } Nat
|
|
-/
|
|
#guard_msgs in #check *...<10
|
|
/--
|
|
info: 1<...10 : Std.PRange { lower := Std.PRange.BoundShape.open, upper := Std.PRange.BoundShape.open } Nat
|
|
-/
|
|
#guard_msgs in #check 1<...<10
|
|
|
|
/-!
|
|
Check that responds to both `pp.notation` and `pp.explicit`.
|
|
-/
|
|
/--
|
|
info: { lower := 1,
|
|
upper := 10 } : Std.PRange { lower := Std.PRange.BoundShape.closed, upper := Std.PRange.BoundShape.open } Nat
|
|
-/
|
|
#guard_msgs in set_option pp.notation false in #check 1...10
|
|
/--
|
|
info: @Std.PRange.mk { lower := Std.PRange.BoundShape.closed, upper := Std.PRange.BoundShape.open } Nat
|
|
(@OfNat.ofNat
|
|
(Std.PRange.Bound { lower := Std.PRange.BoundShape.closed, upper := Std.PRange.BoundShape.open }.lower Nat)
|
|
(nat_lit 1) (instOfNatNat (nat_lit 1)))
|
|
(@OfNat.ofNat
|
|
(Std.PRange.Bound { lower := Std.PRange.BoundShape.closed, upper := Std.PRange.BoundShape.open }.upper Nat)
|
|
(nat_lit 10)
|
|
(instOfNatNat
|
|
(nat_lit 10))) : Std.PRange { lower := Std.PRange.BoundShape.closed, upper := Std.PRange.BoundShape.open } Nat
|
|
-/
|
|
#guard_msgs in set_option pp.explicit true in #check 1...10
|