@stevenvo780/st-lang 4.7.0 → 4.9.0

package/dist/type-theory/cubical/path-algebra.js

@@ -0,0 +1,109 @@
+"use strict";
+// ============================================================
+// Cubical — Álgebra de caminos sobre el intervalo
+// ============================================================
+//
+// Operaciones de alto nivel para construir caminos cúbicos sin tocar
+// el AST manualmente. Las identidades estándar:
+//
+//   reflPath x       ≡ λi. x
+//   pathInverse p    ≡ λi. p @ (~ i)
+//   pathCompose p q  : composición vía hcomp (aquí: encadenamiento
+//                      sintáctico — primer paso pedagógico).
+//
+// `glue` se importa de types pero lo re-exportamos como función de
+// alto nivel firmada igual que en la misión.
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.reflPath = reflPath;
+exports.pathInverse = pathInverse;
+exports.pathCompose = pathCompose;
+exports.glue = glue;
+const types_1 = require("./types");
+function reflPath(x) {
+    // λi. x (i no ocurre en x, así colapsa a una refl interválica)
+    return (0, types_1.cPLam)('i', x);
+}
+function pathInverse(p) {
+    // Optimización: inverso de refl es refl
+    if (p.kind === 'pLam' && !occurs('i', p.body)) {
+        return p;
+    }
+    // λi. p @ (~ i)
+    return (0, types_1.cPLam)('i', (0, types_1.cPApp)(p, (0, types_1.cINeg)((0, types_1.cIVar)('i'))));
+}
+function pathCompose(p, q) {
+    // Identidad izquierda/derecha sintáctica con reflPath: si p ≡ refl x,
+    // devolvemos q; si q ≡ refl, devolvemos p. Esto NO es la composición
+    // homotópica completa (que requiere hcomp), pero respeta las
+    // ecuaciones esperadas en los casos canónicos pedagógicos.
+    if (isReflLike(p))
+        return q;
+    if (isReflLike(q))
+        return p;
+    // Forma genérica: λi. encadenado (p @ i a la izquierda; q @ i a la derecha
+    // del intervalo dividido). Para mantener la igualdad sintáctica con la
+    // composición real cuando los extremos coinciden, devolvemos:
+    //   λi. p @ i  cuando q ≡ refl (ya cubierto)
+    //   λi. q @ i  cuando p ≡ refl (ya cubierto)
+    // El caso default es una marca composicional.
+    return (0, types_1.cPLam)('i', {
+        kind: 'pApp',
+        path: { kind: 'pLam', bind: 'j', body: (0, types_1.cPApp)(p, (0, types_1.cIVar)('j')) },
+        arg: (0, types_1.cIVar)('i'),
+    });
+}
+/**
+ * Glue: convierte una equivalencia A ≃ B (codificada como par Σ con
+ * dominio y codominio) en un Path en el universo. Es el precursor
+ * sintáctico de la computación de ua en CTT — aquí no implementamos
+ * la regla de cómputo full, sólo la introducción del término.
+ */
+function glue(equiv, partial) {
+    return (0, types_1.cGlue)(equiv, partial);
+}
+// ── Helpers internos ─────────────────────────────────────────
+function occurs(name, t) {
+    switch (t.kind) {
+        case 'i0':
+        case 'i1':
+        case 'universe':
+            return false;
+        case 'var':
+        case 'iVar':
+            return t.name === name;
+        case 'iNeg':
+            return occurs(name, t.arg);
+        case 'iMin':
+        case 'iMax':
+            return occurs(name, t.left) || occurs(name, t.right);
+        case 'pathP':
+            return occurs(name, t.family) || occurs(name, t.left) || occurs(name, t.right);
+        case 'pLam':
+            if (t.bind === name)
+                return false;
+            return occurs(name, t.body);
+        case 'pApp':
+            return occurs(name, t.path) || occurs(name, t.arg);
+        case 'glue':
+            return occurs(name, t.equiv) || occurs(name, t.partial);
+        case 'pi':
+            if (occurs(name, t.domain))
+                return true;
+            if (t.bind === name)
+                return false;
+            return occurs(name, t.codomain);
+        case 'lam':
+            if (occurs(name, t.domain))
+                return true;
+            if (t.bind === name)
+                return false;
+            return occurs(name, t.body);
+        case 'app':
+            return occurs(name, t.fn) || occurs(name, t.arg);
+    }
+}
+function isReflLike(p) {
+    // refl = pLam i. x  con i no libre en x.
+    return p.kind === 'pLam' && !occurs(p.bind, p.body);
+}
+//# sourceMappingURL=path-algebra.js.map

package/dist/type-theory/cubical/path-algebra.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"path-algebra.js","sourceRoot":"","sources":["../../../src/type-theory/cubical/path-algebra.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,kDAAkD;AAClD,+DAA+D;AAC/D,EAAE;AACF,qEAAqE;AACrE,gDAAgD;AAChD,EAAE;AACF,6BAA6B;AAC7B,qCAAqC;AACrC,mEAAmE;AACnE,6DAA6D;AAC7D,EAAE;AACF,mEAAmE;AACnE,6CAA6C;;AAK7C,4BAGC;AAED,kCAOC;AAED,kCAkBC;AAQD,oBAEC;AA5CD,mCAA4D;AAE5D,SAAgB,QAAQ,CAAC,CAAc;IACrC,+DAA+D;IAC/D,OAAO,IAAA,aAAK,EAAC,GAAG,EAAE,CAAC,CAAC,CAAC;AACvB,CAAC;AAED,SAAgB,WAAW,CAAC,CAAc;IACxC,wCAAwC;IACxC,IAAI,CAAC,CAAC,IAAI,KAAK,MAAM,IAAI,CAAC,MAAM,CAAC,GAAG,EAAE,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC;QAC9C,OAAO,CAAC,CAAC;IACX,CAAC;IACD,gBAAgB;IAChB,OAAO,IAAA,aAAK,EAAC,GAAG,EAAE,IAAA,aAAK,EAAC,CAAC,EAAE,IAAA,aAAK,EAAC,IAAA,aAAK,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;AACjD,CAAC;AAED,SAAgB,WAAW,CAAC,CAAc,EAAE,CAAc;IACxD,sEAAsE;IACtE,qEAAqE;IACrE,6DAA6D;IAC7D,2DAA2D;IAC3D,IAAI,UAAU,CAAC,CAAC,CAAC;QAAE,OAAO,CAAC,CAAC;IAC5B,IAAI,UAAU,CAAC,CAAC,CAAC;QAAE,OAAO,CAAC,CAAC;IAC5B,2EAA2E;IAC3E,uEAAuE;IACvE,8DAA8D;IAC9D,6CAA6C;IAC7C,6CAA6C;IAC7C,8CAA8C;IAC9C,OAAO,IAAA,aAAK,EAAC,GAAG,EAAE;QAChB,IAAI,EAAE,MAAM;QACZ,IAAI,EAAE,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,GAAG,EAAE,IAAI,EAAE,IAAA,aAAK,EAAC,CAAC,EAAE,IAAA,aAAK,EAAC,GAAG,CAAC,CAAC,EAAE;QAC7D,GAAG,EAAE,IAAA,aAAK,EAAC,GAAG,CAAC;KAChB,CAAC,CAAC;AACL,CAAC;AAED;;;;;GAKG;AACH,SAAgB,IAAI,CAAC,KAAkB,EAAE,OAAoB;IAC3D,OAAO,IAAA,aAAK,EAAC,KAAK,EAAE,OAAO,CAAC,CAAC;AAC/B,CAAC;AAED,gEAAgE;AAEhE,SAAS,MAAM,CAAC,IAAY,EAAE,CAAc;IAC1C,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;QACf,KAAK,IAAI,CAAC;QACV,KAAK,IAAI,CAAC;QACV,KAAK,UAAU;YACb,OAAO,KAAK,CAAC;QACf,KAAK,KAAK,CAAC;QACX,KAAK,MAAM;YACT,OAAO,CAAC,CAAC,IAAI,KAAK,IAAI,CAAC;QACzB,KAAK,MAAM;YACT,OAAO,MAAM,CAAC,IAAI,EAAE,CAAC,CAAC,GAAG,CAAC,CAAC;QAC7B,KAAK,MAAM,CAAC;QACZ,KAAK,MAAM;YACT,OAAO,MAAM,CAAC,IAAI,EAAE,CAAC,CAAC,IAAI,CAAC,IAAI,MAAM,CAAC,IAAI,EAAE,CAAC,CAAC,KAAK,CAAC,CAAC;QACvD,KAAK,OAAO;YACV,OAAO,MAAM,CAAC,IAAI,EAAE,CAAC,CAAC,MAAM,CAAC,IAAI,MAAM,CAAC,IAAI,EAAE,CAAC,CAAC,IAAI,CAAC,IAAI,MAAM,CAAC,IAAI,EAAE,CAAC,CAAC,KAAK,CAAC,CAAC;QACjF,KAAK,MAAM;YACT,IAAI,CAAC,CAAC,IAAI,KAAK,IAAI;gBAAE,OAAO,KAAK,CAAC;YAClC,OAAO,MAAM,CAAC,IAAI,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC;QAC9B,KAAK,MAAM;YACT,OAAO,MAAM,CAAC,IAAI,EAAE,CAAC,CAAC,IAAI,CAAC,IAAI,MAAM,CAAC,IAAI,EAAE,CAAC,CAAC,GAAG,CAAC,CAAC;QACrD,KAAK,MAAM;YACT,OAAO,MAAM,CAAC,IAAI,EAAE,CAAC,CAAC,KAAK,CAAC,IAAI,MAAM,CAAC,IAAI,EAAE,CAAC,CAAC,OAAO,CAAC,CAAC;QAC1D,KAAK,IAAI;YACP,IAAI,MAAM,CAAC,IAAI,EAAE,CAAC,CAAC,MAAM,CAAC;gBAAE,OAAO,IAAI,CAAC;YACxC,IAAI,CAAC,CAAC,IAAI,KAAK,IAAI;gBAAE,OAAO,KAAK,CAAC;YAClC,OAAO,MAAM,CAAC,IAAI,EAAE,CAAC,CAAC,QAAQ,CAAC,CAAC;QAClC,KAAK,KAAK;YACR,IAAI,MAAM,CAAC,IAAI,EAAE,CAAC,CAAC,MAAM,CAAC;gBAAE,OAAO,IAAI,CAAC;YACxC,IAAI,CAAC,CAAC,IAAI,KAAK,IAAI;gBAAE,OAAO,KAAK,CAAC;YAClC,OAAO,MAAM,CAAC,IAAI,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC;QAC9B,KAAK,KAAK;YACR,OAAO,MAAM,CAAC,IAAI,EAAE,CAAC,CAAC,EAAE,CAAC,IAAI,MAAM,CAAC,IAAI,EAAE,CAAC,CAAC,GAAG,CAAC,CAAC;IACrD,CAAC;AACH,CAAC;AAED,SAAS,UAAU,CAAC,CAAc;IAChC,yCAAyC;IACzC,OAAO,CAAC,CAAC,IAAI,KAAK,MAAM,IAAI,CAAC,MAAM,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC;AACtD,CAAC"}

