diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-05-29 11:10:24 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-05-29 11:10:24 +0000 |
commit | 29c67f1d97221755415ace1e4317cb7af92e24f3 (patch) | |
tree | 3aaa1283625e248b31339dbb76279629ae27f02e /contrib/romega/refl_omega.ml | |
parent | 5a5c8682bcf7041f5a240b565f68e37478414b81 (diff) |
Nouveau modèle d'analyse syntaxique et d'interprétation des tactiques et commandes vernaculaires (cf dev/changements.txt pour plus de précisions)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2734 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/romega/refl_omega.ml')
-rw-r--r-- | contrib/romega/refl_omega.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/contrib/romega/refl_omega.ml b/contrib/romega/refl_omega.ml index 9ff41f0b5..788d3338c 100644 --- a/contrib/romega/refl_omega.ml +++ b/contrib/romega/refl_omega.ml @@ -596,7 +596,9 @@ let coq_omega gl = with Omega.NO_CONTRADICTION -> Util.error "Omega can't solve this system" end +(* let refl_omega = Tacmach.hide_atomic_tactic "StepOmega" coq_omega +*) (* \section{Encapsulation ROMEGA} *) @@ -614,6 +616,7 @@ open Term open Environ open Sign open Inductive +open Tacticals open Tacmach open Tactics open Tacticals @@ -832,5 +835,7 @@ let omega_solver gl = in (loop concl) gl +(* let omega = hide_atomic_tactic "ReflOmega" omega_solver +*) |