From 1f226a80efeeb65afaaa4fb203a68eac98c7619f Mon Sep 17 00:00:00 2001 From: aspiwack Date: Sat, 2 Nov 2013 15:35:13 +0000 Subject: Clean up a warning. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16978 85f007b7-540e-0410-9357-904b9bb8a0f7 --- tactics/equality.ml | 2 +- tactics/equality.mli | 2 +- tactics/extratactics.ml4 | 4 ++-- toplevel/auto_ind_decl.ml | 2 +- 4 files changed, 5 insertions(+), 5 deletions(-) diff --git a/tactics/equality.ml b/tactics/equality.ml index babc88944..e9fe23e56 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 3bb204caf..24c909581 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 9edf6302d..a4765f22b 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 diff --git a/toplevel/auto_ind_decl.ml b/toplevel/auto_ind_decl.ml index 50d013044..c4fa51c4b 100644 --- a/toplevel/auto_ind_decl.ml +++ b/toplevel/auto_ind_decl.ml @@ -875,7 +875,7 @@ let compute_dec_tact ind lnamesparrec nparrec = simplest_right ; Proofview.V82.tactic (unfold_constr (Lazy.force Coqlib.coq_not_ref)); intro; - Equality.subst_all ?flags:None; + Equality.subst_all (); assert_by (Name freshH3) (mkApp(eq,[|bb;mkApp(eqI,[|mkVar freshm;mkVar freshm|]);tt|])) (Tacticals.New.tclTHENLIST [ -- cgit v1.2.3