@stevenvo780/st-lang 4.11.0 → 4.13.0

package/dist/type-theory/lambda-cube/types.js

@@ -0,0 +1,192 @@
+"use strict";
+// ============================================================
+// Lambda Cube (Barendregt) — Términos como Pure Type System (PTS)
+// ============================================================
+//
+// El cubo λ de Barendregt presenta 8 sistemas de tipos puros como
+// activaciones de 3 ejes ortogonales sobre el λ-cálculo simplemente
+// tipado:
+//
+//        polymorphism             ──   ∀ sobre términos     (λ2, λω, λC ...)
+//        type operators           ──   funciones a nivel tipo (λω, λC ...)
+//        dependent types          ──   tipos que dependen de términos (λP, λC ...)
+//
+// Cada combinación es un PTS con dos sorts:
+//
+//        * (Set / Prop)     y     ◻ (Type / Kind)
+//
+// y un conjunto de reglas de formación (s1, s2) para Π.
+//
+// La sintaxis unificada usada en este módulo:
+//
+//        t ::= x
+//            | s                 sort (* | ◻)
+//            | Π x:t. t          producto dependiente
+//            | λ x:t. t          abstracción
+//            | t t               aplicación
+//
+// Las reglas de formación de cada vértice del cubo deciden qué
+// abstracciones son legales. Por ejemplo:
+//
+//   λ→         (*, *)                              STLC
+//   λ2         (*, *) (◻, *)                       System F
+//   λω̄         (*, *) (◻, ◻)                       λω débil
+//   λω         (*, *) (◻, *) (◻, ◻)                System Fω
+//   λP         (*, *) (*, ◻)                       LF / λΠ
+//   λP2        (*, *) (◻, *) (*, ◻)
+//   λPω̄        (*, *) (*, ◻) (◻, ◻)
+//   λC         (*, *) (◻, *) (*, ◻) (◻, ◻)         Calculus of Constructions
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.cArrow = exports.cApp = exports.cLam = exports.cPi = exports.cBox = exports.cStar = exports.cSort = exports.cVar = void 0;
+exports.occursFree = occursFree;
+exports.freeVars = freeVars;
+exports.termToString = termToString;
+exports.alphaEq = alphaEq;
+exports.emptyContext = emptyContext;
+exports.extendContext = extendContext;
+// ---------- Constructores convenientes ----------
+const cVar = (name) => ({ kind: 'var', name });
+exports.cVar = cVar;
+const cSort = (sort) => ({ kind: 'sort', sort });
+exports.cSort = cSort;
+exports.cStar = { kind: 'sort', sort: '*' };
+exports.cBox = { kind: 'sort', sort: '◻' };
+const cPi = (bind, domain, codomain) => ({
+    kind: 'pi',
+    bind,
+    domain,
+    codomain,
+});
+exports.cPi = cPi;
+const cLam = (bind, domain, body) => ({
+    kind: 'lam',
+    bind,
+    domain,
+    body,
+});
+exports.cLam = cLam;
+const cApp = (fn, arg) => ({ kind: 'app', fn, arg });
+exports.cApp = cApp;
+/** Flecha no-dependiente: Π (_ : A). B, cuando B no menciona el binder. */
+const cArrow = (from, to) => (0, exports.cPi)('_', from, to);
+exports.cArrow = cArrow;
+// ---------- Variables libres ----------
+function occursFree(name, term) {
+    switch (term.kind) {
+        case 'var':
+            return term.name === name;
+        case 'sort':
+            return false;
+        case 'pi':
+        case 'lam': {
+            if (occursFree(name, term.domain))
+                return true;
+            if (term.bind === name)
+                return false;
+            const body = term.kind === 'pi' ? term.codomain : term.body;
+            return occursFree(name, body);
+        }
+        case 'app':
+            return occursFree(name, term.fn) || occursFree(name, term.arg);
+    }
+}
+function freeVars(term, acc = new Set()) {
+    switch (term.kind) {
+        case 'var':
+            acc.add(term.name);
+            return acc;
+        case 'sort':
+            return acc;
+        case 'pi':
+        case 'lam': {
+            freeVars(term.domain, acc);
+            const body = term.kind === 'pi' ? term.codomain : term.body;
+            const inner = freeVars(body);
+            inner.delete(term.bind);
+            for (const v of inner)
+                acc.add(v);
+            return acc;
+        }
+        case 'app':
+            freeVars(term.fn, acc);
+            freeVars(term.arg, acc);
+            return acc;
+    }
+}
+// ---------- Serialización legible ----------
+function termToString(t) {
+    switch (t.kind) {
+        case 'var':
+            return t.name;
+        case 'sort':
+            return t.sort;
+        case 'pi': {
+            if (t.bind === '_' || !occursFree(t.bind, t.codomain)) {
+                const lhs = t.domain.kind === 'pi' || t.domain.kind === 'lam'
+                    ? `(${termToString(t.domain)})`
+                    : termToString(t.domain);
+                return `${lhs} → ${termToString(t.codomain)}`;
+            }
+            return `Π ${t.bind}:${termToString(t.domain)}. ${termToString(t.codomain)}`;
+        }
+        case 'lam':
+            return `λ ${t.bind}:${termToString(t.domain)}. ${termToString(t.body)}`;
+        case 'app': {
+            const fn = t.fn.kind === 'lam' || t.fn.kind === 'pi' ? `(${termToString(t.fn)})` : termToString(t.fn);
+            const arg = t.arg.kind === 'app' || t.arg.kind === 'lam' || t.arg.kind === 'pi'
+                ? `(${termToString(t.arg)})`
+                : termToString(t.arg);
+            return `${fn} ${arg}`;
+        }
+    }
+}
+// ---------- α-equivalencia ----------
+function alphaEq(a, b) {
+    return alphaEqEnv(a, b, new Map(), new Map(), { n: 0 });
+}
+function alphaEqEnv(a, b, envA, envB, counter) {
+    if (a.kind !== b.kind)
+        return false;
+    switch (a.kind) {
+        case 'var': {
+            const bb = b;
+            const ia = envA.get(a.name);
+            const ib = envB.get(bb.name);
+            if (ia === undefined && ib === undefined)
+                return a.name === bb.name;
+            return ia === ib;
+        }
+        case 'sort':
+            return a.sort === b.sort;
+        case 'pi':
+        case 'lam': {
+            const bb = b;
+            const aDom = a.domain;
+            const bDom = bb.domain;
+            if (!alphaEqEnv(aDom, bDom, envA, envB, counter))
+                return false;
+            const idx = counter.n++;
+            const newA = new Map(envA);
+            newA.set(a.bind, idx);
+            const newB = new Map(envB);
+            newB.set(bb.bind, idx);
+            const aBody = a.kind === 'pi' ? a.codomain : a.body;
+            const bBody = bb.kind === 'pi' ? bb.codomain : bb.body;
+            return alphaEqEnv(aBody, bBody, newA, newB, counter);
+        }
+        case 'app': {
+            const bb = b;
+            return (alphaEqEnv(a.fn, bb.fn, envA, envB, counter) &&
+                alphaEqEnv(a.arg, bb.arg, envA, envB, counter));
+        }
+    }
+}
+function emptyContext() {
+    return new Map();
+}
+function extendContext(ctx, name, type) {
+    const next = new Map(ctx);
+    next.set(name, type);
+    return next;
+}
+//# sourceMappingURL=types.js.map

