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=513c4a61f11ce03888a8a0f9d8e513de6e3a7c8b;hp=828f9905be6b57891e40278c62d50b8a681a149e;hpb=3729defa81f91b5f1259d628299bce9dbc5bfb7f;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 828f9905b..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 @@ -13,16 +13,16 @@ (**************************************************************************) include "delayed_updating/unwind/unwind2_prototerm.ma". -include "delayed_updating/unwind/unwind2_path_structure.ma". +include "delayed_updating/unwind/unwind2_path_append.ma". include "ground/lib/subset_overlap.ma". -(* UNWIND FOR PROTOTERM *****************************************************) +(* 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-.