update in ground

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

diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/pr_pat_eq.ma b/matita/matita/contribs/lambdadelta/ground/relocation/pr_pat_eq.ma
index 29620d121db2173d3a988b69c325a22b72e047b4..02af501de51c7bf4fc959c7b858c2c86d86c41e5 100644 (file)
--- a/matita/matita/contribs/lambdadelta/ground/relocation/pr_pat_eq.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/pr_pat_eq.ma
@@ -21,7 +21,7 @@ include "ground/relocation/pr_pat_lt.ma".
 
 (*** at_eq_repl_back *)
 corec lemma pr_pat_eq_repl_back (i1) (i2):
-            pr_eq_repl_back (λf. @❨i1,f❩ ≘ i2).
+            pr_eq_repl_back (λf. ＠⧣❨i1,f❩ ≘ i2).
 #f1 * -f1 -i1 -i2
 [ #f1 #g1 #j1 #j2 #H #H1 #H2 #f2 #H12
   cases (pr_eq_inv_push_sn … H12 … H) -g1 /2 width=2 by pr_pat_refl/
@@ -34,11 +34,11 @@ qed-.
 
 (*** at_eq_repl_fwd *)
 lemma pr_pat_eq_repl_fwd (i1) (i2):
-      pr_eq_repl_fwd (λf. @❨i1,f❩ ≘ i2).
+      pr_eq_repl_fwd (λf. ＠⧣❨i1,f❩ ≘ i2).
 #i1 #i2 @pr_eq_repl_sym /2 width=3 by pr_pat_eq_repl_back/
 qed-.
 
-lemma pr_pat_eq (f): ⫯f ≐ f → ∀i. @❨i,f❩ ≘ i.
+lemma pr_pat_eq (f): ⫯f ≐ f → ∀i. ＠⧣❨i,f❩ ≘ i.
 #f #Hf #i elim i -i
 [ /3 width=3 by pr_pat_eq_repl_back, pr_pat_refl/
 | /3 width=7 by pr_pat_eq_repl_back, pr_pat_push/
@@ -48,7 +48,7 @@ qed.
 (* Inversions with pr_eq ****************************************************)
 
 corec lemma pr_pat_inv_eq (f):
-            (∀i. @❨i,f❩ ≘ i) → ⫯f ≐ f.
+            (∀i. ＠⧣❨i,f❩ ≘ i) → ⫯f ≐ f.
 #Hf
 lapply (Hf (𝟏)) #H
 lapply (pr_pat_des_id … H) -H #H