@stevenvo780/st-lang 4.3.0 → 4.5.0

package/dist/runtime/theorem-cache/pattern.js

@@ -0,0 +1,80 @@
+"use strict";
+/**
+ * Matching de patrones contra fórmulas cacheadas.
+ *
+ * Un patrón usa `?x`, `?y`, … como metavariables. Para que un patrón
+ * matchee una fórmula, debe existir una asignación consistente
+ * (cada metavariable mapea a un único identificador en la fórmula).
+ *
+ * Ejemplos:
+ *   patrón `?x -> ?x`  matchea  `P -> P`         (con x=P)
+ *   patrón `?x -> ?x`  NO matchea  `P -> Q`
+ *   patrón `?x -> ?y`  matchea  `P -> Q`         (con x=P, y=Q)
+ *   patrón `?x -> ?y`  matchea  `P -> P`         (con x=P, y=P)
+ */
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.matchPattern = matchPattern;
+exports.patternMatches = patternMatches;
+const canonical_1 = require("./canonical");
+const RESERVED = new Set([
+    'not',
+    'and',
+    'or',
+    'implies',
+    'iff',
+    'forall',
+    'exists',
+    'true',
+    'false',
+    'True',
+    'False',
+    'TRUE',
+    'FALSE',
+]);
+// Token: meta-variable (?name), identificador, número, símbolo.
+const TOKEN_RE = /\?[A-Za-z_][A-Za-z0-9_]*|[A-Za-z_][A-Za-z0-9_]*|\d+|[^\sA-Za-z0-9_]/g;
+function tokenize(s) {
+    const normalized = (0, canonical_1.normalizeWhitespace)(s);
+    return normalized.match(TOKEN_RE) ?? [];
+}
+/**
+ * Intenta matchear un patrón contra una fórmula. Retorna la
+ * asignación de metavariables si matchea, o `undefined` si no.
+ */
+function matchPattern(pattern, formula) {
+    const patternTokens = tokenize(pattern);
+    const formulaTokens = tokenize(formula);
+    if (patternTokens.length !== formulaTokens.length)
+        return undefined;
+    const bindings = {};
+    for (let i = 0; i < patternTokens.length; i++) {
+        const pt = patternTokens[i];
+        const ft = formulaTokens[i];
+        if (pt.startsWith('?')) {
+            const metaName = pt.slice(1);
+            const existing = bindings[metaName];
+            if (existing === undefined) {
+                // ft debe ser un identificador (no operador / paréntesis).
+                if (!/^[A-Za-z_][A-Za-z0-9_]*$/.test(ft) || RESERVED.has(ft)) {
+                    return undefined;
+                }
+                bindings[metaName] = ft;
+            }
+            else if (existing !== ft) {
+                return undefined;
+            }
+        }
+        else if (pt !== ft) {
+            return undefined;
+        }
+    }
+    return bindings;
+}
+/**
+ * Comprueba si un patrón matchea (al menos una vez) sobre la fórmula
+ * completa, sin extraer las bindings.
+ */
+function patternMatches(pattern, formula) {
+    return matchPattern(pattern, formula) !== undefined;
+}
+//# sourceMappingURL=pattern.js.map

package/dist/runtime/theorem-cache/pattern.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"pattern.js","sourceRoot":"","sources":["../../../src/runtime/theorem-cache/pattern.ts"],"names":[],"mappings":";AAAA;;;;;;;;;;;;GAYG;;AAgCH,oCA8BC;AAMD,wCAEC;AApED,2CAAkD;AAElD,MAAM,QAAQ,GAAG,IAAI,GAAG,CAAS;IAC/B,KAAK;IACL,KAAK;IACL,IAAI;IACJ,SAAS;IACT,KAAK;IACL,QAAQ;IACR,QAAQ;IACR,MAAM;IACN,OAAO;IACP,MAAM;IACN,OAAO;IACP,MAAM;IACN,OAAO;CACR,CAAC,CAAC;AAEH,gEAAgE;AAChE,MAAM,QAAQ,GAAG,sEAAsE,CAAC;AAExF,SAAS,QAAQ,CAAC,CAAS;IACzB,MAAM,UAAU,GAAG,IAAA,+BAAmB,EAAC,CAAC,CAAC,CAAC;IAC1C,OAAO,UAAU,CAAC,KAAK,CAAC,QAAQ,CAAC,IAAI,EAAE,CAAC;AAC1C,CAAC;AAED;;;GAGG;AACH,SAAgB,YAAY,CAAC,OAAe,EAAE,OAAe;IAC3D,MAAM,aAAa,GAAG,QAAQ,CAAC,OAAO,CAAC,CAAC;IACxC,MAAM,aAAa,GAAG,QAAQ,CAAC,OAAO,CAAC,CAAC;IAExC,IAAI,aAAa,CAAC,MAAM,KAAK,aAAa,CAAC,MAAM;QAAE,OAAO,SAAS,CAAC;IAEpE,MAAM,QAAQ,GAA2B,EAAE,CAAC;IAE5C,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,aAAa,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;QAC9C,MAAM,EAAE,GAAG,aAAa,CAAC,CAAC,CAAC,CAAC;QAC5B,MAAM,EAAE,GAAG,aAAa,CAAC,CAAC,CAAC,CAAC;QAE5B,IAAI,EAAE,CAAC,UAAU,CAAC,GAAG,CAAC,EAAE,CAAC;YACvB,MAAM,QAAQ,GAAG,EAAE,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC;YAC7B,MAAM,QAAQ,GAAG,QAAQ,CAAC,QAAQ,CAAC,CAAC;YACpC,IAAI,QAAQ,KAAK,SAAS,EAAE,CAAC;gBAC3B,2DAA2D;gBAC3D,IAAI,CAAC,0BAA0B,CAAC,IAAI,CAAC,EAAE,CAAC,IAAI,QAAQ,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,CAAC;oBAC7D,OAAO,SAAS,CAAC;gBACnB,CAAC;gBACD,QAAQ,CAAC,QAAQ,CAAC,GAAG,EAAE,CAAC;YAC1B,CAAC;iBAAM,IAAI,QAAQ,KAAK,EAAE,EAAE,CAAC;gBAC3B,OAAO,SAAS,CAAC;YACnB,CAAC;QACH,CAAC;aAAM,IAAI,EAAE,KAAK,EAAE,EAAE,CAAC;YACrB,OAAO,SAAS,CAAC;QACnB,CAAC;IACH,CAAC;IAED,OAAO,QAAQ,CAAC;AAClB,CAAC;AAED;;;GAGG;AACH,SAAgB,cAAc,CAAC,OAAe,EAAE,OAAe;IAC7D,OAAO,YAAY,CAAC,OAAO,EAAE,OAAO,CAAC,KAAK,SAAS,CAAC;AACtD,CAAC"}

package/dist/system-f/index.d.ts

@@ -0,0 +1,7 @@
+export type { FType, FTerm, FContext } from './types';
+export { fAtom, fArrow, fForall, fVar, fAbs, fApp, fTAbs, fTApp, freeTypeVars, alphaEqType, isWellFormed, fTypeToString, fTermToString, emptyContext, cloneContext, } from './types';
+export type { FTypeResult } from './infer';
+export { typeOf, isTypeError } from './infer';
+export type { NormalizeResult } from './reduce';
+export { reduceBeta, normalize, isNormal, freeVars, termTypeVars, substType, substTypeInTerm, substTerm, } from './reduce';
+//# sourceMappingURL=index.d.ts.map

