dsh-pstack 0.3.0-beta.1 → 0.3.1

package/dist/pstack/skills/statechart/scripts/frontends/value.mjs

@@ -1,180 +0,0 @@
-// runtime/skills/statechart/scripts/frontends/value.ts
-const BRACKET = /* @__PURE__ */ new Int8Array(128);
-for (const c of "<{[(") BRACKET[c.charCodeAt(0)] = 1;
-for (const c of ">}])") BRACKET[c.charCodeAt(0)] = -1;
-const PUNCT = /* @__PURE__ */ new Map([
-	[60, "<<"],
-	[62, ">>"],
-	[124, "|->"],
-	[58, ":>"],
-	[64, "@@"],
-	[46, ".."]
-]);
-const SPACE = /\s/;
-const isSpace = (c) => c === 32 || c >= 9 && c <= 13 || c > 127 && SPACE.test(String.fromCharCode(c));
-const isDigit = (c) => c >= 48 && c <= 57;
-const isWord = (c) => isDigit(c) || c >= 65 && c <= 90 || c >= 97 && c <= 122 || c === 95;
-const isLineEnd = (c) => c === 10 || c === 13 || c === 8232 || c === 8233;
-const tokenEnd = (s, i) => {
-	const c = s.charCodeAt(i);
-	if (c === 34) {
-		for (let j = i + 1; j < s.length; j++) {
-			const d = s.charCodeAt(j);
-			if (d === 34) return j + 1;
-			if (d === 92 && (++j >= s.length || isLineEnd(s.charCodeAt(j)))) return -1;
-		}
-		return -1;
-	}
-	const punct = PUNCT.get(c);
-	if (punct) return s.startsWith(punct, i) ? i + punct.length : -1;
-	if (BRACKET[c] || c === 44) return i + 1;
-	let j = i + 1;
-	if (c === 45 || isDigit(c)) {
-		while (isDigit(s.charCodeAt(j))) j++;
-		return c === 45 && j === i + 1 ? -1 : j;
-	}
-	if (!isWord(c)) return -1;
-	while (isWord(s.charCodeAt(j))) j++;
-	return j;
-};
-const unreadable = (text, pos) => /* @__PURE__ */ new Error(`cannot read TLA+ value at "${text.slice(pos, pos + 20)}"`);
-const INT = /^-?\d+$/;
-const NAME = /^\w*[A-Za-z]\w*$/;
-const UNESCAPED = {
-	"\"": "\"",
-	"\\": "\\",
-	n: "\n",
-	t: "	",
-	r: "\r",
-	f: "\f"
-};
-const models = /* @__PURE__ */ new Map();
-const model = (name) => {
-	let v = models.get(name);
-	if (v === void 0) models.set(name, v = {
-		kind: "model",
-		name
-	});
-	return v;
-};
-function parseValue(text) {
-	const tokens = [];
-	const starts = [];
-	for (let pos = 0;;) {
-		while (pos < text.length && isSpace(text.charCodeAt(pos))) pos++;
-		if (pos === text.length) break;
-		const end = tokenEnd(text, pos);
-		if (end === -1) throw unreadable(text, pos);
-		tokens.push(text.slice(pos, end));
-		starts.push(pos);
-		pos = end;
-	}
-	let i = 0;
-	const fail = () => {
-		throw unreadable(text, i < starts.length ? starts[Math.max(i - 1, 0)] : text.length);
-	};
-	const next = () => i < tokens.length ? tokens[i++] : fail();
-	const eat = (t) => {
-		if (next() !== t) fail();
-	};
-	const items = (close, item) => {
-		const out = [];
-		if (tokens[i] === close) {
-			i++;
-			return out;
-		}
-		for (;;) {
-			out.push(item());
-			const t = next();
-			if (t === close) return out;
-			if (t !== ",") fail();
-		}
-	};
-	const string = (t) => {
-		let s = "";
-		for (let j = 1, from = 1;;) {
-			const k = t.indexOf("\\", j);
-			if (k === -1 || k >= t.length - 1) return s + t.slice(from, -1);
-			const c = UNESCAPED[t[k + 1]];
-			if (c === void 0) fail();
-			s += t.slice(from, k) + c;
-			j = from = k + 2;
-		}
-	};
-	const value = () => {
-		const t = next();
-		switch (t) {
-			case "TRUE": return true;
-			case "FALSE": return false;
-			case "{": return {
-				kind: "set",
-				members: items("}", value)
-			};
-			case "<<": {
-				const values = items(">>", value);
-				const keys = [];
-				for (let k = 1; k <= values.length; k++) keys.push(k);
-				return {
-					kind: "function",
-					printedAs: "tuple",
-					keys,
-					values
-				};
-			}
-			case "[": {
-				const keys = [];
-				const values = [];
-				items("]", () => {
-					const name = next();
-					if (!NAME.test(name)) fail();
-					eat("|->");
-					keys.push(name);
-					values.push(value());
-				});
-				return {
-					kind: "function",
-					printedAs: "record",
-					keys,
-					values
-				};
-			}
-			case "(": {
-				const keys = [];
-				const values = [];
-				do {
-					keys.push(value());
-					eat(":>");
-					values.push(value());
-				} while (next() === "@@");
-				if (tokens[i - 1] !== ")") fail();
-				return {
-					kind: "function",
-					printedAs: "pairs",
-					keys,
-					values
-				};
-			}
-		}
-		if (t.charCodeAt(0) === 34) return string(t);
-		if (INT.test(t)) {
-			if (tokens[i] !== "..") return Number(t);
-			i++;
-			const hi = next();
-			if (!INT.test(hi)) fail();
-			return {
-				kind: "interval",
-				lo: Number(t),
-				hi: Number(hi)
-			};
-		}
-		if (NAME.test(t)) return model(t);
-		return fail();
-	};
-	const out = value();
-	if (i < tokens.length) {
-		i++;
-		fail();
-	}
-	return out;
-}
-export { BRACKET, isSpace, parseValue, tokenEnd, unreadable };

