@stevenvo780/st-lang 4.3.0 → 4.5.0

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"}

package/dist/mltt/types.js

@@ -0,0 +1,211 @@
+"use strict";
+// ============================================================
+// Martin-Löf Type Theory (MLTT) — Términos y tipos dependientes
+// ============================================================
+//
+// Sistema base con:
+//   - Universos jerárquicos:        Type 0 : Type 1 : Type 2 : ...
+//   - Funciones dependientes:       Π (x : A). B(x)
+//   - Pares dependientes:           Σ (x : A). B(x)
+//   - Tipo identidad:               Id(A, a, b), constructor refl(a)
+//   - Naturales como tipo base:     Nat, zero, succ
+//
+// En MLTT no hay distinción sintáctica entre términos y tipos:
+// los tipos *son* términos (de algún universo). Por eso un solo
+// constructor `MLTTTerm` cubre ambos roles.
+//
+// Convenciones:
+//   - `bind` es el nombre del binder (Π, Σ, lam).
+//   - `domain` es el tipo del binder.
+//   - `codomain` (Π) y `second` (Σ) pueden depender de `bind`.
+//   - α-equivalencia se trata vía sustitución capture-avoiding.
+Object.defineProperty(exports, "__esModule", { value: true });
+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;
+exports.occursFree = occursFree;
+exports.freeVars = freeVars;
+exports.termToString = termToString;
+// ---------- Constructores convenientes ----------
+const mVar = (name) => ({ kind: 'var', name });
+exports.mVar = mVar;
+const mUniverse = (level = 0) => ({ kind: 'universe', level });
+exports.mUniverse = mUniverse;
+const mPi = (bind, domain, codomain) => ({
+    kind: 'pi',
+    bind,
+    domain,
+    codomain,
+});
+exports.mPi = mPi;
+const mLam = (bind, domain, body) => ({
+    kind: 'lam',
+    bind,
+    domain,
+    body,
+});
+exports.mLam = mLam;
+const mApp = (fn, arg) => ({ kind: 'app', fn, arg });
+exports.mApp = mApp;
+const mSigma = (bind, first, second) => ({
+    kind: 'sigma',
+    bind,
+    first,
+    second,
+});
+exports.mSigma = mSigma;
+const mPair = (fst, snd) => ({ kind: 'pair', fst, snd });
+exports.mPair = mPair;
+const mFst = (pair) => ({ kind: 'fst', pair });
+exports.mFst = mFst;
+const mSnd = (pair) => ({ kind: 'snd', pair });
+exports.mSnd = mSnd;
+const mId = (type, left, right) => ({
+    kind: 'identity',
+    type,
+    left,
+    right,
+});
+exports.mId = mId;
+const mRefl = (term) => ({ kind: 'refl', term });
+exports.mRefl = mRefl;
+const mNat = () => ({ kind: 'nat' });
+exports.mNat = mNat;
+const mZero = () => ({ kind: 'zero' });
+exports.mZero = mZero;
+const mSucc = (arg) => ({ kind: 'succ', arg });
+exports.mSucc = mSucc;
+// Arrow no-dependiente: Π (_ : A). B  con B sin referencia a _.
+const mArrow = (from, to) => (0, exports.mPi)('_', from, to);
+exports.mArrow = mArrow;
+// ---------- Helpers de inspección ----------
+/** ¿`name` aparece libre en `term`? */
+function occursFree(name, term) {
+    switch (term.kind) {
+        case 'var':
+            return term.name === name;
+        case 'universe':
+        case 'nat':
+        case 'zero':
+            return false;
+        case 'pi':
+        case 'sigma': {
+            const dom = term.kind === 'pi' ? term.domain : term.first;
+            const cod = term.kind === 'pi' ? term.codomain : term.second;
+            if (occursFree(name, dom))
+                return true;
+            if (term.bind === name)
+                return false;
+            return occursFree(name, cod);
+        }
+        case 'lam':
+            if (occursFree(name, term.domain))
+                return true;
+            if (term.bind === name)
+                return false;
+            return occursFree(name, term.body);
+        case 'app':
+            return occursFree(name, term.fn) || occursFree(name, term.arg);
+        case 'pair':
+            return occursFree(name, term.fst) || occursFree(name, term.snd);
+        case 'fst':
+        case 'snd':
+            return occursFree(name, term.pair);
+        case 'identity':
+            return (occursFree(name, term.type) || occursFree(name, term.left) || occursFree(name, term.right));
+        case 'refl':
+            return occursFree(name, term.term);
+        case 'succ':
+            return occursFree(name, term.arg);
+    }
+}
+/** Conjunto de variables libres. */
+function freeVars(term, acc = new Set()) {
+    switch (term.kind) {
+        case 'var':
+            acc.add(term.name);
+            break;
+        case 'universe':
+        case 'nat':
+        case 'zero':
+            break;
+        case 'pi':
+        case 'sigma': {
+            const dom = term.kind === 'pi' ? term.domain : term.first;
+            const cod = term.kind === 'pi' ? term.codomain : term.second;
+            freeVars(dom, acc);
+            const inner = freeVars(cod);
+            inner.delete(term.bind);
+            for (const v of inner)
+                acc.add(v);
+            break;
+        }
+        case 'lam': {
+            freeVars(term.domain, acc);
+            const inner = freeVars(term.body);
+            inner.delete(term.bind);
+            for (const v of inner)
+                acc.add(v);
+            break;
+        }
+        case 'app':
+            freeVars(term.fn, acc);
+            freeVars(term.arg, acc);
+            break;
+        case 'pair':
+            freeVars(term.fst, acc);
+            freeVars(term.snd, acc);
+            break;
+        case 'fst':
+        case 'snd':
+            freeVars(term.pair, acc);
+            break;
+        case 'identity':
+            freeVars(term.type, acc);
+            freeVars(term.left, acc);
+            freeVars(term.right, acc);
+            break;
+        case 'refl':
+            freeVars(term.term, acc);
+            break;
+        case 'succ':
+            freeVars(term.arg, acc);
+            break;
+    }
+    return acc;
+}
+// ---------- Serialización legible ----------
+function termToString(t) {
+    switch (t.kind) {
+        case 'var':
+            return t.name;
+        case 'universe':
+            return t.level === 0 ? 'Type' : `Type ${t.level}`;
+        case 'pi':
+            if (t.bind === '_' || !occursFree(t.bind, t.codomain)) {
+                return `(${termToString(t.domain)} → ${termToString(t.codomain)})`;
+            }
+            return `(Π (${t.bind} : ${termToString(t.domain)}). ${termToString(t.codomain)})`;
+        case 'lam':
+            return `(λ (${t.bind} : ${termToString(t.domain)}). ${termToString(t.body)})`;
+        case 'app':
+            return `(${termToString(t.fn)} ${termToString(t.arg)})`;
+        case 'sigma':
+            return `(Σ (${t.bind} : ${termToString(t.first)}). ${termToString(t.second)})`;
+        case 'pair':
+            return `⟨${termToString(t.fst)}, ${termToString(t.snd)}⟩`;
+        case 'fst':
+            return `fst(${termToString(t.pair)})`;
+        case 'snd':
+            return `snd(${termToString(t.pair)})`;
+        case 'identity':
+            return `Id(${termToString(t.type)}, ${termToString(t.left)}, ${termToString(t.right)})`;
+        case 'refl':
+            return `refl(${termToString(t.term)})`;
+        case 'nat':
+            return 'Nat';
+        case 'zero':
+            return 'zero';
+        case 'succ':
+            return `succ(${termToString(t.arg)})`;
+    }
+}
+//# sourceMappingURL=types.js.map

