@@ -6,19 +6,17 @@ module Decidable.Decidable
66-- Typeclass for decidable n-ary Relations
77--------------------------------------------------------------------------------
88
9−{-
10−This can't work yet! The class parameters must appear in the method type
11−signatures otherwise when defining the instances class resolution doesn't
12−have any clues...
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...
1312
1413using (t : Type)
1514 class Rel (p : t) where
1615 total liftRel : (Type -> Type) -> Type
1716
1817 class (Rel p) => Decidable (p : t) where
19− total decide : liftRel Dec
18+ total decide : liftRel {p=p} Dec
2019
2120using (P : Type, p : P)
2221 data Given : Dec P -> Type where
2322 always : Given (Yes p)
24−-}