@stevenvo780/st-lang 4.3.0 → 4.5.0

package/dist/tests/mltt/mltt.test.js

@@ -0,0 +1,181 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+const vitest_1 = require("vitest");
+const mltt_1 = require("../../mltt");
+function unwrap(r) {
+    if ((0, mltt_1.isInferError)(r))
+        throw new Error(`unexpected error: ${r.error}`);
+    return r;
+}
+(0, vitest_1.describe)('MLTT / inferType — núcleo', () => {
+    (0, vitest_1.it)('λ (x : Nat). x infiere Π (x : Nat). Nat', () => {
+        const term = (0, mltt_1.mLam)('x', (0, mltt_1.mNat)(), (0, mltt_1.mVar)('x'));
+        const t = unwrap((0, mltt_1.inferType)(term));
+        (0, vitest_1.expect)((0, mltt_1.termToString)(t)).toBe('(Nat → Nat)');
+    });
+    (0, vitest_1.it)('zero : Nat', () => {
+        const t = unwrap((0, mltt_1.inferType)((0, mltt_1.mZero)()));
+        (0, vitest_1.expect)(t.kind).toBe('nat');
+    });
+    (0, vitest_1.it)('succ (succ zero) : Nat', () => {
+        const t = unwrap((0, mltt_1.inferType)((0, mltt_1.mSucc)((0, mltt_1.mSucc)((0, mltt_1.mZero)()))));
+        (0, vitest_1.expect)(t.kind).toBe('nat');
+    });
+    (0, vitest_1.it)('refl(zero) : Id(Nat, zero, zero)', () => {
+        const t = unwrap((0, mltt_1.inferType)((0, mltt_1.mRefl)((0, mltt_1.mZero)())));
+        (0, vitest_1.expect)(t.kind).toBe('identity');
+        (0, vitest_1.expect)((0, mltt_1.termToString)(t)).toBe('Id(Nat, zero, zero)');
+    });
+    (0, vitest_1.it)('Π (x : Nat). Nat : Type 0', () => {
+        const t = unwrap((0, mltt_1.inferType)((0, mltt_1.mPi)('x', (0, mltt_1.mNat)(), (0, mltt_1.mNat)())));
+        (0, vitest_1.expect)((0, mltt_1.termToString)(t)).toBe('Type');
+        (0, vitest_1.expect)(t.kind === 'universe' && t.level === 0).toBe(true);
+    });
+    (0, vitest_1.it)('Π (A : Type). Π (x : A). A : Type 1 (universo polimórfico simple)', () => {
+        const term = (0, mltt_1.mPi)('A', (0, mltt_1.mUniverse)(0), (0, mltt_1.mPi)('x', (0, mltt_1.mVar)('A'), (0, mltt_1.mVar)('A')));
+        const t = unwrap((0, mltt_1.inferType)(term));
+        (0, vitest_1.expect)(t.kind === 'universe' && t.level === 1).toBe(true);
+    });
+    (0, vitest_1.it)('Type 0 : Type 1', () => {
+        const t = unwrap((0, mltt_1.inferType)((0, mltt_1.mUniverse)(0)));
+        (0, vitest_1.expect)(t.kind === 'universe' && t.level === 1).toBe(true);
+    });
+    (0, vitest_1.it)('Type 3 : Type 4', () => {
+        const t = unwrap((0, mltt_1.inferType)((0, mltt_1.mUniverse)(3)));
+        (0, vitest_1.expect)(t.kind === 'universe' && t.level === 4).toBe(true);
+    });
+    (0, vitest_1.it)('Nat : Type 0', () => {
+        const t = unwrap((0, mltt_1.inferType)((0, mltt_1.mNat)()));
+        (0, vitest_1.expect)(t.kind === 'universe' && t.level === 0).toBe(true);
+    });
+    (0, vitest_1.it)('aplicación bien-tipada: (λ x:Nat. x) zero : Nat', () => {
+        const term = (0, mltt_1.mApp)((0, mltt_1.mLam)('x', (0, mltt_1.mNat)(), (0, mltt_1.mVar)('x')), (0, mltt_1.mZero)());
+        const t = unwrap((0, mltt_1.inferType)(term));
+        (0, vitest_1.expect)(t.kind).toBe('nat');
+    });
+    (0, vitest_1.it)('aplicación dependiente: identidad polimórfica aplicada a Nat y zero', () => {
+        // id : Π (A : Type). Π (x : A). A
+        const id = (0, mltt_1.mLam)('A', (0, mltt_1.mUniverse)(0), (0, mltt_1.mLam)('x', (0, mltt_1.mVar)('A'), (0, mltt_1.mVar)('x')));
+        const t = unwrap((0, mltt_1.inferType)(id));
+        // (id Nat) : Π (x : Nat). Nat
+        const idNat = (0, mltt_1.mApp)(id, (0, mltt_1.mNat)());
+        const tIdNat = unwrap((0, mltt_1.inferType)(idNat));
+        (0, vitest_1.expect)((0, mltt_1.normalize)(tIdNat).kind).toBe('pi');
+        // (id Nat zero) : Nat
+        const idNatZero = (0, mltt_1.mApp)(idNat, (0, mltt_1.mZero)());
+        const tIdNatZero = unwrap((0, mltt_1.inferType)(idNatZero));
+        (0, vitest_1.expect)((0, mltt_1.normalize)(tIdNatZero).kind).toBe('nat');
+        (0, vitest_1.expect)(t.kind).toBe('pi');
+    });
+    (0, vitest_1.it)('rechaza variable libre sin contexto', () => {
+        const r = (0, mltt_1.inferType)((0, mltt_1.mVar)('x'));
+        (0, vitest_1.expect)((0, mltt_1.isInferError)(r)).toBe(true);
+    });
+    (0, vitest_1.it)('rechaza aplicación con argumento de tipo incorrecto', () => {
+        // (λ x:Nat. x) Type   → error
+        const term = (0, mltt_1.mApp)((0, mltt_1.mLam)('x', (0, mltt_1.mNat)(), (0, mltt_1.mVar)('x')), (0, mltt_1.mUniverse)(0));
+        const r = (0, mltt_1.inferType)(term);
+        (0, vitest_1.expect)((0, mltt_1.isInferError)(r)).toBe(true);
+    });
+    (0, vitest_1.it)('rechaza refl(a) si los lados no concuerdan en Id explícito mal armado', () => {
+        // Id(Nat, zero, Type) — derecha no es Nat
+        const term = (0, mltt_1.mId)((0, mltt_1.mNat)(), (0, mltt_1.mZero)(), (0, mltt_1.mUniverse)(0));
+        const r = (0, mltt_1.inferType)(term);
+        (0, vitest_1.expect)((0, mltt_1.isInferError)(r)).toBe(true);
+    });
+});
+(0, vitest_1.describe)('MLTT / Σ pares dependientes', () => {
+    (0, vitest_1.it)('pair ⟨zero, zero⟩ infiere Σ (_ : Nat). Nat', () => {
+        const t = unwrap((0, mltt_1.inferType)((0, mltt_1.mPair)((0, mltt_1.mZero)(), (0, mltt_1.mZero)())));
+        (0, vitest_1.expect)(t.kind).toBe('sigma');
+    });
+    (0, vitest_1.it)('fst ⟨zero, succ zero⟩ ↦ zero (ι1)', () => {
+        const p = (0, mltt_1.mPair)((0, mltt_1.mZero)(), (0, mltt_1.mSucc)((0, mltt_1.mZero)()));
+        (0, vitest_1.expect)((0, mltt_1.alphaEq)((0, mltt_1.normalize)((0, mltt_1.mFst)(p)), (0, mltt_1.mZero)())).toBe(true);
+    });
+    (0, vitest_1.it)('snd ⟨zero, succ zero⟩ ↦ succ zero (ι2)', () => {
+        const p = (0, mltt_1.mPair)((0, mltt_1.mZero)(), (0, mltt_1.mSucc)((0, mltt_1.mZero)()));
+        (0, vitest_1.expect)((0, mltt_1.alphaEq)((0, mltt_1.normalize)((0, mltt_1.mSnd)(p)), (0, mltt_1.mSucc)((0, mltt_1.mZero)()))).toBe(true);
+    });
+    (0, vitest_1.it)('checkType acepta ⟨zero, refl zero⟩ : Σ (n : Nat). Id(Nat, n, n)', () => {
+        const sigma = (0, mltt_1.mSigma)('n', (0, mltt_1.mNat)(), (0, mltt_1.mId)((0, mltt_1.mNat)(), (0, mltt_1.mVar)('n'), (0, mltt_1.mVar)('n')));
+        const pair = (0, mltt_1.mPair)((0, mltt_1.mZero)(), (0, mltt_1.mRefl)((0, mltt_1.mZero)()));
+        (0, vitest_1.expect)((0, mltt_1.checkType)(pair, sigma)).toBe(true);
+    });
+    (0, vitest_1.it)('checkType rechaza ⟨succ zero, refl zero⟩ : Σ (n : Nat). Id(Nat, n, n)', () => {
+        const sigma = (0, mltt_1.mSigma)('n', (0, mltt_1.mNat)(), (0, mltt_1.mId)((0, mltt_1.mNat)(), (0, mltt_1.mVar)('n'), (0, mltt_1.mVar)('n')));
+        const pair = (0, mltt_1.mPair)((0, mltt_1.mSucc)((0, mltt_1.mZero)()), (0, mltt_1.mRefl)((0, mltt_1.mZero)()));
+        (0, vitest_1.expect)((0, mltt_1.checkType)(pair, sigma)).toBe(false);
+    });
+    (0, vitest_1.it)('Σ (n : Nat). Nat : Type 0', () => {
+        const t = unwrap((0, mltt_1.inferType)((0, mltt_1.mSigma)('n', (0, mltt_1.mNat)(), (0, mltt_1.mNat)())));
+        (0, vitest_1.expect)(t.kind === 'universe' && t.level === 0).toBe(true);
+    });
+});
+(0, vitest_1.describe)('MLTT / β-reducción y normalización', () => {
+    (0, vitest_1.it)('(λ x:Nat. x) zero β→ zero', () => {
+        const t = (0, mltt_1.mApp)((0, mltt_1.mLam)('x', (0, mltt_1.mNat)(), (0, mltt_1.mVar)('x')), (0, mltt_1.mZero)());
+        (0, vitest_1.expect)((0, mltt_1.alphaEq)((0, mltt_1.reduceStep)(t), (0, mltt_1.mZero)())).toBe(true);
+    });
+    (0, vitest_1.it)('normalize idempotente sobre forma normal (succ zero)', () => {
+        (0, vitest_1.expect)((0, mltt_1.isNormal)((0, mltt_1.mSucc)((0, mltt_1.mZero)()))).toBe(true);
+        (0, vitest_1.expect)((0, mltt_1.alphaEq)((0, mltt_1.normalize)((0, mltt_1.mSucc)((0, mltt_1.mZero)())), (0, mltt_1.mSucc)((0, mltt_1.mZero)()))).toBe(true);
+    });
+    (0, vitest_1.it)('alphaBetaEq: (λ x:Nat. x) zero ≡ zero', () => {
+        (0, vitest_1.expect)((0, mltt_1.alphaBetaEq)((0, mltt_1.mApp)((0, mltt_1.mLam)('x', (0, mltt_1.mNat)(), (0, mltt_1.mVar)('x')), (0, mltt_1.mZero)()), (0, mltt_1.mZero)())).toBe(true);
+    });
+    (0, vitest_1.it)('alphaBetaEq distingue zero y succ zero', () => {
+        (0, vitest_1.expect)((0, mltt_1.alphaBetaEq)((0, mltt_1.mZero)(), (0, mltt_1.mSucc)((0, mltt_1.mZero)()))).toBe(false);
+    });
+    (0, vitest_1.it)('α-equivalencia: λ x:Nat. x ≡ λ y:Nat. y', () => {
+        const a = (0, mltt_1.mLam)('x', (0, mltt_1.mNat)(), (0, mltt_1.mVar)('x'));
+        const b = (0, mltt_1.mLam)('y', (0, mltt_1.mNat)(), (0, mltt_1.mVar)('y'));
+        (0, vitest_1.expect)((0, mltt_1.alphaEq)(a, b)).toBe(true);
+    });
+    (0, vitest_1.it)('reducción dentro de Π: Π (_ : (λx:Type. x) Nat). Nat normaliza a Nat → Nat', () => {
+        // dominio aplica una λ que reduce a Nat
+        const reducingDom = (0, mltt_1.mApp)((0, mltt_1.mLam)('x', (0, mltt_1.mUniverse)(0), (0, mltt_1.mVar)('x')), (0, mltt_1.mNat)());
+        const term = (0, mltt_1.mPi)('_', reducingDom, (0, mltt_1.mNat)());
+        const nf = (0, mltt_1.normalize)(term);
+        (0, vitest_1.expect)((0, mltt_1.alphaEq)(nf, (0, mltt_1.mArrow)((0, mltt_1.mNat)(), (0, mltt_1.mNat)()))).toBe(true);
+    });
+});
+(0, vitest_1.describe)('MLTT / checkType bidireccional', () => {
+    (0, vitest_1.it)('checkType acepta λ (x : Nat). x contra Nat → Nat', () => {
+        const term = (0, mltt_1.mLam)('x', (0, mltt_1.mNat)(), (0, mltt_1.mVar)('x'));
+        (0, vitest_1.expect)((0, mltt_1.checkType)(term, (0, mltt_1.mArrow)((0, mltt_1.mNat)(), (0, mltt_1.mNat)()))).toBe(true);
+    });
+    (0, vitest_1.it)('checkType acepta zero : Nat', () => {
+        (0, vitest_1.expect)((0, mltt_1.checkType)((0, mltt_1.mZero)(), (0, mltt_1.mNat)())).toBe(true);
+    });
+    (0, vitest_1.it)('checkType rechaza zero : Type', () => {
+        (0, vitest_1.expect)((0, mltt_1.checkType)((0, mltt_1.mZero)(), (0, mltt_1.mUniverse)(0))).toBe(false);
+    });
+    (0, vitest_1.it)('checkType acepta refl(succ zero) : Id(Nat, succ zero, succ zero)', () => {
+        (0, vitest_1.expect)((0, mltt_1.checkType)((0, mltt_1.mRefl)((0, mltt_1.mSucc)((0, mltt_1.mZero)())), (0, mltt_1.mId)((0, mltt_1.mNat)(), (0, mltt_1.mSucc)((0, mltt_1.mZero)()), (0, mltt_1.mSucc)((0, mltt_1.mZero)())))).toBe(true);
+    });
+    (0, vitest_1.it)('occursFree detecta dependencia en codomain de Π', () => {
+        // Π (x : Nat). Id(Nat, x, x)  — x ocurre libre en codomain
+        const term = (0, mltt_1.mPi)('x', (0, mltt_1.mNat)(), (0, mltt_1.mId)((0, mltt_1.mNat)(), (0, mltt_1.mVar)('x'), (0, mltt_1.mVar)('x')));
+        if (term.kind !== 'pi')
+            throw new Error('expected pi');
+        (0, vitest_1.expect)((0, mltt_1.occursFree)('x', term.codomain)).toBe(true);
+    });
+    (0, vitest_1.it)('occursFree falso para familia constante Π (x : Nat). Nat', () => {
+        const term = (0, mltt_1.mPi)('x', (0, mltt_1.mNat)(), (0, mltt_1.mNat)());
+        if (term.kind !== 'pi')
+            throw new Error('expected pi');
+        (0, vitest_1.expect)((0, mltt_1.occursFree)('x', term.codomain)).toBe(false);
+    });
+});
+(0, vitest_1.describe)('MLTT / serialización', () => {
+    (0, vitest_1.it)('termToString para Π (x : Nat). Id(Nat, x, x)', () => {
+        const term = (0, mltt_1.mPi)('x', (0, mltt_1.mNat)(), (0, mltt_1.mId)((0, mltt_1.mNat)(), (0, mltt_1.mVar)('x'), (0, mltt_1.mVar)('x')));
+        (0, vitest_1.expect)((0, mltt_1.termToString)(term)).toBe('(Π (x : Nat). Id(Nat, x, x))');
+    });
+    (0, vitest_1.it)('termToString colapsa Π no-dependiente a →', () => {
+        const term = (0, mltt_1.mPi)('x', (0, mltt_1.mNat)(), (0, mltt_1.mNat)());
+        (0, vitest_1.expect)((0, mltt_1.termToString)(term)).toBe('(Nat → Nat)');
+    });
+});
+//# sourceMappingURL=mltt.test.js.map

