]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/ground_2/relocation/rtmap_sdj.ma
update in ground_2, static_2, basic_2, apps_2, alpha_1
[helm.git] / matita / matita / contribs / lambdadelta / ground_2 / relocation / rtmap_sdj.ma
index bc0086a60534983b25d30005b146bb128785100c..330ad6e98104d133a058d4b940b828cd9a5960ab 100644 (file)
@@ -124,13 +124,13 @@ qed-.
 
 (* Properties with isid *****************************************************)
 
-corec lemma sdj_isid_dx: â\88\80f2. ð\9d\90\88â¦\83f2â¦\84 → ∀f1. f1 ∥ f2.
+corec lemma sdj_isid_dx: â\88\80f2. ð\9d\90\88â\9dªf2â\9d« → ∀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: â\88\80f1. ð\9d\90\88â¦\83f1â¦\84 → ∀f2. f1 ∥ f2.
+corec lemma sdj_isid_sn: â\88\80f1. ð\9d\90\88â\9dªf1â\9d« → ∀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: â\88\80f. f â\88¥ f â\86\92  ð\9d\90\88â¦\83fâ¦\84.
+corec lemma sdj_inv_refl: â\88\80f. f â\88¥ f â\86\92  ð\9d\90\88â\9dªfâ\9d«.
 #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)