diff options
| -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') |