gdp-wired 0.3.0 → 0.5.0

package/dist/core/dsl.js

@@ -15,64 +15,224 @@
 //
 // A step returns its updates as one object: every right-hand side reads the state before the step, as the kernel and
 // both runtimes do.
-import { compileFunction, interpret, loadJs } from "./machine.js";
+import { carriedView, compileFunction, evalC, interpret, loadJs, numbersOf } from "./machine.js";
+import { allowed, keysOf, requestEnv, watch } from "./watch.js";
 import { check, loopObligations } from "../kernel/kernel.js";
-import { grow, proveLaws, proveLiveness, proveStepLaws } from "../kernel/prove.js";
+import { factsFor, grow, proveLaws, proveLiveness, proveStepLaws } from "../kernel/prove.js";
 // --- terms and conditions -------------------------------------------------------------------------------------------
 const naturalConst = (v) => {
     if (!Number.isSafeInteger(v) || v < 0)
         throw new RangeError(`${v} is not a natural`);
     return v;
 };
-export const termOf = (t) => (typeof t === 'number' ? { op: 'const', value: naturalConst(t) } : t.e);
+export const termOf = (t) => {
+    if (typeof t === 'number')
+        return { op: 'const', value: naturalConst(t) };
+    if (!(t instanceof Term))
+        throw new TypeError('a natural is expected here; an integer or a decimal compares from its own side (x.atMost(n))');
+    return t.e;
+};
 // A natural-valued term. `minus` is truncated (a ∸ b), `times` multiplies by a constant, `mul` by another term (a
 // product: the kernel proves with it, the GPU searches don't take it).
