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

diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/gr_isd.ma b/matita/matita/contribs/lambdadelta/ground/relocation/gr_isd.ma
index aa5404adb..7ebdf864a 100644
--- a/matita/matita/contribs/lambdadelta/ground/relocation/gr_isd.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/gr_isd.ma
@@ -15,7 +15,7 @@
 include "ground/notation/relations/predicate_omega_1.ma".
 include "ground/relocation/gr_map.ma".
 
-(* DIVERGENCE CONDITION FOR GENERIC RELOCATION MAPS ***********************************************************)
+(* DIVERGENCE CONDITION FOR GENERIC RELOCATION MAPS *************************)
 
 (*** isdiv *)
 coinductive gr_isd: predicate gr_map ≝
@@ -28,7 +28,7 @@ interpretation
   "divergence condition (generic relocation maps)"
   'PredicateOmega f = (gr_isd f).
 
-(* Basic inversion lemmas ***************************************************)
+(* Basic inversions *********************************************************)
 
 (*** isdiv_inv_gen *)
 lemma gr_isd_inv_gen (g): 𝛀❪g❫ → ∃∃f. 𝛀❪f❫ & ↑f = g.
@@ -36,7 +36,7 @@ lemma gr_isd_inv_gen (g): 𝛀❪g❫ → ∃∃f. 𝛀❪f❫ & ↑f = g.
 #f #g #Hf * /2 width=3 by ex2_intro/
 qed-.
 
-(* Advanced inversion lemmas ************************************************)
+(* Advanced inversions ******************************************************)
 
 (*** isdiv_inv_next *)
 lemma gr_isd_inv_next (g): 𝛀❪g❫ → ∀f. ↑f = g → 𝛀❪f❫.