@stevenvo780/st-lang 4.2.0 → 4.4.0

package/dist/profiles/modal-frame-axioms/tableau.d.ts

@@ -0,0 +1,12 @@
+import { FrameAxiom, ModalFormula, TableauResult } from './types';
+export interface TableauOptions {
+    /** Máximo número de mundos a explorar. Default heurístico. */
+    maxWorlds?: number;
+}
+/**
+ * Construye un tableau extendido para `phi` bajo los axiomas
+ * de frame `axioms`. Devuelve `sat` con un modelo si existe; en
+ * caso contrario `closed=true`.
+ */
+export declare function tableauWithAxioms(phi: ModalFormula, axioms: FrameAxiom[], options?: TableauOptions): TableauResult;
+//# sourceMappingURL=tableau.d.ts.map

package/dist/profiles/modal-frame-axioms/tableau.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"tableau.d.ts","sourceRoot":"","sources":["../../../src/profiles/modal-frame-axioms/tableau.ts"],"names":[],"mappings":"AAsBA,OAAO,EAAE,UAAU,EAAe,YAAY,EAAE,aAAa,EAAE,MAAM,SAAS,CAAC;AA4R/E,MAAM,WAAW,cAAc;IAC7B,8DAA8D;IAC9D,SAAS,CAAC,EAAE,MAAM,CAAC;CACpB;AAED;;;;GAIG;AACH,wBAAgB,iBAAiB,CAC/B,GAAG,EAAE,YAAY,EACjB,MAAM,EAAE,UAAU,EAAE,EACpB,OAAO,GAAE,cAAmB,GAC3B,aAAa,CAoBf"}

package/dist/profiles/modal-frame-axioms/tableau.js

