diff options
| author | Pierre-Marie Pédrot | 2014-09-04 17:58:12 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-09-04 18:06:16 +0200 |
| commit | 6828b31acdf10cf7987f0e494f6f7505a15b1000 (patch) | |
| tree | 98497c88a99aaa7453b605c30957a28b4916937c /tactics | |
| parent | 99a70a4e2e19441f29667b243b232f5f9f1059a2 (diff) | |
Removing the old implementation of clear_body.
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tactics.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index c7eb811832..353d35f6a2 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -138,7 +138,6 @@ let introduction = Tacmach.introduction let refine = Tacmach.refine let convert_concl = Tacmach.convert_concl let convert_hyp = Tacmach.convert_hyp -let thin_body = Tacmach.thin_body let convert_gen pb x y = Proofview.Goal.raw_enter begin fun gl -> @@ -2016,7 +2015,7 @@ let letin_tac_gen with_eq abs ty = sigma, term, Tacticals.New.tclTHEN (intro_gen (NamingMustBe (loc,heq)) (decode_hyp lastlhyp) true false) - (Proofview.V82.tactic (thin_body [heq;id])) + (clear_body [heq;id]) | None -> (Proofview.Goal.sigma gl, mkNamedLetIn id c t ccl, Proofview.tclUNIT ()) in Tacticals.New.tclTHEN |