X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_omdoc%2FdoubleTypeInference.ml;fp=helm%2Focaml%2Fcic_omdoc%2FdoubleTypeInference.ml;h=362422cac59fa61509a66f76d5ce2fda950702c8;hb=854ab91c9da5a87346c28a25d9a410f5dc85d15d;hp=71422ced12d6190d09b2829d2f80d1fcffaef6c5;hpb=49d5e4fbf175050e4afdf26494eec5231c0eac8d;p=helm.git

diff --git a/helm/ocaml/cic_omdoc/doubleTypeInference.ml b/helm/ocaml/cic_omdoc/doubleTypeInference.ml
index 71422ced1..362422cac 100644
--- a/helm/ocaml/cic_omdoc/doubleTypeInference.ml
+++ b/helm/ocaml/cic_omdoc/doubleTypeInference.ml
@@ -426,7 +426,8 @@ let rec type_of_aux' subterms_to_types metasenv context t expectedty =
         let expected_hetype =
          (* Inefficient, the head is computed twice. But I know *)
          (* of no other solution.                               *)
-         R.whd context (CicTypeChecker.type_of_aux' metasenv context he)
+         (head_beta_reduce
+          (R.whd context (CicTypeChecker.type_of_aux' metasenv context he)))
         in
          let hetype = type_of_aux context he (Some expected_hetype) in
          let tlbody_and_type =