X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Flib%2Flambda%2Fsubterms%2Fcarrier.ma;h=3f4c0499181fa17b33cc40284fb184772c443677;hb=613d8642b1154dde0c026cbdcd96568910198251;hp=8936792e2eec1c0ab2ace0ba056d9a406b77156e;hpb=aa9654656f7d0aeb9345e0b86a9e35f861687580;p=helm.git

diff --git a/matita/matita/lib/lambda/subterms/carrier.ma b/matita/matita/lib/lambda/subterms/carrier.ma
index 8936792e2..3f4c04991 100644
--- a/matita/matita/lib/lambda/subterms/carrier.ma
+++ b/matita/matita/lib/lambda/subterms/carrier.ma
@@ -12,8 +12,12 @@
 (*                                                                        *)
 (**************************************************************************)
 
-include "terms/relocating_substitution.ma".
-include "subterms/relocating_substitution.ma".
+include "lambda/terms/relocating_substitution.ma".
+include "lambda/subterms/relocating_substitution.ma".
+
+include "lambda/notation/functions/projectdown_1.ma".
+
+include "lambda/xoa/ex_2_2.ma".
 
 (* CARRIER (UNDERLYING TERM) ************************************************)
 
@@ -26,10 +30,6 @@ let rec carrier F on F ≝ match F with
 interpretation "carrier (subterms)"
    'ProjectDown F = (carrier F).
 
-notation "hvbox(⇓ term 46 F)"
-   non associative with precedence 46
-   for @{ 'ProjectDown $F }.
-
 lemma carrier_inv_vref: ∀j,F. ⇓F = #j → ∃b. F = {b}#j.
 #j * normalize
 [ #b #i #H destruct /2 width=2/