X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fdelayed_updating%2Freduction%2Fifr.ma;h=54ad4f2f65d1bfba75b5a56c46f3adb36c54f114;hb=b15b3e2d9e333bf94677ff2731c825da3566c9ec;hp=0ac73291f5939f64d1780ec308974adb7873ea1b;hpb=8a47ade5ffd1942f9d16474c547e5050caab3cc8;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/delayed_updating/reduction/ifr.ma b/matita/matita/contribs/lambdadelta/delayed_updating/reduction/ifr.ma index 0ac73291f..54ad4f2f6 100644 --- a/matita/matita/contribs/lambdadelta/delayed_updating/reduction/ifr.ma +++ b/matita/matita/contribs/lambdadelta/delayed_updating/reduction/ifr.ma @@ -12,6 +12,7 @@ (* *) (**************************************************************************) +include "delayed_updating/unwind1/unwind_prototerm.ma". include "delayed_updating/substitution/fsubst.ma". include "delayed_updating/substitution/lift_prototerm.ma". include "delayed_updating/syntax/prototerm_equivalence.ma". @@ -27,7 +28,7 @@ include "ground/xoa/and_4.ma". definition ifr (p) (q): relation2 prototerm prototerm ≝ λt1,t2. ∃∃b,n. let r ≝ p●𝗔◗b●𝗟◗q in - ∧∧ ⊗b ϵ 𝐁 & ∀f. ↑❘q❘ = (↑[q]⫯f)@❨n❩ & r◖𝗱n ϵ t1 & + ∧∧ ⊗b ϵ 𝐁 & ↑❘q❘ = (▼[r]𝐢)@❨n❩ & r◖𝗱n ϵ t1 & t1[⋔r←↑[𝐮❨❘b●𝗟◗q❘❩](t1⋔(p◖𝗦))] ⇔ t2 .