@@ -0,0 +1,299 @@
+"use strict";
+// ============================================================
+// Tableau extendido con axiomas de frame (T, B, 4, 5, D)
+// ============================================================
+//
+// Estrategia: enumeración acotada de modelos Kripke finitos que
+// satisfacen las condiciones de frame impuestas por los axiomas
+// elegidos. Toda lógica modal normal definida por un subconjunto
+// de {T, B, 4, 5, D} tiene la propiedad del modelo finito (FMP),
+// así que la búsqueda bounded es completa para tamaños suficientes.
+//
+// El nombre "tableau" se mantiene por la interfaz pública: el
+// procedimiento es equivalente a saturar un tableau prefijado y
+// extraer un Kripke model de la rama abierta, sólo que aquí se
+// hace por enumeración directa de frames + valuaciones — más
+// simple de auditar y más rápido para |sub(φ)| pequeño.
+//
+// Para evitar explosión combinatoria:
+//   - El tamaño del frame se elige según |sub(φ)| y los axiomas.
+//   - Se aplica clausura del frame antes de evaluar para
+//     enforce de las condiciones (transitivo, simétrico, etc.).
+//   - Las valuaciones se enumeran sólo sobre átomos que aparecen.
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.tableauWithAxioms = tableauWithAxioms;
+const formula_1 = require("./formula");
+function edgeKey(size, from, to) {
+    return from * size + to;
+}
+function hasEdge(m, from, to) {
+    return m.edges.has(edgeKey(m.size, from, to));
+}
+function successors(m, w) {
+    const out = [];
+    for (let v = 0; v < m.size; v++) {
+        if (hasEdge(m, w, v))
+            out.push(v);
+    }
+    return out;
+}
+// ------------------------------------------------------------
+// Forcing modal estándar (semántica Kripke)
+// ------------------------------------------------------------
+function forces(m, w, f) {
+    switch (f.kind) {
+        case 'atom':
+            return f.name !== undefined && m.val[w].has(f.name);
+        case 'not':
+            return !forces(m, w, (0, formula_1.subUnary)(f));
+        case 'and':
+            return forces(m, w, (0, formula_1.subLeft)(f)) && forces(m, w, (0, formula_1.subRight)(f));
+        case 'or':
+            return forces(m, w, (0, formula_1.subLeft)(f)) || forces(m, w, (0, formula_1.subRight)(f));
+        case 'implies':
+            return !forces(m, w, (0, formula_1.subLeft)(f)) || forces(m, w, (0, formula_1.subRight)(f));
+        case 'box': {
+            const inner = (0, formula_1.subUnary)(f);
+            for (const v of successors(m, w)) {
+                if (!forces(m, v, inner))
+                    return false;
+            }
+            return true;
+        }
+        case 'diamond': {
+            const inner = (0, formula_1.subUnary)(f);
+            for (const v of successors(m, w)) {
+                if (forces(m, v, inner))
+                    return true;
+            }
+            return false;
+        }
+    }
+}
+// ------------------------------------------------------------
+// Aplicación de axiomas de frame — clausura sobre las aristas
+// ------------------------------------------------------------
+/**
+ * Aplica las condiciones de frame impuestas por los axiomas
+ * IN-PLACE sobre `edges`. Devuelve `false` si el frame no puede
+ * satisfacer las condiciones (e.g. D requiere serialidad y el
+ * mundo está aislado — se intentará añadir, pero el chequeo
+ * final lo confirma).
+ *
+ * Reglas:
+ *   - T : ∀w. R(w,w)          → añadir lazos.
+ *   - B : R(w,v) → R(v,w)     → simetrizar.
+ *   - 4 : transitividad        → cerrar transitivamente.
+ *   - 5 : R(w,v)∧R(w,u)→R(v,u) → euclidianizar.
+ *   - D : ∀w. ∃v. R(w,v)       → si w sin sucesor, añadir lazo
+ *                                a w (siempre coherente con K+D).
+ *
+ * Las clausuras (B, 4, 5) se iteran hasta punto fijo porque se
+ * generan mutuamente.
+ */
+function closeFrame(model, axioms) {
+    const size = model.size;
+    if (axioms.has('T')) {
+        for (let w = 0; w < size; w++) {
+            model.edges.add(edgeKey(size, w, w));
+        }
+    }
+    let changed = true;
+    while (changed) {
+        changed = false;
+        if (axioms.has('B')) {
+            const snapshot = [...model.edges];
+            for (const k of snapshot) {
+                const from = Math.floor(k / size);
+                const to = k % size;
+                const rev = edgeKey(size, to, from);
+                if (!model.edges.has(rev)) {
+                    model.edges.add(rev);
+                    changed = true;
+                }
+            }
+        }
+        if (axioms.has('4')) {
+            // Cierre transitivo (Floyd-Warshall sobre la matriz booleana)
+            for (let k = 0; k < size; k++) {
+                for (let i = 0; i < size; i++) {
+                    if (!hasEdge(model, i, k))
+                        continue;
+                    for (let j = 0; j < size; j++) {
+                        if (hasEdge(model, k, j) && !hasEdge(model, i, j)) {
+                            model.edges.add(edgeKey(size, i, j));
+                            changed = true;
+                        }
+                    }
+                }
+            }
+        }
+        if (axioms.has('5')) {
+            // Euclidianidad: si w R v y w R u entonces v R u.
+            for (let w = 0; w < size; w++) {
+                const succs = [];
+                for (let v = 0; v < size; v++) {
+                    if (hasEdge(model, w, v))
+                        succs.push(v);
+                }
+                for (const v of succs) {
+                    for (const u of succs) {
+                        if (!hasEdge(model, v, u)) {
+                            model.edges.add(edgeKey(size, v, u));
+                            changed = true;
+                        }
+                    }
+                }
+            }
+        }
+    }
+    if (axioms.has('D')) {
+        // Serialidad: cada mundo necesita ≥1 sucesor. Si falta, lo
+        // damos como auto-lazo (coherente con D, pero no añade T
+        // a otros mundos).
+        for (let w = 0; w < size; w++) {
+            let has = false;
+            for (let v = 0; v < size; v++) {
+                if (hasEdge(model, w, v)) {
+                    has = true;
+                    break;
+                }
+            }
+            if (!has) {
+                model.edges.add(edgeKey(size, w, w));
+            }
+        }
+        // Cerrar de nuevo simetría/transitividad/euclidiana si las
+        // nuevas aristas introducen requerimientos.
+        if (axioms.has('B') || axioms.has('4') || axioms.has('5')) {
+            closeFrame(model, new Set([...axioms].filter((a) => a !== 'D')));
+        }
+    }
+}
+// ------------------------------------------------------------
+// Enumeración de frames y valuaciones
+// ------------------------------------------------------------
+/**
+ * Genera todos los frames de tamaño `size`. Para cada uno
+ * aplica la clausura del axioma y descarta duplicados sintácticos
+ * post-clausura.
+ */
+function* generateFrames(size, axioms) {
+    const pairs = [];
+    for (let i = 0; i < size; i++) {
+        for (let j = 0; j < size; j++) {
+            // Si T está activo, todos los lazos están forzados — no
+            // los enumeramos como variables libres.
+            if (axioms.has('T') && i === j)
+                continue;
+            pairs.push([i, j]);
+        }
+    }
+    const total = 1 << pairs.length;
+    const seen = new Set();
+    for (let mask = 0; mask < total; mask++) {
+        const edges = new Set();
+        for (let b = 0; b < pairs.length; b++) {
+            if (mask & (1 << b)) {
+                const [from, to] = pairs[b];
+                edges.add(edgeKey(size, from, to));
+            }
+        }
+        const model = {
+            size,
+            edges,
+            val: Array.from({ length: size }, () => new Set()),
+        };
+        closeFrame(model, axioms);
+        const sig = [...model.edges].sort((a, b) => a - b).join(',');
+        if (seen.has(sig))
+            continue;
+        seen.add(sig);
+        yield model;
+    }
+}
+/**
+ * Enumera valuaciones sobre `atoms` para los `size` mundos
+ * (subconjunto arbitrario de átomos por mundo, sin restricción
+ * de monotonía — la lógica modal estándar no la exige).
+ */
+function* generateValuations(size, atoms) {
+    const k = atoms.length;
+    const perWorld = 1 << k;
+    const total = Math.pow(perWorld, size);
+    for (let i = 0; i < total; i++) {
+        const val = [];
+        let idx = i;
+        for (let w = 0; w < size; w++) {
+            const mask = idx % perWorld;
+            idx = Math.floor(idx / perWorld);
+            const set = new Set();
+            for (let a = 0; a < k; a++) {
+                if (mask & (1 << a))
+                    set.add(atoms[a]);
+            }
+            val.push(set);
+        }
+        yield val;
+    }
+}
+// ------------------------------------------------------------
+// Cota de tamaño de modelo
+// ------------------------------------------------------------
+/**
+ * Tamaño máximo de modelo a explorar. Conservador: 2^|atoms|+1
+ * bastaría para la propiedad de filtración en muchas lógicas,
+ * pero acotado por un máximo absoluto para evitar explosiones.
+ *
+ * Override vía `options.maxWorlds` en la API pública.
+ */
+function defaultMaxWorlds(atomCount) {
+    if (atomCount <= 1)
+        return 3;
+    if (atomCount <= 2)
+        return 3;
+    return 3;
+}
+// ------------------------------------------------------------
+// Conversión modelo interno → público
+// ------------------------------------------------------------
+function toPublic(model, actual) {
+    const worlds = Array.from({ length: model.size }, (_, i) => `w${i}`);
+    const accessibility = [];
+    for (const k of model.edges) {
+        const from = Math.floor(k / model.size);
+        const to = k % model.size;
+        accessibility.push([`w${from}`, `w${to}`]);
+    }
+    accessibility.sort((a, b) => a[0] === b[0] ? a[1].localeCompare(b[1]) : a[0].localeCompare(b[0]));
+    const valuation = new Map();
+    for (let w = 0; w < model.size; w++) {
+        valuation.set(`w${w}`, new Set(model.val[w]));
+    }
+    return { worlds, accessibility, valuation, actual: `w${actual}` };
+}
+/**
+ * Construye un tableau extendido para `phi` bajo los axiomas
+ * de frame `axioms`. Devuelve `sat` con un modelo si existe; en
+ * caso contrario `closed=true`.
+ */
+function tableauWithAxioms(phi, axioms, options = {}) {
+    const axiomSet = new Set(axioms);
+    const atoms = [...(0, formula_1.collectAtoms)(phi)];
+    // Si la fórmula no menciona átomos (e.g. □⊥ con notación
+    // sintética), igual hay que considerar valuaciones triviales.
+    const effectiveAtoms = atoms.length === 0 ? [] : atoms;
+    const maxWorlds = options.maxWorlds ?? defaultMaxWorlds(effectiveAtoms.length);
+    for (let size = 1; size <= maxWorlds; size++) {
+        for (const frame of generateFrames(size, axiomSet)) {
+            for (const val of generateValuations(size, effectiveAtoms)) {
+                frame.val = val;
+                if (forces(frame, 0, phi)) {
+                    return { sat: true, closed: false, model: toPublic(frame, 0) };
+                }
+            }
+        }
+    }
+    return { sat: false, closed: true };
+}
+//# sourceMappingURL=tableau.js.map

