X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2FmatitaSync.ml;h=2547bbdfc1cbab499f2053dbf9326d476ab962a4;hb=dc861d214cb992a898f81752614201b8074eef12;hp=4df2ab7fbec0a41d0973feebf1cbed0cfb0cc658;hpb=6b5e1d495c61f459738187e8d71efadb162abdbe;p=helm.git

diff --git a/helm/matita/matitaSync.ml b/helm/matita/matitaSync.ml
index 4df2ab7fb..2547bbdfc 100644
--- a/helm/matita/matitaSync.ml
+++ b/helm/matita/matitaSync.ml
@@ -49,9 +49,12 @@ let alias_diff ~from status =
 let set_proof_aliases status aliases =
  let new_status = {status with aliases = aliases } in
  let diff = alias_diff ~from:status new_status in
- let moo_content_rev =
-  DisambiguatePp.pp_environment diff ::
-   status.moo_content_rev in
+ let textual_diff =
+  if DisambiguateTypes.Environment.is_empty diff then
+   ""
+  else
+   DisambiguatePp.pp_environment diff ^ "\n" in
+ let moo_content_rev = textual_diff :: status.moo_content_rev in
  {new_status with moo_content_rev = moo_content_rev}
   
 (** given a uri and a type list (the contructors types) builds a list of pairs