package/dist/mltt/types.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"types.js","sourceRoot":"","sources":["../../src/mltt/types.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,gEAAgE;AAChE,+DAA+D;AAC/D,EAAE;AACF,oBAAoB;AACpB,mEAAmE;AACnE,oDAAoD;AACpD,oDAAoD;AACpD,qEAAqE;AACrE,oDAAoD;AACpD,EAAE;AACF,+DAA+D;AAC/D,gEAAgE;AAChE,4CAA4C;AAC5C,EAAE;AACF,gBAAgB;AAChB,kDAAkD;AAClD,sCAAsC;AACtC,+DAA+D;AAC/D,gEAAgE;;;AA6DhE,gCAoCC;AAGD,4BAmDC;AAID,oCAkCC;AA3KD,mDAAmD;AAE5C,MAAM,IAAI,GAAG,CAAC,IAAY,EAAY,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,CAAC,CAAC;AAA3D,QAAA,IAAI,QAAuD;AACjE,MAAM,SAAS,GAAG,CAAC,KAAK,GAAG,CAAC,EAAY,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,UAAU,EAAE,KAAK,EAAE,CAAC,CAAC;AAAnE,QAAA,SAAS,aAA0D;AACzE,MAAM,GAAG,GAAG,CAAC,IAAY,EAAE,MAAgB,EAAE,QAAkB,EAAY,EAAE,CAAC,CAAC;IACpF,IAAI,EAAE,IAAI;IACV,IAAI;IACJ,MAAM;IACN,QAAQ;CACT,CAAC,CAAC;AALU,QAAA,GAAG,OAKb;AACI,MAAM,IAAI,GAAG,CAAC,IAAY,EAAE,MAAgB,EAAE,IAAc,EAAY,EAAE,CAAC,CAAC;IACjF,IAAI,EAAE,KAAK;IACX,IAAI;IACJ,MAAM;IACN,IAAI;CACL,CAAC,CAAC;AALU,QAAA,IAAI,QAKd;AACI,MAAM,IAAI,GAAG,CAAC,EAAY,EAAE,GAAa,EAAY,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,KAAK,EAAE,EAAE,EAAE,GAAG,EAAE,CAAC,CAAC;AAA7E,QAAA,IAAI,QAAyE;AACnF,MAAM,MAAM,GAAG,CAAC,IAAY,EAAE,KAAe,EAAE,MAAgB,EAAY,EAAE,CAAC,CAAC;IACpF,IAAI,EAAE,OAAO;IACb,IAAI;IACJ,KAAK;IACL,MAAM;CACP,CAAC,CAAC;AALU,QAAA,MAAM,UAKhB;AACI,MAAM,KAAK,GAAG,CAAC,GAAa,EAAE,GAAa,EAAY,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,GAAG,EAAE,GAAG,EAAE,CAAC,CAAC;AAAjF,QAAA,KAAK,SAA4E;AACvF,MAAM,IAAI,GAAG,CAAC,IAAc,EAAY,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,CAAC,CAAC;AAA7D,QAAA,IAAI,QAAyD;AACnE,MAAM,IAAI,GAAG,CAAC,IAAc,EAAY,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,CAAC,CAAC;AAA7D,QAAA,IAAI,QAAyD;AACnE,MAAM,GAAG,GAAG,CAAC,IAAc,EAAE,IAAc,EAAE,KAAe,EAAY,EAAE,CAAC,CAAC;IACjF,IAAI,EAAE,UAAU;IAChB,IAAI;IACJ,IAAI;IACJ,KAAK;CACN,CAAC,CAAC;AALU,QAAA,GAAG,OAKb;AACI,MAAM,KAAK,GAAG,CAAC,IAAc,EAAY,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,CAAC,CAAC;AAA/D,QAAA,KAAK,SAA0D;AACrE,MAAM,IAAI,GAAG,GAAa,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC,CAAC;AAAzC,QAAA,IAAI,QAAqC;AAC/C,MAAM,KAAK,GAAG,GAAa,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC,CAAC;AAA3C,QAAA,KAAK,SAAsC;AACjD,MAAM,KAAK,GAAG,CAAC,GAAa,EAAY,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,GAAG,EAAE,CAAC,CAAC;AAA7D,QAAA,KAAK,SAAwD;AAE1E,gEAAgE;AACzD,MAAM,MAAM,GAAG,CAAC,IAAc,EAAE,EAAY,EAAY,EAAE,CAAC,IAAA,WAAG,EAAC,GAAG,EAAE,IAAI,EAAE,EAAE,CAAC,CAAC;AAAxE,QAAA,MAAM,UAAkE;AAErF,8CAA8C;AAE9C,uCAAuC;AACvC,SAAgB,UAAU,CAAC,IAAY,EAAE,IAAc;IACrD,QAAQ,IAAI,CAAC,IAAI,EAAE,CAAC;QAClB,KAAK,KAAK;YACR,OAAO,IAAI,CAAC,IAAI,KAAK,IAAI,CAAC;QAC5B,KAAK,UAAU,CAAC;QAChB,KAAK,KAAK,CAAC;QACX,KAAK,MAAM;YACT,OAAO,KAAK,CAAC;QACf,KAAK,IAAI,CAAC;QACV,KAAK,OAAO,CAAC,CAAC,CAAC;YACb,MAAM,GAAG,GAAG,IAAI,CAAC,IAAI,KAAK,IAAI,CAAC,CAAC,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC;YAC1D,MAAM,GAAG,GAAG,IAAI,CAAC,IAAI,KAAK,IAAI,CAAC,CAAC,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC,CAAC,IAAI,CAAC,MAAM,CAAC;YAC7D,IAAI,UAAU,CAAC,IAAI,EAAE,GAAG,CAAC;gBAAE,OAAO,IAAI,CAAC;YACvC,IAAI,IAAI,CAAC,IAAI,KAAK,IAAI;gBAAE,OAAO,KAAK,CAAC;YACrC,OAAO,UAAU,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;QAC/B,CAAC;QACD,KAAK,KAAK;YACR,IAAI,UAAU,CAAC,IAAI,EAAE,IAAI,CAAC,MAAM,CAAC;gBAAE,OAAO,IAAI,CAAC;YAC/C,IAAI,IAAI,CAAC,IAAI,KAAK,IAAI;gBAAE,OAAO,KAAK,CAAC;YACrC,OAAO,UAAU,CAAC,IAAI,EAAE,IAAI,CAAC,IAAI,CAAC,CAAC;QACrC,KAAK,KAAK;YACR,OAAO,UAAU,CAAC,IAAI,EAAE,IAAI,CAAC,EAAE,CAAC,IAAI,UAAU,CAAC,IAAI,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC;QACjE,KAAK,MAAM;YACT,OAAO,UAAU,CAAC,IAAI,EAAE,IAAI,CAAC,GAAG,CAAC,IAAI,UAAU,CAAC,IAAI,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC;QAClE,KAAK,KAAK,CAAC;QACX,KAAK,KAAK;YACR,OAAO,UAAU,CAAC,IAAI,EAAE,IAAI,CAAC,IAAI,CAAC,CAAC;QACrC,KAAK,UAAU;YACb,OAAO,CACL,UAAU,CAAC,IAAI,EAAE,IAAI,CAAC,IAAI,CAAC,IAAI,UAAU,CAAC,IAAI,EAAE,IAAI,CAAC,IAAI,CAAC,IAAI,UAAU,CAAC,IAAI,EAAE,IAAI,CAAC,KAAK,CAAC,CAC3F,CAAC;QACJ,KAAK,MAAM;YACT,OAAO,UAAU,CAAC,IAAI,EAAE,IAAI,CAAC,IAAI,CAAC,CAAC;QACrC,KAAK,MAAM;YACT,OAAO,UAAU,CAAC,IAAI,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC;IACtC,CAAC;AACH,CAAC;AAED,oCAAoC;AACpC,SAAgB,QAAQ,CAAC,IAAc,EAAE,MAAmB,IAAI,GAAG,EAAE;IACnE,QAAQ,IAAI,CAAC,IAAI,EAAE,CAAC;QAClB,KAAK,KAAK;YACR,GAAG,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACnB,MAAM;QACR,KAAK,UAAU,CAAC;QAChB,KAAK,KAAK,CAAC;QACX,KAAK,MAAM;YACT,MAAM;QACR,KAAK,IAAI,CAAC;QACV,KAAK,OAAO,CAAC,CAAC,CAAC;YACb,MAAM,GAAG,GAAG,IAAI,CAAC,IAAI,KAAK,IAAI,CAAC,CAAC,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC;YAC1D,MAAM,GAAG,GAAG,IAAI,CAAC,IAAI,KAAK,IAAI,CAAC,CAAC,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC,CAAC,IAAI,CAAC,MAAM,CAAC;YAC7D,QAAQ,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YACnB,MAAM,KAAK,GAAG,QAAQ,CAAC,GAAG,CAAC,CAAC;YAC5B,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,QAAQ,CAAC,IAAI,CAAC,MAAM,EAAE,GAAG,CAAC,CAAC;YAC3B,MAAM,KAAK,GAAG,QAAQ,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YAClC,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,QAAQ,CAAC,IAAI,CAAC,EAAE,EAAE,GAAG,CAAC,CAAC;YACvB,QAAQ,CAAC,IAAI,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YACxB,MAAM;QACR,KAAK,MAAM;YACT,QAAQ,CAAC,IAAI,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YACxB,QAAQ,CAAC,IAAI,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YACxB,MAAM;QACR,KAAK,KAAK,CAAC;QACX,KAAK,KAAK;YACR,QAAQ,CAAC,IAAI,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YACzB,MAAM;QACR,KAAK,UAAU;YACb,QAAQ,CAAC,IAAI,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YACzB,QAAQ,CAAC,IAAI,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YACzB,QAAQ,CAAC,IAAI,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC;YAC1B,MAAM;QACR,KAAK,MAAM;YACT,QAAQ,CAAC,IAAI,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YACzB,MAAM;QACR,KAAK,MAAM;YACT,QAAQ,CAAC,IAAI,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YACxB,MAAM;IACV,CAAC;IACD,OAAO,GAAG,CAAC;AACb,CAAC;AAED,8CAA8C;AAE9C,SAAgB,YAAY,CAAC,CAAW;IACtC,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;QACf,KAAK,KAAK;YACR,OAAO,CAAC,CAAC,IAAI,CAAC;QAChB,KAAK,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,UAAU,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC,QAAQ,CAAC,EAAE,CAAC;gBACtD,OAAO,IAAI,YAAY,CAAC,CAAC,CAAC,MAAM,CAAC,MAAM,YAAY,CAAC,CAAC,CAAC,QAAQ,CAAC,GAAG,CAAC;YACrE,CAAC;YACD,OAAO,OAAO,CAAC,CAAC,IAAI,MAAM,YAAY,CAAC,CAAC,CAAC,MAAM,CAAC,MAAM,YAAY,CAAC,CAAC,CAAC,QAAQ,CAAC,GAAG,CAAC;QACpF,KAAK,KAAK;YACR,OAAO,OAAO,CAAC,CAAC,IAAI,MAAM,YAAY,CAAC,CAAC,CAAC,MAAM,CAAC,MAAM,YAAY,CAAC,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC;QAChF,KAAK,KAAK;YACR,OAAO,IAAI,YAAY,CAAC,CAAC,CAAC,EAAE,CAAC,IAAI,YAAY,CAAC,CAAC,CAAC,GAAG,CAAC,GAAG,CAAC;QAC1D,KAAK,OAAO;YACV,OAAO,OAAO,CAAC,CAAC,IAAI,MAAM,YAAY,CAAC,CAAC,CAAC,KAAK,CAAC,MAAM,YAAY,CAAC,CAAC,CAAC,MAAM,CAAC,GAAG,CAAC;QACjF,KAAK,MAAM;YACT,OAAO,IAAI,YAAY,CAAC,CAAC,CAAC,GAAG,CAAC,KAAK,YAAY,CAAC,CAAC,CAAC,GAAG,CAAC,GAAG,CAAC;QAC5D,KAAK,KAAK;YACR,OAAO,OAAO,YAAY,CAAC,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC;QACxC,KAAK,KAAK;YACR,OAAO,OAAO,YAAY,CAAC,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC;QACxC,KAAK,UAAU;YACb,OAAO,MAAM,YAAY,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,YAAY,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,YAAY,CAAC,CAAC,CAAC,KAAK,CAAC,GAAG,CAAC;QAC1F,KAAK,MAAM;YACT,OAAO,QAAQ,YAAY,CAAC,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC;QACzC,KAAK,KAAK;YACR,OAAO,KAAK,CAAC;QACf,KAAK,MAAM;YACT,OAAO,MAAM,CAAC;QAChB,KAAK,MAAM;YACT,OAAO,QAAQ,YAAY,CAAC,CAAC,CAAC,GAAG,CAAC,GAAG,CAAC;IAC1C,CAAC;AACH,CAAC"}