package/dist/profiles/modal-frame-axioms/tableau.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"tableau.js","sourceRoot":"","sources":["../../../src/profiles/modal-frame-axioms/tableau.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,yDAAyD;AACzD,+DAA+D;AAC/D,EAAE;AACF,gEAAgE;AAChE,gEAAgE;AAChE,iEAAiE;AACjE,iEAAiE;AACjE,oEAAoE;AACpE,EAAE;AACF,8DAA8D;AAC9D,gEAAgE;AAChE,+DAA+D;AAC/D,6DAA6D;AAC7D,wDAAwD;AACxD,EAAE;AACF,sCAAsC;AACtC,iEAAiE;AACjE,yDAAyD;AACzD,gEAAgE;AAChE,kEAAkE;;AAwSlE,8CAwBC;AA7TD,uCAAsE;AActE,SAAS,OAAO,CAAC,IAAY,EAAE,IAAY,EAAE,EAAU;IACrD,OAAO,IAAI,GAAG,IAAI,GAAG,EAAE,CAAC;AAC1B,CAAC;AAED,SAAS,OAAO,CAAC,CAAgB,EAAE,IAAY,EAAE,EAAU;IACzD,OAAO,CAAC,CAAC,KAAK,CAAC,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,IAAI,EAAE,IAAI,EAAE,EAAE,CAAC,CAAC,CAAC;AAChD,CAAC;AAED,SAAS,UAAU,CAAC,CAAgB,EAAE,CAAS;IAC7C,MAAM,GAAG,GAAa,EAAE,CAAC;IACzB,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,CAAC,IAAI,EAAE,CAAC,EAAE,EAAE,CAAC;QAChC,IAAI,OAAO,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC;YAAE,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;IACpC,CAAC;IACD,OAAO,GAAG,CAAC;AACb,CAAC;AAED,+DAA+D;AAC/D,4CAA4C;AAC5C,+DAA+D;AAE/D,SAAS,MAAM,CAAC,CAAgB,EAAE,CAAS,EAAE,CAAe;IAC1D,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;QACf,KAAK,MAAM;YACT,OAAO,CAAC,CAAC,IAAI,KAAK,SAAS,IAAI,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;QACtD,KAAK,KAAK;YACR,OAAO,CAAC,MAAM,CAAC,CAAC,EAAE,CAAC,EAAE,IAAA,kBAAQ,EAAC,CAAC,CAAC,CAAC,CAAC;QACpC,KAAK,KAAK;YACR,OAAO,MAAM,CAAC,CAAC,EAAE,CAAC,EAAE,IAAA,iBAAO,EAAC,CAAC,CAAC,CAAC,IAAI,MAAM,CAAC,CAAC,EAAE,CAAC,EAAE,IAAA,kBAAQ,EAAC,CAAC,CAAC,CAAC,CAAC;QAC/D,KAAK,IAAI;YACP,OAAO,MAAM,CAAC,CAAC,EAAE,CAAC,EAAE,IAAA,iBAAO,EAAC,CAAC,CAAC,CAAC,IAAI,MAAM,CAAC,CAAC,EAAE,CAAC,EAAE,IAAA,kBAAQ,EAAC,CAAC,CAAC,CAAC,CAAC;QAC/D,KAAK,SAAS;YACZ,OAAO,CAAC,MAAM,CAAC,CAAC,EAAE,CAAC,EAAE,IAAA,iBAAO,EAAC,CAAC,CAAC,CAAC,IAAI,MAAM,CAAC,CAAC,EAAE,CAAC,EAAE,IAAA,kBAAQ,EAAC,CAAC,CAAC,CAAC,CAAC;QAChE,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,KAAK,GAAG,IAAA,kBAAQ,EAAC,CAAC,CAAC,CAAC;YAC1B,KAAK,MAAM,CAAC,IAAI,UAAU,CAAC,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC;gBACjC,IAAI,CAAC,MAAM,CAAC,CAAC,EAAE,CAAC,EAAE,KAAK,CAAC;oBAAE,OAAO,KAAK,CAAC;YACzC,CAAC;YACD,OAAO,IAAI,CAAC;QACd,CAAC;QACD,KAAK,SAAS,CAAC,CAAC,CAAC;YACf,MAAM,KAAK,GAAG,IAAA,kBAAQ,EAAC,CAAC,CAAC,CAAC;YAC1B,KAAK,MAAM,CAAC,IAAI,UAAU,CAAC,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC;gBACjC,IAAI,MAAM,CAAC,CAAC,EAAE,CAAC,EAAE,KAAK,CAAC;oBAAE,OAAO,IAAI,CAAC;YACvC,CAAC;YACD,OAAO,KAAK,CAAC;QACf,CAAC;IACH,CAAC;AACH,CAAC;AAED,+DAA+D;AAC/D,8DAA8D;AAC9D,+DAA+D;AAE/D;;;;;;;;;;;;;;;;;GAiBG;AACH,SAAS,UAAU,CAAC,KAAoB,EAAE,MAAuB;IAC/D,MAAM,IAAI,GAAG,KAAK,CAAC,IAAI,CAAC;IAExB,IAAI,MAAM,CAAC,GAAG,CAAC,GAAG,CAAC,EAAE,CAAC;QACpB,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,EAAE,EAAE,CAAC;YAC9B,KAAK,CAAC,KAAK,CAAC,GAAG,CAAC,OAAO,CAAC,IAAI,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;QACvC,CAAC;IACH,CAAC;IAED,IAAI,OAAO,GAAG,IAAI,CAAC;IACnB,OAAO,OAAO,EAAE,CAAC;QACf,OAAO,GAAG,KAAK,CAAC;QAEhB,IAAI,MAAM,CAAC,GAAG,CAAC,GAAG,CAAC,EAAE,CAAC;YACpB,MAAM,QAAQ,GAAG,CAAC,GAAG,KAAK,CAAC,KAAK,CAAC,CAAC;YAClC,KAAK,MAAM,CAAC,IAAI,QAAQ,EAAE,CAAC;gBACzB,MAAM,IAAI,GAAG,IAAI,CAAC,KAAK,CAAC,CAAC,GAAG,IAAI,CAAC,CAAC;gBAClC,MAAM,EAAE,GAAG,CAAC,GAAG,IAAI,CAAC;gBACpB,MAAM,GAAG,GAAG,OAAO,CAAC,IAAI,EAAE,EAAE,EAAE,IAAI,CAAC,CAAC;gBACpC,IAAI,CAAC,KAAK,CAAC,KAAK,CAAC,GAAG,CAAC,GAAG,CAAC,EAAE,CAAC;oBAC1B,KAAK,CAAC,KAAK,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC;oBACrB,OAAO,GAAG,IAAI,CAAC;gBACjB,CAAC;YACH,CAAC;QACH,CAAC;QAED,IAAI,MAAM,CAAC,GAAG,CAAC,GAAG,CAAC,EAAE,CAAC;YACpB,8DAA8D;YAC9D,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,EAAE,EAAE,CAAC;gBAC9B,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,EAAE,EAAE,CAAC;oBAC9B,IAAI,CAAC,OAAO,CAAC,KAAK,EAAE,CAAC,EAAE,CAAC,CAAC;wBAAE,SAAS;oBACpC,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,EAAE,EAAE,CAAC;wBAC9B,IAAI,OAAO,CAAC,KAAK,EAAE,CAAC,EAAE,CAAC,CAAC,IAAI,CAAC,OAAO,CAAC,KAAK,EAAE,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC;4BAClD,KAAK,CAAC,KAAK,CAAC,GAAG,CAAC,OAAO,CAAC,IAAI,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;4BACrC,OAAO,GAAG,IAAI,CAAC;wBACjB,CAAC;oBACH,CAAC;gBACH,CAAC;YACH,CAAC;QACH,CAAC;QAED,IAAI,MAAM,CAAC,GAAG,CAAC,GAAG,CAAC,EAAE,CAAC;YACpB,kDAAkD;YAClD,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,EAAE,EAAE,CAAC;gBAC9B,MAAM,KAAK,GAAa,EAAE,CAAC;gBAC3B,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,EAAE,EAAE,CAAC;oBAC9B,IAAI,OAAO,CAAC,KAAK,EAAE,CAAC,EAAE,CAAC,CAAC;wBAAE,KAAK,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;gBAC1C,CAAC;gBACD,KAAK,MAAM,CAAC,IAAI,KAAK,EAAE,CAAC;oBACtB,KAAK,MAAM,CAAC,IAAI,KAAK,EAAE,CAAC;wBACtB,IAAI,CAAC,OAAO,CAAC,KAAK,EAAE,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC;4BAC1B,KAAK,CAAC,KAAK,CAAC,GAAG,CAAC,OAAO,CAAC,IAAI,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;4BACrC,OAAO,GAAG,IAAI,CAAC;wBACjB,CAAC;oBACH,CAAC;gBACH,CAAC;YACH,CAAC;QACH,CAAC;IACH,CAAC;IAED,IAAI,MAAM,CAAC,GAAG,CAAC,GAAG,CAAC,EAAE,CAAC;QACpB,2DAA2D;QAC3D,yDAAyD;QACzD,mBAAmB;QACnB,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,EAAE,EAAE,CAAC;YAC9B,IAAI,GAAG,GAAG,KAAK,CAAC;YAChB,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,EAAE,EAAE,CAAC;gBAC9B,IAAI,OAAO,CAAC,KAAK,EAAE,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC;oBACzB,GAAG,GAAG,IAAI,CAAC;oBACX,MAAM;gBACR,CAAC;YACH,CAAC;YACD,IAAI,CAAC,GAAG,EAAE,CAAC;gBACT,KAAK,CAAC,KAAK,CAAC,GAAG,CAAC,OAAO,CAAC,IAAI,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;YACvC,CAAC;QACH,CAAC;QACD,2DAA2D;QAC3D,4CAA4C;QAC5C,IAAI,MAAM,CAAC,GAAG,CAAC,GAAG,CAAC,IAAI,MAAM,CAAC,GAAG,CAAC,GAAG,CAAC,IAAI,MAAM,CAAC,GAAG,CAAC,GAAG,CAAC,EAAE,CAAC;YAC1D,UAAU,CAAC,KAAK,EAAE,IAAI,GAAG,CAAC,CAAC,GAAG,MAAM,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,KAAK,GAAG,CAAC,CAAC,CAAC,CAAC;QACnE,CAAC;IACH,CAAC;AACH,CAAC;AAED,+DAA+D;AAC/D,sCAAsC;AACtC,+DAA+D;AAE/D;;;;GAIG;AACH,QAAQ,CAAC,CAAC,cAAc,CAAC,IAAY,EAAE,MAAuB;IAC5D,MAAM,KAAK,GAA4B,EAAE,CAAC;IAC1C,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,EAAE,EAAE,CAAC;QAC9B,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,EAAE,EAAE,CAAC;YAC9B,wDAAwD;YACxD,wCAAwC;YACxC,IAAI,MAAM,CAAC,GAAG,CAAC,GAAG,CAAC,IAAI,CAAC,KAAK,CAAC;gBAAE,SAAS;YACzC,KAAK,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;QACrB,CAAC;IACH,CAAC;IAED,MAAM,KAAK,GAAG,CAAC,IAAI,KAAK,CAAC,MAAM,CAAC;IAChC,MAAM,IAAI,GAAG,IAAI,GAAG,EAAU,CAAC;IAE/B,KAAK,IAAI,IAAI,GAAG,CAAC,EAAE,IAAI,GAAG,KAAK,EAAE,IAAI,EAAE,EAAE,CAAC;QACxC,MAAM,KAAK,GAAG,IAAI,GAAG,EAAU,CAAC;QAChC,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,KAAK,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;YACtC,IAAI,IAAI,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC,EAAE,CAAC;gBACpB,MAAM,CAAC,IAAI,EAAE,EAAE,CAAC,GAAG,KAAK,CAAC,CAAC,CAAC,CAAC;gBAC5B,KAAK,CAAC,GAAG,CAAC,OAAO,CAAC,IAAI,EAAE,IAAI,EAAE,EAAE,CAAC,CAAC,CAAC;YACrC,CAAC;QACH,CAAC;QACD,MAAM,KAAK,GAAkB;YAC3B,IAAI;YACJ,KAAK;YACL,GAAG,EAAE,KAAK,CAAC,IAAI,CAAC,EAAE,MAAM,EAAE,IAAI,EAAE,EAAE,GAAG,EAAE,CAAC,IAAI,GAAG,EAAU,CAAC;SAC3D,CAAC;QACF,UAAU,CAAC,KAAK,EAAE,MAAM,CAAC,CAAC;QAE1B,MAAM,GAAG,GAAG,CAAC,GAAG,KAAK,CAAC,KAAK,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;QAC7D,IAAI,IAAI,CAAC,GAAG,CAAC,GAAG,CAAC;YAAE,SAAS;QAC5B,IAAI,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC;QAEd,MAAM,KAAK,CAAC;IACd,CAAC;AACH,CAAC;AAED;;;;GAIG;AACH,QAAQ,CAAC,CAAC,kBAAkB,CAAC,IAAY,EAAE,KAAe;IACxD,MAAM,CAAC,GAAG,KAAK,CAAC,MAAM,CAAC;IACvB,MAAM,QAAQ,GAAG,CAAC,IAAI,CAAC,CAAC;IACxB,MAAM,KAAK,GAAG,IAAI,CAAC,GAAG,CAAC,QAAQ,EAAE,IAAI,CAAC,CAAC;IACvC,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,KAAK,EAAE,CAAC,EAAE,EAAE,CAAC;QAC/B,MAAM,GAAG,GAAkB,EAAE,CAAC;QAC9B,IAAI,GAAG,GAAG,CAAC,CAAC;QACZ,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,EAAE,EAAE,CAAC;YAC9B,MAAM,IAAI,GAAG,GAAG,GAAG,QAAQ,CAAC;YAC5B,GAAG,GAAG,IAAI,CAAC,KAAK,CAAC,GAAG,GAAG,QAAQ,CAAC,CAAC;YACjC,MAAM,GAAG,GAAG,IAAI,GAAG,EAAU,CAAC;YAC9B,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;gBAC3B,IAAI,IAAI,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC;oBAAE,GAAG,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC;YACzC,CAAC;YACD,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;QAChB,CAAC;QACD,MAAM,GAAG,CAAC;IACZ,CAAC;AACH,CAAC;AAED,+DAA+D;AAC/D,2BAA2B;AAC3B,+DAA+D;AAE/D;;;;;;GAMG;AACH,SAAS,gBAAgB,CAAC,SAAiB;IACzC,IAAI,SAAS,IAAI,CAAC;QAAE,OAAO,CAAC,CAAC;IAC7B,IAAI,SAAS,IAAI,CAAC;QAAE,OAAO,CAAC,CAAC;IAC7B,OAAO,CAAC,CAAC;AACX,CAAC;AAED,+DAA+D;AAC/D,sCAAsC;AACtC,+DAA+D;AAE/D,SAAS,QAAQ,CAAC,KAAoB,EAAE,MAAc;IACpD,MAAM,MAAM,GAAG,KAAK,CAAC,IAAI,CAAC,EAAE,MAAM,EAAE,KAAK,CAAC,IAAI,EAAE,EAAE,CAAC,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;IACrE,MAAM,aAAa,GAA4B,EAAE,CAAC;IAClD,KAAK,MAAM,CAAC,IAAI,KAAK,CAAC,KAAK,EAAE,CAAC;QAC5B,MAAM,IAAI,GAAG,IAAI,CAAC,KAAK,CAAC,CAAC,GAAG,KAAK,CAAC,IAAI,CAAC,CAAC;QACxC,MAAM,EAAE,GAAG,CAAC,GAAG,KAAK,CAAC,IAAI,CAAC;QAC1B,aAAa,CAAC,IAAI,CAAC,CAAC,IAAI,IAAI,EAAE,EAAE,IAAI,EAAE,EAAE,CAAC,CAAC,CAAC;IAC7C,CAAC;IACD,aAAa,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,EAAE,CAC1B,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,aAAa,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,aAAa,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CACpE,CAAC;IACF,MAAM,SAAS,GAAG,IAAI,GAAG,EAAuB,CAAC;IACjD,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,KAAK,CAAC,IAAI,EAAE,CAAC,EAAE,EAAE,CAAC;QACpC,SAAS,CAAC,GAAG,CAAC,IAAI,CAAC,EAAE,EAAE,IAAI,GAAG,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;IAChD,CAAC;IACD,OAAO,EAAE,MAAM,EAAE,aAAa,EAAE,SAAS,EAAE,MAAM,EAAE,IAAI,MAAM,EAAE,EAAE,CAAC;AACpE,CAAC;AAWD;;;;GAIG;AACH,SAAgB,iBAAiB,CAC/B,GAAiB,EACjB,MAAoB,EACpB,UAA0B,EAAE;IAE5B,MAAM,QAAQ,GAAG,IAAI,GAAG,CAAa,MAAM,CAAC,CAAC;IAC7C,MAAM,KAAK,GAAG,CAAC,GAAG,IAAA,sBAAY,EAAC,GAAG,CAAC,CAAC,CAAC;IACrC,yDAAyD;IACzD,8DAA8D;IAC9D,MAAM,cAAc,GAAG,KAAK,CAAC,MAAM,KAAK,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,KAAK,CAAC;IACvD,MAAM,SAAS,GAAG,OAAO,CAAC,SAAS,IAAI,gBAAgB,CAAC,cAAc,CAAC,MAAM,CAAC,CAAC;IAE/E,KAAK,IAAI,IAAI,GAAG,CAAC,EAAE,IAAI,IAAI,SAAS,EAAE,IAAI,EAAE,EAAE,CAAC;QAC7C,KAAK,MAAM,KAAK,IAAI,cAAc,CAAC,IAAI,EAAE,QAAQ,CAAC,EAAE,CAAC;YACnD,KAAK,MAAM,GAAG,IAAI,kBAAkB,CAAC,IAAI,EAAE,cAAc,CAAC,EAAE,CAAC;gBAC3D,KAAK,CAAC,GAAG,GAAG,GAAG,CAAC;gBAChB,IAAI,MAAM,CAAC,KAAK,EAAE,CAAC,EAAE,GAAG,CAAC,EAAE,CAAC;oBAC1B,OAAO,EAAE,GAAG,EAAE,IAAI,EAAE,MAAM,EAAE,KAAK,EAAE,KAAK,EAAE,QAAQ,CAAC,KAAK,EAAE,CAAC,CAAC,EAAE,CAAC;gBACjE,CAAC;YACH,CAAC;QACH,CAAC;IACH,CAAC;IAED,OAAO,EAAE,GAAG,EAAE,KAAK,EAAE,MAAM,EAAE,IAAI,EAAE,CAAC;AACtC,CAAC"}

