X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2FapplyTransformation.ml;h=5ee48f3da7f100815d7a151e3621c3b2b4467de4;hb=f6c887944d48d718f372a57f1609f3d059908aa8;hp=f5f279e73dd55d6c819083562cfc6d16c39bdc64;hpb=14e2489ae86ecb6467fe9a7ba3b742a8d53c47ea;p=helm.git

diff --git a/helm/software/matita/applyTransformation.ml b/helm/software/matita/applyTransformation.ml
index f5f279e73..5ee48f3da 100644
--- a/helm/software/matita/applyTransformation.ml
+++ b/helm/software/matita/applyTransformation.ml
@@ -235,7 +235,8 @@ let txt_of_cic_object
 	   ~map_unicode_to_tex ~term_pp ~lazy_term_pp ~obj_pp
      in
      let aux = function
-	| G.Executable (_, G.Command (_, G.Obj (_, N.Inductive _))) as stm
+	| G.Executable (_, G.Command (_, G.Obj (_, N.Inductive _)))
+	| G.Executable (_, G.Command (_, G.Obj (_, N.Record _))) as stm
 	      -> 	   
 	   let hc = !Acic2content.hide_coercions in
 	   if List.mem G.IPCoercions params then 
@@ -245,7 +246,7 @@ let txt_of_cic_object
 	   enable_notations true;
 	   Acic2content.hide_coercions := hc;
 	   str
-(* FG: we disable notation for Inductive to avoid recursive notation *) 
+(* FG: we disable notation for inductive types to avoid recursive notation *) 
 	| G.Executable (_, G.Tactic _) as stm -> 
 	   let hc = !Acic2content.hide_coercions in
 	   Acic2content.hide_coercions := false;