@stevenvo780/st-lang 4.3.0 → 4.5.0

package/dist/mltt/equality.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"equality.js","sourceRoot":"","sources":["../../src/mltt/equality.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,8DAA8D;AAC9D,+DAA+D;AAC/D,EAAE;AACF,6DAA6D;AAC7D,6CAA6C;;AAO7C,0BAyDC;AAQD,kCAEC;AAvED,2CAAwC;AACxC,6CAA0C;AAE1C,gEAAgE;AAChE,SAAgB,OAAO,CAAC,CAAW,EAAE,CAAW;IAC9C,IAAI,CAAC,CAAC,IAAI,KAAK,CAAC,CAAC,IAAI;QAAE,OAAO,KAAK,CAAC;IACpC,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;QACf,KAAK,KAAK;YACR,OAAO,CAAC,CAAC,IAAI,KAAM,CAAc,CAAC,IAAI,CAAC;QACzC,KAAK,UAAU;YACb,OAAO,CAAC,CAAC,KAAK,KAAM,CAAc,CAAC,KAAK,CAAC;QAC3C,KAAK,KAAK,CAAC;QACX,KAAK,MAAM;YACT,OAAO,IAAI,CAAC;QACd,KAAK,MAAM;YACT,OAAO,OAAO,CAAC,CAAC,CAAC,GAAG,EAAG,CAAc,CAAC,GAAG,CAAC,CAAC;QAC7C,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,EAAE,GAAG,CAAa,CAAC;YACzB,OAAO,OAAO,CAAC,CAAC,CAAC,EAAE,EAAE,EAAE,CAAC,EAAE,CAAC,IAAI,OAAO,CAAC,CAAC,CAAC,GAAG,EAAE,EAAE,CAAC,GAAG,CAAC,CAAC;QACxD,CAAC;QACD,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,MAAM,EAAE,GAAG,CAAa,CAAC;YACzB,OAAO,OAAO,CAAC,CAAC,CAAC,GAAG,EAAE,EAAE,CAAC,GAAG,CAAC,IAAI,OAAO,CAAC,CAAC,CAAC,GAAG,EAAE,EAAE,CAAC,GAAG,CAAC,CAAC;QAC1D,CAAC;QACD,KAAK,KAAK,CAAC;QACX,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,EAAE,GAAG,CAAa,CAAC;YACzB,OAAO,OAAO,CAAC,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,CAAC,CAAC;QAClC,CAAC;QACD,KAAK,UAAU,CAAC,CAAC,CAAC;YAChB,MAAM,EAAE,GAAG,CAAa,CAAC;YACzB,OAAO,OAAO,CAAC,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,CAAC,IAAI,OAAO,CAAC,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,CAAC,IAAI,OAAO,CAAC,CAAC,CAAC,KAAK,EAAE,EAAE,CAAC,KAAK,CAAC,CAAC;QAC5F,CAAC;QACD,KAAK,MAAM;YACT,OAAO,OAAO,CAAC,CAAC,CAAC,IAAI,EAAG,CAAc,CAAC,IAAI,CAAC,CAAC;QAC/C,KAAK,IAAI,CAAC;QACV,KAAK,OAAO,CAAC,CAAC,CAAC;YACb,MAAM,EAAE,GAAG,CAAa,CAAC;YACzB,MAAM,IAAI,GAAG,CAAC,CAAC,IAAI,KAAK,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC;YAClD,MAAM,IAAI,GAAG,EAAE,CAAC,IAAI,KAAK,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,CAAC,KAAK,CAAC;YACrD,MAAM,IAAI,GAAG,CAAC,CAAC,IAAI,KAAK,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC;YACrD,MAAM,IAAI,GAAG,EAAE,CAAC,IAAI,KAAK,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC,QAAQ,CAAC,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC;YACxD,IAAI,CAAC,OAAO,CAAC,IAAI,EAAE,IAAI,CAAC;gBAAE,OAAO,KAAK,CAAC;YACvC,IAAI,CAAC,CAAC,IAAI,KAAK,EAAE,CAAC,IAAI;gBAAE,OAAO,OAAO,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC;YACnD,MAAM,KAAK,GAAG,MAAM,YAAY,EAAE,EAAE,CAAC;YACrC,OAAO,OAAO,CACZ,IAAA,uBAAU,EAAC,IAAI,EAAE,CAAC,CAAC,IAAI,EAAE,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC,EACtD,IAAA,uBAAU,EAAC,IAAI,EAAE,EAAE,CAAC,IAAI,EAAE,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC,CACxD,CAAC;QACJ,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,EAAE,GAAG,CAAa,CAAC;YACzB,IAAI,CAAC,OAAO,CAAC,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,MAAM,CAAC;gBAAE,OAAO,KAAK,CAAC;YAChD,IAAI,CAAC,CAAC,IAAI,KAAK,EAAE,CAAC,IAAI;gBAAE,OAAO,OAAO,CAAC,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,CAAC,CAAC;YACxD,MAAM,KAAK,GAAG,MAAM,YAAY,EAAE,EAAE,CAAC;YACrC,OAAO,OAAO,CACZ,IAAA,uBAAU,EAAC,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC,IAAI,EAAE,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC,EACxD,IAAA,uBAAU,EAAC,EAAE,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,EAAE,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC,CAC3D,CAAC;QACJ,CAAC;IACH,CAAC;AACH,CAAC;AAED,IAAI,YAAY,GAAG,CAAC,CAAC;AAErB;;;GAGG;AACH,SAAgB,WAAW,CAAC,CAAW,EAAE,CAAW,EAAE,IAA4B;IAChF,OAAO,OAAO,CAAC,IAAA,qBAAS,EAAC,CAAC,CAAC,EAAE,IAAA,qBAAS,EAAC,CAAC,CAAC,CAAC,CAAC;AAC7C,CAAC"}

