update in ground

[helm.git] / matita / matita / contribs / lambdadelta / ground / relocation / pr_ist_ist.ma

diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/pr_ist_ist.ma b/matita/matita/contribs/lambdadelta/ground/relocation/pr_ist_ist.ma
index 0b4a769f84859c0381e4516d5533ba21836d27ab..dd2380cb726b1fbd8b532aa0e2e30c55a033769e 100644 (file)
--- a/matita/matita/contribs/lambdadelta/ground/relocation/pr_ist_ist.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/pr_ist_ist.ma
@@ -23,7 +23,7 @@ include "ground/relocation/pr_ist.ma".
 (* Advanced constructions with pr_pat ***************************************)
 
 (*** at_dec *)
-lemma pr_pat_dec (f) (i1) (i2): ð\9d\90\93â\9dªfâ\9d« â\86\92 Decidable (@â\9dªi1,fâ\9d« ≘ i2).
+lemma pr_pat_dec (f) (i1) (i2): ð\9d\90\93â\9d¨fâ\9d© â\86\92 Decidable (ï¼ â§£â\9d¨i1,fâ\9d© ≘ i2).
 #f #i1 #i2 #Hf lapply (Hf i1) -Hf *
 #j2 #Hf elim (eq_pnat_dec i2 j2)
 [ #H destruct /2 width=1 by or_introl/
@@ -32,9 +32,9 @@ lemma pr_pat_dec (f) (i1) (i2): 𝐓❪f❫ → Decidable (@❪i1,f❫ ≘ i2).
 qed-.
 
 (*** is_at_dec *)
-lemma is_pr_pat_dec (f) (i2): ð\9d\90\93â\9dªfâ\9d« â\86\92 Decidable (â\88\83i1. @â\9dªi1,fâ\9d« ≘ i2).
+lemma is_pr_pat_dec (f) (i2): ð\9d\90\93â\9d¨fâ\9d© â\86\92 Decidable (â\88\83i1. ï¼ â§£â\9d¨i1,fâ\9d© ≘ i2).
 #f #i2 #Hf
-lapply (dec_plt (λi1.@❪i1,f❫ ≘ i2) … (↑i2)) [| * ]
+lapply (dec_plt (λi1.＠⧣❨i1,f❩ ≘ i2) … (↑i2)) [| * ]
 [ /2 width=1 by pr_pat_dec/
 | * /3 width=2 by ex_intro, or_introl/
 | #H @or_intror * #i1 #Hi12
@@ -45,9 +45,9 @@ qed-.
 (* Main destructions with pr_pat ********************************************)
 
 (*** at_ext *)
-corec theorem pr_eq_ext_pat (f1) (f2): ð\9d\90\93â\9dªf1â\9d« â\86\92 ð\9d\90\93â\9dªf2â\9d« →
-              (∀i,i1,i2. @❪i,f1❫ ≘ i1 → @❪i,f2❫ ≘ i2 → i1 = i2) →
-              f1 â\89¡ f2.
+corec theorem pr_eq_ext_pat (f1) (f2): ð\9d\90\93â\9d¨f1â\9d© â\86\92 ð\9d\90\93â\9d¨f2â\9d© →
+              (∀i,i1,i2. ＠⧣❨i,f1❩ ≘ i1 → ＠⧣❨i,f2❩ ≘ i2 → i1 = i2) →
+              f1 â\89\90 f2.
 cases (pr_map_split_tl f1) #H1
 cases (pr_map_split_tl f2) #H2
 #Hf1 #Hf2 #Hi
@@ -70,7 +70,7 @@ qed-.
 
 (* Advanced constructions with pr_nat ***************************************)
 
-lemma is_pr_nat_dec (f) (l2): ð\9d\90\93â\9dªfâ\9d« â\86\92 Decidable (â\88\83l1. @â\86\91â\9dªl1,fâ\9d« ≘ l2).
+lemma is_pr_nat_dec (f) (l2): ð\9d\90\93â\9d¨fâ\9d© â\86\92 Decidable (â\88\83l1. ï¼ Â§â\9d¨l1,fâ\9d© ≘ l2).
 #f #l2 #Hf elim (is_pr_pat_dec … (↑l2) Hf)
 [ * /3 width=2 by ex_intro, or_introl/
 | #H @or_intror * /3 width=2 by ex_intro/