diff options
Diffstat (limited to 'library')
-rw-r--r-- | library/decl_kinds.ml | 5 | ||||
-rw-r--r-- | library/decl_kinds.mli | 1 |
2 files changed, 5 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 *) diff --git a/library/decl_kinds.mli b/library/decl_kinds.mli index 2ee454442..7aa1df0c9 100644 --- a/library/decl_kinds.mli +++ b/library/decl_kinds.mli @@ -40,6 +40,7 @@ type definition_object_kind = | StructureComponent | IdentityCoercion | Instance + | Method type assumption_object_kind = Definitional | Logical | Conjectural |