package/dist/pstack/skills/statechart/scripts/frontends/verdict.mjs

@@ -1,40 +0,0 @@
-import { EC } from "../ir.mjs";
-import { textOf } from "./messages.mjs";
-// runtime/skills/statechart/scripts/frontends/verdict.ts
-const NAMED = /* @__PURE__ */ new Map([
-	[EC.TLC_INVARIANT_VIOLATED_INITIAL, ["invariant", /^Invariant (.+) is violated by the initial/]],
-	[EC.TLC_INVARIANT_VIOLATED_BEHAVIOR, ["invariant", /^Invariant (.+) is violated\.$/m]],
-	[EC.TLC_PROPERTY_VIOLATED_INITIAL, ["property", /^Property (.+) is violated by the initial/]],
-	[EC.TLC_ACTION_PROPERTY_VIOLATED_BEHAVIOR, ["property", /^Action property (.+) is violated\.$/m]]
-]);
-const DISTINCT = /* @__PURE__ */ new Map([
-	[EC.TLC_INIT_GENERATED1, /(\d+) distinct states? generated/],
-	[EC.TLC_INIT_GENERATED2, /with (\d+) of them distinct/],
-	[EC.TLC_STATS, /(\d+) distinct states found/]
-]);
-function readVerdict(messages) {
-	let broke;
-	let distinct = 0;
-	let initial = 0;
-	for (const m of messages) {
-		if (typeof m === "string") continue;
-		const count = DISTINCT.get(m.code)?.exec(textOf(m));
-		if (count) distinct = Math.max(distinct, Number(count[1]));
-		if (m.code === EC.TLC_INIT_GENERATED1 || m.code === EC.TLC_INIT_GENERATED2) initial = Number(/(\d+) (?:distinct )?states? generated/.exec(textOf(m))?.[1] ?? 0);
-		if (broke) continue;
-		if (m.code === EC.TLC_DEADLOCK_REACHED) broke = { kind: "deadlock" };
-		else if (m.code === EC.TLC_TEMPORAL_PROPERTY_VIOLATED) broke = { kind: "temporal" };
-		const named = NAMED.get(m.code);
-		const name = named?.[1].exec(textOf(m))?.[1];
-		if (named && name) broke = {
-			kind: named[0],
-			name
-		};
-	}
-	return {
-		broke,
-		distinct,
-		initial
-	};
-}
-export { readVerdict };