package/dist/profiles/modal-frame-axioms/types.d.ts

@@ -0,0 +1,61 @@
+/**
+ * Axiomas de frame disponibles. Cualquier subconjunto define una
+ * lógica modal normal.
+ */
+export type FrameAxiom = 'T' | 'B' | '4' | '5' | 'D';
+/**
+ * Sistemas modales nombrados que reconoce {@link systemAxioms}.
+ * Cualquier otra combinación puede construirse pasando los axiomas
+ * directamente a {@link tableauWithAxioms}.
+ */
+export type ModalSystem = 'K' | 'T' | 'D' | 'B' | 'S4' | 'S5' | 'KD45' | 'KB' | 'K4' | 'K5';
+/**
+ * Fórmula modal proposicional. Estructura discriminada por `kind`.
+ *
+ * Convenciones:
+ *   - 'atom'     usa `name`.
+ *   - 'not'      usa `arg`.
+ *   - 'box'      usa `arg`  (□φ — necesidad).
+ *   - 'diamond'  usa `arg`  (◇φ — posibilidad).
+ *   - 'and' / 'or' / 'implies' usan `left` y `right`.
+ *
+ * Se mantiene también `args` como alternativa lista para
+ * compatibilidad con consumidores que prefieren n-arios.
+ */
+export interface ModalFormula {
+    kind: 'atom' | 'not' | 'and' | 'or' | 'implies' | 'box' | 'diamond';
+    name?: string;
+    arg?: ModalFormula;
+    args?: ModalFormula[];
+    left?: ModalFormula;
+    right?: ModalFormula;
+}
+/**
+ * Modelo de Kripke devuelto cuando una fórmula es satisfacible.
+ *
+ *   - `worlds`        : nombres simbólicos de mundos (e.g. "w0", "w1").
+ *   - `accessibility` : aristas dirigidas `[from, to]` del frame.
+ *   - `valuation`     : por mundo, los átomos verdaderos en ese mundo.
+ *   - `actual`        : mundo "real" donde se evalúa la fórmula
+ *                       (típicamente "w0").
+ */
+export interface KripkeModel {
+    worlds: string[];
+    accessibility: Array<[string, string]>;
+    valuation: Map<string, Set<string>>;
+    actual: string;
+}
+/**
+ * Resultado del tableau / búsqueda de modelo.
+ *
+ *   - `sat`    : ¿existe modelo en el frame indicado?
+ *   - `model`  : si `sat`, modelo concreto (raíz = actual world).
+ *   - `closed` : ¿el tableau cerró todas las ramas? (= ¬sat).
+ *                Para una búsqueda saturada: closed ⇔ ¬sat.
+ */
+export interface TableauResult {
+    sat: boolean;
+    model?: KripkeModel;
+    closed: boolean;
+}
+//# sourceMappingURL=types.d.ts.map

