X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=inline;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fdelayed_updating%2Funwind%2Funwind2_constructors.ma;h=8cdfb5bf958f55ed7f8822974b468d164478f912;hb=c038f0446312091a30179fd80e6ffd3ec39ab446;hp=c70e09e1abd0b4c306ce57785bad629d24ea1130;hpb=97ff918432e878ab8314c72fe2b948a253b26e21;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/delayed_updating/unwind/unwind2_constructors.ma b/matita/matita/contribs/lambdadelta/delayed_updating/unwind/unwind2_constructors.ma index c70e09e1a..8cdfb5bf9 100644 --- a/matita/matita/contribs/lambdadelta/delayed_updating/unwind/unwind2_constructors.ma +++ b/matita/matita/contribs/lambdadelta/delayed_updating/unwind/unwind2_constructors.ma @@ -20,20 +20,20 @@ include "delayed_updating/syntax/prototerm_constructors.ma". (* Constructions with constructors ******************************************) lemma unwind2_term_iref_sn (f) (t) (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 unwind2_term_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_unwind2_path_term/ qed-. lemma unwind2_term_iref (f) (t) (n:pnat): - ▼[f∘𝐮❨n❩]t ⇔ ▼[f](𝛗n.t). + ▼[f∘𝐮❨n❩]t ⇔ ▼[f](𝛕n.t). /3 width=2 by conj, unwind2_term_iref_sn, unwind2_term_iref_dx/ qed.