X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fdelayed_updating%2Funwind%2Funwind2_prototerm_inner.ma;h=6ad293f0949c401f07c68136aeb0bcb623f374dd;hb=e4328f6887dc0235d49d965a5ba44787b1754b80;hp=cbb32a8b5023b2e61e129ef30abb1a449200bed1;hpb=23e56dd2f1ff99613b69e1ed2a9f26e752304290;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/delayed_updating/unwind/unwind2_prototerm_inner.ma b/matita/matita/contribs/lambdadelta/delayed_updating/unwind/unwind2_prototerm_inner.ma index cbb32a8b5..6ad293f09 100644 --- a/matita/matita/contribs/lambdadelta/delayed_updating/unwind/unwind2_prototerm_inner.ma +++ b/matita/matita/contribs/lambdadelta/delayed_updating/unwind/unwind2_prototerm_inner.ma @@ -18,11 +18,11 @@ include "ground/lib/subset_overlap.ma". (* TAILED UNWIND FOR PROTOTERM **********************************************) -(* Destructions with inner condition for path *******************************) +(* Destructions with pic ****************************************************) -lemma unwind2_term_des_inner (f) (t): +lemma unwind2_term_des_pic (f) (t): ▼[f]t ≬ 𝐈 → t ≬ 𝐈. #f #t * #p * #q #Hq #H0 #Hp destruct @(subset_ol_i … Hq) -Hq (**) (* auto does not work *) -@(unwind2_path_des_inner … Hp) +@(unwind2_path_des_pic … Hp) qed-.