package/dist/mltt/index.d.ts

@@ -0,0 +1,8 @@
+export type { MLTTTerm } from './types';
+export { mVar, mUniverse, mPi, mLam, mApp, mSigma, mPair, mFst, mSnd, mId, mRefl, mNat, mZero, mSucc, mArrow, freeVars, occursFree, termToString, } from './types';
+export { substitute } from './substitute';
+export { reduceStep, normalize, isNormal } from './normalize';
+export { alphaEq, alphaBetaEq } from './equality';
+export { inferType, checkType, isInferError } from './infer';
+export type { InferContext, InferResult } from './infer';
+//# sourceMappingURL=index.d.ts.map

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

@@ -0,0 +1 @@
+{"version":3,"file":"index.d.ts","sourceRoot":"","sources":["../../src/mltt/index.ts"],"names":[],"mappings":"AAcA,YAAY,EAAE,QAAQ,EAAE,MAAM,SAAS,CAAC;AACxC,OAAO,EACL,IAAI,EACJ,SAAS,EACT,GAAG,EACH,IAAI,EACJ,IAAI,EACJ,MAAM,EACN,KAAK,EACL,IAAI,EACJ,IAAI,EACJ,GAAG,EACH,KAAK,EACL,IAAI,EACJ,KAAK,EACL,KAAK,EACL,MAAM,EACN,QAAQ,EACR,UAAU,EACV,YAAY,GACb,MAAM,SAAS,CAAC;AAEjB,OAAO,EAAE,UAAU,EAAE,MAAM,cAAc,CAAC;AAC1C,OAAO,EAAE,UAAU,EAAE,SAAS,EAAE,QAAQ,EAAE,MAAM,aAAa,CAAC;AAC9D,OAAO,EAAE,OAAO,EAAE,WAAW,EAAE,MAAM,YAAY,CAAC;AAClD,OAAO,EAAE,SAAS,EAAE,SAAS,EAAE,YAAY,EAAE,MAAM,SAAS,CAAC;AAC7D,YAAY,EAAE,YAAY,EAAE,WAAW,EAAE,MAAM,SAAS,CAAC"}

package/dist/mltt/index.js

