X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fgr_after_pat_uni_tls.ma;h=fe12866684e6844f83cc7b839f6e4f01dcf165a2;hb=8bbe582d87984526f40182c4409cbfd43108cb79;hp=e8104fd3ee5ac7a2a602910364d3f4a0ab88e4ea;hpb=0bcf2dc1a27e38cb6cd3d44eb838d652926841e0;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/gr_after_pat_uni_tls.ma b/matita/matita/contribs/lambdadelta/ground/relocation/gr_after_pat_uni_tls.ma
index e8104fd3e..fe1286668 100644
--- a/matita/matita/contribs/lambdadelta/ground/relocation/gr_after_pat_uni_tls.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/gr_after_pat_uni_tls.ma
@@ -14,18 +14,18 @@
 
 include "ground/relocation/gr_tls.ma".
 include "ground/relocation/gr_pat.ma".
-(**) (* it should not depend on gr_isi *)
+(* * it should not depend on gr_isi *)
 include "ground/relocation/gr_isi_uni.ma".
 include "ground/relocation/gr_after_isi.ma".
 
-(* RELATIONAL COMPOSITION FOR GENERIC RELOCATION MAPS ***********************************************************)
+(* RELATIONAL COMPOSITION FOR GENERIC RELOCATION MAPS ***********************)
 
-(* Properties with pat and uni and tls *******************************************************)
+(* Constructions with gr_pat and gr_uni and gr_tls **************************)
 
 (*** after_uni_succ_dx *)
 lemma gr_after_pat_uni (i2) (i1):
       ∀f2. @❪i1, f2❫ ≘ i2 →
-      ∀f. f2 ⊚ 𝐮❨i1❩ ≘ f → 𝐮❨i2❩ ⊚ ⫱*[i2] f2 ≘ f.
+      ∀f. f2 ⊚ 𝐮❨i1❩ ≘ f → 𝐮❨i2❩ ⊚ ⫰*[i2] f2 ≘ f.
 #i2 elim i2 -i2
 [ #i1 #f2 #Hf2 #f #Hf
   elim (gr_pat_inv_unit_dx … Hf2) -Hf2 // #g2 #H1 #H2 destruct
@@ -47,7 +47,7 @@ qed.
 (*** after_uni_succ_sn *)
 lemma gr_pat_after_uni_tls (i2) (i1):
       ∀f2. @❪i1, f2❫ ≘ i2 →
-      ∀f. 𝐮❨i2❩ ⊚ ⫱*[i2] f2 ≘ f → f2 ⊚ 𝐮❨i1❩ ≘ f.
+      ∀f. 𝐮❨i2❩ ⊚ ⫰*[i2] f2 ≘ f → f2 ⊚ 𝐮❨i1❩ ≘ f.
 #i2 elim i2 -i2
 [ #i1 #f2 #Hf2 #f #Hf
   elim (gr_pat_inv_unit_dx … Hf2) -Hf2 // #g2 #H1 #H2 destruct
@@ -63,7 +63,7 @@ lemma gr_pat_after_uni_tls (i2) (i1):
 ]
 qed-.
 
-(* Advanced properties with uni *)
+(* Advanced constructions with gr_uni ***************************************)
 
 (*** after_uni_one_dx *)
 lemma gr_after_push_unit: