@stevenvo780/st-lang 4.5.2 → 4.6.0

package/dist/hindley-milner/types.d.ts

@@ -0,0 +1,84 @@
+export type Type = {
+    kind: 'tvar';
+    name: string;
+} | {
+    kind: 'tconst';
+    name: string;
+} | {
+    kind: 'arrow';
+    from: Type;
+    to: Type;
+} | {
+    kind: 'tapp';
+    fn: string;
+    args: Type[];
+};
+export interface TypeScheme {
+    forall: string[];
+    body: Type;
+}
+export type Expr = {
+    kind: 'var';
+    name: string;
+} | {
+    kind: 'lit';
+    value: number | boolean | string;
+} | {
+    kind: 'app';
+    fn: Expr;
+    arg: Expr;
+} | {
+    kind: 'lam';
+    param: string;
+    body: Expr;
+} | {
+    kind: 'let';
+    bind: string;
+    value: Expr;
+    body: Expr;
+} | {
+    kind: 'letRec';
+    defs: Array<{
+        name: string;
+        body: Expr;
+    }>;
+    body: Expr;
+} | {
+    kind: 'if';
+    cond: Expr;
+    then: Expr;
+    else: Expr;
+};
+export declare const tVar: (name: string) => Type;
+export declare const tConst: (name: string) => Type;
+export declare const tArrow: (from: Type, to: Type) => Type;
+export declare const tApp: (fn: string, ...args: Type[]) => Type;
+export declare const scheme: (forall: string[], body: Type) => TypeScheme;
+export declare const mono: (body: Type) => TypeScheme;
+export declare const eVar: (name: string) => Expr;
+export declare const eLit: (value: number | boolean | string) => Expr;
+export declare const eApp: (fn: Expr, arg: Expr) => Expr;
+export declare const eLam: (param: string, body: Expr) => Expr;
+export declare const eLet: (bind: string, value: Expr, body: Expr) => Expr;
+export declare const eLetRec: (defs: Array<{
+    name: string;
+    body: Expr;
+}>, body: Expr) => Expr;
+export declare const eIf: (cond: Expr, then_: Expr, else_: Expr) => Expr;
+export declare const eAppN: (fn: Expr, ...args: Expr[]) => Expr;
+export declare const TInt: Type;
+export declare const TBool: Type;
+export declare const TStr: Type;
+export declare function typeFreeVars(t: Type, acc?: Set<string>): Set<string>;
+export declare function schemeFreeVars(s: TypeScheme): Set<string>;
+export declare function typeToString(t: Type): string;
+export declare function schemeToString(s: TypeScheme): string;
+export declare class TypeEnv {
+    readonly bindings: Map<string, TypeScheme>;
+    constructor(bindings?: Map<string, TypeScheme>);
+    extend(name: string, sc: TypeScheme): TypeEnv;
+    extendMany(entries: Array<[string, TypeScheme]>): TypeEnv;
+    lookup(name: string): TypeScheme | undefined;
+    freeVars(): Set<string>;
+}
+//# sourceMappingURL=types.d.ts.map

package/dist/hindley-milner/types.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"types.d.ts","sourceRoot":"","sources":["../../src/hindley-milner/types.ts"],"names":[],"mappings":"AAwBA,MAAM,MAAM,IAAI,GACZ;IAAE,IAAI,EAAE,MAAM,CAAC;IAAC,IAAI,EAAE,MAAM,CAAA;CAAE,GAC9B;IAAE,IAAI,EAAE,QAAQ,CAAC;IAAC,IAAI,EAAE,MAAM,CAAA;CAAE,GAChC;IAAE,IAAI,EAAE,OAAO,CAAC;IAAC,IAAI,EAAE,IAAI,CAAC;IAAC,EAAE,EAAE,IAAI,CAAA;CAAE,GACvC;IAAE,IAAI,EAAE,MAAM,CAAC;IAAC,EAAE,EAAE,MAAM,CAAC;IAAC,IAAI,EAAE,IAAI,EAAE,CAAA;CAAE,CAAC;AAE/C,MAAM,WAAW,UAAU;IACzB,MAAM,EAAE,MAAM,EAAE,CAAC;IACjB,IAAI,EAAE,IAAI,CAAC;CACZ;AAED,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,GAAG,OAAO,GAAG,MAAM,CAAA;CAAE,GACjD;IAAE,IAAI,EAAE,KAAK,CAAC;IAAC,EAAE,EAAE,IAAI,CAAC;IAAC,GAAG,EAAE,IAAI,CAAA;CAAE,GACpC;IAAE,IAAI,EAAE,KAAK,CAAC;IAAC,KAAK,EAAE,MAAM,CAAC;IAAC,IAAI,EAAE,IAAI,CAAA;CAAE,GAC1C;IAAE,IAAI,EAAE,KAAK,CAAC;IAAC,IAAI,EAAE,MAAM,CAAC;IAAC,KAAK,EAAE,IAAI,CAAC;IAAC,IAAI,EAAE,IAAI,CAAA;CAAE,GACtD;IAAE,IAAI,EAAE,QAAQ,CAAC;IAAC,IAAI,EAAE,KAAK,CAAC;QAAE,IAAI,EAAE,MAAM,CAAC;QAAC,IAAI,EAAE,IAAI,CAAA;KAAE,CAAC,CAAC;IAAC,IAAI,EAAE,IAAI,CAAA;CAAE,GACzE;IAAE,IAAI,EAAE,IAAI,CAAC;IAAC,IAAI,EAAE,IAAI,CAAC;IAAC,IAAI,EAAE,IAAI,CAAC;IAAC,IAAI,EAAE,IAAI,CAAA;CAAE,CAAC;AAGvD,eAAO,MAAM,IAAI,GAAI,MAAM,MAAM,KAAG,IAAgC,CAAC;AACrE,eAAO,MAAM,MAAM,GAAI,MAAM,MAAM,KAAG,IAAkC,CAAC;AACzE,eAAO,MAAM,MAAM,GAAI,MAAM,IAAI,EAAE,IAAI,IAAI,KAAG,IAAqC,CAAC;AACpF,eAAO,MAAM,IAAI,GAAI,IAAI,MAAM,EAAE,GAAG,MAAM,IAAI,EAAE,KAAG,IAAoC,CAAC;AAExF,eAAO,MAAM,MAAM,GAAI,QAAQ,MAAM,EAAE,EAAE,MAAM,IAAI,KAAG,UAAgC,CAAC;AACvF,eAAO,MAAM,IAAI,GAAI,MAAM,IAAI,KAAG,UAAoC,CAAC;AAEvE,eAAO,MAAM,IAAI,GAAI,MAAM,MAAM,KAAG,IAA+B,CAAC;AACpE,eAAO,MAAM,IAAI,GAAI,OAAO,MAAM,GAAG,OAAO,GAAG,MAAM,KAAG,IAAgC,CAAC;AACzF,eAAO,MAAM,IAAI,GAAI,IAAI,IAAI,EAAE,KAAK,IAAI,KAAG,IAAkC,CAAC;AAC9E,eAAO,MAAM,IAAI,GAAI,OAAO,MAAM,EAAE,MAAM,IAAI,KAAG,IAAsC,CAAC;AACxF,eAAO,MAAM,IAAI,GAAI,MAAM,MAAM,EAAE,OAAO,IAAI,EAAE,MAAM,IAAI,KAAG,IAK3D,CAAC;AACH,eAAO,MAAM,OAAO,GAAI,MAAM,KAAK,CAAC;IAAE,IAAI,EAAE,MAAM,CAAC;IAAC,IAAI,EAAE,IAAI,CAAA;CAAE,CAAC,EAAE,MAAM,IAAI,KAAG,IAI9E,CAAC;AACH,eAAO,MAAM,GAAG,GAAI,MAAM,IAAI,EAAE,OAAO,IAAI,EAAE,OAAO,IAAI,KAAG,IAKzD,CAAC;AAGH,eAAO,MAAM,KAAK,GAAI,IAAI,IAAI,EAAE,GAAG,MAAM,IAAI,EAAE,KAAG,IAA6B,CAAC;AAGhF,eAAO,MAAM,IAAI,MAAgB,CAAC;AAClC,eAAO,MAAM,KAAK,MAAiB,CAAC;AACpC,eAAO,MAAM,IAAI,MAAmB,CAAC;AAGrC,wBAAgB,YAAY,CAAC,CAAC,EAAE,IAAI,EAAE,GAAG,GAAE,GAAG,CAAC,MAAM,CAAa,GAAG,GAAG,CAAC,MAAM,CAAC,CAe/E;AAED,wBAAgB,cAAc,CAAC,CAAC,EAAE,UAAU,GAAG,GAAG,CAAC,MAAM,CAAC,CAIzD;AAGD,wBAAgB,YAAY,CAAC,CAAC,EAAE,IAAI,GAAG,MAAM,CAwB5C;AAED,wBAAgB,cAAc,CAAC,CAAC,EAAE,UAAU,GAAG,MAAM,CAGpD;AAMD,qBAAa,OAAO;IAClB,QAAQ,CAAC,QAAQ,EAAE,GAAG,CAAC,MAAM,EAAE,UAAU,CAAC,CAAC;gBAE/B,QAAQ,GAAE,GAAG,CAAC,MAAM,EAAE,UAAU,CAAa;IAIzD,MAAM,CAAC,IAAI,EAAE,MAAM,EAAE,EAAE,EAAE,UAAU,GAAG,OAAO;IAM7C,UAAU,CAAC,OAAO,EAAE,KAAK,CAAC,CAAC,MAAM,EAAE,UAAU,CAAC,CAAC,GAAG,OAAO;IAMzD,MAAM,CAAC,IAAI,EAAE,MAAM,GAAG,UAAU,GAAG,SAAS;IAI5C,QAAQ,IAAI,GAAG,CAAC,MAAM,CAAC;CAOxB"}

