X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_transformations%2Fcontent2pres.ml;h=1616c21c8273d0bf15b9fc4ba39948a3e328e8c4;hb=60951dd6218b8436830723dc10d4aed7b6894855;hp=aa10e02ab5b47fb4f0980624bf27da3d6d58bb6b;hpb=ec350d553d0da4c2bdcf7504057ceb481217ac47;p=helm.git

diff --git a/helm/ocaml/cic_transformations/content2pres.ml b/helm/ocaml/cic_transformations/content2pres.ml
index aa10e02ab..1616c21c8 100644
--- a/helm/ocaml/cic_transformations/content2pres.ml
+++ b/helm/ocaml/cic_transformations/content2pres.ml
@@ -700,7 +700,7 @@ let content2pres term2pres (id,params,metasenv,obj) =
                        (id,n,context,ty) ->
                          P.Mtr []
                           [P.Mtd []
-                           (P.Mrow []
+                           (P.Mrow [Some "helm", "xref", id]
                              (List.map
                                (function
                                    (_,None) ->