package/dist/tests/mltt/mltt.test.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"mltt.test.js","sourceRoot":"","sources":["../../../src/tests/mltt/mltt.test.ts"],"names":[],"mappings":";;AAAA,mCAA8C;AAC9C,qCA2BoB;AAEpB,SAAS,MAAM,CAAC,CAA+B;IAC7C,IAAI,IAAA,mBAAY,EAAC,CAAC,CAAC;QAAE,MAAM,IAAI,KAAK,CAAC,qBAAqB,CAAC,CAAC,KAAK,EAAE,CAAC,CAAC;IACrE,OAAO,CAAC,CAAC;AACX,CAAC;AAED,IAAA,iBAAQ,EAAC,2BAA2B,EAAE,GAAG,EAAE;IACzC,IAAA,WAAE,EAAC,yCAAyC,EAAE,GAAG,EAAE;QACjD,MAAM,IAAI,GAAG,IAAA,WAAI,EAAC,GAAG,EAAE,IAAA,WAAI,GAAE,EAAE,IAAA,WAAI,EAAC,GAAG,CAAC,CAAC,CAAC;QAC1C,MAAM,CAAC,GAAG,MAAM,CAAC,IAAA,gBAAS,EAAC,IAAI,CAAC,CAAC,CAAC;QAClC,IAAA,eAAM,EAAC,IAAA,mBAAY,EAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,aAAa,CAAC,CAAC;IAC9C,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,YAAY,EAAE,GAAG,EAAE;QACpB,MAAM,CAAC,GAAG,MAAM,CAAC,IAAA,gBAAS,EAAC,IAAA,YAAK,GAAE,CAAC,CAAC,CAAC;QACrC,IAAA,eAAM,EAAC,CAAC,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;IAC7B,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,wBAAwB,EAAE,GAAG,EAAE;QAChC,MAAM,CAAC,GAAG,MAAM,CAAC,IAAA,gBAAS,EAAC,IAAA,YAAK,EAAC,IAAA,YAAK,EAAC,IAAA,YAAK,GAAE,CAAC,CAAC,CAAC,CAAC,CAAC;QACnD,IAAA,eAAM,EAAC,CAAC,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;IAC7B,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,kCAAkC,EAAE,GAAG,EAAE;QAC1C,MAAM,CAAC,GAAG,MAAM,CAAC,IAAA,gBAAS,EAAC,IAAA,YAAK,EAAC,IAAA,YAAK,GAAE,CAAC,CAAC,CAAC,CAAC;QAC5C,IAAA,eAAM,EAAC,CAAC,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,UAAU,CAAC,CAAC;QAChC,IAAA,eAAM,EAAC,IAAA,mBAAY,EAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,qBAAqB,CAAC,CAAC;IACtD,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,2BAA2B,EAAE,GAAG,EAAE;QACnC,MAAM,CAAC,GAAG,MAAM,CAAC,IAAA,gBAAS,EAAC,IAAA,UAAG,EAAC,GAAG,EAAE,IAAA,WAAI,GAAE,EAAE,IAAA,WAAI,GAAE,CAAC,CAAC,CAAC,CAAC;QACtD,IAAA,eAAM,EAAC,IAAA,mBAAY,EAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC;QACrC,IAAA,eAAM,EAAC,CAAC,CAAC,IAAI,KAAK,UAAU,IAAI,CAAC,CAAC,KAAK,KAAK,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IAC5D,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,mEAAmE,EAAE,GAAG,EAAE;QAC3E,MAAM,IAAI,GAAG,IAAA,UAAG,EAAC,GAAG,EAAE,IAAA,gBAAS,EAAC,CAAC,CAAC,EAAE,IAAA,UAAG,EAAC,GAAG,EAAE,IAAA,WAAI,EAAC,GAAG,CAAC,EAAE,IAAA,WAAI,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC;QACpE,MAAM,CAAC,GAAG,MAAM,CAAC,IAAA,gBAAS,EAAC,IAAI,CAAC,CAAC,CAAC;QAClC,IAAA,eAAM,EAAC,CAAC,CAAC,IAAI,KAAK,UAAU,IAAI,CAAC,CAAC,KAAK,KAAK,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IAC5D,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,iBAAiB,EAAE,GAAG,EAAE;QACzB,MAAM,CAAC,GAAG,MAAM,CAAC,IAAA,gBAAS,EAAC,IAAA,gBAAS,EAAC,CAAC,CAAC,CAAC,CAAC,CAAC;QAC1C,IAAA,eAAM,EAAC,CAAC,CAAC,IAAI,KAAK,UAAU,IAAI,CAAC,CAAC,KAAK,KAAK,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IAC5D,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,iBAAiB,EAAE,GAAG,EAAE;QACzB,MAAM,CAAC,GAAG,MAAM,CAAC,IAAA,gBAAS,EAAC,IAAA,gBAAS,EAAC,CAAC,CAAC,CAAC,CAAC,CAAC;QAC1C,IAAA,eAAM,EAAC,CAAC,CAAC,IAAI,KAAK,UAAU,IAAI,CAAC,CAAC,KAAK,KAAK,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IAC5D,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,cAAc,EAAE,GAAG,EAAE;QACtB,MAAM,CAAC,GAAG,MAAM,CAAC,IAAA,gBAAS,EAAC,IAAA,WAAI,GAAE,CAAC,CAAC,CAAC;QACpC,IAAA,eAAM,EAAC,CAAC,CAAC,IAAI,KAAK,UAAU,IAAI,CAAC,CAAC,KAAK,KAAK,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IAC5D,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,iDAAiD,EAAE,GAAG,EAAE;QACzD,MAAM,IAAI,GAAG,IAAA,WAAI,EAAC,IAAA,WAAI,EAAC,GAAG,EAAE,IAAA,WAAI,GAAE,EAAE,IAAA,WAAI,EAAC,GAAG,CAAC,CAAC,EAAE,IAAA,YAAK,GAAE,CAAC,CAAC;QACzD,MAAM,CAAC,GAAG,MAAM,CAAC,IAAA,gBAAS,EAAC,IAAI,CAAC,CAAC,CAAC;QAClC,IAAA,eAAM,EAAC,CAAC,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;IAC7B,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,qEAAqE,EAAE,GAAG,EAAE;QAC7E,kCAAkC;QAClC,MAAM,EAAE,GAAG,IAAA,WAAI,EAAC,GAAG,EAAE,IAAA,gBAAS,EAAC,CAAC,CAAC,EAAE,IAAA,WAAI,EAAC,GAAG,EAAE,IAAA,WAAI,EAAC,GAAG,CAAC,EAAE,IAAA,WAAI,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC;QACpE,MAAM,CAAC,GAAG,MAAM,CAAC,IAAA,gBAAS,EAAC,EAAE,CAAC,CAAC,CAAC;QAChC,8BAA8B;QAC9B,MAAM,KAAK,GAAG,IAAA,WAAI,EAAC,EAAE,EAAE,IAAA,WAAI,GAAE,CAAC,CAAC;QAC/B,MAAM,MAAM,GAAG,MAAM,CAAC,IAAA,gBAAS,EAAC,KAAK,CAAC,CAAC,CAAC;QACxC,IAAA,eAAM,EAAC,IAAA,gBAAS,EAAC,MAAM,CAAC,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QAC1C,sBAAsB;QACtB,MAAM,SAAS,GAAG,IAAA,WAAI,EAAC,KAAK,EAAE,IAAA,YAAK,GAAE,CAAC,CAAC;QACvC,MAAM,UAAU,GAAG,MAAM,CAAC,IAAA,gBAAS,EAAC,SAAS,CAAC,CAAC,CAAC;QAChD,IAAA,eAAM,EAAC,IAAA,gBAAS,EAAC,UAAU,CAAC,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;QAC/C,IAAA,eAAM,EAAC,CAAC,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IAC5B,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,qCAAqC,EAAE,GAAG,EAAE;QAC7C,MAAM,CAAC,GAAG,IAAA,gBAAS,EAAC,IAAA,WAAI,EAAC,GAAG,CAAC,CAAC,CAAC;QAC/B,IAAA,eAAM,EAAC,IAAA,mBAAY,EAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACrC,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,qDAAqD,EAAE,GAAG,EAAE;QAC7D,8BAA8B;QAC9B,MAAM,IAAI,GAAG,IAAA,WAAI,EAAC,IAAA,WAAI,EAAC,GAAG,EAAE,IAAA,WAAI,GAAE,EAAE,IAAA,WAAI,EAAC,GAAG,CAAC,CAAC,EAAE,IAAA,gBAAS,EAAC,CAAC,CAAC,CAAC,CAAC;QAC9D,MAAM,CAAC,GAAG,IAAA,gBAAS,EAAC,IAAI,CAAC,CAAC;QAC1B,IAAA,eAAM,EAAC,IAAA,mBAAY,EAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACrC,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,uEAAuE,EAAE,GAAG,EAAE;QAC/E,0CAA0C;QAC1C,MAAM,IAAI,GAAG,IAAA,UAAG,EAAC,IAAA,WAAI,GAAE,EAAE,IAAA,YAAK,GAAE,EAAE,IAAA,gBAAS,EAAC,CAAC,CAAC,CAAC,CAAC;QAChD,MAAM,CAAC,GAAG,IAAA,gBAAS,EAAC,IAAI,CAAC,CAAC;QAC1B,IAAA,eAAM,EAAC,IAAA,mBAAY,EAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACrC,CAAC,CAAC,CAAC;AACL,CAAC,CAAC,CAAC;AAEH,IAAA,iBAAQ,EAAC,6BAA6B,EAAE,GAAG,EAAE;IAC3C,IAAA,WAAE,EAAC,4CAA4C,EAAE,GAAG,EAAE;QACpD,MAAM,CAAC,GAAG,MAAM,CAAC,IAAA,gBAAS,EAAC,IAAA,YAAK,EAAC,IAAA,YAAK,GAAE,EAAE,IAAA,YAAK,GAAE,CAAC,CAAC,CAAC,CAAC;QACrD,IAAA,eAAM,EAAC,CAAC,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,OAAO,CAAC,CAAC;IAC/B,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,mCAAmC,EAAE,GAAG,EAAE;QAC3C,MAAM,CAAC,GAAG,IAAA,YAAK,EAAC,IAAA,YAAK,GAAE,EAAE,IAAA,YAAK,EAAC,IAAA,YAAK,GAAE,CAAC,CAAC,CAAC;QACzC,IAAA,eAAM,EAAC,IAAA,cAAO,EAAC,IAAA,gBAAS,EAAC,IAAA,WAAI,EAAC,CAAC,CAAC,CAAC,EAAE,IAAA,YAAK,GAAE,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IAC1D,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,wCAAwC,EAAE,GAAG,EAAE;QAChD,MAAM,CAAC,GAAG,IAAA,YAAK,EAAC,IAAA,YAAK,GAAE,EAAE,IAAA,YAAK,EAAC,IAAA,YAAK,GAAE,CAAC,CAAC,CAAC;QACzC,IAAA,eAAM,EAAC,IAAA,cAAO,EAAC,IAAA,gBAAS,EAAC,IAAA,WAAI,EAAC,CAAC,CAAC,CAAC,EAAE,IAAA,YAAK,EAAC,IAAA,YAAK,GAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACjE,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,iEAAiE,EAAE,GAAG,EAAE;QACzE,MAAM,KAAK,GAAG,IAAA,aAAM,EAAC,GAAG,EAAE,IAAA,WAAI,GAAE,EAAE,IAAA,UAAG,EAAC,IAAA,WAAI,GAAE,EAAE,IAAA,WAAI,EAAC,GAAG,CAAC,EAAE,IAAA,WAAI,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC;QACrE,MAAM,IAAI,GAAG,IAAA,YAAK,EAAC,IAAA,YAAK,GAAE,EAAE,IAAA,YAAK,EAAC,IAAA,YAAK,GAAE,CAAC,CAAC,CAAC;QAC5C,IAAA,eAAM,EAAC,IAAA,gBAAS,EAAC,IAAI,EAAE,KAAK,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IAC5C,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,uEAAuE,EAAE,GAAG,EAAE;QAC/E,MAAM,KAAK,GAAG,IAAA,aAAM,EAAC,GAAG,EAAE,IAAA,WAAI,GAAE,EAAE,IAAA,UAAG,EAAC,IAAA,WAAI,GAAE,EAAE,IAAA,WAAI,EAAC,GAAG,CAAC,EAAE,IAAA,WAAI,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC;QACrE,MAAM,IAAI,GAAG,IAAA,YAAK,EAAC,IAAA,YAAK,EAAC,IAAA,YAAK,GAAE,CAAC,EAAE,IAAA,YAAK,EAAC,IAAA,YAAK,GAAE,CAAC,CAAC,CAAC;QACnD,IAAA,eAAM,EAAC,IAAA,gBAAS,EAAC,IAAI,EAAE,KAAK,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;IAC7C,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,2BAA2B,EAAE,GAAG,EAAE;QACnC,MAAM,CAAC,GAAG,MAAM,CAAC,IAAA,gBAAS,EAAC,IAAA,aAAM,EAAC,GAAG,EAAE,IAAA,WAAI,GAAE,EAAE,IAAA,WAAI,GAAE,CAAC,CAAC,CAAC,CAAC;QACzD,IAAA,eAAM,EAAC,CAAC,CAAC,IAAI,KAAK,UAAU,IAAI,CAAC,CAAC,KAAK,KAAK,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IAC5D,CAAC,CAAC,CAAC;AACL,CAAC,CAAC,CAAC;AAEH,IAAA,iBAAQ,EAAC,oCAAoC,EAAE,GAAG,EAAE;IAClD,IAAA,WAAE,EAAC,2BAA2B,EAAE,GAAG,EAAE;QACnC,MAAM,CAAC,GAAG,IAAA,WAAI,EAAC,IAAA,WAAI,EAAC,GAAG,EAAE,IAAA,WAAI,GAAE,EAAE,IAAA,WAAI,EAAC,GAAG,CAAC,CAAC,EAAE,IAAA,YAAK,GAAE,CAAC,CAAC;QACtD,IAAA,eAAM,EAAC,IAAA,cAAO,EAAC,IAAA,iBAAU,EAAC,CAAC,CAAC,EAAE,IAAA,YAAK,GAAE,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACrD,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,sDAAsD,EAAE,GAAG,EAAE;QAC9D,IAAA,eAAM,EAAC,IAAA,eAAQ,EAAC,IAAA,YAAK,EAAC,IAAA,YAAK,GAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QAC5C,IAAA,eAAM,EAAC,IAAA,cAAO,EAAC,IAAA,gBAAS,EAAC,IAAA,YAAK,EAAC,IAAA,YAAK,GAAE,CAAC,CAAC,EAAE,IAAA,YAAK,EAAC,IAAA,YAAK,GAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACxE,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,uCAAuC,EAAE,GAAG,EAAE;QAC/C,IAAA,eAAM,EAAC,IAAA,kBAAW,EAAC,IAAA,WAAI,EAAC,IAAA,WAAI,EAAC,GAAG,EAAE,IAAA,WAAI,GAAE,EAAE,IAAA,WAAI,EAAC,GAAG,CAAC,CAAC,EAAE,IAAA,YAAK,GAAE,CAAC,EAAE,IAAA,YAAK,GAAE,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACvF,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,wCAAwC,EAAE,GAAG,EAAE;QAChD,IAAA,eAAM,EAAC,IAAA,kBAAW,EAAC,IAAA,YAAK,GAAE,EAAE,IAAA,YAAK,EAAC,IAAA,YAAK,GAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;IAC3D,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,yCAAyC,EAAE,GAAG,EAAE;QACjD,MAAM,CAAC,GAAG,IAAA,WAAI,EAAC,GAAG,EAAE,IAAA,WAAI,GAAE,EAAE,IAAA,WAAI,EAAC,GAAG,CAAC,CAAC,CAAC;QACvC,MAAM,CAAC,GAAG,IAAA,WAAI,EAAC,GAAG,EAAE,IAAA,WAAI,GAAE,EAAE,IAAA,WAAI,EAAC,GAAG,CAAC,CAAC,CAAC;QACvC,IAAA,eAAM,EAAC,IAAA,cAAO,EAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACnC,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,4EAA4E,EAAE,GAAG,EAAE;QACpF,wCAAwC;QACxC,MAAM,WAAW,GAAG,IAAA,WAAI,EAAC,IAAA,WAAI,EAAC,GAAG,EAAE,IAAA,gBAAS,EAAC,CAAC,CAAC,EAAE,IAAA,WAAI,EAAC,GAAG,CAAC,CAAC,EAAE,IAAA,WAAI,GAAE,CAAC,CAAC;QACrE,MAAM,IAAI,GAAG,IAAA,UAAG,EAAC,GAAG,EAAE,WAAW,EAAE,IAAA,WAAI,GAAE,CAAC,CAAC;QAC3C,MAAM,EAAE,GAAG,IAAA,gBAAS,EAAC,IAAI,CAAC,CAAC;QAC3B,IAAA,eAAM,EAAC,IAAA,cAAO,EAAC,EAAE,EAAE,IAAA,aAAM,EAAC,IAAA,WAAI,GAAE,EAAE,IAAA,WAAI,GAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACzD,CAAC,CAAC,CAAC;AACL,CAAC,CAAC,CAAC;AAEH,IAAA,iBAAQ,EAAC,gCAAgC,EAAE,GAAG,EAAE;IAC9C,IAAA,WAAE,EAAC,kDAAkD,EAAE,GAAG,EAAE;QAC1D,MAAM,IAAI,GAAG,IAAA,WAAI,EAAC,GAAG,EAAE,IAAA,WAAI,GAAE,EAAE,IAAA,WAAI,EAAC,GAAG,CAAC,CAAC,CAAC;QAC1C,IAAA,eAAM,EAAC,IAAA,gBAAS,EAAC,IAAI,EAAE,IAAA,aAAM,EAAC,IAAA,WAAI,GAAE,EAAE,IAAA,WAAI,GAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IAC7D,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,6BAA6B,EAAE,GAAG,EAAE;QACrC,IAAA,eAAM,EAAC,IAAA,gBAAS,EAAC,IAAA,YAAK,GAAE,EAAE,IAAA,WAAI,GAAE,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IAChD,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,+BAA+B,EAAE,GAAG,EAAE;QACvC,IAAA,eAAM,EAAC,IAAA,gBAAS,EAAC,IAAA,YAAK,GAAE,EAAE,IAAA,gBAAS,EAAC,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;IACvD,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,kEAAkE,EAAE,GAAG,EAAE;QAC1E,IAAA,eAAM,EAAC,IAAA,gBAAS,EAAC,IAAA,YAAK,EAAC,IAAA,YAAK,EAAC,IAAA,YAAK,GAAE,CAAC,CAAC,EAAE,IAAA,UAAG,EAAC,IAAA,WAAI,GAAE,EAAE,IAAA,YAAK,EAAC,IAAA,YAAK,GAAE,CAAC,EAAE,IAAA,YAAK,EAAC,IAAA,YAAK,GAAE,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CACxF,IAAI,CACL,CAAC;IACJ,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,iDAAiD,EAAE,GAAG,EAAE;QACzD,2DAA2D;QAC3D,MAAM,IAAI,GAAG,IAAA,UAAG,EAAC,GAAG,EAAE,IAAA,WAAI,GAAE,EAAE,IAAA,UAAG,EAAC,IAAA,WAAI,GAAE,EAAE,IAAA,WAAI,EAAC,GAAG,CAAC,EAAE,IAAA,WAAI,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC;QACjE,IAAI,IAAI,CAAC,IAAI,KAAK,IAAI;YAAE,MAAM,IAAI,KAAK,CAAC,aAAa,CAAC,CAAC;QACvD,IAAA,eAAM,EAAC,IAAA,iBAAU,EAAC,GAAG,EAAE,IAAI,CAAC,QAAQ,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACpD,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,0DAA0D,EAAE,GAAG,EAAE;QAClE,MAAM,IAAI,GAAG,IAAA,UAAG,EAAC,GAAG,EAAE,IAAA,WAAI,GAAE,EAAE,IAAA,WAAI,GAAE,CAAC,CAAC;QACtC,IAAI,IAAI,CAAC,IAAI,KAAK,IAAI;YAAE,MAAM,IAAI,KAAK,CAAC,aAAa,CAAC,CAAC;QACvD,IAAA,eAAM,EAAC,IAAA,iBAAU,EAAC,GAAG,EAAE,IAAI,CAAC,QAAQ,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;IACrD,CAAC,CAAC,CAAC;AACL,CAAC,CAAC,CAAC;AAEH,IAAA,iBAAQ,EAAC,sBAAsB,EAAE,GAAG,EAAE;IACpC,IAAA,WAAE,EAAC,8CAA8C,EAAE,GAAG,EAAE;QACtD,MAAM,IAAI,GAAG,IAAA,UAAG,EAAC,GAAG,EAAE,IAAA,WAAI,GAAE,EAAE,IAAA,UAAG,EAAC,IAAA,WAAI,GAAE,EAAE,IAAA,WAAI,EAAC,GAAG,CAAC,EAAE,IAAA,WAAI,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC;QACjE,IAAA,eAAM,EAAC,IAAA,mBAAY,EAAC,IAAI,CAAC,CAAC,CAAC,IAAI,CAAC,8BAA8B,CAAC,CAAC;IAClE,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,2CAA2C,EAAE,GAAG,EAAE;QACnD,MAAM,IAAI,GAAG,IAAA,UAAG,EAAC,GAAG,EAAE,IAAA,WAAI,GAAE,EAAE,IAAA,WAAI,GAAE,CAAC,CAAC;QACtC,IAAA,eAAM,EAAC,IAAA,mBAAY,EAAC,IAAI,CAAC,CAAC,CAAC,IAAI,CAAC,aAAa,CAAC,CAAC;IACjD,CAAC,CAAC,CAAC;AACL,CAAC,CAAC,CAAC"}