package/dist/hindley-milner/types.js

@@ -0,0 +1,166 @@
+"use strict";
+// ============================================================
+// Hindley-Milner — Tipos, esquemas, expresiones y entorno
+// ============================================================
+//
+// Sistema de tipos let-polimórfico estilo Damas-Milner. La sintaxis
+// está dividida en dos niveles:
+//
+//   τ  ::= α | C | τ → τ | C τ ...        (monotipos)
+//   σ  ::= τ | ∀α. σ                       (esquemas de tipo)
+//
+// Sólo el `let` introduce esquemas: el cuerpo de un λ recibe siempre
+// un monotipo. Esa restricción es lo que mantiene decidible la
+// inferencia (rank-1).
+//
+// Las expresiones son STLC + literales + `let` polimórfico + `letRec`
+// (puntos fijos múltiples) + condicional `if`. La regla operacional
+// es estándar; aquí sólo nos interesa el tipado.
+//
+// Convenciones de impresión:
+//   - tvar usa el nombre crudo (α, β, t1, ...).
+//   - tapp se imprime `C a b c` salvo el caso n=0 (`C`).
+//   - arrow asocia a la derecha; con paréntesis si el dominio es
+//     a su vez arrow o tapp con args.
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.TypeEnv = exports.TStr = exports.TBool = exports.TInt = exports.eAppN = exports.eIf = exports.eLetRec = exports.eLet = exports.eLam = exports.eApp = exports.eLit = exports.eVar = exports.mono = exports.scheme = exports.tApp = exports.tArrow = exports.tConst = exports.tVar = void 0;
+exports.typeFreeVars = typeFreeVars;
+exports.schemeFreeVars = schemeFreeVars;
+exports.typeToString = typeToString;
+exports.schemeToString = schemeToString;
+// ---------- Constructores convenientes ----------
+const tVar = (name) => ({ kind: 'tvar', name });
+exports.tVar = tVar;
+const tConst = (name) => ({ kind: 'tconst', name });
+exports.tConst = tConst;
+const tArrow = (from, to) => ({ kind: 'arrow', from, to });
+exports.tArrow = tArrow;
+const tApp = (fn, ...args) => ({ kind: 'tapp', fn, args });
+exports.tApp = tApp;
+const scheme = (forall, body) => ({ forall, body });
+exports.scheme = scheme;
+const mono = (body) => ({ forall: [], body });
+exports.mono = mono;
+const eVar = (name) => ({ kind: 'var', name });
+exports.eVar = eVar;
+const eLit = (value) => ({ kind: 'lit', value });
+exports.eLit = eLit;
+const eApp = (fn, arg) => ({ kind: 'app', fn, arg });
+exports.eApp = eApp;
+const eLam = (param, body) => ({ kind: 'lam', param, body });
+exports.eLam = eLam;
+const eLet = (bind, value, body) => ({
+    kind: 'let',
+    bind,
+    value,
+    body,
+});
+exports.eLet = eLet;
+const eLetRec = (defs, body) => ({
+    kind: 'letRec',
+    defs,
+    body,
+});
+exports.eLetRec = eLetRec;
+const eIf = (cond, then_, else_) => ({
+    kind: 'if',
+    cond,
+    then: then_,
+    else: else_,
+});
+exports.eIf = eIf;
+// Azúcar: aplicaciones múltiples a izquierda.
+const eAppN = (fn, ...args) => args.reduce(exports.eApp, fn);
+exports.eAppN = eAppN;
+// Constantes base de los tipos primitivos.
+exports.TInt = (0, exports.tConst)('Int');
+exports.TBool = (0, exports.tConst)('Bool');
+exports.TStr = (0, exports.tConst)('String');
+// ---------- Variables libres de un Type / TypeScheme ----------
+function typeFreeVars(t, acc = new Set()) {
+    switch (t.kind) {
+        case 'tvar':
+            acc.add(t.name);
+            return acc;
+        case 'tconst':
+            return acc;
+        case 'arrow':
+            typeFreeVars(t.from, acc);
+            typeFreeVars(t.to, acc);
+            return acc;
+        case 'tapp':
+            for (const a of t.args)
+                typeFreeVars(a, acc);
+            return acc;
+    }
+}
+function schemeFreeVars(s) {
+    const fv = typeFreeVars(s.body);
+    for (const b of s.forall)
+        fv.delete(b);
+    return fv;
+}
+// ---------- Impresión legible ----------
+function typeToString(t) {
+    switch (t.kind) {
+        case 'tvar':
+            return t.name;
+        case 'tconst':
+            return t.name;
+        case 'arrow': {
+            // type application asocia más fuerte que ->; sólo el dominio
+            // siendo a su vez una flecha exige paréntesis.
+            const lhs = t.from.kind === 'arrow' ? `(${typeToString(t.from)})` : typeToString(t.from);
+            return `${lhs} -> ${typeToString(t.to)}`;
+        }
+        case 'tapp': {
+            if (t.args.length === 0)
+                return t.fn;
+            // dentro de un tapp, cualquier argumento que sea arrow o tapp con args
+            // necesita paréntesis para evitar ambigüedad (`List List a` vs `List (List a)`).
+            const parts = t.args.map((a) => a.kind === 'arrow' || (a.kind === 'tapp' && a.args.length > 0)
+                ? `(${typeToString(a)})`
+                : typeToString(a));
+            return `${t.fn} ${parts.join(' ')}`;
+        }
+    }
+}
+function schemeToString(s) {
+    if (s.forall.length === 0)
+        return typeToString(s.body);
+    return `forall ${s.forall.join(' ')}. ${typeToString(s.body)}`;
+}
+// ---------- Entorno de tipos ----------
+// Inmutable: extend() devuelve un nuevo TypeEnv que comparte estructura
+// con el anterior. El test de `freeVars()` recorre todos los schemes
+// para soportar generalización correcta.
+class TypeEnv {
+    bindings;
+    constructor(bindings = new Map()) {
+        this.bindings = bindings;
+    }
+    extend(name, sc) {
+        const next = new Map(this.bindings);
+        next.set(name, sc);
+        return new TypeEnv(next);
+    }
+    extendMany(entries) {
+        const next = new Map(this.bindings);
+        for (const [n, s] of entries)
+            next.set(n, s);
+        return new TypeEnv(next);
+    }
+    lookup(name) {
+        return this.bindings.get(name);
+    }
+    freeVars() {
+        const acc = new Set();
+        for (const sc of this.bindings.values()) {
+            for (const v of schemeFreeVars(sc))
+                acc.add(v);
+        }
+        return acc;
+    }
+}
+exports.TypeEnv = TypeEnv;
+//# sourceMappingURL=types.js.map

