From 854ab91c9da5a87346c28a25d9a410f5dc85d15d Mon Sep 17 00:00:00 2001 From: Andrea Asperti Date: Thu, 24 Jul 2003 14:06:03 +0000 Subject: [PATCH] Complete beta reduction added to avoid strange case of deep beta-redexes in the expected types of application heads. --- helm/ocaml/cic_omdoc/doubleTypeInference.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 = -- 2.39.2