X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=inline;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fpr_isf_tl.ma;h=7bd5a8ac34ff29e3281b359d02048e95e5eab5e7;hb=b1c5b3370653db6e495bbf6b3799cba592746cdd;hp=3bb1a4e2b582c762c366103f046c8bff9db20f2e;hpb=f8b4eb67c2437f7b5174d7dca46e102e0ac0d19d;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/pr_isf_tl.ma b/matita/matita/contribs/lambdadelta/ground/relocation/pr_isf_tl.ma index 3bb1a4e2b..7bd5a8ac3 100644 --- a/matita/matita/contribs/lambdadelta/ground/relocation/pr_isf_tl.ma +++ b/matita/matita/contribs/lambdadelta/ground/relocation/pr_isf_tl.ma @@ -20,7 +20,7 @@ include "ground/relocation/pr_isf.ma". (* Constructions with pr_tl *************************************************) (*** isfin_tl *) -lemma pr_isf_tl (f): 𝐅❪f❫ → 𝐅❪⫰f❫. +lemma pr_isf_tl (f): 𝐅❨f❩ → 𝐅❨⫰f❩. #f elim (pr_map_split_tl f) * #Hf /3 width=3 by pr_isf_inv_push, pr_isf_inv_next/ qed. @@ -28,7 +28,7 @@ qed. (* Inversions with pr_tl ****************************************************) (*** isfin_inv_tl *) -lemma pr_isf_inv_tl (g): 𝐅❪⫰g❫ → 𝐅❪g❫. +lemma pr_isf_inv_tl (g): 𝐅❨⫰g❩ → 𝐅❨g❩. #f elim (pr_map_split_tl f) * #Hf /2 width=1 by pr_isf_next, pr_isf_push/ qed-.