X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_omdoc%2Feta_fixing.ml;h=d6293d2434ad61af36b7c94203a0cf7b6c8641c7;hb=c706b1cb2c7cbdd23a3281d35d3f0b10c3a684cf;hp=81668203dab55673c8fb2ab74c2ebbcac9a0753f;hpb=a2f4fa2a6a4b5dbd61ded904233c24ebc9a16c11;p=helm.git

diff --git a/helm/ocaml/cic_omdoc/eta_fixing.ml b/helm/ocaml/cic_omdoc/eta_fixing.ml
index 81668203d..d6293d243 100644
--- a/helm/ocaml/cic_omdoc/eta_fixing.ml
+++ b/helm/ocaml/cic_omdoc/eta_fixing.ml
@@ -261,7 +261,7 @@ let eta_fix metasenv t =
             List.map (fun (_,t) -> t) constructors 
           else 
 	    let term_type = 
-              TypeInference.type_of_aux' metasenv context term in
+              CicTypeChecker.type_of_aux' metasenv context term in
             (match term_type with
                C.Appl (hd::params) -> 
                  List.map (fun (_,t) -> clean_up t params) constructors