@stevenvo780/st-lang 4.1.0 → 4.3.0

package/dist/curry-howard/proof.js

@@ -0,0 +1,282 @@
+"use strict";
+// ============================================================
+// Curry-Howard — Conversión bidireccional term ↔ ProofTree
+// ============================================================
+//
+// term → proof: caminamos el λ-term anotado y emitimos el árbol
+// de deducción natural correspondiente. El contexto de tipado se
+// duplica como conjunto de supuestos disponibles.
+//
+// proof → term: por inducción sobre las reglas usadas, fabricamos
+// el λ-término. Cada `axiom` produce una variable libre cuyo
+// nombre lo trae el árbol (`assumption`). Las reglas que descargan
+// supuestos (→I, ∨E) los reflejan en `discharged`, lo que nos da el
+// binder del λ.
+//
+// Round-trip: term → proof → term preserva el tipo inferido.
+// (No necesariamente preserva el término sintácticamente — bajo β-
+// equivalencia tampoco se pretende: `proofToTerm(termToProof(t))`
+// devuelve t en los casos directos cubiertos por los tests.)
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.ProofConversionError = void 0;
+exports.termToProof = termToProof;
+exports.proofToTerm = proofToTerm;
+exports.proofIsConsistent = proofIsConsistent;
+const infer_1 = require("./infer");
+const types_1 = require("./types");
+class ProofConversionError extends Error {
+}
+exports.ProofConversionError = ProofConversionError;
+// ---------- term → proof ----------
+function termToProof(term, ctx = {}) {
+    return buildProof(term, ctx);
+}
+function buildProof(term, ctx) {
+    switch (term.kind) {
+        case 'var': {
+            const t = ctx[term.name];
+            if (!t) {
+                throw new ProofConversionError(`variable '${term.name}' no está en contexto`);
+            }
+            return { rule: 'axiom', conclusion: t, premises: [], assumption: term.name };
+        }
+        case 'abs': {
+            const innerCtx = { ...ctx, [term.param]: term.paramType };
+            const sub = buildProof(term.body, innerCtx);
+            return {
+                rule: '→I',
+                conclusion: { kind: 'arrow', from: term.paramType, to: sub.conclusion },
+                premises: [sub],
+                discharged: [{ name: term.param, type: term.paramType }],
+            };
+        }
+        case 'app': {
+            const left = buildProof(term.fn, ctx);
+            const right = buildProof(term.arg, ctx);
+            if (left.conclusion.kind !== 'arrow') {
+                throw new ProofConversionError(`→E aplicado a no-flecha: ${(0, types_1.typeToString)(left.conclusion)}`);
+            }
+            if (!(0, types_1.eqType)(left.conclusion.from, right.conclusion)) {
+                throw new ProofConversionError(`→E con argumento de tipo equivocado: esperaba ${(0, types_1.typeToString)(left.conclusion.from)} obtuve ${(0, types_1.typeToString)(right.conclusion)}`);
+            }
+            return {
+                rule: '→E',
+                conclusion: left.conclusion.to,
+                premises: [left, right],
+            };
+        }
+        case 'pair': {
+            const l = buildProof(term.fst, ctx);
+            const r = buildProof(term.snd, ctx);
+            return {
+                rule: '∧I',
+                conclusion: { kind: 'product', left: l.conclusion, right: r.conclusion },
+                premises: [l, r],
+            };
+        }
+        case 'fst': {
+            const p = buildProof(term.pair, ctx);
+            if (p.conclusion.kind !== 'product') {
+                throw new ProofConversionError(`∧E-L sobre no-producto`);
+            }
+            return { rule: '∧E-L', conclusion: p.conclusion.left, premises: [p] };
+        }
+        case 'snd': {
+            const p = buildProof(term.pair, ctx);
+            if (p.conclusion.kind !== 'product') {
+                throw new ProofConversionError(`∧E-R sobre no-producto`);
+            }
+            return { rule: '∧E-R', conclusion: p.conclusion.right, premises: [p] };
+        }
+        case 'inl': {
+            const sub = buildProof(term.left, ctx);
+            return {
+                rule: '∨I-L',
+                conclusion: { kind: 'sum', left: sub.conclusion, right: term.rightType },
+                premises: [sub],
+            };
+        }
+        case 'inr': {
+            const sub = buildProof(term.right, ctx);
+            return {
+                rule: '∨I-R',
+                conclusion: { kind: 'sum', left: term.leftType, right: sub.conclusion },
+                premises: [sub],
+            };
+        }
+        case 'case': {
+            const s = buildProof(term.scrutinee, ctx);
+            if (s.conclusion.kind !== 'sum') {
+                throw new ProofConversionError(`∨E sobre no-disyunción`);
+            }
+            const leftCtx = { ...ctx, [term.leftBind]: s.conclusion.left };
+            const lBranch = buildProof(term.leftBody, leftCtx);
+            const rightCtx = { ...ctx, [term.rightBind]: s.conclusion.right };
+            const rBranch = buildProof(term.rightBody, rightCtx);
+            if (!(0, types_1.eqType)(lBranch.conclusion, rBranch.conclusion)) {
+                throw new ProofConversionError(`∨E con ramas de tipos distintos: ${(0, types_1.typeToString)(lBranch.conclusion)} vs ${(0, types_1.typeToString)(rBranch.conclusion)}`);
+            }
+            return {
+                rule: '∨E',
+                conclusion: lBranch.conclusion,
+                premises: [s, lBranch, rBranch],
+                discharged: [
+                    { name: term.leftBind, type: s.conclusion.left },
+                    { name: term.rightBind, type: s.conclusion.right },
+                ],
+            };
+        }
+        case 'absurd': {
+            const sub = buildProof(term.proofOfFalse, ctx);
+            if (sub.conclusion.kind !== 'bottom') {
+                throw new ProofConversionError(`⊥E sobre no-bottom`);
+            }
+            return {
+                rule: '⊥E',
+                conclusion: term.resultType,
+                premises: [sub],
+            };
+        }
+    }
+}
+// ---------- proof → term ----------
+function proofToTerm(proof) {
+    switch (proof.rule) {
+        case 'axiom': {
+            if (!proof.assumption) {
+                throw new ProofConversionError(`axiom sin nombre de hipótesis`);
+            }
+            return { kind: 'var', name: proof.assumption };
+        }
+        case '→I': {
+            if (proof.premises.length !== 1 || !proof.discharged || proof.discharged.length !== 1) {
+                throw new ProofConversionError(`→I mal formado`);
+            }
+            const sub = proofToTerm(proof.premises[0]);
+            const d = proof.discharged[0];
+            return { kind: 'abs', param: d.name, paramType: d.type, body: sub };
+        }
+        case '→E': {
+            if (proof.premises.length !== 2)
+                throw new ProofConversionError(`→E mal formado`);
+            return {
+                kind: 'app',
+                fn: proofToTerm(proof.premises[0]),
+                arg: proofToTerm(proof.premises[1]),
+            };
+        }
+        case '∧I': {
+            if (proof.premises.length !== 2)
+                throw new ProofConversionError(`∧I mal formado`);
+            return {
+                kind: 'pair',
+                fst: proofToTerm(proof.premises[0]),
+                snd: proofToTerm(proof.premises[1]),
+            };
+        }
+        case '∧E-L': {
+            if (proof.premises.length !== 1)
+                throw new ProofConversionError(`∧E-L mal formado`);
+            return { kind: 'fst', pair: proofToTerm(proof.premises[0]) };
+        }
+        case '∧E-R': {
+            if (proof.premises.length !== 1)
+                throw new ProofConversionError(`∧E-R mal formado`);
+            return { kind: 'snd', pair: proofToTerm(proof.premises[0]) };
+        }
+        case '∨I-L': {
+            if (proof.premises.length !== 1 || proof.conclusion.kind !== 'sum') {
+                throw new ProofConversionError(`∨I-L mal formado`);
+            }
+            return {
+                kind: 'inl',
+                left: proofToTerm(proof.premises[0]),
+                rightType: proof.conclusion.right,
+            };
+        }
+        case '∨I-R': {
+            if (proof.premises.length !== 1 || proof.conclusion.kind !== 'sum') {
+                throw new ProofConversionError(`∨I-R mal formado`);
+            }
+            return {
+                kind: 'inr',
+                right: proofToTerm(proof.premises[0]),
+                leftType: proof.conclusion.left,
+            };
+        }
+        case '∨E': {
+            if (proof.premises.length !== 3 || !proof.discharged || proof.discharged.length !== 2) {
+                throw new ProofConversionError(`∨E mal formado`);
+            }
+            return {
+                kind: 'case',
+                scrutinee: proofToTerm(proof.premises[0]),
+                leftBind: proof.discharged[0].name,
+                leftBody: proofToTerm(proof.premises[1]),
+                rightBind: proof.discharged[1].name,
+                rightBody: proofToTerm(proof.premises[2]),
+            };
+        }
+        case '⊥E': {
+            if (proof.premises.length !== 1)
+                throw new ProofConversionError(`⊥E mal formado`);
+            return {
+                kind: 'absurd',
+                proofOfFalse: proofToTerm(proof.premises[0]),
+                resultType: proof.conclusion,
+            };
+        }
+    }
+}
+// Sanity check: la conclusión final de un proof equivale al tipo
+// inferido del término generado (mismo contexto vacío de externos).
+function proofIsConsistent(proof) {
+    let term;
+    try {
+        term = proofToTerm(proof);
+    }
+    catch {
+        return false;
+    }
+    // El árbol puede dejar hipótesis abiertas (axioms no descargados).
+    // Inferimos con ctx con esas hipótesis.
+    const ctx = collectOpenAssumptions(proof);
+    const t = (0, infer_1.inferType)(term, ctx);
+    if ((0, infer_1.isInferError)(t))
+        return false;
+    return (0, types_1.eqType)(t, proof.conclusion);
+}
+function collectOpenAssumptions(proof, discharged = new Set()) {
+    const ctx = {};
+    function walk(p, scopedDischarged) {
+        if (p.rule === 'axiom') {
+            if (p.assumption && !scopedDischarged.has(p.assumption)) {
+                ctx[p.assumption] = p.conclusion;
+            }
+            return;
+        }
+        if (p.rule === '→I' && p.discharged) {
+            const next = new Set(scopedDischarged);
+            for (const d of p.discharged)
+                next.add(d.name);
+            for (const sub of p.premises)
+                walk(sub, next);
+            return;
+        }
+        if (p.rule === '∨E' && p.discharged && p.premises.length === 3) {
+            walk(p.premises[0], scopedDischarged);
+            const lScope = new Set(scopedDischarged);
+            lScope.add(p.discharged[0].name);
+            walk(p.premises[1], lScope);
+            const rScope = new Set(scopedDischarged);
+            rScope.add(p.discharged[1].name);
+            walk(p.premises[2], rScope);
+            return;
+        }
+        for (const sub of p.premises)
+            walk(sub, scopedDischarged);
+    }
+    walk(proof, discharged);
+    return ctx;
+}
+//# sourceMappingURL=proof.js.map

