X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Flib%2Flambda%2Fpaths%2Fdst_computation.ma;h=a9cc98f0978323866af765ffbcfea83d3524a800;hp=85874e21cdf6a8d430adbc6422d5d63867591446;hb=613d8642b1154dde0c026cbdcd96568910198251;hpb=647504aa72b84eb49be8177b88a9254174e84d4b diff --git a/matita/matita/lib/lambda/paths/dst_computation.ma b/matita/matita/lib/lambda/paths/dst_computation.ma index 85874e21c..a9cc98f09 100644 --- a/matita/matita/lib/lambda/paths/dst_computation.ma +++ b/matita/matita/lib/lambda/paths/dst_computation.ma @@ -15,6 +15,8 @@ include "lambda/paths/standard_trace.ma". include "lambda/paths/labeled_sequential_computation.ma". +include "lambda/notation/relations/decomposedstd_2.ma". + (* DECOMPOSED STANDARD COMPUTATION ***********************************************) (* Note: this is the "standard" computation of: @@ -29,10 +31,6 @@ inductive dst: relation term ≝ interpretation "decomposed standard computation" 'DecomposedStd M N = (dst M N). -notation "hvbox( M break ⓢ↦* term 46 N )" - non associative with precedence 45 - for @{ 'DecomposedStd $M $N }. - lemma dst_inv_lref: ∀M,N. M ⓢ↦* N → ∀j. #j = N → ∃∃s. is_whd s & M ↦*[s] #j. #M #N * -M -N