package/dist/pstack/skills/statechart/scripts/frontends/view.mjs

@@ -1,99 +0,0 @@
-import { checked, list } from "../ir.mjs";
-// runtime/skills/statechart/scripts/frontends/view.ts
-const projected = /* @__PURE__ */ new WeakMap();
-const json = (v) => {
-	if (typeof v !== "object") return v;
-	if (v.kind === "model") return v.name;
-	let j = projected.get(v);
-	if (j === void 0) {
-		if (v.kind === "interval") {
-			const members = [];
-			for (let k = v.lo; k <= v.hi; k++) members.push(k);
-			j = members;
-		} else if (v.kind === "set") {
-			const members = [];
-			for (const m of v.members) members.push(json(m));
-			j = members;
-		} else {
-			const fields = [];
-			for (let i = 0; i < v.keys.length; i++) {
-				const k = json(v.keys[i]);
-				fields.push([typeof k === "object" ? JSON.stringify(k) : String(k), json(v.values[i])]);
-			}
-			j = Object.fromEntries(fields);
-		}
-		projected.set(v, j);
-	}
-	return j;
-};
-const projectedVars = /* @__PURE__ */ new WeakMap();
-const jsonVars = (vars) => {
-	let j = projectedVars.get(vars);
-	if (j === void 0) {
-		const fields = [];
-		for (const [name, v] of Object.entries(vars)) fields.push([name, json(v)]);
-		j = Object.fromEntries(fields);
-		projectedVars.set(vars, j);
-	}
-	return j;
-};
-const THEME_COLORS = [
-	"blue",
-	"orange",
-	"purple",
-	"yellow",
-	"teal",
-	"tan",
-	"pink"
-];
-const isFunction = (v) => typeof v === "function";
-const isPlainObject = (v) => {
-	if (typeof v !== "object" || v === null) return false;
-	const proto = Object.getPrototypeOf(v);
-	return proto === Object.prototype || proto === null;
-};
-const isString = (v) => typeof v === "string";
-const VIEW_EXPORTS = [
-	"state",
-	"step",
-	"group",
-	"colors",
-	"title"
-];
-function checkView(view, inspect) {
-	const literal = (v) => typeof v === "string" ? JSON.stringify(v) : inspect(v, { breakLength: Infinity });
-	const extra = [];
-	for (const name of Object.keys(view)) if (!VIEW_EXPORTS.includes(name)) extra.push(name);
-	if (extra.length) throw new Error(`The view exports ${list(extra)}, which the command does not read. Export only ${list(VIEW_EXPORTS)}.`);
-	const wrong = [];
-	const pick = (name, kind, fits) => {
-		const v = view[name];
-		if (v === void 0 || fits(v)) return v;
-		wrong.push(`${name} must be ${kind}`);
-	};
-	const state = pick("state", "a function", isFunction);
-	const step = pick("step", "a function", isFunction);
-	const group = pick("group", "a function", isFunction);
-	const exported = pick("colors", "a plain object", isPlainObject);
-	const title = pick("title", "a string", isString);
-	if (wrong.length) throw new Error(`The view's ${list(wrong)}.`);
-	if (group !== void 0 && exported === void 0) throw new Error("The view exports group() but no colors. Give each group a color in colors.");
-	const colors = Object.create(null);
-	const bad = [];
-	for (const [name, color] of Object.entries(exported ?? {})) if (typeof color === "string" && THEME_COLORS.includes(color)) colors[name] = color;
-	else bad.push(`${JSON.stringify(name)} the color ${literal(color)}`);
-	if (bad.length) throw new Error(`The view's colors give ${list(bad)}. Give each group ${list(THEME_COLORS, "or")}.`);
-	return {
-		state: state && ((vars) => state(jsonVars(vars))),
-		step: step && ((action, from, to) => step(action, jsonVars(from), jsonVars(to))),
-		group: group && ((vars) => {
-			const g = group(jsonVars(vars));
-			if (g !== void 0 && !Object.hasOwn(colors, typeof g === "symbol" ? g : String(g))) throw new Error(`The view's group() returned ${literal(g)}, which colors does not name. Give each group a color in colors.`);
-			return g;
-		}),
-		colors,
-		title,
-		[checked]: true
-	};
-}
-export { checkView, json };

