X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fstatic%2Ffrees_drops.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fstatic%2Ffrees_drops.ma;h=bc5a7056babb2ba2b28e75aa6627e699554963f0;hb=c7b50fec51b9a25d5bc536f44e54179fd53efb44;hp=698427fee1c128d01cda3a9cef95264b05744cc2;hpb=adb9ba187619cea977d1d22971eba27eb437cd6a;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/static_2/static/frees_drops.ma b/matita/matita/contribs/lambdadelta/static_2/static/frees_drops.ma index 698427fee..bc5a7056b 100644 --- a/matita/matita/contribs/lambdadelta/static_2/static/frees_drops.ma +++ b/matita/matita/contribs/lambdadelta/static_2/static/frees_drops.ma @@ -20,7 +20,7 @@ include "static_2/static/frees_fqup.ma". (* Advanced properties ******************************************************) -lemma frees_atom_drops: +lemma frees_atom_drops: ∀b,L,i. ⇩*[b,𝐔❴i❵] L ≘ ⋆ → ∀f. 𝐈⦃f⦄ → L ⊢ 𝐅+⦃#i⦄ ≘ ⫯*[i]↑f. #b #L elim L -L /2 width=1 by frees_atom/ @@ -31,7 +31,7 @@ lemma frees_atom_drops: qed. lemma frees_pair_drops: - ∀f,K,V. K ⊢ 𝐅+⦃V⦄ ≘ f → + ∀f,K,V. K ⊢ 𝐅+⦃V⦄ ≘ f → ∀i,I,L. ⇩*[i] L ≘ K.ⓑ{I}V → L ⊢ 𝐅+⦃#i⦄ ≘ ⫯*[i] ↑f. #f #K #V #Hf #i elim i -i [ #I #L #H lapply (drops_fwd_isid … H ?) -H /2 width=1 by frees_pair/