@stevenvo780/st-lang 4.5.2 → 4.7.0

package/dist/type-theory/hott/normalize.js

@@ -0,0 +1,240 @@
+"use strict";
+// ============================================================
+// HoTT — β-reducción + reglas computacionales sobre caminos
+// ============================================================
+//
+// Reglas β/ι heredadas de MLTT (app, fst, snd) y extendidas:
+//
+//   transport(P, refl(x), e)        ↦  e
+//   J(motive, base, refl(x))        ↦  base
+//   pathSym(refl(x))                ↦  refl(x)
+//   pathSym(pathSym(p))             ↦  p              (involutividad)
+//   pathConcat(refl(x), p)          ↦  p              (identidad izq)
+//   pathConcat(p, refl(y))          ↦  p              (identidad der)
+//   ap(f, refl(x))                  ↦  refl(f x)
+//
+// Univalence (ua) NO reduce computacionalmente: el axioma queda
+// como término inerte. Esa es la honestidad estándar pre-cubical.
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.reduceStepHoTT = reduceStepHoTT;
+exports.normalizeHoTT = normalizeHoTT;
+exports.isNormalHoTT = isNormalHoTT;
+const substitute_1 = require("./substitute");
+function reduceStepHoTT(term) {
+    switch (term.kind) {
+        case 'var':
+        case 'universe':
+        case 'nat':
+        case 'zero':
+        case 'circle':
+        case 'baseOfCircle':
+        case 'loopOfCircle':
+            return term;
+        case 'app': {
+            if (term.fn.kind === 'lam') {
+                return (0, substitute_1.substituteHoTT)(term.fn.body, term.fn.bind, term.arg);
+            }
+            const fn2 = reduceStepHoTT(term.fn);
+            if (fn2 !== term.fn)
+                return { kind: 'app', fn: fn2, arg: term.arg };
+            const arg2 = reduceStepHoTT(term.arg);
+            if (arg2 !== term.arg)
+                return { kind: 'app', fn: term.fn, arg: arg2 };
+            return term;
+        }
+        case 'lam': {
+            const d2 = reduceStepHoTT(term.domain);
+            if (d2 !== term.domain)
+                return { ...term, domain: d2 };
+            const b2 = reduceStepHoTT(term.body);
+            if (b2 !== term.body)
+                return { ...term, body: b2 };
+            return term;
+        }
+        case 'pi': {
+            const d2 = reduceStepHoTT(term.domain);
+            if (d2 !== term.domain)
+                return { ...term, domain: d2 };
+            const c2 = reduceStepHoTT(term.codomain);
+            if (c2 !== term.codomain)
+                return { ...term, codomain: c2 };
+            return term;
+        }
+        case 'sigma': {
+            const f2 = reduceStepHoTT(term.first);
+            if (f2 !== term.first)
+                return { ...term, first: f2 };
+            const s2 = reduceStepHoTT(term.second);
+            if (s2 !== term.second)
+                return { ...term, second: s2 };
+            return term;
+        }
+        case 'pair': {
+            const f2 = reduceStepHoTT(term.fst);
+            if (f2 !== term.fst)
+                return { ...term, fst: f2 };
+            const s2 = reduceStepHoTT(term.snd);
+            if (s2 !== term.snd)
+                return { ...term, snd: s2 };
+            return term;
+        }
+        case 'fst': {
+            if (term.pair.kind === 'pair')
+                return term.pair.fst;
+            const p2 = reduceStepHoTT(term.pair);
+            if (p2 !== term.pair)
+                return { kind: 'fst', pair: p2 };
+            return term;
+        }
+        case 'snd': {
+            if (term.pair.kind === 'pair')
+                return term.pair.snd;
+            const p2 = reduceStepHoTT(term.pair);
+            if (p2 !== term.pair)
+                return { kind: 'snd', pair: p2 };
+            return term;
+        }
+        case 'path': {
+            const t2 = reduceStepHoTT(term.type);
+            if (t2 !== term.type)
+                return { ...term, type: t2 };
+            const l2 = reduceStepHoTT(term.left);
+            if (l2 !== term.left)
+                return { ...term, left: l2 };
+            const r2 = reduceStepHoTT(term.right);
+            if (r2 !== term.right)
+                return { ...term, right: r2 };
+            return term;
+        }
+        case 'refl': {
+            const t2 = reduceStepHoTT(term.term);
+            if (t2 !== term.term)
+                return { kind: 'refl', term: t2 };
+            return term;
+        }
+        case 'succ': {
+            const a2 = reduceStepHoTT(term.arg);
+            if (a2 !== term.arg)
+                return { kind: 'succ', arg: a2 };
+            return term;
+        }
+        case 'transport': {
+            // transport(P, refl(x), e) ↦ e
+            if (term.path.kind === 'refl')
+                return term.term;
+            const fam2 = reduceStepHoTT(term.family);
+            if (fam2 !== term.family)
+                return { ...term, family: fam2 };
+            const path2 = reduceStepHoTT(term.path);
+            if (path2 !== term.path)
+                return { ...term, path: path2 };
+            const t2 = reduceStepHoTT(term.term);
+            if (t2 !== term.term)
+                return { ...term, term: t2 };
+            return term;
+        }
+        case 'pathSym': {
+            // sym(refl x) ↦ refl x
+            if (term.path.kind === 'refl')
+                return term.path;
+            // sym(sym p) ↦ p
+            if (term.path.kind === 'pathSym')
+                return term.path.path;
+            const p2 = reduceStepHoTT(term.path);
+            if (p2 !== term.path)
+                return { kind: 'pathSym', path: p2 };
+            return term;
+        }
+        case 'pathConcat': {
+            // refl · p ↦ p
+            if (term.left.kind === 'refl')
+                return term.right;
+            // p · refl ↦ p
+            if (term.right.kind === 'refl')
+                return term.left;
+            const l2 = reduceStepHoTT(term.left);
+            if (l2 !== term.left)
+                return { ...term, left: l2 };
+            const r2 = reduceStepHoTT(term.right);
+            if (r2 !== term.right)
+                return { ...term, right: r2 };
+            return term;
+        }
+        case 'ap': {
+            // ap(f, refl x) ↦ refl(f x)
+            if (term.path.kind === 'refl') {
+                return { kind: 'refl', term: { kind: 'app', fn: term.fn, arg: term.path.term } };
+            }
+            const fn2 = reduceStepHoTT(term.fn);
+            if (fn2 !== term.fn)
+                return { ...term, fn: fn2 };
+            const p2 = reduceStepHoTT(term.path);
+            if (p2 !== term.path)
+                return { ...term, path: p2 };
+            return term;
+        }
+        case 'jElim': {
+            // J(motive, base, refl x) ↦ base
+            if (term.path.kind === 'refl')
+                return term.baseCase;
+            const m2 = reduceStepHoTT(term.motive);
+            if (m2 !== term.motive)
+                return { ...term, motive: m2 };
+            const b2 = reduceStepHoTT(term.baseCase);
+            if (b2 !== term.baseCase)
+                return { ...term, baseCase: b2 };
+            const p2 = reduceStepHoTT(term.path);
+            if (p2 !== term.path)
+                return { ...term, path: p2 };
+            return term;
+        }
+        case 'suspension': {
+            const t2 = reduceStepHoTT(term.type);
+            if (t2 !== term.type)
+                return { kind: 'suspension', type: t2 };
+            return term;
+        }
+        case 'north': {
+            const t2 = reduceStepHoTT(term.type);
+            if (t2 !== term.type)
+                return { kind: 'north', type: t2 };
+            return term;
+        }
+        case 'south': {
+            const t2 = reduceStepHoTT(term.type);
+            if (t2 !== term.type)
+                return { kind: 'south', type: t2 };
+            return term;
+        }
+        case 'meridian': {
+            const t2 = reduceStepHoTT(term.type);
+            if (t2 !== term.type)
+                return { ...term, type: t2 };
+            const p2 = reduceStepHoTT(term.point);
+            if (p2 !== term.point)
+                return { ...term, point: p2 };
+            return term;
+        }
+        case 'ua': {
+            // axioma — no reduce, pero podemos normalizar la equivalencia interna
+            const e2 = reduceStepHoTT(term.equiv);
+            if (e2 !== term.equiv)
+                return { kind: 'ua', equiv: e2 };
+            return term;
+        }
+    }
+}
+function normalizeHoTT(term, maxSteps = 1000) {
+    let current = term;
+    for (let i = 0; i < maxSteps; i++) {
+        const next = reduceStepHoTT(current);
+        if (next === current)
+            return current;
+        current = next;
+    }
+    return current;
+}
+function isNormalHoTT(term) {
+    return reduceStepHoTT(term) === term;
+}
+//# sourceMappingURL=normalize.js.map

