diff options
| author | aspiwack | 2013-11-02 15:35:13 +0000 |
|---|---|---|
| committer | aspiwack | 2013-11-02 15:35:13 +0000 |
| commit | 1f226a80efeeb65afaaa4fb203a68eac98c7619f (patch) | |
| tree | 1222697edd56b72c0c7a32c43f333ae6c573ed97 /tactics | |
| parent | 80f2f9462205193885f054338ab28bfcd17de965 (diff) | |
Clean up a warning.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16978 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/equality.ml | 2 | ||||
| -rw-r--r-- | tactics/equality.mli | 2 | ||||
| -rw-r--r-- | tactics/extratactics.ml4 | 4 |
3 files changed, 4 insertions, 4 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index babc889446..e9fe23e56f 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -1590,7 +1590,7 @@ let default_subst_tactic_flags () = else { only_leibniz = true; rewrite_dependent_proof = false } -let subst_all ?(flags=default_subst_tactic_flags ()) = +let subst_all ?(flags=default_subst_tactic_flags ()) () = Tacmach.New.of_old find_eq_data_decompose >>= fun find_eq_data_decompose -> let test (_,c) = try diff --git a/tactics/equality.mli b/tactics/equality.mli index 3bb204cafa..24c9095813 100644 --- a/tactics/equality.mli +++ b/tactics/equality.mli @@ -128,7 +128,7 @@ type subst_tactic_flags = { } val subst_gen : bool -> Id.t list -> unit Proofview.tactic val subst : Id.t list -> unit Proofview.tactic -val subst_all : ?flags:subst_tactic_flags -> unit Proofview.tactic +val subst_all : ?flags:subst_tactic_flags -> unit -> unit Proofview.tactic (* Replace term *) (* [replace_multi_term dir_opt c cl] diff --git a/tactics/extratactics.ml4 b/tactics/extratactics.ml4 index 9edf6302da..a4765f22b5 100644 --- a/tactics/extratactics.ml4 +++ b/tactics/extratactics.ml4 @@ -384,14 +384,14 @@ END TACTIC EXTEND subst | [ "subst" ne_var_list(l) ] -> [ subst l ] -| [ "subst" ] -> [ subst_all ?flags:None ] +| [ "subst" ] -> [ subst_all () ] END let simple_subst_tactic_flags = { only_leibniz = true; rewrite_dependent_proof = false } TACTIC EXTEND simple_subst -| [ "simple" "subst" ] -> [ subst_all ~flags:simple_subst_tactic_flags ] +| [ "simple" "subst" ] -> [ subst_all ~flags:simple_subst_tactic_flags () ] END open Evar_tactics |