diff options
| author | letouzey | 2003-11-19 22:18:41 +0000 |
|---|---|---|
| committer | letouzey | 2003-11-19 22:18:41 +0000 |
| commit | e82c9adcb67b767b14c22b9c50a0ff88672642ef (patch) | |
| tree | c29a4a59912865e265427b5b613e192053cd834e /translate | |
| parent | a3958897600963d2529772f43b029f1579524e95 (diff) | |
ajout de Znumtheory.v dans ZArith
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4952 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'translate')
| -rw-r--r-- | translate/ppconstrnew.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/translate/ppconstrnew.ml b/translate/ppconstrnew.ml index 8104399c0b..b09f9c54a1 100644 --- a/translate/ppconstrnew.ml +++ b/translate/ppconstrnew.ml @@ -728,7 +728,8 @@ let is_arith_dir dir id = let dirs = List.map string_of_id (repr_dirpath dir) in match List.rev dirs with | "Coq"::"Arith"::"Between"::_ -> false - | "Coq"::"ZArith"::("Wf_Z"|"Zpower"|"Zlogarithm"|"Zbinary"|"Zdiv")::_ -> false + | "Coq"::"ZArith":: + ("Wf_Z"|"Zpower"|"Zlogarithm"|"Zbinary"|"Zdiv"|"Znumtheory")::_ -> false | "Coq"::("Arith"|"NArith"|"ZArith")::_ -> true | "Coq"::"Init"::"Peano"::_ -> true | "Coq"::"Init"::"Logic"::_ when string_of_id id = "iff_trans" -> true |