diff options
| -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 e692876dad..6f7645841c 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 3c06471128..1cd00068b3 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 _ = |