Skip to content

Commit

Permalink
[ Fixed #3622 ] IApply confl. for ext-lambdas in fresh mutual blocks
Browse files Browse the repository at this point in the history
We might want to add other "mutualChecks" for them as well, as
currently they are skipped, because there's no corresponding mutual
block in the abstract syntax.
  • Loading branch information
Saizan committed Mar 10, 2019
1 parent 66b8fc3 commit d6b522c
Showing 1 changed file with 4 additions and 0 deletions.
4 changes: 4 additions & 0 deletions src/full/Agda/TypeChecking/Rules/Term.hs
Expand Up @@ -49,6 +49,7 @@ import Agda.TypeChecking.EtaContract
import Agda.TypeChecking.Generalize
import Agda.TypeChecking.Implicit
import Agda.TypeChecking.Irrelevance
import Agda.TypeChecking.IApplyConfluence
import Agda.TypeChecking.Level
import Agda.TypeChecking.MetaVars
import Agda.TypeChecking.Names
Expand Down Expand Up @@ -625,6 +626,9 @@ checkExtendedLambda cmp i di qname cs e t = do
useTerPragma $
(defaultDefn info qname t emptyFunction) { defMutual = j }
checkFunDef' t info NotDelayed (Just $ ExtLamInfo lamMod Nothing) Nothing di qname cs
whenNothingM (asksTC envMutualBlock) $
-- Andrea 10-03-2018: Should other checks be performed here too? e.g. termination/positivity/..
checkIApplyConfluence_ qname
return $ Def qname $ map Apply args)
where
-- Concrete definitions cannot use information about abstract things.
Expand Down

0 comments on commit d6b522c

Please sign in to comment.