diff options
| author | Pierre-Marie Pédrot | 2017-08-03 20:23:08 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-08-04 12:34:24 +0200 |
| commit | b84b03bb6230fca69cd9191ba0424402a5cd2330 (patch) | |
| tree | 50fde8ada604b972e000c4f0e88dcf8b5f46527c /src/tac2core.ml | |
| parent | 9db02b3bfe35c15c9df8615f0e47a2a6407e858b (diff) | |
Introducing notations for destruct and induction arguments.
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 |