package/dist/system-f/index.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.d.ts","sourceRoot":"","sources":["../../src/system-f/index.ts"],"names":[],"mappings":"AAiBA,YAAY,EAAE,KAAK,EAAE,KAAK,EAAE,QAAQ,EAAE,MAAM,SAAS,CAAC;AACtD,OAAO,EACL,KAAK,EACL,MAAM,EACN,OAAO,EACP,IAAI,EACJ,IAAI,EACJ,IAAI,EACJ,KAAK,EACL,KAAK,EACL,YAAY,EACZ,WAAW,EACX,YAAY,EACZ,aAAa,EACb,aAAa,EACb,YAAY,EACZ,YAAY,GACb,MAAM,SAAS,CAAC;AAEjB,YAAY,EAAE,WAAW,EAAE,MAAM,SAAS,CAAC;AAC3C,OAAO,EAAE,MAAM,EAAE,WAAW,EAAE,MAAM,SAAS,CAAC;AAE9C,YAAY,EAAE,eAAe,EAAE,MAAM,UAAU,CAAC;AAChD,OAAO,EACL,UAAU,EACV,SAAS,EACT,QAAQ,EACR,QAAQ,EACR,YAAY,EACZ,SAAS,EACT,eAAe,EACf,SAAS,GACV,MAAM,UAAU,CAAC"}

package/dist/system-f/index.js

@@ -0,0 +1,48 @@
+"use strict";
+// ============================================================
+// System F — Punto de entrada público
+// ============================================================
+//
+// λ² (System F) extiende STLC con cuantificación universal sobre
+// tipos. Curry-Howard: corresponde a la lógica proposicional
+// intuicionista de segundo orden.
+//
+// Constructores y operaciones:
+//   - Tipos: atom, arrow, forall.
+//   - Términos: var, abs, app, tabs (Λ), tapp (t [T]).
+//   - typeOf: type-checking con contexto (term + type).
+//   - reduceBeta / normalize: β + type-β (call-by-name).
+//   - isWellFormed: chequea que tipos no tengan variables libres
+//     no declaradas.
+//   - alphaEqType: igualdad de tipos módulo α.
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.substTerm = exports.substTypeInTerm = exports.substType = exports.termTypeVars = exports.freeVars = exports.isNormal = exports.normalize = exports.reduceBeta = exports.isTypeError = exports.typeOf = exports.cloneContext = exports.emptyContext = exports.fTermToString = exports.fTypeToString = exports.isWellFormed = exports.alphaEqType = exports.freeTypeVars = exports.fTApp = exports.fTAbs = exports.fApp = exports.fAbs = exports.fVar = exports.fForall = exports.fArrow = exports.fAtom = void 0;
+var types_1 = require("./types");
+Object.defineProperty(exports, "fAtom", { enumerable: true, get: function () { return types_1.fAtom; } });
+Object.defineProperty(exports, "fArrow", { enumerable: true, get: function () { return types_1.fArrow; } });
+Object.defineProperty(exports, "fForall", { enumerable: true, get: function () { return types_1.fForall; } });
+Object.defineProperty(exports, "fVar", { enumerable: true, get: function () { return types_1.fVar; } });
+Object.defineProperty(exports, "fAbs", { enumerable: true, get: function () { return types_1.fAbs; } });
+Object.defineProperty(exports, "fApp", { enumerable: true, get: function () { return types_1.fApp; } });
+Object.defineProperty(exports, "fTAbs", { enumerable: true, get: function () { return types_1.fTAbs; } });
+Object.defineProperty(exports, "fTApp", { enumerable: true, get: function () { return types_1.fTApp; } });
+Object.defineProperty(exports, "freeTypeVars", { enumerable: true, get: function () { return types_1.freeTypeVars; } });
+Object.defineProperty(exports, "alphaEqType", { enumerable: true, get: function () { return types_1.alphaEqType; } });
+Object.defineProperty(exports, "isWellFormed", { enumerable: true, get: function () { return types_1.isWellFormed; } });
+Object.defineProperty(exports, "fTypeToString", { enumerable: true, get: function () { return types_1.fTypeToString; } });
+Object.defineProperty(exports, "fTermToString", { enumerable: true, get: function () { return types_1.fTermToString; } });
+Object.defineProperty(exports, "emptyContext", { enumerable: true, get: function () { return types_1.emptyContext; } });
+Object.defineProperty(exports, "cloneContext", { enumerable: true, get: function () { return types_1.cloneContext; } });
+var infer_1 = require("./infer");
+Object.defineProperty(exports, "typeOf", { enumerable: true, get: function () { return infer_1.typeOf; } });
+Object.defineProperty(exports, "isTypeError", { enumerable: true, get: function () { return infer_1.isTypeError; } });
+var reduce_1 = require("./reduce");
+Object.defineProperty(exports, "reduceBeta", { enumerable: true, get: function () { return reduce_1.reduceBeta; } });
+Object.defineProperty(exports, "normalize", { enumerable: true, get: function () { return reduce_1.normalize; } });
+Object.defineProperty(exports, "isNormal", { enumerable: true, get: function () { return reduce_1.isNormal; } });
+Object.defineProperty(exports, "freeVars", { enumerable: true, get: function () { return reduce_1.freeVars; } });
+Object.defineProperty(exports, "termTypeVars", { enumerable: true, get: function () { return reduce_1.termTypeVars; } });
+Object.defineProperty(exports, "substType", { enumerable: true, get: function () { return reduce_1.substType; } });
+Object.defineProperty(exports, "substTypeInTerm", { enumerable: true, get: function () { return reduce_1.substTypeInTerm; } });
+Object.defineProperty(exports, "substTerm", { enumerable: true, get: function () { return reduce_1.substTerm; } });
+//# sourceMappingURL=index.js.map

package/dist/system-f/index.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.js","sourceRoot":"","sources":["../../src/system-f/index.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,sCAAsC;AACtC,+DAA+D;AAC/D,EAAE;AACF,iEAAiE;AACjE,6DAA6D;AAC7D,kCAAkC;AAClC,EAAE;AACF,+BAA+B;AAC/B,kCAAkC;AAClC,uDAAuD;AACvD,wDAAwD;AACxD,yDAAyD;AACzD,iEAAiE;AACjE,qBAAqB;AACrB,+CAA+C;;;AAG/C,iCAgBiB;AAff,8FAAA,KAAK,OAAA;AACL,+FAAA,MAAM,OAAA;AACN,gGAAA,OAAO,OAAA;AACP,6FAAA,IAAI,OAAA;AACJ,6FAAA,IAAI,OAAA;AACJ,6FAAA,IAAI,OAAA;AACJ,8FAAA,KAAK,OAAA;AACL,8FAAA,KAAK,OAAA;AACL,qGAAA,YAAY,OAAA;AACZ,oGAAA,WAAW,OAAA;AACX,qGAAA,YAAY,OAAA;AACZ,sGAAA,aAAa,OAAA;AACb,sGAAA,aAAa,OAAA;AACb,qGAAA,YAAY,OAAA;AACZ,qGAAA,YAAY,OAAA;AAId,iCAA8C;AAArC,+FAAA,MAAM,OAAA;AAAE,oGAAA,WAAW,OAAA;AAG5B,mCASkB;AARhB,oGAAA,UAAU,OAAA;AACV,mGAAA,SAAS,OAAA;AACT,kGAAA,QAAQ,OAAA;AACR,kGAAA,QAAQ,OAAA;AACR,sGAAA,YAAY,OAAA;AACZ,mGAAA,SAAS,OAAA;AACT,yGAAA,eAAe,OAAA;AACf,mGAAA,SAAS,OAAA"}

package/dist/system-f/infer.d.ts

