@@ -64,9 +64,12 @@ delab' ist tm fullname = de [] tm
65pshow :: IState -> Err -> String
65pshow :: IState -> Err -> String
66pshow i (Msg s) = s
66pshow i (Msg s) = s
67+pshow i (CantUnify x y e s)
67−pshow i (CantUnify x y e s) = "Can't unify " ++ show (delab i x)
68+ = "Can't unify " ++ show (delab i x)
68− ++ " with " ++ show (delab i y)
69+ ++ " with " ++ show (delab i y) ++
69−-- ++ "\n\t(" ++ pshow i e ++ ")"
72+ _ -> "\n\nSpecifically:\n\t " ++ pshow i e
70pshow i (NotInjective p x y) = "Can't verify injectivity of " ++ show (delab i p) ++
73pshow i (NotInjective p x y) = "Can't verify injectivity of " ++ show (delab i p) ++
71 " when unifying " ++ show (delab i x) ++ " and " ++
74 " when unifying " ++ show (delab i x) ++ " and " ++
72 show (delab i y)
75 show (delab i y)