diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-08-02 19:51:48 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-08-02 19:51:48 +0000 |
commit | 25dde2366a4db47e5da13b2bbe4d03a31235706f (patch) | |
tree | 5fe442297f6aabf515ce4aad817e31818fb4deb0 /plugins/rtauto | |
parent | 581223c7fc607b5121013928fd83606b82ea8531 (diff) |
Improved parameterization of Coq:
- add coqtop option "-compat X.Y" so as to provide compatibility with
previous versions of Coq (of course, this requires to take care of
providing flags for controlling changes of behaviors!),
- add support for option names made of an arbitrary length of words
(instead of one, two or three words only),
- add options for recovering 8.2 behavior for discriminate, tauto,
evar unification ("Set Tactic Evars Pattern Unification", "Set
Discriminate Introduction", "Set Intuition Iff Unfolding").
Update of .gitignore
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12258 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/rtauto')
-rw-r--r-- | plugins/rtauto/proof_search.ml | 2 | ||||
-rw-r--r-- | plugins/rtauto/refl_tauto.ml | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/plugins/rtauto/proof_search.ml b/plugins/rtauto/proof_search.ml index 9d9d66bb2..1fee72a60 100644 --- a/plugins/rtauto/proof_search.ml +++ b/plugins/rtauto/proof_search.ml @@ -50,7 +50,7 @@ let pruning = ref true let opt_pruning= {optsync=true; optname="Rtauto Pruning"; - optkey=SecondaryTable("Rtauto","Pruning"); + optkey=["Rtauto";"Pruning"]; optread=(fun () -> !pruning); optwrite=(fun b -> pruning:=b)} diff --git a/plugins/rtauto/refl_tauto.ml b/plugins/rtauto/refl_tauto.ml index 6cde1ddcf..b47bbaa93 100644 --- a/plugins/rtauto/refl_tauto.ml +++ b/plugins/rtauto/refl_tauto.ml @@ -245,7 +245,7 @@ let verbose = ref false let opt_verbose= {optsync=true; optname="Rtauto Verbose"; - optkey=SecondaryTable("Rtauto","Verbose"); + optkey=["Rtauto";"Verbose"]; optread=(fun () -> !verbose); optwrite=(fun b -> verbose:=b)} @@ -256,7 +256,7 @@ let check = ref false let opt_check= {optsync=true; optname="Rtauto Check"; - optkey=SecondaryTable("Rtauto","Check"); + optkey=["Rtauto";"Check"]; optread=(fun () -> !check); optwrite=(fun b -> check:=b)} |