From 30267226b314b9cb4d4767168ab378b09f8a77ba Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C3=89ric=20Wegrzynowski?= Date: Thu, 11 Feb 2021 13:30:06 +0100 Subject: [PATCH] =?UTF-8?q?r=C3=A9daction=20calepin=20:=20reste=20pouvoir?= =?UTF-8?q?=20expression=20+=20partie=20avec=20lamba-expression=20Python?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- lambda_calcul.ipynb | 4010 +++++++++++++++++++++++++++++-------------- lambda_calcul.md | 954 +++++++--- lambda_calcul.py | 90 +- tikz_diamant.png | Bin 0 -> 2714 bytes tikz_diamant.tex | 21 + 5 files changed, 3568 insertions(+), 1507 deletions(-) create mode 100644 tikz_diamant.png create mode 100644 tikz_diamant.tex diff --git a/lambda_calcul.ipynb b/lambda_calcul.ipynb index 5e0c5ec..ef8b165 100644 --- a/lambda_calcul.ipynb +++ b/lambda_calcul.ipynb @@ -4,8 +4,99 @@ "cell_type": "markdown", "metadata": {}, "source": [ + "Ce calepin est composé de deux parties :\n", "\n", - "# $\\lambda$-calcul" + "1. la première partie est une rapide présentation du $\\lambda$-calcul illustrée par l'utilisation d'un module permettant de définir et transformer des $\\lambda$-termes.\n", + "2. la deuxième partie reprend la partie « pouvoir d'expression du $\\lambda$-calcul » en l'illustrant avec les lambda-expressions du langage Python." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "# $\\lambda$-calcul" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Le [$\\lambda$-calcul](https://fr.wikipedia.org/wiki/Lambda-calcul) a été introduit dans les années 1930, principalement par [Alonzo Church](https://fr.wikipedia.org/wiki/Alonzo_Church) pour des questions de fondements mathématiques, semblables à celles qui ont conduit, à la même époque, [Alan Turing](https://fr.wikipedia.org/wiki/Alan_Turing) à concevoir les [machines](https://fr.wikipedia.org/wiki/Machine_de_Turing) qui portent son nom maintenant.\n", + "\n", + "Avec les machines de Turing, le $\\lambda$-calcul est l'un des principaux outils permettant d'étudier l'informatique théorique. Il est en particulier le fondement de la programmation fonctionnelle, et des langages de programmation comme [Lisp](https://fr.wikipedia.org/wiki/Lisp), [Scheme](https://fr.wikipedia.org/wiki/Scheme), [ML](https://fr.wikipedia.org/wiki/ML_(langage)), [Haskell](https://fr.wikipedia.org/wiki/Haskell) lui doivent beaucoup." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Les $\\lambda$-termes" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Sommaire de cette partie :\n", + "\n", + "* définition des $\\lambda$-termes\n", + "* variables libres, liées. Sous-termes\n", + "\n", + "Le tout illustré avec une classe Python pour représenter et manipuler des $\\lambda$-termes." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "### Définition des $\\lambda$-termes" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "En principe, les $\\lambda$-termes sont des mots sur lesquels certaines opérations sont possibles. Ces mots ont vocation à pouvoir exprimer des fonctions, ainsi que leur application à un argument. " + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Formellement, l'alphabet $\\Sigma$ utilisé pour les $\\lambda$-termes est constitué :\n", + "\n", + "* d'un ensemble infini dénombrable de variables $V=\\{x, y, z, t, ...\\}$ ;\n", + "* et d'un ensemble de cinq symboles $\\mathcal{S}=\\{\\lambda, ., (, ), ESP\\}$, $ESP$ désignant l'espace.\n", + "Ainsi $\\Sigma = V\\cup \\mathcal{S}$.\n", + "\n", + "Les $\\lambda$-termes sont construits inductivement à l'aide des trois règles\n", + "\n", + "1. toute variable est un $\\lambda$-terme ;\n", + "2. si $T$ est un $\\lambda$-terme et $x$ une variable, alors $\\lambda x.T$ est un $\\lambda$-terme, que l'on appelle *abstraction* de $T$ par $x$ ;\n", + "3. si $T$ et $S$ sont deux $\\lambda$-termes, alors $(T\\ S)$ est un $\\lambda$-terme, que l'on appelle *application* de $T$ à $S$.\n", + "\n", + "L'ensemble $\\Lambda$ des $\\lambda$-termes est donc le plus petit sous-ensemble de $\\Sigma^*$ contenant $V$ et stable par abstraction et application." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "### Une classe pour les $\\lambda$-termes" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Le module `lambda_calcul` définit une classe `Lambda_terme` permettant de construire et manipuler des objets représentant des $\\lambda$-termes." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "**Remarque :** ce module fait appel au module`sly` qui permet de définir des analyseurs lexicaux et syntaxiques. Ce module doit donc être préalablement installé (`pip install sly`)." ] }, { @@ -19,20 +110,16 @@ }, { "cell_type": "markdown", - "metadata": { - "lines_to_next_cell": 0 - }, + "metadata": {}, "source": [ - "Voici la grammaire du langage décrivant les $\\lambda$-termes\n", - "\n", - " term ::= VAR | LAMBDA VAR POINT term | LPAR term term RPAR\n" + "### Construction de $\\lambda$-termes" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ - "## La classe `Lambda_terme`" + "L'une des façons les plus simples de construire des $\\lambda$-termes est d'invoquer le constructeur `Lambda_terme` avec une chaîne de caractères les représentant. " ] }, { @@ -44,8 +131,15 @@ "T1 = Lambda_terme(\"x\")\n", "T2 = Lambda_terme(\"(x x)\")\n", "T3 = Lambda_terme(\"!x.x\")\n", - "T4 = Lambda_terme('!x.(x x)')\n", - "T5 = Lambda_terme('(!x.(x y) z)')" + "T4 = Lambda_terme('!x.(x y)')\n", + "T5 = Lambda_terme('(!x.(x y) x)')" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Les objets de la classe `Lambda_terme` peuvent être convertis en chaînes de caractères et imprimés." ] }, { @@ -60,66 +154,100 @@ "x\n", "(x x)\n", "λx.x\n", - "λx.(x x)\n", - "(λx.(x y) z)\n" + "λx.(x y)\n", + "(λx.(x y) x)\n" ] } ], "source": [ - "print(T1)\n", - "print(T2)\n", - "print(T3)\n", - "print(T4)\n", - "print(T5)" + "termes = (T1, T2, T3, T4, T5)\n", + "for t in termes:\n", + " print(t)" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "La syntaxe autorisée pour les $\\lambda$-termes est\n", + "\n", + "1. pour les variables : n'importe quelles chaîne de caractères ne contenant que des lettres (latins) non accentuées majuscules ou minuscules, ainsi que des chiffres. Autrement dit n'importe quelle chaîne correspondant à l'expression régulière `[A-Za-z][A-Za-z0-9]*`.\n", + "2. pour les abstractions : n'importe quelle chaîne débutant par `!` ou $\\lambda$ suivie d'une variable, suivie d'un point `.` suivi d'une chaîne décrivant un $\\lambda$-terme. Autrement dit n'importe quelle chaîne satisfaisant `(!|λ)VAR.LAMBDA-TERME`.\n", + "3. pour les applications : n'importe quelle chaîne débutant par une parenthèse ouvrante `(` et terminant par une parenthèse fermante `)` et comprenant entre les deux la description de deux $\\lambda$-termes séparés par un ou plusieurs espaces. Autrement dit n'importe quelle chaîne satisfaisant `(LAMBDA-TERME ESPACES LAMBDA-TERME)`.\n", + "\n", + "**Remarque :** le parenthésage des applications est obligatoire, contrairement à la convention d'associativité à gauche qui permet usuellement d'écrire $M\\ N\\ P$ au lieu de $((M\\ N)\\ P)$.\n", + "De même deux abstractions successives doivent être explicitement écrites : il n'est pas possible d'écrire $\\lambda xy.(x\\ y)$, il faut écrire $\\lambda x.\\lambda y.(x\\ y)$." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Les passages à la ligne sont autorisés dans la chaîne transmise au constructeur." ] }, { "cell_type": "code", "execution_count": 4, "metadata": {}, - "outputs": [], + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "(james bond007)\n" + ] + } + ], "source": [ - "termes = (T1, T2, T3, T4, T5)" + "print(Lambda_terme('''(james\n", + " bond007)'''))" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "L'exception `LambdaSyntaxError` est déclenchée en cas de présence de caractères non autorisés ou de malformation syntaxique." ] }, { "cell_type": "code", "execution_count": 5, "metadata": {}, - "outputs": [ - { - "data": { - "text/plain": [ - "(True, False, False, False, False)" - ] - }, - "execution_count": 5, - "metadata": {}, - "output_type": "execute_result" - } - ], + "outputs": [], "source": [ - "tuple(t.est_variable() for t in termes)" + "# Lambda_terme('bond 007')" ] }, { "cell_type": "code", "execution_count": 6, "metadata": {}, - "outputs": [ - { - "data": { - "text/plain": [ - "(False, False, True, True, False)" - ] - }, - "execution_count": 6, - "metadata": {}, - "output_type": "execute_result" - } - ], + "outputs": [], "source": [ - "tuple(t.est_abstraction() for t in termes)" + "# Lambda_terme('(james bond007 !)')" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "### Autres constructions" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Deux méthodes permettent de construire de nouveaux $\\lambda$-termes à partir de $\\lambda$-termes existant." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "La méthode `abstrait` permet de construire une abstraction." ] }, { @@ -128,18 +256,24 @@ "metadata": {}, "outputs": [ { - "data": { - "text/plain": [ - "(False, True, False, False, True)" - ] - }, - "execution_count": 7, - "metadata": {}, - "output_type": "execute_result" + "name": "stdout", + "output_type": "stream", + "text": [ + "λx.x\n", + "λy.(x x)\n" + ] } ], "source": [ - "tuple(t.est_application() for t in termes)" + "print(T1.abstrait('x'))\n", + "print(T2.abstrait('y'))" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "La méthode `applique` construit une application d'un terme sur un autre." ] }, { @@ -148,18 +282,31 @@ "metadata": {}, "outputs": [ { - "data": { - "text/plain": [ - "(False, False, False, False, True)" - ] - }, - "execution_count": 8, - "metadata": {}, - "output_type": "execute_result" + "name": "stdout", + "output_type": "stream", + "text": [ + "((x x) λx.x)\n", + "(λx.x (x x))\n" + ] } ], "source": [ - "tuple(t.est_redex() for t in termes)" + "print(T2.applique(T3))\n", + "print(T3.applique(T2))" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "### Quelques prédicats" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Trois prédicats `est_variable`, `est_abstraction` et `est_application` permettent de reconnaître la nature d'un $\\lambda$-terme." ] }, { @@ -168,18 +315,21 @@ "metadata": {}, "outputs": [ { - "data": { - "text/plain": [ - "(True, True, True, True, False)" - ] - }, - "execution_count": 9, - "metadata": {}, - "output_type": "execute_result" + "name": "stdout", + "output_type": "stream", + "text": [ + "x\n", + "(x x)\n", + "λx.x\n", + "λx.(x y)\n", + "(λx.(x y) x)\n" + ] } ], "source": [ - "tuple(t.est_forme_normale() for t in termes)" + "# pour rappel des termes définis\n", + "for t in termes:\n", + " print(t)" ] }, { @@ -190,7 +340,7 @@ { "data": { "text/plain": [ - "({'x'}, {'x'}, set(), set(), {'y', 'z'})" + "(True, False, False, False, False)" ] }, "execution_count": 10, @@ -199,7 +349,7 @@ } ], "source": [ - "tuple(t.variables_libres() for t in termes)" + "tuple(t.est_variable() for t in termes)" ] }, { @@ -208,17 +358,18 @@ "metadata": {}, "outputs": [ { - "name": "stdout", - "output_type": "stream", - "text": [ - "x --> x\n", - "x --> (y x)\n" - ] + "data": { + "text/plain": [ + "(False, False, True, True, False)" + ] + }, + "execution_count": 11, + "metadata": {}, + "output_type": "execute_result" } ], "source": [ - "print(T1, '-->', T1.subs('y', Lambda_terme('(y x)')))\n", - "print(T1, '-->', T1.subs('x', Lambda_terme('(y x)')))" + "tuple(t.est_abstraction() for t in termes)" ] }, { @@ -227,20 +378,57 @@ "metadata": {}, "outputs": [ { - "name": "stdout", - "output_type": "stream", - "text": [ - "λx.y --> λx.y\n", - "λx.y --> λx.(t z)\n", - "λx.y --> λx0.(x z)\n" - ] + "data": { + "text/plain": [ + "(False, True, False, False, True)" + ] + }, + "execution_count": 12, + "metadata": {}, + "output_type": "execute_result" } ], "source": [ - "T5 = Lambda_terme('!x.y')\n", - "print(T5, '-->', T5.subs('x', Lambda_terme('(y z)')))\n", - "print(T5, '-->', T5.subs('y', Lambda_terme('(t z)')))\n", - "print(T5, '-->', T5.subs('y', Lambda_terme('(x z)')))" + "tuple(t.est_application() for t in termes)" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "### Variables libres, variables liées" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Parmi les variables figurant dans un $\\lambda$-terme, certaines sont dites *libres*, et d'autres *liées*." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Les variables libres sont celles qui ne sont pas sous la portée d'une abstraction. L'ensemble $FV(T)$ des variables libres d'un $\\lambda$-terme $T$ est défini inductivement par les trois règles :\n", + "\n", + "1. $FV(x) = \\{x\\}$.\n", + "2. $FV(\\lambda x.T) = FV(T)\\setminus\\{x\\}$.\n", + "3. $FV((T_1\\ T_2)) = FV(T_1)\\cup FV(T_2)$.\n", + "\n", + "Les variables liées sont celles qui sont sous la portée d'une abstraction. L'ensemble $BV(T)$ des variables liées d'un $\\lambda$-terme $T$ est défini inductivement par les trois règles :\n", + "\n", + "1. $BV(x) = \\emptyset$.\n", + "2. $BV(\\lambda x.T) = BV(T)\\cup \\{x\\}$ si $x\\in FV(T)$, sinon\n", + " $BV(\\lambda x.T) = BV(T)$.\n", + "3. $BV((T_1\\ T_2)) = BV(T_1)\\cup BV(T_2)$." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "La méthode `variables` donne sous un couple constitué de l'ensemble des variables libres et de l'ensemble des variables liées du $\\lambda$-terme." ] }, { @@ -249,17 +437,70 @@ "metadata": {}, "outputs": [ { - "name": "stdout", - "output_type": "stream", - "text": [ - "λx.x --> λx.x\n", - "λx.x --> λx.x\n" - ] + "data": { + "text/plain": [ + "(({'x'}, set()),\n", + " ({'x'}, set()),\n", + " (set(), {'x'}),\n", + " ({'y'}, {'x'}),\n", + " ({'x', 'y'}, {'x'}))" + ] + }, + "execution_count": 13, + "metadata": {}, + "output_type": "execute_result" } ], "source": [ - "print(T3, '-->', T3.subs('y', Lambda_terme('(y x)')))\n", - "print(T3, '-->', T3.subs('x', Lambda_terme('(y x)')))" + "tuple(t.variables() for t in termes)" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "**Remarque :** Dans un $\\lambda$-terme, une variable peut être à la fois libre et liée comme le montre l'exemple du terme `T5` qui contient deux occurrences de la variable $x$, la première étant liée et la seconde libre. Pour être plus précis, on devrait plutôt parler d'*occurrence libre* ou *liée* d'une variable." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Un $\\lambda$-terme sans variable libre est appelé *terme clos*, ou encore *combinateur*." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "### Sous-termes" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Hormis les variables, les $\\lambda$-termes sont construits à partir d'autres $\\lambda$-termes qui eux-mêmes peuvent être construits à l'aide d'autres $\\lambda$-termes encore. \n", + "\n", + "Un $\\lambda$-terme contient donc des *sous-termes*." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Voici comment l'ensemble $ST$ des sous-termes d'un $\\lambda$-terme est défini inductivement selon la structure de ce terme.\n", + "\n", + "1. Les variables n'ont qu'un seul sous-terme : elles-mêmes. $ST(x) = \\{x\\}$.\n", + "2. Les sous-termes d'une abstraction sont, outre l'abstration elle-même, les sous-termes de son corps. $ST(\\lambda x.T) = \\{\\lambda x.T\\}\\cup ST(T)$.\n", + "3. Les sous-termes d'une application sont, outre l'application elle-même, les sous-termes des deux termes la composant. $ST((T_1\\ T_2)) = \\{(T_1\\ T_2)\\}\\cup ST(T_1)\\cup ST(T_2)$." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "La méthode `sous_termes` donne la liste des sous-termes d'un $\\lambda$-terme. L'ordre dans lequel figurent les sous-termes dans cette liste est l'ordre d'apparition de ces sous-termes dans une lecture de gauche à droite (autrement dit, un ordre préfixe)." ] }, { @@ -271,23 +512,58 @@ "name": "stdout", "output_type": "stream", "text": [ - "λx.x\n", - "λy.x\n", - "λx.(x x)\n", - "λy.(x x)\n", - "λx.λx.x\n", - "λy.λx.x\n", - "λx.λx.(x x)\n", - "λy.λx.(x x)\n", - "λx.(λx.(x y) z)\n", - "λy.(λx.(x y) z)\n" + "(λx.(x y) x)\n", + "λx.(x y)\n", + "(x y)\n", + "x\n", + "y\n", + "x\n" ] } ], "source": [ - "for t in termes:\n", - " for v in ('x', 'y'):\n", - " print(t.abstrait(v))" + "for t in T5.sous_termes():\n", + " print(t)" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## $\\beta$-réduction ou calculer avec des $\\lambda$-termes" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "### Substitution" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Étant donnés deux $\\lambda$-termes $T$ et $R$, et une variable $x$, on note $T[x:= R]$ le $\\lambda$-terme obtenu en substituant le terme $R$ à toutes les occurrences libres de la variable $x$ dans le terme $T$." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "1. Si $T$ est une variable, $T[x:=R] = R$ si $T=x$ et $T[x := R] = T$ si $T\\neq x$.\n", + "2. Si $T=(T_1\\ T_2)$ est une application, $T[x:=R] = (T_1[x:=R]\\ T_2[x := R])$.\n", + "3. Si $T=\\lambda y.S$ est une abstraction, alors il faut distinguer deux cas pour définir $T[x:=R]$\n", + " \n", + " * si $y\\not\\in FV(R)$, alors $T[x:=R] = \\lambda y.S[x:= R]$.\n", + " * si $y\\in FV(R)$, alors $T[x:=R] = \\lambda z.S[y:=z][x:=R]$, la variable $z$ étant une nouvelle variable n'apparaissant pas dans $S$ ni dans $R$. On procède à un renommage de la variable d'abstraction ($y$) pour éviter que les occurrences libres de $y$ de $R$ n'entrent sous la portée de l'abstraction." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "La méthode `subs` renvoie le terme obtenu en substituant un $\\lambda$-terme à toutes les occurrences libres d'une variable." ] }, { @@ -299,47 +575,43 @@ "name": "stdout", "output_type": "stream", "text": [ - "(x x)\n", - "(x (x x))\n", - "(x λx.x)\n", - "(x λx.(x x))\n", - "(x (λx.(x y) z))\n", - "((x x) x)\n", - "((x x) (x x))\n", - "((x x) λx.x)\n", - "((x x) λx.(x x))\n", - "((x x) (λx.(x y) z))\n", - "(λx.x x)\n", - "(λx.x (x x))\n", - "(λx.x λx.x)\n", - "(λx.x λx.(x x))\n", - "(λx.x (λx.(x y) z))\n", - "(λx.(x x) x)\n", - "(λx.(x x) (x x))\n", - "(λx.(x x) λx.x)\n", - "(λx.(x x) λx.(x x))\n", - "(λx.(x x) (λx.(x y) z))\n", - "((λx.(x y) z) x)\n", - "((λx.(x y) z) (x x))\n", - "((λx.(x y) z) λx.x)\n", - "((λx.(x y) z) λx.(x x))\n", - "((λx.(x y) z) (λx.(x y) z))\n" + "T1 = x\n", + "T1[y:=(y x)] = x\n", + "T1[x:=(y x)] = (y x)\n" ] } ], "source": [ - "for t1 in termes:\n", - " for t2 in termes:\n", - " print(t1.applique(t2))" + "# substitution dans une variable\n", + "print('T1 = {:s}'.format(str(T1)))\n", + "x = 'y'; R = Lambda_terme('(y x)')\n", + "print('T1[{:s}:={:s}] = {:s}'.format(x, str(R), str(T1.subs(x, R))))\n", + "x = 'x'\n", + "print('T1[{:s}:={:s}] = {:s}'.format(x, str(R), str(T1.subs(x, R))))" ] }, { "cell_type": "code", "execution_count": 16, "metadata": {}, - "outputs": [], + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "T2 = (x x)\n", + "T2[y:=(y x)] = (x x)\n", + "T2[x:=(y x)] = ((y x) (y x))\n" + ] + } + ], "source": [ - "OMEGA = Lambda_terme('(!x.(x x) !x.(x x))')" + "# substitution dans une application\n", + "print('T2 = {:s}'.format(str(T2)))\n", + "x = 'y'; R = Lambda_terme('(y x)')\n", + "print('T2[{:s}:={:s}] = {:s}'.format(x, str(R), str(T2.subs(x, R))))\n", + "x = 'x'\n", + "print('T2[{:s}:={:s}] = {:s}'.format(x, str(R), str(T2.subs(x, R))))" ] }, { @@ -351,12 +623,29 @@ "name": "stdout", "output_type": "stream", "text": [ - "(λx.(x x) λx.(x x))\n" + "T4 = λx.(x y)\n", + "T4[x:=(y z)] = λx.(x y)\n", + "T4[y:=(y z)] = λx.(x (y z))\n", + "T4[y:=(y x)] = λx0.(x0 (y x))\n" ] } ], "source": [ - "print(OMEGA)" + "# substitution dans une abstraction\n", + "print('T4 = {:s}'.format(str(T4)))\n", + "x = 'x'; R = Lambda_terme('(y z)')\n", + "print('T4[{:s}:={:s}] = {:s}'.format(x, str(R), str(T4.subs(x, R))))\n", + "x = 'y'; R = Lambda_terme('(y z)')\n", + "print('T4[{:s}:={:s}] = {:s}'.format(x, str(R), str(T4.subs(x, R))))\n", + "x = 'y'; R = Lambda_terme('(y x)')\n", + "print('T4[{:s}:={:s}] = {:s}'.format(x, str(R), str(T4.subs(x, R))))" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "**Remarque :** on peut utiliser la substitution pour construire des $\\lambda$-termes à partir d'autres existants. " ] }, { @@ -365,18 +654,53 @@ "metadata": {}, "outputs": [ { - "data": { - "text/plain": [ - "True" - ] - }, - "execution_count": 18, - "metadata": {}, - "output_type": "execute_result" + "name": "stdout", + "output_type": "stream", + "text": [ + "(λz.((x x) λx.x) λx.(x y))\n" + ] } ], "source": [ - "OMEGA.est_redex()" + "print(Lambda_terme('(!z.(T2 T3) T4)').subs('T2', T2).subs('T3', T3).subs('T4', T4))" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "### Réduire un terme" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "L'idée principale qui motive la notion de réduction est qu'une abstraction $\\lambda x.T$ représente une fonction $x \\mapsto T$, et qu'une application d'une abstraction à un terme $R$, $(\\lambda x.T\\ R)$ représente l'application de la fonction au terme $R$.\n", + "\n", + "De la même façon que l'application la fonction $x\\mapsto x^2+2x -1$ à un nombre $y$ se ramène au calcul de l'expression $y^2+2y-1$ obtenue en substituant $y$ à $x$, l'application $(\\lambda x.T\\ R)$ doit se réduire au terme $T[x:=R]$." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Un terme de la forme $(\\lambda x.T\\ R)$, autrement dit une application d'une abstraction à un terme, est appelé *redex*.\n", + "\n", + "La *réduction d'un redex* est une relation, notée $\\rightarrow_\\beta$, est définie par\n", + "\n", + "$$ (\\lambda x.T\\ R) \\rightarrow_\\beta T[x:=R].$$ \n", + "\n", + "On peut étendre cette notion de réduction à tout $\\lambda$-terme dont l'un au moins de ses sous-termes est un redex. Le terme réduit correspondant étant celui obtenu en remplaçant un sous-terme redex par son réduit.\n", + "\n", + "Selon cette définition, seuls les $\\lambda$-termes ayant au moins un redex parmi leurs sous-termes peuvent être réduits. Les $\\lambda$-termes ne contenant aucun redex sont dit *irréductibles* ou encore sont des *formes normales*." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "La méthode `est_redex` permet de distinguer les $\\lambda$-termes qui sont des redex." ] }, { @@ -385,18 +709,20 @@ "metadata": {}, "outputs": [ { - "data": { - "text/plain": [ - "False" - ] - }, - "execution_count": 19, - "metadata": {}, - "output_type": "execute_result" + "name": "stdout", + "output_type": "stream", + "text": [ + "x False\n", + "(x x) False\n", + "λx.x False\n", + "λx.(x y) False\n", + "(λx.(x y) x) True\n" + ] } ], "source": [ - "OMEGA.est_forme_normale()" + "for t in termes:\n", + " print(t, t.est_redex())" ] }, { @@ -405,26 +731,38 @@ "metadata": {}, "outputs": [ { - "data": { - "text/plain": [ - "set()" - ] - }, - "execution_count": 20, - "metadata": {}, - "output_type": "execute_result" + "name": "stdout", + "output_type": "stream", + "text": [ + "(λx.(x y) (λx.(x y) x)) True\n", + "λx.(x y) False\n", + "(x y) False\n", + "x False\n", + "y False\n", + "(λx.(x y) x) True\n", + "λx.(x y) False\n", + "(x y) False\n", + "x False\n", + "y False\n", + "x False\n" + ] } ], "source": [ - "OMEGA.variables_libres()" + "T6 = T4.applique(T5)\n", + "for t in T6.sous_termes():\n", + " print(t, t.est_redex())" ] }, { - "cell_type": "code", - "execution_count": null, + "cell_type": "markdown", "metadata": {}, - "outputs": [], - "source": [] + "source": [ + "La méthode `reduit` réduit les redex. La valeur de l'expression `T.reduit()` est un couple (Lambda_terme, bool) dont la valeur dépend du $\\lambda$-terme `T` :\n", + "\n", + "* si `T` contient un redex, alors le booléen a la valeur `True` et la première composante du couple est le $\\lambda$-terme obtenu en remplaçant le redex le plus à gauche dans `T` par le terme obtenu par une étape de réduction.\n", + "* si `T` ne contient aucun redex, alors le couple est `(T, False)`." + ] }, { "cell_type": "code", @@ -435,15 +773,17 @@ "name": "stdout", "output_type": "stream", "text": [ - "(λx.(x x) λx.(x x))\n", - "True\n" + "(x x)\n", + "False\n", + "(x x)\n" ] } ], "source": [ - "res, est_red = OMEGA.reduit()\n", - "print(res)\n", - "print(est_red)" + "t, reduit = T2.reduit()\n", + "print(T2)\n", + "print(reduit)\n", + "print(t)" ] }, { @@ -455,19 +795,311 @@ "name": "stdout", "output_type": "stream", "text": [ - "(eric vero) True\n" + "(λx.(x y) (λx.(x y) x))\n", + "True\n", + "((λx.(x y) x) y)\n" ] } ], "source": [ - "res, est_red = Lambda_terme('(!x.(eric x) vero)').reduit()\n", - "print(res, est_red)" + "T7, reduit = T6.reduit()\n", + "print(T6)\n", + "print(reduit)\n", + "print(T7)" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Le terme `T6` contient deux redex. Comme il a été signalé la méthode `reduit` réduit le redex le plus à gauche, et dans le cas de `T6` le redex le plus à gauche est `T6` lui-même. Et cela donne le terme `T7`.\n", + "\n", + "Mais comme `T6 = (T4 T5)`, et que `T5` est un redex, considérons le terme `(T4 T5')` dans lequel `T5'` est le terme obtenu en réduisant le redex `T5`." ] }, { "cell_type": "code", "execution_count": 23, "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "(λx.(x y) x)\n", + "(λx.(x y) (x y))\n" + ] + } + ], + "source": [ + "T5bis, reduit = T5.reduit()\n", + "T7bis = T4.applique(T5bis)\n", + "print(T5)\n", + "print\n", + "print(T7bis)" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Nous voyons donc qu'un $\\lambda$-terme peut se réduire de plusieurs façons (en fait d'autant de façon que le terme contient de sous-termes qui sont des redex).\n", + "\n", + "En particulier nous avons\n", + "\n", + "* `T6` $\\rightarrow_\\beta$ `T7` et\n", + "* `T6` $\\rightarrow_\\beta$ `T7bis`.\n", + "\n", + "Si nous envisageons les $\\beta$ reductions comme des étapes de calcul, nous avons donc deux voies distinctes pour « calculer » `T6`. \n", + "\n", + "Poursuivons le calcul pour chacun des deux termes `T7` et `T7bis` qui ne sont pas des formes normales." + ] + }, + { + "cell_type": "code", + "execution_count": 24, + "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "((x y) y) = ((x y) y) : True\n" + ] + } + ], + "source": [ + "T8, _ = T7.reduit()\n", + "T8bis, _ = T7bis.reduit()\n", + "print('{} = {} : {}'.format(str(T8), str(T8bis), T8==T8bis))" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Après une nouvelle étape de réduction nous obtenons le même terme $((x\\ y)\\ y)$ qui est irréductible.\n", + "On peut dire que par deux calculs différents `T6` se calcule, ou se *normalise*, en $((x\\ y)\\ y)$.\n", + "On écrit\n", + "\n", + "$$ \\mathtt{T6} \\twoheadrightarrow_{\\beta} ((x\\ y)\\ y),$$\n", + "la notation $T\\twoheadrightarrow_{\\beta} R$ signifiant qu'il y a un nombre quelconque (y compris nul) d'étapes de $\\beta$-réduction pour arriver au terme $R$ en partant de $T$ (dit en terme plus savant, la relation $\\twoheadrightarrow_\\beta$ est la clôture réflexive et transitive de la relation $\\rightarrow_\\beta$)." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "### Formes normales, normalisation" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "On dit d'un $\\lambda$-terme $T$ qu'il est *normalisable* s'il existe un $\\lambda$-terme $R$ irréductible tel que\n", + "\n", + "$$ T\\twoheadrightarrow_{\\beta} R.$$\n", + "Dans ce cas, on dit que $R$ est une *forme normale* de $T$.\n", + "\n", + "Par exemple, `T6` est normalisable et admet $((x\\ y)\\ y)$ pour forme normale." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Deux questions se posent naturellement :\n", + "\n", + "1. est-ce que tout $\\lambda$-terme est normalisable ?\n", + "2. un $\\lambda$-terme normalisable peut-il avoir plusieurs formes normales ?" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "La réponse à la première question est négative. Il suffit pour s'en convaincre de considérer le terme\n", + "\n", + "$$\\Omega = (\\lambda x.(x\\ x)\\ \\lambda x.(x\\ x)),$$\n", + "qui est un redex et est donc réductible." + ] + }, + { + "cell_type": "code", + "execution_count": 25, + "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "(λx.(x x) λx.(x x))\n", + "True\n", + "(λx.(x x) λx.(x x)) -> (λx.(x x) λx.(x x))\n", + "True\n" + ] + } + ], + "source": [ + "OMEGA = Lambda_terme('(!x.(x x) !x.(x x))')\n", + "print(OMEGA)\n", + "t, reduit = OMEGA.reduit()\n", + "print(reduit)\n", + "print('{} -> {}'.format(str(OMEGA), str(t)))\n", + "print(t==OMEGA)" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Le terme $\\Omega$ n'a qu'un seul redex. Il n'y a donc qu'une seule façon de le réduire et cette réduction donne le terme $\\Omega$ lui-même. Quelque soit le nombre d'étapes de réduction qu'on effectue on garde toujours le même terme : $\\Omega$ n'est donc pas normalisable. \n", + "\n", + "Il existe donc des termes non normalisables, et $\\Omega$ en est un exemple les plus simples." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Venons-en maintenant à la deuxième question : un terme normalisable peut-il avoir plusieurs formes normales ?\n", + "\n", + "Cette question est naturelle puisque lorsqu'un $\\lambda$-terme possède plusieurs redex, il y a plusieurs façons de le réduire, et il se pourrait bien que ces voies différentes mènent à des formes normales différentes.\n", + "\n", + "Cela n'a pas été le cas pour le terme `T6`. Et il se trouve que cet exemple particulier reflète la situation générale, car la relation de $\\beta$-réduction satisfait une propriété qu'on appelle propriété du diamant." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "**Propriété du diamant** Soit $T$ un $\\lambda$-terme qui peut se réduire en un nombre fini d'étapes en deux termes différents $R_1$ et $R_2$. Alors il existe un terme $R$ en lequel chacun des deux termes $R_1$ et $R_2$ se réduit en un nombre quelconque (y compris nul) d'étapes.\n", + "\n", + "Cette propriété doit son nom à la figure qui l'illustre. Cette propriété est aussi connue sous le nom de *confluence* de la $\\beta$-réduction.\n", + "\n", + "![illustration de la propriété du diamant](tikz_diamant.png)" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "**Conséquence de la propriété du diamant :** Un $\\lambda$-terme normalisable ne peut avoir qu'une seule forme normale." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Maintenant que nous avons répondu aux deux questions que nous nous sommes posées, il en vient une troisième.\n", + "\n", + "Étant donné que certains $\\lambda$-termes sont normalisables et d'autres non, y a-t-il un moyen de les reconnaître ?\n", + "\n", + "Si par *moyen* nous entendons un algorithme général prenant un $\\lambda$-terme en entrée, et répondant OUI si ce terme est normalisable et NON dans le cas contraire, alors la réponse est non. Aucun algorithme ne permet de distinguer les termes normalisables de ceux qui ne le sont pas. Le problème de la reconnaissance des termes normalisables est *indécidable*.\n", + "\n", + "Dit en d'autres termes, l'ensemble des termes normalisables n'est pas récursif. En revanche il est récursivement énumérable. En effet, si un terme est normalisable, pour s'en rendre compte il suffit de suivre tous les chemins de réduction. L'un d'eux mène à un terme irréductible et on le trouvera en un nombre fini d'étapes." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "La méthode `forme_normale` calcule la forme normale d'un terme normalisable si ce terme l'est, et ne renvoie rien dans le cas contraire. " + ] + }, + { + "cell_type": "code", + "execution_count": 26, + "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "((x y) y)\n" + ] + } + ], + "source": [ + "print(T6.forme_normale())" + ] + }, + { + "cell_type": "code", + "execution_count": 27, + "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "None\n" + ] + } + ], + "source": [ + "print(OMEGA.forme_normale())" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Hmmmm ... Comment est-ce possible puisque nous venons de voir qu'aucun algorithme ne permet de décider si un terme est normalisable ?\n", + "\n", + "En fait le nombre d'étapes de réduction dans le calcul d'une forme normale est limité (par défaut à 100 étapes maximum). On peut visualiser chaque étape de calcul avec le paramètre optionnel `verbose` auquel il faut attribuer la valeur `True`." + ] + }, + { + "cell_type": "code", + "execution_count": 28, + "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "(λx.(x y) (λx.(x y) x))\n", + " 1: ---> (λx.(x y) (λx.(x y) x))\n", + " 2: ---> ((λx.(x y) x) y)\n", + " 3: ---> ((x y) y)\n", + "Forme normale calculée : ((x y) y)\n" + ] + }, + { + "data": { + "text/plain": [ + "" + ] + }, + "execution_count": 28, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "T6.forme_normale(verbose=True)" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "On voit que la forme normale du terme `T6` est calculé en trois étapes." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Pour un terme non normalisable les calculs peuvent (en principe) être infinis. Voici la tentative de détermination d'une forme normale pour le terme $\\Omega$ limité à dix étapes à l'aide du paramètre optionnel `nb_etapes_max`. " + ] + }, + { + "cell_type": "code", + "execution_count": 29, + "metadata": {}, "outputs": [ { "name": "stdout", @@ -489,19 +1121,866 @@ } ], "source": [ - "OMEGA.forme_normale(nb_etapes_max=10, verbose=True)" + "OMEGA.forme_normale(verbose=True, nb_etapes_max=10)" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ - "## Entiers, successeurs, addition, multiplication et exponentiation" + "### $\\beta$-équivalence" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "La relation $\\twoheadrightarrow_\\beta$ n'est pas symétrique. En effet, en général, si $T\\twoheadrightarrow_\\beta R$, on n'a pas $R\\twoheadrightarrow_\\beta T$." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "En considèrant que la forme normale d'un terme normalisable représente sa « valeur », on peut définir une relation d'équivalence sur les $\\lambda$-termes normalisables. Cette relation d'équivalence est la clôture symétrique de la relation de réduction $\\twoheadrightarrow_\\beta$." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Deux $\\lambda$-termes $T$ et $S$ (normalisables ou non) sont dit $\\beta$-équivalents, et on note $T=_\\beta S$, s'il existe un terme $R$ tel que $T\\twoheadrightarrow_\\beta R$ et $S\\twoheadrightarrow_\\beta R$." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Ainsi deux termes normalisables ayant la même forme normale sont $\\beta$-équivalents." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "**Théorème du point fixe** Pour tout $\\lambda$-terme $T$, il existe un $\\lambda$-terme $X$ tel que\n", + "\n", + "$$ (T\\ X) =_\\beta X.$$" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "La démonstration de ce théorème se fait en considérant les $\\lambda$-termes\n", + "$$ W = \\lambda x.(T\\ (x\\ x)),$$\n", + "et\n", + "$$ X = (W\\ W).$$\n", + "Il est clair que\n", + "$$ X \\rightarrow_\\beta (T\\ (W\\ W)) = (T\\ X),$$\n", + "et donc que\n", + "$$ X =_\\beta (T\\ X).$$" ] }, { "cell_type": "code", - "execution_count": 25, + "execution_count": 30, + "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "(λx.(T (x x)) λx.(T (x x)))\n", + "(T (λx.(T (x x)) λx.(T (x x))))\n" + ] + } + ], + "source": [ + "W = Lambda_terme('!x.(T (x x))')\n", + "X = W.applique(W)\n", + "print(X)\n", + "print(X.reduit()[0])" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "**Remarque** À noter que dans la démonstration du théorème du point fixe, pour établir que $(T\\ X) =_\\beta X$, on a montré que $X$ se réduit en $(T\\ X)$ et non le contraire." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Pouvoir d'expression du $\\lambda$-calcul" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Dans cette section, nous allons découvrir que le $\\lambda$-calcul permet \n", + "\n", + "* de représenter les nombres entiers et de définir les opérations arithmétiques de base\n", + "* de définir des couples, listes, structures à la base de nombreuses autres structures de données\n", + "* de définir des booléens, et de simuler des expressions conditionnelles\n", + "* d'itérer des fonctions,\n", + "* d'exprimer n'importe quelle fonction récursive.\n", + "\n", + "Bref, d'un certain point de vue le $\\lambda$-calcul est un langage de programmation ... certes assez peu efficace comme on pourra s'en rendre compte." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "### Booléens, opérateurs logiques et conditionnelles" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "#### Les deux booléens VRAI et FAUX" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "On peut représenter les deux booléens VRAI et FAUX par les $\\lambda$-termes\n", + "$$ VRAI = \\lambda x.\\lambda y.x,$$\n", + "et\n", + "$$ FAUX = \\lambda x.\\lambda y.y.$$" + ] + }, + { + "cell_type": "code", + "execution_count": 31, + "metadata": {}, + "outputs": [], + "source": [ + "VRAI = Lambda_terme('!x.!y.x')\n", + "FAUX = Lambda_terme('!x.!y.y')" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "#### Le terme IF" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Ce choix peut être justifiée a posteriori en considérant que l'expression conditionnelle fréquente en programmation\n", + "\n", + " IF c THEN a ELSE s\n", + "\n", + "peut être facilement simulée à l'aide d'abstractions des variables $c$, $a$ et $s$ par le $\\lambda$-terme\n", + "\n", + "$$ \\mathtt{IF} = \\lambda c.\\lambda a.\\lambda s.((c\\ a)\\ s).$$" + ] + }, + { + "cell_type": "code", + "execution_count": 32, + "metadata": {}, + "outputs": [], + "source": [ + "IF = Lambda_terme('!c.!a.!s.((c a) s)') " + ] + }, + { + "cell_type": "code", + "execution_count": 33, + "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "(((λc.λa.λs.((c a) s) λx.λy.x) ALORS) SINON)\n", + " 1: ---> (((λc.λa.λs.((c a) s) λx.λy.x) ALORS) SINON)\n", + " 2: ---> ((λa.λs.((λx.λy.x a) s) ALORS) SINON)\n", + " 3: ---> (λs.((λx.λy.x ALORS) s) SINON)\n", + " 4: ---> ((λx.λy.x ALORS) SINON)\n", + " 5: ---> (λy.ALORS SINON)\n", + " 6: ---> ALORS\n", + "Forme normale calculée : ALORS\n" + ] + }, + { + "data": { + "text/plain": [ + "" + ] + }, + "execution_count": 33, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "IF.applique(VRAI).applique(Lambda_terme('ALORS')).applique(Lambda_terme('SINON')).forme_normale(verbose=True)" + ] + }, + { + "cell_type": "code", + "execution_count": 34, + "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "(((λc.λa.λs.((c a) s) λx.λy.y) ALORS) SINON)\n", + " 1: ---> (((λc.λa.λs.((c a) s) λx.λy.y) ALORS) SINON)\n", + " 2: ---> ((λa.λs.((λx.λy.y a) s) ALORS) SINON)\n", + " 3: ---> (λs.((λx.λy.y ALORS) s) SINON)\n", + " 4: ---> ((λx.λy.y ALORS) SINON)\n", + " 5: ---> (λy.y SINON)\n", + " 6: ---> SINON\n", + "Forme normale calculée : SINON\n" + ] + }, + { + "data": { + "text/plain": [ + "" + ] + }, + "execution_count": 34, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "IF.applique(FAUX).applique(Lambda_terme('ALORS')).applique(Lambda_terme('SINON')).forme_normale(verbose=True)" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "**Remarque**\n", + "Le $\\lambda$-terme $\\mathtt{IF}$ permet d'exprimer des $\\lambda$-termes ayant une forme normale bien que l'une ou l'autre de ses sous-termes n'en aient pas, comme par exemple\n", + "\n", + "1. $(((\\mathtt{IF}\\, \\mathtt{VRAI})\\, \\mathtt{ALORS})\\, \\mathtt{OMEGA})$ qui se réduit en $\\mathtt{ALORS}$ (et a donc une forme normale si $\\mathtt{ALORS}$ en a une) bien que $\\mathtt{OMEGA}$ n'en ait pas ;\n", + "\n", + "2. ou $(((\\mathtt{IF}\\, \\mathtt{FAUX})\\, \\mathtt{OMEGA})\\, \\mathtt{SINON})$ qui se réduit en $\\mathtt{SINON}$.\n", + "\n", + "Cette propriété est bien utile en programmation, et servira pour la programmation de fonctions récursives." + ] + }, + { + "cell_type": "code", + "execution_count": 35, + "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "(((λc.λa.λs.((c a) s) λx.λy.x) ALORS) (λx.(x x) λx.(x x)))\n", + " 1: ---> (((λc.λa.λs.((c a) s) λx.λy.x) ALORS) (λx.(x x) λx.(x x)))\n", + " 2: ---> ((λa.λs.((λx.λy.x a) s) ALORS) (λx.(x x) λx.(x x)))\n", + " 3: ---> (λs.((λx.λy.x ALORS) s) (λx.(x x) λx.(x x)))\n", + " 4: ---> ((λx.λy.x ALORS) (λx.(x x) λx.(x x)))\n", + " 5: ---> (λy.ALORS (λx.(x x) λx.(x x)))\n", + " 6: ---> ALORS\n", + "Forme normale calculée : ALORS\n" + ] + }, + { + "data": { + "text/plain": [ + "" + ] + }, + "execution_count": 35, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "IF.applique(VRAI).applique(Lambda_terme('ALORS')).applique(OMEGA).forme_normale(verbose=True)" + ] + }, + { + "cell_type": "code", + "execution_count": 36, + "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "(((λc.λa.λs.((c a) s) λx.λy.y) (λx.(x x) λx.(x x))) SINON)\n", + " 1: ---> (((λc.λa.λs.((c a) s) λx.λy.y) (λx.(x x) λx.(x x))) SINON)\n", + " 2: ---> ((λa.λs.((λx.λy.y a) s) (λx.(x x) λx.(x x))) SINON)\n", + " 3: ---> (λs.((λx.λy.y (λx.(x x) λx.(x x))) s) SINON)\n", + " 4: ---> ((λx.λy.y (λx.(x x) λx.(x x))) SINON)\n", + " 5: ---> (λy.y SINON)\n", + " 6: ---> SINON\n", + "Forme normale calculée : SINON\n" + ] + }, + { + "data": { + "text/plain": [ + "" + ] + }, + "execution_count": 36, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "IF.applique(FAUX).applique(OMEGA).applique(Lambda_terme('SINON')).forme_normale(verbose=True)" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Le fait que le terme `IF` se comporte bien comme on l'attend résulte du choix de la stratégie de réduction des redex les plus à gauche en priorité. Si la stratégie choisie avait été de réduire le redex le plus à droite, la réduction de chacun des deux termes précédents aurait conduit à la tentative de réduire le terme $\\Omega$ qui échoue puisque celui-ci n'est pas normalisable comme on l'a vu." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Il est facile de définir les opérateurs logiques de base : conjonction, disjonction et négation." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "#### Opérateur ET" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "L'opérateur logique de conjonction peut être défini par\n", + "\n", + "$$ ET = \\lambda a.\\lambda b.(((IF\\ a)\\ b)\\ FAUX).$$" + ] + }, + { + "cell_type": "code", + "execution_count": 37, + "metadata": {}, + "outputs": [], + "source": [ + "ET = IF.applique(Lambda_terme('a')).applique(Lambda_terme('b')).applique(FAUX).abstrait('b').abstrait('a')" + ] + }, + { + "cell_type": "code", + "execution_count": 38, + "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "λa.λb.(((λc.λa.λs.((c a) s) a) b) λx.λy.y)\n" + ] + } + ], + "source": [ + "print(ET)" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Et on peut verifier que ce terme satisfait bien à la table de vérité de l'opérateur de conjonction." + ] + }, + { + "cell_type": "code", + "execution_count": 39, + "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "((λa.λb.(((λc.λa.λs.((c a) s) a) b) λx.λy.y) λx.λy.x) λx.λy.x)\n", + " 1: ---> ((λa.λb.(((λc.λa.λs.((c a) s) a) b) λx.λy.y) λx.λy.x) λx.λy.x)\n", + " 2: ---> (λb.(((λc.λa.λs.((c a) s) λx.λy.x) b) λx.λy.y) λx.λy.x)\n", + " 3: ---> (((λc.λa.λs.((c a) s) λx.λy.x) λx.λy.x) λx.λy.y)\n", + " 4: ---> ((λa.λs.((λx.λy.x a) s) λx.λy.x) λx.λy.y)\n", + " 5: ---> (λs.((λx.λy.x λx.λy.x) s) λx.λy.y)\n", + " 6: ---> ((λx.λy.x λx.λy.x) λx.λy.y)\n", + " 7: ---> (λy.λx.λy.x λx.λy.y)\n", + " 8: ---> λx.λy.x\n", + "Forme normale calculée : λx.λy.x\n" + ] + }, + { + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 39, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "ET.applique(VRAI).applique(VRAI).forme_normale(verbose=True) == VRAI" + ] + }, + { + "cell_type": "code", + "execution_count": 40, + "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "((λa.λb.(((λc.λa.λs.((c a) s) a) b) λx.λy.y) λx.λy.x) λx.λy.y)\n", + " 1: ---> ((λa.λb.(((λc.λa.λs.((c a) s) a) b) λx.λy.y) λx.λy.x) λx.λy.y)\n", + " 2: ---> (λb.(((λc.λa.λs.((c a) s) λx.λy.x) b) λx.λy.y) λx.λy.y)\n", + " 3: ---> (((λc.λa.λs.((c a) s) λx.λy.x) λx.λy.y) λx.λy.y)\n", + " 4: ---> ((λa.λs.((λx.λy.x a) s) λx.λy.y) λx.λy.y)\n", + " 5: ---> (λs.((λx.λy.x λx.λy.y) s) λx.λy.y)\n", + " 6: ---> ((λx.λy.x λx.λy.y) λx.λy.y)\n", + " 7: ---> (λy.λx.λy.y λx.λy.y)\n", + " 8: ---> λx.λy.y\n", + "Forme normale calculée : λx.λy.y\n" + ] + }, + { + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 40, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "ET.applique(VRAI).applique(FAUX).forme_normale(verbose=True) == FAUX" + ] + }, + { + "cell_type": "code", + "execution_count": 41, + "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "((λa.λb.(((λc.λa.λs.((c a) s) a) b) λx.λy.y) λx.λy.y) λx.λy.x)\n", + " 1: ---> ((λa.λb.(((λc.λa.λs.((c a) s) a) b) λx.λy.y) λx.λy.y) λx.λy.x)\n", + " 2: ---> (λb.(((λc.λa.λs.((c a) s) λx.λy.y) b) λx.λy.y) λx.λy.x)\n", + " 3: ---> (((λc.λa.λs.((c a) s) λx.λy.y) λx.λy.x) λx.λy.y)\n", + " 4: ---> ((λa.λs.((λx.λy.y a) s) λx.λy.x) λx.λy.y)\n", + " 5: ---> (λs.((λx.λy.y λx.λy.x) s) λx.λy.y)\n", + " 6: ---> ((λx.λy.y λx.λy.x) λx.λy.y)\n", + " 7: ---> (λy.y λx.λy.y)\n", + " 8: ---> λx.λy.y\n", + "Forme normale calculée : λx.λy.y\n" + ] + }, + { + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 41, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "ET.applique(FAUX).applique(VRAI).forme_normale(verbose=True) == FAUX" + ] + }, + { + "cell_type": "code", + "execution_count": 42, + "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "((λa.λb.(((λc.λa.λs.((c a) s) a) b) λx.λy.y) λx.λy.y) λx.λy.y)\n", + " 1: ---> ((λa.λb.(((λc.λa.λs.((c a) s) a) b) λx.λy.y) λx.λy.y) λx.λy.y)\n", + " 2: ---> (λb.(((λc.λa.λs.((c a) s) λx.λy.y) b) λx.λy.y) λx.λy.y)\n", + " 3: ---> (((λc.λa.λs.((c a) s) λx.λy.y) λx.λy.y) λx.λy.y)\n", + " 4: ---> ((λa.λs.((λx.λy.y a) s) λx.λy.y) λx.λy.y)\n", + " 5: ---> (λs.((λx.λy.y λx.λy.y) s) λx.λy.y)\n", + " 6: ---> ((λx.λy.y λx.λy.y) λx.λy.y)\n", + " 7: ---> (λy.y λx.λy.y)\n", + " 8: ---> λx.λy.y\n", + "Forme normale calculée : λx.λy.y\n" + ] + }, + { + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 42, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "ET.applique(FAUX).applique(FAUX).forme_normale(verbose=True) == FAUX" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "#### Opérateur OU" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "L'opérateur logique de disjonction peut être défini par\n", + "\n", + "$$ OU = \\lambda a.\\lambda b.(((IF\\ a)\\ VRAI)\\ b).$$" + ] + }, + { + "cell_type": "code", + "execution_count": 43, + "metadata": {}, + "outputs": [], + "source": [ + "OU = IF.applique(Lambda_terme('a')).applique(VRAI).applique(Lambda_terme('b')).abstrait('b').abstrait('a')" + ] + }, + { + "cell_type": "code", + "execution_count": 44, + "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "λa.λb.(((λc.λa.λs.((c a) s) a) λx.λy.x) b)\n" + ] + } + ], + "source": [ + "print(OU)" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Et on peut verifier que ce terme satisfait bien à la table de vérité de l'opérateur de disjonction." + ] + }, + { + "cell_type": "code", + "execution_count": 45, + "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "((λa.λb.(((λc.λa.λs.((c a) s) a) λx.λy.x) b) λx.λy.x) λx.λy.x)\n", + " 1: ---> ((λa.λb.(((λc.λa.λs.((c a) s) a) λx.λy.x) b) λx.λy.x) λx.λy.x)\n", + " 2: ---> (λb.(((λc.λa.λs.((c a) s) λx.λy.x) λx.λy.x) b) λx.λy.x)\n", + " 3: ---> (((λc.λa.λs.((c a) s) λx.λy.x) λx.λy.x) λx.λy.x)\n", + " 4: ---> ((λa.λs.((λx.λy.x a) s) λx.λy.x) λx.λy.x)\n", + " 5: ---> (λs.((λx.λy.x λx.λy.x) s) λx.λy.x)\n", + " 6: ---> ((λx.λy.x λx.λy.x) λx.λy.x)\n", + " 7: ---> (λy.λx.λy.x λx.λy.x)\n", + " 8: ---> λx.λy.x\n", + "Forme normale calculée : λx.λy.x\n" + ] + }, + { + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 45, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "OU.applique(VRAI).applique(VRAI).forme_normale(verbose=True) == VRAI" + ] + }, + { + "cell_type": "code", + "execution_count": 46, + "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "((λa.λb.(((λc.λa.λs.((c a) s) a) λx.λy.x) b) λx.λy.x) λx.λy.y)\n", + " 1: ---> ((λa.λb.(((λc.λa.λs.((c a) s) a) λx.λy.x) b) λx.λy.x) λx.λy.y)\n", + " 2: ---> (λb.(((λc.λa.λs.((c a) s) λx.λy.x) λx.λy.x) b) λx.λy.y)\n", + " 3: ---> (((λc.λa.λs.((c a) s) λx.λy.x) λx.λy.x) λx.λy.y)\n", + " 4: ---> ((λa.λs.((λx.λy.x a) s) λx.λy.x) λx.λy.y)\n", + " 5: ---> (λs.((λx.λy.x λx.λy.x) s) λx.λy.y)\n", + " 6: ---> ((λx.λy.x λx.λy.x) λx.λy.y)\n", + " 7: ---> (λy.λx.λy.x λx.λy.y)\n", + " 8: ---> λx.λy.x\n", + "Forme normale calculée : λx.λy.x\n" + ] + }, + { + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 46, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "OU.applique(VRAI).applique(FAUX).forme_normale(verbose=True) == VRAI" + ] + }, + { + "cell_type": "code", + "execution_count": 47, + "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "((λa.λb.(((λc.λa.λs.((c a) s) a) λx.λy.x) b) λx.λy.y) λx.λy.x)\n", + " 1: ---> ((λa.λb.(((λc.λa.λs.((c a) s) a) λx.λy.x) b) λx.λy.y) λx.λy.x)\n", + " 2: ---> (λb.(((λc.λa.λs.((c a) s) λx.λy.y) λx.λy.x) b) λx.λy.x)\n", + " 3: ---> (((λc.λa.λs.((c a) s) λx.λy.y) λx.λy.x) λx.λy.x)\n", + " 4: ---> ((λa.λs.((λx.λy.y a) s) λx.λy.x) λx.λy.x)\n", + " 5: ---> (λs.((λx.λy.y λx.λy.x) s) λx.λy.x)\n", + " 6: ---> ((λx.λy.y λx.λy.x) λx.λy.x)\n", + " 7: ---> (λy.y λx.λy.x)\n", + " 8: ---> λx.λy.x\n", + "Forme normale calculée : λx.λy.x\n" + ] + }, + { + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 47, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "OU.applique(FAUX).applique(VRAI).forme_normale(verbose=True) == VRAI" + ] + }, + { + "cell_type": "code", + "execution_count": 48, + "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "((λa.λb.(((λc.λa.λs.((c a) s) a) λx.λy.x) b) λx.λy.y) λx.λy.y)\n", + " 1: ---> ((λa.λb.(((λc.λa.λs.((c a) s) a) λx.λy.x) b) λx.λy.y) λx.λy.y)\n", + " 2: ---> (λb.(((λc.λa.λs.((c a) s) λx.λy.y) λx.λy.x) b) λx.λy.y)\n", + " 3: ---> (((λc.λa.λs.((c a) s) λx.λy.y) λx.λy.x) λx.λy.y)\n", + " 4: ---> ((λa.λs.((λx.λy.y a) s) λx.λy.x) λx.λy.y)\n", + " 5: ---> (λs.((λx.λy.y λx.λy.x) s) λx.λy.y)\n", + " 6: ---> ((λx.λy.y λx.λy.x) λx.λy.y)\n", + " 7: ---> (λy.y λx.λy.y)\n", + " 8: ---> λx.λy.y\n", + "Forme normale calculée : λx.λy.y\n" + ] + }, + { + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 48, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "OU.applique(FAUX).applique(FAUX).forme_normale(verbose=True) == FAUX" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "#### Opérateur NON" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "L'opérateur de négation peut être défini par le terme\n", + "\n", + "$$ NON = \\lambda a.(((IF\\ a)\\ FAUX)\\ VRAI).$$" + ] + }, + { + "cell_type": "code", + "execution_count": 49, + "metadata": {}, + "outputs": [], + "source": [ + "NON = IF.applique(Lambda_terme('a')).applique(FAUX).applique(VRAI).abstrait('a')" + ] + }, + { + "cell_type": "code", + "execution_count": 50, + "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "λa.(((λc.λa.λs.((c a) s) a) λx.λy.y) λx.λy.x)\n" + ] + } + ], + "source": [ + "print(NON)" + ] + }, + { + "cell_type": "code", + "execution_count": 51, + "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "(λa.(((λc.λa.λs.((c a) s) a) λx.λy.y) λx.λy.x) λx.λy.x)\n", + " 1: ---> (λa.(((λc.λa.λs.((c a) s) a) λx.λy.y) λx.λy.x) λx.λy.x)\n", + " 2: ---> (((λc.λa.λs.((c a) s) λx.λy.x) λx.λy.y) λx.λy.x)\n", + " 3: ---> ((λa.λs.((λx.λy.x a) s) λx.λy.y) λx.λy.x)\n", + " 4: ---> (λs.((λx.λy.x λx.λy.y) s) λx.λy.x)\n", + " 5: ---> ((λx.λy.x λx.λy.y) λx.λy.x)\n", + " 6: ---> (λy.λx.λy.y λx.λy.x)\n", + " 7: ---> λx.λy.y\n", + "Forme normale calculée : λx.λy.y\n" + ] + }, + { + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 51, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "NON.applique(VRAI).forme_normale(verbose=True) == FAUX" + ] + }, + { + "cell_type": "code", + "execution_count": 52, + "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "(λa.(((λc.λa.λs.((c a) s) a) λx.λy.y) λx.λy.x) λx.λy.y)\n", + " 1: ---> (λa.(((λc.λa.λs.((c a) s) a) λx.λy.y) λx.λy.x) λx.λy.y)\n", + " 2: ---> (((λc.λa.λs.((c a) s) λx.λy.y) λx.λy.y) λx.λy.x)\n", + " 3: ---> ((λa.λs.((λx.λy.y a) s) λx.λy.y) λx.λy.x)\n", + " 4: ---> (λs.((λx.λy.y λx.λy.y) s) λx.λy.x)\n", + " 5: ---> ((λx.λy.y λx.λy.y) λx.λy.x)\n", + " 6: ---> (λy.y λx.λy.x)\n", + " 7: ---> λx.λy.x\n", + "Forme normale calculée : λx.λy.x\n" + ] + }, + { + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 52, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "NON.applique(FAUX).forme_normale(verbose=True) == VRAI" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "### Entiers, successeurs, addition, multiplication et exponentiation" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "#### Numéraux de Church" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Il existe plusieurs façons de représenter les entiers naturels par un $\\lambda$-terme. La représentation donnée ici est connue sous le nom de *numéraux de Church*." + ] + }, + { + "cell_type": "code", + "execution_count": 53, "metadata": {}, "outputs": [], "source": [ @@ -510,7 +1989,7 @@ }, { "cell_type": "code", - "execution_count": 26, + "execution_count": 54, "metadata": {}, "outputs": [], "source": [ @@ -519,16 +1998,23 @@ }, { "cell_type": "code", - "execution_count": 27, + "execution_count": 55, "metadata": {}, "outputs": [], "source": [ "DEUX = Lambda_terme('!f.!x.(f (f x))')" ] }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "#### Successeur" + ] + }, { "cell_type": "code", - "execution_count": 28, + "execution_count": 56, "metadata": {}, "outputs": [], "source": [ @@ -537,7 +2023,7 @@ }, { "cell_type": "code", - "execution_count": 29, + "execution_count": 57, "metadata": {}, "outputs": [ { @@ -559,7 +2045,7 @@ }, { "cell_type": "code", - "execution_count": 30, + "execution_count": 58, "metadata": {}, "outputs": [ { @@ -585,10 +2071,10 @@ { "data": { "text/plain": [ - "" + "" ] }, - "execution_count": 30, + "execution_count": 58, "metadata": {}, "output_type": "execute_result" } @@ -597,9 +2083,16 @@ "TROIS.applique(SUC).applique(ZERO).forme_normale(verbose=True)" ] }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "#### Addition" + ] + }, { "cell_type": "code", - "execution_count": 31, + "execution_count": 59, "metadata": {}, "outputs": [], "source": [ @@ -608,7 +2101,7 @@ }, { "cell_type": "code", - "execution_count": 32, + "execution_count": 60, "metadata": {}, "outputs": [ { @@ -633,7 +2126,7 @@ }, { "cell_type": "code", - "execution_count": 33, + "execution_count": 61, "metadata": {}, "outputs": [ { @@ -658,7 +2151,7 @@ }, { "cell_type": "code", - "execution_count": 34, + "execution_count": 62, "metadata": {}, "outputs": [ { @@ -681,9 +2174,16 @@ "SEPT = ADD.applique(QUATRE).applique(TROIS).forme_normale(verbose=True)" ] }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "#### Multiplication" + ] + }, { "cell_type": "code", - "execution_count": 35, + "execution_count": 63, "metadata": {}, "outputs": [], "source": [ @@ -692,7 +2192,7 @@ }, { "cell_type": "code", - "execution_count": 36, + "execution_count": 64, "metadata": {}, "outputs": [ { @@ -716,9 +2216,16 @@ "SIX = MUL.applique(DEUX).applique(TROIS).forme_normale(verbose=True)" ] }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "#### Exponentiation" + ] + }, { "cell_type": "code", - "execution_count": 37, + "execution_count": 65, "metadata": {}, "outputs": [], "source": [ @@ -727,7 +2234,7 @@ }, { "cell_type": "code", - "execution_count": 38, + "execution_count": 66, "metadata": {}, "outputs": [ { @@ -762,7 +2269,27 @@ }, { "cell_type": "code", - "execution_count": 39, + "execution_count": 67, + "metadata": {}, + "outputs": [ + { + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 67, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "HUIT == MUL.applique(DEUX).applique(QUATRE).forme_normale()" + ] + }, + { + "cell_type": "code", + "execution_count": 68, "metadata": {}, "outputs": [ { @@ -789,556 +2316,45 @@ "NEUF = EXP.applique(TROIS).applique(DEUX).forme_normale(verbose=True)" ] }, + { + "cell_type": "code", + "execution_count": 69, + "metadata": {}, + "outputs": [ + { + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 69, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "NEUF == ADD.applique(SEPT).applique(DEUX).forme_normale()" + ] + }, { "cell_type": "markdown", "metadata": {}, "source": [ - "## Booléens, opérateurs logiques et conditionnelles" + "#### Nullité" ] }, { "cell_type": "code", - "execution_count": 40, + "execution_count": 70, "metadata": {}, "outputs": [], "source": [ - "VRAI = Lambda_terme('!x.!y.x')" + "NUL = Lambda_terme('!n.((n !x.FAUX) VRAI)').subs('FAUX', FAUX).subs('VRAI', VRAI)" ] }, { "cell_type": "code", - "execution_count": 41, - "metadata": {}, - "outputs": [], - "source": [ - "FAUX = Lambda_terme('!x.!y.y')" - ] - }, - { - "cell_type": "code", - "execution_count": 42, - "metadata": {}, - "outputs": [], - "source": [ - "COND = Lambda_terme('!c.!a.!s.((c a) s)') " - ] - }, - { - "cell_type": "code", - "execution_count": 43, - "metadata": {}, - "outputs": [ - { - "name": "stdout", - "output_type": "stream", - "text": [ - "(((λc.λa.λs.((c a) s) λx.λy.x) λf.λx.(f x)) λf.λx.(f (f x)))\n", - " 1: ---> (((λc.λa.λs.((c a) s) λx.λy.x) λf.λx.(f x)) λf.λx.(f (f x)))\n", - " 2: ---> ((λa.λs.((λx.λy.x a) s) λf.λx.(f x)) λf.λx.(f (f x)))\n", - " 3: ---> (λs.((λx.λy.x λf.λx.(f x)) s) λf.λx.(f (f x)))\n", - " 4: ---> ((λx.λy.x λf.λx.(f x)) λf.λx.(f (f x)))\n", - " 5: ---> (λy.λf.λx.(f x) λf.λx.(f (f x)))\n", - " 6: ---> λf.λx.(f x)\n", - "Forme normale calculée : λf.λx.(f x)\n" - ] - }, - { - "data": { - "text/plain": [ - "" - ] - }, - "execution_count": 43, - "metadata": {}, - "output_type": "execute_result" - } - ], - "source": [ - "COND.applique(VRAI).applique(UN).applique(DEUX).forme_normale(verbose=True)" - ] - }, - { - "cell_type": "code", - "execution_count": 44, - "metadata": {}, - "outputs": [ - { - "name": "stdout", - "output_type": "stream", - "text": [ - "(((λc.λa.λs.((c a) s) λx.λy.y) λf.λx.(f x)) λf.λx.(f (f x)))\n", - " 1: ---> (((λc.λa.λs.((c a) s) λx.λy.y) λf.λx.(f x)) λf.λx.(f (f x)))\n", - " 2: ---> ((λa.λs.((λx.λy.y a) s) λf.λx.(f x)) λf.λx.(f (f x)))\n", - " 3: ---> (λs.((λx.λy.y λf.λx.(f x)) s) λf.λx.(f (f x)))\n", - " 4: ---> ((λx.λy.y λf.λx.(f x)) λf.λx.(f (f x)))\n", - " 5: ---> (λy.y λf.λx.(f (f x)))\n", - " 6: ---> λf.λx.(f (f x))\n", - "Forme normale calculée : λf.λx.(f (f x))\n" - ] - }, - { - "data": { - "text/plain": [ - "" - ] - }, - "execution_count": 44, - "metadata": {}, - "output_type": "execute_result" - } - ], - "source": [ - "COND.applique(FAUX).applique(UN).applique(DEUX).forme_normale(verbose=True)" - ] - }, - { - "cell_type": "code", - "execution_count": 45, - "metadata": {}, - "outputs": [], - "source": [ - "ET = COND.applique(Lambda_terme('a')).applique(Lambda_terme('b')).applique(FAUX).abstrait('b').abstrait('a')" - ] - }, - { - "cell_type": "code", - "execution_count": 46, - "metadata": {}, - "outputs": [ - { - "name": "stdout", - "output_type": "stream", - "text": [ - "λa.λb.(((λc.λa.λs.((c a) s) a) b) λx.λy.y)\n" - ] - } - ], - "source": [ - "print(ET)" - ] - }, - { - "cell_type": "code", - "execution_count": 47, - "metadata": {}, - "outputs": [ - { - "name": "stdout", - "output_type": "stream", - "text": [ - "((λa.λb.(((λc.λa.λs.((c a) s) a) b) λx.λy.y) λx.λy.x) λx.λy.x)\n", - " 1: ---> ((λa.λb.(((λc.λa.λs.((c a) s) a) b) λx.λy.y) λx.λy.x) λx.λy.x)\n", - " 2: ---> (λb.(((λc.λa.λs.((c a) s) λx.λy.x) b) λx.λy.y) λx.λy.x)\n", - " 3: ---> (((λc.λa.λs.((c a) s) λx.λy.x) λx.λy.x) λx.λy.y)\n", - " 4: ---> ((λa.λs.((λx.λy.x a) s) λx.λy.x) λx.λy.y)\n", - " 5: ---> (λs.((λx.λy.x λx.λy.x) s) λx.λy.y)\n", - " 6: ---> ((λx.λy.x λx.λy.x) λx.λy.y)\n", - " 7: ---> (λy.λx.λy.x λx.λy.y)\n", - " 8: ---> λx.λy.x\n", - "Forme normale calculée : λx.λy.x\n" - ] - }, - { - "data": { - "text/plain": [ - "" - ] - }, - "execution_count": 47, - "metadata": {}, - "output_type": "execute_result" - } - ], - "source": [ - "ET.applique(VRAI).applique(VRAI).forme_normale(verbose=True)" - ] - }, - { - "cell_type": "code", - "execution_count": 48, - "metadata": {}, - "outputs": [ - { - "name": "stdout", - "output_type": "stream", - "text": [ - "((λa.λb.(((λc.λa.λs.((c a) s) a) b) λx.λy.y) λx.λy.x) λx.λy.y)\n", - " 1: ---> ((λa.λb.(((λc.λa.λs.((c a) s) a) b) λx.λy.y) λx.λy.x) λx.λy.y)\n", - " 2: ---> (λb.(((λc.λa.λs.((c a) s) λx.λy.x) b) λx.λy.y) λx.λy.y)\n", - " 3: ---> (((λc.λa.λs.((c a) s) λx.λy.x) λx.λy.y) λx.λy.y)\n", - " 4: ---> ((λa.λs.((λx.λy.x a) s) λx.λy.y) λx.λy.y)\n", - " 5: ---> (λs.((λx.λy.x λx.λy.y) s) λx.λy.y)\n", - " 6: ---> ((λx.λy.x λx.λy.y) λx.λy.y)\n", - " 7: ---> (λy.λx.λy.y λx.λy.y)\n", - " 8: ---> λx.λy.y\n", - "Forme normale calculée : λx.λy.y\n" - ] - }, - { - "data": { - "text/plain": [ - "" - ] - }, - "execution_count": 48, - "metadata": {}, - "output_type": "execute_result" - } - ], - "source": [ - "ET.applique(VRAI).applique(FAUX).forme_normale(verbose=True)" - ] - }, - { - "cell_type": "code", - "execution_count": 49, - "metadata": {}, - "outputs": [ - { - "name": "stdout", - "output_type": "stream", - "text": [ - "((λa.λb.(((λc.λa.λs.((c a) s) a) b) λx.λy.y) λx.λy.y) λx.λy.x)\n", - " 1: ---> ((λa.λb.(((λc.λa.λs.((c a) s) a) b) λx.λy.y) λx.λy.y) λx.λy.x)\n", - " 2: ---> (λb.(((λc.λa.λs.((c a) s) λx.λy.y) b) λx.λy.y) λx.λy.x)\n", - " 3: ---> (((λc.λa.λs.((c a) s) λx.λy.y) λx.λy.x) λx.λy.y)\n", - " 4: ---> ((λa.λs.((λx.λy.y a) s) λx.λy.x) λx.λy.y)\n", - " 5: ---> (λs.((λx.λy.y λx.λy.x) s) λx.λy.y)\n", - " 6: ---> ((λx.λy.y λx.λy.x) λx.λy.y)\n", - " 7: ---> (λy.y λx.λy.y)\n", - " 8: ---> λx.λy.y\n", - "Forme normale calculée : λx.λy.y\n" - ] - }, - { - "data": { - "text/plain": [ - "" - ] - }, - "execution_count": 49, - "metadata": {}, - "output_type": "execute_result" - } - ], - "source": [ - "ET.applique(FAUX).applique(VRAI).forme_normale(verbose=True)" - ] - }, - { - "cell_type": "code", - "execution_count": 50, - "metadata": {}, - "outputs": [ - { - "name": "stdout", - "output_type": "stream", - "text": [ - "((λa.λb.(((λc.λa.λs.((c a) s) a) b) λx.λy.y) λx.λy.y) λx.λy.y)\n", - " 1: ---> ((λa.λb.(((λc.λa.λs.((c a) s) a) b) λx.λy.y) λx.λy.y) λx.λy.y)\n", - " 2: ---> (λb.(((λc.λa.λs.((c a) s) λx.λy.y) b) λx.λy.y) λx.λy.y)\n", - " 3: ---> (((λc.λa.λs.((c a) s) λx.λy.y) λx.λy.y) λx.λy.y)\n", - " 4: ---> ((λa.λs.((λx.λy.y a) s) λx.λy.y) λx.λy.y)\n", - " 5: ---> (λs.((λx.λy.y λx.λy.y) s) λx.λy.y)\n", - " 6: ---> ((λx.λy.y λx.λy.y) λx.λy.y)\n", - " 7: ---> (λy.y λx.λy.y)\n", - " 8: ---> λx.λy.y\n", - "Forme normale calculée : λx.λy.y\n" - ] - }, - { - "data": { - "text/plain": [ - "" - ] - }, - "execution_count": 50, - "metadata": {}, - "output_type": "execute_result" - } - ], - "source": [ - "ET.applique(FAUX).applique(FAUX).forme_normale(verbose=True)" - ] - }, - { - "cell_type": "code", - "execution_count": 51, - "metadata": {}, - "outputs": [], - "source": [ - "OU = COND.applique(Lambda_terme('a')).applique(VRAI).applique(Lambda_terme('b')).abstrait('b').abstrait('a')" - ] - }, - { - "cell_type": "code", - "execution_count": 52, - "metadata": {}, - "outputs": [ - { - "name": "stdout", - "output_type": "stream", - "text": [ - "λa.λb.(((λc.λa.λs.((c a) s) a) λx.λy.x) b)\n" - ] - } - ], - "source": [ - "print(OU)" - ] - }, - { - "cell_type": "code", - "execution_count": 53, - "metadata": {}, - "outputs": [ - { - "name": "stdout", - "output_type": "stream", - "text": [ - "((λa.λb.(((λc.λa.λs.((c a) s) a) λx.λy.x) b) λx.λy.x) λx.λy.x)\n", - " 1: ---> ((λa.λb.(((λc.λa.λs.((c a) s) a) λx.λy.x) b) λx.λy.x) λx.λy.x)\n", - " 2: ---> (λb.(((λc.λa.λs.((c a) s) λx.λy.x) λx.λy.x) b) λx.λy.x)\n", - " 3: ---> (((λc.λa.λs.((c a) s) λx.λy.x) λx.λy.x) λx.λy.x)\n", - " 4: ---> ((λa.λs.((λx.λy.x a) s) λx.λy.x) λx.λy.x)\n", - " 5: ---> (λs.((λx.λy.x λx.λy.x) s) λx.λy.x)\n", - " 6: ---> ((λx.λy.x λx.λy.x) λx.λy.x)\n", - " 7: ---> (λy.λx.λy.x λx.λy.x)\n", - " 8: ---> λx.λy.x\n", - "Forme normale calculée : λx.λy.x\n" - ] - }, - { - "data": { - "text/plain": [ - "" - ] - }, - "execution_count": 53, - "metadata": {}, - "output_type": "execute_result" - } - ], - "source": [ - "OU.applique(VRAI).applique(VRAI).forme_normale(verbose=True)" - ] - }, - { - "cell_type": "code", - "execution_count": 54, - "metadata": {}, - "outputs": [ - { - "name": "stdout", - "output_type": "stream", - "text": [ - "((λa.λb.(((λc.λa.λs.((c a) s) a) λx.λy.x) b) λx.λy.x) λx.λy.y)\n", - " 1: ---> ((λa.λb.(((λc.λa.λs.((c a) s) a) λx.λy.x) b) λx.λy.x) λx.λy.y)\n", - " 2: ---> (λb.(((λc.λa.λs.((c a) s) λx.λy.x) λx.λy.x) b) λx.λy.y)\n", - " 3: ---> (((λc.λa.λs.((c a) s) λx.λy.x) λx.λy.x) λx.λy.y)\n", - " 4: ---> ((λa.λs.((λx.λy.x a) s) λx.λy.x) λx.λy.y)\n", - " 5: ---> (λs.((λx.λy.x λx.λy.x) s) λx.λy.y)\n", - " 6: ---> ((λx.λy.x λx.λy.x) λx.λy.y)\n", - " 7: ---> (λy.λx.λy.x λx.λy.y)\n", - " 8: ---> λx.λy.x\n", - "Forme normale calculée : λx.λy.x\n" - ] - }, - { - "data": { - "text/plain": [ - "" - ] - }, - "execution_count": 54, - "metadata": {}, - "output_type": "execute_result" - } - ], - "source": [ - "OU.applique(VRAI).applique(FAUX).forme_normale(verbose=True)" - ] - }, - { - "cell_type": "code", - "execution_count": 55, - "metadata": {}, - "outputs": [ - { - "name": "stdout", - "output_type": "stream", - "text": [ - "((λa.λb.(((λc.λa.λs.((c a) s) a) λx.λy.x) b) λx.λy.y) λx.λy.x)\n", - " 1: ---> ((λa.λb.(((λc.λa.λs.((c a) s) a) λx.λy.x) b) λx.λy.y) λx.λy.x)\n", - " 2: ---> (λb.(((λc.λa.λs.((c a) s) λx.λy.y) λx.λy.x) b) λx.λy.x)\n", - " 3: ---> (((λc.λa.λs.((c a) s) λx.λy.y) λx.λy.x) λx.λy.x)\n", - " 4: ---> ((λa.λs.((λx.λy.y a) s) λx.λy.x) λx.λy.x)\n", - " 5: ---> (λs.((λx.λy.y λx.λy.x) s) λx.λy.x)\n", - " 6: ---> ((λx.λy.y λx.λy.x) λx.λy.x)\n", - " 7: ---> (λy.y λx.λy.x)\n", - " 8: ---> λx.λy.x\n", - "Forme normale calculée : λx.λy.x\n" - ] - }, - { - "data": { - "text/plain": [ - "" - ] - }, - "execution_count": 55, - "metadata": {}, - "output_type": "execute_result" - } - ], - "source": [ - "OU.applique(FAUX).applique(VRAI).forme_normale(verbose=True)" - ] - }, - { - "cell_type": "code", - "execution_count": 56, - "metadata": {}, - "outputs": [ - { - "name": "stdout", - "output_type": "stream", - "text": [ - "((λa.λb.(((λc.λa.λs.((c a) s) a) λx.λy.x) b) λx.λy.y) λx.λy.y)\n", - " 1: ---> ((λa.λb.(((λc.λa.λs.((c a) s) a) λx.λy.x) b) λx.λy.y) λx.λy.y)\n", - " 2: ---> (λb.(((λc.λa.λs.((c a) s) λx.λy.y) λx.λy.x) b) λx.λy.y)\n", - " 3: ---> (((λc.λa.λs.((c a) s) λx.λy.y) λx.λy.x) λx.λy.y)\n", - " 4: ---> ((λa.λs.((λx.λy.y a) s) λx.λy.x) λx.λy.y)\n", - " 5: ---> (λs.((λx.λy.y λx.λy.x) s) λx.λy.y)\n", - " 6: ---> ((λx.λy.y λx.λy.x) λx.λy.y)\n", - " 7: ---> (λy.y λx.λy.y)\n", - " 8: ---> λx.λy.y\n", - "Forme normale calculée : λx.λy.y\n" - ] - }, - { - "data": { - "text/plain": [ - "" - ] - }, - "execution_count": 56, - "metadata": {}, - "output_type": "execute_result" - } - ], - "source": [ - "OU.applique(FAUX).applique(FAUX).forme_normale(verbose=True)" - ] - }, - { - "cell_type": "code", - "execution_count": 57, - "metadata": {}, - "outputs": [], - "source": [ - "NON = COND.applique(Lambda_terme('a')).applique(FAUX).applique(VRAI).abstrait('a')" - ] - }, - { - "cell_type": "code", - "execution_count": 58, - "metadata": {}, - "outputs": [ - { - "name": "stdout", - "output_type": "stream", - "text": [ - "λa.(((λc.λa.λs.((c a) s) a) λx.λy.y) λx.λy.x)\n" - ] - } - ], - "source": [ - "print(NON)" - ] - }, - { - "cell_type": "code", - "execution_count": 60, - "metadata": {}, - "outputs": [ - { - "name": "stdout", - "output_type": "stream", - "text": [ - "(λa.(((λc.λa.λs.((c a) s) a) λx.λy.y) λx.λy.x) λx.λy.x)\n", - " 1: ---> (λa.(((λc.λa.λs.((c a) s) a) λx.λy.y) λx.λy.x) λx.λy.x)\n", - " 2: ---> (((λc.λa.λs.((c a) s) λx.λy.x) λx.λy.y) λx.λy.x)\n", - " 3: ---> ((λa.λs.((λx.λy.x a) s) λx.λy.y) λx.λy.x)\n", - " 4: ---> (λs.((λx.λy.x λx.λy.y) s) λx.λy.x)\n", - " 5: ---> ((λx.λy.x λx.λy.y) λx.λy.x)\n", - " 6: ---> (λy.λx.λy.y λx.λy.x)\n", - " 7: ---> λx.λy.y\n", - "Forme normale calculée : λx.λy.y\n" - ] - }, - { - "data": { - "text/plain": [ - "" - ] - }, - "execution_count": 60, - "metadata": {}, - "output_type": "execute_result" - } - ], - "source": [ - "NON.applique(VRAI).forme_normale(verbose=True)" - ] - }, - { - "cell_type": "code", - "execution_count": 61, - "metadata": {}, - "outputs": [ - { - "name": "stdout", - "output_type": "stream", - "text": [ - "(λa.(((λc.λa.λs.((c a) s) a) λx.λy.y) λx.λy.x) λx.λy.y)\n", - " 1: ---> (λa.(((λc.λa.λs.((c a) s) a) λx.λy.y) λx.λy.x) λx.λy.y)\n", - " 2: ---> (((λc.λa.λs.((c a) s) λx.λy.y) λx.λy.y) λx.λy.x)\n", - " 3: ---> ((λa.λs.((λx.λy.y a) s) λx.λy.y) λx.λy.x)\n", - " 4: ---> (λs.((λx.λy.y λx.λy.y) s) λx.λy.x)\n", - " 5: ---> ((λx.λy.y λx.λy.y) λx.λy.x)\n", - " 6: ---> (λy.y λx.λy.x)\n", - " 7: ---> λx.λy.x\n", - "Forme normale calculée : λx.λy.x\n" - ] - }, - { - "data": { - "text/plain": [ - "" - ] - }, - "execution_count": 61, - "metadata": {}, - "output_type": "execute_result" - } - ], - "source": [ - "NON.applique(FAUX).forme_normale(verbose=True)" - ] - }, - { - "cell_type": "code", - "execution_count": 62, - "metadata": {}, - "outputs": [], - "source": [ - "NUL = Lambda_terme('!n.((n !x.{:s}) {:s})'.format(str(FAUX), str(VRAI)))" - ] - }, - { - "cell_type": "code", - "execution_count": 63, + "execution_count": 71, "metadata": {}, "outputs": [ { @@ -1355,7 +2371,7 @@ }, { "cell_type": "code", - "execution_count": 64, + "execution_count": 72, "metadata": {}, "outputs": [ { @@ -1373,21 +2389,21 @@ { "data": { "text/plain": [ - "" + "True" ] }, - "execution_count": 64, + "execution_count": 72, "metadata": {}, "output_type": "execute_result" } ], "source": [ - "NUL.applique(ZERO).forme_normale(verbose=True)" + "NUL.applique(ZERO).forme_normale(verbose=True) == VRAI" ] }, { "cell_type": "code", - "execution_count": 65, + "execution_count": 73, "metadata": {}, "outputs": [ { @@ -1406,37 +2422,37 @@ { "data": { "text/plain": [ - "" + "True" ] }, - "execution_count": 65, + "execution_count": 73, "metadata": {}, "output_type": "execute_result" } ], "source": [ - "NUL.applique(TROIS).forme_normale(verbose=True)" + "NUL.applique(TROIS).forme_normale(verbose=True) == FAUX" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ - "## Couples" + "### Couples et listes" ] }, { "cell_type": "code", - "execution_count": 66, + "execution_count": 74, "metadata": {}, "outputs": [], "source": [ - "CONS = Lambda_terme('!x.!y.!s.((({:s} s) x) y)'.format(str(COND)))" + "CONS = Lambda_terme('!x.!y.!s.(((IF s) x) y)').subs('IF', IF)" ] }, { "cell_type": "code", - "execution_count": 67, + "execution_count": 75, "metadata": {}, "outputs": [ { @@ -1453,7 +2469,7 @@ }, { "cell_type": "code", - "execution_count": 68, + "execution_count": 76, "metadata": {}, "outputs": [ { @@ -1477,16 +2493,16 @@ }, { "cell_type": "code", - "execution_count": 70, + "execution_count": 77, "metadata": {}, "outputs": [], "source": [ - "CAR = Lambda_terme('!c.(c {:s})'.format(str(VRAI)))" + "CAR = Lambda_terme('!c.(c VRAI)').subs('VRAI', VRAI)" ] }, { "cell_type": "code", - "execution_count": 71, + "execution_count": 78, "metadata": {}, "outputs": [ { @@ -1503,7 +2519,7 @@ }, { "cell_type": "code", - "execution_count": 72, + "execution_count": 79, "metadata": {}, "outputs": [ { @@ -1522,30 +2538,30 @@ { "data": { "text/plain": [ - "" + "True" ] }, - "execution_count": 72, + "execution_count": 79, "metadata": {}, "output_type": "execute_result" } ], "source": [ - "CAR.applique(UN_DEUX).forme_normale(verbose=True)" + "CAR.applique(UN_DEUX).forme_normale(verbose=True) == UN" ] }, { "cell_type": "code", - "execution_count": 73, + "execution_count": 80, "metadata": {}, "outputs": [], "source": [ - "CDR = Lambda_terme('!c.(c {:s})'.format(str(FAUX)))" + "CDR = Lambda_terme('!c.(c FAUX)').subs('FAUX', FAUX)" ] }, { "cell_type": "code", - "execution_count": 74, + "execution_count": 81, "metadata": {}, "outputs": [ { @@ -1562,7 +2578,7 @@ }, { "cell_type": "code", - "execution_count": 76, + "execution_count": 82, "metadata": {}, "outputs": [ { @@ -1581,21 +2597,70 @@ { "data": { "text/plain": [ - "" + "True" ] }, - "execution_count": 76, + "execution_count": 82, "metadata": {}, "output_type": "execute_result" } ], "source": [ - "CDR.applique(UN_DEUX).forme_normale(verbose=True)" + "CDR.applique(UN_DEUX).forme_normale(verbose=True) == DEUX" ] }, { "cell_type": "code", - "execution_count": 77, + "execution_count": 83, + "metadata": {}, + "outputs": [], + "source": [ + "M = Lambda_terme('M')\n", + "CPLE_M = CONS.applique(CAR.applique(M)).applique(CDR.applique(M))" + ] + }, + { + "cell_type": "code", + "execution_count": 84, + "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "(λc.(c λx.λy.y) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.x) M)) (λc.(c λx.λy.y) M)))\n", + " 1: ---> (λc.(c λx.λy.y) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.x) M)) (λc.(c λx.λy.y) M)))\n", + " 2: ---> (((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.x) M)) (λc.(c λx.λy.y) M)) λx.λy.y)\n", + " 3: ---> ((λy.λs.(((λc.λa.λs.((c a) s) s) (λc.(c λx.λy.x) M)) y) (λc.(c λx.λy.y) M)) λx.λy.y)\n", + " 4: ---> (λs.(((λc.λa.λs.((c a) s) s) (λc.(c λx.λy.x) M)) (λc.(c λx.λy.y) M)) λx.λy.y)\n", + " 5: ---> (((λc.λa.λs.((c a) s) λx.λy.y) (λc.(c λx.λy.x) M)) (λc.(c λx.λy.y) M))\n", + " 6: ---> ((λa.λs.((λx.λy.y a) s) (λc.(c λx.λy.x) M)) (λc.(c λx.λy.y) M))\n", + " 7: ---> (λs.((λx.λy.y (λc.(c λx.λy.x) M)) s) (λc.(c λx.λy.y) M))\n", + " 8: ---> ((λx.λy.y (λc.(c λx.λy.x) M)) (λc.(c λx.λy.y) M))\n", + " 9: ---> (λy.y (λc.(c λx.λy.y) M))\n", + " 10: ---> (λc.(c λx.λy.y) M)\n", + " 11: ---> (M λx.λy.y)\n", + "Forme normale calculée : (M λx.λy.y)\n" + ] + }, + { + "data": { + "text/plain": [ + "" + ] + }, + "execution_count": 84, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "CDR.applique(CPLE_M).forme_normale(verbose=True)" + ] + }, + { + "cell_type": "code", + "execution_count": 85, "metadata": {}, "outputs": [ { @@ -1616,7 +2681,7 @@ }, { "cell_type": "code", - "execution_count": 78, + "execution_count": 86, "metadata": {}, "outputs": [ { @@ -1666,21 +2731,21 @@ { "data": { "text/plain": [ - "" + "True" ] }, - "execution_count": 78, + "execution_count": 86, "metadata": {}, "output_type": "execute_result" } ], "source": [ - "PRED.applique(DEUX).forme_normale(verbose=True)" + "PRED.applique(DEUX).forme_normale(verbose=True) == UN" ] }, { "cell_type": "code", - "execution_count": 79, + "execution_count": 87, "metadata": {}, "outputs": [ { @@ -1707,21 +2772,21 @@ { "data": { "text/plain": [ - "" + "True" ] }, - "execution_count": 79, + "execution_count": 87, "metadata": {}, "output_type": "execute_result" } ], "source": [ - "PRED.applique(ZERO).forme_normale(verbose=True)" + "PRED.applique(ZERO).forme_normale(verbose=True) == ZERO" ] }, { "cell_type": "code", - "execution_count": 80, + "execution_count": 88, "metadata": {}, "outputs": [ { @@ -1742,7 +2807,7 @@ }, { "cell_type": "code", - "execution_count": 81, + "execution_count": 89, "metadata": {}, "outputs": [ { @@ -1809,21 +2874,21 @@ { "data": { "text/plain": [ - "" + "True" ] }, - "execution_count": 81, + "execution_count": 89, "metadata": {}, "output_type": "execute_result" } ], "source": [ - "SUB.applique(TROIS).applique(UN).forme_normale(verbose=True)" + "SUB.applique(TROIS).applique(UN).forme_normale(verbose=True) == DEUX" ] }, { "cell_type": "code", - "execution_count": 86, + "execution_count": 90, "metadata": {}, "outputs": [ { @@ -1840,61 +2905,70 @@ "INF = M_INF.subs('NUL', NUL).subs('SUB', SUB)" ] }, - { - "cell_type": "code", - "execution_count": 87, - "metadata": {}, - "outputs": [ - { - "name": "stdout", - "output_type": "stream", - "text": [ - "λx.λy.y\n" - ] - } - ], - "source": [ - "print(INF.applique(TROIS).applique(UN).forme_normale())" - ] - }, - { - "cell_type": "code", - "execution_count": 88, - "metadata": {}, - "outputs": [ - { - "name": "stdout", - "output_type": "stream", - "text": [ - "λx.λy.x\n" - ] - } - ], - "source": [ - "print(INF.applique(UN).applique(TROIS).forme_normale())" - ] - }, - { - "cell_type": "code", - "execution_count": 89, - "metadata": {}, - "outputs": [ - { - "name": "stdout", - "output_type": "stream", - "text": [ - "λx.λy.x\n" - ] - } - ], - "source": [ - "print(INF.applique(UN).applique(UN).forme_normale())" - ] - }, { "cell_type": "code", "execution_count": 91, "metadata": {}, + "outputs": [ + { + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 91, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "INF.applique(TROIS).applique(UN).forme_normale() == FAUX" + ] + }, + { + "cell_type": "code", + "execution_count": 92, + "metadata": {}, + "outputs": [ + { + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 92, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "INF.applique(UN).applique(TROIS).forme_normale() == VRAI" + ] + }, + { + "cell_type": "code", + "execution_count": 93, + "metadata": {}, + "outputs": [ + { + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 93, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "INF.applique(UN).applique(UN).forme_normale() == VRAI" + ] + }, + { + "cell_type": "code", + "execution_count": 94, + "metadata": {}, "outputs": [ { "name": "stdout", @@ -1914,48 +2988,54 @@ }, { "cell_type": "code", - "execution_count": 93, + "execution_count": 95, "metadata": {}, "outputs": [ { - "name": "stdout", - "output_type": "stream", - "text": [ - "λx.λy.x\n" - ] + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 95, + "metadata": {}, + "output_type": "execute_result" } ], "source": [ - "print(EGAL.applique(UN).applique(UN).forme_normale())" + "EGAL.applique(UN).applique(UN).forme_normale() == VRAI" ] }, { "cell_type": "code", - "execution_count": 94, + "execution_count": 96, "metadata": {}, "outputs": [ { - "name": "stdout", - "output_type": "stream", - "text": [ - "λx.λy.y\n" - ] + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 96, + "metadata": {}, + "output_type": "execute_result" } ], "source": [ - "print(EGAL.applique(UN).applique(DEUX).forme_normale())" + "EGAL.applique(UN).applique(DEUX).forme_normale() == FAUX" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ - "## Itération" + "### Itération" ] }, { "cell_type": "code", - "execution_count": 95, + "execution_count": 97, "metadata": {}, "outputs": [ { @@ -1974,44 +3054,50 @@ "print(FACTv1)" ] }, - { - "cell_type": "code", - "execution_count": 96, - "metadata": {}, - "outputs": [ - { - "name": "stdout", - "output_type": "stream", - "text": [ - "λf.λx.(f x)\n" - ] - } - ], - "source": [ - "print(FACTv1.applique(ZERO).forme_normale())" - ] - }, - { - "cell_type": "code", - "execution_count": 97, - "metadata": {}, - "outputs": [ - { - "name": "stdout", - "output_type": "stream", - "text": [ - "λf.λx.(f x)\n" - ] - } - ], - "source": [ - "print(FACTv1.applique(UN).forme_normale())" - ] - }, { "cell_type": "code", "execution_count": 98, "metadata": {}, + "outputs": [ + { + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 98, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "FACTv1.applique(ZERO).forme_normale() == UN" + ] + }, + { + "cell_type": "code", + "execution_count": 99, + "metadata": {}, + "outputs": [ + { + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 99, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "FACTv1.applique(UN).forme_normale() == UN" + ] + }, + { + "cell_type": "code", + "execution_count": 100, + "metadata": {}, "outputs": [ { "name": "stdout", @@ -2025,62 +3111,24 @@ "print(FACTv1.applique(DEUX).forme_normale())" ] }, - { - "cell_type": "code", - "execution_count": 99, - "metadata": {}, - "outputs": [ - { - "name": "stdout", - "output_type": "stream", - "text": [ - "λf.λx.(f (f x))\n" - ] - } - ], - "source": [ - "print(FACTv1.applique(DEUX).forme_normale(nb_etapes_max=200))" - ] - }, - { - "cell_type": "code", - "execution_count": 100, - "metadata": {}, - "outputs": [ - { - "name": "stdout", - "output_type": "stream", - "text": [ - "λf.λx.(f (f (f (f (f (f x))))))\n" - ] - } - ], - "source": [ - "print(FACTv1.applique(TROIS).forme_normale(nb_etapes_max=500))" - ] - }, { "cell_type": "code", "execution_count": 101, "metadata": {}, "outputs": [ { - "name": "stdout", - "output_type": "stream", - "text": [ - "λf.λx.(f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f x))))))))))))))))))))))))\n" - ] + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 101, + "metadata": {}, + "output_type": "execute_result" } ], "source": [ - "print(FACTv1.applique(QUATRE).forme_normale(nb_etapes_max=1700))" - ] - }, - { - "cell_type": "markdown", - "metadata": {}, - "source": [ - "## Et la récursivité ? " + "FACTv1.applique(DEUX).forme_normale(nb_etapes_max=118) == DEUX" ] }, { @@ -2089,25 +3137,72 @@ "metadata": {}, "outputs": [ { - "name": "stdout", - "output_type": "stream", - "text": [ - "λf.λn.(((COND ((EGAL n) ZERO)) UN) ((MUL n) (f (PRED n))))\n", - "λf.λn.(((λc.λa.λs.((c a) s) ((λn.λm.((λa.λb.(((λc.λa.λs.((c a) s) a) b) λx.λy.y) ((λn.λm.(λn.((n λx.λx.λy.y) λx.λy.x) ((λn.λm.((m λn.(λc.(c λx.λy.x) ((n λc.((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.y) c)) (λn.λf.λx.(f ((n f) x)) (λc.(c λx.λy.y) c)))) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) λf.λx.x) λf.λx.x)))) n) n) m)) n) m)) ((λn.λm.(λn.((n λx.λx.λy.y) λx.λy.x) ((λn.λm.((m λn.(λc.(c λx.λy.x) ((n λc.((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.y) c)) (λn.λf.λx.(f ((n f) x)) (λc.(c λx.λy.y) c)))) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) λf.λx.x) λf.λx.x)))) n) n) m)) m) n)) n) λf.λx.x)) λf.λx.(f x)) ((λn.λm.λf.(n (m f)) n) (f (λn.(λc.(c λx.λy.x) ((n λc.((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.y) c)) (λn.λf.λx.(f ((n f) x)) (λc.(c λx.λy.y) c)))) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) λf.λx.x) λf.λx.x))) n))))\n" - ] + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 102, + "metadata": {}, + "output_type": "execute_result" } ], "source": [ - "M_PHI_FACT = Lambda_terme('!f.!n.(((COND ((EGAL n) ZERO)) UN) ((MUL n) (f (PRED n))))')\n", - "print(M_PHI_FACT)\n", - "PHI_FACT = M_PHI_FACT.subs('COND', COND).subs('EGAL', EGAL).subs('ZERO', ZERO).subs('UN', UN).subs('MUL', MUL).subs('PRED', PRED)\n", - "print(PHI_FACT)" + "FACTv1.applique(TROIS).forme_normale(nb_etapes_max=403) == SIX" ] }, { "cell_type": "code", "execution_count": 103, "metadata": {}, + "outputs": [ + { + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 103, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "FACTv1.applique(QUATRE).forme_normale(nb_etapes_max=1672) == MUL.applique(QUATRE).applique(SIX).forme_normale()" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "### Et la récursivité ? " + ] + }, + { + "cell_type": "code", + "execution_count": 104, + "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "λf.λn.(((IF ((EGAL n) ZERO)) UN) ((MUL n) (f (PRED n))))\n", + "λf.λn.(((λc.λa.λs.((c a) s) ((λn.λm.((λa.λb.(((λc.λa.λs.((c a) s) a) b) λx.λy.y) ((λn.λm.(λn.((n λx.λx.λy.y) λx.λy.x) ((λn.λm.((m λn.(λc.(c λx.λy.x) ((n λc.((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.y) c)) (λn.λf.λx.(f ((n f) x)) (λc.(c λx.λy.y) c)))) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) λf.λx.x) λf.λx.x)))) n) n) m)) n) m)) ((λn.λm.(λn.((n λx.λx.λy.y) λx.λy.x) ((λn.λm.((m λn.(λc.(c λx.λy.x) ((n λc.((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.y) c)) (λn.λf.λx.(f ((n f) x)) (λc.(c λx.λy.y) c)))) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) λf.λx.x) λf.λx.x)))) n) n) m)) m) n)) n) λf.λx.x)) λf.λx.(f x)) ((λn.λm.λf.(n (m f)) n) (f (λn.(λc.(c λx.λy.x) ((n λc.((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.y) c)) (λn.λf.λx.(f ((n f) x)) (λc.(c λx.λy.y) c)))) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) λf.λx.x) λf.λx.x))) n))))\n" + ] + } + ], + "source": [ + "M_PHI_FACT = Lambda_terme('!f.!n.(((IF ((EGAL n) ZERO)) UN) ((MUL n) (f (PRED n))))')\n", + "print(M_PHI_FACT)\n", + "PHI_FACT = M_PHI_FACT.subs('IF', IF).subs('EGAL', EGAL).subs('ZERO', ZERO).subs('UN', UN).subs('MUL', MUL).subs('PRED', PRED)\n", + "print(PHI_FACT)" + ] + }, + { + "cell_type": "code", + "execution_count": 105, + "metadata": {}, "outputs": [ { "name": "stdout", @@ -2124,7 +3219,7 @@ }, { "cell_type": "code", - "execution_count": 104, + "execution_count": 106, "metadata": {}, "outputs": [], "source": [ @@ -2133,24 +3228,27 @@ }, { "cell_type": "code", - "execution_count": 105, + "execution_count": 107, "metadata": {}, "outputs": [ { - "name": "stdout", - "output_type": "stream", - "text": [ - "λf.λx.(f x)\n" - ] + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 107, + "metadata": {}, + "output_type": "execute_result" } ], "source": [ - "print(FACT0.applique(ZERO).forme_normale())" + "FACT0.applique(ZERO).forme_normale() == UN" ] }, { "cell_type": "code", - "execution_count": 107, + "execution_count": 108, "metadata": {}, "outputs": [ { @@ -2178,81 +3276,67 @@ " 18: ---> ((((((((λf.λx.x λn.(λc.(c λx.λy.x) ((n λc.((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.y) c)) (λn.λf.λx.(f ((n f) x)) (λc.(c λx.λy.y) c)))) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) λf.λx.x) λf.λx.x)))) λf.λx.(f x)) λx.λx.λy.y) λx.λy.x) ((λn.λm.(λn.((n λx.λx.λy.y) λx.λy.x) ((λn.λm.((m λn.(λc.(c λx.λy.x) ((n λc.((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.y) c)) (λn.λf.λx.(f ((n f) x)) (λc.(c λx.λy.y) c)))) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) λf.λx.x) λf.λx.x)))) n) n) m)) λf.λx.x) λf.λx.(f x))) λx.λy.y) λf.λx.(f x)) ((λn.λm.λf.(n (m f)) λf.λx.(f x)) (λy.(λx.(x x) λx.(x x)) (λn.(λc.(c λx.λy.x) ((n λc.((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.y) c)) (λn.λf.λx.(f ((n f) x)) (λc.(c λx.λy.y) c)))) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) λf.λx.x) λf.λx.x))) λf.λx.(f x)))))\n", " 19: ---> (((((((λx.x λf.λx.(f x)) λx.λx.λy.y) λx.λy.x) ((λn.λm.(λn.((n λx.λx.λy.y) λx.λy.x) ((λn.λm.((m λn.(λc.(c λx.λy.x) ((n λc.((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.y) c)) (λn.λf.λx.(f ((n f) x)) (λc.(c λx.λy.y) c)))) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) λf.λx.x) λf.λx.x)))) n) n) m)) λf.λx.x) λf.λx.(f x))) λx.λy.y) λf.λx.(f x)) ((λn.λm.λf.(n (m f)) λf.λx.(f x)) (λy.(λx.(x x) λx.(x x)) (λn.(λc.(c λx.λy.x) ((n λc.((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.y) c)) (λn.λf.λx.(f ((n f) x)) (λc.(c λx.λy.y) c)))) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) λf.λx.x) λf.λx.x))) λf.λx.(f x)))))\n", " 20: ---> ((((((λf.λx.(f x) λx.λx.λy.y) λx.λy.x) ((λn.λm.(λn.((n λx.λx.λy.y) λx.λy.x) ((λn.λm.((m λn.(λc.(c λx.λy.x) ((n λc.((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.y) c)) (λn.λf.λx.(f ((n f) x)) (λc.(c λx.λy.y) c)))) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) λf.λx.x) λf.λx.x)))) n) n) m)) λf.λx.x) λf.λx.(f x))) λx.λy.y) λf.λx.(f x)) ((λn.λm.λf.(n (m f)) λf.λx.(f x)) (λy.(λx.(x x) λx.(x x)) (λn.(λc.(c λx.λy.x) ((n λc.((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.y) c)) (λn.λf.λx.(f ((n f) x)) (λc.(c λx.λy.y) c)))) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) λf.λx.x) λf.λx.x))) λf.λx.(f x)))))\n", - " 21: ---> (((((λx.(λx.λx.λy.y x) λx.λy.x) ((λn.λm.(λn.((n λx.λx.λy.y) λx.λy.x) ((λn.λm.((m λn.(λc.(c λx.λy.x) ((n λc.((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.y) c)) (λn.λf.λx.(f ((n f) x)) (λc.(c λx.λy.y) c)))) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) λf.λx.x) λf.λx.x)))) n) n) m)) λf.λx.x) λf.λx.(f x))) λx.λy.y) λf.λx.(f x)) ((λn.λm.λf.(n (m f)) λf.λx.(f x)) (λy.(λx.(x x) λx.(x x)) (λn.(λc.(c λx.λy.x) ((n λc.((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.y) c)) (λn.λf.λx.(f ((n f) x)) (λc.(c λx.λy.y) c)))) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) λf.λx.x) λf.λx.x))) λf.λx.(f x)))))\n", - " 22: ---> (((((λx.λx.λy.y λx.λy.x) ((λn.λm.(λn.((n λx.λx.λy.y) λx.λy.x) ((λn.λm.((m λn.(λc.(c λx.λy.x) ((n λc.((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.y) c)) (λn.λf.λx.(f ((n f) x)) (λc.(c λx.λy.y) c)))) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) λf.λx.x) λf.λx.x)))) n) n) m)) λf.λx.x) λf.λx.(f x))) λx.λy.y) λf.λx.(f x)) ((λn.λm.λf.(n (m f)) λf.λx.(f x)) (λy.(λx.(x x) λx.(x x)) (λn.(λc.(c λx.λy.x) ((n λc.((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.y) c)) (λn.λf.λx.(f ((n f) x)) (λc.(c λx.λy.y) c)))) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) λf.λx.x) λf.λx.x))) λf.λx.(f x)))))\n", - " 23: ---> ((((λx.λy.y ((λn.λm.(λn.((n λx.λx.λy.y) λx.λy.x) ((λn.λm.((m λn.(λc.(c λx.λy.x) ((n λc.((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.y) c)) (λn.λf.λx.(f ((n f) x)) (λc.(c λx.λy.y) c)))) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) λf.λx.x) λf.λx.x)))) n) n) m)) λf.λx.x) λf.λx.(f x))) λx.λy.y) λf.λx.(f x)) ((λn.λm.λf.(n (m f)) λf.λx.(f x)) (λy.(λx.(x x) λx.(x x)) (λn.(λc.(c λx.λy.x) ((n λc.((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.y) c)) (λn.λf.λx.(f ((n f) x)) (λc.(c λx.λy.y) c)))) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) λf.λx.x) λf.λx.x))) λf.λx.(f x)))))\n", - " 24: ---> (((λy.y λx.λy.y) λf.λx.(f x)) ((λn.λm.λf.(n (m f)) λf.λx.(f x)) (λy.(λx.(x x) λx.(x x)) (λn.(λc.(c λx.λy.x) ((n λc.((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.y) c)) (λn.λf.λx.(f ((n f) x)) (λc.(c λx.λy.y) c)))) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) λf.λx.x) λf.λx.x))) λf.λx.(f x)))))\n", - " 25: ---> ((λx.λy.y λf.λx.(f x)) ((λn.λm.λf.(n (m f)) λf.λx.(f x)) (λy.(λx.(x x) λx.(x x)) (λn.(λc.(c λx.λy.x) ((n λc.((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.y) c)) (λn.λf.λx.(f ((n f) x)) (λc.(c λx.λy.y) c)))) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) λf.λx.x) λf.λx.x))) λf.λx.(f x)))))\n", - " 26: ---> (λy.y ((λn.λm.λf.(n (m f)) λf.λx.(f x)) (λy.(λx.(x x) λx.(x x)) (λn.(λc.(c λx.λy.x) ((n λc.((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.y) c)) (λn.λf.λx.(f ((n f) x)) (λc.(c λx.λy.y) c)))) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) λf.λx.x) λf.λx.x))) λf.λx.(f x)))))\n", - " 27: ---> ((λn.λm.λf.(n (m f)) λf.λx.(f x)) (λy.(λx.(x x) λx.(x x)) (λn.(λc.(c λx.λy.x) ((n λc.((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.y) c)) (λn.λf.λx.(f ((n f) x)) (λc.(c λx.λy.y) c)))) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) λf.λx.x) λf.λx.x))) λf.λx.(f x))))\n", - " 28: ---> (λm.λf.(λf.λx.(f x) (m f)) (λy.(λx.(x x) λx.(x x)) (λn.(λc.(c λx.λy.x) ((n λc.((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.y) c)) (λn.λf.λx.(f ((n f) x)) (λc.(c λx.λy.y) c)))) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) λf.λx.x) λf.λx.x))) λf.λx.(f x))))\n", - " 29: ---> λf.(λf.λx.(f x) ((λy.(λx.(x x) λx.(x x)) (λn.(λc.(c λx.λy.x) ((n λc.((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.y) c)) (λn.λf.λx.(f ((n f) x)) (λc.(c λx.λy.y) c)))) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) λf.λx.x) λf.λx.x))) λf.λx.(f x))) f))\n", - " 30: ---> λf.λx.(((λy.(λx.(x x) λx.(x x)) (λn.(λc.(c λx.λy.x) ((n λc.((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) (λc.(c λx.λy.y) c)) (λn.λf.λx.(f ((n f) x)) (λc.(c λx.λy.y) c)))) ((λx.λy.λs.(((λc.λa.λs.((c a) s) s) x) y) λf.λx.x) λf.λx.x))) λf.λx.(f x))) f) x)\n", - " 31: ---> λf.λx.(((λx.(x x) λx.(x x)) f) x)\n", - " 32: ---> λf.λx.(((λx.(x x) λx.(x x)) f) x)\n", - " 33: ---> λf.λx.(((λx.(x x) λx.(x x)) f) x)\n", - " 34: ---> λf.λx.(((λx.(x x) λx.(x x)) f) x)\n", - " 35: ---> λf.λx.(((λx.(x x) λx.(x x)) f) x)\n", - " 36: ---> λf.λx.(((λx.(x x) λx.(x x)) f) x)\n", - " 37: ---> λf.λx.(((λx.(x x) λx.(x x)) f) x)\n", - " 38: ---> λf.λx.(((λx.(x x) λx.(x x)) f) x)\n", - " 39: ---> λf.λx.(((λx.(x x) λx.(x x)) f) x)\n", - " 40: ---> λf.λx.(((λx.(x x) λx.(x x)) f) x)\n", - "Pas de forme normale atteinte après 40 étapes de réduction\n" + "Pas de forme normale atteinte après 20 étapes de réduction\n" ] } ], "source": [ - "FACT0.applique(UN).forme_normale(verbose=True, nb_etapes_max=40)" + "FACT0.applique(UN).forme_normale(verbose=True, nb_etapes_max=20)" ] }, { "cell_type": "code", - "execution_count": 108, + "execution_count": 109, "metadata": {}, "outputs": [], "source": [ "FACT1 = PHI_FACT.applique(FACT0)" ] }, - { - "cell_type": "code", - "execution_count": 109, - "metadata": {}, - "outputs": [ - { - "name": "stdout", - "output_type": "stream", - "text": [ - "λf.λx.(f x)\n" - ] - } - ], - "source": [ - "print(FACT1.applique(ZERO).forme_normale())" - ] - }, { "cell_type": "code", "execution_count": 110, "metadata": {}, "outputs": [ { - "name": "stdout", - "output_type": "stream", - "text": [ - "λf.λx.(f x)\n" - ] + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 110, + "metadata": {}, + "output_type": "execute_result" } ], "source": [ - "print(FACT1.applique(UN).forme_normale(nb_etapes_max=200))" + "FACT1.applique(ZERO).forme_normale() == UN" ] }, { "cell_type": "code", "execution_count": 111, "metadata": {}, + "outputs": [ + { + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 111, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "FACT1.applique(UN).forme_normale(nb_etapes_max=110) == UN" + ] + }, + { + "cell_type": "code", + "execution_count": 112, + "metadata": {}, "outputs": [ { "name": "stdout", @@ -2269,7 +3353,7 @@ }, { "cell_type": "code", - "execution_count": 112, + "execution_count": 113, "metadata": {}, "outputs": [], "source": [ @@ -2278,19 +3362,22 @@ }, { "cell_type": "code", - "execution_count": 113, + "execution_count": 114, "metadata": {}, "outputs": [ { - "name": "stdout", - "output_type": "stream", - "text": [ - "λf.λx.(f x)\n" - ] + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 114, + "metadata": {}, + "output_type": "execute_result" } ], "source": [ - "print(FACTv2.applique(ZERO).forme_normale())" + "FACTv2.applique(ZERO).forme_normale() == UN" ] }, { @@ -2299,15 +3386,18 @@ "metadata": {}, "outputs": [ { - "name": "stdout", - "output_type": "stream", - "text": [ - "λf.λx.(f x)\n" - ] + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 115, + "metadata": {}, + "output_type": "execute_result" } ], "source": [ - "print(FACTv2.applique(UN).forme_normale(nb_etapes_max=200))" + "FACTv2.applique(UN).forme_normale(nb_etapes_max=113) == UN" ] }, { @@ -2316,15 +3406,18 @@ "metadata": {}, "outputs": [ { - "name": "stdout", - "output_type": "stream", - "text": [ - "λf.λx.(f (f x))\n" - ] + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 116, + "metadata": {}, + "output_type": "execute_result" } ], "source": [ - "print(FACTv2.applique(DEUX).forme_normale(nb_etapes_max=700))" + "FACTv2.applique(DEUX).forme_normale(nb_etapes_max=516) == DEUX" ] }, { @@ -2333,15 +3426,18 @@ "metadata": {}, "outputs": [ { - "name": "stdout", - "output_type": "stream", - "text": [ - "λf.λx.(f (f (f (f (f (f x))))))\n" - ] + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 117, + "metadata": {}, + "output_type": "execute_result" } ], "source": [ - "print(FACTv2.applique(TROIS).forme_normale(nb_etapes_max=4000))" + "FACTv2.applique(TROIS).forme_normale(nb_etapes_max=2882) == SIX" ] }, { @@ -2350,20 +3446,23 @@ "metadata": {}, "outputs": [ { - "name": "stdout", - "output_type": "stream", - "text": [ - "λf.λx.(f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f x))))))))))))))))))))))))\n" - ] + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 118, + "metadata": {}, + "output_type": "execute_result" } ], "source": [ - "print(FACTv2.applique(QUATRE).forme_normale(nb_etapes_max=25000))" + "FACTv2.applique(QUATRE).forme_normale(nb_etapes_max=18668) == MUL.applique(QUATRE).applique(SIX).forme_normale()" ] }, { "cell_type": "code", - "execution_count": 120, + "execution_count": 119, "metadata": {}, "outputs": [], "source": [ @@ -2372,7 +3471,7 @@ }, { "cell_type": "code", - "execution_count": 121, + "execution_count": 120, "metadata": {}, "outputs": [ { @@ -2400,12 +3499,130 @@ }, { "cell_type": "code", - "execution_count": null, - "metadata": { - "lines_to_next_cell": 2 - }, + "execution_count": 121, + "metadata": {}, + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "(λx.λy.(y ((x x) y)) λx.λy.(y ((x x) y)))\n" + ] + } + ], + "source": [ + "FIX_TURING = Lambda_terme('(!x.!y.(y ((x x) y)) !x.!y.(y ((x x) y)))')\n", + "print(FIX_TURING)" + ] + }, + { + "cell_type": "code", + "execution_count": 122, + "metadata": {}, "outputs": [], - "source": [] + "source": [ + "FACTv3 = FIX_TURING.applique(PHI_FACT)" + ] + }, + { + "cell_type": "code", + "execution_count": 123, + "metadata": {}, + "outputs": [ + { + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 123, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "FACTv3.applique(ZERO).forme_normale() == UN" + ] + }, + { + "cell_type": "code", + "execution_count": 124, + "metadata": {}, + "outputs": [ + { + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 124, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "FACTv3.applique(UN).forme_normale(nb_etapes_max=114) == UN" + ] + }, + { + "cell_type": "code", + "execution_count": 125, + "metadata": {}, + "outputs": [ + { + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 125, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "FACTv3.applique(DEUX).forme_normale(nb_etapes_max=520) == DEUX" + ] + }, + { + "cell_type": "code", + "execution_count": 126, + "metadata": {}, + "outputs": [ + { + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 126, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "FACTv3.applique(TROIS).forme_normale(nb_etapes_max=2897) == SIX" + ] + }, + { + "cell_type": "code", + "execution_count": 127, + "metadata": {}, + "outputs": [ + { + "data": { + "text/plain": [ + "True" + ] + }, + "execution_count": 127, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "FACTv3.applique(QUATRE).forme_normale(nb_etapes_max=18732) == MUL.applique(QUATRE).applique(SIX).forme_normale()" + ] }, { "cell_type": "markdown", @@ -2416,16 +3633,217 @@ }, { "cell_type": "markdown", - "metadata": { - "incorrectly_encoded_metadata": "toc-hr-collapsed=true toc-nb-collapsed=true" - }, + "metadata": {}, + "source": [ + "Dans cette partie, les lambda-expressions de Python vont être utilisées pour représenter les abstractions, et les applications seront des appels de fonction.\n", + "\n", + "Les seuls mots du langage Python que nous utiliserons seront `lambda` et `if`. Les autres mots (`def`, `while`, `for` ...) seront bannis. Nous utiliserons aussi les entiers prédéfinis dans le langage avec certaines opérations arithmétiques." + ] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "## Les booléens" + ] + }, + { + "cell_type": "code", + "execution_count": 128, + "metadata": {}, + "outputs": [], + "source": [ + "vrai = lambda x: lambda y: x\n", + "faux = lambda x: lambda y: y" + ] + }, + { + "cell_type": "code", + "execution_count": 129, + "metadata": {}, + "outputs": [], + "source": [ + "def booleen_en_bool(b):\n", + " return b(True)(False)" + ] + }, + { + "cell_type": "code", + "execution_count": 130, + "metadata": {}, + "outputs": [ + { + "data": { + "text/plain": [ + "(True, False)" + ] + }, + "execution_count": 130, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "tuple(booleen_en_bool(b) for b in (vrai, faux))" + ] + }, + { + "cell_type": "code", + "execution_count": 131, + "metadata": {}, + "outputs": [], + "source": [ + "If = lambda c: lambda a: lambda s: c(a)(s) " + ] + }, + { + "cell_type": "code", + "execution_count": 132, + "metadata": {}, + "outputs": [ + { + "data": { + "text/plain": [ + "1" + ] + }, + "execution_count": 132, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "If(vrai)(1)(2)" + ] + }, + { + "cell_type": "code", + "execution_count": 133, + "metadata": {}, + "outputs": [ + { + "data": { + "text/plain": [ + "2" + ] + }, + "execution_count": 133, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "If(faux)(1)(2)" + ] + }, + { + "cell_type": "code", + "execution_count": 134, + "metadata": {}, + "outputs": [], + "source": [ + "#If(vrai)(1)(1/0)" + ] + }, + { + "cell_type": "code", + "execution_count": 135, + "metadata": {}, + "outputs": [], + "source": [ + "non = lambda b: If(b)(faux)(vrai)" + ] + }, + { + "cell_type": "code", + "execution_count": 136, + "metadata": {}, + "outputs": [ + { + "data": { + "text/plain": [ + "(False, True)" + ] + }, + "execution_count": 136, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "tuple(booleen_en_bool(non(b)) for b in (vrai, faux))" + ] + }, + { + "cell_type": "code", + "execution_count": 137, + "metadata": {}, + "outputs": [], + "source": [ + "et = lambda b1: lambda b2: If(b1)(b2)(faux)" + ] + }, + { + "cell_type": "code", + "execution_count": 138, + "metadata": {}, + "outputs": [ + { + "data": { + "text/plain": [ + "(True, False, False, False)" + ] + }, + "execution_count": 138, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "tuple(booleen_en_bool(et(b1)(b2)) for b1 in (vrai, faux) \n", + " for b2 in (vrai, faux))" + ] + }, + { + "cell_type": "code", + "execution_count": 139, + "metadata": {}, + "outputs": [], + "source": [ + "ou = lambda b1: lambda b2: If(b1)(vrai)(b2)" + ] + }, + { + "cell_type": "code", + "execution_count": 140, + "metadata": {}, + "outputs": [ + { + "data": { + "text/plain": [ + "(True, True, True, False)" + ] + }, + "execution_count": 140, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "tuple(booleen_en_bool(ou(b1)(b2)) for b1 in (vrai, faux) \n", + " for b2 in (vrai, faux))" + ] + }, + { + "cell_type": "markdown", + "metadata": {}, "source": [ "## Les entiers de Church" ] }, { "cell_type": "code", - "execution_count": null, + "execution_count": 141, "metadata": {}, "outputs": [], "source": [ @@ -2434,7 +3852,7 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 142, "metadata": {}, "outputs": [], "source": [ @@ -2443,7 +3861,7 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 143, "metadata": {}, "outputs": [], "source": [ @@ -2452,7 +3870,7 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 144, "metadata": {}, "outputs": [], "source": [ @@ -2461,7 +3879,7 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 145, "metadata": {}, "outputs": [], "source": [ @@ -2471,16 +3889,27 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 146, "metadata": {}, - "outputs": [], + "outputs": [ + { + "data": { + "text/plain": [ + "(0, 1, 2, 3)" + ] + }, + "execution_count": 146, + "metadata": {}, + "output_type": "execute_result" + } + ], "source": [ "tuple(entier_church_en_int(n) for n in (zero, un, deux, trois))" ] }, { "cell_type": "code", - "execution_count": null, + "execution_count": 147, "metadata": {}, "outputs": [], "source": [ @@ -2489,16 +3918,27 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 148, "metadata": {}, - "outputs": [], + "outputs": [ + { + "data": { + "text/plain": [ + "(1, 2, 3, 4)" + ] + }, + "execution_count": 148, + "metadata": {}, + "output_type": "execute_result" + } + ], "source": [ "tuple(entier_church_en_int(suc(n)) for n in (zero, un, deux, trois)) " ] }, { "cell_type": "code", - "execution_count": null, + "execution_count": 149, "metadata": {}, "outputs": [], "source": [ @@ -2511,16 +3951,27 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 150, "metadata": {}, - "outputs": [], + "outputs": [ + { + "data": { + "text/plain": [ + "(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)" + ] + }, + "execution_count": 150, + "metadata": {}, + "output_type": "execute_result" + } + ], "source": [ "tuple(entier_church_en_int(int_en_entier_church(n)) for n in range(10))" ] }, { "cell_type": "code", - "execution_count": null, + "execution_count": 151, "metadata": {}, "outputs": [], "source": [ @@ -2529,9 +3980,20 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 152, "metadata": {}, - "outputs": [], + "outputs": [ + { + "data": { + "text/plain": [ + "5" + ] + }, + "execution_count": 152, + "metadata": {}, + "output_type": "execute_result" + } + ], "source": [ "cinq = add(deux)(trois)\n", "entier_church_en_int(cinq)" @@ -2539,7 +4001,7 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 153, "metadata": {}, "outputs": [], "source": [ @@ -2548,9 +4010,20 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 154, "metadata": {}, - "outputs": [], + "outputs": [ + { + "data": { + "text/plain": [ + "6" + ] + }, + "execution_count": 154, + "metadata": {}, + "output_type": "execute_result" + } + ], "source": [ "six = mul(deux)(trois)\n", "entier_church_en_int(six)" @@ -2558,7 +4031,7 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 155, "metadata": {}, "outputs": [], "source": [ @@ -2567,146 +4040,49 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 156, "metadata": {}, - "outputs": [], + "outputs": [ + { + "data": { + "text/plain": [ + "8" + ] + }, + "execution_count": 156, + "metadata": {}, + "output_type": "execute_result" + } + ], "source": [ "huit = exp(deux)(trois)\n", "entier_church_en_int(huit)" ] }, - { - "cell_type": "markdown", - "metadata": { - "incorrectly_encoded_metadata": "toc-hr-collapsed=true toc-nb-collapsed=true" - }, - "source": [ - "## Les booléens" - ] - }, { "cell_type": "code", - "execution_count": null, + "execution_count": 157, "metadata": {}, - "outputs": [], + "outputs": [ + { + "data": { + "text/plain": [ + "9" + ] + }, + "execution_count": 157, + "metadata": {}, + "output_type": "execute_result" + } + ], "source": [ - "vrai = lambda x: lambda y: x\n", - "faux = lambda x: lambda y: y" + "neuf = exp(trois)(deux)\n", + "entier_church_en_int(neuf)" ] }, { "cell_type": "code", - "execution_count": null, - "metadata": {}, - "outputs": [], - "source": [ - "def booleen_en_bool(b):\n", - " return b(True)(False)\n", - " " - ] - }, - { - "cell_type": "code", - "execution_count": null, - "metadata": {}, - "outputs": [], - "source": [ - "tuple(booleen_en_bool(b) for b in (vrai, faux))" - ] - }, - { - "cell_type": "code", - "execution_count": null, - "metadata": {}, - "outputs": [], - "source": [ - "cond = lambda c: lambda a: lambda s: c(a)(s) " - ] - }, - { - "cell_type": "code", - "execution_count": null, - "metadata": {}, - "outputs": [], - "source": [ - "cond(vrai)(1)(2)" - ] - }, - { - "cell_type": "code", - "execution_count": null, - "metadata": {}, - "outputs": [], - "source": [ - "cond(faux)(1)(2)" - ] - }, - { - "cell_type": "code", - "execution_count": null, - "metadata": {}, - "outputs": [], - "source": [ - "cond(vrai)(1)(1/0)" - ] - }, - { - "cell_type": "code", - "execution_count": null, - "metadata": {}, - "outputs": [], - "source": [ - "non = lambda b: cond(b)(faux)(vrai)" - ] - }, - { - "cell_type": "code", - "execution_count": null, - "metadata": {}, - "outputs": [], - "source": [ - "tuple(booleen_en_bool(non(b)) for b in (vrai, faux))" - ] - }, - { - "cell_type": "code", - "execution_count": null, - "metadata": {}, - "outputs": [], - "source": [ - "et = lambda b1: lambda b2: cond(b1)(b2)(faux)" - ] - }, - { - "cell_type": "code", - "execution_count": null, - "metadata": {}, - "outputs": [], - "source": [ - "tuple(booleen_en_bool(et(b1)(b2)) for b1 in (vrai, faux) for b2 in (vrai, faux))" - ] - }, - { - "cell_type": "code", - "execution_count": null, - "metadata": {}, - "outputs": [], - "source": [ - "ou = lambda b1: lambda b2: cond(b1)(vrai)(b2)" - ] - }, - { - "cell_type": "code", - "execution_count": null, - "metadata": {}, - "outputs": [], - "source": [ - "tuple(booleen_en_bool(ou(b1)(b2)) for b1 in (vrai, faux) for b2 in (vrai, faux))" - ] - }, - { - "cell_type": "code", - "execution_count": null, + "execution_count": 158, "metadata": {}, "outputs": [], "source": [ @@ -2715,11 +4091,23 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 159, "metadata": {}, - "outputs": [], + "outputs": [ + { + "data": { + "text/plain": [ + "(True, False, False, False, False, False, False)" + ] + }, + "execution_count": 159, + "metadata": {}, + "output_type": "execute_result" + } + ], "source": [ - "tuple(booleen_en_bool(est_nul(n)) for n in (zero, un, deux, trois, cinq, six, huit))" + "tuple(booleen_en_bool(est_nul(n)) \n", + " for n in (zero, un, deux, trois, cinq, six, huit))" ] }, { @@ -2731,7 +4119,7 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 160, "metadata": {}, "outputs": [], "source": [ @@ -2740,7 +4128,7 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 161, "metadata": {}, "outputs": [], "source": [ @@ -2749,7 +4137,7 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 162, "metadata": {}, "outputs": [], "source": [ @@ -2759,16 +4147,27 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 163, "metadata": {}, - "outputs": [], + "outputs": [ + { + "data": { + "text/plain": [ + "(1, 2)" + ] + }, + "execution_count": 163, + "metadata": {}, + "output_type": "execute_result" + } + ], "source": [ "entier_church_en_int(car(un_deux)), entier_church_en_int(cdr(un_deux))" ] }, { "cell_type": "code", - "execution_count": null, + "execution_count": 164, "metadata": {}, "outputs": [], "source": [ @@ -2777,16 +4176,27 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 165, "metadata": {}, - "outputs": [], + "outputs": [ + { + "data": { + "text/plain": [ + "(0, 0, 1, 2, 3, 4, 5, 6, 7, 8)" + ] + }, + "execution_count": 165, + "metadata": {}, + "output_type": "execute_result" + } + ], "source": [ "tuple(entier_church_en_int(pred(int_en_entier_church(n))) for n in range(10))" ] }, { "cell_type": "code", - "execution_count": null, + "execution_count": 166, "metadata": {}, "outputs": [], "source": [ @@ -2795,16 +4205,27 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 167, "metadata": {}, - "outputs": [], + "outputs": [ + { + "data": { + "text/plain": [ + "5" + ] + }, + "execution_count": 167, + "metadata": {}, + "output_type": "execute_result" + } + ], "source": [ "entier_church_en_int(sub(huit)(trois))" ] }, { "cell_type": "code", - "execution_count": null, + "execution_count": 168, "metadata": {}, "outputs": [], "source": [ @@ -2813,16 +4234,28 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 169, "metadata": {}, - "outputs": [], + "outputs": [ + { + "data": { + "text/plain": [ + "(True, True, True, True, True, True, False, False, False, False)" + ] + }, + "execution_count": 169, + "metadata": {}, + "output_type": "execute_result" + } + ], "source": [ - "tuple(booleen_en_bool(est_inf_ou_egal(cinq)(int_en_entier_church(n))) for n in range(10))" + "tuple(booleen_en_bool(est_inf_ou_egal(cinq)(int_en_entier_church(n))) \n", + " for n in range(10))" ] }, { "cell_type": "code", - "execution_count": null, + "execution_count": 170, "metadata": {}, "outputs": [], "source": [ @@ -2831,25 +4264,35 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 171, "metadata": {}, - "outputs": [], + "outputs": [ + { + "data": { + "text/plain": [ + "(False, False, False, False, False, True, False, False, False, False)" + ] + }, + "execution_count": 171, + "metadata": {}, + "output_type": "execute_result" + } + ], "source": [ - "tuple(booleen_en_bool(est_egal(cinq)(int_en_entier_church(n))) for n in range(10))" + "tuple(booleen_en_bool(est_egal(cinq)(int_en_entier_church(n))) \n", + " for n in range(10))" ] }, { "cell_type": "markdown", - "metadata": { - "incorrectly_encoded_metadata": "toc-hr-collapsed=true toc-nb-collapsed=true" - }, + "metadata": {}, "source": [ "## Itération" ] }, { "cell_type": "code", - "execution_count": null, + "execution_count": 172, "metadata": {}, "outputs": [], "source": [ @@ -2858,9 +4301,20 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 173, "metadata": {}, - "outputs": [], + "outputs": [ + { + "data": { + "text/plain": [ + "(1, 1, 2, 6, 24, 120, 720)" + ] + }, + "execution_count": 173, + "metadata": {}, + "output_type": "execute_result" + } + ], "source": [ "tuple(entier_church_en_int(fact(int_en_entier_church(n))) for n in range(7))" ] @@ -2874,7 +4328,7 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 174, "metadata": {}, "outputs": [], "source": [ @@ -2883,7 +4337,7 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 175, "metadata": {}, "outputs": [], "source": [ @@ -2892,7 +4346,7 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 176, "metadata": {}, "outputs": [], "source": [ @@ -2905,16 +4359,27 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 177, "metadata": {}, - "outputs": [], + "outputs": [ + { + "data": { + "text/plain": [ + "(1, 1, 2, 6)" + ] + }, + "execution_count": 177, + "metadata": {}, + "output_type": "execute_result" + } + ], "source": [ "tuple(f4(n) for n in range(4))" ] }, { "cell_type": "code", - "execution_count": null, + "execution_count": 178, "metadata": {}, "outputs": [], "source": [ @@ -2927,7 +4392,7 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 179, "metadata": {}, "outputs": [], "source": [ @@ -2936,16 +4401,27 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 180, "metadata": {}, - "outputs": [], + "outputs": [ + { + "data": { + "text/plain": [ + "(1, 1, 2, 6, 24, 120, 720)" + ] + }, + "execution_count": 180, + "metadata": {}, + "output_type": "execute_result" + } + ], "source": [ "tuple(fact2(n) for n in range(7))" ] }, { "cell_type": "code", - "execution_count": null, + "execution_count": 181, "metadata": {}, "outputs": [], "source": [ @@ -2954,7 +4430,7 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 182, "metadata": {}, "outputs": [], "source": [ @@ -2963,27 +4439,44 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 183, "metadata": {}, - "outputs": [], + "outputs": [ + { + "data": { + "text/plain": [ + "(1, 1, 2, 6, 24, 120, 720)" + ] + }, + "execution_count": 183, + "metadata": {}, + "output_type": "execute_result" + } + ], "source": [ "tuple(fact3(n) for n in range(7))" ] }, { "cell_type": "markdown", - "metadata": { - "incorrectly_encoded_metadata": "toc-hr-collapsed=true toc-nb-collapsed=true" - }, + "metadata": {}, "source": [ "## Un programme obscur" ] }, { "cell_type": "code", - "execution_count": null, + "execution_count": 184, "metadata": {}, - "outputs": [], + "outputs": [ + { + "name": "stdout", + "output_type": "stream", + "text": [ + "hello world!\n" + ] + } + ], "source": [ "print((lambda x: (lambda y: lambda z: x(y(y))(z))(lambda y: lambda z: x(y(y))(z))) \n", " (lambda x: lambda y: '' if y == [] else chr(y[0])+x(y[1:]))\n", @@ -2997,7 +4490,7 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 185, "metadata": {}, "outputs": [], "source": [ @@ -3006,16 +4499,27 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 186, "metadata": {}, - "outputs": [], + "outputs": [ + { + "data": { + "text/plain": [ + "'ABCDEFGHIJKLMNOPQRSTUVWXYZ'" + ] + }, + "execution_count": 186, + "metadata": {}, + "output_type": "execute_result" + } + ], "source": [ "fix_curry(phiListEnChaine)([65+k for k in range(26)])" ] }, { "cell_type": "code", - "execution_count": null, + "execution_count": 187, "metadata": {}, "outputs": [], "source": [ @@ -3024,16 +4528,27 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 188, "metadata": {}, - "outputs": [], + "outputs": [ + { + "data": { + "text/plain": [ + "[1, 4, 9, 16]" + ] + }, + "execution_count": 188, + "metadata": {}, + "output_type": "execute_result" + } + ], "source": [ "fix_curry(phiMap)(lambda x: x*x)([1, 2, 3, 4])" ] }, { "cell_type": "code", - "execution_count": null, + "execution_count": 189, "metadata": {}, "outputs": [], "source": [ @@ -3042,20 +4557,24 @@ }, { "cell_type": "code", - "execution_count": null, + "execution_count": 190, "metadata": {}, - "outputs": [], + "outputs": [ + { + "data": { + "text/plain": [ + "24" + ] + }, + "execution_count": 190, + "metadata": {}, + "output_type": "execute_result" + } + ], "source": [ "fix_curry(phiExpoMod)(2)(10)(1000)" ] }, - { - "cell_type": "code", - "execution_count": null, - "metadata": {}, - "outputs": [], - "source": [] - }, { "cell_type": "code", "execution_count": null, @@ -3085,7 +4604,8 @@ "pygments_lexer": "ipython3", "version": "3.7.3" }, - "toc-autonumbering": true, + "toc-showcode": false, + "toc-showmarkdowntxt": false, "widgets": { "application/vnd.jupyter.widget-state+json": { "state": {}, diff --git a/lambda_calcul.md b/lambda_calcul.md index 8182e6a..df6331c 100644 --- a/lambda_calcul.md +++ b/lambda_calcul.md @@ -13,38 +13,141 @@ jupyter: name: python3 --- +Ce calepin est composé de deux parties : -# $\lambda$-calcul +1. la première partie est une rapide présentation du $\lambda$-calcul illustrée par l'utilisation d'un module permettant de définir et transformer des $\lambda$-termes. +2. la deuxième partie reprend la partie « pouvoir d'expression du $\lambda$-calcul » en l'illustrant avec les lambda-expressions du langage Python. + + +# $\lambda$-calcul + + +Le [$\lambda$-calcul](https://fr.wikipedia.org/wiki/Lambda-calcul) a été introduit dans les années 1930, principalement par [Alonzo Church](https://fr.wikipedia.org/wiki/Alonzo_Church) pour des questions de fondements mathématiques, semblables à celles qui ont conduit, à la même époque, [Alan Turing](https://fr.wikipedia.org/wiki/Alan_Turing) à concevoir les [machines](https://fr.wikipedia.org/wiki/Machine_de_Turing) qui portent son nom maintenant. + +Avec les machines de Turing, le $\lambda$-calcul est l'un des principaux outils permettant d'étudier l'informatique théorique. Il est en particulier le fondement de la programmation fonctionnelle, et des langages de programmation comme [Lisp](https://fr.wikipedia.org/wiki/Lisp), [Scheme](https://fr.wikipedia.org/wiki/Scheme), [ML](https://fr.wikipedia.org/wiki/ML_(langage)), [Haskell](https://fr.wikipedia.org/wiki/Haskell) lui doivent beaucoup. + + +## Les $\lambda$-termes + + +Sommaire de cette partie : + +* définition des $\lambda$-termes +* variables libres, liées. Sous-termes + +Le tout illustré avec une classe Python pour représenter et manipuler des $\lambda$-termes. + + +### Définition des $\lambda$-termes + + +En principe, les $\lambda$-termes sont des mots sur lesquels certaines opérations sont possibles. Ces mots ont vocation à pouvoir exprimer des fonctions, ainsi que leur application à un argument. + + +Formellement, l'alphabet $\Sigma$ utilisé pour les $\lambda$-termes est constitué : + +* d'un ensemble infini dénombrable de variables $V=\{x, y, z, t, ...\}$ ; +* et d'un ensemble de cinq symboles $\mathcal{S}=\{\lambda, ., (, ), ESP\}$, $ESP$ désignant l'espace. +Ainsi $\Sigma = V\cup \mathcal{S}$. + +Les $\lambda$-termes sont construits inductivement à l'aide des trois règles + +1. toute variable est un $\lambda$-terme ; +2. si $T$ est un $\lambda$-terme et $x$ une variable, alors $\lambda x.T$ est un $\lambda$-terme, que l'on appelle *abstraction* de $T$ par $x$ ; +3. si $T$ et $S$ sont deux $\lambda$-termes, alors $(T\ S)$ est un $\lambda$-terme, que l'on appelle *application* de $T$ à $S$. + +L'ensemble $\Lambda$ des $\lambda$-termes est donc le plus petit sous-ensemble de $\Sigma^*$ contenant $V$ et stable par abstraction et application. + + +### Une classe pour les $\lambda$-termes + + +Le module `lambda_calcul` définit une classe `Lambda_terme` permettant de construire et manipuler des objets représentant des $\lambda$-termes. + + +**Remarque :** ce module fait appel au module`sly` qui permet de définir des analyseurs lexicaux et syntaxiques. Ce module doit donc être préalablement installé (`pip install sly`). ```python from lambda_calcul import Lambda_terme ``` -Voici la grammaire du langage décrivant les $\lambda$-termes - - term ::= VAR | LAMBDA VAR POINT term | LPAR term term RPAR +### Construction de $\lambda$-termes -## La classe `Lambda_terme` +L'une des façons les plus simples de construire des $\lambda$-termes est d'invoquer le constructeur `Lambda_terme` avec une chaîne de caractères les représentant. ```python T1 = Lambda_terme("x") T2 = Lambda_terme("(x x)") T3 = Lambda_terme("!x.x") -T4 = Lambda_terme('!x.(x x)') -T5 = Lambda_terme('(!x.(x y) z)') +T4 = Lambda_terme('!x.(x y)') +T5 = Lambda_terme('(!x.(x y) x)') ``` -```python -print(T1) -print(T2) -print(T3) -print(T4) -print(T5) -``` +Les objets de la classe `Lambda_terme` peuvent être convertis en chaînes de caractères et imprimés. ```python termes = (T1, T2, T3, T4, T5) +for t in termes: + print(t) +``` + +La syntaxe autorisée pour les $\lambda$-termes est + +1. pour les variables : n'importe quelles chaîne de caractères ne contenant que des lettres (latins) non accentuées majuscules ou minuscules, ainsi que des chiffres. Autrement dit n'importe quelle chaîne correspondant à l'expression régulière `[A-Za-z][A-Za-z0-9]*`. +2. pour les abstractions : n'importe quelle chaîne débutant par `!` ou $\lambda$ suivie d'une variable, suivie d'un point `.` suivi d'une chaîne décrivant un $\lambda$-terme. Autrement dit n'importe quelle chaîne satisfaisant `(!|λ)VAR.LAMBDA-TERME`. +3. pour les applications : n'importe quelle chaîne débutant par une parenthèse ouvrante `(` et terminant par une parenthèse fermante `)` et comprenant entre les deux la description de deux $\lambda$-termes séparés par un ou plusieurs espaces. Autrement dit n'importe quelle chaîne satisfaisant `(LAMBDA-TERME ESPACES LAMBDA-TERME)`. + +**Remarque :** le parenthésage des applications est obligatoire, contrairement à la convention d'associativité à gauche qui permet usuellement d'écrire $M\ N\ P$ au lieu de $((M\ N)\ P)$. +De même deux abstractions successives doivent être explicitement écrites : il n'est pas possible d'écrire $\lambda xy.(x\ y)$, il faut écrire $\lambda x.\lambda y.(x\ y)$. + + +Les passages à la ligne sont autorisés dans la chaîne transmise au constructeur. + +```python +print(Lambda_terme('''(james + bond007)''')) +``` + +L'exception `LambdaSyntaxError` est déclenchée en cas de présence de caractères non autorisés ou de malformation syntaxique. + +```python +# Lambda_terme('bond 007') +``` + +```python +# Lambda_terme('(james bond007 !)') +``` + +### Autres constructions + + +Deux méthodes permettent de construire de nouveaux $\lambda$-termes à partir de $\lambda$-termes existant. + + +La méthode `abstrait` permet de construire une abstraction. + +```python +print(T1.abstrait('x')) +print(T2.abstrait('y')) +``` + +La méthode `applique` construit une application d'un terme sur un autre. + +```python +print(T2.applique(T3)) +print(T3.applique(T2)) +``` + +### Quelques prédicats + + +Trois prédicats `est_variable`, `est_abstraction` et `est_application` permettent de reconnaître la nature d'un $\lambda$-terme. + +```python +# pour rappel des termes définis +for t in termes: + print(t) ``` ```python @@ -59,87 +162,502 @@ tuple(t.est_abstraction() for t in termes) tuple(t.est_application() for t in termes) ``` +### Variables libres, variables liées + + +Parmi les variables figurant dans un $\lambda$-terme, certaines sont dites *libres*, et d'autres *liées*. + + +Les variables libres sont celles qui ne sont pas sous la portée d'une abstraction. L'ensemble $FV(T)$ des variables libres d'un $\lambda$-terme $T$ est défini inductivement par les trois règles : + +1. $FV(x) = \{x\}$. +2. $FV(\lambda x.T) = FV(T)\setminus\{x\}$. +3. $FV((T_1\ T_2)) = FV(T_1)\cup FV(T_2)$. + +Les variables liées sont celles qui sont sous la portée d'une abstraction. L'ensemble $BV(T)$ des variables liées d'un $\lambda$-terme $T$ est défini inductivement par les trois règles : + +1. $BV(x) = \emptyset$. +2. $BV(\lambda x.T) = BV(T)\cup \{x\}$ si $x\in FV(T)$, sinon + $BV(\lambda x.T) = BV(T)$. +3. $BV((T_1\ T_2)) = BV(T_1)\cup BV(T_2)$. + + +La méthode `variables` donne sous un couple constitué de l'ensemble des variables libres et de l'ensemble des variables liées du $\lambda$-terme. + ```python -tuple(t.est_redex() for t in termes) +tuple(t.variables() for t in termes) +``` + +**Remarque :** Dans un $\lambda$-terme, une variable peut être à la fois libre et liée comme le montre l'exemple du terme `T5` qui contient deux occurrences de la variable $x$, la première étant liée et la seconde libre. Pour être plus précis, on devrait plutôt parler d'*occurrence libre* ou *liée* d'une variable. + + +Un $\lambda$-terme sans variable libre est appelé *terme clos*, ou encore *combinateur*. + + +### Sous-termes + + +Hormis les variables, les $\lambda$-termes sont construits à partir d'autres $\lambda$-termes qui eux-mêmes peuvent être construits à l'aide d'autres $\lambda$-termes encore. + +Un $\lambda$-terme contient donc des *sous-termes*. + + +Voici comment l'ensemble $ST$ des sous-termes d'un $\lambda$-terme est défini inductivement selon la structure de ce terme. + +1. Les variables n'ont qu'un seul sous-terme : elles-mêmes. $ST(x) = \{x\}$. +2. Les sous-termes d'une abstraction sont, outre l'abstration elle-même, les sous-termes de son corps. $ST(\lambda x.T) = \{\lambda x.T\}\cup ST(T)$. +3. Les sous-termes d'une application sont, outre l'application elle-même, les sous-termes des deux termes la composant. $ST((T_1\ T_2)) = \{(T_1\ T_2)\}\cup ST(T_1)\cup ST(T_2)$. + + +La méthode `sous_termes` donne la liste des sous-termes d'un $\lambda$-terme. L'ordre dans lequel figurent les sous-termes dans cette liste est l'ordre d'apparition de ces sous-termes dans une lecture de gauche à droite (autrement dit, un ordre préfixe). + +```python +for t in T5.sous_termes(): + print(t) +``` + +## $\beta$-réduction ou calculer avec des $\lambda$-termes + + +### Substitution + + +Étant donnés deux $\lambda$-termes $T$ et $R$, et une variable $x$, on note $T[x:= R]$ le $\lambda$-terme obtenu en substituant le terme $R$ à toutes les occurrences libres de la variable $x$ dans le terme $T$. + + +1. Si $T$ est une variable, $T[x:=R] = R$ si $T=x$ et $T[x := R] = T$ si $T\neq x$. +2. Si $T=(T_1\ T_2)$ est une application, $T[x:=R] = (T_1[x:=R]\ T_2[x := R])$. +3. Si $T=\lambda y.S$ est une abstraction, alors il faut distinguer deux cas pour définir $T[x:=R]$ + + * si $y\not\in FV(R)$, alors $T[x:=R] = \lambda y.S[x:= R]$. + * si $y\in FV(R)$, alors $T[x:=R] = \lambda z.S[y:=z][x:=R]$, la variable $z$ étant une nouvelle variable n'apparaissant pas dans $S$ ni dans $R$. On procède à un renommage de la variable d'abstraction ($y$) pour éviter que les occurrences libres de $y$ de $R$ n'entrent sous la portée de l'abstraction. + + +La méthode `subs` renvoie le terme obtenu en substituant un $\lambda$-terme à toutes les occurrences libres d'une variable. + +```python +# substitution dans une variable +print('T1 = {:s}'.format(str(T1))) +x = 'y'; R = Lambda_terme('(y x)') +print('T1[{:s}:={:s}] = {:s}'.format(x, str(R), str(T1.subs(x, R)))) +x = 'x' +print('T1[{:s}:={:s}] = {:s}'.format(x, str(R), str(T1.subs(x, R)))) ``` ```python -tuple(t.est_forme_normale() for t in termes) +# substitution dans une application +print('T2 = {:s}'.format(str(T2))) +x = 'y'; R = Lambda_terme('(y x)') +print('T2[{:s}:={:s}] = {:s}'.format(x, str(R), str(T2.subs(x, R)))) +x = 'x' +print('T2[{:s}:={:s}] = {:s}'.format(x, str(R), str(T2.subs(x, R)))) ``` ```python -tuple(t.variables_libres() for t in termes) +# substitution dans une abstraction +print('T4 = {:s}'.format(str(T4))) +x = 'x'; R = Lambda_terme('(y z)') +print('T4[{:s}:={:s}] = {:s}'.format(x, str(R), str(T4.subs(x, R)))) +x = 'y'; R = Lambda_terme('(y z)') +print('T4[{:s}:={:s}] = {:s}'.format(x, str(R), str(T4.subs(x, R)))) +x = 'y'; R = Lambda_terme('(y x)') +print('T4[{:s}:={:s}] = {:s}'.format(x, str(R), str(T4.subs(x, R)))) ``` -```python -print(T1, '-->', T1.subs('y', Lambda_terme('(y x)'))) -print(T1, '-->', T1.subs('x', Lambda_terme('(y x)'))) -``` +**Remarque :** on peut utiliser la substitution pour construire des $\lambda$-termes à partir d'autres existants. ```python -T5 = Lambda_terme('!x.y') -print(T5, '-->', T5.subs('x', Lambda_terme('(y z)'))) -print(T5, '-->', T5.subs('y', Lambda_terme('(t z)'))) -print(T5, '-->', T5.subs('y', Lambda_terme('(x z)'))) +print(Lambda_terme('(!z.(T2 T3) T4)').subs('T2', T2).subs('T3', T3).subs('T4', T4)) ``` -```python -print(T3, '-->', T3.subs('y', Lambda_terme('(y x)'))) -print(T3, '-->', T3.subs('x', Lambda_terme('(y x)'))) -``` +### Réduire un terme + + +L'idée principale qui motive la notion de réduction est qu'une abstraction $\lambda x.T$ représente une fonction $x \mapsto T$, et qu'une application d'une abstraction à un terme $R$, $(\lambda x.T\ R)$ représente l'application de la fonction au terme $R$. + +De la même façon que l'application la fonction $x\mapsto x^2+2x -1$ à un nombre $y$ se ramène au calcul de l'expression $y^2+2y-1$ obtenue en substituant $y$ à $x$, l'application $(\lambda x.T\ R)$ doit se réduire au terme $T[x:=R]$. + + +Un terme de la forme $(\lambda x.T\ R)$, autrement dit une application d'une abstraction à un terme, est appelé *redex*. + +La *réduction d'un redex* est une relation, notée $\rightarrow_\beta$, est définie par + +$$ (\lambda x.T\ R) \rightarrow_\beta T[x:=R].$$ + +On peut étendre cette notion de réduction à tout $\lambda$-terme dont l'un au moins de ses sous-termes est un redex. Le terme réduit correspondant étant celui obtenu en remplaçant un sous-terme redex par son réduit. + +Selon cette définition, seuls les $\lambda$-termes ayant au moins un redex parmi leurs sous-termes peuvent être réduits. Les $\lambda$-termes ne contenant aucun redex sont dit *irréductibles* ou encore sont des *formes normales*. + + +La méthode `est_redex` permet de distinguer les $\lambda$-termes qui sont des redex. ```python for t in termes: - for v in ('x', 'y'): - print(t.abstrait(v)) + print(t, t.est_redex()) ``` ```python -for t1 in termes: - for t2 in termes: - print(t1.applique(t2)) +T6 = T4.applique(T5) +for t in T6.sous_termes(): + print(t, t.est_redex()) ``` +La méthode `reduit` réduit les redex. La valeur de l'expression `T.reduit()` est un couple (Lambda_terme, bool) dont la valeur dépend du $\lambda$-terme `T` : + +* si `T` contient un redex, alors le booléen a la valeur `True` et la première composante du couple est le $\lambda$-terme obtenu en remplaçant le redex le plus à gauche dans `T` par le terme obtenu par une étape de réduction. +* si `T` ne contient aucun redex, alors le couple est `(T, False)`. + +```python +t, reduit = T2.reduit() +print(T2) +print(reduit) +print(t) +``` + +```python +T7, reduit = T6.reduit() +print(T6) +print(reduit) +print(T7) +``` + +Le terme `T6` contient deux redex. Comme il a été signalé la méthode `reduit` réduit le redex le plus à gauche, et dans le cas de `T6` le redex le plus à gauche est `T6` lui-même. Et cela donne le terme `T7`. + +Mais comme `T6 = (T4 T5)`, et que `T5` est un redex, considérons le terme `(T4 T5')` dans lequel `T5'` est le terme obtenu en réduisant le redex `T5`. + +```python +T5bis, reduit = T5.reduit() +T7bis = T4.applique(T5bis) +print(T5) +print +print(T7bis) +``` + +Nous voyons donc qu'un $\lambda$-terme peut se réduire de plusieurs façons (en fait d'autant de façon que le terme contient de sous-termes qui sont des redex). + +En particulier nous avons + +* `T6` $\rightarrow_\beta$ `T7` et +* `T6` $\rightarrow_\beta$ `T7bis`. + +Si nous envisageons les $\beta$ reductions comme des étapes de calcul, nous avons donc deux voies distinctes pour « calculer » `T6`. + +Poursuivons le calcul pour chacun des deux termes `T7` et `T7bis` qui ne sont pas des formes normales. + +```python +T8, _ = T7.reduit() +T8bis, _ = T7bis.reduit() +print('{} = {} : {}'.format(str(T8), str(T8bis), T8==T8bis)) +``` + +Après une nouvelle étape de réduction nous obtenons le même terme $((x\ y)\ y)$ qui est irréductible. +On peut dire que par deux calculs différents `T6` se calcule, ou se *normalise*, en $((x\ y)\ y)$. +On écrit + +$$ \mathtt{T6} \twoheadrightarrow_{\beta} ((x\ y)\ y),$$ +la notation $T\twoheadrightarrow_{\beta} R$ signifiant qu'il y a un nombre quelconque (y compris nul) d'étapes de $\beta$-réduction pour arriver au terme $R$ en partant de $T$ (dit en terme plus savant, la relation $\twoheadrightarrow_\beta$ est la clôture réflexive et transitive de la relation $\rightarrow_\beta$). + + +### Formes normales, normalisation + + +On dit d'un $\lambda$-terme $T$ qu'il est *normalisable* s'il existe un $\lambda$-terme $R$ irréductible tel que + +$$ T\twoheadrightarrow_{\beta} R.$$ +Dans ce cas, on dit que $R$ est une *forme normale* de $T$. + +Par exemple, `T6` est normalisable et admet $((x\ y)\ y)$ pour forme normale. + + +Deux questions se posent naturellement : + +1. est-ce que tout $\lambda$-terme est normalisable ? +2. un $\lambda$-terme normalisable peut-il avoir plusieurs formes normales ? + + +La réponse à la première question est négative. Il suffit pour s'en convaincre de considérer le terme + +$$\Omega = (\lambda x.(x\ x)\ \lambda x.(x\ x)),$$ +qui est un redex et est donc réductible. + ```python OMEGA = Lambda_terme('(!x.(x x) !x.(x x))') -``` - -```python print(OMEGA) +t, reduit = OMEGA.reduit() +print(reduit) +print('{} -> {}'.format(str(OMEGA), str(t))) +print(t==OMEGA) +``` + +Le terme $\Omega$ n'a qu'un seul redex. Il n'y a donc qu'une seule façon de le réduire et cette réduction donne le terme $\Omega$ lui-même. Quelque soit le nombre d'étapes de réduction qu'on effectue on garde toujours le même terme : $\Omega$ n'est donc pas normalisable. + +Il existe donc des termes non normalisables, et $\Omega$ en est un exemple les plus simples. + + +Venons-en maintenant à la deuxième question : un terme normalisable peut-il avoir plusieurs formes normales ? + +Cette question est naturelle puisque lorsqu'un $\lambda$-terme possède plusieurs redex, il y a plusieurs façons de le réduire, et il se pourrait bien que ces voies différentes mènent à des formes normales différentes. + +Cela n'a pas été le cas pour le terme `T6`. Et il se trouve que cet exemple particulier reflète la situation générale, car la relation de $\beta$-réduction satisfait une propriété qu'on appelle propriété du diamant. + + +**Propriété du diamant** Soit $T$ un $\lambda$-terme qui peut se réduire en un nombre fini d'étapes en deux termes différents $R_1$ et $R_2$. Alors il existe un terme $R$ en lequel chacun des deux termes $R_1$ et $R_2$ se réduit en un nombre quelconque (y compris nul) d'étapes. + +Cette propriété doit son nom à la figure qui l'illustre. Cette propriété est aussi connue sous le nom de *confluence* de la $\beta$-réduction. + +![illustration de la propriété du diamant](tikz_diamant.png) + + +**Conséquence de la propriété du diamant :** Un $\lambda$-terme normalisable ne peut avoir qu'une seule forme normale. + + +Maintenant que nous avons répondu aux deux questions que nous nous sommes posées, il en vient une troisième. + +Étant donné que certains $\lambda$-termes sont normalisables et d'autres non, y a-t-il un moyen de les reconnaître ? + +Si par *moyen* nous entendons un algorithme général prenant un $\lambda$-terme en entrée, et répondant OUI si ce terme est normalisable et NON dans le cas contraire, alors la réponse est non. Aucun algorithme ne permet de distinguer les termes normalisables de ceux qui ne le sont pas. Le problème de la reconnaissance des termes normalisables est *indécidable*. + +Dit en d'autres termes, l'ensemble des termes normalisables n'est pas récursif. En revanche il est récursivement énumérable. En effet, si un terme est normalisable, pour s'en rendre compte il suffit de suivre tous les chemins de réduction. L'un d'eux mène à un terme irréductible et on le trouvera en un nombre fini d'étapes. + + +La méthode `forme_normale` calcule la forme normale d'un terme normalisable si ce terme l'est, et ne renvoie rien dans le cas contraire. + +```python +print(T6.forme_normale()) ``` ```python -OMEGA.est_redex() +print(OMEGA.forme_normale()) +``` + +Hmmmm ... Comment est-ce possible puisque nous venons de voir qu'aucun algorithme ne permet de décider si un terme est normalisable ? + +En fait le nombre d'étapes de réduction dans le calcul d'une forme normale est limité (par défaut à 100 étapes maximum). On peut visualiser chaque étape de calcul avec le paramètre optionnel `verbose` auquel il faut attribuer la valeur `True`. + +```python +T6.forme_normale(verbose=True) +``` + +On voit que la forme normale du terme `T6` est calculé en trois étapes. + + +Pour un terme non normalisable les calculs peuvent (en principe) être infinis. Voici la tentative de détermination d'une forme normale pour le terme $\Omega$ limité à dix étapes à l'aide du paramètre optionnel `nb_etapes_max`. + +```python +OMEGA.forme_normale(verbose=True, nb_etapes_max=10) +``` + +### $\beta$-équivalence + + +La relation $\twoheadrightarrow_\beta$ n'est pas symétrique. En effet, en général, si $T\twoheadrightarrow_\beta R$, on n'a pas $R\twoheadrightarrow_\beta T$. + + +En considèrant que la forme normale d'un terme normalisable représente sa « valeur », on peut définir une relation d'équivalence sur les $\lambda$-termes normalisables. Cette relation d'équivalence est la clôture symétrique de la relation de réduction $\twoheadrightarrow_\beta$. + + +Deux $\lambda$-termes $T$ et $S$ (normalisables ou non) sont dit $\beta$-équivalents, et on note $T=_\beta S$, s'il existe un terme $R$ tel que $T\twoheadrightarrow_\beta R$ et $S\twoheadrightarrow_\beta R$. + + +Ainsi deux termes normalisables ayant la même forme normale sont $\beta$-équivalents. + + +**Théorème du point fixe** Pour tout $\lambda$-terme $T$, il existe un $\lambda$-terme $X$ tel que + +$$ (T\ X) =_\beta X.$$ + + +La démonstration de ce théorème se fait en considérant les $\lambda$-termes +$$ W = \lambda x.(T\ (x\ x)),$$ +et +$$ X = (W\ W).$$ +Il est clair que +$$ X \rightarrow_\beta (T\ (W\ W)) = (T\ X),$$ +et donc que +$$ X =_\beta (T\ X).$$ + +```python +W = Lambda_terme('!x.(T (x x))') +X = W.applique(W) +print(X) +print(X.reduit()[0]) +``` + +**Remarque** À noter que dans la démonstration du théorème du point fixe, pour établir que $(T\ X) =_\beta X$, on a montré que $X$ se réduit en $(T\ X)$ et non le contraire. + + +## Pouvoir d'expression du $\lambda$-calcul + + +Dans cette section, nous allons découvrir que le $\lambda$-calcul permet + +* de représenter les nombres entiers et de définir les opérations arithmétiques de base +* de définir des couples, listes, structures à la base de nombreuses autres structures de données +* de définir des booléens, et de simuler des expressions conditionnelles +* d'itérer des fonctions, +* d'exprimer n'importe quelle fonction récursive. + +Bref, d'un certain point de vue le $\lambda$-calcul est un langage de programmation ... certes assez peu efficace comme on pourra s'en rendre compte. + + +### Booléens, opérateurs logiques et conditionnelles + + +#### Les deux booléens VRAI et FAUX + + +On peut représenter les deux booléens VRAI et FAUX par les $\lambda$-termes +$$ VRAI = \lambda x.\lambda y.x,$$ +et +$$ FAUX = \lambda x.\lambda y.y.$$ + +```python +VRAI = Lambda_terme('!x.!y.x') +FAUX = Lambda_terme('!x.!y.y') +``` + +#### Le terme IF + + +Ce choix peut être justifiée a posteriori en considérant que l'expression conditionnelle fréquente en programmation + + IF c THEN a ELSE s + +peut être facilement simulée à l'aide d'abstractions des variables $c$, $a$ et $s$ par le $\lambda$-terme + +$$ \mathtt{IF} = \lambda c.\lambda a.\lambda s.((c\ a)\ s).$$ + +```python +IF = Lambda_terme('!c.!a.!s.((c a) s)') ``` ```python -OMEGA.est_forme_normale() +IF.applique(VRAI).applique(Lambda_terme('ALORS')).applique(Lambda_terme('SINON')).forme_normale(verbose=True) ``` ```python -OMEGA.variables_libres() +IF.applique(FAUX).applique(Lambda_terme('ALORS')).applique(Lambda_terme('SINON')).forme_normale(verbose=True) +``` + +**Remarque** +Le $\lambda$-terme $\mathtt{IF}$ permet d'exprimer des $\lambda$-termes ayant une forme normale bien que l'une ou l'autre de ses sous-termes n'en aient pas, comme par exemple + +1. $(((\mathtt{IF}\, \mathtt{VRAI})\, \mathtt{ALORS})\, \mathtt{OMEGA})$ qui se réduit en $\mathtt{ALORS}$ (et a donc une forme normale si $\mathtt{ALORS}$ en a une) bien que $\mathtt{OMEGA}$ n'en ait pas ; + +2. ou $(((\mathtt{IF}\, \mathtt{FAUX})\, \mathtt{OMEGA})\, \mathtt{SINON})$ qui se réduit en $\mathtt{SINON}$. + +Cette propriété est bien utile en programmation, et servira pour la programmation de fonctions récursives. + +```python +IF.applique(VRAI).applique(Lambda_terme('ALORS')).applique(OMEGA).forme_normale(verbose=True) ``` ```python +IF.applique(FAUX).applique(OMEGA).applique(Lambda_terme('SINON')).forme_normale(verbose=True) +``` +Le fait que le terme `IF` se comporte bien comme on l'attend résulte du choix de la stratégie de réduction des redex les plus à gauche en priorité. Si la stratégie choisie avait été de réduire le redex le plus à droite, la réduction de chacun des deux termes précédents aurait conduit à la tentative de réduire le terme $\Omega$ qui échoue puisque celui-ci n'est pas normalisable comme on l'a vu. + + +Il est facile de définir les opérateurs logiques de base : conjonction, disjonction et négation. + + +#### Opérateur ET + + +L'opérateur logique de conjonction peut être défini par + +$$ ET = \lambda a.\lambda b.(((IF\ a)\ b)\ FAUX).$$ + +```python +ET = IF.applique(Lambda_terme('a')).applique(Lambda_terme('b')).applique(FAUX).abstrait('b').abstrait('a') ``` ```python -res, est_red = OMEGA.reduit() -print(res) -print(est_red) +print(ET) +``` + +Et on peut verifier que ce terme satisfait bien à la table de vérité de l'opérateur de conjonction. + +```python +ET.applique(VRAI).applique(VRAI).forme_normale(verbose=True) == VRAI ``` ```python -res, est_red = Lambda_terme('(!x.(eric x) vero)').reduit() -print(res, est_red) +ET.applique(VRAI).applique(FAUX).forme_normale(verbose=True) == FAUX ``` ```python -OMEGA.forme_normale(nb_etapes_max=10, verbose=True) +ET.applique(FAUX).applique(VRAI).forme_normale(verbose=True) == FAUX ``` -## Entiers, successeurs, addition, multiplication et exponentiation +```python +ET.applique(FAUX).applique(FAUX).forme_normale(verbose=True) == FAUX +``` + +#### Opérateur OU + + +L'opérateur logique de disjonction peut être défini par + +$$ OU = \lambda a.\lambda b.(((IF\ a)\ VRAI)\ b).$$ + +```python +OU = IF.applique(Lambda_terme('a')).applique(VRAI).applique(Lambda_terme('b')).abstrait('b').abstrait('a') +``` + +```python +print(OU) +``` + +Et on peut verifier que ce terme satisfait bien à la table de vérité de l'opérateur de disjonction. + +```python +OU.applique(VRAI).applique(VRAI).forme_normale(verbose=True) == VRAI +``` + +```python +OU.applique(VRAI).applique(FAUX).forme_normale(verbose=True) == VRAI +``` + +```python +OU.applique(FAUX).applique(VRAI).forme_normale(verbose=True) == VRAI +``` + +```python +OU.applique(FAUX).applique(FAUX).forme_normale(verbose=True) == FAUX +``` + +#### Opérateur NON + + +L'opérateur de négation peut être défini par le terme + +$$ NON = \lambda a.(((IF\ a)\ FAUX)\ VRAI).$$ + +```python +NON = IF.applique(Lambda_terme('a')).applique(FAUX).applique(VRAI).abstrait('a') +``` + +```python +print(NON) +``` + +```python +NON.applique(VRAI).forme_normale(verbose=True) == FAUX +``` + +```python +NON.applique(FAUX).forme_normale(verbose=True) == VRAI +``` + +### Entiers, successeurs, addition, multiplication et exponentiation + + +#### Numéraux de Church + + +Il existe plusieurs façons de représenter les entiers naturels par un $\lambda$-terme. La représentation donnée ici est connue sous le nom de *numéraux de Church*. ```python ZERO = Lambda_terme('!f.!x.x') @@ -153,6 +671,8 @@ UN = Lambda_terme('!f.!x.(f x)') DEUX = Lambda_terme('!f.!x.(f (f x))') ``` +#### Successeur + ```python SUC = Lambda_terme('!n.!f.!x.(f ((n f) x))') ``` @@ -165,6 +685,8 @@ TROIS = SUC.applique(DEUX).forme_normale(verbose=True) TROIS.applique(SUC).applique(ZERO).forme_normale(verbose=True) ``` +#### Addition + ```python ADD = Lambda_terme('!n.!m.!f.!x.((n f) ((m f) x))') ``` @@ -181,6 +703,8 @@ CINQ = ADD.applique(TROIS).applique(DEUX).forme_normale(verbose=True) SEPT = ADD.applique(QUATRE).applique(TROIS).forme_normale(verbose=True) ``` +#### Multiplication + ```python MUL = Lambda_terme('!n.!m.!f.(n (m f))') ``` @@ -189,6 +713,8 @@ MUL = Lambda_terme('!n.!m.!f.(n (m f))') SIX = MUL.applique(DEUX).applique(TROIS).forme_normale(verbose=True) ``` +#### Exponentiation + ```python EXP = Lambda_terme('!n.!m.(m n)') ``` @@ -197,98 +723,22 @@ EXP = Lambda_terme('!n.!m.(m n)') HUIT = EXP.applique(DEUX).applique(TROIS).forme_normale(verbose=True) ``` +```python +HUIT == MUL.applique(DEUX).applique(QUATRE).forme_normale() +``` + ```python NEUF = EXP.applique(TROIS).applique(DEUX).forme_normale(verbose=True) ``` -## Booléens, opérateurs logiques et conditionnelles - ```python -VRAI = Lambda_terme('!x.!y.x') +NEUF == ADD.applique(SEPT).applique(DEUX).forme_normale() ``` -```python -FAUX = Lambda_terme('!x.!y.y') -``` +#### Nullité ```python -COND = Lambda_terme('!c.!a.!s.((c a) s)') -``` - -```python -COND.applique(VRAI).applique(UN).applique(DEUX).forme_normale(verbose=True) -``` - -```python -COND.applique(FAUX).applique(UN).applique(DEUX).forme_normale(verbose=True) -``` - -```python -ET = COND.applique(Lambda_terme('a')).applique(Lambda_terme('b')).applique(FAUX).abstrait('b').abstrait('a') -``` - -```python -print(ET) -``` - -```python -ET.applique(VRAI).applique(VRAI).forme_normale(verbose=True) -``` - -```python -ET.applique(VRAI).applique(FAUX).forme_normale(verbose=True) -``` - -```python -ET.applique(FAUX).applique(VRAI).forme_normale(verbose=True) -``` - -```python -ET.applique(FAUX).applique(FAUX).forme_normale(verbose=True) -``` - -```python -OU = COND.applique(Lambda_terme('a')).applique(VRAI).applique(Lambda_terme('b')).abstrait('b').abstrait('a') -``` - -```python -print(OU) -``` - -```python -OU.applique(VRAI).applique(VRAI).forme_normale(verbose=True) -``` - -```python -OU.applique(VRAI).applique(FAUX).forme_normale(verbose=True) -``` - -```python -OU.applique(FAUX).applique(VRAI).forme_normale(verbose=True) -``` - -```python -OU.applique(FAUX).applique(FAUX).forme_normale(verbose=True) -``` - -```python -NON = COND.applique(Lambda_terme('a')).applique(FAUX).applique(VRAI).abstrait('a') -``` - -```python -print(NON) -``` - -```python -NON.applique(VRAI).forme_normale(verbose=True) -``` - -```python -NON.applique(FAUX).forme_normale(verbose=True) -``` - -```python -NUL = Lambda_terme('!n.((n !x.{:s}) {:s})'.format(str(FAUX), str(VRAI))) +NUL = Lambda_terme('!n.((n !x.FAUX) VRAI)').subs('FAUX', FAUX).subs('VRAI', VRAI) ``` ```python @@ -296,17 +746,17 @@ print(NUL) ``` ```python -NUL.applique(ZERO).forme_normale(verbose=True) +NUL.applique(ZERO).forme_normale(verbose=True) == VRAI ``` ```python -NUL.applique(TROIS).forme_normale(verbose=True) +NUL.applique(TROIS).forme_normale(verbose=True) == FAUX ``` -## Couples +### Couples et listes ```python -CONS = Lambda_terme('!x.!y.!s.((({:s} s) x) y)'.format(str(COND))) +CONS = Lambda_terme('!x.!y.!s.(((IF s) x) y)').subs('IF', IF) ``` ```python @@ -318,7 +768,7 @@ UN_DEUX = CONS.applique(UN).applique(DEUX).forme_normale(verbose=True) ``` ```python -CAR = Lambda_terme('!c.(c {:s})'.format(str(VRAI))) +CAR = Lambda_terme('!c.(c VRAI)').subs('VRAI', VRAI) ``` ```python @@ -326,11 +776,11 @@ print(CAR) ``` ```python -CAR.applique(UN_DEUX).forme_normale(verbose=True) +CAR.applique(UN_DEUX).forme_normale(verbose=True) == UN ``` ```python -CDR = Lambda_terme('!c.(c {:s})'.format(str(FAUX))) +CDR = Lambda_terme('!c.(c FAUX)').subs('FAUX', FAUX) ``` ```python @@ -338,7 +788,16 @@ print(CDR) ``` ```python -CDR.applique(UN_DEUX).forme_normale(verbose=True) +CDR.applique(UN_DEUX).forme_normale(verbose=True) == DEUX +``` + +```python +M = Lambda_terme('M') +CPLE_M = CONS.applique(CAR.applique(M)).applique(CDR.applique(M)) +``` + +```python +CDR.applique(CPLE_M).forme_normale(verbose=True) ``` ```python @@ -349,11 +808,11 @@ print(PRED) ``` ```python -PRED.applique(DEUX).forme_normale(verbose=True) +PRED.applique(DEUX).forme_normale(verbose=True) == UN ``` ```python -PRED.applique(ZERO).forme_normale(verbose=True) +PRED.applique(ZERO).forme_normale(verbose=True) == ZERO ``` ```python @@ -364,7 +823,7 @@ print(SUB) ``` ```python -SUB.applique(TROIS).applique(UN).forme_normale(verbose=True) +SUB.applique(TROIS).applique(UN).forme_normale(verbose=True) == DEUX ``` ```python @@ -374,15 +833,15 @@ INF = M_INF.subs('NUL', NUL).subs('SUB', SUB) ``` ```python -print(INF.applique(TROIS).applique(UN).forme_normale()) +INF.applique(TROIS).applique(UN).forme_normale() == FAUX ``` ```python -print(INF.applique(UN).applique(TROIS).forme_normale()) +INF.applique(UN).applique(TROIS).forme_normale() == VRAI ``` ```python -print(INF.applique(UN).applique(UN).forme_normale()) +INF.applique(UN).applique(UN).forme_normale() == VRAI ``` ```python @@ -393,14 +852,14 @@ print(EGAL) ``` ```python -print(EGAL.applique(UN).applique(UN).forme_normale()) +EGAL.applique(UN).applique(UN).forme_normale() == VRAI ``` ```python -print(EGAL.applique(UN).applique(DEUX).forme_normale()) +EGAL.applique(UN).applique(DEUX).forme_normale() == FAUX ``` -## Itération +### Itération ```python M_FACTv1 = Lambda_terme('!n.(CDR ((n !c.((CONS (SUC (CAR c))) ((MUL (SUC (CAR c))) (CDR c)))) ((CONS ZERO) UN)))') @@ -410,11 +869,11 @@ print(FACTv1) ``` ```python -print(FACTv1.applique(ZERO).forme_normale()) +FACTv1.applique(ZERO).forme_normale() == UN ``` ```python -print(FACTv1.applique(UN).forme_normale()) +FACTv1.applique(UN).forme_normale() == UN ``` ```python @@ -422,23 +881,23 @@ print(FACTv1.applique(DEUX).forme_normale()) ``` ```python -print(FACTv1.applique(DEUX).forme_normale(nb_etapes_max=200)) +FACTv1.applique(DEUX).forme_normale(nb_etapes_max=118) == DEUX ``` ```python -print(FACTv1.applique(TROIS).forme_normale(nb_etapes_max=500)) +FACTv1.applique(TROIS).forme_normale(nb_etapes_max=403) == SIX ``` ```python -print(FACTv1.applique(QUATRE).forme_normale(nb_etapes_max=1700)) +FACTv1.applique(QUATRE).forme_normale(nb_etapes_max=1672) == MUL.applique(QUATRE).applique(SIX).forme_normale() ``` -## Et la récursivité ? +### Et la récursivité ? ```python -M_PHI_FACT = Lambda_terme('!f.!n.(((COND ((EGAL n) ZERO)) UN) ((MUL n) (f (PRED n))))') +M_PHI_FACT = Lambda_terme('!f.!n.(((IF ((EGAL n) ZERO)) UN) ((MUL n) (f (PRED n))))') print(M_PHI_FACT) -PHI_FACT = M_PHI_FACT.subs('COND', COND).subs('EGAL', EGAL).subs('ZERO', ZERO).subs('UN', UN).subs('MUL', MUL).subs('PRED', PRED) +PHI_FACT = M_PHI_FACT.subs('IF', IF).subs('EGAL', EGAL).subs('ZERO', ZERO).subs('UN', UN).subs('MUL', MUL).subs('PRED', PRED) print(PHI_FACT) ``` @@ -452,11 +911,11 @@ FACT0 = PHI_FACT.applique(BOTTOM) ``` ```python -print(FACT0.applique(ZERO).forme_normale()) +FACT0.applique(ZERO).forme_normale() == UN ``` ```python -FACT0.applique(UN).forme_normale(verbose=True, nb_etapes_max=40) +FACT0.applique(UN).forme_normale(verbose=True, nb_etapes_max=20) ``` ```python @@ -464,11 +923,11 @@ FACT1 = PHI_FACT.applique(FACT0) ``` ```python -print(FACT1.applique(ZERO).forme_normale()) +FACT1.applique(ZERO).forme_normale() == UN ``` ```python -print(FACT1.applique(UN).forme_normale(nb_etapes_max=200)) +FACT1.applique(UN).forme_normale(nb_etapes_max=110) == UN ``` ```python @@ -481,23 +940,23 @@ FACTv2 = FIX_CURRY.applique(PHI_FACT) ``` ```python -print(FACTv2.applique(ZERO).forme_normale()) +FACTv2.applique(ZERO).forme_normale() == UN ``` ```python -print(FACTv2.applique(UN).forme_normale(nb_etapes_max=200)) +FACTv2.applique(UN).forme_normale(nb_etapes_max=113) == UN ``` ```python -print(FACTv2.applique(DEUX).forme_normale(nb_etapes_max=700)) +FACTv2.applique(DEUX).forme_normale(nb_etapes_max=516) == DEUX ``` ```python -print(FACTv2.applique(TROIS).forme_normale(nb_etapes_max=4000)) +FACTv2.applique(TROIS).forme_normale(nb_etapes_max=2882) == SIX ``` ```python -print(FACTv2.applique(QUATRE).forme_normale(nb_etapes_max=25000)) +FACTv2.applique(QUATRE).forme_normale(nb_etapes_max=18668) == MUL.applique(QUATRE).applique(SIX).forme_normale() ``` ```python @@ -509,15 +968,101 @@ PF.forme_normale(verbose=True, nb_etapes_max=10) ``` ```python - +FIX_TURING = Lambda_terme('(!x.!y.(y ((x x) y)) !x.!y.(y ((x x) y)))') +print(FIX_TURING) ``` +```python +FACTv3 = FIX_TURING.applique(PHI_FACT) +``` + +```python +FACTv3.applique(ZERO).forme_normale() == UN +``` + +```python +FACTv3.applique(UN).forme_normale(nb_etapes_max=114) == UN +``` + +```python +FACTv3.applique(DEUX).forme_normale(nb_etapes_max=520) == DEUX +``` + +```python +FACTv3.applique(TROIS).forme_normale(nb_etapes_max=2897) == SIX +``` + +```python +FACTv3.applique(QUATRE).forme_normale(nb_etapes_max=18732) == MUL.applique(QUATRE).applique(SIX).forme_normale() +``` # $\lambda$-calcul avec les lambda-expressions de Python - + +Dans cette partie, les lambda-expressions de Python vont être utilisées pour représenter les abstractions, et les applications seront des appels de fonction. + +Les seuls mots du langage Python que nous utiliserons seront `lambda` et `if`. Les autres mots (`def`, `while`, `for` ...) seront bannis. Nous utiliserons aussi les entiers prédéfinis dans le langage avec certaines opérations arithmétiques. + + +## Les booléens + +```python +vrai = lambda x: lambda y: x +faux = lambda x: lambda y: y +``` + +```python +def booleen_en_bool(b): + return b(True)(False) +``` + +```python +tuple(booleen_en_bool(b) for b in (vrai, faux)) +``` + +```python +If = lambda c: lambda a: lambda s: c(a)(s) +``` + +```python +If(vrai)(1)(2) +``` + +```python +If(faux)(1)(2) +``` + +```python +#If(vrai)(1)(1/0) +``` + +```python +non = lambda b: If(b)(faux)(vrai) +``` + +```python +tuple(booleen_en_bool(non(b)) for b in (vrai, faux)) +``` + +```python +et = lambda b1: lambda b2: If(b1)(b2)(faux) +``` + +```python +tuple(booleen_en_bool(et(b1)(b2)) for b1 in (vrai, faux) + for b2 in (vrai, faux)) +``` + +```python +ou = lambda b1: lambda b2: If(b1)(vrai)(b2) +``` + +```python +tuple(booleen_en_bool(ou(b1)(b2)) for b1 in (vrai, faux) + for b2 in (vrai, faux)) +``` + ## Les entiers de Church - ```python zero = lambda f: lambda x: x @@ -591,63 +1136,9 @@ huit = exp(deux)(trois) entier_church_en_int(huit) ``` - -## Les booléens - - ```python -vrai = lambda x: lambda y: x -faux = lambda x: lambda y: y -``` - -```python -def booleen_en_bool(b): - return b(True)(False) - -``` - -```python -tuple(booleen_en_bool(b) for b in (vrai, faux)) -``` - -```python -cond = lambda c: lambda a: lambda s: c(a)(s) -``` - -```python -cond(vrai)(1)(2) -``` - -```python -cond(faux)(1)(2) -``` - -```python -cond(vrai)(1)(1/0) -``` - -```python -non = lambda b: cond(b)(faux)(vrai) -``` - -```python -tuple(booleen_en_bool(non(b)) for b in (vrai, faux)) -``` - -```python -et = lambda b1: lambda b2: cond(b1)(b2)(faux) -``` - -```python -tuple(booleen_en_bool(et(b1)(b2)) for b1 in (vrai, faux) for b2 in (vrai, faux)) -``` - -```python -ou = lambda b1: lambda b2: cond(b1)(vrai)(b2) -``` - -```python -tuple(booleen_en_bool(ou(b1)(b2)) for b1 in (vrai, faux) for b2 in (vrai, faux)) +neuf = exp(trois)(deux) +entier_church_en_int(neuf) ``` ```python @@ -655,7 +1146,8 @@ est_nul = lambda n : n(lambda x: faux)(vrai) ``` ```python -tuple(booleen_en_bool(est_nul(n)) for n in (zero, un, deux, trois, cinq, six, huit)) +tuple(booleen_en_bool(est_nul(n)) + for n in (zero, un, deux, trois, cinq, six, huit)) ``` ## Les couples @@ -698,7 +1190,8 @@ est_inf_ou_egal = lambda n: lambda m: est_nul(sub(m)(n)) ``` ```python -tuple(booleen_en_bool(est_inf_ou_egal(cinq)(int_en_entier_church(n))) for n in range(10)) +tuple(booleen_en_bool(est_inf_ou_egal(cinq)(int_en_entier_church(n))) + for n in range(10)) ``` ```python @@ -706,12 +1199,11 @@ est_egal = lambda n: lambda m: et(est_inf_ou_egal(n)(m))(est_inf_ou_egal(m)(n)) ``` ```python -tuple(booleen_en_bool(est_egal(cinq)(int_en_entier_church(n))) for n in range(10)) +tuple(booleen_en_bool(est_egal(cinq)(int_en_entier_church(n))) + for n in range(10)) ``` - ## Itération - ```python fact = lambda n: cdr(n(lambda c: (cons(suc(car(c)))(mul(suc(car(c)))(cdr(c)))))(cons(zero)(un))) @@ -771,9 +1263,7 @@ fact3 = fix_curry(phi_fact) tuple(fact3(n) for n in range(7)) ``` - ## Un programme obscur - ```python print((lambda x: (lambda y: lambda z: x(y(y))(z))(lambda y: lambda z: x(y(y))(z))) @@ -813,7 +1303,3 @@ fix_curry(phiExpoMod)(2)(10)(1000) ```python ``` - -```python - -``` diff --git a/lambda_calcul.py b/lambda_calcul.py index e0f1c49..2a90c1b 100644 --- a/lambda_calcul.py +++ b/lambda_calcul.py @@ -53,17 +53,6 @@ class Lambda_parser(Parser): ''' tokens = Lambda_lexer.tokens - # @_('VAR') - # def term(self, p): - # return Lambda_terme(0, p[0]) - - # @_('LAMBDA VAR POINT term') - # def term(self, p): - # return Lambda_terme(1, p[1], p.term) - - # @_('LPAR term term RPAR') - # def term(self, p): - # return Lambda_terme(2, p.term0, p.term1) @_('VAR') def term(self, p): @@ -77,7 +66,12 @@ class Lambda_parser(Parser): def term(self, p): return (2, p.term0, p.term1) - + def error(self, p): + if p: + raise LambdaSyntaxError('{} inattendu en position {}'.format(p.type, p.index)) + else: + raise LambdaSyntaxError('description inachevée') + parser = Lambda_parser() ################################################## @@ -126,6 +120,19 @@ class Lambda_terme(): >>> print(T5) (λz.(λx.(y x) z) t) + Sous-termes d'un terme + >>> for t in T5.sous_termes(): + ... print(t) + (λz.(λx.(y x) z) t) + λz.(λx.(y x) z) + (λx.(y x) z) + λx.(y x) + (y x) + y + x + z + t + Autres prédicats >>> [(t.est_redex(), t.est_forme_normale()) for t in (T1, T2, T3, T4, T5)] [(False, True), (False, True), (True, False), (False, False), (True, False)] @@ -215,7 +222,20 @@ class Lambda_terme(): else: return '({:s} {:s})'.format(str(self._content[1]), str(self._content[2])) - + def __eq__(self, terme): + if not isinstance(terme, Lambda_terme): + raise Lambda_termeError('Comparaison inpossible impossible') + if self.est_variable(): + return terme.est_variable() and self._content[1] == terme._content[1] + elif self.est_application(): + return (terme.est_application() and + self._content[1] == terme._content[1] and + self._content[2] == terme._content[2]) + else: + return (terme.est_abstraction() and + self._content[2] == terme._content[2].subs(terme._content[1], + Lambda_terme(self._content[1]))) + def applique(self, terme): if not isinstance(terme, Lambda_terme): raise Lambda_termeError('Application impossible') @@ -226,6 +246,31 @@ class Lambda_terme(): raise Lambda_termeError("Variable d'Abstraction invalide") return Lambda_terme(1, var, self) + def variables(self): + if self.est_variable(): + return ({self._content[1]}, set()) + elif self.est_application(): + var_libres1, var_liees1 = self._content[1].variables() + var_libres2, var_liees2 = self._content[2].variables() + return (var_libres1.union(var_libres2), + var_liees1.union(var_liees2)) + else: + var_libres, var_liees = self._content[2].variables() + if self._content[1] in var_libres: + var_libres.discard(self._content[1]) + var_liees.add(self._content[1]) + return (var_libres, var_liees) + + def sous_termes(self): + if self.est_variable(): + ss_termes = [] + elif self.est_abstraction(): + ss_termes = self._content[2].sous_termes() + else: + ss_termes = self._content[1].sous_termes() + ss_termes.extend(self._content[2].sous_termes()) + return [self] + ss_termes + def est_redex(self): return self.est_application() and self._content[1].est_abstraction() @@ -236,18 +281,7 @@ class Lambda_terme(): return self._content[2].est_forme_normale() else: return (not self._content[1].est_abstraction() and - all(self._content[k].est_forme_normale() for k in (1, 2))) - - def variables_libres(self): - if self.est_variable(): - return {self._content[1]} - elif self.est_application(): - var_libres = self._content[2].variables_libres() - return var_libres.union(self._content[1].variables_libres()) - else: - var_libres = self._content[2].variables_libres() - var_libres.discard(self._content[1]) - return var_libres + all(self._content[k].est_forme_normale() for k in (1, 2))) def subs(self, var, terme): if not isinstance(var, str): @@ -266,13 +300,13 @@ class Lambda_terme(): else: var_abstr = self._content[1] corps_abstr = self._content[2] - var_libres_corps = corps_abstr.variables_libres() + var_libres_corps, _ = corps_abstr.variables() if var == var_abstr or var not in var_libres_corps: return self - elif var_abstr not in terme.variables_libres(): + elif var_abstr not in terme.variables()[0]: return Lambda_terme(1, var_abstr, corps_abstr.subs(var, terme)) else: - nouvelle_var = _autre_variable(var_abstr, corps_abstr.variables_libres()) + nouvelle_var = _autre_variable(var_abstr, var_libres_corps) return Lambda_terme(1, nouvelle_var, corps_abstr.subs(var_abstr, diff --git a/tikz_diamant.png b/tikz_diamant.png new file mode 100644 index 0000000000000000000000000000000000000000..9c50565d7b24f07d42c3b324c752a1e3eca689db GIT binary patch literal 2714 zcmXYzd05g}7svU5xPV~hid$w{SZR(Gl509TZe=blW;&r}YMTBMQgi*GVwqcM(9n|~QtJ3C7qVV+%$Z~Y3T#mm4OcYMUYhqk&vVYX_dMs^?;rPhKKJJN`ncmTdKd%( zf%Eim^_S-cx!+S(lt4Rg_x^C;w{3WRd67VK z3#0|apQI&)CPW~Tl9DW=<6@}cp8c@>3YuRvp0msz;+VTl20vEebEO^bF2A}WW8Q+ZWvm8<&0ZL)*UAHEqynJSB zA{85-NR3@n?js+D1NoZI2Vloo>Gf*Y1I8u0RhEgM8MsSg+qR1*qWVT0nstCmqS1-c>hD={9Ft*{p*==t$lG#i!L^mFx4GiKBeF1dhd%o0C6 ztJ%1a*8m!#x8r6F>)#_Y8ph9fIDaq;b_cve=CtdppgYI3ggh>x`&>12r>67#6p=Dn zjZDk`_G1NH)RA|fj{F7Q(iZw?g5X7?`jLw#g%xb@#T*M$2V218cc{y>-zl3X#^`gYC~QCOmEAs5qO+M!Gy{;2v|@^7#>qB5kVE`xUiyX-1IfMww> zIvfC_!A+R{b+3rz1Ef}iGI^{3ORJ!rG!(`r8be0e zAX?JYDyxI&JYV>(FMD!Cm6@gQ$3E%@tGp^Gb7;@eok}%!s{vR2;PeV`H2}u>vR7_H zsm`KL#mM^Xr-M7td>o@J6T{AJ0LH%><^1IaaESadKbXij!P-(7$I>i?8fj{#-m@SF z5sCaVXJatQcmfk>otHf`kr=YkOe9oG|ANXyZH$?6xMn7wXrIjzTq0HWy`*`vi^?+Nzo8t(!YVsECnaz~b;y*<2i{Xy} z^bkUUyPk~!S3Sg0E2>zKga}j&E=H%}{$x&0_)8R)Zm6`fn60QtU-D zeFwq`y#yTjo7+DK>zhy5(eU|ejsRIf49xVbwf487IKT+~3$mN@mUv)ppwEuLR^a-K zmrqiJwiN6V^}8ocW`+6S&AmC1Aw0rWDQ(SQJPd!=*pjdM+Uu2-PD2ZFIiYa+ZK1`+ zws0B!T0n(aZz-%cdCn=$P9mC^BU85AJU1U}CNcg~E&mKo(iGR0skG#LUZ41E{Zk9A zM5GiM@c5rLLvF$J=2X4qy`QT}{|L;pQ2AA%Ei5!~u{zU=By&U=^uEl0(dFHAAcE;O z)V=lIHC##j-!F1g3N9MWdwVS%J2b29y=nI9Yu)C5Mz;^>Dyl9zD69W#1CN$7+WWZ9 z)`%g%g3E$Zp=-^CR~4exH!5F;x)2EnUdJrC@iFT=e2Nk+{(4YY4nK1}Z|=`Ch#jMq zentrW#FX+)z0xL9_|Eum$-Hs8I?ce!vZRIp+X_Kix|0M0CLU0;$CX9A_s)ypJ`|LQ zb=^*VMM?6wi|X8x#m*poX?_SR&(JJ$W8$ZtC^7VY9{L`7p6r9}N8N{PN(|c-;*4L9 z?tt=}){2nY6eZN6(n}?uejleGtxU-&vAuQUSf=;*WC{ShT)*#|T zJBZBaz&}lnUI!i&hm0~#Gd zVj2Ucl0xlJtUgwCYiMd`VtC8Em+)serfW}gx+VxDCVUidQ>`9&pIA0=D9dqp_gH0F zXJMw`ime|Y5%I8_17yNi~xkT2C3Jm?Ykn0KBNrd{o&J0PnB zH7cN%T2P}JYN-MPDxi^CFrXS5*@tjYc&cQnAYL%2XzU)W0p{dc_r-O!Qe#=ipKHnb>p^ESlhjo)Tk&Y!#E!Ls=&LZtg z$ir-gb^?rPSNH^s%8Xq5HRJOBvxNz95J?rFw^quQ_L>Rq^i$_0i1o#B=5Pl&O(cG%<%ppW>cqtxS6b%~ZxOBh@9 z?Z$4PhdvE+RN`GQ{o(M#i3D^ql3aDFj6^YS#Bp^6iJsco`Fqr_UtHbvM(vyGvavfW zbt#6DDE|8O-qaoKvF=yu!|%>F9q&lJKa&Y8J1<14x8(#PADDEQ^|}c6Q!t>aB*lhT zbRi^e?Ae#vhb{$D4vY%a?0~vyO#&ii9cbHzJ*7yZMv7d-Ju5SPtOs={{Mn}II(R!J z>fvB{i!Q||NB7J6SVaNKo-qiwcB9rWmlfxhYt(8arR42D#drU$$rl~-KE5{Sv{H3 z^FJo4tE;&6NfBP3gT)$&%xo@wZ)Pt(M023-HhdcXncJkqL6!IaI;=lD_}(=^q%OR8 zkM}FGe!)un^5fR9hG+XP2uOG`f;kr9YI4?AL;f5YWf?9mQpJ=6Pmd@L>BPrU?&G8# ziR6#|;`FTYxjn?oDfY-uk zshxXTgDx2UNGa~#fAe+cz+*kT_hB~L;@pX)RW4Si4%W7Hx$3y=WK#R|3afmzR{oDf Nc)Izx*1J%${tGAx`y2oO literal 0 HcmV?d00001 diff --git a/tikz_diamant.tex b/tikz_diamant.tex new file mode 100644 index 0000000..13cfc80 --- /dev/null +++ b/tikz_diamant.tex @@ -0,0 +1,21 @@ +\documentclass{standalone} + +\usepackage{tikz} +\usetikzlibrary{automata,positioning} + +\begin{document} +\begin{tikzpicture}[shorten >=1pt,node distance=3cm,on grid,>=stealth, + every state/.style={draw=none}] + + \node[state] (T) {$T$}; + \node[state] (R1) [below left=of T] {$R_1$}; + \node[state] (R2) [below right=of T] {$R_2$}; + \node[state] (R) [below right=of R1] {$R$}; + + \path [every node/.style={font=\footnotesize, below}] + (T) edge[->>] node[near end] {$\beta$} (R1) + edge[->>] node[near end] {$\beta$} (R2) + (R1) edge[->>] node[near end] {$\beta$} (R) + (R2) edge[->>] node[near end] {$\beta$} (R); +\end{tikzpicture} +\end{document}