2020-05-19 20:25:18 +03:00
|
|
|
data SimpleData = PtrAndSize AnyPtr Int
|
|
|
|
|
|
|
|
|
|
record Complicated where
|
2021-01-16 10:03:45 +03:00
|
|
|
constructor MkComplicated
|
|
|
|
|
simple : SimpleData
|
2020-05-19 20:25:18 +03:00
|
|
|
|
|
|
|
|
record MoreComplicated where
|
|
|
|
|
constructor MkMoreComplicated
|
|
|
|
|
something : Complicated
|
|
|
|
|
|
|
|
|
|
record EvenMoreComplicated where
|
|
|
|
|
constructor MkEvenMoreComplicated
|
2021-01-16 10:03:45 +03:00
|
|
|
somethingEven : MoreComplicated
|
2020-05-19 20:25:18 +03:00
|
|
|
|
|
|
|
|
data TooComplicatedToBeTrue : (something : EvenMoreComplicated) -> Type where
|
|
|
|
|
SomethingVeryComplicatedIs :
|
|
|
|
|
TooComplicatedToBeTrue
|
|
|
|
|
(MkEvenMoreComplicated (MkMoreComplicated (MkComplicated (PtrAndSize addr len))))
|
|
|
|
|
|
|
|
|
|
showing : (something : EvenMoreComplicated) -> (TooComplicatedToBeTrue something) -> Void
|
|
|
|
|
showing _ SomethingVeryComplicatedIs impossible
|
