X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2FapplyTransformation.ml;h=d572a78d914fd0ef8a2fb1acc2e2de1b7e70e270;hb=e78cf74f8976cf0ca554f64baa9979d0423ee927;hp=2988af4211fa00143d85a84b2eeaa5de2424e545;hpb=d3548c16f481b14ce94e64c790bc767c59590050;p=helm.git

diff --git a/helm/software/matita/applyTransformation.ml b/helm/software/matita/applyTransformation.ml
index 2988af421..d572a78d9 100644
--- a/helm/software/matita/applyTransformation.ml
+++ b/helm/software/matita/applyTransformation.ml
@@ -222,11 +222,20 @@ let txt_of_cic_object
      in
      let aux = function
 	| G.Executable (_, G.Command (_, G.Obj (_, N.Inductive _))) as stm
-	      -> 
+	      -> 	   
 	   enable_notations false;
-	   let str = stm_pp stm in enable_notations true; str
+	   let str = stm_pp stm in 
+	   enable_notations true;
+	   str
 (* FG: we disable notation for Inductive to avoid recursive notation *) 
-	| stm -> stm_pp stm 
+	| G.Executable (_, G.Tactic _) as stm -> 
+	   let hc = !Acic2content.hide_coercions in
+	   Acic2content.hide_coercions := false;
+	   let str = stm_pp stm in
+	   Acic2content.hide_coercions := hc;
+           str
+(* FG: we show coercion because the reconstruction is not aware of them *)
+	| stm -> stm_pp stm
      in
      let script = 
         Acic2Procedural.procedural_of_acic_object