package/dist/curry-howard/proof.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"proof.js","sourceRoot":"","sources":["../../src/curry-howard/proof.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,2DAA2D;AAC3D,+DAA+D;AAC/D,EAAE;AACF,gEAAgE;AAChE,iEAAiE;AACjE,kDAAkD;AAClD,EAAE;AACF,kEAAkE;AAClE,6DAA6D;AAC7D,mEAAmE;AACnE,oEAAoE;AACpE,gBAAgB;AAChB,EAAE;AACF,6DAA6D;AAC7D,mEAAmE;AACnE,kEAAkE;AAClE,6DAA6D;;;AAS7D,kCAEC;AAwHD,kCAkFC;AAID,8CAaC;AApOD,mCAAkD;AAElD,mCAA+C;AAE/C,MAAa,oBAAqB,SAAQ,KAAK;CAAG;AAAlD,oDAAkD;AAElD,qCAAqC;AACrC,SAAgB,WAAW,CAAC,IAAgB,EAAE,MAAe,EAAE;IAC7D,OAAO,UAAU,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;AAC/B,CAAC;AAED,SAAS,UAAU,CAAC,IAAgB,EAAE,GAAY;IAChD,QAAQ,IAAI,CAAC,IAAI,EAAE,CAAC;QAClB,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,CAAC,GAAG,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACzB,IAAI,CAAC,CAAC,EAAE,CAAC;gBACP,MAAM,IAAI,oBAAoB,CAAC,aAAa,IAAI,CAAC,IAAI,uBAAuB,CAAC,CAAC;YAChF,CAAC;YACD,OAAO,EAAE,IAAI,EAAE,OAAO,EAAE,UAAU,EAAE,CAAC,EAAE,QAAQ,EAAE,EAAE,EAAE,UAAU,EAAE,IAAI,CAAC,IAAI,EAAE,CAAC;QAC/E,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,QAAQ,GAAY,EAAE,GAAG,GAAG,EAAE,CAAC,IAAI,CAAC,KAAK,CAAC,EAAE,IAAI,CAAC,SAAS,EAAE,CAAC;YACnE,MAAM,GAAG,GAAG,UAAU,CAAC,IAAI,CAAC,IAAI,EAAE,QAAQ,CAAC,CAAC;YAC5C,OAAO;gBACL,IAAI,EAAE,IAAI;gBACV,UAAU,EAAE,EAAE,IAAI,EAAE,OAAO,EAAE,IAAI,EAAE,IAAI,CAAC,SAAS,EAAE,EAAE,EAAE,GAAG,CAAC,UAAU,EAAE;gBACvE,QAAQ,EAAE,CAAC,GAAG,CAAC;gBACf,UAAU,EAAE,CAAC,EAAE,IAAI,EAAE,IAAI,CAAC,KAAK,EAAE,IAAI,EAAE,IAAI,CAAC,SAAS,EAAE,CAAC;aACzD,CAAC;QACJ,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,IAAI,GAAG,UAAU,CAAC,IAAI,CAAC,EAAE,EAAE,GAAG,CAAC,CAAC;YACtC,MAAM,KAAK,GAAG,UAAU,CAAC,IAAI,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YACxC,IAAI,IAAI,CAAC,UAAU,CAAC,IAAI,KAAK,OAAO,EAAE,CAAC;gBACrC,MAAM,IAAI,oBAAoB,CAAC,4BAA4B,IAAA,oBAAY,EAAC,IAAI,CAAC,UAAU,CAAC,EAAE,CAAC,CAAC;YAC9F,CAAC;YACD,IAAI,CAAC,IAAA,cAAM,EAAC,IAAI,CAAC,UAAU,CAAC,IAAI,EAAE,KAAK,CAAC,UAAU,CAAC,EAAE,CAAC;gBACpD,MAAM,IAAI,oBAAoB,CAC5B,iDAAiD,IAAA,oBAAY,EAC3D,IAAI,CAAC,UAAU,CAAC,IAAI,CACrB,WAAW,IAAA,oBAAY,EAAC,KAAK,CAAC,UAAU,CAAC,EAAE,CAC7C,CAAC;YACJ,CAAC;YACD,OAAO;gBACL,IAAI,EAAE,IAAI;gBACV,UAAU,EAAE,IAAI,CAAC,UAAU,CAAC,EAAE;gBAC9B,QAAQ,EAAE,CAAC,IAAI,EAAE,KAAK,CAAC;aACxB,CAAC;QACJ,CAAC;QACD,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,MAAM,CAAC,GAAG,UAAU,CAAC,IAAI,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YACpC,MAAM,CAAC,GAAG,UAAU,CAAC,IAAI,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YACpC,OAAO;gBACL,IAAI,EAAE,IAAI;gBACV,UAAU,EAAE,EAAE,IAAI,EAAE,SAAS,EAAE,IAAI,EAAE,CAAC,CAAC,UAAU,EAAE,KAAK,EAAE,CAAC,CAAC,UAAU,EAAE;gBACxE,QAAQ,EAAE,CAAC,CAAC,EAAE,CAAC,CAAC;aACjB,CAAC;QACJ,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,CAAC,GAAG,UAAU,CAAC,IAAI,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YACrC,IAAI,CAAC,CAAC,UAAU,CAAC,IAAI,KAAK,SAAS,EAAE,CAAC;gBACpC,MAAM,IAAI,oBAAoB,CAAC,wBAAwB,CAAC,CAAC;YAC3D,CAAC;YACD,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,UAAU,EAAE,CAAC,CAAC,UAAU,CAAC,IAAI,EAAE,QAAQ,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;QACxE,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,CAAC,GAAG,UAAU,CAAC,IAAI,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YACrC,IAAI,CAAC,CAAC,UAAU,CAAC,IAAI,KAAK,SAAS,EAAE,CAAC;gBACpC,MAAM,IAAI,oBAAoB,CAAC,wBAAwB,CAAC,CAAC;YAC3D,CAAC;YACD,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,UAAU,EAAE,CAAC,CAAC,UAAU,CAAC,KAAK,EAAE,QAAQ,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;QACzE,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,GAAG,GAAG,UAAU,CAAC,IAAI,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YACvC,OAAO;gBACL,IAAI,EAAE,MAAM;gBACZ,UAAU,EAAE,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,GAAG,CAAC,UAAU,EAAE,KAAK,EAAE,IAAI,CAAC,SAAS,EAAE;gBACxE,QAAQ,EAAE,CAAC,GAAG,CAAC;aAChB,CAAC;QACJ,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,GAAG,GAAG,UAAU,CAAC,IAAI,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC;YACxC,OAAO;gBACL,IAAI,EAAE,MAAM;gBACZ,UAAU,EAAE,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,IAAI,CAAC,QAAQ,EAAE,KAAK,EAAE,GAAG,CAAC,UAAU,EAAE;gBACvE,QAAQ,EAAE,CAAC,GAAG,CAAC;aAChB,CAAC;QACJ,CAAC;QACD,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,MAAM,CAAC,GAAG,UAAU,CAAC,IAAI,CAAC,SAAS,EAAE,GAAG,CAAC,CAAC;YAC1C,IAAI,CAAC,CAAC,UAAU,CAAC,IAAI,KAAK,KAAK,EAAE,CAAC;gBAChC,MAAM,IAAI,oBAAoB,CAAC,wBAAwB,CAAC,CAAC;YAC3D,CAAC;YACD,MAAM,OAAO,GAAY,EAAE,GAAG,GAAG,EAAE,CAAC,IAAI,CAAC,QAAQ,CAAC,EAAE,CAAC,CAAC,UAAU,CAAC,IAAI,EAAE,CAAC;YACxE,MAAM,OAAO,GAAG,UAAU,CAAC,IAAI,CAAC,QAAQ,EAAE,OAAO,CAAC,CAAC;YACnD,MAAM,QAAQ,GAAY,EAAE,GAAG,GAAG,EAAE,CAAC,IAAI,CAAC,SAAS,CAAC,EAAE,CAAC,CAAC,UAAU,CAAC,KAAK,EAAE,CAAC;YAC3E,MAAM,OAAO,GAAG,UAAU,CAAC,IAAI,CAAC,SAAS,EAAE,QAAQ,CAAC,CAAC;YACrD,IAAI,CAAC,IAAA,cAAM,EAAC,OAAO,CAAC,UAAU,EAAE,OAAO,CAAC,UAAU,CAAC,EAAE,CAAC;gBACpD,MAAM,IAAI,oBAAoB,CAC5B,oCAAoC,IAAA,oBAAY,EAC9C,OAAO,CAAC,UAAU,CACnB,OAAO,IAAA,oBAAY,EAAC,OAAO,CAAC,UAAU,CAAC,EAAE,CAC3C,CAAC;YACJ,CAAC;YACD,OAAO;gBACL,IAAI,EAAE,IAAI;gBACV,UAAU,EAAE,OAAO,CAAC,UAAU;gBAC9B,QAAQ,EAAE,CAAC,CAAC,EAAE,OAAO,EAAE,OAAO,CAAC;gBAC/B,UAAU,EAAE;oBACV,EAAE,IAAI,EAAE,IAAI,CAAC,QAAQ,EAAE,IAAI,EAAE,CAAC,CAAC,UAAU,CAAC,IAAI,EAAE;oBAChD,EAAE,IAAI,EAAE,IAAI,CAAC,SAAS,EAAE,IAAI,EAAE,CAAC,CAAC,UAAU,CAAC,KAAK,EAAE;iBACnD;aACF,CAAC;QACJ,CAAC;QACD,KAAK,QAAQ,CAAC,CAAC,CAAC;YACd,MAAM,GAAG,GAAG,UAAU,CAAC,IAAI,CAAC,YAAY,EAAE,GAAG,CAAC,CAAC;YAC/C,IAAI,GAAG,CAAC,UAAU,CAAC,IAAI,KAAK,QAAQ,EAAE,CAAC;gBACrC,MAAM,IAAI,oBAAoB,CAAC,oBAAoB,CAAC,CAAC;YACvD,CAAC;YACD,OAAO;gBACL,IAAI,EAAE,IAAI;gBACV,UAAU,EAAE,IAAI,CAAC,UAAU;gBAC3B,QAAQ,EAAE,CAAC,GAAG,CAAC;aAChB,CAAC;QACJ,CAAC;IACH,CAAC;AACH,CAAC;AAED,qCAAqC;AACrC,SAAgB,WAAW,CAAC,KAAgB;IAC1C,QAAQ,KAAK,CAAC,IAAI,EAAE,CAAC;QACnB,KAAK,OAAO,CAAC,CAAC,CAAC;YACb,IAAI,CAAC,KAAK,CAAC,UAAU,EAAE,CAAC;gBACtB,MAAM,IAAI,oBAAoB,CAAC,+BAA+B,CAAC,CAAC;YAClE,CAAC;YACD,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,KAAK,CAAC,UAAU,EAAE,CAAC;QACjD,CAAC;QACD,KAAK,IAAI,CAAC,CAAC,CAAC;YACV,IAAI,KAAK,CAAC,QAAQ,CAAC,MAAM,KAAK,CAAC,IAAI,CAAC,KAAK,CAAC,UAAU,IAAI,KAAK,CAAC,UAAU,CAAC,MAAM,KAAK,CAAC,EAAE,CAAC;gBACtF,MAAM,IAAI,oBAAoB,CAAC,gBAAgB,CAAC,CAAC;YACnD,CAAC;YACD,MAAM,GAAG,GAAG,WAAW,CAAC,KAAK,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,CAAC;YAC3C,MAAM,CAAC,GAAG,KAAK,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC;YAC9B,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,CAAC,CAAC,IAAI,EAAE,SAAS,EAAE,CAAC,CAAC,IAAI,EAAE,IAAI,EAAE,GAAG,EAAE,CAAC;QACtE,CAAC;QACD,KAAK,IAAI,CAAC,CAAC,CAAC;YACV,IAAI,KAAK,CAAC,QAAQ,CAAC,MAAM,KAAK,CAAC;gBAAE,MAAM,IAAI,oBAAoB,CAAC,gBAAgB,CAAC,CAAC;YAClF,OAAO;gBACL,IAAI,EAAE,KAAK;gBACX,EAAE,EAAE,WAAW,CAAC,KAAK,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC;gBAClC,GAAG,EAAE,WAAW,CAAC,KAAK,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC;aACpC,CAAC;QACJ,CAAC;QACD,KAAK,IAAI,CAAC,CAAC,CAAC;YACV,IAAI,KAAK,CAAC,QAAQ,CAAC,MAAM,KAAK,CAAC;gBAAE,MAAM,IAAI,oBAAoB,CAAC,gBAAgB,CAAC,CAAC;YAClF,OAAO;gBACL,IAAI,EAAE,MAAM;gBACZ,GAAG,EAAE,WAAW,CAAC,KAAK,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC;gBACnC,GAAG,EAAE,WAAW,CAAC,KAAK,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC;aACpC,CAAC;QACJ,CAAC;QACD,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,IAAI,KAAK,CAAC,QAAQ,CAAC,MAAM,KAAK,CAAC;gBAAE,MAAM,IAAI,oBAAoB,CAAC,kBAAkB,CAAC,CAAC;YACpF,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,WAAW,CAAC,KAAK,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC;QAC/D,CAAC;QACD,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,IAAI,KAAK,CAAC,QAAQ,CAAC,MAAM,KAAK,CAAC;gBAAE,MAAM,IAAI,oBAAoB,CAAC,kBAAkB,CAAC,CAAC;YACpF,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,WAAW,CAAC,KAAK,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC;QAC/D,CAAC;QACD,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,IAAI,KAAK,CAAC,QAAQ,CAAC,MAAM,KAAK,CAAC,IAAI,KAAK,CAAC,UAAU,CAAC,IAAI,KAAK,KAAK,EAAE,CAAC;gBACnE,MAAM,IAAI,oBAAoB,CAAC,kBAAkB,CAAC,CAAC;YACrD,CAAC;YACD,OAAO;gBACL,IAAI,EAAE,KAAK;gBACX,IAAI,EAAE,WAAW,CAAC,KAAK,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC;gBACpC,SAAS,EAAE,KAAK,CAAC,UAAU,CAAC,KAAK;aAClC,CAAC;QACJ,CAAC;QACD,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,IAAI,KAAK,CAAC,QAAQ,CAAC,MAAM,KAAK,CAAC,IAAI,KAAK,CAAC,UAAU,CAAC,IAAI,KAAK,KAAK,EAAE,CAAC;gBACnE,MAAM,IAAI,oBAAoB,CAAC,kBAAkB,CAAC,CAAC;YACrD,CAAC;YACD,OAAO;gBACL,IAAI,EAAE,KAAK;gBACX,KAAK,EAAE,WAAW,CAAC,KAAK,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC;gBACrC,QAAQ,EAAE,KAAK,CAAC,UAAU,CAAC,IAAI;aAChC,CAAC;QACJ,CAAC;QACD,KAAK,IAAI,CAAC,CAAC,CAAC;YACV,IAAI,KAAK,CAAC,QAAQ,CAAC,MAAM,KAAK,CAAC,IAAI,CAAC,KAAK,CAAC,UAAU,IAAI,KAAK,CAAC,UAAU,CAAC,MAAM,KAAK,CAAC,EAAE,CAAC;gBACtF,MAAM,IAAI,oBAAoB,CAAC,gBAAgB,CAAC,CAAC;YACnD,CAAC;YACD,OAAO;gBACL,IAAI,EAAE,MAAM;gBACZ,SAAS,EAAE,WAAW,CAAC,KAAK,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC;gBACzC,QAAQ,EAAE,KAAK,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,IAAI;gBAClC,QAAQ,EAAE,WAAW,CAAC,KAAK,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC;gBACxC,SAAS,EAAE,KAAK,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,IAAI;gBACnC,SAAS,EAAE,WAAW,CAAC,KAAK,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC;aAC1C,CAAC;QACJ,CAAC;QACD,KAAK,IAAI,CAAC,CAAC,CAAC;YACV,IAAI,KAAK,CAAC,QAAQ,CAAC,MAAM,KAAK,CAAC;gBAAE,MAAM,IAAI,oBAAoB,CAAC,gBAAgB,CAAC,CAAC;YAClF,OAAO;gBACL,IAAI,EAAE,QAAQ;gBACd,YAAY,EAAE,WAAW,CAAC,KAAK,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC;gBAC5C,UAAU,EAAE,KAAK,CAAC,UAAU;aAC7B,CAAC;QACJ,CAAC;IACH,CAAC;AACH,CAAC;AAED,iEAAiE;AACjE,oEAAoE;AACpE,SAAgB,iBAAiB,CAAC,KAAgB;IAChD,IAAI,IAAgB,CAAC;IACrB,IAAI,CAAC;QACH,IAAI,GAAG,WAAW,CAAC,KAAK,CAAC,CAAC;IAC5B,CAAC;IAAC,MAAM,CAAC;QACP,OAAO,KAAK,CAAC;IACf,CAAC;IACD,mEAAmE;IACnE,wCAAwC;IACxC,MAAM,GAAG,GAAG,sBAAsB,CAAC,KAAK,CAAC,CAAC;IAC1C,MAAM,CAAC,GAAG,IAAA,iBAAS,EAAC,IAAI,EAAE,GAAG,CAAC,CAAC;IAC/B,IAAI,IAAA,oBAAY,EAAC,CAAC,CAAC;QAAE,OAAO,KAAK,CAAC;IAClC,OAAO,IAAA,cAAM,EAAC,CAAC,EAAE,KAAK,CAAC,UAAU,CAAC,CAAC;AACrC,CAAC;AAED,SAAS,sBAAsB,CAAC,KAAgB,EAAE,aAA0B,IAAI,GAAG,EAAE;IACnF,MAAM,GAAG,GAAY,EAAE,CAAC;IACxB,SAAS,IAAI,CAAC,CAAY,EAAE,gBAA6B;QACvD,IAAI,CAAC,CAAC,IAAI,KAAK,OAAO,EAAE,CAAC;YACvB,IAAI,CAAC,CAAC,UAAU,IAAI,CAAC,gBAAgB,CAAC,GAAG,CAAC,CAAC,CAAC,UAAU,CAAC,EAAE,CAAC;gBACxD,GAAG,CAAC,CAAC,CAAC,UAAU,CAAC,GAAG,CAAC,CAAC,UAAU,CAAC;YACnC,CAAC;YACD,OAAO;QACT,CAAC;QACD,IAAI,CAAC,CAAC,IAAI,KAAK,IAAI,IAAI,CAAC,CAAC,UAAU,EAAE,CAAC;YACpC,MAAM,IAAI,GAAG,IAAI,GAAG,CAAC,gBAAgB,CAAC,CAAC;YACvC,KAAK,MAAM,CAAC,IAAI,CAAC,CAAC,UAAU;gBAAE,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;YAC/C,KAAK,MAAM,GAAG,IAAI,CAAC,CAAC,QAAQ;gBAAE,IAAI,CAAC,GAAG,EAAE,IAAI,CAAC,CAAC;YAC9C,OAAO;QACT,CAAC;QACD,IAAI,CAAC,CAAC,IAAI,KAAK,IAAI,IAAI,CAAC,CAAC,UAAU,IAAI,CAAC,CAAC,QAAQ,CAAC,MAAM,KAAK,CAAC,EAAE,CAAC;YAC/D,IAAI,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAC,EAAE,gBAAgB,CAAC,CAAC;YACtC,MAAM,MAAM,GAAG,IAAI,GAAG,CAAC,gBAAgB,CAAC,CAAC;YACzC,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;YACjC,IAAI,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAC,EAAE,MAAM,CAAC,CAAC;YAC5B,MAAM,MAAM,GAAG,IAAI,GAAG,CAAC,gBAAgB,CAAC,CAAC;YACzC,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;YACjC,IAAI,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAC,EAAE,MAAM,CAAC,CAAC;YAC5B,OAAO;QACT,CAAC;QACD,KAAK,MAAM,GAAG,IAAI,CAAC,CAAC,QAAQ;YAAE,IAAI,CAAC,GAAG,EAAE,gBAAgB,CAAC,CAAC;IAC5D,CAAC;IACD,IAAI,CAAC,KAAK,EAAE,UAAU,CAAC,CAAC;IACxB,OAAO,GAAG,CAAC;AACb,CAAC"}

