diff options
| author | Pierre-Marie Pédrot | 2014-09-04 17:58:12 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-09-05 11:59:42 +0200 |
| commit | 466c25ea43149deedf50e0105a6d1e69db91c8fd (patch) | |
| tree | 98d76bc6449162524c713554d9ee76afc55f1de1 /tactics | |
| parent | 8c54bdeec740fb9edd80e28ce743418bf1276b90 (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 6800ca71ed..e006404eba 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 -> @@ -2009,7 +2008,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 |