package/dist/type-theory/cubical/substitute.d.ts

@@ -0,0 +1,3 @@
+import type { CubicalTerm } from './types';
+export declare function substituteCubical(term: CubicalTerm, name: string, value: CubicalTerm): CubicalTerm;
+//# sourceMappingURL=substitute.d.ts.map

package/dist/type-theory/cubical/substitute.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"substitute.d.ts","sourceRoot":"","sources":["../../../src/type-theory/cubical/substitute.ts"],"names":[],"mappings":"AASA,OAAO,KAAK,EAAE,WAAW,EAAE,MAAM,SAAS,CAAC;AAW3C,wBAAgB,iBAAiB,CAC/B,IAAI,EAAE,WAAW,EACjB,IAAI,EAAE,MAAM,EACZ,KAAK,EAAE,WAAW,GACjB,WAAW,CA0Eb"}

package/dist/type-theory/cubical/substitute.js

@@ -0,0 +1,109 @@
+"use strict";
+// ============================================================
+// Cubical — Sustitución capture-avoiding
+// ============================================================
+//
+// Las variables de término y las variables de intervalo viven en
+// el mismo espacio sintáctico (ambas son nombres). Sustituimos
+// uniformemente; el sustituidor decide por la posición sintáctica
+// (var vs iVar) si reemplaza o no.
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.substituteCubical = substituteCubical;
+const types_1 = require("./types");
+let freshCounter = 0;
+function fresh(base, avoid) {
+    let candidate = `${base}#c${freshCounter++}`;
+    while (avoid.has(candidate))
+        candidate = `${base}#c${freshCounter++}`;
+    return candidate;
+}
+function substituteCubical(term, name, value) {
+    switch (term.kind) {
+        case 'i0':
+        case 'i1':
+        case 'universe':
+            return term;
+        case 'var':
+            return term.name === name ? value : term;
+        case 'iVar':
+            return term.name === name ? value : term;
+        case 'iMin':
+            return {
+                kind: 'iMin',
+                left: substituteCubical(term.left, name, value),
+                right: substituteCubical(term.right, name, value),
+            };
+        case 'iMax':
+            return {
+                kind: 'iMax',
+                left: substituteCubical(term.left, name, value),
+                right: substituteCubical(term.right, name, value),
+            };
+        case 'iNeg':
+            return { kind: 'iNeg', arg: substituteCubical(term.arg, name, value) };
+        case 'pathP':
+            return {
+                kind: 'pathP',
+                family: substituteCubical(term.family, name, value),
+                left: substituteCubical(term.left, name, value),
+                right: substituteCubical(term.right, name, value),
+            };
+        case 'pLam': {
+            if (term.bind === name)
+                return term;
+            const fv = (0, types_1.freeVarsCubical)(value);
+            if (fv.has(term.bind)) {
+                const newBind = fresh(term.bind, new Set([...fv, ...(0, types_1.freeVarsCubical)(term.body), name]));
+                const renamed = substituteCubical(term.body, term.bind, { kind: 'iVar', name: newBind });
+                return { kind: 'pLam', bind: newBind, body: substituteCubical(renamed, name, value) };
+            }
+            return { kind: 'pLam', bind: term.bind, body: substituteCubical(term.body, name, value) };
+        }
+        case 'pApp':
+            return {
+                kind: 'pApp',
+                path: substituteCubical(term.path, name, value),
+                arg: substituteCubical(term.arg, name, value),
+            };
+        case 'glue':
+            return {
+                kind: 'glue',
+                equiv: substituteCubical(term.equiv, name, value),
+                partial: substituteCubical(term.partial, name, value),
+            };
+        case 'pi':
+            return substBinder(term, name, value, term.domain, term.codomain, (bind, dom, cod) => ({
+                kind: 'pi',
+                bind,
+                domain: dom,
+                codomain: cod,
+            }));
+        case 'lam':
+            return substBinder(term, name, value, term.domain, term.body, (bind, dom, body) => ({
+                kind: 'lam',
+                bind,
+                domain: dom,
+                body,
+            }));
+        case 'app':
+            return {
+                kind: 'app',
+                fn: substituteCubical(term.fn, name, value),
+                arg: substituteCubical(term.arg, name, value),
+            };
+    }
+}
+function substBinder(source, name, value, dom, cod, build) {
+    const newDom = substituteCubical(dom, name, value);
+    if (source.bind === name) {
+        return build(source.bind, newDom, cod);
+    }
+    const fv = (0, types_1.freeVarsCubical)(value);
+    if (fv.has(source.bind)) {
+        const newBind = fresh(source.bind, new Set([...fv, ...(0, types_1.freeVarsCubical)(cod), name]));
+        const renamedCod = substituteCubical(cod, source.bind, { kind: 'var', name: newBind });
+        return build(newBind, newDom, substituteCubical(renamedCod, name, value));
+    }
+    return build(source.bind, newDom, substituteCubical(cod, name, value));
+}
+//# sourceMappingURL=substitute.js.map