package/dist/nbe/index.d.ts

@@ -0,0 +1,3 @@
+export { type Env, type Neutral, type Term, type Type, type Value, alphaEq, ap, apN, lam, tArr, tBase, termToString, typeEq, typeToString, v, vClosure, vNeutral, vNeutralVar, } from './types';
+export { apply, evaluate, makeFreshSupply, normalize, reify } from './nbe';
+//# sourceMappingURL=index.d.ts.map

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

@@ -0,0 +1 @@
+{"version":3,"file":"index.d.ts","sourceRoot":"","sources":["../../src/nbe/index.ts"],"names":[],"mappings":"AAEA,OAAO,EACL,KAAK,GAAG,EACR,KAAK,OAAO,EACZ,KAAK,IAAI,EACT,KAAK,IAAI,EACT,KAAK,KAAK,EACV,OAAO,EACP,EAAE,EACF,GAAG,EACH,GAAG,EACH,IAAI,EACJ,KAAK,EACL,YAAY,EACZ,MAAM,EACN,YAAY,EACZ,CAAC,EACD,QAAQ,EACR,QAAQ,EACR,WAAW,GACZ,MAAM,SAAS,CAAC;AAEjB,OAAO,EAAE,KAAK,EAAE,QAAQ,EAAE,eAAe,EAAE,SAAS,EAAE,KAAK,EAAE,MAAM,OAAO,CAAC"}

