diff options
Diffstat (limited to 'library/decl_kinds.ml')
-rw-r--r-- | library/decl_kinds.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/library/decl_kinds.ml b/library/decl_kinds.ml index c33738644..8ea183509 100644 --- a/library/decl_kinds.ml +++ b/library/decl_kinds.ml @@ -38,6 +38,7 @@ type definition_object_kind = | Scheme | StructureComponent | IdentityCoercion + | Instance type strength = locality_flag (* For compatibility *) @@ -97,5 +98,5 @@ let string_of_definition_kind (l,boxed,d) = | Global, Example -> "Example" | Local, (CanonicalStructure|Example) -> anomaly "Unsupported local definition kind" - | _, (StructureComponent|Scheme|CoFixpoint|Fixpoint|IdentityCoercion) + | _, (StructureComponent|Scheme|CoFixpoint|Fixpoint|IdentityCoercion|Instance) -> anomaly "Internal definition kind" |