@@ -0,0 +1,9 @@
+import type { FContext, FTerm, FType } from './types';
+export type FTypeResult = FType | {
+    error: string;
+};
+export declare function isTypeError(r: FTypeResult): r is {
+    error: string;
+};
+export declare function typeOf(term: FTerm, ctx?: FContext): FTypeResult;
+//# sourceMappingURL=infer.d.ts.map

package/dist/system-f/infer.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"infer.d.ts","sourceRoot":"","sources":["../../src/system-f/infer.ts"],"names":[],"mappings":"AAWA,OAAO,KAAK,EAAE,QAAQ,EAAE,KAAK,EAAE,KAAK,EAAE,MAAM,SAAS,CAAC;AAItD,MAAM,MAAM,WAAW,GAAG,KAAK,GAAG;IAAE,KAAK,EAAE,MAAM,CAAA;CAAE,CAAC;AAEpD,wBAAgB,WAAW,CAAC,CAAC,EAAE,WAAW,GAAG,CAAC,IAAI;IAAE,KAAK,EAAE,MAAM,CAAA;CAAE,CAElE;AAED,wBAAgB,MAAM,CAAC,IAAI,EAAE,KAAK,EAAE,GAAG,GAAE,QAAyB,GAAG,WAAW,CAyE/E"}

package/dist/system-f/infer.js

@@ -0,0 +1,94 @@
+"use strict";
+// ============================================================
+// System F — Type checking
+// ============================================================
+//
+// Reglas:
+//   x : T                   si (x:T) ∈ Γ
+//   λx:T. M : T → U          si Γ, x:T ⊢ M : U  y T well-formed en Δ
+//   M N : U                  si M : T → U  y  N : T
+//   Λ X. M : ∀X. T           si Δ, X ⊢ M : T  (con X fresca)
+//   M [T] : U[X := T]        si M : ∀X. U  y  T well-formed en Δ
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.isTypeError = isTypeError;
+exports.typeOf = typeOf;
+const types_1 = require("./types");
+const reduce_1 = require("./reduce");
+function isTypeError(r) {
+    return typeof r === 'object' && r !== null && 'error' in r;
+}
+function typeOf(term, ctx = (0, types_1.emptyContext)()) {
+    switch (term.kind) {
+        case 'var': {
+            const t = ctx.term.get(term.name);
+            if (!t)
+                return { error: `variable libre sin tipo en contexto: '${term.name}'` };
+            return t;
+        }
+        case 'abs': {
+            if (!(0, types_1.isWellFormed)(term.paramType, ctx.type)) {
+                return {
+                    error: `anotación de tipo no bien-formada: ${(0, types_1.fTypeToString)(term.paramType)} (variables de tipo libres no declaradas)`,
+                };
+            }
+            const newCtx = (0, types_1.cloneContext)(ctx);
+            newCtx.term.set(term.param, term.paramType);
+            const bodyT = typeOf(term.body, newCtx);
+            if (isTypeError(bodyT))
+                return bodyT;
+            return { kind: 'arrow', from: term.paramType, to: bodyT };
+        }
+        case 'app': {
+            const fnT = typeOf(term.fn, ctx);
+            if (isTypeError(fnT))
+                return fnT;
+            if (fnT.kind !== 'arrow') {
+                return {
+                    error: `aplicación requiere función A→B, encontré: ${(0, types_1.fTypeToString)(fnT)}`,
+                };
+            }
+            const argT = typeOf(term.arg, ctx);
+            if (isTypeError(argT))
+                return argT;
+            if (!(0, types_1.alphaEqType)(fnT.from, argT)) {
+                return {
+                    error: `tipo de argumento no coincide: esperaba ${(0, types_1.fTypeToString)(fnT.from)}, obtuve ${(0, types_1.fTypeToString)(argT)}`,
+                };
+            }
+            return fnT.to;
+        }
+        case 'tabs': {
+            // Λ X. M : ∀X. T  — extender Δ con la variable de tipo nueva.
+            // Si ya estaba en Δ, podríamos shadowearla; preferimos rechazar
+            // shadowing implícito para evitar confusión didáctica.
+            if (ctx.type.has(term.bind)) {
+                return {
+                    error: `Λ${term.bind} shadowea una variable de tipo ya declarada — renómbrala`,
+                };
+            }
+            const newCtx = (0, types_1.cloneContext)(ctx);
+            newCtx.type.add(term.bind);
+            const bodyT = typeOf(term.body, newCtx);
+            if (isTypeError(bodyT))
+                return bodyT;
+            return { kind: 'forall', bind: term.bind, body: bodyT };
+        }
+        case 'tapp': {
+            const fnT = typeOf(term.fn, ctx);
+            if (isTypeError(fnT))
+                return fnT;
+            if (fnT.kind !== 'forall') {
+                return {
+                    error: `type application requiere ∀X. T, encontré: ${(0, types_1.fTypeToString)(fnT)}`,
+                };
+            }
+            if (!(0, types_1.isWellFormed)(term.typeArg, ctx.type)) {
+                return {
+                    error: `argumento de tipo no bien-formado: ${(0, types_1.fTypeToString)(term.typeArg)} (variables libres no declaradas)`,
+                };
+            }
+            return (0, reduce_1.substType)(fnT.body, fnT.bind, term.typeArg);
+        }
+    }
+}
+//# sourceMappingURL=infer.js.map

