fix in the proof search. when we start the generation from a template, we must start the refinement from the expression that the typecheker generated

This commit is contained in:
kr.angelov
2011-09-21 13:30:09 +00:00
parent 958e81126d
commit 89fb9a7fdf

View File

@@ -574,7 +574,7 @@ checkResolvedMetaStore scope e = do
generateForMetas :: Selector s => (Scope -> TType -> TcM s Expr) -> Expr -> TcM s Expr
generateForMetas prove e = do
infExpr emptyScope e
(e,_) <- infExpr emptyScope e
fillinVariables
refineExpr e
where