@stevenvo780/st-lang 4.3.0 → 4.4.0

package/dist/mltt/infer.js

@@ -0,0 +1,269 @@
+"use strict";
+// ============================================================
+// MLTT — Inferencia / chequeo de tipos bidireccional simplificado
+// ============================================================
+//
+// Reglas implementadas (informalmente):
+//
+//   ── (Var)
+//   Γ, x : A ⊢ x : A
+//
+//   ── (Universe)        Type i : Type (i+1)
+//
+//   Γ ⊢ A : Type i    Γ, x : A ⊢ B : Type j
+//   ── (Π-form)        Π (x : A). B : Type max(i,j)
+//
+//   Γ, x : A ⊢ M : B
+//   ── (Π-intro)         λ (x : A). M : Π (x : A). B
+//
+//   Γ ⊢ f : Π (x : A). B    Γ ⊢ a : A
+//   ── (Π-elim)             f a : B[a/x]
+//
+//   Γ ⊢ A : Type i   Γ, x : A ⊢ B : Type j
+//   ── (Σ-form)            Σ (x : A). B : Type max(i,j)
+//
+//   Γ ⊢ a : A   Γ ⊢ b : B[a/x]   (Σ (x : A). B)
+//   ── (Σ-intro)              ⟨a,b⟩ : Σ (x:A). B
+//   * Simplificación: como `pair` no lleva anotación del Σ esperado,
+//     en inferencia devolvemos `Σ (_ : A). B` con B independiente
+//     (igual al tipo inferido para `b`). Para Σ dependiente se debe
+//     usar `checkType` con el Σ esperado.
+//
+//   Γ ⊢ p : Σ (x : A). B
+//   ── (Σ-elim-1)             fst p : A
+//   ── (Σ-elim-2)             snd p : B[fst p / x]
+//
+//   Γ ⊢ A : Type i   Γ ⊢ a : A   Γ ⊢ b : A
+//   ── (Id-form)              Id(A, a, b) : Type i
+//
+//   Γ ⊢ a : A
+//   ── (Id-intro)             refl(a) : Id(A, a, a)
+//
+//   ── (Nat)                  Nat : Type 0
+//   ── (zero)                 zero : Nat
+//   Γ ⊢ n : Nat
+//   ── (succ)                 succ n : Nat
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.isInferError = isInferError;
+exports.inferType = inferType;
+exports.checkType = checkType;
+const types_1 = require("./types");
+const substitute_1 = require("./substitute");
+const normalize_1 = require("./normalize");
+const equality_1 = require("./equality");
+function isInferError(r) {
+    return typeof r === 'object' && r !== null && 'error' in r && typeof r.error === 'string';
+}
+const emptyCtx = () => new Map();
+/** Infiere el tipo de `term` o devuelve un error legible. */
+function inferType(term, ctx = emptyCtx()) {
+    switch (term.kind) {
+        case 'var': {
+            const t = ctx.get(term.name);
+            if (!t)
+                return { error: `variable libre sin tipo en contexto: '${term.name}'` };
+            return t;
+        }
+        case 'universe':
+            return (0, types_1.mUniverse)(term.level + 1);
+        case 'nat':
+            return (0, types_1.mUniverse)(0);
+        case 'zero':
+            return (0, types_1.mNat)();
+        case 'succ': {
+            const argT = inferType(term.arg, ctx);
+            if (isInferError(argT))
+                return argT;
+            if (!isNat(argT)) {
+                return { error: `succ espera Nat, recibí: ${(0, types_1.termToString)(argT)}` };
+            }
+            return (0, types_1.mNat)();
+        }
+        case 'pi': {
+            const domT = inferType(term.domain, ctx);
+            if (isInferError(domT))
+                return domT;
+            const i = universeLevel(domT);
+            if (i === null) {
+                return {
+                    error: `dominio de Π no es un universo: ${(0, types_1.termToString)(term.domain)} : ${(0, types_1.termToString)(domT)}`,
+                };
+            }
+            const newCtx = extend(ctx, term.bind, term.domain);
+            const codT = inferType(term.codomain, newCtx);
+            if (isInferError(codT))
+                return codT;
+            const j = universeLevel(codT);
+            if (j === null) {
+                return {
+                    error: `codominio de Π no es un universo: ${(0, types_1.termToString)(term.codomain)} : ${(0, types_1.termToString)(codT)}`,
+                };
+            }
+            return (0, types_1.mUniverse)(Math.max(i, j));
+        }
+        case 'sigma': {
+            const fT = inferType(term.first, ctx);
+            if (isInferError(fT))
+                return fT;
+            const i = universeLevel(fT);
+            if (i === null) {
+                return {
+                    error: `primer componente de Σ no es un universo: ${(0, types_1.termToString)(term.first)} : ${(0, types_1.termToString)(fT)}`,
+                };
+            }
+            const newCtx = extend(ctx, term.bind, term.first);
+            const sT = inferType(term.second, newCtx);
+            if (isInferError(sT))
+                return sT;
+            const j = universeLevel(sT);
+            if (j === null) {
+                return {
+                    error: `segundo componente de Σ no es un universo: ${(0, types_1.termToString)(term.second)} : ${(0, types_1.termToString)(sT)}`,
+                };
+            }
+            return (0, types_1.mUniverse)(Math.max(i, j));
+        }
+        case 'lam': {
+            // Chequeamos que `domain` sea un tipo (vive en algún universo).
+            const domT = inferType(term.domain, ctx);
+            if (isInferError(domT))
+                return domT;
+            if (universeLevel(domT) === null) {
+                return {
+                    error: `anotación de λ no es un tipo: ${(0, types_1.termToString)(term.domain)} : ${(0, types_1.termToString)(domT)}`,
+                };
+            }
+            const newCtx = extend(ctx, term.bind, term.domain);
+            const bodyT = inferType(term.body, newCtx);
+            if (isInferError(bodyT))
+                return bodyT;
+            return { kind: 'pi', bind: term.bind, domain: term.domain, codomain: bodyT };
+        }
+        case 'app': {
+            const fnT = inferType(term.fn, ctx);
+            if (isInferError(fnT))
+                return fnT;
+            const fnTNorm = (0, normalize_1.normalize)(fnT);
+            if (fnTNorm.kind !== 'pi') {
+                return { error: `aplicación requiere Π, encontré: ${(0, types_1.termToString)(fnTNorm)}` };
+            }
+            const argT = inferType(term.arg, ctx);
+            if (isInferError(argT))
+                return argT;
+            if (!(0, equality_1.alphaBetaEq)(fnTNorm.domain, argT)) {
+                return {
+                    error: `tipo de argumento no coincide: esperaba ${(0, types_1.termToString)(fnTNorm.domain)}, obtuve ${(0, types_1.termToString)(argT)}`,
+                };
+            }
+            return (0, substitute_1.substitute)(fnTNorm.codomain, fnTNorm.bind, term.arg);
+        }
+        case 'pair': {
+            const aT = inferType(term.fst, ctx);
+            if (isInferError(aT))
+                return aT;
+            const bT = inferType(term.snd, ctx);
+            if (isInferError(bT))
+                return bT;
+            // No-dependent Σ por defecto. Para Σ dependiente, usar checkType.
+            return { kind: 'sigma', bind: '_', first: aT, second: bT };
+        }
+        case 'fst': {
+            const pT = inferType(term.pair, ctx);
+            if (isInferError(pT))
+                return pT;
+            const pTNorm = (0, normalize_1.normalize)(pT);
+            if (pTNorm.kind !== 'sigma') {
+                return { error: `fst espera Σ, recibí: ${(0, types_1.termToString)(pTNorm)}` };
+            }
+            return pTNorm.first;
+        }
+        case 'snd': {
+            const pT = inferType(term.pair, ctx);
+            if (isInferError(pT))
+                return pT;
+            const pTNorm = (0, normalize_1.normalize)(pT);
+            if (pTNorm.kind !== 'sigma') {
+                return { error: `snd espera Σ, recibí: ${(0, types_1.termToString)(pTNorm)}` };
+            }
+            // B[fst p / x]
+            return (0, substitute_1.substitute)(pTNorm.second, pTNorm.bind, { kind: 'fst', pair: term.pair });
+        }
+        case 'identity': {
+            const typeT = inferType(term.type, ctx);
+            if (isInferError(typeT))
+                return typeT;
+            const i = universeLevel(typeT);
+            if (i === null) {
+                return { error: `argumento A de Id no es un tipo: ${(0, types_1.termToString)(term.type)}` };
+            }
+            const lT = inferType(term.left, ctx);
+            if (isInferError(lT))
+                return lT;
+            if (!(0, equality_1.alphaBetaEq)(lT, term.type)) {
+                return {
+                    error: `lado izquierdo de Id tiene tipo ${(0, types_1.termToString)(lT)}, esperaba ${(0, types_1.termToString)(term.type)}`,
+                };
+            }
+            const rT = inferType(term.right, ctx);
+            if (isInferError(rT))
+                return rT;
+            if (!(0, equality_1.alphaBetaEq)(rT, term.type)) {
+                return {
+                    error: `lado derecho de Id tiene tipo ${(0, types_1.termToString)(rT)}, esperaba ${(0, types_1.termToString)(term.type)}`,
+                };
+            }
+            return (0, types_1.mUniverse)(i);
+        }
+        case 'refl': {
+            const aT = inferType(term.term, ctx);
+            if (isInferError(aT))
+                return aT;
+            return { kind: 'identity', type: aT, left: term.term, right: term.term };
+        }
+    }
+}
+/**
+ * Chequea que `term` tenga el tipo `expected` (bajo αβ-equality).
+ * Implementa el modo "check" donde para `pair` se conoce el Σ esperado
+ * y se permite la dependencia del segundo componente.
+ */
+function checkType(term, expected, ctx = emptyCtx()) {
+    const expectedNorm = (0, normalize_1.normalize)(expected);
+    // Caso especial: `pair` contra un Σ dependiente.
+    if (term.kind === 'pair' && expectedNorm.kind === 'sigma') {
+        if (!checkType(term.fst, expectedNorm.first, ctx))
+            return false;
+        const expectedSnd = (0, substitute_1.substitute)(expectedNorm.second, expectedNorm.bind, term.fst);
+        return checkType(term.snd, expectedSnd, ctx);
+    }
+    // Caso especial: `lam` contra un Π — propaga el dominio esperado
+    // si la anotación del λ falta o coincide.
+    if (term.kind === 'lam' && expectedNorm.kind === 'pi') {
+        if (!(0, equality_1.alphaBetaEq)(term.domain, expectedNorm.domain))
+            return false;
+        const newCtx = extend(ctx, term.bind, term.domain);
+        // Renombrar binder esperado al del λ si difieren.
+        const expectedBody = expectedNorm.bind === term.bind
+            ? expectedNorm.codomain
+            : (0, substitute_1.substitute)(expectedNorm.codomain, expectedNorm.bind, { kind: 'var', name: term.bind });
+        return checkType(term.body, expectedBody, newCtx);
+    }
+    const inferred = inferType(term, ctx);
+    if (isInferError(inferred))
+        return false;
+    return (0, equality_1.alphaBetaEq)(inferred, expected);
+}
+// ---------- Helpers internos ----------
+function extend(ctx, name, type) {
+    const next = new Map(ctx);
+    next.set(name, type);
+    return next;
+}
+function isNat(t) {
+    return (0, normalize_1.normalize)(t).kind === 'nat';
+}
+function universeLevel(t) {
+    const n = (0, normalize_1.normalize)(t);
+    return n.kind === 'universe' ? n.level : null;
+}
+//# sourceMappingURL=infer.js.map