package/dist/type-theory/cubical/substitute.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"substitute.js","sourceRoot":"","sources":["../../../src/type-theory/cubical/substitute.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,yCAAyC;AACzC,+DAA+D;AAC/D,EAAE;AACF,iEAAiE;AACjE,+DAA+D;AAC/D,kEAAkE;AAClE,mCAAmC;;AAanC,8CA8EC;AAxFD,mCAA0C;AAE1C,IAAI,YAAY,GAAG,CAAC,CAAC;AAErB,SAAS,KAAK,CAAC,IAAY,EAAE,KAAkB;IAC7C,IAAI,SAAS,GAAG,GAAG,IAAI,KAAK,YAAY,EAAE,EAAE,CAAC;IAC7C,OAAO,KAAK,CAAC,GAAG,CAAC,SAAS,CAAC;QAAE,SAAS,GAAG,GAAG,IAAI,KAAK,YAAY,EAAE,EAAE,CAAC;IACtE,OAAO,SAAS,CAAC;AACnB,CAAC;AAED,SAAgB,iBAAiB,CAC/B,IAAiB,EACjB,IAAY,EACZ,KAAkB;IAElB,QAAQ,IAAI,CAAC,IAAI,EAAE,CAAC;QAClB,KAAK,IAAI,CAAC;QACV,KAAK,IAAI,CAAC;QACV,KAAK,UAAU;YACb,OAAO,IAAI,CAAC;QACd,KAAK,KAAK;YACR,OAAO,IAAI,CAAC,IAAI,KAAK,IAAI,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,IAAI,CAAC;QAC3C,KAAK,MAAM;YACT,OAAO,IAAI,CAAC,IAAI,KAAK,IAAI,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,IAAI,CAAC;QAC3C,KAAK,MAAM;YACT,OAAO;gBACL,IAAI,EAAE,MAAM;gBACZ,IAAI,EAAE,iBAAiB,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC;gBAC/C,KAAK,EAAE,iBAAiB,CAAC,IAAI,CAAC,KAAK,EAAE,IAAI,EAAE,KAAK,CAAC;aAClD,CAAC;QACJ,KAAK,MAAM;YACT,OAAO;gBACL,IAAI,EAAE,MAAM;gBACZ,IAAI,EAAE,iBAAiB,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC;gBAC/C,KAAK,EAAE,iBAAiB,CAAC,IAAI,CAAC,KAAK,EAAE,IAAI,EAAE,KAAK,CAAC;aAClD,CAAC;QACJ,KAAK,MAAM;YACT,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,GAAG,EAAE,iBAAiB,CAAC,IAAI,CAAC,GAAG,EAAE,IAAI,EAAE,KAAK,CAAC,EAAE,CAAC;QACzE,KAAK,OAAO;YACV,OAAO;gBACL,IAAI,EAAE,OAAO;gBACb,MAAM,EAAE,iBAAiB,CAAC,IAAI,CAAC,MAAM,EAAE,IAAI,EAAE,KAAK,CAAC;gBACnD,IAAI,EAAE,iBAAiB,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC;gBAC/C,KAAK,EAAE,iBAAiB,CAAC,IAAI,CAAC,KAAK,EAAE,IAAI,EAAE,KAAK,CAAC;aAClD,CAAC;QACJ,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,IAAI,IAAI,CAAC,IAAI,KAAK,IAAI;gBAAE,OAAO,IAAI,CAAC;YACpC,MAAM,EAAE,GAAG,IAAA,uBAAe,EAAC,KAAK,CAAC,CAAC;YAClC,IAAI,EAAE,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC;gBACtB,MAAM,OAAO,GAAG,KAAK,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,GAAG,CAAC,CAAC,GAAG,EAAE,EAAE,GAAG,IAAA,uBAAe,EAAC,IAAI,CAAC,IAAI,CAAC,EAAE,IAAI,CAAC,CAAC,CAAC,CAAC;gBACxF,MAAM,OAAO,GAAG,iBAAiB,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,CAAC,IAAI,EAAE,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,OAAO,EAAE,CAAC,CAAC;gBACzF,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,OAAO,EAAE,IAAI,EAAE,iBAAiB,CAAC,OAAO,EAAE,IAAI,EAAE,KAAK,CAAC,EAAE,CAAC;YACxF,CAAC;YACD,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,iBAAiB,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC,EAAE,CAAC;QAC5F,CAAC;QACD,KAAK,MAAM;YACT,OAAO;gBACL,IAAI,EAAE,MAAM;gBACZ,IAAI,EAAE,iBAAiB,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC;gBAC/C,GAAG,EAAE,iBAAiB,CAAC,IAAI,CAAC,GAAG,EAAE,IAAI,EAAE,KAAK,CAAC;aAC9C,CAAC;QACJ,KAAK,MAAM;YACT,OAAO;gBACL,IAAI,EAAE,MAAM;gBACZ,KAAK,EAAE,iBAAiB,CAAC,IAAI,CAAC,KAAK,EAAE,IAAI,EAAE,KAAK,CAAC;gBACjD,OAAO,EAAE,iBAAiB,CAAC,IAAI,CAAC,OAAO,EAAE,IAAI,EAAE,KAAK,CAAC;aACtD,CAAC;QACJ,KAAK,IAAI;YACP,OAAO,WAAW,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,CAAC,MAAM,EAAE,IAAI,CAAC,QAAQ,EAAE,CAAC,IAAI,EAAE,GAAG,EAAE,GAAG,EAAE,EAAE,CAAC,CAAC;gBACrF,IAAI,EAAE,IAAI;gBACV,IAAI;gBACJ,MAAM,EAAE,GAAG;gBACX,QAAQ,EAAE,GAAG;aACd,CAAC,CAAC,CAAC;QACN,KAAK,KAAK;YACR,OAAO,WAAW,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,CAAC,MAAM,EAAE,IAAI,CAAC,IAAI,EAAE,CAAC,IAAI,EAAE,GAAG,EAAE,IAAI,EAAE,EAAE,CAAC,CAAC;gBAClF,IAAI,EAAE,KAAK;gBACX,IAAI;gBACJ,MAAM,EAAE,GAAG;gBACX,IAAI;aACL,CAAC,CAAC,CAAC;QACN,KAAK,KAAK;YACR,OAAO;gBACL,IAAI,EAAE,KAAK;gBACX,EAAE,EAAE,iBAAiB,CAAC,IAAI,CAAC,EAAE,EAAE,IAAI,EAAE,KAAK,CAAC;gBAC3C,GAAG,EAAE,iBAAiB,CAAC,IAAI,CAAC,GAAG,EAAE,IAAI,EAAE,KAAK,CAAC;aAC9C,CAAC;IACN,CAAC;AACH,CAAC;AAED,SAAS,WAAW,CAClB,MAAwB,EACxB,IAAY,EACZ,KAAkB,EAClB,GAAgB,EAChB,GAAgB,EAChB,KAAwE;IAExE,MAAM,MAAM,GAAG,iBAAiB,CAAC,GAAG,EAAE,IAAI,EAAE,KAAK,CAAC,CAAC;IACnD,IAAI,MAAM,CAAC,IAAI,KAAK,IAAI,EAAE,CAAC;QACzB,OAAO,KAAK,CAAC,MAAM,CAAC,IAAI,EAAE,MAAM,EAAE,GAAG,CAAC,CAAC;IACzC,CAAC;IACD,MAAM,EAAE,GAAG,IAAA,uBAAe,EAAC,KAAK,CAAC,CAAC;IAClC,IAAI,EAAE,CAAC,GAAG,CAAC,MAAM,CAAC,IAAI,CAAC,EAAE,CAAC;QACxB,MAAM,OAAO,GAAG,KAAK,CAAC,MAAM,CAAC,IAAI,EAAE,IAAI,GAAG,CAAC,CAAC,GAAG,EAAE,EAAE,GAAG,IAAA,uBAAe,EAAC,GAAG,CAAC,EAAE,IAAI,CAAC,CAAC,CAAC,CAAC;QACpF,MAAM,UAAU,GAAG,iBAAiB,CAAC,GAAG,EAAE,MAAM,CAAC,IAAI,EAAE,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,OAAO,EAAE,CAAC,CAAC;QACvF,OAAO,KAAK,CAAC,OAAO,EAAE,MAAM,EAAE,iBAAiB,CAAC,UAAU,EAAE,IAAI,EAAE,KAAK,CAAC,CAAC,CAAC;IAC5E,CAAC;IACD,OAAO,KAAK,CAAC,MAAM,CAAC,IAAI,EAAE,MAAM,EAAE,iBAAiB,CAAC,GAAG,EAAE,IAAI,EAAE,KAAK,CAAC,CAAC,CAAC;AACzE,CAAC"}