package/dist/tests/mu-calculus/check.test.d.ts

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

package/dist/tests/mu-calculus/check.test.d.ts.map

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

package/dist/tests/mu-calculus/check.test.js

@@ -0,0 +1,234 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+const vitest_1 = require("vitest");
+const mu_calculus_1 = require("../../profiles/mu-calculus");
+// ── helpers para construir AST ────────────────────────────────
+const atom = (name) => ({ kind: 'atom', name });
+const v = (name) => ({ kind: 'var', name });
+const not = (arg) => ({ kind: 'not', arg });
+const and = (left, right) => ({ kind: 'and', left, right });
+const or = (left, right) => ({ kind: 'or', left, right });
+const box = (arg) => ({ kind: 'box', arg });
+const diamond = (arg) => ({ kind: 'diamond', arg });
+const mu = (bind, body) => ({ kind: 'mu', bind, body });
+const nu = (bind, body) => ({ kind: 'nu', bind, body });
+function k(states, transitions, labels = {}) {
+    const labelling = {};
+    for (const s of states)
+        labelling[s] = new Set(labels[s] ?? []);
+    return { states, transitions, labelling };
+}
+(0, vitest_1.describe)('μ-calculus — operadores modales base (◇/□)', () => {
+    // s0 --> s1{p}, s0 --> s2
+    const M = k(['s0', 's1', 's2'], [
+        ['s0', 's1'],
+        ['s0', 's2'],
+    ], { s1: ['p'] });
+    (0, vitest_1.it)('◇p: estados con algún sucesor que cumple p', () => {
+        const sat = (0, mu_calculus_1.modelCheck)(M, diamond(atom('p')));
+        (0, vitest_1.expect)(sat).toEqual(new Set(['s0']));
+    });
+    (0, vitest_1.it)('□p: estados cuyos sucesores TODOS cumplen p (deadlock incluido)', () => {
+        const sat = (0, mu_calculus_1.modelCheck)(M, box(atom('p')));
+        // s0: tiene un sucesor (s2) sin p ⇒ false
+        // s1, s2: deadlocks ⇒ vacuously true
+        (0, vitest_1.expect)(sat).toEqual(new Set(['s1', 's2']));
+    });
+    (0, vitest_1.it)('◇⊤ distingue deadlocks: solo estados con al menos un sucesor', () => {
+        const sat = (0, mu_calculus_1.modelCheck)(M, diamond(nu('T', v('T'))));
+        (0, vitest_1.expect)(sat).toEqual(new Set(['s0']));
+    });
+});
+(0, vitest_1.describe)('μ-calculus — least fixed-point (μ) y reachability', () => {
+    // Cadena: s0 -> s1 -> s2{p} -> s2 (auto-loop)
+    const M = k(['s0', 's1', 's2'], [
+        ['s0', 's1'],
+        ['s1', 's2'],
+        ['s2', 's2'],
+    ], { s2: ['p'] });
+    (0, vitest_1.it)('μX. p ∨ ◇X (EF p) — reachability hacia p', () => {
+        const phi = mu('X', or(atom('p'), diamond(v('X'))));
+        const sat = (0, mu_calculus_1.modelCheck)(M, phi);
+        (0, vitest_1.expect)(sat).toEqual(new Set(['s0', 's1', 's2']));
+    });
+    (0, vitest_1.it)('μX. p ∨ ◇X en grafo sin p alcanzable → ∅', () => {
+        const N = k(['a', 'b'], [['a', 'b']], {});
+        const phi = mu('X', or(atom('p'), diamond(v('X'))));
+        (0, vitest_1.expect)((0, mu_calculus_1.modelCheck)(N, phi)).toEqual(new Set());
+    });
+});
+(0, vitest_1.describe)('μ-calculus — greatest fixed-point (ν) e invariance', () => {
+    (0, vitest_1.it)('νX. p ∧ □X (AG p) — invariante sobre todos los caminos', () => {
+        // Todos los estados etiquetados p, con loop
+        const M = k(['s0', 's1'], [
+            ['s0', 's1'],
+            ['s1', 's0'],
+        ], { s0: ['p'], s1: ['p'] });
+        const phi = nu('X', and(atom('p'), box(v('X'))));
+        (0, vitest_1.expect)((0, mu_calculus_1.modelCheck)(M, phi)).toEqual(new Set(['s0', 's1']));
+    });
+    (0, vitest_1.it)('νX. p ∧ □X falla cuando algún estado alcanzable rompe p', () => {
+        const M = k(['s0', 's1', 's2'], [
+            ['s0', 's1'],
+            ['s1', 's2'],
+            ['s2', 's2'],
+        ], { s0: ['p'], s1: ['p'] });
+        const phi = nu('X', and(atom('p'), box(v('X'))));
+        // Ningún estado satisface AG p porque s2 (alcanzable desde todos) no la cumple
+        (0, vitest_1.expect)((0, mu_calculus_1.modelCheck)(M, phi)).toEqual(new Set());
+    });
+    (0, vitest_1.it)('νX. p ∧ ◇X (EG p) — existe camino infinito con p', () => {
+        // s0{p} -> s1{p} -> s0  (ciclo con p) ; s2{p} -> s3 (sin p, dead end)
+        const M = k(['s0', 's1', 's2', 's3'], [
+            ['s0', 's1'],
+            ['s1', 's0'],
+            ['s2', 's3'],
+        ], { s0: ['p'], s1: ['p'], s2: ['p'] });
+        const phi = nu('X', and(atom('p'), diamond(v('X'))));
+        (0, vitest_1.expect)((0, mu_calculus_1.modelCheck)(M, phi)).toEqual(new Set(['s0', 's1']));
+    });
+});
+(0, vitest_1.describe)('μ-calculus — Until (E[q U p])', () => {
+    (0, vitest_1.it)('μX. p ∨ (q ∧ ◇X) — alcanza p manteniendo q en el camino', () => {
+        // s0{q} -> s1{q} -> s2{p}; s0 -> s3 (sin q ni p)
+        const M = k(['s0', 's1', 's2', 's3'], [
+            ['s0', 's1'],
+            ['s1', 's2'],
+            ['s0', 's3'],
+        ], { s0: ['q'], s1: ['q'], s2: ['p'] });
+        const phi = mu('X', or(atom('p'), and(atom('q'), diamond(v('X')))));
+        // s2 cumple p ⇒ ok. s1 tiene q y sucesor s2 cumple φ. s0 tiene q y sucesor s1 cumple φ.
+        (0, vitest_1.expect)((0, mu_calculus_1.modelCheck)(M, phi)).toEqual(new Set(['s0', 's1', 's2']));
+    });
+    (0, vitest_1.it)('E[q U p] falla si el camino atraviesa estados sin q antes de p', () => {
+        // s0 (sin q) -> s1{p}: no satisface (necesita q en s0)
+        const M = k(['s0', 's1'], [['s0', 's1']], { s1: ['p'] });
+        const phi = mu('X', or(atom('p'), and(atom('q'), diamond(v('X')))));
+        (0, vitest_1.expect)((0, mu_calculus_1.modelCheck)(M, phi)).toEqual(new Set(['s1']));
+    });
+});
+(0, vitest_1.describe)('μ-calculus — alternation depth', () => {
+    (0, vitest_1.it)('proposición atómica: depth 0', () => {
+        (0, vitest_1.expect)((0, mu_calculus_1.alternationDepth)(atom('p'))).toBe(0);
+    });
+    (0, vitest_1.it)('un solo binder μ: depth 1', () => {
+        (0, vitest_1.expect)((0, mu_calculus_1.alternationDepth)(mu('X', or(atom('p'), diamond(v('X')))))).toBe(1);
+    });
+    (0, vitest_1.it)('un solo binder ν: depth 1', () => {
+        (0, vitest_1.expect)((0, mu_calculus_1.alternationDepth)(nu('X', and(atom('p'), box(v('X')))))).toBe(1);
+    });
+    (0, vitest_1.it)('μν alternantes: depth 2', () => {
+        // μX. νY. (p ∨ X) ∧ ◇Y
+        const phi = mu('X', nu('Y', and(or(atom('p'), v('X')), diamond(v('Y')))));
+        (0, vitest_1.expect)((0, mu_calculus_1.alternationDepth)(phi)).toBe(2);
+    });
+    (0, vitest_1.it)('μμ anidados sin alternancia: depth 1', () => {
+        const phi = mu('X', mu('Y', or(v('X'), v('Y'))));
+        (0, vitest_1.expect)((0, mu_calculus_1.alternationDepth)(phi)).toBe(1);
+    });
+});
+(0, vitest_1.describe)('μ-calculus — well-formedness', () => {
+    (0, vitest_1.it)('μX. p ∨ ◇X es positiva (X bajo 0 negaciones)', () => {
+        const phi = mu('X', or(atom('p'), diamond(v('X'))));
+        (0, vitest_1.expect)((0, mu_calculus_1.isWellFormed)(phi)).toBe(true);
+    });
+    (0, vitest_1.it)('μX. ¬X NO es bien formada (X bajo neg impar)', () => {
+        const phi = mu('X', not(v('X')));
+        (0, vitest_1.expect)((0, mu_calculus_1.isWellFormed)(phi)).toBe(false);
+    });
+    (0, vitest_1.it)('μX. ¬¬X es bien formada (X bajo neg par)', () => {
+        const phi = mu('X', not(not(v('X'))));
+        (0, vitest_1.expect)((0, mu_calculus_1.isWellFormed)(phi)).toBe(true);
+    });
+    (0, vitest_1.it)('detecta variables libres', () => {
+        const phi = or(atom('p'), v('X')); // X libre
+        (0, vitest_1.expect)((0, mu_calculus_1.isClosed)(phi)).toBe(false);
+        (0, vitest_1.expect)((0, mu_calculus_1.freeVars)(phi)).toEqual(new Set(['X']));
+    });
+    (0, vitest_1.it)('fórmula cerrada no reporta variables libres', () => {
+        const phi = nu('X', and(atom('p'), box(v('X'))));
+        (0, vitest_1.expect)((0, mu_calculus_1.isClosed)(phi)).toBe(true);
+        (0, vitest_1.expect)((0, mu_calculus_1.freeVars)(phi)).toEqual(new Set());
+    });
+    (0, vitest_1.it)('μX. p ∨ ◇(¬X) NO es bien formada — X bajo negación impar bajo ◇', () => {
+        const phi = mu('X', or(atom('p'), diamond(not(v('X')))));
+        (0, vitest_1.expect)((0, mu_calculus_1.isWellFormed)(phi)).toBe(false);
+    });
+});
+(0, vitest_1.describe)('μ-calculus — ctlToMu translator', () => {
+    (0, vitest_1.it)('EX p → ◇p', () => {
+        const mu1 = (0, mu_calculus_1.ctlToMu)({ kind: 'EX', arg: { kind: 'atom', name: 'p' } });
+        (0, vitest_1.expect)(mu1).toEqual({ kind: 'diamond', arg: { kind: 'atom', name: 'p' } });
+    });
+    (0, vitest_1.it)('AX p → □p', () => {
+        const mu1 = (0, mu_calculus_1.ctlToMu)({ kind: 'AX', arg: { kind: 'atom', name: 'p' } });
+        (0, vitest_1.expect)(mu1).toEqual({ kind: 'box', arg: { kind: 'atom', name: 'p' } });
+    });
+    (0, vitest_1.it)('EF p produce μX. p ∨ ◇X equivalente al manual', () => {
+        const M = k(['s0', 's1'], [['s0', 's1']], { s1: ['p'] });
+        const muForm = (0, mu_calculus_1.ctlToMu)({ kind: 'EF', arg: { kind: 'atom', name: 'p' } });
+        (0, vitest_1.expect)((0, mu_calculus_1.modelCheck)(M, muForm)).toEqual(new Set(['s0', 's1']));
+    });
+    (0, vitest_1.it)('AG p coincide con νX. p ∧ □X sobre modelos no triviales', () => {
+        const M = k(['s0', 's1'], [
+            ['s0', 's1'],
+            ['s1', 's0'],
+        ], { s0: ['p'], s1: ['p'] });
+        const auto = (0, mu_calculus_1.ctlToMu)({ kind: 'AG', arg: { kind: 'atom', name: 'p' } });
+        const manual = nu('X', and(atom('p'), box(v('X'))));
+        (0, vitest_1.expect)((0, mu_calculus_1.modelCheck)(M, auto)).toEqual((0, mu_calculus_1.modelCheck)(M, manual));
+        (0, vitest_1.expect)((0, mu_calculus_1.modelCheck)(M, auto)).toEqual(new Set(['s0', 's1']));
+    });
+    (0, vitest_1.it)('EG p detecta camino infinito con p', () => {
+        const M = k(['s0', 's1', 's2'], [
+            ['s0', 's1'],
+            ['s1', 's0'],
+            ['s2', 's2'],
+        ], { s0: ['p'], s1: ['p'] });
+        const phi = (0, mu_calculus_1.ctlToMu)({ kind: 'EG', arg: { kind: 'atom', name: 'p' } });
+        (0, vitest_1.expect)((0, mu_calculus_1.modelCheck)(M, phi)).toEqual(new Set(['s0', 's1']));
+    });
+    (0, vitest_1.it)('E[q U p] coincide con codificación manual', () => {
+        const M = k(['s0', 's1', 's2'], [
+            ['s0', 's1'],
+            ['s1', 's2'],
+        ], { s0: ['q'], s1: ['q'], s2: ['p'] });
+        const auto = (0, mu_calculus_1.ctlToMu)({
+            kind: 'EU',
+            left: { kind: 'atom', name: 'q' },
+            right: { kind: 'atom', name: 'p' },
+        });
+        (0, vitest_1.expect)((0, mu_calculus_1.modelCheck)(M, auto)).toEqual(new Set(['s0', 's1', 's2']));
+    });
+    (0, vitest_1.it)('not/and/or se traducen estructuralmente', () => {
+        const phi = (0, mu_calculus_1.ctlToMu)({
+            kind: 'and',
+            args: [
+                { kind: 'atom', name: 'p' },
+                { kind: 'not', arg: { kind: 'atom', name: 'q' } },
+            ],
+        });
+        const M = k(['s0', 's1'], [], { s0: ['p'], s1: ['p', 'q'] });
+        (0, vitest_1.expect)((0, mu_calculus_1.modelCheck)(M, phi)).toEqual(new Set(['s0']));
+    });
+});
+(0, vitest_1.describe)('μ-calculus — utilidades', () => {
+    (0, vitest_1.it)('muToString renderiza con símbolos estándar', () => {
+        const phi = mu('X', or(atom('p'), diamond(v('X'))));
+        (0, vitest_1.expect)((0, mu_calculus_1.muToString)(phi)).toBe('μX. (p ∨ ◇X)');
+    });
+    (0, vitest_1.it)('satisfiesAt es coherente con modelCheck', () => {
+        const M = k(['s0', 's1'], [['s0', 's1']], { s1: ['p'] });
+        const phi = diamond(atom('p'));
+        (0, vitest_1.expect)((0, mu_calculus_1.satisfiesAt)(M, phi, 's0')).toBe(true);
+        (0, vitest_1.expect)((0, mu_calculus_1.satisfiesAt)(M, phi, 's1')).toBe(false);
+    });
+    (0, vitest_1.it)('modelCheck lanza ante transición a estado desconocido', () => {
+        (0, vitest_1.expect)(() => (0, mu_calculus_1.modelCheck)({ states: ['s0'], transitions: [['s0', 'ghost']], labelling: { s0: new Set() } }, atom('p'))).toThrow(/estado desconocido/);
+    });
+    (0, vitest_1.it)('modelCheck lanza ante variable libre en evaluación', () => {
+        const M = k(['s0'], [], {});
+        (0, vitest_1.expect)(() => (0, mu_calculus_1.modelCheck)(M, v('X'))).toThrow(/variable libre/);
+    });
+});
+//# sourceMappingURL=check.test.js.map

