diff options
| author | Enrico Tassi | 2019-11-22 15:10:16 +0100 |
|---|---|---|
| committer | Enrico Tassi | 2019-12-24 09:12:01 +0100 |
| commit | 559c4c068120cf7fd24728df001ca5b631eb3879 (patch) | |
| tree | 5a12fa0234cf74dce877549bdb666948560399cc /vernac/attributes.ml | |
| parent | f258a877d25c1f6a27875f26d9ea1fe0a5fb5b81 (diff) | |
[Attributes] accept #[canonical] (Let|Definition)
Diffstat (limited to 'vernac/attributes.ml')
| -rw-r--r-- | vernac/attributes.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/vernac/attributes.ml b/vernac/attributes.ml index b7a3b002bd..68d2c3a00d 100644 --- a/vernac/attributes.ml +++ b/vernac/attributes.ml @@ -234,5 +234,7 @@ let only_polymorphism atts = parse polymorphic atts let vernac_polymorphic_flag = ukey, VernacFlagList ["polymorphic", VernacFlagEmpty] let vernac_monomorphic_flag = ukey, VernacFlagList ["monomorphic", VernacFlagEmpty] -let canonical = +let canonical_field = enable_attribute ~key:"canonical" ~default:(fun () -> true) +let canonical_instance = + enable_attribute ~key:"canonical" ~default:(fun () -> false) |