package/dist/system-f/infer.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"infer.js","sourceRoot":"","sources":["../../src/system-f/infer.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,2BAA2B;AAC3B,+DAA+D;AAC/D,EAAE;AACF,UAAU;AACV,yCAAyC;AACzC,qEAAqE;AACrE,oDAAoD;AACpD,6DAA6D;AAC7D,iEAAiE;;AAQjE,kCAEC;AAED,wBAyEC;AAlFD,mCAA+F;AAC/F,qCAAqC;AAIrC,SAAgB,WAAW,CAAC,CAAc;IACxC,OAAO,OAAO,CAAC,KAAK,QAAQ,IAAI,CAAC,KAAK,IAAI,IAAI,OAAO,IAAI,CAAC,CAAC;AAC7D,CAAC;AAED,SAAgB,MAAM,CAAC,IAAW,EAAE,MAAgB,IAAA,oBAAY,GAAE;IAChE,QAAQ,IAAI,CAAC,IAAI,EAAE,CAAC;QAClB,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,CAAC,GAAG,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YAClC,IAAI,CAAC,CAAC;gBAAE,OAAO,EAAE,KAAK,EAAE,yCAAyC,IAAI,CAAC,IAAI,GAAG,EAAE,CAAC;YAChF,OAAO,CAAC,CAAC;QACX,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,IAAI,CAAC,IAAA,oBAAY,EAAC,IAAI,CAAC,SAAS,EAAE,GAAG,CAAC,IAAI,CAAC,EAAE,CAAC;gBAC5C,OAAO;oBACL,KAAK,EAAE,sCAAsC,IAAA,qBAAa,EACxD,IAAI,CAAC,SAAS,CACf,2CAA2C;iBAC7C,CAAC;YACJ,CAAC;YACD,MAAM,MAAM,GAAG,IAAA,oBAAY,EAAC,GAAG,CAAC,CAAC;YACjC,MAAM,CAAC,IAAI,CAAC,GAAG,CAAC,IAAI,CAAC,KAAK,EAAE,IAAI,CAAC,SAAS,CAAC,CAAC;YAC5C,MAAM,KAAK,GAAG,MAAM,CAAC,IAAI,CAAC,IAAI,EAAE,MAAM,CAAC,CAAC;YACxC,IAAI,WAAW,CAAC,KAAK,CAAC;gBAAE,OAAO,KAAK,CAAC;YACrC,OAAO,EAAE,IAAI,EAAE,OAAO,EAAE,IAAI,EAAE,IAAI,CAAC,SAAS,EAAE,EAAE,EAAE,KAAK,EAAE,CAAC;QAC5D,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,GAAG,GAAG,MAAM,CAAC,IAAI,CAAC,EAAE,EAAE,GAAG,CAAC,CAAC;YACjC,IAAI,WAAW,CAAC,GAAG,CAAC;gBAAE,OAAO,GAAG,CAAC;YACjC,IAAI,GAAG,CAAC,IAAI,KAAK,OAAO,EAAE,CAAC;gBACzB,OAAO;oBACL,KAAK,EAAE,8CAA8C,IAAA,qBAAa,EAAC,GAAG,CAAC,EAAE;iBAC1E,CAAC;YACJ,CAAC;YACD,MAAM,IAAI,GAAG,MAAM,CAAC,IAAI,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YACnC,IAAI,WAAW,CAAC,IAAI,CAAC;gBAAE,OAAO,IAAI,CAAC;YACnC,IAAI,CAAC,IAAA,mBAAW,EAAC,GAAG,CAAC,IAAI,EAAE,IAAI,CAAC,EAAE,CAAC;gBACjC,OAAO;oBACL,KAAK,EAAE,2CAA2C,IAAA,qBAAa,EAC7D,GAAG,CAAC,IAAI,CACT,YAAY,IAAA,qBAAa,EAAC,IAAI,CAAC,EAAE;iBACnC,CAAC;YACJ,CAAC;YACD,OAAO,GAAG,CAAC,EAAE,CAAC;QAChB,CAAC;QACD,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,8DAA8D;YAC9D,gEAAgE;YAChE,uDAAuD;YACvD,IAAI,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC;gBAC5B,OAAO;oBACL,KAAK,EAAE,IAAI,IAAI,CAAC,IAAI,0DAA0D;iBAC/E,CAAC;YACJ,CAAC;YACD,MAAM,MAAM,GAAG,IAAA,oBAAY,EAAC,GAAG,CAAC,CAAC;YACjC,MAAM,CAAC,IAAI,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YAC3B,MAAM,KAAK,GAAG,MAAM,CAAC,IAAI,CAAC,IAAI,EAAE,MAAM,CAAC,CAAC;YACxC,IAAI,WAAW,CAAC,KAAK,CAAC;gBAAE,OAAO,KAAK,CAAC;YACrC,OAAO,EAAE,IAAI,EAAE,QAAQ,EAAE,IAAI,EAAE,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC;QAC1D,CAAC;QACD,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,MAAM,GAAG,GAAG,MAAM,CAAC,IAAI,CAAC,EAAE,EAAE,GAAG,CAAC,CAAC;YACjC,IAAI,WAAW,CAAC,GAAG,CAAC;gBAAE,OAAO,GAAG,CAAC;YACjC,IAAI,GAAG,CAAC,IAAI,KAAK,QAAQ,EAAE,CAAC;gBAC1B,OAAO;oBACL,KAAK,EAAE,8CAA8C,IAAA,qBAAa,EAAC,GAAG,CAAC,EAAE;iBAC1E,CAAC;YACJ,CAAC;YACD,IAAI,CAAC,IAAA,oBAAY,EAAC,IAAI,CAAC,OAAO,EAAE,GAAG,CAAC,IAAI,CAAC,EAAE,CAAC;gBAC1C,OAAO;oBACL,KAAK,EAAE,sCAAsC,IAAA,qBAAa,EACxD,IAAI,CAAC,OAAO,CACb,mCAAmC;iBACrC,CAAC;YACJ,CAAC;YACD,OAAO,IAAA,kBAAS,EAAC,GAAG,CAAC,IAAI,EAAE,GAAG,CAAC,IAAI,EAAE,IAAI,CAAC,OAAO,CAAC,CAAC;QACrD,CAAC;IACH,CAAC;AACH,CAAC"}

package/dist/system-f/reduce.d.ts

@@ -0,0 +1,15 @@
+import type { FTerm, FType } from './types';
+export declare function freeVars(t: FTerm, acc?: Set<string>): Set<string>;
+export declare function termTypeVars(t: FTerm, acc?: Set<string>): Set<string>;
+export declare function substType(target: FType, name: string, replacement: FType): FType;
+export declare function substTypeInTerm(term: FTerm, name: string, replacement: FType): FTerm;
+export declare function substTerm(term: FTerm, name: string, value: FTerm): FTerm;
+export declare function reduceBeta(term: FTerm): FTerm;
+export declare function isNormal(term: FTerm): boolean;
+export interface NormalizeResult {
+    result: FTerm;
+    steps: number;
+    terminated: boolean;
+}
+export declare function normalize(term: FTerm, maxSteps?: number): NormalizeResult;
+//# sourceMappingURL=reduce.d.ts.map

package/dist/system-f/reduce.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"reduce.d.ts","sourceRoot":"","sources":["../../src/system-f/reduce.ts"],"names":[],"mappings":"AAaA,OAAO,KAAK,EAAE,KAAK,EAAE,KAAK,EAAE,MAAM,SAAS,CAAC;AAI5C,wBAAgB,QAAQ,CAAC,CAAC,EAAE,KAAK,EAAE,GAAG,GAAE,GAAG,CAAC,MAAM,CAAa,GAAG,GAAG,CAAC,MAAM,CAAC,CAuB5E;AAID,wBAAgB,YAAY,CAAC,CAAC,EAAE,KAAK,EAAE,GAAG,GAAE,GAAG,CAAC,MAAM,CAAa,GAAG,GAAG,CAAC,MAAM,CAAC,CAuBhF;AAUD,wBAAgB,SAAS,CAAC,MAAM,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,EAAE,WAAW,EAAE,KAAK,GAAG,KAAK,CAsBhF;AAID,wBAAgB,eAAe,CAAC,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,EAAE,WAAW,EAAE,KAAK,GAAG,KAAK,CAmCpF;AAGD,wBAAgB,SAAS,CAAC,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,EAAE,KAAK,EAAE,KAAK,GAAG,KAAK,CAkDxE;AAMD,wBAAgB,UAAU,CAAC,IAAI,EAAE,KAAK,GAAG,KAAK,CAkC7C;AAED,wBAAgB,QAAQ,CAAC,IAAI,EAAE,KAAK,GAAG,OAAO,CAE7C;AAED,MAAM,WAAW,eAAe;IAC9B,MAAM,EAAE,KAAK,CAAC;IACd,KAAK,EAAE,MAAM,CAAC;IACd,UAAU,EAAE,OAAO,CAAC;CACrB;AAED,wBAAgB,SAAS,CAAC,IAAI,EAAE,KAAK,EAAE,QAAQ,SAAO,GAAG,eAAe,CAQvE"}

package/dist/system-f/reduce.js

