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/reduction.ml | 8 --------
 1 file changed, 8 deletions(-)

(limited to 'kernel/reduction.ml')

diff --git a/kernel/reduction.ml b/kernel/reduction.ml
index 4153b323b6..b09367dd92 100644
--- a/kernel/reduction.ml
+++ b/kernel/reduction.ml
@@ -28,14 +28,6 @@ open Esubst
 
 let left2right = ref false
 
-let conv_key k =
-  match k with
-    VarKey id -> 
-    VarKey id
-  | ConstKey (cst,_) -> 
-     ConstKey cst
-  | RelKey n -> RelKey n
-		       
 let rec is_empty_stack = function
   [] -> true
   | Zupdate _::s -> is_empty_stack s
-- 
cgit v1.2.3