diff options
| -rw-r--r-- | parsing/termast.ml | 3 | ||||
| -rw-r--r-- | proofs/refiner.ml | 2 |
2 files changed, 2 insertions, 3 deletions
diff --git a/parsing/termast.ml b/parsing/termast.ml index c3608b5eea..239dd9fc1a 100644 --- a/parsing/termast.ml +++ b/parsing/termast.ml @@ -313,8 +313,7 @@ let ast_of_rawconstr = ast_of_raw let ast_of_constr at_top env t = let t' = if !print_casts then t - else Reduction.strong (fun _ _ -> strip_outer_cast) - empty_env Evd.empty t in + else Reduction.local_strong strip_outer_cast t in let avoid = if at_top then ids_of_context env else [] in ast_of_raw (Detyping.detype avoid (names_of_rel_context env) t') diff --git a/proofs/refiner.ml b/proofs/refiner.ml index f54a8abb0f..1f2a412a2e 100644 --- a/proofs/refiner.ml +++ b/proofs/refiner.ml @@ -681,7 +681,7 @@ let extract_pftreestate pts = if subgoals <> [] then errorlabstrm "extract_proof" [< 'sTR "Attempt to save an incomplete proof" >]; - strong whd_betaiotaevar pts.tpf.goal.evar_env (ts_it pts.tpfsigma) pfterm + local_strong (whd_betaiotaevar (ts_it pts.tpfsigma)) pfterm (* Focus on the first leaf proof in a proof-tree state *) |