@@ -0,0 +1,259 @@
+"use strict";
+// ============================================================
+// System F — β-reducción + type-β
+// ============================================================
+//
+// Reglas:
+//   (λx:T. M) N      ↦  M[x := N]            (β a nivel término)
+//   (Λ X. M) [T]     ↦  M[X := T]            (type-β)
+//
+// Estrategia: leftmost-outermost (call-by-name) en términos y tipos.
+// `reduceBeta` aplica UN paso (devuelve el mismo término por
+// identidad referencial si no había redex).
+// `normalize` itera hasta forma normal con guardia anti-loop.
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.freeVars = freeVars;
+exports.termTypeVars = termTypeVars;
+exports.substType = substType;
+exports.substTypeInTerm = substTypeInTerm;
+exports.substTerm = substTerm;
+exports.reduceBeta = reduceBeta;
+exports.isNormal = isNormal;
+exports.normalize = normalize;
+const types_1 = require("./types");
+// ---------- Variables libres a nivel término ----------
+function freeVars(t, acc = new Set()) {
+    switch (t.kind) {
+        case 'var':
+            acc.add(t.name);
+            return acc;
+        case 'abs': {
+            const inner = freeVars(t.body);
+            inner.delete(t.param);
+            for (const v of inner)
+                acc.add(v);
+            return acc;
+        }
+        case 'app':
+            freeVars(t.fn, acc);
+            freeVars(t.arg, acc);
+            return acc;
+        case 'tabs':
+            // Λ no liga variables de término, sólo de tipo.
+            freeVars(t.body, acc);
+            return acc;
+        case 'tapp':
+            freeVars(t.fn, acc);
+            return acc;
+    }
+}
+// Variables de tipo que aparecen en un término (en anotaciones y en
+// type applications). Usado para capture-avoidance al sustituir.
+function termTypeVars(t, acc = new Set()) {
+    switch (t.kind) {
+        case 'var':
+            return acc;
+        case 'abs':
+            for (const v of (0, types_1.freeTypeVars)(t.paramType))
+                acc.add(v);
+            termTypeVars(t.body, acc);
+            return acc;
+        case 'app':
+            termTypeVars(t.fn, acc);
+            termTypeVars(t.arg, acc);
+            return acc;
+        case 'tabs': {
+            const inner = termTypeVars(t.body);
+            inner.delete(t.bind);
+            for (const v of inner)
+                acc.add(v);
+            return acc;
+        }
+        case 'tapp':
+            termTypeVars(t.fn, acc);
+            for (const v of (0, types_1.freeTypeVars)(t.typeArg))
+                acc.add(v);
+            return acc;
+    }
+}
+let freshCounter = 0;
+function fresh(base, avoid) {
+    let candidate = `${base}#${freshCounter++}`;
+    while (avoid.has(candidate))
+        candidate = `${base}#${freshCounter++}`;
+    return candidate;
+}
+// ---------- Sustitución de tipo dentro de un tipo: T[X := S] ----------
+function substType(target, name, replacement) {
+    switch (target.kind) {
+        case 'atom':
+            return target.name === name ? replacement : target;
+        case 'arrow':
+            return {
+                kind: 'arrow',
+                from: substType(target.from, name, replacement),
+                to: substType(target.to, name, replacement),
+            };
+        case 'forall': {
+            if (target.bind === name)
+                return target; // X queda ligado, no sustituir
+            const fv = (0, types_1.freeTypeVars)(replacement);
+            if (fv.has(target.bind)) {
+                // captura → α-renombrar el binder
+                const newName = fresh(target.bind, new Set([...fv, ...(0, types_1.freeTypeVars)(target.body)]));
+                const renamed = substType(target.body, target.bind, { kind: 'atom', name: newName });
+                return { kind: 'forall', bind: newName, body: substType(renamed, name, replacement) };
+            }
+            return { kind: 'forall', bind: target.bind, body: substType(target.body, name, replacement) };
+        }
+    }
+}
+// ---------- Sustitución de tipo dentro de un término: M[X := S] ----------
+// (renombra anotaciones de tipo en λ, propaga al type-application).
+function substTypeInTerm(term, name, replacement) {
+    switch (term.kind) {
+        case 'var':
+            return term;
+        case 'abs':
+            return {
+                kind: 'abs',
+                param: term.param,
+                paramType: substType(term.paramType, name, replacement),
+                body: substTypeInTerm(term.body, name, replacement),
+            };
+        case 'app':
+            return {
+                kind: 'app',
+                fn: substTypeInTerm(term.fn, name, replacement),
+                arg: substTypeInTerm(term.arg, name, replacement),
+            };
+        case 'tabs': {
+            if (term.bind === name)
+                return term; // X queda ligado
+            const fv = (0, types_1.freeTypeVars)(replacement);
+            if (fv.has(term.bind)) {
+                const avoid = new Set([...fv, ...termTypeVars(term.body)]);
+                const newName = fresh(term.bind, avoid);
+                const renamed = substTypeInTerm(term.body, term.bind, { kind: 'atom', name: newName });
+                return { kind: 'tabs', bind: newName, body: substTypeInTerm(renamed, name, replacement) };
+            }
+            return { kind: 'tabs', bind: term.bind, body: substTypeInTerm(term.body, name, replacement) };
+        }
+        case 'tapp':
+            return {
+                kind: 'tapp',
+                fn: substTypeInTerm(term.fn, name, replacement),
+                typeArg: substType(term.typeArg, name, replacement),
+            };
+    }
+}
+// ---------- Sustitución de término dentro de término: M[x := N] ----------
+function substTerm(term, name, value) {
+    switch (term.kind) {
+        case 'var':
+            return term.name === name ? value : term;
+        case 'app':
+            return {
+                kind: 'app',
+                fn: substTerm(term.fn, name, value),
+                arg: substTerm(term.arg, name, value),
+            };
+        case 'abs': {
+            if (term.param === name)
+                return term;
+            const fv = freeVars(value);
+            if (fv.has(term.param)) {
+                // capture clash de variable de término → α-renombrar el binder
+                const newName = fresh(term.param, new Set([...fv, ...freeVars(term.body)]));
+                const renamed = substTerm(term.body, term.param, { kind: 'var', name: newName });
+                return {
+                    kind: 'abs',
+                    param: newName,
+                    paramType: term.paramType,
+                    body: substTerm(renamed, name, value),
+                };
+            }
+            return {
+                kind: 'abs',
+                param: term.param,
+                paramType: term.paramType,
+                body: substTerm(term.body, name, value),
+            };
+        }
+        case 'tabs': {
+            // Λ X. M — capture-avoidance respecto a variables de TIPO que
+            // pudieran chocar entre el binder X y los tipos libres del value.
+            const fvTypeInValue = termTypeVars(value);
+            if (fvTypeInValue.has(term.bind)) {
+                const avoid = new Set([...fvTypeInValue, ...termTypeVars(term.body)]);
+                const newName = fresh(term.bind, avoid);
+                const renamed = substTypeInTerm(term.body, term.bind, { kind: 'atom', name: newName });
+                return { kind: 'tabs', bind: newName, body: substTerm(renamed, name, value) };
+            }
+            return { kind: 'tabs', bind: term.bind, body: substTerm(term.body, name, value) };
+        }
+        case 'tapp':
+            return {
+                kind: 'tapp',
+                fn: substTerm(term.fn, name, value),
+                typeArg: term.typeArg,
+            };
+    }
+}
+// ---------- Un paso de reducción ----------
+// β: (λx:T. M) N → M[x := N]
+// type-β: (Λ X. M) [T] → M[X := T]
+// Estrategia leftmost-outermost. Identidad referencial si no hay redex.
+function reduceBeta(term) {
+    switch (term.kind) {
+        case 'var':
+            return term;
+        case 'app': {
+            if (term.fn.kind === 'abs') {
+                return substTerm(term.fn.body, term.fn.param, term.arg);
+            }
+            const fn2 = reduceBeta(term.fn);
+            if (fn2 !== term.fn)
+                return { kind: 'app', fn: fn2, arg: term.arg };
+            const arg2 = reduceBeta(term.arg);
+            if (arg2 !== term.arg)
+                return { kind: 'app', fn: term.fn, arg: arg2 };
+            return term;
+        }
+        case 'abs': {
+            const b2 = reduceBeta(term.body);
+            if (b2 !== term.body)
+                return { kind: 'abs', param: term.param, paramType: term.paramType, body: b2 };
+            return term;
+        }
+        case 'tapp': {
+            if (term.fn.kind === 'tabs') {
+                return substTypeInTerm(term.fn.body, term.fn.bind, term.typeArg);
+            }
+            const fn2 = reduceBeta(term.fn);
+            if (fn2 !== term.fn)
+                return { kind: 'tapp', fn: fn2, typeArg: term.typeArg };
+            return term;
+        }
+        case 'tabs': {
+            const b2 = reduceBeta(term.body);
+            if (b2 !== term.body)
+                return { kind: 'tabs', bind: term.bind, body: b2 };
+            return term;
+        }
+    }
+}
+function isNormal(term) {
+    return reduceBeta(term) === term;
+}
+function normalize(term, maxSteps = 1000) {
+    let current = term;
+    for (let i = 0; i < maxSteps; i++) {
+        const next = reduceBeta(current);
+        if (next === current)
+            return { result: current, steps: i, terminated: true };
+        current = next;
+    }
+    return { result: current, steps: maxSteps, terminated: false };
+}
+//# sourceMappingURL=reduce.js.map

