diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-04-06 17:49:36 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-04-06 17:49:36 +0200 |
| commit | 49b30563c4c2d5e967912c96d2e34d9e81a1e675 (patch) | |
| tree | 3a998ef8a2dcc62c138cea14342161c79b726af9 /tactics/tactics.ml | |
| parent | c0d7177ef1c869ed724adaba272ba0e47d761ae1 (diff) | |
| parent | b0fcd54d69c2f404a17f7bbcd0426c0bac0080f7 (diff) | |
Merge PR #6960: [api] Move some types to their proper module.
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 -> |