X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fgr_sor_tls.ma;h=33a55aa150516b362ea096dba5851a798321a9a4;hb=8bbe582d87984526f40182c4409cbfd43108cb79;hp=82e447995e709a8ea466807377aa5c611cd4e77d;hpb=2ed8d2abcc3b0687141b627061b63350a0b200bd;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/gr_sor_tls.ma b/matita/matita/contribs/lambdadelta/ground/relocation/gr_sor_tls.ma index 82e447995..33a55aa15 100644 --- a/matita/matita/contribs/lambdadelta/ground/relocation/gr_sor_tls.ma +++ b/matita/matita/contribs/lambdadelta/ground/relocation/gr_sor_tls.ma @@ -22,7 +22,7 @@ include "ground/relocation/gr_sor.ma". (*** sor_tls *) lemma gr_sor_tls: ∀f1,f2,f. f1 ⋓ f2 ≘ f → - ∀n. ⫱*[n]f1 ⋓ ⫱*[n]f2 ≘ ⫱*[n]f. + ∀n. ⫰*[n]f1 ⋓ ⫰*[n]f2 ≘ ⫰*[n]f. #f1 #f2 #f #Hf #n @(nat_ind_succ … n) -n /2 width=1 by gr_sor_tl/ qed.