@githolon/dsl 0.55.0 → 0.55.1

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@githolon/dsl",
-  "version": "0.55.0",
+  "version": "0.55.1",
   "type": "module",
   "description": "Nomos 2 domain-authoring DSL: aggregates + directives in TS, executed and encoded to the Rust kernel's wire shapes.",
   "license": "SEE LICENSE IN LICENSE.md",

package/src/codegen_proof.ts

@@ -44,6 +44,7 @@ import type { FieldOp } from "./ops.js";
 import type { RelationTypeDecl, Rewrite } from "./relation_schema.js";
 import type { WorkspaceInvariantDecl } from "./framework/workspace_invariant.js";
 import { finishCount } from "./count.js";
+import { clearDirectiveId } from "./clear_directive.js";
 import { voMetaOf, voSample } from "./value_object.js";
 import { mintedCreateField } from "./workspace_routing.js";
 import { deterministicPorts } from "./ctx.js";
@@ -2660,6 +2661,39 @@ export function generateTsProof(modules: readonly DomainModule[], opts: TsProofO
     );
   }
 
+  // CLEAR-LANE PROOF (null_semantics.md): a `t.clearable(...)` field's compose-injected clear directive
+  // (`clearDirectiveId(agg, field)`) LOWERS to a Set of json null — dispatch it on the created instance
+  // and read the field back as null (ExplicitNull). Only UN-GATED clear directives (the proof binds no
+  // actor); a gated clear needs authority the negative/positive gate legs already cover. Empty for a
+  // clearable-free aggregate (byte-identical proof).
+  const clearLegs = Object.entries(agg.fields as Record<string, Field>)
+    .filter(([, f]) => f.isClearable === true)
+    .map(([field]) => ({ field, dirId: clearDirectiveId(agg.id, field) }))
+    .filter(({ dirId }) => {
+      const cd = (mod.directives as Directive<unknown>[]).find((d) => d.id === dirId);
+      return cd !== undefined && (cd as { requiresRelationGate?: unknown }).requiresRelationGate === undefined;
+    });
+  for (const { field, dirId } of clearLegs) {
+    out.push(
+      `// ${n()}. CLEAR-LANE PROOF — \`${field}\` is clearable: \`${dirId}\` lowers to Set(json null); after it,`,
+      `//    the field reads back null (ExplicitNull), never omitted.`,
+      `try {`,
+      `  await app.${dirId}({ id: createdId });`,
+      `} catch (e) {`,
+      `  fail(\`clear-lane ${dirId} was REFUSED — an un-gated clear of a clearable field must be admitted: \${(e as Error).message}\`);`,
+      `}`,
+      `{`,
+      `  const clearedRows = await holon.queryById(createdId) as { data?: Record<string, unknown> }[];`,
+      `  const clearedRow = clearedRows[0];`,
+      `  if (clearedRow !== undefined && clearedRow.data !== undefined && clearedRow.data[${JSON.stringify(field)}] != null) {`,
+      `    fail(\`clear-lane ${field}: expected null after clear, got \${JSON.stringify(clearedRow.data[${JSON.stringify(field)}])}\`);`,
+      `  }`,
+      `  ok(${JSON.stringify(`clear-lane — ${domain}/${dirId} admitted; \`${field}\` reads back null (ExplicitNull)`)});`,
+      `}`,
+      ``,
+    );
+  }
+
   out.push(
     `globalThis.fetch = realFetch;`,
     `ok("offline proof ENFORCED — fetch was trapped: local write/read touched no network");`,