diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-12-18 15:27:43 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-12-18 15:27:43 +0000 |
commit | 493c6773fdf846c887cf469e39e2e23aa438d1c9 (patch) | |
tree | a9646bd6313fa6f6ebfcc80c610541533d3521d2 /plugins/romega | |
parent | 25a499db5ac19db9c678fd837d3f2dc9dd1af103 (diff) |
Const_omega: look for S in Init only (avoid future clash with S of Numbers)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12597 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/romega')
-rw-r--r-- | plugins/romega/const_omega.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/romega/const_omega.ml b/plugins/romega/const_omega.ml index 796b3c7d1..f4368a1bb 100644 --- a/plugins/romega/const_omega.ml +++ b/plugins/romega/const_omega.ml @@ -192,8 +192,8 @@ let rec do_list = function (* Nat *) -let coq_S = lazy(constant "S") -let coq_O = lazy(constant "O") +let coq_S = lazy(init_constant "S") +let coq_O = lazy(init_constant "O") let rec mk_nat = function | 0 -> Lazy.force coq_O |