update in ground

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

diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/pr_pat_pat_id.ma b/matita/matita/contribs/lambdadelta/ground/relocation/pr_pat_pat_id.ma
index 3fb5d1789294be9fc974cdd66d280dd9a983a8dd..be80edf899c22f3efef1b899a57ccf70bb31ee2a 100644 (file)
--- a/matita/matita/contribs/lambdadelta/ground/relocation/pr_pat_pat_id.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/pr_pat_pat_id.ma
@@ -21,14 +21,14 @@ include "ground/relocation/pr_pat_pat.ma".
 
 (*** at_id_fwd *)
 lemma pr_pat_id_des (i1) (i2):
-      @❨i1,𝐢❩ ≘ i2 → i1 = i2.
+      ＠⧣❨i1,𝐢❩ ≘ i2 → i1 = i2.
 /2 width=4 by pr_pat_mono/ qed-.
 
 (* Main constructions with pr_id ********************************************)
 
 (*** at_div_id_dx *)
 theorem pr_pat_div_id_dx (f):
-        H_pr_pat_div f 𝐢 𝐢 f.
+        H_pr_pat_div f (𝐢 ) (𝐢) f.
 #f #jf #j0 #j #Hf #H0
 lapply (pr_pat_id_des … H0) -H0 #H destruct
 /2 width=3 by ex2_intro/
@@ -36,5 +36,5 @@ qed-.
 
 (*** at_div_id_sn *)
 theorem pr_pat_div_id_sn (f):
-        H_pr_pat_div 𝐢 f f 𝐢.
+        H_pr_pat_div (𝐢) f f (𝐢).
 /3 width=6 by pr_pat_div_id_dx, pr_pat_div_comm/ qed-.