@stevenvo780/st-lang 4.4.0 → 4.5.0

package/dist/higher-order-unify/unify.js

@@ -0,0 +1,306 @@
+"use strict";
+// ============================================================
+// Higher-order unification — Algoritmo de unificación Miller
+// ============================================================
+//
+// Implementa el fragmento de patrón de la unificación de orden superior.
+// Referencia: Dale Miller, "A Logic Programming Language with Lambda
+// Abstraction, Function Variables, and Simple Unification", 1991.
+//
+// Garantías del fragmento de patrón:
+//   - Decidible (siempre termina).
+//   - Unicidad: si existe unificador, existe un único MGU (most general
+//     unifier) módulo α-equivalencia.
+//
+// Manejo de terms no-patrón:
+//   Los pares que involucran meta-variables aplicadas a no-variables o
+//   variables repetidas/libres se rechazan (retornan null) para mantener
+//   la decidibilidad. Ver `isPattern` en pattern.ts.
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.unifyPattern = unifyPattern;
+exports.buildLambdaBinding = buildLambdaBinding;
+exports.unifyMetaApp = unifyMetaApp;
+const normalize_1 = require("./normalize");
+const pattern_1 = require("./pattern");
+// Unifica dos HOTerms usando el algoritmo de patrón Miller.
+// Devuelve la sustitución de meta-variables (MGU) o null si no unifican.
+function unifyPattern(t1, t2) {
+    const subst = {};
+    const ok = unify((0, normalize_1.normalize)(t1), (0, normalize_1.normalize)(t2), subst, new Map(), new Map());
+    return ok ? subst : null;
+}
+// Función recursiva de unificación.
+// `envL` / `envR` mapean nombres de variables ligadas a índices de De Bruijn
+// para comparación α-invariante de variables ligadas.
+function unify(t1, t2, subst, envL, envR) {
+    // Expandir meta-variables si ya tienen binding
+    const s1 = deref(t1, subst);
+    const s2 = deref(t2, subst);
+    // Ambas son meta iguales sin binding → trivialmente iguales
+    if (s1.kind === 'meta' && s2.kind === 'meta' && s1.name === s2.name)
+        return true;
+    // Meta del lado izquierdo
+    if (s1.kind === 'meta') {
+        return bindMeta(s1.name, s2, subst, envR);
+    }
+    // Meta del lado derecho
+    if (s2.kind === 'meta') {
+        return bindMeta(s2.name, s1, subst, envL);
+    }
+    // Variables libres/ligadas
+    if (s1.kind === 'var' && s2.kind === 'var') {
+        const i1 = envL.get(s1.name);
+        const i2 = envR.get(s2.name);
+        if (i1 !== undefined && i2 !== undefined)
+            return i1 === i2; // ambas ligadas
+        if (i1 === undefined && i2 === undefined)
+            return s1.name === s2.name; // ambas libres
+        return false; // una ligada, una libre
+    }
+    // Abstracciones: introducir binder fresco para comparación
+    if (s1.kind === 'abs' && s2.kind === 'abs') {
+        const idx = envL.size; // índice único para este nivel de ligado
+        const newEnvL = new Map(envL);
+        newEnvL.set(s1.param, idx);
+        const newEnvR = new Map(envR);
+        newEnvR.set(s2.param, idx);
+        return unify(s1.body, s2.body, subst, newEnvL, newEnvR);
+    }
+    // Aplicaciones: detectar el caso Miller (meta aplicada a vars ligadas)
+    if (s1.kind === 'app' || s2.kind === 'app') {
+        const f1 = s1.kind === 'app' ? flatHead(s1) : { fn: s1, args: [] };
+        const f2 = s2.kind === 'app' ? flatHead(s2) : { fn: s2, args: [] };
+        // Caso Miller: meta en cabeza de una app
+        // Verificamos la condición de patrón: args deben ser variables ligadas distintas
+        if (f1.fn.kind === 'meta' && f1.fn !== f2.fn) {
+            if (!isMetaPatternApp(f1.args, envL))
+                return false;
+            return bindMetaApp(f1.fn.name, f1.args, s2, subst, envL, envR);
+        }
+        if (f2.fn.kind === 'meta' && f2.fn !== f1.fn) {
+            if (!isMetaPatternApp(f2.args, envR))
+                return false;
+            return bindMetaApp(f2.fn.name, f2.args, s1, subst, envR, envL);
+        }
+        // Caso rigid-rigid: ambas cabezas son constructores concretos
+        if (s1.kind === 'app' && s2.kind === 'app') {
+            if (!unify(f1.fn, f2.fn, subst, envL, envR))
+                return false;
+            if (f1.args.length !== f2.args.length)
+                return false;
+            for (let i = 0; i < f1.args.length; i++) {
+                if (!unify(f1.args[i], f2.args[i], subst, envL, envR))
+                    return false;
+            }
+            return true;
+        }
+    }
+    return false; // kinds distintos, no se unifican
+}
+// Verifica que los args de una app con cabeza meta son todas variables
+// ligadas y distintas (condición de patrón Miller).
+function isMetaPatternApp(args, env) {
+    const seen = new Set();
+    for (const a of args) {
+        if (a.kind !== 'var')
+            return false;
+        const idx = env.get(a.name);
+        if (idx === undefined)
+            return false; // variable libre, no ligada
+        if (seen.has(idx))
+            return false; // repetida
+        seen.add(idx);
+    }
+    return true;
+}
+// Resuelve el caso Miller: metaName aplicado a [y₁…yₙ] (vars ligadas distintas)
+// debe unificar con `rhs`. Construye M ↦ λy₁…yₙ. rhs' donde rhs' es rhs
+// expresado en términos de los parámetros formales.
+// envMeta es el entorno del lado donde vive la meta; envRhs es el del rhs.
+function bindMetaApp(metaName, metaArgs, rhs, subst, envMeta, envRhs) {
+    // Los parámetros formales de la lambda que vamos a construir son
+    // los nombres reales de las vars ligadas (de izquierda a derecha).
+    const params = metaArgs.map((a) => a.name);
+    // Para construir el binding correcto de M, necesitamos reescribir `rhs`
+    // sustituyendo las variables del envRhs que corresponden a los params
+    // de envMeta por los mismos nombres que usaremos en la lambda.
+    // En el caso más simple (mismo conjunto de binders) es la identidad.
+    // Construimos: M ↦ λp₁…pₙ. rhs_reescrito
+    const lambda = buildLambdaForMeta(params, rhs, envMeta, envRhs);
+    if (lambda === null)
+        return false;
+    // Occurs check
+    if (metaOccurs(metaName, lambda, subst))
+        return false;
+    subst[metaName] = lambda;
+    return true;
+}
+// Construye λp₁…pₙ. body donde body es `rhs` con las variables ligadas
+// de envRhs que tienen el mismo índice que los params en envMeta
+// renombradas a p₁…pₙ.
+function buildLambdaForMeta(params, rhs, envMeta, envRhs) {
+    // Mapeamos índices de De Bruijn del meta → nombre de param formal
+    const idxToParam = new Map();
+    for (const p of params) {
+        const idx = envMeta.get(p);
+        if (idx === undefined)
+            return null;
+        idxToParam.set(idx, p);
+    }
+    // Renombramos en rhs las variables ligadas cuyos índices correspondan
+    // a los parámetros de la meta.
+    const body = renameByIndex(rhs, envRhs, idxToParam);
+    if (body === null)
+        return null;
+    // Construir λp₁. λp₂. … body
+    let result = body;
+    for (let i = params.length - 1; i >= 0; i--) {
+        result = { kind: 'abs', param: params[i], body: result };
+    }
+    return result;
+}
+// Renombra las variables libres de `t` (en el sentido de `env`) que tienen
+// un índice en `idxToParam` con el nombre param correspondiente.
+// Devuelve null si alguna variable ligada del scope local no está en
+// idxToParam (implicaría que rhs menciona una variable local que no es
+// argumento del meta → escapa de scope).
+function renameByIndex(t, env, idxToParam) {
+    switch (t.kind) {
+        case 'meta':
+            return t;
+        case 'var': {
+            const idx = env.get(t.name);
+            if (idx === undefined)
+                return t; // variable libre del objeto-lenguaje: OK
+            const param = idxToParam.get(idx);
+            if (param === undefined)
+                return null; // ligada local no en scope del meta: escapa
+            return { kind: 'var', name: param };
+        }
+        case 'abs': {
+            // El param del abs introduce un índice nuevo; no lo incluimos en env
+            // (o usamos un índice negativo para "más interno")
+            const newEnv = new Map(env);
+            // Damos un índice fresco negativo para indicar "ligada más internamente"
+            // que todas las del contexto actual → nunca está en idxToParam.
+            const innerIdx = -(newEnv.size + 1);
+            newEnv.set(t.param, innerIdx);
+            const b = renameByIndex(t.body, newEnv, idxToParam);
+            if (b === null)
+                return null;
+            return { kind: 'abs', param: t.param, body: b };
+        }
+        case 'app': {
+            const fn = renameByIndex(t.fn, env, idxToParam);
+            if (fn === null)
+                return null;
+            const args = [];
+            for (const a of t.args) {
+                const a2 = renameByIndex(a, env, idxToParam);
+                if (a2 === null)
+                    return null;
+                args.push(a2);
+            }
+            return { kind: 'app', fn, args };
+        }
+    }
+}
+// Aplana app anidadas para facilitar comparación cabeza-argumentos.
+function flatHead(t) {
+    if (t.kind !== 'app')
+        return { fn: t, args: [] };
+    const inner = flatHead(t.fn);
+    return { fn: inner.fn, args: [...inner.args, ...t.args] };
+}
+// Expande una meta-variable si tiene binding en subst.
+function deref(t, subst) {
+    if (t.kind === 'meta') {
+        const binding = subst[t.name];
+        if (binding !== undefined)
+            return deref((0, normalize_1.normalize)((0, normalize_1.applyHOSubst)(binding, subst)), subst);
+    }
+    return t;
+}
+// Intenta ligar la meta-variable `metaName` al término `value`.
+// `env` es el entorno de variables ligadas del lado donde vive `value`.
+function bindMeta(metaName, value, subst, env) {
+    // Occurs check: la meta no puede aparecer en su propio binding
+    if (metaOccurs(metaName, value, subst))
+        return false;
+    // Verificar que el valor es un pattern en el contexto dado
+    // (necesitamos reconstruir el scope de variables ligadas desde `env`)
+    const boundScope = new Set(env.keys());
+    if (!(0, pattern_1.isPattern)(value, boundScope))
+        return false;
+    // El binding debe ser cerrado: las variables libres del valor deben
+    // estar disponibles en el scope del meta (conservador: aceptamos si
+    // las FV son todas libres en el objeto-lenguaje, no ligadas locales
+    // que no estarán en scope del meta).
+    // Para el fragmento de patrón el check de scope es:
+    //   FV(value) ∩ bound_vars_local = ∅ (variables ligadas localmente
+    //   no pueden escapar a través del meta).
+    // En nuestro caso `env` contiene exactamente las variables ligadas del
+    // lado donde nace `value`; las FV del value que NO están en `env` son
+    // variables libres del objeto-lenguaje, que sí pueden aparecer en el
+    // binding del meta.
+    const fv = (0, normalize_1.freeVarsHO)(value);
+    for (const v of fv) {
+        if (env.has(v))
+            return false; // variable ligada local escapa → rechazar
+    }
+    subst[metaName] = value;
+    return true;
+}
+// ¿La meta `name` aparece (directa o transitivamente) en `t`?
+function metaOccurs(name, t, subst) {
+    switch (t.kind) {
+        case 'var':
+            return false;
+        case 'meta': {
+            if (t.name === name)
+                return true;
+            const binding = subst[t.name];
+            return binding !== undefined ? metaOccurs(name, binding, subst) : false;
+        }
+        case 'abs':
+            return metaOccurs(name, t.body, subst);
+        case 'app':
+            if (metaOccurs(name, t.fn, subst))
+                return true;
+            for (const a of t.args) {
+                if (metaOccurs(name, a, subst))
+                    return true;
+            }
+            return false;
+    }
+}
+// ---- Utilidad: proyección inversa para meta aplicada a variables ----
+//
+// Cuando se une M[y₁…yₙ] ≈ body (pattern case), el MGU es
+//   M ↦ λy₁…yₙ. body
+// Esta función construye ese lambda dado el binding encontrado.
+function buildLambdaBinding(params, body, avoidNames) {
+    // Usamos los params tal cual; si hay conflictos de nombres en body,
+    // la sustitución capture-avoiding de applyHOSubst se encarga.
+    let result = body;
+    for (let i = params.length - 1; i >= 0; i--) {
+        const p = params[i];
+        result = { kind: 'abs', param: p, body: result };
+    }
+    void avoidNames; // reservado para extensión
+    return result;
+}
+// Unifica M aplicada a variables ligadas con un cuerpo.
+// Caso central del fragmento Miller: (M y₁ … yₙ) ≈ body
+// donde yᵢ son variables ligadas distintas.
+// Retorna HOSubst con M ↦ λy₁…yₙ. body, o null si no es patrón.
+function unifyMetaApp(metaName, boundVars, body) {
+    // Verificar que boundVars son distintos
+    if (new Set(boundVars).size !== boundVars.length)
+        return null;
+    // Construir la abstracción
+    const avoid = (0, normalize_1.allNamesHO)(body);
+    const lambda = buildLambdaBinding(boundVars, body, avoid);
+    return { [metaName]: lambda };
+}
+//# sourceMappingURL=unify.js.map