package/dist/type-theory/hott/normalize.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"normalize.js","sourceRoot":"","sources":["../../../src/type-theory/hott/normalize.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,4DAA4D;AAC5D,+DAA+D;AAC/D,EAAE;AACF,6DAA6D;AAC7D,EAAE;AACF,yCAAyC;AACzC,4CAA4C;AAC5C,+CAA+C;AAC/C,sEAAsE;AACtE,sEAAsE;AACtE,sEAAsE;AACtE,iDAAiD;AACjD,EAAE;AACF,gEAAgE;AAChE,kEAAkE;;AAKlE,wCAiKC;AAED,sCAQC;AAED,oCAEC;AAjLD,6CAA8C;AAE9C,SAAgB,cAAc,CAAC,IAAc;IAC3C,QAAQ,IAAI,CAAC,IAAI,EAAE,CAAC;QAClB,KAAK,KAAK,CAAC;QACX,KAAK,UAAU,CAAC;QAChB,KAAK,KAAK,CAAC;QACX,KAAK,MAAM,CAAC;QACZ,KAAK,QAAQ,CAAC;QACd,KAAK,cAAc,CAAC;QACpB,KAAK,cAAc;YACjB,OAAO,IAAI,CAAC;QACd,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,IAAI,IAAI,CAAC,EAAE,CAAC,IAAI,KAAK,KAAK,EAAE,CAAC;gBAC3B,OAAO,IAAA,2BAAc,EAAC,IAAI,CAAC,EAAE,CAAC,IAAI,EAAE,IAAI,CAAC,EAAE,CAAC,IAAI,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC;YAC9D,CAAC;YACD,MAAM,GAAG,GAAG,cAAc,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;YACpC,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,cAAc,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;YACtC,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,cAAc,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC;YACvC,IAAI,EAAE,KAAK,IAAI,CAAC,MAAM;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,MAAM,EAAE,EAAE,EAAE,CAAC;YACvD,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACrC,IAAI,EAAE,KAAK,IAAI,CAAC,IAAI;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC;YACnD,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,IAAI,CAAC,CAAC,CAAC;YACV,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC;YACvC,IAAI,EAAE,KAAK,IAAI,CAAC,MAAM;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,MAAM,EAAE,EAAE,EAAE,CAAC;YACvD,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC;YACzC,IAAI,EAAE,KAAK,IAAI,CAAC,QAAQ;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,QAAQ,EAAE,EAAE,EAAE,CAAC;YAC3D,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,OAAO,CAAC,CAAC,CAAC;YACb,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;YACtC,IAAI,EAAE,KAAK,IAAI,CAAC,KAAK;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,KAAK,EAAE,EAAE,EAAE,CAAC;YACrD,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC;YACvC,IAAI,EAAE,KAAK,IAAI,CAAC,MAAM;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,MAAM,EAAE,EAAE,EAAE,CAAC;YACvD,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;YACpC,IAAI,EAAE,KAAK,IAAI,CAAC,GAAG;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,GAAG,EAAE,EAAE,EAAE,CAAC;YACjD,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;YACpC,IAAI,EAAE,KAAK,IAAI,CAAC,GAAG;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,GAAG,EAAE,EAAE,EAAE,CAAC;YACjD,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,IAAI,IAAI,CAAC,IAAI,CAAC,IAAI,KAAK,MAAM;gBAAE,OAAO,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC;YACpD,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACrC,IAAI,EAAE,KAAK,IAAI,CAAC,IAAI;gBAAE,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC;YACvD,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,IAAI,IAAI,CAAC,IAAI,CAAC,IAAI,KAAK,MAAM;gBAAE,OAAO,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC;YACpD,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACrC,IAAI,EAAE,KAAK,IAAI,CAAC,IAAI;gBAAE,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC;YACvD,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACrC,IAAI,EAAE,KAAK,IAAI,CAAC,IAAI;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC;YACnD,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACrC,IAAI,EAAE,KAAK,IAAI,CAAC,IAAI;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC;YACnD,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;YACtC,IAAI,EAAE,KAAK,IAAI,CAAC,KAAK;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,KAAK,EAAE,EAAE,EAAE,CAAC;YACrD,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACrC,IAAI,EAAE,KAAK,IAAI,CAAC,IAAI;gBAAE,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC;YACxD,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;YACpC,IAAI,EAAE,KAAK,IAAI,CAAC,GAAG;gBAAE,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,GAAG,EAAE,EAAE,EAAE,CAAC;YACtD,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,WAAW,CAAC,CAAC,CAAC;YACjB,+BAA+B;YAC/B,IAAI,IAAI,CAAC,IAAI,CAAC,IAAI,KAAK,MAAM;gBAAE,OAAO,IAAI,CAAC,IAAI,CAAC;YAChD,MAAM,IAAI,GAAG,cAAc,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC;YACzC,IAAI,IAAI,KAAK,IAAI,CAAC,MAAM;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,CAAC;YAC3D,MAAM,KAAK,GAAG,cAAc,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACxC,IAAI,KAAK,KAAK,IAAI,CAAC,IAAI;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC;YACzD,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACrC,IAAI,EAAE,KAAK,IAAI,CAAC,IAAI;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC;YACnD,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,SAAS,CAAC,CAAC,CAAC;YACf,uBAAuB;YACvB,IAAI,IAAI,CAAC,IAAI,CAAC,IAAI,KAAK,MAAM;gBAAE,OAAO,IAAI,CAAC,IAAI,CAAC;YAChD,iBAAiB;YACjB,IAAI,IAAI,CAAC,IAAI,CAAC,IAAI,KAAK,SAAS;gBAAE,OAAO,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC;YACxD,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACrC,IAAI,EAAE,KAAK,IAAI,CAAC,IAAI;gBAAE,OAAO,EAAE,IAAI,EAAE,SAAS,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC;YAC3D,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,YAAY,CAAC,CAAC,CAAC;YAClB,eAAe;YACf,IAAI,IAAI,CAAC,IAAI,CAAC,IAAI,KAAK,MAAM;gBAAE,OAAO,IAAI,CAAC,KAAK,CAAC;YACjD,eAAe;YACf,IAAI,IAAI,CAAC,KAAK,CAAC,IAAI,KAAK,MAAM;gBAAE,OAAO,IAAI,CAAC,IAAI,CAAC;YACjD,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACrC,IAAI,EAAE,KAAK,IAAI,CAAC,IAAI;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC;YACnD,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;YACtC,IAAI,EAAE,KAAK,IAAI,CAAC,KAAK;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,KAAK,EAAE,EAAE,EAAE,CAAC;YACrD,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,IAAI,CAAC,CAAC,CAAC;YACV,4BAA4B;YAC5B,IAAI,IAAI,CAAC,IAAI,CAAC,IAAI,KAAK,MAAM,EAAE,CAAC;gBAC9B,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,EAAE,IAAI,EAAE,KAAK,EAAE,EAAE,EAAE,IAAI,CAAC,EAAE,EAAE,GAAG,EAAE,IAAI,CAAC,IAAI,CAAC,IAAI,EAAE,EAAE,CAAC;YACnF,CAAC;YACD,MAAM,GAAG,GAAG,cAAc,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;YACpC,IAAI,GAAG,KAAK,IAAI,CAAC,EAAE;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,EAAE,EAAE,GAAG,EAAE,CAAC;YACjD,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACrC,IAAI,EAAE,KAAK,IAAI,CAAC,IAAI;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC;YACnD,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,OAAO,CAAC,CAAC,CAAC;YACb,iCAAiC;YACjC,IAAI,IAAI,CAAC,IAAI,CAAC,IAAI,KAAK,MAAM;gBAAE,OAAO,IAAI,CAAC,QAAQ,CAAC;YACpD,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC;YACvC,IAAI,EAAE,KAAK,IAAI,CAAC,MAAM;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,MAAM,EAAE,EAAE,EAAE,CAAC;YACvD,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC;YACzC,IAAI,EAAE,KAAK,IAAI,CAAC,QAAQ;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,QAAQ,EAAE,EAAE,EAAE,CAAC;YAC3D,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACrC,IAAI,EAAE,KAAK,IAAI,CAAC,IAAI;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC;YACnD,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,YAAY,CAAC,CAAC,CAAC;YAClB,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACrC,IAAI,EAAE,KAAK,IAAI,CAAC,IAAI;gBAAE,OAAO,EAAE,IAAI,EAAE,YAAY,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC;YAC9D,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,OAAO,CAAC,CAAC,CAAC;YACb,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACrC,IAAI,EAAE,KAAK,IAAI,CAAC,IAAI;gBAAE,OAAO,EAAE,IAAI,EAAE,OAAO,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC;YACzD,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,OAAO,CAAC,CAAC,CAAC;YACb,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACrC,IAAI,EAAE,KAAK,IAAI,CAAC,IAAI;gBAAE,OAAO,EAAE,IAAI,EAAE,OAAO,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC;YACzD,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,UAAU,CAAC,CAAC,CAAC;YAChB,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACrC,IAAI,EAAE,KAAK,IAAI,CAAC,IAAI;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC;YACnD,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;YACtC,IAAI,EAAE,KAAK,IAAI,CAAC,KAAK;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,KAAK,EAAE,EAAE,EAAE,CAAC;YACrD,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,IAAI,CAAC,CAAC,CAAC;YACV,sEAAsE;YACtE,MAAM,EAAE,GAAG,cAAc,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;YACtC,IAAI,EAAE,KAAK,IAAI,CAAC,KAAK;gBAAE,OAAO,EAAE,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,EAAE,EAAE,CAAC;YACxD,OAAO,IAAI,CAAC;QACd,CAAC;IACH,CAAC;AACH,CAAC;AAED,SAAgB,aAAa,CAAC,IAAc,EAAE,QAAQ,GAAG,IAAI;IAC3D,IAAI,OAAO,GAAG,IAAI,CAAC;IACnB,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,QAAQ,EAAE,CAAC,EAAE,EAAE,CAAC;QAClC,MAAM,IAAI,GAAG,cAAc,CAAC,OAAO,CAAC,CAAC;QACrC,IAAI,IAAI,KAAK,OAAO;YAAE,OAAO,OAAO,CAAC;QACrC,OAAO,GAAG,IAAI,CAAC;IACjB,CAAC;IACD,OAAO,OAAO,CAAC;AACjB,CAAC;AAED,SAAgB,YAAY,CAAC,IAAc;IACzC,OAAO,cAAc,CAAC,IAAI,CAAC,KAAK,IAAI,CAAC;AACvC,CAAC"}