package/dist/profiles/modal-frame-axioms/types.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"types.d.ts","sourceRoot":"","sources":["../../../src/profiles/modal-frame-axioms/types.ts"],"names":[],"mappings":"AAyBA;;;GAGG;AACH,MAAM,MAAM,UAAU,GAAG,GAAG,GAAG,GAAG,GAAG,GAAG,GAAG,GAAG,GAAG,GAAG,CAAC;AAErD;;;;GAIG;AACH,MAAM,MAAM,WAAW,GAAG,GAAG,GAAG,GAAG,GAAG,GAAG,GAAG,GAAG,GAAG,IAAI,GAAG,IAAI,GAAG,MAAM,GAAG,IAAI,GAAG,IAAI,GAAG,IAAI,CAAC;AAE5F;;;;;;;;;;;;GAYG;AACH,MAAM,WAAW,YAAY;IAC3B,IAAI,EAAE,MAAM,GAAG,KAAK,GAAG,KAAK,GAAG,IAAI,GAAG,SAAS,GAAG,KAAK,GAAG,SAAS,CAAC;IACpE,IAAI,CAAC,EAAE,MAAM,CAAC;IACd,GAAG,CAAC,EAAE,YAAY,CAAC;IACnB,IAAI,CAAC,EAAE,YAAY,EAAE,CAAC;IACtB,IAAI,CAAC,EAAE,YAAY,CAAC;IACpB,KAAK,CAAC,EAAE,YAAY,CAAC;CACtB;AAED;;;;;;;;GAQG;AACH,MAAM,WAAW,WAAW;IAC1B,MAAM,EAAE,MAAM,EAAE,CAAC;IACjB,aAAa,EAAE,KAAK,CAAC,CAAC,MAAM,EAAE,MAAM,CAAC,CAAC,CAAC;IACvC,SAAS,EAAE,GAAG,CAAC,MAAM,EAAE,GAAG,CAAC,MAAM,CAAC,CAAC,CAAC;IACpC,MAAM,EAAE,MAAM,CAAC;CAChB;AAED;;;;;;;GAOG;AACH,MAAM,WAAW,aAAa;IAC5B,GAAG,EAAE,OAAO,CAAC;IACb,KAAK,CAAC,EAAE,WAAW,CAAC;IACpB,MAAM,EAAE,OAAO,CAAC;CACjB"}

