diff options
| author | Hugo Herbelin | 2020-09-09 20:24:46 +0200 |
|---|---|---|
| committer | Pierre Roux | 2020-09-11 22:20:28 +0200 |
| commit | d5eb564a1ae46409e90a2c6bd6af5b77aa37773e (patch) | |
| tree | 01d09a9564b95d5af908590923ae2c2202b144f3 /plugins | |
| parent | 92bc869c2cec1ffb7e2d0bfcc6b64147718fbe87 (diff) | |
Adding a wit_natural standard argument.
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/cc/g_congruence.mlg | 4 | ||||
| -rw-r--r-- | plugins/ltac/tacinterp.ml | 3 |
2 files changed, 5 insertions, 2 deletions
diff --git a/plugins/cc/g_congruence.mlg b/plugins/cc/g_congruence.mlg index 3920e3da75..2c91901477 100644 --- a/plugins/cc/g_congruence.mlg +++ b/plugins/cc/g_congruence.mlg @@ -22,9 +22,9 @@ DECLARE PLUGIN "cc_plugin" TACTIC EXTEND cc | [ "congruence" ] -> { congruence_tac 1000 [] } -| [ "congruence" integer(n) ] -> { congruence_tac n [] } +| [ "congruence" natural(n) ] -> { congruence_tac n [] } | [ "congruence" "with" ne_constr_list(l) ] -> { congruence_tac 1000 l } - |[ "congruence" integer(n) "with" ne_constr_list(l) ] -> +| [ "congruence" natural(n) "with" ne_constr_list(l) ] -> { congruence_tac n l } END diff --git a/plugins/ltac/tacinterp.ml b/plugins/ltac/tacinterp.ml index 88480194c8..2258201c22 100644 --- a/plugins/ltac/tacinterp.ml +++ b/plugins/ltac/tacinterp.ml @@ -2028,6 +2028,9 @@ let () = declare_uniform wit_int let () = + declare_uniform wit_nat + +let () = declare_uniform wit_bool let () = |