package/dist/mltt/infer.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"infer.js","sourceRoot":"","sources":["../../src/mltt/infer.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,kEAAkE;AAClE,+DAA+D;AAC/D,EAAE;AACF,wCAAwC;AACxC,EAAE;AACF,aAAa;AACb,qBAAqB;AACrB,EAAE;AACF,6CAA6C;AAC7C,EAAE;AACF,4CAA4C;AAC5C,oDAAoD;AACpD,EAAE;AACF,qBAAqB;AACrB,qDAAqD;AACrD,EAAE;AACF,sCAAsC;AACtC,yCAAyC;AACzC,EAAE;AACF,2CAA2C;AAC3C,wDAAwD;AACxD,EAAE;AACF,gDAAgD;AAChD,iDAAiD;AACjD,qEAAqE;AACrE,kEAAkE;AAClE,oEAAoE;AACpE,0CAA0C;AAC1C,EAAE;AACF,yBAAyB;AACzB,wCAAwC;AACxC,mDAAmD;AACnD,EAAE;AACF,2CAA2C;AAC3C,mDAAmD;AACnD,EAAE;AACF,cAAc;AACd,oDAAoD;AACpD,EAAE;AACF,2CAA2C;AAC3C,yCAAyC;AACzC,gBAAgB;AAChB,2CAA2C;;AAW3C,oCAEC;AAKD,8BAmJC;AAOD,8BA8BC;AAvMD,mCAAwD;AACxD,6CAA0C;AAC1C,2CAAwC;AACxC,yCAAyC;AAKzC,SAAgB,YAAY,CAAC,CAAc;IACzC,OAAO,OAAO,CAAC,KAAK,QAAQ,IAAI,CAAC,KAAK,IAAI,IAAI,OAAO,IAAI,CAAC,IAAI,OAAO,CAAC,CAAC,KAAK,KAAK,QAAQ,CAAC;AAC5F,CAAC;AAED,MAAM,QAAQ,GAAG,GAAiB,EAAE,CAAC,IAAI,GAAG,EAAE,CAAC;AAE/C,6DAA6D;AAC7D,SAAgB,SAAS,CAAC,IAAc,EAAE,MAAoB,QAAQ,EAAE;IACtE,QAAQ,IAAI,CAAC,IAAI,EAAE,CAAC;QAClB,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,CAAC,GAAG,GAAG,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YAC7B,IAAI,CAAC,CAAC;gBAAE,OAAO,EAAE,KAAK,EAAE,yCAAyC,IAAI,CAAC,IAAI,GAAG,EAAE,CAAC;YAChF,OAAO,CAAC,CAAC;QACX,CAAC;QACD,KAAK,UAAU;YACb,OAAO,IAAA,iBAAS,EAAC,IAAI,CAAC,KAAK,GAAG,CAAC,CAAC,CAAC;QACnC,KAAK,KAAK;YACR,OAAO,IAAA,iBAAS,EAAC,CAAC,CAAC,CAAC;QACtB,KAAK,MAAM;YACT,OAAO,IAAA,YAAI,GAAE,CAAC;QAChB,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,MAAM,IAAI,GAAG,SAAS,CAAC,IAAI,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YACtC,IAAI,YAAY,CAAC,IAAI,CAAC;gBAAE,OAAO,IAAI,CAAC;YACpC,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,EAAE,CAAC;gBACjB,OAAO,EAAE,KAAK,EAAE,4BAA4B,IAAA,oBAAY,EAAC,IAAI,CAAC,EAAE,EAAE,CAAC;YACrE,CAAC;YACD,OAAO,IAAA,YAAI,GAAE,CAAC;QAChB,CAAC;QACD,KAAK,IAAI,CAAC,CAAC,CAAC;YACV,MAAM,IAAI,GAAG,SAAS,CAAC,IAAI,CAAC,MAAM,EAAE,GAAG,CAAC,CAAC;YACzC,IAAI,YAAY,CAAC,IAAI,CAAC;gBAAE,OAAO,IAAI,CAAC;YACpC,MAAM,CAAC,GAAG,aAAa,CAAC,IAAI,CAAC,CAAC;YAC9B,IAAI,CAAC,KAAK,IAAI,EAAE,CAAC;gBACf,OAAO;oBACL,KAAK,EAAE,mCAAmC,IAAA,oBAAY,EAAC,IAAI,CAAC,MAAM,CAAC,MAAM,IAAA,oBAAY,EAAC,IAAI,CAAC,EAAE;iBAC9F,CAAC;YACJ,CAAC;YACD,MAAM,MAAM,GAAG,MAAM,CAAC,GAAG,EAAE,IAAI,CAAC,IAAI,EAAE,IAAI,CAAC,MAAM,CAAC,CAAC;YACnD,MAAM,IAAI,GAAG,SAAS,CAAC,IAAI,CAAC,QAAQ,EAAE,MAAM,CAAC,CAAC;YAC9C,IAAI,YAAY,CAAC,IAAI,CAAC;gBAAE,OAAO,IAAI,CAAC;YACpC,MAAM,CAAC,GAAG,aAAa,CAAC,IAAI,CAAC,CAAC;YAC9B,IAAI,CAAC,KAAK,IAAI,EAAE,CAAC;gBACf,OAAO;oBACL,KAAK,EAAE,qCAAqC,IAAA,oBAAY,EAAC,IAAI,CAAC,QAAQ,CAAC,MAAM,IAAA,oBAAY,EAAC,IAAI,CAAC,EAAE;iBAClG,CAAC;YACJ,CAAC;YACD,OAAO,IAAA,iBAAS,EAAC,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;QACnC,CAAC;QACD,KAAK,OAAO,CAAC,CAAC,CAAC;YACb,MAAM,EAAE,GAAG,SAAS,CAAC,IAAI,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC;YACtC,IAAI,YAAY,CAAC,EAAE,CAAC;gBAAE,OAAO,EAAE,CAAC;YAChC,MAAM,CAAC,GAAG,aAAa,CAAC,EAAE,CAAC,CAAC;YAC5B,IAAI,CAAC,KAAK,IAAI,EAAE,CAAC;gBACf,OAAO;oBACL,KAAK,EAAE,6CAA6C,IAAA,oBAAY,EAAC,IAAI,CAAC,KAAK,CAAC,MAAM,IAAA,oBAAY,EAAC,EAAE,CAAC,EAAE;iBACrG,CAAC;YACJ,CAAC;YACD,MAAM,MAAM,GAAG,MAAM,CAAC,GAAG,EAAE,IAAI,CAAC,IAAI,EAAE,IAAI,CAAC,KAAK,CAAC,CAAC;YAClD,MAAM,EAAE,GAAG,SAAS,CAAC,IAAI,CAAC,MAAM,EAAE,MAAM,CAAC,CAAC;YAC1C,IAAI,YAAY,CAAC,EAAE,CAAC;gBAAE,OAAO,EAAE,CAAC;YAChC,MAAM,CAAC,GAAG,aAAa,CAAC,EAAE,CAAC,CAAC;YAC5B,IAAI,CAAC,KAAK,IAAI,EAAE,CAAC;gBACf,OAAO;oBACL,KAAK,EAAE,8CAA8C,IAAA,oBAAY,EAAC,IAAI,CAAC,MAAM,CAAC,MAAM,IAAA,oBAAY,EAAC,EAAE,CAAC,EAAE;iBACvG,CAAC;YACJ,CAAC;YACD,OAAO,IAAA,iBAAS,EAAC,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;QACnC,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,gEAAgE;YAChE,MAAM,IAAI,GAAG,SAAS,CAAC,IAAI,CAAC,MAAM,EAAE,GAAG,CAAC,CAAC;YACzC,IAAI,YAAY,CAAC,IAAI,CAAC;gBAAE,OAAO,IAAI,CAAC;YACpC,IAAI,aAAa,CAAC,IAAI,CAAC,KAAK,IAAI,EAAE,CAAC;gBACjC,OAAO;oBACL,KAAK,EAAE,iCAAiC,IAAA,oBAAY,EAAC,IAAI,CAAC,MAAM,CAAC,MAAM,IAAA,oBAAY,EAAC,IAAI,CAAC,EAAE;iBAC5F,CAAC;YACJ,CAAC;YACD,MAAM,MAAM,GAAG,MAAM,CAAC,GAAG,EAAE,IAAI,CAAC,IAAI,EAAE,IAAI,CAAC,MAAM,CAAC,CAAC;YACnD,MAAM,KAAK,GAAG,SAAS,CAAC,IAAI,CAAC,IAAI,EAAE,MAAM,CAAC,CAAC;YAC3C,IAAI,YAAY,CAAC,KAAK,CAAC;gBAAE,OAAO,KAAK,CAAC;YACtC,OAAO,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,CAAC,IAAI,EAAE,MAAM,EAAE,IAAI,CAAC,MAAM,EAAE,QAAQ,EAAE,KAAK,EAAE,CAAC;QAC/E,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,GAAG,GAAG,SAAS,CAAC,IAAI,CAAC,EAAE,EAAE,GAAG,CAAC,CAAC;YACpC,IAAI,YAAY,CAAC,GAAG,CAAC;gBAAE,OAAO,GAAG,CAAC;YAClC,MAAM,OAAO,GAAG,IAAA,qBAAS,EAAC,GAAG,CAAC,CAAC;YAC/B,IAAI,OAAO,CAAC,IAAI,KAAK,IAAI,EAAE,CAAC;gBAC1B,OAAO,EAAE,KAAK,EAAE,oCAAoC,IAAA,oBAAY,EAAC,OAAO,CAAC,EAAE,EAAE,CAAC;YAChF,CAAC;YACD,MAAM,IAAI,GAAG,SAAS,CAAC,IAAI,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YACtC,IAAI,YAAY,CAAC,IAAI,CAAC;gBAAE,OAAO,IAAI,CAAC;YACpC,IAAI,CAAC,IAAA,sBAAW,EAAC,OAAO,CAAC,MAAM,EAAE,IAAI,CAAC,EAAE,CAAC;gBACvC,OAAO;oBACL,KAAK,EAAE,2CAA2C,IAAA,oBAAY,EAAC,OAAO,CAAC,MAAM,CAAC,YAAY,IAAA,oBAAY,EAAC,IAAI,CAAC,EAAE;iBAC/G,CAAC;YACJ,CAAC;YACD,OAAO,IAAA,uBAAU,EAAC,OAAO,CAAC,QAAQ,EAAE,OAAO,CAAC,IAAI,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC;QAC9D,CAAC;QACD,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,MAAM,EAAE,GAAG,SAAS,CAAC,IAAI,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YACpC,IAAI,YAAY,CAAC,EAAE,CAAC;gBAAE,OAAO,EAAE,CAAC;YAChC,MAAM,EAAE,GAAG,SAAS,CAAC,IAAI,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YACpC,IAAI,YAAY,CAAC,EAAE,CAAC;gBAAE,OAAO,EAAE,CAAC;YAChC,kEAAkE;YAClE,OAAO,EAAE,IAAI,EAAE,OAAO,EAAE,IAAI,EAAE,GAAG,EAAE,KAAK,EAAE,EAAE,EAAE,MAAM,EAAE,EAAE,EAAE,CAAC;QAC7D,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,EAAE,GAAG,SAAS,CAAC,IAAI,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YACrC,IAAI,YAAY,CAAC,EAAE,CAAC;gBAAE,OAAO,EAAE,CAAC;YAChC,MAAM,MAAM,GAAG,IAAA,qBAAS,EAAC,EAAE,CAAC,CAAC;YAC7B,IAAI,MAAM,CAAC,IAAI,KAAK,OAAO,EAAE,CAAC;gBAC5B,OAAO,EAAE,KAAK,EAAE,yBAAyB,IAAA,oBAAY,EAAC,MAAM,CAAC,EAAE,EAAE,CAAC;YACpE,CAAC;YACD,OAAO,MAAM,CAAC,KAAK,CAAC;QACtB,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,EAAE,GAAG,SAAS,CAAC,IAAI,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YACrC,IAAI,YAAY,CAAC,EAAE,CAAC;gBAAE,OAAO,EAAE,CAAC;YAChC,MAAM,MAAM,GAAG,IAAA,qBAAS,EAAC,EAAE,CAAC,CAAC;YAC7B,IAAI,MAAM,CAAC,IAAI,KAAK,OAAO,EAAE,CAAC;gBAC5B,OAAO,EAAE,KAAK,EAAE,yBAAyB,IAAA,oBAAY,EAAC,MAAM,CAAC,EAAE,EAAE,CAAC;YACpE,CAAC;YACD,eAAe;YACf,OAAO,IAAA,uBAAU,EAAC,MAAM,CAAC,MAAM,EAAE,MAAM,CAAC,IAAI,EAAE,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,IAAI,CAAC,IAAI,EAAE,CAAC,CAAC;QAClF,CAAC;QACD,KAAK,UAAU,CAAC,CAAC,CAAC;YAChB,MAAM,KAAK,GAAG,SAAS,CAAC,IAAI,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YACxC,IAAI,YAAY,CAAC,KAAK,CAAC;gBAAE,OAAO,KAAK,CAAC;YACtC,MAAM,CAAC,GAAG,aAAa,CAAC,KAAK,CAAC,CAAC;YAC/B,IAAI,CAAC,KAAK,IAAI,EAAE,CAAC;gBACf,OAAO,EAAE,KAAK,EAAE,oCAAoC,IAAA,oBAAY,EAAC,IAAI,CAAC,IAAI,CAAC,EAAE,EAAE,CAAC;YAClF,CAAC;YACD,MAAM,EAAE,GAAG,SAAS,CAAC,IAAI,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YACrC,IAAI,YAAY,CAAC,EAAE,CAAC;gBAAE,OAAO,EAAE,CAAC;YAChC,IAAI,CAAC,IAAA,sBAAW,EAAC,EAAE,EAAE,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC;gBAChC,OAAO;oBACL,KAAK,EAAE,mCAAmC,IAAA,oBAAY,EAAC,EAAE,CAAC,cAAc,IAAA,oBAAY,EAAC,IAAI,CAAC,IAAI,CAAC,EAAE;iBAClG,CAAC;YACJ,CAAC;YACD,MAAM,EAAE,GAAG,SAAS,CAAC,IAAI,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC;YACtC,IAAI,YAAY,CAAC,EAAE,CAAC;gBAAE,OAAO,EAAE,CAAC;YAChC,IAAI,CAAC,IAAA,sBAAW,EAAC,EAAE,EAAE,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC;gBAChC,OAAO;oBACL,KAAK,EAAE,iCAAiC,IAAA,oBAAY,EAAC,EAAE,CAAC,cAAc,IAAA,oBAAY,EAAC,IAAI,CAAC,IAAI,CAAC,EAAE;iBAChG,CAAC;YACJ,CAAC;YACD,OAAO,IAAA,iBAAS,EAAC,CAAC,CAAC,CAAC;QACtB,CAAC;QACD,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,MAAM,EAAE,GAAG,SAAS,CAAC,IAAI,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YACrC,IAAI,YAAY,CAAC,EAAE,CAAC;gBAAE,OAAO,EAAE,CAAC;YAChC,OAAO,EAAE,IAAI,EAAE,UAAU,EAAE,IAAI,EAAE,EAAE,EAAE,IAAI,EAAE,IAAI,CAAC,IAAI,EAAE,KAAK,EAAE,IAAI,CAAC,IAAI,EAAE,CAAC;QAC3E,CAAC;IACH,CAAC;AACH,CAAC;AAED;;;;GAIG;AACH,SAAgB,SAAS,CACvB,IAAc,EACd,QAAkB,EAClB,MAAoB,QAAQ,EAAE;IAE9B,MAAM,YAAY,GAAG,IAAA,qBAAS,EAAC,QAAQ,CAAC,CAAC;IAEzC,iDAAiD;IACjD,IAAI,IAAI,CAAC,IAAI,KAAK,MAAM,IAAI,YAAY,CAAC,IAAI,KAAK,OAAO,EAAE,CAAC;QAC1D,IAAI,CAAC,SAAS,CAAC,IAAI,CAAC,GAAG,EAAE,YAAY,CAAC,KAAK,EAAE,GAAG,CAAC;YAAE,OAAO,KAAK,CAAC;QAChE,MAAM,WAAW,GAAG,IAAA,uBAAU,EAAC,YAAY,CAAC,MAAM,EAAE,YAAY,CAAC,IAAI,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC;QACjF,OAAO,SAAS,CAAC,IAAI,CAAC,GAAG,EAAE,WAAW,EAAE,GAAG,CAAC,CAAC;IAC/C,CAAC;IAED,iEAAiE;IACjE,0CAA0C;IAC1C,IAAI,IAAI,CAAC,IAAI,KAAK,KAAK,IAAI,YAAY,CAAC,IAAI,KAAK,IAAI,EAAE,CAAC;QACtD,IAAI,CAAC,IAAA,sBAAW,EAAC,IAAI,CAAC,MAAM,EAAE,YAAY,CAAC,MAAM,CAAC;YAAE,OAAO,KAAK,CAAC;QACjE,MAAM,MAAM,GAAG,MAAM,CAAC,GAAG,EAAE,IAAI,CAAC,IAAI,EAAE,IAAI,CAAC,MAAM,CAAC,CAAC;QACnD,kDAAkD;QAClD,MAAM,YAAY,GAChB,YAAY,CAAC,IAAI,KAAK,IAAI,CAAC,IAAI;YAC7B,CAAC,CAAC,YAAY,CAAC,QAAQ;YACvB,CAAC,CAAC,IAAA,uBAAU,EAAC,YAAY,CAAC,QAAQ,EAAE,YAAY,CAAC,IAAI,EAAE,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,IAAI,CAAC,IAAI,EAAE,CAAC,CAAC;QAC7F,OAAO,SAAS,CAAC,IAAI,CAAC,IAAI,EAAE,YAAY,EAAE,MAAM,CAAC,CAAC;IACpD,CAAC;IAED,MAAM,QAAQ,GAAG,SAAS,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;IACtC,IAAI,YAAY,CAAC,QAAQ,CAAC;QAAE,OAAO,KAAK,CAAC;IACzC,OAAO,IAAA,sBAAW,EAAC,QAAQ,EAAE,QAAQ,CAAC,CAAC;AACzC,CAAC;AAED,yCAAyC;AAEzC,SAAS,MAAM,CAAC,GAAiB,EAAE,IAAY,EAAE,IAAc;IAC7D,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;AAED,SAAS,KAAK,CAAC,CAAW;IACxB,OAAO,IAAA,qBAAS,EAAC,CAAC,CAAC,CAAC,IAAI,KAAK,KAAK,CAAC;AACrC,CAAC;AAED,SAAS,aAAa,CAAC,CAAW;IAChC,MAAM,CAAC,GAAG,IAAA,qBAAS,EAAC,CAAC,CAAC,CAAC;IACvB,OAAO,CAAC,CAAC,IAAI,KAAK,UAAU,CAAC,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,IAAI,CAAC;AAChD,CAAC"}

