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/equality.ml | |
| 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/equality.ml')
| -rw-r--r-- | tactics/equality.ml | 2 |
1 files changed, 1 insertions, 1 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 |