package/dist/type-theory/hott/path-algebra.d.ts

@@ -0,0 +1,25 @@
+import type { HoTTTerm } from './types';
+import { type InferContextHoTT } from './infer';
+export declare function refl(x: HoTTTerm): HoTTTerm;
+export declare function pathInverse(path: HoTTTerm): HoTTTerm;
+export declare function pathCompose(p: HoTTTerm, q: HoTTTerm): HoTTTerm;
+/**
+ * Chequeo heurístico de h-equivalencia.
+ * Una equivalencia verdadera requiere isContr de las fibras, que aquí
+ * NO computamos. Aceptamos pares ⟨A, B⟩ : Σ Type. Type con A αβ= B
+ * (equivalencia trivial), o cualquier término marcado explícitamente
+ * con la estructura ⟨f, ⟨g, ⟨α, β⟩⟩⟩ y posponemos verificación.
+ */
+export declare function isHEquivalence(f: HoTTTerm, ctx?: InferContextHoTT): boolean;
+export interface UnivalenceWitness {
+    equiv: HoTTTerm;
+    path: HoTTTerm;
+}
+/**
+ * Postula un path desde una equivalencia. No es computacional:
+ * normalizar `transport(P, ua(e), x)` no reduce — eso requiere
+ * cubical type theory.
+ */
+export declare function univalence(equiv: HoTTTerm): HoTTTerm;
+export declare function univalenceWitness(equiv: HoTTTerm): UnivalenceWitness;
+//# sourceMappingURL=path-algebra.d.ts.map

package/dist/type-theory/hott/path-algebra.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"path-algebra.d.ts","sourceRoot":"","sources":["../../../src/type-theory/hott/path-algebra.ts"],"names":[],"mappings":"AAOA,OAAO,KAAK,EAAE,QAAQ,EAAE,MAAM,SAAS,CAAC;AAExC,OAAO,EAA+B,KAAK,gBAAgB,EAAE,MAAM,SAAS,CAAC;AAG7E,wBAAgB,IAAI,CAAC,CAAC,EAAE,QAAQ,GAAG,QAAQ,CAE1C;AAED,wBAAgB,WAAW,CAAC,IAAI,EAAE,QAAQ,GAAG,QAAQ,CAMpD;AAED,wBAAgB,WAAW,CAAC,CAAC,EAAE,QAAQ,EAAE,CAAC,EAAE,QAAQ,GAAG,QAAQ,CAI9D;AAED;;;;;;GAMG;AACH,wBAAgB,cAAc,CAAC,CAAC,EAAE,QAAQ,EAAE,GAAG,CAAC,EAAE,gBAAgB,GAAG,OAAO,CAU3E;AAID,MAAM,WAAW,iBAAiB;IAChC,KAAK,EAAE,QAAQ,CAAC;IAChB,IAAI,EAAE,QAAQ,CAAC;CAChB;AAED;;;;GAIG;AACH,wBAAgB,UAAU,CAAC,KAAK,EAAE,QAAQ,GAAG,QAAQ,CAEpD;AAED,wBAAgB,iBAAiB,CAAC,KAAK,EAAE,QAAQ,GAAG,iBAAiB,CAEpE"}

