diff options
| author | Pierre-Marie Pédrot | 2016-11-24 15:50:17 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-02-14 17:30:38 +0100 |
| commit | b36adb2124d3ba8a5547605e7f89bb0835d0ab10 (patch) | |
| tree | 4ab6481d8d182f6bb3dd241b7112a3027aa26b2a /ltac | |
| parent | ffb59901f568351401f2f3d1f3334031658b8880 (diff) | |
Removing some return type compatibility layers in Termops.
Diffstat (limited to 'ltac')
| -rw-r--r-- | ltac/rewrite.ml | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/ltac/rewrite.ml b/ltac/rewrite.ml index c92ddf9906..a7ff8e1425 100644 --- a/ltac/rewrite.ml +++ b/ltac/rewrite.ml @@ -94,7 +94,6 @@ let find_global dir s = fun (evd,cstrs) -> let sigma = Sigma.Unsafe.of_evar_map evd in let Sigma (c, sigma, _) = Evarutil.new_global sigma (Lazy.force gr) in - let c = EConstr.of_constr c in let evd = Sigma.to_evar_map sigma in (evd, cstrs), c @@ -206,7 +205,6 @@ end) = struct fun (evd,cstrs) -> let sigma = Sigma.Unsafe.of_evar_map evd in let Sigma (c, sigma, _) = Evarutil.new_global sigma (Lazy.force l) in - let c = EConstr.of_constr c in let evd = Sigma.to_evar_map sigma in (evd, cstrs), c @@ -215,7 +213,6 @@ end) = struct fun (evd,cstrs) -> let sigma = Sigma.Unsafe.of_evar_map evd in let Sigma (c, sigma, _) = Evarutil.new_global sigma (Lazy.force l) in - let c = EConstr.of_constr c in let evd = Sigma.to_evar_map sigma in (evd, cstrs), c |