X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fgr_pat_lt.ma;h=648c27f7197fab9ae455defeb84997d582dbc38c;hb=8bbe582d87984526f40182c4409cbfd43108cb79;hp=50b59ce89f2f59cfb3f1923f87b675ace875c54b;hpb=55c768d7e45babb300b5010463ba3196a68f1bbe;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/gr_pat_lt.ma b/matita/matita/contribs/lambdadelta/ground/relocation/gr_pat_lt.ma
index 50b59ce89..648c27f71 100644
--- a/matita/matita/contribs/lambdadelta/ground/relocation/gr_pat_lt.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/gr_pat_lt.ma
@@ -16,9 +16,9 @@ include "ground/arith/pnat_pred.ma".
 include "ground/arith/pnat_lt.ma".
 include "ground/relocation/gr_pat.ma".
 
-(* POSITIVE APPLICATION FOR GENERIC RELOCATION MAPS ***********************************************************)
+(* POSITIVE APPLICATION FOR GENERIC RELOCATION MAPS *************************)
 
-(* Forward lemmas with plt and ple *****************************************************)
+(* Destructions with plt and ple ********************************************)
 
 (*** at_increasing *)
 lemma gr_pat_increasing (i2) (i1) (f):
@@ -40,14 +40,14 @@ lemma gr_pat_increasing_strict (g) (i1) (i2):
 qed-.
 
 (*** at_fwd_id_ex *)
-lemma gr_pat_des_id (f) (i): @❪i,f❫ ≘ i → ⫯⫱f = f.
+lemma gr_pat_des_id (f) (i): @❪i,f❫ ≘ i → ⫯⫰f = f.
 #f elim (gr_map_split_tl f) //
 #H #i #Hf elim (gr_pat_inv_next … Hf … H) -Hf -H
 #j2 #Hg #H destruct lapply (gr_pat_increasing … Hg) -Hg
 #H elim (plt_ge_false … H) -H //
 qed-.
 
-(* Properties with ple *********************************************************)
+(* Constructions with ple ***************************************************)
 
 (*** at_le_ex *)
 lemma gr_pat_le_ex (j2) (i2) (f):