@stevenvo780/st-lang 4.3.0 → 4.5.0

package/dist/refinement-types/predicate.js

@@ -0,0 +1,369 @@
+"use strict";
+// ============================================================
+// Refinement types — Parser y evaluador de predicados
+// ============================================================
+//
+// Los predicados se escriben como cadenas: "x > 0 && x < 100".
+// Aquí va un parser recursivo-descendente minimalista y un
+// evaluador sobre un entorno de variables. La gramática soportada:
+//
+//   expr   := or
+//   or     := and ('||' and)*
+//   and    := cmp ('&&' cmp)*
+//   cmp    := add (op add)?      op ∈ { <, <=, >, >=, ==, != }
+//   add    := mul (('+'|'-') mul)*
+//   mul    := unary (('*'|'/') unary)*
+//   unary  := '!' unary | '-' unary | atom
+//   atom   := number | bool | ident | '(' expr ')'
+//
+// El módulo no pretende cubrir aritmética completa: alcanza para
+// los predicados típicos de un sistema didáctico (rangos, igualdades).
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.parsePredicate = parsePredicate;
+exports.freeVars = freeVars;
+exports.substVar = substVar;
+exports.renameVar = renameVar;
+exports.predicateToString = predicateToString;
+exports.evalPredicate = evalPredicate;
+function tokenize(input) {
+    const out = [];
+    let i = 0;
+    const s = input;
+    while (i < s.length) {
+        const c = s[i] ?? '';
+        if (c === ' ' || c === '\t' || c === '\n' || c === '\r') {
+            i++;
+            continue;
+        }
+        if (c === '(') {
+            out.push({ type: 'lparen' });
+            i++;
+            continue;
+        }
+        if (c === ')') {
+            out.push({ type: 'rparen' });
+            i++;
+            continue;
+        }
+        // string literal
+        if (c === '"') {
+            let j = i + 1;
+            let buf = '';
+            while (j < s.length && s[j] !== '"') {
+                buf += s[j];
+                j++;
+            }
+            out.push({ type: 'str', value: buf });
+            i = j + 1;
+            continue;
+        }
+        // multichar operators
+        const two = s.slice(i, i + 2);
+        if (['<=', '>=', '==', '!=', '&&', '||'].includes(two)) {
+            out.push({ type: 'op', value: two });
+            i += 2;
+            continue;
+        }
+        if ('+-*/<>!'.includes(c)) {
+            out.push({ type: 'op', value: c });
+            i++;
+            continue;
+        }
+        // number
+        if (c >= '0' && c <= '9') {
+            let j = i;
+            while (j < s.length) {
+                const ch = s[j] ?? '';
+                if (!((ch >= '0' && ch <= '9') || ch === '.'))
+                    break;
+                j++;
+            }
+            out.push({ type: 'num', value: Number(s.slice(i, j)) });
+            i = j;
+            continue;
+        }
+        // ident / keyword
+        if ((c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z') || c === '_') {
+            let j = i;
+            while (j < s.length) {
+                const ch = s[j] ?? '';
+                if (!((ch >= 'a' && ch <= 'z') ||
+                    (ch >= 'A' && ch <= 'Z') ||
+                    (ch >= '0' && ch <= '9') ||
+                    ch === '_'))
+                    break;
+                j++;
+            }
+            const word = s.slice(i, j);
+            if (word === 'true')
+                out.push({ type: 'bool', value: true });
+            else if (word === 'false')
+                out.push({ type: 'bool', value: false });
+            else
+                out.push({ type: 'ident', value: word });
+            i = j;
+            continue;
+        }
+        throw new Error(`predicate lexer: caracter inesperado "${c}" en posición ${i}`);
+    }
+    out.push({ type: 'eof' });
+    return out;
+}
+// ---------- Parser ----------
+class Parser {
+    tokens;
+    pos = 0;
+    constructor(tokens) {
+        this.tokens = tokens;
+    }
+    peek() {
+        return this.tokens[this.pos] ?? { type: 'eof' };
+    }
+    next() {
+        const t = this.tokens[this.pos] ?? { type: 'eof' };
+        this.pos++;
+        return t;
+    }
+    parseExpr() {
+        const e = this.parseOr();
+        if (this.peek().type !== 'eof') {
+            throw new Error('predicate parser: tokens sobrantes');
+        }
+        return e;
+    }
+    parseOr() {
+        let left = this.parseAnd();
+        while (this.peek().type === 'op' && this.peek().value === '||') {
+            this.next();
+            const right = this.parseAnd();
+            left = { kind: 'binop', op: '||', left, right };
+        }
+        return left;
+    }
+    parseAnd() {
+        let left = this.parseCmp();
+        while (this.peek().type === 'op' && this.peek().value === '&&') {
+            this.next();
+            const right = this.parseCmp();
+            left = { kind: 'binop', op: '&&', left, right };
+        }
+        return left;
+    }
+    parseCmp() {
+        const left = this.parseAdd();
+        const t = this.peek();
+        if (t.type === 'op' && ['<', '<=', '>', '>=', '==', '!='].includes(t.value)) {
+            this.next();
+            const right = this.parseAdd();
+            return {
+                kind: 'binop',
+                op: t.value,
+                left,
+                right,
+            };
+        }
+        return left;
+    }
+    parseAdd() {
+        let left = this.parseMul();
+        while (this.peek().type === 'op' &&
+            ['+', '-'].includes(this.peek().value)) {
+            const op = this.next().value;
+            const right = this.parseMul();
+            left = { kind: 'binop', op, left, right };
+        }
+        return left;
+    }
+    parseMul() {
+        let left = this.parseUnary();
+        while (this.peek().type === 'op' &&
+            ['*', '/'].includes(this.peek().value)) {
+            const op = this.next().value;
+            const right = this.parseUnary();
+            left = { kind: 'binop', op, left, right };
+        }
+        return left;
+    }
+    parseUnary() {
+        const t = this.peek();
+        if (t.type === 'op' && (t.value === '!' || t.value === '-')) {
+            this.next();
+            const arg = this.parseUnary();
+            return { kind: 'unop', op: t.value, arg };
+        }
+        return this.parseAtom();
+    }
+    parseAtom() {
+        const t = this.next();
+        if (t.type === 'num')
+            return { kind: 'num', value: t.value };
+        if (t.type === 'bool')
+            return { kind: 'bool', value: t.value };
+        if (t.type === 'str')
+            return { kind: 'str', value: t.value };
+        if (t.type === 'ident')
+            return { kind: 'var', name: t.value };
+        if (t.type === 'lparen') {
+            const e = this.parseOr();
+            const close = this.next();
+            if (close.type !== 'rparen')
+                throw new Error('predicate parser: falta ")"');
+            return e;
+        }
+        throw new Error(`predicate parser: token inesperado ${JSON.stringify(t)}`);
+    }
+}
+const PARSE_CACHE = new Map();
+function parsePredicate(src) {
+    const trimmed = (src ?? '').trim();
+    if (trimmed === '' || trimmed === 'true')
+        return { kind: 'bool', value: true };
+    if (trimmed === 'false')
+        return { kind: 'bool', value: false };
+    const cached = PARSE_CACHE.get(trimmed);
+    if (cached)
+        return cached;
+    const expr = new Parser(tokenize(trimmed)).parseExpr();
+    PARSE_CACHE.set(trimmed, expr);
+    return expr;
+}
+// ---------- Free variables ----------
+function freeVars(e, acc = new Set()) {
+    switch (e.kind) {
+        case 'num':
+        case 'bool':
+        case 'str':
+            return acc;
+        case 'var':
+            acc.add(e.name);
+            return acc;
+        case 'unop':
+            return freeVars(e.arg, acc);
+        case 'binop':
+            freeVars(e.left, acc);
+            freeVars(e.right, acc);
+            return acc;
+    }
+}
+// ---------- Substitution (rename var → expr) ----------
+function substVar(e, name, replacement) {
+    switch (e.kind) {
+        case 'num':
+        case 'bool':
+        case 'str':
+            return e;
+        case 'var':
+            return e.name === name ? replacement : e;
+        case 'unop':
+            return { kind: 'unop', op: e.op, arg: substVar(e.arg, name, replacement) };
+        case 'binop':
+            return {
+                kind: 'binop',
+                op: e.op,
+                left: substVar(e.left, name, replacement),
+                right: substVar(e.right, name, replacement),
+            };
+    }
+}
+function renameVar(predicate, fromName, toName) {
+    if (fromName === toName)
+        return predicate;
+    const ast = parsePredicate(predicate);
+    const renamed = substVar(ast, fromName, { kind: 'var', name: toName });
+    return predicateToString(renamed);
+}
+// ---------- Pretty-print de la AST a cadena canónica ----------
+function predicateToString(e) {
+    switch (e.kind) {
+        case 'num':
+            return String(e.value);
+        case 'bool':
+            return e.value ? 'true' : 'false';
+        case 'str':
+            return JSON.stringify(e.value);
+        case 'var':
+            return e.name;
+        case 'unop':
+            return `${e.op}(${predicateToString(e.arg)})`;
+        case 'binop':
+            return `(${predicateToString(e.left)} ${e.op} ${predicateToString(e.right)})`;
+    }
+}
+function evalPredicate(e, env) {
+    switch (e.kind) {
+        case 'num':
+            return e.value;
+        case 'bool':
+            return e.value;
+        case 'str':
+            return e.value;
+        case 'var':
+            if (!(e.name in env)) {
+                throw new Error(`evalPredicate: variable libre "${e.name}" no está en el entorno`);
+            }
+            return env[e.name];
+        case 'unop': {
+            const v = evalPredicate(e.arg, env);
+            if (e.op === '!') {
+                if (typeof v !== 'boolean')
+                    throw new Error('evalPredicate: ! aplicado a no-booleano');
+                return !v;
+            }
+            // op === '-'
+            if (typeof v !== 'number')
+                throw new Error('evalPredicate: - aplicado a no-número');
+            return -v;
+        }
+        case 'binop': {
+            const l = evalPredicate(e.left, env);
+            const r = evalPredicate(e.right, env);
+            switch (e.op) {
+                case '+':
+                    if (typeof l === 'number' && typeof r === 'number')
+                        return l + r;
+                    if (typeof l === 'string' && typeof r === 'string')
+                        return l + r;
+                    throw new Error('evalPredicate: + sólo entre dos números o dos strings');
+                case '-':
+                case '*':
+                case '/': {
+                    if (typeof l !== 'number' || typeof r !== 'number')
+                        throw new Error(`evalPredicate: ${e.op} sólo entre números`);
+                    if (e.op === '-')
+                        return l - r;
+                    if (e.op === '*')
+                        return l * r;
+                    if (r === 0)
+                        throw new Error('evalPredicate: división por cero');
+                    return l / r;
+                }
+                case '<':
+                case '<=':
+                case '>':
+                case '>=':
+                    if (typeof l !== 'number' || typeof r !== 'number')
+                        throw new Error(`evalPredicate: ${e.op} requiere números`);
+                    if (e.op === '<')
+                        return l < r;
+                    if (e.op === '<=')
+                        return l <= r;
+                    if (e.op === '>')
+                        return l > r;
+                    return l >= r;
+                case '==':
+                    return l === r;
+                case '!=':
+                    return l !== r;
+                case '&&':
+                    if (typeof l !== 'boolean' || typeof r !== 'boolean')
+                        throw new Error('evalPredicate: && requiere booleanos');
+                    return l && r;
+                case '||':
+                    if (typeof l !== 'boolean' || typeof r !== 'boolean')
+                        throw new Error('evalPredicate: || requiere booleanos');
+                    return l || r;
+            }
+        }
+    }
+}
+//# sourceMappingURL=predicate.js.map

package/dist/refinement-types/predicate.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"predicate.js","sourceRoot":"","sources":["../../src/refinement-types/predicate.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,sDAAsD;AACtD,+DAA+D;AAC/D,EAAE;AACF,+DAA+D;AAC/D,2DAA2D;AAC3D,mEAAmE;AACnE,EAAE;AACF,iBAAiB;AACjB,8BAA8B;AAC9B,8BAA8B;AAC9B,+DAA+D;AAC/D,mCAAmC;AACnC,uCAAuC;AACvC,2CAA2C;AAC3C,mDAAmD;AACnD,EAAE;AACF,iEAAiE;AACjE,uEAAuE;;AAiOvE,wCASC;AAID,4BAgBC;AAID,4BAkBC;AAED,8BAKC;AAID,8CAeC;AAOD,sCAkEC;AA5VD,SAAS,QAAQ,CAAC,KAAa;IAC7B,MAAM,GAAG,GAAY,EAAE,CAAC;IACxB,IAAI,CAAC,GAAG,CAAC,CAAC;IACV,MAAM,CAAC,GAAG,KAAK,CAAC;IAChB,OAAO,CAAC,GAAG,CAAC,CAAC,MAAM,EAAE,CAAC;QACpB,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC;QACrB,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,IAAI,IAAI,CAAC,KAAK,IAAI,IAAI,CAAC,KAAK,IAAI,EAAE,CAAC;YACxD,CAAC,EAAE,CAAC;YACJ,SAAS;QACX,CAAC;QACD,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;YACd,GAAG,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,QAAQ,EAAE,CAAC,CAAC;YAC7B,CAAC,EAAE,CAAC;YACJ,SAAS;QACX,CAAC;QACD,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;YACd,GAAG,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,QAAQ,EAAE,CAAC,CAAC;YAC7B,CAAC,EAAE,CAAC;YACJ,SAAS;QACX,CAAC;QACD,iBAAiB;QACjB,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;YACd,IAAI,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC;YACd,IAAI,GAAG,GAAG,EAAE,CAAC;YACb,OAAO,CAAC,GAAG,CAAC,CAAC,MAAM,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK,GAAG,EAAE,CAAC;gBACpC,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC;gBACZ,CAAC,EAAE,CAAC;YACN,CAAC;YACD,GAAG,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,GAAG,EAAE,CAAC,CAAC;YACtC,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC;YACV,SAAS;QACX,CAAC;QACD,sBAAsB;QACtB,MAAM,GAAG,GAAG,CAAC,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC;QAC9B,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,CAAC,CAAC,QAAQ,CAAC,GAAG,CAAC,EAAE,CAAC;YACvD,GAAG,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,GAAG,EAAE,CAAC,CAAC;YACrC,CAAC,IAAI,CAAC,CAAC;YACP,SAAS;QACX,CAAC;QACD,IAAI,SAAS,CAAC,QAAQ,CAAC,CAAC,CAAC,EAAE,CAAC;YAC1B,GAAG,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC,EAAE,CAAC,CAAC;YACnC,CAAC,EAAE,CAAC;YACJ,SAAS;QACX,CAAC;QACD,SAAS;QACT,IAAI,CAAC,IAAI,GAAG,IAAI,CAAC,IAAI,GAAG,EAAE,CAAC;YACzB,IAAI,CAAC,GAAG,CAAC,CAAC;YACV,OAAO,CAAC,GAAG,CAAC,CAAC,MAAM,EAAE,CAAC;gBACpB,MAAM,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC;gBACtB,IAAI,CAAC,CAAC,CAAC,EAAE,IAAI,GAAG,IAAI,EAAE,IAAI,GAAG,CAAC,IAAI,EAAE,KAAK,GAAG,CAAC;oBAAE,MAAM;gBACrD,CAAC,EAAE,CAAC;YACN,CAAC;YACD,GAAG,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,MAAM,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC;YACxD,CAAC,GAAG,CAAC,CAAC;YACN,SAAS;QACX,CAAC;QACD,kBAAkB;QAClB,IAAI,CAAC,CAAC,IAAI,GAAG,IAAI,CAAC,IAAI,GAAG,CAAC,IAAI,CAAC,CAAC,IAAI,GAAG,IAAI,CAAC,IAAI,GAAG,CAAC,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;YAClE,IAAI,CAAC,GAAG,CAAC,CAAC;YACV,OAAO,CAAC,GAAG,CAAC,CAAC,MAAM,EAAE,CAAC;gBACpB,MAAM,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC;gBACtB,IACE,CAAC,CACC,CAAC,EAAE,IAAI,GAAG,IAAI,EAAE,IAAI,GAAG,CAAC;oBACxB,CAAC,EAAE,IAAI,GAAG,IAAI,EAAE,IAAI,GAAG,CAAC;oBACxB,CAAC,EAAE,IAAI,GAAG,IAAI,EAAE,IAAI,GAAG,CAAC;oBACxB,EAAE,KAAK,GAAG,CACX;oBAED,MAAM;gBACR,CAAC,EAAE,CAAC;YACN,CAAC;YACD,MAAM,IAAI,GAAG,CAAC,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;YAC3B,IAAI,IAAI,KAAK,MAAM;gBAAE,GAAG,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,KAAK,EAAE,IAAI,EAAE,CAAC,CAAC;iBACxD,IAAI,IAAI,KAAK,OAAO;gBAAE,GAAG,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,KAAK,EAAE,KAAK,EAAE,CAAC,CAAC;;gBAC/D,GAAG,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,OAAO,EAAE,KAAK,EAAE,IAAI,EAAE,CAAC,CAAC;YAC9C,CAAC,GAAG,CAAC,CAAC;YACN,SAAS;QACX,CAAC;QACD,MAAM,IAAI,KAAK,CAAC,yCAAyC,CAAC,iBAAiB,CAAC,EAAE,CAAC,CAAC;IAClF,CAAC;IACD,GAAG,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC,CAAC;IAC1B,OAAO,GAAG,CAAC;AACb,CAAC;AAED,+BAA+B;AAE/B,MAAM,MAAM;IAEU;IADZ,GAAG,GAAG,CAAC,CAAC;IAChB,YAAoB,MAAe;QAAf,WAAM,GAAN,MAAM,CAAS;IAAG,CAAC;IAE/B,IAAI;QACV,OAAO,IAAI,CAAC,MAAM,CAAC,IAAI,CAAC,GAAG,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC;IAClD,CAAC;IACO,IAAI;QACV,MAAM,CAAC,GAAG,IAAI,CAAC,MAAM,CAAC,IAAI,CAAC,GAAG,CAAC,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC;QACnD,IAAI,CAAC,GAAG,EAAE,CAAC;QACX,OAAO,CAAC,CAAC;IACX,CAAC;IAED,SAAS;QACP,MAAM,CAAC,GAAG,IAAI,CAAC,OAAO,EAAE,CAAC;QACzB,IAAI,IAAI,CAAC,IAAI,EAAE,CAAC,IAAI,KAAK,KAAK,EAAE,CAAC;YAC/B,MAAM,IAAI,KAAK,CAAC,oCAAoC,CAAC,CAAC;QACxD,CAAC;QACD,OAAO,CAAC,CAAC;IACX,CAAC;IAEO,OAAO;QACb,IAAI,IAAI,GAAG,IAAI,CAAC,QAAQ,EAAE,CAAC;QAC3B,OAAO,IAAI,CAAC,IAAI,EAAE,CAAC,IAAI,KAAK,IAAI,IAAK,IAAI,CAAC,IAAI,EAAwB,CAAC,KAAK,KAAK,IAAI,EAAE,CAAC;YACtF,IAAI,CAAC,IAAI,EAAE,CAAC;YACZ,MAAM,KAAK,GAAG,IAAI,CAAC,QAAQ,EAAE,CAAC;YAC9B,IAAI,GAAG,EAAE,IAAI,EAAE,OAAO,EAAE,EAAE,EAAE,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC;QAClD,CAAC;QACD,OAAO,IAAI,CAAC;IACd,CAAC;IAEO,QAAQ;QACd,IAAI,IAAI,GAAG,IAAI,CAAC,QAAQ,EAAE,CAAC;QAC3B,OAAO,IAAI,CAAC,IAAI,EAAE,CAAC,IAAI,KAAK,IAAI,IAAK,IAAI,CAAC,IAAI,EAAwB,CAAC,KAAK,KAAK,IAAI,EAAE,CAAC;YACtF,IAAI,CAAC,IAAI,EAAE,CAAC;YACZ,MAAM,KAAK,GAAG,IAAI,CAAC,QAAQ,EAAE,CAAC;YAC9B,IAAI,GAAG,EAAE,IAAI,EAAE,OAAO,EAAE,EAAE,EAAE,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC;QAClD,CAAC;QACD,OAAO,IAAI,CAAC;IACd,CAAC;IAEO,QAAQ;QACd,MAAM,IAAI,GAAG,IAAI,CAAC,QAAQ,EAAE,CAAC;QAC7B,MAAM,CAAC,GAAG,IAAI,CAAC,IAAI,EAAE,CAAC;QACtB,IAAI,CAAC,CAAC,IAAI,KAAK,IAAI,IAAI,CAAC,GAAG,EAAE,IAAI,EAAE,GAAG,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAC,KAAK,CAAC,EAAE,CAAC;YAC5E,IAAI,CAAC,IAAI,EAAE,CAAC;YACZ,MAAM,KAAK,GAAG,IAAI,CAAC,QAAQ,EAAE,CAAC;YAC9B,OAAO;gBACL,IAAI,EAAE,OAAO;gBACb,EAAE,EAAE,CAAC,CAAC,KAA8C;gBACpD,IAAI;gBACJ,KAAK;aACN,CAAC;QACJ,CAAC;QACD,OAAO,IAAI,CAAC;IACd,CAAC;IAEO,QAAQ;QACd,IAAI,IAAI,GAAG,IAAI,CAAC,QAAQ,EAAE,CAAC;QAC3B,OACE,IAAI,CAAC,IAAI,EAAE,CAAC,IAAI,KAAK,IAAI;YACzB,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC,QAAQ,CAAE,IAAI,CAAC,IAAI,EAAwB,CAAC,KAAK,CAAC,EAC7D,CAAC;YACD,MAAM,EAAE,GAAI,IAAI,CAAC,IAAI,EAAwB,CAAC,KAAkB,CAAC;YACjE,MAAM,KAAK,GAAG,IAAI,CAAC,QAAQ,EAAE,CAAC;YAC9B,IAAI,GAAG,EAAE,IAAI,EAAE,OAAO,EAAE,EAAE,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC;QAC5C,CAAC;QACD,OAAO,IAAI,CAAC;IACd,CAAC;IAEO,QAAQ;QACd,IAAI,IAAI,GAAG,IAAI,CAAC,UAAU,EAAE,CAAC;QAC7B,OACE,IAAI,CAAC,IAAI,EAAE,CAAC,IAAI,KAAK,IAAI;YACzB,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC,QAAQ,CAAE,IAAI,CAAC,IAAI,EAAwB,CAAC,KAAK,CAAC,EAC7D,CAAC;YACD,MAAM,EAAE,GAAI,IAAI,CAAC,IAAI,EAAwB,CAAC,KAAkB,CAAC;YACjE,MAAM,KAAK,GAAG,IAAI,CAAC,UAAU,EAAE,CAAC;YAChC,IAAI,GAAG,EAAE,IAAI,EAAE,OAAO,EAAE,EAAE,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC;QAC5C,CAAC;QACD,OAAO,IAAI,CAAC;IACd,CAAC;IAEO,UAAU;QAChB,MAAM,CAAC,GAAG,IAAI,CAAC,IAAI,EAAE,CAAC;QACtB,IAAI,CAAC,CAAC,IAAI,KAAK,IAAI,IAAI,CAAC,CAAC,CAAC,KAAK,KAAK,GAAG,IAAI,CAAC,CAAC,KAAK,KAAK,GAAG,CAAC,EAAE,CAAC;YAC5D,IAAI,CAAC,IAAI,EAAE,CAAC;YACZ,MAAM,GAAG,GAAG,IAAI,CAAC,UAAU,EAAE,CAAC;YAC9B,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,EAAE,EAAE,CAAC,CAAC,KAAK,EAAE,GAAG,EAAE,CAAC;QAC5C,CAAC;QACD,OAAO,IAAI,CAAC,SAAS,EAAE,CAAC;IAC1B,CAAC;IAEO,SAAS;QACf,MAAM,CAAC,GAAG,IAAI,CAAC,IAAI,EAAE,CAAC;QACtB,IAAI,CAAC,CAAC,IAAI,KAAK,KAAK;YAAE,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,CAAC,CAAC,KAAK,EAAE,CAAC;QAC7D,IAAI,CAAC,CAAC,IAAI,KAAK,MAAM;YAAE,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,KAAK,EAAE,CAAC,CAAC,KAAK,EAAE,CAAC;QAC/D,IAAI,CAAC,CAAC,IAAI,KAAK,KAAK;YAAE,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,CAAC,CAAC,KAAK,EAAE,CAAC;QAC7D,IAAI,CAAC,CAAC,IAAI,KAAK,OAAO;YAAE,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,CAAC,CAAC,KAAK,EAAE,CAAC;QAC9D,IAAI,CAAC,CAAC,IAAI,KAAK,QAAQ,EAAE,CAAC;YACxB,MAAM,CAAC,GAAG,IAAI,CAAC,OAAO,EAAE,CAAC;YACzB,MAAM,KAAK,GAAG,IAAI,CAAC,IAAI,EAAE,CAAC;YAC1B,IAAI,KAAK,CAAC,IAAI,KAAK,QAAQ;gBAAE,MAAM,IAAI,KAAK,CAAC,6BAA6B,CAAC,CAAC;YAC5E,OAAO,CAAC,CAAC;QACX,CAAC;QACD,MAAM,IAAI,KAAK,CAAC,sCAAsC,IAAI,CAAC,SAAS,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC;IAC7E,CAAC;CACF;AAED,MAAM,WAAW,GAAG,IAAI,GAAG,EAAiB,CAAC;AAE7C,SAAgB,cAAc,CAAC,GAAW;IACxC,MAAM,OAAO,GAAG,CAAC,GAAG,IAAI,EAAE,CAAC,CAAC,IAAI,EAAE,CAAC;IACnC,IAAI,OAAO,KAAK,EAAE,IAAI,OAAO,KAAK,MAAM;QAAE,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,KAAK,EAAE,IAAI,EAAE,CAAC;IAC/E,IAAI,OAAO,KAAK,OAAO;QAAE,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,KAAK,EAAE,KAAK,EAAE,CAAC;IAC/D,MAAM,MAAM,GAAG,WAAW,CAAC,GAAG,CAAC,OAAO,CAAC,CAAC;IACxC,IAAI,MAAM;QAAE,OAAO,MAAM,CAAC;IAC1B,MAAM,IAAI,GAAG,IAAI,MAAM,CAAC,QAAQ,CAAC,OAAO,CAAC,CAAC,CAAC,SAAS,EAAE,CAAC;IACvD,WAAW,CAAC,GAAG,CAAC,OAAO,EAAE,IAAI,CAAC,CAAC;IAC/B,OAAO,IAAI,CAAC;AACd,CAAC;AAED,uCAAuC;AAEvC,SAAgB,QAAQ,CAAC,CAAQ,EAAE,MAAmB,IAAI,GAAG,EAAE;IAC7D,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;QACf,KAAK,KAAK,CAAC;QACX,KAAK,MAAM,CAAC;QACZ,KAAK,KAAK;YACR,OAAO,GAAG,CAAC;QACb,KAAK,KAAK;YACR,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;YAChB,OAAO,GAAG,CAAC;QACb,KAAK,MAAM;YACT,OAAO,QAAQ,CAAC,CAAC,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;QAC9B,KAAK,OAAO;YACV,QAAQ,CAAC,CAAC,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YACtB,QAAQ,CAAC,CAAC,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC;YACvB,OAAO,GAAG,CAAC;IACf,CAAC;AACH,CAAC;AAED,yDAAyD;AAEzD,SAAgB,QAAQ,CAAC,CAAQ,EAAE,IAAY,EAAE,WAAkB;IACjE,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;QACf,KAAK,KAAK,CAAC;QACX,KAAK,MAAM,CAAC;QACZ,KAAK,KAAK;YACR,OAAO,CAAC,CAAC;QACX,KAAK,KAAK;YACR,OAAO,CAAC,CAAC,IAAI,KAAK,IAAI,CAAC,CAAC,CAAC,WAAW,CAAC,CAAC,CAAC,CAAC,CAAC;QAC3C,KAAK,MAAM;YACT,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,EAAE,EAAE,CAAC,CAAC,EAAE,EAAE,GAAG,EAAE,QAAQ,CAAC,CAAC,CAAC,GAAG,EAAE,IAAI,EAAE,WAAW,CAAC,EAAE,CAAC;QAC7E,KAAK,OAAO;YACV,OAAO;gBACL,IAAI,EAAE,OAAO;gBACb,EAAE,EAAE,CAAC,CAAC,EAAE;gBACR,IAAI,EAAE,QAAQ,CAAC,CAAC,CAAC,IAAI,EAAE,IAAI,EAAE,WAAW,CAAC;gBACzC,KAAK,EAAE,QAAQ,CAAC,CAAC,CAAC,KAAK,EAAE,IAAI,EAAE,WAAW,CAAC;aAC5C,CAAC;IACN,CAAC;AACH,CAAC;AAED,SAAgB,SAAS,CAAC,SAAiB,EAAE,QAAgB,EAAE,MAAc;IAC3E,IAAI,QAAQ,KAAK,MAAM;QAAE,OAAO,SAAS,CAAC;IAC1C,MAAM,GAAG,GAAG,cAAc,CAAC,SAAS,CAAC,CAAC;IACtC,MAAM,OAAO,GAAG,QAAQ,CAAC,GAAG,EAAE,QAAQ,EAAE,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC,CAAC;IACvE,OAAO,iBAAiB,CAAC,OAAO,CAAC,CAAC;AACpC,CAAC;AAED,iEAAiE;AAEjE,SAAgB,iBAAiB,CAAC,CAAQ;IACxC,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;QACf,KAAK,KAAK;YACR,OAAO,MAAM,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC;QACzB,KAAK,MAAM;YACT,OAAO,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,OAAO,CAAC;QACpC,KAAK,KAAK;YACR,OAAO,IAAI,CAAC,SAAS,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC;QACjC,KAAK,KAAK;YACR,OAAO,CAAC,CAAC,IAAI,CAAC;QAChB,KAAK,MAAM;YACT,OAAO,GAAG,CAAC,CAAC,EAAE,IAAI,iBAAiB,CAAC,CAAC,CAAC,GAAG,CAAC,GAAG,CAAC;QAChD,KAAK,OAAO;YACV,OAAO,IAAI,iBAAiB,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,EAAE,IAAI,iBAAiB,CAAC,CAAC,CAAC,KAAK,CAAC,GAAG,CAAC;IAClF,CAAC;AACH,CAAC;AAOD,SAAgB,aAAa,CAAC,CAAQ,EAAE,GAAS;IAC/C,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;QACf,KAAK,KAAK;YACR,OAAO,CAAC,CAAC,KAAK,CAAC;QACjB,KAAK,MAAM;YACT,OAAO,CAAC,CAAC,KAAK,CAAC;QACjB,KAAK,KAAK;YACR,OAAO,CAAC,CAAC,KAAK,CAAC;QACjB,KAAK,KAAK;YACR,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,IAAI,GAAG,CAAC,EAAE,CAAC;gBACrB,MAAM,IAAI,KAAK,CAAC,kCAAkC,CAAC,CAAC,IAAI,yBAAyB,CAAC,CAAC;YACrF,CAAC;YACD,OAAO,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;QACrB,KAAK,MAAM,CAAC,CAAC,CAAC;YACZ,MAAM,CAAC,GAAG,aAAa,CAAC,CAAC,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;YACpC,IAAI,CAAC,CAAC,EAAE,KAAK,GAAG,EAAE,CAAC;gBACjB,IAAI,OAAO,CAAC,KAAK,SAAS;oBAAE,MAAM,IAAI,KAAK,CAAC,yCAAyC,CAAC,CAAC;gBACvF,OAAO,CAAC,CAAC,CAAC;YACZ,CAAC;YACD,aAAa;YACb,IAAI,OAAO,CAAC,KAAK,QAAQ;gBAAE,MAAM,IAAI,KAAK,CAAC,uCAAuC,CAAC,CAAC;YACpF,OAAO,CAAC,CAAC,CAAC;QACZ,CAAC;QACD,KAAK,OAAO,CAAC,CAAC,CAAC;YACb,MAAM,CAAC,GAAG,aAAa,CAAC,CAAC,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;YACrC,MAAM,CAAC,GAAG,aAAa,CAAC,CAAC,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC;YACtC,QAAQ,CAAC,CAAC,EAAE,EAAE,CAAC;gBACb,KAAK,GAAG;oBACN,IAAI,OAAO,CAAC,KAAK,QAAQ,IAAI,OAAO,CAAC,KAAK,QAAQ;wBAAE,OAAO,CAAC,GAAG,CAAC,CAAC;oBACjE,IAAI,OAAO,CAAC,KAAK,QAAQ,IAAI,OAAO,CAAC,KAAK,QAAQ;wBAAE,OAAO,CAAC,GAAG,CAAC,CAAC;oBACjE,MAAM,IAAI,KAAK,CAAC,uDAAuD,CAAC,CAAC;gBAC3E,KAAK,GAAG,CAAC;gBACT,KAAK,GAAG,CAAC;gBACT,KAAK,GAAG,CAAC,CAAC,CAAC;oBACT,IAAI,OAAO,CAAC,KAAK,QAAQ,IAAI,OAAO,CAAC,KAAK,QAAQ;wBAChD,MAAM,IAAI,KAAK,CAAC,kBAAkB,CAAC,CAAC,EAAE,qBAAqB,CAAC,CAAC;oBAC/D,IAAI,CAAC,CAAC,EAAE,KAAK,GAAG;wBAAE,OAAO,CAAC,GAAG,CAAC,CAAC;oBAC/B,IAAI,CAAC,CAAC,EAAE,KAAK,GAAG;wBAAE,OAAO,CAAC,GAAG,CAAC,CAAC;oBAC/B,IAAI,CAAC,KAAK,CAAC;wBAAE,MAAM,IAAI,KAAK,CAAC,kCAAkC,CAAC,CAAC;oBACjE,OAAO,CAAC,GAAG,CAAC,CAAC;gBACf,CAAC;gBACD,KAAK,GAAG,CAAC;gBACT,KAAK,IAAI,CAAC;gBACV,KAAK,GAAG,CAAC;gBACT,KAAK,IAAI;oBACP,IAAI,OAAO,CAAC,KAAK,QAAQ,IAAI,OAAO,CAAC,KAAK,QAAQ;wBAChD,MAAM,IAAI,KAAK,CAAC,kBAAkB,CAAC,CAAC,EAAE,mBAAmB,CAAC,CAAC;oBAC7D,IAAI,CAAC,CAAC,EAAE,KAAK,GAAG;wBAAE,OAAO,CAAC,GAAG,CAAC,CAAC;oBAC/B,IAAI,CAAC,CAAC,EAAE,KAAK,IAAI;wBAAE,OAAO,CAAC,IAAI,CAAC,CAAC;oBACjC,IAAI,CAAC,CAAC,EAAE,KAAK,GAAG;wBAAE,OAAO,CAAC,GAAG,CAAC,CAAC;oBAC/B,OAAO,CAAC,IAAI,CAAC,CAAC;gBAChB,KAAK,IAAI;oBACP,OAAO,CAAC,KAAK,CAAC,CAAC;gBACjB,KAAK,IAAI;oBACP,OAAO,CAAC,KAAK,CAAC,CAAC;gBACjB,KAAK,IAAI;oBACP,IAAI,OAAO,CAAC,KAAK,SAAS,IAAI,OAAO,CAAC,KAAK,SAAS;wBAClD,MAAM,IAAI,KAAK,CAAC,sCAAsC,CAAC,CAAC;oBAC1D,OAAO,CAAC,IAAI,CAAC,CAAC;gBAChB,KAAK,IAAI;oBACP,IAAI,OAAO,CAAC,KAAK,SAAS,IAAI,OAAO,CAAC,KAAK,SAAS;wBAClD,MAAM,IAAI,KAAK,CAAC,sCAAsC,CAAC,CAAC;oBAC1D,OAAO,CAAC,IAAI,CAAC,CAAC;YAClB,CAAC;QACH,CAAC;IACH,CAAC;AACH,CAAC"}

package/dist/refinement-types/solver.d.ts

@@ -0,0 +1,24 @@
+export interface SolverOpts {
+    /** Cota inclusiva para enteros: dominio [-intBound, +intBound]. */
+    intBound?: number;
+    /** Cota total de intentos para abortar enumeración excesiva. */
+    maxAttempts?: number;
+}
+export interface CheckResult {
+    satisfiable: boolean;
+    counter?: Record<string, number | boolean>;
+}
+/**
+ * checkVC — devuelve si la conjunción de predicados es satisfacible.
+ * Si lo es, incluye un testigo `counter` con la asignación encontrada.
+ * El nombre "counter" se conserva por compatibilidad con la firma
+ * típica de verificadores que buscan contraejemplos de implicaciones.
+ */
+export declare function checkVC(predicates: string[], opts?: SolverOpts): CheckResult;
+/**
+ * implies — chequea si `premises ⇒ conclusion` es válido en el dominio
+ * acotado. Implementado como búsqueda de contraejemplo a
+ * `premises ∧ ¬conclusion`.
+ */
+export declare function implies(premises: string[], conclusion: string, opts?: SolverOpts): boolean;
+//# sourceMappingURL=solver.d.ts.map

package/dist/refinement-types/solver.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"solver.d.ts","sourceRoot":"","sources":["../../src/refinement-types/solver.ts"],"names":[],"mappings":"AA2BA,MAAM,WAAW,UAAU;IACzB,mEAAmE;IACnE,QAAQ,CAAC,EAAE,MAAM,CAAC;IAClB,gEAAgE;IAChE,WAAW,CAAC,EAAE,MAAM,CAAC;CACtB;AAED,MAAM,WAAW,WAAW;IAC1B,WAAW,EAAE,OAAO,CAAC;IACrB,OAAO,CAAC,EAAE,MAAM,CAAC,MAAM,EAAE,MAAM,GAAG,OAAO,CAAC,CAAC;CAC5C;AAsGD;;;;;GAKG;AACH,wBAAgB,OAAO,CAAC,UAAU,EAAE,MAAM,EAAE,EAAE,IAAI,GAAE,UAAe,GAAG,WAAW,CAoEhF;AAED;;;;GAIG;AACH,wBAAgB,OAAO,CAAC,QAAQ,EAAE,MAAM,EAAE,EAAE,UAAU,EAAE,MAAM,EAAE,IAAI,GAAE,UAAe,GAAG,OAAO,CAM9F"}

