@stevenvo780/st-lang 4.7.0 → 4.9.0

package/dist/reasoning/ban-logic/rules.js

@@ -0,0 +1,409 @@
+"use strict";
+// ============================================================
+// BAN Logic — Reglas de inferencia
+// ============================================================
+//
+// 10 reglas estándar BAN (1989) operando sobre un estado de creencias.
+// Cada regla intenta producir UNA nueva fórmula a partir del estado.
+// Si la regla no aplica, devuelve null.
+//
+// Convención: cada regla recibe `state` (lista de fórmulas conocidas)
+// y un foco opcional `beliefP` (el principal P sobre cuyo punto de
+// vista estamos razonando, si la regla lo necesita).
+//
+// Reglas:
+//   R1  message-meaning (shared key)
+//       P|≡ A↔K B  ,  P◁ {X}_K     ⇒  P|≡ A|~ X
+//   R2  message-meaning (public key)
+//       P|≡ |→K Q  ,  P◁ {X}_{K^-1} ⇒  P|≡ Q|~ X
+//       (modelamos con encryption con key inversa; ver más abajo)
+//   R3  message-meaning (shared secret)
+//       P|≡ A⇌Y B  ,  P◁ <X>_Y     ⇒  P|≡ A|~ X
+//   R4  nonce-verification
+//       P|≡ #X  ,  P|≡ Q|~ X       ⇒  P|≡ Q|≡ X
+//   R5  jurisdiction
+//       P|≡ Q|⇒ X  ,  P|≡ Q|≡ X    ⇒  P|≡ X
+//   R6  belief-conjunction (descomposición y composición)
+//       P|≡ (X ∧ Y)                ⇒  P|≡ X  ,  P|≡ Y
+//   R7  said-conjunction
+//       P|≡ Q|~ (X ∧ Y)            ⇒  P|≡ Q|~ X  ,  P|≡ Q|~ Y
+//   R8  freshness-propagation
+//       P|≡ #X                     ⇒  P|≡ #(X, Y) (cuando X aparece en compound)
+//   R9  seeing-compound (descomposición de mensajes vistos)
+//       P◁ <X, Y>                  ⇒  P◁ X , P◁ Y
+//   R10 seeing-encrypted (cuando P tiene la clave)
+//       P◁ {X}_K  ,  P|≡ A↔K P     ⇒  P◁ X
+//
+// Implementación: cada `applyXxx` busca un par de fórmulas en `state`
+// que satisfaga las premisas y devuelve la conclusión. Para enumerar
+// todas las nuevas creencias, ver `saturate()` en `analyze.ts`.
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.RULES_REGISTRY = void 0;
+exports.applyMessageMeaningShared = applyMessageMeaningShared;
+exports.applyMessageMeaningPublic = applyMessageMeaningPublic;
+exports.applyMessageMeaningSecret = applyMessageMeaningSecret;
+exports.applyNonceVerification = applyNonceVerification;
+exports.applyJurisdiction = applyJurisdiction;
+exports.applySeeingEncrypted = applySeeingEncrypted;
+exports.applySeesCompound = applySeesCompound;
+exports.applyBeliefConjunction = applyBeliefConjunction;
+exports.applyBeliefConjunctionRight = applyBeliefConjunctionRight;
+exports.applySaidConjunction = applySaidConjunction;
+exports.applyFreshnessPropagation = applyFreshnessPropagation;
+const terms_1 = require("./terms");
+/**
+ * R1 — Message-meaning (shared key).
+ *
+ * Si P cree A↔K B y P ve {X}_K, entonces P cree que A dijo X
+ * (asumiendo P ≠ originador, y la clave es genuinamente compartida
+ * solo entre A y B + posibles autoridades).
+ *
+ * Devuelve la primera derivación posible o null. La variante que enumera
+ * TODAS está en `saturate()`.
+ */
+function applyMessageMeaningShared(state, beliefP) {
+    if (beliefP.kind !== 'believes')
+        return null;
+    const p = beliefP.principal;
+    // Buscar premisa 1: P |≡ A↔K B
+    if (beliefP.about.kind !== 'sharedKey')
+        return null;
+    const sk = beliefP.about;
+    // Buscar premisa 2: P ◁ {X}_K en el state
+    for (const f of state) {
+        if (f.kind !== 'sees')
+            continue;
+        if (!(0, terms_1.termEquals)(f.principal, p))
+            continue;
+        if (f.what.kind !== 'encrypted')
+            continue;
+        if (!(0, terms_1.termEquals)(f.what.key, sk.key))
+            continue;
+        // Conclusión: P |≡ A |~ X  (donde A es el OTRO participante, no P)
+        // Si P es uno de los participantes de la clave, A es el otro.
+        // Si P no participa de la clave, BAN dice "alguien con esa clave
+        // dijo X" → tomamos sk.a por defecto.
+        const other = (0, terms_1.termEquals)(p, sk.a) ? sk.b : (0, terms_1.termEquals)(p, sk.b) ? sk.a : sk.a;
+        return {
+            kind: 'believes',
+            principal: p,
+            about: { kind: 'said-message', principal: other, what: f.what.message },
+        };
+    }
+    return null;
+}
+/**
+ * R2 — Message-meaning (public key).
+ *
+ * Si P cree |→K Q y P ve {X}_{K^-1} (cifrado con la clave privada de Q),
+ * entonces P cree que Q dijo X.
+ *
+ * Modelo: tratamos `encrypted(X, privateKey_Q)` como "Q firmó X".
+ * Convención de naming: si la clave pública se llama K, la privada
+ * compartirá el nombre con sufijo "_inv" o es identificable porque
+ * el atributo `shared` corresponde a Q.
+ *
+ * Para simplificar el motor, modelamos firma como `encrypted(X, K)` donde
+ * K es la clave pública y publicKey(Q, K). El "sentido directo" en
+ * la verdad: solo Q pudo haber producido ese ciphertext porque solo
+ * Q tiene la inversa. Así que la regla R2 dice: si P|≡|→K Q y P◁{X}_K
+ * entonces P|≡ Q|~ X. Esto es la versión "firma con clave pública".
+ */
+function applyMessageMeaningPublic(state, beliefP) {
+    if (beliefP.kind !== 'believes')
+        return null;
+    const p = beliefP.principal;
+    if (beliefP.about.kind !== 'publicKey')
+        return null;
+    const pk = beliefP.about;
+    for (const f of state) {
+        if (f.kind !== 'sees')
+            continue;
+        if (!(0, terms_1.termEquals)(f.principal, p))
+            continue;
+        if (f.what.kind !== 'encrypted')
+            continue;
+        if (!(0, terms_1.termEquals)(f.what.key, pk.key))
+            continue;
+        return {
+            kind: 'believes',
+            principal: p,
+            about: { kind: 'said-message', principal: pk.principal, what: f.what.message },
+        };
+    }
+    return null;
+}
+/**
+ * R3 — Message-meaning (shared secret).
+ *
+ * Si P cree A⇌Y B y P ve un mensaje compound que combina X con Y
+ * (modelo `compound([X, Y])`), entonces P cree que A dijo X.
+ */
+function applyMessageMeaningSecret(state, beliefP) {
+    if (beliefP.kind !== 'believes')
+        return null;
+    const p = beliefP.principal;
+    if (beliefP.about.kind !== 'sharedSecret')
+        return null;
+    const ss = beliefP.about;
+    for (const f of state) {
+        if (f.kind !== 'sees')
+            continue;
+        if (!(0, terms_1.termEquals)(f.principal, p))
+            continue;
+        if (f.what.kind !== 'compound')
+            continue;
+        if (f.what.parts.length < 2)
+            continue;
+        // El último parte debe ser el secreto Y; el resto es X.
+        const last = f.what.parts[f.what.parts.length - 1];
+        if (!last || !(0, terms_1.termEquals)(last, ss.secret))
+            continue;
+        const xParts = f.what.parts.slice(0, -1);
+        const x = xParts.length === 1 && xParts[0] ? xParts[0] : { kind: 'message', content: xParts };
+        const other = (0, terms_1.termEquals)(p, ss.a) ? ss.b : ss.a;
+        return {
+            kind: 'believes',
+            principal: p,
+            about: { kind: 'said-message', principal: other, what: x },
+        };
+    }
+    return null;
+}
+/**
+ * R4 — Nonce-verification.
+ *
+ * Si P cree que X es fresco y P cree que Q dijo X, entonces P cree
+ * que Q realmente cree X (porque sólo lo pudo haber dicho recientemente).
+ */
+function applyNonceVerification(state, beliefP) {
+    if (beliefP.kind !== 'believes')
+        return null;
+    const p = beliefP.principal;
+    // Caso A: beliefP es "P |≡ Q |~ X"
+    if (beliefP.about.kind === 'said-message') {
+        const sm = beliefP.about;
+        // Buscar P |≡ #X en state
+        for (const f of state) {
+            if (f.kind !== 'believes')
+                continue;
+            if (!(0, terms_1.termEquals)(f.principal, p))
+                continue;
+            if (f.about.kind !== 'fresh')
+                continue;
+            if (!(0, terms_1.termEquals)(f.about.what, sm.what))
+                continue;
+            return {
+                kind: 'believes',
+                principal: p,
+                about: {
+                    kind: 'believes',
+                    principal: sm.principal,
+                    about: { kind: 'sees', principal: sm.principal, what: sm.what },
+                },
+            };
+        }
+    }
+    // Caso B: beliefP es "P |≡ #X". Buscar said-message.
+    if (beliefP.about.kind === 'fresh') {
+        const xf = beliefP.about.what;
+        for (const f of state) {
+            if (f.kind !== 'believes')
+                continue;
+            if (!(0, terms_1.termEquals)(f.principal, p))
+                continue;
+            if (f.about.kind !== 'said-message')
+                continue;
+            if (!(0, terms_1.termEquals)(f.about.what, xf))
+                continue;
+            return {
+                kind: 'believes',
+                principal: p,
+                about: {
+                    kind: 'believes',
+                    principal: f.about.principal,
+                    about: { kind: 'sees', principal: f.about.principal, what: xf },
+                },
+            };
+        }
+    }
+    return null;
+}
+/**
+ * R5 — Jurisdiction.
+ *
+ * Si P cree que Q tiene jurisdicción sobre X (P|≡ Q|⇒ X) y P cree
+ * que Q cree X (P|≡ Q|≡ X), entonces P cree X.
+ */
+function applyJurisdiction(state, beliefP) {
+    if (beliefP.kind !== 'believes')
+        return null;
+    const p = beliefP.principal;
+    // Caso A: beliefP es la jurisdicción "P |≡ Q |⇒ X"
+    if (beliefP.about.kind === 'controls' || beliefP.about.kind === 'jurisdiction') {
+        const ctrl = beliefP.about;
+        const q = ctrl.principal;
+        const stmt = ctrl.kind === 'controls' ? ctrl.statement : ctrl.over;
+        // Buscar P |≡ Q |≡ stmt
+        for (const f of state) {
+            if (f.kind !== 'believes')
+                continue;
+            if (!(0, terms_1.termEquals)(f.principal, p))
+                continue;
+            if (f.about.kind !== 'believes')
+                continue;
+            if (!(0, terms_1.termEquals)(f.about.principal, q))
+                continue;
+            if (!(0, terms_1.formulaEquals)(f.about.about, stmt))
+                continue;
+            return { kind: 'believes', principal: p, about: stmt };
+        }
+    }
+    // Caso B: beliefP es "P |≡ Q |≡ X"; buscar la jurisdicción.
+    if (beliefP.about.kind === 'believes') {
+        const inner = beliefP.about;
+        const q = inner.principal;
+        const stmt = inner.about;
+        for (const f of state) {
+            if (f.kind !== 'believes')
+                continue;
+            if (!(0, terms_1.termEquals)(f.principal, p))
+                continue;
+            const a = f.about;
+            const isCtrl = a.kind === 'controls' || a.kind === 'jurisdiction';
+            if (!isCtrl)
+                continue;
+            if (!(0, terms_1.termEquals)(a.principal, q))
+                continue;
+            const aStmt = a.kind === 'controls' ? a.statement : a.over;
+            if (!(0, terms_1.formulaEquals)(aStmt, stmt))
+                continue;
+            return { kind: 'believes', principal: p, about: stmt };
+        }
+    }
+    return null;
+}
+/**
+ * R10 — Seeing encrypted: si P tiene la clave, ver {X}_K implica ver X.
+ */
+function applySeeingEncrypted(state, beliefP) {
+    // beliefP suele ser "P ◁ {X}_K"
+    if (beliefP.kind !== 'sees')
+        return null;
+    if (beliefP.what.kind !== 'encrypted')
+        return null;
+    const p = beliefP.principal;
+    const k = beliefP.what.key;
+    // Buscar: P |≡ A↔K B donde P ∈ {A,B}, o publicKey de P, o P es authority.
+    for (const f of state) {
+        if (f.kind !== 'believes')
+            continue;
+        if (!(0, terms_1.termEquals)(f.principal, p))
+            continue;
+        if (f.about.kind !== 'sharedKey')
+            continue;
+        if (!(0, terms_1.termEquals)(f.about.key, k))
+            continue;
+        if (!(0, terms_1.termEquals)(f.about.a, p) && !(0, terms_1.termEquals)(f.about.b, p))
+            continue;
+        return { kind: 'sees', principal: p, what: beliefP.what.message };
+    }
+    return null;
+}
+/**
+ * Decomposición de "ver compound": P ◁ <X1,...,Xn>  ⇒  P ◁ Xi  (todos).
+ * Devuelve la primera Xi que NO esté ya en state (para evitar duplicados).
+ */
+function applySeesCompound(state, beliefP) {
+    if (beliefP.kind !== 'sees')
+        return null;
+    const p = beliefP.principal;
+    const parts = beliefP.what.kind === 'message'
+        ? beliefP.what.content
+        : beliefP.what.kind === 'compound'
+            ? beliefP.what.parts
+            : null;
+    if (!parts)
+        return null;
+    for (const part of parts) {
+        const cand = { kind: 'sees', principal: p, what: part };
+        if (!(0, terms_1.hasFormula)(state, cand))
+            return cand;
+    }
+    return null;
+}
+/**
+ * Belief-conjunction descomposición.
+ */
+function applyBeliefConjunction(beliefP) {
+    if (beliefP.kind !== 'believes')
+        return null;
+    if (beliefP.about.kind !== 'formula-and')
+        return null;
+    // Devolvemos solo la izquierda; la derecha la captura saturate en otra pasada.
+    return { kind: 'believes', principal: beliefP.principal, about: beliefP.about.left };
+}
+function applyBeliefConjunctionRight(beliefP) {
+    if (beliefP.kind !== 'believes')
+        return null;
+    if (beliefP.about.kind !== 'formula-and')
+        return null;
+    return { kind: 'believes', principal: beliefP.principal, about: beliefP.about.right };
+}
+/**
+ * Said-conjunction descomposición.
+ */
+function applySaidConjunction(beliefP) {
+    if (beliefP.kind !== 'believes')
+        return null;
+    if (beliefP.about.kind !== 'said')
+        return null;
+    if (beliefP.about.what.kind !== 'formula-and')
+        return null;
+    return {
+        kind: 'believes',
+        principal: beliefP.principal,
+        about: { kind: 'said', principal: beliefP.about.principal, what: beliefP.about.what.left },
+    };
+}
+/**
+ * Propagación de frescura: si P|≡#X y X aparece dentro de un compound C
+ * que está en state, entonces P|≡#C.
+ */
+function applyFreshnessPropagation(state, beliefP) {
+    if (beliefP.kind !== 'believes')
+        return null;
+    if (beliefP.about.kind !== 'fresh')
+        return null;
+    const p = beliefP.principal;
+    const xf = beliefP.about.what;
+    // Buscar compounds vistos por P que contengan xf.
+    for (const f of state) {
+        if (f.kind !== 'sees')
+            continue;
+        if (!(0, terms_1.termEquals)(f.principal, p))
+            continue;
+        const parts = f.what.kind === 'message' ? f.what.content : f.what.kind === 'compound' ? f.what.parts : null;
+        if (!parts)
+            continue;
+        if (!parts.some((part) => (0, terms_1.termEquals)(part, xf)))
+            continue;
+        const candidate = {
+            kind: 'believes',
+            principal: p,
+            about: { kind: 'fresh', what: f.what },
+        };
+        if (!(0, terms_1.hasFormula)(state, candidate))
+            return candidate;
+    }
+    return null;
+}
+exports.RULES_REGISTRY = {
+    R1_messageMeaningShared: applyMessageMeaningShared,
+    R2_messageMeaningPublic: applyMessageMeaningPublic,
+    R3_messageMeaningSecret: applyMessageMeaningSecret,
+    R4_nonceVerification: applyNonceVerification,
+    R5_jurisdiction: applyJurisdiction,
+    R10_seeingEncrypted: applySeeingEncrypted,
+};
+//# sourceMappingURL=rules.js.map