package/dist/nbe/index.js

@@ -0,0 +1,25 @@
+"use strict";
+// Punto de entrada público del módulo NbE.
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.reify = exports.normalize = exports.makeFreshSupply = exports.evaluate = exports.apply = exports.vNeutralVar = exports.vNeutral = exports.vClosure = exports.v = exports.typeToString = exports.typeEq = exports.termToString = exports.tBase = exports.tArr = exports.lam = exports.apN = exports.ap = exports.alphaEq = void 0;
+var types_1 = require("./types");
+Object.defineProperty(exports, "alphaEq", { enumerable: true, get: function () { return types_1.alphaEq; } });
+Object.defineProperty(exports, "ap", { enumerable: true, get: function () { return types_1.ap; } });
+Object.defineProperty(exports, "apN", { enumerable: true, get: function () { return types_1.apN; } });
+Object.defineProperty(exports, "lam", { enumerable: true, get: function () { return types_1.lam; } });
+Object.defineProperty(exports, "tArr", { enumerable: true, get: function () { return types_1.tArr; } });
+Object.defineProperty(exports, "tBase", { enumerable: true, get: function () { return types_1.tBase; } });
+Object.defineProperty(exports, "termToString", { enumerable: true, get: function () { return types_1.termToString; } });
+Object.defineProperty(exports, "typeEq", { enumerable: true, get: function () { return types_1.typeEq; } });
+Object.defineProperty(exports, "typeToString", { enumerable: true, get: function () { return types_1.typeToString; } });
+Object.defineProperty(exports, "v", { enumerable: true, get: function () { return types_1.v; } });
+Object.defineProperty(exports, "vClosure", { enumerable: true, get: function () { return types_1.vClosure; } });
+Object.defineProperty(exports, "vNeutral", { enumerable: true, get: function () { return types_1.vNeutral; } });
+Object.defineProperty(exports, "vNeutralVar", { enumerable: true, get: function () { return types_1.vNeutralVar; } });
+var nbe_1 = require("./nbe");
+Object.defineProperty(exports, "apply", { enumerable: true, get: function () { return nbe_1.apply; } });
+Object.defineProperty(exports, "evaluate", { enumerable: true, get: function () { return nbe_1.evaluate; } });
+Object.defineProperty(exports, "makeFreshSupply", { enumerable: true, get: function () { return nbe_1.makeFreshSupply; } });
+Object.defineProperty(exports, "normalize", { enumerable: true, get: function () { return nbe_1.normalize; } });
+Object.defineProperty(exports, "reify", { enumerable: true, get: function () { return nbe_1.reify; } });
+//# sourceMappingURL=index.js.map

