From 063831618cf9d7385fb6ba3f41dea102115f0fbc Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 15 May 2002 20:07:54 +0000
Subject: Nouvelle syntaxe 'Match Reverse Context' pour garder un filtrage de
 gauche à droite des hypothèses dans Intuition

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2695 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/g_ltac.ml4 | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/parsing/g_ltac.ml4 b/parsing/g_ltac.ml4
index b90924f81a..2beb62f243 100644
--- a/parsing/g_ltac.ml4
+++ b/parsing/g_ltac.ml4
@@ -112,8 +112,10 @@ GEXTEND Gram
 	| [Coqast.Node(_,"LETTOPCLAUSE",[id;c])] ->
           <:ast< (TheoremProof "LETTOP" $id $c $tb) >>
 	| _ -> errorlabstrm "Gram.tactic_atom" (str "Not a LETTOPCLAUSE"))
-      |	IDENT "Match"; IDENT "Context"; IDENT "With"; mrl = match_context_list
-        -> <:ast< (MATCHCONTEXT ($LIST $mrl)) >>
+      |	IDENT "Match"; "Reverse"; IDENT "Context"; IDENT "With";
+        mrl = match_context_list -> <:ast< (MATCHCONTEXT "LR" ($LIST $mrl)) >>
+      |	IDENT "Match"; IDENT "Context"; IDENT "With";
+        mrl = match_context_list -> <:ast< (MATCHCONTEXT "RL" ($LIST $mrl)) >>
       |	IDENT "Match"; com = constrarg; IDENT "With"; mrl = match_list ->
         <:ast< (MATCH $com ($LIST $mrl)) >>
 (*
-- 
cgit v1.2.3