package/dist/tests/mu-calculus/check.test.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"check.test.js","sourceRoot":"","sources":["../../../src/tests/mu-calculus/check.test.ts"],"names":[],"mappings":";;AAAA,mCAA8C;AAC9C,4DASoC;AAGpC,iEAAiE;AACjE,MAAM,IAAI,GAAG,CAAC,IAAY,EAAa,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,CAAC,CAAC;AACnE,MAAM,CAAC,GAAG,CAAC,IAAY,EAAa,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,CAAC,CAAC;AAC/D,MAAM,GAAG,GAAG,CAAC,GAAc,EAAa,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,KAAK,EAAE,GAAG,EAAE,CAAC,CAAC;AAClE,MAAM,GAAG,GAAG,CAAC,IAAe,EAAE,KAAgB,EAAa,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC,CAAC;AAC7F,MAAM,EAAE,GAAG,CAAC,IAAe,EAAE,KAAgB,EAAa,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC,CAAC;AAC3F,MAAM,GAAG,GAAG,CAAC,GAAc,EAAa,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,KAAK,EAAE,GAAG,EAAE,CAAC,CAAC;AAClE,MAAM,OAAO,GAAG,CAAC,GAAc,EAAa,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,SAAS,EAAE,GAAG,EAAE,CAAC,CAAC;AAC1E,MAAM,EAAE,GAAG,CAAC,IAAY,EAAE,IAAe,EAAa,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,CAAC,CAAC;AACtF,MAAM,EAAE,GAAG,CAAC,IAAY,EAAE,IAAe,EAAa,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,CAAC,CAAC;AAEtF,SAAS,CAAC,CACR,MAAgB,EAChB,WAAoC,EACpC,SAAmC,EAAE;IAErC,MAAM,SAAS,GAAgC,EAAE,CAAC;IAClD,KAAK,MAAM,CAAC,IAAI,MAAM;QAAE,SAAS,CAAC,CAAC,CAAC,GAAG,IAAI,GAAG,CAAC,MAAM,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC;IAChE,OAAO,EAAE,MAAM,EAAE,WAAW,EAAE,SAAS,EAAE,CAAC;AAC5C,CAAC;AAED,IAAA,iBAAQ,EAAC,4CAA4C,EAAE,GAAG,EAAE;IAC1D,0BAA0B;IAC1B,MAAM,CAAC,GAAG,CAAC,CACT,CAAC,IAAI,EAAE,IAAI,EAAE,IAAI,CAAC,EAClB;QACE,CAAC,IAAI,EAAE,IAAI,CAAC;QACZ,CAAC,IAAI,EAAE,IAAI,CAAC;KACb,EACD,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,EAAE,CACd,CAAC;IAEF,IAAA,WAAE,EAAC,4CAA4C,EAAE,GAAG,EAAE;QACpD,MAAM,GAAG,GAAG,IAAA,wBAAU,EAAC,CAAC,EAAE,OAAO,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;QAC9C,IAAA,eAAM,EAAC,GAAG,CAAC,CAAC,OAAO,CAAC,IAAI,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;IACvC,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,iEAAiE,EAAE,GAAG,EAAE;QACzE,MAAM,GAAG,GAAG,IAAA,wBAAU,EAAC,CAAC,EAAE,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;QAC1C,0CAA0C;QAC1C,qCAAqC;QACrC,IAAA,eAAM,EAAC,GAAG,CAAC,CAAC,OAAO,CAAC,IAAI,GAAG,CAAC,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC,CAAC,CAAC;IAC7C,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,8DAA8D,EAAE,GAAG,EAAE;QACtE,MAAM,GAAG,GAAG,IAAA,wBAAU,EAAC,CAAC,EAAE,OAAO,CAAC,EAAE,CAAC,GAAG,EAAE,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;QACpD,IAAA,eAAM,EAAC,GAAG,CAAC,CAAC,OAAO,CAAC,IAAI,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;IACvC,CAAC,CAAC,CAAC;AACL,CAAC,CAAC,CAAC;AAEH,IAAA,iBAAQ,EAAC,mDAAmD,EAAE,GAAG,EAAE;IACjE,8CAA8C;IAC9C,MAAM,CAAC,GAAG,CAAC,CACT,CAAC,IAAI,EAAE,IAAI,EAAE,IAAI,CAAC,EAClB;QACE,CAAC,IAAI,EAAE,IAAI,CAAC;QACZ,CAAC,IAAI,EAAE,IAAI,CAAC;QACZ,CAAC,IAAI,EAAE,IAAI,CAAC;KACb,EACD,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,EAAE,CACd,CAAC;IAEF,IAAA,WAAE,EAAC,0CAA0C,EAAE,GAAG,EAAE;QAClD,MAAM,GAAG,GAAG,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,OAAO,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;QACpD,MAAM,GAAG,GAAG,IAAA,wBAAU,EAAC,CAAC,EAAE,GAAG,CAAC,CAAC;QAC/B,IAAA,eAAM,EAAC,GAAG,CAAC,CAAC,OAAO,CAAC,IAAI,GAAG,CAAC,CAAC,IAAI,EAAE,IAAI,EAAE,IAAI,CAAC,CAAC,CAAC,CAAC;IACnD,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,0CAA0C,EAAE,GAAG,EAAE;QAClD,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,EAAE,GAAG,CAAC,EAAE,CAAC,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC;QAC1C,MAAM,GAAG,GAAG,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,OAAO,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;QACpD,IAAA,eAAM,EAAC,IAAA,wBAAU,EAAC,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,OAAO,CAAC,IAAI,GAAG,EAAE,CAAC,CAAC;IAChD,CAAC,CAAC,CAAC;AACL,CAAC,CAAC,CAAC;AAEH,IAAA,iBAAQ,EAAC,oDAAoD,EAAE,GAAG,EAAE;IAClE,IAAA,WAAE,EAAC,wDAAwD,EAAE,GAAG,EAAE;QAChE,4CAA4C;QAC5C,MAAM,CAAC,GAAG,CAAC,CACT,CAAC,IAAI,EAAE,IAAI,CAAC,EACZ;YACE,CAAC,IAAI,EAAE,IAAI,CAAC;YACZ,CAAC,IAAI,EAAE,IAAI,CAAC;SACb,EACD,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,EAAE,CACzB,CAAC;QACF,MAAM,GAAG,GAAG,EAAE,CAAC,GAAG,EAAE,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;QACjD,IAAA,eAAM,EAAC,IAAA,wBAAU,EAAC,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,OAAO,CAAC,IAAI,GAAG,CAAC,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC,CAAC,CAAC;IAC5D,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,yDAAyD,EAAE,GAAG,EAAE;QACjE,MAAM,CAAC,GAAG,CAAC,CACT,CAAC,IAAI,EAAE,IAAI,EAAE,IAAI,CAAC,EAClB;YACE,CAAC,IAAI,EAAE,IAAI,CAAC;YACZ,CAAC,IAAI,EAAE,IAAI,CAAC;YACZ,CAAC,IAAI,EAAE,IAAI,CAAC;SACb,EACD,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,EAAE,CACzB,CAAC;QACF,MAAM,GAAG,GAAG,EAAE,CAAC,GAAG,EAAE,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;QACjD,+EAA+E;QAC/E,IAAA,eAAM,EAAC,IAAA,wBAAU,EAAC,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,OAAO,CAAC,IAAI,GAAG,EAAE,CAAC,CAAC;IAChD,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,kDAAkD,EAAE,GAAG,EAAE;QAC1D,sEAAsE;QACtE,MAAM,CAAC,GAAG,CAAC,CACT,CAAC,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,CAAC,EACxB;YACE,CAAC,IAAI,EAAE,IAAI,CAAC;YACZ,CAAC,IAAI,EAAE,IAAI,CAAC;YACZ,CAAC,IAAI,EAAE,IAAI,CAAC;SACb,EACD,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,EAAE,CACpC,CAAC;QACF,MAAM,GAAG,GAAG,EAAE,CAAC,GAAG,EAAE,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,OAAO,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;QACrD,IAAA,eAAM,EAAC,IAAA,wBAAU,EAAC,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,OAAO,CAAC,IAAI,GAAG,CAAC,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC,CAAC,CAAC;IAC5D,CAAC,CAAC,CAAC;AACL,CAAC,CAAC,CAAC;AAEH,IAAA,iBAAQ,EAAC,+BAA+B,EAAE,GAAG,EAAE;IAC7C,IAAA,WAAE,EAAC,yDAAyD,EAAE,GAAG,EAAE;QACjE,iDAAiD;QACjD,MAAM,CAAC,GAAG,CAAC,CACT,CAAC,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,CAAC,EACxB;YACE,CAAC,IAAI,EAAE,IAAI,CAAC;YACZ,CAAC,IAAI,EAAE,IAAI,CAAC;YACZ,CAAC,IAAI,EAAE,IAAI,CAAC;SACb,EACD,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,EAAE,CACpC,CAAC;QACF,MAAM,GAAG,GAAG,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,OAAO,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;QACpE,wFAAwF;QACxF,IAAA,eAAM,EAAC,IAAA,wBAAU,EAAC,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,OAAO,CAAC,IAAI,GAAG,CAAC,CAAC,IAAI,EAAE,IAAI,EAAE,IAAI,CAAC,CAAC,CAAC,CAAC;IAClE,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,gEAAgE,EAAE,GAAG,EAAE;QACxE,uDAAuD;QACvD,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,EAAE,IAAI,CAAC,EAAE,CAAC,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC,EAAE,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,CAAC;QACzD,MAAM,GAAG,GAAG,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,OAAO,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;QACpE,IAAA,eAAM,EAAC,IAAA,wBAAU,EAAC,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,OAAO,CAAC,IAAI,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;IACtD,CAAC,CAAC,CAAC;AACL,CAAC,CAAC,CAAC;AAEH,IAAA,iBAAQ,EAAC,gCAAgC,EAAE,GAAG,EAAE;IAC9C,IAAA,WAAE,EAAC,8BAA8B,EAAE,GAAG,EAAE;QACtC,IAAA,eAAM,EAAC,IAAA,8BAAgB,EAAC,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;IAC9C,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,2BAA2B,EAAE,GAAG,EAAE;QACnC,IAAA,eAAM,EAAC,IAAA,8BAAgB,EAAC,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,OAAO,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;IAC5E,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,2BAA2B,EAAE,GAAG,EAAE;QACnC,IAAA,eAAM,EAAC,IAAA,8BAAgB,EAAC,EAAE,CAAC,GAAG,EAAE,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;IACzE,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,yBAAyB,EAAE,GAAG,EAAE;QACjC,uBAAuB;QACvB,MAAM,GAAG,GAAG,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,GAAG,EAAE,GAAG,CAAC,EAAE,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,CAAC,GAAG,CAAC,CAAC,EAAE,OAAO,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;QAC1E,IAAA,eAAM,EAAC,IAAA,8BAAgB,EAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;IACxC,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,sCAAsC,EAAE,GAAG,EAAE;QAC9C,MAAM,GAAG,GAAG,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,CAAC,CAAC,GAAG,CAAC,EAAE,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;QACjD,IAAA,eAAM,EAAC,IAAA,8BAAgB,EAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;IACxC,CAAC,CAAC,CAAC;AACL,CAAC,CAAC,CAAC;AAEH,IAAA,iBAAQ,EAAC,8BAA8B,EAAE,GAAG,EAAE;IAC5C,IAAA,WAAE,EAAC,8CAA8C,EAAE,GAAG,EAAE;QACtD,MAAM,GAAG,GAAG,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,OAAO,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;QACpD,IAAA,eAAM,EAAC,IAAA,0BAAY,EAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACvC,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,8CAA8C,EAAE,GAAG,EAAE;QACtD,MAAM,GAAG,GAAG,EAAE,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;QACjC,IAAA,eAAM,EAAC,IAAA,0BAAY,EAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;IACxC,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,0CAA0C,EAAE,GAAG,EAAE;QAClD,MAAM,GAAG,GAAG,EAAE,CAAC,GAAG,EAAE,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;QACtC,IAAA,eAAM,EAAC,IAAA,0BAAY,EAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACvC,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,0BAA0B,EAAE,GAAG,EAAE;QAClC,MAAM,GAAG,GAAG,EAAE,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,UAAU;QAC7C,IAAA,eAAM,EAAC,IAAA,sBAAQ,EAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;QAClC,IAAA,eAAM,EAAC,IAAA,sBAAQ,EAAC,GAAG,CAAC,CAAC,CAAC,OAAO,CAAC,IAAI,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;IAChD,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,6CAA6C,EAAE,GAAG,EAAE;QACrD,MAAM,GAAG,GAAG,EAAE,CAAC,GAAG,EAAE,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;QACjD,IAAA,eAAM,EAAC,IAAA,sBAAQ,EAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QACjC,IAAA,eAAM,EAAC,IAAA,sBAAQ,EAAC,GAAG,CAAC,CAAC,CAAC,OAAO,CAAC,IAAI,GAAG,EAAE,CAAC,CAAC;IAC3C,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,iEAAiE,EAAE,GAAG,EAAE;QACzE,MAAM,GAAG,GAAG,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,OAAO,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;QACzD,IAAA,eAAM,EAAC,IAAA,0BAAY,EAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;IACxC,CAAC,CAAC,CAAC;AACL,CAAC,CAAC,CAAC;AAEH,IAAA,iBAAQ,EAAC,iCAAiC,EAAE,GAAG,EAAE;IAC/C,IAAA,WAAE,EAAC,WAAW,EAAE,GAAG,EAAE;QACnB,MAAM,GAAG,GAAG,IAAA,qBAAO,EAAC,EAAE,IAAI,EAAE,IAAI,EAAE,GAAG,EAAE,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,GAAG,EAAE,EAAE,CAAC,CAAC;QACtE,IAAA,eAAM,EAAC,GAAG,CAAC,CAAC,OAAO,CAAC,EAAE,IAAI,EAAE,SAAS,EAAE,GAAG,EAAE,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,GAAG,EAAE,EAAE,CAAC,CAAC;IAC7E,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,WAAW,EAAE,GAAG,EAAE;QACnB,MAAM,GAAG,GAAG,IAAA,qBAAO,EAAC,EAAE,IAAI,EAAE,IAAI,EAAE,GAAG,EAAE,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,GAAG,EAAE,EAAE,CAAC,CAAC;QACtE,IAAA,eAAM,EAAC,GAAG,CAAC,CAAC,OAAO,CAAC,EAAE,IAAI,EAAE,KAAK,EAAE,GAAG,EAAE,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,GAAG,EAAE,EAAE,CAAC,CAAC;IACzE,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,+CAA+C,EAAE,GAAG,EAAE;QACvD,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,EAAE,IAAI,CAAC,EAAE,CAAC,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC,EAAE,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,CAAC;QACzD,MAAM,MAAM,GAAG,IAAA,qBAAO,EAAC,EAAE,IAAI,EAAE,IAAI,EAAE,GAAG,EAAE,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,GAAG,EAAE,EAAE,CAAC,CAAC;QACzE,IAAA,eAAM,EAAC,IAAA,wBAAU,EAAC,CAAC,EAAE,MAAM,CAAC,CAAC,CAAC,OAAO,CAAC,IAAI,GAAG,CAAC,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC,CAAC,CAAC;IAC/D,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,yDAAyD,EAAE,GAAG,EAAE;QACjE,MAAM,CAAC,GAAG,CAAC,CACT,CAAC,IAAI,EAAE,IAAI,CAAC,EACZ;YACE,CAAC,IAAI,EAAE,IAAI,CAAC;YACZ,CAAC,IAAI,EAAE,IAAI,CAAC;SACb,EACD,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,EAAE,CACzB,CAAC;QACF,MAAM,IAAI,GAAG,IAAA,qBAAO,EAAC,EAAE,IAAI,EAAE,IAAI,EAAE,GAAG,EAAE,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,GAAG,EAAE,EAAE,CAAC,CAAC;QACvE,MAAM,MAAM,GAAG,EAAE,CAAC,GAAG,EAAE,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;QACpD,IAAA,eAAM,EAAC,IAAA,wBAAU,EAAC,CAAC,EAAE,IAAI,CAAC,CAAC,CAAC,OAAO,CAAC,IAAA,wBAAU,EAAC,CAAC,EAAE,MAAM,CAAC,CAAC,CAAC;QAC3D,IAAA,eAAM,EAAC,IAAA,wBAAU,EAAC,CAAC,EAAE,IAAI,CAAC,CAAC,CAAC,OAAO,CAAC,IAAI,GAAG,CAAC,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC,CAAC,CAAC;IAC7D,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,oCAAoC,EAAE,GAAG,EAAE;QAC5C,MAAM,CAAC,GAAG,CAAC,CACT,CAAC,IAAI,EAAE,IAAI,EAAE,IAAI,CAAC,EAClB;YACE,CAAC,IAAI,EAAE,IAAI,CAAC;YACZ,CAAC,IAAI,EAAE,IAAI,CAAC;YACZ,CAAC,IAAI,EAAE,IAAI,CAAC;SACb,EACD,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,EAAE,CACzB,CAAC;QACF,MAAM,GAAG,GAAG,IAAA,qBAAO,EAAC,EAAE,IAAI,EAAE,IAAI,EAAE,GAAG,EAAE,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,GAAG,EAAE,EAAE,CAAC,CAAC;QACtE,IAAA,eAAM,EAAC,IAAA,wBAAU,EAAC,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,OAAO,CAAC,IAAI,GAAG,CAAC,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC,CAAC,CAAC;IAC5D,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,2CAA2C,EAAE,GAAG,EAAE;QACnD,MAAM,CAAC,GAAG,CAAC,CACT,CAAC,IAAI,EAAE,IAAI,EAAE,IAAI,CAAC,EAClB;YACE,CAAC,IAAI,EAAE,IAAI,CAAC;YACZ,CAAC,IAAI,EAAE,IAAI,CAAC;SACb,EACD,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,EAAE,CACpC,CAAC;QACF,MAAM,IAAI,GAAG,IAAA,qBAAO,EAAC;YACnB,IAAI,EAAE,IAAI;YACV,IAAI,EAAE,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,GAAG,EAAE;YACjC,KAAK,EAAE,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,GAAG,EAAE;SACnC,CAAC,CAAC;QACH,IAAA,eAAM,EAAC,IAAA,wBAAU,EAAC,CAAC,EAAE,IAAI,CAAC,CAAC,CAAC,OAAO,CAAC,IAAI,GAAG,CAAC,CAAC,IAAI,EAAE,IAAI,EAAE,IAAI,CAAC,CAAC,CAAC,CAAC;IACnE,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,yCAAyC,EAAE,GAAG,EAAE;QACjD,MAAM,GAAG,GAAG,IAAA,qBAAO,EAAC;YAClB,IAAI,EAAE,KAAK;YACX,IAAI,EAAE;gBACJ,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,GAAG,EAAE;gBAC3B,EAAE,IAAI,EAAE,KAAK,EAAE,GAAG,EAAE,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,GAAG,EAAE,EAAE;aAClD;SACF,CAAC,CAAC;QACH,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,EAAE,IAAI,CAAC,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,EAAE,EAAE,EAAE,CAAC,GAAG,EAAE,GAAG,CAAC,EAAE,CAAC,CAAC;QAC7D,IAAA,eAAM,EAAC,IAAA,wBAAU,EAAC,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,OAAO,CAAC,IAAI,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;IACtD,CAAC,CAAC,CAAC;AACL,CAAC,CAAC,CAAC;AAEH,IAAA,iBAAQ,EAAC,yBAAyB,EAAE,GAAG,EAAE;IACvC,IAAA,WAAE,EAAC,4CAA4C,EAAE,GAAG,EAAE;QACpD,MAAM,GAAG,GAAG,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,OAAO,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;QACpD,IAAA,eAAM,EAAC,IAAA,wBAAU,EAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,cAAc,CAAC,CAAC;IAC/C,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,yCAAyC,EAAE,GAAG,EAAE;QACjD,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,EAAE,IAAI,CAAC,EAAE,CAAC,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC,EAAE,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,CAAC;QACzD,MAAM,GAAG,GAAG,OAAO,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC;QAC/B,IAAA,eAAM,EAAC,IAAA,yBAAW,EAAC,CAAC,EAAE,GAAG,EAAE,IAAI,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QAC7C,IAAA,eAAM,EAAC,IAAA,yBAAW,EAAC,CAAC,EAAE,GAAG,EAAE,IAAI,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;IAChD,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,uDAAuD,EAAE,GAAG,EAAE;QAC/D,IAAA,eAAM,EAAC,GAAG,EAAE,CACV,IAAA,wBAAU,EACR,EAAE,MAAM,EAAE,CAAC,IAAI,CAAC,EAAE,WAAW,EAAE,CAAC,CAAC,IAAI,EAAE,OAAO,CAAC,CAAC,EAAE,SAAS,EAAE,EAAE,EAAE,EAAE,IAAI,GAAG,EAAE,EAAE,EAAE,EAChF,IAAI,CAAC,GAAG,CAAC,CACV,CACF,CAAC,OAAO,CAAC,oBAAoB,CAAC,CAAC;IAClC,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,oDAAoD,EAAE,GAAG,EAAE;QAC5D,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,EAAE,EAAE,EAAE,EAAE,CAAC,CAAC;QAC5B,IAAA,eAAM,EAAC,GAAG,EAAE,CAAC,IAAA,wBAAU,EAAC,CAAC,EAAE,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,gBAAgB,CAAC,CAAC;IAChE,CAAC,CAAC,CAAC;AACL,CAAC,CAAC,CAAC"}

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

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

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

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