package/dist/higher-order-unify/unify.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"unify.js","sourceRoot":"","sources":["../../src/higher-order-unify/unify.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,6DAA6D;AAC7D,+DAA+D;AAC/D,EAAE;AACF,yEAAyE;AACzE,qEAAqE;AACrE,kEAAkE;AAClE,EAAE;AACF,qCAAqC;AACrC,mCAAmC;AACnC,wEAAwE;AACxE,sCAAsC;AACtC,EAAE;AACF,6BAA6B;AAC7B,uEAAuE;AACvE,yEAAyE;AACzE,qDAAqD;;AAQrD,oCAIC;AAqRD,gDAcC;AAMD,oCASC;AA3TD,2CAA8E;AAC9E,uCAAsC;AAEtC,4DAA4D;AAC5D,yEAAyE;AACzE,SAAgB,YAAY,CAAC,EAAU,EAAE,EAAU;IACjD,MAAM,KAAK,GAAY,EAAE,CAAC;IAC1B,MAAM,EAAE,GAAG,KAAK,CAAC,IAAA,qBAAS,EAAC,EAAE,CAAC,EAAE,IAAA,qBAAS,EAAC,EAAE,CAAC,EAAE,KAAK,EAAE,IAAI,GAAG,EAAE,EAAE,IAAI,GAAG,EAAE,CAAC,CAAC;IAC5E,OAAO,EAAE,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,IAAI,CAAC;AAC3B,CAAC;AAED,oCAAoC;AACpC,6EAA6E;AAC7E,sDAAsD;AACtD,SAAS,KAAK,CACZ,EAAU,EACV,EAAU,EACV,KAAc,EACd,IAAyB,EACzB,IAAyB;IAEzB,+CAA+C;IAC/C,MAAM,EAAE,GAAG,KAAK,CAAC,EAAE,EAAE,KAAK,CAAC,CAAC;IAC5B,MAAM,EAAE,GAAG,KAAK,CAAC,EAAE,EAAE,KAAK,CAAC,CAAC;IAE5B,4DAA4D;IAC5D,IAAI,EAAE,CAAC,IAAI,KAAK,MAAM,IAAI,EAAE,CAAC,IAAI,KAAK,MAAM,IAAI,EAAE,CAAC,IAAI,KAAK,EAAE,CAAC,IAAI;QAAE,OAAO,IAAI,CAAC;IAEjF,0BAA0B;IAC1B,IAAI,EAAE,CAAC,IAAI,KAAK,MAAM,EAAE,CAAC;QACvB,OAAO,QAAQ,CAAC,EAAE,CAAC,IAAI,EAAE,EAAE,EAAE,KAAK,EAAE,IAAI,CAAC,CAAC;IAC5C,CAAC;IAED,wBAAwB;IACxB,IAAI,EAAE,CAAC,IAAI,KAAK,MAAM,EAAE,CAAC;QACvB,OAAO,QAAQ,CAAC,EAAE,CAAC,IAAI,EAAE,EAAE,EAAE,KAAK,EAAE,IAAI,CAAC,CAAC;IAC5C,CAAC;IAED,2BAA2B;IAC3B,IAAI,EAAE,CAAC,IAAI,KAAK,KAAK,IAAI,EAAE,CAAC,IAAI,KAAK,KAAK,EAAE,CAAC;QAC3C,MAAM,EAAE,GAAG,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,IAAI,CAAC,CAAC;QAC7B,MAAM,EAAE,GAAG,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,IAAI,CAAC,CAAC;QAC7B,IAAI,EAAE,KAAK,SAAS,IAAI,EAAE,KAAK,SAAS;YAAE,OAAO,EAAE,KAAK,EAAE,CAAC,CAAC,gBAAgB;QAC5E,IAAI,EAAE,KAAK,SAAS,IAAI,EAAE,KAAK,SAAS;YAAE,OAAO,EAAE,CAAC,IAAI,KAAK,EAAE,CAAC,IAAI,CAAC,CAAC,eAAe;QACrF,OAAO,KAAK,CAAC,CAAC,wBAAwB;IACxC,CAAC;IAED,2DAA2D;IAC3D,IAAI,EAAE,CAAC,IAAI,KAAK,KAAK,IAAI,EAAE,CAAC,IAAI,KAAK,KAAK,EAAE,CAAC;QAC3C,MAAM,GAAG,GAAG,IAAI,CAAC,IAAI,CAAC,CAAC,yCAAyC;QAChE,MAAM,OAAO,GAAG,IAAI,GAAG,CAAC,IAAI,CAAC,CAAC;QAC9B,OAAO,CAAC,GAAG,CAAC,EAAE,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC;QAC3B,MAAM,OAAO,GAAG,IAAI,GAAG,CAAC,IAAI,CAAC,CAAC;QAC9B,OAAO,CAAC,GAAG,CAAC,EAAE,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC;QAC3B,OAAO,KAAK,CAAC,EAAE,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,EAAE,KAAK,EAAE,OAAO,EAAE,OAAO,CAAC,CAAC;IAC1D,CAAC;IAED,uEAAuE;IACvE,IAAI,EAAE,CAAC,IAAI,KAAK,KAAK,IAAI,EAAE,CAAC,IAAI,KAAK,KAAK,EAAE,CAAC;QAC3C,MAAM,EAAE,GAAG,EAAE,CAAC,IAAI,KAAK,KAAK,CAAC,CAAC,CAAC,QAAQ,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,EAAE,EAAE,EAAE,EAAE,EAAE,IAAI,EAAE,EAAc,EAAE,CAAC;QAC/E,MAAM,EAAE,GAAG,EAAE,CAAC,IAAI,KAAK,KAAK,CAAC,CAAC,CAAC,QAAQ,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,EAAE,EAAE,EAAE,EAAE,EAAE,IAAI,EAAE,EAAc,EAAE,CAAC;QAE/E,yCAAyC;QACzC,iFAAiF;QACjF,IAAI,EAAE,CAAC,EAAE,CAAC,IAAI,KAAK,MAAM,IAAI,EAAE,CAAC,EAAE,KAAK,EAAE,CAAC,EAAE,EAAE,CAAC;YAC7C,IAAI,CAAC,gBAAgB,CAAC,EAAE,CAAC,IAAI,EAAE,IAAI,CAAC;gBAAE,OAAO,KAAK,CAAC;YACnD,OAAO,WAAW,CAAC,EAAE,CAAC,EAAE,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,EAAE,EAAE,EAAE,KAAK,EAAE,IAAI,EAAE,IAAI,CAAC,CAAC;QACjE,CAAC;QACD,IAAI,EAAE,CAAC,EAAE,CAAC,IAAI,KAAK,MAAM,IAAI,EAAE,CAAC,EAAE,KAAK,EAAE,CAAC,EAAE,EAAE,CAAC;YAC7C,IAAI,CAAC,gBAAgB,CAAC,EAAE,CAAC,IAAI,EAAE,IAAI,CAAC;gBAAE,OAAO,KAAK,CAAC;YACnD,OAAO,WAAW,CAAC,EAAE,CAAC,EAAE,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,EAAE,EAAE,EAAE,KAAK,EAAE,IAAI,EAAE,IAAI,CAAC,CAAC;QACjE,CAAC;QAED,8DAA8D;QAC9D,IAAI,EAAE,CAAC,IAAI,KAAK,KAAK,IAAI,EAAE,CAAC,IAAI,KAAK,KAAK,EAAE,CAAC;YAC3C,IAAI,CAAC,KAAK,CAAC,EAAE,CAAC,EAAE,EAAE,EAAE,CAAC,EAAE,EAAE,KAAK,EAAE,IAAI,EAAE,IAAI,CAAC;gBAAE,OAAO,KAAK,CAAC;YAC1D,IAAI,EAAE,CAAC,IAAI,CAAC,MAAM,KAAK,EAAE,CAAC,IAAI,CAAC,MAAM;gBAAE,OAAO,KAAK,CAAC;YACpD,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,EAAE,CAAC,IAAI,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;gBACxC,IAAI,CAAC,KAAK,CAAC,EAAE,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,KAAK,EAAE,IAAI,EAAE,IAAI,CAAC;oBAAE,OAAO,KAAK,CAAC;YACtE,CAAC;YACD,OAAO,IAAI,CAAC;QACd,CAAC;IACH,CAAC;IAED,OAAO,KAAK,CAAC,CAAC,kCAAkC;AAClD,CAAC;AAED,uEAAuE;AACvE,oDAAoD;AACpD,SAAS,gBAAgB,CAAC,IAAc,EAAE,GAAwB;IAChE,MAAM,IAAI,GAAG,IAAI,GAAG,EAAU,CAAC;IAC/B,KAAK,MAAM,CAAC,IAAI,IAAI,EAAE,CAAC;QACrB,IAAI,CAAC,CAAC,IAAI,KAAK,KAAK;YAAE,OAAO,KAAK,CAAC;QACnC,MAAM,GAAG,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;QAC5B,IAAI,GAAG,KAAK,SAAS;YAAE,OAAO,KAAK,CAAC,CAAC,4BAA4B;QACjE,IAAI,IAAI,CAAC,GAAG,CAAC,GAAG,CAAC;YAAE,OAAO,KAAK,CAAC,CAAC,WAAW;QAC5C,IAAI,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC;IAChB,CAAC;IACD,OAAO,IAAI,CAAC;AACd,CAAC;AAED,gFAAgF;AAChF,wEAAwE;AACxE,oDAAoD;AACpD,2EAA2E;AAC3E,SAAS,WAAW,CAClB,QAAgB,EAChB,QAAkB,EAClB,GAAW,EACX,KAAc,EACd,OAA4B,EAC5B,MAA2B;IAE3B,iEAAiE;IACjE,mEAAmE;IACnE,MAAM,MAAM,GAAG,QAAQ,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,EAAE,CAAE,CAAmC,CAAC,IAAI,CAAC,CAAC;IAE9E,wEAAwE;IACxE,sEAAsE;IACtE,+DAA+D;IAC/D,qEAAqE;IACrE,yCAAyC;IACzC,MAAM,MAAM,GAAG,kBAAkB,CAAC,MAAM,EAAE,GAAG,EAAE,OAAO,EAAE,MAAM,CAAC,CAAC;IAChE,IAAI,MAAM,KAAK,IAAI;QAAE,OAAO,KAAK,CAAC;IAElC,eAAe;IACf,IAAI,UAAU,CAAC,QAAQ,EAAE,MAAM,EAAE,KAAK,CAAC;QAAE,OAAO,KAAK,CAAC;IAEtD,KAAK,CAAC,QAAQ,CAAC,GAAG,MAAM,CAAC;IACzB,OAAO,IAAI,CAAC;AACd,CAAC;AAED,uEAAuE;AACvE,iEAAiE;AACjE,uBAAuB;AACvB,SAAS,kBAAkB,CACzB,MAAgB,EAChB,GAAW,EACX,OAA4B,EAC5B,MAA2B;IAE3B,kEAAkE;IAClE,MAAM,UAAU,GAAG,IAAI,GAAG,EAAkB,CAAC;IAC7C,KAAK,MAAM,CAAC,IAAI,MAAM,EAAE,CAAC;QACvB,MAAM,GAAG,GAAG,OAAO,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;QAC3B,IAAI,GAAG,KAAK,SAAS;YAAE,OAAO,IAAI,CAAC;QACnC,UAAU,CAAC,GAAG,CAAC,GAAG,EAAE,CAAC,CAAC,CAAC;IACzB,CAAC;IAED,sEAAsE;IACtE,+BAA+B;IAC/B,MAAM,IAAI,GAAG,aAAa,CAAC,GAAG,EAAE,MAAM,EAAE,UAAU,CAAC,CAAC;IACpD,IAAI,IAAI,KAAK,IAAI;QAAE,OAAO,IAAI,CAAC;IAE/B,6BAA6B;IAC7B,IAAI,MAAM,GAAW,IAAI,CAAC;IAC1B,KAAK,IAAI,CAAC,GAAG,MAAM,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC,IAAI,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;QAC5C,MAAM,GAAG,EAAE,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,MAAM,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC;IAC3D,CAAC;IACD,OAAO,MAAM,CAAC;AAChB,CAAC;AAED,2EAA2E;AAC3E,iEAAiE;AACjE,qEAAqE;AACrE,uEAAuE;AACvE,yCAAyC;AACzC,SAAS,aAAa,CACpB,CAAS,EACT,GAAwB,EACxB,UAA+B;IAE/B,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;QACf,KAAK,MAAM;YACT,OAAO,CAAC,CAAC;QACX,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,GAAG,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;YAC5B,IAAI,GAAG,KAAK,SAAS;gBAAE,OAAO,CAAC,CAAC,CAAC,yCAAyC;YAC1E,MAAM,KAAK,GAAG,UAAU,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC;YAClC,IAAI,KAAK,KAAK,SAAS;gBAAE,OAAO,IAAI,CAAC,CAAC,4CAA4C;YAClF,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC;QACtC,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,qEAAqE;YACrE,mDAAmD;YACnD,MAAM,MAAM,GAAG,IAAI,GAAG,CAAC,GAAG,CAAC,CAAC;YAC5B,yEAAyE;YACzE,gEAAgE;YAChE,MAAM,QAAQ,GAAG,CAAC,CAAC,MAAM,CAAC,IAAI,GAAG,CAAC,CAAC,CAAC;YACpC,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,KAAK,EAAE,QAAQ,CAAC,CAAC;YAC9B,MAAM,CAAC,GAAG,aAAa,CAAC,CAAC,CAAC,IAAI,EAAE,MAAM,EAAE,UAAU,CAAC,CAAC;YACpD,IAAI,CAAC,KAAK,IAAI;gBAAE,OAAO,IAAI,CAAC;YAC5B,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,CAAC,CAAC,KAAK,EAAE,IAAI,EAAE,CAAC,EAAE,CAAC;QAClD,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,EAAE,GAAG,aAAa,CAAC,CAAC,CAAC,EAAE,EAAE,GAAG,EAAE,UAAU,CAAC,CAAC;YAChD,IAAI,EAAE,KAAK,IAAI;gBAAE,OAAO,IAAI,CAAC;YAC7B,MAAM,IAAI,GAAa,EAAE,CAAC;YAC1B,KAAK,MAAM,CAAC,IAAI,CAAC,CAAC,IAAI,EAAE,CAAC;gBACvB,MAAM,EAAE,GAAG,aAAa,CAAC,CAAC,EAAE,GAAG,EAAE,UAAU,CAAC,CAAC;gBAC7C,IAAI,EAAE,KAAK,IAAI;oBAAE,OAAO,IAAI,CAAC;gBAC7B,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;YAChB,CAAC;YACD,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,EAAE,EAAE,IAAI,EAAE,CAAC;QACnC,CAAC;IACH,CAAC;AACH,CAAC;AAED,oEAAoE;AACpE,SAAS,QAAQ,CAAC,CAAS;IACzB,IAAI,CAAC,CAAC,IAAI,KAAK,KAAK;QAAE,OAAO,EAAE,EAAE,EAAE,CAAC,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC;IACjD,MAAM,KAAK,GAAG,QAAQ,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC;IAC7B,OAAO,EAAE,EAAE,EAAE,KAAK,CAAC,EAAE,EAAE,IAAI,EAAE,CAAC,GAAG,KAAK,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC;AAC5D,CAAC;AAED,uDAAuD;AACvD,SAAS,KAAK,CAAC,CAAS,EAAE,KAAc;IACtC,IAAI,CAAC,CAAC,IAAI,KAAK,MAAM,EAAE,CAAC;QACtB,MAAM,OAAO,GAAG,KAAK,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;QAC9B,IAAI,OAAO,KAAK,SAAS;YAAE,OAAO,KAAK,CAAC,IAAA,qBAAS,EAAC,IAAA,wBAAY,EAAC,OAAO,EAAE,KAAK,CAAC,CAAC,EAAE,KAAK,CAAC,CAAC;IAC1F,CAAC;IACD,OAAO,CAAC,CAAC;AACX,CAAC;AAED,gEAAgE;AAChE,wEAAwE;AACxE,SAAS,QAAQ,CACf,QAAgB,EAChB,KAAa,EACb,KAAc,EACd,GAAwB;IAExB,+DAA+D;IAC/D,IAAI,UAAU,CAAC,QAAQ,EAAE,KAAK,EAAE,KAAK,CAAC;QAAE,OAAO,KAAK,CAAC;IAErD,2DAA2D;IAC3D,sEAAsE;IACtE,MAAM,UAAU,GAAG,IAAI,GAAG,CAAC,GAAG,CAAC,IAAI,EAAE,CAAC,CAAC;IACvC,IAAI,CAAC,IAAA,mBAAS,EAAC,KAAK,EAAE,UAAU,CAAC;QAAE,OAAO,KAAK,CAAC;IAEhD,oEAAoE;IACpE,oEAAoE;IACpE,oEAAoE;IACpE,qCAAqC;IACrC,oDAAoD;IACpD,mEAAmE;IACnE,0CAA0C;IAC1C,uEAAuE;IACvE,sEAAsE;IACtE,qEAAqE;IACrE,oBAAoB;IACpB,MAAM,EAAE,GAAG,IAAA,sBAAU,EAAC,KAAK,CAAC,CAAC;IAC7B,KAAK,MAAM,CAAC,IAAI,EAAE,EAAE,CAAC;QACnB,IAAI,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC;YAAE,OAAO,KAAK,CAAC,CAAC,0CAA0C;IAC1E,CAAC;IAED,KAAK,CAAC,QAAQ,CAAC,GAAG,KAAK,CAAC;IACxB,OAAO,IAAI,CAAC;AACd,CAAC;AAED,8DAA8D;AAC9D,SAAS,UAAU,CAAC,IAAY,EAAE,CAAS,EAAE,KAAc;IACzD,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;QACf,KAAK,KAAK;YACR,OAAO,KAAK,CAAC;QACf,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,IAAI,CAAC,CAAC,IAAI,KAAK,IAAI;gBAAE,OAAO,IAAI,CAAC;YACjC,MAAM,OAAO,GAAG,KAAK,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;YAC9B,OAAO,OAAO,KAAK,SAAS,CAAC,CAAC,CAAC,UAAU,CAAC,IAAI,EAAE,OAAO,EAAE,KAAK,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC;QAC1E,CAAC;QACD,KAAK,KAAK;YACR,OAAO,UAAU,CAAC,IAAI,EAAE,CAAC,CAAC,IAAI,EAAE,KAAK,CAAC,CAAC;QACzC,KAAK,KAAK;YACR,IAAI,UAAU,CAAC,IAAI,EAAE,CAAC,CAAC,EAAE,EAAE,KAAK,CAAC;gBAAE,OAAO,IAAI,CAAC;YAC/C,KAAK,MAAM,CAAC,IAAI,CAAC,CAAC,IAAI,EAAE,CAAC;gBACvB,IAAI,UAAU,CAAC,IAAI,EAAE,CAAC,EAAE,KAAK,CAAC;oBAAE,OAAO,IAAI,CAAC;YAC9C,CAAC;YACD,OAAO,KAAK,CAAC;IACjB,CAAC;AACH,CAAC;AAED,wEAAwE;AACxE,EAAE;AACF,0DAA0D;AAC1D,qBAAqB;AACrB,gEAAgE;AAChE,SAAgB,kBAAkB,CAChC,MAAgB,EAChB,IAAY,EACZ,UAAuB;IAEvB,oEAAoE;IACpE,8DAA8D;IAC9D,IAAI,MAAM,GAAW,IAAI,CAAC;IAC1B,KAAK,IAAI,CAAC,GAAG,MAAM,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC,IAAI,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;QAC5C,MAAM,CAAC,GAAG,MAAM,CAAC,CAAC,CAAC,CAAC;QACpB,MAAM,GAAG,EAAE,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC;IACnD,CAAC;IACD,KAAK,UAAU,CAAC,CAAC,2BAA2B;IAC5C,OAAO,MAAM,CAAC;AAChB,CAAC;AAED,wDAAwD;AACxD,wDAAwD;AACxD,4CAA4C;AAC5C,gEAAgE;AAChE,SAAgB,YAAY,CAAC,QAAgB,EAAE,SAAmB,EAAE,IAAY;IAC9E,wCAAwC;IACxC,IAAI,IAAI,GAAG,CAAC,SAAS,CAAC,CAAC,IAAI,KAAK,SAAS,CAAC,MAAM;QAAE,OAAO,IAAI,CAAC;IAE9D,2BAA2B;IAC3B,MAAM,KAAK,GAAG,IAAA,sBAAU,EAAC,IAAI,CAAC,CAAC;IAC/B,MAAM,MAAM,GAAG,kBAAkB,CAAC,SAAS,EAAE,IAAI,EAAE,KAAK,CAAC,CAAC;IAE1D,OAAO,EAAE,CAAC,QAAQ,CAAC,EAAE,MAAM,EAAE,CAAC;AAChC,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"}