X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fpr_pat_id.ma;h=dc29d3c6a86ce4fb6af729ab67d3da0d95a25d14;hb=77479649510792efe4d9cbff508e118360862594;hp=0134687965d50e37f50bcbf42e34bab3224eb1c3;hpb=9b4e20442ec5a4028cfe2b6fe836c94acdb033b8;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/pr_pat_id.ma b/matita/matita/contribs/lambdadelta/ground/relocation/pr_pat_id.ma index 013468796..dc29d3c6a 100644 --- a/matita/matita/contribs/lambdadelta/ground/relocation/pr_pat_id.ma +++ b/matita/matita/contribs/lambdadelta/ground/relocation/pr_pat_id.ma @@ -20,13 +20,13 @@ include "ground/relocation/pr_pat_eq.ma". (* Constructions with pr_id *************************************************) (*** id_at *) -lemma pr_pat_id (i): @❨i,𝐢❩ ≘ i. +lemma pr_pat_id (i): @⧣❨i,𝐢❩ ≘ i. /2 width=1 by pr_pat_eq, pr_eq_refl/ qed. (* Inversions with pr_id ****************************************************) (*** id_inv_at *) lemma pr_pat_inv_id (f): - (∀i. @❨i,f❩ ≘ i) → 𝐢 ≐ f. + (∀i. @⧣❨i,f❩ ≘ i) → 𝐢 ≐ f. /3 width=1 by pr_pat_inv_eq, pr_id_eq/ qed-.