@stevenvo780/st-lang 4.2.0 → 4.4.0

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

package/dist/system-f/types.js

@@ -0,0 +1,157 @@
+"use strict";
+// ============================================================
+// System F — Polymorphic lambda calculus (λ²)
+// ============================================================
+//
+// Extiende el λ-cálculo simplemente tipado con cuantificación
+// universal sobre tipos:
+//
+//   T ::= X | T → T | ∀X. T
+//   t ::= x | λx:T. t | t t | Λ X. t | t [T]
+//
+// Curry-Howard: corresponde a la lógica proposicional intuicionista
+// de segundo orden (cuantificación sobre proposiciones).
+//
+// Convenciones:
+//   - Variables de término: minúsculas (x, y, f).
+//   - Variables de tipo: mayúsculas convencionalmente (X, Y, Z), pero
+//     no impuestas — `atom('foo')` también es legal.
+//   - Λ usa `tabs` (type-abstraction); t [T] usa `tapp`.
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.fTApp = exports.fTAbs = exports.fApp = exports.fAbs = exports.fVar = exports.fForall = exports.fArrow = exports.fAtom = void 0;
+exports.freeTypeVars = freeTypeVars;
+exports.alphaEqType = alphaEqType;
+exports.isWellFormed = isWellFormed;
+exports.fTypeToString = fTypeToString;
+exports.fTermToString = fTermToString;
+exports.emptyContext = emptyContext;
+exports.cloneContext = cloneContext;
+// ---------- Constructores convenientes ----------
+const fAtom = (name) => ({ kind: 'atom', name });
+exports.fAtom = fAtom;
+const fArrow = (from, to) => ({ kind: 'arrow', from, to });
+exports.fArrow = fArrow;
+const fForall = (bind, body) => ({ kind: 'forall', bind, body });
+exports.fForall = fForall;
+const fVar = (name) => ({ kind: 'var', name });
+exports.fVar = fVar;
+const fAbs = (param, paramType, body) => ({
+    kind: 'abs',
+    param,
+    paramType,
+    body,
+});
+exports.fAbs = fAbs;
+const fApp = (fn, arg) => ({ kind: 'app', fn, arg });
+exports.fApp = fApp;
+const fTAbs = (bind, body) => ({ kind: 'tabs', bind, body });
+exports.fTAbs = fTAbs;
+const fTApp = (fn, typeArg) => ({ kind: 'tapp', fn, typeArg });
+exports.fTApp = fTApp;
+// ---------- Variables libres de tipo (sobre FType) ----------
+function freeTypeVars(t, acc = new Set()) {
+    switch (t.kind) {
+        case 'atom':
+            acc.add(t.name);
+            return acc;
+        case 'arrow':
+            freeTypeVars(t.from, acc);
+            freeTypeVars(t.to, acc);
+            return acc;
+        case 'forall': {
+            const inner = freeTypeVars(t.body);
+            inner.delete(t.bind);
+            for (const v of inner)
+                acc.add(v);
+            return acc;
+        }
+    }
+}
+// ---------- α-equivalencia de tipos ----------
+// ∀X. T y ∀Y. T[X:=Y] son iguales módulo α.
+function alphaEqType(a, b) {
+    return alphaEqTypeEnv(a, b, new Map(), new Map(), { n: 0 });
+}
+function alphaEqTypeEnv(a, b, envA, envB, counter) {
+    if (a.kind !== b.kind)
+        return false;
+    switch (a.kind) {
+        case 'atom': {
+            const bb = b;
+            const ia = envA.get(a.name);
+            const ib = envB.get(bb.name);
+            if (ia === undefined && ib === undefined)
+                return a.name === bb.name;
+            return ia === ib;
+        }
+        case 'arrow': {
+            const bb = b;
+            return (alphaEqTypeEnv(a.from, bb.from, envA, envB, counter) &&
+                alphaEqTypeEnv(a.to, bb.to, envA, envB, counter));
+        }
+        case 'forall': {
+            const bb = b;
+            const idx = counter.n++;
+            const newA = new Map(envA);
+            newA.set(a.bind, idx);
+            const newB = new Map(envB);
+            newB.set(bb.bind, idx);
+            return alphaEqTypeEnv(a.body, bb.body, newA, newB, counter);
+        }
+    }
+}
+// ---------- Well-formedness de tipos ----------
+// Un tipo está bien formado si todas sus variables libres están
+// declaradas en el contexto de tipos.
+function isWellFormed(type, ctx = new Set()) {
+    switch (type.kind) {
+        case 'atom':
+            return ctx.has(type.name);
+        case 'arrow':
+            return isWellFormed(type.from, ctx) && isWellFormed(type.to, ctx);
+        case 'forall': {
+            const extended = new Set(ctx);
+            extended.add(type.bind);
+            return isWellFormed(type.body, extended);
+        }
+    }
+}
+// ---------- Serialización legible ----------
+function fTypeToString(t) {
+    switch (t.kind) {
+        case 'atom':
+            return t.name;
+        case 'arrow': {
+            const lhs = t.from.kind === 'arrow' || t.from.kind === 'forall'
+                ? `(${fTypeToString(t.from)})`
+                : fTypeToString(t.from);
+            return `${lhs} → ${fTypeToString(t.to)}`;
+        }
+        case 'forall':
+            return `∀${t.bind}. ${fTypeToString(t.body)}`;
+    }
+}
+function fTermToString(t) {
+    switch (t.kind) {
+        case 'var':
+            return t.name;
+        case 'abs':
+            return `(λ${t.param}:${fTypeToString(t.paramType)}. ${fTermToString(t.body)})`;
+        case 'app': {
+            const fn = fTermToString(t.fn);
+            const arg = t.arg.kind === 'app' ? `(${fTermToString(t.arg)})` : fTermToString(t.arg);
+            return `(${fn} ${arg})`;
+        }
+        case 'tabs':
+            return `(Λ${t.bind}. ${fTermToString(t.body)})`;
+        case 'tapp':
+            return `(${fTermToString(t.fn)} [${fTypeToString(t.typeArg)}])`;
+    }
+}
+function emptyContext() {
+    return { term: new Map(), type: new Set() };
+}
+function cloneContext(ctx) {
+    return { term: new Map(ctx.term), type: new Set(ctx.type) };
+}
+//# sourceMappingURL=types.js.map

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

