]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/ground/relocation/tr_uni_pap.ma
update in ground
[helm.git] / matita / matita / contribs / lambdadelta / ground / relocation / tr_uni_pap.ma
index aa99f8dc37d71baa1be71d6ce6dc634d6d66f10d..2a47c4ba87e59cc5c898eb597b633b4f1227a04d 100644 (file)
@@ -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.