X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fgr_sor_tls.ma;h=33a55aa150516b362ea096dba5851a798321a9a4;hp=82e447995e709a8ea466807377aa5c611cd4e77d;hb=dc605ae41c39773f55381f241b1ed3db4acf5edd;hpb=caf822cbe34e204e6d1b72e272373b561c1a565a 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.