diff options
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 |