X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2A%2Freduction%2Fcrx.ma;h=f4b73d22db9b4fe15fcb6a3167c4c4a5de26fffe;hp=9e3e0310185ae568c106e90580075e48e2ea4232;hb=2f6f2b7c01d47d23f61dd48d767bcb37aecdcfea;hpb=3a4509b8e569181979f5b15808361c83eb1ae49a diff --git a/matita/matita/contribs/lambdadelta/basic_2A/reduction/crx.ma b/matita/matita/contribs/lambdadelta/basic_2A/reduction/crx.ma index 9e3e03101..f4b73d22d 100644 --- a/matita/matita/contribs/lambdadelta/basic_2A/reduction/crx.ma +++ b/matita/matita/contribs/lambdadelta/basic_2A/reduction/crx.ma @@ -19,7 +19,6 @@ include "basic_2A/reduction/crr.ma". (* REDUCIBLE TERMS FOR CONTEXT-SENSITIVE EXTENDED REDUCTION *****************) (* activate genv *) -(* extended reducible terms *) inductive crx (h) (g) (G:genv): relation2 lenv term ≝ | crx_sort : ∀L,k,d. deg h g k (d+1) → crx h g G L (⋆k) | crx_delta : ∀I,L,K,V,i. ⬇[i] L ≡ K.ⓑ{I}V → crx h g G L (#i)