package/dist/type-theory/hott/path-algebra.js

@@ -0,0 +1,67 @@
+"use strict";
+// ============================================================
+// HoTT — Álgebra de caminos (grupoide ∞)
+// ============================================================
+//
+// Operaciones de alto nivel para construir caminos sin tocar el AST
+// directamente, con normalización inmediata de identidades (refl).
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.refl = refl;
+exports.pathInverse = pathInverse;
+exports.pathCompose = pathCompose;
+exports.isHEquivalence = isHEquivalence;
+exports.univalence = univalence;
+exports.univalenceWitness = univalenceWitness;
+const normalize_1 = require("./normalize");
+const infer_1 = require("./infer");
+const equality_1 = require("./equality");
+function refl(x) {
+    return { kind: 'refl', term: x };
+}
+function pathInverse(path) {
+    // Aplicar la β-rule directamente en el constructor para mantener
+    // refl como punto fijo del grupo.
+    if (path.kind === 'refl')
+        return path;
+    if (path.kind === 'pathSym')
+        return path.path; // involutividad
+    return { kind: 'pathSym', path };
+}
+function pathCompose(p, q) {
+    if (p.kind === 'refl')
+        return q;
+    if (q.kind === 'refl')
+        return p;
+    return { kind: 'pathConcat', left: p, right: q };
+}
+/**
+ * Chequeo heurístico de h-equivalencia.
+ * Una equivalencia verdadera requiere isContr de las fibras, que aquí
+ * NO computamos. Aceptamos pares ⟨A, B⟩ : Σ Type. Type con A αβ= B
+ * (equivalencia trivial), o cualquier término marcado explícitamente
+ * con la estructura ⟨f, ⟨g, ⟨α, β⟩⟩⟩ y posponemos verificación.
+ */
+function isHEquivalence(f, ctx) {
+    const t = (0, infer_1.inferType)(f, ctx);
+    if ((0, infer_1.isInferErrorHoTT)(t))
+        return false;
+    const n = (0, normalize_1.normalizeHoTT)(t);
+    // Caso pedagógico mínimo: equivalencia trivial id : A → A.
+    if (n.kind === 'pi') {
+        return (0, equality_1.alphaBetaEqHoTT)(n.domain, n.codomain);
+    }
+    // Σ-empaquetado: aceptamos cualquier sigma como candidato.
+    return n.kind === 'sigma';
+}
+/**
+ * Postula un path desde una equivalencia. No es computacional:
+ * normalizar `transport(P, ua(e), x)` no reduce — eso requiere
+ * cubical type theory.
+ */
+function univalence(equiv) {
+    return { kind: 'ua', equiv };
+}
+function univalenceWitness(equiv) {
+    return { equiv, path: univalence(equiv) };
+}
+//# sourceMappingURL=path-algebra.js.map

package/dist/type-theory/hott/path-algebra.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"path-algebra.js","sourceRoot":"","sources":["../../../src/type-theory/hott/path-algebra.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,yCAAyC;AACzC,+DAA+D;AAC/D,EAAE;AACF,oEAAoE;AACpE,mEAAmE;;AAOnE,oBAEC;AAED,kCAMC;AAED,kCAIC;AASD,wCAUC;AAcD,gCAEC;AAED,8CAEC;AA3DD,2CAA4C;AAC5C,mCAA6E;AAC7E,yCAA6C;AAE7C,SAAgB,IAAI,CAAC,CAAW;IAC9B,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,CAAC,EAAE,CAAC;AACnC,CAAC;AAED,SAAgB,WAAW,CAAC,IAAc;IACxC,iEAAiE;IACjE,kCAAkC;IAClC,IAAI,IAAI,CAAC,IAAI,KAAK,MAAM;QAAE,OAAO,IAAI,CAAC;IACtC,IAAI,IAAI,CAAC,IAAI,KAAK,SAAS;QAAE,OAAO,IAAI,CAAC,IAAI,CAAC,CAAC,gBAAgB;IAC/D,OAAO,EAAE,IAAI,EAAE,SAAS,EAAE,IAAI,EAAE,CAAC;AACnC,CAAC;AAED,SAAgB,WAAW,CAAC,CAAW,EAAE,CAAW;IAClD,IAAI,CAAC,CAAC,IAAI,KAAK,MAAM;QAAE,OAAO,CAAC,CAAC;IAChC,IAAI,CAAC,CAAC,IAAI,KAAK,MAAM;QAAE,OAAO,CAAC,CAAC;IAChC,OAAO,EAAE,IAAI,EAAE,YAAY,EAAE,IAAI,EAAE,CAAC,EAAE,KAAK,EAAE,CAAC,EAAE,CAAC;AACnD,CAAC;AAED;;;;;;GAMG;AACH,SAAgB,cAAc,CAAC,CAAW,EAAE,GAAsB;IAChE,MAAM,CAAC,GAAG,IAAA,iBAAS,EAAC,CAAC,EAAE,GAAG,CAAC,CAAC;IAC5B,IAAI,IAAA,wBAAgB,EAAC,CAAC,CAAC;QAAE,OAAO,KAAK,CAAC;IACtC,MAAM,CAAC,GAAG,IAAA,yBAAa,EAAC,CAAC,CAAC,CAAC;IAC3B,2DAA2D;IAC3D,IAAI,CAAC,CAAC,IAAI,KAAK,IAAI,EAAE,CAAC;QACpB,OAAO,IAAA,0BAAe,EAAC,CAAC,CAAC,MAAM,EAAE,CAAC,CAAC,QAAQ,CAAC,CAAC;IAC/C,CAAC;IACD,2DAA2D;IAC3D,OAAO,CAAC,CAAC,IAAI,KAAK,OAAO,CAAC;AAC5B,CAAC;AASD;;;;GAIG;AACH,SAAgB,UAAU,CAAC,KAAe;IACxC,OAAO,EAAE,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC;AAC/B,CAAC;AAED,SAAgB,iBAAiB,CAAC,KAAe;IAC/C,OAAO,EAAE,KAAK,EAAE,IAAI,EAAE,UAAU,CAAC,KAAK,CAAC,EAAE,CAAC;AAC5C,CAAC"}

package/dist/type-theory/hott/substitute.d.ts

@@ -0,0 +1,3 @@
+import type { HoTTTerm } from './types';
+export declare function substituteHoTT(term: HoTTTerm, name: string, value: HoTTTerm): HoTTTerm;
+//# sourceMappingURL=substitute.d.ts.map

package/dist/type-theory/hott/substitute.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"substitute.d.ts","sourceRoot":"","sources":["../../../src/type-theory/hott/substitute.ts"],"names":[],"mappings":"AAIA,OAAO,KAAK,EAAE,QAAQ,EAAE,MAAM,SAAS,CAAC;AAWxC,wBAAgB,cAAc,CAAC,IAAI,EAAE,QAAQ,EAAE,IAAI,EAAE,MAAM,EAAE,KAAK,EAAE,QAAQ,GAAG,QAAQ,CAsGtF"}

package/dist/type-theory/hott/substitute.js