package/dist/type-theory/cubical/types.d.ts

@@ -0,0 +1,77 @@
+export type CubicalTerm = {
+    kind: 'i0';
+} | {
+    kind: 'i1';
+} | {
+    kind: 'iVar';
+    name: string;
+} | {
+    kind: 'iMin';
+    left: CubicalTerm;
+    right: CubicalTerm;
+} | {
+    kind: 'iMax';
+    left: CubicalTerm;
+    right: CubicalTerm;
+} | {
+    kind: 'iNeg';
+    arg: CubicalTerm;
+} | {
+    kind: 'pathP';
+    family: CubicalTerm;
+    left: CubicalTerm;
+    right: CubicalTerm;
+} | {
+    kind: 'pLam';
+    bind: string;
+    body: CubicalTerm;
+} | {
+    kind: 'pApp';
+    path: CubicalTerm;
+    arg: CubicalTerm;
+} | {
+    kind: 'glue';
+    equiv: CubicalTerm;
+    partial: CubicalTerm;
+} | {
+    kind: 'var';
+    name: string;
+} | {
+    kind: 'universe';
+    level: number;
+} | {
+    kind: 'pi';
+    bind: string;
+    domain: CubicalTerm;
+    codomain: CubicalTerm;
+} | {
+    kind: 'lam';
+    bind: string;
+    domain: CubicalTerm;
+    body: CubicalTerm;
+} | {
+    kind: 'app';
+    fn: CubicalTerm;
+    arg: CubicalTerm;
+};
+export declare const cI0: () => CubicalTerm;
+export declare const cI1: () => CubicalTerm;
+export declare const cIVar: (name: string) => CubicalTerm;
+export declare const cIMin: (left: CubicalTerm, right: CubicalTerm) => CubicalTerm;
+export declare const cIMax: (left: CubicalTerm, right: CubicalTerm) => CubicalTerm;
+export declare const cINeg: (arg: CubicalTerm) => CubicalTerm;
+export declare const cPathP: (family: CubicalTerm, left: CubicalTerm, right: CubicalTerm) => CubicalTerm;
+export declare const cPLam: (bind: string, body: CubicalTerm) => CubicalTerm;
+export declare const cPApp: (path: CubicalTerm, arg: CubicalTerm) => CubicalTerm;
+export declare const cGlue: (equiv: CubicalTerm, partial: CubicalTerm) => CubicalTerm;
+export declare const cVar: (name: string) => CubicalTerm;
+export declare const cUniverse: (level?: number) => CubicalTerm;
+export declare const cPi: (bind: string, domain: CubicalTerm, codomain: CubicalTerm) => CubicalTerm;
+export declare const cLam: (bind: string, domain: CubicalTerm, body: CubicalTerm) => CubicalTerm;
+export declare const cApp: (fn: CubicalTerm, arg: CubicalTerm) => CubicalTerm;
+export declare const cArrow: (from: CubicalTerm, to: CubicalTerm) => CubicalTerm;
+export declare function isIntervalExpr(t: CubicalTerm): boolean;
+export declare function occursFreeCubical(name: string, term: CubicalTerm): boolean;
+export declare function freeVarsCubical(term: CubicalTerm, acc?: Set<string>): Set<string>;
+export declare function termToStringCubical(t: CubicalTerm): string;
+//# sourceMappingURL=types.d.ts.map

package/dist/type-theory/cubical/types.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"types.d.ts","sourceRoot":"","sources":["../../../src/type-theory/cubical/types.ts"],"names":[],"mappings":"AAuBA,MAAM,MAAM,WAAW,GAEnB;IAAE,IAAI,EAAE,IAAI,CAAA;CAAE,GACd;IAAE,IAAI,EAAE,IAAI,CAAA;CAAE,GACd;IAAE,IAAI,EAAE,MAAM,CAAC;IAAC,IAAI,EAAE,MAAM,CAAA;CAAE,GAC9B;IAAE,IAAI,EAAE,MAAM,CAAC;IAAC,IAAI,EAAE,WAAW,CAAC;IAAC,KAAK,EAAE,WAAW,CAAA;CAAE,GACvD;IAAE,IAAI,EAAE,MAAM,CAAC;IAAC,IAAI,EAAE,WAAW,CAAC;IAAC,KAAK,EAAE,WAAW,CAAA;CAAE,GACvD;IAAE,IAAI,EAAE,MAAM,CAAC;IAAC,GAAG,EAAE,WAAW,CAAA;CAAE,GAElC;IAAE,IAAI,EAAE,OAAO,CAAC;IAAC,MAAM,EAAE,WAAW,CAAC;IAAC,IAAI,EAAE,WAAW,CAAC;IAAC,KAAK,EAAE,WAAW,CAAA;CAAE,GAC7E;IAAE,IAAI,EAAE,MAAM,CAAC;IAAC,IAAI,EAAE,MAAM,CAAC;IAAC,IAAI,EAAE,WAAW,CAAA;CAAE,GACjD;IAAE,IAAI,EAAE,MAAM,CAAC;IAAC,IAAI,EAAE,WAAW,CAAC;IAAC,GAAG,EAAE,WAAW,CAAA;CAAE,GAErD;IAAE,IAAI,EAAE,MAAM,CAAC;IAAC,KAAK,EAAE,WAAW,CAAC;IAAC,OAAO,EAAE,WAAW,CAAA;CAAE,GAE1D;IAAE,IAAI,EAAE,KAAK,CAAC;IAAC,IAAI,EAAE,MAAM,CAAA;CAAE,GAC7B;IAAE,IAAI,EAAE,UAAU,CAAC;IAAC,KAAK,EAAE,MAAM,CAAA;CAAE,GACnC;IAAE,IAAI,EAAE,IAAI,CAAC;IAAC,IAAI,EAAE,MAAM,CAAC;IAAC,MAAM,EAAE,WAAW,CAAC;IAAC,QAAQ,EAAE,WAAW,CAAA;CAAE,GACxE;IAAE,IAAI,EAAE,KAAK,CAAC;IAAC,IAAI,EAAE,MAAM,CAAC;IAAC,MAAM,EAAE,WAAW,CAAC;IAAC,IAAI,EAAE,WAAW,CAAA;CAAE,GACrE;IAAE,IAAI,EAAE,KAAK,CAAC;IAAC,EAAE,EAAE,WAAW,CAAC;IAAC,GAAG,EAAE,WAAW,CAAA;CAAE,CAAC;AAIvD,eAAO,MAAM,GAAG,QAAO,WAA+B,CAAC;AACvD,eAAO,MAAM,GAAG,QAAO,WAA+B,CAAC;AACvD,eAAO,MAAM,KAAK,GAAI,MAAM,MAAM,KAAG,WAAuC,CAAC;AAC7E,eAAO,MAAM,KAAK,GAAI,MAAM,WAAW,EAAE,OAAO,WAAW,KAAG,WAI5D,CAAC;AACH,eAAO,MAAM,KAAK,GAAI,MAAM,WAAW,EAAE,OAAO,WAAW,KAAG,WAI5D,CAAC;AACH,eAAO,MAAM,KAAK,GAAI,KAAK,WAAW,KAAG,WAAsC,CAAC;AAEhF,eAAO,MAAM,MAAM,GACjB,QAAQ,WAAW,EACnB,MAAM,WAAW,EACjB,OAAO,WAAW,KACjB,WAKD,CAAC;AACH,eAAO,MAAM,KAAK,GAAI,MAAM,MAAM,EAAE,MAAM,WAAW,KAAG,WAItD,CAAC;AACH,eAAO,MAAM,KAAK,GAAI,MAAM,WAAW,EAAE,KAAK,WAAW,KAAG,WAI1D,CAAC;AAEH,eAAO,MAAM,KAAK,GAAI,OAAO,WAAW,EAAE,SAAS,WAAW,KAAG,WAI/D,CAAC;AAEH,eAAO,MAAM,IAAI,GAAI,MAAM,MAAM,KAAG,WAAsC,CAAC;AAC3E,eAAO,MAAM,SAAS,GAAI,cAAS,KAAG,WAA4C,CAAC;AACnF,eAAO,MAAM,GAAG,GAAI,MAAM,MAAM,EAAE,QAAQ,WAAW,EAAE,UAAU,WAAW,KAAG,WAK7E,CAAC;AACH,eAAO,MAAM,IAAI,GAAI,MAAM,MAAM,EAAE,QAAQ,WAAW,EAAE,MAAM,WAAW,KAAG,WAK1E,CAAC;AACH,eAAO,MAAM,IAAI,GAAI,IAAI,WAAW,EAAE,KAAK,WAAW,KAAG,WAAyC,CAAC;AACnG,eAAO,MAAM,MAAM,GAAI,MAAM,WAAW,EAAE,IAAI,WAAW,KAAG,WAAiC,CAAC;AAI9F,wBAAgB,cAAc,CAAC,CAAC,EAAE,WAAW,GAAG,OAAO,CActD;AAID,wBAAgB,iBAAiB,CAAC,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,WAAW,GAAG,OAAO,CAwC1E;AAED,wBAAgB,eAAe,CAAC,IAAI,EAAE,WAAW,EAAE,GAAG,GAAE,GAAG,CAAC,MAAM,CAAa,GAAG,GAAG,CAAC,MAAM,CAAC,CAyD5F;AAID,wBAAgB,mBAAmB,CAAC,CAAC,EAAE,WAAW,GAAG,MAAM,CAoC1D"}

