Safe Haskell | None |
---|
- orderFields :: QName -> a -> [Name] -> [(Name, a)] -> TCM [a]
- recordModule :: QName -> ModuleName
- getRecordDef :: QName -> TCM Defn
- getRecordFieldNames :: QName -> TCM [Arg Name]
- findPossibleRecords :: [Name] -> TCM [QName]
- getRecordFieldTypes :: QName -> TCM Telescope
- getRecordTypeFields :: Type -> TCM [Arg QName]
- getRecordConstructorType :: QName -> TCM Type
- getRecordConstructor :: QName -> TCM QName
- isRecord :: QName -> TCM (Maybe Defn)
- isEtaRecord :: QName -> TCM Bool
- isInductiveRecord :: QName -> TCM Bool
- isEtaRecordType :: Type -> TCM (Maybe (QName, Args))
- isRecordConstructor :: QName -> TCM (Maybe (QName, Defn))
- isGeneratedRecordConstructor :: QName -> TCM Bool
- unguardedRecord :: QName -> TCM ()
- recursiveRecord :: QName -> TCM ()
- etaExpandRecord :: QName -> Args -> Term -> TCM (Telescope, Args)
- etaContractRecord :: QName -> QName -> Args -> TCM Term
- isSingletonRecord :: QName -> Args -> TCM (Either MetaId Bool)
- isSingletonRecordModuloRelevance :: QName -> Args -> TCM (Either MetaId Bool)
- isSingletonRecord' :: Bool -> QName -> Args -> TCM (Either MetaId (Maybe Term))
- isSingletonType :: Type -> TCM (Either MetaId (Maybe Term))
- isSingletonTypeModuloRelevance :: MonadTCM tcm => Type -> tcm (Either MetaId Bool)
- isSingletonType' :: Bool -> Type -> TCM (Either MetaId (Maybe Term))
- emap :: (a -> b) -> Either c (Maybe a) -> Either c (Maybe b)
Documentation
orderFields :: QName -> a -> [Name] -> [(Name, a)] -> TCM [a]Source
Order the fields of a record construction. Use the second argument for missing fields.
recordModule :: QName -> ModuleNameSource
The name of the module corresponding to a record.
getRecordDef :: QName -> TCM DefnSource
Get the definition for a record. Throws an exception if the name does not refer to a record.
findPossibleRecords :: [Name] -> TCM [QName]Source
Find all records with at least the given fields.
getRecordFieldTypes :: QName -> TCM TelescopeSource
Get the field types of a record.
getRecordConstructorType :: QName -> TCM TypeSource
Get the type of the record constructor.
getRecordConstructor :: QName -> TCM QNameSource
Returns the given record type's constructor name (with an empty range).
isRecord :: QName -> TCM (Maybe Defn)Source
Check if a name refers to a record. If yes, return record definition.
isEtaRecord :: QName -> TCM BoolSource
Check if a name refers to an eta expandable record.
isInductiveRecord :: QName -> TCM BoolSource
Check if a name refers to a record which is not coinductive. (Projections are then size-preserving)
isEtaRecordType :: Type -> TCM (Maybe (QName, Args))Source
Check if a type is an eta expandable record and return the record identifier and the parameters.
isRecordConstructor :: QName -> TCM (Maybe (QName, Defn))Source
Check if a name refers to a record constructor. If yes, return record definition.
isGeneratedRecordConstructor :: QName -> TCM BoolSource
Check if a constructor name is the internally generated record constructor.
unguardedRecord :: QName -> TCM ()Source
Mark record type as unguarded. No eta-expansion. Projections do not preserve guardedness.
recursiveRecord :: QName -> TCM ()Source
Mark record type as recursive. Projections do not preserve guardedness.
etaExpandRecord :: QName -> Args -> Term -> TCM (Telescope, Args)Source
Compute the eta expansion of a record. The first argument should be the name of a record type. Given
record R : Set where x : A; y : B; .z : C
and r : R
, etaExpand R [] r
is [R.x r, R.y r, DontCare]
etaContractRecord :: QName -> QName -> Args -> TCM TermSource
The fields should be eta contracted already.
We can eta constract if all fields f = ...
are irrelevant
or the corresponding projection f = f v
of the same value v
,
but we need at least one relevant field to find the value v
.
isSingletonRecord :: QName -> Args -> TCM (Either MetaId Bool)Source
Is the type a hereditarily singleton record type? May return a blocking metavariable.
Precondition: The name should refer to a record type, and the arguments should be the parameters to the type.
isSingletonRecord' :: Bool -> QName -> Args -> TCM (Either MetaId (Maybe Term))Source
Return the unique (closed) inhabitant if exists. In case of counting irrelevance in, the returned inhabitant contains garbage.
isSingletonType :: Type -> TCM (Either MetaId (Maybe Term))Source
Check whether a type has a unique inhabitant and return it. Can be blocked by a metavar.