aboutsummaryrefslogtreecommitdiffhomepage
path: root/library/dischargedhypsmap.ml
diff options
context:
space:
mode:
authorGravatar herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>2007-06-21 17:01:21 +0000
committerGravatar herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>2007-06-21 17:01:21 +0000
commitf2b9dfdfb72abb3b797bd651a5846a7e7c761847 (patch)
tree6a42b2ede058ded7671cc6fc17db1698ec3ca2fa /library/dischargedhypsmap.ml
parentbd5b2a45c2ef00d63fc84f5f1bc577fcb3a3d0d9 (diff)
Correction de plusieurs bugs de l'export XML (utilisation d'un type de
constante par defaut pour les nouveaux types plutot qu'echouer; avertissement plutot qu'echec en cas de foncteur; nommage systematique des LetIn -- p.ex. functional induction engendre des LetIn non nommes --; branchement de la fonction de normalisation de tete evitant CProp sur Closure au lieu de Tacred afin de garantir la f.n. de tete) git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9902 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/dischargedhypsmap.ml')
-rw-r--r--library/dischargedhypsmap.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/library/dischargedhypsmap.ml b/library/dischargedhypsmap.ml
index 2a2e69e91..4a28c2fa5 100644
--- a/library/dischargedhypsmap.ml
+++ b/library/dischargedhypsmap.ml
@@ -31,7 +31,7 @@ let get_discharged_hyps sp =
try
Spmap.find sp !discharged_hyps_map
with Not_found ->
- anomaly ("No discharged hypothesis for object " ^ string_of_path sp)
+ []
(*s Registration as global tables and rollback. *)