X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Ftr_uni_pap.ma;h=2a47c4ba87e59cc5c898eb597b633b4f1227a04d;hb=8f1a123e61ff079b1f9ad63cc915470ec7e6abf3;hp=aa99f8dc37d71baa1be71d6ce6dc634d6d66f10d;hpb=0818b903bf0fb363fab2d7d9f1da64956ea54e81;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/tr_uni_pap.ma b/matita/matita/contribs/lambdadelta/ground/relocation/tr_uni_pap.ma index aa99f8dc3..2a47c4ba8 100644 --- a/matita/matita/contribs/lambdadelta/ground/relocation/tr_uni_pap.ma +++ b/matita/matita/contribs/lambdadelta/ground/relocation/tr_uni_pap.ma @@ -21,11 +21,11 @@ include "ground/arith/nat_rplus_succ.ma". (* Coonstructions with tr_pap ***********************************************) lemma tr_uni_pap_unit (n): - ↑n = 𝐮❨n❩@❨𝟏❩. + ↑n = 𝐮❨n❩@⧣❨𝟏❩. // qed. lemma tr_uni_pap (n) (p): - p + n = 𝐮❨n❩@❨p❩. + p + n = 𝐮❨n❩@⧣❨p❩. #n @(nat_ind_succ … n) -n // #n #IH * [| #p ] // qed.