TypeopsThey return unsafe judgments that are "in context" of a set of (local) universe variables (the ones that appear in the term) and associated constraints. In case of polymorphic definitions, these variables and constraints will be generalized.
When typechecking a term it may be updated to fix relevance marks. Do not discard the result.
val infer : Environ.env -> Constr.constr -> Environ.unsafe_judgmentval infer_type : Environ.env -> Constr.types -> Environ.unsafe_type_judgmentval check_context : Environ.env -> Constr.rel_context -> Environ.env * Constr.rel_contextIf j is the judgement $ c:t $ , then assumption_of_judgement env j returns the type $ c $ , checking that $ t $ is a sort.
val assumption_of_judgment : Environ.env -> Environ.unsafe_judgment -> Sorts.relevanceval type_judgment : Environ.env -> Environ.unsafe_judgment -> Environ.unsafe_type_judgmentval type1 : Constr.typesType of sorts.
val type_of_sort : Sorts.t -> Constr.typesval judge_of_prop : Environ.unsafe_judgmentval judge_of_set : Environ.unsafe_judgmentval judge_of_type : Univ.Universe.t -> Environ.unsafe_judgmentval type_of_relative : Environ.env -> int -> Constr.typesType of a bound variable.
val judge_of_relative : Environ.env -> int -> Environ.unsafe_judgmentval type_of_variable : Environ.env -> Names.variable -> Constr.typesType of variables
val judge_of_variable : Environ.env -> Names.variable -> Environ.unsafe_judgmentval type_of_constant_in : Environ.env -> Constr.pconstant -> Constr.typestype of a constant
val judge_of_constant : Environ.env -> Constr.pconstant -> Environ.unsafe_judgmentval judge_of_projection : Environ.env -> Names.Projection.t -> Environ.unsafe_judgment -> Environ.unsafe_judgmenttype of an applied projection
val judge_of_apply : Environ.env -> Environ.unsafe_judgment -> Environ.unsafe_judgment array -> Environ.unsafe_judgmentType of application.
val sort_of_product : Environ.env -> Sorts.t -> Sorts.t -> Sorts.tType of a product.
val type_of_product : Environ.env -> Names.Name.t Constr.binder_annot -> Sorts.t -> Sorts.t -> Constr.typess Type of a let in.
val judge_of_cast : Environ.env -> Environ.unsafe_judgment -> Constr.cast_kind -> Environ.unsafe_type_judgment -> Environ.unsafe_judgmentType of a cast.
val judge_of_inductive : Environ.env -> Names.inductive UVars.puniverses -> Environ.unsafe_judgmentInductive types.
val judge_of_constructor : Environ.env -> Names.constructor UVars.puniverses -> Environ.unsafe_judgmentval type_of_global_in_context : Environ.env -> Names.GlobRef.t -> Constr.types * UVars.AbstractContext.tReturns the type of the global reference, by creating a fresh instance of polymorphic references and computing their instantiated universe context. The type should not be used without pushing it's universe context in the environmnent of usage. For non-universe-polymorphic constants, it does not matter.
val check_hyps_inclusion : Environ.env -> ?evars:CClosure.evar_handler -> Names.GlobRef.t -> Constr.named_context -> unitCheck that hyps are included in env and fails with error otherwise
Types for primitives
val type_of_int : Environ.env -> Constr.typesval judge_of_int : Environ.env -> Uint63.t -> Environ.unsafe_judgmentval type_of_float : Environ.env -> Constr.typesval judge_of_float : Environ.env -> Float64.t -> Environ.unsafe_judgmentval type_of_array : Environ.env -> UVars.Instance.t -> Constr.typesval judge_of_array : Environ.env -> UVars.Instance.t -> Environ.unsafe_judgment array -> Environ.unsafe_judgment -> Environ.unsafe_judgmentval type_of_prim_type : Environ.env -> UVars.Instance.t -> 'a CPrimitives.prim_type -> Constr.typesval type_of_prim : Environ.env -> UVars.Instance.t -> CPrimitives.t -> Constr.typesval type_of_prim_or_type : Environ.env -> UVars.Instance.t -> CPrimitives.op_or_type -> Constr.typesval bad_relevance_warning : CWarnings.warningAlso used by the pretyper to define a message which uses the evar map.
type ('constr, 'types, 'r) bad_relevance = | BadRelevanceBinder of 'r * ('constr, 'types, 'r) Context.Rel.Declaration.pt |
| BadRelevanceCase of 'r * 'constr |
val bad_relevance_msg : (Environ.env * (Constr.constr, Constr.types, Sorts.relevance) bad_relevance) CWarnings.msgUsed by the higher layers to register a nicer printer than the default.
val should_invert_case : Environ.env -> Sorts.relevance -> Constr.case_info -> boolWe have case inversion exactly when going from irrelevant nonempty (ie 1 constructor) inductive to relevant type.