@@ -0,0 +1 @@
+{"version":3,"file":"types.js","sourceRoot":"","sources":["../../src/system-f/types.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,8CAA8C;AAC9C,+DAA+D;AAC/D,EAAE;AACF,8DAA8D;AAC9D,yBAAyB;AACzB,EAAE;AACF,4BAA4B;AAC5B,6CAA6C;AAC7C,EAAE;AACF,oEAAoE;AACpE,yDAAyD;AACzD,EAAE;AACF,gBAAgB;AAChB,kDAAkD;AAClD,sEAAsE;AACtE,qDAAqD;AACrD,yDAAyD;;;AA+BzD,oCAgBC;AAID,kCAEC;AAwCD,oCAYC;AAGD,sCAcC;AAED,sCAgBC;AAUD,oCAEC;AAED,oCAEC;AA9ID,mDAAmD;AAC5C,MAAM,KAAK,GAAG,CAAC,IAAY,EAAS,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,CAAC,CAAC;AAA1D,QAAA,KAAK,SAAqD;AAChE,MAAM,MAAM,GAAG,CAAC,IAAW,EAAE,EAAS,EAAS,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,OAAO,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC,CAAC;AAA1E,QAAA,MAAM,UAAoE;AAChF,MAAM,OAAO,GAAG,CAAC,IAAY,EAAE,IAAW,EAAS,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,QAAQ,EAAE,IAAI,EAAE,IAAI,EAAE,CAAC,CAAC;AAAjF,QAAA,OAAO,WAA0E;AAEvF,MAAM,IAAI,GAAG,CAAC,IAAY,EAAS,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,CAAC,CAAC;AAAxD,QAAA,IAAI,QAAoD;AAC9D,MAAM,IAAI,GAAG,CAAC,KAAa,EAAE,SAAgB,EAAE,IAAW,EAAS,EAAE,CAAC,CAAC;IAC5E,IAAI,EAAE,KAAK;IACX,KAAK;IACL,SAAS;IACT,IAAI;CACL,CAAC,CAAC;AALU,QAAA,IAAI,QAKd;AACI,MAAM,IAAI,GAAG,CAAC,EAAS,EAAE,GAAU,EAAS,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,KAAK,EAAE,EAAE,EAAE,GAAG,EAAE,CAAC,CAAC;AAApE,QAAA,IAAI,QAAgE;AAC1E,MAAM,KAAK,GAAG,CAAC,IAAY,EAAE,IAAW,EAAS,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,IAAI,EAAE,CAAC,CAAC;AAA7E,QAAA,KAAK,SAAwE;AACnF,MAAM,KAAK,GAAG,CAAC,EAAS,EAAE,OAAc,EAAS,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,EAAE,EAAE,OAAO,EAAE,CAAC,CAAC;AAA9E,QAAA,KAAK,SAAyE;AAE3F,+DAA+D;AAC/D,SAAgB,YAAY,CAAC,CAAQ,EAAE,MAAmB,IAAI,GAAG,EAAE;IACjE,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;QACf,KAAK,MAAM;YACT,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;YAChB,OAAO,GAAG,CAAC;QACb,KAAK,OAAO;YACV,YAAY,CAAC,CAAC,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YAC1B,YAAY,CAAC,CAAC,CAAC,EAAE,EAAE,GAAG,CAAC,CAAC;YACxB,OAAO,GAAG,CAAC;QACb,KAAK,QAAQ,CAAC,CAAC,CAAC;YACd,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;IACH,CAAC;AACH,CAAC;AAED,gDAAgD;AAChD,4CAA4C;AAC5C,SAAgB,WAAW,CAAC,CAAQ,EAAE,CAAQ;IAC5C,OAAO,cAAc,CAAC,CAAC,EAAE,CAAC,EAAE,IAAI,GAAG,EAAE,EAAE,IAAI,GAAG,EAAE,EAAE,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC;AAC9D,CAAC;AAED,SAAS,cAAc,CACrB,CAAQ,EACR,CAAQ,EACR,IAAyB,EACzB,IAAyB,EACzB,OAAsB;IAEtB,IAAI,CAAC,CAAC,IAAI,KAAK,CAAC,CAAC,IAAI;QAAE,OAAO,KAAK,CAAC;IACpC,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;QACf,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,MAAM,EAAE,GAAG,CAAa,CAAC;YACzB,MAAM,EAAE,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;YAC5B,MAAM,EAAE,GAAG,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,IAAI,CAAC,CAAC;YAC7B,IAAI,EAAE,KAAK,SAAS,IAAI,EAAE,KAAK,SAAS;gBAAE,OAAO,CAAC,CAAC,IAAI,KAAK,EAAE,CAAC,IAAI,CAAC;YACpE,OAAO,EAAE,KAAK,EAAE,CAAC;QACnB,CAAC;QACD,KAAK,OAAO,CAAC,CAAC,CAAC;YACb,MAAM,EAAE,GAAG,CAAa,CAAC;YACzB,OAAO,CACL,cAAc,CAAC,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,OAAO,CAAC;gBACpD,cAAc,CAAC,CAAC,CAAC,EAAE,EAAE,EAAE,CAAC,EAAE,EAAE,IAAI,EAAE,IAAI,EAAE,OAAO,CAAC,CACjD,CAAC;QACJ,CAAC;QACD,KAAK,QAAQ,CAAC,CAAC,CAAC;YACd,MAAM,EAAE,GAAG,CAAa,CAAC;YACzB,MAAM,GAAG,GAAG,OAAO,CAAC,CAAC,EAAE,CAAC;YACxB,MAAM,IAAI,GAAG,IAAI,GAAG,CAAC,IAAI,CAAC,CAAC;YAC3B,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YACtB,MAAM,IAAI,GAAG,IAAI,GAAG,CAAC,IAAI,CAAC,CAAC;YAC3B,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YACvB,OAAO,cAAc,CAAC,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,OAAO,CAAC,CAAC;QAC9D,CAAC;IACH,CAAC;AACH,CAAC;AAED,iDAAiD;AACjD,gEAAgE;AAChE,sCAAsC;AACtC,SAAgB,YAAY,CAAC,IAAW,EAAE,MAAmB,IAAI,GAAG,EAAE;IACpE,QAAQ,IAAI,CAAC,IAAI,EAAE,CAAC;QAClB,KAAK,MAAM;YACT,OAAO,GAAG,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QAC5B,KAAK,OAAO;YACV,OAAO,YAAY,CAAC,IAAI,CAAC,IAAI,EAAE,GAAG,CAAC,IAAI,YAAY,CAAC,IAAI,CAAC,EAAE,EAAE,GAAG,CAAC,CAAC;QACpE,KAAK,QAAQ,CAAC,CAAC,CAAC;YACd,MAAM,QAAQ,GAAG,IAAI,GAAG,CAAC,GAAG,CAAC,CAAC;YAC9B,QAAQ,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACxB,OAAO,YAAY,CAAC,IAAI,CAAC,IAAI,EAAE,QAAQ,CAAC,CAAC;QAC3C,CAAC;IACH,CAAC;AACH,CAAC;AAED,8CAA8C;AAC9C,SAAgB,aAAa,CAAC,CAAQ;IACpC,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;QACf,KAAK,MAAM;YACT,OAAO,CAAC,CAAC,IAAI,CAAC;QAChB,KAAK,OAAO,CAAC,CAAC,CAAC;YACb,MAAM,GAAG,GACP,CAAC,CAAC,IAAI,CAAC,IAAI,KAAK,OAAO,IAAI,CAAC,CAAC,IAAI,CAAC,IAAI,KAAK,QAAQ;gBACjD,CAAC,CAAC,IAAI,aAAa,CAAC,CAAC,CAAC,IAAI,CAAC,GAAG;gBAC9B,CAAC,CAAC,aAAa,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;YAC5B,OAAO,GAAG,GAAG,MAAM,aAAa,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC;QAC3C,CAAC;QACD,KAAK,QAAQ;YACX,OAAO,IAAI,CAAC,CAAC,IAAI,KAAK,aAAa,CAAC,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC;IAClD,CAAC;AACH,CAAC;AAED,SAAgB,aAAa,CAAC,CAAQ;IACpC,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;QACf,KAAK,KAAK;YACR,OAAO,CAAC,CAAC,IAAI,CAAC;QAChB,KAAK,KAAK;YACR,OAAO,KAAK,CAAC,CAAC,KAAK,IAAI,aAAa,CAAC,CAAC,CAAC,SAAS,CAAC,KAAK,aAAa,CAAC,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC;QACjF,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,EAAE,GAAG,aAAa,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC;YAC/B,MAAM,GAAG,GAAG,CAAC,CAAC,GAAG,CAAC,IAAI,KAAK,KAAK,CAAC,CAAC,CAAC,IAAI,aAAa,CAAC,CAAC,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,aAAa,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC;YACtF,OAAO,IAAI,EAAE,IAAI,GAAG,GAAG,CAAC;QAC1B,CAAC;QACD,KAAK,MAAM;YACT,OAAO,KAAK,CAAC,CAAC,IAAI,KAAK,aAAa,CAAC,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC;QAClD,KAAK,MAAM;YACT,OAAO,IAAI,aAAa,CAAC,CAAC,CAAC,EAAE,CAAC,KAAK,aAAa,CAAC,CAAC,CAAC,OAAO,CAAC,IAAI,CAAC;IACpE,CAAC;AACH,CAAC;AAUD,SAAgB,YAAY;IAC1B,OAAO,EAAE,IAAI,EAAE,IAAI,GAAG,EAAE,EAAE,IAAI,EAAE,IAAI,GAAG,EAAE,EAAE,CAAC;AAC9C,CAAC;AAED,SAAgB,YAAY,CAAC,GAAa;IACxC,OAAO,EAAE,IAAI,EAAE,IAAI,GAAG,CAAC,GAAG,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,IAAI,GAAG,CAAC,GAAG,CAAC,IAAI,CAAC,EAAE,CAAC;AAC9D,CAAC"}

package/dist/tests/abduction/abduction.test.d.ts

@@ -0,0 +1,2 @@
+export {};
+//# sourceMappingURL=abduction.test.d.ts.map

package/dist/tests/abduction/abduction.test.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"abduction.test.d.ts","sourceRoot":"","sources":["../../../src/tests/abduction/abduction.test.ts"],"names":[],"mappings":""}