package/dist/nbe/index.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.js","sourceRoot":"","sources":["../../src/nbe/index.ts"],"names":[],"mappings":";AAAA,2CAA2C;;;AAE3C,iCAmBiB;AAbf,gGAAA,OAAO,OAAA;AACP,2FAAA,EAAE,OAAA;AACF,4FAAA,GAAG,OAAA;AACH,4FAAA,GAAG,OAAA;AACH,6FAAA,IAAI,OAAA;AACJ,8FAAA,KAAK,OAAA;AACL,qGAAA,YAAY,OAAA;AACZ,+FAAA,MAAM,OAAA;AACN,qGAAA,YAAY,OAAA;AACZ,0FAAA,CAAC,OAAA;AACD,iGAAA,QAAQ,OAAA;AACR,iGAAA,QAAQ,OAAA;AACR,oGAAA,WAAW,OAAA;AAGb,6BAA2E;AAAlE,4FAAA,KAAK,OAAA;AAAE,+FAAA,QAAQ,OAAA;AAAE,sGAAA,eAAe,OAAA;AAAE,gGAAA,SAAS,OAAA;AAAE,4FAAA,KAAK,OAAA"}

package/dist/nbe/nbe.d.ts

@@ -0,0 +1,7 @@
+import { type Env, type Term, type Type, type Value } from './types';
+export declare function makeFreshSupply(prefix?: string): () => string;
+export declare function apply(fn: Value, arg: Value): Value;
+export declare function evaluate(t: Term, env: Env): Value;
+export declare function reify(value: Value, type: Type, freshSupply: () => string): Term;
+export declare function normalize(t: Term, type: Type, freshSupply?: () => string): Term;
+//# sourceMappingURL=nbe.d.ts.map

package/dist/nbe/nbe.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"nbe.d.ts","sourceRoot":"","sources":["../../src/nbe/nbe.ts"],"names":[],"mappings":"AAkBA,OAAO,EACL,KAAK,GAAG,EAER,KAAK,IAAI,EACT,KAAK,IAAI,EACT,KAAK,KAAK,EAIX,MAAM,SAAS,CAAC;AAKjB,wBAAgB,eAAe,CAAC,MAAM,SAAO,GAAG,MAAM,MAAM,CAG3D;AAMD,wBAAgB,KAAK,CAAC,EAAE,EAAE,KAAK,EAAE,GAAG,EAAE,KAAK,GAAG,KAAK,CASlD;AAGD,wBAAgB,QAAQ,CAAC,CAAC,EAAE,IAAI,EAAE,GAAG,EAAE,GAAG,GAAG,KAAK,CAiBjD;AAKD,wBAAgB,KAAK,CAAC,KAAK,EAAE,KAAK,EAAE,IAAI,EAAE,IAAI,EAAE,WAAW,EAAE,MAAM,MAAM,GAAG,IAAI,CAgB/E;AA8BD,wBAAgB,SAAS,CAAC,CAAC,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,WAAW,CAAC,EAAE,MAAM,MAAM,GAAG,IAAI,CAI/E"}

package/dist/nbe/nbe.js

