aboutsummaryrefslogtreecommitdiff
path: root/engine/proofview.ml
diff options
context:
space:
mode:
authorGaëtan Gilbert2019-05-13 12:49:39 +0200
committerGaëtan Gilbert2019-05-13 12:49:39 +0200
commitcfecef471c706beb50d70b951b148c9629a4064a (patch)
treed1ea20cc7b7af614311e2f4294a51a70e430971d /engine/proofview.ml
parentfe75c2ab9400a83b18fa73e95d4c24a79f88c97d (diff)
parent1cdaa823aa2db2f68cf63561a85771bb98aec70f (diff)
Merge PR #9887: [api] Remove 8.10 deprecations.
Reviewed-by: SkySkimmer
Diffstat (limited to 'engine/proofview.ml')
-rw-r--r--engine/proofview.ml7
1 files changed, 0 insertions, 7 deletions
diff --git a/engine/proofview.ml b/engine/proofview.ml
index f278c83912..ecea637947 100644
--- a/engine/proofview.ml
+++ b/engine/proofview.ml
@@ -1104,13 +1104,6 @@ module Goal = struct
tclZERO ~info e
end
end
-
- let normalize { self; state } =
- Env.get >>= fun env ->
- tclEVARMAP >>= fun sigma ->
- let (gl,sigma) = nf_gmake env sigma (goal_with_state self state) in
- tclTHEN (Unsafe.tclEVARS sigma) (tclUNIT gl)
-
let gmake env sigma goal =
let state = get_state goal in
let goal = drop_state goal in