X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fapps_2%2Ffunctional%2Fflifts_basic.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fapps_2%2Ffunctional%2Fflifts_basic.ma;h=f3e6c31ddf06fb6bc345dc409d5b1d442eb5d971;hb=cc6fcb70ca4f3cf01205ed722d75a2fdb2aaf779;hp=0000000000000000000000000000000000000000;hpb=41b61472d2c475e0f69e3dfc85539da3ad2bac1e;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/apps_2/functional/flifts_basic.ma b/matita/matita/contribs/lambdadelta/apps_2/functional/flifts_basic.ma new file mode 100644 index 000000000..f3e6c31dd --- /dev/null +++ b/matita/matita/contribs/lambdadelta/apps_2/functional/flifts_basic.ma @@ -0,0 +1,22 @@ +(**************************************************************************) +(* ___ *) +(* ||M|| *) +(* ||A|| A project by Andrea Asperti *) +(* ||T|| *) +(* ||I|| Developers: *) +(* ||T|| The HELM team. *) +(* ||A|| http://helm.cs.unibo.it *) +(* \ / *) +(* \ / This file is distributed under the terms of the *) +(* v GNU General Public License Version 2 *) +(* *) +(**************************************************************************) + +include "ground_2/relocation/rtmap_basic.ma". +include "apps_2/functional/flifts.ma". +include "apps_2/notation/functional/uparrow_3.ma". + +(* GENERIC FUNCTIONAL RELOCATION ********************************************) + +interpretation "basic functional relocation (term)" + 'UpArrow d h T = (flifts (basic d h) T).