@@ -0,0 +1,118 @@
+"use strict";
+// ============================================================
+// NbE — Normalization by Evaluation para STLC
+// ============================================================
+//
+// Idea:
+//   - evaluate :: Term × Env → Value
+//       interpreta el término en el dominio semántico, donde las
+//       variables libres y aplicaciones atascadas viven como
+//       "neutrales" y las λ se vuelven clausuras nativas de TS.
+//   - reify :: Value × Type → Term
+//       baja un valor a un término en β-normal forma η-larga,
+//       guiándose por el tipo. La η-expansión emerge de "aplicar"
+//       el valor a una variable fresca cuando el tipo es flecha.
+//   - normalize = reify ∘ evaluate
+//
+// Resultado: forma normal única (β-corta η-larga) por término bien
+// tipado, sin enumerar reducciones explícitas.
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.makeFreshSupply = makeFreshSupply;
+exports.apply = apply;
+exports.evaluate = evaluate;
+exports.reify = reify;
+exports.normalize = normalize;
+const types_1 = require("./types");
+// ---------- Generador de nombres frescos ----------
+// Generador determinístico: dado el mismo input, mismo output.
+// El estado vive en el closure devuelto.
+function makeFreshSupply(prefix = '_x') {
+    let n = 0;
+    return () => `${prefix}${n++}`;
+}
+// ---------- Aplicación semántica ----------
+// Aplica un Value a otro Value. Si la cabeza es una clausura,
+// β-reduce ahora mismo (extiende el entorno). Si es un neutral,
+// queda atascado como aplicación neutral.
+function apply(fn, arg) {
+    if (fn.kind === 'closure') {
+        const newEnv = new Map(fn.env);
+        newEnv.set(fn.param, arg);
+        return evaluate(fn.body, newEnv);
+    }
+    // fn.kind === 'neutral'
+    const head = { kind: 'app', head: fn.head, arg };
+    return (0, types_1.vNeutral)(head);
+}
+// ---------- Evaluador ----------
+function evaluate(t, env) {
+    switch (t.kind) {
+        case 'var': {
+            const bound = env.get(t.name);
+            // Variable libre → neutral. Variable ligada → valor del entorno.
+            if (bound === undefined)
+                return (0, types_1.vNeutralVar)(t.name);
+            return bound;
+        }
+        case 'abs':
+            // Captura del entorno en clausura — la β-reducción se hará al aplicar.
+            return (0, types_1.vClosure)(env, t.param, t.paramType, t.body);
+        case 'app': {
+            const fnV = evaluate(t.fn, env);
+            const argV = evaluate(t.arg, env);
+            return apply(fnV, argV);
+        }
+    }
+}
+// ---------- Reificación ----------
+// Trae el valor de vuelta a la sintaxis en forma normal η-larga.
+// El tipo dirige la reificación: en cada arrow type η-expandimos.
+function reify(value, type, freshSupply) {
+    if (type.kind === 'arrow') {
+        // η-expansión: λy:A. reify (apply value (var y)) : B
+        const y = freshSupply();
+        const body = reify(apply(value, (0, types_1.vNeutralVar)(y)), type.to, freshSupply);
+        return { kind: 'abs', param: y, paramType: type.from, body };
+    }
+    // type.kind === 'base'
+    if (value.kind === 'neutral') {
+        return reifyNeutral(value.head, freshSupply);
+    }
+    // Inalcanzable bajo tipado correcto: una clausura debería tener
+    // tipo flecha. Si esto pasa, el caller pasó un tipo equivocado.
+    throw new Error('NbE.reify: clausura encontrada en tipo base — el tipo no corresponde al término');
+}
+function reifyNeutral(n, freshSupply) {
+    if (n.kind === 'var')
+        return { kind: 'var', name: n.name };
+    // Aplicación neutral: el argumento se reifica sin saber su tipo
+    // exacto, pero como construimos siempre desde apply(...) sobre
+    // valores η-largos, basta con bajar recursivamente.
+    return {
+        kind: 'app',
+        fn: reifyNeutral(n.head, freshSupply),
+        arg: reifyValueUntyped(n.arg, freshSupply),
+    };
+}
+// Reificación sin tipo, usada dentro de spines neutrales donde el
+// argumento ya está en forma normal por construcción (vino de
+// evaluar un subtérmino y de aplicarse a neutrales). En el peor caso
+// devuelve la forma "honesta" del valor.
+function reifyValueUntyped(value, freshSupply) {
+    if (value.kind === 'neutral')
+        return reifyNeutral(value.head, freshSupply);
+    // Clausura sin tipo conocido: la bajamos β-normal honestamente
+    // aplicándola a una variable fresca (η-1 expansión local).
+    const y = freshSupply();
+    const body = reifyValueUntyped(apply(value, (0, types_1.vNeutralVar)(y)), freshSupply);
+    return { kind: 'abs', param: y, paramType: value.paramType, body };
+}
+// ---------- Normalización ----------
+// NbE clásico: evalúa, luego reifica al tipo objetivo.
+// Si no se pasa supply, se crea uno determinístico fresco por llamada.
+function normalize(t, type, freshSupply) {
+    const supply = freshSupply ?? makeFreshSupply();
+    const v = evaluate(t, new Map());
+    return reify(v, type, supply);
+}
+//# sourceMappingURL=nbe.js.map

