From bd0219b62a60cfc58c3c25858b41a005727c68be Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 13 Apr 2008 21:41:54 +0000
Subject: Bugs, nettoyage, et améliorations diverses - vérification de la
 cohérence des ident pour éviter une option -R   avec des noms non parsables
 (la vérification est faite dans   id_of_string ce qui est très exigeant;
 faudrait-il une solution plus   souple ?) - correction message d'erreur
 inapproprié dans le apply qui descend dans les   conjonctions - nettoyage
 autour de l'échec en présence de métas dans le prim_refiner - nouveau message
 d'erreur quand des variables ne peuvent être instanciées - quelques
 simplifications et davantage de robustesse dans inversion - factorisation du
 code de constructor and co avec celui de econstructor and co

Documentation des tactiques
- edestruct/einduction/ecase/eelim et nouveautés apply
- nouvelle sémantique des intropatterns disjonctifs et documentation des
  pattern -> et <-
- relecture de certaines parties du chapitre tactique


git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10785 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 dev/base_include    | 1 +
 dev/db              | 1 +
 dev/top_printers.ml | 4 +++-
 3 files changed, 5 insertions(+), 1 deletion(-)

(limited to 'dev')

diff --git a/dev/base_include b/dev/base_include
index 792330726b..83e23d29f5 100644
--- a/dev/base_include
+++ b/dev/base_include
@@ -19,6 +19,7 @@
 
 #install_printer  (* identifier *) ppid;;
 #install_printer  (* identifier *) ppidset;;
+#install_printer  (* Intset.t *) ppintset;;
 #install_printer  (* label *) pplab;;
 #install_printer  (* mod_self_id *) ppmsid;;
 #install_printer  (* mod_bound_id *) ppmbid;;
diff --git a/dev/db b/dev/db
index dc323ec474..e668f1e869 100644
--- a/dev/db
+++ b/dev/db
@@ -3,6 +3,7 @@ load_printer "printers.cma"
 
 install_printer Top_printers.ppid
 install_printer Top_printers.ppidset
+install_printer Top_printers.ppintset
 install_printer Top_printers.pplab
 install_printer Top_printers.ppmsid
 install_printer Top_printers.ppmbid
diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index 07dda42b85..c06738226b 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -62,7 +62,9 @@ let ppfconstr c = ppconstr (Closure.term_of_fconstr c)
 
 let ppbigint n = pp (Bigint.pr_bigint n);;
 
-let ppidset l = pp (prlist_with_sep spc pr_id (Idset.elements l))
+let prset pr l = str "[" ++ prlist_with_sep spc pr l ++ str "]"
+let ppintset l = pp (prset int (Intset.elements l))
+let ppidset l = pp (prset pr_id (Idset.elements l))
 
 let pP s = pp (hov 0 s)
 
-- 
cgit v1.2.3