Agda-2.6.1.3: A dependently typed functional programming language and proof assistant
Safe HaskellNone
LanguageHaskell2010

Agda.TypeChecking.MetaVars.Occurs

Description

The occurs check for unification. Does pruning on the fly.

When hitting a meta variable:

  • Compute flex/rigid for its arguments.
  • Compare to allowed variables.
  • Mark arguments with rigid occurrences of disallowed variables for deletion.
  • Attempt to delete marked arguments.
  • We don't need to check for success, we can just continue occurs checking.
Synopsis

MetaOccursCheck: going into definitions to exclude cyclic solutions

initOccursCheck :: MetaVariable -> TCM () Source #

Set the names of definitions to be looked at to the defs in the current mutual block.

defNeedsChecking :: QName -> TCM Bool Source #

Is a def in the list of stuff to be checked?

tallyDef :: QName -> TCM () Source #

Remove a def from the list of defs to be looked at.

OccursM monad and its services

data OccursExtra Source #

Extra environment for the occurs check. (Complements FreeEnv.)

Constructors

OccursExtra 

Fields

Modality handling.

type AllowedVar = Modality -> All Source #

The passed modality is the one of the current context.

variableCheck :: VarMap -> Maybe Variable -> AllowedVar Source #

Check whether a free variable is allowed in the context as specified by the modality.

definitionCheck :: QName -> OccursM () Source #

Occurs check fails if a defined name is not available since it was declared in irrelevant or erased context.

allowedVars :: OccursM (Nat -> Bool) Source #

Construct a test whether a de Bruijn index is allowed or needs to be pruned.

Unfolding during occurs check.

data UnfoldStrategy Source #

Unfold definitions during occurs check? This effectively runs the occurs check on the normal form.

Constructors

YesUnfold 
NoUnfold 

unfold :: (Instantiate t, Reduce t) => t -> OccursM t Source #

Managing rigidiy during occurs check.

weakly :: OccursM a -> OccursM a Source #

Leave the strongly rigid position.

Error throwing during occurs check.

Implementation of the occurs check.

class Occurs t where Source #

Extended occurs check.

Minimal complete definition

Nothing

Methods

occurs :: t -> OccursM t Source #

default occurs :: (Traversable f, Occurs a, f a ~ t) => t -> OccursM t Source #

metaOccurs :: MetaId -> t -> TCM () Source #

default metaOccurs :: (Foldable f, Occurs a, f a ~ t) => MetaId -> t -> TCM () Source #

Instances

Instances details
Occurs QName Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Occurs Clause Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Occurs LevelAtom Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Occurs PlusLevel Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Occurs Level Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Occurs Sort Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Occurs Type Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Occurs Term Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Occurs Defn Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Occurs a => Occurs [a] Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Methods

occurs :: [a] -> OccursM [a] Source #

metaOccurs :: MetaId -> [a] -> TCM () Source #

Occurs a => Occurs (Maybe a) Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Methods

occurs :: Maybe a -> OccursM (Maybe a) Source #

metaOccurs :: MetaId -> Maybe a -> TCM () Source #

Occurs a => Occurs (Arg a) Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Methods

occurs :: Arg a -> OccursM (Arg a) Source #

metaOccurs :: MetaId -> Arg a -> TCM () Source #

(Occurs a, Subst t a) => Occurs (Abs a) Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Methods

occurs :: Abs a -> OccursM (Abs a) Source #

metaOccurs :: MetaId -> Abs a -> TCM () Source #

Occurs a => Occurs (Elim' a) Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Methods

occurs :: Elim' a -> OccursM (Elim' a) Source #

metaOccurs :: MetaId -> Elim' a -> TCM () Source #

Occurs a => Occurs (Dom a) Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Methods

occurs :: Dom a -> OccursM (Dom a) Source #

metaOccurs :: MetaId -> Dom a -> TCM () Source #

(Occurs a, Occurs b) => Occurs (a, b) Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Methods

occurs :: (a, b) -> OccursM (a, b) Source #

metaOccurs :: MetaId -> (a, b) -> TCM () Source #

occursCheck :: (Occurs a, InstantiateFull a, PrettyTCM a) => MetaId -> VarMap -> a -> TCM a Source #

When assigning m xs := v, check that m does not occur in v and that the free variables of v are contained in xs.

Pruning: getting rid of flexible occurrences.

prune Source #

Arguments

:: MonadMetaSolver m 
=> MetaId

Meta to prune.

-> Args

Arguments to meta variable.

-> (Nat -> Bool)

Test for allowed variable (de Bruijn index).

-> m PruneResult 

prune m' vs xs attempts to remove all arguments from vs whose free variables are not contained in xs. If successful, m' is solved by the new, pruned meta variable and we return True else False.

Issue 1147: If any of the meta args vs is matchable, e.g., is a constructor term, we cannot prune, because the offending variables could be removed by reduction for a suitable instantiation of the meta variable.

hasBadRigid Source #

Arguments

:: (MonadReduce m, HasConstInfo m, MonadAddContext m) 
=> (Nat -> Bool)

Test for allowed variable (de Bruijn index).

-> Term

Argument of meta variable.

-> ExceptT () m Bool

Exception if argument is matchable.