package/dist/type-theory/cubical/types.js

@@ -0,0 +1,258 @@
+"use strict";
+// ============================================================
+// Cubical Type Theory (CTT-Lite) — términos y constructores
+// ============================================================
+//
+// Subset pedagógico de Cubical Type Theory. La diferencia esencial
+// con HoTT (homotopy type theory) es que aquí univalence pasa a ser
+// COMPUTACIONAL via:
+//
+//   - Un intervalo formal I con dos extremos i0, i1 y conexiones
+//     (∧ min, ∨ max) más involutiva (1 - i).
+//   - PathP A x y = caminos con familia dependiente sobre I.
+//   - Path-abstracción y aplicación (λi. t) @ i con reducción por
+//     sustitución de la variable de intervalo.
+//   - Glue como precursor sintáctico de transport sobre ua.
+//
+// Re-empaquetamos las construcciones MLTT mínimas que el subset
+// necesita (Π, λ, app, var, universo). Para evitar conflictos de
+// tipos con HoTT, este módulo es autocontenido: CubicalTerm vive en
+// su propio universo de tipos.
+//
+// API mínima compatible con MLTT/HoTT:
+//   inferType / normalize / isIntervalExpr / evalInterval
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.cArrow = exports.cApp = exports.cLam = exports.cPi = exports.cUniverse = exports.cVar = exports.cGlue = exports.cPApp = exports.cPLam = exports.cPathP = exports.cINeg = exports.cIMax = exports.cIMin = exports.cIVar = exports.cI1 = exports.cI0 = void 0;
+exports.isIntervalExpr = isIntervalExpr;
+exports.occursFreeCubical = occursFreeCubical;
+exports.freeVarsCubical = freeVarsCubical;
+exports.termToStringCubical = termToStringCubical;
+// ── Constructores convenientes ──────────────────────────────
+const cI0 = () => ({ kind: 'i0' });
+exports.cI0 = cI0;
+const cI1 = () => ({ kind: 'i1' });
+exports.cI1 = cI1;
+const cIVar = (name) => ({ kind: 'iVar', name });
+exports.cIVar = cIVar;
+const cIMin = (left, right) => ({
+    kind: 'iMin',
+    left,
+    right,
+});
+exports.cIMin = cIMin;
+const cIMax = (left, right) => ({
+    kind: 'iMax',
+    left,
+    right,
+});
+exports.cIMax = cIMax;
+const cINeg = (arg) => ({ kind: 'iNeg', arg });
+exports.cINeg = cINeg;
+const cPathP = (family, left, right) => ({
+    kind: 'pathP',
+    family,
+    left,
+    right,
+});
+exports.cPathP = cPathP;
+const cPLam = (bind, body) => ({
+    kind: 'pLam',
+    bind,
+    body,
+});
+exports.cPLam = cPLam;
+const cPApp = (path, arg) => ({
+    kind: 'pApp',
+    path,
+    arg,
+});
+exports.cPApp = cPApp;
+const cGlue = (equiv, partial) => ({
+    kind: 'glue',
+    equiv,
+    partial,
+});
+exports.cGlue = cGlue;
+const cVar = (name) => ({ kind: 'var', name });
+exports.cVar = cVar;
+const cUniverse = (level = 0) => ({ kind: 'universe', level });
+exports.cUniverse = cUniverse;
+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;
+const cArrow = (from, to) => (0, exports.cPi)('_', from, to);
+exports.cArrow = cArrow;
+// ── Discriminador de fragmentos del intervalo ───────────────
+function isIntervalExpr(t) {
+    switch (t.kind) {
+        case 'i0':
+        case 'i1':
+        case 'iVar':
+            return true;
+        case 'iMin':
+        case 'iMax':
+            return isIntervalExpr(t.left) && isIntervalExpr(t.right);
+        case 'iNeg':
+            return isIntervalExpr(t.arg);
+        default:
+            return false;
+    }
+}
+// ── Inspección estructural ───────────────────────────────────
+function occursFreeCubical(name, term) {
+    switch (term.kind) {
+        case 'i0':
+        case 'i1':
+        case 'universe':
+            return false;
+        case 'var':
+        case 'iVar':
+            return term.name === name;
+        case 'iMin':
+        case 'iMax':
+            return occursFreeCubical(name, term.left) || occursFreeCubical(name, term.right);
+        case 'iNeg':
+            return occursFreeCubical(name, term.arg);
+        case 'pathP':
+            return (occursFreeCubical(name, term.family) ||
+                occursFreeCubical(name, term.left) ||
+                occursFreeCubical(name, term.right));
+        case 'pLam':
+            if (term.bind === name)
+                return false;
+            return occursFreeCubical(name, term.body);
+        case 'pApp':
+            return occursFreeCubical(name, term.path) || occursFreeCubical(name, term.arg);
+        case 'glue':
+            return occursFreeCubical(name, term.equiv) || occursFreeCubical(name, term.partial);
+        case 'pi': {
+            if (occursFreeCubical(name, term.domain))
+                return true;
+            if (term.bind === name)
+                return false;
+            return occursFreeCubical(name, term.codomain);
+        }
+        case 'lam': {
+            if (occursFreeCubical(name, term.domain))
+                return true;
+            if (term.bind === name)
+                return false;
+            return occursFreeCubical(name, term.body);
+        }
+        case 'app':
+            return occursFreeCubical(name, term.fn) || occursFreeCubical(name, term.arg);
+    }
+}
+function freeVarsCubical(term, acc = new Set()) {
+    switch (term.kind) {
+        case 'i0':
+        case 'i1':
+        case 'universe':
+            break;
+        case 'var':
+        case 'iVar':
+            acc.add(term.name);
+            break;
+        case 'iMin':
+        case 'iMax':
+            freeVarsCubical(term.left, acc);
+            freeVarsCubical(term.right, acc);
+            break;
+        case 'iNeg':
+            freeVarsCubical(term.arg, acc);
+            break;
+        case 'pathP':
+            freeVarsCubical(term.family, acc);
+            freeVarsCubical(term.left, acc);
+            freeVarsCubical(term.right, acc);
+            break;
+        case 'pLam': {
+            const inner = freeVarsCubical(term.body);
+            inner.delete(term.bind);
+            for (const v of inner)
+                acc.add(v);
+            break;
+        }
+        case 'pApp':
+            freeVarsCubical(term.path, acc);
+            freeVarsCubical(term.arg, acc);
+            break;
+        case 'glue':
+            freeVarsCubical(term.equiv, acc);
+            freeVarsCubical(term.partial, acc);
+            break;
+        case 'pi': {
+            freeVarsCubical(term.domain, acc);
+            const inner = freeVarsCubical(term.codomain);
+            inner.delete(term.bind);
+            for (const v of inner)
+                acc.add(v);
+            break;
+        }
+        case 'lam': {
+            freeVarsCubical(term.domain, acc);
+            const inner = freeVarsCubical(term.body);
+            inner.delete(term.bind);
+            for (const v of inner)
+                acc.add(v);
+            break;
+        }
+        case 'app':
+            freeVarsCubical(term.fn, acc);
+            freeVarsCubical(term.arg, acc);
+            break;
+    }
+    return acc;
+}
+// ── Serialización ────────────────────────────────────────────
+function termToStringCubical(t) {
+    switch (t.kind) {
+        case 'i0':
+            return 'i0';
+        case 'i1':
+            return 'i1';
+        case 'iVar':
+            return t.name;
+        case 'iMin':
+            return `(${termToStringCubical(t.left)} ∧ ${termToStringCubical(t.right)})`;
+        case 'iMax':
+            return `(${termToStringCubical(t.left)} ∨ ${termToStringCubical(t.right)})`;
+        case 'iNeg':
+            return `~${termToStringCubical(t.arg)}`;
+        case 'pathP':
+            return `PathP(${termToStringCubical(t.family)}, ${termToStringCubical(t.left)}, ${termToStringCubical(t.right)})`;
+        case 'pLam':
+            return `(λi:I. ${t.bind} → ${termToStringCubical(t.body)})`;
+        case 'pApp':
+            return `(${termToStringCubical(t.path)} @ ${termToStringCubical(t.arg)})`;
+        case 'glue':
+            return `glue(${termToStringCubical(t.equiv)}, ${termToStringCubical(t.partial)})`;
+        case 'var':
+            return t.name;
+        case 'universe':
+            return t.level === 0 ? 'Type' : `Type ${t.level}`;
+        case 'pi':
+            if (t.bind === '_' || !occursFreeCubical(t.bind, t.codomain)) {
+                return `(${termToStringCubical(t.domain)} → ${termToStringCubical(t.codomain)})`;
+            }
+            return `(Π (${t.bind} : ${termToStringCubical(t.domain)}). ${termToStringCubical(t.codomain)})`;
+        case 'lam':
+            return `(λ (${t.bind} : ${termToStringCubical(t.domain)}). ${termToStringCubical(t.body)})`;
+        case 'app':
+            return `(${termToStringCubical(t.fn)} ${termToStringCubical(t.arg)})`;
+    }
+}
+//# sourceMappingURL=types.js.map

