From cd49cfcea4184a8d4f1fe7c513f3ec3fdf36ac2e Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 3 Dec 2003 11:00:40 +0000
Subject: Rle_monotony_contra devenu Rmult_le_reg_l avant traduction

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5063 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 translate/ppconstrnew.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/translate/ppconstrnew.ml b/translate/ppconstrnew.ml
index a7a6daae66..7019ebd6de 100644
--- a/translate/ppconstrnew.ml
+++ b/translate/ppconstrnew.ml
@@ -752,6 +752,7 @@ let get_name (ln,lp,lz,ll,lr,lr') id refbase n =
     | "R" when (* Noms r,r1,r2 *)
 	refbase = "Rle_refl" or
 	refbase = "Rlt_monotony_contra" or 
+	refbase = "Rmult_le_reg_l" or 
 	refbase = "Rle_monotony_contra" or 
 	refbase = "Rge_monotony" ->
 	(id_of_string (List.hd lr')),(ln,lp,lz,ll,lr,List.tl lr')
-- 
cgit v1.2.3