(* IDENTITY CONDITION FOR PARTIAL RELOCATION MAPS ***************************)
-(* Advanced constructions with pr_isi ***************************************)
+(* Advanced constructions with pr_isi and pr_pat ****************************)
(*** isid_at *)
lemma pr_isi_pat (f): (∀i. @❪i,f❫ ≘ i) → 𝐈❪f❫.