package/dist/nbe/nbe.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"nbe.js","sourceRoot":"","sources":["../../src/nbe/nbe.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,8CAA8C;AAC9C,+DAA+D;AAC/D,EAAE;AACF,QAAQ;AACR,qCAAqC;AACrC,iEAAiE;AACjE,6DAA6D;AAC7D,gEAAgE;AAChE,mCAAmC;AACnC,8DAA8D;AAC9D,kEAAkE;AAClE,iEAAiE;AACjE,mCAAmC;AACnC,EAAE;AACF,mEAAmE;AACnE,+CAA+C;;AAgB/C,0CAGC;AAMD,sBASC;AAGD,4BAiBC;AAKD,sBAgBC;AA8BD,8BAIC;AA3GD,mCASiB;AAEjB,qDAAqD;AACrD,+DAA+D;AAC/D,yCAAyC;AACzC,SAAgB,eAAe,CAAC,MAAM,GAAG,IAAI;IAC3C,IAAI,CAAC,GAAG,CAAC,CAAC;IACV,OAAO,GAAG,EAAE,CAAC,GAAG,MAAM,GAAG,CAAC,EAAE,EAAE,CAAC;AACjC,CAAC;AAED,6CAA6C;AAC7C,8DAA8D;AAC9D,gEAAgE;AAChE,0CAA0C;AAC1C,SAAgB,KAAK,CAAC,EAAS,EAAE,GAAU;IACzC,IAAI,EAAE,CAAC,IAAI,KAAK,SAAS,EAAE,CAAC;QAC1B,MAAM,MAAM,GAAG,IAAI,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,CAAC;QAC/B,MAAM,CAAC,GAAG,CAAC,EAAE,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC;QAC1B,OAAO,QAAQ,CAAC,EAAE,CAAC,IAAI,EAAE,MAAM,CAAC,CAAC;IACnC,CAAC;IACD,wBAAwB;IACxB,MAAM,IAAI,GAAY,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,EAAE,CAAC,IAAI,EAAE,GAAG,EAAE,CAAC;IAC1D,OAAO,IAAA,gBAAQ,EAAC,IAAI,CAAC,CAAC;AACxB,CAAC;AAED,kCAAkC;AAClC,SAAgB,QAAQ,CAAC,CAAO,EAAE,GAAQ;IACxC,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;QACf,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,KAAK,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;YAC9B,iEAAiE;YACjE,IAAI,KAAK,KAAK,SAAS;gBAAE,OAAO,IAAA,mBAAW,EAAC,CAAC,CAAC,IAAI,CAAC,CAAC;YACpD,OAAO,KAAK,CAAC;QACf,CAAC;QACD,KAAK,KAAK;YACR,uEAAuE;YACvE,OAAO,IAAA,gBAAQ,EAAC,GAAG,EAAE,CAAC,CAAC,KAAK,EAAE,CAAC,CAAC,SAAS,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC;QACrD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,GAAG,GAAG,QAAQ,CAAC,CAAC,CAAC,EAAE,EAAE,GAAG,CAAC,CAAC;YAChC,MAAM,IAAI,GAAG,QAAQ,CAAC,CAAC,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YAClC,OAAO,KAAK,CAAC,GAAG,EAAE,IAAI,CAAC,CAAC;QAC1B,CAAC;IACH,CAAC;AACH,CAAC;AAED,oCAAoC;AACpC,iEAAiE;AACjE,kEAAkE;AAClE,SAAgB,KAAK,CAAC,KAAY,EAAE,IAAU,EAAE,WAAyB;IACvE,IAAI,IAAI,CAAC,IAAI,KAAK,OAAO,EAAE,CAAC;QAC1B,qDAAqD;QACrD,MAAM,CAAC,GAAG,WAAW,EAAE,CAAC;QACxB,MAAM,IAAI,GAAG,KAAK,CAAC,KAAK,CAAC,KAAK,EAAE,IAAA,mBAAW,EAAC,CAAC,CAAC,CAAC,EAAE,IAAI,CAAC,EAAE,EAAE,WAAW,CAAC,CAAC;QACvE,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,CAAC,EAAE,SAAS,EAAE,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,CAAC;IAC/D,CAAC;IACD,uBAAuB;IACvB,IAAI,KAAK,CAAC,IAAI,KAAK,SAAS,EAAE,CAAC;QAC7B,OAAO,YAAY,CAAC,KAAK,CAAC,IAAI,EAAE,WAAW,CAAC,CAAC;IAC/C,CAAC;IACD,gEAAgE;IAChE,gEAAgE;IAChE,MAAM,IAAI,KAAK,CACb,iFAAiF,CAClF,CAAC;AACJ,CAAC;AAED,SAAS,YAAY,CAAC,CAAU,EAAE,WAAyB;IACzD,IAAI,CAAC,CAAC,IAAI,KAAK,KAAK;QAAE,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,CAAC,CAAC,IAAI,EAAE,CAAC;IAC3D,gEAAgE;IAChE,+DAA+D;IAC/D,oDAAoD;IACpD,OAAO;QACL,IAAI,EAAE,KAAK;QACX,EAAE,EAAE,YAAY,CAAC,CAAC,CAAC,IAAI,EAAE,WAAW,CAAC;QACrC,GAAG,EAAE,iBAAiB,CAAC,CAAC,CAAC,GAAG,EAAE,WAAW,CAAC;KAC3C,CAAC;AACJ,CAAC;AAED,kEAAkE;AAClE,8DAA8D;AAC9D,qEAAqE;AACrE,yCAAyC;AACzC,SAAS,iBAAiB,CAAC,KAAY,EAAE,WAAyB;IAChE,IAAI,KAAK,CAAC,IAAI,KAAK,SAAS;QAAE,OAAO,YAAY,CAAC,KAAK,CAAC,IAAI,EAAE,WAAW,CAAC,CAAC;IAC3E,+DAA+D;IAC/D,2DAA2D;IAC3D,MAAM,CAAC,GAAG,WAAW,EAAE,CAAC;IACxB,MAAM,IAAI,GAAG,iBAAiB,CAAC,KAAK,CAAC,KAAK,EAAE,IAAA,mBAAW,EAAC,CAAC,CAAC,CAAC,EAAE,WAAW,CAAC,CAAC;IAC1E,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,CAAC,EAAE,SAAS,EAAE,KAAK,CAAC,SAAS,EAAE,IAAI,EAAE,CAAC;AACrE,CAAC;AAED,sCAAsC;AACtC,uDAAuD;AACvD,uEAAuE;AACvE,SAAgB,SAAS,CAAC,CAAO,EAAE,IAAU,EAAE,WAA0B;IACvE,MAAM,MAAM,GAAG,WAAW,IAAI,eAAe,EAAE,CAAC;IAChD,MAAM,CAAC,GAAG,QAAQ,CAAC,CAAC,EAAE,IAAI,GAAG,EAAE,CAAC,CAAC;IACjC,OAAO,KAAK,CAAC,CAAC,EAAE,IAAI,EAAE,MAAM,CAAC,CAAC;AAChC,CAAC"}

package/dist/nbe/types.d.ts

