@stevenvo780/st-lang 4.4.0 → 4.5.1
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- package/README.md +78 -37
- package/dist/coinduction/index.d.ts +136 -0
- package/dist/coinduction/index.d.ts.map +1 -0
- package/dist/coinduction/index.js +318 -0
- package/dist/coinduction/index.js.map +1 -0
- package/dist/combinators-ski/abstract.d.ts +5 -0
- package/dist/combinators-ski/abstract.d.ts.map +1 -0
- package/dist/combinators-ski/abstract.js +88 -0
- package/dist/combinators-ski/abstract.js.map +1 -0
- package/dist/combinators-ski/index.d.ts +6 -0
- package/dist/combinators-ski/index.d.ts.map +1 -0
- package/dist/combinators-ski/index.js +30 -0
- package/dist/combinators-ski/index.js.map +1 -0
- package/dist/combinators-ski/reduce.d.ts +10 -0
- package/dist/combinators-ski/reduce.d.ts.map +1 -0
- package/dist/combinators-ski/reduce.js +118 -0
- package/dist/combinators-ski/reduce.js.map +1 -0
- package/dist/combinators-ski/types.d.ts +23 -0
- package/dist/combinators-ski/types.d.ts.map +1 -0
- package/dist/combinators-ski/types.js +102 -0
- package/dist/combinators-ski/types.js.map +1 -0
- package/dist/constructive-reals/index.d.ts +132 -0
- package/dist/constructive-reals/index.d.ts.map +1 -0
- package/dist/constructive-reals/index.js +723 -0
- package/dist/constructive-reals/index.js.map +1 -0
- package/dist/game-semantics/convert.d.ts +4 -0
- package/dist/game-semantics/convert.d.ts.map +1 -0
- package/dist/game-semantics/convert.js +28 -0
- package/dist/game-semantics/convert.js.map +1 -0
- package/dist/game-semantics/index.d.ts +6 -0
- package/dist/game-semantics/index.d.ts.map +1 -0
- package/dist/game-semantics/index.js +28 -0
- package/dist/game-semantics/index.js.map +1 -0
- package/dist/game-semantics/strategy.d.ts +34 -0
- package/dist/game-semantics/strategy.d.ts.map +1 -0
- package/dist/game-semantics/strategy.js +336 -0
- package/dist/game-semantics/strategy.js.map +1 -0
- package/dist/game-semantics/types.d.ts +64 -0
- package/dist/game-semantics/types.d.ts.map +1 -0
- package/dist/game-semantics/types.js +78 -0
- package/dist/game-semantics/types.js.map +1 -0
- package/dist/higher-order-unify/index.d.ts +5 -0
- package/dist/higher-order-unify/index.d.ts.map +1 -0
- package/dist/higher-order-unify/index.js +27 -0
- package/dist/higher-order-unify/index.js.map +1 -0
- package/dist/higher-order-unify/normalize.d.ts +14 -0
- package/dist/higher-order-unify/normalize.d.ts.map +1 -0
- package/dist/higher-order-unify/normalize.js +191 -0
- package/dist/higher-order-unify/normalize.js.map +1 -0
- package/dist/higher-order-unify/pattern.d.ts +4 -0
- package/dist/higher-order-unify/pattern.d.ts.map +1 -0
- package/dist/higher-order-unify/pattern.js +70 -0
- package/dist/higher-order-unify/pattern.js.map +1 -0
- package/dist/higher-order-unify/types.d.ts +19 -0
- package/dist/higher-order-unify/types.d.ts.map +1 -0
- package/dist/higher-order-unify/types.js +14 -0
- package/dist/higher-order-unify/types.js.map +1 -0
- package/dist/higher-order-unify/unify.d.ts +5 -0
- package/dist/higher-order-unify/unify.d.ts.map +1 -0
- package/dist/higher-order-unify/unify.js +306 -0
- package/dist/higher-order-unify/unify.js.map +1 -0
- package/dist/index.d.ts +10 -0
- package/dist/index.d.ts.map +1 -1
- package/dist/index.js +40 -1
- package/dist/index.js.map +1 -1
- package/dist/nbe/index.d.ts +3 -0
- package/dist/nbe/index.d.ts.map +1 -0
- package/dist/nbe/index.js +25 -0
- package/dist/nbe/index.js.map +1 -0
- package/dist/nbe/nbe.d.ts +7 -0
- package/dist/nbe/nbe.d.ts.map +1 -0
- package/dist/nbe/nbe.js +118 -0
- package/dist/nbe/nbe.js.map +1 -0
- package/dist/nbe/types.d.ts +54 -0
- package/dist/nbe/types.d.ts.map +1 -0
- package/dist/nbe/types.js +117 -0
- package/dist/nbe/types.js.map +1 -0
- package/dist/profile-bridge/index.d.ts +64 -0
- package/dist/profile-bridge/index.d.ts.map +1 -0
- package/dist/profile-bridge/index.js +328 -0
- package/dist/profile-bridge/index.js.map +1 -0
- package/dist/proof-nets/construct.d.ts +3 -0
- package/dist/proof-nets/construct.d.ts.map +1 -0
- package/dist/proof-nets/construct.js +85 -0
- package/dist/proof-nets/construct.js.map +1 -0
- package/dist/proof-nets/correctness.d.ts +3 -0
- package/dist/proof-nets/correctness.d.ts.map +1 -0
- package/dist/proof-nets/correctness.js +213 -0
- package/dist/proof-nets/correctness.js.map +1 -0
- package/dist/proof-nets/cut-elim.d.ts +9 -0
- package/dist/proof-nets/cut-elim.d.ts.map +1 -0
- package/dist/proof-nets/cut-elim.js +149 -0
- package/dist/proof-nets/cut-elim.js.map +1 -0
- package/dist/proof-nets/index.d.ts +6 -0
- package/dist/proof-nets/index.d.ts.map +1 -0
- package/dist/proof-nets/index.js +33 -0
- package/dist/proof-nets/index.js.map +1 -0
- package/dist/proof-nets/types.d.ts +36 -0
- package/dist/proof-nets/types.d.ts.map +1 -0
- package/dist/proof-nets/types.js +89 -0
- package/dist/proof-nets/types.js.map +1 -0
- package/dist/tableau-framework/TableauProver.d.ts +10 -0
- package/dist/tableau-framework/TableauProver.d.ts.map +1 -0
- package/dist/tableau-framework/TableauProver.js +118 -0
- package/dist/tableau-framework/TableauProver.js.map +1 -0
- package/dist/tableau-framework/index.d.ts +5 -0
- package/dist/tableau-framework/index.d.ts.map +1 -0
- package/dist/tableau-framework/index.js +11 -0
- package/dist/tableau-framework/index.js.map +1 -0
- package/dist/tableau-framework/propositional.d.ts +11 -0
- package/dist/tableau-framework/propositional.d.ts.map +1 -0
- package/dist/tableau-framework/propositional.js +143 -0
- package/dist/tableau-framework/propositional.js.map +1 -0
- package/dist/tableau-framework/types.d.ts +32 -0
- package/dist/tableau-framework/types.d.ts.map +1 -0
- package/dist/tableau-framework/types.js +6 -0
- package/dist/tableau-framework/types.js.map +1 -0
- package/dist/tests/coinduction/coinduction.test.d.ts +2 -0
- package/dist/tests/coinduction/coinduction.test.d.ts.map +1 -0
- package/dist/tests/coinduction/coinduction.test.js +217 -0
- package/dist/tests/coinduction/coinduction.test.js.map +1 -0
- package/dist/tests/combinators-ski/combinators-ski.test.d.ts +2 -0
- package/dist/tests/combinators-ski/combinators-ski.test.d.ts.map +1 -0
- package/dist/tests/combinators-ski/combinators-ski.test.js +211 -0
- package/dist/tests/combinators-ski/combinators-ski.test.js.map +1 -0
- package/dist/tests/constructive-reals/constructive-reals.test.d.ts +2 -0
- package/dist/tests/constructive-reals/constructive-reals.test.d.ts.map +1 -0
- package/dist/tests/constructive-reals/constructive-reals.test.js +357 -0
- package/dist/tests/constructive-reals/constructive-reals.test.js.map +1 -0
- package/dist/tests/game-semantics/game-semantics.test.d.ts +2 -0
- package/dist/tests/game-semantics/game-semantics.test.d.ts.map +1 -0
- package/dist/tests/game-semantics/game-semantics.test.js +143 -0
- package/dist/tests/game-semantics/game-semantics.test.js.map +1 -0
- package/dist/tests/higher-order-unify/ho-unify.test.d.ts +2 -0
- package/dist/tests/higher-order-unify/ho-unify.test.d.ts.map +1 -0
- package/dist/tests/higher-order-unify/ho-unify.test.js +264 -0
- package/dist/tests/higher-order-unify/ho-unify.test.js.map +1 -0
- package/dist/tests/integration/cross-modules.test.d.ts +8 -0
- package/dist/tests/integration/cross-modules.test.d.ts.map +1 -0
- package/dist/tests/integration/cross-modules.test.js +668 -0
- package/dist/tests/integration/cross-modules.test.js.map +1 -0
- package/dist/tests/nbe/nbe.test.d.ts +2 -0
- package/dist/tests/nbe/nbe.test.d.ts.map +1 -0
- package/dist/tests/nbe/nbe.test.js +121 -0
- package/dist/tests/nbe/nbe.test.js.map +1 -0
- package/dist/tests/profile-bridge/translations.test.d.ts +2 -0
- package/dist/tests/profile-bridge/translations.test.d.ts.map +1 -0
- package/dist/tests/profile-bridge/translations.test.js +266 -0
- package/dist/tests/profile-bridge/translations.test.js.map +1 -0
- package/dist/tests/proof-nets/proof-nets.test.d.ts +2 -0
- package/dist/tests/proof-nets/proof-nets.test.d.ts.map +1 -0
- package/dist/tests/proof-nets/proof-nets.test.js +263 -0
- package/dist/tests/proof-nets/proof-nets.test.js.map +1 -0
- package/dist/tests/tableau-framework/tableau.test.d.ts +2 -0
- package/dist/tests/tableau-framework/tableau.test.d.ts.map +1 -0
- package/dist/tests/tableau-framework/tableau.test.js +196 -0
- package/dist/tests/tableau-framework/tableau.test.js.map +1 -0
- package/package.json +2 -1
|
@@ -0,0 +1,217 @@
|
|
|
1
|
+
"use strict";
|
|
2
|
+
// ============================================================
|
|
3
|
+
// ST Coinduction — Tests
|
|
4
|
+
// ============================================================
|
|
5
|
+
// Cubre:
|
|
6
|
+
// • Constructores corecursivos (repeat, iterate, unfold).
|
|
7
|
+
// • Streams notables (naturals, fibonacci).
|
|
8
|
+
// • Functor/aplicativo (map, zipWith, zip, scan).
|
|
9
|
+
// • Identidades coinductivas vía isBisimilar (acotado).
|
|
10
|
+
// • Bisimulación up-to vía `prove` con relaciones explícitas.
|
|
11
|
+
// ============================================================
|
|
12
|
+
Object.defineProperty(exports, "__esModule", { value: true });
|
|
13
|
+
const vitest_1 = require("vitest");
|
|
14
|
+
const coinduction_1 = require("../../coinduction");
|
|
15
|
+
(0, vitest_1.describe)('Coinduction — constructores básicos', () => {
|
|
16
|
+
(0, vitest_1.it)('repeat genera un stream constante', () => {
|
|
17
|
+
const xs = (0, coinduction_1.repeat)(7);
|
|
18
|
+
(0, vitest_1.expect)((0, coinduction_1.take)(xs, 5)).toEqual([7, 7, 7, 7, 7]);
|
|
19
|
+
});
|
|
20
|
+
(0, vitest_1.it)('repeat preserva identidad de cola (punto fijo)', () => {
|
|
21
|
+
// tail(repeat x) === repeat x (mismo nodo) — propiedad coinductiva
|
|
22
|
+
// fuerte que sólo se cumple por la implementación con auto-referencia.
|
|
23
|
+
const xs = (0, coinduction_1.repeat)(0);
|
|
24
|
+
(0, vitest_1.expect)(xs.tail()).toBe(xs);
|
|
25
|
+
});
|
|
26
|
+
(0, vitest_1.it)('iterate aplica f repetidamente', () => {
|
|
27
|
+
const xs = (0, coinduction_1.iterate)((n) => n * 2, 1);
|
|
28
|
+
(0, vitest_1.expect)((0, coinduction_1.take)(xs, 6)).toEqual([1, 2, 4, 8, 16, 32]);
|
|
29
|
+
});
|
|
30
|
+
(0, vitest_1.it)('cons construye correctamente cabeza y cola', () => {
|
|
31
|
+
const xs = (0, coinduction_1.cons)(99, () => (0, coinduction_1.repeat)(0));
|
|
32
|
+
(0, vitest_1.expect)(xs.head).toBe(99);
|
|
33
|
+
(0, vitest_1.expect)((0, coinduction_1.take)(xs, 4)).toEqual([99, 0, 0, 0]);
|
|
34
|
+
});
|
|
35
|
+
(0, vitest_1.it)('unfold anamorfismo: enumera potencias de 2', () => {
|
|
36
|
+
const powers = (0, coinduction_1.unfold)(1, (s) => [s, s * 2]);
|
|
37
|
+
(0, vitest_1.expect)((0, coinduction_1.take)(powers, 5)).toEqual([1, 2, 4, 8, 16]);
|
|
38
|
+
});
|
|
39
|
+
});
|
|
40
|
+
(0, vitest_1.describe)('Coinduction — observaciones', () => {
|
|
41
|
+
(0, vitest_1.it)('take devuelve los primeros n elementos', () => {
|
|
42
|
+
(0, vitest_1.expect)((0, coinduction_1.take)(coinduction_1.naturals, 5)).toEqual([0, 1, 2, 3, 4]);
|
|
43
|
+
});
|
|
44
|
+
(0, vitest_1.it)('take con n=0 devuelve array vacío', () => {
|
|
45
|
+
(0, vitest_1.expect)((0, coinduction_1.take)(coinduction_1.naturals, 0)).toEqual([]);
|
|
46
|
+
});
|
|
47
|
+
(0, vitest_1.it)('take rechaza n negativo o no entero', () => {
|
|
48
|
+
(0, vitest_1.expect)(() => (0, coinduction_1.take)(coinduction_1.naturals, -1)).toThrow();
|
|
49
|
+
(0, vitest_1.expect)(() => (0, coinduction_1.take)(coinduction_1.naturals, 1.5)).toThrow();
|
|
50
|
+
});
|
|
51
|
+
(0, vitest_1.it)('drop descarta n elementos', () => {
|
|
52
|
+
(0, vitest_1.expect)((0, coinduction_1.take)((0, coinduction_1.drop)(coinduction_1.naturals, 3), 4)).toEqual([3, 4, 5, 6]);
|
|
53
|
+
});
|
|
54
|
+
(0, vitest_1.it)('nth recupera el i-ésimo elemento', () => {
|
|
55
|
+
(0, vitest_1.expect)((0, coinduction_1.nth)(coinduction_1.naturals, 0)).toBe(0);
|
|
56
|
+
(0, vitest_1.expect)((0, coinduction_1.nth)(coinduction_1.naturals, 10)).toBe(10);
|
|
57
|
+
(0, vitest_1.expect)((0, coinduction_1.nth)(coinduction_1.fibonacci, 9)).toBe(34);
|
|
58
|
+
});
|
|
59
|
+
});
|
|
60
|
+
(0, vitest_1.describe)('Coinduction — streams notables', () => {
|
|
61
|
+
(0, vitest_1.it)('naturals = 0, 1, 2, ...', () => {
|
|
62
|
+
(0, vitest_1.expect)((0, coinduction_1.take)(coinduction_1.naturals, 5)).toEqual([0, 1, 2, 3, 4]);
|
|
63
|
+
});
|
|
64
|
+
(0, vitest_1.it)('fibonacci = 0, 1, 1, 2, 3, 5, 8, 13, 21, 34, ...', () => {
|
|
65
|
+
(0, vitest_1.expect)((0, coinduction_1.take)(coinduction_1.fibonacci, 10)).toEqual([0, 1, 1, 2, 3, 5, 8, 13, 21, 34]);
|
|
66
|
+
});
|
|
67
|
+
(0, vitest_1.it)('fibonacci satisface F(n+2) = F(n+1) + F(n)', () => {
|
|
68
|
+
const fs = (0, coinduction_1.take)(coinduction_1.fibonacci, 20);
|
|
69
|
+
for (let i = 0; i + 2 < fs.length; i++) {
|
|
70
|
+
const a = fs[i];
|
|
71
|
+
const b = fs[i + 1];
|
|
72
|
+
const c = fs[i + 2];
|
|
73
|
+
if (a === undefined || b === undefined || c === undefined) {
|
|
74
|
+
throw new Error('fibonacci sample shorter than expected');
|
|
75
|
+
}
|
|
76
|
+
(0, vitest_1.expect)(c).toBe(a + b);
|
|
77
|
+
}
|
|
78
|
+
});
|
|
79
|
+
});
|
|
80
|
+
(0, vitest_1.describe)('Coinduction — functor/aplicativos', () => {
|
|
81
|
+
(0, vitest_1.it)('map respeta identidad observacionalmente: map(id, s) ~ s', () => {
|
|
82
|
+
(0, vitest_1.expect)((0, coinduction_1.isBisimilar)((0, coinduction_1.map)((x) => x, coinduction_1.naturals), coinduction_1.naturals, 50)).toBe(true);
|
|
83
|
+
});
|
|
84
|
+
(0, vitest_1.it)('zipWith combina elemento a elemento', () => {
|
|
85
|
+
const sumS = (0, coinduction_1.zipWith)((a, b) => a + b, coinduction_1.naturals, coinduction_1.naturals);
|
|
86
|
+
(0, vitest_1.expect)((0, coinduction_1.take)(sumS, 5)).toEqual([0, 2, 4, 6, 8]);
|
|
87
|
+
});
|
|
88
|
+
(0, vitest_1.it)('zip produce pares', () => {
|
|
89
|
+
const ps = (0, coinduction_1.take)((0, coinduction_1.zip)(coinduction_1.naturals, (0, coinduction_1.repeat)('x')), 3);
|
|
90
|
+
(0, vitest_1.expect)(ps).toEqual([
|
|
91
|
+
[0, 'x'],
|
|
92
|
+
[1, 'x'],
|
|
93
|
+
[2, 'x'],
|
|
94
|
+
]);
|
|
95
|
+
});
|
|
96
|
+
(0, vitest_1.it)('filter mantiene sólo elementos que pasan el predicado', () => {
|
|
97
|
+
const evens = (0, coinduction_1.filter)((n) => n % 2 === 0, coinduction_1.naturals);
|
|
98
|
+
(0, vitest_1.expect)((0, coinduction_1.take)(evens, 5)).toEqual([0, 2, 4, 6, 8]);
|
|
99
|
+
});
|
|
100
|
+
(0, vitest_1.it)('scan acumula prefijos: scan(+, 0, naturals) = 0, 0, 1, 3, 6, 10, ...', () => {
|
|
101
|
+
const s = (0, coinduction_1.scan)((acc, x) => acc + x, 0, coinduction_1.naturals);
|
|
102
|
+
(0, vitest_1.expect)((0, coinduction_1.take)(s, 6)).toEqual([0, 0, 1, 3, 6, 10]);
|
|
103
|
+
});
|
|
104
|
+
(0, vitest_1.it)('interleave alterna a, b, a, b, ...', () => {
|
|
105
|
+
const xs = (0, coinduction_1.interleave)((0, coinduction_1.repeat)('a'), (0, coinduction_1.repeat)('b'));
|
|
106
|
+
(0, vitest_1.expect)((0, coinduction_1.take)(xs, 6)).toEqual(['a', 'b', 'a', 'b', 'a', 'b']);
|
|
107
|
+
});
|
|
108
|
+
});
|
|
109
|
+
(0, vitest_1.describe)('Coinduction — bisimulación acotada', () => {
|
|
110
|
+
(0, vitest_1.it)('isBisimilar es reflexivo sobre naturals', () => {
|
|
111
|
+
(0, vitest_1.expect)((0, coinduction_1.isBisimilar)(coinduction_1.naturals, coinduction_1.naturals, 100)).toBe(true);
|
|
112
|
+
});
|
|
113
|
+
(0, vitest_1.it)('isBisimilar detecta divergencia inmediata', () => {
|
|
114
|
+
const a = (0, coinduction_1.cons)(1, () => (0, coinduction_1.repeat)(0));
|
|
115
|
+
const b = (0, coinduction_1.cons)(2, () => (0, coinduction_1.repeat)(0));
|
|
116
|
+
(0, vitest_1.expect)((0, coinduction_1.isBisimilar)(a, b, 10)).toBe(false);
|
|
117
|
+
});
|
|
118
|
+
(0, vitest_1.it)('isBisimilar(naturals, map(id, naturals)) — corecursión idempotente', () => {
|
|
119
|
+
(0, vitest_1.expect)((0, coinduction_1.isBisimilar)(coinduction_1.naturals, (0, coinduction_1.map)((x) => x, coinduction_1.naturals), 100)).toBe(true);
|
|
120
|
+
});
|
|
121
|
+
(0, vitest_1.it)('isBisimilar de fibonacci consigo mismo', () => {
|
|
122
|
+
(0, vitest_1.expect)((0, coinduction_1.isBisimilar)(coinduction_1.fibonacci, coinduction_1.fibonacci, 30)).toBe(true);
|
|
123
|
+
});
|
|
124
|
+
(0, vitest_1.it)('isBisimilar detecta divergencia en la cola', () => {
|
|
125
|
+
// a = 0, 1, 2, 3, 4, ...
|
|
126
|
+
// b = 0, 1, 2, 99, 4, ...
|
|
127
|
+
const b = (0, coinduction_1.cons)(0, () => (0, coinduction_1.cons)(1, () => (0, coinduction_1.cons)(2, () => (0, coinduction_1.cons)(99, () => (0, coinduction_1.drop)(coinduction_1.naturals, 4)))));
|
|
128
|
+
(0, vitest_1.expect)((0, coinduction_1.isBisimilar)(coinduction_1.naturals, b, 10)).toBe(false);
|
|
129
|
+
(0, vitest_1.expect)((0, coinduction_1.isBisimilar)(coinduction_1.naturals, b, 3)).toBe(true); // primeros 3 sí coinciden
|
|
130
|
+
});
|
|
131
|
+
(0, vitest_1.it)('isBisimilar funciona con elementos compuestos (objetos planos)', () => {
|
|
132
|
+
const a = (0, coinduction_1.iterate)((p) => ({ x: p.x + 1 }), { x: 0 });
|
|
133
|
+
const b = (0, coinduction_1.map)((n) => ({ x: n }), coinduction_1.naturals);
|
|
134
|
+
(0, vitest_1.expect)((0, coinduction_1.isBisimilar)(a, b, 20)).toBe(true);
|
|
135
|
+
});
|
|
136
|
+
(0, vitest_1.it)('isBisimilar rechaza depth inválido', () => {
|
|
137
|
+
(0, vitest_1.expect)(() => (0, coinduction_1.isBisimilar)(coinduction_1.naturals, coinduction_1.naturals, -1)).toThrow();
|
|
138
|
+
(0, vitest_1.expect)(() => (0, coinduction_1.isBisimilar)(coinduction_1.naturals, coinduction_1.naturals, 1.5)).toThrow();
|
|
139
|
+
});
|
|
140
|
+
});
|
|
141
|
+
(0, vitest_1.describe)('Coinduction — bisimulación up-to (prove)', () => {
|
|
142
|
+
// Identidad clásica: map f (map g s) ~ map (f ∘ g) s.
|
|
143
|
+
// La relación que la atestigua: R(a, b) ≡ "a = map f (map g s')
|
|
144
|
+
// y b = map (f∘g) s' para algún s'". Computacionalmente, una vez
|
|
145
|
+
// que sabés que las cabezas coinciden, las colas se obtienen
|
|
146
|
+
// aplicando los destructores; la propiedad se sostiene por
|
|
147
|
+
// construcción. Para `prove`, basta dar una relación que sea
|
|
148
|
+
// verdadera para el par inicial y se mantenga bajo tail.
|
|
149
|
+
(0, vitest_1.it)('map (f ∘ g) s ~ map f (map g s)', () => {
|
|
150
|
+
const f = (n) => n + 1;
|
|
151
|
+
const g = (n) => n * 2;
|
|
152
|
+
const lhs = (0, coinduction_1.map)(f, (0, coinduction_1.map)(g, coinduction_1.naturals));
|
|
153
|
+
const rhs = (0, coinduction_1.map)((n) => f(g(n)), coinduction_1.naturals);
|
|
154
|
+
const ok = (0, coinduction_1.prove)({
|
|
155
|
+
initial: [lhs, rhs],
|
|
156
|
+
// Relación: "ambos producen los mismos elementos hasta el inf."
|
|
157
|
+
// El motor de prove ya chequea head equality + avance, asi que
|
|
158
|
+
// basta un trivially-true predicate aquí (es la identidad up-to).
|
|
159
|
+
relation: (_a, _b) => true,
|
|
160
|
+
}, 50);
|
|
161
|
+
(0, vitest_1.expect)(ok).toBe(true);
|
|
162
|
+
});
|
|
163
|
+
(0, vitest_1.it)('prove falla si la relación es falsa en el par inicial', () => {
|
|
164
|
+
const ok = (0, coinduction_1.prove)({
|
|
165
|
+
initial: [coinduction_1.naturals, coinduction_1.naturals],
|
|
166
|
+
relation: (_a, _b) => false,
|
|
167
|
+
}, 5);
|
|
168
|
+
(0, vitest_1.expect)(ok).toBe(false);
|
|
169
|
+
});
|
|
170
|
+
(0, vitest_1.it)('prove detecta divergencia incluso con relación trivially-true', () => {
|
|
171
|
+
const a = coinduction_1.naturals;
|
|
172
|
+
const b = (0, coinduction_1.cons)(0, () => (0, coinduction_1.cons)(99, () => (0, coinduction_1.drop)(coinduction_1.naturals, 2)));
|
|
173
|
+
const ok = (0, coinduction_1.prove)({ initial: [a, b], relation: (_a, _b) => true }, 5);
|
|
174
|
+
(0, vitest_1.expect)(ok).toBe(false); // head del segundo paso difiere (1 vs 99)
|
|
175
|
+
});
|
|
176
|
+
(0, vitest_1.it)('prove para repeat: repeat x ~ cons(x, () => repeat x)', () => {
|
|
177
|
+
const x = 42;
|
|
178
|
+
const lhs = (0, coinduction_1.repeat)(x);
|
|
179
|
+
const rhs = (0, coinduction_1.cons)(x, () => (0, coinduction_1.repeat)(x));
|
|
180
|
+
// Relación R(a, b): "ambos son streams constantes x"
|
|
181
|
+
const ok = (0, coinduction_1.prove)({
|
|
182
|
+
initial: [lhs, rhs],
|
|
183
|
+
relation: (a, b) => a.head === x && b.head === x,
|
|
184
|
+
}, 100);
|
|
185
|
+
(0, vitest_1.expect)(ok).toBe(true);
|
|
186
|
+
});
|
|
187
|
+
(0, vitest_1.it)('prove para iterate: tail(iterate f x) ~ iterate f (f x)', () => {
|
|
188
|
+
const f = (n) => n + 3;
|
|
189
|
+
const lhs = (0, coinduction_1.iterate)(f, 0).tail();
|
|
190
|
+
const rhs = (0, coinduction_1.iterate)(f, f(0));
|
|
191
|
+
const ok = (0, coinduction_1.prove)({
|
|
192
|
+
initial: [lhs, rhs],
|
|
193
|
+
relation: (_a, _b) => true,
|
|
194
|
+
}, 50);
|
|
195
|
+
(0, vitest_1.expect)(ok).toBe(true);
|
|
196
|
+
});
|
|
197
|
+
(0, vitest_1.it)('prove rechaza depth inválido', () => {
|
|
198
|
+
(0, vitest_1.expect)(() => (0, coinduction_1.prove)({ initial: [coinduction_1.naturals, coinduction_1.naturals], relation: () => true }, -1)).toThrow();
|
|
199
|
+
});
|
|
200
|
+
});
|
|
201
|
+
(0, vitest_1.describe)('Coinduction — equality helper', () => {
|
|
202
|
+
const { equal } = coinduction_1.__internals;
|
|
203
|
+
(0, vitest_1.it)('equal sobre primitivos usa Object.is (NaN igual a NaN)', () => {
|
|
204
|
+
(0, vitest_1.expect)(equal(NaN, NaN)).toBe(true);
|
|
205
|
+
(0, vitest_1.expect)(equal(1, 1)).toBe(true);
|
|
206
|
+
(0, vitest_1.expect)(equal(1, '1')).toBe(false);
|
|
207
|
+
});
|
|
208
|
+
(0, vitest_1.it)('equal sobre arrays', () => {
|
|
209
|
+
(0, vitest_1.expect)(equal([1, 2, 3], [1, 2, 3])).toBe(true);
|
|
210
|
+
(0, vitest_1.expect)(equal([1, 2], [1, 2, 3])).toBe(false);
|
|
211
|
+
});
|
|
212
|
+
(0, vitest_1.it)('equal sobre objetos planos', () => {
|
|
213
|
+
(0, vitest_1.expect)(equal({ a: 1, b: 2 }, { a: 1, b: 2 })).toBe(true);
|
|
214
|
+
(0, vitest_1.expect)(equal({ a: 1 }, { a: 1, b: 2 })).toBe(false);
|
|
215
|
+
});
|
|
216
|
+
});
|
|
217
|
+
//# sourceMappingURL=coinduction.test.js.map
|
|
@@ -0,0 +1 @@
|
|
|
1
|
+
{"version":3,"file":"coinduction.test.js","sourceRoot":"","sources":["../../../src/tests/coinduction/coinduction.test.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,yBAAyB;AACzB,+DAA+D;AAC/D,SAAS;AACT,4DAA4D;AAC5D,8CAA8C;AAC9C,oDAAoD;AACpD,0DAA0D;AAC1D,gEAAgE;AAChE,+DAA+D;;AAE/D,mCAA8C;AAC9C,mDAoB2B;AAE3B,IAAA,iBAAQ,EAAC,qCAAqC,EAAE,GAAG,EAAE;IACnD,IAAA,WAAE,EAAC,mCAAmC,EAAE,GAAG,EAAE;QAC3C,MAAM,EAAE,GAAG,IAAA,oBAAM,EAAC,CAAC,CAAC,CAAC;QACrB,IAAA,eAAM,EAAC,IAAA,kBAAI,EAAC,EAAE,EAAE,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;IAC/C,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,gDAAgD,EAAE,GAAG,EAAE;QACxD,mEAAmE;QACnE,uEAAuE;QACvE,MAAM,EAAE,GAAG,IAAA,oBAAM,EAAC,CAAC,CAAC,CAAC;QACrB,IAAA,eAAM,EAAC,EAAE,CAAC,IAAI,EAAE,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;IAC7B,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,gCAAgC,EAAE,GAAG,EAAE;QACxC,MAAM,EAAE,GAAG,IAAA,qBAAO,EAAC,CAAC,CAAS,EAAE,EAAE,CAAC,CAAC,GAAG,CAAC,EAAE,CAAC,CAAC,CAAC;QAC5C,IAAA,eAAM,EAAC,IAAA,kBAAI,EAAC,EAAE,EAAE,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,EAAE,EAAE,EAAE,CAAC,CAAC,CAAC;IACpD,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,4CAA4C,EAAE,GAAG,EAAE;QACpD,MAAM,EAAE,GAAG,IAAA,kBAAI,EAAC,EAAE,EAAE,GAAG,EAAE,CAAC,IAAA,oBAAM,EAAC,CAAC,CAAC,CAAC,CAAC;QACrC,IAAA,eAAM,EAAC,EAAE,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;QACzB,IAAA,eAAM,EAAC,IAAA,kBAAI,EAAC,EAAE,EAAE,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,EAAE,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;IAC7C,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,4CAA4C,EAAE,GAAG,EAAE;QACpD,MAAM,MAAM,GAAG,IAAA,oBAAM,EAAC,CAAC,EAAE,CAAC,CAAS,EAAE,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,GAAG,CAAC,CAAqB,CAAC,CAAC;QACxE,IAAA,eAAM,EAAC,IAAA,kBAAI,EAAC,MAAM,EAAE,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC;IACpD,CAAC,CAAC,CAAC;AACL,CAAC,CAAC,CAAC;AAEH,IAAA,iBAAQ,EAAC,6BAA6B,EAAE,GAAG,EAAE;IAC3C,IAAA,WAAE,EAAC,wCAAwC,EAAE,GAAG,EAAE;QAChD,IAAA,eAAM,EAAC,IAAA,kBAAI,EAAC,sBAAQ,EAAE,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;IACrD,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,mCAAmC,EAAE,GAAG,EAAE;QAC3C,IAAA,eAAM,EAAC,IAAA,kBAAI,EAAC,sBAAQ,EAAE,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,EAAE,CAAC,CAAC;IACxC,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,qCAAqC,EAAE,GAAG,EAAE;QAC7C,IAAA,eAAM,EAAC,GAAG,EAAE,CAAC,IAAA,kBAAI,EAAC,sBAAQ,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,OAAO,EAAE,CAAC;QAC3C,IAAA,eAAM,EAAC,GAAG,EAAE,CAAC,IAAA,kBAAI,EAAC,sBAAQ,EAAE,GAAG,CAAC,CAAC,CAAC,OAAO,EAAE,CAAC;IAC9C,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,2BAA2B,EAAE,GAAG,EAAE;QACnC,IAAA,eAAM,EAAC,IAAA,kBAAI,EAAC,IAAA,kBAAI,EAAC,sBAAQ,EAAE,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;IAC3D,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,kCAAkC,EAAE,GAAG,EAAE;QAC1C,IAAA,eAAM,EAAC,IAAA,iBAAG,EAAC,sBAAQ,EAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;QACjC,IAAA,eAAM,EAAC,IAAA,iBAAG,EAAC,sBAAQ,EAAE,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;QACnC,IAAA,eAAM,EAAC,IAAA,iBAAG,EAAC,uBAAS,EAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;IACrC,CAAC,CAAC,CAAC;AACL,CAAC,CAAC,CAAC;AAEH,IAAA,iBAAQ,EAAC,gCAAgC,EAAE,GAAG,EAAE;IAC9C,IAAA,WAAE,EAAC,yBAAyB,EAAE,GAAG,EAAE;QACjC,IAAA,eAAM,EAAC,IAAA,kBAAI,EAAC,sBAAQ,EAAE,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;IACrD,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,kDAAkD,EAAE,GAAG,EAAE;QAC1D,IAAA,eAAM,EAAC,IAAA,kBAAI,EAAC,uBAAS,EAAE,EAAE,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,CAAC,CAAC,CAAC;IACzE,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,4CAA4C,EAAE,GAAG,EAAE;QACpD,MAAM,EAAE,GAAG,IAAA,kBAAI,EAAC,uBAAS,EAAE,EAAE,CAAC,CAAC;QAC/B,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,GAAG,EAAE,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;YACvC,MAAM,CAAC,GAAG,EAAE,CAAC,CAAC,CAAC,CAAC;YAChB,MAAM,CAAC,GAAG,EAAE,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC;YACpB,MAAM,CAAC,GAAG,EAAE,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC;YACpB,IAAI,CAAC,KAAK,SAAS,IAAI,CAAC,KAAK,SAAS,IAAI,CAAC,KAAK,SAAS,EAAE,CAAC;gBAC1D,MAAM,IAAI,KAAK,CAAC,wCAAwC,CAAC,CAAC;YAC5D,CAAC;YACD,IAAA,eAAM,EAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC;QACxB,CAAC;IACH,CAAC,CAAC,CAAC;AACL,CAAC,CAAC,CAAC;AAEH,IAAA,iBAAQ,EAAC,mCAAmC,EAAE,GAAG,EAAE;IACjD,IAAA,WAAE,EAAC,0DAA0D,EAAE,GAAG,EAAE;QAClE,IAAA,eAAM,EACJ,IAAA,yBAAW,EACT,IAAA,iBAAG,EAAC,CAAC,CAAS,EAAE,EAAE,CAAC,CAAC,EAAE,sBAAQ,CAAC,EAC/B,sBAAQ,EACR,EAAE,CACH,CACF,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACf,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,qCAAqC,EAAE,GAAG,EAAE;QAC7C,MAAM,IAAI,GAAG,IAAA,qBAAO,EAAC,CAAC,CAAS,EAAE,CAAS,EAAE,EAAE,CAAC,CAAC,GAAG,CAAC,EAAE,sBAAQ,EAAE,sBAAQ,CAAC,CAAC;QAC1E,IAAA,eAAM,EAAC,IAAA,kBAAI,EAAC,IAAI,EAAE,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;IACjD,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,mBAAmB,EAAE,GAAG,EAAE;QAC3B,MAAM,EAAE,GAAG,IAAA,kBAAI,EAAC,IAAA,iBAAG,EAAC,sBAAQ,EAAE,IAAA,oBAAM,EAAC,GAAG,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;QAC/C,IAAA,eAAM,EAAC,EAAE,CAAC,CAAC,OAAO,CAAC;YACjB,CAAC,CAAC,EAAE,GAAG,CAAC;YACR,CAAC,CAAC,EAAE,GAAG,CAAC;YACR,CAAC,CAAC,EAAE,GAAG,CAAC;SACT,CAAC,CAAC;IACL,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,uDAAuD,EAAE,GAAG,EAAE;QAC/D,MAAM,KAAK,GAAG,IAAA,oBAAM,EAAC,CAAC,CAAS,EAAE,EAAE,CAAC,CAAC,GAAG,CAAC,KAAK,CAAC,EAAE,sBAAQ,CAAC,CAAC;QAC3D,IAAA,eAAM,EAAC,IAAA,kBAAI,EAAC,KAAK,EAAE,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;IAClD,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,sEAAsE,EAAE,GAAG,EAAE;QAC9E,MAAM,CAAC,GAAG,IAAA,kBAAI,EAAC,CAAC,GAAW,EAAE,CAAS,EAAE,EAAE,CAAC,GAAG,GAAG,CAAC,EAAE,CAAC,EAAE,sBAAQ,CAAC,CAAC;QACjE,IAAA,eAAM,EAAC,IAAA,kBAAI,EAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC;IAClD,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,oCAAoC,EAAE,GAAG,EAAE;QAC5C,MAAM,EAAE,GAAG,IAAA,wBAAU,EAAC,IAAA,oBAAM,EAAC,GAAG,CAAC,EAAE,IAAA,oBAAM,EAAC,GAAG,CAAC,CAAC,CAAC;QAChD,IAAA,eAAM,EAAC,IAAA,kBAAI,EAAC,EAAE,EAAE,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,CAAC,CAAC,CAAC;IAC9D,CAAC,CAAC,CAAC;AACL,CAAC,CAAC,CAAC;AAEH,IAAA,iBAAQ,EAAC,oCAAoC,EAAE,GAAG,EAAE;IAClD,IAAA,WAAE,EAAC,yCAAyC,EAAE,GAAG,EAAE;QACjD,IAAA,eAAM,EAAC,IAAA,yBAAW,EAAC,sBAAQ,EAAE,sBAAQ,EAAE,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IAC1D,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,2CAA2C,EAAE,GAAG,EAAE;QACnD,MAAM,CAAC,GAAG,IAAA,kBAAI,EAAC,CAAC,EAAE,GAAG,EAAE,CAAC,IAAA,oBAAM,EAAC,CAAC,CAAC,CAAC,CAAC;QACnC,MAAM,CAAC,GAAG,IAAA,kBAAI,EAAC,CAAC,EAAE,GAAG,EAAE,CAAC,IAAA,oBAAM,EAAC,CAAC,CAAC,CAAC,CAAC;QACnC,IAAA,eAAM,EAAC,IAAA,yBAAW,EAAC,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;IAC5C,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,oEAAoE,EAAE,GAAG,EAAE;QAC5E,IAAA,eAAM,EACJ,IAAA,yBAAW,EACT,sBAAQ,EACR,IAAA,iBAAG,EAAC,CAAC,CAAS,EAAE,EAAE,CAAC,CAAC,EAAE,sBAAQ,CAAC,EAC/B,GAAG,CACJ,CACF,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACf,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,wCAAwC,EAAE,GAAG,EAAE;QAChD,IAAA,eAAM,EAAC,IAAA,yBAAW,EAAC,uBAAS,EAAE,uBAAS,EAAE,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IAC3D,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,4CAA4C,EAAE,GAAG,EAAE;QACpD,yBAAyB;QACzB,0BAA0B;QAC1B,MAAM,CAAC,GAAG,IAAA,kBAAI,EAAC,CAAC,EAAE,GAAG,EAAE,CAAC,IAAA,kBAAI,EAAC,CAAC,EAAE,GAAG,EAAE,CAAC,IAAA,kBAAI,EAAC,CAAC,EAAE,GAAG,EAAE,CAAC,IAAA,kBAAI,EAAC,EAAE,EAAE,GAAG,EAAE,CAAC,IAAA,kBAAI,EAAC,sBAAQ,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;QACzF,IAAA,eAAM,EAAC,IAAA,yBAAW,EAAC,sBAAQ,EAAE,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;QACjD,IAAA,eAAM,EAAC,IAAA,yBAAW,EAAC,sBAAQ,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,0BAA0B;IAC5E,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,gEAAgE,EAAE,GAAG,EAAE;QACxE,MAAM,CAAC,GAAG,IAAA,qBAAO,EAAC,CAAC,CAAgB,EAAE,EAAE,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC;QACpE,MAAM,CAAC,GAAG,IAAA,iBAAG,EAAC,CAAC,CAAS,EAAE,EAAE,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,sBAAQ,CAAC,CAAC;QACnD,IAAA,eAAM,EAAC,IAAA,yBAAW,EAAC,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IAC3C,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,oCAAoC,EAAE,GAAG,EAAE;QAC5C,IAAA,eAAM,EAAC,GAAG,EAAE,CAAC,IAAA,yBAAW,EAAC,sBAAQ,EAAE,sBAAQ,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,OAAO,EAAE,CAAC;QAC5D,IAAA,eAAM,EAAC,GAAG,EAAE,CAAC,IAAA,yBAAW,EAAC,sBAAQ,EAAE,sBAAQ,EAAE,GAAG,CAAC,CAAC,CAAC,OAAO,EAAE,CAAC;IAC/D,CAAC,CAAC,CAAC;AACL,CAAC,CAAC,CAAC;AAEH,IAAA,iBAAQ,EAAC,0CAA0C,EAAE,GAAG,EAAE;IACxD,sDAAsD;IACtD,gEAAgE;IAChE,iEAAiE;IACjE,6DAA6D;IAC7D,2DAA2D;IAC3D,6DAA6D;IAC7D,yDAAyD;IACzD,IAAA,WAAE,EAAC,mCAAmC,EAAE,GAAG,EAAE;QAC3C,MAAM,CAAC,GAAG,CAAC,CAAS,EAAE,EAAE,CAAC,CAAC,GAAG,CAAC,CAAC;QAC/B,MAAM,CAAC,GAAG,CAAC,CAAS,EAAE,EAAE,CAAC,CAAC,GAAG,CAAC,CAAC;QAC/B,MAAM,GAAG,GAAG,IAAA,iBAAG,EAAC,CAAC,EAAE,IAAA,iBAAG,EAAC,CAAC,EAAE,sBAAQ,CAAC,CAAC,CAAC;QACrC,MAAM,GAAG,GAAG,IAAA,iBAAG,EAAC,CAAC,CAAS,EAAE,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,sBAAQ,CAAC,CAAC;QAElD,MAAM,EAAE,GAAG,IAAA,mBAAK,EACd;YACE,OAAO,EAAE,CAAC,GAAG,EAAE,GAAG,CAAC;YACnB,gEAAgE;YAChE,+DAA+D;YAC/D,kEAAkE;YAClE,QAAQ,EAAE,CAAC,EAAE,EAAE,EAAE,EAAE,EAAE,CAAC,IAAI;SAC3B,EACD,EAAE,CACH,CAAC;QACF,IAAA,eAAM,EAAC,EAAE,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACxB,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,uDAAuD,EAAE,GAAG,EAAE;QAC/D,MAAM,EAAE,GAAG,IAAA,mBAAK,EACd;YACE,OAAO,EAAE,CAAC,sBAAQ,EAAE,sBAAQ,CAAC;YAC7B,QAAQ,EAAE,CAAC,EAAE,EAAE,EAAE,EAAE,EAAE,CAAC,KAAK;SAC5B,EACD,CAAC,CACF,CAAC;QACF,IAAA,eAAM,EAAC,EAAE,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;IACzB,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,+DAA+D,EAAE,GAAG,EAAE;QACvE,MAAM,CAAC,GAAG,sBAAQ,CAAC;QACnB,MAAM,CAAC,GAAG,IAAA,kBAAI,EAAC,CAAC,EAAE,GAAG,EAAE,CAAC,IAAA,kBAAI,EAAC,EAAE,EAAE,GAAG,EAAE,CAAC,IAAA,kBAAI,EAAC,sBAAQ,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC;QAC3D,MAAM,EAAE,GAAG,IAAA,mBAAK,EAAC,EAAE,OAAO,EAAE,CAAC,CAAC,EAAE,CAAC,CAAC,EAAE,QAAQ,EAAE,CAAC,EAAE,EAAE,EAAE,EAAE,EAAE,CAAC,IAAI,EAAE,EAAE,CAAC,CAAC,CAAC;QACrE,IAAA,eAAM,EAAC,EAAE,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,0CAA0C;IACpE,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,yDAAyD,EAAE,GAAG,EAAE;QACjE,MAAM,CAAC,GAAG,EAAE,CAAC;QACb,MAAM,GAAG,GAAG,IAAA,oBAAM,EAAC,CAAC,CAAC,CAAC;QACtB,MAAM,GAAG,GAAmB,IAAA,kBAAI,EAAC,CAAC,EAAE,GAAG,EAAE,CAAC,IAAA,oBAAM,EAAC,CAAC,CAAC,CAAC,CAAC;QACrD,qDAAqD;QACrD,MAAM,EAAE,GAAG,IAAA,mBAAK,EACd;YACE,OAAO,EAAE,CAAC,GAAG,EAAE,GAAG,CAAC;YACnB,QAAQ,EAAE,CAAC,CAAiB,EAAE,CAAiB,EAAE,EAAE,CAAC,CAAC,CAAC,IAAI,KAAK,CAAC,IAAI,CAAC,CAAC,IAAI,KAAK,CAAC;SACjF,EACD,GAAG,CACJ,CAAC;QACF,IAAA,eAAM,EAAC,EAAE,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACxB,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,2DAA2D,EAAE,GAAG,EAAE;QACnE,MAAM,CAAC,GAAG,CAAC,CAAS,EAAE,EAAE,CAAC,CAAC,GAAG,CAAC,CAAC;QAC/B,MAAM,GAAG,GAAG,IAAA,qBAAO,EAAC,CAAC,EAAE,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC;QACjC,MAAM,GAAG,GAAG,IAAA,qBAAO,EAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;QAC7B,MAAM,EAAE,GAAG,IAAA,mBAAK,EACd;YACE,OAAO,EAAE,CAAC,GAAG,EAAE,GAAG,CAAC;YACnB,QAAQ,EAAE,CAAC,EAAE,EAAE,EAAE,EAAE,EAAE,CAAC,IAAI;SAC3B,EACD,EAAE,CACH,CAAC;QACF,IAAA,eAAM,EAAC,EAAE,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACxB,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,8BAA8B,EAAE,GAAG,EAAE;QACtC,IAAA,eAAM,EAAC,GAAG,EAAE,CAAC,IAAA,mBAAK,EAAC,EAAE,OAAO,EAAE,CAAC,sBAAQ,EAAE,sBAAQ,CAAC,EAAE,QAAQ,EAAE,GAAG,EAAE,CAAC,IAAI,EAAE,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,OAAO,EAAE,CAAC;IAC7F,CAAC,CAAC,CAAC;AACL,CAAC,CAAC,CAAC;AAEH,IAAA,iBAAQ,EAAC,+BAA+B,EAAE,GAAG,EAAE;IAC7C,MAAM,EAAE,KAAK,EAAE,GAAG,yBAAW,CAAC;IAE9B,IAAA,WAAE,EAAC,wDAAwD,EAAE,GAAG,EAAE;QAChE,IAAA,eAAM,EAAC,KAAK,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QACnC,IAAA,eAAM,EAAC,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QAC/B,IAAA,eAAM,EAAC,KAAK,CAAC,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;IACpC,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,oBAAoB,EAAE,GAAG,EAAE;QAC5B,IAAA,eAAM,EAAC,KAAK,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QAC/C,IAAA,eAAM,EAAC,KAAK,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;IAC/C,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,4BAA4B,EAAE,GAAG,EAAE;QACpC,IAAA,eAAM,EAAC,KAAK,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,EAAE,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QACzD,IAAA,eAAM,EAAC,KAAK,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,EAAE,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;IACtD,CAAC,CAAC,CAAC;AACL,CAAC,CAAC,CAAC"}
|
|
@@ -0,0 +1 @@
|
|
|
1
|
+
{"version":3,"file":"combinators-ski.test.d.ts","sourceRoot":"","sources":["../../../src/tests/combinators-ski/combinators-ski.test.ts"],"names":[],"mappings":""}
|
|
@@ -0,0 +1,211 @@
|
|
|
1
|
+
"use strict";
|
|
2
|
+
Object.defineProperty(exports, "__esModule", { value: true });
|
|
3
|
+
const vitest_1 = require("vitest");
|
|
4
|
+
const combinators_ski_1 = require("../../combinators-ski");
|
|
5
|
+
const lambda_calc_1 = require("../../lambda-calc");
|
|
6
|
+
(0, vitest_1.describe)('combinators-ski / reducción básica', () => {
|
|
7
|
+
(0, vitest_1.it)('I x reduce a x en un paso', () => {
|
|
8
|
+
const t = (0, combinators_ski_1.app)((0, combinators_ski_1.I)(), (0, combinators_ski_1.cvar)('x'));
|
|
9
|
+
const r = (0, combinators_ski_1.reduceStep)(t);
|
|
10
|
+
(0, vitest_1.expect)(r).not.toBeNull();
|
|
11
|
+
(0, vitest_1.expect)((0, combinators_ski_1.ctermEq)(r, (0, combinators_ski_1.cvar)('x'))).toBe(true);
|
|
12
|
+
});
|
|
13
|
+
(0, vitest_1.it)('K x y reduce a x en un paso', () => {
|
|
14
|
+
const t = (0, combinators_ski_1.app)((0, combinators_ski_1.K)(), (0, combinators_ski_1.cvar)('x'), (0, combinators_ski_1.cvar)('y'));
|
|
15
|
+
const r = (0, combinators_ski_1.reduceStep)(t);
|
|
16
|
+
(0, vitest_1.expect)(r).not.toBeNull();
|
|
17
|
+
(0, vitest_1.expect)((0, combinators_ski_1.ctermEq)(r, (0, combinators_ski_1.cvar)('x'))).toBe(true);
|
|
18
|
+
});
|
|
19
|
+
(0, vitest_1.it)('K x y descarta y aunque y tenga redex', () => {
|
|
20
|
+
// y = I z; tras K x (I z) debe quedar x — sin reducir el segundo arg.
|
|
21
|
+
const t = (0, combinators_ski_1.app)((0, combinators_ski_1.K)(), (0, combinators_ski_1.cvar)('x'), (0, combinators_ski_1.app)((0, combinators_ski_1.I)(), (0, combinators_ski_1.cvar)('z')));
|
|
22
|
+
const norm = (0, combinators_ski_1.normalize)(t);
|
|
23
|
+
(0, vitest_1.expect)(norm.terminated).toBe(true);
|
|
24
|
+
(0, vitest_1.expect)((0, combinators_ski_1.ctermEq)(norm.result, (0, combinators_ski_1.cvar)('x'))).toBe(true);
|
|
25
|
+
});
|
|
26
|
+
(0, vitest_1.it)('S x y z reduce a x z (y z)', () => {
|
|
27
|
+
const t = (0, combinators_ski_1.app)((0, combinators_ski_1.S)(), (0, combinators_ski_1.cvar)('x'), (0, combinators_ski_1.cvar)('y'), (0, combinators_ski_1.cvar)('z'));
|
|
28
|
+
const r = (0, combinators_ski_1.reduceStep)(t);
|
|
29
|
+
(0, vitest_1.expect)(r).not.toBeNull();
|
|
30
|
+
const expected = (0, combinators_ski_1.app)((0, combinators_ski_1.app)((0, combinators_ski_1.cvar)('x'), (0, combinators_ski_1.cvar)('z')), (0, combinators_ski_1.app)((0, combinators_ski_1.cvar)('y'), (0, combinators_ski_1.cvar)('z')));
|
|
31
|
+
(0, vitest_1.expect)((0, combinators_ski_1.ctermEq)(r, expected)).toBe(true);
|
|
32
|
+
});
|
|
33
|
+
(0, vitest_1.it)('S K K x reduce a x (= I)', () => {
|
|
34
|
+
const t = (0, combinators_ski_1.app)((0, combinators_ski_1.S)(), (0, combinators_ski_1.K)(), (0, combinators_ski_1.K)(), (0, combinators_ski_1.cvar)('x'));
|
|
35
|
+
const norm = (0, combinators_ski_1.normalize)(t);
|
|
36
|
+
(0, vitest_1.expect)(norm.terminated).toBe(true);
|
|
37
|
+
(0, vitest_1.expect)((0, combinators_ski_1.ctermEq)(norm.result, (0, combinators_ski_1.cvar)('x'))).toBe(true);
|
|
38
|
+
});
|
|
39
|
+
(0, vitest_1.it)('isNormalForm: variable libre sola es forma normal', () => {
|
|
40
|
+
(0, vitest_1.expect)((0, combinators_ski_1.isNormalForm)((0, combinators_ski_1.cvar)('x'))).toBe(true);
|
|
41
|
+
(0, vitest_1.expect)((0, combinators_ski_1.isNormalForm)((0, combinators_ski_1.I)())).toBe(true);
|
|
42
|
+
(0, vitest_1.expect)((0, combinators_ski_1.isNormalForm)((0, combinators_ski_1.K)())).toBe(true);
|
|
43
|
+
(0, vitest_1.expect)((0, combinators_ski_1.isNormalForm)((0, combinators_ski_1.S)())).toBe(true);
|
|
44
|
+
});
|
|
45
|
+
(0, vitest_1.it)('isNormalForm: K x sin segundo arg también es FN (under-applied)', () => {
|
|
46
|
+
// K x todavía no tiene los 2 args que necesita.
|
|
47
|
+
(0, vitest_1.expect)((0, combinators_ski_1.isNormalForm)((0, combinators_ski_1.app)((0, combinators_ski_1.K)(), (0, combinators_ski_1.cvar)('x')))).toBe(true);
|
|
48
|
+
(0, vitest_1.expect)((0, combinators_ski_1.isNormalForm)((0, combinators_ski_1.app)((0, combinators_ski_1.S)(), (0, combinators_ski_1.cvar)('x'), (0, combinators_ski_1.cvar)('y')))).toBe(true);
|
|
49
|
+
});
|
|
50
|
+
(0, vitest_1.it)('reduceStep baja por las ramas si no hay redex en cabeza', () => {
|
|
51
|
+
// (K x) (I y) — la cabeza está under-applied a 1 arg; igual baja
|
|
52
|
+
// al subtérmino (I y) para reducirlo.
|
|
53
|
+
const t = (0, combinators_ski_1.app)((0, combinators_ski_1.app)((0, combinators_ski_1.K)(), (0, combinators_ski_1.cvar)('x')), (0, combinators_ski_1.app)((0, combinators_ski_1.I)(), (0, combinators_ski_1.cvar)('y')));
|
|
54
|
+
// Primer paso ahora reduce K x (I y) → x (atomic head, well-applied).
|
|
55
|
+
const r = (0, combinators_ski_1.reduceStep)(t);
|
|
56
|
+
(0, vitest_1.expect)(r).not.toBeNull();
|
|
57
|
+
(0, vitest_1.expect)((0, combinators_ski_1.ctermEq)(r, (0, combinators_ski_1.cvar)('x'))).toBe(true);
|
|
58
|
+
});
|
|
59
|
+
});
|
|
60
|
+
(0, vitest_1.describe)('combinators-ski / divergencia y maxSteps', () => {
|
|
61
|
+
(0, vitest_1.it)('un término divergente respeta maxSteps con terminated=false', () => {
|
|
62
|
+
// Omega-equivalente en SKI: SII(SII) — clásico divergente.
|
|
63
|
+
// x = SII; x x = (SII)(SII) → I(SII)(I(SII)) → SII (SII) ...
|
|
64
|
+
const SII = (0, combinators_ski_1.app)((0, combinators_ski_1.S)(), (0, combinators_ski_1.I)(), (0, combinators_ski_1.I)());
|
|
65
|
+
const omega = (0, combinators_ski_1.app)(SII, SII);
|
|
66
|
+
const r = (0, combinators_ski_1.normalize)(omega, 50);
|
|
67
|
+
(0, vitest_1.expect)(r.terminated).toBe(false);
|
|
68
|
+
(0, vitest_1.expect)(r.steps).toBe(50);
|
|
69
|
+
});
|
|
70
|
+
});
|
|
71
|
+
(0, vitest_1.describe)('combinators-ski / bracket abstraction (λ → SKI)', () => {
|
|
72
|
+
(0, vitest_1.it)('abstractFromLambda(λx.x) = I', () => {
|
|
73
|
+
const t = (0, lambda_calc_1.lam)('x', (0, lambda_calc_1.v)('x'));
|
|
74
|
+
const c = (0, combinators_ski_1.abstractFromLambda)(t);
|
|
75
|
+
(0, vitest_1.expect)((0, combinators_ski_1.ctermEq)(c, (0, combinators_ski_1.I)())).toBe(true);
|
|
76
|
+
});
|
|
77
|
+
(0, vitest_1.it)('abstractFromLambda(λx.λy.x) es equivalente a K', () => {
|
|
78
|
+
// [y] x = K x (x ∉ FV(x)... pero x ≠ y, sí es K x)
|
|
79
|
+
// [x] (K x) = S (K K) I (forma canónica, no sintácticamente K)
|
|
80
|
+
// Aplicado a dos args debe colapsar a x.
|
|
81
|
+
const t = (0, lambda_calc_1.lam)('x', (0, lambda_calc_1.lam)('y', (0, lambda_calc_1.v)('x')));
|
|
82
|
+
const c = (0, combinators_ski_1.abstractFromLambda)(t);
|
|
83
|
+
// Test semántico: aplicado a (a, b) debe normalizar a `a`.
|
|
84
|
+
const applied = (0, combinators_ski_1.app)(c, (0, combinators_ski_1.cvar)('a'), (0, combinators_ski_1.cvar)('b'));
|
|
85
|
+
const norm = (0, combinators_ski_1.normalize)(applied);
|
|
86
|
+
(0, vitest_1.expect)(norm.terminated).toBe(true);
|
|
87
|
+
(0, vitest_1.expect)((0, combinators_ski_1.ctermEq)(norm.result, (0, combinators_ski_1.cvar)('a'))).toBe(true);
|
|
88
|
+
});
|
|
89
|
+
(0, vitest_1.it)('abstractFromLambda(λx.λy.λz. x z (y z)) es equivalente a S', () => {
|
|
90
|
+
// S = λx.λy.λz. x z (y z)
|
|
91
|
+
const t = (0, lambda_calc_1.lam)('x', (0, lambda_calc_1.lam)('y', (0, lambda_calc_1.lam)('z', (0, lambda_calc_1.apN)((0, lambda_calc_1.v)('x'), (0, lambda_calc_1.v)('z'), (0, lambda_calc_1.ap)((0, lambda_calc_1.v)('y'), (0, lambda_calc_1.v)('z'))))));
|
|
92
|
+
const c = (0, combinators_ski_1.abstractFromLambda)(t);
|
|
93
|
+
// Aplicado a (f, g, h) debe normalizar a f h (g h).
|
|
94
|
+
const applied = (0, combinators_ski_1.app)(c, (0, combinators_ski_1.cvar)('f'), (0, combinators_ski_1.cvar)('g'), (0, combinators_ski_1.cvar)('h'));
|
|
95
|
+
const norm = (0, combinators_ski_1.normalize)(applied);
|
|
96
|
+
(0, vitest_1.expect)(norm.terminated).toBe(true);
|
|
97
|
+
const expected = (0, combinators_ski_1.app)((0, combinators_ski_1.app)((0, combinators_ski_1.cvar)('f'), (0, combinators_ski_1.cvar)('h')), (0, combinators_ski_1.app)((0, combinators_ski_1.cvar)('g'), (0, combinators_ski_1.cvar)('h')));
|
|
98
|
+
(0, vitest_1.expect)((0, combinators_ski_1.ctermEq)(norm.result, expected)).toBe(true);
|
|
99
|
+
});
|
|
100
|
+
(0, vitest_1.it)('abstractFromLambda(λx.y) = K y (constante respecto a x)', () => {
|
|
101
|
+
const t = (0, lambda_calc_1.lam)('x', (0, lambda_calc_1.v)('y'));
|
|
102
|
+
const c = (0, combinators_ski_1.abstractFromLambda)(t);
|
|
103
|
+
(0, vitest_1.expect)((0, combinators_ski_1.ctermEq)(c, (0, combinators_ski_1.app)((0, combinators_ski_1.K)(), (0, combinators_ski_1.cvar)('y')))).toBe(true);
|
|
104
|
+
});
|
|
105
|
+
(0, vitest_1.it)('abstractFromLambda(λx.λy. x y) es equivalente a I aplicado', () => {
|
|
106
|
+
// λx.λy. x y ≡ λx. x bajo η (en λ-cálculo).
|
|
107
|
+
// SKI bracket genera algo más grande; lo probamos vía aplicación.
|
|
108
|
+
const t = (0, lambda_calc_1.lam)('x', (0, lambda_calc_1.lam)('y', (0, lambda_calc_1.ap)((0, lambda_calc_1.v)('x'), (0, lambda_calc_1.v)('y'))));
|
|
109
|
+
const c = (0, combinators_ski_1.abstractFromLambda)(t);
|
|
110
|
+
const applied = (0, combinators_ski_1.app)(c, (0, combinators_ski_1.cvar)('f'), (0, combinators_ski_1.cvar)('a'));
|
|
111
|
+
const norm = (0, combinators_ski_1.normalize)(applied);
|
|
112
|
+
(0, vitest_1.expect)(norm.terminated).toBe(true);
|
|
113
|
+
(0, vitest_1.expect)((0, combinators_ski_1.ctermEq)(norm.result, (0, combinators_ski_1.app)((0, combinators_ski_1.cvar)('f'), (0, combinators_ski_1.cvar)('a')))).toBe(true);
|
|
114
|
+
});
|
|
115
|
+
(0, vitest_1.it)('abstractFromLambda no contiene abstracciones (sólo S/K/I/var/app)', () => {
|
|
116
|
+
// Cualquier λ-término debe traducirse a una expresión de combinadores pura.
|
|
117
|
+
const t = (0, lambda_calc_1.lam)('x', (0, lambda_calc_1.lam)('y', (0, lambda_calc_1.lam)('z', (0, lambda_calc_1.apN)((0, lambda_calc_1.v)('x'), (0, lambda_calc_1.v)('z'), (0, lambda_calc_1.ap)((0, lambda_calc_1.v)('y'), (0, lambda_calc_1.v)('z'))))));
|
|
118
|
+
const c = (0, combinators_ski_1.abstractFromLambda)(t);
|
|
119
|
+
assertNoBinders(c);
|
|
120
|
+
});
|
|
121
|
+
});
|
|
122
|
+
(0, vitest_1.describe)('combinators-ski / round-trip semántico', () => {
|
|
123
|
+
(0, vitest_1.it)('toLambda(I), toLambda(K), toLambda(S) son las definiciones λ canónicas', () => {
|
|
124
|
+
(0, vitest_1.expect)((0, lambda_calc_1.alphaEq)((0, combinators_ski_1.toLambda)((0, combinators_ski_1.I)()), (0, lambda_calc_1.lam)('x', (0, lambda_calc_1.v)('x')))).toBe(true);
|
|
125
|
+
(0, vitest_1.expect)((0, lambda_calc_1.alphaEq)((0, combinators_ski_1.toLambda)((0, combinators_ski_1.K)()), (0, lambda_calc_1.lam)('x', (0, lambda_calc_1.lam)('y', (0, lambda_calc_1.v)('x'))))).toBe(true);
|
|
126
|
+
const Slam = (0, lambda_calc_1.lam)('x', (0, lambda_calc_1.lam)('y', (0, lambda_calc_1.lam)('z', (0, lambda_calc_1.apN)((0, lambda_calc_1.v)('x'), (0, lambda_calc_1.v)('z'), (0, lambda_calc_1.ap)((0, lambda_calc_1.v)('y'), (0, lambda_calc_1.v)('z'))))));
|
|
127
|
+
(0, vitest_1.expect)((0, lambda_calc_1.alphaEq)((0, combinators_ski_1.toLambda)((0, combinators_ski_1.S)()), Slam)).toBe(true);
|
|
128
|
+
});
|
|
129
|
+
(0, vitest_1.it)('round-trip λ → SKI → λ preserva la semántica aplicada (identidad)', () => {
|
|
130
|
+
// Aplicamos `(λx.x) a` y `(toLambda(abstract(λx.x))) a` y comparamos formas normales.
|
|
131
|
+
const idLam = (0, lambda_calc_1.lam)('x', (0, lambda_calc_1.v)('x'));
|
|
132
|
+
const skis = (0, combinators_ski_1.abstractFromLambda)(idLam);
|
|
133
|
+
const lamBack = (0, combinators_ski_1.toLambda)(skis);
|
|
134
|
+
const lhs = (0, lambda_calc_1.normalize)((0, lambda_calc_1.ap)(idLam, (0, lambda_calc_1.v)('a')));
|
|
135
|
+
const rhs = (0, lambda_calc_1.normalize)((0, lambda_calc_1.ap)(lamBack, (0, lambda_calc_1.v)('a')));
|
|
136
|
+
(0, vitest_1.expect)(lhs.terminated).toBe(true);
|
|
137
|
+
(0, vitest_1.expect)(rhs.terminated).toBe(true);
|
|
138
|
+
(0, vitest_1.expect)((0, lambda_calc_1.alphaEq)(lhs.result, rhs.result)).toBe(true);
|
|
139
|
+
});
|
|
140
|
+
(0, vitest_1.it)('round-trip preserva semántica de K aplicado a (a, b)', () => {
|
|
141
|
+
const Klam = (0, lambda_calc_1.lam)('x', (0, lambda_calc_1.lam)('y', (0, lambda_calc_1.v)('x')));
|
|
142
|
+
const skis = (0, combinators_ski_1.abstractFromLambda)(Klam);
|
|
143
|
+
const lamBack = (0, combinators_ski_1.toLambda)(skis);
|
|
144
|
+
const applied = (0, lambda_calc_1.apN)(lamBack, (0, lambda_calc_1.v)('a'), (0, lambda_calc_1.v)('b'));
|
|
145
|
+
const norm = (0, lambda_calc_1.normalize)(applied);
|
|
146
|
+
(0, vitest_1.expect)(norm.terminated).toBe(true);
|
|
147
|
+
(0, vitest_1.expect)((0, lambda_calc_1.alphaEq)(norm.result, (0, lambda_calc_1.v)('a'))).toBe(true);
|
|
148
|
+
});
|
|
149
|
+
(0, vitest_1.it)('round-trip preserva semántica de S aplicado a (f, g, h)', () => {
|
|
150
|
+
const Slam = (0, lambda_calc_1.lam)('x', (0, lambda_calc_1.lam)('y', (0, lambda_calc_1.lam)('z', (0, lambda_calc_1.apN)((0, lambda_calc_1.v)('x'), (0, lambda_calc_1.v)('z'), (0, lambda_calc_1.ap)((0, lambda_calc_1.v)('y'), (0, lambda_calc_1.v)('z'))))));
|
|
151
|
+
const skis = (0, combinators_ski_1.abstractFromLambda)(Slam);
|
|
152
|
+
const lamBack = (0, combinators_ski_1.toLambda)(skis);
|
|
153
|
+
const applied = (0, lambda_calc_1.apN)(lamBack, (0, lambda_calc_1.v)('f'), (0, lambda_calc_1.v)('g'), (0, lambda_calc_1.v)('h'));
|
|
154
|
+
const norm = (0, lambda_calc_1.normalize)(applied);
|
|
155
|
+
(0, vitest_1.expect)(norm.terminated).toBe(true);
|
|
156
|
+
// Forma normal: f h (g h).
|
|
157
|
+
const expected = (0, lambda_calc_1.apN)((0, lambda_calc_1.v)('f'), (0, lambda_calc_1.v)('h'), (0, lambda_calc_1.ap)((0, lambda_calc_1.v)('g'), (0, lambda_calc_1.v)('h')));
|
|
158
|
+
(0, vitest_1.expect)((0, lambda_calc_1.alphaEq)(norm.result, expected)).toBe(true);
|
|
159
|
+
});
|
|
160
|
+
});
|
|
161
|
+
(0, vitest_1.describe)('combinators-ski / utilidades', () => {
|
|
162
|
+
(0, vitest_1.it)('termToString imprime aplicaciones asociativas a la izquierda', () => {
|
|
163
|
+
// S K K x → "S K K x" (sin paréntesis: todo es app-izquierda)
|
|
164
|
+
const t = (0, combinators_ski_1.app)((0, combinators_ski_1.S)(), (0, combinators_ski_1.K)(), (0, combinators_ski_1.K)(), (0, combinators_ski_1.cvar)('x'));
|
|
165
|
+
(0, vitest_1.expect)((0, combinators_ski_1.termToString)(t)).toBe('S K K x');
|
|
166
|
+
});
|
|
167
|
+
(0, vitest_1.it)('termToString agrupa con paréntesis los args que son aplicaciones', () => {
|
|
168
|
+
// f (g x)
|
|
169
|
+
const t = (0, combinators_ski_1.app)((0, combinators_ski_1.cvar)('f'), (0, combinators_ski_1.app)((0, combinators_ski_1.cvar)('g'), (0, combinators_ski_1.cvar)('x')));
|
|
170
|
+
(0, vitest_1.expect)((0, combinators_ski_1.termToString)(t)).toBe('f (g x)');
|
|
171
|
+
});
|
|
172
|
+
(0, vitest_1.it)('freeVars enumera variables libres', () => {
|
|
173
|
+
// S (K x) y → libres: {x, y}
|
|
174
|
+
const t = (0, combinators_ski_1.app)((0, combinators_ski_1.S)(), (0, combinators_ski_1.app)((0, combinators_ski_1.K)(), (0, combinators_ski_1.cvar)('x')), (0, combinators_ski_1.cvar)('y'));
|
|
175
|
+
const fv = (0, combinators_ski_1.freeVars)(t);
|
|
176
|
+
(0, vitest_1.expect)(fv.has('x')).toBe(true);
|
|
177
|
+
(0, vitest_1.expect)(fv.has('y')).toBe(true);
|
|
178
|
+
(0, vitest_1.expect)(fv.size).toBe(2);
|
|
179
|
+
});
|
|
180
|
+
(0, vitest_1.it)('app con un solo argumento devuelve el término tal cual', () => {
|
|
181
|
+
const t = (0, combinators_ski_1.app)((0, combinators_ski_1.cvar)('x'));
|
|
182
|
+
(0, vitest_1.expect)((0, combinators_ski_1.ctermEq)(t, (0, combinators_ski_1.cvar)('x'))).toBe(true);
|
|
183
|
+
});
|
|
184
|
+
(0, vitest_1.it)('app() sin argumentos lanza', () => {
|
|
185
|
+
(0, vitest_1.expect)(() => (0, combinators_ski_1.app)()).toThrow();
|
|
186
|
+
});
|
|
187
|
+
(0, vitest_1.it)('ctermEq distingue por estructura', () => {
|
|
188
|
+
(0, vitest_1.expect)((0, combinators_ski_1.ctermEq)((0, combinators_ski_1.I)(), (0, combinators_ski_1.I)())).toBe(true);
|
|
189
|
+
(0, vitest_1.expect)((0, combinators_ski_1.ctermEq)((0, combinators_ski_1.K)(), (0, combinators_ski_1.S)())).toBe(false);
|
|
190
|
+
(0, vitest_1.expect)((0, combinators_ski_1.ctermEq)((0, combinators_ski_1.cvar)('x'), (0, combinators_ski_1.cvar)('y'))).toBe(false);
|
|
191
|
+
(0, vitest_1.expect)((0, combinators_ski_1.ctermEq)((0, combinators_ski_1.app)((0, combinators_ski_1.I)(), (0, combinators_ski_1.cvar)('x')), (0, combinators_ski_1.app)((0, combinators_ski_1.I)(), (0, combinators_ski_1.cvar)('x')))).toBe(true);
|
|
192
|
+
(0, vitest_1.expect)((0, combinators_ski_1.ctermEq)((0, combinators_ski_1.app)((0, combinators_ski_1.I)(), (0, combinators_ski_1.cvar)('x')), (0, combinators_ski_1.app)((0, combinators_ski_1.I)(), (0, combinators_ski_1.cvar)('y')))).toBe(false);
|
|
193
|
+
});
|
|
194
|
+
});
|
|
195
|
+
// Helper de test: confirma que un CTerm no contiene nodos de tipo 'abs'
|
|
196
|
+
// (sería estructuralmente imposible en SKI, pero comprueba que el tipo
|
|
197
|
+
// generado por bracket abstraction es realmente puro).
|
|
198
|
+
function assertNoBinders(t) {
|
|
199
|
+
switch (t.kind) {
|
|
200
|
+
case 'S':
|
|
201
|
+
case 'K':
|
|
202
|
+
case 'I':
|
|
203
|
+
case 'var':
|
|
204
|
+
return;
|
|
205
|
+
case 'app':
|
|
206
|
+
assertNoBinders(t.fn);
|
|
207
|
+
assertNoBinders(t.arg);
|
|
208
|
+
return;
|
|
209
|
+
}
|
|
210
|
+
}
|
|
211
|
+
//# sourceMappingURL=combinators-ski.test.js.map
|
|
@@ -0,0 +1 @@
|
|
|
1
|
+
{"version":3,"file":"combinators-ski.test.js","sourceRoot":"","sources":["../../../src/tests/combinators-ski/combinators-ski.test.ts"],"names":[],"mappings":";;AAAA,mCAA8C;AAC9C,2DAc+B;AAE/B,mDAO2B;AAG3B,IAAA,iBAAQ,EAAC,oCAAoC,EAAE,GAAG,EAAE;IAClD,IAAA,WAAE,EAAC,2BAA2B,EAAE,GAAG,EAAE;QACnC,MAAM,CAAC,GAAG,IAAA,qBAAG,EAAC,IAAA,mBAAC,GAAE,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC;QAC9B,MAAM,CAAC,GAAG,IAAA,4BAAU,EAAC,CAAC,CAAC,CAAC;QACxB,IAAA,eAAM,EAAC,CAAC,CAAC,CAAC,GAAG,CAAC,QAAQ,EAAE,CAAC;QACzB,IAAA,eAAM,EAAC,IAAA,yBAAO,EAAC,CAAE,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IAC5C,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,6BAA6B,EAAE,GAAG,EAAE;QACrC,MAAM,CAAC,GAAG,IAAA,qBAAG,EAAC,IAAA,mBAAC,GAAE,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC;QACzC,MAAM,CAAC,GAAG,IAAA,4BAAU,EAAC,CAAC,CAAC,CAAC;QACxB,IAAA,eAAM,EAAC,CAAC,CAAC,CAAC,GAAG,CAAC,QAAQ,EAAE,CAAC;QACzB,IAAA,eAAM,EAAC,IAAA,yBAAO,EAAC,CAAE,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IAC5C,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,uCAAuC,EAAE,GAAG,EAAE;QAC/C,sEAAsE;QACtE,MAAM,CAAC,GAAG,IAAA,qBAAG,EAAC,IAAA,mBAAC,GAAE,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,EAAE,IAAA,qBAAG,EAAC,IAAA,mBAAC,GAAE,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC;QACnD,MAAM,IAAI,GAAG,IAAA,2BAAS,EAAC,CAAC,CAAC,CAAC;QAC1B,IAAA,eAAM,EAAC,IAAI,CAAC,UAAU,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QACnC,IAAA,eAAM,EAAC,IAAA,yBAAO,EAAC,IAAI,CAAC,MAAM,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACrD,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,4BAA4B,EAAE,GAAG,EAAE;QACpC,MAAM,CAAC,GAAG,IAAA,qBAAG,EAAC,IAAA,mBAAC,GAAE,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC;QACpD,MAAM,CAAC,GAAG,IAAA,4BAAU,EAAC,CAAC,CAAC,CAAC;QACxB,IAAA,eAAM,EAAC,CAAC,CAAC,CAAC,GAAG,CAAC,QAAQ,EAAE,CAAC;QACzB,MAAM,QAAQ,GAAG,IAAA,qBAAG,EAAC,IAAA,qBAAG,EAAC,IAAA,sBAAI,EAAC,GAAG,CAAC,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,EAAE,IAAA,qBAAG,EAAC,IAAA,sBAAI,EAAC,GAAG,CAAC,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC;QAC3E,IAAA,eAAM,EAAC,IAAA,yBAAO,EAAC,CAAE,EAAE,QAAQ,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IAC3C,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,0BAA0B,EAAE,GAAG,EAAE;QAClC,MAAM,CAAC,GAAG,IAAA,qBAAG,EAAC,IAAA,mBAAC,GAAE,EAAE,IAAA,mBAAC,GAAE,EAAE,IAAA,mBAAC,GAAE,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC;QACxC,MAAM,IAAI,GAAG,IAAA,2BAAS,EAAC,CAAC,CAAC,CAAC;QAC1B,IAAA,eAAM,EAAC,IAAI,CAAC,UAAU,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QACnC,IAAA,eAAM,EAAC,IAAA,yBAAO,EAAC,IAAI,CAAC,MAAM,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACrD,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,mDAAmD,EAAE,GAAG,EAAE;QAC3D,IAAA,eAAM,EAAC,IAAA,8BAAY,EAAC,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QAC3C,IAAA,eAAM,EAAC,IAAA,8BAAY,EAAC,IAAA,mBAAC,GAAE,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QACrC,IAAA,eAAM,EAAC,IAAA,8BAAY,EAAC,IAAA,mBAAC,GAAE,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QACrC,IAAA,eAAM,EAAC,IAAA,8BAAY,EAAC,IAAA,mBAAC,GAAE,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACvC,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,iEAAiE,EAAE,GAAG,EAAE;QACzE,gDAAgD;QAChD,IAAA,eAAM,EAAC,IAAA,8BAAY,EAAC,IAAA,qBAAG,EAAC,IAAA,mBAAC,GAAE,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QACrD,IAAA,eAAM,EAAC,IAAA,8BAAY,EAAC,IAAA,qBAAG,EAAC,IAAA,mBAAC,GAAE,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IAClE,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,yDAAyD,EAAE,GAAG,EAAE;QACjE,kEAAkE;QAClE,sCAAsC;QACtC,MAAM,CAAC,GAAG,IAAA,qBAAG,EAAC,IAAA,qBAAG,EAAC,IAAA,mBAAC,GAAE,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,EAAE,IAAA,qBAAG,EAAC,IAAA,mBAAC,GAAE,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC;QACxD,sEAAsE;QACtE,MAAM,CAAC,GAAG,IAAA,4BAAU,EAAC,CAAC,CAAC,CAAC;QACxB,IAAA,eAAM,EAAC,CAAC,CAAC,CAAC,GAAG,CAAC,QAAQ,EAAE,CAAC;QACzB,IAAA,eAAM,EAAC,IAAA,yBAAO,EAAC,CAAE,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IAC5C,CAAC,CAAC,CAAC;AACL,CAAC,CAAC,CAAC;AAEH,IAAA,iBAAQ,EAAC,0CAA0C,EAAE,GAAG,EAAE;IACxD,IAAA,WAAE,EAAC,6DAA6D,EAAE,GAAG,EAAE;QACrE,2DAA2D;QAC3D,8DAA8D;QAC9D,MAAM,GAAG,GAAG,IAAA,qBAAG,EAAC,IAAA,mBAAC,GAAE,EAAE,IAAA,mBAAC,GAAE,EAAE,IAAA,mBAAC,GAAE,CAAC,CAAC;QAC/B,MAAM,KAAK,GAAG,IAAA,qBAAG,EAAC,GAAG,EAAE,GAAG,CAAC,CAAC;QAC5B,MAAM,CAAC,GAAG,IAAA,2BAAS,EAAC,KAAK,EAAE,EAAE,CAAC,CAAC;QAC/B,IAAA,eAAM,EAAC,CAAC,CAAC,UAAU,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;QACjC,IAAA,eAAM,EAAC,CAAC,CAAC,KAAK,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;IAC3B,CAAC,CAAC,CAAC;AACL,CAAC,CAAC,CAAC;AAEH,IAAA,iBAAQ,EAAC,iDAAiD,EAAE,GAAG,EAAE;IAC/D,IAAA,WAAE,EAAC,8BAA8B,EAAE,GAAG,EAAE;QACtC,MAAM,CAAC,GAAG,IAAA,iBAAG,EAAC,GAAG,EAAE,IAAA,eAAM,EAAC,GAAG,CAAC,CAAC,CAAC;QAChC,MAAM,CAAC,GAAG,IAAA,oCAAkB,EAAC,CAAC,CAAC,CAAC;QAChC,IAAA,eAAM,EAAC,IAAA,yBAAO,EAAC,CAAC,EAAE,IAAA,mBAAC,GAAE,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACrC,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,gDAAgD,EAAE,GAAG,EAAE;QACxD,yDAAyD;QACzD,mEAAmE;QACnE,yCAAyC;QACzC,MAAM,CAAC,GAAG,IAAA,iBAAG,EAAC,GAAG,EAAE,IAAA,iBAAG,EAAC,GAAG,EAAE,IAAA,eAAM,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC;QAC1C,MAAM,CAAC,GAAG,IAAA,oCAAkB,EAAC,CAAC,CAAC,CAAC;QAChC,2DAA2D;QAC3D,MAAM,OAAO,GAAG,IAAA,qBAAG,EAAC,CAAC,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC;QAC7C,MAAM,IAAI,GAAG,IAAA,2BAAS,EAAC,OAAO,CAAC,CAAC;QAChC,IAAA,eAAM,EAAC,IAAI,CAAC,UAAU,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QACnC,IAAA,eAAM,EAAC,IAAA,yBAAO,EAAC,IAAI,CAAC,MAAM,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACrD,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,4DAA4D,EAAE,GAAG,EAAE;QACpE,0BAA0B;QAC1B,MAAM,CAAC,GAAG,IAAA,iBAAG,EACX,GAAG,EACH,IAAA,iBAAG,EAAC,GAAG,EAAE,IAAA,iBAAG,EAAC,GAAG,EAAE,IAAA,iBAAM,EAAC,IAAA,eAAM,EAAC,GAAG,CAAC,EAAE,IAAA,eAAM,EAAC,GAAG,CAAC,EAAE,IAAA,gBAAK,EAAC,IAAA,eAAM,EAAC,GAAG,CAAC,EAAE,IAAA,eAAM,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CACtF,CAAC;QACF,MAAM,CAAC,GAAG,IAAA,oCAAkB,EAAC,CAAC,CAAC,CAAC;QAChC,oDAAoD;QACpD,MAAM,OAAO,GAAG,IAAA,qBAAG,EAAC,CAAC,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC;QACxD,MAAM,IAAI,GAAG,IAAA,2BAAS,EAAC,OAAO,CAAC,CAAC;QAChC,IAAA,eAAM,EAAC,IAAI,CAAC,UAAU,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QACnC,MAAM,QAAQ,GAAG,IAAA,qBAAG,EAAC,IAAA,qBAAG,EAAC,IAAA,sBAAI,EAAC,GAAG,CAAC,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,EAAE,IAAA,qBAAG,EAAC,IAAA,sBAAI,EAAC,GAAG,CAAC,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC;QAC3E,IAAA,eAAM,EAAC,IAAA,yBAAO,EAAC,IAAI,CAAC,MAAM,EAAE,QAAQ,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACpD,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,yDAAyD,EAAE,GAAG,EAAE;QACjE,MAAM,CAAC,GAAG,IAAA,iBAAG,EAAC,GAAG,EAAE,IAAA,eAAM,EAAC,GAAG,CAAC,CAAC,CAAC;QAChC,MAAM,CAAC,GAAG,IAAA,oCAAkB,EAAC,CAAC,CAAC,CAAC;QAChC,IAAA,eAAM,EAAC,IAAA,yBAAO,EAAC,CAAC,EAAE,IAAA,qBAAG,EAAC,IAAA,mBAAC,GAAE,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACrD,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,4DAA4D,EAAE,GAAG,EAAE;QACpE,iDAAiD;QACjD,kEAAkE;QAClE,MAAM,CAAC,GAAG,IAAA,iBAAG,EAAC,GAAG,EAAE,IAAA,iBAAG,EAAC,GAAG,EAAE,IAAA,gBAAK,EAAC,IAAA,eAAM,EAAC,GAAG,CAAC,EAAE,IAAA,eAAM,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;QAC9D,MAAM,CAAC,GAAG,IAAA,oCAAkB,EAAC,CAAC,CAAC,CAAC;QAChC,MAAM,OAAO,GAAG,IAAA,qBAAG,EAAC,CAAC,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC;QAC7C,MAAM,IAAI,GAAG,IAAA,2BAAS,EAAC,OAAO,CAAC,CAAC;QAChC,IAAA,eAAM,EAAC,IAAI,CAAC,UAAU,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QACnC,IAAA,eAAM,EAAC,IAAA,yBAAO,EAAC,IAAI,CAAC,MAAM,EAAE,IAAA,qBAAG,EAAC,IAAA,sBAAI,EAAC,GAAG,CAAC,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACrE,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,mEAAmE,EAAE,GAAG,EAAE;QAC3E,4EAA4E;QAC5E,MAAM,CAAC,GAAG,IAAA,iBAAG,EACX,GAAG,EACH,IAAA,iBAAG,EAAC,GAAG,EAAE,IAAA,iBAAG,EAAC,GAAG,EAAE,IAAA,iBAAM,EAAC,IAAA,eAAM,EAAC,GAAG,CAAC,EAAE,IAAA,eAAM,EAAC,GAAG,CAAC,EAAE,IAAA,gBAAK,EAAC,IAAA,eAAM,EAAC,GAAG,CAAC,EAAE,IAAA,eAAM,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CACtF,CAAC;QACF,MAAM,CAAC,GAAG,IAAA,oCAAkB,EAAC,CAAC,CAAC,CAAC;QAChC,eAAe,CAAC,CAAC,CAAC,CAAC;IACrB,CAAC,CAAC,CAAC;AACL,CAAC,CAAC,CAAC;AAEH,IAAA,iBAAQ,EAAC,wCAAwC,EAAE,GAAG,EAAE;IACtD,IAAA,WAAE,EAAC,wEAAwE,EAAE,GAAG,EAAE;QAChF,IAAA,eAAM,EAAC,IAAA,qBAAO,EAAC,IAAA,0BAAQ,EAAC,IAAA,mBAAC,GAAE,CAAC,EAAE,IAAA,iBAAG,EAAC,GAAG,EAAE,IAAA,eAAM,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QACjE,IAAA,eAAM,EAAC,IAAA,qBAAO,EAAC,IAAA,0BAAQ,EAAC,IAAA,mBAAC,GAAE,CAAC,EAAE,IAAA,iBAAG,EAAC,GAAG,EAAE,IAAA,iBAAG,EAAC,GAAG,EAAE,IAAA,eAAM,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QAC3E,MAAM,IAAI,GAAe,IAAA,iBAAG,EAC1B,GAAG,EACH,IAAA,iBAAG,EAAC,GAAG,EAAE,IAAA,iBAAG,EAAC,GAAG,EAAE,IAAA,iBAAM,EAAC,IAAA,eAAM,EAAC,GAAG,CAAC,EAAE,IAAA,eAAM,EAAC,GAAG,CAAC,EAAE,IAAA,gBAAK,EAAC,IAAA,eAAM,EAAC,GAAG,CAAC,EAAE,IAAA,eAAM,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CACtF,CAAC;QACF,IAAA,eAAM,EAAC,IAAA,qBAAO,EAAC,IAAA,0BAAQ,EAAC,IAAA,mBAAC,GAAE,CAAC,EAAE,IAAI,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IAClD,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,mEAAmE,EAAE,GAAG,EAAE;QAC3E,sFAAsF;QACtF,MAAM,KAAK,GAAe,IAAA,iBAAG,EAAC,GAAG,EAAE,IAAA,eAAM,EAAC,GAAG,CAAC,CAAC,CAAC;QAChD,MAAM,IAAI,GAAG,IAAA,oCAAkB,EAAC,KAAK,CAAC,CAAC;QACvC,MAAM,OAAO,GAAG,IAAA,0BAAQ,EAAC,IAAI,CAAC,CAAC;QAC/B,MAAM,GAAG,GAAG,IAAA,uBAAY,EAAC,IAAA,gBAAK,EAAC,KAAK,EAAE,IAAA,eAAM,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC;QACpD,MAAM,GAAG,GAAG,IAAA,uBAAY,EAAC,IAAA,gBAAK,EAAC,OAAO,EAAE,IAAA,eAAM,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC;QACtD,IAAA,eAAM,EAAC,GAAG,CAAC,UAAU,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QAClC,IAAA,eAAM,EAAC,GAAG,CAAC,UAAU,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QAClC,IAAA,eAAM,EAAC,IAAA,qBAAO,EAAC,GAAG,CAAC,MAAM,EAAE,GAAG,CAAC,MAAM,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACrD,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,sDAAsD,EAAE,GAAG,EAAE;QAC9D,MAAM,IAAI,GAAe,IAAA,iBAAG,EAAC,GAAG,EAAE,IAAA,iBAAG,EAAC,GAAG,EAAE,IAAA,eAAM,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC;QACzD,MAAM,IAAI,GAAG,IAAA,oCAAkB,EAAC,IAAI,CAAC,CAAC;QACtC,MAAM,OAAO,GAAG,IAAA,0BAAQ,EAAC,IAAI,CAAC,CAAC;QAC/B,MAAM,OAAO,GAAG,IAAA,iBAAM,EAAC,OAAO,EAAE,IAAA,eAAM,EAAC,GAAG,CAAC,EAAE,IAAA,eAAM,EAAC,GAAG,CAAC,CAAC,CAAC;QAC1D,MAAM,IAAI,GAAG,IAAA,uBAAY,EAAC,OAAO,CAAC,CAAC;QACnC,IAAA,eAAM,EAAC,IAAI,CAAC,UAAU,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QACnC,IAAA,eAAM,EAAC,IAAA,qBAAO,EAAC,IAAI,CAAC,MAAM,EAAE,IAAA,eAAM,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACvD,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,yDAAyD,EAAE,GAAG,EAAE;QACjE,MAAM,IAAI,GAAe,IAAA,iBAAG,EAC1B,GAAG,EACH,IAAA,iBAAG,EAAC,GAAG,EAAE,IAAA,iBAAG,EAAC,GAAG,EAAE,IAAA,iBAAM,EAAC,IAAA,eAAM,EAAC,GAAG,CAAC,EAAE,IAAA,eAAM,EAAC,GAAG,CAAC,EAAE,IAAA,gBAAK,EAAC,IAAA,eAAM,EAAC,GAAG,CAAC,EAAE,IAAA,eAAM,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CACtF,CAAC;QACF,MAAM,IAAI,GAAG,IAAA,oCAAkB,EAAC,IAAI,CAAC,CAAC;QACtC,MAAM,OAAO,GAAG,IAAA,0BAAQ,EAAC,IAAI,CAAC,CAAC;QAC/B,MAAM,OAAO,GAAG,IAAA,iBAAM,EAAC,OAAO,EAAE,IAAA,eAAM,EAAC,GAAG,CAAC,EAAE,IAAA,eAAM,EAAC,GAAG,CAAC,EAAE,IAAA,eAAM,EAAC,GAAG,CAAC,CAAC,CAAC;QACvE,MAAM,IAAI,GAAG,IAAA,uBAAY,EAAC,OAAO,CAAC,CAAC;QACnC,IAAA,eAAM,EAAC,IAAI,CAAC,UAAU,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QACnC,2BAA2B;QAC3B,MAAM,QAAQ,GAAG,IAAA,iBAAM,EAAC,IAAA,eAAM,EAAC,GAAG,CAAC,EAAE,IAAA,eAAM,EAAC,GAAG,CAAC,EAAE,IAAA,gBAAK,EAAC,IAAA,eAAM,EAAC,GAAG,CAAC,EAAE,IAAA,eAAM,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC;QACnF,IAAA,eAAM,EAAC,IAAA,qBAAO,EAAC,IAAI,CAAC,MAAM,EAAE,QAAQ,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACpD,CAAC,CAAC,CAAC;AACL,CAAC,CAAC,CAAC;AAEH,IAAA,iBAAQ,EAAC,8BAA8B,EAAE,GAAG,EAAE;IAC5C,IAAA,WAAE,EAAC,8DAA8D,EAAE,GAAG,EAAE;QACtE,+DAA+D;QAC/D,MAAM,CAAC,GAAG,IAAA,qBAAG,EAAC,IAAA,mBAAC,GAAE,EAAE,IAAA,mBAAC,GAAE,EAAE,IAAA,mBAAC,GAAE,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC;QACxC,IAAA,eAAM,EAAC,IAAA,8BAAY,EAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,SAAS,CAAC,CAAC;IAC1C,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,kEAAkE,EAAE,GAAG,EAAE;QAC1E,UAAU;QACV,MAAM,CAAC,GAAG,IAAA,qBAAG,EAAC,IAAA,sBAAI,EAAC,GAAG,CAAC,EAAE,IAAA,qBAAG,EAAC,IAAA,sBAAI,EAAC,GAAG,CAAC,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC;QACpD,IAAA,eAAM,EAAC,IAAA,8BAAY,EAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,SAAS,CAAC,CAAC;IAC1C,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,mCAAmC,EAAE,GAAG,EAAE;QAC3C,8BAA8B;QAC9B,MAAM,CAAC,GAAG,IAAA,qBAAG,EAAC,IAAA,mBAAC,GAAE,EAAE,IAAA,qBAAG,EAAC,IAAA,mBAAC,GAAE,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC;QACnD,MAAM,EAAE,GAAG,IAAA,0BAAQ,EAAC,CAAC,CAAC,CAAC;QACvB,IAAA,eAAM,EAAC,EAAE,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QAC/B,IAAA,eAAM,EAAC,EAAE,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QAC/B,IAAA,eAAM,EAAC,EAAE,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;IAC1B,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,wDAAwD,EAAE,GAAG,EAAE;QAChE,MAAM,CAAC,GAAG,IAAA,qBAAG,EAAC,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC;QACzB,IAAA,eAAM,EAAC,IAAA,yBAAO,EAAC,CAAC,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IAC3C,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,4BAA4B,EAAE,GAAG,EAAE;QACpC,IAAA,eAAM,EAAC,GAAG,EAAE,CAAC,IAAA,qBAAG,GAAE,CAAC,CAAC,OAAO,EAAE,CAAC;IAChC,CAAC,CAAC,CAAC;IAEH,IAAA,WAAE,EAAC,kCAAkC,EAAE,GAAG,EAAE;QAC1C,IAAA,eAAM,EAAC,IAAA,yBAAO,EAAC,IAAA,mBAAC,GAAE,EAAE,IAAA,mBAAC,GAAE,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QACrC,IAAA,eAAM,EAAC,IAAA,yBAAO,EAAC,IAAA,mBAAC,GAAE,EAAE,IAAA,mBAAC,GAAE,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;QACtC,IAAA,eAAM,EAAC,IAAA,yBAAO,EAAC,IAAA,sBAAI,EAAC,GAAG,CAAC,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;QAClD,IAAA,eAAM,EAAC,IAAA,yBAAO,EAAC,IAAA,qBAAG,EAAC,IAAA,mBAAC,GAAE,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,EAAE,IAAA,qBAAG,EAAC,IAAA,mBAAC,GAAE,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QACrE,IAAA,eAAM,EAAC,IAAA,yBAAO,EAAC,IAAA,qBAAG,EAAC,IAAA,mBAAC,GAAE,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,EAAE,IAAA,qBAAG,EAAC,IAAA,mBAAC,GAAE,EAAE,IAAA,sBAAI,EAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;IACxE,CAAC,CAAC,CAAC;AACL,CAAC,CAAC,CAAC;AAEH,wEAAwE;AACxE,uEAAuE;AACvE,uDAAuD;AACvD,SAAS,eAAe,CAAC,CAAQ;IAC/B,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;QACf,KAAK,GAAG,CAAC;QACT,KAAK,GAAG,CAAC;QACT,KAAK,GAAG,CAAC;QACT,KAAK,KAAK;YACR,OAAO;QACT,KAAK,KAAK;YACR,eAAe,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC;YACtB,eAAe,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC;YACvB,OAAO;IACX,CAAC;AACH,CAAC"}
|
|
@@ -0,0 +1 @@
|
|
|
1
|
+
{"version":3,"file":"constructive-reals.test.d.ts","sourceRoot":"","sources":["../../../src/tests/constructive-reals/constructive-reals.test.ts"],"names":[],"mappings":""}
|