]> matita.cs.unibo.it Git - helm.git/commitdiff
added a whd (nodelta) in the carr function used by the refiner (in the eat_prods...
authorEnrico Tassi <enrico.tassi@inria.fr>
Wed, 26 Apr 2006 09:16:01 +0000 (09:16 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Wed, 26 Apr 2006 09:16:01 +0000 (09:16 +0000)
to get the carrier of a coercion. this is useful in case of terms generated by paramodulation
(and we want to refine the proof letting the refiner add symmetry steps)
where we have ((\lambda x:A.P(x)) t) === P'(t)
and P/P' is M=N/N=M

helm/software/components/cic_unification/cicRefine.ml

index 3443c9b6ea90ebcf8af3286738e96a5188c4a85c..1f92a5fa881b95396c1eaf06fd2a06fdcc0fc1fc 100644 (file)
@@ -1182,7 +1182,8 @@ and type_of_aux' ?(localization_tbl = Cic.CicHash.create 1) metasenv context t
                        (* we search a coercion from hety to s *)
                        let coer, tgt_carr = 
                          let carr t subst context = 
-                           CicMetaSubst.apply_subst subst t 
+                           CicReduction.whd ~delta:false 
+                             context (CicMetaSubst.apply_subst subst t )
                          in
                          let c_hety = carr hety subst context in
                          let c_s = carr s subst context in