@@ -0,0 +1,54 @@
+export type Type = {
+    kind: 'base';
+    name: string;
+} | {
+    kind: 'arrow';
+    from: Type;
+    to: Type;
+};
+export type Term = {
+    kind: 'var';
+    name: string;
+} | {
+    kind: 'abs';
+    param: string;
+    paramType: Type;
+    body: Term;
+} | {
+    kind: 'app';
+    fn: Term;
+    arg: Term;
+};
+export type Value = {
+    kind: 'neutral';
+    head: Neutral;
+} | {
+    kind: 'closure';
+    env: Env;
+    param: string;
+    paramType: Type;
+    body: Term;
+};
+export type Neutral = {
+    kind: 'var';
+    name: string;
+} | {
+    kind: 'app';
+    head: Neutral;
+    arg: Value;
+};
+export type Env = Map<string, Value>;
+export declare const tBase: (name: string) => Type;
+export declare const tArr: (from: Type, to: Type) => Type;
+export declare const v: (name: string) => Term;
+export declare const lam: (param: string, paramType: Type, body: Term) => Term;
+export declare const ap: (fn: Term, arg: Term) => Term;
+export declare const apN: (head: Term, ...args: Term[]) => Term;
+export declare const vNeutralVar: (name: string) => Value;
+export declare const vNeutral: (head: Neutral) => Value;
+export declare const vClosure: (env: Env, param: string, paramType: Type, body: Term) => Value;
+export declare function alphaEq(a: Term, b: Term): boolean;
+export declare function typeEq(a: Type, b: Type): boolean;
+export declare function typeToString(t: Type): string;
+export declare function termToString(t: Term): string;
+//# sourceMappingURL=types.d.ts.map

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

@@ -0,0 +1 @@
+{"version":3,"file":"types.d.ts","sourceRoot":"","sources":["../../src/nbe/types.ts"],"names":[],"mappings":"AAUA,MAAM,MAAM,IAAI,GAAG;IAAE,IAAI,EAAE,MAAM,CAAC;IAAC,IAAI,EAAE,MAAM,CAAA;CAAE,GAAG;IAAE,IAAI,EAAE,OAAO,CAAC;IAAC,IAAI,EAAE,IAAI,CAAC;IAAC,EAAE,EAAE,IAAI,CAAA;CAAE,CAAC;AAE5F,MAAM,MAAM,IAAI,GACZ;IAAE,IAAI,EAAE,KAAK,CAAC;IAAC,IAAI,EAAE,MAAM,CAAA;CAAE,GAC7B;IAAE,IAAI,EAAE,KAAK,CAAC;IAAC,KAAK,EAAE,MAAM,CAAC;IAAC,SAAS,EAAE,IAAI,CAAC;IAAC,IAAI,EAAE,IAAI,CAAA;CAAE,GAC3D;IAAE,IAAI,EAAE,KAAK,CAAC;IAAC,EAAE,EAAE,IAAI,CAAC;IAAC,GAAG,EAAE,IAAI,CAAA;CAAE,CAAC;AAMzC,MAAM,MAAM,KAAK,GACb;IAAE,IAAI,EAAE,SAAS,CAAC;IAAC,IAAI,EAAE,OAAO,CAAA;CAAE,GAClC;IAAE,IAAI,EAAE,SAAS,CAAC;IAAC,GAAG,EAAE,GAAG,CAAC;IAAC,KAAK,EAAE,MAAM,CAAC;IAAC,SAAS,EAAE,IAAI,CAAC;IAAC,IAAI,EAAE,IAAI,CAAA;CAAE,CAAC;AAE9E,MAAM,MAAM,OAAO,GAAG;IAAE,IAAI,EAAE,KAAK,CAAC;IAAC,IAAI,EAAE,MAAM,CAAA;CAAE,GAAG;IAAE,IAAI,EAAE,KAAK,CAAC;IAAC,IAAI,EAAE,OAAO,CAAC;IAAC,GAAG,EAAE,KAAK,CAAA;CAAE,CAAC;AAEjG,MAAM,MAAM,GAAG,GAAG,GAAG,CAAC,MAAM,EAAE,KAAK,CAAC,CAAC;AAGrC,eAAO,MAAM,KAAK,GAAI,MAAM,MAAM,KAAG,IAAgC,CAAC;AACtE,eAAO,MAAM,IAAI,GAAI,MAAM,IAAI,EAAE,IAAI,IAAI,KAAG,IAAqC,CAAC;AAElF,eAAO,MAAM,CAAC,GAAI,MAAM,MAAM,KAAG,IAA+B,CAAC;AACjE,eAAO,MAAM,GAAG,GAAI,OAAO,MAAM,EAAE,WAAW,IAAI,EAAE,MAAM,IAAI,KAAG,IAK/D,CAAC;AACH,eAAO,MAAM,EAAE,GAAI,IAAI,IAAI,EAAE,KAAK,IAAI,KAAG,IAAkC,CAAC;AAC5E,eAAO,MAAM,GAAG,GAAI,MAAM,IAAI,EAAE,GAAG,MAAM,IAAI,EAAE,KAAG,IAA6B,CAAC;AAGhF,eAAO,MAAM,WAAW,GAAI,MAAM,MAAM,KAAG,KAGzC,CAAC;AACH,eAAO,MAAM,QAAQ,GAAI,MAAM,OAAO,KAAG,KAAoC,CAAC;AAC9E,eAAO,MAAM,QAAQ,GAAI,KAAK,GAAG,EAAE,OAAO,MAAM,EAAE,WAAW,IAAI,EAAE,MAAM,IAAI,KAAG,KAM9E,CAAC;AAIH,wBAAgB,OAAO,CAAC,CAAC,EAAE,IAAI,EAAE,CAAC,EAAE,IAAI,GAAG,OAAO,CAEjD;AAsCD,wBAAgB,MAAM,CAAC,CAAC,EAAE,IAAI,EAAE,CAAC,EAAE,IAAI,GAAG,OAAO,CAOhD;AAGD,wBAAgB,YAAY,CAAC,CAAC,EAAE,IAAI,GAAG,MAAM,CAK5C;AAED,wBAAgB,YAAY,CAAC,CAAC,EAAE,IAAI,GAAG,MAAM,CAY5C"}