package/dist/refinement-types/solver.js

@@ -0,0 +1,207 @@
+"use strict";
+// ============================================================
+// Refinement types — Solver bounded de VCs
+// ============================================================
+//
+// Las VCs (verification conditions) son listas de predicados que
+// se conjuntan. checkVC(P) responde:
+//   - satisfiable: ¿existe asignación que haga ⋀P verdadero?
+//   - counter:     dicha asignación si la hay (testigo).
+//
+// Algoritmo: enumeración acotada sobre Int en [-bound, +bound]
+// y sobre Bool. Es deliberadamente simple — Liquid Haskell usa Z3,
+// nosotros usamos búsqueda finita suficiente para los tests
+// del módulo y para subtipado de rangos pequeños.
+//
+// Para chequear "P ⇒ Q" (validez del implicador), se busca un
+// contraejemplo a "P ∧ ¬Q": si NO se halla en el dominio acotado,
+// se reporta válido.
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.checkVC = checkVC;
+exports.implies = implies;
+const predicate_1 = require("./predicate");
+/**
+ * Heurística para clasificar variables libres en booleanas o enteras.
+ * Una variable se marca como booleana si aparece como operando directo
+ * de !, &&, || o en comparaciones contra booleanos literales.
+ */
+function classifyVars(ast) {
+    const kinds = new Map();
+    function visit(e, expectedBool) {
+        switch (e.kind) {
+            case 'num':
+            case 'bool':
+            case 'str':
+                return;
+            case 'var':
+                if (expectedBool) {
+                    const prev = kinds.get(e.name);
+                    if (!prev)
+                        kinds.set(e.name, 'bool');
+                }
+                else if (!kinds.has(e.name)) {
+                    kinds.set(e.name, 'int');
+                }
+                return;
+            case 'unop':
+                visit(e.arg, e.op === '!');
+                return;
+            case 'binop': {
+                switch (e.op) {
+                    case '&&':
+                    case '||':
+                        visit(e.left, true);
+                        visit(e.right, true);
+                        return;
+                    case '+':
+                    case '-':
+                    case '*':
+                    case '/':
+                    case '<':
+                    case '<=':
+                    case '>':
+                    case '>=':
+                        visit(e.left, false);
+                        visit(e.right, false);
+                        return;
+                    case '==':
+                    case '!=': {
+                        const rightBool = e.right.kind === 'bool' || e.left.kind === 'bool';
+                        visit(e.left, rightBool);
+                        visit(e.right, rightBool);
+                        return;
+                    }
+                }
+            }
+        }
+    }
+    visit(ast, true); // top-level expected boolean
+    return kinds;
+}
+function collectVars(predicates) {
+    const all = new Map();
+    const asts = [];
+    for (const src of predicates) {
+        const ast = (0, predicate_1.parsePredicate)(src);
+        asts.push(ast);
+        const local = classifyVars(ast);
+        const free = (0, predicate_1.freeVars)(ast);
+        for (const v of free) {
+            const newKind = local.get(v) ?? 'int';
+            const prev = all.get(v);
+            if (!prev)
+                all.set(v, newKind);
+            else if (prev !== newKind) {
+                // conflicto: optamos por 'int' (más informativo)
+                all.set(v, 'int');
+            }
+        }
+    }
+    const vars = Array.from(all.entries()).map(([name, kind]) => ({ name, kind }));
+    return { vars, asts };
+}
+function envValueAt(info, index, intBound) {
+    if (info.kind === 'bool') {
+        return index % 2 === 0;
+    }
+    // enumerar 0, 1, -1, 2, -2, ..., intBound, -intBound
+    if (index === 0)
+        return 0;
+    const half = Math.ceil(index / 2);
+    if (half > intBound)
+        return intBound + 1; // fuera de cota — caller deberá filtrar
+    return index % 2 === 1 ? half : -half;
+}
+function domainSize(info, intBound) {
+    if (info.kind === 'bool')
+        return 2;
+    return 2 * intBound + 1;
+}
+/**
+ * checkVC — devuelve si la conjunción de predicados es satisfacible.
+ * Si lo es, incluye un testigo `counter` con la asignación encontrada.
+ * El nombre "counter" se conserva por compatibilidad con la firma
+ * típica de verificadores que buscan contraejemplos de implicaciones.
+ */
+function checkVC(predicates, opts = {}) {
+    const intBound = opts.intBound ?? 8;
+    const maxAttempts = opts.maxAttempts ?? 50_000;
+    // VC vacía o sólo "true": trivialmente satisfacible con env vacío.
+    if (predicates.length === 0) {
+        return { satisfiable: true, counter: {} };
+    }
+    const { vars, asts } = collectVars(predicates);
+    // Caso sin variables libres: evaluar directo.
+    if (vars.length === 0) {
+        try {
+            for (const a of asts) {
+                const v = (0, predicate_1.evalPredicate)(a, {});
+                if (v !== true)
+                    return { satisfiable: false };
+            }
+            return { satisfiable: true, counter: {} };
+        }
+        catch {
+            return { satisfiable: false };
+        }
+    }
+    const sizes = vars.map((v) => domainSize(v, intBound));
+    const total = sizes.reduce((a, b) => a * b, 1);
+    const attempts = Math.min(total, maxAttempts);
+    for (let i = 0; i < attempts; i++) {
+        const env = {};
+        let idx = i;
+        let outOfDomain = false;
+        for (let j = 0; j < vars.length; j++) {
+            const info = vars[j];
+            const size = sizes[j];
+            const localIdx = idx % size;
+            idx = Math.floor(idx / size);
+            const val = envValueAt(info, localIdx, intBound);
+            if (typeof val === 'number' && Math.abs(val) > intBound) {
+                outOfDomain = true;
+                break;
+            }
+            env[info.name] = val;
+        }
+        if (outOfDomain)
+            continue;
+        let allTrue = true;
+        try {
+            for (const a of asts) {
+                const v = (0, predicate_1.evalPredicate)(a, env);
+                if (v !== true) {
+                    allTrue = false;
+                    break;
+                }
+            }
+        }
+        catch {
+            allTrue = false;
+        }
+        if (allTrue) {
+            const counter = {};
+            for (const v of vars) {
+                const val = env[v.name];
+                if (typeof val === 'number' || typeof val === 'boolean') {
+                    counter[v.name] = val;
+                }
+            }
+            return { satisfiable: true, counter };
+        }
+    }
+    return { satisfiable: false };
+}
+/**
+ * implies — chequea si `premises ⇒ conclusion` es válido en el dominio
+ * acotado. Implementado como búsqueda de contraejemplo a
+ * `premises ∧ ¬conclusion`.
+ */
+function implies(premises, conclusion, opts = {}) {
+    const negated = `!(${conclusion})`;
+    const res = checkVC([...premises, negated], opts);
+    // Si NO encontramos asignación que satisfaga premises ∧ ¬conclusion,
+    // entonces la implicación es válida (en el dominio acotado).
+    return !res.satisfiable;
+}
+//# sourceMappingURL=solver.js.map

