]> matita.cs.unibo.it Git - helm.git/commitdiff
the type of the match was obtained reducing the outtype
authorEnrico Tassi <enrico.tassi@inria.fr>
Thu, 29 May 2008 09:43:47 +0000 (09:43 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Thu, 29 May 2008 09:43:47 +0000 (09:43 +0000)
applied to right + matched with whd ~delta:true that
is not what you want. replaced with head_beta_reduce.

helm/software/components/cic_unification/cicRefine.ml

index 04d9d7224d6430a274e300d94bc59bde2b295b7f..a1a7bdea8ebe9f5861bb602d61fd13cf7e390abe 100644 (file)
@@ -801,7 +801,8 @@ and type_of_aux' ?(clean_dummy_dependent_types=true) ?(localization_tbl = Cic.Ci
                         in
                           C.Appl (outtype'::args)
                       in
-                        CicReduction.whd ~subst context appl
+                        CicReduction.head_beta_reduce ~delta:false 
+                          ~upto:(List.length args) appl 
                     in
                      try
                       fo_unif_subst subst context metasenv instance instance'