Agda.TypeChecking.Polarity

Polarity lattice.

(/\) :: Polarity -> Polarity -> Polarity

Infimum on the information lattice. Invariant is bottom (dominant for inf), Nonvariant is top (neutral for inf).

neg :: Polarity -> Polarity

Polarity negation, swapping monotone and antitone.

composePol :: Polarity -> Polarity -> Polarity

What is the polarity of a function composition?

polFromOcc :: Occurrence -> Polarity

Auxiliary functions

nextPolarity :: [Polarity] -> (Polarity, [Polarity])

Get the next polarity from a list, Invariant if empty.

purgeNonvariant :: [Polarity] -> [Polarity]

Replace Nonvariant by Covariant. (Arbitrary bias, but better than Invariant, see issue 1596).

Computing the polarity of a symbol.

computePolarity :: QName -> TCM ()

Main function of this module.

enablePhantomTypes :: Defn -> [Polarity] -> [Polarity]

Data and record parameters are used as phantom arguments all over the test suite (and possibly in user developments). enablePhantomTypes turns Nonvariant parameters to Covariant to enable phantoms.

dependentPolarity :: Type -> [Polarity] -> [Polarity] -> TCM [Polarity]

Make arguments Invariant if the type of a not-Nonvariant later argument depends on it. Also, enable phantom types by turning Nonvariant into something else if it is a data/record parameter but not a size argument. [See issue 1596]

Precondition: the "phantom" polarity list has the same length as the polarity list.

relevantInIgnoringNonvariant :: Nat -> Type -> [Polarity] -> TCM Bool

Check whether a variable is relevant in a type expression, ignoring domains of non-variant arguments.

Turn polarity Nonvariant into relevance UnusedArg

mkUnused :: Relevance -> Relevance

Record information that an argument is unused in Relevance.

nonvariantToUnusedArg :: [Polarity] -> Type -> TCM Type

Improve Relevance information in a type by polarity information. Nonvariant becomes UnusedArg.

nonvariantToUnusedArgInDef :: [Polarity] -> Defn -> Defn

Propagate Nonvariant Polarity to Relevance information in Args of a defined symbol.

nonvariantToUnusedArgInClause :: [Polarity] -> Clause -> Clause

Sized types

sizePolarity :: QName -> [Polarity] -> TCM [Polarity]

Hack for polarity of size indices. As a side effect, this sets the positivity of the size index. See testsucceedPolaritySizeSucData.agda for a case where this is needed.

checkSizeIndex :: QName -> Nat -> Nat -> Type -> TCM Bool

checkSizeIndex d np i a checks that constructor target type a has form d ps (↑ i) idxs where |ps| = np.

Precondition: a is reduced and of form d ps idxs0.

class HasPolarity a where

polarities i a computes the list of polarities of de Bruijn index i in syntactic entity a.

Minimal complete definition

polarities

Methods

polarities :: Nat -> a -> TCM [Polarity]

Instances

HasPolarity LevelAtom

Methods

polarities :: Nat -> LevelAtom -> TCM [Polarity]

HasPolarity PlusLevel

Methods

polarities :: Nat -> PlusLevel -> TCM [Polarity]

HasPolarity Level

Methods

polarities :: Nat -> Level -> TCM [Polarity]

HasPolarity Type

Methods

polarities :: Nat -> Type -> TCM [Polarity]

HasPolarity Term

Methods

polarities :: Nat -> Term -> TCM [Polarity]

HasPolarity a => HasPolarity [a]

Methods

polarities :: Nat -> [a] -> TCM [Polarity]

HasPolarity a => HasPolarity (Dom a)

Methods

polarities :: Nat -> Dom a -> TCM [Polarity]

HasPolarity a => HasPolarity (Arg a)

Methods

polarities :: Nat -> Arg a -> TCM [Polarity]

HasPolarity a => HasPolarity (Abs a)

Methods

polarities :: Nat -> Abs a -> TCM [Polarity]

HasPolarity a => HasPolarity (Elim' a)

Methods

polarities :: Nat -> Elim' a -> TCM [Polarity]

(HasPolarity a, HasPolarity b) => HasPolarity (a, b)

Methods

polarities :: Nat -> (a, b) -> TCM [Polarity]

polarity :: HasPolarity a => Nat -> a -> TCM Polarity

polarity i a computes the polarity of de Bruijn index i in syntactic entity a by taking the infimum of all polarities.