package/dist/type-theory/cubical/types.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"types.js","sourceRoot":"","sources":["../../../src/type-theory/cubical/types.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,4DAA4D;AAC5D,+DAA+D;AAC/D,EAAE;AACF,mEAAmE;AACnE,oEAAoE;AACpE,qBAAqB;AACrB,EAAE;AACF,iEAAiE;AACjE,6CAA6C;AAC7C,6DAA6D;AAC7D,kEAAkE;AAClE,+CAA+C;AAC/C,4DAA4D;AAC5D,EAAE;AACF,gEAAgE;AAChE,iEAAiE;AACjE,oEAAoE;AACpE,+BAA+B;AAC/B,EAAE;AACF,uCAAuC;AACvC,0DAA0D;;;AAsF1D,wCAcC;AAID,8CAwCC;AAED,0CAyDC;AAID,kDAoCC;AA5ND,+DAA+D;AAExD,MAAM,GAAG,GAAG,GAAgB,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,IAAI,EAAE,CAAC,CAAC;AAA1C,QAAA,GAAG,OAAuC;AAChD,MAAM,GAAG,GAAG,GAAgB,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,IAAI,EAAE,CAAC,CAAC;AAA1C,QAAA,GAAG,OAAuC;AAChD,MAAM,KAAK,GAAG,CAAC,IAAY,EAAe,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,CAAC,CAAC;AAAhE,QAAA,KAAK,SAA2D;AACtE,MAAM,KAAK,GAAG,CAAC,IAAiB,EAAE,KAAkB,EAAe,EAAE,CAAC,CAAC;IAC5E,IAAI,EAAE,MAAM;IACZ,IAAI;IACJ,KAAK;CACN,CAAC,CAAC;AAJU,QAAA,KAAK,SAIf;AACI,MAAM,KAAK,GAAG,CAAC,IAAiB,EAAE,KAAkB,EAAe,EAAE,CAAC,CAAC;IAC5E,IAAI,EAAE,MAAM;IACZ,IAAI;IACJ,KAAK;CACN,CAAC,CAAC;AAJU,QAAA,KAAK,SAIf;AACI,MAAM,KAAK,GAAG,CAAC,GAAgB,EAAe,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,GAAG,EAAE,CAAC,CAAC;AAAnE,QAAA,KAAK,SAA8D;AAEzE,MAAM,MAAM,GAAG,CACpB,MAAmB,EACnB,IAAiB,EACjB,KAAkB,EACL,EAAE,CAAC,CAAC;IACjB,IAAI,EAAE,OAAO;IACb,MAAM;IACN,IAAI;IACJ,KAAK;CACN,CAAC,CAAC;AATU,QAAA,MAAM,UAShB;AACI,MAAM,KAAK,GAAG,CAAC,IAAY,EAAE,IAAiB,EAAe,EAAE,CAAC,CAAC;IACtE,IAAI,EAAE,MAAM;IACZ,IAAI;IACJ,IAAI;CACL,CAAC,CAAC;AAJU,QAAA,KAAK,SAIf;AACI,MAAM,KAAK,GAAG,CAAC,IAAiB,EAAE,GAAgB,EAAe,EAAE,CAAC,CAAC;IAC1E,IAAI,EAAE,MAAM;IACZ,IAAI;IACJ,GAAG;CACJ,CAAC,CAAC;AAJU,QAAA,KAAK,SAIf;AAEI,MAAM,KAAK,GAAG,CAAC,KAAkB,EAAE,OAAoB,EAAe,EAAE,CAAC,CAAC;IAC/E,IAAI,EAAE,MAAM;IACZ,KAAK;IACL,OAAO;CACR,CAAC,CAAC;AAJU,QAAA,KAAK,SAIf;AAEI,MAAM,IAAI,GAAG,CAAC,IAAY,EAAe,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,CAAC,CAAC;AAA9D,QAAA,IAAI,QAA0D;AACpE,MAAM,SAAS,GAAG,CAAC,KAAK,GAAG,CAAC,EAAe,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,UAAU,EAAE,KAAK,EAAE,CAAC,CAAC;AAAtE,QAAA,SAAS,aAA6D;AAC5E,MAAM,GAAG,GAAG,CAAC,IAAY,EAAE,MAAmB,EAAE,QAAqB,EAAe,EAAE,CAAC,CAAC;IAC7F,IAAI,EAAE,IAAI;IACV,IAAI;IACJ,MAAM;IACN,QAAQ;CACT,CAAC,CAAC;AALU,QAAA,GAAG,OAKb;AACI,MAAM,IAAI,GAAG,CAAC,IAAY,EAAE,MAAmB,EAAE,IAAiB,EAAe,EAAE,CAAC,CAAC;IAC1F,IAAI,EAAE,KAAK;IACX,IAAI;IACJ,MAAM;IACN,IAAI;CACL,CAAC,CAAC;AALU,QAAA,IAAI,QAKd;AACI,MAAM,IAAI,GAAG,CAAC,EAAe,EAAE,GAAgB,EAAe,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,KAAK,EAAE,EAAE,EAAE,GAAG,EAAE,CAAC,CAAC;AAAtF,QAAA,IAAI,QAAkF;AAC5F,MAAM,MAAM,GAAG,CAAC,IAAiB,EAAE,EAAe,EAAe,EAAE,CAAC,IAAA,WAAG,EAAC,GAAG,EAAE,IAAI,EAAE,EAAE,CAAC,CAAC;AAAjF,QAAA,MAAM,UAA2E;AAE9F,+DAA+D;AAE/D,SAAgB,cAAc,CAAC,CAAc;IAC3C,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;QACf,KAAK,IAAI,CAAC;QACV,KAAK,IAAI,CAAC;QACV,KAAK,MAAM;YACT,OAAO,IAAI,CAAC;QACd,KAAK,MAAM,CAAC;QACZ,KAAK,MAAM;YACT,OAAO,cAAc,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,cAAc,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC;QAC3D,KAAK,MAAM;YACT,OAAO,cAAc,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC;QAC/B;YACE,OAAO,KAAK,CAAC;IACjB,CAAC;AACH,CAAC;AAED,gEAAgE;AAEhE,SAAgB,iBAAiB,CAAC,IAAY,EAAE,IAAiB;IAC/D,QAAQ,IAAI,CAAC,IAAI,EAAE,CAAC;QAClB,KAAK,IAAI,CAAC;QACV,KAAK,IAAI,CAAC;QACV,KAAK,UAAU;YACb,OAAO,KAAK,CAAC;QACf,KAAK,KAAK,CAAC;QACX,KAAK,MAAM;YACT,OAAO,IAAI,CAAC,IAAI,KAAK,IAAI,CAAC;QAC5B,KAAK,MAAM,CAAC;QACZ,KAAK,MAAM;YACT,OAAO,iBAAiB,CAAC,IAAI,EAAE,IAAI,CAAC,IAAI,CAAC,IAAI,iBAAiB,CAAC,IAAI,EAAE,IAAI,CAAC,KAAK,CAAC,CAAC;QACnF,KAAK,MAAM;YACT,OAAO,iBAAiB,CAAC,IAAI,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC;QAC3C,KAAK,OAAO;YACV,OAAO,CACL,iBAAiB,CAAC,IAAI,EAAE,IAAI,CAAC,MAAM,CAAC;gBACpC,iBAAiB,CAAC,IAAI,EAAE,IAAI,CAAC,IAAI,CAAC;gBAClC,iBAAiB,CAAC,IAAI,EAAE,IAAI,CAAC,KAAK,CAAC,CACpC,CAAC;QACJ,KAAK,MAAM;YACT,IAAI,IAAI,CAAC,IAAI,KAAK,IAAI;gBAAE,OAAO,KAAK,CAAC;YACrC,OAAO,iBAAiB,CAAC,IAAI,EAAE,IAAI,CAAC,IAAI,CAAC,CAAC;QAC5C,KAAK,MAAM;YACT,OAAO,iBAAiB,CAAC,IAAI,EAAE,IAAI,CAAC,IAAI,CAAC,IAAI,iBAAiB,CAAC,IAAI,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC;QACjF,KAAK,MAAM;YACT,OAAO,iBAAiB,CAAC,IAAI,EAAE,IAAI,CAAC,KAAK,CAAC,IAAI,iBAAiB,CAAC,IAAI,EAAE,IAAI,CAAC,OAAO,CAAC,CAAC;QACtF,KAAK,IAAI,CAAC,CAAC,CAAC;YACV,IAAI,iBAAiB,CAAC,IAAI,EAAE,IAAI,CAAC,MAAM,CAAC;gBAAE,OAAO,IAAI,CAAC;YACtD,IAAI,IAAI,CAAC,IAAI,KAAK,IAAI;gBAAE,OAAO,KAAK,CAAC;YACrC,OAAO,iBAAiB,CAAC,IAAI,EAAE,IAAI,CAAC,QAAQ,CAAC,CAAC;QAChD,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,IAAI,iBAAiB,CAAC,IAAI,EAAE,IAAI,CAAC,MAAM,CAAC;gBAAE,OAAO,IAAI,CAAC;YACtD,IAAI,IAAI,CAAC,IAAI,KAAK,IAAI;gBAAE,OAAO,KAAK,CAAC;YACrC,OAAO,iBAAiB,CAAC,IAAI,EAAE,IAAI,CAAC,IAAI,CAAC,CAAC;QAC5C,CAAC;QACD,KAAK,KAAK;YACR,OAAO,iBAAiB,CAAC,IAAI,EAAE,IAAI,CAAC,EAAE,CAAC,IAAI,iBAAiB,CAAC,IAAI,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC;IACjF,CAAC;AACH,CAAC;AAED,SAAgB,eAAe,CAAC,IAAiB,EAAE,MAAmB,IAAI,GAAG,EAAE;IAC7E,QAAQ,IAAI,CAAC,IAAI,EAAE,CAAC;QAClB,KAAK,IAAI,CAAC;QACV,KAAK,IAAI,CAAC;QACV,KAAK,UAAU;YACb,MAAM;QACR,KAAK,KAAK,CAAC;QACX,KAAK,MAAM;YACT,GAAG,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACnB,MAAM;QACR,KAAK,MAAM,CAAC;QACZ,KAAK,MAAM;YACT,eAAe,CAAC,IAAI,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YAChC,eAAe,CAAC,IAAI,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC;YACjC,MAAM;QACR,KAAK,MAAM;YACT,eAAe,CAAC,IAAI,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YAC/B,MAAM;QACR,KAAK,OAAO;YACV,eAAe,CAAC,IAAI,CAAC,MAAM,EAAE,GAAG,CAAC,CAAC;YAClC,eAAe,CAAC,IAAI,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YAChC,eAAe,CAAC,IAAI,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC;YACjC,MAAM;QACR,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,MAAM,KAAK,GAAG,eAAe,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACzC,KAAK,CAAC,MAAM,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACxB,KAAK,MAAM,CAAC,IAAI,KAAK;gBAAE,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;YAClC,MAAM;QACR,CAAC;QACD,KAAK,MAAM;YACT,eAAe,CAAC,IAAI,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YAChC,eAAe,CAAC,IAAI,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YAC/B,MAAM;QACR,KAAK,MAAM;YACT,eAAe,CAAC,IAAI,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC;YACjC,eAAe,CAAC,IAAI,CAAC,OAAO,EAAE,GAAG,CAAC,CAAC;YACnC,MAAM;QACR,KAAK,IAAI,CAAC,CAAC,CAAC;YACV,eAAe,CAAC,IAAI,CAAC,MAAM,EAAE,GAAG,CAAC,CAAC;YAClC,MAAM,KAAK,GAAG,eAAe,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC;YAC7C,KAAK,CAAC,MAAM,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACxB,KAAK,MAAM,CAAC,IAAI,KAAK;gBAAE,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;YAClC,MAAM;QACR,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,eAAe,CAAC,IAAI,CAAC,MAAM,EAAE,GAAG,CAAC,CAAC;YAClC,MAAM,KAAK,GAAG,eAAe,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACzC,KAAK,CAAC,MAAM,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACxB,KAAK,MAAM,CAAC,IAAI,KAAK;gBAAE,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;YAClC,MAAM;QACR,CAAC;QACD,KAAK,KAAK;YACR,eAAe,CAAC,IAAI,CAAC,EAAE,EAAE,GAAG,CAAC,CAAC;YAC9B,eAAe,CAAC,IAAI,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YAC/B,MAAM;IACV,CAAC;IACD,OAAO,GAAG,CAAC;AACb,CAAC;AAED,gEAAgE;AAEhE,SAAgB,mBAAmB,CAAC,CAAc;IAChD,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;QACf,KAAK,IAAI;YACP,OAAO,IAAI,CAAC;QACd,KAAK,IAAI;YACP,OAAO,IAAI,CAAC;QACd,KAAK,MAAM;YACT,OAAO,CAAC,CAAC,IAAI,CAAC;QAChB,KAAK,MAAM;YACT,OAAO,IAAI,mBAAmB,CAAC,CAAC,CAAC,IAAI,CAAC,MAAM,mBAAmB,CAAC,CAAC,CAAC,KAAK,CAAC,GAAG,CAAC;QAC9E,KAAK,MAAM;YACT,OAAO,IAAI,mBAAmB,CAAC,CAAC,CAAC,IAAI,CAAC,MAAM,mBAAmB,CAAC,CAAC,CAAC,KAAK,CAAC,GAAG,CAAC;QAC9E,KAAK,MAAM;YACT,OAAO,IAAI,mBAAmB,CAAC,CAAC,CAAC,GAAG,CAAC,EAAE,CAAC;QAC1C,KAAK,OAAO;YACV,OAAO,SAAS,mBAAmB,CAAC,CAAC,CAAC,MAAM,CAAC,KAAK,mBAAmB,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,mBAAmB,CAAC,CAAC,CAAC,KAAK,CAAC,GAAG,CAAC;QACpH,KAAK,MAAM;YACT,OAAO,UAAU,CAAC,CAAC,IAAI,MAAM,mBAAmB,CAAC,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC;QAC9D,KAAK,MAAM;YACT,OAAO,IAAI,mBAAmB,CAAC,CAAC,CAAC,IAAI,CAAC,MAAM,mBAAmB,CAAC,CAAC,CAAC,GAAG,CAAC,GAAG,CAAC;QAC5E,KAAK,MAAM;YACT,OAAO,QAAQ,mBAAmB,CAAC,CAAC,CAAC,KAAK,CAAC,KAAK,mBAAmB,CAAC,CAAC,CAAC,OAAO,CAAC,GAAG,CAAC;QACpF,KAAK,KAAK;YACR,OAAO,CAAC,CAAC,IAAI,CAAC;QAChB,KAAK,UAAU;YACb,OAAO,CAAC,CAAC,KAAK,KAAK,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,KAAK,EAAE,CAAC;QACpD,KAAK,IAAI;YACP,IAAI,CAAC,CAAC,IAAI,KAAK,GAAG,IAAI,CAAC,iBAAiB,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC,QAAQ,CAAC,EAAE,CAAC;gBAC7D,OAAO,IAAI,mBAAmB,CAAC,CAAC,CAAC,MAAM,CAAC,MAAM,mBAAmB,CAAC,CAAC,CAAC,QAAQ,CAAC,GAAG,CAAC;YACnF,CAAC;YACD,OAAO,OAAO,CAAC,CAAC,IAAI,MAAM,mBAAmB,CAAC,CAAC,CAAC,MAAM,CAAC,MAAM,mBAAmB,CAAC,CAAC,CAAC,QAAQ,CAAC,GAAG,CAAC;QAClG,KAAK,KAAK;YACR,OAAO,OAAO,CAAC,CAAC,IAAI,MAAM,mBAAmB,CAAC,CAAC,CAAC,MAAM,CAAC,MAAM,mBAAmB,CAAC,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC;QAC9F,KAAK,KAAK;YACR,OAAO,IAAI,mBAAmB,CAAC,CAAC,CAAC,EAAE,CAAC,IAAI,mBAAmB,CAAC,CAAC,CAAC,GAAG,CAAC,GAAG,CAAC;IAC1E,CAAC;AACH,CAAC"}

