X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fgr_isd_eq.ma;h=37b1e35420beb635470bb71a5bf2bb0ab43d00c8;hp=9aeb37fcece179a263ec3d551a36d1f8b7f0fcbb;hb=2ed8d2abcc3b0687141b627061b63350a0b200bd;hpb=b367de0252e88d6b0476648d5ceac7e4aeffca27 diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/gr_isd_eq.ma b/matita/matita/contribs/lambdadelta/ground/relocation/gr_isd_eq.ma index 9aeb37fce..37b1e3542 100644 --- a/matita/matita/contribs/lambdadelta/ground/relocation/gr_isd_eq.ma +++ b/matita/matita/contribs/lambdadelta/ground/relocation/gr_isd_eq.ma @@ -15,9 +15,9 @@ include "ground/relocation/gr_tl_eq_eq.ma". include "ground/relocation/gr_isd.ma". -(* DIVERGENCE CONDITION FOR GENERIC RELOCATION MAPS ***********************************************************) +(* DIVERGENCE CONDITION FOR GENERIC RELOCATION MAPS *************************) -(* Properties with gr_eq *********************************************************) +(* Constructions with gr_eq *************************************************) (*** isdiv_eq_repl_back *) corec lemma gr_isd_eq_repl_back: @@ -32,7 +32,7 @@ lemma gr_isd_eq_repl_fwd: gr_eq_repl_fwd … gr_isd. /3 width=3 by gr_isd_eq_repl_back, gr_eq_repl_sym/ qed-. -(* Main inversion lemmas with gr_eq ***************) +(* Main inversions with gr_eq ***********************************************) (*** isdiv_inv_eq_repl *) corec theorem gr_isd_inv_eq_repl (g1) (g2): 𝛀❪g1❫ → 𝛀❪g2❫ → g1 ≡ g2. @@ -42,7 +42,7 @@ cases (gr_isd_inv_gen … H2) -H2 /3 width=5 by gr_eq_next/ qed-. -(* Alternative definition with gr_eq ***************************************************) +(* Alternative definition with gr_eq ****************************************) (*** eq_next_isdiv *) corec lemma gr_eq_next_isd (f): ↑f ≡ f → 𝛀❪f❫.