package/dist/pstack/skills/statechart/scripts/ir.mjs

@@ -1,277 +0,0 @@
-// runtime/skills/statechart/scripts/ir.ts
-const EC = {
-	TLC_INVARIANT_VIOLATED_INITIAL: 2107,
-	TLC_PROPERTY_VIOLATED_INITIAL: 2108,
-	TLC_INVARIANT_VIOLATED_BEHAVIOR: 2110,
-	TLC_ACTION_PROPERTY_VIOLATED_BEHAVIOR: 2112,
-	TLC_DEADLOCK_REACHED: 2114,
-	TLC_TEMPORAL_PROPERTY_VIOLATED: 2116,
-	TLC_BACK_TO_STATE: 2122,
-	TLC_FINISHED: 2186,
-	TLC_INIT_GENERATED1: 2190,
-	TLC_INIT_GENERATED2: 2191,
-	TLC_STATS: 2199,
-	TLC_PROGRESS_STATS: 2200,
-	TLC_STATE_PRINT2: 2217,
-	TLC_STATE_PRINT3: 2218,
-	TLC_SANY_END: 2219,
-	TLC_SANY_START: 2220
-};
-const LEVEL = {
-	NONE: 0,
-	ERROR: 1,
-	TLCBUG: 2,
-	WARNING: 3,
-	STATE: 4
-};
-const RERUN_STATES = 1e5;
-const CHART_STATES = 500;
-const checked = Symbol("checked");
-const isRecord = (v) => typeof v === "object" && v !== null && !Array.isArray(v);
-const isStrings = (v) => Array.isArray(v) && v.every((s) => typeof s === "string");
-const PART = 1 << 24;
-const byText = (a, b) => a < b ? -1 : a > b ? 1 : 0;
-const list = (items, and = "and") => items.length < 2 ? items.join("") : `${items.slice(0, -1).join(", ")} ${and} ${items.at(-1)}`;
-const ESCAPES = {
-	"\"": "\\\"",
-	"\\": "\\\\",
-	"\n": "\\n",
-	"	": "\\t",
-	"\r": "\\r",
-	"\f": "\\f"
-};
-const quote = (s) => `"${s.replace(/["\\\n\t\r\f]/g, (c) => ESCAPES[c])}"`;
-const joined = (items, sep) => {
-	let s = "";
-	for (let i = 0; i < items.length; i++) s += (i ? sep : "") + show(items[i]);
-	return s;
-};
-const show = (v) => {
-	switch (typeof v) {
-		case "boolean": return v ? "TRUE" : "FALSE";
-		case "number": return String(v);
-		case "string": return quote(v);
-	}
-	switch (v.kind) {
-		case "model": return v.name;
-		case "interval": return `${v.lo}..${v.hi}`;
-		case "set": return `{${joined(v.members, ", ")}}`;
-		case "function": {
-			if (v.printedAs === "tuple") return `<<${joined(v.values, ", ")}>>`;
-			const record = v.printedAs === "record";
-			let s = record ? "[" : "(";
-			for (let i = 0; i < v.keys.length; i++) s += record ? `${i ? ", " : ""}${String(v.keys[i])} |-> ${show(v.values[i])}` : `${i ? " @@ " : ""}${show(v.keys[i])} :> ${show(v.values[i])}`;
-			return s + (record ? "]" : ")");
-		}
-	}
-};
-const must = (map, key) => {
-	const value = map.get(key);
-	if (value === void 0) throw new Error(`The chart lost track of ${JSON.stringify(key)}.`);
-	return value;
-};
-const append = (groups, key, item) => {
-	const group = groups.get(key);
-	if (group) group.push(item);
-	else groups.set(key, [item]);
-};
-const seqOf = (bug, index) => {
-	const seq = [must(index, bug.start)];
-	for (const p of bug.path) seq.push(must(index, p.state));
-	return seq;
-};
-const loopOf = (bug, index) => new Set(bug.loop === void 0 ? [] : seqOf(bug, index).slice(bug.loop));
-const defaultState = (vars) => {
-	const entries = Object.entries(vars);
-	if (entries.length === 1) return show(entries[0][1]);
-	const parts = [];
-	for (const [k, v] of entries) parts.push(`${k}=${show(v)}`);
-	return parts.join(" ");
-};
-const stateText = (vars) => {
-	const parts = [];
-	for (const [k, v] of Object.entries(vars)) parts.push(`${k} = ${show(v)}`);
-	return parts.join(" /\\ ");
-};
-const count = (n) => {
-	const items = new Int32Array(n);
-	for (let i = 0; i < n; i++) items[i] = i;
-	return items;
-};
-const sortBy = (items, keys) => {
-	for (let k = keys.length - 1; k >= 0; k--) {
-		const key = keys[k];
-		let size = 0;
-		for (let p = 0; p < items.length; p++) if (key[items[p]] >= size) size = key[items[p]] + 1;
-		const start = new Int32Array(size + 1);
-		for (let p = 0; p < items.length; p++) start[key[items[p]] + 1]++;
-		for (let v = 0; v < size; v++) start[v + 1] += start[v];
-		const sorted = new Int32Array(items.length);
-		for (let p = 0; p < items.length; p++) sorted[start[key[items[p]]]++] = items[p];
-		items = sorted;
-	}
-	return items;
-};
-const tupleKey = (parts) => JSON.stringify(parts);
-const unkey = (k) => {
-	const parts = JSON.parse(k);
-	if (!isStrings(parts)) throw new Error(`The chart cannot read the key ${k}.`);
-	return parts;
-};
-function holds(condition, others) {
-	switch (condition.kind) {
-		case "and":
-			for (let j = 0; j < others.length; j++) if (!condition.otherKeys[j].has(others[j])) return false;
-			return true;
-		case "or":
-			for (let j = 0; j < others.length; j++) if (condition.otherKeys[j].has(others[j])) return true;
-			return false;
-		case "tuples": return condition.otherTuples.has(tupleKey(others));
-	}
-}
-const ruleKey = (rule) => tupleKey([rule.kind, rule.name]);
-const hasRule = (rules, rule) => {
-	for (const r of rules) if (r.kind === rule.kind && r.name === rule.name) return true;
-	return false;
-};
-const ascending = (keys) => {
-	for (let i = 1; i < keys.length; i++) if (keys[i - 1] > keys[i]) return false;
-	return true;
-};
-const span = (lo, hi) => hi > lo ? `${lo}..${hi}` : String(lo);
-const setKey = (members) => {
-	const ints = [];
-	let others = [];
-	for (const m of members) if (typeof m === "number") ints.push(m);
-	else others.push(key(m));
-	for (let i = 1; i < ints.length; i++) if (ints[i - 1] >= ints[i]) {
-		ints.sort((a, b) => a - b);
-		break;
-	}
-	if (!ascending(others)) others = others.sort(byText);
-	let s = "{";
-	for (let i = 0; i < ints.length;) {
-		let j = i;
-		while (j + 1 < ints.length && ints[j + 1] - ints[j] <= 1) j++;
-		s += `${s.length > 1 ? "," : ""}${span(ints[i], ints[j])}`;
-		i = j + 1;
-	}
-	for (let i = 0; i < others.length; i++) if (!i || others[i] !== others[i - 1]) s += (s.length > 1 ? "," : "") + others[i];
-	return s + "}";
-};
-const functionKey = ({ keys, values }) => {
-	const order = [];
-	const keyTexts = [];
-	let ints = 0;
-	for (let i = 0; i < keys.length; i++) {
-		order.push(i);
-		keyTexts.push(key(keys[i]));
-		if (typeof keys[i] === "number") ints++;
-	}
-	const rank = (i) => typeof keys[i] === "number" ? keys[i] : Infinity;
-	order.sort((a, b) => rank(a) - rank(b) || byText(keyTexts[a], keyTexts[b]) || a - b);
-	let tuple = ints === keys.length;
-	for (let i = 0; tuple && i < order.length; i++) tuple = keys[order[i]] === i + 1;
-	let s = tuple ? "<<" : "(";
-	for (let i = 0, kept = 0; i < order.length; i++) {
-		const k = order[i];
-		if (i && keyTexts[k] === keyTexts[order[i - 1]]) continue;
-		const v = key(values[k]);
-		s += tuple ? `${kept++ ? "," : ""}${v}` : `${kept++ ? "@@" : ""}${keyTexts[k]}:>${v}`;
-	}
-	return s + (tuple ? ">>" : ")");
-};
-const keys = /* @__PURE__ */ new WeakMap();
-const key = (v) => {
-	switch (typeof v) {
-		case "boolean": return v ? "TRUE" : "FALSE";
-		case "number": return String(v);
-		case "string": return JSON.stringify(v);
-	}
-	if (v.kind === "model") return v.name;
-	let k = keys.get(v);
-	if (k === void 0) {
-		k = v.kind === "interval" ? `{${v.lo > v.hi ? "" : span(v.lo, v.hi)}}` : v.kind === "set" ? setKey(v.members) : functionKey(v);
-		keys.set(v, k);
-	}
-	return k;
-};
-const stateKey = (values) => {
-	let k = "";
-	for (let i = 0; i < values.length; i++) k += (i ? "," : "") + key(values[i]);
-	return k;
-};
-const memo = (make, limit = 65536) => {
-	const cache = /* @__PURE__ */ new Map();
-	return (k) => {
-		let v = cache.get(k);
-		if (v === void 0) {
-			if (cache.size >= limit) cache.clear();
-			cache.set(k, v = make(k));
-		}
-		return v;
-	};
-};
-const valuesOf = (vars, names) => {
-	const values = [];
-	for (const n of names) values.push(vars[n]);
-	return values;
-};
-const findTrace = (counterexample, names, rule, find) => {
-	const trace = [];
-	for (const { action, vars } of counterexample) {
-		const values = valuesOf(vars, names);
-		trace.push({
-			action,
-			vars,
-			values,
-			id: find(values)
-		});
-	}
-	const end = trace.length - 1;
-	if (end < 0) throw new Error(`TLC's trace for ${rule.name} has no states.`);
-	for (let i = 0; i < end; i++) if (trace[i].id === void 0) throw new Error(`TLC's trace for ${rule.name} has a state before its last that the dump does not list.`);
-	return trace;
-};
-const findLoop = ({ seq, loop }, names, find) => {
-	const found = [];
-	for (const { action, vars } of seq) found.push({
-		action,
-		id: vars && find(valuesOf(vars, names))
-	});
-	return {
-		seq: found,
-		loop
-	};
-};
-const pastState = (vars, start, marked, excluded) => {
-	const breaks = [];
-	for (const r of marked) if (!hasRule(breaks, r)) breaks.push(r);
-	return {
-		vars,
-		start,
-		breaks,
-		ends: [],
-		past: true,
-		excluded
-	};
-};
-const CHECK_DEADLOCK = "CHECK_DEADLOCK";
-const deadlockRule = ({ invariants, properties }) => ({
-	kind: "deadlock",
-	name: invariants.includes("NoDeadlock") || properties.includes("NoDeadlock") ? CHECK_DEADLOCK : "NoDeadlock"
-});
-const hasSection = ({ written }, ...keys) => {
-	for (const s of written) if (keys.includes(s.key)) return true;
-	return false;
-};
-const stateRules = (spec) => {
-	const rules = [];
-	for (const name of spec.invariants) rules.push({
-		kind: "invariant",
-		name
-	});
-	if (spec.deadlock) rules.push(deadlockRule(spec));
-	return rules;
-};
-export { CHART_STATES, CHECK_DEADLOCK, EC, LEVEL, PART, RERUN_STATES, append, byText, checked, count, defaultState, findLoop, findTrace, hasRule, hasSection, holds, isRecord, isStrings, key, list, loopOf, memo, must, pastState, ruleKey, seqOf, show, sortBy, stateKey, stateRules, stateText, tupleKey, unkey, valuesOf };