package/dist/system-f/reduce.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"reduce.js","sourceRoot":"","sources":["../../src/system-f/reduce.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,kCAAkC;AAClC,+DAA+D;AAC/D,EAAE;AACF,UAAU;AACV,iEAAiE;AACjE,sDAAsD;AACtD,EAAE;AACF,qEAAqE;AACrE,6DAA6D;AAC7D,4CAA4C;AAC5C,8DAA8D;;AAM9D,4BAuBC;AAID,oCAuBC;AAUD,8BAsBC;AAID,0CAmCC;AAGD,8BAkDC;AAMD,gCAkCC;AAED,4BAEC;AAQD,8BAQC;AA7OD,mCAAuC;AAEvC,yDAAyD;AACzD,SAAgB,QAAQ,CAAC,CAAQ,EAAE,MAAmB,IAAI,GAAG,EAAE;IAC7D,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;QACf,KAAK,KAAK;YACR,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;YAChB,OAAO,GAAG,CAAC;QACb,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,KAAK,GAAG,QAAQ,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;YAC/B,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC;YACtB,KAAK,MAAM,CAAC,IAAI,KAAK;gBAAE,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;YAClC,OAAO,GAAG,CAAC;QACb,CAAC;QACD,KAAK,KAAK;YACR,QAAQ,CAAC,CAAC,CAAC,EAAE,EAAE,GAAG,CAAC,CAAC;YACpB,QAAQ,CAAC,CAAC,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YACrB,OAAO,GAAG,CAAC;QACb,KAAK,MAAM;YACT,gDAAgD;YAChD,QAAQ,CAAC,CAAC,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YACtB,OAAO,GAAG,CAAC;QACb,KAAK,MAAM;YACT,QAAQ,CAAC,CAAC,CAAC,EAAE,EAAE,GAAG,CAAC,CAAC;YACpB,OAAO,GAAG,CAAC;IACf,CAAC;AACH,CAAC;AAED,oEAAoE;AACpE,iEAAiE;AACjE,SAAgB,YAAY,CAAC,CAAQ,EAAE,MAAmB,IAAI,GAAG,EAAE;IACjE,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;QACf,KAAK,KAAK;YACR,OAAO,GAAG,CAAC;QACb,KAAK,KAAK;YACR,KAAK,MAAM,CAAC,IAAI,IAAA,oBAAY,EAAC,CAAC,CAAC,SAAS,CAAC;gBAAE,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;YACtD,YAAY,CAAC,CAAC,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YAC1B,OAAO,GAAG,CAAC;QACb,KAAK,KAAK;YACR,YAAY,CAAC,CAAC,CAAC,EAAE,EAAE,GAAG,CAAC,CAAC;YACxB,YAAY,CAAC,CAAC,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YACzB,OAAO,GAAG,CAAC;QACb,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,MAAM,KAAK,GAAG,YAAY,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;YACnC,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;YACrB,KAAK,MAAM,CAAC,IAAI,KAAK;gBAAE,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;YAClC,OAAO,GAAG,CAAC;QACb,CAAC;QACD,KAAK,MAAM;YACT,YAAY,CAAC,CAAC,CAAC,EAAE,EAAE,GAAG,CAAC,CAAC;YACxB,KAAK,MAAM,CAAC,IAAI,IAAA,oBAAY,EAAC,CAAC,CAAC,OAAO,CAAC;gBAAE,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;YACpD,OAAO,GAAG,CAAC;IACf,CAAC;AACH,CAAC;AAED,IAAI,YAAY,GAAG,CAAC,CAAC;AACrB,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,yEAAyE;AACzE,SAAgB,SAAS,CAAC,MAAa,EAAE,IAAY,EAAE,WAAkB;IACvE,QAAQ,MAAM,CAAC,IAAI,EAAE,CAAC;QACpB,KAAK,MAAM;YACT,OAAO,MAAM,CAAC,IAAI,KAAK,IAAI,CAAC,CAAC,CAAC,WAAW,CAAC,CAAC,CAAC,MAAM,CAAC;QACrD,KAAK,OAAO;YACV,OAAO;gBACL,IAAI,EAAE,OAAO;gBACb,IAAI,EAAE,SAAS,CAAC,MAAM,CAAC,IAAI,EAAE,IAAI,EAAE,WAAW,CAAC;gBAC/C,EAAE,EAAE,SAAS,CAAC,MAAM,CAAC,EAAE,EAAE,IAAI,EAAE,WAAW,CAAC;aAC5C,CAAC;QACJ,KAAK,QAAQ,CAAC,CAAC,CAAC;YACd,IAAI,MAAM,CAAC,IAAI,KAAK,IAAI;gBAAE,OAAO,MAAM,CAAC,CAAC,+BAA+B;YACxE,MAAM,EAAE,GAAG,IAAA,oBAAY,EAAC,WAAW,CAAC,CAAC;YACrC,IAAI,EAAE,CAAC,GAAG,CAAC,MAAM,CAAC,IAAI,CAAC,EAAE,CAAC;gBACxB,kCAAkC;gBAClC,MAAM,OAAO,GAAG,KAAK,CAAC,MAAM,CAAC,IAAI,EAAE,IAAI,GAAG,CAAC,CAAC,GAAG,EAAE,EAAE,GAAG,IAAA,oBAAY,EAAC,MAAM,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC;gBACnF,MAAM,OAAO,GAAG,SAAS,CAAC,MAAM,CAAC,IAAI,EAAE,MAAM,CAAC,IAAI,EAAE,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,OAAO,EAAE,CAAC,CAAC;gBACrF,OAAO,EAAE,IAAI,EAAE,QAAQ,EAAE,IAAI,EAAE,OAAO,EAAE,IAAI,EAAE,SAAS,CAAC,OAAO,EAAE,IAAI,EAAE,WAAW,CAAC,EAAE,CAAC;YACxF,CAAC;YACD,OAAO,EAAE,IAAI,EAAE,QAAQ,EAAE,IAAI,EAAE,MAAM,CAAC,IAAI,EAAE,IAAI,EAAE,SAAS,CAAC,MAAM,CAAC,IAAI,EAAE,IAAI,EAAE,WAAW,CAAC,EAAE,CAAC;QAChG,CAAC;IACH,CAAC;AACH,CAAC;AAED,4EAA4E;AAC5E,oEAAoE;AACpE,SAAgB,eAAe,CAAC,IAAW,EAAE,IAAY,EAAE,WAAkB;IAC3E,QAAQ,IAAI,CAAC,IAAI,EAAE,CAAC;QAClB,KAAK,KAAK;YACR,OAAO,IAAI,CAAC;QACd,KAAK,KAAK;YACR,OAAO;gBACL,IAAI,EAAE,KAAK;gBACX,KAAK,EAAE,IAAI,CAAC,KAAK;gBACjB,SAAS,EAAE,SAAS,CAAC,IAAI,CAAC,SAAS,EAAE,IAAI,EAAE,WAAW,CAAC;gBACvD,IAAI,EAAE,eAAe,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,WAAW,CAAC;aACpD,CAAC;QACJ,KAAK,KAAK;YACR,OAAO;gBACL,IAAI,EAAE,KAAK;gBACX,EAAE,EAAE,eAAe,CAAC,IAAI,CAAC,EAAE,EAAE,IAAI,EAAE,WAAW,CAAC;gBAC/C,GAAG,EAAE,eAAe,CAAC,IAAI,CAAC,GAAG,EAAE,IAAI,EAAE,WAAW,CAAC;aAClD,CAAC;QACJ,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,IAAI,IAAI,CAAC,IAAI,KAAK,IAAI;gBAAE,OAAO,IAAI,CAAC,CAAC,iBAAiB;YACtD,MAAM,EAAE,GAAG,IAAA,oBAAY,EAAC,WAAW,CAAC,CAAC;YACrC,IAAI,EAAE,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC;gBACtB,MAAM,KAAK,GAAG,IAAI,GAAG,CAAC,CAAC,GAAG,EAAE,EAAE,GAAG,YAAY,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;gBAC3D,MAAM,OAAO,GAAG,KAAK,CAAC,IAAI,CAAC,IAAI,EAAE,KAAK,CAAC,CAAC;gBACxC,MAAM,OAAO,GAAG,eAAe,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,CAAC,IAAI,EAAE,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,OAAO,EAAE,CAAC,CAAC;gBACvF,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,OAAO,EAAE,IAAI,EAAE,eAAe,CAAC,OAAO,EAAE,IAAI,EAAE,WAAW,CAAC,EAAE,CAAC;YAC5F,CAAC;YACD,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,eAAe,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,WAAW,CAAC,EAAE,CAAC;QAChG,CAAC;QACD,KAAK,MAAM;YACT,OAAO;gBACL,IAAI,EAAE,MAAM;gBACZ,EAAE,EAAE,eAAe,CAAC,IAAI,CAAC,EAAE,EAAE,IAAI,EAAE,WAAW,CAAC;gBAC/C,OAAO,EAAE,SAAS,CAAC,IAAI,CAAC,OAAO,EAAE,IAAI,EAAE,WAAW,CAAC;aACpD,CAAC;IACN,CAAC;AACH,CAAC;AAED,4EAA4E;AAC5E,SAAgB,SAAS,CAAC,IAAW,EAAE,IAAY,EAAE,KAAY;IAC/D,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,KAAK;YACR,OAAO;gBACL,IAAI,EAAE,KAAK;gBACX,EAAE,EAAE,SAAS,CAAC,IAAI,CAAC,EAAE,EAAE,IAAI,EAAE,KAAK,CAAC;gBACnC,GAAG,EAAE,SAAS,CAAC,IAAI,CAAC,GAAG,EAAE,IAAI,EAAE,KAAK,CAAC;aACtC,CAAC;QACJ,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,IAAI,IAAI,CAAC,KAAK,KAAK,IAAI;gBAAE,OAAO,IAAI,CAAC;YACrC,MAAM,EAAE,GAAG,QAAQ,CAAC,KAAK,CAAC,CAAC;YAC3B,IAAI,EAAE,CAAC,GAAG,CAAC,IAAI,CAAC,KAAK,CAAC,EAAE,CAAC;gBACvB,+DAA+D;gBAC/D,MAAM,OAAO,GAAG,KAAK,CAAC,IAAI,CAAC,KAAK,EAAE,IAAI,GAAG,CAAC,CAAC,GAAG,EAAE,EAAE,GAAG,QAAQ,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC;gBAC5E,MAAM,OAAO,GAAG,SAAS,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,CAAC,KAAK,EAAE,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,OAAO,EAAE,CAAC,CAAC;gBACjF,OAAO;oBACL,IAAI,EAAE,KAAK;oBACX,KAAK,EAAE,OAAO;oBACd,SAAS,EAAE,IAAI,CAAC,SAAS;oBACzB,IAAI,EAAE,SAAS,CAAC,OAAO,EAAE,IAAI,EAAE,KAAK,CAAC;iBACtC,CAAC;YACJ,CAAC;YACD,OAAO;gBACL,IAAI,EAAE,KAAK;gBACX,KAAK,EAAE,IAAI,CAAC,KAAK;gBACjB,SAAS,EAAE,IAAI,CAAC,SAAS;gBACzB,IAAI,EAAE,SAAS,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC;aACxC,CAAC;QACJ,CAAC;QACD,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,8DAA8D;YAC9D,kEAAkE;YAClE,MAAM,aAAa,GAAG,YAAY,CAAC,KAAK,CAAC,CAAC;YAC1C,IAAI,aAAa,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC;gBACjC,MAAM,KAAK,GAAG,IAAI,GAAG,CAAC,CAAC,GAAG,aAAa,EAAE,GAAG,YAAY,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;gBACtE,MAAM,OAAO,GAAG,KAAK,CAAC,IAAI,CAAC,IAAI,EAAE,KAAK,CAAC,CAAC;gBACxC,MAAM,OAAO,GAAG,eAAe,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,CAAC,IAAI,EAAE,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,OAAO,EAAE,CAAC,CAAC;gBACvF,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,OAAO,EAAE,IAAI,EAAE,SAAS,CAAC,OAAO,EAAE,IAAI,EAAE,KAAK,CAAC,EAAE,CAAC;YAChF,CAAC;YACD,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,SAAS,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC,EAAE,CAAC;QACpF,CAAC;QACD,KAAK,MAAM;YACT,OAAO;gBACL,IAAI,EAAE,MAAM;gBACZ,EAAE,EAAE,SAAS,CAAC,IAAI,CAAC,EAAE,EAAE,IAAI,EAAE,KAAK,CAAC;gBACnC,OAAO,EAAE,IAAI,CAAC,OAAO;aACtB,CAAC;IACN,CAAC;AACH,CAAC;AAED,6CAA6C;AAC7C,6BAA6B;AAC7B,mCAAmC;AACnC,wEAAwE;AACxE,SAAgB,UAAU,CAAC,IAAW;IACpC,QAAQ,IAAI,CAAC,IAAI,EAAE,CAAC;QAClB,KAAK,KAAK;YACR,OAAO,IAAI,CAAC;QACd,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,IAAI,IAAI,CAAC,EAAE,CAAC,IAAI,KAAK,KAAK,EAAE,CAAC;gBAC3B,OAAO,SAAS,CAAC,IAAI,CAAC,EAAE,CAAC,IAAI,EAAE,IAAI,CAAC,EAAE,CAAC,KAAK,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,IAAI,CAAC,CAAC;YACjC,IAAI,EAAE,KAAK,IAAI,CAAC,IAAI;gBAClB,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,IAAI,CAAC,KAAK,EAAE,SAAS,EAAE,IAAI,CAAC,SAAS,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC;YACjF,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,IAAI,IAAI,CAAC,EAAE,CAAC,IAAI,KAAK,MAAM,EAAE,CAAC;gBAC5B,OAAO,eAAe,CAAC,IAAI,CAAC,EAAE,CAAC,IAAI,EAAE,IAAI,CAAC,EAAE,CAAC,IAAI,EAAE,IAAI,CAAC,OAAO,CAAC,CAAC;YACnE,CAAC;YACD,MAAM,GAAG,GAAG,UAAU,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;YAChC,IAAI,GAAG,KAAK,IAAI,CAAC,EAAE;gBAAE,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,EAAE,EAAE,GAAG,EAAE,OAAO,EAAE,IAAI,CAAC,OAAO,EAAE,CAAC;YAC7E,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,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC;YACzE,OAAO,IAAI,CAAC;QACd,CAAC;IACH,CAAC;AACH,CAAC;AAED,SAAgB,QAAQ,CAAC,IAAW;IAClC,OAAO,UAAU,CAAC,IAAI,CAAC,KAAK,IAAI,CAAC;AACnC,CAAC;AAQD,SAAgB,SAAS,CAAC,IAAW,EAAE,QAAQ,GAAG,IAAI;IACpD,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,EAAE,MAAM,EAAE,OAAO,EAAE,KAAK,EAAE,CAAC,EAAE,UAAU,EAAE,IAAI,EAAE,CAAC;QAC7E,OAAO,GAAG,IAAI,CAAC;IACjB,CAAC;IACD,OAAO,EAAE,MAAM,EAAE,OAAO,EAAE,KAAK,EAAE,QAAQ,EAAE,UAAU,EAAE,KAAK,EAAE,CAAC;AACjE,CAAC"}

