diff options
author | mohring <mohring@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-09-19 07:39:46 +0000 |
---|---|---|
committer | mohring <mohring@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-09-19 07:39:46 +0000 |
commit | 02feed60d85a5da0c733b4a26fbda1fc88d8589f (patch) | |
tree | fc10fca5e925e94b9c215b33dbbfc79e61dfbefb /contrib/romega/refl_omega.ml | |
parent | b27945e2b82e5c3a02b9bb7583fca3caf520d81c (diff) |
reparation Zne
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1989 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/romega/refl_omega.ml')
-rw-r--r-- | contrib/romega/refl_omega.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/contrib/romega/refl_omega.ml b/contrib/romega/refl_omega.ml index 3974ab39c..f92e77e8b 100644 --- a/contrib/romega/refl_omega.ml +++ b/contrib/romega/refl_omega.ml @@ -367,6 +367,9 @@ let rec ocompile env t = let t1',env1 = ocompile env t1 in let t2',env2 = ocompile env1 t2 in (Otimes (t1',t2'), env2) + | Kapp("Zs",[t]) -> + let t',env = ocompile env t in + (Oplus (t',Oz(1)), env) | Kapp(("POS"|"NEG"|"ZERO"),_) -> begin try (Oz(recognize_number t),env) with _ -> @@ -853,3 +856,4 @@ let omega_solver gl = (loop concl) gl let omega = hide_atomic_tactic "ReflOmega" omega_solver + |