diff options
| author | Pierre-Marie Pédrot | 2018-07-12 18:05:46 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-10-02 09:27:47 +0200 |
| commit | 278f64296af13865ed50c966f1a4c1ab4357423e (patch) | |
| tree | 47fdae130f40342f8f9439cddc3aac46b1c0c528 /plugins/derive | |
| parent | 67e894bc9e25e68bb89c93c930d3c9eac3f8a16d (diff) | |
Port g_derive to coqpp.
Unluckily this is the only file that contains a VERNAC EXTEND and no
ARGUMENT EXTEND, which are not handled yet.
Diffstat (limited to 'plugins/derive')
| -rw-r--r-- | plugins/derive/g_derive.mlg (renamed from plugins/derive/g_derive.ml4) | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/plugins/derive/g_derive.ml4 b/plugins/derive/g_derive.mlg index a59324149c..2e059c7f95 100644 --- a/plugins/derive/g_derive.ml4 +++ b/plugins/derive/g_derive.mlg @@ -8,13 +8,21 @@ (* * (see LICENSE file for the text of the license) *) (************************************************************************) +{ + open Stdarg +} + DECLARE PLUGIN "derive_plugin" +{ + let classify_derive_command _ = Vernacexpr.(VtStartProof ("Classic",Doesn'tGuaranteeOpacity,[]),VtLater) -VERNAC COMMAND EXTEND Derive CLASSIFIED BY classify_derive_command +} + +VERNAC COMMAND EXTEND Derive CLASSIFIED BY { classify_derive_command } | [ "Derive" ident(f) "SuchThat" constr(suchthat) "As" ident(lemma) ] -> - [ Derive.start_deriving f suchthat lemma ] + { let () = Derive.start_deriving f suchthat lemma in st } END |