mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-26 21:23:53 +03:00
a972778eab
They don't all pass yet, for minor reasons. Coming shortly... Unfortunately the startup overhead for chez is really noticeable here!
22 lines
697 B
Idris
22 lines
697 B
Idris
data SimpleData = PtrAndSize AnyPtr Int
|
|
|
|
record Complicated where
|
|
constructor MkComplicated
|
|
simple : SimpleData
|
|
|
|
record MoreComplicated where
|
|
constructor MkMoreComplicated
|
|
something : Complicated
|
|
|
|
record EvenMoreComplicated where
|
|
constructor MkEvenMoreComplicated
|
|
somethingEven : MoreComplicated
|
|
|
|
data TooComplicatedToBeTrue : (something : EvenMoreComplicated) -> Type where
|
|
SomethingVeryComplicatedIs :
|
|
TooComplicatedToBeTrue
|
|
(MkEvenMoreComplicated (MkMoreComplicated (MkComplicated (PtrAndSize addr len))))
|
|
|
|
showing : (something : EvenMoreComplicated) -> (TooComplicatedToBeTrue something) -> Void
|
|
showing _ SomethingVeryComplicatedIs impossible
|