X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fgr_fcla.ma;h=5ab8b1decef58cd34ecf2fc2d766f06112897830;hp=8a533cbe1bfefaf5ea0945d533d9ef5ba65a4a32;hb=2ed8d2abcc3b0687141b627061b63350a0b200bd;hpb=b367de0252e88d6b0476648d5ceac7e4aeffca27

diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/gr_fcla.ma b/matita/matita/contribs/lambdadelta/ground/relocation/gr_fcla.ma
index 8a533cbe1..5ab8b1dec 100644
--- a/matita/matita/contribs/lambdadelta/ground/relocation/gr_fcla.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/gr_fcla.ma
@@ -16,7 +16,7 @@ include "ground/notation/relations/rfun_c_2.ma".
 include "ground/arith/nat_succ.ma".
 include "ground/relocation/gr_isi.ma".
 
-(* FINITE COLENGTH ASSIGNMENT FOR GENERIC RELOCATION MAPS  ***********************************************************)
+(* FINITE COLENGTH ASSIGNMENT FOR GENERIC RELOCATION MAPS *******************)
 
 (*** fcla *)
 inductive gr_fcla: relation2 gr_map nat ≝
@@ -32,7 +32,7 @@ interpretation
   "finite colength assignment (generic relocation maps)"
   'RFunC f n = (gr_fcla f n).
 
-(* Basic inversion lemmas ***************************************************)
+(* Basic inversions *********************************************************)
 
 (*** fcla_inv_px *)
 lemma gr_fcla_inv_push (g) (m): 𝐂❪g❫ ≘ m → ∀f. ⫯f = g → 𝐂❪f❫ ≘ m.
@@ -54,7 +54,7 @@ lemma gr_fcla_inv_next (g) (m): 𝐂❪g❫ ≘ m → ∀f. ↑f = g → ∃∃n
 ]
 qed-.
 
-(* Advanced inversion lemmas ************************************************)
+(* Advanced inversions ******************************************************)
 
 (*** cla_inv_nn *)
 lemma gr_cla_inv_next_succ (g) (m): 𝐂❪g❫ ≘ m → ∀f,n. ↑f = g → ↑n = m → 𝐂❪f❫ ≘ n.