package/dist/mltt/normalize.d.ts

@@ -0,0 +1,7 @@
+import type { MLTTTerm } from './types';
+/** Aplica un único paso de reducción (leftmost-outermost) si hay redex. */
+export declare function reduceStep(term: MLTTTerm): MLTTTerm;
+/** Normaliza hasta forma normal (o agota `maxSteps`). */
+export declare function normalize(term: MLTTTerm, maxSteps?: number): MLTTTerm;
+export declare function isNormal(term: MLTTTerm): boolean;
+//# sourceMappingURL=normalize.d.ts.map

package/dist/mltt/normalize.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"normalize.d.ts","sourceRoot":"","sources":["../../src/mltt/normalize.ts"],"names":[],"mappings":"AAaA,OAAO,KAAK,EAAE,QAAQ,EAAE,MAAM,SAAS,CAAC;AAGxC,2EAA2E;AAC3E,wBAAgB,UAAU,CAAC,IAAI,EAAE,QAAQ,GAAG,QAAQ,CA6EnD;AAED,yDAAyD;AACzD,wBAAgB,SAAS,CAAC,IAAI,EAAE,QAAQ,EAAE,QAAQ,SAAO,GAAG,QAAQ,CAQnE;AAED,wBAAgB,QAAQ,CAAC,IAAI,EAAE,QAAQ,GAAG,OAAO,CAEhD"}

