X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground_2%2Frelocation%2Fnstream_isid.ma;h=4f3e415eb7616b96a1de5c719a31f6b994b0fbac;hp=91487980db275190ec7b75324d2a755db8215002;hb=a77d0bd6a04e94f765d329d47b37d9e04d349b14;hpb=b598b37379baabef24ae511596be7f740cbb0c2e 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..4f3e415eb 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-.