X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground_2%2Frelocation%2Frtmap_sdj.ma;h=330ad6e98104d133a058d4b940b828cd9a5960ab;hp=bc0086a60534983b25d30005b146bb128785100c;hb=bd53c4e895203eb049e75434f638f26b5a161a2b;hpb=3b7b8afcb429a60d716d5226a5b6ab0d003228b1

diff --git a/matita/matita/contribs/lambdadelta/ground_2/relocation/rtmap_sdj.ma b/matita/matita/contribs/lambdadelta/ground_2/relocation/rtmap_sdj.ma
index bc0086a60..330ad6e98 100644
--- a/matita/matita/contribs/lambdadelta/ground_2/relocation/rtmap_sdj.ma
+++ b/matita/matita/contribs/lambdadelta/ground_2/relocation/rtmap_sdj.ma
@@ -124,13 +124,13 @@ qed-.
 
 (* Properties with isid *****************************************************)
 
-corec lemma sdj_isid_dx: ∀f2. 𝐈⦃f2⦄ → ∀f1. f1 ∥ f2.
+corec lemma sdj_isid_dx: ∀f2. 𝐈❪f2❫ → ∀f1. f1 ∥ f2.
 #f2 * -f2
 #f2 #g2 #Hf2 #H2 #f1 cases (pn_split f1) *
 /3 width=5 by sdj_np, sdj_pp/
 qed.
 
-corec lemma sdj_isid_sn: ∀f1. 𝐈⦃f1⦄ → ∀f2. f1 ∥ f2.
+corec lemma sdj_isid_sn: ∀f1. 𝐈❪f1❫ → ∀f2. f1 ∥ f2.
 #f1 * -f1
 #f1 #g1 #Hf1 #H1 #f2 cases (pn_split f2) *
 /3 width=5 by sdj_pn, sdj_pp/
@@ -138,7 +138,7 @@ qed.
 
 (* Inversion lemmas with isid ***********************************************)
 
-corec lemma sdj_inv_refl: ∀f. f ∥ f →  𝐈⦃f⦄.
+corec lemma sdj_inv_refl: ∀f. f ∥ f →  𝐈❪f❫.
 #f cases (pn_split f) * #g #Hg #H
 [ lapply (sdj_inv_pp … H … Hg Hg) -H /3 width=3 by isid_push/
 | elim (sdj_inv_nn … H … Hg Hg)