max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

chore: add a test for #2602, which was fixed by the new compiler (#8902)

Browse source
This commit is contained in:
Cameron Zwarich 2025-06-20 10:37:19 -07:00 • committed by GitHub
parent cf527e05bd
commit 8d8c73416a
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
tests/lean/run/2602.lean Normal file
View file

@ -0,0 +1,13 @@
inductive Units : Bool → Type where
| seconds : Units false
| hours : Units true
open Units
structure Quantity (d : Bool) : Type where
quantity : Unit
units : Units d
instance (d : Bool) : ToString (Quantity d) where
toString q := match q.units with | seconds => "seconds" | hours => "hours"