Idris2/tests/idris2/reg/reg033/test.idr
2023-09-07 14:57:22 +01:00

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 }