]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambda_delta/Basic_2/grammar/cl_shift.ma
- main lemmas about abstract reducibility candidates closed
[helm.git] / matita / matita / contribs / lambda_delta / Basic_2 / grammar / cl_shift.ma
index d72b6c4cb3f355c7bb1381182451c667a2610134..3a259cecfd199d28dc5254f7e041967adc09e58c 100644 (file)
 (*                                                                        *)
 (**************************************************************************)
 
-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).