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/names.ml | 1 -
 1 file changed, 1 deletion(-)

(limited to 'kernel/names.ml')

diff --git a/kernel/names.ml b/kernel/names.ml
index b349ccb009..4ccf5b60ae 100644
--- a/kernel/names.ml
+++ b/kernel/names.ml
@@ -571,7 +571,6 @@ let constr_modpath (ind,_) = ind_modpath ind
 
 let ith_mutual_inductive (mind, _) i = (mind, i)
 let ith_constructor_of_inductive ind i = (ind, i)
-let ith_constructor_of_pinductive (ind,u) i = ((ind,i),u)
 let inductive_of_constructor (ind, i) = ind
 let index_of_constructor (ind, i) = i
 
-- 
cgit v1.2.3