+//
+// Each term and condition may also carry its value (`val`, `ok`), computed beside its expression by plain JavaScript
+// when every value it reads is known: what `crossCheck` compares with the expression the interpreter evaluates, so a
+// builder that writes a different expression than it means is caught on concrete runs.
 export class Term {
     e;
-    constructor(e) {
+    val;
+    constructor(e, val) {
         this.e = e;
+        this.val = val;
     }
-    plus(b) { return new Term({ op: 'add', a: this.e, b: termOf(b) }); }
-    minus(b) { return new Term({ op: 'sub', a: this.e, b: termOf(b) }); }
-    times(k) { return new Term({ op: 'mul', k: naturalConst(k), a: this.e }); }
-    mul(b) { return new Term({ op: 'prod', a: this.e, b: termOf(b) }); }
-    lt(b) { return new Cond({ op: '<', a: this.e, b: termOf(b) }); }
-    atMost(b) { return new Cond({ op: '<=', a: this.e, b: termOf(b) }); }
-    gt(b) { return new Cond({ op: '<', a: termOf(b), b: this.e }); }
-    atLeast(b) { return new Cond({ op: '<=', a: termOf(b), b: this.e }); }
-    eq(b) { return new Cond({ op: '=', a: this.e, b: termOf(b) }); }
+    plus(b) { return new Term({ op: 'add', a: this.e, b: termOf(b) }, both(this.val, valOf(b), (x, y) => x + y)); }
+    minus(b) { return new Term({ op: 'sub', a: this.e, b: termOf(b) }, both(this.val, valOf(b), (x, y) => Math.max(0, x - y))); }
+    times(k) { return new Term({ op: 'mul', k: naturalConst(k), a: this.e }, both(this.val, k, (x, y) => x * y)); }
+    mul(b) { return new Term({ op: 'prod', a: this.e, b: termOf(b) }, both(this.val, valOf(b), (x, y) => x * y)); }
+    lt(b) { return new Cond({ op: '<', a: this.e, b: termOf(b) }, both(this.val, valOf(b), (x, y) => x < y)); }
+    atMost(b) { return new Cond({ op: '<=', a: this.e, b: termOf(b) }, both(this.val, valOf(b), (x, y) => x <= y)); }
+    gt(b) { return new Cond({ op: '<', a: termOf(b), b: this.e }, both(this.val, valOf(b), (x, y) => x > y)); }
+    atLeast(b) { return new Cond({ op: '<=', a: termOf(b), b: this.e }, both(this.val, valOf(b), (x, y) => x >= y)); }
+    eq(b) { return new Cond({ op: '=', a: this.e, b: termOf(b) }, both(this.val, valOf(b), (x, y) => x === y)); }
     ne(b) { return this.eq(b).not(); }
 }
+const valOf = (t) => (typeof t === 'number' ? t : t instanceof Term ? t.val : undefined);
+const both = (a, b, f) => (a === undefined || b === undefined ? undefined : f(a, b));
+// Every value known, or undefined.
+const known = (xs) => (xs.every(x => x !== undefined) ? xs : undefined);
 export class Cond {
     c;
-    constructor(c) {
+    ok;
+    constructor(c, ok) {
         this.c = c;
+        this.ok = ok;
     }
     and(...xs) { return all(this, ...xs); }
     or(...xs) { return any(this, ...xs); }
-    not() { return new Cond({ op: 'not', x: this.c }); }
+    not() { return new Cond({ op: 'not', x: this.c }, this.ok === undefined ? undefined : !this.ok); }
     implies(b) { return any(this.not(), b); }
     iff(b) { return all(this.implies(b), b.implies(this)); }
 }
-export const lit = (v) => new Term(termOf(v));
-export const yes = new Cond({ op: '<=', a: { op: 'const', value: 0 }, b: { op: 'const', value: 0 } });
-export const no = new Cond({ op: '<', a: { op: 'const', value: 0 }, b: { op: 'const', value: 0 } });
-export const all = (...cs) => (cs.length === 0 ? yes : cs.length === 1 ? cs[0] : new Cond({ op: 'and', xs: cs.map(c => c.c) }));
-export const any = (...cs) => (cs.length === 0 ? no : cs.length === 1 ? cs[0] : new Cond({ op: 'or', xs: cs.map(c => c.c) }));
+export const lit = (v) => new Term(termOf(v), v);
+export const yes = new Cond({ op: '<=', a: { op: 'const', value: 0 }, b: { op: 'const', value: 0 } }, true);
+export const no = new Cond({ op: '<', a: { op: 'const', value: 0 }, b: { op: 'const', value: 0 } }, false);
+export const all = (...cs) => (cs.length === 0 ? yes : cs.length === 1 ? cs[0] : new Cond({ op: 'and', xs: cs.map(c => c.c) }, known(cs.map(c => c.ok))?.every(x => x)));
+export const any = (...cs) => (cs.length === 0 ? no : cs.length === 1 ? cs[0] : new Cond({ op: 'or', xs: cs.map(c => c.c) }, known(cs.map(c => c.ok))?.some(x => x)));
 export const not = (c) => c.not();
-export const min = (a, b) => new Term({ op: 'min', a: termOf(a), b: termOf(b) });
-export const max = (a, b) => new Term({ op: 'max', a: termOf(a), b: termOf(b) });
-export const when = (c, then, otherwise) => new Term({ op: 'if', c: c.c, then: termOf(then), else: termOf(otherwise) });
+export const min = (a, b) => new Term({ op: 'min', a: termOf(a), b: termOf(b) }, both(valOf(a), valOf(b), Math.min));
+export const max = (a, b) => new Term({ op: 'max', a: termOf(a), b: termOf(b) }, both(valOf(a), valOf(b), Math.max));
+export function when(c, then, otherwise) {
+    if (then instanceof Cond && otherwise instanceof Cond)
+        return choose(c, then, otherwise);
+    if (then instanceof Choice && otherwise instanceof Choice)
+        return new Choice(when(c, then.n, otherwise.n), then.values);
+    if (then instanceof Str && otherwise instanceof Str)
+        return then.choose(c, otherwise);
+    if (then instanceof Maybe && otherwise instanceof Maybe)
+        return new Maybe(when(c, then.present, otherwise.present), when(c, then.inner, otherwise.inner));
+    return pickNumbers(c, then, otherwise);
+}
+function pickNumbers(c, then, otherwise) {
+    if (then instanceof Decimal || otherwise instanceof Decimal) {
+        const places = (then instanceof Decimal ? then : otherwise).places, d = new Decimal(Int.of(0), places);
+        return new Decimal(when(c, d.lift(then), d.lift(otherwise)), places);
+    }
+    if (then instanceof Int || otherwise instanceof Int || (typeof then === 'number' && then < 0) || (typeof otherwise === 'number' && otherwise < 0)) {
+        const a = Int.of(then), b = Int.of(otherwise);
+        return new Int(when(c, a.pos, b.pos), when(c, a.neg, b.neg));
+    }
+    return new Term({ op: 'if', c: c.c, then: termOf(then), else: termOf(otherwise) }, c.ok === undefined ? undefined : valOf(c.ok ? then : otherwise));
+}
 // A condition by cases: `then` where c holds, `otherwise` elsewhere.
 export const choose = (c, then, otherwise) => any(all(c, then), all(c.not(), otherwise));
 // 1 where c holds, else 0: what a sum over a history adds per record.
 export const count = (c) => when(c, 1, 0);
 export const sum = (first, ...rest) => rest.reduce((acc, t) => acc.plus(t), typeof first === 'number' ? lit(first) : first);
-// A kind names the variables a value is encoded in, what is assumed of them, the value the builders hand out, and how
-// a runtime value is encoded and drawn at random (the examples' harness draws inputs this way).
+const named = (at, n) => (typeof at === 'string' ? at + n : at(n));
+const primed = (n) => `${n}'`;
 export class Kind {
+    // A runtime value of the kind (what encode takes), for comparing a rule with the code it describes (compare).
+    sample(_rand, _bound) { throw new Error('this kind draws no runtime values'); }
+    // A state variable of this kind starting at a runtime value, or at a value over the params: `.state({open: bool.from(true)})`.
+    from(init) { return { kind: this, init }; }
+}
+const v = (name) => new Term({ op: 'var', name }, scope?.vars[name]);
+let scope;
+const inScope = (s, f) => { const outer = scope; scope = s; try {
+    return f();
+}
+finally {
+    scope = outer;
+} };
+const keyTerm = (k) => new Term({ op: 'const', value: k }, k);
+// Keys enough to decide a condition at every key as the interpreter does: these, the key past every map's cells, and
+// every key up to the values in play (where a key compared with them changes).
+const exactKeys = (keys, values, ...states) => {
+    let past = 0;
+    for (const st of states)
+        for (const cells of Object.values(st.maps))
+            for (const k of cells.keys())
+                past = Math.max(past, k + 1);
+    const top = Math.min(64, Math.max(0, ...Object.values(values).filter(x => x <= 64)) + 2);
+    return [...new Set([...keys, past, ...Array.from({ length: top + 1 }, (_, i) => i)])].sort((a, b) => a - b);
+};
+const everyOk = (ks, f) => {
+    if (!ks)
+        return undefined;
+    let out = true;
+    for (const k of ks) {
+        const o = f(k);
+        if (o === undefined)
+            return undefined;
+        if (!o)
+            out = false;
+    }
+    return out;
+};
+const isZero = (t) => t.e.op === 'const' && t.e.value === 0;
+const add = (a, b) => (isZero(b) ? a : isZero(a) ? b : a.plus(b));
+export class Int {
+    pos;
+    neg;
+    constructor(pos, neg) {
+        this.pos = pos;
+        this.neg = neg;
+    }
+    static of(x) {
+        if (x instanceof Int)
+            return x;
+        if (typeof x !== 'number')
+            return new Int(x, lit(0));
+        if (!Number.isSafeInteger(x))
+            throw new RangeError(`${x} is not an integer`);
+        return x >= 0 ? new Int(lit(x), lit(0)) : new Int(lit(0), lit(-x));
+    }
+    plus(b) { const o = Int.of(b); return new Int(add(this.pos, o.pos), add(this.neg, o.neg)); }
+    minus(b) { const o = Int.of(b); return new Int(add(this.pos, o.neg), add(this.neg, o.pos)); }
+    negate() { return new Int(this.neg, this.pos); }
+    times(k) {
+        if (!Number.isSafeInteger(k))
+            throw new RangeError(`${k} is not an integer`);
+        return k >= 0 ? new Int(this.pos.times(k), this.neg.times(k)) : new Int(this.neg.times(-k), this.pos.times(-k));
+    }
+    lt(b) { const o = Int.of(b); return add(this.pos, o.neg).lt(add(o.pos, this.neg)); }
+    atMost(b) { const o = Int.of(b); return add(this.pos, o.neg).atMost(add(o.pos, this.neg)); }
+    gt(b) { return Int.of(b).lt(this); }
+    atLeast(b) { return Int.of(b).atMost(this); }
+    eq(b) { const o = Int.of(b); return add(this.pos, o.neg).eq(add(o.pos, this.neg)); }
+    ne(b) { return this.eq(b).not(); }
+    min(b) { return when(this.atMost(b), this, b); }
+    max(b) { return when(this.atLeast(b), this, b); }
+    get isNegative() { return this.neg.gt(this.pos); }
+    // |value|, and the value where it is not negative (0 below).
+    get abs() { return this.pos.minus(this.neg).plus(this.neg.minus(this.pos)); }
+    get clamped() { return this.pos.minus(this.neg); }
+}
+// The same value with at most one part nonzero (what a state variable holds).
+const normal = (i) => (isZero(i.neg) || isZero(i.pos) ? i : new Int(i.pos.minus(i.neg), i.neg.minus(i.pos)));
+const scaledOf = (x, places, what = 'a decimal') => {
+    const text = typeof x === 'number' ? x.toFixed(places + 3) : x.trim();
+    const m = /^(-?)(\d+)(?:\.(\d+))?$/.exec(text);
+    if (!m)
+        throw new RangeError(`${String(x)} is not ${what}`);
+    const frac = (m[3] ?? '').replace(/0+$/, '');
+    if (frac.length > places)
+        throw new RangeError(`${String(x)} needs more than ${places} decimal places`);
+    const n = Number(m[2]) * 10 ** places + Number(frac.padEnd(places, '0') || '0');
+    if (!Number.isSafeInteger(n))
+        throw new RangeError(`${String(x)} is too large`);
+    return m[1] && n !== 0 ? -n : n;
+};
+export class Decimal {
+    int;
+    places;
+    constructor(int, places) {
+        this.int = int;
+        this.places = places;
+    }
+    lift(b) {
+        if (b instanceof Decimal) {
+            if (b.places !== this.places)
+                throw new Error(`decimals with ${this.places} and ${b.places} places don't mix`);
+            return b.int;
+        }
+        return typeof b === 'number' ? Int.of(scaledOf(b, this.places)) : Int.of(b).times(10 ** this.places);
+    }
+    with(i) { return new Decimal(i, this.places); }
+    plus(b) { return this.with(this.int.plus(this.lift(b))); }
+    minus(b) { return this.with(this.int.minus(this.lift(b))); }
+    negate() { return this.with(this.int.negate()); }
+    times(k) { return this.with(this.int.times(k)); }
+    lt(b) { return this.int.lt(this.lift(b)); }
+    atMost(b) { return this.int.atMost(this.lift(b)); }
+    gt(b) { return this.int.gt(this.lift(b)); }
+    atLeast(b) { return this.int.atLeast(this.lift(b)); }
+    eq(b) { return this.int.eq(this.lift(b)); }
+    ne(b) { return this.int.ne(this.lift(b)); }
+    min(b) { return this.with(this.int.min(this.lift(b))); }
+    max(b) { return this.with(this.int.max(this.lift(b))); }
+    get isNegative() { return this.int.isNegative; }
 }
-const v = (name) => new Term({ op: 'var', name });
 const asNat = (name, raw) => {
     if (typeof raw !== 'number' || !Number.isSafeInteger(raw) || raw < 0)
         throw new RangeError(`${name} must be a natural, not ${String(raw)}`);
@@ -86,7 +246,10 @@ class NatKind extends Kind {
     }
     vars(name) { return [name]; }
     assume(name) { return this.maxValue === undefined ? [] : [v(name).atMost(this.maxValue)]; }
-    value(name, prefix = '') { return v(prefix + name); }
+    value(name, at = '') { return v(named(at, name)); }
+    store(name, value) { return { [name]: value }; }
+    decode(name, vars) { return vars[name]; }
+    empty() { return 0; }
     encode(name, raw) {
         const n = asNat(name, raw);
         if (this.maxValue !== undefined && n > this.maxValue)
@@ -94,6 +257,7 @@ class NatKind extends Kind {
         return { [name]: n };
     }
     random(name, rand, bound) { return { [name]: rand((this.maxValue ?? bound) + 1) }; }
+    sample(rand, bound) { return this.maxValue !== undefined && rand(8) === 0 ? this.maxValue : rand((this.maxValue ?? bound) + 1); }
 }
 export const nat = new NatKind();
 // A natural known to be at most `maxValue` (a percentage, a floor number, a weekday).
@@ -102,14 +266,17 @@ export const upTo = (maxValue) => new NatKind(naturalConst(maxValue));
 export class Bool extends Cond {
     n;
     constructor(n) {
-        super({ op: '=', a: n.e, b: { op: 'const', value: 1 } });
+        super({ op: '=', a: n.e, b: { op: 'const', value: 1 } }, n.val === undefined ? undefined : n.val === 1);
         this.n = n;
     }
 }
 class BoolKind extends Kind {
     vars(name) { return [name]; }
     assume(name) { return [v(name).atMost(1)]; }
-    value(name, prefix = '') { return new Bool(v(prefix + name)); }
+    value(name, at = '') { return new Bool(v(named(at, name))); }
+    store(name, value) { return { [name]: typeof value === 'boolean' ? (value ? 1 : 0) : count(value) }; }
+    decode(name, vars) { return vars[name] === 1; }
+    empty() { return false; }
     encode(name, raw) {
         if (typeof raw === 'boolean')
             return { [name]: raw ? 1 : 0 };
@@ -118,6 +285,7 @@ class BoolKind extends Kind {
         throw new RangeError(`${name} must be a boolean, not ${String(raw)}`);
     }
     random(name, rand) { return { [name]: rand(2) }; }
+    sample(rand) { return rand(2) === 1; }
 }
 export const bool = new BoolKind();
 // One of a few named values, encoded as its index. `match` takes every case (TypeScript checks none is missing).
@@ -154,7 +322,10 @@ class OneOfKind extends Kind {
     }
     vars(name) { return [name]; }
     assume(name) { return [v(name).lt(this.values.length)]; }
-    value(name, prefix = '') { return new Choice(v(prefix + name), this.values); }
+    value(name, at = '') { return new Choice(v(named(at, name)), this.values); }
+    store(name, value) { return { [name]: value instanceof Choice ? value.n : this.encode(name, value)[name] }; }
+    decode(name, vars) { return this.values[vars[name]]; }
+    empty() { return this.values[0]; }
     encode(name, raw) {
         const i = this.values.indexOf(raw);
         if (i < 0)
@@ -162,6 +333,7 @@ class OneOfKind extends Kind {
         return { [name]: i };
     }
     random(name, rand) { return { [name]: rand(this.values.length) }; }
+    sample(rand) { return this.values[rand(this.values.length)]; }
 }
 export const oneOf = (...values) => new OneOfKind(values);
 // A value that may be missing, encoded as a presence bit and the value. The value can only be read in `some`, so no
@@ -194,7 +366,17 @@ class MaybeKind extends Kind {
     has(name) { return `${name}$some`; }
     vars(name) { return [this.has(name), ...this.of.vars(name)]; }
     assume(name) { return [v(this.has(name)).atMost(1), ...this.of.assume(name)]; }
-    value(name, prefix = '') { return new Maybe(v(prefix + this.has(name)), this.of.value(name, prefix)); }
+    value(name, at = '') { return new Maybe(v(named(at, this.has(name))), this.of.value(name, at)); }
+    // null for none, a Maybe as it is, any other value as some.
+    store(name, value) {
+        if (value === null || value === undefined)
+            return { [this.has(name)]: 0, ...this.of.store(name, this.of.empty()) };
+        if (value instanceof Maybe)
+            return { [this.has(name)]: value.present, ...this.of.store(name, value.inner) };
+        return { [this.has(name)]: 1, ...this.of.store(name, value) };
+    }
+    decode(name, vars) { return vars[this.has(name)] === 1 ? this.of.decode(name, vars) : null; }
+    empty() { return null; }
     encode(name, raw) {
         if (raw === null || raw === undefined)
             return { [this.has(name)]: 0, ...Object.fromEntries(this.of.vars(name).map(n => [n, 0])) };
@@ -203,32 +385,204 @@ class MaybeKind extends Kind {
     random(name, rand, bound) {
         return rand(4) === 0 ? { [this.has(name)]: 0, ...Object.fromEntries(this.of.vars(name).map(n => [n, rand(bound + 1)])) } : { [this.has(name)]: 1, ...this.of.random(name, rand, bound) };
     }
+    sample(rand, bound) { return rand(4) === 0 ? null : this.of.sample(rand, bound); }
 }
 export const maybe = (of) => new MaybeKind(of);
+// A string, encoded as its interned name, its length and one bit per pattern the kind declares (`like`, Cedar's glob:
+// `*` any run of characters, `\*` a star): all computed from the string itself when the input is encoded, so the bits
+// are the string's, not an answer someone supplies. Names come from one table per process, the empty string 0; a law
+// compares strings by name. Equal strings have equal lengths and pattern bits, and `eq` says so, with a literal or with
+// another string, so a law may reason from either. (Names are this process's: state that keeps them across processes
+// keeps `interned()` with them, and `intern.load` restores it before any rule is built.)
+const internTable = new Map([['', 0]]);
+// The strings rules and laws name as literals (what random draws favor).
+const literals = new Set(['']);
+const literal = (text) => (literals.add(text), intern(text));
+export const intern = Object.assign((text) => {
+    let id = internTable.get(text);
+    if (id === undefined)
+        internTable.set(text, (id = internTable.size));
+    return id;
+}, { load(entries) { for (const [text, id] of entries) {
+        if (internTable.has(text) && internTable.get(text) !== id)
+            throw new Error(`"${text}" is interned as ${internTable.get(text)} already`);
+        internTable.set(text, id);
+    } } });
+export const interned = () => [...internTable];
+export const globMatch = (pattern, text) => {
+    const parts = [[]];
+    for (let i = 0; i < pattern.length; i++) {
+        if (pattern[i] === '\\' && pattern[i + 1] === '*') {
+            parts.at(-1).push('*');
+            i++;
+        }
+        else if (pattern[i] === '*')
+            parts.push([]);
+        else
+            parts.at(-1).push(pattern[i]);
+    }
+    const lits = parts.map(p => p.join(''));
+    if (lits.length === 1)
+        return text === lits[0];
+    if (!text.startsWith(lits[0]) || !text.endsWith(lits.at(-1)) || text.length < lits[0].length + lits.at(-1).length)
+        return false;
+    let at = lits[0].length;
+    const end = text.length - lits.at(-1).length;
+    for (const lit of lits.slice(1, -1)) {
+        const i = text.indexOf(lit, at);
+        if (i < 0 || i + lit.length > end)
+            return false;
+        at = i + lit.length;
+    }
+    return true;
+};
+export class Str {
+    id;
+    length;
+    bits;
+    constructor(id, length, bits) {
+        this.id = id;
+        this.length = length;
+        this.bits = bits;
+    }
+    get patterns() { return [...this.bits.keys()]; }
+    // This string where c holds, else `other` (the patterns both declare).
+    choose(c, other) { return new Str(when(c, this.id, other.id), when(c, this.length, other.length), new Map([...this.bits].filter(([p]) => other.bits.has(p)).map(([p, b]) => [p, when(c, b, other.bits.get(p))]))); }
+    // The string matches `pattern`, one the kind declared.
+    like(pattern) {
+        const b = this.bits.get(pattern);
+        if (!b)
+            throw new Error(`like("${pattern}"): declare the pattern on the kind (str({like: [...]})); declared: ${[...this.bits.keys()].join(', ') || 'none'}`);
+        return b.eq(1);
+    }
+    get isEmpty() { return this.id.eq(0); }
+    // A declared pattern's bit (0 or 1).
+    bit(pattern) { const b = this.bits.get(pattern); if (!b)
+        throw new Error(`no pattern "${pattern}" on this string`); return b; }
+    eq(b) {
+        if (typeof b === 'string')
+            return all(this.id.eq(literal(b)), this.length.eq(b.length), ...[...this.bits].map(([p, bit]) => bit.eq(globMatch(p, b) ? 1 : 0)));
+        return all(this.id.eq(b.id), this.length.eq(b.length), ...[...this.bits].filter(([p]) => b.bits.has(p)).map(([p, bit]) => bit.eq(b.bits.get(p))));
+    }
+    ne(b) { return typeof b === 'string' ? this.id.ne(literal(b)) : this.id.ne(b.id); }
+}
+class StrKind extends Kind {
+    patterns;
+    maxLength;
+    constructor(patterns, maxLength) {
+        super();
+        this.patterns = patterns;
+        this.maxLength = maxLength;
+    }
+    bit(name, i) { return `${name}$like${i}`; }
+    vars(name) { return [name, `${name}$len`, ...this.patterns.map((_, i) => this.bit(name, i))]; }
+    assume(name) {
+        return [v(name).eq(0).iff(v(`${name}$len`).eq(0)), ...(this.maxLength === undefined ? [] : [v(`${name}$len`).atMost(this.maxLength)]),
+            ...this.patterns.map((p, i) => (p.replaceAll('\\*', '').includes('*') ? v(this.bit(name, i)).atMost(1) : v(this.bit(name, i)).eq(1).iff(v(name).eq(literal(p.replaceAll('\\*', '*'))))))];
+    }
+    value(name, at = '') { return new Str(v(named(at, name)), v(named(at, `${name}$len`)), new Map(this.patterns.map((p, i) => [p, v(named(at, this.bit(name, i)))]))); }
+    store(name, value) {
+        if (typeof value === 'string')
+            return { [name]: literal(value), [`${name}$len`]: value.length, ...Object.fromEntries(this.patterns.map((p, i) => [this.bit(name, i), globMatch(p, value) ? 1 : 0])) };
+        const t = value;
+        return { [name]: t.id, [`${name}$len`]: t.length, ...Object.fromEntries(this.patterns.map((p, i) => [this.bit(name, i), t.bit(p)])) };
+    }
+    decode(name, vars) { const id = vars[name]; for (const [text, n] of internTable)
+        if (n === id)
+            return text; throw new Error(`${name}: no string is interned as ${id}`); }
+    empty() { return ''; }
+    encode(name, raw) {
+        if (typeof raw !== 'string')
+            throw new RangeError(`${name} must be a string, not ${String(raw)}`);
+        if (this.maxLength !== undefined && raw.length > this.maxLength)
+            throw new RangeError(`${name} is at most ${this.maxLength} characters`);
+        return { [name]: intern(raw), [`${name}$len`]: raw.length, ...Object.fromEntries(this.patterns.map((p, i) => [this.bit(name, i), globMatch(p, raw) ? 1 : 0])) };
+    }
+    // Strings drawn so each pattern matches some of them (the patterns with their stars filled), every string named
+    // as a literal (what the rule and its laws compare with), and short strings over their characters.
+    random(name, rand, bound) { return this.encode(name, this.sample(rand, bound)); }
+    sample(rand, bound) {
+        const chars = [...new Set(['a', 'b', ...Array.from(this.patterns.join('').replaceAll('*', ''))])];
+        const pool = [...this.patterns.flatMap(p => [p.replaceAll('*', ''), p.replaceAll('*', chars[rand(chars.length)])]), ...literals];
+        const text = rand(2) === 0 ? pool[rand(pool.length)] : Array.from({ length: rand(Math.min(bound, 4) + 1) }, () => chars[rand(chars.length)]).join('');
+        return this.maxLength === undefined ? text : text.slice(0, this.maxLength);
+    }
+}
+export const str = (opts = {}) => new StrKind(opts.like ?? [], opts.maxLength);
+// A signed integer, encoded as two naturals (the value and `<name>$neg`): at most one nonzero when encoded.
+class IntKind extends Kind {
+    vars(name) { return [name, `${name}$neg`]; }
+    assume() { return []; }
+    value(name, at = '') { return new Int(v(named(at, name)), v(named(at, `${name}$neg`))); }
+    store(name, value) { const i = normal(Int.of(value)); return { [name]: i.pos, [`${name}$neg`]: i.neg }; }
+    decode(name, vars) { return vars[name] - vars[`${name}$neg`]; }
+    empty() { return 0; }
+    encode(name, raw) {
+        if (typeof raw !== 'number' || !Number.isSafeInteger(raw))
+            throw new RangeError(`${name} must be an integer, not ${String(raw)}`);
+        return { [name]: Math.max(raw, 0), [`${name}$neg`]: Math.max(-raw, 0) };
+    }
+    random(name, rand, bound) { const x = rand(2 * bound + 1) - bound; return { [name]: Math.max(x, 0), [`${name}$neg`]: Math.max(-x, 0) }; }
+    sample(rand, bound) { return rand(2 * bound + 1) - bound; }
+}
+export const int = new IntKind();
+// A decimal with `places` places, encoded as its integer count of 10^-places: given as a number or a string ("12.50").
+class DecimalKind extends Kind {
+    places;
+    constructor(places) {
+        super();
+        this.places = places;
+    }
+    vars(name) { return [name, `${name}$neg`]; }
+    assume() { return []; }
+    value(name, at = '') { return new Decimal(new Int(v(named(at, name)), v(named(at, `${name}$neg`))), this.places); }
+    store(name, value) {
+        const i = normal(typeof value === 'string' ? Int.of(scaledOf(value, this.places)) : new Decimal(Int.of(0), this.places).lift(value));
+        return { [name]: i.pos, [`${name}$neg`]: i.neg };
+    }
+    decode(name, vars) { return (vars[name] - vars[`${name}$neg`]) / 10 ** this.places; }
+    empty() { return 0; }
+    encode(name, raw) {
+        if (typeof raw !== 'number' && typeof raw !== 'string')
+            throw new RangeError(`${name} must be a decimal, not ${String(raw)}`);
+        const x = scaledOf(raw, this.places, `a decimal (${name})`);
+        return { [name]: Math.max(x, 0), [`${name}$neg`]: Math.max(-x, 0) };
+    }
+    random(name, rand, bound) { return new IntKind().random(name, rand, bound); }
+    sample(rand, bound) { return (rand(2 * bound * 10 ** this.places + 1) - bound * 10 ** this.places) / 10 ** this.places; }
+}
+export const decimal = (places) => {
+    if (!Number.isInteger(places) || places < 0 || places > 8)
+        throw new RangeError('a decimal has 0 to 8 places');
+    return new DecimalKind(places);
+};
 let boundCounter = 0;
 // A condition at every key: only as a whole flag (`flags: ({...}) => ({covered: everyKey(k => ...)})`), the key read
 // only as a map's key. The kernel closes it (instances where it holds, a witness where it fails).
-export const everyKey = (f) => { const key = `k$${++boundCounter}`; return new Cond({ op: 'all', key, c: f(v(key)).c }); };
+export const everyKey = (f) => { const key = `k$${++boundCounter}`; return new Cond({ op: 'all', key, c: f(v(key)).c }, everyOk(scope?.keys, k => f(keyTerm(k)).ok)); };
 // Some key where f holds, in a law or a step law's conclusion (¬∀k. ¬f(k)): proven through a witness, a term naming the
 // key, given here or found by the prover among a few candidates (kernel/prove.ts).
 export const someKey = (f, witness) => {
     const key = `s$${++boundCounter}`;
-    return new Cond({ op: 'not', x: { op: 'all', key, c: f(v(key)).not().c, ...(witness === undefined ? {} : { witness: termOf(witness) }) } });
+    const none = everyOk(scope?.keys, k => f(keyTerm(k)).not().ok);
+    return new Cond({ op: 'not', x: { op: 'all', key, c: f(v(key)).not().c, ...(witness === undefined ? {} : { witness: termOf(witness) }) } }, none === undefined ? undefined : !none);
 };
 // A map from naturals to naturals, every cell starting at `init`. One write per map per step.
 export class MapRef {
     name;
     init;
+    cells;
     constructor(name, init) {
         this.name = name;
         this.init = init;
+        this.cells = scope?.maps[name];
     }
-    at(key) { return new Term({ op: 'get', map: this.name, key: termOf(key) }); }
-    set(key, value) { return { map: this.name, key: termOf(key), value: termOf(value) }; }
+    at(key) { const k = valOf(key); return new Term({ op: 'get', map: this.name, key: termOf(key) }, this.cells && k !== undefined ? this.cells.cells.get(k) ?? this.cells.dflt : undefined); }
+    set(key, value) { return { map: this.name, key: termOf(key), value: termOf(value), concrete: { key: valOf(key), value: valOf(value) } }; }
     // key's cell plus `by` where `c` holds (the counter every cap keeps).
     bump(key, c = yes, by = 1) { return this.set(key, when(c, this.at(key).plus(by), this.at(key))); }
     // Every key at once: the value at each key, the key read only as a map's key (Other.at(k)).
-    each(f) { const each = `k$${++boundCounter}`; return { map: this.name, each, value: termOf(f(v(each))) }; }
+    each(f) { const each = `k$${++boundCounter}`; return { map: this.name, each, value: termOf(f(v(each))), concrete: { at: f } }; }
     // As a set (cells 0 or 1): a member, and, as whole flags, every member of this one in another, none shared, the same.
     has(key) { return this.at(key).atLeast(1); }
     subsetOf(other) { return everyKey(k => this.at(k).atMost(other.at(k))); }
@@ -242,11 +596,13 @@ export class MapRef {
 export class ListRef {
     name;
     len;
+    cells;
     constructor(name, len) {
         this.name = name;
         this.len = len;
+        this.cells = scope?.maps[name];
     }
-    at(i) { return new Term({ op: 'get', map: this.name, key: termOf(i) }); }
+    at(i) { const k = valOf(i); return new Term({ op: 'get', map: this.name, key: termOf(i) }, this.cells && k !== undefined ? this.cells.cells.get(k) ?? this.cells.dflt : undefined); }
     // Conditions: x at some position; each position below the next.
     has(x) { return everyKey(k => k.lt(this.len).implies(this.at(k).ne(x))).not(); }
     sorted() { return everyKey(k => k.plus(1).lt(this.len).implies(this.at(k).lt(this.at(k.plus(1))))); }
@@ -258,16 +614,16 @@ export class ListRef {
     removeAt(i, when = yes) { return { when, at: k => when_(k.lt(i), this.at(k), this.at(k.plus(1))), len: this.len.minus(1) }; }
     // The updates for the step: the first operation whose condition holds, else the list as it was.
     apply(...ops) {
-        const each = `k$${++boundCounter}`, k = v(each);
-        const at = ops.reduceRight((acc, op) => when_(op.when, op.at(k), acc), this.at(k));
+        const each = `k$${++boundCounter}`;
+        const at = (k) => ops.reduceRight((acc, op) => when_(op.when, op.at(k), acc), this.at(k));
         const len = ops.reduceRight((acc, op) => when_(op.when, op.len, acc), this.len);
-        return { [this.name]: { map: this.name, each, value: at.e }, [`${this.name}_len`]: len };
+        return { [this.name]: { map: this.name, each, value: at(v(each)).e, concrete: { at } }, [`${this.name}_len`]: len };
     }
     // Laws: nothing past the end; positions strictly increasing (so no name twice), as one law about every two keys.
     within() { return forall(k => this.len.atMost(k).implies(this.at(k).eq(0))); }
     increasing() { return forall((i, j) => i.lt(j).and(j.lt(this.len)).implies(this.at(i).lt(this.at(j)))); }
 }
-const when_ = (c, then, otherwise) => new Term({ op: 'if', c: c.c, then: termOf(then), else: termOf(otherwise) });
+const when_ = (c, then, otherwise) => new Term({ op: 'if', c: c.c, then: termOf(then), else: termOf(otherwise) }, c.ok === undefined ? undefined : valOf(c.ok ? then : otherwise));
 // A law about every key of a map: proven at a fresh key, assumed at the keys a step reads.
 // With two parameters or more, about every two keys or more: forall((i, j) => i.lt(j).implies(...)).
 export function forall(f) { return { forall: f }; }
@@ -491,9 +847,22 @@ const fnSource = (name, d) => {
 const fnTerm = (name, d) => (...args) => {
     if (args.length !== d.arity)
         throw new Error(`function ${name} takes ${d.arity} argument${d.arity === 1 ? '' : 's'}`);
-    return new Term({ op: 'get', map: name, key: argsKey(args.map(termOf)) });
+    const vals = known(args.map(valOf));
+    return new Term({ op: 'get', map: name, key: argsKey(args.map(termOf)) }, vals && fnValueOf(d)(...vals));
+};
+// A function's JavaScript on its arguments themselves (not through the pairing the kernel reads them by).
+const fnValues = new WeakMap();
+const fnValueOf = (d) => {
+    let f = fnValues.get(d);
+    if (!f) {
+        f = typeof d.js === 'function' ? d.js : compileFunction([], `return (${d.js})`)();
+        fnValues.set(d, f);
+    }
+    return f;
 };
 let keyCounter = 0;
+const sources = new WeakMap();
+const withSource = (x, src) => (sources.set(x, src), x);
 // A k-step law's later requests are built over marked names (j:name, which no rule can declare: ':' is reserved); the
 // kernel reads them as name@j.
 const markedName = (name) => { const m = /^(\d+):(.*)$/.exec(name); return m ? `${m[2]}@${m[1]}` : name; };
@@ -523,11 +892,40 @@ export class Rule {
     get name() { return this.spec.name; }
     params(kinds) { return this.with({ params: [...this.spec.params, ...Object.entries(kinds)] }); }
     inputs(kinds) { return this.with({ inputs: [...this.spec.inputs, ...Object.entries(kinds)] }); }
-    // Each variable starts at a natural or at a term over the params.
+    // Each variable starts at a natural or at a term over the params, or is declared by a kind and starts where `from`
+    // says: `.state({balance: int.from(-5), status: oneOf('open', 'closed').from('open'), note: maybe(nat).from(null)})`.
     state(init) {
-        return this.with({ state: [...this.spec.state, ...Object.entries(init)] });
+        const entries = [], kinded = [];
+        for (const [n, x] of Object.entries(init)) {
+            if (typeof x === 'number' || typeof x === 'function') {
+                entries.push([n, x]);
+                continue;
+            }
+            const { kind, init: start } = x;
+            kinded.push([n, kind]);
+            if (typeof start === 'function') {
+                const parts = (p) => kind.store(n, start(p));
+                for (const part of kind.vars(n))
+                    entries.push([part, p => parts(p)[part]]);
+            }
+            else {
+                const enc = kind.encode(n, start);
+                for (const part of kind.vars(n))
+                    entries.push([part, enc[part]]);
+            }
+        }
+        return this.with({ state: [...this.spec.state, ...entries], kinded: [...(this.spec.kinded ?? []), ...kinded] });
     }
     maps(init) { return this.with({ maps: [...this.spec.maps, ...Object.entries(init)] }); }
+    // Integers (Int), each starting at an integer or at one over the params; kept as two naturals, <name> and <name>$neg.
+    ints(init) {
+        return this.state(Object.fromEntries(Object.entries(init).map(([n, x]) => [n, int.from(x)])));
+    }
+    // Decimals with `places` places (Decimal), each starting at a number, a string ("12.50") or one over the params.
+    decimals(places, init) {
+        const kind = decimal(places);
+        return this.state(Object.fromEntries(Object.entries(init).map(([n, x]) => [n, kind.from(x)])));
+    }
     // Lists, each empty at the start: a map of positions and its length <name>_len (ListRef).
     lists(...names) {
         return this.with({ maps: [...this.spec.maps, ...names.map(n => [n, 0])], state: [...this.spec.state, ...names.map(n => [`${n}_len`, 0])], lists: [...(this.spec.lists ?? []), ...names] });
@@ -571,7 +969,7 @@ export class Rule {
     // (the kernel proves it adds nothing to any query).
     prune(order, after) { return this.with({ prune: { order, after: after } }); }
     // A law about the params, the state, the maps and the sums (not a request): `forall` for every key of a map.
-    law(name, f) { return this.lawOf(name, f(this.env({ flags: false, inputs: false, queries: false }))); }
+    law(name, f) { return withSource(this.lawOf(name, f(this.env({ flags: false, inputs: false, queries: false }))), { law: f }); }
     lawOf(name, out) {
         const key = `key$${++keyCounter}`;
         if (out instanceof Cond) {
@@ -586,23 +984,15 @@ export class Rule {
     //   counter.stepLaw('never goes back', ({used}, after) => used.atMost(after.used))
     stepLaw(name, then, when) {
         const env = this.env();
-        const after = {};
-        for (const [n] of this.spec.state)
-            after[n] = v(`${n}'`);
-        for (const [n] of this.spec.sums)
-            after[n] = v(`${n}'`);
-        for (const [n, init] of this.spec.maps)
-            after[n] = new MapRef(`${n}'`, init);
-        for (const n of this.spec.lists ?? [])
-            after[n] = new ListRef(`${n}'`, v(`${n}_len'`));
+        const after = this.afterEnv();
         const out = then(env, after), w = when ? { when: when(env).c } : {};
-        const key = `key$${++keyCounter}`;
+        const key = `key$${++keyCounter}`, src = { step: { then: then, ...(when ? { when: when } : {}) } };
         if (out instanceof Cond) {
             const p = prenex(out.c, `step law ${name}`, key);
-            return p ? { name, forall: key, then: p, ...w } : { name, then: out.c, ...w };
+            return withSource(p ? { name, forall: key, then: p, ...w } : { name, then: out.c, ...w }, src);
         }
         const [k1, more] = keysFor(out), c = out.forall(v(k1), ...more.map(v)).c;
-        return more.length ? { name, forall: k1, keys: more, then: c, ...w } : { name, forall: k1, then: prenex(c, `step law ${name}`, k1) ?? c, ...w };
+        return withSource(more.length ? { name, forall: k1, keys: more, then: c, ...w } : { name, forall: k1, then: prenex(c, `step law ${name}`, k1) ?? c, ...w }, src);
     }
     // A law about k steps in a row (k from 2 to 16): `then(first, last, requests)` relates what the first step reads to the
     // state, maps and sums after the last, with each step's request and queries (requests[0] is the first's); `when(before,
@@ -610,15 +1000,7 @@ export class Rule {
     //   meter.stepsLaw('two requests spend at most 2m', 2, ({spent, m}, after) => after.spent.atMost(spent.plus(m).plus(m)))
     stepsLaw(name, k, then, when) {
         const env = this.env();
-        const after = {};
-        for (const [n] of this.spec.state)
-            after[n] = v(`${n}'`);
-        for (const [n] of this.spec.sums)
-            after[n] = v(`${n}'`);
-        for (const [n, init] of this.spec.maps)
-            after[n] = new MapRef(`${n}'`, init);
-        for (const n of this.spec.lists ?? [])
-            after[n] = new ListRef(`${n}'`, v(`${n}_len'`));
+        const after = this.afterEnv();
         // The j-th request's values over marked names, renamed to the kernel's input@j once built.
         const mark = (j) => `${j}:`;
         const requests = Array.from({ length: k }, (_, j) => {
@@ -655,12 +1037,24 @@ export class Rule {
         const base = { name, from: spec.from(env).c, to: spec.to(env).c, rank };
         return typeof spec.helpful === 'function' ? { ...base, request: req(spec.helpful) } : { ...base, helpful: spec.helpful.map(h => ({ ...(h.when ? { when: h.when(env).c } : {}), request: req(h.request) })) };
     }
-    // A decision: whenever the params and the request meet `given`, `then` holds. Decisions don't read the state.
+    // A decision: whenever the params and the request meet `given`, `then` holds. Decisions don't read the state; the
+    // functions' facts are assumed at the arguments the decision reads them at.
     decide(name, given, then) {
         const env = this.env({ flags: false, state: false, queries: false });
         const g = given(env), hyps = [...this.kindAssumptions(), ...this.spec.pre.map(f => f(env).c), ...this.spec.assume.map(f => f(env).c), ...(Array.isArray(g) ? g : [g]).map(c => c.c)];
-        const t = then(env).c;
-        return { name, rule: this, given: hyps, then: t, goal: { name, hyps: [...hyps, { op: 'not', x: t }] } };
+        const t = then(env).c, goal = { name, hyps: [...hyps, { op: 'not', x: t }] };
+        const facts = this.spec.fns?.length || this.spec.facts?.length ? factsFor(this.machine, goal) : [];
+        return withSource({ name, rule: this, given: hyps, then: t, goal: { name, hyps: [...facts, ...goal.hyps] } }, { decision: { given: given, then: then, own: Array.isArray(g) ? g.length : 1 } });
+    }
+    // A decision about two requests under the same params (noninterference, say: requests that differ only in a secret
+    // are decided alike). `given` and `then` read both; the second request's inputs are named b.<input> in a witness.
+    //   r.relate('the secret is irrelevant', (a, b) => a.user.eq(b.user), (a, b) => a.allowed.iff(b.allowed))
+    relate(name, given, then) {
+        const s = this.spec, b = (n) => `b.${n}`, own = [...s.inputs.map(([n]) => n), ...(s.carried ?? [])];
+        const second = (env) => ({ ...env, ...Object.fromEntries(own.map(n => [n, env[b(n)]])) });
+        const pair = new Rule({ ...s, inputs: [...s.inputs, ...s.inputs.map(([n, k]) => [b(n), k])], carried: [...(s.carried ?? []), ...(s.carried ?? []).map(b)],
+            assume: [...s.assume, ...s.assume.map(f => (env) => f(second(env)))], flags: [], step: undefined, record: undefined, sums: [], queries: [], keep: undefined, relations: undefined, prune: undefined });
+        return pair.decide(name, env => given(env, second(env)), env => then(env, second(env)));
     }
     // --- what it compiles to ------------------------------------------------------------------------------------------
     kindAssumptions(which = 'both') {
@@ -668,8 +1062,27 @@ export class Rule {
         const is = which === 'params' ? [] : this.spec.inputs.flatMap(([n, k]) => k.assume(n));
         return [...ps, ...is].map(c => c.c);
     }
+    // The state after a step, as a step law reads it: every state variable, sum, map and list, primed.
+    afterEnv() {
+        const after = {};
+        for (const [n] of this.spec.state)
+            after[n] = v(`${n}'`);
+        for (const [n] of this.spec.sums)
+            after[n] = v(`${n}'`);
+        for (const [n, init] of this.spec.maps)
+            after[n] = new MapRef(`${n}'`, init);
+        for (const n of this.spec.lists ?? [])
+            after[n] = new ListRef(`${n}'`, v(`${n}_len'`));
+        for (const [n, k] of this.spec.kinded ?? []) {
+            for (const part of k.vars(n))
+                delete after[part];
+            after[n] = k.value(n, primed);
+        }
+        return after;
+    }
     // The values handed to the builders' callbacks.
     env(parts = {}) {
+        this.distinct();
         const out = {};
         for (const [n, k] of this.spec.params)
             out[n] = k.value(n);
@@ -690,16 +1103,42 @@ export class Rule {
                 out[n] = new ListRef(n, v(`${n}_len`));
             for (const [n] of this.spec.sums)
                 out[n] = v(n);
+            for (const [n, k] of this.spec.kinded ?? []) {
+                for (const part of k.vars(n))
+                    delete out[part];
+                out[n] = k.value(n);
+            }
         }
         if (parts.queries !== false)
             for (const [n] of this.spec.queries)
                 out[n] = v(n);
         if (parts.flags !== false)
             for (const f of this.spec.flags)
-                for (const n of Object.keys(f(out)))
-                    out[n] = new Cond({ op: 'flag', name: n });
+                for (const n of Object.keys(f(out))) {
+                    if (n in out && !(out[n] instanceof Cond && out[n].c.op === 'flag'))
+                        throw new Error(`${this.spec.name}: ${n} is a flag and ${this.whatIs(n)}`);
+                    out[n] = new Cond({ op: 'flag', name: n }, scope?.flags[n]);
+                }
         return out;
     }
+    // Every name the rule declares is declared once (a flag named again replaces the earlier one, so flags are checked as
+    // they are defined): an input and a state variable sharing a name would hand the callbacks only one of them.
+    names() {
+        const s = this.spec;
+        return [...s.params.map(([n]) => [n, 'a param']), ...(s.fns ?? []).map(([n]) => [n, 'a function']), ...s.inputs.map(([n]) => [n, 'an input']), ...(s.carried ?? []).map(n => [n, 'a carried map']),
+            ...s.state.map(([n]) => [n, 'a state variable']), ...s.maps.map(([n]) => [n, 'a map']), ...s.sums.map(([n]) => [n, 'a sum']), ...s.queries.map(([n]) => [n, 'a query']),
+        ];
+    }
+    whatIs(n) { return this.names().find(([m]) => m === n)?.[1] ?? 'something else'; }
+    distinct() {
+        const seen = new Map();
+        for (const [n, what] of this.names()) {
+            const had = seen.get(n);
+            if (had)
+                throw new Error(`${this.spec.name}: ${n} is ${had} and ${had === what ? 'declared again' : what}; give each a name of its own`);
+            seen.set(n, what);
+        }
+    }
     get machine() {
         const s = this.spec;
         const params = s.params.flatMap(([n, k]) => k.vars(n)), queries = s.queries.map(([n]) => n);
@@ -709,9 +1148,11 @@ export class Rule {
         const declared = {};
         for (const f of s.flags)
             for (const [n, c] of Object.entries(f(env))) {
+                if (n in env && !(n in declared))
+                    throw new Error(`${s.name}: ${n} is a flag and ${this.whatIs(n)}`);
                 declared[n] = c.c;
-                env[n] = new Cond({ op: 'flag', name: n });
-            } // a name again: replaced in place
+                env[n] = new Cond({ op: 'flag', name: n }); // a name again: replaced in place
+            }
         // Quantifiers anywhere, named as flags: each placed before the flag that reads it.
         const hoist = new Hoister('all$'), flags = {};
         const placed = () => { for (const [n, c] of Object.entries(hoist.flags))
@@ -723,7 +1164,15 @@ export class Rule {
             if (!(n in flags))
                 flags[n] = out;
         }
-        const updates = s.step?.(env) ?? {};
+        const updates = { ...s.step?.(env) };
+        // A kinded variable's update, as its variables' terms.
+        for (const [n, k] of s.kinded ?? []) {
+            const u = updates[n];
+            if (u === undefined)
+                continue;
+            delete updates[n];
+            Object.assign(updates, k.store(n, u));
+        }
         const state = {}, maps = {};
         for (const [n, u] of Object.entries(updates)) {
             if (u === undefined)
@@ -775,6 +1224,174 @@ export class Rule {
         }
         return m;
     }
+    // --- the builders checked ------------------------------------------------------------------------------------------
+    // The builders against what they built, on concrete runs: random params and requests by their kinds (`pre` and
+    // `assume` met), and at every state each law's callback, each step law's, every flag and the step itself run again
+    // with every value known, so each answer is the builders' own arithmetic (`val`, `ok`), against the expressions the
+    // interpreter evaluates (core/watch.ts's verdicts, over the same keys). A law that says something other than its
+    // callback, or a step that writes something other than it means, is reported with the state it shows at.
+    crossCheck(laws, stepLaws = [], opts = {}) {
+        const s = this.spec, m = this.machine, run = interpret(m), bound = opts.bound ?? 4, rand = opts.rand ?? seeded(7);
+        let checked = 0;
+        const at = (what, params, st, input) => `${what}: params ${JSON.stringify(params)}, state ${JSON.stringify(this.decode(st))}${input ? `, request ${JSON.stringify(numbersOf(input))}` : ''}`;
+        const mapsOf = (st) => Object.fromEntries(Object.entries(st.maps).map(([n, cells]) => [n, { cells, dflt: st.defaults?.[n] ?? m.maps?.[n] ?? 0 }]));
+        for (let trial = 0; trial < (opts.trials ?? 100); trial++) {
+            const params = this.randomParams(rand, bound);
+            if (m.pre && !evalC(m.pre, params, { scalars: {}, maps: {} }, m))
+                continue;
+            let st = run.init(params);
+            for (let d = 0, tries = 0; d <= (opts.depth ?? 8) && tries < 200; tries++) {
+                // The laws at this state.
+                const keys = keysOf(bound, st), lawScope = { vars: { ...params, ...st.scalars }, maps: mapsOf(st), keys, flags: {} };
+                for (const law of laws) {
+                    const f = sources.get(law)?.law;
+                    if (!f)
+                        continue;
+                    const ok = inScope(lawScope, () => this.verdict(f(this.env({ flags: false, inputs: false, queries: false })), keys));
+                    if (ok === undefined)
+                        continue;
+                    checked++;
+                    if (ok !== watch(m, run, law, params, bound).start(st))
+                        return { checked, failure: at(`law "${law.name}": its callback says ${ok}, the law proven says ${!ok}`, params, st) };
+                }
+                if (d === (opts.depth ?? 8))
+                    break;
+                const input = this.randomInput(rand, bound);
+                if (s.prune || !allowed(m, run, params, st, input))
+                    continue;
+                d++;
+                const next = run.step(params, st, input);
+                if (!s.record) {
+                    const failure = this.crossStep(params, st, input, next, stepLaws, bound, () => checked++);
+                    if (failure)
+                        return { checked, failure: at(failure, params, st, input) };
+                }
+                st = next;
+            }
+        }
+        return { checked };
+    }
+    // A condition's value, or a law about every key's at every tuple of these keys (undefined when not every value is known).
+    verdict(out, keys) {
+        if (out instanceof Cond)
+            return out.ok;
+        const go = (i, picked) => (i === out.forall.length ? out.forall(...picked).ok : everyOk(keys, k => go(i + 1, [...picked, keyTerm(k)])));
+        return go(0, []);
+    }
+    // One step: the flags, the updates and the step laws, each against what the interpreter computed.
+    crossStep(params, st, input, next, stepLaws, bound, count) {
+        const s = this.spec, m = this.machine, run = interpret(m), seen = carriedView(m, st, input), req = requestEnv(m, run, params, st, input);
+        const keys = keysOf(bound, seen, next), vars = { ...params, ...st.scalars, ...req };
+        const sc = { vars, maps: Object.fromEntries(Object.entries(seen.maps).map(([n, cells]) => [n, { cells, dflt: seen.defaults?.[n] ?? m.maps?.[n] ?? 0 }])), keys: exactKeys(keys, vars, seen, next), flags: {} };
+        // Flags: every callback in order, each name's last definition winning, until the values settle (a name defined
+        // again replaces the first in place, so the flags between read the new one).
+        const names = Object.keys(m.step.flags ?? {});
+        for (let pass = 0; pass <= s.flags.length; pass++) {
+            const values = {};
+            inScope(sc, () => {
+                const env = this.env({ flags: false });
+                for (const f of s.flags)
+                    for (const [n, c] of Object.entries(f(env))) {
+                        env[n] = new Cond({ op: 'flag', name: n }, sc.flags[n]);
+                        if (c.ok !== undefined)
+                            values[n] = c.ok;
+                    }
+            });
+            const settled = Object.keys(values).every(n => sc.flags[n] === values[n]);
+            sc.flags = values;
+            if (settled)
+                break;
+        }
+        for (const n of names) {
+            if (sc.flags[n] === undefined || n.startsWith('all$'))
+                continue;
+            count();
+            if (sc.flags[n] !== (req[`?${n}`] === 1))
+                return `flag ${n}: its callback says ${sc.flags[n]}, the step decides ${req[`?${n}`] === 1}`;
+        }
+        // The updates: every state variable as its value is written (a kinded one through its kind's `store`, as the
+        // machine is built) or kept, and each map write.
+        const updates = inScope(sc, () => s.step?.(this.env()) ?? {});
+        const written = { ...updates };
+        inScope(sc, () => { for (const [n, k] of s.kinded ?? [])
+            if (updates[n] !== undefined) {
+                delete written[n];
+                Object.assign(written, k.store(n, updates[n]));
+            } });
+        for (const n of Object.keys(st.scalars)) {
+            const u = written[n], got = next.scalars[n], want = u === undefined ? st.scalars[n] : valOf(u);
+            if (want === undefined)
+                continue;
+            count();
+            if (want !== got)
+                return `the step writes ${n} = ${want} by its callback, ${got} by the machine`;
+        }
+        for (const [n] of s.maps) {
+            const u = updates[n], cell = (k) => next.maps[n]?.get(k) ?? next.defaults?.[n] ?? m.maps[n];
+            if (!u?.concrete)
+                continue;
+            if ('at' in u.concrete) {
+                const f = u.concrete.at;
+                for (const k of sc.keys) {
+                    const want = inScope(sc, () => valOf(f(keyTerm(k))));
+                    if (want === undefined)
+                        continue;
+                    count();
+                    if (want !== cell(k))
+                        return `the step writes ${n}[${k}] = ${want} by its callback, ${cell(k)} by the machine`;
+                }
+            }
+            else if (u.concrete.key !== undefined && u.concrete.value !== undefined) {
+                count();
+                if (u.concrete.value !== cell(u.concrete.key))
+                    return `the step writes ${n}[${u.concrete.key}] = ${u.concrete.value} by its callback, ${cell(u.concrete.key)} by the machine`;
+            }
+        }
+        // Step laws (one step each): `when` and `then` on the state before and after.
+        for (const sl of stepLaws) {
+            const src = sources.get(sl)?.step;
+            if (!src || (sl.steps ?? 1) > 1)
+                continue;
+            const after = { ...sc, keys, vars: { ...sc.vars, ...Object.fromEntries(Object.entries(next.scalars).map(([n, x]) => [`${n}'`, x])) },
+                maps: { ...sc.maps, ...Object.fromEntries(Object.entries(next.maps).map(([n, cells]) => [`${n}'`, { cells, dflt: next.defaults?.[n] ?? m.maps?.[n] ?? 0 }])) } };
+            const ok = inScope(after, () => {
+                const env = this.env(), afterEnv = this.afterEnv();
+                const w = src.when ? src.when(env).ok : true;
+                return w === undefined ? undefined : w ? this.verdict(src.then(env, afterEnv), keys) : true;
+            });
+            if (ok === undefined)
+                continue;
+            count();
+            if (ok !== watch(m, run, sl, params, bound).step(st, input, next))
+                return `step law "${sl.name}": its callback says ${ok}, the law proven says ${!ok}`;
+        }
+        return undefined;
+    }
+    // Against the code it describes, step by step: `reference.init(params)` and `reference.step(params, state, request)`,
+    // with requests drawn by their kinds (or `draw`), must hold the same values as the compiled rule (decoded: integers and
+    // decimals as numbers) for every field the reference's state has, after every step of `trials` runs of `depth`.
+    compare(reference, opts = {}) {
+        const s = this.spec, rand = opts.rand ?? seeded(5), bound = opts.bound ?? 100, gen = this.compiled();
+        let checked = 0;
+        const sample = (kinds) => Object.fromEntries(kinds.map(([n, k]) => [n, k.sample(rand, bound)]));
+        for (let trial = 0; trial < (opts.trials ?? 200); trial++) {
+            const params = (opts.params?.(rand) ?? sample(s.params)), ps = this.encodeParams(params);
+            let ours = gen.init(ps), theirs = reference.init(params);
+            const edges = trial === 0 ? opts.edges ?? [] : [];
+            for (let d = 0; d < (opts.depth ?? 10) + edges.length; d++) {
+                const request = edges[d] ?? opts.draw?.(rand) ?? sample(s.inputs);
+                ours = gen.step(ps, ours, this.encodeInput(request));
+                theirs = reference.step(params, theirs, request);
+                const got = this.decode(ours);
+                for (const [field, want] of Object.entries(theirs)) {
+                    checked++;
+                    if (got[field] !== want)
+                        return { checked, failure: `${s.name}, params ${JSON.stringify(params)}, after ${JSON.stringify(request)}: ${field} is ${got[field]} here, ${want} in the code it describes` };
+                }
+            }
+        }
+        return { checked };
+    }
     // --- running it -----------------------------------------------------------------------------------------------------
     // Runtime values (numbers, booleans, choice names, null for a missing value) to the variables the machine reads.
     encodeParams(values) { return encode(this.spec.params, values); }
@@ -795,6 +1412,17 @@ export class Rule {
             out[n] = new Map(Array.from({ length: bound + 1 }, (_, key) => [key, rand(2)]).filter(([, cell]) => cell === 1));
         return out;
     }
+    // The state's scalars as runtime values: each kinded variable as its kind decodes it (an integer as one signed
+    // number, a decimal as its number, a choice by name, a string as itself, none as null).
+    decode(st) {
+        const out = { ...st.scalars };
+        for (const [n, k] of this.spec.kinded ?? []) {
+            for (const part of k.vars(n))
+                delete out[part];
+            out[n] = k.decode(n, st.scalars);
+        }
+        return out;
+    }
     // The prune order's variable, if the history is pruned (a runtime must send it nondecreasing).
     get orderedBy() { return this.spec.prune ? new Map(this.spec.inputs).get(this.spec.prune.order).vars(this.spec.prune.order)[0] : undefined; }
     interpreter() { return interpret(this.machine); }
@@ -804,6 +1432,73 @@ export class Rule {
 }
 const encode = (kinds, values) => Object.assign({}, ...kinds.map(([n, k]) => k.encode(n, values[n])));
 export const rule = (name) => new Rule({ name, params: [], inputs: [], state: [], maps: [], flags: [], pre: [], assume: [], sums: [], queries: [] });
+// The kind a result field is kept in.
+const kindOf = (t) => (t instanceof Cond ? bool : t instanceof Int ? int : t instanceof Decimal ? decimal(t.places) : t instanceof Choice ? oneOf(...t.values) : t instanceof Str ? str({ like: t.patterns }) : nat);
+export class Fun {
+    r;
+    out;
+    constructor(r, out) {
+        this.r = r;
+        this.out = out;
+    }
+    get name() { return this.r.name; }
+    params(kinds) { return new Fun(this.r.params(kinds), this.out); }
+    inputs(kinds) { return new Fun(this.r.inputs(kinds), this.out); }
+    fns(defs) { return new Fun(this.r.fns(defs), this.out); }
+    facts(f) { return new Fun(this.r.facts(f), this.out); }
+    pre(f) { return new Fun(this.r.pre(f), this.out); }
+    assume(f) { return new Fun(this.r.assume(f), this.out); }
+    // The result (replaces an earlier one, so a variant is one call away).
+    returns(f) { return new Fun(this.r, f); }
+    result(env) {
+        if (!this.out)
+            throw new Error(`${this.name}: no result (returns)`);
+        return Object.fromEntries(Object.entries(this.out(env)).map(([k, t]) => [k, typeof t === 'number' ? lit(t) : t]));
+    }
+    // Whenever the arguments (and the result) meet `given`, the result meets `then`.
+    law(name, given, then) {
+        return this.r.decide(name, env => given(env, this.result(env)), env => then(this.result(env), env));
+    }
+    // A law about two calls under the same params: `then(outA, outB, a, b)` given `given(a, b)` (noninterference, say).
+    relate(name, given, then) {
+        return this.r.relate(name, given, (a, b) => then(this.result(a), this.result(b), a, b));
+    }
+    // Against the code it describes: `reference` called with the same arguments (drawn by their kinds, or by `draw`, the
+    // `edges` first) must return the same value for every field it returns (a field it leaves out is not compared). The
+    // check for an encoding: that the terms here are what the real function computes, on its real inputs.
+    //   cap.compare(({left, local}) => ({out: realCap(left, local)}), {edges: [{left: 2 ** 32 + 5, local: 10}]})
+    compare(reference, opts = {}) {
+        const rand = opts.rand ?? seeded(5), bound = opts.bound ?? 1000, params = (opts.params ?? {}), kinds = this.r['spec'].inputs;
+        let checked = 0;
+        const draws = [...(opts.edges ?? []), ...Array.from({ length: opts.trials ?? 2000 }, () => opts.draw?.(rand) ?? Object.fromEntries(kinds.map(([n, k]) => [n, k.sample(rand, bound)])))];
+        for (const values of draws) {
+            const ours = this.run(values, params), theirs = reference(values, params);
+            for (const [field, want] of Object.entries(theirs)) {
+                checked++;
+                if (ours[field] !== want)
+                    return { checked, failure: `${this.name} at ${JSON.stringify(values)}: ${field} is ${String(ours[field])} here, ${String(want)} in the code it describes` };
+            }
+        }
+        return { checked };
+    }
+    // The one-step rule it compiles to: the result's fields are its state (named out.<field>, apart from the arguments).
+    get rule() {
+        const fields = Object.entries(this.result(this.r['env']({ flags: false, state: false, queries: false })));
+        const name = (k) => `out.${k}`;
+        return this.r.state(Object.fromEntries(fields.map(([k, t]) => { const kind = kindOf(t); return [name(k), kind.from(kind.empty())]; })))
+            .step(env => Object.fromEntries(Object.entries(this.result(env)).map(([k, t]) => [name(k), t])));
+    }
+    compiledRule;
+    // The result at these arguments (and params), from the compiled rule: numbers, and booleans for the conditions.
+    run(values, params = {}) {
+        this.compiledRule ??= (rule => ({ rule, gen: rule.compiled() }))(this.rule);
+        const { rule, gen } = this.compiledRule, ps = rule.encodeParams(params);
+        const kinds = Object.entries(this.result(this.r['env']({ flags: false, state: false, queries: false })));
+        const st = rule.decode(gen.step(ps, gen.init(ps), rule.encodeInput(values)));
+        return Object.fromEntries(kinds.map(([k]) => [k, st[`out.${k}`]]));
+    }
+}
+export const fun = (name) => new Fun(rule(name));
 // A loop runs `body` while `while` holds, each turn with fresh inputs; it halts if a rank over the state and params
 // (or a tuple of them, compared in order) drops on every turn.
 export class LoopRule {
@@ -862,22 +1557,48 @@ const goalsVerdict = (goals) => {
     for (const g of goals) {
         const out = grow(g);
         if (!('tree' in out))
-            return { proven: false, checked: false, goal: g.name, stuck: out.stuck, ...(out.witness ? { witness: out.witness } : {}) };
+            return { proven: false, checked: false, goal: g.name, stuck: out.stuck, ...(out.witness ? { witness: out.witness } : {}), ...(out.why ? { why: out.why } : {}) };
         trees[g.name] = out.tree;
     }
     return { proven: true, checked: goals.every(g => check(g, trees[g.name])), trees };
 };
 export function proveRule(r, laws) {
     const out = proveLaws(r.machine, laws);
-    return { proven: out.proven, checked: out.checked, ...(out.failed ? { goal: out.failed.goal, stuck: out.failed.stuck, ...(out.failed.witness ? { witness: out.failed.witness } : {}) } : {}) };
+    return { proven: out.proven, checked: out.checked, ...(out.failed ? { goal: out.failed.goal, stuck: out.failed.stuck, ...(out.failed.witness ? { witness: out.failed.witness } : {}), ...(out.failed.why ? { why: out.failed.why } : {}) } : {}) };
 }
 export function proveSteps(r, laws, stepLaws) {
     const out = proveStepLaws(r.machine, laws, stepLaws);
-    return { proven: out.proven, checked: out.checked, ...(out.failed ? { goal: out.failed.goal, stuck: out.failed.stuck, ...(out.failed.witness ? { witness: out.failed.witness } : {}) } : {}) };
+    return { proven: out.proven, checked: out.checked, ...(out.failed ? { goal: out.failed.goal, stuck: out.failed.stuck, ...(out.failed.witness ? { witness: out.failed.witness } : {}), ...(out.failed.why ? { why: out.failed.why } : {}) } : {}) };
 }
 export function proveLeadsTo(r, laws, l) {
     const out = proveLiveness(r.machine, laws, l);
-    return { proven: out.proven, checked: out.checked, ...(out.failed ? { goal: out.failed.goal, stuck: out.failed.stuck, ...(out.failed.witness ? { witness: out.failed.witness } : {}) } : {}) };
+    return { proven: out.proven, checked: out.checked, ...(out.failed ? { goal: out.failed.goal, stuck: out.failed.stuck, ...(out.failed.witness ? { witness: out.failed.witness } : {}), ...(out.failed.why ? { why: out.failed.why } : {}) } : {}) };
 }
 export const proveDecision = (d) => goalsVerdict([d.goal]);
+const seeded = (seed) => { let x = seed; return k => { x = (x * 1103515245 + 12345) % 2 ** 31; return Math.floor(x / 2 ** 31 * k); }; };
+// A decision's callbacks against its condition, on random params and requests: `given` and `then` each run with every
+// value known, against what the interpreter evaluates of the decision built from them.
+export function crossCheckDecision(d, opts = {}) {
+    const src = sources.get(d)?.decision;
+    if (!src)
+        return { checked: 0 };
+    const r = d.rule, m = r.machine, bound = opts.bound ?? 4, rand = opts.rand ?? seeded(11), own = d.given.slice(d.given.length - src.own);
+    let checked = 0;
+    for (let i = 0; i < (opts.trials ?? 500); i++) {
+        const input = r.randomInput(rand, bound), values = { ...r.randomParams(rand, bound), ...numbersOf(input) };
+        const st = { scalars: {}, maps: Object.fromEntries(Object.entries(input).filter((e) => typeof e[1] !== 'number').map(([n, cells]) => [n, new Map(cells)])) };
+        const keys = exactKeys(keysOf(bound, st), values, st);
+        const sc = { vars: values, maps: Object.fromEntries(Object.entries(st.maps).map(([n, cells]) => [n, { cells, dflt: 0 }])), keys, flags: {} };
+        const [g, t] = inScope(sc, () => { const env = r['env']({ flags: false, state: false, queries: false }), g = src.given(env); return [all(...(Array.isArray(g) ? g : [g])).ok, src.then(env).ok]; });
+        for (const [what, ok, c] of [['given', g, own], ['then', t, [d.then]]]) {
+            if (ok === undefined)
+                continue;
+            checked++;
+            const want = c.every(x => evalC(x, values, st, m));
+            if (ok !== want)
+                return { checked, failure: `decision "${d.name}": its ${what} callback says ${ok}, the decision proven says ${want}, at ${JSON.stringify(values)}` };
+        }
+    }
+    return { checked };
+}
 export const proveLoop = (l, laws) => goalsVerdict(loopObligations(l.loop, laws, l.rankTerms));