package/dist/hindley-milner/types.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"types.js","sourceRoot":"","sources":["../../src/hindley-milner/types.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,0DAA0D;AAC1D,+DAA+D;AAC/D,EAAE;AACF,oEAAoE;AACpE,gCAAgC;AAChC,EAAE;AACF,sDAAsD;AACtD,8DAA8D;AAC9D,EAAE;AACF,qEAAqE;AACrE,+DAA+D;AAC/D,uBAAuB;AACvB,EAAE;AACF,sEAAsE;AACtE,oEAAoE;AACpE,iDAAiD;AACjD,EAAE;AACF,6BAA6B;AAC7B,gDAAgD;AAChD,yDAAyD;AACzD,iEAAiE;AACjE,sCAAsC;;;AA8DtC,oCAeC;AAED,wCAIC;AAGD,oCAwBC;AAED,wCAGC;AA7FD,mDAAmD;AAC5C,MAAM,IAAI,GAAG,CAAC,IAAY,EAAQ,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,CAAC,CAAC;AAAxD,QAAA,IAAI,QAAoD;AAC9D,MAAM,MAAM,GAAG,CAAC,IAAY,EAAQ,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,QAAQ,EAAE,IAAI,EAAE,CAAC,CAAC;AAA5D,QAAA,MAAM,UAAsD;AAClE,MAAM,MAAM,GAAG,CAAC,IAAU,EAAE,EAAQ,EAAQ,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,OAAO,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC,CAAC;AAAvE,QAAA,MAAM,UAAiE;AAC7E,MAAM,IAAI,GAAG,CAAC,EAAU,EAAE,GAAG,IAAY,EAAQ,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,EAAE,EAAE,IAAI,EAAE,CAAC,CAAC;AAA3E,QAAA,IAAI,QAAuE;AAEjF,MAAM,MAAM,GAAG,CAAC,MAAgB,EAAE,IAAU,EAAc,EAAE,CAAC,CAAC,EAAE,MAAM,EAAE,IAAI,EAAE,CAAC,CAAC;AAA1E,QAAA,MAAM,UAAoE;AAChF,MAAM,IAAI,GAAG,CAAC,IAAU,EAAc,EAAE,CAAC,CAAC,EAAE,MAAM,EAAE,EAAE,EAAE,IAAI,EAAE,CAAC,CAAC;AAA1D,QAAA,IAAI,QAAsD;AAEhE,MAAM,IAAI,GAAG,CAAC,IAAY,EAAQ,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,CAAC,CAAC;AAAvD,QAAA,IAAI,QAAmD;AAC7D,MAAM,IAAI,GAAG,CAAC,KAAgC,EAAQ,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,CAAC,CAAC;AAA5E,QAAA,IAAI,QAAwE;AAClF,MAAM,IAAI,GAAG,CAAC,EAAQ,EAAE,GAAS,EAAQ,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,KAAK,EAAE,EAAE,EAAE,GAAG,EAAE,CAAC,CAAC;AAAjE,QAAA,IAAI,QAA6D;AACvE,MAAM,IAAI,GAAG,CAAC,KAAa,EAAE,IAAU,EAAQ,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,IAAI,EAAE,CAAC,CAAC;AAA3E,QAAA,IAAI,QAAuE;AACjF,MAAM,IAAI,GAAG,CAAC,IAAY,EAAE,KAAW,EAAE,IAAU,EAAQ,EAAE,CAAC,CAAC;IACpE,IAAI,EAAE,KAAK;IACX,IAAI;IACJ,KAAK;IACL,IAAI;CACL,CAAC,CAAC;AALU,QAAA,IAAI,QAKd;AACI,MAAM,OAAO,GAAG,CAAC,IAAyC,EAAE,IAAU,EAAQ,EAAE,CAAC,CAAC;IACvF,IAAI,EAAE,QAAQ;IACd,IAAI;IACJ,IAAI;CACL,CAAC,CAAC;AAJU,QAAA,OAAO,WAIjB;AACI,MAAM,GAAG,GAAG,CAAC,IAAU,EAAE,KAAW,EAAE,KAAW,EAAQ,EAAE,CAAC,CAAC;IAClE,IAAI,EAAE,IAAI;IACV,IAAI;IACJ,IAAI,EAAE,KAAK;IACX,IAAI,EAAE,KAAK;CACZ,CAAC,CAAC;AALU,QAAA,GAAG,OAKb;AAEH,8CAA8C;AACvC,MAAM,KAAK,GAAG,CAAC,EAAQ,EAAE,GAAG,IAAY,EAAQ,EAAE,CAAC,IAAI,CAAC,MAAM,CAAC,YAAI,EAAE,EAAE,CAAC,CAAC;AAAnE,QAAA,KAAK,SAA8D;AAEhF,2CAA2C;AAC9B,QAAA,IAAI,GAAG,IAAA,cAAM,EAAC,KAAK,CAAC,CAAC;AACrB,QAAA,KAAK,GAAG,IAAA,cAAM,EAAC,MAAM,CAAC,CAAC;AACvB,QAAA,IAAI,GAAG,IAAA,cAAM,EAAC,QAAQ,CAAC,CAAC;AAErC,iEAAiE;AACjE,SAAgB,YAAY,CAAC,CAAO,EAAE,MAAmB,IAAI,GAAG,EAAE;IAChE,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,QAAQ;YACX,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,MAAM;YACT,KAAK,MAAM,CAAC,IAAI,CAAC,CAAC,IAAI;gBAAE,YAAY,CAAC,CAAC,EAAE,GAAG,CAAC,CAAC;YAC7C,OAAO,GAAG,CAAC;IACf,CAAC;AACH,CAAC;AAED,SAAgB,cAAc,CAAC,CAAa;IAC1C,MAAM,EAAE,GAAG,YAAY,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;IAChC,KAAK,MAAM,CAAC,IAAI,CAAC,CAAC,MAAM;QAAE,EAAE,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC;IACvC,OAAO,EAAE,CAAC;AACZ,CAAC;AAED,0CAA0C;AAC1C,SAAgB,YAAY,CAAC,CAAO;IAClC,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;QACf,KAAK,MAAM;YACT,OAAO,CAAC,CAAC,IAAI,CAAC;QAChB,KAAK,QAAQ;YACX,OAAO,CAAC,CAAC,IAAI,CAAC;QAChB,KAAK,OAAO,CAAC,CAAC,CAAC;YACb,6DAA6D;YAC7D,+CAA+C;YAC/C,MAAM,GAAG,GAAG,CAAC,CAAC,IAAI,CAAC,IAAI,KAAK,OAAO,CAAC,CAAC,CAAC,IAAI,YAAY,CAAC,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,YAAY,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;YACzF,OAAO,GAAG,GAAG,OAAO,YAAY,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC;QAC3C,CAAC;QACD,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,IAAI,CAAC,CAAC,IAAI,CAAC,MAAM,KAAK,CAAC;gBAAE,OAAO,CAAC,CAAC,EAAE,CAAC;YACrC,uEAAuE;YACvE,iFAAiF;YACjF,MAAM,KAAK,GAAG,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,EAAE,CAC7B,CAAC,CAAC,IAAI,KAAK,OAAO,IAAI,CAAC,CAAC,CAAC,IAAI,KAAK,MAAM,IAAI,CAAC,CAAC,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC;gBAC5D,CAAC,CAAC,IAAI,YAAY,CAAC,CAAC,CAAC,GAAG;gBACxB,CAAC,CAAC,YAAY,CAAC,CAAC,CAAC,CACpB,CAAC;YACF,OAAO,GAAG,CAAC,CAAC,EAAE,IAAI,KAAK,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC;QACtC,CAAC;IACH,CAAC;AACH,CAAC;AAED,SAAgB,cAAc,CAAC,CAAa;IAC1C,IAAI,CAAC,CAAC,MAAM,CAAC,MAAM,KAAK,CAAC;QAAE,OAAO,YAAY,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;IACvD,OAAO,UAAU,CAAC,CAAC,MAAM,CAAC,IAAI,CAAC,GAAG,CAAC,KAAK,YAAY,CAAC,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC;AACjE,CAAC;AAED,yCAAyC;AACzC,wEAAwE;AACxE,qEAAqE;AACrE,yCAAyC;AACzC,MAAa,OAAO;IACT,QAAQ,CAA0B;IAE3C,YAAY,WAAoC,IAAI,GAAG,EAAE;QACvD,IAAI,CAAC,QAAQ,GAAG,QAAQ,CAAC;IAC3B,CAAC;IAED,MAAM,CAAC,IAAY,EAAE,EAAc;QACjC,MAAM,IAAI,GAAG,IAAI,GAAG,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC;QACpC,IAAI,CAAC,GAAG,CAAC,IAAI,EAAE,EAAE,CAAC,CAAC;QACnB,OAAO,IAAI,OAAO,CAAC,IAAI,CAAC,CAAC;IAC3B,CAAC;IAED,UAAU,CAAC,OAAoC;QAC7C,MAAM,IAAI,GAAG,IAAI,GAAG,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC;QACpC,KAAK,MAAM,CAAC,CAAC,EAAE,CAAC,CAAC,IAAI,OAAO;YAAE,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;QAC7C,OAAO,IAAI,OAAO,CAAC,IAAI,CAAC,CAAC;IAC3B,CAAC;IAED,MAAM,CAAC,IAAY;QACjB,OAAO,IAAI,CAAC,QAAQ,CAAC,GAAG,CAAC,IAAI,CAAC,CAAC;IACjC,CAAC;IAED,QAAQ;QACN,MAAM,GAAG,GAAG,IAAI,GAAG,EAAU,CAAC;QAC9B,KAAK,MAAM,EAAE,IAAI,IAAI,CAAC,QAAQ,CAAC,MAAM,EAAE,EAAE,CAAC;YACxC,KAAK,MAAM,CAAC,IAAI,cAAc,CAAC,EAAE,CAAC;gBAAE,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;QACjD,CAAC;QACD,OAAO,GAAG,CAAC;IACb,CAAC;CACF;AA9BD,0BA8BC"}

