haskell-ja > Archives > 2011/10/30tequal (RFun ra1 rb1) (RFun ra2 rb2) = do f <- tequal ra1 ra2 -- f :: a1 -> a2
g <- tequal rb1 rb2 -- g :: b1 -> b2
return undefined -- ? :: (a1 -> b1) -> a2 -> b2#