X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fdelayed_updating%2Freduction%2Fifr_unwind.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fdelayed_updating%2Freduction%2Fifr_unwind.ma;h=21e4ac27fac27dea7ae8c91a9ed629b509f3d66a;hb=f5b6fd3125c0aefa1db23fbdd23b887fa964f385;hp=9bd4cd7c47f21e086d9798e24966f0b02c3c6cbf;hpb=00fca351072c2dba11b71c14b1169d303fd6836f;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/delayed_updating/reduction/ifr_unwind.ma b/matita/matita/contribs/lambdadelta/delayed_updating/reduction/ifr_unwind.ma index 9bd4cd7c4..21e4ac27f 100644 --- a/matita/matita/contribs/lambdadelta/delayed_updating/reduction/ifr_unwind.ma +++ b/matita/matita/contribs/lambdadelta/delayed_updating/reduction/ifr_unwind.ma @@ -32,9 +32,9 @@ include "delayed_updating/syntax/path_depth_reverse.ma". (* Constructions with unwind ************************************************) -theorem ifr_unwind_bi (f) (p) (q) (t1) (t2): - t1 ϵ 𝐓 → t1⋔(p◖𝗦) ⧸≬ 𝐈 → - t1 ➡𝐟[p,q] t2 → ▼[f]t1 ➡𝐟[⊗p,⊗q] ▼[f]t2. +lemma ifr_unwind_bi (f) (p) (q) (t1) (t2): + t1 ϵ 𝐓 → t1⋔(p◖𝗦) ⧸≬ 𝐈 → + t1 ➡𝐟[p,q] t2 → ▼[f]t1 ➡𝐟[⊗p,⊗q] ▼[f]t2. #f #p #q #t1 #t2 #H1t1 #H2t1 * #n * #H1n #Ht1 #Ht2 @(ex_intro … (↑♭q)) @and3_intro