package/dist/hott/equality.d.ts

@@ -0,0 +1,4 @@
+import type { HoTTTerm } from './types';
+export declare function alphaEqHoTT(a: HoTTTerm, b: HoTTTerm): boolean;
+export declare function alphaBetaEqHoTT(a: HoTTTerm, b: HoTTTerm, _ctx?: Map<string, HoTTTerm>): boolean;
+//# sourceMappingURL=equality.d.ts.map

package/dist/hott/equality.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"equality.d.ts","sourceRoot":"","sources":["../../src/hott/equality.ts"],"names":[],"mappings":"AAIA,OAAO,KAAK,EAAE,QAAQ,EAAE,MAAM,SAAS,CAAC;AAMxC,wBAAgB,WAAW,CAAC,CAAC,EAAE,QAAQ,EAAE,CAAC,EAAE,QAAQ,GAAG,OAAO,CAoG7D;AAED,wBAAgB,eAAe,CAAC,CAAC,EAAE,QAAQ,EAAE,CAAC,EAAE,QAAQ,EAAE,IAAI,CAAC,EAAE,GAAG,CAAC,MAAM,EAAE,QAAQ,CAAC,GAAG,OAAO,CAE/F"}

package/dist/hott/equality.js

@@ -0,0 +1,108 @@
+"use strict";
+// ============================================================
+// HoTT — α-equivalencia e igualdad definicional (αβ)
+// ============================================================
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.alphaEqHoTT = alphaEqHoTT;
+exports.alphaBetaEqHoTT = alphaBetaEqHoTT;
+const normalize_1 = require("./normalize");
+const substitute_1 = require("./substitute");
+let alphaCounter = 0;
+function alphaEqHoTT(a, b) {
+    if (a.kind !== b.kind)
+        return false;
+    switch (a.kind) {
+        case 'var':
+            return a.name === b.name;
+        case 'universe':
+            return a.level === b.level;
+        case 'nat':
+        case 'zero':
+        case 'circle':
+        case 'baseOfCircle':
+        case 'loopOfCircle':
+            return true;
+        case 'succ':
+            return alphaEqHoTT(a.arg, b.arg);
+        case 'app': {
+            const bb = b;
+            return alphaEqHoTT(a.fn, bb.fn) && alphaEqHoTT(a.arg, bb.arg);
+        }
+        case 'pair': {
+            const bb = b;
+            return alphaEqHoTT(a.fst, bb.fst) && alphaEqHoTT(a.snd, bb.snd);
+        }
+        case 'fst':
+        case 'snd': {
+            const bb = b;
+            return alphaEqHoTT(a.pair, bb.pair);
+        }
+        case 'path': {
+            const bb = b;
+            return (alphaEqHoTT(a.type, bb.type) &&
+                alphaEqHoTT(a.left, bb.left) &&
+                alphaEqHoTT(a.right, bb.right));
+        }
+        case 'refl':
+            return alphaEqHoTT(a.term, b.term);
+        case 'pi':
+        case 'sigma': {
+            const bb = b;
+            const aDom = a.kind === 'pi' ? a.domain : a.first;
+            const bDom = bb.kind === 'pi' ? bb.domain : bb.first;
+            const aCod = a.kind === 'pi' ? a.codomain : a.second;
+            const bCod = bb.kind === 'pi' ? bb.codomain : bb.second;
+            if (!alphaEqHoTT(aDom, bDom))
+                return false;
+            if (a.bind === bb.bind)
+                return alphaEqHoTT(aCod, bCod);
+            const fresh = `__αh${alphaCounter++}`;
+            return alphaEqHoTT((0, substitute_1.substituteHoTT)(aCod, a.bind, { kind: 'var', name: fresh }), (0, substitute_1.substituteHoTT)(bCod, bb.bind, { kind: 'var', name: fresh }));
+        }
+        case 'lam': {
+            const bb = b;
+            if (!alphaEqHoTT(a.domain, bb.domain))
+                return false;
+            if (a.bind === bb.bind)
+                return alphaEqHoTT(a.body, bb.body);
+            const fresh = `__αh${alphaCounter++}`;
+            return alphaEqHoTT((0, substitute_1.substituteHoTT)(a.body, a.bind, { kind: 'var', name: fresh }), (0, substitute_1.substituteHoTT)(bb.body, bb.bind, { kind: 'var', name: fresh }));
+        }
+        case 'transport': {
+            const bb = b;
+            return (alphaEqHoTT(a.family, bb.family) &&
+                alphaEqHoTT(a.path, bb.path) &&
+                alphaEqHoTT(a.term, bb.term));
+        }
+        case 'pathSym':
+            return alphaEqHoTT(a.path, b.path);
+        case 'pathConcat': {
+            const bb = b;
+            return alphaEqHoTT(a.left, bb.left) && alphaEqHoTT(a.right, bb.right);
+        }
+        case 'ap': {
+            const bb = b;
+            return alphaEqHoTT(a.fn, bb.fn) && alphaEqHoTT(a.path, bb.path);
+        }
+        case 'jElim': {
+            const bb = b;
+            return (alphaEqHoTT(a.motive, bb.motive) &&
+                alphaEqHoTT(a.baseCase, bb.baseCase) &&
+                alphaEqHoTT(a.path, bb.path));
+        }
+        case 'suspension':
+        case 'north':
+        case 'south':
+            return alphaEqHoTT(a.type, b.type);
+        case 'meridian': {
+            const bb = b;
+            return alphaEqHoTT(a.type, bb.type) && alphaEqHoTT(a.point, bb.point);
+        }
+        case 'ua':
+            return alphaEqHoTT(a.equiv, b.equiv);
+    }
+}
+function alphaBetaEqHoTT(a, b, _ctx) {
+    return alphaEqHoTT((0, normalize_1.normalizeHoTT)(a), (0, normalize_1.normalizeHoTT)(b));
+}
+//# sourceMappingURL=equality.js.map

