update in ground and static_2

[helm.git] / matita / matita / contribs / lambdadelta / static_2 / relocation / drops.ma

diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/drops.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/drops.ma
index ec5c691911bdf243a193e613d2d3de91813207b7..407f8cc4f30adcac171cd55e70e367e4077f650f 100644 (file)
--- a/matita/matita/contribs/lambdadelta/static_2/relocation/drops.ma
+++ b/matita/matita/contribs/lambdadelta/static_2/relocation/drops.ma
@@ -217,7 +217,7 @@ fact drops_fwd_drop2_aux: ∀b,f2,X,Y. ⇩*[b,f2] X ≘ Y → ∀I,K. Y = K.ⓘ[
 | #f2 #I #L1 #L2 #_ #IHL #J #K #H elim (IHL … H) -IHL
   /3 width=7 by after_next, ex3_2_intro, drops_drop/
 | #f2 #I1 #I2 #L1 #L2 #HL #_ #_ #J #K #H destruct
-  lapply (after_isid_dx ð\9d\90\88ð\9d\90\9d … f2) /3 width=9 by after_push, ex3_2_intro, drops_drop/
+  lapply (after_isid_dx ð\9d\90¢ … f2) /3 width=9 by after_push, ex3_2_intro, drops_drop/
 ]
 qed-.
 
@@ -419,12 +419,12 @@ qed-.
 (* Properties with application **********************************************)
 
 lemma drops_tls_at: ∀f,i1,i2. @❪i1,f❫ ≘ i2 →
-                    â\88\80b,L1,L2. â\87©*[b,⫱*[i2]f] L1 ≘ L2 →
-                    â\87©*[b,⫯⫱*[↑i2]f] L1 ≘ L2.
+                    â\88\80b,L1,L2. â\87©*[b,â«°*[i2]f] L1 ≘ L2 →
+                    â\87©*[b,⫯⫰*[↑i2]f] L1 ≘ L2.
 /3 width=3 by drops_eq_repl_fwd, at_inv_tls/ qed-.
 
 lemma drops_split_trans_bind2: ∀b,f,I,L,K0. ⇩*[b,f] L ≘ K0.ⓘ[I] → ∀i. @❪O,f❫ ≘ i →
-                               â\88\83â\88\83J,K. â\87©[i]L â\89\98 K.â\93\98[J] & â\87©*[b,⫱*[â\86\91i]f] K â\89\98 K0 & â\87§*[⫱*[↑i]f] I ≘ J.
+                               â\88\83â\88\83J,K. â\87©[i]L â\89\98 K.â\93\98[J] & â\87©*[b,â«°*[â\86\91i]f] K â\89\98 K0 & â\87§*[â«°*[↑i]f] I ≘ J.
 #b #f #I #L #K0 #H #i #Hf
 elim (drops_split_trans … H) -H [ |5: @(after_uni_dx … Hf) |2,3: skip ] /2 width=1 by after_isid_dx/ #Y #HLY #H
 lapply (drops_tls_at … Hf … H) -H #H