X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Ffr2_plus.ma;h=4595600353097bbfe584fbfe6edc1a9daa101951;hp=0297be7bd4cdf8896dba5268c15ef0d6548d7594;hb=2ed8d2abcc3b0687141b627061b63350a0b200bd;hpb=b367de0252e88d6b0476648d5ceac7e4aeffca27

diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/fr2_plus.ma b/matita/matita/contribs/lambdadelta/ground/relocation/fr2_plus.ma
index 0297be7bd..459560035 100644
--- a/matita/matita/contribs/lambdadelta/ground/relocation/fr2_plus.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/fr2_plus.ma
@@ -15,7 +15,7 @@
 include "ground/arith/nat_minus_plus.ma".
 include "ground/relocation/fr2_map.ma".
 
-(* ADDITION FOR FINITE RELOCATION MAPS WITH PAIRS ******************************)
+(* ADDITION FOR FINITE RELOCATION MAPS WITH PAIRS ***************************)
 
 (* Note: this is pushs *)
 (*** pluss *)
@@ -28,14 +28,14 @@ interpretation
   "plus (finite relocation maps with pairs)"
   'plus f n = (fr2_plus f n).
 
-(* Basic properties *********************************************************)
+(* Basic constructions ******************************************************)
 
 (*** pluss_SO2 *)
 lemma fr2_plus_cons_unit (d) (h) (f):
       ((❨d,h❩;f)+𝟏) = ❨↑d,h❩;f+𝟏.
 normalize // qed.
 
-(* Basic inversion lemmas ***************************************************)
+(* Basic inversions *********************************************************)
 
 (*** pluss_inv_nil2 *)
 lemma fr2_plus_inv_nil_dx (n) (f):