package/dist/profiles/modal-frame-axioms/types.js

@@ -0,0 +1,27 @@
+"use strict";
+// ============================================================
+// Modal Frame Axioms — Tipos
+// ============================================================
+//
+// Lógicas modales normales caracterizadas por axiomas de frame:
+//
+//   T : □φ → φ            reflexividad     ∀w. R(w,w)
+//   B : φ → □◇φ           simetría         ∀w,v. R(w,v) → R(v,w)
+//   4 : □φ → □□φ          transitividad    ∀w,v,u. R(w,v)∧R(v,u) → R(w,u)
+//   5 : ◇φ → □◇φ          euclidianidad    ∀w,v,u. R(w,v)∧R(w,u) → R(v,u)
+//   D : □φ → ◇φ           serialidad       ∀w. ∃v. R(w,v)
+//
+// Sistemas estándar como composiciones:
+//
+//   K     = ∅          (sin axiomas, sólo K y N)
+//   T     = {T}        reflexivo
+//   D     = {D}        serial
+//   B     = {T, B}     reflexivo + simétrico  (a veces KB = {B} sin T)
+//   K4    = {4}        transitivo
+//   K5    = {5}        euclidiano
+//   KB    = {B}        sólo simétrico
+//   S4    = {T, 4}     reflexivo + transitivo
+//   S5    = {T, 4, 5}  equivalencia (≡ T+B+4 ≡ T+5)
+//   KD45  = {D, 4, 5}  serial + trans + eucl  (modelo doxástico)
+Object.defineProperty(exports, "__esModule", { value: true });
+//# sourceMappingURL=types.js.map

package/dist/profiles/modal-frame-axioms/types.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"types.js","sourceRoot":"","sources":["../../../src/profiles/modal-frame-axioms/types.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,6BAA6B;AAC7B,+DAA+D;AAC/D,EAAE;AACF,gEAAgE;AAChE,EAAE;AACF,sDAAsD;AACtD,iEAAiE;AACjE,0EAA0E;AAC1E,0EAA0E;AAC1E,0DAA0D;AAC1D,EAAE;AACF,wCAAwC;AACxC,EAAE;AACF,iDAAiD;AACjD,iCAAiC;AACjC,8BAA8B;AAC9B,uEAAuE;AACvE,kCAAkC;AAClC,kCAAkC;AAClC,sCAAsC;AACtC,8CAA8C;AAC9C,oDAAoD;AACpD,iEAAiE"}

package/dist/profiles/mu-calculus/check.d.ts

@@ -0,0 +1,15 @@
+import type { KripkeStructure, MuFormula } from './types';
+/**
+ * Model checking de modal μ-calculus.
+ * Devuelve el conjunto de estados que satisfacen φ.
+ *
+ * Lanza si φ tiene variables libres no ligadas o si la fórmula no
+ * está bien formada en tiempo de ejecución (se recomienda chequear
+ * `isWellFormed(φ)` antes de invocar).
+ */
+export declare function modelCheck(K: KripkeStructure, phi: MuFormula): Set<string>;
+/**
+ * `K, s ⊨ φ` para un estado puntual. Conveniencia sobre `modelCheck`.
+ */
+export declare function satisfiesAt(K: KripkeStructure, phi: MuFormula, state: string): boolean;
+//# sourceMappingURL=check.d.ts.map

package/dist/profiles/mu-calculus/check.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"check.d.ts","sourceRoot":"","sources":["../../../src/profiles/mu-calculus/check.ts"],"names":[],"mappings":"AAqBA,OAAO,KAAK,EAAE,eAAe,EAAE,SAAS,EAAE,MAAM,SAAS,CAAC;AAoI1D;;;;;;;GAOG;AACH,wBAAgB,UAAU,CAAC,CAAC,EAAE,eAAe,EAAE,GAAG,EAAE,SAAS,GAAG,GAAG,CAAC,MAAM,CAAC,CAG1E;AAED;;GAEG;AACH,wBAAgB,WAAW,CAAC,CAAC,EAAE,eAAe,EAAE,GAAG,EAAE,SAAS,EAAE,KAAK,EAAE,MAAM,GAAG,OAAO,CAEtF"}

package/dist/profiles/mu-calculus/check.js