package/dist/type-theory/lambda-cube/types.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"types.js","sourceRoot":"","sources":["../../../src/type-theory/lambda-cube/types.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,kEAAkE;AAClE,+DAA+D;AAC/D,EAAE;AACF,kEAAkE;AAClE,oEAAoE;AACpE,UAAU;AACV,EAAE;AACF,6EAA6E;AAC7E,2EAA2E;AAC3E,mFAAmF;AACnF,EAAE;AACF,4CAA4C;AAC5C,EAAE;AACF,kDAAkD;AAClD,EAAE;AACF,wDAAwD;AACxD,EAAE;AACF,8CAA8C;AAC9C,EAAE;AACF,iBAAiB;AACjB,8CAA8C;AAC9C,sDAAsD;AACtD,6CAA6C;AAC7C,4CAA4C;AAC5C,EAAE;AACF,+DAA+D;AAC/D,0CAA0C;AAC1C,EAAE;AACF,wDAAwD;AACxD,4DAA4D;AAC5D,6DAA6D;AAC7D,6DAA6D;AAC7D,2DAA2D;AAC3D,oCAAoC;AACpC,qCAAqC;AACrC,6EAA6E;;;AA8C7E,gCAgBC;AAED,4BAqBC;AAID,oCA4BC;AAID,0BAEC;AAmDD,oCAEC;AAED,sCAIC;AAjKD,mDAAmD;AAE5C,MAAM,IAAI,GAAG,CAAC,IAAY,EAAY,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,CAAC,CAAC;AAA3D,QAAA,IAAI,QAAuD;AACjE,MAAM,KAAK,GAAG,CAAC,IAAU,EAAY,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,CAAC,CAAC;AAA3D,QAAA,KAAK,SAAsD;AAC3D,QAAA,KAAK,GAAa,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,GAAG,EAAE,CAAC;AAC9C,QAAA,IAAI,GAAa,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,GAAG,EAAE,CAAC;AACnD,MAAM,GAAG,GAAG,CAAC,IAAY,EAAE,MAAgB,EAAE,QAAkB,EAAY,EAAE,CAAC,CAAC;IACpF,IAAI,EAAE,IAAI;IACV,IAAI;IACJ,MAAM;IACN,QAAQ;CACT,CAAC,CAAC;AALU,QAAA,GAAG,OAKb;AACI,MAAM,IAAI,GAAG,CAAC,IAAY,EAAE,MAAgB,EAAE,IAAc,EAAY,EAAE,CAAC,CAAC;IACjF,IAAI,EAAE,KAAK;IACX,IAAI;IACJ,MAAM;IACN,IAAI;CACL,CAAC,CAAC;AALU,QAAA,IAAI,QAKd;AACI,MAAM,IAAI,GAAG,CAAC,EAAY,EAAE,GAAa,EAAY,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,KAAK,EAAE,EAAE,EAAE,GAAG,EAAE,CAAC,CAAC;AAA7E,QAAA,IAAI,QAAyE;AAE1F,2EAA2E;AACpE,MAAM,MAAM,GAAG,CAAC,IAAc,EAAE,EAAY,EAAY,EAAE,CAAC,IAAA,WAAG,EAAC,GAAG,EAAE,IAAI,EAAE,EAAE,CAAC,CAAC;AAAxE,QAAA,MAAM,UAAkE;AAErF,yCAAyC;AAEzC,SAAgB,UAAU,CAAC,IAAY,EAAE,IAAc;IACrD,QAAQ,IAAI,CAAC,IAAI,EAAE,CAAC;QAClB,KAAK,KAAK;YACR,OAAO,IAAI,CAAC,IAAI,KAAK,IAAI,CAAC;QAC5B,KAAK,MAAM;YACT,OAAO,KAAK,CAAC;QACf,KAAK,IAAI,CAAC;QACV,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,IAAI,UAAU,CAAC,IAAI,EAAE,IAAI,CAAC,MAAM,CAAC;gBAAE,OAAO,IAAI,CAAC;YAC/C,IAAI,IAAI,CAAC,IAAI,KAAK,IAAI;gBAAE,OAAO,KAAK,CAAC;YACrC,MAAM,IAAI,GAAG,IAAI,CAAC,IAAI,KAAK,IAAI,CAAC,CAAC,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC;YAC5D,OAAO,UAAU,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC;QAChC,CAAC;QACD,KAAK,KAAK;YACR,OAAO,UAAU,CAAC,IAAI,EAAE,IAAI,CAAC,EAAE,CAAC,IAAI,UAAU,CAAC,IAAI,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC;IACnE,CAAC;AACH,CAAC;AAED,SAAgB,QAAQ,CAAC,IAAc,EAAE,MAAmB,IAAI,GAAG,EAAE;IACnE,QAAQ,IAAI,CAAC,IAAI,EAAE,CAAC;QAClB,KAAK,KAAK;YACR,GAAG,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACnB,OAAO,GAAG,CAAC;QACb,KAAK,MAAM;YACT,OAAO,GAAG,CAAC;QACb,KAAK,IAAI,CAAC;QACV,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,QAAQ,CAAC,IAAI,CAAC,MAAM,EAAE,GAAG,CAAC,CAAC;YAC3B,MAAM,IAAI,GAAG,IAAI,CAAC,IAAI,KAAK,IAAI,CAAC,CAAC,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC;YAC5D,MAAM,KAAK,GAAG,QAAQ,CAAC,IAAI,CAAC,CAAC;YAC7B,KAAK,CAAC,MAAM,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACxB,KAAK,MAAM,CAAC,IAAI,KAAK;gBAAE,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;YAClC,OAAO,GAAG,CAAC;QACb,CAAC;QACD,KAAK,KAAK;YACR,QAAQ,CAAC,IAAI,CAAC,EAAE,EAAE,GAAG,CAAC,CAAC;YACvB,QAAQ,CAAC,IAAI,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YACxB,OAAO,GAAG,CAAC;IACf,CAAC;AACH,CAAC;AAED,8CAA8C;AAE9C,SAAgB,YAAY,CAAC,CAAW;IACtC,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;QACf,KAAK,KAAK;YACR,OAAO,CAAC,CAAC,IAAI,CAAC;QAChB,KAAK,MAAM;YACT,OAAO,CAAC,CAAC,IAAI,CAAC;QAChB,KAAK,IAAI,CAAC,CAAC,CAAC;YACV,IAAI,CAAC,CAAC,IAAI,KAAK,GAAG,IAAI,CAAC,UAAU,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC,QAAQ,CAAC,EAAE,CAAC;gBACtD,MAAM,GAAG,GACP,CAAC,CAAC,MAAM,CAAC,IAAI,KAAK,IAAI,IAAI,CAAC,CAAC,MAAM,CAAC,IAAI,KAAK,KAAK;oBAC/C,CAAC,CAAC,IAAI,YAAY,CAAC,CAAC,CAAC,MAAM,CAAC,GAAG;oBAC/B,CAAC,CAAC,YAAY,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC;gBAC7B,OAAO,GAAG,GAAG,MAAM,YAAY,CAAC,CAAC,CAAC,QAAQ,CAAC,EAAE,CAAC;YAChD,CAAC;YACD,OAAO,KAAK,CAAC,CAAC,IAAI,IAAI,YAAY,CAAC,CAAC,CAAC,MAAM,CAAC,KAAK,YAAY,CAAC,CAAC,CAAC,QAAQ,CAAC,EAAE,CAAC;QAC9E,CAAC;QACD,KAAK,KAAK;YACR,OAAO,KAAK,CAAC,CAAC,IAAI,IAAI,YAAY,CAAC,CAAC,CAAC,MAAM,CAAC,KAAK,YAAY,CAAC,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC;QAC1E,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,EAAE,GACN,CAAC,CAAC,EAAE,CAAC,IAAI,KAAK,KAAK,IAAI,CAAC,CAAC,EAAE,CAAC,IAAI,KAAK,IAAI,CAAC,CAAC,CAAC,IAAI,YAAY,CAAC,CAAC,CAAC,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC,YAAY,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC;YAC7F,MAAM,GAAG,GACP,CAAC,CAAC,GAAG,CAAC,IAAI,KAAK,KAAK,IAAI,CAAC,CAAC,GAAG,CAAC,IAAI,KAAK,KAAK,IAAI,CAAC,CAAC,GAAG,CAAC,IAAI,KAAK,IAAI;gBACjE,CAAC,CAAC,IAAI,YAAY,CAAC,CAAC,CAAC,GAAG,CAAC,GAAG;gBAC5B,CAAC,CAAC,YAAY,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC;YAC1B,OAAO,GAAG,EAAE,IAAI,GAAG,EAAE,CAAC;QACxB,CAAC;IACH,CAAC;AACH,CAAC;AAED,uCAAuC;AAEvC,SAAgB,OAAO,CAAC,CAAW,EAAE,CAAW;IAC9C,OAAO,UAAU,CAAC,CAAC,EAAE,CAAC,EAAE,IAAI,GAAG,EAAE,EAAE,IAAI,GAAG,EAAE,EAAE,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC;AAC1D,CAAC;AAED,SAAS,UAAU,CACjB,CAAW,EACX,CAAW,EACX,IAAyB,EACzB,IAAyB,EACzB,OAAsB;IAEtB,IAAI,CAAC,CAAC,IAAI,KAAK,CAAC,CAAC,IAAI;QAAE,OAAO,KAAK,CAAC;IACpC,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;QACf,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,EAAE,GAAG,CAAa,CAAC;YACzB,MAAM,EAAE,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;YAC5B,MAAM,EAAE,GAAG,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,IAAI,CAAC,CAAC;YAC7B,IAAI,EAAE,KAAK,SAAS,IAAI,EAAE,KAAK,SAAS;gBAAE,OAAO,CAAC,CAAC,IAAI,KAAK,EAAE,CAAC,IAAI,CAAC;YACpE,OAAO,EAAE,KAAK,EAAE,CAAC;QACnB,CAAC;QACD,KAAK,MAAM;YACT,OAAO,CAAC,CAAC,IAAI,KAAM,CAAc,CAAC,IAAI,CAAC;QACzC,KAAK,IAAI,CAAC;QACV,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,EAAE,GAAG,CAAa,CAAC;YACzB,MAAM,IAAI,GAAG,CAAC,CAAC,MAAM,CAAC;YACtB,MAAM,IAAI,GAAG,EAAE,CAAC,MAAM,CAAC;YACvB,IAAI,CAAC,UAAU,CAAC,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,OAAO,CAAC;gBAAE,OAAO,KAAK,CAAC;YAC/D,MAAM,GAAG,GAAG,OAAO,CAAC,CAAC,EAAE,CAAC;YACxB,MAAM,IAAI,GAAG,IAAI,GAAG,CAAC,IAAI,CAAC,CAAC;YAC3B,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YACtB,MAAM,IAAI,GAAG,IAAI,GAAG,CAAC,IAAI,CAAC,CAAC;YAC3B,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YACvB,MAAM,KAAK,GAAG,CAAC,CAAC,IAAI,KAAK,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC;YACpD,MAAM,KAAK,GAAG,EAAE,CAAC,IAAI,KAAK,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC,QAAQ,CAAC,CAAC,CAAC,EAAE,CAAC,IAAI,CAAC;YACvD,OAAO,UAAU,CAAC,KAAK,EAAE,KAAK,EAAE,IAAI,EAAE,IAAI,EAAE,OAAO,CAAC,CAAC;QACvD,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,EAAE,GAAG,CAAa,CAAC;YACzB,OAAO,CACL,UAAU,CAAC,CAAC,CAAC,EAAE,EAAE,EAAE,CAAC,EAAE,EAAE,IAAI,EAAE,IAAI,EAAE,OAAO,CAAC;gBAC5C,UAAU,CAAC,CAAC,CAAC,GAAG,EAAE,EAAE,CAAC,GAAG,EAAE,IAAI,EAAE,IAAI,EAAE,OAAO,CAAC,CAC/C,CAAC;QACJ,CAAC;IACH,CAAC;AACH,CAAC;AAQD,SAAgB,YAAY;IAC1B,OAAO,IAAI,GAAG,EAAE,CAAC;AACnB,CAAC;AAED,SAAgB,aAAa,CAAC,GAAgB,EAAE,IAAY,EAAE,IAAc;IAC1E,MAAM,IAAI,GAAG,IAAI,GAAG,CAAC,GAAG,CAAC,CAAC;IAC1B,IAAI,CAAC,GAAG,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC;IACrB,OAAO,IAAI,CAAC;AACd,CAAC"}

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@stevenvo780/st-lang",
-  "version": "4.11.0",
+  "version": "4.13.0",
   "description": "ST — Lenguaje ejecutable con nucleo logico y capa textual. Motor multi-perfil (11 lógicas), derivaciones, tablas de verdad, contramodelos, aliases modales, Belnap 4-valores y capa textual para formalización de documentos.",
   "main": "dist/index.js",
   "types": "dist/index.d.ts",