package/dist/reasoning/ban-logic/rules.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"rules.js","sourceRoot":"","sources":["../../../src/reasoning/ban-logic/rules.ts"],"names":[],"mappings":";AAAA,+DAA+D;AAC/D,mCAAmC;AACnC,+DAA+D;AAC/D,EAAE;AACF,uEAAuE;AACvE,qEAAqE;AACrE,wCAAwC;AACxC,EAAE;AACF,sEAAsE;AACtE,mEAAmE;AACnE,qDAAqD;AACrD,EAAE;AACF,UAAU;AACV,qCAAqC;AACrC,gDAAgD;AAChD,qCAAqC;AACrC,iDAAiD;AACjD,kEAAkE;AAClE,wCAAwC;AACxC,gDAAgD;AAChD,2BAA2B;AAC3B,gDAAgD;AAChD,qBAAqB;AACrB,4CAA4C;AAC5C,0DAA0D;AAC1D,sDAAsD;AACtD,yBAAyB;AACzB,8DAA8D;AAC9D,8BAA8B;AAC9B,iFAAiF;AACjF,4DAA4D;AAC5D,kDAAkD;AAClD,mDAAmD;AACnD,2CAA2C;AAC3C,EAAE;AACF,sEAAsE;AACtE,qEAAqE;AACrE,gEAAgE;;;AAehE,8DA8BC;AAmBD,8DAsBC;AAQD,8DA6BC;AAQD,wDAkDC;AAQD,8CA2CC;AAKD,oDAmBC;AAMD,8CAkBC;AAKD,wDAKC;AAED,kEAIC;AAKD,oDASC;AAMD,8DAyBC;AAnVD,mCAAgE;AAGhE;;;;;;;;;GASG;AACH,SAAgB,yBAAyB,CACvC,KAAgC,EAChC,OAAmB;IAEnB,IAAI,OAAO,CAAC,IAAI,KAAK,UAAU;QAAE,OAAO,IAAI,CAAC;IAC7C,MAAM,CAAC,GAAG,OAAO,CAAC,SAAS,CAAC;IAE5B,+BAA+B;IAC/B,IAAI,OAAO,CAAC,KAAK,CAAC,IAAI,KAAK,WAAW;QAAE,OAAO,IAAI,CAAC;IACpD,MAAM,EAAE,GAAG,OAAO,CAAC,KAAK,CAAC;IAEzB,0CAA0C;IAC1C,KAAK,MAAM,CAAC,IAAI,KAAK,EAAE,CAAC;QACtB,IAAI,CAAC,CAAC,IAAI,KAAK,MAAM;YAAE,SAAS;QAChC,IAAI,CAAC,IAAA,kBAAU,EAAC,CAAC,CAAC,SAAS,EAAE,CAAC,CAAC;YAAE,SAAS;QAC1C,IAAI,CAAC,CAAC,IAAI,CAAC,IAAI,KAAK,WAAW;YAAE,SAAS;QAC1C,IAAI,CAAC,IAAA,kBAAU,EAAC,CAAC,CAAC,IAAI,CAAC,GAAG,EAAE,EAAE,CAAC,GAAG,CAAC;YAAE,SAAS;QAE9C,mEAAmE;QACnE,8DAA8D;QAC9D,iEAAiE;QACjE,sCAAsC;QACtC,MAAM,KAAK,GAAY,IAAA,kBAAU,EAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,IAAA,kBAAU,EAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;QACtF,OAAO;YACL,IAAI,EAAE,UAAU;YAChB,SAAS,EAAE,CAAC;YACZ,KAAK,EAAE,EAAE,IAAI,EAAE,cAAc,EAAE,SAAS,EAAE,KAAK,EAAE,IAAI,EAAE,CAAC,CAAC,IAAI,CAAC,OAAO,EAAE;SACxE,CAAC;IACJ,CAAC;IACD,OAAO,IAAI,CAAC;AACd,CAAC;AAED;;;;;;;;;;;;;;;;GAgBG;AACH,SAAgB,yBAAyB,CACvC,KAAgC,EAChC,OAAmB;IAEnB,IAAI,OAAO,CAAC,IAAI,KAAK,UAAU;QAAE,OAAO,IAAI,CAAC;IAC7C,MAAM,CAAC,GAAG,OAAO,CAAC,SAAS,CAAC;IAC5B,IAAI,OAAO,CAAC,KAAK,CAAC,IAAI,KAAK,WAAW;QAAE,OAAO,IAAI,CAAC;IACpD,MAAM,EAAE,GAAG,OAAO,CAAC,KAAK,CAAC;IAEzB,KAAK,MAAM,CAAC,IAAI,KAAK,EAAE,CAAC;QACtB,IAAI,CAAC,CAAC,IAAI,KAAK,MAAM;YAAE,SAAS;QAChC,IAAI,CAAC,IAAA,kBAAU,EAAC,CAAC,CAAC,SAAS,EAAE,CAAC,CAAC;YAAE,SAAS;QAC1C,IAAI,CAAC,CAAC,IAAI,CAAC,IAAI,KAAK,WAAW;YAAE,SAAS;QAC1C,IAAI,CAAC,IAAA,kBAAU,EAAC,CAAC,CAAC,IAAI,CAAC,GAAG,EAAE,EAAE,CAAC,GAAG,CAAC;YAAE,SAAS;QAE9C,OAAO;YACL,IAAI,EAAE,UAAU;YAChB,SAAS,EAAE,CAAC;YACZ,KAAK,EAAE,EAAE,IAAI,EAAE,cAAc,EAAE,SAAS,EAAE,EAAE,CAAC,SAAS,EAAE,IAAI,EAAE,CAAC,CAAC,IAAI,CAAC,OAAO,EAAE;SAC/E,CAAC;IACJ,CAAC;IACD,OAAO,IAAI,CAAC;AACd,CAAC;AAED;;;;;GAKG;AACH,SAAgB,yBAAyB,CACvC,KAAgC,EAChC,OAAmB;IAEnB,IAAI,OAAO,CAAC,IAAI,KAAK,UAAU;QAAE,OAAO,IAAI,CAAC;IAC7C,MAAM,CAAC,GAAG,OAAO,CAAC,SAAS,CAAC;IAC5B,IAAI,OAAO,CAAC,KAAK,CAAC,IAAI,KAAK,cAAc;QAAE,OAAO,IAAI,CAAC;IACvD,MAAM,EAAE,GAAG,OAAO,CAAC,KAAK,CAAC;IAEzB,KAAK,MAAM,CAAC,IAAI,KAAK,EAAE,CAAC;QACtB,IAAI,CAAC,CAAC,IAAI,KAAK,MAAM;YAAE,SAAS;QAChC,IAAI,CAAC,IAAA,kBAAU,EAAC,CAAC,CAAC,SAAS,EAAE,CAAC,CAAC;YAAE,SAAS;QAC1C,IAAI,CAAC,CAAC,IAAI,CAAC,IAAI,KAAK,UAAU;YAAE,SAAS;QACzC,IAAI,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,MAAM,GAAG,CAAC;YAAE,SAAS;QACtC,wDAAwD;QACxD,MAAM,IAAI,GAAG,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC;QACnD,IAAI,CAAC,IAAI,IAAI,CAAC,IAAA,kBAAU,EAAC,IAAI,EAAE,EAAE,CAAC,MAAM,CAAC;YAAE,SAAS;QAEpD,MAAM,MAAM,GAAG,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;QACzC,MAAM,CAAC,GACL,MAAM,CAAC,MAAM,KAAK,CAAC,IAAI,MAAM,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,SAAS,EAAE,OAAO,EAAE,MAAM,EAAE,CAAC;QACtF,MAAM,KAAK,GAAY,IAAA,kBAAU,EAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;QACzD,OAAO;YACL,IAAI,EAAE,UAAU;YAChB,SAAS,EAAE,CAAC;YACZ,KAAK,EAAE,EAAE,IAAI,EAAE,cAAc,EAAE,SAAS,EAAE,KAAK,EAAE,IAAI,EAAE,CAAC,EAAE;SAC3D,CAAC;IACJ,CAAC;IACD,OAAO,IAAI,CAAC;AACd,CAAC;AAED;;;;;GAKG;AACH,SAAgB,sBAAsB,CACpC,KAAgC,EAChC,OAAmB;IAEnB,IAAI,OAAO,CAAC,IAAI,KAAK,UAAU;QAAE,OAAO,IAAI,CAAC;IAC7C,MAAM,CAAC,GAAG,OAAO,CAAC,SAAS,CAAC;IAE5B,mCAAmC;IACnC,IAAI,OAAO,CAAC,KAAK,CAAC,IAAI,KAAK,cAAc,EAAE,CAAC;QAC1C,MAAM,EAAE,GAAG,OAAO,CAAC,KAAK,CAAC;QACzB,0BAA0B;QAC1B,KAAK,MAAM,CAAC,IAAI,KAAK,EAAE,CAAC;YACtB,IAAI,CAAC,CAAC,IAAI,KAAK,UAAU;gBAAE,SAAS;YACpC,IAAI,CAAC,IAAA,kBAAU,EAAC,CAAC,CAAC,SAAS,EAAE,CAAC,CAAC;gBAAE,SAAS;YAC1C,IAAI,CAAC,CAAC,KAAK,CAAC,IAAI,KAAK,OAAO;gBAAE,SAAS;YACvC,IAAI,CAAC,IAAA,kBAAU,EAAC,CAAC,CAAC,KAAK,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,CAAC;gBAAE,SAAS;YAEjD,OAAO;gBACL,IAAI,EAAE,UAAU;gBAChB,SAAS,EAAE,CAAC;gBACZ,KAAK,EAAE;oBACL,IAAI,EAAE,UAAU;oBAChB,SAAS,EAAE,EAAE,CAAC,SAAS;oBACvB,KAAK,EAAE,EAAE,IAAI,EAAE,MAAM,EAAE,SAAS,EAAE,EAAE,CAAC,SAAS,EAAE,IAAI,EAAE,EAAE,CAAC,IAAI,EAAE;iBAChE;aACF,CAAC;QACJ,CAAC;IACH,CAAC;IAED,qDAAqD;IACrD,IAAI,OAAO,CAAC,KAAK,CAAC,IAAI,KAAK,OAAO,EAAE,CAAC;QACnC,MAAM,EAAE,GAAG,OAAO,CAAC,KAAK,CAAC,IAAI,CAAC;QAC9B,KAAK,MAAM,CAAC,IAAI,KAAK,EAAE,CAAC;YACtB,IAAI,CAAC,CAAC,IAAI,KAAK,UAAU;gBAAE,SAAS;YACpC,IAAI,CAAC,IAAA,kBAAU,EAAC,CAAC,CAAC,SAAS,EAAE,CAAC,CAAC;gBAAE,SAAS;YAC1C,IAAI,CAAC,CAAC,KAAK,CAAC,IAAI,KAAK,cAAc;gBAAE,SAAS;YAC9C,IAAI,CAAC,IAAA,kBAAU,EAAC,CAAC,CAAC,KAAK,CAAC,IAAI,EAAE,EAAE,CAAC;gBAAE,SAAS;YAE5C,OAAO;gBACL,IAAI,EAAE,UAAU;gBAChB,SAAS,EAAE,CAAC;gBACZ,KAAK,EAAE;oBACL,IAAI,EAAE,UAAU;oBAChB,SAAS,EAAE,CAAC,CAAC,KAAK,CAAC,SAAS;oBAC5B,KAAK,EAAE,EAAE,IAAI,EAAE,MAAM,EAAE,SAAS,EAAE,CAAC,CAAC,KAAK,CAAC,SAAS,EAAE,IAAI,EAAE,EAAE,EAAE;iBAChE;aACF,CAAC;QACJ,CAAC;IACH,CAAC;IACD,OAAO,IAAI,CAAC;AACd,CAAC;AAED;;;;;GAKG;AACH,SAAgB,iBAAiB,CAC/B,KAAgC,EAChC,OAAmB;IAEnB,IAAI,OAAO,CAAC,IAAI,KAAK,UAAU;QAAE,OAAO,IAAI,CAAC;IAC7C,MAAM,CAAC,GAAG,OAAO,CAAC,SAAS,CAAC;IAE5B,mDAAmD;IACnD,IAAI,OAAO,CAAC,KAAK,CAAC,IAAI,KAAK,UAAU,IAAI,OAAO,CAAC,KAAK,CAAC,IAAI,KAAK,cAAc,EAAE,CAAC;QAC/E,MAAM,IAAI,GAAG,OAAO,CAAC,KAAK,CAAC;QAC3B,MAAM,CAAC,GAAG,IAAI,CAAC,SAAS,CAAC;QACzB,MAAM,IAAI,GAAG,IAAI,CAAC,IAAI,KAAK,UAAU,CAAC,CAAC,CAAC,IAAI,CAAC,SAAS,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC;QACnE,wBAAwB;QACxB,KAAK,MAAM,CAAC,IAAI,KAAK,EAAE,CAAC;YACtB,IAAI,CAAC,CAAC,IAAI,KAAK,UAAU;gBAAE,SAAS;YACpC,IAAI,CAAC,IAAA,kBAAU,EAAC,CAAC,CAAC,SAAS,EAAE,CAAC,CAAC;gBAAE,SAAS;YAC1C,IAAI,CAAC,CAAC,KAAK,CAAC,IAAI,KAAK,UAAU;gBAAE,SAAS;YAC1C,IAAI,CAAC,IAAA,kBAAU,EAAC,CAAC,CAAC,KAAK,CAAC,SAAS,EAAE,CAAC,CAAC;gBAAE,SAAS;YAChD,IAAI,CAAC,IAAA,qBAAa,EAAC,CAAC,CAAC,KAAK,CAAC,KAAK,EAAE,IAAI,CAAC;gBAAE,SAAS;YAElD,OAAO,EAAE,IAAI,EAAE,UAAU,EAAE,SAAS,EAAE,CAAC,EAAE,KAAK,EAAE,IAAI,EAAE,CAAC;QACzD,CAAC;IACH,CAAC;IAED,4DAA4D;IAC5D,IAAI,OAAO,CAAC,KAAK,CAAC,IAAI,KAAK,UAAU,EAAE,CAAC;QACtC,MAAM,KAAK,GAAG,OAAO,CAAC,KAAK,CAAC;QAC5B,MAAM,CAAC,GAAG,KAAK,CAAC,SAAS,CAAC;QAC1B,MAAM,IAAI,GAAG,KAAK,CAAC,KAAK,CAAC;QACzB,KAAK,MAAM,CAAC,IAAI,KAAK,EAAE,CAAC;YACtB,IAAI,CAAC,CAAC,IAAI,KAAK,UAAU;gBAAE,SAAS;YACpC,IAAI,CAAC,IAAA,kBAAU,EAAC,CAAC,CAAC,SAAS,EAAE,CAAC,CAAC;gBAAE,SAAS;YAC1C,MAAM,CAAC,GAAG,CAAC,CAAC,KAAK,CAAC;YAClB,MAAM,MAAM,GAAG,CAAC,CAAC,IAAI,KAAK,UAAU,IAAI,CAAC,CAAC,IAAI,KAAK,cAAc,CAAC;YAClE,IAAI,CAAC,MAAM;gBAAE,SAAS;YACtB,IAAI,CAAC,IAAA,kBAAU,EAAC,CAAC,CAAC,SAAS,EAAE,CAAC,CAAC;gBAAE,SAAS;YAC1C,MAAM,KAAK,GAAG,CAAC,CAAC,IAAI,KAAK,UAAU,CAAC,CAAC,CAAC,CAAC,CAAC,SAAS,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC;YAC3D,IAAI,CAAC,IAAA,qBAAa,EAAC,KAAK,EAAE,IAAI,CAAC;gBAAE,SAAS;YAE1C,OAAO,EAAE,IAAI,EAAE,UAAU,EAAE,SAAS,EAAE,CAAC,EAAE,KAAK,EAAE,IAAI,EAAE,CAAC;QACzD,CAAC;IACH,CAAC;IACD,OAAO,IAAI,CAAC;AACd,CAAC;AAED;;GAEG;AACH,SAAgB,oBAAoB,CAClC,KAAgC,EAChC,OAAmB;IAEnB,gCAAgC;IAChC,IAAI,OAAO,CAAC,IAAI,KAAK,MAAM;QAAE,OAAO,IAAI,CAAC;IACzC,IAAI,OAAO,CAAC,IAAI,CAAC,IAAI,KAAK,WAAW;QAAE,OAAO,IAAI,CAAC;IACnD,MAAM,CAAC,GAAG,OAAO,CAAC,SAAS,CAAC;IAC5B,MAAM,CAAC,GAAG,OAAO,CAAC,IAAI,CAAC,GAAG,CAAC;IAC3B,0EAA0E;IAC1E,KAAK,MAAM,CAAC,IAAI,KAAK,EAAE,CAAC;QACtB,IAAI,CAAC,CAAC,IAAI,KAAK,UAAU;YAAE,SAAS;QACpC,IAAI,CAAC,IAAA,kBAAU,EAAC,CAAC,CAAC,SAAS,EAAE,CAAC,CAAC;YAAE,SAAS;QAC1C,IAAI,CAAC,CAAC,KAAK,CAAC,IAAI,KAAK,WAAW;YAAE,SAAS;QAC3C,IAAI,CAAC,IAAA,kBAAU,EAAC,CAAC,CAAC,KAAK,CAAC,GAAG,EAAE,CAAC,CAAC;YAAE,SAAS;QAC1C,IAAI,CAAC,IAAA,kBAAU,EAAC,CAAC,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,IAAI,CAAC,IAAA,kBAAU,EAAC,CAAC,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC;YAAE,SAAS;QACrE,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,SAAS,EAAE,CAAC,EAAE,IAAI,EAAE,OAAO,CAAC,IAAI,CAAC,OAAO,EAAE,CAAC;IACpE,CAAC;IACD,OAAO,IAAI,CAAC;AACd,CAAC;AAED;;;GAGG;AACH,SAAgB,iBAAiB,CAC/B,KAAgC,EAChC,OAAmB;IAEnB,IAAI,OAAO,CAAC,IAAI,KAAK,MAAM;QAAE,OAAO,IAAI,CAAC;IACzC,MAAM,CAAC,GAAG,OAAO,CAAC,SAAS,CAAC;IAC5B,MAAM,KAAK,GACT,OAAO,CAAC,IAAI,CAAC,IAAI,KAAK,SAAS;QAC7B,CAAC,CAAC,OAAO,CAAC,IAAI,CAAC,OAAO;QACtB,CAAC,CAAC,OAAO,CAAC,IAAI,CAAC,IAAI,KAAK,UAAU;YAChC,CAAC,CAAC,OAAO,CAAC,IAAI,CAAC,KAAK;YACpB,CAAC,CAAC,IAAI,CAAC;IACb,IAAI,CAAC,KAAK;QAAE,OAAO,IAAI,CAAC;IACxB,KAAK,MAAM,IAAI,IAAI,KAAK,EAAE,CAAC;QACzB,MAAM,IAAI,GAAe,EAAE,IAAI,EAAE,MAAM,EAAE,SAAS,EAAE,CAAC,EAAE,IAAI,EAAE,IAAI,EAAE,CAAC;QACpE,IAAI,CAAC,IAAA,kBAAU,EAAC,KAAK,EAAE,IAAI,CAAC;YAAE,OAAO,IAAI,CAAC;IAC5C,CAAC;IACD,OAAO,IAAI,CAAC;AACd,CAAC;AAED;;GAEG;AACH,SAAgB,sBAAsB,CAAC,OAAmB;IACxD,IAAI,OAAO,CAAC,IAAI,KAAK,UAAU;QAAE,OAAO,IAAI,CAAC;IAC7C,IAAI,OAAO,CAAC,KAAK,CAAC,IAAI,KAAK,aAAa;QAAE,OAAO,IAAI,CAAC;IACtD,+EAA+E;IAC/E,OAAO,EAAE,IAAI,EAAE,UAAU,EAAE,SAAS,EAAE,OAAO,CAAC,SAAS,EAAE,KAAK,EAAE,OAAO,CAAC,KAAK,CAAC,IAAI,EAAE,CAAC;AACvF,CAAC;AAED,SAAgB,2BAA2B,CAAC,OAAmB;IAC7D,IAAI,OAAO,CAAC,IAAI,KAAK,UAAU;QAAE,OAAO,IAAI,CAAC;IAC7C,IAAI,OAAO,CAAC,KAAK,CAAC,IAAI,KAAK,aAAa;QAAE,OAAO,IAAI,CAAC;IACtD,OAAO,EAAE,IAAI,EAAE,UAAU,EAAE,SAAS,EAAE,OAAO,CAAC,SAAS,EAAE,KAAK,EAAE,OAAO,CAAC,KAAK,CAAC,KAAK,EAAE,CAAC;AACxF,CAAC;AAED;;GAEG;AACH,SAAgB,oBAAoB,CAAC,OAAmB;IACtD,IAAI,OAAO,CAAC,IAAI,KAAK,UAAU;QAAE,OAAO,IAAI,CAAC;IAC7C,IAAI,OAAO,CAAC,KAAK,CAAC,IAAI,KAAK,MAAM;QAAE,OAAO,IAAI,CAAC;IAC/C,IAAI,OAAO,CAAC,KAAK,CAAC,IAAI,CAAC,IAAI,KAAK,aAAa;QAAE,OAAO,IAAI,CAAC;IAC3D,OAAO;QACL,IAAI,EAAE,UAAU;QAChB,SAAS,EAAE,OAAO,CAAC,SAAS;QAC5B,KAAK,EAAE,EAAE,IAAI,EAAE,MAAM,EAAE,SAAS,EAAE,OAAO,CAAC,KAAK,CAAC,SAAS,EAAE,IAAI,EAAE,OAAO,CAAC,KAAK,CAAC,IAAI,CAAC,IAAI,EAAE;KAC3F,CAAC;AACJ,CAAC;AAED;;;GAGG;AACH,SAAgB,yBAAyB,CACvC,KAAgC,EAChC,OAAmB;IAEnB,IAAI,OAAO,CAAC,IAAI,KAAK,UAAU;QAAE,OAAO,IAAI,CAAC;IAC7C,IAAI,OAAO,CAAC,KAAK,CAAC,IAAI,KAAK,OAAO;QAAE,OAAO,IAAI,CAAC;IAChD,MAAM,CAAC,GAAG,OAAO,CAAC,SAAS,CAAC;IAC5B,MAAM,EAAE,GAAG,OAAO,CAAC,KAAK,CAAC,IAAI,CAAC;IAE9B,kDAAkD;IAClD,KAAK,MAAM,CAAC,IAAI,KAAK,EAAE,CAAC;QACtB,IAAI,CAAC,CAAC,IAAI,KAAK,MAAM;YAAE,SAAS;QAChC,IAAI,CAAC,IAAA,kBAAU,EAAC,CAAC,CAAC,SAAS,EAAE,CAAC,CAAC;YAAE,SAAS;QAC1C,MAAM,KAAK,GACT,CAAC,CAAC,IAAI,CAAC,IAAI,KAAK,SAAS,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,KAAK,UAAU,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,IAAI,CAAC;QAChG,IAAI,CAAC,KAAK;YAAE,SAAS;QACrB,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,IAAA,kBAAU,EAAC,IAAI,EAAE,EAAE,CAAC,CAAC;YAAE,SAAS;QAC1D,MAAM,SAAS,GAAe;YAC5B,IAAI,EAAE,UAAU;YAChB,SAAS,EAAE,CAAC;YACZ,KAAK,EAAE,EAAE,IAAI,EAAE,OAAO,EAAE,IAAI,EAAE,CAAC,CAAC,IAAI,EAAE;SACvC,CAAC;QACF,IAAI,CAAC,IAAA,kBAAU,EAAC,KAAK,EAAE,SAAS,CAAC;YAAE,OAAO,SAAS,CAAC;IACtD,CAAC;IACD,OAAO,IAAI,CAAC;AACd,CAAC;AAEY,QAAA,cAAc,GAAG;IAC5B,uBAAuB,EAAE,yBAAyB;IAClD,uBAAuB,EAAE,yBAAyB;IAClD,uBAAuB,EAAE,yBAAyB;IAClD,oBAAoB,EAAE,sBAAsB;IAC5C,eAAe,EAAE,iBAAiB;IAClC,mBAAmB,EAAE,oBAAoB;CACjC,CAAC"}

