mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-19 01:01:59 +03:00
22 lines
694 B
Idris
22 lines
694 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
|