package/dist/type-theory/effects/core.d.ts

@@ -0,0 +1,27 @@
+import type { Eff, Effect, Handler } from './types';
+/** Inyecta un valor puro en la mónada. */
+export declare function pure<A>(value: A): Eff<never, A>;
+/**
+ * Construye una computación que ejecuta una operación `tag` con `input`
+ * y entrega su resultado al consumidor. La continuación es la identidad:
+ * "haz la operación y devuelve su salida".
+ */
+export declare function perform<EName extends string, I, O>(tag: EName, input: I): Eff<Effect<EName, I, O>, O>;
+/** Bind monádico (>>= en notación de Haskell). */
+export declare function bind<E, A, B>(eff: Eff<E, A>, fn: (a: A) => Eff<E, B>): Eff<E, B>;
+/** Alias funtorial: aplica una función pura al resultado. */
+export declare function map<E, A, B>(eff: Eff<E, A>, fn: (a: A) => B): Eff<E, B>;
+/** Secuencia una lista de computaciones y colecta sus resultados. */
+export declare function sequence<E, A>(effs: ReadonlyArray<Eff<E, A>>): Eff<E, A[]>;
+/**
+ * Interpreta un efecto concreto. Recorre el árbol: las hojas `pure`
+ * pasan tal cual; los nodos `impure` cuyo `tag` coincida con el
+ * handler son delegados a `handle`; el resto se propaga.
+ */
+export declare function handle<E1, E2, A>(eff: Eff<E1, A>, handler: Handler<string, unknown, unknown, E2, A>): Eff<E2, A>;
+/**
+ * Extrae el valor de una computación 100% pura. Lanza si quedan efectos
+ * sin interpretar — útil tras componer todos los handlers.
+ */
+export declare function run<A>(eff: Eff<never, A>): A;
+//# sourceMappingURL=core.d.ts.map