package/dist/hott/equality.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"equality.js","sourceRoot":"","sources":["../../src/hott/equality.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,qDAAqD;AACrD,+DAA+D;;AAQ/D,kCAoGC;AAED,0CAEC;AA7GD,2CAA4C;AAC5C,6CAA8C;AAE9C,IAAI,YAAY,GAAG,CAAC,CAAC;AAErB,SAAgB,WAAW,CAAC,CAAW,EAAE,CAAW;IAClD,IAAI,CAAC,CAAC,IAAI,KAAK,CAAC,CAAC,IAAI;QAAE,OAAO,KAAK,CAAC;IACpC,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;QACf,KAAK,KAAK;YACR,OAAO,CAAC,CAAC,IAAI,KAAM,CAAc,CAAC,IAAI,CAAC;QACzC,KAAK,UAAU;YACb,OAAO,CAAC,CAAC,KAAK,KAAM,CAAc,CAAC,KAAK,CAAC;QAC3C,KAAK,KAAK,CAAC;QACX,KAAK,MAAM,CAAC;QACZ,KAAK,QAAQ,CAAC;QACd,KAAK,cAAc,CAAC;QACpB,KAAK,cAAc;YACjB,OAAO,IAAI,CAAC;QACd,KAAK,MAAM;YACT,OAAO,WAAW,CAAC,CAAC,CAAC,GAAG,EAAG,CAAc,CAAC,GAAG,CAAC,CAAC;QACjD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,EAAE,GAAG,CAAa,CAAC;YACzB,OAAO,WAAW,CAAC,CAAC,CAAC,EAAE,EAAE,EAAE,CAAC,EAAE,CAAC,IAAI,WAAW,CAAC,CAAC,CAAC,GAAG,EAAE,EAAE,CAAC,GAAG,CAAC,CAAC;QAChE,CAAC;QACD,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,MAAM,EAAE,GAAG,CAAa,CAAC;YACzB,OAAO,WAAW,CAAC,CAAC,CAAC,GAAG,EAAE,EAAE,CAAC,GAAG,CAAC,IAAI,WAAW,CAAC,CAAC,CAAC,GAAG,EAAE,EAAE,CAAC,GAAG,CAAC,CAAC;QAClE,CAAC;QACD,KAAK,KAAK,CAAC;QACX,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,EAAE,GAAG,CAAa,CAAC;YACzB,OAAO,WAAW,CAAC,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,CAAC,CAAC;QACtC,CAAC;QACD,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,MAAM,EAAE,GAAG,CAAa,CAAC;YACzB,OAAO,CACL,WAAW,CAAC,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,CAAC;gBAC5B,WAAW,CAAC,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,CAAC;gBAC5B,WAAW,CAAC,CAAC,CAAC,KAAK,EAAE,EAAE,CAAC,KAAK,CAAC,CAC/B,CAAC;QACJ,CAAC;QACD,KAAK,MAAM;YACT,OAAO,WAAW,CAAC,CAAC,CAAC,IAAI,EAAG,CAAc,CAAC,IAAI,CAAC,CAAC;QACnD,KAAK,IAAI,CAAC;QACV,KAAK,OAAO,CAAC,CAAC,CAAC;YACb,MAAM,EAAE,GAAG,CAAa,CAAC;YACzB,MAAM,IAAI,GAAG,CAAC,CAAC,IAAI,KAAK,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC;YAClD,MAAM,IAAI,GAAG,EAAE,CAAC,IAAI,KAAK,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,CAAC,KAAK,CAAC;YACrD,MAAM,IAAI,GAAG,CAAC,CAAC,IAAI,KAAK,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC;YACrD,MAAM,IAAI,GAAG,EAAE,CAAC,IAAI,KAAK,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC,QAAQ,CAAC,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC;YACxD,IAAI,CAAC,WAAW,CAAC,IAAI,EAAE,IAAI,CAAC;gBAAE,OAAO,KAAK,CAAC;YAC3C,IAAI,CAAC,CAAC,IAAI,KAAK,EAAE,CAAC,IAAI;gBAAE,OAAO,WAAW,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC;YACvD,MAAM,KAAK,GAAG,OAAO,YAAY,EAAE,EAAE,CAAC;YACtC,OAAO,WAAW,CAChB,IAAA,2BAAc,EAAC,IAAI,EAAE,CAAC,CAAC,IAAI,EAAE,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC,EAC1D,IAAA,2BAAc,EAAC,IAAI,EAAE,EAAE,CAAC,IAAI,EAAE,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC,CAC5D,CAAC;QACJ,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,EAAE,GAAG,CAAa,CAAC;YACzB,IAAI,CAAC,WAAW,CAAC,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,MAAM,CAAC;gBAAE,OAAO,KAAK,CAAC;YACpD,IAAI,CAAC,CAAC,IAAI,KAAK,EAAE,CAAC,IAAI;gBAAE,OAAO,WAAW,CAAC,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,CAAC,CAAC;YAC5D,MAAM,KAAK,GAAG,OAAO,YAAY,EAAE,EAAE,CAAC;YACtC,OAAO,WAAW,CAChB,IAAA,2BAAc,EAAC,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC,IAAI,EAAE,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC,EAC5D,IAAA,2BAAc,EAAC,EAAE,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,EAAE,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC,CAC/D,CAAC;QACJ,CAAC;QACD,KAAK,WAAW,CAAC,CAAC,CAAC;YACjB,MAAM,EAAE,GAAG,CAAa,CAAC;YACzB,OAAO,CACL,WAAW,CAAC,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,MAAM,CAAC;gBAChC,WAAW,CAAC,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,CAAC;gBAC5B,WAAW,CAAC,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,CAAC,CAC7B,CAAC;QACJ,CAAC;QACD,KAAK,SAAS;YACZ,OAAO,WAAW,CAAC,CAAC,CAAC,IAAI,EAAG,CAAc,CAAC,IAAI,CAAC,CAAC;QACnD,KAAK,YAAY,CAAC,CAAC,CAAC;YAClB,MAAM,EAAE,GAAG,CAAa,CAAC;YACzB,OAAO,WAAW,CAAC,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,CAAC,IAAI,WAAW,CAAC,CAAC,CAAC,KAAK,EAAE,EAAE,CAAC,KAAK,CAAC,CAAC;QACxE,CAAC;QACD,KAAK,IAAI,CAAC,CAAC,CAAC;YACV,MAAM,EAAE,GAAG,CAAa,CAAC;YACzB,OAAO,WAAW,CAAC,CAAC,CAAC,EAAE,EAAE,EAAE,CAAC,EAAE,CAAC,IAAI,WAAW,CAAC,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,CAAC,CAAC;QAClE,CAAC;QACD,KAAK,OAAO,CAAC,CAAC,CAAC;YACb,MAAM,EAAE,GAAG,CAAa,CAAC;YACzB,OAAO,CACL,WAAW,CAAC,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,MAAM,CAAC;gBAChC,WAAW,CAAC,CAAC,CAAC,QAAQ,EAAE,EAAE,CAAC,QAAQ,CAAC;gBACpC,WAAW,CAAC,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,CAAC,CAC7B,CAAC;QACJ,CAAC;QACD,KAAK,YAAY,CAAC;QAClB,KAAK,OAAO,CAAC;QACb,KAAK,OAAO;YACV,OAAO,WAAW,CAAC,CAAC,CAAC,IAAI,EAAG,CAAc,CAAC,IAAI,CAAC,CAAC;QACnD,KAAK,UAAU,CAAC,CAAC,CAAC;YAChB,MAAM,EAAE,GAAG,CAAa,CAAC;YACzB,OAAO,WAAW,CAAC,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,CAAC,IAAI,WAAW,CAAC,CAAC,CAAC,KAAK,EAAE,EAAE,CAAC,KAAK,CAAC,CAAC;QACxE,CAAC;QACD,KAAK,IAAI;YACP,OAAO,WAAW,CAAC,CAAC,CAAC,KAAK,EAAG,CAAc,CAAC,KAAK,CAAC,CAAC;IACvD,CAAC;AACH,CAAC;AAED,SAAgB,eAAe,CAAC,CAAW,EAAE,CAAW,EAAE,IAA4B;IACpF,OAAO,WAAW,CAAC,IAAA,yBAAa,EAAC,CAAC,CAAC,EAAE,IAAA,yBAAa,EAAC,CAAC,CAAC,CAAC,CAAC;AACzD,CAAC"}

