diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-03-05 04:31:45 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-03-05 04:31:45 +0000 |
| commit | a74da602dfcd44bb643b29ce2f5552cf39659173 (patch) | |
| tree | 00524fe51cccda49bb8b52604d685403b747f419 | |
| parent | ab43fdad072827664718a881fdb46fb950983a47 (diff) | |
Minor fixes.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12845 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | theories/Program/Tactics.v | 2 | ||||
| -rw-r--r-- | toplevel/indschemes.ml | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/theories/Program/Tactics.v b/theories/Program/Tactics.v index e692876da..6f7645841 100644 --- a/theories/Program/Tactics.v +++ b/theories/Program/Tactics.v @@ -101,7 +101,7 @@ Ltac revert_last := [ H : _ |- _ ] => revert H end. -(** Reapeateadly reverse the last hypothesis, putting everything in the goal. *) +(** Repeatedly reverse the last hypothesis, putting everything in the goal. *) Ltac reverse := repeat revert_last. diff --git a/toplevel/indschemes.ml b/toplevel/indschemes.ml index 3c0647112..1cd00068b 100644 --- a/toplevel/indschemes.ml +++ b/toplevel/indschemes.ml @@ -60,8 +60,8 @@ let _ = { optsync = true; optname = "automatic declaration of case analysis schemes"; optkey = ["Case";"Analysis";"Schemes"]; - optread = (fun () -> !elim_flag) ; - optwrite = (fun b -> elim_flag := b) } + optread = (fun () -> !case_flag) ; + optwrite = (fun b -> case_flag := b) } let eq_flag = ref true let _ = |