package/dist/mltt/normalize.js

@@ -0,0 +1,131 @@
+"use strict";
+// ============================================================
+// MLTT — β-reducción + reducciones ι (proyecciones, recursión Nat trivial)
+// ============================================================
+//
+// Reglas:
+//   β:    (λ (x : A). M) N        ↦  M[N/x]
+//   π1:   fst ⟨a, b⟩               ↦  a
+//   π2:   snd ⟨a, b⟩               ↦  b
+//
+// La normalización es congruente: reduce dentro de Π/Σ/λ/Id/refl/succ
+// para alcanzar formas normales completas (necesario para igualdad
+// definicional de tipos).
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.reduceStep = reduceStep;
+exports.normalize = normalize;
+exports.isNormal = isNormal;
+const substitute_1 = require("./substitute");
+/** Aplica un único paso de reducción (leftmost-outermost) si hay redex. */
+function reduceStep(term) {
+    switch (term.kind) {
+        case 'var':
+        case 'universe':
+        case 'nat':
+        case 'zero':
+            return term;
+        case 'app': {
+            if (term.fn.kind === 'lam') {
+                return (0, substitute_1.substitute)(term.fn.body, term.fn.bind, term.arg);
+            }
+            const fn2 = reduceStep(term.fn);
+            if (fn2 !== term.fn)
+                return { kind: 'app', fn: fn2, arg: term.arg };
+            const arg2 = reduceStep(term.arg);
+            if (arg2 !== term.arg)
+                return { kind: 'app', fn: term.fn, arg: arg2 };
+            return term;
+        }
+        case 'lam': {
+            const d2 = reduceStep(term.domain);
+            if (d2 !== term.domain)
+                return { ...term, domain: d2 };
+            const b2 = reduceStep(term.body);
+            if (b2 !== term.body)
+                return { ...term, body: b2 };
+            return term;
+        }
+        case 'pi': {
+            const d2 = reduceStep(term.domain);
+            if (d2 !== term.domain)
+                return { ...term, domain: d2 };
+            const c2 = reduceStep(term.codomain);
+            if (c2 !== term.codomain)
+                return { ...term, codomain: c2 };
+            return term;
+        }
+        case 'sigma': {
+            const f2 = reduceStep(term.first);
+            if (f2 !== term.first)
+                return { ...term, first: f2 };
+            const s2 = reduceStep(term.second);
+            if (s2 !== term.second)
+                return { ...term, second: s2 };
+            return term;
+        }
+        case 'pair': {
+            const f2 = reduceStep(term.fst);
+            if (f2 !== term.fst)
+                return { ...term, fst: f2 };
+            const s2 = reduceStep(term.snd);
+            if (s2 !== term.snd)
+                return { ...term, snd: s2 };
+            return term;
+        }
+        case 'fst': {
+            if (term.pair.kind === 'pair')
+                return term.pair.fst;
+            const p2 = reduceStep(term.pair);
+            if (p2 !== term.pair)
+                return { kind: 'fst', pair: p2 };
+            return term;
+        }
+        case 'snd': {
+            if (term.pair.kind === 'pair')
+                return term.pair.snd;
+            const p2 = reduceStep(term.pair);
+            if (p2 !== term.pair)
+                return { kind: 'snd', pair: p2 };
+            return term;
+        }
+        case 'identity': {
+            const t2 = reduceStep(term.type);
+            if (t2 !== term.type)
+                return { ...term, type: t2 };
+            const l2 = reduceStep(term.left);
+            if (l2 !== term.left)
+                return { ...term, left: l2 };
+            const r2 = reduceStep(term.right);
+            if (r2 !== term.right)
+                return { ...term, right: r2 };
+            return term;
+        }
+        case 'refl': {
+            const t2 = reduceStep(term.term);
+            if (t2 !== term.term)
+                return { kind: 'refl', term: t2 };
+            return term;
+        }
+        case 'succ': {
+            const a2 = reduceStep(term.arg);
+            if (a2 !== term.arg)
+                return { kind: 'succ', arg: a2 };
+            return term;
+        }
+    }
+}
+/** Normaliza hasta forma normal (o agota `maxSteps`). */
+function normalize(term, maxSteps = 1000) {
+    let current = term;
+    for (let i = 0; i < maxSteps; i++) {
+        const next = reduceStep(current);
+        if (next === current)
+            return current;
+        current = next;
+    }
+    return current;
+}
+function isNormal(term) {
+    return reduceStep(term) === term;
+}
+//# sourceMappingURL=normalize.js.map

