Module Type_errors

Type errors. \label{typeerrors}

type 'constr pfix_guard_error =
  1. | NotEnoughAbstractionInFixBody of int
  2. | RecursionNotOnInductiveType of 'constr
  3. | RecursionOnIllegalTerm of int * Environ.env * 'constr * (int list * int list) Stdlib.Lazy.t
  4. | NotEnoughArgumentsForFixCall of int
  5. | FixpointOnNonEliminable of Sorts.t * Sorts.t
type 'constr pcofix_guard_error =
  1. | CodomainNotInductiveType of 'constr
  2. | NestedRecursiveOccurrences
  3. | UnguardedRecursiveCall of 'constr
  4. | RecCallInTypeOfAbstraction of 'constr
  5. | RecCallInNonRecArgOfConstructor of 'constr
  6. | RecCallInTypeOfDef of 'constr
  7. | RecCallInCaseFun of 'constr
  8. | RecCallInCaseArg of 'constr
  9. | RecCallInCasePred of 'constr
  10. | NotGuardedForm of 'constr
  11. | ReturnPredicateNotCoInductive of 'constr
type 'constr pguard_error =
  1. | FixGuardError of 'constr pfix_guard_error
  2. | CoFixGuardError of 'constr pcofix_guard_error
type fix_guard_error = Constr.constr pfix_guard_error
type cofix_guard_error = Constr.constr pcofix_guard_error
type guard_error = Constr.constr pguard_error
type ('constr, 'types) pcant_apply_bad_type = (int * 'constr * 'constr) * ('constr, 'types) Environ.punsafe_judgment * ('constr, 'types) Environ.punsafe_judgment array
type ('constr, 'types, 'r) ptype_error =
  1. | UnboundRel of int
  2. | UnboundVar of Names.variable
  3. | NotAType of ('constr, 'types) Environ.punsafe_judgment
  4. | BadAssumption of ('constr, 'types) Environ.punsafe_judgment
  5. | ReferenceVariables of Names.Id.t * Names.GlobRef.t
  6. | ElimArity of Constr.pinductive * 'constr * Sorts.t option
  7. | CaseNotInductive of ('constr, 'types) Environ.punsafe_judgment
  8. | CaseOnPrivateInd of Names.inductive
  9. | WrongCaseInfo of Constr.pinductive * Constr.case_info
  10. | NumberBranches of ('constr, 'types) Environ.punsafe_judgment * int
  11. | IllFormedCaseParams
  12. | IllFormedBranch of 'constr * Constr.pconstructor * 'constr * 'constr
  13. | BadProjType of ('constr, 'types) Environ.punsafe_judgment * Names.Projection.t
  14. | Generalization of Names.Name.t * 'types * ('constr, 'types) Environ.punsafe_judgment
  15. | ActualType of ('constr, 'types) Environ.punsafe_judgment * 'types
  16. | IncorrectPrimitive of (CPrimitives.op_or_type, 'types) Environ.punsafe_judgment * 'types
  17. | CantApplyBadType of ('constr, 'types) pcant_apply_bad_type
  18. | CantApplyNonFunctional of ('constr, 'types) Environ.punsafe_judgment * ('constr, 'types) Environ.punsafe_judgment array
  19. | IllFormedRecBody of 'constr pguard_error * (Names.Name.t, 'r) Context.pbinder_annot array * int * Environ.env * ('constr, 'types) Environ.punsafe_judgment array
  20. | IllTypedRecBody of int * (Names.Name.t, 'r) Context.pbinder_annot array * ('constr, 'types) Environ.punsafe_judgment array * 'types array
  21. | UnsatisfiedUnivConstraints of Univ.UnivConstraints.t
  22. | UnsatisfiedPConstraints of PConstraints.t
  23. | UndeclaredQualities of Sorts.Quality.Set.t
  24. | UndeclaredUniverses of Univ.Level.Set.t
  25. | NotAllowedSProp
  26. | BadBinderRelevance of 'r * ('constr, 'types, 'r) Context.Rel.Declaration.pt
  27. | BadCaseRelevance of 'r * 'constr
  28. | BadInvert
  29. | BadVariance of {
    1. lev : Univ.Level.t;
    2. expected : UVars.Variance.t;
    3. actual : UVars.Variance.t;
    }
  30. | UndeclaredUsedVariables of {
    1. declared_vars : Names.Id.Set.t;
    2. inferred_vars : Names.Id.Set.t;
    }
  31. | IllFormedConstant of Names.Constant.t * Names.KerName.t
  32. | IllFormedInductive of Names.MutInd.t * Names.KerName.t
exception TypeError of Environ.env * type_error
type inductive_error =
  1. | NonPos of Constr.constr * Constr.constr
  2. | NotEnoughArgs of Constr.constr * Constr.constr
  3. | NotConstructor of Names.Id.t * Constr.constr * Constr.constr * int * int
  4. | NonPar of Constr.constr * int * Constr.constr * Constr.constr
  5. | SameNamesTypes of Names.Id.t
  6. | SameNamesConstructors of Names.Id.t
  7. | SameNamesOverlap of Names.Id.t list
  8. | NotAnArity of Constr.constr
  9. | BadEntry
  10. | LargeNonPropInductiveNotInType
  11. | MissingUnivConstraints of Sorts.t list * Sorts.t

The different kinds of errors that may result of a malformed inductive definition.

exception InductiveError of Environ.env * inductive_error

Raising functions

val error_unbound_rel : Environ.env -> int -> 'a
val error_unbound_var : Environ.env -> Names.variable -> 'a
val error_not_type : Environ.env -> Environ.unsafe_judgment -> 'a
val error_assumption : Environ.env -> Environ.unsafe_judgment -> 'a
val error_reference_variables : Environ.env -> Names.Id.t -> Names.GlobRef.t -> 'a
val error_elim_arity : Environ.env -> Constr.pinductive -> Constr.constr -> Sorts.t option -> 'a
val error_case_not_inductive : Environ.env -> Environ.unsafe_judgment -> 'a
val error_case_on_private_ind : Environ.env -> Names.inductive -> 'a
val error_number_branches : Environ.env -> Environ.unsafe_judgment -> int -> 'a
val error_ill_formed_branch : Environ.env -> Constr.constr -> Constr.pconstructor -> Constr.constr -> Constr.constr -> 'a
val error_generalization : Environ.env -> (Names.Name.t * Constr.types) -> Environ.unsafe_judgment -> 'a
val error_bad_proj_type : Environ.env -> Environ.unsafe_judgment -> Names.Projection.t -> 'a
val error_actual_type : Environ.env -> Environ.unsafe_judgment -> Constr.types -> 'a
val error_cant_apply_not_functional : Environ.env -> Environ.unsafe_judgment -> Environ.unsafe_judgment array -> 'a
val error_cant_apply_bad_type : Environ.env -> (int * Constr.constr * Constr.constr) -> Environ.unsafe_judgment -> Environ.unsafe_judgment array -> 'a
val error_ill_formed_rec_body : Environ.env -> guard_error -> Names.Name.t Constr.binder_annot array -> int -> Environ.env -> Environ.unsafe_judgment array -> 'a
val error_ill_typed_rec_body : Environ.env -> int -> Names.Name.t Constr.binder_annot array -> Environ.unsafe_judgment array -> Constr.types array -> 'a
val error_unsatisfied_univ_constraints : Environ.env -> Univ.UnivConstraints.t -> 'a
val error_unsatisfied_poly_constraints : Environ.env -> PConstraints.t -> 'a
val error_undeclared_qualities : Environ.env -> Sorts.Quality.Set.t -> 'a
val error_undeclared_universes : Environ.env -> Univ.Level.Set.t -> 'a
val error_not_allowed_sprop : Environ.env -> 'a
val error_bad_binder_relevance : Environ.env -> Sorts.relevance -> Constr.rel_declaration -> 'a
val error_bad_case_relevance : Environ.env -> Sorts.relevance -> Constr.case -> 'a
val error_bad_invert : Environ.env -> 'a
val error_bad_variance : Environ.env -> lev:Univ.Level.t -> expected:UVars.Variance.t -> actual:UVars.Variance.t -> 'a
val error_undeclared_used_variables : Environ.env -> declared_vars:Names.Id.Set.t -> inferred_vars:Names.Id.Set.t -> 'a
val error_ill_formed_constant : Environ.env -> Names.Constant.t -> Names.KerName.t -> 'a
val error_ill_formed_inductive : Environ.env -> Names.MutInd.t -> Names.KerName.t -> 'a
val map_pguard_error : ('c -> 'd) -> 'c pguard_error -> 'd pguard_error
val map_ptype_error : ('r1 -> 'r2) -> ('c -> 'd) -> ('c, 'c, 'r1) ptype_error -> ('d, 'd, 'r2) ptype_error