X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2A%2Freduction%2Ffpbq_alt.ma;h=dd40a47dd4bf24bcc051c435a6bf43b22c701058;hp=e2e1ebbf8d66c686d82ddab47bca72dea2f1056a;hb=2f6f2b7c01d47d23f61dd48d767bcb37aecdcfea;hpb=3a4509b8e569181979f5b15808361c83eb1ae49a diff --git a/matita/matita/contribs/lambdadelta/basic_2A/reduction/fpbq_alt.ma b/matita/matita/contribs/lambdadelta/basic_2A/reduction/fpbq_alt.ma index e2e1ebbf8..dd40a47dd 100644 --- a/matita/matita/contribs/lambdadelta/basic_2A/reduction/fpbq_alt.ma +++ b/matita/matita/contribs/lambdadelta/basic_2A/reduction/fpbq_alt.ma @@ -18,7 +18,7 @@ include "basic_2A/reduction/fpbq.ma". (* "QRST" PARALLEL REDUCTION FOR CLOSURES ***********************************) -(* alternative definition of fpbq *) +(* Note: alternative definition of fpbq *) definition fpbqa: ∀h. sd h → tri_relation genv lenv term ≝ λh,g,G1,L1,T1,G2,L2,T2. ⦃G1, L1, T1⦄ ≡[0] ⦃G2, L2, T2⦄ ∨ ⦃G1, L1, T1⦄ ≻[h, g] ⦃G2, L2, T2⦄.