diff options
author | Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-03-10 23:41:05 +0100 |
---|---|---|
committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-04-02 06:54:30 +0200 |
commit | b0fcd54d69c2f404a17f7bbcd0426c0bac0080f7 (patch) | |
tree | 57459c894491fea0d9d4b31c744bc704997dd822 /tactics/tactics.ml | |
parent | f29f8f80c8ad94576c7a36f3f638866c208338a0 (diff) |
[api] Move some types to their proper module.
We solve some modularity and type duplication problems by moving types
to a better place. In particular:
- We move tactics types from `Misctypes` to `Tactics` as this is their
proper module an single user [with LTAC].
- We deprecate aliases in `Tacexpr` to such tactic types.
cc: #6512
Diffstat (limited to 'tactics/tactics.ml')
-rw-r--r-- | tactics/tactics.ml | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 0d9f3d821..d0ec3358a 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -1159,6 +1159,13 @@ let tactic_infer_flags with_evar = { Pretyping.fail_evar = not with_evar; Pretyping.expand_evars = true } +type 'a core_destruction_arg = + | ElimOnConstr of 'a + | ElimOnIdent of lident + | ElimOnAnonHyp of int + +type 'a destruction_arg = + clear_flag * 'a core_destruction_arg let onOpenInductionArg env sigma tac = function | clear_flag,ElimOnConstr f -> |