]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/ground/relocation/tr_pap_pat.ma
update in ground
[helm.git] / matita / matita / contribs / lambdadelta / ground / relocation / tr_pap_pat.ma
index 90dd95a77c2e421ffc016e9aec4dc1e7ad0dc7bd..6e5d0c6e6bd4757fa4db552dad214a6d123fa0c1 100644 (file)
@@ -21,7 +21,7 @@ include "ground/relocation/tr_pap.ma".
 (* Constructions with pr_pat ***********************************************)
 
 (*** at_total *)
-lemma tr_pat_total: ∀i1,f. @❨i1,𝐭❨f❩❩ ≘ f@❨i1❩.
+lemma tr_pat_total: ∀i1,f. @⧣❨i1,𝐭❨f❩❩ ≘ f@⧣❨i1❩.
 #i1 elim i1 -i1
 [ * // | #i #IH * /3 width=1 by tr_pat_succ_sn/ ]
 qed.
@@ -30,5 +30,5 @@ qed.
 
 (*** at_inv_total *)
 lemma tr_pat_inv_total (f):
-      ∀i1,i2. @❨i1, 𝐭❨f❩❩ ≘ i2 → f@❨i1❩ = i2.
+      ∀i1,i2. @⧣❨i1, 𝐭❨f❩❩ ≘ i2 → f@⧣❨i1❩ = i2.
 /2 width=6 by pr_pat_mono/ qed-.