package/dist/mltt/normalize.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"normalize.js","sourceRoot":"","sources":["../../src/mltt/normalize.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,2EAA2E;AAC3E,+DAA+D;AAC/D,EAAE;AACF,UAAU;AACV,4CAA4C;AAC5C,wCAAwC;AACxC,wCAAwC;AACxC,EAAE;AACF,sEAAsE;AACtE,mEAAmE;AACnE,0BAA0B;;AAM1B,gCA6EC;AAGD,8BAQC;AAED,4BAEC;AA/FD,6CAA0C;AAE1C,2EAA2E;AAC3E,SAAgB,UAAU,CAAC,IAAc;IACvC,QAAQ,IAAI,CAAC,IAAI,EAAE,CAAC;QAClB,KAAK,KAAK,CAAC;QACX,KAAK,UAAU,CAAC;QAChB,KAAK,KAAK,CAAC;QACX,KAAK,MAAM;YACT,OAAO,IAAI,CAAC;QACd,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,IAAI,IAAI,CAAC,EAAE,CAAC,IAAI,KAAK,KAAK,EAAE,CAAC;gBAC3B,OAAO,IAAA,uBAAU,EAAC,IAAI,CAAC,EAAE,CAAC,IAAI,EAAE,IAAI,CAAC,EAAE,CAAC,IAAI,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC;YAC1D,CAAC;YACD,MAAM,GAAG,GAAG,UAAU,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;YAChC,IAAI,GAAG,KAAK,IAAI,CAAC,EAAE;gBAAE,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,EAAE,EAAE,GAAG,EAAE,GAAG,EAAE,IAAI,CAAC,GAAG,EAAE,CAAC;YACpE,MAAM,IAAI,GAAG,UAAU,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;YAClC,IAAI,IAAI,KAAK,IAAI,CAAC,GAAG;gBAAE,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,EAAE,EAAE,IAAI,CAAC,EAAE,EAAE,GAAG,EAAE,IAAI,EAAE,CAAC;YACtE,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,EAAE,GAAG,UAAU,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC;YACnC,IAAI,EAAE,KAAK,IAAI,CAAC,MAAM;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,MAAM,EAAE,EAAE,EAAE,CAAC;YACvD,MAAM,EAAE,GAAG,UAAU,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACjC,IAAI,EAAE,KAAK,IAAI,CAAC,IAAI;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC;YACnD,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,IAAI,CAAC,CAAC,CAAC;YACV,MAAM,EAAE,GAAG,UAAU,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC;YACnC,IAAI,EAAE,KAAK,IAAI,CAAC,MAAM;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,MAAM,EAAE,EAAE,EAAE,CAAC;YACvD,MAAM,EAAE,GAAG,UAAU,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC;YACrC,IAAI,EAAE,KAAK,IAAI,CAAC,QAAQ;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,QAAQ,EAAE,EAAE,EAAE,CAAC;YAC3D,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,OAAO,CAAC,CAAC,CAAC;YACb,MAAM,EAAE,GAAG,UAAU,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;YAClC,IAAI,EAAE,KAAK,IAAI,CAAC,KAAK;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,KAAK,EAAE,EAAE,EAAE,CAAC;YACrD,MAAM,EAAE,GAAG,UAAU,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC;YACnC,IAAI,EAAE,KAAK,IAAI,CAAC,MAAM;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,MAAM,EAAE,EAAE,EAAE,CAAC;YACvD,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,MAAM,EAAE,GAAG,UAAU,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;YAChC,IAAI,EAAE,KAAK,IAAI,CAAC,GAAG;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,GAAG,EAAE,EAAE,EAAE,CAAC;YACjD,MAAM,EAAE,GAAG,UAAU,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;YAChC,IAAI,EAAE,KAAK,IAAI,CAAC,GAAG;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,GAAG,EAAE,EAAE,EAAE,CAAC;YACjD,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,IAAI,IAAI,CAAC,IAAI,CAAC,IAAI,KAAK,MAAM;gBAAE,OAAO,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC;YACpD,MAAM,EAAE,GAAG,UAAU,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACjC,IAAI,EAAE,KAAK,IAAI,CAAC,IAAI;gBAAE,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC;YACvD,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,IAAI,IAAI,CAAC,IAAI,CAAC,IAAI,KAAK,MAAM;gBAAE,OAAO,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC;YACpD,MAAM,EAAE,GAAG,UAAU,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACjC,IAAI,EAAE,KAAK,IAAI,CAAC,IAAI;gBAAE,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC;YACvD,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,UAAU,CAAC,CAAC,CAAC;YAChB,MAAM,EAAE,GAAG,UAAU,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACjC,IAAI,EAAE,KAAK,IAAI,CAAC,IAAI;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC;YACnD,MAAM,EAAE,GAAG,UAAU,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACjC,IAAI,EAAE,KAAK,IAAI,CAAC,IAAI;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC;YACnD,MAAM,EAAE,GAAG,UAAU,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;YAClC,IAAI,EAAE,KAAK,IAAI,CAAC,KAAK;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,KAAK,EAAE,EAAE,EAAE,CAAC;YACrD,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,MAAM,EAAE,GAAG,UAAU,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACjC,IAAI,EAAE,KAAK,IAAI,CAAC,IAAI;gBAAE,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC;YACxD,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,MAAM,EAAE,GAAG,UAAU,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;YAChC,IAAI,EAAE,KAAK,IAAI,CAAC,GAAG;gBAAE,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,GAAG,EAAE,EAAE,EAAE,CAAC;YACtD,OAAO,IAAI,CAAC;QACd,CAAC;IACH,CAAC;AACH,CAAC;AAED,yDAAyD;AACzD,SAAgB,SAAS,CAAC,IAAc,EAAE,QAAQ,GAAG,IAAI;IACvD,IAAI,OAAO,GAAG,IAAI,CAAC;IACnB,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,QAAQ,EAAE,CAAC,EAAE,EAAE,CAAC;QAClC,MAAM,IAAI,GAAG,UAAU,CAAC,OAAO,CAAC,CAAC;QACjC,IAAI,IAAI,KAAK,OAAO;YAAE,OAAO,OAAO,CAAC;QACrC,OAAO,GAAG,IAAI,CAAC;IACjB,CAAC;IACD,OAAO,OAAO,CAAC;AACjB,CAAC;AAED,SAAgB,QAAQ,CAAC,IAAc;IACrC,OAAO,UAAU,CAAC,IAAI,CAAC,KAAK,IAAI,CAAC;AACnC,CAAC"}

