diff options
Diffstat (limited to 'src/tac2core.ml')
| -rw-r--r-- | src/tac2core.ml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/tac2core.ml b/src/tac2core.ml index 329c115be3..45fa52ff9b 100644 --- a/src/tac2core.ml +++ b/src/tac2core.ml @@ -899,6 +899,14 @@ let () = add_scope "intropatterns" begin function | _ -> scope_fail () end +let () = add_scope "induction_clause" begin function +| [] -> + let scope = Extend.Aentry Tac2entries.Pltac.q_induction_clause in + let act tac = tac in + Tac2entries.ScopeRule (scope, act) +| _ -> scope_fail () +end + let () = add_generic_scope "constr" Pcoq.Constr.constr Stdarg.wit_constr let () = add_generic_scope "open_constr" Pcoq.Constr.constr Stdarg.wit_open_constr |