X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Flib%2Flambda%2Fpaths%2Flabeled_st_computation.ma;h=a72dae7b9168ab3854b98a9929e69137a802d77a;hb=613d8642b1154dde0c026cbdcd96568910198251;hp=29dd727691021f5226d52f0b5f118afdb0a22dce;hpb=aa9654656f7d0aeb9345e0b86a9e35f861687580;p=helm.git

diff --git a/matita/matita/lib/lambda/paths/labeled_st_computation.ma b/matita/matita/lib/lambda/paths/labeled_st_computation.ma
index 29dd72769..a72dae7b9 100644
--- a/matita/matita/lib/lambda/paths/labeled_st_computation.ma
+++ b/matita/matita/lib/lambda/paths/labeled_st_computation.ma
@@ -12,9 +12,13 @@
 (*                                                                        *)
 (**************************************************************************)
 
-include "paths/standard_trace.ma".
-include "paths/labeled_sequential_computation.ma".
-include "paths/labeled_st_reduction.ma".
+include "lambda/paths/standard_trace.ma".
+include "lambda/paths/labeled_sequential_computation.ma".
+include "lambda/paths/labeled_st_reduction.ma".
+
+include "lambda/notation/relations/stdstar_3.ma".
+
+include "lambda/xoa/ex_2_3.ma".
 
 (* PATH-LABELED STANDARD COMPUTATION (MULTISTEP) ****************************)
 
@@ -24,10 +28,6 @@ definition pl_sts: trace → relation subterms ≝ lstar … pl_st.
 interpretation "path-labeled standard reduction"
     'StdStar F p G = (pl_sts p F G).
 
-notation "hvbox( F break Ⓡ ↦* [ term 46 p ] break term 46 G )"
-   non associative with precedence 45
-   for @{ 'StdStar $F $p $G }.
-
 lemma pl_sts_fwd_pl_sreds: ∀s,F1,F2. F1 Ⓡ↦*[s] F2 → ⇓F1 ↦*[s] ⇓F2.
 #s #F1 #F2 #H @(lstar_ind_r … s F2 H) -s -F2 //
 #p #s #F #F2 #_ #HF2 #IHF1