@@ -0,0 +1,131 @@
+"use strict";
+// ============================================================
+// HoTT — Sustitución capture-avoiding
+// ============================================================
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.substituteHoTT = substituteHoTT;
+const types_1 = require("./types");
+let freshCounter = 0;
+function fresh(base, avoid) {
+    let candidate = `${base}#h${freshCounter++}`;
+    while (avoid.has(candidate))
+        candidate = `${base}#h${freshCounter++}`;
+    return candidate;
+}
+function substituteHoTT(term, name, value) {
+    switch (term.kind) {
+        case 'var':
+            return term.name === name ? value : term;
+        case 'universe':
+        case 'nat':
+        case 'zero':
+        case 'circle':
+        case 'baseOfCircle':
+        case 'loopOfCircle':
+            return term;
+        case 'pi':
+            return substBinder(term, name, value, term.domain, term.codomain, (bind, dom, cod) => ({
+                kind: 'pi',
+                bind,
+                domain: dom,
+                codomain: cod,
+            }));
+        case 'sigma':
+            return substBinder(term, name, value, term.first, term.second, (bind, dom, cod) => ({
+                kind: 'sigma',
+                bind,
+                first: dom,
+                second: cod,
+            }));
+        case 'lam':
+            return substBinder(term, name, value, term.domain, term.body, (bind, dom, body) => ({
+                kind: 'lam',
+                bind,
+                domain: dom,
+                body,
+            }));
+        case 'app':
+            return {
+                kind: 'app',
+                fn: substituteHoTT(term.fn, name, value),
+                arg: substituteHoTT(term.arg, name, value),
+            };
+        case 'pair':
+            return {
+                kind: 'pair',
+                fst: substituteHoTT(term.fst, name, value),
+                snd: substituteHoTT(term.snd, name, value),
+            };
+        case 'fst':
+            return { kind: 'fst', pair: substituteHoTT(term.pair, name, value) };
+        case 'snd':
+            return { kind: 'snd', pair: substituteHoTT(term.pair, name, value) };
+        case 'path':
+            return {
+                kind: 'path',
+                type: substituteHoTT(term.type, name, value),
+                left: substituteHoTT(term.left, name, value),
+                right: substituteHoTT(term.right, name, value),
+            };
+        case 'refl':
+            return { kind: 'refl', term: substituteHoTT(term.term, name, value) };
+        case 'succ':
+            return { kind: 'succ', arg: substituteHoTT(term.arg, name, value) };
+        case 'transport':
+            return {
+                kind: 'transport',
+                family: substituteHoTT(term.family, name, value),
+                path: substituteHoTT(term.path, name, value),
+                term: substituteHoTT(term.term, name, value),
+            };
+        case 'pathSym':
+            return { kind: 'pathSym', path: substituteHoTT(term.path, name, value) };
+        case 'pathConcat':
+            return {
+                kind: 'pathConcat',
+                left: substituteHoTT(term.left, name, value),
+                right: substituteHoTT(term.right, name, value),
+            };
+        case 'ap':
+            return {
+                kind: 'ap',
+                fn: substituteHoTT(term.fn, name, value),
+                path: substituteHoTT(term.path, name, value),
+            };
+        case 'jElim':
+            return {
+                kind: 'jElim',
+                motive: substituteHoTT(term.motive, name, value),
+                baseCase: substituteHoTT(term.baseCase, name, value),
+                path: substituteHoTT(term.path, name, value),
+            };
+        case 'suspension':
+            return { kind: 'suspension', type: substituteHoTT(term.type, name, value) };
+        case 'north':
+            return { kind: 'north', type: substituteHoTT(term.type, name, value) };
+        case 'south':
+            return { kind: 'south', type: substituteHoTT(term.type, name, value) };
+        case 'meridian':
+            return {
+                kind: 'meridian',
+                type: substituteHoTT(term.type, name, value),
+                point: substituteHoTT(term.point, name, value),
+            };
+        case 'ua':
+            return { kind: 'ua', equiv: substituteHoTT(term.equiv, name, value) };
+    }
+}
+function substBinder(source, name, value, dom, cod, build) {
+    const newDom = substituteHoTT(dom, name, value);
+    if (source.bind === name) {
+        return build(source.bind, newDom, cod);
+    }
+    const fv = (0, types_1.freeVarsHoTT)(value);
+    if (fv.has(source.bind)) {
+        const newBind = fresh(source.bind, new Set([...fv, ...(0, types_1.freeVarsHoTT)(cod), name]));
+        const renamedCod = substituteHoTT(cod, source.bind, { kind: 'var', name: newBind });
+        return build(newBind, newDom, substituteHoTT(renamedCod, name, value));
+    }
+    return build(source.bind, newDom, substituteHoTT(cod, name, value));
+}
+//# sourceMappingURL=substitute.js.map

