diff options
| author | Vincent Laporte | 2019-05-06 15:36:49 +0000 |
|---|---|---|
| committer | Vincent Laporte | 2019-05-10 16:06:10 +0000 |
| commit | 6e0467e746e40c10bdc110e8d21e26846219d510 (patch) | |
| tree | 266cbe322995f8157bcd280b7f275f787d6e614a /vernac/attributes.ml | |
| parent | 4e760a40f22e2d76a3d246b225d290eb5d15e9e8 (diff) | |
[Canonical structures] “not_canonical” annotation to field declarations
Diffstat (limited to 'vernac/attributes.ml')
| -rw-r--r-- | vernac/attributes.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/vernac/attributes.ml b/vernac/attributes.ml index 9b8c4efb37..31b0b7e49a 100644 --- a/vernac/attributes.ml +++ b/vernac/attributes.ml @@ -219,3 +219,6 @@ 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 = + bool_attribute ~name:"Canonical projection" ~on:"canonical" ~off:"not_canonical" |