@@ -0,0 +1,49 @@
+"use strict";
+// ============================================================
+// MLTT — Martin-Löf Type Theory (núcleo público)
+// ============================================================
+//
+// Cálculo λ con tipos dependientes:
+//   - Π (x : A). B(x)          funciones dependientes
+//   - Σ (x : A). B(x)          pares dependientes
+//   - Id(A, a, b) + refl       tipo identidad propositional
+//   - Type i jerárquico        universos
+//   - Nat / zero / succ        naturales como tipo base
+//
+// inferType / checkType / normalize / alphaBetaEq son la API mínima
+// para construir lenguajes tipo Coq/Agda didácticos encima.
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.isInferError = exports.checkType = exports.inferType = exports.alphaBetaEq = exports.alphaEq = exports.isNormal = exports.normalize = exports.reduceStep = exports.substitute = exports.termToString = exports.occursFree = exports.freeVars = exports.mArrow = exports.mSucc = exports.mZero = exports.mNat = exports.mRefl = exports.mId = exports.mSnd = exports.mFst = exports.mPair = exports.mSigma = exports.mApp = exports.mLam = exports.mPi = exports.mUniverse = exports.mVar = void 0;
+var types_1 = require("./types");
+Object.defineProperty(exports, "mVar", { enumerable: true, get: function () { return types_1.mVar; } });
+Object.defineProperty(exports, "mUniverse", { enumerable: true, get: function () { return types_1.mUniverse; } });
+Object.defineProperty(exports, "mPi", { enumerable: true, get: function () { return types_1.mPi; } });
+Object.defineProperty(exports, "mLam", { enumerable: true, get: function () { return types_1.mLam; } });
+Object.defineProperty(exports, "mApp", { enumerable: true, get: function () { return types_1.mApp; } });
+Object.defineProperty(exports, "mSigma", { enumerable: true, get: function () { return types_1.mSigma; } });
+Object.defineProperty(exports, "mPair", { enumerable: true, get: function () { return types_1.mPair; } });
+Object.defineProperty(exports, "mFst", { enumerable: true, get: function () { return types_1.mFst; } });
+Object.defineProperty(exports, "mSnd", { enumerable: true, get: function () { return types_1.mSnd; } });
+Object.defineProperty(exports, "mId", { enumerable: true, get: function () { return types_1.mId; } });
+Object.defineProperty(exports, "mRefl", { enumerable: true, get: function () { return types_1.mRefl; } });
+Object.defineProperty(exports, "mNat", { enumerable: true, get: function () { return types_1.mNat; } });
+Object.defineProperty(exports, "mZero", { enumerable: true, get: function () { return types_1.mZero; } });
+Object.defineProperty(exports, "mSucc", { enumerable: true, get: function () { return types_1.mSucc; } });
+Object.defineProperty(exports, "mArrow", { enumerable: true, get: function () { return types_1.mArrow; } });
+Object.defineProperty(exports, "freeVars", { enumerable: true, get: function () { return types_1.freeVars; } });
+Object.defineProperty(exports, "occursFree", { enumerable: true, get: function () { return types_1.occursFree; } });
+Object.defineProperty(exports, "termToString", { enumerable: true, get: function () { return types_1.termToString; } });
+var substitute_1 = require("./substitute");
+Object.defineProperty(exports, "substitute", { enumerable: true, get: function () { return substitute_1.substitute; } });
+var normalize_1 = require("./normalize");
+Object.defineProperty(exports, "reduceStep", { enumerable: true, get: function () { return normalize_1.reduceStep; } });
+Object.defineProperty(exports, "normalize", { enumerable: true, get: function () { return normalize_1.normalize; } });
+Object.defineProperty(exports, "isNormal", { enumerable: true, get: function () { return normalize_1.isNormal; } });
+var equality_1 = require("./equality");
+Object.defineProperty(exports, "alphaEq", { enumerable: true, get: function () { return equality_1.alphaEq; } });
+Object.defineProperty(exports, "alphaBetaEq", { enumerable: true, get: function () { return equality_1.alphaBetaEq; } });
+var infer_1 = require("./infer");
+Object.defineProperty(exports, "inferType", { enumerable: true, get: function () { return infer_1.inferType; } });
+Object.defineProperty(exports, "checkType", { enumerable: true, get: function () { return infer_1.checkType; } });
+Object.defineProperty(exports, "isInferError", { enumerable: true, get: function () { return infer_1.isInferError; } });
+//# sourceMappingURL=index.js.map

