- cicUtil: is_sober now detects folded applications

[helm.git] / helm / software / matita / applyTransformation.ml

diff --git a/helm/software/matita/applyTransformation.ml b/helm/software/matita/applyTransformation.ml
index 2988af4211fa00143d85a84b2eeaa5de2424e545..d572a78d914fd0ef8a2fb1acc2e2de1b7e70e270 100644 (file)
--- 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