mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-25 12:42:02 +03:00
14 lines
250 B
Idris
14 lines
250 B
Idris
import Language.Reflection
|
|
import DerivingEq
|
|
|
|
%language ElabReflection
|
|
|
|
-- This tree doesn't work
|
|
|
|
data TreeTwo a = BranchTwo (TreeTwo a) a (TreeTwo a)
|
|
| Leaf
|
|
|
|
covering
|
|
Eq a => Eq (TreeTwo a) where
|
|
(==) = %runElab genEq `{ TreeTwo }
|