@@ -0,0 +1,172 @@
+"use strict";
+// ============================================================
+// μ-calculus model checker — algoritmo Emerson-Lei / Tarski
+// ============================================================
+// Semántica denotacional: ⟦φ⟧^ρ ⊆ S, donde ρ : Var → 2^S es el
+// "environment" que asigna conjuntos de estados a variables.
+//
+//   ⟦p⟧ρ        = { s ∈ S | p ∈ L(s) }
+//   ⟦X⟧ρ        = ρ(X)
+//   ⟦¬φ⟧ρ       = S \ ⟦φ⟧ρ
+//   ⟦φ ∧ ψ⟧ρ    = ⟦φ⟧ρ ∩ ⟦ψ⟧ρ
+//   ⟦φ ∨ ψ⟧ρ    = ⟦φ⟧ρ ∪ ⟦ψ⟧ρ
+//   ⟦□φ⟧ρ       = { s | ∀s'. s→s' ⇒ s' ∈ ⟦φ⟧ρ }
+//   ⟦◇φ⟧ρ       = { s | ∃s'. s→s' ∧ s' ∈ ⟦φ⟧ρ }
+//   ⟦μX. φ⟧ρ    = lfp T,  T(U) = ⟦φ⟧ρ[X↦U]
+//   ⟦νX. φ⟧ρ    = gfp T,  idem
+//
+// lfp/gfp se computan iterando desde ∅ / S hasta punto fijo
+// (Knaster-Tarski). Modelos finitos terminan en ≤ |S| iteraciones.
+// Complejidad O(|φ| · |S|^{ad(φ)+1}) en el peor caso.
+// ============================================================
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.modelCheck = modelCheck;
+exports.satisfiesAt = satisfiesAt;
+function compile(K) {
+    const states = [...K.states];
+    const universe = new Set(states);
+    const labels = new Map();
+    const succ = new Map();
+    for (const s of states) {
+        labels.set(s, new Set(K.labelling[s] ?? []));
+        succ.set(s, new Set());
+    }
+    for (const [from, to] of K.transitions) {
+        if (!universe.has(from)) {
+            throw new Error(`μ-calculus: transición desde estado desconocido "${from}"`);
+        }
+        if (!universe.has(to)) {
+            throw new Error(`μ-calculus: transición hacia estado desconocido "${to}"`);
+        }
+        succ.get(from).add(to);
+    }
+    return { states, universe, labels, succ };
+}
+function evalFormula(model, phi, env) {
+    switch (phi.kind) {
+        case 'atom': {
+            const out = new Set();
+            for (const s of model.states) {
+                if (model.labels.get(s).has(phi.name))
+                    out.add(s);
+            }
+            return out;
+        }
+        case 'var': {
+            const v = env.get(phi.name);
+            if (!v) {
+                throw new Error(`μ-calculus: variable libre "${phi.name}" en evaluación`);
+            }
+            return new Set(v);
+        }
+        case 'not': {
+            const sub = evalFormula(model, phi.arg, env);
+            const out = new Set();
+            for (const s of model.states)
+                if (!sub.has(s))
+                    out.add(s);
+            return out;
+        }
+        case 'and': {
+            const l = evalFormula(model, phi.left, env);
+            const r = evalFormula(model, phi.right, env);
+            const out = new Set();
+            for (const s of l)
+                if (r.has(s))
+                    out.add(s);
+            return out;
+        }
+        case 'or': {
+            const l = evalFormula(model, phi.left, env);
+            const r = evalFormula(model, phi.right, env);
+            const out = new Set(l);
+            for (const s of r)
+                out.add(s);
+            return out;
+        }
+        case 'box': {
+            // □φ: todos los sucesores satisfacen φ (vacuamente true si no hay sucesores)
+            const sub = evalFormula(model, phi.arg, env);
+            const out = new Set();
+            for (const s of model.states) {
+                const succs = model.succ.get(s);
+                let allOk = true;
+                for (const t of succs) {
+                    if (!sub.has(t)) {
+                        allOk = false;
+                        break;
+                    }
+                }
+                if (allOk)
+                    out.add(s);
+            }
+            return out;
+        }
+        case 'diamond': {
+            // ◇φ: existe un sucesor que satisface φ
+            const sub = evalFormula(model, phi.arg, env);
+            const out = new Set();
+            for (const s of model.states) {
+                for (const t of model.succ.get(s)) {
+                    if (sub.has(t)) {
+                        out.add(s);
+                        break;
+                    }
+                }
+            }
+            return out;
+        }
+        case 'mu': {
+            // lfp: empezar desde ∅, iterar hasta punto fijo
+            let approx = new Set();
+            while (true) {
+                const next = evalFormula(model, phi.body, extend(env, phi.bind, approx));
+                if (setsEqual(approx, next))
+                    return approx;
+                approx = next;
+            }
+        }
+        case 'nu': {
+            // gfp: empezar desde S, iterar hasta punto fijo
+            let approx = new Set(model.states);
+            while (true) {
+                const next = evalFormula(model, phi.body, extend(env, phi.bind, approx));
+                if (setsEqual(approx, next))
+                    return approx;
+                approx = next;
+            }
+        }
+    }
+}
+function extend(env, name, value) {
+    const next = new Map(env);
+    next.set(name, value);
+    return next;
+}
+function setsEqual(a, b) {
+    if (a.size !== b.size)
+        return false;
+    for (const x of a)
+        if (!b.has(x))
+            return false;
+    return true;
+}
+/**
+ * Model checking de modal μ-calculus.
+ * Devuelve el conjunto de estados que satisfacen φ.
+ *
+ * Lanza si φ tiene variables libres no ligadas o si la fórmula no
+ * está bien formada en tiempo de ejecución (se recomienda chequear
+ * `isWellFormed(φ)` antes de invocar).
+ */
+function modelCheck(K, phi) {
+    const model = compile(K);
+    return evalFormula(model, phi, new Map());
+}
+/**
+ * `K, s ⊨ φ` para un estado puntual. Conveniencia sobre `modelCheck`.
+ */
+function satisfiesAt(K, phi, state) {
+    return modelCheck(K, phi).has(state);
+}
+//# sourceMappingURL=check.js.map

