diff options
Diffstat (limited to 'library/decl_kinds.ml')
-rw-r--r-- | library/decl_kinds.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/library/decl_kinds.ml b/library/decl_kinds.ml index 20808f1e6..735a8fb07 100644 --- a/library/decl_kinds.ml +++ b/library/decl_kinds.ml @@ -40,6 +40,7 @@ type definition_object_kind = | StructureComponent | IdentityCoercion | Instance + | Method type assumption_object_kind = Definitional | Logical | Conjectural @@ -97,7 +98,9 @@ let string_of_definition_kind (l,boxed,d) = | Global, Example -> "Example" | Local, (CanonicalStructure|Example) -> anomaly "Unsupported local definition kind" - | _, (StructureComponent|Scheme|CoFixpoint|Fixpoint|IdentityCoercion|Instance) + | Local, Instance -> "Instance" + | Global, Instance -> "Global Instance" + | _, (StructureComponent|Scheme|CoFixpoint|Fixpoint|IdentityCoercion|Method) -> anomaly "Internal definition kind" (* Strength *) |