From b84b03bb6230fca69cd9191ba0424402a5cd2330 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Thu, 3 Aug 2017 20:23:08 +0200
Subject: Introducing notations for destruct and induction arguments.

---
 src/tac2core.ml | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/tac2core.ml')

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
 
-- 
cgit v1.2.3