X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=components%2Fcic_unification%2FcicRefine.ml;h=54055ebb6478633c47f3e2f952b6f1c11a707c93;hb=a277e8ea1a71fe80b771650409cda5efdf47667c;hp=1f2a8a19ef771005df2135e2db894e046c7aca4a;hpb=3234ad630868fed918d9f3408da53e39e507d3d9;p=helm.git

diff --git a/components/cic_unification/cicRefine.ml b/components/cic_unification/cicRefine.ml
index 1f2a8a19e..54055ebb6 100644
--- a/components/cic_unification/cicRefine.ml
+++ b/components/cic_unification/cicRefine.ml
@@ -1470,8 +1470,8 @@ prerr_endline ("poco geniale: nel caso di IRL basterebbe sapere che questo e' il
                            context ^ " has type " ^
                           CicMetaSubst.ppterm_in_context subst hety
                            context ^ " but is here used with type " ^
-                          CicMetaSubst.ppterm_in_context subst s context ^
-                           "\nReason: " ^ Printexc.to_string exn))) exn
+                          CicMetaSubst.ppterm_in_context subst s context
+                           (* "\nReason: " ^ Printexc.to_string exn*)))) exn
                   (* }}} end coercion stuff *)
                 in
                   eat_prods_and_args pristinemenv metasenv subst context pristinehe he