d24219697e
This PR adds an unexpander for `Vector.mk` that unexpands `Vector.mk
#[...] _` to `#v[...]`.
```lean
-- previously:
#check #v[1, 2, 3] -- { toArray := #[1, 2, 3], size_toArray := ⋯ } : Vector Nat 3
-- now:
#check #v[1, 2, 3] -- #v[1, 2, 3] : Vector Nat 3
```
---------
Co-authored-by: Kyle Miller <kmill31415@gmail.com>
26 lines
413 B
Text
26 lines
413 B
Text
/-!
|
|
# Pretty printing tests for `Vector` literals
|
|
-/
|
|
|
|
/-!
|
|
Nil literal
|
|
-/
|
|
/-- info: #v[] : Vector Nat 0 -/
|
|
#guard_msgs in
|
|
#check (#v[] : Vector Nat 0)
|
|
|
|
/-!
|
|
Non-nil literal
|
|
-/
|
|
/-- info: #v[1, 2, 3] : Vector Nat 3 -/
|
|
#guard_msgs in
|
|
#check #v[1, 2, 3]
|
|
|
|
variable (a : Nat) (h : 3 = a)
|
|
|
|
/-!
|
|
Unexpander consumes proof
|
|
-/
|
|
/-- info: #v[1, 2, 3] : Vector Nat a -/
|
|
#guard_msgs in
|
|
#check (⟨#[1, 2, 3], h⟩ : Vector Nat a)
|