From 777f0ace3d2458cbe1840dcf3d8f350452721e84 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Mon, 2 Feb 2015 09:30:53 +0100
Subject: Removing dead code.

---
 kernel/term_typing.ml | 5 -----
 1 file changed, 5 deletions(-)

(limited to 'kernel/term_typing.ml')

diff --git a/kernel/term_typing.ml b/kernel/term_typing.ml
index a3441aa3ec..b54511e402 100644
--- a/kernel/term_typing.ml
+++ b/kernel/term_typing.ml
@@ -15,7 +15,6 @@
 open Errors
 open Util
 open Names
-open Univ
 open Term
 open Context
 open Declarations
@@ -101,10 +100,6 @@ let hcons_j j =
 
 let feedback_completion_typecheck =
   Option.iter (fun state_id -> Pp.feedback ~state_id Feedback.Complete)
-  
-let subst_instance_j s j =
-  { uj_val = Vars.subst_univs_level_constr s j.uj_val;
-    uj_type = Vars.subst_univs_level_constr s j.uj_type }
 
 let infer_declaration env kn dcl =
   match dcl with
-- 
cgit v1.2.3