Removing compatibility layers in Retyping

1 files changed, 0 insertions, 4 deletions

diff --git a/plugins/cc/cctac.ml b/plugins/cc/cctac.ml
index 7a99c45a8..a4ed4798a 100644
--- a/plugins/cc/cctac.ml
+++ b/plugins/cc/cctac.ml
@@ -264,7 +264,6 @@ let refresh_universes ty k =
     let env = Proofview.Goal.env gl in
     let evm = Tacmach.New.project gl in
     let evm, ty = refresh_type env evm ty in
-    let ty = EConstr.of_constr ty in
     Sigma.Unsafe.of_pair (k ty, evm)
   end }
 
@@ -387,7 +386,6 @@ let discriminate_tac (cstr,u as cstru) p =
     let trivial = EConstr.of_constr trivial in
     let evm = Tacmach.New.project gl in
     let evm, intype = refresh_type env evm (EConstr.of_constr (Tacmach.New.pf_unsafe_type_of gl t1)) in
-    let intype = EConstr.of_constr intype in
     let evm, outtype = Evd.new_sort_variable Evd.univ_flexible evm in
     let outtype = mkSort outtype in
     let pred = mkLambda(Name xid,outtype,mkRel 1) in
@@ -496,9 +494,7 @@ let mk_eq f c1 c2 k =
   Proofview.Goal.enter { enter = begin fun gl ->
     let open Tacmach.New in
     let evm, ty = pf_apply type_of gl c1 in
-    let ty = EConstr.of_constr ty in
     let evm, ty = Evarsolve.refresh_universes (Some false) (pf_env gl) evm ty in
-    let ty = EConstr.of_constr ty in
     let term = mkApp (fc, [| ty; c1; c2 |]) in
     let evm, _ =  type_of (pf_env gl) evm term in
     Tacticals.New.tclTHEN (Proofview.V82.tactic (Refiner.tclEVARS evm))