X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fgr_isd_eq.ma;h=37b1e35420beb635470bb71a5bf2bb0ab43d00c8;hb=8bbe582d87984526f40182c4409cbfd43108cb79;hp=9aeb37fcece179a263ec3d551a36d1f8b7f0fcbb;hpb=55c768d7e45babb300b5010463ba3196a68f1bbe;p=helm.git 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❫.