diff options
| author | coqbot-app[bot] | 2020-11-02 13:02:53 +0000 |
|---|---|---|
| committer | GitHub | 2020-11-02 13:02:53 +0000 |
| commit | dc244adce087f5041ffa94c369b02e538a0a3f4a (patch) | |
| tree | c921acd2fc862e7f32e18aa016204f8b8f32574c /vernac/attributes.ml | |
| parent | 35354fcb1d86fc0e8a9372b17e43a2b4a409a00e (diff) | |
| parent | 7de7fe612ffc5a598311f9542e57e50803ff2007 (diff) | |
Merge PR #13183: attribute #[using] for Definition and Fixpoint
Reviewed-by: SkySkimmer
Ack-by: herbelin
Ack-by: Zimmi48
Diffstat (limited to 'vernac/attributes.ml')
| -rw-r--r-- | vernac/attributes.ml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/vernac/attributes.ml b/vernac/attributes.ml index fb308fd316..efba6d332a 100644 --- a/vernac/attributes.ml +++ b/vernac/attributes.ml @@ -224,3 +224,11 @@ let canonical_field = enable_attribute ~key:"canonical" ~default:(fun () -> true) let canonical_instance = enable_attribute ~key:"canonical" ~default:(fun () -> false) + +let uses_parser : string key_parser = fun orig args -> + assert_once ~name:"using" orig; + match args with + | VernacFlagLeaf str -> str + | _ -> CErrors.user_err (Pp.str "Ill formed \"using\" attribute") + +let using = attribute_of_list ["using",uses_parser] |