diff options
| author | herbelin | 2003-12-03 11:00:40 +0000 |
|---|---|---|
| committer | herbelin | 2003-12-03 11:00:40 +0000 |
| commit | cd49cfcea4184a8d4f1fe7c513f3ec3fdf36ac2e (patch) | |
| tree | f037fffa3ade889da288ba199a99d4f304f8944e | |
| parent | 4bf9de511eef117ed018ee33e710d078be7d6f4d (diff) | |
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
| -rw-r--r-- | translate/ppconstrnew.ml | 1 |
1 files changed, 1 insertions, 0 deletions
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') |