blob: 012756abd14b99c5849171339e144992162922f6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{-# LANGUAGE TypeFamilies #-}
-- This should fail
module T3208b where
class SUBST s where
type STerm s
class OBJECT o where
type OTerm o
apply :: (SUBST s, OTerm o ~ STerm s) => s -> o
fce' :: (OTerm a ~ STerm a, OBJECT a, SUBST a) => a -> c
fce' f = fce (apply f)
-- f :: a
-- apply f :: (OBJECT a, SUBST a, OTerm o ~ STerm a) => o
-- fce called with a=o, gives wanted (OTerm o ~ STerm o, OBJECT o, SUBST o)
fce :: (OTerm a ~ STerm a, OBJECT a, SUBST a) => a -> c
fce f = fce' f
|