package/dist/curry-howard/reduce.d.ts

@@ -0,0 +1,7 @@
+import type { LambdaTerm } from './types';
+export declare function freeVars(t: LambdaTerm, acc?: Set<string>): Set<string>;
+export declare function substituteTerm(term: LambdaTerm, name: string, value: LambdaTerm): LambdaTerm;
+export declare function reduceBeta(term: LambdaTerm): LambdaTerm;
+export declare function isNormal(term: LambdaTerm): boolean;
+export declare function normalize(term: LambdaTerm, maxSteps?: number): LambdaTerm;
+//# sourceMappingURL=reduce.d.ts.map

package/dist/curry-howard/reduce.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"reduce.d.ts","sourceRoot":"","sources":["../../src/curry-howard/reduce.ts"],"names":[],"mappings":"AAcA,OAAO,KAAK,EAAE,UAAU,EAAE,MAAM,SAAS,CAAC;AAE1C,wBAAgB,QAAQ,CAAC,CAAC,EAAE,UAAU,EAAE,GAAG,GAAE,GAAG,CAAC,MAAM,CAAa,GAAG,GAAG,CAAC,MAAM,CAAC,CA8CjF;AA6FD,wBAAgB,cAAc,CAAC,IAAI,EAAE,UAAU,EAAE,IAAI,EAAE,MAAM,EAAE,KAAK,EAAE,UAAU,GAAG,UAAU,CAE5F;AAID,wBAAgB,UAAU,CAAC,IAAI,EAAE,UAAU,GAAG,UAAU,CAwEvD;AAED,wBAAgB,QAAQ,CAAC,IAAI,EAAE,UAAU,GAAG,OAAO,CAElD;AAED,wBAAgB,SAAS,CAAC,IAAI,EAAE,UAAU,EAAE,QAAQ,SAAO,GAAG,UAAU,CAQvE"}