package/dist/tests/nbe/nbe.test.js

@@ -0,0 +1,121 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+const vitest_1 = require("vitest");
+const nbe_1 = require("../../nbe");
+// ---------- Tipos base reutilizables ----------
+const P = (0, nbe_1.tBase)('P');
+const Q = (0, nbe_1.tBase)('Q');
+const PtoP = (0, nbe_1.tArr)(P, P);
+const PtoPtoP = (0, nbe_1.tArr)(P, PtoP);
+(0, vitest_1.describe)('NbE — Normalization by Evaluation para STLC', () => {
+    (0, vitest_1.it)('β-reduce: (λx:P. x) y  ⇒  y', () => {
+        // y es libre de tipo P
+        const t = (0, nbe_1.ap)((0, nbe_1.lam)('x', P, (0, nbe_1.v)('x')), (0, nbe_1.v)('y'));
+        const nf = (0, nbe_1.normalize)(t, P);
+        (0, vitest_1.expect)((0, nbe_1.alphaEq)(nf, (0, nbe_1.v)('y'))).toBe(true);
+    });
+    (0, vitest_1.it)('η-long: identidad en P→P queda como λ_x0:P. _x0', () => {
+        const t = (0, nbe_1.lam)('x', P, (0, nbe_1.v)('x'));
+        const nf = (0, nbe_1.normalize)(t, PtoP);
+        // Esperamos λ?:P. ?  (α-equivalente a la identidad)
+        (0, vitest_1.expect)((0, nbe_1.alphaEq)(nf, (0, nbe_1.lam)('y', P, (0, nbe_1.v)('y')))).toBe(true);
+    });
+    (0, vitest_1.it)('η-expansión de variable libre f : P→P  ⇒  λ_x0:P. f _x0', () => {
+        const t = (0, nbe_1.v)('f'); // libre
+        const nf = (0, nbe_1.normalize)(t, PtoP);
+        (0, vitest_1.expect)((0, nbe_1.alphaEq)(nf, (0, nbe_1.lam)('z', P, (0, nbe_1.ap)((0, nbe_1.v)('f'), (0, nbe_1.v)('z'))))).toBe(true);
+    });
+    (0, vitest_1.it)('η-expansión profunda de f : (P→P)→(P→P)', () => {
+        const t = (0, nbe_1.v)('f');
+        const nf = (0, nbe_1.normalize)(t, (0, nbe_1.tArr)(PtoP, PtoP));
+        // λg:P→P. λx:P. f g x
+        const expected = (0, nbe_1.lam)('g', PtoP, (0, nbe_1.lam)('x', P, (0, nbe_1.ap)((0, nbe_1.ap)((0, nbe_1.v)('f'), (0, nbe_1.v)('g')), (0, nbe_1.v)('x'))));
+        (0, vitest_1.expect)((0, nbe_1.alphaEq)(nf, expected)).toBe(true);
+    });
+    (0, vitest_1.it)('forma normal ya normal: λx:P→P. λy:P. x y  estable módulo α', () => {
+        const t = (0, nbe_1.lam)('x', PtoP, (0, nbe_1.lam)('y', P, (0, nbe_1.ap)((0, nbe_1.v)('x'), (0, nbe_1.v)('y'))));
+        const nf = (0, nbe_1.normalize)(t, (0, nbe_1.tArr)(PtoP, PtoP));
+        (0, vitest_1.expect)((0, nbe_1.alphaEq)(nf, t)).toBe(true);
+    });
+    (0, vitest_1.it)('β + η combinados: (λf:P→P. λx:P. f (f x)) (λy:P. y)  ⇒  λ_x:P. _x', () => {
+        const inner = (0, nbe_1.lam)('y', P, (0, nbe_1.v)('y')); // id
+        const doubled = (0, nbe_1.lam)('f', PtoP, (0, nbe_1.lam)('x', P, (0, nbe_1.ap)((0, nbe_1.v)('f'), (0, nbe_1.ap)((0, nbe_1.v)('f'), (0, nbe_1.v)('x')))));
+        const t = (0, nbe_1.ap)(doubled, inner);
+        const nf = (0, nbe_1.normalize)(t, PtoP);
+        (0, vitest_1.expect)((0, nbe_1.alphaEq)(nf, (0, nbe_1.lam)('x', P, (0, nbe_1.v)('x')))).toBe(true);
+    });
+    (0, vitest_1.it)('K combinator (λx:P. λy:Q. x) aplicado a a:P  ⇒  λy:Q. a', () => {
+        const K = (0, nbe_1.lam)('x', P, (0, nbe_1.lam)('y', Q, (0, nbe_1.v)('x')));
+        const t = (0, nbe_1.ap)(K, (0, nbe_1.v)('a'));
+        const nf = (0, nbe_1.normalize)(t, (0, nbe_1.tArr)(Q, P));
+        (0, vitest_1.expect)((0, nbe_1.alphaEq)(nf, (0, nbe_1.lam)('y', Q, (0, nbe_1.v)('a')))).toBe(true);
+    });
+    (0, vitest_1.it)('Church-style const: (λx:P. λy:P. y) a b ⇒ b', () => {
+        const term = (0, nbe_1.apN)((0, nbe_1.lam)('x', P, (0, nbe_1.lam)('y', P, (0, nbe_1.v)('y'))), (0, nbe_1.v)('a'), (0, nbe_1.v)('b'));
+        const nf = (0, nbe_1.normalize)(term, P);
+        (0, vitest_1.expect)((0, nbe_1.alphaEq)(nf, (0, nbe_1.v)('b'))).toBe(true);
+    });
+    (0, vitest_1.it)('aplicación atascada: f a  con f libre P→P  ⇒  f a (no se simplifica)', () => {
+        const t = (0, nbe_1.ap)((0, nbe_1.v)('f'), (0, nbe_1.v)('a'));
+        const nf = (0, nbe_1.normalize)(t, P);
+        (0, vitest_1.expect)((0, nbe_1.alphaEq)(nf, (0, nbe_1.ap)((0, nbe_1.v)('f'), (0, nbe_1.v)('a')))).toBe(true);
+    });
+    (0, vitest_1.it)('determinismo: misma entrada produce misma salida string-a-string', () => {
+        const t = (0, nbe_1.ap)((0, nbe_1.lam)('x', P, (0, nbe_1.v)('x')), (0, nbe_1.v)('y'));
+        const a = (0, nbe_1.termToString)((0, nbe_1.normalize)(t, P));
+        const b = (0, nbe_1.termToString)((0, nbe_1.normalize)(t, P));
+        const c = (0, nbe_1.termToString)((0, nbe_1.normalize)(t, P));
+        (0, vitest_1.expect)(a).toBe(b);
+        (0, vitest_1.expect)(b).toBe(c);
+    });
+    (0, vitest_1.it)('β-reducción con captura evitada: (λx:P. λy:P. x) y  ⇒  λ_y:P. y_outer', () => {
+        // El "y" exterior es la variable libre; el binder interno NO debe
+        // capturarla. Como reify usa supply fresco, el binder queda como
+        // _x0 (u otro nombre fresco), no como "y".
+        const t = (0, nbe_1.ap)((0, nbe_1.lam)('x', P, (0, nbe_1.lam)('y', P, (0, nbe_1.v)('x'))), (0, nbe_1.v)('y'));
+        const nf = (0, nbe_1.normalize)(t, (0, nbe_1.tArr)(P, P));
+        // El resultado debe ser α-equivalente a λz:P. y
+        (0, vitest_1.expect)((0, nbe_1.alphaEq)(nf, (0, nbe_1.lam)('z', P, (0, nbe_1.v)('y')))).toBe(true);
+    });
+    (0, vitest_1.it)('aplicación n-aria: (λx:P. λy:P. λz:P. x) a b c  ⇒  a', () => {
+        const f = (0, nbe_1.lam)('x', P, (0, nbe_1.lam)('y', P, (0, nbe_1.lam)('z', P, (0, nbe_1.v)('x'))));
+        const t = (0, nbe_1.apN)(f, (0, nbe_1.v)('a'), (0, nbe_1.v)('b'), (0, nbe_1.v)('c'));
+        const nf = (0, nbe_1.normalize)(t, P);
+        (0, vitest_1.expect)((0, nbe_1.alphaEq)(nf, (0, nbe_1.v)('a'))).toBe(true);
+    });
+    (0, vitest_1.it)('S-like: (λf:P→P→P. λx:P. f x x) (λa:P. λb:P. a) v  ⇒  v', () => {
+        // f := proj1 (λa:P. λb:P. a)
+        // λx:P. f x x  =  λx:P. (λa.λb.a) x x  ⇒  λx:P. x
+        // Aplicado a v ⇒ v
+        const proj1 = (0, nbe_1.lam)('a', P, (0, nbe_1.lam)('b', P, (0, nbe_1.v)('a')));
+        const w = (0, nbe_1.lam)('f', PtoPtoP, (0, nbe_1.lam)('x', P, (0, nbe_1.ap)((0, nbe_1.ap)((0, nbe_1.v)('f'), (0, nbe_1.v)('x')), (0, nbe_1.v)('x'))));
+        const t = (0, nbe_1.ap)((0, nbe_1.ap)(w, proj1), (0, nbe_1.v)('v_arg'));
+        const nf = (0, nbe_1.normalize)(t, P);
+        (0, vitest_1.expect)((0, nbe_1.alphaEq)(nf, (0, nbe_1.v)('v_arg'))).toBe(true);
+    });
+    (0, vitest_1.it)('evaluate produce una clausura para una λ', () => {
+        const val = (0, nbe_1.evaluate)((0, nbe_1.lam)('x', P, (0, nbe_1.v)('x')), new Map());
+        (0, vitest_1.expect)(val.kind).toBe('closure');
+    });
+    (0, vitest_1.it)('reify con supply explícito es reproducible', () => {
+        const t = (0, nbe_1.v)('f'); // libre, tipo P→P
+        const val = (0, nbe_1.evaluate)(t, new Map());
+        const a = (0, nbe_1.termToString)((0, nbe_1.reify)(val, PtoP, (0, nbe_1.makeFreshSupply)('q')));
+        const b = (0, nbe_1.termToString)((0, nbe_1.reify)(val, PtoP, (0, nbe_1.makeFreshSupply)('q')));
+        (0, vitest_1.expect)(a).toBe(b);
+        // El nombre fresco debe aparecer con el prefijo elegido.
+        (0, vitest_1.expect)(a.includes('q0')).toBe(true);
+    });
+    (0, vitest_1.it)('idempotencia: normalize(normalize(t)) ≡α normalize(t)', () => {
+        const t = (0, nbe_1.ap)((0, nbe_1.lam)('f', PtoP, (0, nbe_1.lam)('x', P, (0, nbe_1.ap)((0, nbe_1.v)('f'), (0, nbe_1.ap)((0, nbe_1.v)('f'), (0, nbe_1.v)('x'))))), (0, nbe_1.lam)('y', P, (0, nbe_1.v)('y')));
+        const nf1 = (0, nbe_1.normalize)(t, PtoP);
+        const nf2 = (0, nbe_1.normalize)(nf1, PtoP);
+        (0, vitest_1.expect)((0, nbe_1.alphaEq)(nf1, nf2)).toBe(true);
+    });
+    (0, vitest_1.it)('η-expansión en aplicación parcial: (λx:P→P. x) f  con f:P→P  ⇒  λ_x:P. f _x', () => {
+        const t = (0, nbe_1.ap)((0, nbe_1.lam)('x', PtoP, (0, nbe_1.v)('x')), (0, nbe_1.v)('f'));
+        const nf = (0, nbe_1.normalize)(t, PtoP);
+        (0, vitest_1.expect)((0, nbe_1.alphaEq)(nf, (0, nbe_1.lam)('z', P, (0, nbe_1.ap)((0, nbe_1.v)('f'), (0, nbe_1.v)('z'))))).toBe(true);
+    });
+});
+//# sourceMappingURL=nbe.test.js.map