package/dist/hott/index.d.ts

@@ -0,0 +1,13 @@
+export type { HoTTTerm } from './types';
+export { hVar, hUniverse, hPi, hLam, hApp, hSigma, hPair, hFst, hSnd, hNat, hZero, hSucc, hArrow, hPath, hRefl, hTransport, hPathSym, hPathConcat, hAp, hJElim, hCircle, hBaseOfCircle, hLoopOfCircle, hSuspension, hNorth, hSouth, hMeridian, hUa, freeVarsHoTT, occursFreeHoTT, termToStringHoTT, } from './types';
+export { substituteHoTT } from './substitute';
+export { reduceStepHoTT, normalizeHoTT, isNormalHoTT } from './normalize';
+export { alphaEqHoTT, alphaBetaEqHoTT } from './equality';
+export { inferType, checkType, isInferErrorHoTT } from './infer';
+export type { InferContextHoTT, InferResultHoTT } from './infer';
+export { refl, pathInverse, pathCompose, isHEquivalence, univalence, univalenceWitness, } from './path-algebra';
+export type { UnivalenceWitness } from './path-algebra';
+export { normalizeHoTT as normalize } from './normalize';
+export { alphaBetaEqHoTT as alphaBetaEq, alphaEqHoTT as alphaEq } from './equality';
+export { termToStringHoTT as termToString } from './types';
+//# sourceMappingURL=index.d.ts.map

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

@@ -0,0 +1 @@
+{"version":3,"file":"index.d.ts","sourceRoot":"","sources":["../../src/hott/index.ts"],"names":[],"mappings":"AAcA,YAAY,EAAE,QAAQ,EAAE,MAAM,SAAS,CAAC;AACxC,OAAO,EACL,IAAI,EACJ,SAAS,EACT,GAAG,EACH,IAAI,EACJ,IAAI,EACJ,MAAM,EACN,KAAK,EACL,IAAI,EACJ,IAAI,EACJ,IAAI,EACJ,KAAK,EACL,KAAK,EACL,MAAM,EACN,KAAK,EACL,KAAK,EACL,UAAU,EACV,QAAQ,EACR,WAAW,EACX,GAAG,EACH,MAAM,EACN,OAAO,EACP,aAAa,EACb,aAAa,EACb,WAAW,EACX,MAAM,EACN,MAAM,EACN,SAAS,EACT,GAAG,EACH,YAAY,EACZ,cAAc,EACd,gBAAgB,GACjB,MAAM,SAAS,CAAC;AAEjB,OAAO,EAAE,cAAc,EAAE,MAAM,cAAc,CAAC;AAC9C,OAAO,EAAE,cAAc,EAAE,aAAa,EAAE,YAAY,EAAE,MAAM,aAAa,CAAC;AAC1E,OAAO,EAAE,WAAW,EAAE,eAAe,EAAE,MAAM,YAAY,CAAC;AAC1D,OAAO,EAAE,SAAS,EAAE,SAAS,EAAE,gBAAgB,EAAE,MAAM,SAAS,CAAC;AACjE,YAAY,EAAE,gBAAgB,EAAE,eAAe,EAAE,MAAM,SAAS,CAAC;AACjE,OAAO,EACL,IAAI,EACJ,WAAW,EACX,WAAW,EACX,cAAc,EACd,UAAU,EACV,iBAAiB,GAClB,MAAM,gBAAgB,CAAC;AACxB,YAAY,EAAE,iBAAiB,EAAE,MAAM,gBAAgB,CAAC;AAGxD,OAAO,EAAE,aAAa,IAAI,SAAS,EAAE,MAAM,aAAa,CAAC;AACzD,OAAO,EAAE,eAAe,IAAI,WAAW,EAAE,WAAW,IAAI,OAAO,EAAE,MAAM,YAAY,CAAC;AACpF,OAAO,EAAE,gBAAgB,IAAI,YAAY,EAAE,MAAM,SAAS,CAAC"}

