Revising r16550 about providing intro patterns for applying injection:

- Introduction of a specific notation for injection intropatterns: [= pats]
- Use of this specific pattern also to apply discriminate on the fly

Note: The automatic injection of dependent tuples over a same first
component (introduced in r10180) still not integrated to the main
parts of injection and its variant (indeed, it applies only for a root
dependent tuple in sigT).

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16621 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 2 insertions, 0 deletions

diff --git a/pretyping/miscops.ml b/pretyping/miscops.ml
index 264deeb05..2639e2e72 100644
--- a/pretyping/miscops.ml
+++ b/pretyping/miscops.ml
@@ -29,6 +29,8 @@ let smartmap_cast_type f c =
 
 let rec pr_intro_pattern (_,pat) = match pat with
   | IntroOrAndPattern pll -> pr_or_and_intro_pattern pll
+  | IntroInjection pl ->
+      str "[=" ++ hv 0 (prlist_with_sep spc pr_intro_pattern pl) ++ str "]"
   | IntroWildcard -> str "_"
   | IntroRewrite true -> str "->"
   | IntroRewrite false -> str "<-"