X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fcic_unification%2FcicRefine.ml;h=54055ebb6478633c47f3e2f952b6f1c11a707c93;hb=69c5a60dfa385a3d0e270ed38eb0d970366792c5;hp=1f2a8a19ef771005df2135e2db894e046c7aca4a;hpb=09de5a3a4798311d04cb8ac1df5c7eeb87b59eba;p=helm.git

diff --git a/helm/software/components/cic_unification/cicRefine.ml b/helm/software/components/cic_unification/cicRefine.ml
index 1f2a8a19e..54055ebb6 100644
--- a/helm/software/components/cic_unification/cicRefine.ml
+++ b/helm/software/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