package/dist/hott/index.js

@@ -0,0 +1,77 @@
+"use strict";
+// ============================================================
+// HoTT — Homotopy Type Theory (núcleo público)
+// ============================================================
+//
+// Extiende MLTT con:
+//   - Path A x y como espacio de caminos (no proposición)
+//   - refl, transport, ap, J-eliminator (computacionales sobre refl)
+//   - pathSym (inverso) y pathConcat (concatenación)
+//   - HITs: S¹ (circle, base, loop) y suspensión (north, south, meridian)
+//   - Univalence como axioma (ua) no computacional
+//
+// API mínima compatible con MLTT:
+//   inferType / checkType / normalize / alphaBetaEq
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.termToString = exports.alphaEq = exports.alphaBetaEq = exports.normalize = exports.univalenceWitness = exports.univalence = exports.isHEquivalence = exports.pathCompose = exports.pathInverse = exports.refl = exports.isInferErrorHoTT = exports.checkType = exports.inferType = exports.alphaBetaEqHoTT = exports.alphaEqHoTT = exports.isNormalHoTT = exports.normalizeHoTT = exports.reduceStepHoTT = exports.substituteHoTT = exports.termToStringHoTT = exports.occursFreeHoTT = exports.freeVarsHoTT = exports.hUa = exports.hMeridian = exports.hSouth = exports.hNorth = exports.hSuspension = exports.hLoopOfCircle = exports.hBaseOfCircle = exports.hCircle = exports.hJElim = exports.hAp = exports.hPathConcat = exports.hPathSym = exports.hTransport = exports.hRefl = exports.hPath = exports.hArrow = exports.hSucc = exports.hZero = exports.hNat = exports.hSnd = exports.hFst = exports.hPair = exports.hSigma = exports.hApp = exports.hLam = exports.hPi = exports.hUniverse = exports.hVar = void 0;
+var types_1 = require("./types");
+Object.defineProperty(exports, "hVar", { enumerable: true, get: function () { return types_1.hVar; } });
+Object.defineProperty(exports, "hUniverse", { enumerable: true, get: function () { return types_1.hUniverse; } });
+Object.defineProperty(exports, "hPi", { enumerable: true, get: function () { return types_1.hPi; } });
+Object.defineProperty(exports, "hLam", { enumerable: true, get: function () { return types_1.hLam; } });
+Object.defineProperty(exports, "hApp", { enumerable: true, get: function () { return types_1.hApp; } });
+Object.defineProperty(exports, "hSigma", { enumerable: true, get: function () { return types_1.hSigma; } });
+Object.defineProperty(exports, "hPair", { enumerable: true, get: function () { return types_1.hPair; } });
+Object.defineProperty(exports, "hFst", { enumerable: true, get: function () { return types_1.hFst; } });
+Object.defineProperty(exports, "hSnd", { enumerable: true, get: function () { return types_1.hSnd; } });
+Object.defineProperty(exports, "hNat", { enumerable: true, get: function () { return types_1.hNat; } });
+Object.defineProperty(exports, "hZero", { enumerable: true, get: function () { return types_1.hZero; } });
+Object.defineProperty(exports, "hSucc", { enumerable: true, get: function () { return types_1.hSucc; } });
+Object.defineProperty(exports, "hArrow", { enumerable: true, get: function () { return types_1.hArrow; } });
+Object.defineProperty(exports, "hPath", { enumerable: true, get: function () { return types_1.hPath; } });
+Object.defineProperty(exports, "hRefl", { enumerable: true, get: function () { return types_1.hRefl; } });
+Object.defineProperty(exports, "hTransport", { enumerable: true, get: function () { return types_1.hTransport; } });
+Object.defineProperty(exports, "hPathSym", { enumerable: true, get: function () { return types_1.hPathSym; } });
+Object.defineProperty(exports, "hPathConcat", { enumerable: true, get: function () { return types_1.hPathConcat; } });
+Object.defineProperty(exports, "hAp", { enumerable: true, get: function () { return types_1.hAp; } });
+Object.defineProperty(exports, "hJElim", { enumerable: true, get: function () { return types_1.hJElim; } });
+Object.defineProperty(exports, "hCircle", { enumerable: true, get: function () { return types_1.hCircle; } });
+Object.defineProperty(exports, "hBaseOfCircle", { enumerable: true, get: function () { return types_1.hBaseOfCircle; } });
+Object.defineProperty(exports, "hLoopOfCircle", { enumerable: true, get: function () { return types_1.hLoopOfCircle; } });
+Object.defineProperty(exports, "hSuspension", { enumerable: true, get: function () { return types_1.hSuspension; } });
+Object.defineProperty(exports, "hNorth", { enumerable: true, get: function () { return types_1.hNorth; } });
+Object.defineProperty(exports, "hSouth", { enumerable: true, get: function () { return types_1.hSouth; } });
+Object.defineProperty(exports, "hMeridian", { enumerable: true, get: function () { return types_1.hMeridian; } });
+Object.defineProperty(exports, "hUa", { enumerable: true, get: function () { return types_1.hUa; } });
+Object.defineProperty(exports, "freeVarsHoTT", { enumerable: true, get: function () { return types_1.freeVarsHoTT; } });
+Object.defineProperty(exports, "occursFreeHoTT", { enumerable: true, get: function () { return types_1.occursFreeHoTT; } });
+Object.defineProperty(exports, "termToStringHoTT", { enumerable: true, get: function () { return types_1.termToStringHoTT; } });
+var substitute_1 = require("./substitute");
+Object.defineProperty(exports, "substituteHoTT", { enumerable: true, get: function () { return substitute_1.substituteHoTT; } });
+var normalize_1 = require("./normalize");
+Object.defineProperty(exports, "reduceStepHoTT", { enumerable: true, get: function () { return normalize_1.reduceStepHoTT; } });
+Object.defineProperty(exports, "normalizeHoTT", { enumerable: true, get: function () { return normalize_1.normalizeHoTT; } });
+Object.defineProperty(exports, "isNormalHoTT", { enumerable: true, get: function () { return normalize_1.isNormalHoTT; } });
+var equality_1 = require("./equality");
+Object.defineProperty(exports, "alphaEqHoTT", { enumerable: true, get: function () { return equality_1.alphaEqHoTT; } });
+Object.defineProperty(exports, "alphaBetaEqHoTT", { enumerable: true, get: function () { return equality_1.alphaBetaEqHoTT; } });
+var infer_1 = require("./infer");
+Object.defineProperty(exports, "inferType", { enumerable: true, get: function () { return infer_1.inferType; } });
+Object.defineProperty(exports, "checkType", { enumerable: true, get: function () { return infer_1.checkType; } });
+Object.defineProperty(exports, "isInferErrorHoTT", { enumerable: true, get: function () { return infer_1.isInferErrorHoTT; } });
+var path_algebra_1 = require("./path-algebra");
+Object.defineProperty(exports, "refl", { enumerable: true, get: function () { return path_algebra_1.refl; } });
+Object.defineProperty(exports, "pathInverse", { enumerable: true, get: function () { return path_algebra_1.pathInverse; } });
+Object.defineProperty(exports, "pathCompose", { enumerable: true, get: function () { return path_algebra_1.pathCompose; } });
+Object.defineProperty(exports, "isHEquivalence", { enumerable: true, get: function () { return path_algebra_1.isHEquivalence; } });
+Object.defineProperty(exports, "univalence", { enumerable: true, get: function () { return path_algebra_1.univalence; } });
+Object.defineProperty(exports, "univalenceWitness", { enumerable: true, get: function () { return path_algebra_1.univalenceWitness; } });
+// Alias sin sufijo para uso ergonómico desde otros módulos.
+var normalize_2 = require("./normalize");
+Object.defineProperty(exports, "normalize", { enumerable: true, get: function () { return normalize_2.normalizeHoTT; } });
+var equality_2 = require("./equality");
+Object.defineProperty(exports, "alphaBetaEq", { enumerable: true, get: function () { return equality_2.alphaBetaEqHoTT; } });
+Object.defineProperty(exports, "alphaEq", { enumerable: true, get: function () { return equality_2.alphaEqHoTT; } });
+var types_2 = require("./types");
+Object.defineProperty(exports, "termToString", { enumerable: true, get: function () { return types_2.termToStringHoTT; } });
+//# sourceMappingURL=index.js.map

