X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2FBasic_2%2Ffunctional%2Flift.ma;h=78046720905bc2a961738df7879d27fca81a8352;hb=44c1079dabf1d3c0b69d0155ddbaea8627ec901c;hp=90e41e9a58d2c49a4cca3e8b908760f6fe762c34;hpb=39e80f80b26e18cf78f805e814ba2f2e8400c1f1;p=helm.git diff --git a/matita/matita/contribs/lambda_delta/Basic_2/functional/lift.ma b/matita/matita/contribs/lambda_delta/Basic_2/functional/lift.ma index 90e41e9a5..780467209 100644 --- a/matita/matita/contribs/lambda_delta/Basic_2/functional/lift.ma +++ b/matita/matita/contribs/lambda_delta/Basic_2/functional/lift.ma @@ -24,8 +24,8 @@ let rec flift d e U on U ≝ match U with | GRef _ ⇒ U ] | TPair I V T ⇒ match I with - [ Bind I ⇒ 𝕓{I} (flift d e V). (flift (d+1) e T) - | Flat I ⇒ 𝕗{I} (flift d e V). (flift d e T) + [ Bind2 I ⇒ ⓑ{I} (flift d e V). (flift (d+1) e T) + | Flat2 I ⇒ ⓕ{I} (flift d e V). (flift d e T) ] ].