package/dist/type-theory/hott/substitute.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"substitute.js","sourceRoot":"","sources":["../../../src/type-theory/hott/substitute.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,sCAAsC;AACtC,+DAA+D;;AAa/D,wCAsGC;AAhHD,mCAAuC;AAEvC,IAAI,YAAY,GAAG,CAAC,CAAC;AAErB,SAAS,KAAK,CAAC,IAAY,EAAE,KAAkB;IAC7C,IAAI,SAAS,GAAG,GAAG,IAAI,KAAK,YAAY,EAAE,EAAE,CAAC;IAC7C,OAAO,KAAK,CAAC,GAAG,CAAC,SAAS,CAAC;QAAE,SAAS,GAAG,GAAG,IAAI,KAAK,YAAY,EAAE,EAAE,CAAC;IACtE,OAAO,SAAS,CAAC;AACnB,CAAC;AAED,SAAgB,cAAc,CAAC,IAAc,EAAE,IAAY,EAAE,KAAe;IAC1E,QAAQ,IAAI,CAAC,IAAI,EAAE,CAAC;QAClB,KAAK,KAAK;YACR,OAAO,IAAI,CAAC,IAAI,KAAK,IAAI,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,IAAI,CAAC;QAC3C,KAAK,UAAU,CAAC;QAChB,KAAK,KAAK,CAAC;QACX,KAAK,MAAM,CAAC;QACZ,KAAK,QAAQ,CAAC;QACd,KAAK,cAAc,CAAC;QACpB,KAAK,cAAc;YACjB,OAAO,IAAI,CAAC;QACd,KAAK,IAAI;YACP,OAAO,WAAW,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,CAAC,MAAM,EAAE,IAAI,CAAC,QAAQ,EAAE,CAAC,IAAI,EAAE,GAAG,EAAE,GAAG,EAAE,EAAE,CAAC,CAAC;gBACrF,IAAI,EAAE,IAAI;gBACV,IAAI;gBACJ,MAAM,EAAE,GAAG;gBACX,QAAQ,EAAE,GAAG;aACd,CAAC,CAAC,CAAC;QACN,KAAK,OAAO;YACV,OAAO,WAAW,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,CAAC,KAAK,EAAE,IAAI,CAAC,MAAM,EAAE,CAAC,IAAI,EAAE,GAAG,EAAE,GAAG,EAAE,EAAE,CAAC,CAAC;gBAClF,IAAI,EAAE,OAAO;gBACb,IAAI;gBACJ,KAAK,EAAE,GAAG;gBACV,MAAM,EAAE,GAAG;aACZ,CAAC,CAAC,CAAC;QACN,KAAK,KAAK;YACR,OAAO,WAAW,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,CAAC,MAAM,EAAE,IAAI,CAAC,IAAI,EAAE,CAAC,IAAI,EAAE,GAAG,EAAE,IAAI,EAAE,EAAE,CAAC,CAAC;gBAClF,IAAI,EAAE,KAAK;gBACX,IAAI;gBACJ,MAAM,EAAE,GAAG;gBACX,IAAI;aACL,CAAC,CAAC,CAAC;QACN,KAAK,KAAK;YACR,OAAO;gBACL,IAAI,EAAE,KAAK;gBACX,EAAE,EAAE,cAAc,CAAC,IAAI,CAAC,EAAE,EAAE,IAAI,EAAE,KAAK,CAAC;gBACxC,GAAG,EAAE,cAAc,CAAC,IAAI,CAAC,GAAG,EAAE,IAAI,EAAE,KAAK,CAAC;aAC3C,CAAC;QACJ,KAAK,MAAM;YACT,OAAO;gBACL,IAAI,EAAE,MAAM;gBACZ,GAAG,EAAE,cAAc,CAAC,IAAI,CAAC,GAAG,EAAE,IAAI,EAAE,KAAK,CAAC;gBAC1C,GAAG,EAAE,cAAc,CAAC,IAAI,CAAC,GAAG,EAAE,IAAI,EAAE,KAAK,CAAC;aAC3C,CAAC;QACJ,KAAK,KAAK;YACR,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,cAAc,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC,EAAE,CAAC;QACvE,KAAK,KAAK;YACR,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,cAAc,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC,EAAE,CAAC;QACvE,KAAK,MAAM;YACT,OAAO;gBACL,IAAI,EAAE,MAAM;gBACZ,IAAI,EAAE,cAAc,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC;gBAC5C,IAAI,EAAE,cAAc,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC;gBAC5C,KAAK,EAAE,cAAc,CAAC,IAAI,CAAC,KAAK,EAAE,IAAI,EAAE,KAAK,CAAC;aAC/C,CAAC;QACJ,KAAK,MAAM;YACT,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,cAAc,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC,EAAE,CAAC;QACxE,KAAK,MAAM;YACT,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,GAAG,EAAE,cAAc,CAAC,IAAI,CAAC,GAAG,EAAE,IAAI,EAAE,KAAK,CAAC,EAAE,CAAC;QACtE,KAAK,WAAW;YACd,OAAO;gBACL,IAAI,EAAE,WAAW;gBACjB,MAAM,EAAE,cAAc,CAAC,IAAI,CAAC,MAAM,EAAE,IAAI,EAAE,KAAK,CAAC;gBAChD,IAAI,EAAE,cAAc,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC;gBAC5C,IAAI,EAAE,cAAc,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC;aAC7C,CAAC;QACJ,KAAK,SAAS;YACZ,OAAO,EAAE,IAAI,EAAE,SAAS,EAAE,IAAI,EAAE,cAAc,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC,EAAE,CAAC;QAC3E,KAAK,YAAY;YACf,OAAO;gBACL,IAAI,EAAE,YAAY;gBAClB,IAAI,EAAE,cAAc,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC;gBAC5C,KAAK,EAAE,cAAc,CAAC,IAAI,CAAC,KAAK,EAAE,IAAI,EAAE,KAAK,CAAC;aAC/C,CAAC;QACJ,KAAK,IAAI;YACP,OAAO;gBACL,IAAI,EAAE,IAAI;gBACV,EAAE,EAAE,cAAc,CAAC,IAAI,CAAC,EAAE,EAAE,IAAI,EAAE,KAAK,CAAC;gBACxC,IAAI,EAAE,cAAc,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC;aAC7C,CAAC;QACJ,KAAK,OAAO;YACV,OAAO;gBACL,IAAI,EAAE,OAAO;gBACb,MAAM,EAAE,cAAc,CAAC,IAAI,CAAC,MAAM,EAAE,IAAI,EAAE,KAAK,CAAC;gBAChD,QAAQ,EAAE,cAAc,CAAC,IAAI,CAAC,QAAQ,EAAE,IAAI,EAAE,KAAK,CAAC;gBACpD,IAAI,EAAE,cAAc,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC;aAC7C,CAAC;QACJ,KAAK,YAAY;YACf,OAAO,EAAE,IAAI,EAAE,YAAY,EAAE,IAAI,EAAE,cAAc,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC,EAAE,CAAC;QAC9E,KAAK,OAAO;YACV,OAAO,EAAE,IAAI,EAAE,OAAO,EAAE,IAAI,EAAE,cAAc,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC,EAAE,CAAC;QACzE,KAAK,OAAO;YACV,OAAO,EAAE,IAAI,EAAE,OAAO,EAAE,IAAI,EAAE,cAAc,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC,EAAE,CAAC;QACzE,KAAK,UAAU;YACb,OAAO;gBACL,IAAI,EAAE,UAAU;gBAChB,IAAI,EAAE,cAAc,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC;gBAC5C,KAAK,EAAE,cAAc,CAAC,IAAI,CAAC,KAAK,EAAE,IAAI,EAAE,KAAK,CAAC;aAC/C,CAAC;QACJ,KAAK,IAAI;YACP,OAAO,EAAE,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,cAAc,CAAC,IAAI,CAAC,KAAK,EAAE,IAAI,EAAE,KAAK,CAAC,EAAE,CAAC;IAC1E,CAAC;AACH,CAAC;AAED,SAAS,WAAW,CAClB,MAAwB,EACxB,IAAY,EACZ,KAAe,EACf,GAAa,EACb,GAAa,EACb,KAA+D;IAE/D,MAAM,MAAM,GAAG,cAAc,CAAC,GAAG,EAAE,IAAI,EAAE,KAAK,CAAC,CAAC;IAChD,IAAI,MAAM,CAAC,IAAI,KAAK,IAAI,EAAE,CAAC;QACzB,OAAO,KAAK,CAAC,MAAM,CAAC,IAAI,EAAE,MAAM,EAAE,GAAG,CAAC,CAAC;IACzC,CAAC;IACD,MAAM,EAAE,GAAG,IAAA,oBAAY,EAAC,KAAK,CAAC,CAAC;IAC/B,IAAI,EAAE,CAAC,GAAG,CAAC,MAAM,CAAC,IAAI,CAAC,EAAE,CAAC;QACxB,MAAM,OAAO,GAAG,KAAK,CAAC,MAAM,CAAC,IAAI,EAAE,IAAI,GAAG,CAAC,CAAC,GAAG,EAAE,EAAE,GAAG,IAAA,oBAAY,EAAC,GAAG,CAAC,EAAE,IAAI,CAAC,CAAC,CAAC,CAAC;QACjF,MAAM,UAAU,GAAG,cAAc,CAAC,GAAG,EAAE,MAAM,CAAC,IAAI,EAAE,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,OAAO,EAAE,CAAC,CAAC;QACpF,OAAO,KAAK,CAAC,OAAO,EAAE,MAAM,EAAE,cAAc,CAAC,UAAU,EAAE,IAAI,EAAE,KAAK,CAAC,CAAC,CAAC;IACzE,CAAC;IACD,OAAO,KAAK,CAAC,MAAM,CAAC,IAAI,EAAE,MAAM,EAAE,cAAc,CAAC,GAAG,EAAE,IAAI,EAAE,KAAK,CAAC,CAAC,CAAC;AACtE,CAAC"}

package/dist/type-theory/hott/types.d.ts