package/dist/reasoning/ban-logic/terms.d.ts

@@ -0,0 +1,26 @@
+import type { BANFormula, BANTerm } from './types';
+export declare const principal: (name: string) => BANTerm;
+export declare const key: (name: string, shared?: [string, string]) => BANTerm;
+export declare const nonce: (name: string) => BANTerm;
+export declare const atom: (name: string) => BANTerm;
+export declare const message: (...content: BANTerm[]) => BANTerm;
+export declare const encrypted: (msg: BANTerm, k: BANTerm) => BANTerm;
+export declare const hashed: (msg: BANTerm) => BANTerm;
+export declare const compound: (...parts: BANTerm[]) => BANTerm;
+export declare const believes: (p: BANTerm, f: BANFormula) => BANFormula;
+export declare const sees: (p: BANTerm, w: BANTerm) => BANFormula;
+export declare const said: (p: BANTerm, f: BANFormula) => BANFormula;
+export declare const saidMessage: (p: BANTerm, w: BANTerm) => BANFormula;
+export declare const jurisdiction: (p: BANTerm, f: BANFormula) => BANFormula;
+export declare const fresh: (w: BANTerm) => BANFormula;
+export declare const sharedKey: (a: BANTerm, b: BANTerm, k: BANTerm) => BANFormula;
+export declare const publicKey: (p: BANTerm, k: BANTerm) => BANFormula;
+export declare const sharedSecret: (a: BANTerm, b: BANTerm, s: BANTerm) => BANFormula;
+export declare const controls: (p: BANTerm, f: BANFormula) => BANFormula;
+export declare const formulaAnd: (left: BANFormula, right: BANFormula) => BANFormula;
+export declare function termEquals(a: BANTerm, b: BANTerm): boolean;
+export declare function formulaEquals(a: BANFormula, b: BANFormula): boolean;
+export declare function hasFormula(state: ReadonlyArray<BANFormula>, target: BANFormula): boolean;
+export declare function termToString(t: BANTerm): string;
+export declare function formulaToString(f: BANFormula): string;
+//# sourceMappingURL=terms.d.ts.map

