From 248d290aa9313501a857a4d3bd9f3d0dc7dc5b4f Mon Sep 17 00:00:00 2001
From: Cyprien Mangin
Date: Fri, 19 Jan 2018 10:15:27 +0100
Subject: Define EConstr version of [push_rec_types].

---
 pretyping/typing.ml | 5 -----
 1 file changed, 5 deletions(-)

(limited to 'pretyping/typing.ml')

diff --git a/pretyping/typing.ml b/pretyping/typing.ml
index 43066c8099..3132d2ad53 100644
--- a/pretyping/typing.ml
+++ b/pretyping/typing.ml
@@ -23,11 +23,6 @@ open Arguments_renaming
 open Pretype_errors
 open Context.Rel.Declaration
 
-let push_rec_types pfix env =
-  let (i, c, t) = pfix in
-  let inj c = EConstr.Unsafe.to_constr c in
-  push_rec_types (i, Array.map inj c, Array.map inj t) env
-
 let meta_type evd mv =
   let ty =
     try Evd.meta_ftype evd mv
-- 
cgit v1.2.3