X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fgr_isi.ma;h=e9a41cfab3bba7229c75c57c7ed1484b7b538284;hp=464c72bc75c2eb3441b9797cb04aa7e5025dd4a2;hb=2ed8d2abcc3b0687141b627061b63350a0b200bd;hpb=b367de0252e88d6b0476648d5ceac7e4aeffca27 diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/gr_isi.ma b/matita/matita/contribs/lambdadelta/ground/relocation/gr_isi.ma index 464c72bc7..e9a41cfab 100644 --- a/matita/matita/contribs/lambdadelta/ground/relocation/gr_isi.ma +++ b/matita/matita/contribs/lambdadelta/ground/relocation/gr_isi.ma @@ -15,7 +15,7 @@ include "ground/notation/relations/predicate_i_1.ma". include "ground/relocation/gr_map.ma". -(* IDENTITY CONDITION FOR GENERIC RELOCATION MAPS ***********************************************************) +(* IDENTITY CONDITION FOR GENERIC RELOCATION MAPS ***************************) (*** isid *) coinductive gr_isi: predicate gr_map ≝ @@ -28,7 +28,7 @@ interpretation "identity condition (generic relocation maps)" 'PredicateI f = (gr_isi f). -(* Basic inversion lemmas ***************************************************) +(* Basic inversions *********************************************************) (*** isid_inv_gen *) lemma gr_isi_inv_gen (g): 𝐈❪g❫ → ∃∃f. 𝐈❪f❫ & ⫯f = g. @@ -36,7 +36,7 @@ lemma gr_isi_inv_gen (g): 𝐈❪g❫ → ∃∃f. 𝐈❪f❫ & ⫯f = g. #f #g #Hf /2 width=3 by ex2_intro/ qed-. -(* Advanced inversion lemmas ************************************************) +(* Advanced inversions ******************************************************) (*** isid_inv_push *) lemma gr_isi_inv_push (g): 𝐈❪g❫ → ∀f. ⫯f = g → 𝐈❪f❫.