X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Flib%2Flambda%2Fpaths%2Fdst_computation.ma;h=a9cc98f0978323866af765ffbcfea83d3524a800;hb=613d8642b1154dde0c026cbdcd96568910198251;hp=a532e7b150d2d2cdd5919cec552e2cb00c01507b;hpb=aa9654656f7d0aeb9345e0b86a9e35f861687580;p=helm.git diff --git a/matita/matita/lib/lambda/paths/dst_computation.ma b/matita/matita/lib/lambda/paths/dst_computation.ma index a532e7b15..a9cc98f09 100644 --- a/matita/matita/lib/lambda/paths/dst_computation.ma +++ b/matita/matita/lib/lambda/paths/dst_computation.ma @@ -12,8 +12,10 @@ (* *) (**************************************************************************) -include "paths/standard_trace.ma". -include "paths/labeled_sequential_computation.ma". +include "lambda/paths/standard_trace.ma". +include "lambda/paths/labeled_sequential_computation.ma". + +include "lambda/notation/relations/decomposedstd_2.ma". (* DECOMPOSED STANDARD COMPUTATION ***********************************************) @@ -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