X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground_2%2Frelocation%2Fnstream_isid.ma;h=98dc8f2203cdc9faea979096a21421593f10d630;hb=bd53c4e895203eb049e75434f638f26b5a161a2b;hp=91487980db275190ec7b75324d2a755db8215002;hpb=91ab6965be539b7ed0f3208e1c1fffd17aa151f7;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/ground_2/relocation/nstream_isid.ma b/matita/matita/contribs/lambdadelta/ground_2/relocation/nstream_isid.ma index 91487980d..98dc8f220 100644 --- a/matita/matita/contribs/lambdadelta/ground_2/relocation/nstream_isid.ma +++ b/matita/matita/contribs/lambdadelta/ground_2/relocation/nstream_isid.ma @@ -19,7 +19,7 @@ include "ground_2/relocation/rtmap_isid.ma". (* Specific inversion lemmas ************************************************) -lemma isid_inv_seq: ∀f,n. 𝐈⦃n@f⦄ → 𝐈⦃f⦄ ∧ 0 = n. +lemma isid_inv_seq: ∀f,n. 𝐈❪n⨮f❫ → 𝐈❪f❫ ∧ 0 = n. #f #n #H elim (isid_inv_gen … H) -H #g #Hg #H elim (push_inv_seq_dx … H) -H /2 width=1 by conj/ qed-.