@@ -29,10 +29,10 @@ convertsC ctxt env x y
29converts :: Context -> Env -> Term -> Term -> TC ()
29converts :: Context -> Env -> Term -> Term -> TC ()
30converts ctxt env x y
30converts ctxt env x y
31 = case convEq' ctxt x y of
31 = case convEq' ctxt x y of
32− OK _ -> return ()
32+ OK True -> return ()
33 _ -> case convEq' ctxt (finalise (normalise ctxt env x))
33 _ -> case convEq' ctxt (finalise (normalise ctxt env x))
34 (finalise (normalise ctxt env y)) of
34 (finalise (normalise ctxt env y)) of
35− OK _ -> return ()
35+ OK True -> return ()
36 _ -> tfail (CantConvert
36 _ -> tfail (CantConvert
37 (finalise (normalise ctxt env x))
37 (finalise (normalise ctxt env x))
38 (finalise (normalise ctxt env y)) (errEnv env))
38 (finalise (normalise ctxt env y)) (errEnv env))