package/dist/profiles/mu-calculus/check.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"check.js","sourceRoot":"","sources":["../../../src/profiles/mu-calculus/check.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,4DAA4D;AAC5D,+DAA+D;AAC/D,+DAA+D;AAC/D,6DAA6D;AAC7D,EAAE;AACF,uCAAuC;AACvC,uBAAuB;AACvB,2BAA2B;AAC3B,8BAA8B;AAC9B,8BAA8B;AAC9B,gDAAgD;AAChD,gDAAgD;AAChD,2CAA2C;AAC3C,+BAA+B;AAC/B,EAAE;AACF,4DAA4D;AAC5D,mEAAmE;AACnE,sDAAsD;AACtD,+DAA+D;;AA8I/D,gCAGC;AAKD,kCAEC;AA7ID,SAAS,OAAO,CAAC,CAAkB;IACjC,MAAM,MAAM,GAAG,CAAC,GAAG,CAAC,CAAC,MAAM,CAAC,CAAC;IAC7B,MAAM,QAAQ,GAAG,IAAI,GAAG,CAAC,MAAM,CAAC,CAAC;IACjC,MAAM,MAAM,GAAG,IAAI,GAAG,EAAuB,CAAC;IAC9C,MAAM,IAAI,GAAG,IAAI,GAAG,EAAuB,CAAC;IAC5C,KAAK,MAAM,CAAC,IAAI,MAAM,EAAE,CAAC;QACvB,MAAM,CAAC,GAAG,CAAC,CAAC,EAAE,IAAI,GAAG,CAAC,CAAC,CAAC,SAAS,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC;QAC7C,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,IAAI,GAAG,EAAE,CAAC,CAAC;IACzB,CAAC;IACD,KAAK,MAAM,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,CAAC,CAAC,WAAW,EAAE,CAAC;QACvC,IAAI,CAAC,QAAQ,CAAC,GAAG,CAAC,IAAI,CAAC,EAAE,CAAC;YACxB,MAAM,IAAI,KAAK,CAAC,oDAAoD,IAAI,GAAG,CAAC,CAAC;QAC/E,CAAC;QACD,IAAI,CAAC,QAAQ,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,CAAC;YACtB,MAAM,IAAI,KAAK,CAAC,oDAAoD,EAAE,GAAG,CAAC,CAAC;QAC7E,CAAC;QACD,IAAI,CAAC,GAAG,CAAC,IAAI,CAAE,CAAC,GAAG,CAAC,EAAE,CAAC,CAAC;IAC1B,CAAC;IACD,OAAO,EAAE,MAAM,EAAE,QAAQ,EAAE,MAAM,EAAE,IAAI,EAAE,CAAC;AAC5C,CAAC;AAID,SAAS,WAAW,CAAC,KAAoB,EAAE,GAAc,EAAE,GAAQ;IACjE,QAAQ,GAAG,CAAC,IAAI,EAAE,CAAC;QACjB,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,MAAM,GAAG,GAAG,IAAI,GAAG,EAAU,CAAC;YAC9B,KAAK,MAAM,CAAC,IAAI,KAAK,CAAC,MAAM,EAAE,CAAC;gBAC7B,IAAI,KAAK,CAAC,MAAM,CAAC,GAAG,CAAC,CAAC,CAAE,CAAC,GAAG,CAAC,GAAG,CAAC,IAAI,CAAC;oBAAE,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;YACrD,CAAC;YACD,OAAO,GAAG,CAAC;QACb,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,CAAC,GAAG,GAAG,CAAC,GAAG,CAAC,GAAG,CAAC,IAAI,CAAC,CAAC;YAC5B,IAAI,CAAC,CAAC,EAAE,CAAC;gBACP,MAAM,IAAI,KAAK,CAAC,+BAA+B,GAAG,CAAC,IAAI,iBAAiB,CAAC,CAAC;YAC5E,CAAC;YACD,OAAO,IAAI,GAAG,CAAC,CAAC,CAAC,CAAC;QACpB,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,GAAG,GAAG,WAAW,CAAC,KAAK,EAAE,GAAG,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YAC7C,MAAM,GAAG,GAAG,IAAI,GAAG,EAAU,CAAC;YAC9B,KAAK,MAAM,CAAC,IAAI,KAAK,CAAC,MAAM;gBAAE,IAAI,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC;oBAAE,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;YAC1D,OAAO,GAAG,CAAC;QACb,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,MAAM,CAAC,GAAG,WAAW,CAAC,KAAK,EAAE,GAAG,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YAC5C,MAAM,CAAC,GAAG,WAAW,CAAC,KAAK,EAAE,GAAG,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC;YAC7C,MAAM,GAAG,GAAG,IAAI,GAAG,EAAU,CAAC;YAC9B,KAAK,MAAM,CAAC,IAAI,CAAC;gBAAE,IAAI,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC;oBAAE,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;YAC5C,OAAO,GAAG,CAAC;QACb,CAAC;QACD,KAAK,IAAI,CAAC,CAAC,CAAC;YACV,MAAM,CAAC,GAAG,WAAW,CAAC,KAAK,EAAE,GAAG,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YAC5C,MAAM,CAAC,GAAG,WAAW,CAAC,KAAK,EAAE,GAAG,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC;YAC7C,MAAM,GAAG,GAAG,IAAI,GAAG,CAAS,CAAC,CAAC,CAAC;YAC/B,KAAK,MAAM,CAAC,IAAI,CAAC;gBAAE,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;YAC9B,OAAO,GAAG,CAAC;QACb,CAAC;QACD,KAAK,KAAK,CAAC,CAAC,CAAC;YACX,6EAA6E;YAC7E,MAAM,GAAG,GAAG,WAAW,CAAC,KAAK,EAAE,GAAG,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YAC7C,MAAM,GAAG,GAAG,IAAI,GAAG,EAAU,CAAC;YAC9B,KAAK,MAAM,CAAC,IAAI,KAAK,CAAC,MAAM,EAAE,CAAC;gBAC7B,MAAM,KAAK,GAAG,KAAK,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,CAAE,CAAC;gBACjC,IAAI,KAAK,GAAG,IAAI,CAAC;gBACjB,KAAK,MAAM,CAAC,IAAI,KAAK,EAAE,CAAC;oBACtB,IAAI,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,CAAC;wBAChB,KAAK,GAAG,KAAK,CAAC;wBACd,MAAM;oBACR,CAAC;gBACH,CAAC;gBACD,IAAI,KAAK;oBAAE,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;YACxB,CAAC;YACD,OAAO,GAAG,CAAC;QACb,CAAC;QACD,KAAK,SAAS,CAAC,CAAC,CAAC;YACf,wCAAwC;YACxC,MAAM,GAAG,GAAG,WAAW,CAAC,KAAK,EAAE,GAAG,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YAC7C,MAAM,GAAG,GAAG,IAAI,GAAG,EAAU,CAAC;YAC9B,KAAK,MAAM,CAAC,IAAI,KAAK,CAAC,MAAM,EAAE,CAAC;gBAC7B,KAAK,MAAM,CAAC,IAAI,KAAK,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,CAAE,EAAE,CAAC;oBACnC,IAAI,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,CAAC;wBACf,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;wBACX,MAAM;oBACR,CAAC;gBACH,CAAC;YACH,CAAC;YACD,OAAO,GAAG,CAAC;QACb,CAAC;QACD,KAAK,IAAI,CAAC,CAAC,CAAC;YACV,gDAAgD;YAChD,IAAI,MAAM,GAAG,IAAI,GAAG,EAAU,CAAC;YAC/B,OAAO,IAAI,EAAE,CAAC;gBACZ,MAAM,IAAI,GAAG,WAAW,CAAC,KAAK,EAAE,GAAG,CAAC,IAAI,EAAE,MAAM,CAAC,GAAG,EAAE,GAAG,CAAC,IAAI,EAAE,MAAM,CAAC,CAAC,CAAC;gBACzE,IAAI,SAAS,CAAC,MAAM,EAAE,IAAI,CAAC;oBAAE,OAAO,MAAM,CAAC;gBAC3C,MAAM,GAAG,IAAI,CAAC;YAChB,CAAC;QACH,CAAC;QACD,KAAK,IAAI,CAAC,CAAC,CAAC;YACV,gDAAgD;YAChD,IAAI,MAAM,GAAG,IAAI,GAAG,CAAS,KAAK,CAAC,MAAM,CAAC,CAAC;YAC3C,OAAO,IAAI,EAAE,CAAC;gBACZ,MAAM,IAAI,GAAG,WAAW,CAAC,KAAK,EAAE,GAAG,CAAC,IAAI,EAAE,MAAM,CAAC,GAAG,EAAE,GAAG,CAAC,IAAI,EAAE,MAAM,CAAC,CAAC,CAAC;gBACzE,IAAI,SAAS,CAAC,MAAM,EAAE,IAAI,CAAC;oBAAE,OAAO,MAAM,CAAC;gBAC3C,MAAM,GAAG,IAAI,CAAC;YAChB,CAAC;QACH,CAAC;IACH,CAAC;AACH,CAAC;AAED,SAAS,MAAM,CAAC,GAAQ,EAAE,IAAY,EAAE,KAAkB;IACxD,MAAM,IAAI,GAAG,IAAI,GAAG,CAAC,GAAG,CAAC,CAAC;IAC1B,IAAI,CAAC,GAAG,CAAC,IAAI,EAAE,KAAK,CAAC,CAAC;IACtB,OAAO,IAAI,CAAC;AACd,CAAC;AAED,SAAS,SAAS,CAAC,CAAc,EAAE,CAAc;IAC/C,IAAI,CAAC,CAAC,IAAI,KAAK,CAAC,CAAC,IAAI;QAAE,OAAO,KAAK,CAAC;IACpC,KAAK,MAAM,CAAC,IAAI,CAAC;QAAE,IAAI,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC;YAAE,OAAO,KAAK,CAAC;IAC/C,OAAO,IAAI,CAAC;AACd,CAAC;AAED;;;;;;;GAOG;AACH,SAAgB,UAAU,CAAC,CAAkB,EAAE,GAAc;IAC3D,MAAM,KAAK,GAAG,OAAO,CAAC,CAAC,CAAC,CAAC;IACzB,OAAO,WAAW,CAAC,KAAK,EAAE,GAAG,EAAE,IAAI,GAAG,EAAE,CAAC,CAAC;AAC5C,CAAC;AAED;;GAEG;AACH,SAAgB,WAAW,CAAC,CAAkB,EAAE,GAAc,EAAE,KAAa;IAC3E,OAAO,UAAU,CAAC,CAAC,EAAE,GAAG,CAAC,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC;AACvC,CAAC"}