@@ -0,0 +1,126 @@
+export type HoTTTerm = {
+    kind: 'var';
+    name: string;
+} | {
+    kind: 'universe';
+    level: number;
+} | {
+    kind: 'pi';
+    bind: string;
+    domain: HoTTTerm;
+    codomain: HoTTTerm;
+} | {
+    kind: 'lam';
+    bind: string;
+    domain: HoTTTerm;
+    body: HoTTTerm;
+} | {
+    kind: 'app';
+    fn: HoTTTerm;
+    arg: HoTTTerm;
+} | {
+    kind: 'sigma';
+    bind: string;
+    first: HoTTTerm;
+    second: HoTTTerm;
+} | {
+    kind: 'pair';
+    fst: HoTTTerm;
+    snd: HoTTTerm;
+} | {
+    kind: 'fst';
+    pair: HoTTTerm;
+} | {
+    kind: 'snd';
+    pair: HoTTTerm;
+} | {
+    kind: 'nat';
+} | {
+    kind: 'zero';
+} | {
+    kind: 'succ';
+    arg: HoTTTerm;
+} | {
+    kind: 'path';
+    type: HoTTTerm;
+    left: HoTTTerm;
+    right: HoTTTerm;
+} | {
+    kind: 'refl';
+    term: HoTTTerm;
+} | {
+    kind: 'transport';
+    family: HoTTTerm;
+    path: HoTTTerm;
+    term: HoTTTerm;
+} | {
+    kind: 'pathSym';
+    path: HoTTTerm;
+} | {
+    kind: 'pathConcat';
+    left: HoTTTerm;
+    right: HoTTTerm;
+} | {
+    kind: 'ap';
+    fn: HoTTTerm;
+    path: HoTTTerm;
+} | {
+    kind: 'jElim';
+    motive: HoTTTerm;
+    baseCase: HoTTTerm;
+    path: HoTTTerm;
+} | {
+    kind: 'circle';
+} | {
+    kind: 'baseOfCircle';
+} | {
+    kind: 'loopOfCircle';
+} | {
+    kind: 'suspension';
+    type: HoTTTerm;
+} | {
+    kind: 'north';
+    type: HoTTTerm;
+} | {
+    kind: 'south';
+    type: HoTTTerm;
+} | {
+    kind: 'meridian';
+    type: HoTTTerm;
+    point: HoTTTerm;
+} | {
+    kind: 'ua';
+    equiv: HoTTTerm;
+};
+export declare const hVar: (name: string) => HoTTTerm;
+export declare const hUniverse: (level?: number) => HoTTTerm;
+export declare const hPi: (bind: string, domain: HoTTTerm, codomain: HoTTTerm) => HoTTTerm;
+export declare const hLam: (bind: string, domain: HoTTTerm, body: HoTTTerm) => HoTTTerm;
+export declare const hApp: (fn: HoTTTerm, arg: HoTTTerm) => HoTTTerm;
+export declare const hSigma: (bind: string, first: HoTTTerm, second: HoTTTerm) => HoTTTerm;
+export declare const hPair: (fst: HoTTTerm, snd: HoTTTerm) => HoTTTerm;
+export declare const hFst: (pair: HoTTTerm) => HoTTTerm;
+export declare const hSnd: (pair: HoTTTerm) => HoTTTerm;
+export declare const hNat: () => HoTTTerm;
+export declare const hZero: () => HoTTTerm;
+export declare const hSucc: (arg: HoTTTerm) => HoTTTerm;
+export declare const hPath: (type: HoTTTerm, left: HoTTTerm, right: HoTTTerm) => HoTTTerm;
+export declare const hRefl: (term: HoTTTerm) => HoTTTerm;
+export declare const hTransport: (family: HoTTTerm, path: HoTTTerm, term: HoTTTerm) => HoTTTerm;
+export declare const hPathSym: (path: HoTTTerm) => HoTTTerm;
+export declare const hPathConcat: (left: HoTTTerm, right: HoTTTerm) => HoTTTerm;
+export declare const hAp: (fn: HoTTTerm, path: HoTTTerm) => HoTTTerm;
+export declare const hJElim: (motive: HoTTTerm, baseCase: HoTTTerm, path: HoTTTerm) => HoTTTerm;
+export declare const hCircle: () => HoTTTerm;
+export declare const hBaseOfCircle: () => HoTTTerm;
+export declare const hLoopOfCircle: () => HoTTTerm;
+export declare const hSuspension: (type: HoTTTerm) => HoTTTerm;
+export declare const hNorth: (type: HoTTTerm) => HoTTTerm;
+export declare const hSouth: (type: HoTTTerm) => HoTTTerm;
+export declare const hMeridian: (type: HoTTTerm, point: HoTTTerm) => HoTTTerm;
+export declare const hUa: (equiv: HoTTTerm) => HoTTTerm;
+export declare const hArrow: (from: HoTTTerm, to: HoTTTerm) => HoTTTerm;
+export declare function occursFreeHoTT(name: string, term: HoTTTerm): boolean;
+export declare function freeVarsHoTT(term: HoTTTerm, acc?: Set<string>): Set<string>;
+export declare function termToStringHoTT(t: HoTTTerm): string;
+//# sourceMappingURL=types.d.ts.map

