@@ -6,16 +6,12 @@ module Decidable.Decidable
66-- Typeclass for decidable n-ary Relations
77--------------------------------------------------------------------------------
88
9−--This can't work yet! The class parameters must appear in the method type
10−--signatures otherwise when defining the instances class resolution doesn't
11−--have any clues...
12−
139using (t : Type)
1410 class Rel (p : t) where
1511 total liftRel : (Type -> Type) -> Type
1612
1713 class (Rel p) => Decidable (p : t) where
18− total decide : liftRel {p=p} Dec
14+ total decide : liftRel {p} Dec
1915
2016using (P : Type, p : P)
2117 data Given : Dec P -> Type where