package/dist/system-f/types.d.ts

@@ -0,0 +1,53 @@
+export type FType = {
+    kind: 'atom';
+    name: string;
+} | {
+    kind: 'arrow';
+    from: FType;
+    to: FType;
+} | {
+    kind: 'forall';
+    bind: string;
+    body: FType;
+};
+export type FTerm = {
+    kind: 'var';
+    name: string;
+} | {
+    kind: 'abs';
+    param: string;
+    paramType: FType;
+    body: FTerm;
+} | {
+    kind: 'app';
+    fn: FTerm;
+    arg: FTerm;
+} | {
+    kind: 'tabs';
+    bind: string;
+    body: FTerm;
+} | {
+    kind: 'tapp';
+    fn: FTerm;
+    typeArg: FType;
+};
+export declare const fAtom: (name: string) => FType;
+export declare const fArrow: (from: FType, to: FType) => FType;
+export declare const fForall: (bind: string, body: FType) => FType;
+export declare const fVar: (name: string) => FTerm;
+export declare const fAbs: (param: string, paramType: FType, body: FTerm) => FTerm;
+export declare const fApp: (fn: FTerm, arg: FTerm) => FTerm;
+export declare const fTAbs: (bind: string, body: FTerm) => FTerm;
+export declare const fTApp: (fn: FTerm, typeArg: FType) => FTerm;
+export declare function freeTypeVars(t: FType, acc?: Set<string>): Set<string>;
+export declare function alphaEqType(a: FType, b: FType): boolean;
+export declare function isWellFormed(type: FType, ctx?: Set<string>): boolean;
+export declare function fTypeToString(t: FType): string;
+export declare function fTermToString(t: FTerm): string;
+export interface FContext {
+    term: Map<string, FType>;
+    type: Set<string>;
+}
+export declare function emptyContext(): FContext;
+export declare function cloneContext(ctx: FContext): FContext;
+//# sourceMappingURL=types.d.ts.map