package/dist/type-theory/hott/types.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"types.d.ts","sourceRoot":"","sources":["../../../src/type-theory/hott/types.ts"],"names":[],"mappings":"AAyBA,MAAM,MAAM,QAAQ,GAEhB;IAAE,IAAI,EAAE,KAAK,CAAC;IAAC,IAAI,EAAE,MAAM,CAAA;CAAE,GAC7B;IAAE,IAAI,EAAE,UAAU,CAAC;IAAC,KAAK,EAAE,MAAM,CAAA;CAAE,GACnC;IAAE,IAAI,EAAE,IAAI,CAAC;IAAC,IAAI,EAAE,MAAM,CAAC;IAAC,MAAM,EAAE,QAAQ,CAAC;IAAC,QAAQ,EAAE,QAAQ,CAAA;CAAE,GAClE;IAAE,IAAI,EAAE,KAAK,CAAC;IAAC,IAAI,EAAE,MAAM,CAAC;IAAC,MAAM,EAAE,QAAQ,CAAC;IAAC,IAAI,EAAE,QAAQ,CAAA;CAAE,GAC/D;IAAE,IAAI,EAAE,KAAK,CAAC;IAAC,EAAE,EAAE,QAAQ,CAAC;IAAC,GAAG,EAAE,QAAQ,CAAA;CAAE,GAC5C;IAAE,IAAI,EAAE,OAAO,CAAC;IAAC,IAAI,EAAE,MAAM,CAAC;IAAC,KAAK,EAAE,QAAQ,CAAC;IAAC,MAAM,EAAE,QAAQ,CAAA;CAAE,GAClE;IAAE,IAAI,EAAE,MAAM,CAAC;IAAC,GAAG,EAAE,QAAQ,CAAC;IAAC,GAAG,EAAE,QAAQ,CAAA;CAAE,GAC9C;IAAE,IAAI,EAAE,KAAK,CAAC;IAAC,IAAI,EAAE,QAAQ,CAAA;CAAE,GAC/B;IAAE,IAAI,EAAE,KAAK,CAAC;IAAC,IAAI,EAAE,QAAQ,CAAA;CAAE,GAC/B;IAAE,IAAI,EAAE,KAAK,CAAA;CAAE,GACf;IAAE,IAAI,EAAE,MAAM,CAAA;CAAE,GAChB;IAAE,IAAI,EAAE,MAAM,CAAC;IAAC,GAAG,EAAE,QAAQ,CAAA;CAAE,GAE/B;IAAE,IAAI,EAAE,MAAM,CAAC;IAAC,IAAI,EAAE,QAAQ,CAAC;IAAC,IAAI,EAAE,QAAQ,CAAC;IAAC,KAAK,EAAE,QAAQ,CAAA;CAAE,GACjE;IAAE,IAAI,EAAE,MAAM,CAAC;IAAC,IAAI,EAAE,QAAQ,CAAA;CAAE,GAEhC;IAAE,IAAI,EAAE,WAAW,CAAC;IAAC,MAAM,EAAE,QAAQ,CAAC;IAAC,IAAI,EAAE,QAAQ,CAAC;IAAC,IAAI,EAAE,QAAQ,CAAA;CAAE,GACvE;IAAE,IAAI,EAAE,SAAS,CAAC;IAAC,IAAI,EAAE,QAAQ,CAAA;CAAE,GACnC;IAAE,IAAI,EAAE,YAAY,CAAC;IAAC,IAAI,EAAE,QAAQ,CAAC;IAAC,KAAK,EAAE,QAAQ,CAAA;CAAE,GACvD;IAAE,IAAI,EAAE,IAAI,CAAC;IAAC,EAAE,EAAE,QAAQ,CAAC;IAAC,IAAI,EAAE,QAAQ,CAAA;CAAE,GAC5C;IAAE,IAAI,EAAE,OAAO,CAAC;IAAC,MAAM,EAAE,QAAQ,CAAC;IAAC,QAAQ,EAAE,QAAQ,CAAC;IAAC,IAAI,EAAE,QAAQ,CAAA;CAAE,GAEvE;IAAE,IAAI,EAAE,QAAQ,CAAA;CAAE,GAClB;IAAE,IAAI,EAAE,cAAc,CAAA;CAAE,GACxB;IAAE,IAAI,EAAE,cAAc,CAAA;CAAE,GACxB;IAAE,IAAI,EAAE,YAAY,CAAC;IAAC,IAAI,EAAE,QAAQ,CAAA;CAAE,GACtC;IAAE,IAAI,EAAE,OAAO,CAAC;IAAC,IAAI,EAAE,QAAQ,CAAA;CAAE,GACjC;IAAE,IAAI,EAAE,OAAO,CAAC;IAAC,IAAI,EAAE,QAAQ,CAAA;CAAE,GACjC;IAAE,IAAI,EAAE,UAAU,CAAC;IAAC,IAAI,EAAE,QAAQ,CAAC;IAAC,KAAK,EAAE,QAAQ,CAAA;CAAE,GAErD;IAAE,IAAI,EAAE,IAAI,CAAC;IAAC,KAAK,EAAE,QAAQ,CAAA;CAAE,CAAC;AAIpC,eAAO,MAAM,IAAI,GAAI,MAAM,MAAM,KAAG,QAAmC,CAAC;AACxE,eAAO,MAAM,SAAS,GAAI,cAAS,KAAG,QAAyC,CAAC;AAChF,eAAO,MAAM,GAAG,GAAI,MAAM,MAAM,EAAE,QAAQ,QAAQ,EAAE,UAAU,QAAQ,KAAG,QAKvE,CAAC;AACH,eAAO,MAAM,IAAI,GAAI,MAAM,MAAM,EAAE,QAAQ,QAAQ,EAAE,MAAM,QAAQ,KAAG,QAKpE,CAAC;AACH,eAAO,MAAM,IAAI,GAAI,IAAI,QAAQ,EAAE,KAAK,QAAQ,KAAG,QAAsC,CAAC;AAC1F,eAAO,MAAM,MAAM,GAAI,MAAM,MAAM,EAAE,OAAO,QAAQ,EAAE,QAAQ,QAAQ,KAAG,QAKvE,CAAC;AACH,eAAO,MAAM,KAAK,GAAI,KAAK,QAAQ,EAAE,KAAK,QAAQ,KAAG,QAAwC,CAAC;AAC9F,eAAO,MAAM,IAAI,GAAI,MAAM,QAAQ,KAAG,QAAmC,CAAC;AAC1E,eAAO,MAAM,IAAI,GAAI,MAAM,QAAQ,KAAG,QAAmC,CAAC;AAC1E,eAAO,MAAM,IAAI,QAAO,QAA6B,CAAC;AACtD,eAAO,MAAM,KAAK,QAAO,QAA8B,CAAC;AACxD,eAAO,MAAM,KAAK,GAAI,KAAK,QAAQ,KAAG,QAAmC,CAAC;AAE1E,eAAO,MAAM,KAAK,GAAI,MAAM,QAAQ,EAAE,MAAM,QAAQ,EAAE,OAAO,QAAQ,KAAG,QAKtE,CAAC;AACH,eAAO,MAAM,KAAK,GAAI,MAAM,QAAQ,KAAG,QAAoC,CAAC;AAC5E,eAAO,MAAM,UAAU,GAAI,QAAQ,QAAQ,EAAE,MAAM,QAAQ,EAAE,MAAM,QAAQ,KAAG,QAK5E,CAAC;AACH,eAAO,MAAM,QAAQ,GAAI,MAAM,QAAQ,KAAG,QAAuC,CAAC;AAClF,eAAO,MAAM,WAAW,GAAI,MAAM,QAAQ,EAAE,OAAO,QAAQ,KAAG,QAI5D,CAAC;AACH,eAAO,MAAM,GAAG,GAAI,IAAI,QAAQ,EAAE,MAAM,QAAQ,KAAG,QAAsC,CAAC;AAC1F,eAAO,MAAM,MAAM,GAAI,QAAQ,QAAQ,EAAE,UAAU,QAAQ,EAAE,MAAM,QAAQ,KAAG,QAK5E,CAAC;AAEH,eAAO,MAAM,OAAO,QAAO,QAAgC,CAAC;AAC5D,eAAO,MAAM,aAAa,QAAO,QAAsC,CAAC;AACxE,eAAO,MAAM,aAAa,QAAO,QAAsC,CAAC;AACxE,eAAO,MAAM,WAAW,GAAI,MAAM,QAAQ,KAAG,QAA0C,CAAC;AACxF,eAAO,MAAM,MAAM,GAAI,MAAM,QAAQ,KAAG,QAAqC,CAAC;AAC9E,eAAO,MAAM,MAAM,GAAI,MAAM,QAAQ,KAAG,QAAqC,CAAC;AAC9E,eAAO,MAAM,SAAS,GAAI,MAAM,QAAQ,EAAE,OAAO,QAAQ,KAAG,QAI1D,CAAC;AAEH,eAAO,MAAM,GAAG,GAAI,OAAO,QAAQ,KAAG,QAAmC,CAAC;AAG1E,eAAO,MAAM,MAAM,GAAI,MAAM,QAAQ,EAAE,IAAI,QAAQ,KAAG,QAA8B,CAAC;AAIrF,wBAAgB,cAAc,CAAC,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,QAAQ,GAAG,OAAO,CAmEpE;AAED,wBAAgB,YAAY,CAAC,IAAI,EAAE,QAAQ,EAAE,GAAG,GAAE,GAAG,CAAC,MAAM,CAAa,GAAG,GAAG,CAAC,MAAM,CAAC,CAuFtF;AAID,wBAAgB,gBAAgB,CAAC,CAAC,EAAE,QAAQ,GAAG,MAAM,CA4DpD"}