From: Andrea Asperti <andrea.asperti@unibo.it>
Date: Thu, 24 Jul 2003 14:06:03 +0000 (+0000)
Subject: Complete beta reduction added to avoid strange case of deep beta-redexes
X-Git-Tag: LucaOK~33
X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=commitdiff_plain;h=854ab91c9da5a87346c28a25d9a410f5dc85d15d

Complete beta reduction added to avoid strange case of deep beta-redexes
in the expected types of application heads.
---

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 =