package/dist/mltt/substitute.d.ts

@@ -0,0 +1,4 @@
+import type { MLTTTerm } from './types';
+/** Sustitución capture-avoiding: term[value/name]. */
+export declare function substitute(term: MLTTTerm, name: string, value: MLTTTerm): MLTTTerm;
+//# sourceMappingURL=substitute.d.ts.map

package/dist/mltt/substitute.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"substitute.d.ts","sourceRoot":"","sources":["../../src/mltt/substitute.ts"],"names":[],"mappings":"AAQA,OAAO,KAAK,EAAE,QAAQ,EAAE,MAAM,SAAS,CAAC;AAWxC,sDAAsD;AACtD,wBAAgB,UAAU,CAAC,IAAI,EAAE,QAAQ,EAAE,IAAI,EAAE,MAAM,EAAE,KAAK,EAAE,QAAQ,GAAG,QAAQ,CAyDlF"}

package/dist/mltt/substitute.js

@@ -0,0 +1,94 @@
+"use strict";
+// ============================================================
+// MLTT — Sustitución capture-avoiding y α-renombrado
+// ============================================================
+//
+// La sustitución dependiente debe entrar también en `domain` /
+// `first` / `second` / `codomain` / `type` porque los tipos son
+// términos y pueden mencionar variables libres.
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.substitute = substitute;
+const types_1 = require("./types");
+let freshCounter = 0;
+function fresh(base, avoid) {
+    let candidate = `${base}#${freshCounter++}`;
+    while (avoid.has(candidate))
+        candidate = `${base}#${freshCounter++}`;
+    return candidate;
+}
+/** Sustitución capture-avoiding: term[value/name]. */
+function substitute(term, name, value) {
+    switch (term.kind) {
+        case 'var':
+            return term.name === name ? value : term;
+        case 'universe':
+        case 'nat':
+        case 'zero':
+            return term;
+        case 'pi':
+            return substBinder(term, name, value, term.domain, term.codomain, (bind, dom, cod) => ({
+                kind: 'pi',
+                bind,
+                domain: dom,
+                codomain: cod,
+            }));
+        case 'sigma':
+            return substBinder(term, name, value, term.first, term.second, (bind, dom, cod) => ({
+                kind: 'sigma',
+                bind,
+                first: dom,
+                second: 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: substitute(term.fn, name, value),
+                arg: substitute(term.arg, name, value),
+            };
+        case 'pair':
+            return {
+                kind: 'pair',
+                fst: substitute(term.fst, name, value),
+                snd: substitute(term.snd, name, value),
+            };
+        case 'fst':
+            return { kind: 'fst', pair: substitute(term.pair, name, value) };
+        case 'snd':
+            return { kind: 'snd', pair: substitute(term.pair, name, value) };
+        case 'identity':
+            return {
+                kind: 'identity',
+                type: substitute(term.type, name, value),
+                left: substitute(term.left, name, value),
+                right: substitute(term.right, name, value),
+            };
+        case 'refl':
+            return { kind: 'refl', term: substitute(term.term, name, value) };
+        case 'succ':
+            return { kind: 'succ', arg: substitute(term.arg, name, value) };
+    }
+}
+// Helper común para Π / Σ / λ: maneja captura y reusa la estructura.
+function substBinder(source, name, value, dom, cod, build) {
+    // El `domain` / `first` está fuera del binder → siempre se sustituye.
+    const newDom = substitute(dom, name, value);
+    // Si el binder coincide con `name`, el `cod` no contiene `name` libre.
+    if (source.bind === name) {
+        return build(source.bind, newDom, cod);
+    }
+    const fv = (0, types_1.freeVars)(value);
+    if (fv.has(source.bind)) {
+        const newBind = fresh(source.bind, new Set([...fv, ...(0, types_1.freeVars)(cod), name]));
+        const renamedCod = substitute(cod, source.bind, { kind: 'var', name: newBind });
+        return build(newBind, newDom, substitute(renamedCod, name, value));
+    }
+    return build(source.bind, newDom, substitute(cod, name, value));
+}
+//# sourceMappingURL=substitute.js.map

package/dist/mltt/substitute.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"substitute.js","sourceRoot":"","sources":["../../src/mltt/substitute.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,qDAAqD;AACrD,+DAA+D;AAC/D,EAAE;AACF,+DAA+D;AAC/D,gEAAgE;AAChE,gDAAgD;;AAchD,gCAyDC;AApED,mCAAmC;AAEnC,IAAI,YAAY,GAAG,CAAC,CAAC;AAErB,SAAS,KAAK,CAAC,IAAY,EAAE,KAAkB;IAC7C,IAAI,SAAS,GAAG,GAAG,IAAI,IAAI,YAAY,EAAE,EAAE,CAAC;IAC5C,OAAO,KAAK,CAAC,GAAG,CAAC,SAAS,CAAC;QAAE,SAAS,GAAG,GAAG,IAAI,IAAI,YAAY,EAAE,EAAE,CAAC;IACrE,OAAO,SAAS,CAAC;AACnB,CAAC;AAED,sDAAsD;AACtD,SAAgB,UAAU,CAAC,IAAc,EAAE,IAAY,EAAE,KAAe;IACtE,QAAQ,IAAI,CAAC,IAAI,EAAE,CAAC;QAClB,KAAK,KAAK;YACR,OAAO,IAAI,CAAC,IAAI,KAAK,IAAI,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,IAAI,CAAC;QAC3C,KAAK,UAAU,CAAC;QAChB,KAAK,KAAK,CAAC;QACX,KAAK,MAAM;YACT,OAAO,IAAI,CAAC;QACd,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,OAAO;YACV,OAAO,WAAW,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,CAAC,KAAK,EAAE,IAAI,CAAC,MAAM,EAAE,CAAC,IAAI,EAAE,GAAG,EAAE,GAAG,EAAE,EAAE,CAAC,CAAC;gBAClF,IAAI,EAAE,OAAO;gBACb,IAAI;gBACJ,KAAK,EAAE,GAAG;gBACV,MAAM,EAAE,GAAG;aACZ,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,UAAU,CAAC,IAAI,CAAC,EAAE,EAAE,IAAI,EAAE,KAAK,CAAC;gBACpC,GAAG,EAAE,UAAU,CAAC,IAAI,CAAC,GAAG,EAAE,IAAI,EAAE,KAAK,CAAC;aACvC,CAAC;QACJ,KAAK,MAAM;YACT,OAAO;gBACL,IAAI,EAAE,MAAM;gBACZ,GAAG,EAAE,UAAU,CAAC,IAAI,CAAC,GAAG,EAAE,IAAI,EAAE,KAAK,CAAC;gBACtC,GAAG,EAAE,UAAU,CAAC,IAAI,CAAC,GAAG,EAAE,IAAI,EAAE,KAAK,CAAC;aACvC,CAAC;QACJ,KAAK,KAAK;YACR,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,UAAU,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC,EAAE,CAAC;QACnE,KAAK,KAAK;YACR,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,UAAU,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC,EAAE,CAAC;QACnE,KAAK,UAAU;YACb,OAAO;gBACL,IAAI,EAAE,UAAU;gBAChB,IAAI,EAAE,UAAU,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC;gBACxC,IAAI,EAAE,UAAU,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC;gBACxC,KAAK,EAAE,UAAU,CAAC,IAAI,CAAC,KAAK,EAAE,IAAI,EAAE,KAAK,CAAC;aAC3C,CAAC;QACJ,KAAK,MAAM;YACT,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,UAAU,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC,EAAE,CAAC;QACpE,KAAK,MAAM;YACT,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,GAAG,EAAE,UAAU,CAAC,IAAI,CAAC,GAAG,EAAE,IAAI,EAAE,KAAK,CAAC,EAAE,CAAC;IACpE,CAAC;AACH,CAAC;AAED,qEAAqE;AACrE,SAAS,WAAW,CAClB,MAAwB,EACxB,IAAY,EACZ,KAAe,EACf,GAAa,EACb,GAAa,EACb,KAA+D;IAE/D,sEAAsE;IACtE,MAAM,MAAM,GAAG,UAAU,CAAC,GAAG,EAAE,IAAI,EAAE,KAAK,CAAC,CAAC;IAC5C,uEAAuE;IACvE,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,gBAAQ,EAAC,KAAK,CAAC,CAAC;IAC3B,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,gBAAQ,EAAC,GAAG,CAAC,EAAE,IAAI,CAAC,CAAC,CAAC,CAAC;QAC7E,MAAM,UAAU,GAAG,UAAU,CAAC,GAAG,EAAE,MAAM,CAAC,IAAI,EAAE,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,OAAO,EAAE,CAAC,CAAC;QAChF,OAAO,KAAK,CAAC,OAAO,EAAE,MAAM,EAAE,UAAU,CAAC,UAAU,EAAE,IAAI,EAAE,KAAK,CAAC,CAAC,CAAC;IACrE,CAAC;IACD,OAAO,KAAK,CAAC,MAAM,CAAC,IAAI,EAAE,MAAM,EAAE,UAAU,CAAC,GAAG,EAAE,IAAI,EAAE,KAAK,CAAC,CAAC,CAAC;AAClE,CAAC"}

package/dist/mltt/types.d.ts

@@ -0,0 +1,72 @@
+export type MLTTTerm = {
+    kind: 'var';
+    name: string;
+} | {
+    kind: 'universe';
+    level: number;
+} | {
+    kind: 'pi';
+    bind: string;
+    domain: MLTTTerm;
+    codomain: MLTTTerm;
+} | {
+    kind: 'lam';
+    bind: string;
+    domain: MLTTTerm;
+    body: MLTTTerm;
+} | {
+    kind: 'app';
+    fn: MLTTTerm;
+    arg: MLTTTerm;
+} | {
+    kind: 'sigma';
+    bind: string;
+    first: MLTTTerm;
+    second: MLTTTerm;
+} | {
+    kind: 'pair';
+    fst: MLTTTerm;
+    snd: MLTTTerm;
+} | {
+    kind: 'fst';
+    pair: MLTTTerm;
+} | {
+    kind: 'snd';
+    pair: MLTTTerm;
+} | {
+    kind: 'identity';
+    type: MLTTTerm;
+    left: MLTTTerm;
+    right: MLTTTerm;
+} | {
+    kind: 'refl';
+    term: MLTTTerm;
+} | {
+    kind: 'nat';
+} | {
+    kind: 'zero';
+} | {
+    kind: 'succ';
+    arg: MLTTTerm;
+};
+export declare const mVar: (name: string) => MLTTTerm;
+export declare const mUniverse: (level?: number) => MLTTTerm;
+export declare const mPi: (bind: string, domain: MLTTTerm, codomain: MLTTTerm) => MLTTTerm;
+export declare const mLam: (bind: string, domain: MLTTTerm, body: MLTTTerm) => MLTTTerm;
+export declare const mApp: (fn: MLTTTerm, arg: MLTTTerm) => MLTTTerm;
+export declare const mSigma: (bind: string, first: MLTTTerm, second: MLTTTerm) => MLTTTerm;
+export declare const mPair: (fst: MLTTTerm, snd: MLTTTerm) => MLTTTerm;
+export declare const mFst: (pair: MLTTTerm) => MLTTTerm;
+export declare const mSnd: (pair: MLTTTerm) => MLTTTerm;
+export declare const mId: (type: MLTTTerm, left: MLTTTerm, right: MLTTTerm) => MLTTTerm;
+export declare const mRefl: (term: MLTTTerm) => MLTTTerm;
+export declare const mNat: () => MLTTTerm;
+export declare const mZero: () => MLTTTerm;
+export declare const mSucc: (arg: MLTTTerm) => MLTTTerm;
+export declare const mArrow: (from: MLTTTerm, to: MLTTTerm) => MLTTTerm;
+/** ¿`name` aparece libre en `term`? */
+export declare function occursFree(name: string, term: MLTTTerm): boolean;
+/** Conjunto de variables libres. */
+export declare function freeVars(term: MLTTTerm, acc?: Set<string>): Set<string>;
+export declare function termToString(t: MLTTTerm): string;
+//# sourceMappingURL=types.d.ts.map

package/dist/mltt/types.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"types.d.ts","sourceRoot":"","sources":["../../src/mltt/types.ts"],"names":[],"mappings":"AAqBA,MAAM,MAAM,QAAQ,GAChB;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,QAAQ,CAAC;IAAC,QAAQ,EAAE,QAAQ,CAAA;CAAE,GAClE;IAAE,IAAI,EAAE,KAAK,CAAC;IAAC,IAAI,EAAE,MAAM,CAAC;IAAC,MAAM,EAAE,QAAQ,CAAC;IAAC,IAAI,EAAE,QAAQ,CAAA;CAAE,GAC/D;IAAE,IAAI,EAAE,KAAK,CAAC;IAAC,EAAE,EAAE,QAAQ,CAAC;IAAC,GAAG,EAAE,QAAQ,CAAA;CAAE,GAC5C;IAAE,IAAI,EAAE,OAAO,CAAC;IAAC,IAAI,EAAE,MAAM,CAAC;IAAC,KAAK,EAAE,QAAQ,CAAC;IAAC,MAAM,EAAE,QAAQ,CAAA;CAAE,GAClE;IAAE,IAAI,EAAE,MAAM,CAAC;IAAC,GAAG,EAAE,QAAQ,CAAC;IAAC,GAAG,EAAE,QAAQ,CAAA;CAAE,GAC9C;IAAE,IAAI,EAAE,KAAK,CAAC;IAAC,IAAI,EAAE,QAAQ,CAAA;CAAE,GAC/B;IAAE,IAAI,EAAE,KAAK,CAAC;IAAC,IAAI,EAAE,QAAQ,CAAA;CAAE,GAC/B;IAAE,IAAI,EAAE,UAAU,CAAC;IAAC,IAAI,EAAE,QAAQ,CAAC;IAAC,IAAI,EAAE,QAAQ,CAAC;IAAC,KAAK,EAAE,QAAQ,CAAA;CAAE,GACrE;IAAE,IAAI,EAAE,MAAM,CAAC;IAAC,IAAI,EAAE,QAAQ,CAAA;CAAE,GAChC;IAAE,IAAI,EAAE,KAAK,CAAA;CAAE,GACf;IAAE,IAAI,EAAE,MAAM,CAAA;CAAE,GAChB;IAAE,IAAI,EAAE,MAAM,CAAC;IAAC,GAAG,EAAE,QAAQ,CAAA;CAAE,CAAC;AAIpC,eAAO,MAAM,IAAI,GAAI,MAAM,MAAM,KAAG,QAAmC,CAAC;AACxE,eAAO,MAAM,SAAS,GAAI,cAAS,KAAG,QAAyC,CAAC;AAChF,eAAO,MAAM,GAAG,GAAI,MAAM,MAAM,EAAE,QAAQ,QAAQ,EAAE,UAAU,QAAQ,KAAG,QAKvE,CAAC;AACH,eAAO,MAAM,IAAI,GAAI,MAAM,MAAM,EAAE,QAAQ,QAAQ,EAAE,MAAM,QAAQ,KAAG,QAKpE,CAAC;AACH,eAAO,MAAM,IAAI,GAAI,IAAI,QAAQ,EAAE,KAAK,QAAQ,KAAG,QAAsC,CAAC;AAC1F,eAAO,MAAM,MAAM,GAAI,MAAM,MAAM,EAAE,OAAO,QAAQ,EAAE,QAAQ,QAAQ,KAAG,QAKvE,CAAC;AACH,eAAO,MAAM,KAAK,GAAI,KAAK,QAAQ,EAAE,KAAK,QAAQ,KAAG,QAAwC,CAAC;AAC9F,eAAO,MAAM,IAAI,GAAI,MAAM,QAAQ,KAAG,QAAmC,CAAC;AAC1E,eAAO,MAAM,IAAI,GAAI,MAAM,QAAQ,KAAG,QAAmC,CAAC;AAC1E,eAAO,MAAM,GAAG,GAAI,MAAM,QAAQ,EAAE,MAAM,QAAQ,EAAE,OAAO,QAAQ,KAAG,QAKpE,CAAC;AACH,eAAO,MAAM,KAAK,GAAI,MAAM,QAAQ,KAAG,QAAoC,CAAC;AAC5E,eAAO,MAAM,IAAI,QAAO,QAA6B,CAAC;AACtD,eAAO,MAAM,KAAK,QAAO,QAA8B,CAAC;AACxD,eAAO,MAAM,KAAK,GAAI,KAAK,QAAQ,KAAG,QAAmC,CAAC;AAG1E,eAAO,MAAM,MAAM,GAAI,MAAM,QAAQ,EAAE,IAAI,QAAQ,KAAG,QAA8B,CAAC;AAIrF,uCAAuC;AACvC,wBAAgB,UAAU,CAAC,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,QAAQ,GAAG,OAAO,CAoChE;AAED,oCAAoC;AACpC,wBAAgB,QAAQ,CAAC,IAAI,EAAE,QAAQ,EAAE,GAAG,GAAE,GAAG,CAAC,MAAM,CAAa,GAAG,GAAG,CAAC,MAAM,CAAC,CAmDlF;AAID,wBAAgB,YAAY,CAAC,CAAC,EAAE,QAAQ,GAAG,MAAM,CAkChD"}