X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fdelayed_updating%2Funwind1%2Funwind_constructors.ma;h=a412797a0b95e998cc40968d837c221557915ae1;hb=77479649510792efe4d9cbff508e118360862594;hp=d2a552d843d48c00c28b5a25b4507de73077bd09;hpb=9b4e20442ec5a4028cfe2b6fe836c94acdb033b8;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/delayed_updating/unwind1/unwind_constructors.ma b/matita/matita/contribs/lambdadelta/delayed_updating/unwind1/unwind_constructors.ma index d2a552d84..a412797a0 100644 --- a/matita/matita/contribs/lambdadelta/delayed_updating/unwind1/unwind_constructors.ma +++ b/matita/matita/contribs/lambdadelta/delayed_updating/unwind1/unwind_constructors.ma @@ -18,20 +18,20 @@ include "delayed_updating/syntax/prototerm_constructors.ma". (* UNWIND FOR PROTOTERM *****************************************************) lemma unwind_iref_sn (f) (t:prototerm) (n:pnat): - ▼[𝐮❨f@❨n❩❩]t ⊆ ▼[f](𝛗n.t). + ▼[𝐮❨f@⧣❨n❩❩]t ⊆ ▼[f](𝛗n.t). #f #t #n #p * #q #Hq #H0 destruct @(ex2_intro … (𝗱n◗𝗺◗q)) /2 width=1 by in_comp_iref/ qed-. lemma unwind_iref_dx (f) (t) (n:pnat): - ▼[f](𝛗n.t) ⊆ ▼[𝐮❨f@❨n❩❩]t. + ▼[f](𝛗n.t) ⊆ ▼[𝐮❨f@⧣❨n❩❩]t. #f #t #n #p * #q #Hq #H0 destruct elim (in_comp_inv_iref … Hq) -Hq #p #Hp #Ht destruct /2 width=1 by in_comp_unwind_bi/ qed-. lemma unwind_iref (f) (t) (n:pnat): - ▼[𝐮❨f@❨n❩❩]t ⇔ ▼[f](𝛗n.t). + ▼[𝐮❨f@⧣❨n❩❩]t ⇔ ▼[f](𝛗n.t). /3 width=1 by conj, unwind_iref_sn, unwind_iref_dx/ qed.