X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_omdoc%2FdoubleTypeInference.ml;h=362422cac59fa61509a66f76d5ce2fda950702c8;hb=1c7fb836e2af4f2f3d18afd0396701f2094265ff;hp=71422ced12d6190d09b2829d2f80d1fcffaef6c5;hpb=4bcd14a9ed245ccae631697a05ff5a377c02b179;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 =