package/dist/curry-howard/reduce.js

@@ -0,0 +1,266 @@
+"use strict";
+// ============================================================
+// Curry-Howard — β-reducción (estrategia call-by-name / leftmost-outermost)
+// ============================================================
+//
+// Reglas implementadas:
+//   (λx:T. M) N           ↦ M[N/x]
+//   fst ⟨a, b⟩            ↦ a
+//   snd ⟨a, b⟩            ↦ b
+//   case (inl v) of L|R   ↦ L[v/leftBind]
+//   case (inr v) of L|R   ↦ R[v/rightBind]
+//
+// `reduceBeta` aplica UN paso. `normalize` itera hasta forma normal
+// (con guardia anti-loop para casos patológicos como `(λx. xx)(λx. xx)`).
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.freeVars = freeVars;
+exports.substituteTerm = substituteTerm;
+exports.reduceBeta = reduceBeta;
+exports.isNormal = isNormal;
+exports.normalize = normalize;
+function freeVars(t, acc = new Set()) {
+    switch (t.kind) {
+        case 'var':
+            acc.add(t.name);
+            break;
+        case 'app':
+            freeVars(t.fn, acc);
+            freeVars(t.arg, acc);
+            break;
+        case 'abs': {
+            const inner = freeVars(t.body);
+            inner.delete(t.param);
+            for (const v of inner)
+                acc.add(v);
+            break;
+        }
+        case 'pair':
+            freeVars(t.fst, acc);
+            freeVars(t.snd, acc);
+            break;
+        case 'fst':
+            freeVars(t.pair, acc);
+            break;
+        case 'snd':
+            freeVars(t.pair, acc);
+            break;
+        case 'inl':
+            freeVars(t.left, acc);
+            break;
+        case 'inr':
+            freeVars(t.right, acc);
+            break;
+        case 'case': {
+            freeVars(t.scrutinee, acc);
+            const lInner = freeVars(t.leftBody);
+            lInner.delete(t.leftBind);
+            for (const v of lInner)
+                acc.add(v);
+            const rInner = freeVars(t.rightBody);
+            rInner.delete(t.rightBind);
+            for (const v of rInner)
+                acc.add(v);
+            break;
+        }
+        case 'absurd':
+            freeVars(t.proofOfFalse, acc);
+            break;
+    }
+    return acc;
+}
+let freshCounter = 0;
+function fresh(base, avoid) {
+    let candidate = `${base}#${freshCounter++}`;
+    while (avoid.has(candidate))
+        candidate = `${base}#${freshCounter++}`;
+    return candidate;
+}
+// α-conversion: rebaut el binder si choca con FV del valor sustituido.
+function substitute(term, name, value) {
+    switch (term.kind) {
+        case 'var':
+            return term.name === name ? value : term;
+        case 'app':
+            return {
+                kind: 'app',
+                fn: substitute(term.fn, name, value),
+                arg: substitute(term.arg, name, value),
+            };
+        case 'abs': {
+            if (term.param === name)
+                return term; // ligado, no sustituir
+            const fv = freeVars(value);
+            if (fv.has(term.param)) {
+                // capture clash → α-rename
+                const newName = fresh(term.param, new Set([...fv, ...freeVars(term.body)]));
+                const renamedBody = substitute(term.body, term.param, { kind: 'var', name: newName });
+                return {
+                    kind: 'abs',
+                    param: newName,
+                    paramType: term.paramType,
+                    body: substitute(renamedBody, name, value),
+                };
+            }
+            return {
+                kind: 'abs',
+                param: term.param,
+                paramType: term.paramType,
+                body: substitute(term.body, name, value),
+            };
+        }
+        case 'pair':
+            return {
+                kind: 'pair',
+                fst: substitute(term.fst, name, value),
+                snd: substitute(term.snd, name, value),
+            };
+        case 'fst':
+            return { kind: 'fst', pair: substitute(term.pair, name, value) };
+        case 'snd':
+            return { kind: 'snd', pair: substitute(term.pair, name, value) };
+        case 'inl':
+            return { kind: 'inl', left: substitute(term.left, name, value), rightType: term.rightType };
+        case 'inr':
+            return { kind: 'inr', right: substitute(term.right, name, value), leftType: term.leftType };
+        case 'case': {
+            const scrutinee = substitute(term.scrutinee, name, value);
+            const fv = freeVars(value);
+            let { leftBind, rightBind, leftBody, rightBody } = term;
+            if (leftBind !== name) {
+                if (fv.has(leftBind)) {
+                    const nb = fresh(leftBind, new Set([...fv, ...freeVars(leftBody)]));
+                    leftBody = substitute(leftBody, leftBind, { kind: 'var', name: nb });
+                    leftBind = nb;
+                }
+                leftBody = substitute(leftBody, name, value);
+            }
+            if (rightBind !== name) {
+                if (fv.has(rightBind)) {
+                    const nb = fresh(rightBind, new Set([...fv, ...freeVars(rightBody)]));
+                    rightBody = substitute(rightBody, rightBind, { kind: 'var', name: nb });
+                    rightBind = nb;
+                }
+                rightBody = substitute(rightBody, name, value);
+            }
+            return {
+                kind: 'case',
+                scrutinee,
+                leftBind,
+                leftBody,
+                rightBind,
+                rightBody,
+            };
+        }
+        case 'absurd':
+            return {
+                kind: 'absurd',
+                proofOfFalse: substitute(term.proofOfFalse, name, value),
+                resultType: term.resultType,
+            };
+    }
+}
+function substituteTerm(term, name, value) {
+    return substitute(term, name, value);
+}
+// Un paso de β/proyección/case. Estrategia leftmost-outermost.
+// Devuelve el mismo `term` (referencialmente igual) si no había redex.
+function reduceBeta(term) {
+    switch (term.kind) {
+        case 'var':
+            return term;
+        case 'app': {
+            // β en la cabeza
+            if (term.fn.kind === 'abs') {
+                return substitute(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 'fst': {
+            if (term.pair.kind === 'pair')
+                return term.pair.fst;
+            const p2 = reduceBeta(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 = reduceBeta(term.pair);
+            if (p2 !== term.pair)
+                return { kind: 'snd', pair: p2 };
+            return term;
+        }
+        case 'pair': {
+            const f2 = reduceBeta(term.fst);
+            if (f2 !== term.fst)
+                return { kind: 'pair', fst: f2, snd: term.snd };
+            const s2 = reduceBeta(term.snd);
+            if (s2 !== term.snd)
+                return { kind: 'pair', fst: term.fst, snd: s2 };
+            return term;
+        }
+        case 'inl': {
+            const i2 = reduceBeta(term.left);
+            if (i2 !== term.left)
+                return { kind: 'inl', left: i2, rightType: term.rightType };
+            return term;
+        }
+        case 'inr': {
+            const i2 = reduceBeta(term.right);
+            if (i2 !== term.right)
+                return { kind: 'inr', right: i2, leftType: term.leftType };
+            return term;
+        }
+        case 'case': {
+            if (term.scrutinee.kind === 'inl') {
+                return substitute(term.leftBody, term.leftBind, term.scrutinee.left);
+            }
+            if (term.scrutinee.kind === 'inr') {
+                return substitute(term.rightBody, term.rightBind, term.scrutinee.right);
+            }
+            const s2 = reduceBeta(term.scrutinee);
+            if (s2 !== term.scrutinee)
+                return { ...term, scrutinee: s2 };
+            const l2 = reduceBeta(term.leftBody);
+            if (l2 !== term.leftBody)
+                return { ...term, leftBody: l2 };
+            const r2 = reduceBeta(term.rightBody);
+            if (r2 !== term.rightBody)
+                return { ...term, rightBody: r2 };
+            return term;
+        }
+        case 'absurd': {
+            const p2 = reduceBeta(term.proofOfFalse);
+            if (p2 !== term.proofOfFalse)
+                return { kind: 'absurd', proofOfFalse: p2, resultType: term.resultType };
+            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 current;
+        current = next;
+    }
+    return current;
+}
+//# sourceMappingURL=reduce.js.map

package/dist/curry-howard/reduce.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"reduce.js","sourceRoot":"","sources":["../../src/curry-howard/reduce.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,4EAA4E;AAC5E,+DAA+D;AAC/D,EAAE;AACF,wBAAwB;AACxB,mCAAmC;AACnC,8BAA8B;AAC9B,8BAA8B;AAC9B,0CAA0C;AAC1C,2CAA2C;AAC3C,EAAE;AACF,oEAAoE;AACpE,0EAA0E;;AAI1E,4BA8CC;AA6FD,wCAEC;AAID,gCAwEC;AAED,4BAEC;AAED,8BAQC;AAvOD,SAAgB,QAAQ,CAAC,CAAa,EAAE,MAAmB,IAAI,GAAG,EAAE;IAClE,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;QACf,KAAK,KAAK;YACR,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;YAChB,MAAM;QACR,KAAK,KAAK;YACR,QAAQ,CAAC,CAAC,CAAC,EAAE,EAAE,GAAG,CAAC,CAAC;YACpB,QAAQ,CAAC,CAAC,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YACrB,MAAM;QACR,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,MAAM;QACR,CAAC;QACD,KAAK,MAAM;YACT,QAAQ,CAAC,CAAC,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YACrB,QAAQ,CAAC,CAAC,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YACrB,MAAM;QACR,KAAK,KAAK;YACR,QAAQ,CAAC,CAAC,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YACtB,MAAM;QACR,KAAK,KAAK;YACR,QAAQ,CAAC,CAAC,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YACtB,MAAM;QACR,KAAK,KAAK;YACR,QAAQ,CAAC,CAAC,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YACtB,MAAM;QACR,KAAK,KAAK;YACR,QAAQ,CAAC,CAAC,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC;YACvB,MAAM;QACR,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,QAAQ,CAAC,CAAC,CAAC,SAAS,EAAE,GAAG,CAAC,CAAC;YAC3B,MAAM,MAAM,GAAG,QAAQ,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC;YACpC,MAAM,CAAC,MAAM,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC;YAC1B,KAAK,MAAM,CAAC,IAAI,MAAM;gBAAE,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;YACnC,MAAM,MAAM,GAAG,QAAQ,CAAC,CAAC,CAAC,SAAS,CAAC,CAAC;YACrC,MAAM,CAAC,MAAM,CAAC,CAAC,CAAC,SAAS,CAAC,CAAC;YAC3B,KAAK,MAAM,CAAC,IAAI,MAAM;gBAAE,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;YACnC,MAAM;QACR,CAAC;QACD,KAAK,QAAQ;YACX,QAAQ,CAAC,CAAC,CAAC,YAAY,EAAE,GAAG,CAAC,CAAC;YAC9B,MAAM;IACV,CAAC;IACD,OAAO,GAAG,CAAC;AACb,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,uEAAuE;AACvE,SAAS,UAAU,CAAC,IAAgB,EAAE,IAAY,EAAE,KAAiB;IACnE,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,UAAU,CAAC,IAAI,CAAC,EAAE,EAAE,IAAI,EAAE,KAAK,CAAC;gBACpC,GAAG,EAAE,UAAU,CAAC,IAAI,CAAC,GAAG,EAAE,IAAI,EAAE,KAAK,CAAC;aACvC,CAAC;QACJ,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,IAAI,IAAI,CAAC,KAAK,KAAK,IAAI;gBAAE,OAAO,IAAI,CAAC,CAAC,uBAAuB;YAC7D,MAAM,EAAE,GAAG,QAAQ,CAAC,KAAK,CAAC,CAAC;YAC3B,IAAI,EAAE,CAAC,GAAG,CAAC,IAAI,CAAC,KAAK,CAAC,EAAE,CAAC;gBACvB,2BAA2B;gBAC3B,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,WAAW,GAAG,UAAU,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,CAAC,KAAK,EAAE,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,OAAO,EAAE,CAAC,CAAC;gBACtF,OAAO;oBACL,IAAI,EAAE,KAAK;oBACX,KAAK,EAAE,OAAO;oBACd,SAAS,EAAE,IAAI,CAAC,SAAS;oBACzB,IAAI,EAAE,UAAU,CAAC,WAAW,EAAE,IAAI,EAAE,KAAK,CAAC;iBAC3C,CAAC;YACJ,CAAC;YACD,OAAO;gBACL,IAAI,EAAE,KAAK;gBACX,KAAK,EAAE,IAAI,CAAC,KAAK;gBACjB,SAAS,EAAE,IAAI,CAAC,SAAS;gBACzB,IAAI,EAAE,UAAU,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC;aACzC,CAAC;QACJ,CAAC;QACD,KAAK,MAAM;YACT,OAAO;gBACL,IAAI,EAAE,MAAM;gBACZ,GAAG,EAAE,UAAU,CAAC,IAAI,CAAC,GAAG,EAAE,IAAI,EAAE,KAAK,CAAC;gBACtC,GAAG,EAAE,UAAU,CAAC,IAAI,CAAC,GAAG,EAAE,IAAI,EAAE,KAAK,CAAC;aACvC,CAAC;QACJ,KAAK,KAAK;YACR,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,UAAU,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC,EAAE,CAAC;QACnE,KAAK,KAAK;YACR,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,UAAU,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC,EAAE,CAAC;QACnE,KAAK,KAAK;YACR,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,UAAU,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC,EAAE,SAAS,EAAE,IAAI,CAAC,SAAS,EAAE,CAAC;QAC9F,KAAK,KAAK;YACR,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,UAAU,CAAC,IAAI,CAAC,KAAK,EAAE,IAAI,EAAE,KAAK,CAAC,EAAE,QAAQ,EAAE,IAAI,CAAC,QAAQ,EAAE,CAAC;QAC9F,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,MAAM,SAAS,GAAG,UAAU,CAAC,IAAI,CAAC,SAAS,EAAE,IAAI,EAAE,KAAK,CAAC,CAAC;YAC1D,MAAM,EAAE,GAAG,QAAQ,CAAC,KAAK,CAAC,CAAC;YAC3B,IAAI,EAAE,QAAQ,EAAE,SAAS,EAAE,QAAQ,EAAE,SAAS,EAAE,GAAG,IAAI,CAAC;YACxD,IAAI,QAAQ,KAAK,IAAI,EAAE,CAAC;gBACtB,IAAI,EAAE,CAAC,GAAG,CAAC,QAAQ,CAAC,EAAE,CAAC;oBACrB,MAAM,EAAE,GAAG,KAAK,CAAC,QAAQ,EAAE,IAAI,GAAG,CAAC,CAAC,GAAG,EAAE,EAAE,GAAG,QAAQ,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,CAAC;oBACpE,QAAQ,GAAG,UAAU,CAAC,QAAQ,EAAE,QAAQ,EAAE,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC,CAAC;oBACrE,QAAQ,GAAG,EAAE,CAAC;gBAChB,CAAC;gBACD,QAAQ,GAAG,UAAU,CAAC,QAAQ,EAAE,IAAI,EAAE,KAAK,CAAC,CAAC;YAC/C,CAAC;YACD,IAAI,SAAS,KAAK,IAAI,EAAE,CAAC;gBACvB,IAAI,EAAE,CAAC,GAAG,CAAC,SAAS,CAAC,EAAE,CAAC;oBACtB,MAAM,EAAE,GAAG,KAAK,CAAC,SAAS,EAAE,IAAI,GAAG,CAAC,CAAC,GAAG,EAAE,EAAE,GAAG,QAAQ,CAAC,SAAS,CAAC,CAAC,CAAC,CAAC,CAAC;oBACtE,SAAS,GAAG,UAAU,CAAC,SAAS,EAAE,SAAS,EAAE,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC,CAAC;oBACxE,SAAS,GAAG,EAAE,CAAC;gBACjB,CAAC;gBACD,SAAS,GAAG,UAAU,CAAC,SAAS,EAAE,IAAI,EAAE,KAAK,CAAC,CAAC;YACjD,CAAC;YACD,OAAO;gBACL,IAAI,EAAE,MAAM;gBACZ,SAAS;gBACT,QAAQ;gBACR,QAAQ;gBACR,SAAS;gBACT,SAAS;aACV,CAAC;QACJ,CAAC;QACD,KAAK,QAAQ;YACX,OAAO;gBACL,IAAI,EAAE,QAAQ;gBACd,YAAY,EAAE,UAAU,CAAC,IAAI,CAAC,YAAY,EAAE,IAAI,EAAE,KAAK,CAAC;gBACxD,UAAU,EAAE,IAAI,CAAC,UAAU;aAC5B,CAAC;IACN,CAAC;AACH,CAAC;AAED,SAAgB,cAAc,CAAC,IAAgB,EAAE,IAAY,EAAE,KAAiB;IAC9E,OAAO,UAAU,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC,CAAC;AACvC,CAAC;AAED,+DAA+D;AAC/D,uEAAuE;AACvE,SAAgB,UAAU,CAAC,IAAgB;IACzC,QAAQ,IAAI,CAAC,IAAI,EAAE,CAAC;QAClB,KAAK,KAAK;YACR,OAAO,IAAI,CAAC;QACd,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,iBAAiB;YACjB,IAAI,IAAI,CAAC,EAAE,CAAC,IAAI,KAAK,KAAK,EAAE,CAAC;gBAC3B,OAAO,UAAU,CAAC,IAAI,CAAC,EAAE,CAAC,IAAI,EAAE,IAAI,CAAC,EAAE,CAAC,KAAK,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC;YAC3D,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,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,UAAU,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACjC,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,UAAU,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACjC,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,UAAU,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;YAChC,IAAI,EAAE,KAAK,IAAI,CAAC,GAAG;gBAAE,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,GAAG,EAAE,EAAE,EAAE,GAAG,EAAE,IAAI,CAAC,GAAG,EAAE,CAAC;YACrE,MAAM,EAAE,GAAG,UAAU,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;YAChC,IAAI,EAAE,KAAK,IAAI,CAAC,GAAG;gBAAE,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,GAAG,EAAE,IAAI,CAAC,GAAG,EAAE,GAAG,EAAE,EAAE,EAAE,CAAC;YACrE,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;gBAAE,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,EAAE,EAAE,SAAS,EAAE,IAAI,CAAC,SAAS,EAAE,CAAC;YAClF,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,EAAE,GAAG,UAAU,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;YAClC,IAAI,EAAE,KAAK,IAAI,CAAC,KAAK;gBAAE,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,EAAE,EAAE,QAAQ,EAAE,IAAI,CAAC,QAAQ,EAAE,CAAC;YAClF,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,IAAI,IAAI,CAAC,SAAS,CAAC,IAAI,KAAK,KAAK,EAAE,CAAC;gBAClC,OAAO,UAAU,CAAC,IAAI,CAAC,QAAQ,EAAE,IAAI,CAAC,QAAQ,EAAE,IAAI,CAAC,SAAS,CAAC,IAAI,CAAC,CAAC;YACvE,CAAC;YACD,IAAI,IAAI,CAAC,SAAS,CAAC,IAAI,KAAK,KAAK,EAAE,CAAC;gBAClC,OAAO,UAAU,CAAC,IAAI,CAAC,SAAS,EAAE,IAAI,CAAC,SAAS,EAAE,IAAI,CAAC,SAAS,CAAC,KAAK,CAAC,CAAC;YAC1E,CAAC;YACD,MAAM,EAAE,GAAG,UAAU,CAAC,IAAI,CAAC,SAAS,CAAC,CAAC;YACtC,IAAI,EAAE,KAAK,IAAI,CAAC,SAAS;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,SAAS,EAAE,EAAE,EAAE,CAAC;YAC7D,MAAM,EAAE,GAAG,UAAU,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC;YACrC,IAAI,EAAE,KAAK,IAAI,CAAC,QAAQ;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,QAAQ,EAAE,EAAE,EAAE,CAAC;YAC3D,MAAM,EAAE,GAAG,UAAU,CAAC,IAAI,CAAC,SAAS,CAAC,CAAC;YACtC,IAAI,EAAE,KAAK,IAAI,CAAC,SAAS;gBAAE,OAAO,EAAE,GAAG,IAAI,EAAE,SAAS,EAAE,EAAE,EAAE,CAAC;YAC7D,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,QAAQ,CAAC,CAAC,CAAC;YACd,MAAM,EAAE,GAAG,UAAU,CAAC,IAAI,CAAC,YAAY,CAAC,CAAC;YACzC,IAAI,EAAE,KAAK,IAAI,CAAC,YAAY;gBAC1B,OAAO,EAAE,IAAI,EAAE,QAAQ,EAAE,YAAY,EAAE,EAAE,EAAE,UAAU,EAAE,IAAI,CAAC,UAAU,EAAE,CAAC;YAC3E,OAAO,IAAI,CAAC;QACd,CAAC;IACH,CAAC;AACH,CAAC;AAED,SAAgB,QAAQ,CAAC,IAAgB;IACvC,OAAO,UAAU,CAAC,IAAI,CAAC,KAAK,IAAI,CAAC;AACnC,CAAC;AAED,SAAgB,SAAS,CAAC,IAAgB,EAAE,QAAQ,GAAG,IAAI;IACzD,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,OAAO,CAAC;QACrC,OAAO,GAAG,IAAI,CAAC;IACjB,CAAC;IACD,OAAO,OAAO,CAAC;AACjB,CAAC"}