package/dist/refinement-types/solver.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"solver.js","sourceRoot":"","sources":["../../src/refinement-types/solver.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,2CAA2C;AAC3C,+DAA+D;AAC/D,EAAE;AACF,iEAAiE;AACjE,qCAAqC;AACrC,6DAA6D;AAC7D,yDAAyD;AACzD,EAAE;AACF,+DAA+D;AAC/D,mEAAmE;AACnE,4DAA4D;AAC5D,kDAAkD;AAClD,EAAE;AACF,8DAA8D;AAC9D,kEAAkE;AAClE,qBAAqB;;AAiIrB,0BAoEC;AAOD,0BAMC;AAhND,2CAOqB;AAmBrB;;;;GAIG;AACH,SAAS,YAAY,CAAC,GAAU;IAC9B,MAAM,KAAK,GAAG,IAAI,GAAG,EAA0B,CAAC;IAChD,SAAS,KAAK,CAAC,CAAQ,EAAE,YAAqB;QAC5C,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;YACf,KAAK,KAAK,CAAC;YACX,KAAK,MAAM,CAAC;YACZ,KAAK,KAAK;gBACR,OAAO;YACT,KAAK,KAAK;gBACR,IAAI,YAAY,EAAE,CAAC;oBACjB,MAAM,IAAI,GAAG,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;oBAC/B,IAAI,CAAC,IAAI;wBAAE,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,EAAE,MAAM,CAAC,CAAC;gBACvC,CAAC;qBAAM,IAAI,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC;oBAC9B,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,EAAE,KAAK,CAAC,CAAC;gBAC3B,CAAC;gBACD,OAAO;YACT,KAAK,MAAM;gBACT,KAAK,CAAC,CAAC,CAAC,GAAG,EAAE,CAAC,CAAC,EAAE,KAAK,GAAG,CAAC,CAAC;gBAC3B,OAAO;YACT,KAAK,OAAO,CAAC,CAAC,CAAC;gBACb,QAAQ,CAAC,CAAC,EAAE,EAAE,CAAC;oBACb,KAAK,IAAI,CAAC;oBACV,KAAK,IAAI;wBACP,KAAK,CAAC,CAAC,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC;wBACpB,KAAK,CAAC,CAAC,CAAC,KAAK,EAAE,IAAI,CAAC,CAAC;wBACrB,OAAO;oBACT,KAAK,GAAG,CAAC;oBACT,KAAK,GAAG,CAAC;oBACT,KAAK,GAAG,CAAC;oBACT,KAAK,GAAG,CAAC;oBACT,KAAK,GAAG,CAAC;oBACT,KAAK,IAAI,CAAC;oBACV,KAAK,GAAG,CAAC;oBACT,KAAK,IAAI;wBACP,KAAK,CAAC,CAAC,CAAC,IAAI,EAAE,KAAK,CAAC,CAAC;wBACrB,KAAK,CAAC,CAAC,CAAC,KAAK,EAAE,KAAK,CAAC,CAAC;wBACtB,OAAO;oBACT,KAAK,IAAI,CAAC;oBACV,KAAK,IAAI,CAAC,CAAC,CAAC;wBACV,MAAM,SAAS,GAAG,CAAC,CAAC,KAAK,CAAC,IAAI,KAAK,MAAM,IAAI,CAAC,CAAC,IAAI,CAAC,IAAI,KAAK,MAAM,CAAC;wBACpE,KAAK,CAAC,CAAC,CAAC,IAAI,EAAE,SAAS,CAAC,CAAC;wBACzB,KAAK,CAAC,CAAC,CAAC,KAAK,EAAE,SAAS,CAAC,CAAC;wBAC1B,OAAO;oBACT,CAAC;gBACH,CAAC;YACH,CAAC;QACH,CAAC;IACH,CAAC;IACD,KAAK,CAAC,GAAG,EAAE,IAAI,CAAC,CAAC,CAAC,6BAA6B;IAC/C,OAAO,KAAK,CAAC;AACf,CAAC;AAED,SAAS,WAAW,CAAC,UAAoB;IACvC,MAAM,GAAG,GAAG,IAAI,GAAG,EAA0B,CAAC;IAC9C,MAAM,IAAI,GAAY,EAAE,CAAC;IACzB,KAAK,MAAM,GAAG,IAAI,UAAU,EAAE,CAAC;QAC7B,MAAM,GAAG,GAAG,IAAA,0BAAc,EAAC,GAAG,CAAC,CAAC;QAChC,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;QACf,MAAM,KAAK,GAAG,YAAY,CAAC,GAAG,CAAC,CAAC;QAChC,MAAM,IAAI,GAAG,IAAA,oBAAQ,EAAC,GAAG,CAAC,CAAC;QAC3B,KAAK,MAAM,CAAC,IAAI,IAAI,EAAE,CAAC;YACrB,MAAM,OAAO,GAAG,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,KAAK,CAAC;YACtC,MAAM,IAAI,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;YACxB,IAAI,CAAC,IAAI;gBAAE,GAAG,CAAC,GAAG,CAAC,CAAC,EAAE,OAAO,CAAC,CAAC;iBAC1B,IAAI,IAAI,KAAK,OAAO,EAAE,CAAC;gBAC1B,iDAAiD;gBACjD,GAAG,CAAC,GAAG,CAAC,CAAC,EAAE,KAAK,CAAC,CAAC;YACpB,CAAC;QACH,CAAC;IACH,CAAC;IACD,MAAM,IAAI,GAAc,KAAK,CAAC,IAAI,CAAC,GAAG,CAAC,OAAO,EAAE,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,EAAE,IAAI,CAAC,EAAE,EAAE,CAAC,CAAC,EAAE,IAAI,EAAE,IAAI,EAAE,CAAC,CAAC,CAAC;IAC1F,OAAO,EAAE,IAAI,EAAE,IAAI,EAAE,CAAC;AACxB,CAAC;AAED,SAAS,UAAU,CAAC,IAAa,EAAE,KAAa,EAAE,QAAgB;IAChE,IAAI,IAAI,CAAC,IAAI,KAAK,MAAM,EAAE,CAAC;QACzB,OAAO,KAAK,GAAG,CAAC,KAAK,CAAC,CAAC;IACzB,CAAC;IACD,qDAAqD;IACrD,IAAI,KAAK,KAAK,CAAC;QAAE,OAAO,CAAC,CAAC;IAC1B,MAAM,IAAI,GAAG,IAAI,CAAC,IAAI,CAAC,KAAK,GAAG,CAAC,CAAC,CAAC;IAClC,IAAI,IAAI,GAAG,QAAQ;QAAE,OAAO,QAAQ,GAAG,CAAC,CAAC,CAAC,wCAAwC;IAClF,OAAO,KAAK,GAAG,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC;AACxC,CAAC;AAED,SAAS,UAAU,CAAC,IAAa,EAAE,QAAgB;IACjD,IAAI,IAAI,CAAC,IAAI,KAAK,MAAM;QAAE,OAAO,CAAC,CAAC;IACnC,OAAO,CAAC,GAAG,QAAQ,GAAG,CAAC,CAAC;AAC1B,CAAC;AAED;;;;;GAKG;AACH,SAAgB,OAAO,CAAC,UAAoB,EAAE,OAAmB,EAAE;IACjE,MAAM,QAAQ,GAAG,IAAI,CAAC,QAAQ,IAAI,CAAC,CAAC;IACpC,MAAM,WAAW,GAAG,IAAI,CAAC,WAAW,IAAI,MAAM,CAAC;IAE/C,mEAAmE;IACnE,IAAI,UAAU,CAAC,MAAM,KAAK,CAAC,EAAE,CAAC;QAC5B,OAAO,EAAE,WAAW,EAAE,IAAI,EAAE,OAAO,EAAE,EAAE,EAAE,CAAC;IAC5C,CAAC;IACD,MAAM,EAAE,IAAI,EAAE,IAAI,EAAE,GAAG,WAAW,CAAC,UAAU,CAAC,CAAC;IAE/C,8CAA8C;IAC9C,IAAI,IAAI,CAAC,MAAM,KAAK,CAAC,EAAE,CAAC;QACtB,IAAI,CAAC;YACH,KAAK,MAAM,CAAC,IAAI,IAAI,EAAE,CAAC;gBACrB,MAAM,CAAC,GAAG,IAAA,yBAAa,EAAC,CAAC,EAAE,EAAE,CAAC,CAAC;gBAC/B,IAAI,CAAC,KAAK,IAAI;oBAAE,OAAO,EAAE,WAAW,EAAE,KAAK,EAAE,CAAC;YAChD,CAAC;YACD,OAAO,EAAE,WAAW,EAAE,IAAI,EAAE,OAAO,EAAE,EAAE,EAAE,CAAC;QAC5C,CAAC;QAAC,MAAM,CAAC;YACP,OAAO,EAAE,WAAW,EAAE,KAAK,EAAE,CAAC;QAChC,CAAC;IACH,CAAC;IAED,MAAM,KAAK,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,UAAU,CAAC,CAAC,EAAE,QAAQ,CAAC,CAAC,CAAC;IACvD,MAAM,KAAK,GAAG,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC,CAAC,GAAG,CAAC,EAAE,CAAC,CAAC,CAAC;IAC/C,MAAM,QAAQ,GAAG,IAAI,CAAC,GAAG,CAAC,KAAK,EAAE,WAAW,CAAC,CAAC;IAE9C,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,QAAQ,EAAE,CAAC,EAAE,EAAE,CAAC;QAClC,MAAM,GAAG,GAAS,EAAE,CAAC;QACrB,IAAI,GAAG,GAAG,CAAC,CAAC;QACZ,IAAI,WAAW,GAAG,KAAK,CAAC;QACxB,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;YACrC,MAAM,IAAI,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC;YACrB,MAAM,IAAI,GAAG,KAAK,CAAC,CAAC,CAAC,CAAC;YACtB,MAAM,QAAQ,GAAG,GAAG,GAAG,IAAI,CAAC;YAC5B,GAAG,GAAG,IAAI,CAAC,KAAK,CAAC,GAAG,GAAG,IAAI,CAAC,CAAC;YAC7B,MAAM,GAAG,GAAG,UAAU,CAAC,IAAI,EAAE,QAAQ,EAAE,QAAQ,CAAC,CAAC;YACjD,IAAI,OAAO,GAAG,KAAK,QAAQ,IAAI,IAAI,CAAC,GAAG,CAAC,GAAG,CAAC,GAAG,QAAQ,EAAE,CAAC;gBACxD,WAAW,GAAG,IAAI,CAAC;gBACnB,MAAM;YACR,CAAC;YACD,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,GAAG,GAAG,CAAC;QACvB,CAAC;QACD,IAAI,WAAW;YAAE,SAAS;QAC1B,IAAI,OAAO,GAAG,IAAI,CAAC;QACnB,IAAI,CAAC;YACH,KAAK,MAAM,CAAC,IAAI,IAAI,EAAE,CAAC;gBACrB,MAAM,CAAC,GAAG,IAAA,yBAAa,EAAC,CAAC,EAAE,GAAG,CAAC,CAAC;gBAChC,IAAI,CAAC,KAAK,IAAI,EAAE,CAAC;oBACf,OAAO,GAAG,KAAK,CAAC;oBAChB,MAAM;gBACR,CAAC;YACH,CAAC;QACH,CAAC;QAAC,MAAM,CAAC;YACP,OAAO,GAAG,KAAK,CAAC;QAClB,CAAC;QACD,IAAI,OAAO,EAAE,CAAC;YACZ,MAAM,OAAO,GAAqC,EAAE,CAAC;YACrD,KAAK,MAAM,CAAC,IAAI,IAAI,EAAE,CAAC;gBACrB,MAAM,GAAG,GAAG,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;gBACxB,IAAI,OAAO,GAAG,KAAK,QAAQ,IAAI,OAAO,GAAG,KAAK,SAAS,EAAE,CAAC;oBACxD,OAAO,CAAC,CAAC,CAAC,IAAI,CAAC,GAAG,GAAG,CAAC;gBACxB,CAAC;YACH,CAAC;YACD,OAAO,EAAE,WAAW,EAAE,IAAI,EAAE,OAAO,EAAE,CAAC;QACxC,CAAC;IACH,CAAC;IACD,OAAO,EAAE,WAAW,EAAE,KAAK,EAAE,CAAC;AAChC,CAAC;AAED;;;;GAIG;AACH,SAAgB,OAAO,CAAC,QAAkB,EAAE,UAAkB,EAAE,OAAmB,EAAE;IACnF,MAAM,OAAO,GAAG,KAAK,UAAU,GAAG,CAAC;IACnC,MAAM,GAAG,GAAG,OAAO,CAAC,CAAC,GAAG,QAAQ,EAAE,OAAO,CAAC,EAAE,IAAI,CAAC,CAAC;IAClD,qEAAqE;IACrE,6DAA6D;IAC7D,OAAO,CAAC,GAAG,CAAC,WAAW,CAAC;AAC1B,CAAC"}

