95b8095fa6
reworks #4730 based on feedback from @kmill: * Uses `×'` for PProd * No syntax for MProd for now * Angle brackets (without nesting) for the values
46 lines
1.2 KiB
Text
46 lines
1.2 KiB
Text
/-- info: Bool ×' Nat ×' List Unit : Type -/
|
||
#guard_msgs in
|
||
#check Bool ×' Nat ×' List Unit
|
||
|
||
/-- info: Bool ×' Nat ×' List Unit : Type -/
|
||
#guard_msgs in
|
||
#check PProd Bool (PProd Nat (List Unit))
|
||
|
||
/-- info: (Bool ×' Nat) ×' List Unit : Type -/
|
||
#guard_msgs in
|
||
#check PProd (PProd Bool Nat) (List Unit)
|
||
|
||
/-- info: PUnit.{u} : Sort u -/
|
||
#guard_msgs in
|
||
#check PUnit
|
||
|
||
/-- info: ⟨true, 5, [()]⟩ : Bool ×' Nat ×' List Unit -/
|
||
#guard_msgs in
|
||
#check (⟨true, 5, [()]⟩ : Bool ×' Nat ×' List Unit)
|
||
|
||
/-- info: ⟨true, 5, [()]⟩ : MProd Bool (MProd Nat (List Unit)) -/
|
||
#guard_msgs in
|
||
#check (⟨true, 5, [()]⟩ : MProd Bool (MProd Nat (List Unit)))
|
||
|
||
/-- info: ⟨true, 5, [()]⟩ : Bool ×' Nat ×' List Unit -/
|
||
#guard_msgs in
|
||
#check PProd.mk true (PProd.mk 5 [()])
|
||
|
||
/-- info: ⟨true, 5, [()]⟩ : MProd Bool (MProd Nat (List Unit)) -/
|
||
#guard_msgs in
|
||
#check MProd.mk true (MProd.mk 5 [()])
|
||
|
||
/-- info: PUnit.unit.{u} : PUnit -/
|
||
#guard_msgs in
|
||
#check PUnit.unit
|
||
|
||
-- check that only `PProd` is flattened, not other structure
|
||
|
||
@[pp_using_anonymous_constructor]
|
||
structure TwoNats where
|
||
firstNat : Nat
|
||
secondNat : Nat
|
||
|
||
/-- info: ⟨true, 5, ⟨23, 42⟩⟩ : Bool ×' Nat ×' TwoNats -/
|
||
#guard_msgs in
|
||
#check PProd.mk true (PProd.mk 5 (TwoNats.mk 23 42))
|