X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2FBasic_2%2Fgrammar%2Fcl_shift.ma;h=3a259cecfd199d28dc5254f7e041967adc09e58c;hb=48b202cd4ccd3ffc10f9a134314f747fdee30d36;hp=d72b6c4cb3f355c7bb1381182451c667a2610134;hpb=55dc00c1c44cc21c7ae179cb9df03e7446002c46;p=helm.git

diff --git a/matita/matita/contribs/lambda_delta/Basic_2/grammar/cl_shift.ma b/matita/matita/contribs/lambda_delta/Basic_2/grammar/cl_shift.ma
index d72b6c4cb..3a259cecf 100644
--- a/matita/matita/contribs/lambda_delta/Basic_2/grammar/cl_shift.ma
+++ b/matita/matita/contribs/lambda_delta/Basic_2/grammar/cl_shift.ma
@@ -12,13 +12,13 @@
 (*                                                                        *)
 (**************************************************************************)
 
-include "Basic-2/grammar/lenv.ma".
+include "Basic_2/grammar/lenv.ma".
 
 (* SHIFT OF A CLOSURE *******************************************************)
 
 let rec shift L T on L ≝ match L with
 [ LAtom       ⇒ T
-| LPair L I V ⇒ shift L (𝕓{I} V. T)
+| LPair L I V ⇒ shift L (ⓑ{I} V. T)
 ].
 
 interpretation "shift (closure)" 'Append L T = (shift L T).