package/dist/refinement-types/subtype.d.ts

@@ -0,0 +1,14 @@
+import type { RefType } from './types';
+import { type SolverOpts } from './solver';
+export interface SubtypeOpts extends SolverOpts {
+    /** Predicados adicionales del contexto que pueden asumirse válidos. */
+    extraAssumptions?: string[];
+}
+/**
+ * isSubtype — devuelve true si T1 <: T2 bajo las suposiciones del contexto.
+ *
+ * - Para tipos base iguales: chequea P(x) ⇒ Q(x) renombrando el binding.
+ * - Para arrows: contravarianza en `from`, covarianza en `to`.
+ */
+export declare function isSubtype(t1: RefType, t2: RefType, opts?: SubtypeOpts): boolean;
+//# sourceMappingURL=subtype.d.ts.map

package/dist/refinement-types/subtype.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"subtype.d.ts","sourceRoot":"","sources":["../../src/refinement-types/subtype.ts"],"names":[],"mappings":"AAWA,OAAO,KAAK,EAAE,OAAO,EAAY,MAAM,SAAS,CAAC;AACjD,OAAO,EAAW,KAAK,UAAU,EAAE,MAAM,UAAU,CAAC;AAGpD,MAAM,WAAW,WAAY,SAAQ,UAAU;IAC7C,uEAAuE;IACvE,gBAAgB,CAAC,EAAE,MAAM,EAAE,CAAC;CAC7B;AAED;;;;;GAKG;AACH,wBAAgB,SAAS,CAAC,EAAE,EAAE,OAAO,EAAE,EAAE,EAAE,OAAO,EAAE,IAAI,GAAE,WAAgB,GAAG,OAAO,CAEnF"}