package/dist/system-f/types.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"types.d.ts","sourceRoot":"","sources":["../../src/system-f/types.ts"],"names":[],"mappings":"AAmBA,MAAM,MAAM,KAAK,GACb;IAAE,IAAI,EAAE,MAAM,CAAC;IAAC,IAAI,EAAE,MAAM,CAAA;CAAE,GAC9B;IAAE,IAAI,EAAE,OAAO,CAAC;IAAC,IAAI,EAAE,KAAK,CAAC;IAAC,EAAE,EAAE,KAAK,CAAA;CAAE,GACzC;IAAE,IAAI,EAAE,QAAQ,CAAC;IAAC,IAAI,EAAE,MAAM,CAAC;IAAC,IAAI,EAAE,KAAK,CAAA;CAAE,CAAC;AAElD,MAAM,MAAM,KAAK,GACb;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,KAAK,CAAC;IAAC,IAAI,EAAE,KAAK,CAAA;CAAE,GAC7D;IAAE,IAAI,EAAE,KAAK,CAAC;IAAC,EAAE,EAAE,KAAK,CAAC;IAAC,GAAG,EAAE,KAAK,CAAA;CAAE,GACtC;IAAE,IAAI,EAAE,MAAM,CAAC;IAAC,IAAI,EAAE,MAAM,CAAC;IAAC,IAAI,EAAE,KAAK,CAAA;CAAE,GAC3C;IAAE,IAAI,EAAE,MAAM,CAAC;IAAC,EAAE,EAAE,KAAK,CAAC;IAAC,OAAO,EAAE,KAAK,CAAA;CAAE,CAAC;AAGhD,eAAO,MAAM,KAAK,GAAI,MAAM,MAAM,KAAG,KAAiC,CAAC;AACvE,eAAO,MAAM,MAAM,GAAI,MAAM,KAAK,EAAE,IAAI,KAAK,KAAG,KAAsC,CAAC;AACvF,eAAO,MAAM,OAAO,GAAI,MAAM,MAAM,EAAE,MAAM,KAAK,KAAG,KAAyC,CAAC;AAE9F,eAAO,MAAM,IAAI,GAAI,MAAM,MAAM,KAAG,KAAgC,CAAC;AACrE,eAAO,MAAM,IAAI,GAAI,OAAO,MAAM,EAAE,WAAW,KAAK,EAAE,MAAM,KAAK,KAAG,KAKlE,CAAC;AACH,eAAO,MAAM,IAAI,GAAI,IAAI,KAAK,EAAE,KAAK,KAAK,KAAG,KAAmC,CAAC;AACjF,eAAO,MAAM,KAAK,GAAI,MAAM,MAAM,EAAE,MAAM,KAAK,KAAG,KAAuC,CAAC;AAC1F,eAAO,MAAM,KAAK,GAAI,IAAI,KAAK,EAAE,SAAS,KAAK,KAAG,KAAwC,CAAC;AAG3F,wBAAgB,YAAY,CAAC,CAAC,EAAE,KAAK,EAAE,GAAG,GAAE,GAAG,CAAC,MAAM,CAAa,GAAG,GAAG,CAAC,MAAM,CAAC,CAgBhF;AAID,wBAAgB,WAAW,CAAC,CAAC,EAAE,KAAK,EAAE,CAAC,EAAE,KAAK,GAAG,OAAO,CAEvD;AAwCD,wBAAgB,YAAY,CAAC,IAAI,EAAE,KAAK,EAAE,GAAG,GAAE,GAAG,CAAC,MAAM,CAAa,GAAG,OAAO,CAY/E;AAGD,wBAAgB,aAAa,CAAC,CAAC,EAAE,KAAK,GAAG,MAAM,CAc9C;AAED,wBAAgB,aAAa,CAAC,CAAC,EAAE,KAAK,GAAG,MAAM,CAgB9C;AAKD,MAAM,WAAW,QAAQ;IACvB,IAAI,EAAE,GAAG,CAAC,MAAM,EAAE,KAAK,CAAC,CAAC;IACzB,IAAI,EAAE,GAAG,CAAC,MAAM,CAAC,CAAC;CACnB;AAED,wBAAgB,YAAY,IAAI,QAAQ,CAEvC;AAED,wBAAgB,YAAY,CAAC,GAAG,EAAE,QAAQ,GAAG,QAAQ,CAEpD"}