package/dist/hott/index.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.js","sourceRoot":"","sources":["../../src/hott/index.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,+CAA+C;AAC/C,+DAA+D;AAC/D,EAAE;AACF,qBAAqB;AACrB,0DAA0D;AAC1D,qEAAqE;AACrE,qDAAqD;AACrD,0EAA0E;AAC1E,mDAAmD;AACnD,EAAE;AACF,kCAAkC;AAClC,oDAAoD;;;AAGpD,iCAgCiB;AA/Bf,6FAAA,IAAI,OAAA;AACJ,kGAAA,SAAS,OAAA;AACT,4FAAA,GAAG,OAAA;AACH,6FAAA,IAAI,OAAA;AACJ,6FAAA,IAAI,OAAA;AACJ,+FAAA,MAAM,OAAA;AACN,8FAAA,KAAK,OAAA;AACL,6FAAA,IAAI,OAAA;AACJ,6FAAA,IAAI,OAAA;AACJ,6FAAA,IAAI,OAAA;AACJ,8FAAA,KAAK,OAAA;AACL,8FAAA,KAAK,OAAA;AACL,+FAAA,MAAM,OAAA;AACN,8FAAA,KAAK,OAAA;AACL,8FAAA,KAAK,OAAA;AACL,mGAAA,UAAU,OAAA;AACV,iGAAA,QAAQ,OAAA;AACR,oGAAA,WAAW,OAAA;AACX,4FAAA,GAAG,OAAA;AACH,+FAAA,MAAM,OAAA;AACN,gGAAA,OAAO,OAAA;AACP,sGAAA,aAAa,OAAA;AACb,sGAAA,aAAa,OAAA;AACb,oGAAA,WAAW,OAAA;AACX,+FAAA,MAAM,OAAA;AACN,+FAAA,MAAM,OAAA;AACN,kGAAA,SAAS,OAAA;AACT,4FAAA,GAAG,OAAA;AACH,qGAAA,YAAY,OAAA;AACZ,uGAAA,cAAc,OAAA;AACd,yGAAA,gBAAgB,OAAA;AAGlB,2CAA8C;AAArC,4GAAA,cAAc,OAAA;AACvB,yCAA0E;AAAjE,2GAAA,cAAc,OAAA;AAAE,0GAAA,aAAa,OAAA;AAAE,yGAAA,YAAY,OAAA;AACpD,uCAA0D;AAAjD,uGAAA,WAAW,OAAA;AAAE,2GAAA,eAAe,OAAA;AACrC,iCAAiE;AAAxD,kGAAA,SAAS,OAAA;AAAE,kGAAA,SAAS,OAAA;AAAE,yGAAA,gBAAgB,OAAA;AAE/C,+CAOwB;AANtB,oGAAA,IAAI,OAAA;AACJ,2GAAA,WAAW,OAAA;AACX,2GAAA,WAAW,OAAA;AACX,8GAAA,cAAc,OAAA;AACd,0GAAA,UAAU,OAAA;AACV,iHAAA,iBAAiB,OAAA;AAInB,4DAA4D;AAC5D,yCAAyD;AAAhD,sGAAA,aAAa,OAAa;AACnC,uCAAoF;AAA3E,uGAAA,eAAe,OAAe;AAAE,mGAAA,WAAW,OAAW;AAC/D,iCAA2D;AAAlD,qGAAA,gBAAgB,OAAgB"}

package/dist/hott/infer.d.ts

@@ -0,0 +1,11 @@
+import type { HoTTTerm } from './types';
+export type InferContextHoTT = Map<string, HoTTTerm>;
+export type InferResultHoTT = HoTTTerm | {
+    error: string;
+};
+export declare function isInferErrorHoTT(r: InferResultHoTT): r is {
+    error: string;
+};
+export declare function inferType(term: HoTTTerm, ctx?: InferContextHoTT): InferResultHoTT;
+export declare function checkType(term: HoTTTerm, expected: HoTTTerm, ctx?: InferContextHoTT): boolean;
+//# sourceMappingURL=infer.d.ts.map

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

@@ -0,0 +1 @@
+{"version":3,"file":"infer.d.ts","sourceRoot":"","sources":["../../src/hott/infer.ts"],"names":[],"mappings":"AA0CA,OAAO,KAAK,EAAE,QAAQ,EAAE,MAAM,SAAS,CAAC;AAMxC,MAAM,MAAM,gBAAgB,GAAG,GAAG,CAAC,MAAM,EAAE,QAAQ,CAAC,CAAC;AACrD,MAAM,MAAM,eAAe,GAAG,QAAQ,GAAG;IAAE,KAAK,EAAE,MAAM,CAAA;CAAE,CAAC;AAE3D,wBAAgB,gBAAgB,CAAC,CAAC,EAAE,eAAe,GAAG,CAAC,IAAI;IAAE,KAAK,EAAE,MAAM,CAAA;CAAE,CAE3E;AAID,wBAAgB,SAAS,CAAC,IAAI,EAAE,QAAQ,EAAE,GAAG,GAAE,gBAA6B,GAAG,eAAe,CAmV7F;AAED,wBAAgB,SAAS,CACvB,IAAI,EAAE,QAAQ,EACd,QAAQ,EAAE,QAAQ,EAClB,GAAG,GAAE,gBAA6B,GACjC,OAAO,CAyBT"}