package/dist/mltt/index.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.js","sourceRoot":"","sources":["../../src/mltt/index.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,iDAAiD;AACjD,+DAA+D;AAC/D,EAAE;AACF,oCAAoC;AACpC,sDAAsD;AACtD,kDAAkD;AAClD,4DAA4D;AAC5D,yCAAyC;AACzC,wDAAwD;AACxD,EAAE;AACF,oEAAoE;AACpE,4DAA4D;;;AAG5D,iCAmBiB;AAlBf,6FAAA,IAAI,OAAA;AACJ,kGAAA,SAAS,OAAA;AACT,4FAAA,GAAG,OAAA;AACH,6FAAA,IAAI,OAAA;AACJ,6FAAA,IAAI,OAAA;AACJ,+FAAA,MAAM,OAAA;AACN,8FAAA,KAAK,OAAA;AACL,6FAAA,IAAI,OAAA;AACJ,6FAAA,IAAI,OAAA;AACJ,4FAAA,GAAG,OAAA;AACH,8FAAA,KAAK,OAAA;AACL,6FAAA,IAAI,OAAA;AACJ,8FAAA,KAAK,OAAA;AACL,8FAAA,KAAK,OAAA;AACL,+FAAA,MAAM,OAAA;AACN,iGAAA,QAAQ,OAAA;AACR,mGAAA,UAAU,OAAA;AACV,qGAAA,YAAY,OAAA;AAGd,2CAA0C;AAAjC,wGAAA,UAAU,OAAA;AACnB,yCAA8D;AAArD,uGAAA,UAAU,OAAA;AAAE,sGAAA,SAAS,OAAA;AAAE,qGAAA,QAAQ,OAAA;AACxC,uCAAkD;AAAzC,mGAAA,OAAO,OAAA;AAAE,uGAAA,WAAW,OAAA;AAC7B,iCAA6D;AAApD,kGAAA,SAAS,OAAA;AAAE,kGAAA,SAAS,OAAA;AAAE,qGAAA,YAAY,OAAA"}

package/dist/mltt/infer.d.ts

@@ -0,0 +1,17 @@
+import type { MLTTTerm } from './types';
+export type InferContext = Map<string, MLTTTerm>;
+export type InferResult = MLTTTerm | {
+    error: string;
+};
+export declare function isInferError(r: InferResult): r is {
+    error: string;
+};
+/** Infiere el tipo de `term` o devuelve un error legible. */
+export declare function inferType(term: MLTTTerm, ctx?: InferContext): InferResult;
+/**
+ * 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.
+ */
+export declare function checkType(term: MLTTTerm, expected: MLTTTerm, ctx?: InferContext): boolean;
+//# sourceMappingURL=infer.d.ts.map

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

@@ -0,0 +1 @@
+{"version":3,"file":"infer.d.ts","sourceRoot":"","sources":["../../src/mltt/infer.ts"],"names":[],"mappings":"AA6CA,OAAO,KAAK,EAAE,QAAQ,EAAE,MAAM,SAAS,CAAC;AAMxC,MAAM,MAAM,YAAY,GAAG,GAAG,CAAC,MAAM,EAAE,QAAQ,CAAC,CAAC;AACjD,MAAM,MAAM,WAAW,GAAG,QAAQ,GAAG;IAAE,KAAK,EAAE,MAAM,CAAA;CAAE,CAAC;AAEvD,wBAAgB,YAAY,CAAC,CAAC,EAAE,WAAW,GAAG,CAAC,IAAI;IAAE,KAAK,EAAE,MAAM,CAAA;CAAE,CAEnE;AAID,6DAA6D;AAC7D,wBAAgB,SAAS,CAAC,IAAI,EAAE,QAAQ,EAAE,GAAG,GAAE,YAAyB,GAAG,WAAW,CAmJrF;AAED;;;;GAIG;AACH,wBAAgB,SAAS,CACvB,IAAI,EAAE,QAAQ,EACd,QAAQ,EAAE,QAAQ,EAClB,GAAG,GAAE,YAAyB,GAC7B,OAAO,CA0BT"}

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