X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fpr_isi_pat.ma;h=b9e277d8e292bd142e1ef63c4c71be122f9275c2;hb=77479649510792efe4d9cbff508e118360862594;hp=2b09f5c96e8b51afb125925a3fa6d6c5ab79551b;hpb=9b4e20442ec5a4028cfe2b6fe836c94acdb033b8;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/pr_isi_pat.ma b/matita/matita/contribs/lambdadelta/ground/relocation/pr_isi_pat.ma index 2b09f5c96..b9e277d8e 100644 --- a/matita/matita/contribs/lambdadelta/ground/relocation/pr_isi_pat.ma +++ b/matita/matita/contribs/lambdadelta/ground/relocation/pr_isi_pat.ma @@ -20,20 +20,20 @@ include "ground/relocation/pr_pat_pat_id.ma". (* Advanced constructions with pr_isi and pr_pat ****************************) (*** isid_at *) -lemma pr_isi_pat (f): (∀i. @❨i,f❩ ≘ i) → 𝐈❨f❩. +lemma pr_isi_pat (f): (∀i. @⧣❨i,f❩ ≘ i) → 𝐈❨f❩. /3 width=1 by pr_eq_id_isi, pr_pat_inv_id/ qed. (* Inversions with pr_pat ***************************************************) (*** isid_inv_at *) -lemma pr_isi_inv_pat (f) (i): 𝐈❨f❩ → @❨i,f❩ ≘ i. +lemma pr_isi_inv_pat (f) (i): 𝐈❨f❩ → @⧣❨i,f❩ ≘ i. /3 width=3 by pr_isi_inv_eq_id, pr_pat_id, pr_pat_eq_repl_back/ qed-. (* Destructions with pr_pat *************************************************) (*** isid_inv_at_mono *) -lemma pr_isi_pat_des (f) (i1) (i2): 𝐈❨f❩ → @❨i1,f❩ ≘ i2 → i1 = i2. +lemma pr_isi_pat_des (f) (i1) (i2): 𝐈❨f❩ → @⧣❨i1,f❩ ≘ i2 → i1 = i2. /4 width=3 by pr_isi_inv_eq_id, pr_pat_id_des, pr_pat_eq_repl_fwd/ qed-.