package/dist/pstack/skills/statechart/scripts/passes/annotate.mjs

@@ -1,92 +0,0 @@
-import { findLoop, findTrace, hasRule, must, pastState, stateKey, valuesOf } from "../ir.mjs";
-// runtime/skills/statechart/scripts/passes/annotate.ts
-const finder = (graph, names) => {
-	let ids;
-	const find = (values) => {
-		if (!ids) {
-			ids = /* @__PURE__ */ new Map();
-			for (const [id, s] of graph.states) if (!s.excluded) ids.set(stateKey(valuesOf(s.vars, names)), id);
-		}
-		return ids.get(stateKey(values));
-	};
-	find.add = (id, values) => ids?.set(stateKey(values), id);
-	return find;
-};
-function mark(graph, marks, names, rules, find = finder(graph, names)) {
-	const byName = /* @__PURE__ */ new Map();
-	for (const rule of rules) byName.set(rule.name, rule);
-	const past = /* @__PURE__ */ new Map();
-	for (const { values, broken } of marks) {
-		const id = find(values);
-		const state = id === void 0 ? void 0 : graph.states.get(id);
-		for (const name of broken) {
-			const rule = must(byName, name);
-			if (state) state.breaks.push(rule);
-			else past.set(stateKey(values), (past.get(stateKey(values)) ?? /* @__PURE__ */ new Set()).add(rule));
-		}
-	}
-	return past;
-}
-function deadEnds(graph, rule) {
-	const from = /* @__PURE__ */ new Set();
-	for (const t of graph.steps) from.add(t.from);
-	for (const [id, s] of graph.states) if (!s.past && !from.has(id)) s.breaks.push(rule);
-}
-function addPast(graph, counterexample, names, rule, past, excludes, find = finder(graph, names)) {
-	const trace = findTrace(counterexample, names, rule, find);
-	const end = trace.length - 1;
-	const from = trace[end - 1]?.id;
-	const action = trace[end].action;
-	const taken = (to) => {
-		for (const t of graph.steps) if (t.from === from && t.to === to && t.action === action) return true;
-		return false;
-	};
-	let to = trace[end].id;
-	const reached = to === void 0 ? void 0 : graph.states.get(to);
-	const excluded = excludes && reached !== void 0 && end > 0 && !reached.past && !taken(to);
-	if (excluded) to = `past ${to} ${action} ${from}`;
-	to ??= `past ${graph.states.size}`;
-	let last = graph.states.get(to);
-	if (!last) {
-		const marked = excluded ? reached.breaks : past.get(stateKey(trace[end].values)) ?? [];
-		last = pastState(trace[end].vars, end === 0, marked, excluded);
-		graph.states.set(to, last);
-		if (!excluded) find.add(to, trace[end].values);
-	}
-	if (!hasRule(last.breaks, rule)) last.breaks.push(rule);
-	(last.ends ??= []).push(rule);
-	if (from !== void 0 && last.past && !taken(to)) graph.steps.push({
-		from,
-		to,
-		action
-	});
-}
-function lasso(graph, trace, names, find = finder(graph, names)) {
-	const { seq, loop } = findLoop(trace, names, find);
-	const start = seq[0]?.id;
-	if (start === void 0) return void 0;
-	const out = /* @__PURE__ */ new Map();
-	for (const s of seq) out.set(s.id, []);
-	for (const t of graph.steps) out.get(t.from)?.push(t);
-	const route = [];
-	for (let i = 1; i < seq.length; i++) {
-		let step;
-		for (const t of out.get(seq[i - 1].id) ?? []) if (t.to === seq[i].id && t.action === seq[i].action) {
-			step = t;
-			break;
-		}
-		if (!step) return void 0;
-		route.push({
-			action: step.action,
-			state: step.to,
-			step
-		});
-	}
-	return {
-		start,
-		path: route,
-		loop,
-		stutters: loop === seq.length - 1
-	};
-}
-export { addPast, deadEnds, finder, lasso, mark };