X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fpr_ist_isi.ma;h=87485963ea6c6bfc9341ca23d3cc7aa6ad7f3a4f;hb=77479649510792efe4d9cbff508e118360862594;hp=cfc6baf49e55118e7e3d66f90ac5af19688fcab7;hpb=9b4e20442ec5a4028cfe2b6fe836c94acdb033b8;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/pr_ist_isi.ma b/matita/matita/contribs/lambdadelta/ground/relocation/pr_ist_isi.ma index cfc6baf49..87485963e 100644 --- a/matita/matita/contribs/lambdadelta/ground/relocation/pr_ist_isi.ma +++ b/matita/matita/contribs/lambdadelta/ground/relocation/pr_ist_isi.ma @@ -20,7 +20,7 @@ include "ground/relocation/pr_ist.ma". (* Advanced constructions with pr_isi ***************************************) (*** isid_at_total *) -lemma pr_isi_pat_total: ∀f. 𝐓❨f❩ → (∀i1,i2. @❨i1,f❩ ≘ i2 → i1 = i2) → 𝐈❨f❩. +lemma pr_isi_pat_total: ∀f. 𝐓❨f❩ → (∀i1,i2. @⧣❨i1,f❩ ≘ i2 → i1 = i2) → 𝐈❨f❩. #f #H1f #H2f @pr_isi_pat #i lapply (H1f i) -H1f * #j #Hf >(H2f … Hf) in ⊢ (???%); -H2f //