X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2FBasic_2%2Fcomputation%2Facp.ma;h=3e13d9ac3bcc36145c7292a5489d02e53b7f926d;hb=39e80f80b26e18cf78f805e814ba2f2e8400c1f1;hp=9cd2a3fa68bbb04d6904e17998fbb762727f4601;hpb=de392360825733c1c865d748f7711f34bfc027f3;p=helm.git diff --git a/matita/matita/contribs/lambda_delta/Basic_2/computation/acp.ma b/matita/matita/contribs/lambda_delta/Basic_2/computation/acp.ma index 9cd2a3fa6..3e13d9ac3 100644 --- a/matita/matita/contribs/lambda_delta/Basic_2/computation/acp.ma +++ b/matita/matita/contribs/lambda_delta/Basic_2/computation/acp.ma @@ -20,18 +20,18 @@ definition CP1 ≝ λRR:lenv→relation term. λRS:relation term. ∀L,k. NF … (RR L) RS (⋆k). definition CP2 ≝ λRR:lenv→relation term. λRS:relation term. - ∀L,K,W,i. ⇓[0,i] L ≡ K. 𝕓{Abst} W → NF … (RR L) RS (#i). + ∀L,K,W,i. ⇩[0,i] L ≡ K. 𝕓{Abst} W → NF … (RR L) RS (#i). definition CP3 ≝ λRR:lenv→relation term. λRP:lenv→predicate term. ∀L,V,k. RP L (𝕔{Appl}⋆k.V) → RP L V. definition CP4 ≝ λRR:lenv→relation term. λRS:relation term. ∀L0,L,T,T0,d,e. NF … (RR L) RS T → - ⇓[d,e] L0 ≡ L → ⇑[d, e] T ≡ T0 → NF … (RR L0) RS T0. + ⇩[d,e] L0 ≡ L → ⇧[d, e] T ≡ T0 → NF … (RR L0) RS T0. definition CP4s ≝ λRR:lenv→relation term. λRS:relation term. - ∀L0,L,des. ⇓[des] L0 ≡ L → - ∀T,T0. ⇑[des] T ≡ T0 → + ∀L0,L,des. ⇩*[des] L0 ≡ L → + ∀T,T0. ⇧*[des] T ≡ T0 → NF … (RR L) RS T → NF … (RR L0) RS T0. (* requirements for abstract computation properties *)