@@ -305,7 +305,7 @@ proofSearch rec fromProver ambigok deferonfail maxDepth elab fn nroot psnames hi
305 = simple_app False (tryLocalArg d locs tys n (i - 1))
305 = simple_app False (tryLocalArg d locs tys n (i - 1))
306 (psRec True d locs tys) "proof search local apply"
306 (psRec True d locs tys) "proof search local apply"
308− -- Like type class resolution, but searching with constructors
308+ -- Like interface resolution, but searching with constructors
309 tryCon d locs tys n =
309 tryCon d locs tys n =
310 do ty <- goal
310 do ty <- goal
311 let imps = case lookupCtxtExact n (idris_implicits ist) of
311 let imps = case lookupCtxtExact n (idris_implicits ist) of
@@ -336,8 +336,8 @@ proofSearch rec fromProver ambigok deferonfail maxDepth elab fn nroot psnames hi
336 (Bind _ (Pi _ _ _) _) -> [TextPart "In particular, function types are not supported."]
336 (Bind _ (Pi _ _ _) _) -> [TextPart "In particular, function types are not supported."]
339−-- | Resolve type classes. This will only pick up 'normal' instances, never
339+-- | Resolve interfaces. This will only pick up 'normal' implementations, never
340−-- named instances (which is enforced by 'findInstances').
340+-- named implementations (which is enforced by 'findInstances').
341resolveTC :: Bool -- ^ using default Int
341resolveTC :: Bool -- ^ using default Int
342 -> Bool -- ^ allow metavariables in the goal
342 -> Bool -- ^ allow metavariables in the goal
343 -> Int -- ^ depth
343 -> Int -- ^ depth
@@ -349,7 +349,7 @@ resolveTC def mvok depth top fn elab ist
349 = do hs <- get_holes
349 = do hs <- get_holes
350 resTC' [] def hs depth top fn elab ist
350 resTC' [] def hs depth top fn elab ist
352−resTC' tcs def topholes 0 topg fn elab ist = fail $ "Can't resolve type class"
352+resTC' tcs def topholes 0 topg fn elab ist = fail $ "Can't resolve interface"
353resTC' tcs def topholes 1 topg fn elab ist = try' (trivial elab ist) (resolveTC def False 0 topg fn elab ist) True
353resTC' tcs def topholes 1 topg fn elab ist = try' (trivial elab ist) (resolveTC def False 0 topg fn elab ist) True
354resTC' tcs defaultOn topholes depth topg fn elab ist
354resTC' tcs defaultOn topholes depth topg fn elab ist
355 = do compute
355 = do compute
@@ -465,7 +465,7 @@ resTC' tcs defaultOn topholes depth topg fn elab ist
465 solven n = replicateM_ n solve
465 solven n = replicateM_ n solve
467 resolve n depth
467 resolve n depth
468− | depth == 0 = fail $ "Can't resolve type class"
468+ | depth == 0 = fail $ "Can't resolve interface"
469 | otherwise
469 | otherwise
470 = do lams <- introImps
470 = do lams <- introImps
471 t <- goal
471 t <- goal
@@ -483,7 +483,7 @@ resTC' tcs defaultOn topholes depth topg fn elab ist
483 solven lams -- close any implicit lambdas we introduced
483 solven lams -- close any implicit lambdas we introduced
484 ps' <- get_probs
484 ps' <- get_probs
485 when (length ps < length ps' || unrecoverable ps') $
485 when (length ps < length ps' || unrecoverable ps') $
486− fail "Can't apply type class"
486+ fail "Can't apply interface"
487-- traceWhen (all boundVar ttypes) ("Progress: " ++ show t ++ " with " ++ show n) $
487-- traceWhen (all boundVar ttypes) ("Progress: " ++ show t ++ " with " ++ show n) $
488 mapM_ (\ (_,n) -> do focus n
488 mapM_ (\ (_,n) -> do focus n
489 t' <- goal
489 t' <- goal
@@ -501,8 +501,8 @@ resTC' tcs defaultOn topholes depth topg fn elab ist
501 where isImp (PImp p _ _ _ _) = (True, p)
501 where isImp (PImp p _ _ _ _) = (True, p)
502 isImp arg = (False, priority arg)
502 isImp arg = (False, priority arg)
504−-- | Find the names of instances that have been designeated for
504+-- | Find the names of implementations that have been designeated for
505−-- searching (i.e. non-named instances or instances from Elab scripts)
505+-- searching (i.e. non-named implementations or implementations from Elab scripts)
506findInstances :: IState -> Term -> [Name]
506findInstances :: IState -> Term -> [Name]
507findInstances ist t
507findInstances ist t
508 | (P _ n _, _) <- unApply (getRetTy t)
508 | (P _ n _, _) <- unApply (getRetTy t)