X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2FapplyTransformation.ml;h=6e92cfa95a43fbfc35acf6f01eb622d560286fee;hb=7fed865c7cd7ea742a360158a931a3fa734ee446;hp=fe8d9e569d24a38a62c77b1d2bc1c1b310e62288;hpb=890221127070350c2e33aa4685398b03258aa847;p=helm.git

diff --git a/matita/applyTransformation.ml b/matita/applyTransformation.ml
index fe8d9e569..6e92cfa95 100644
--- a/matita/applyTransformation.ml
+++ b/matita/applyTransformation.ml
@@ -78,7 +78,7 @@ let txt_of_cic_sequent_conclusion size metasenv sequent =
   let t, ids_to_uris = TermAcicContent.ast_of_acic ids_to_inner_sorts t in
   let t = TermContentPres.pp_ast t in
   let t = CicNotationPres.render ids_to_uris t in
-  BoxPp.render_to_string size t
+  BoxPp.render_to_string (function x::_ -> x | _ -> assert false) size t
 
 let txt_of_cic_term size metasenv context t = 
   let fake_sequent = (-1,context,t) in