package/dist/reasoning/ban-logic/terms.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"terms.d.ts","sourceRoot":"","sources":["../../../src/reasoning/ban-logic/terms.ts"],"names":[],"mappings":"AAIA,OAAO,KAAK,EAAE,UAAU,EAAE,OAAO,EAAE,MAAM,SAAS,CAAC;AAInD,eAAO,MAAM,SAAS,GAAI,MAAM,MAAM,KAAG,OAAwC,CAAC;AAElF,eAAO,MAAM,GAAG,GAAI,MAAM,MAAM,EAAE,SAAS,CAAC,MAAM,EAAE,MAAM,CAAC,KAAG,OACE,CAAC;AAEjE,eAAO,MAAM,KAAK,GAAI,MAAM,MAAM,KAAG,OAAoC,CAAC;AAE1E,eAAO,MAAM,IAAI,GAAI,MAAM,MAAM,KAAG,OAAmC,CAAC;AAExE,eAAO,MAAM,OAAO,GAAI,GAAG,SAAS,OAAO,EAAE,KAAG,OAAyC,CAAC;AAE1F,eAAO,MAAM,SAAS,GAAI,KAAK,OAAO,EAAE,GAAG,OAAO,KAAG,OAInD,CAAC;AAEH,eAAO,MAAM,MAAM,GAAI,KAAK,OAAO,KAAG,OAA6C,CAAC;AAEpF,eAAO,MAAM,QAAQ,GAAI,GAAG,OAAO,OAAO,EAAE,KAAG,OAAwC,CAAC;AAIxF,eAAO,MAAM,QAAQ,GAAI,GAAG,OAAO,EAAE,GAAG,UAAU,KAAG,UAInD,CAAC;AAEH,eAAO,MAAM,IAAI,GAAI,GAAG,OAAO,EAAE,GAAG,OAAO,KAAG,UAI5C,CAAC;AAEH,eAAO,MAAM,IAAI,GAAI,GAAG,OAAO,EAAE,GAAG,UAAU,KAAG,UAI/C,CAAC;AAEH,eAAO,MAAM,WAAW,GAAI,GAAG,OAAO,EAAE,GAAG,OAAO,KAAG,UAInD,CAAC;AAEH,eAAO,MAAM,YAAY,GAAI,GAAG,OAAO,EAAE,GAAG,UAAU,KAAG,UAIvD,CAAC;AAEH,eAAO,MAAM,KAAK,GAAI,GAAG,OAAO,KAAG,UAA0C,CAAC;AAE9E,eAAO,MAAM,SAAS,GAAI,GAAG,OAAO,EAAE,GAAG,OAAO,EAAE,GAAG,OAAO,KAAG,UAK7D,CAAC;AAEH,eAAO,MAAM,SAAS,GAAI,GAAG,OAAO,EAAE,GAAG,OAAO,KAAG,UAIjD,CAAC;AAEH,eAAO,MAAM,YAAY,GAAI,GAAG,OAAO,EAAE,GAAG,OAAO,EAAE,GAAG,OAAO,KAAG,UAKhE,CAAC;AAEH,eAAO,MAAM,QAAQ,GAAI,GAAG,OAAO,EAAE,GAAG,UAAU,KAAG,UAInD,CAAC;AAEH,eAAO,MAAM,UAAU,GAAI,MAAM,UAAU,EAAE,OAAO,UAAU,KAAG,UAI/D,CAAC;AAIH,wBAAgB,UAAU,CAAC,CAAC,EAAE,OAAO,EAAE,CAAC,EAAE,OAAO,GAAG,OAAO,CAiD1D;AAED,wBAAgB,aAAa,CAAC,CAAC,EAAE,UAAU,EAAE,CAAC,EAAE,UAAU,GAAG,OAAO,CAqDnE;AAED,wBAAgB,UAAU,CAAC,KAAK,EAAE,aAAa,CAAC,UAAU,CAAC,EAAE,MAAM,EAAE,UAAU,GAAG,OAAO,CAExF;AAID,wBAAgB,YAAY,CAAC,CAAC,EAAE,OAAO,GAAG,MAAM,CAiB/C;AAED,wBAAgB,eAAe,CAAC,CAAC,EAAE,UAAU,GAAG,MAAM,CAyBrD"}