package/dist/type-theory/effects/core.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"core.d.ts","sourceRoot":"","sources":["../../../src/type-theory/effects/core.ts"],"names":[],"mappings":"AAIA,OAAO,KAAK,EAAE,GAAG,EAAE,MAAM,EAAE,OAAO,EAAE,MAAM,SAAS,CAAC;AAEpD,0CAA0C;AAC1C,wBAAgB,IAAI,CAAC,CAAC,EAAE,KAAK,EAAE,CAAC,GAAG,GAAG,CAAC,KAAK,EAAE,CAAC,CAAC,CAE/C;AAED;;;;GAIG;AACH,wBAAgB,OAAO,CAAC,KAAK,SAAS,MAAM,EAAE,CAAC,EAAE,CAAC,EAChD,GAAG,EAAE,KAAK,EACV,KAAK,EAAE,CAAC,GACP,GAAG,CAAC,MAAM,CAAC,KAAK,EAAE,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC,CAAC,CAO7B;AAED,kDAAkD;AAClD,wBAAgB,IAAI,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,GAAG,EAAE,GAAG,CAAC,CAAC,EAAE,CAAC,CAAC,EAAE,EAAE,EAAE,CAAC,CAAC,EAAE,CAAC,KAAK,GAAG,CAAC,CAAC,EAAE,CAAC,CAAC,GAAG,GAAG,CAAC,CAAC,EAAE,CAAC,CAAC,CAShF;AAED,6DAA6D;AAC7D,wBAAgB,GAAG,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,GAAG,EAAE,GAAG,CAAC,CAAC,EAAE,CAAC,CAAC,EAAE,EAAE,EAAE,CAAC,CAAC,EAAE,CAAC,KAAK,CAAC,GAAG,GAAG,CAAC,CAAC,EAAE,CAAC,CAAC,CAEvE;AAED,qEAAqE;AACrE,wBAAgB,QAAQ,CAAC,CAAC,EAAE,CAAC,EAAE,IAAI,EAAE,aAAa,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,GAAG,GAAG,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAK1E;AAED;;;;GAIG;AACH,wBAAgB,MAAM,CAAC,EAAE,EAAE,EAAE,EAAE,CAAC,EAC9B,GAAG,EAAE,GAAG,CAAC,EAAE,EAAE,CAAC,CAAC,EACf,OAAO,EAAE,OAAO,CAAC,MAAM,EAAE,OAAO,EAAE,OAAO,EAAE,EAAE,EAAE,CAAC,CAAC,GAChD,GAAG,CAAC,EAAE,EAAE,CAAC,CAAC,CAeZ;AAED;;;GAGG;AACH,wBAAgB,GAAG,CAAC,CAAC,EAAE,GAAG,EAAE,GAAG,CAAC,KAAK,EAAE,CAAC,CAAC,GAAG,CAAC,CAG5C"}