hasBadRigid xs v = Just True iff one of the rigid variables in v is not in xs. Actually we can only prune if a bad variable is in the head. See issue 458. Or in a non-eliminateable position (see succeed/PruningNonMillerPattern).

hasBadRigid xs v = Nothing means that we cannot prune at all as one of the meta args is matchable. (See issue 1147.)

isNeutral :: HasConstInfo m => Blocked t -> QName -> Elims -> m Bool Source #

Check whether a term Def f es is finally stuck. Currently, we give only a crude approximation.

rigidVarsNotContainedIn Source #

Arguments

:: (MonadReduce m, MonadAddContext m, MonadTCEnv m, MonadDebug m, AnyRigid a) 
=> a 
-> (Nat -> Bool)

Test for allowed variable (de Bruijn index).

-> m Bool 

Check whether any of the variables (given as de Bruijn indices) occurs *definitely* in the term in a rigid position. Reduces the term successively to remove variables in dead subterms. This fixes issue 1386.

class AnyRigid a where Source #

Collect the *definitely* rigid variables in a monoid. We need to successively reduce the expression to do this.

Methods

anyRigid :: (MonadReduce tcm, MonadAddContext tcm) => (Nat -> tcm Bool) -> a -> tcm Bool Source #

Instances

Instances details
AnyRigid LevelAtom Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Methods

anyRigid :: (MonadReduce tcm, MonadAddContext tcm) => (Nat -> tcm Bool) -> LevelAtom -> tcm Bool Source #

AnyRigid PlusLevel Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Methods

anyRigid :: (MonadReduce tcm, MonadAddContext tcm) => (Nat -> tcm Bool) -> PlusLevel -> tcm Bool Source #

AnyRigid Level Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Methods

anyRigid :: (MonadReduce tcm, MonadAddContext tcm) => (Nat -> tcm Bool) -> Level -> tcm Bool Source #

AnyRigid Sort Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Methods

anyRigid :: (MonadReduce tcm, MonadAddContext tcm) => (Nat -> tcm Bool) -> Sort -> tcm Bool Source #

AnyRigid Type Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Methods

anyRigid :: (MonadReduce tcm, MonadAddContext tcm) => (Nat -> tcm Bool) -> Type -> tcm Bool Source #

AnyRigid Term Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Methods

anyRigid :: (MonadReduce tcm, MonadAddContext tcm) => (Nat -> tcm Bool) -> Term -> tcm Bool Source #

AnyRigid a => AnyRigid [a] Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Methods

anyRigid :: (MonadReduce tcm, MonadAddContext tcm) => (Nat -> tcm Bool) -> [a] -> tcm Bool Source #

AnyRigid a => AnyRigid (Arg a) Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Methods

anyRigid :: (MonadReduce tcm, MonadAddContext tcm) => (Nat -> tcm Bool) -> Arg a -> tcm Bool Source #

(Subst t a, AnyRigid a) => AnyRigid (Abs a) Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Methods

anyRigid :: (MonadReduce tcm, MonadAddContext tcm) => (Nat -> tcm Bool) -> Abs a -> tcm Bool Source #

AnyRigid a => AnyRigid (Elim' a) Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Methods

anyRigid :: (MonadReduce tcm, MonadAddContext tcm) => (Nat -> tcm Bool) -> Elim' a -> tcm Bool Source #

AnyRigid a => AnyRigid (Dom a) Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Methods

anyRigid :: (MonadReduce tcm, MonadAddContext tcm) => (Nat -> tcm Bool) -> Dom a -> tcm Bool Source #

(AnyRigid a, AnyRigid b) => AnyRigid (a, b) Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Methods

anyRigid :: (MonadReduce tcm, MonadAddContext tcm) => (Nat -> tcm Bool) -> (a, b) -> tcm Bool Source #

data PruneResult Source #

Constructors

NothingToPrune

the kill list is empty or only Falses

PrunedNothing

there is no possible kill (because of type dep.)

PrunedSomething

managed to kill some args in the list

PrunedEverything

all prescribed kills where performed

Instances

Instances details
Eq PruneResult Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

Show PruneResult Source # 
Instance details

Defined in Agda.TypeChecking.MetaVars.Occurs

killArgs :: MonadMetaSolver m => [Bool] -> MetaId -> m PruneResult Source #

killArgs [k1,...,kn] X prunes argument i from metavar X if ki==True. Pruning is carried out whenever > 0 arguments can be pruned.

killedType :: MonadReduce m => [(Dom (ArgName, Type), Bool)] -> Type -> m ([Arg Bool], Type) Source #

killedType [((x1,a1),k1)..((xn,an),kn)] b = ([k'1..k'n],t') (ignoring Dom). Let t' = (xs:as) -> b. Invariant: k'i == True iff ki == True and pruning the ith argument from type b is possible without creating unbound variables. t' is type t after pruning all k'i==True.

performKill Source #

Arguments

:: MonadMetaSolver m 
=> [Arg Bool]

Arguments to old meta var in left to right order with Bool indicating whether they can be pruned.

-> MetaId

The old meta var to receive pruning.

-> Type

The pruned type of the new meta var.

-> m () 

Instantiate a meta variable with a new one that only takes the arguments which are not pruneable.

Orphan instances

IsVarSet () AllowedVar Source # 
Instance details