diff options
| author | herbelin | 2000-09-12 11:09:09 +0000 |
|---|---|---|
| committer | herbelin | 2000-09-12 11:09:09 +0000 |
| commit | 2db0bff13658a3173a88254c04e69b6bc8f87d25 (patch) | |
| tree | 6f1307ad7af5b7220d9f564b5b6cc4edefe9372a /dev | |
| parent | 6fcd224c128ae5e81f4cce9d5de1ac45883cfebf (diff) | |
MAJ
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@598 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/top_printers.ml | 3 |
1 files changed, 1 insertions, 2 deletions
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)^"),"^ |