From 2db0bff13658a3173a88254c04e69b6bc8f87d25 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 12 Sep 2000 11:09:09 +0000
Subject: MAJ

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@598 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 dev/top_printers.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'dev')

diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index ff592ed944..467ba78d72 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -9,7 +9,7 @@ open Sign
 open Univ
 open Proof_trees
 open Environ
-(*i open Generic i*)
+(* open Generic *)
 open Printer
 open Refiner
 open Tacmach
@@ -101,7 +101,6 @@ let constr_display csr =
     | Lambda -> "Lambda"
     | AppL -> "AppL"
     | Const sp -> "Const("^(string_of_path sp)^")"
-    | Abst sp -> "Abst("^(string_of_path sp)^")"
     | MutInd(sp,i) -> "MutInd("^(string_of_path sp)^","^(string_of_int i)^")"
     | MutConstruct((sp,i),j) ->
         "MutConstruct(("^(string_of_path sp)^","^(string_of_int i)^"),"^
-- 
cgit v1.2.3