diff --git a/clade-portal/rescript.json b/clade-portal/rescript.json
deleted file mode 100644
index e1d96252..00000000
--- a/clade-portal/rescript.json
+++ /dev/null
@@ -1,30 +0,0 @@
-{
-  "name": "@hyperpolymath/clade-portal",
-  "sources": [
-    {
-      "dir": "src",
-      "subdirs": true
-    }
-  ],
-  "package-specs": [
-    {
-      "module": "esmodule",
-      "in-source": true
-    }
-  ],
-  "suffix": ".res.mjs",
-  "bs-dependencies": [
-    "@rescript/core"
-  ],
-  "bsc-flags": [
-    "-open RescriptCore"
-  ],
-  "warnings": {
-    "number": "+a-4-9-20-40-41-42-50-61",
-    "error": "+5+6+101+109"
-  },
-  "jsx": {
-    "version": 4,
-    "mode": "automatic"
-  }
-}
diff --git a/clade-portal/src/App.affine b/clade-portal/src/App.affine
new file mode 100644
index 00000000..eb92faa1
--- /dev/null
+++ b/clade-portal/src/App.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module App;
+
+// TODO: Complete semantic implementation
diff --git a/clade-portal/src/App.res b/clade-portal/src/App.res
deleted file mode 100644
index fcfec14a..00000000
--- a/clade-portal/src/App.res
+++ /dev/null
@@ -1,1013 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath)
-
-/// App — TEA (The Elm Architecture) entry point for the Clade Portal.
-///
-/// The THIRD application built natively for the Gossamer webview shell.
-/// Provides a taxonomy browser for PanLL's 100+ panel clades with three
-/// view modes (tree, list, graph), full-text search, relationship mapping,
-/// and live health indicators.
-///
-/// Architecture:
-///   - Model.res        — State types
-///   - Msg.res          — Message types
-///   - App.res          — init, update, view (this file)
-///   - CladeCmd.res     — IPC commands to read clade metadata
-///   - Capabilities.res — Gossamer capability token management
-///   - RuntimeBridge.res — Gossamer-native IPC bridge
-///
-/// Layout:
-///   +--------------------------------------------------+
-///   | [Search bar]              [Tree|List|Graph] [Cap] |
-///   +----------+---------------------------------------+
-///   | Tree/    |  Detail panel: clade metadata,        |
-///   | List     |  traits, capabilities, relationships, |
-///   | sidebar  |  health status, panel integration     |
-///   |          |                                       |
-///   +----------+---------------------------------------+
-
-// ---------------------------------------------------------------------------
-// TEA command helpers
-// ---------------------------------------------------------------------------
-
-/// Wrap an async operation as a TEA command.
-/// Runs the promise and dispatches the resulting message.
-let cmdFromPromise = (
-  promiseFn: unit => promise<string>,
-  onOk: string => Msg.msg,
-  onErr: string => Msg.msg,
-): Tea_Cmd.t<Msg.msg> => {
-  Tea_Cmd.call(dispatch => {
-    promiseFn()
-    ->Promise.thenResolve(result => dispatch(onOk(result)))
-    ->Promise.catch(err => {
-      let errMsg = switch err {
-      | JsExn(jsErr) =>
-        switch JsExn.message(jsErr) {
-        | Some(m) => m
-        | None => "Unknown error"
-        }
-      | _ => "Unknown error"
-      }
-      dispatch(onErr(errMsg))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Extract a filesystem capability token from the model.
-/// Returns None if the filesystem capability has not been granted.
-let getFilesystemToken = (model: Model.model): option<float> => {
-  switch model.filesystemCap {
-  | Granted(token) => Some(token)
-  | _ => None
-  }
-}
-
-/// Extract a network capability token from the model.
-/// Returns None if the network capability has not been granted.
-let getNetworkToken = (model: Model.model): option<float> => {
-  switch model.networkCap {
-  | Granted(token) => Some(token)
-  | _ => None
-  }
-}
-
-// ---------------------------------------------------------------------------
-// Init
-// ---------------------------------------------------------------------------
-
-/// Initialise the application. Starts with the capability grant panel
-/// visible and no clades loaded (filesystem token required first).
-let init = (): (Model.model, Tea_Cmd.t<Msg.msg>) => {
-  (Model.initial, Tea_Cmd.none)
-}
-
-// ---------------------------------------------------------------------------
-// Update
-// ---------------------------------------------------------------------------
-
-/// Process a message and return the new state plus any commands to execute.
-let update = (model: Model.model, msg: Msg.msg): (Model.model, Tea_Cmd.t<Msg.msg>) => {
-  switch msg {
-  // --- Clade loading ---
-  | LoadClades =>
-    switch getFilesystemToken(model) {
-    | Some(token) =>
-      let cmd = cmdFromPromise(
-        () => CladeCmd.loadAllCladeSummaries(token),
-        result => Msg.CladesLoaded(Ok(result)),
-        err => Msg.CladesLoaded(Error(err)),
-      )
-      ({...model, isLoading: true}, cmd)
-    | None => (
-        {...model, error: Some("Filesystem capability required. Grant it in the capability panel.")},
-        Tea_Cmd.none,
-      )
-    }
-
-  | CladesLoaded(Ok(_response)) =>
-    // In a full implementation, parse the JSON response into cladeSummary records.
-    // For now, mark loading complete and clear errors.
-    ({...model, isLoading: false, error: None}, Tea_Cmd.none)
-
-  | CladesLoaded(Error(err)) =>
-    ({...model, isLoading: false, error: Some(`Failed to load clades: ${err}`)}, Tea_Cmd.none)
-
-  // --- Clade selection ---
-  | SelectClade(cladeId) =>
-    switch getFilesystemToken(model) {
-    | Some(token) =>
-      let cmd = cmdFromPromise(
-        () => CladeCmd.getCladeDetail(cladeId, token),
-        result => Msg.CladeDetailLoaded(Ok(result)),
-        err => Msg.CladeDetailLoaded(Error(err)),
-      )
-      (model, cmd)
-    | None => ({...model, error: Some("Filesystem capability required.")}, Tea_Cmd.none)
-    }
-
-  | CladeDetailLoaded(Ok(_response)) =>
-    // In a full implementation, parse JSON into cladeDetail and set selectedClade.
-    ({...model, error: None}, Tea_Cmd.none)
-
-  | CladeDetailLoaded(Error(err)) =>
-    ({...model, error: Some(`Failed to load clade detail: ${err}`)}, Tea_Cmd.none)
-
-  | DeselectClade =>
-    ({...model, selectedClade: None}, Tea_Cmd.none)
-
-  // --- Relationships ---
-  | LoadRelationships(cladeId) =>
-    switch getFilesystemToken(model) {
-    | Some(token) =>
-      let cmd = cmdFromPromise(
-        () => CladeCmd.getCladeRelationships(cladeId, token),
-        result => Msg.RelationshipsLoaded(Ok(result)),
-        err => Msg.RelationshipsLoaded(Error(err)),
-      )
-      (model, cmd)
-    | None => ({...model, error: Some("Filesystem capability required.")}, Tea_Cmd.none)
-    }
-
-  | RelationshipsLoaded(Ok(_response)) =>
-    // In a full implementation, merge relationship data into selectedClade.
-    ({...model, error: None}, Tea_Cmd.none)
-
-  | RelationshipsLoaded(Error(err)) =>
-    ({...model, error: Some(`Failed to load relationships: ${err}`)}, Tea_Cmd.none)
-
-  // --- Search ---
-  | UpdateSearchQuery(query) =>
-    ({...model, searchQuery: query}, Tea_Cmd.none)
-
-  | PerformSearch =>
-    if String.length(model.searchQuery) == 0 {
-      ({...model, searchResults: []}, Tea_Cmd.none)
-    } else {
-      switch getFilesystemToken(model) {
-      | Some(token) =>
-        let cmd = cmdFromPromise(
-          () => CladeCmd.searchClades(model.searchQuery, token),
-          result => Msg.SearchResultsLoaded(Ok(result)),
-          err => Msg.SearchResultsLoaded(Error(err)),
-        )
-        (model, cmd)
-      | None => ({...model, error: Some("Filesystem capability required.")}, Tea_Cmd.none)
-      }
-    }
-
-  | SearchResultsLoaded(Ok(_response)) =>
-    // In a full implementation, parse JSON into searchResult records.
-    ({...model, error: None}, Tea_Cmd.none)
-
-  | SearchResultsLoaded(Error(err)) =>
-    ({...model, error: Some(`Search failed: ${err}`)}, Tea_Cmd.none)
-
-  | ClearSearch =>
-    ({...model, searchQuery: "", searchResults: []}, Tea_Cmd.none)
-
-  // --- View mode ---
-  | SetViewMode(mode) =>
-    ({...model, viewMode: mode}, Tea_Cmd.none)
-
-  // --- Tree expansion ---
-  | ExpandNode(nodeId) =>
-    let alreadyExpanded = Array.some(model.expandedNodes, n => n == nodeId)
-    if alreadyExpanded {
-      (model, Tea_Cmd.none)
-    } else {
-      ({...model, expandedNodes: Array.concat(model.expandedNodes, [nodeId])}, Tea_Cmd.none)
-    }
-
-  | CollapseNode(nodeId) =>
-    (
-      {...model, expandedNodes: Array.filter(model.expandedNodes, n => n != nodeId)},
-      Tea_Cmd.none,
-    )
-
-  // --- Health ---
-  | CheckCladeHealth(cladeId) =>
-    switch getNetworkToken(model) {
-    | Some(token) =>
-      let cmd = cmdFromPromise(
-        () => CladeCmd.getCladeHealth(cladeId, token),
-        result => Msg.CladeHealthLoaded(cladeId, Ok(result)),
-        err => Msg.CladeHealthLoaded(cladeId, Error(err)),
-      )
-      (model, cmd)
-    | None => ({...model, error: Some("Network capability required for health checks.")}, Tea_Cmd.none)
-    }
-
-  | CladeHealthLoaded(_cladeId, Ok(_response)) =>
-    // In a full implementation, parse health status and update healthMap.
-    ({...model, error: None}, Tea_Cmd.none)
-
-  | CladeHealthLoaded(_cladeId, Error(err)) =>
-    ({...model, error: Some(`Health check failed: ${err}`)}, Tea_Cmd.none)
-
-  | CheckAllHealth =>
-    switch getNetworkToken(model) {
-    | Some(token) =>
-      let cmd = cmdFromPromise(
-        () => CladeCmd.checkAllCladeHealth(token),
-        result => Msg.AllHealthLoaded(Ok(result)),
-        err => Msg.AllHealthLoaded(Error(err)),
-      )
-      (model, cmd)
-    | None => ({...model, error: Some("Network capability required for health checks.")}, Tea_Cmd.none)
-    }
-
-  | AllHealthLoaded(Ok(_response)) =>
-    // In a full implementation, parse batch health data into healthMap.
-    ({...model, error: None}, Tea_Cmd.none)
-
-  | AllHealthLoaded(Error(err)) =>
-    ({...model, error: Some(`Batch health check failed: ${err}`)}, Tea_Cmd.none)
-
-  // --- Gossamer capability tokens ---
-  | RequestCapability(kind) =>
-    let kindInt = switch kind {
-    | "filesystem" => Capabilities.Kind.filesystem
-    | "network" => Capabilities.Kind.network
-    | _ => 0
-    }
-    let updatedModel = switch kind {
-    | "filesystem" => {...model, filesystemCap: Pending}
-    | "network" => {...model, networkCap: Pending}
-    | _ => model
-    }
-    let cmd = cmdFromPromise(
-      () => Capabilities.requestCapability(kindInt)->Promise.thenResolve(token => Float.toString(token)),
-      tokenStr => {
-        switch Float.fromString(tokenStr) {
-        | Some(token) => Msg.CapGranted(kind, token)
-        | None => Msg.ClearError
-        }
-      },
-      _err => Msg.CapRevoked(kind),
-    )
-    (updatedModel, cmd)
-
-  | CapGranted(kind, token) =>
-    let updatedModel = switch kind {
-    | "filesystem" => {...model, filesystemCap: Granted(token), error: None}
-    | "network" => {...model, networkCap: Granted(token), error: None}
-    | _ => model
-    }
-    // Auto-load clades once filesystem token is granted.
-    let autoLoadCmd = switch kind {
-    | "filesystem" =>
-      cmdFromPromise(
-        () => CladeCmd.loadAllCladeSummaries(token),
-        result => Msg.CladesLoaded(Ok(result)),
-        err => Msg.CladesLoaded(Error(err)),
-      )
-    | _ => Tea_Cmd.none
-    }
-    ({...updatedModel, isLoading: kind == "filesystem"}, autoLoadCmd)
-
-  | CapRevoked(kind) =>
-    switch kind {
-    | "filesystem" => ({...model, filesystemCap: Denied}, Tea_Cmd.none)
-    | "network" => ({...model, networkCap: Denied}, Tea_Cmd.none)
-    | _ => (model, Tea_Cmd.none)
-    }
-
-  | DismissCapPanel =>
-    ({...model, showCapPanel: false}, Tea_Cmd.none)
-
-  | ShowCapPanel =>
-    ({...model, showCapPanel: true}, Tea_Cmd.none)
-
-  // --- UI ---
-  | ClearError =>
-    ({...model, error: None}, Tea_Cmd.none)
-
-  | NoOp =>
-    (model, Tea_Cmd.none)
-  }
-}
-
-// ---------------------------------------------------------------------------
-// View helpers
-// ---------------------------------------------------------------------------
-
-/// Render a health indicator dot with the appropriate colour.
-let healthDot = (status: Model.healthStatus): Tea_Html.t<Msg.msg> => {
-  let (label, className) = switch status {
-  | Healthy => ("Healthy", "health-healthy")
-  | Degraded => ("Degraded", "health-degraded")
-  | Unhealthy => ("Unhealthy", "health-unhealthy")
-  | Unknown => ("Unknown", "health-unknown")
-  }
-  Tea_Html.span(
-    [
-      Tea_Html.Attributes.class(`health-dot ${className}`),
-      Tea_Html.Attributes.title(label),
-    ],
-    [],
-  )
-}
-
-/// Render a capability row in the grant panel.
-let capabilityRow = (
-  kindName: string,
-  kindInt: int,
-  status: Model.capabilityStatus,
-): Tea_Html.t<Msg.msg> => {
-  let statusText = switch status {
-  | NotRequested => "Not requested"
-  | Pending => "Requesting..."
-  | Granted(_) => "Granted"
-  | Denied => "Denied"
-  }
-  let statusClass = switch status {
-  | NotRequested => "cap-not-requested"
-  | Pending => "cap-pending"
-  | Granted(_) => "cap-granted"
-  | Denied => "cap-denied"
-  }
-  let button = switch status {
-  | NotRequested | Denied =>
-    Tea_Html.button(
-      [Tea_Html.Events.onClick(Msg.RequestCapability(kindName))],
-      [Tea_Html.text("Grant")],
-    )
-  | Pending =>
-    Tea_Html.button(
-      [Tea_Html.Attributes.disabled(true)],
-      [Tea_Html.text("Pending...")],
-    )
-  | Granted(_) =>
-    Tea_Html.button(
-      [Tea_Html.Attributes.disabled(true)],
-      [Tea_Html.text("Active")],
-    )
-  }
-  Tea_Html.div(
-    [Tea_Html.Attributes.class("cap-row")],
-    [
-      Tea_Html.div(
-        [Tea_Html.Attributes.class("cap-info")],
-        [
-          Tea_Html.strong([], [Tea_Html.text(Capabilities.Kind.toString(kindInt))]),
-          Tea_Html.p([], [Tea_Html.text(Capabilities.Kind.description(kindInt))]),
-          Tea_Html.span([Tea_Html.Attributes.class(statusClass)], [Tea_Html.text(statusText)]),
-        ],
-      ),
-      button,
-    ],
-  )
-}
-
-/// Render a single clade entry in the sidebar tree/list.
-let cladeEntry = (clade: Model.cladeSummary, isExpanded: bool): Tea_Html.t<Msg.msg> => {
-  Tea_Html.div(
-    [
-      Tea_Html.Attributes.class("clade-entry"),
-      Tea_Html.Events.onClick(Msg.SelectClade(clade.id)),
-    ],
-    [
-      Tea_Html.div(
-        [Tea_Html.Attributes.class("clade-entry-header")],
-        [
-          // Expand/collapse toggle for tree view.
-          Tea_Html.button(
-            [
-              Tea_Html.Attributes.class("tree-toggle"),
-              Tea_Html.Events.onClick(
-                if isExpanded {
-                  Msg.CollapseNode(clade.id)
-                } else {
-                  Msg.ExpandNode(clade.id)
-                },
-              ),
-            ],
-            [Tea_Html.text(if isExpanded { "v" } else { ">" })],
-          ),
-          healthDot(clade.health),
-          Tea_Html.span(
-            [Tea_Html.Attributes.class("clade-name")],
-            [Tea_Html.text(clade.name)],
-          ),
-          Tea_Html.span(
-            [Tea_Html.Attributes.class("clade-kind-badge")],
-            [Tea_Html.text(clade.kind)],
-          ),
-        ],
-      ),
-      if isExpanded {
-        Tea_Html.div(
-          [Tea_Html.Attributes.class("clade-entry-detail")],
-          [
-            Tea_Html.p(
-              [Tea_Html.Attributes.class("clade-description")],
-              [Tea_Html.text(clade.description)],
-            ),
-            Tea_Html.span(
-              [Tea_Html.Attributes.class("panel-count")],
-              [Tea_Html.text(`${Int.toString(clade.panelCount)} panels`)],
-            ),
-          ],
-        )
-      } else {
-        Tea_Html.noNode
-      },
-    ],
-  )
-}
-
-/// Render the view mode toggle buttons.
-let viewModeToggle = (current: Model.viewMode): Tea_Html.t<Msg.msg> => {
-  let modeButton = (mode: Model.viewMode, label: string) => {
-    let isActive = current == mode
-    Tea_Html.button(
-      [
-        Tea_Html.Attributes.class(
-          if isActive {
-            "view-mode-btn active"
-          } else {
-            "view-mode-btn"
-          },
-        ),
-        Tea_Html.Events.onClick(Msg.SetViewMode(mode)),
-      ],
-      [Tea_Html.text(label)],
-    )
-  }
-  Tea_Html.div(
-    [Tea_Html.Attributes.class("view-mode-toggle")],
-    [
-      modeButton(Tree, "Tree"),
-      modeButton(List, "List"),
-      modeButton(Graph, "Graph"),
-    ],
-  )
-}
-
-/// Render the search bar.
-let searchBar = (query: string): Tea_Html.t<Msg.msg> => {
-  Tea_Html.div(
-    [Tea_Html.Attributes.class("search-bar")],
-    [
-      Tea_Html.input(
-        [
-          Tea_Html.Attributes.type_("text"),
-          Tea_Html.Attributes.placeholder("Search clades by name, kind, or description..."),
-          Tea_Html.Attributes.value(query),
-          Tea_Html.Events.onInput(value => Msg.UpdateSearchQuery(value)),
-        ],
-      ),
-      Tea_Html.button(
-        [Tea_Html.Events.onClick(Msg.PerformSearch)],
-        [Tea_Html.text("Search")],
-      ),
-      if String.length(query) > 0 {
-        Tea_Html.button(
-          [
-            Tea_Html.Attributes.class("search-clear"),
-            Tea_Html.Events.onClick(Msg.ClearSearch),
-          ],
-          [Tea_Html.text("Clear")],
-        )
-      } else {
-        Tea_Html.noNode
-      },
-    ],
-  )
-}
-
-/// Render search results list.
-let searchResultsList = (results: array<Model.searchResult>): Tea_Html.t<Msg.msg> => {
-  if Array.length(results) == 0 {
-    Tea_Html.noNode
-  } else {
-    Tea_Html.div(
-      [Tea_Html.Attributes.class("search-results")],
-      [
-        Tea_Html.h3([], [Tea_Html.text(`${Int.toString(Array.length(results))} results`)]),
-        Tea_Html.div(
-          [Tea_Html.Attributes.class("results-list")],
-          Array.map(results, result =>
-            Tea_Html.div(
-              [
-                Tea_Html.Attributes.class("search-result-item"),
-                Tea_Html.Events.onClick(Msg.SelectClade(result.cladeId)),
-              ],
-              [
-                Tea_Html.strong([], [Tea_Html.text(result.name)]),
-                Tea_Html.span(
-                  [Tea_Html.Attributes.class("result-kind")],
-                  [Tea_Html.text(result.kind)],
-                ),
-                Tea_Html.p(
-                  [Tea_Html.Attributes.class("result-snippet")],
-                  [Tea_Html.text(result.matchSnippet)],
-                ),
-                Tea_Html.span(
-                  [Tea_Html.Attributes.class("result-field")],
-                  [Tea_Html.text(`Matched: ${result.matchField}`)],
-                ),
-              ],
-            )
-          )
-          ->Array.toList
-          ->List.toArray,
-        ),
-      ],
-    )
-  }
-}
-
-/// Render trait badges for the detail panel.
-let traitBadge = (label: string, isActive: bool): Tea_Html.t<Msg.msg> => {
-  Tea_Html.span(
-    [
-      Tea_Html.Attributes.class(
-        if isActive {
-          "trait-badge trait-active"
-        } else {
-          "trait-badge trait-inactive"
-        },
-      ),
-    ],
-    [Tea_Html.text(label)],
-  )
-}
-
-/// Render the detail panel for a selected clade.
-let detailPanel = (detail: Model.cladeDetail): Tea_Html.t<Msg.msg> => {
-  Tea_Html.div(
-    [Tea_Html.Attributes.class("detail-panel")],
-    [
-      // Header with name, kind badge, and health.
-      Tea_Html.div(
-        [Tea_Html.Attributes.class("detail-header")],
-        [
-          Tea_Html.h2([], [Tea_Html.text(detail.name)]),
-          Tea_Html.span(
-            [Tea_Html.Attributes.class("detail-short-name")],
-            [Tea_Html.text(`[${detail.shortName}]`)],
-          ),
-          Tea_Html.span(
-            [Tea_Html.Attributes.class("clade-kind-badge detail-kind")],
-            [Tea_Html.text(detail.kind)],
-          ),
-          healthDot(detail.health),
-          Tea_Html.span(
-            [Tea_Html.Attributes.class("detail-version")],
-            [Tea_Html.text(`v${detail.version}`)],
-          ),
-        ],
-      ),
-      // Description.
-      Tea_Html.p(
-        [Tea_Html.Attributes.class("detail-description")],
-        [Tea_Html.text(detail.description)],
-      ),
-      // Traits grid.
-      Tea_Html.div(
-        [Tea_Html.Attributes.class("detail-section")],
-        [
-          Tea_Html.h3([], [Tea_Html.text("Traits")]),
-          Tea_Html.div(
-            [Tea_Html.Attributes.class("traits-grid")],
-            [
-              traitBadge("Backend", detail.traits.hasBackend),
-              traitBadge("Scanning", detail.traits.hasScanning),
-              traitBadge("Persistence", detail.traits.hasPersistence),
-              traitBadge("Work Items", detail.traits.hasWorkItems),
-              traitBadge("Priority Ordering", detail.traits.hasPriorityOrdering),
-              traitBadge("Customisation", detail.traits.hasCustomisation),
-              traitBadge("Directive", detail.traits.isDirective),
-              traitBadge("Read-only", detail.traits.isReadonly),
-            ],
-          ),
-        ],
-      ),
-      // Capabilities.
-      Tea_Html.div(
-        [Tea_Html.Attributes.class("detail-section")],
-        [
-          Tea_Html.h3([], [Tea_Html.text("Capabilities")]),
-          Tea_Html.div(
-            [Tea_Html.Attributes.class("capabilities-list")],
-            Array.map(detail.capabilities, cap =>
-              Tea_Html.span(
-                [Tea_Html.Attributes.class("capability-tag")],
-                [Tea_Html.text(cap)],
-              )
-            )
-            ->Array.toList
-            ->List.toArray,
-          ),
-        ],
-      ),
-      // Panel integration.
-      Tea_Html.div(
-        [Tea_Html.Attributes.class("detail-section")],
-        [
-          Tea_Html.h3([], [Tea_Html.text("Panel Integration")]),
-          Tea_Html.dl(
-            [Tea_Html.Attributes.class("integration-list")],
-            [
-              switch detail.panelId {
-              | Some(pid) =>
-                Tea_Html.div(
-                  [],
-                  [
-                    Tea_Html.dt([], [Tea_Html.text("Panel ID")]),
-                    Tea_Html.dd([], [Tea_Html.text(pid)]),
-                  ],
-                )
-              | None => Tea_Html.noNode
-              },
-              switch detail.modelModule {
-              | Some(m) =>
-                Tea_Html.div(
-                  [],
-                  [
-                    Tea_Html.dt([], [Tea_Html.text("Model Module")]),
-                    Tea_Html.dd([], [Tea_Html.text(m)]),
-                  ],
-                )
-              | None => Tea_Html.noNode
-              },
-              switch detail.componentModule {
-              | Some(c) =>
-                Tea_Html.div(
-                  [],
-                  [
-                    Tea_Html.dt([], [Tea_Html.text("Component Module")]),
-                    Tea_Html.dd([], [Tea_Html.text(c)]),
-                  ],
-                )
-              | None => Tea_Html.noNode
-              },
-              switch detail.commandModule {
-              | Some(c) =>
-                Tea_Html.div(
-                  [],
-                  [
-                    Tea_Html.dt([], [Tea_Html.text("Command Module")]),
-                    Tea_Html.dd([], [Tea_Html.text(c)]),
-                  ],
-                )
-              | None => Tea_Html.noNode
-              },
-            ],
-          ),
-        ],
-      ),
-      // Relationships.
-      Tea_Html.div(
-        [Tea_Html.Attributes.class("detail-section")],
-        [
-          Tea_Html.h3([], [Tea_Html.text("Relationships")]),
-          switch detail.relationships.parent {
-          | Some(parent) =>
-            Tea_Html.div(
-              [Tea_Html.Attributes.class("relationship-row")],
-              [
-                Tea_Html.span([Tea_Html.Attributes.class("rel-label")], [Tea_Html.text("Parent:")]),
-                Tea_Html.a(
-                  [Tea_Html.Events.onClick(Msg.SelectClade(parent))],
-                  [Tea_Html.text(parent)],
-                ),
-              ],
-            )
-          | None => Tea_Html.noNode
-          },
-          if Array.length(detail.relationships.siblings) > 0 {
-            Tea_Html.div(
-              [Tea_Html.Attributes.class("relationship-row")],
-              [
-                Tea_Html.span(
-                  [Tea_Html.Attributes.class("rel-label")],
-                  [Tea_Html.text(`Siblings (${Int.toString(Array.length(detail.relationships.siblings))})`)],
-                ),
-                Tea_Html.div(
-                  [Tea_Html.Attributes.class("rel-links")],
-                  Array.map(detail.relationships.siblings, sib =>
-                    Tea_Html.a(
-                      [
-                        Tea_Html.Attributes.class("rel-link"),
-                        Tea_Html.Events.onClick(Msg.SelectClade(sib)),
-                      ],
-                      [Tea_Html.text(sib)],
-                    )
-                  )
-                  ->Array.toList
-                  ->List.toArray,
-                ),
-              ],
-            )
-          } else {
-            Tea_Html.noNode
-          },
-          if Array.length(detail.relationships.children) > 0 {
-            Tea_Html.div(
-              [Tea_Html.Attributes.class("relationship-row")],
-              [
-                Tea_Html.span(
-                  [Tea_Html.Attributes.class("rel-label")],
-                  [Tea_Html.text(`Children (${Int.toString(Array.length(detail.relationships.children))})`)],
-                ),
-                Tea_Html.div(
-                  [Tea_Html.Attributes.class("rel-links")],
-                  Array.map(detail.relationships.children, child =>
-                    Tea_Html.a(
-                      [
-                        Tea_Html.Attributes.class("rel-link"),
-                        Tea_Html.Events.onClick(Msg.SelectClade(child)),
-                      ],
-                      [Tea_Html.text(child)],
-                    )
-                  )
-                  ->Array.toList
-                  ->List.toArray,
-                ),
-              ],
-            )
-          } else {
-            Tea_Html.noNode
-          },
-        ],
-      ),
-      // File presence indicators.
-      Tea_Html.div(
-        [Tea_Html.Attributes.class("detail-section")],
-        [
-          Tea_Html.h3([], [Tea_Html.text("Files")]),
-          Tea_Html.div(
-            [Tea_Html.Attributes.class("file-indicators")],
-            [
-              Tea_Html.span(
-                [
-                  Tea_Html.Attributes.class(
-                    if detail.hasK9Config {
-                      "file-present"
-                    } else {
-                      "file-absent"
-                    },
-                  ),
-                ],
-                [Tea_Html.text("config.k9.ncl")],
-              ),
-              Tea_Html.span(
-                [
-                  Tea_Html.Attributes.class(
-                    if detail.hasReadme {
-                      "file-present"
-                    } else {
-                      "file-absent"
-                    },
-                  ),
-                ],
-                [Tea_Html.text("README.adoc")],
-              ),
-            ],
-          ),
-        ],
-      ),
-      // Actions.
-      Tea_Html.div(
-        [Tea_Html.Attributes.class("detail-actions")],
-        [
-          Tea_Html.button(
-            [Tea_Html.Events.onClick(Msg.CheckCladeHealth(detail.id))],
-            [Tea_Html.text("Check Health")],
-          ),
-          Tea_Html.button(
-            [Tea_Html.Events.onClick(Msg.LoadRelationships(detail.id))],
-            [Tea_Html.text("Refresh Relationships")],
-          ),
-          Tea_Html.button(
-            [
-              Tea_Html.Attributes.class("detail-close"),
-              Tea_Html.Events.onClick(Msg.DeselectClade),
-            ],
-            [Tea_Html.text("Close")],
-          ),
-        ],
-      ),
-    ],
-  )
-}
-
-// ---------------------------------------------------------------------------
-// View
-// ---------------------------------------------------------------------------
-
-/// Render the complete Clade Portal UI.
-let view = (model: Model.model): Tea_Html.t<Msg.msg> => {
-  Tea_Html.div(
-    [Tea_Html.Attributes.class("clade-portal")],
-    [
-      // --- Header ---
-      Tea_Html.header(
-        [Tea_Html.Attributes.class("portal-header")],
-        [
-          Tea_Html.h1([], [Tea_Html.text("Clade Portal")]),
-          Tea_Html.div(
-            [Tea_Html.Attributes.class("header-controls")],
-            [
-              searchBar(model.searchQuery),
-              viewModeToggle(model.viewMode),
-              Tea_Html.span(
-                [Tea_Html.Attributes.class("runtime-badge")],
-                [Tea_Html.text(`Runtime: ${RuntimeBridge.runtimeName()}`)],
-              ),
-              Tea_Html.span(
-                [Tea_Html.Attributes.class("clade-count")],
-                [Tea_Html.text(`${Int.toString(Array.length(model.clades))} clades`)],
-              ),
-              Tea_Html.button(
-                [Tea_Html.Events.onClick(Msg.CheckAllHealth)],
-                [Tea_Html.text("Health Check")],
-              ),
-              Tea_Html.button(
-                [Tea_Html.Events.onClick(Msg.ShowCapPanel)],
-                [Tea_Html.text("Capabilities")],
-              ),
-            ],
-          ),
-        ],
-      ),
-
-      // --- Error bar ---
-      switch model.error {
-      | Some(err) =>
-        Tea_Html.div(
-          [Tea_Html.Attributes.class("error-bar")],
-          [
-            Tea_Html.text(err),
-            Tea_Html.button(
-              [Tea_Html.Events.onClick(Msg.ClearError)],
-              [Tea_Html.text("Dismiss")],
-            ),
-          ],
-        )
-      | None => Tea_Html.noNode
-      },
-
-      // --- Capability grant panel ---
-      if model.showCapPanel {
-        Tea_Html.div(
-          [Tea_Html.Attributes.class("cap-panel")],
-          [
-            Tea_Html.h2([], [Tea_Html.text("Gossamer Capability Tokens")]),
-            Tea_Html.p(
-              [Tea_Html.Attributes.class("cap-description")],
-              [
-                Tea_Html.text(
-                  "Clade Portal runs in a sandboxed Gossamer webview. " ++
-                  "Grant capabilities below to enable clade browsing and health monitoring. " ++
-                  "Filesystem access is required to read clade metadata. " ++
-                  "Network access enables live health indicators.",
-                ),
-              ],
-            ),
-            capabilityRow("filesystem", Capabilities.Kind.filesystem, model.filesystemCap),
-            capabilityRow("network", Capabilities.Kind.network, model.networkCap),
-            Tea_Html.button(
-              [
-                Tea_Html.Attributes.class("cap-dismiss"),
-                Tea_Html.Events.onClick(Msg.DismissCapPanel),
-              ],
-              [Tea_Html.text("Continue to Clade Portal")],
-            ),
-          ],
-        )
-      } else {
-        Tea_Html.noNode
-      },
-
-      // --- Search results overlay ---
-      searchResultsList(model.searchResults),
-
-      // --- Loading indicator ---
-      if model.isLoading {
-        Tea_Html.div(
-          [Tea_Html.Attributes.class("loading-indicator")],
-          [Tea_Html.text("Loading clade taxonomy...")],
-        )
-      } else {
-        Tea_Html.noNode
-      },
-
-      // --- Main content ---
-      Tea_Html.main(
-        [Tea_Html.Attributes.class("portal-main")],
-        [
-          // Sidebar: clade tree/list.
-          Tea_Html.aside(
-            [Tea_Html.Attributes.class("clade-sidebar")],
-            [
-              Tea_Html.div(
-                [Tea_Html.Attributes.class("sidebar-header")],
-                [
-                  Tea_Html.h2(
-                    [],
-                    [
-                      Tea_Html.text(
-                        switch model.viewMode {
-                        | Tree => "Clade Tree"
-                        | List => "Clade List"
-                        | Graph => "Clade Graph"
-                        },
-                      ),
-                    ],
-                  ),
-                  Tea_Html.button(
-                    [Tea_Html.Events.onClick(Msg.LoadClades)],
-                    [Tea_Html.text("Refresh")],
-                  ),
-                ],
-              ),
-              Tea_Html.div(
-                [Tea_Html.Attributes.class("clade-list")],
-                Array.map(model.clades, clade => {
-                  let isExpanded = Array.some(model.expandedNodes, n => n == clade.id)
-                  cladeEntry(clade, isExpanded)
-                })
-                ->Array.toList
-                ->List.toArray,
-              ),
-            ],
-          ),
-
-          // Detail panel: selected clade or placeholder.
-          Tea_Html.section(
-            [Tea_Html.Attributes.class("content-panel")],
-            [
-              switch model.selectedClade {
-              | Some(detail) => detailPanel(detail)
-              | None =>
-                Tea_Html.div(
-                  [Tea_Html.Attributes.class("placeholder")],
-                  [
-                    Tea_Html.h2([], [Tea_Html.text("PanLL Clade Taxonomy")]),
-                    Tea_Html.p(
-                      [],
-                      [
-                        Tea_Html.text(
-                          "Select a clade from the sidebar to view its metadata, " ++
-                          "traits, capabilities, panel integration details, and " ++
-                          "relationships to other clades.",
-                        ),
-                      ],
-                    ),
-                    Tea_Html.p(
-                      [Tea_Html.Attributes.class("placeholder-stats")],
-                      [
-                        Tea_Html.text(
-                          `${Int.toString(Array.length(model.clades))} clades loaded`,
-                        ),
-                      ],
-                    ),
-                  ],
-                )
-              },
-            ],
-          ),
-        ],
-      ),
-    ],
-  )
-}
-
-// ---------------------------------------------------------------------------
-// Main — TEA program registration
-// ---------------------------------------------------------------------------
-
-/// Start the Clade Portal TEA application.
-/// Mounts into the #app element in public/index.html.
-let main = Tea_App.standardProgram({
-  init: () => init(),
-  update: update,
-  view: view,
-  subscriptions: _model => Tea_Sub.none,
-})
diff --git a/clade-portal/src/Capabilities.affine b/clade-portal/src/Capabilities.affine
new file mode 100644
index 00000000..418221e5
--- /dev/null
+++ b/clade-portal/src/Capabilities.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Capabilities;
+
+// TODO: Complete semantic implementation
diff --git a/clade-portal/src/Capabilities.res b/clade-portal/src/Capabilities.res
deleted file mode 100644
index bb8caa01..00000000
--- a/clade-portal/src/Capabilities.res
+++ /dev/null
@@ -1,92 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath)
-
-/// Capabilities — Gossamer capability token management for the Clade Portal.
-///
-/// The Clade Portal requires two capabilities:
-///   - filesystem (kind 2): Read clade directories and A2ML metadata files
-///     from the panel-clades path on disk.
-///   - network (kind 1): Fetch health status from running panel services
-///     to display live health indicators in the portal.
-///
-/// Flow:
-///   1. App starts with NO capabilities (sandbox by default)
-///   2. User sees the capability grant panel
-///   3. User clicks "Grant Filesystem" -> Gossamer shows consent dialog
-///   4. Runtime returns a token (float) valid for TTL seconds
-///   5. All subsequent file reads include the token in the IPC payload
-///   6. Token expires -> app must re-request or operations fail
-
-/// Capability kind identifiers matching the Gossamer runtime's internal enum.
-module Kind = {
-  /// Filesystem access — read clade directories and A2ML files.
-  let filesystem = 2
-
-  /// Network access — fetch panel health status from running services.
-  let network = 1
-
-  /// Human-readable name for a capability kind.
-  let toString = (kind: int): string => {
-    switch kind {
-    | 1 => "network"
-    | 2 => "filesystem"
-    | k => `unknown(${Int.toString(k)})`
-    }
-  }
-
-  /// Description of why the Clade Portal needs this capability.
-  let description = (kind: int): string => {
-    switch kind {
-    | 1 => "Check health of running panel services to display live status indicators."
-    | 2 => "Read clade directories and A2ML metadata files from the panel-clades path."
-    | _ => "Unknown capability."
-    }
-  }
-}
-
-/// Request a capability token from the Gossamer runtime.
-///
-/// This triggers Gossamer's consent dialog. The user must approve the
-/// request before the runtime issues a token. Returns a promise that
-/// resolves to the token value (float) on success.
-///
-/// @param kind - The capability kind (use Kind.filesystem, Kind.network)
-let requestCapability = (kind: int): promise<float> => {
-  RuntimeBridge.invoke("__gossamer_cap_grant", {"kind": kind})
-}
-
-/// Request filesystem capability — needed to read clade A2ML files.
-///
-/// Without this token, no clade metadata can be loaded from disk.
-/// This is the first capability users should grant.
-let requestFilesystemAccess = (): promise<float> => {
-  requestCapability(Kind.filesystem)
-}
-
-/// Request network capability — needed for panel health checks.
-///
-/// Health indicators show which panels are running, degraded, or offline.
-/// This capability is optional but recommended for full portal features.
-let requestNetworkAccess = (): promise<float> => {
-  requestCapability(Kind.network)
-}
-
-/// Revoke a previously granted capability.
-///
-/// After revocation, any IPC calls using the old token will fail.
-///
-/// @param kind - The capability kind to revoke
-let revokeCapability = (kind: int): promise<unit> => {
-  RuntimeBridge.invoke("__gossamer_cap_revoke", {"kind": kind})
-}
-
-/// Check whether a token is still valid.
-///
-/// Tokens expire after the TTL defined in gossamer.conf.json (default:
-/// 3600 seconds). This lets the app proactively check and re-request
-/// before a critical operation fails.
-///
-/// @param token - The capability token to validate
-let validateToken = (token: float): promise<bool> => {
-  RuntimeBridge.invoke("__gossamer_cap_validate", {"token": token})
-}
diff --git a/clade-portal/src/CladeCmd.affine b/clade-portal/src/CladeCmd.affine
new file mode 100644
index 00000000..6bb98e4c
--- /dev/null
+++ b/clade-portal/src/CladeCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CladeCmd;
+
+// TODO: Complete semantic implementation
diff --git a/clade-portal/src/CladeCmd.res b/clade-portal/src/CladeCmd.res
deleted file mode 100644
index 9a372374..00000000
--- a/clade-portal/src/CladeCmd.res
+++ /dev/null
@@ -1,174 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath)
-
-/// CladeCmd — Backend command dispatch for the Clade Portal.
-///
-/// Each function wraps a Gossamer IPC call to read clade metadata from the
-/// filesystem or check panel health over the network. Filesystem commands
-/// require a valid filesystem capability token; health commands require a
-/// network capability token.
-///
-/// The commands operate on the PanLL panel-clades directory structure:
-///   panel-clades/clades/{clade-id}/
-///     *.a2ml        — Clade metadata (A2ML format)
-///     config.k9.ncl — K9 kennel configuration (Nickel)
-///     README.adoc   — Human-readable documentation
-///
-/// Gossamer acts as the filesystem proxy — the webview never makes direct
-/// file I/O calls. Instead, each command goes through IPC to the Gossamer
-/// Zig runtime, which holds the filesystem capability and reads from disk.
-
-/// The base path to the panel-clades directory on disk.
-/// Resolved by the Gossamer backend via IPC — this constant is a hint only.
-/// The backend uses PANLL_ROOT env var or its own exe-relative discovery.
-let _cladesBasePath = "panel-clades/clades"
-
-// ---------------------------------------------------------------------------
-// Directory listing
-// ---------------------------------------------------------------------------
-
-/// List all clade directories under the panel-clades path.
-///
-/// Returns a JSON array of directory entry objects, each containing:
-///   - name: string — the directory name (clade ID)
-///   - isDirectory: bool — always true for valid clades
-///
-/// Excludes hidden files and the _basics template directory.
-/// Requires a filesystem capability token.
-let listClades = (token: float): promise<string> => {
-  RuntimeBridge.invokeWithToken(
-    "clade_list_directories",
-    {"path": _cladesBasePath, "excludePatterns": ["_basics", "README.adoc"]},
-    token,
-  )
-}
-
-// ---------------------------------------------------------------------------
-// Clade detail
-// ---------------------------------------------------------------------------
-
-/// Read the full detail of a specific clade.
-///
-/// Reads and parses all A2ML files in the clade directory, returning
-/// the combined metadata as a JSON string. The response includes:
-///   - id, name, shortName, version, kind, icon, description
-///   - traits: hasBackend, hasScanning, hasPersistence, etc.
-///   - capabilities: array of capability strings
-///   - panelIntegration: panelId, modelModule, componentModule, etc.
-///   - hasK9Config: whether a config.k9.ncl file exists
-///   - hasReadme: whether a README.adoc file exists
-///
-/// @param cladeId - The clade directory name (e.g. "ai", "databases")
-let getCladeDetail = (cladeId: string, token: float): promise<string> => {
-  RuntimeBridge.invokeWithToken(
-    "clade_read_detail",
-    {"path": `${_cladesBasePath}/${cladeId}`, "cladeId": cladeId},
-    token,
-  )
-}
-
-// ---------------------------------------------------------------------------
-// Relationships
-// ---------------------------------------------------------------------------
-
-/// Get parent/child/sibling relationships for a clade.
-///
-/// Analyses the clade's kind, capabilities, and connections sections to
-/// determine its position in the taxonomy. Returns a JSON object with:
-///   - parent: option<string> — parent clade ID if hierarchical
-///   - children: array<string> — child clade IDs
-///   - siblings: array<string> — clades of the same kind
-///   - dependencies: array<string> — clades this one depends on
-///   - dependents: array<string> — clades that depend on this one
-///
-/// @param cladeId - The clade directory name
-let getCladeRelationships = (cladeId: string, token: float): promise<string> => {
-  RuntimeBridge.invokeWithToken(
-    "clade_get_relationships",
-    {"path": _cladesBasePath, "cladeId": cladeId},
-    token,
-  )
-}
-
-// ---------------------------------------------------------------------------
-// Search
-// ---------------------------------------------------------------------------
-
-/// Full-text search across all clade metadata.
-///
-/// Searches clade names, descriptions, capability lists, and kind fields
-/// for the given query string. Returns a JSON array of match objects:
-///   - cladeId: string — the matching clade
-///   - name: string — clade display name
-///   - kind: string — clade kind
-///   - matchField: string — which field matched (name, description, etc.)
-///   - matchSnippet: string — context around the match
-///   - score: float — relevance score (higher = better match)
-///
-/// @param query - The search query string (case-insensitive substring match)
-let searchClades = (query: string, token: float): promise<string> => {
-  RuntimeBridge.invokeWithToken(
-    "clade_search",
-    {"path": _cladesBasePath, "query": query},
-    token,
-  )
-}
-
-// ---------------------------------------------------------------------------
-// Health
-// ---------------------------------------------------------------------------
-
-/// Check the health of panels belonging to a clade.
-///
-/// For each panel registered in the clade's panel-integration section,
-/// this command attempts to contact the panel's health endpoint (if the
-/// panel has a backend). Returns a JSON object with:
-///   - cladeId: string — the clade checked
-///   - panelHealth: array of { panelId, status, latencyMs, lastCheck }
-///   - overallStatus: "healthy" | "degraded" | "unhealthy" | "unknown"
-///
-/// Requires a network capability token (panels may run on localhost or
-/// remote services).
-///
-/// @param cladeId - The clade to check health for
-let getCladeHealth = (cladeId: string, token: float): promise<string> => {
-  RuntimeBridge.invokeWithToken(
-    "clade_check_health",
-    {"cladeId": cladeId},
-    token,
-  )
-}
-
-// ---------------------------------------------------------------------------
-// Batch operations
-// ---------------------------------------------------------------------------
-
-/// Load summary data for all clades in a single IPC call.
-///
-/// This is an optimised path for the initial portal load. Instead of
-/// calling listClades + getCladeDetail for each clade (100+ IPC calls),
-/// this command reads all clade directories and extracts summary fields
-/// (id, name, kind, icon, description, panelCount) in one pass.
-///
-/// Returns a JSON array of clade summary objects.
-let loadAllCladeSummaries = (token: float): promise<string> => {
-  RuntimeBridge.invokeWithToken(
-    "clade_load_all_summaries",
-    {"path": _cladesBasePath},
-    token,
-  )
-}
-
-/// Batch health check for all clades with backends.
-///
-/// Checks health of all clades that have hasBackend = true in their
-/// traits. Returns a JSON object mapping clade IDs to health status.
-///
-/// Requires a network capability token.
-let checkAllCladeHealth = (token: float): promise<string> => {
-  RuntimeBridge.invokeWithToken(
-    "clade_check_all_health",
-    {"path": _cladesBasePath},
-    token,
-  )
-}
diff --git a/clade-portal/src/Model.affine b/clade-portal/src/Model.affine
new file mode 100644
index 00000000..cd116033
--- /dev/null
+++ b/clade-portal/src/Model.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Model;
+
+// TODO: Complete semantic implementation
diff --git a/clade-portal/src/Model.res b/clade-portal/src/Model.res
deleted file mode 100644
index b6284f54..00000000
--- a/clade-portal/src/Model.res
+++ /dev/null
@@ -1,216 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath)
-
-/// Model — Application state for the Clade Portal.
-///
-/// Holds the complete UI state for browsing PanLL's 100+ panel clades.
-/// The portal provides three view modes (tree, list, graph), a search
-/// facility, and live health indicators for each clade's panels.
-///
-/// Capability tokens are the central security mechanism: filesystem access
-/// is required to read clade metadata, and network access is required to
-/// check panel health.
-
-// ---------------------------------------------------------------------------
-// View mode
-// ---------------------------------------------------------------------------
-
-/// How the clade taxonomy is displayed in the main content area.
-type viewMode =
-  | /// Hierarchical tree with expandable nodes grouped by kind.
-    Tree
-  | /// Flat alphabetical list with sortable columns.
-    List
-  | /// Force-directed graph showing relationships between clades.
-    Graph
-
-// ---------------------------------------------------------------------------
-// Health status
-// ---------------------------------------------------------------------------
-
-/// Health status of a clade's panels.
-type healthStatus =
-  | /// All panels in the clade are responding normally.
-    Healthy
-  | /// Some panels are slow or partially available.
-    Degraded
-  | /// No panels are responding or all have errors.
-    Unhealthy
-  | /// Health has not been checked yet (no network token, or not loaded).
-    Unknown
-
-// ---------------------------------------------------------------------------
-// Clade types
-// ---------------------------------------------------------------------------
-
-/// Summary information for a single clade, displayed in lists and trees.
-type cladeSummary = {
-  /// Clade identifier (directory name, e.g. "ai", "databases").
-  id: string,
-  /// Human-readable display name.
-  name: string,
-  /// Clade kind (directive, scanner, builder, database, network, etc.).
-  kind: string,
-  /// Icon identifier (maps to Lucide icon set).
-  icon: string,
-  /// Short description of what the clade does.
-  description: string,
-  /// Number of panels registered in this clade.
-  panelCount: int,
-  /// Current health status of the clade's panels.
-  health: healthStatus,
-}
-
-/// Trait flags from the clade's [clade-traits] section.
-type cladeTraits = {
-  /// Whether the clade connects to a backend service.
-  hasBackend: bool,
-  /// Whether the clade performs scanning/analysis.
-  hasScanning: bool,
-  /// Whether the clade persists data across sessions.
-  hasPersistence: bool,
-  /// Whether the clade generates work items.
-  hasWorkItems: bool,
-  /// Whether the clade defines priority ordering for other panels.
-  hasPriorityOrdering: bool,
-  /// Whether the clade supports user customisation.
-  hasCustomisation: bool,
-  /// Whether the clade is a directive (controls other panels).
-  isDirective: bool,
-  /// Whether the clade is read-only (reports but does not modify).
-  isReadonly: bool,
-}
-
-/// Relationship data between clades.
-type cladeRelationships = {
-  /// Parent clade ID, if this clade is part of a hierarchy.
-  parent: option<string>,
-  /// Child clade IDs that inherit from this clade.
-  children: array<string>,
-  /// Sibling clades of the same kind.
-  siblings: array<string>,
-  /// Clades that this one depends on.
-  dependencies: array<string>,
-  /// Clades that depend on this one.
-  dependents: array<string>,
-}
-
-/// Full detail for a single clade, shown in the detail panel.
-type cladeDetail = {
-  /// Core metadata from [clade-metadata].
-  id: string,
-  /// Human-readable display name.
-  name: string,
-  /// Short name for compact UI elements.
-  shortName: string,
-  /// Semantic version of the clade definition.
-  version: string,
-  /// Clade kind (directive, scanner, builder, etc.).
-  kind: string,
-  /// Icon identifier.
-  icon: string,
-  /// Full description.
-  description: string,
-  /// Trait flags from [clade-traits].
-  traits: cladeTraits,
-  /// Capability strings from [clade-capabilities].
-  capabilities: array<string>,
-  /// Panel integration identifiers from [clade-panel-integration].
-  panelId: option<string>,
-  /// Model module name.
-  modelModule: option<string>,
-  /// Component module name.
-  componentModule: option<string>,
-  /// Command module name.
-  commandModule: option<string>,
-  /// Relationships to other clades.
-  relationships: cladeRelationships,
-  /// Whether a config.k9.ncl file exists for this clade.
-  hasK9Config: bool,
-  /// Whether a README.adoc file exists for this clade.
-  hasReadme: bool,
-  /// Current health status.
-  health: healthStatus,
-}
-
-/// A search result entry returned by full-text clade search.
-type searchResult = {
-  /// Matching clade ID.
-  cladeId: string,
-  /// Clade display name.
-  name: string,
-  /// Clade kind.
-  kind: string,
-  /// Which field matched the query.
-  matchField: string,
-  /// Context snippet around the match.
-  matchSnippet: string,
-  /// Relevance score (higher = better match).
-  score: float,
-}
-
-// ---------------------------------------------------------------------------
-// Capability status
-// ---------------------------------------------------------------------------
-
-/// Capability token status for Gossamer security.
-/// Each capability must be explicitly granted by the runtime before use.
-type capabilityStatus =
-  | /// Not yet requested from the runtime.
-    NotRequested
-  | /// Request sent, awaiting runtime grant.
-    Pending
-  | /// Granted with a token. The float is the token value.
-    Granted(float)
-  | /// Runtime denied the capability request.
-    Denied
-
-// ---------------------------------------------------------------------------
-// Application model
-// ---------------------------------------------------------------------------
-
-/// Complete application state for the Clade Portal.
-type model = {
-  /// All clade summaries loaded from disk.
-  clades: array<cladeSummary>,
-  /// Currently selected clade with full detail, if any.
-  selectedClade: option<cladeDetail>,
-  /// Current search query string (empty = no active search).
-  searchQuery: string,
-  /// Search results from the last query.
-  searchResults: array<searchResult>,
-  /// Current view mode for the main content area.
-  viewMode: viewMode,
-  /// Set of clade IDs whose tree nodes are expanded.
-  expandedNodes: array<string>,
-  /// Whether the initial clade list has been loaded.
-  isLoading: bool,
-  /// Filesystem capability token — required to read clade files.
-  filesystemCap: capabilityStatus,
-  /// Network capability token — required for health checks.
-  networkCap: capabilityStatus,
-  /// Error message to display in the UI, if any.
-  error: option<string>,
-  /// Whether the capability grant panel is visible.
-  showCapPanel: bool,
-  /// Health status map: clade ID -> health status (from batch check).
-  healthMap: array<(string, healthStatus)>,
-}
-
-/// Initial application state. Starts with no capabilities granted,
-/// forcing the user to explicitly authorise filesystem and network
-/// access through the Gossamer capability token system.
-let initial: model = {
-  clades: [],
-  selectedClade: None,
-  searchQuery: "",
-  searchResults: [],
-  viewMode: Tree,
-  expandedNodes: [],
-  isLoading: false,
-  filesystemCap: NotRequested,
-  networkCap: NotRequested,
-  error: None,
-  showCapPanel: true,
-  healthMap: [],
-}
diff --git a/clade-portal/src/Msg.affine b/clade-portal/src/Msg.affine
new file mode 100644
index 00000000..b1a59b85
--- /dev/null
+++ b/clade-portal/src/Msg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Msg;
+
+// TODO: Complete semantic implementation
diff --git a/clade-portal/src/Msg.res b/clade-portal/src/Msg.res
deleted file mode 100644
index 6311b22c..00000000
--- a/clade-portal/src/Msg.res
+++ /dev/null
@@ -1,78 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath)
-
-/// Msg — Message type for the Clade Portal TEA architecture.
-///
-/// Every user interaction and async result flows through this type.
-/// Messages are dispatched by the view and processed by the update
-/// function in App.res.
-
-/// All messages that can occur in the Clade Portal.
-type msg =
-  // --- Clade loading ---
-  | /// Load all clade summaries from disk (initial load).
-    LoadClades
-  | /// All clade summaries arrived from the filesystem.
-    CladesLoaded(result<string, string>)
-
-  // --- Clade selection ---
-  | /// User clicked a clade in the tree/list/graph to see its detail.
-    SelectClade(string)
-  | /// Clade detail response arrived from the filesystem.
-    CladeDetailLoaded(result<string, string>)
-  | /// User closed the detail panel.
-    DeselectClade
-
-  // --- Relationships ---
-  | /// Load relationship data for the selected clade.
-    LoadRelationships(string)
-  | /// Relationship data arrived.
-    RelationshipsLoaded(result<string, string>)
-
-  // --- Search ---
-  | /// User typed in the search bar.
-    UpdateSearchQuery(string)
-  | /// User submitted the search (pressed Enter or clicked Search).
-    PerformSearch
-  | /// Search results arrived.
-    SearchResultsLoaded(result<string, string>)
-  | /// User cleared the search bar.
-    ClearSearch
-
-  // --- View mode ---
-  | /// User switched to a different view mode (Tree, List, Graph).
-    SetViewMode(Model.viewMode)
-
-  // --- Tree expansion ---
-  | /// User expanded a node in the tree view.
-    ExpandNode(string)
-  | /// User collapsed a node in the tree view.
-    CollapseNode(string)
-
-  // --- Health ---
-  | /// Check health for a single clade.
-    CheckCladeHealth(string)
-  | /// Health check result for a single clade.
-    CladeHealthLoaded(string, result<string, string>)
-  | /// Batch health check for all clades.
-    CheckAllHealth
-  | /// Batch health results arrived.
-    AllHealthLoaded(result<string, string>)
-
-  // --- Gossamer capability tokens ---
-  | /// User clicked "Grant" on a capability in the cap panel.
-    RequestCapability(string)
-  | /// Gossamer runtime granted a capability token.
-    CapGranted(string, float)
-  | /// Gossamer runtime revoked a capability token.
-    CapRevoked(string)
-  | /// User dismissed the capability panel.
-    DismissCapPanel
-  | /// User reopened the capability panel.
-    ShowCapPanel
-
-  // --- UI ---
-  | /// Clear the current error message.
-    ClearError
-  | /// No-op message (used for commands that have no followup).
-    NoOp
diff --git a/clade-portal/src/RuntimeBridge.affine b/clade-portal/src/RuntimeBridge.affine
new file mode 100644
index 00000000..585655fa
--- /dev/null
+++ b/clade-portal/src/RuntimeBridge.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module RuntimeBridge;
+
+// TODO: Complete semantic implementation
diff --git a/clade-portal/src/RuntimeBridge.res b/clade-portal/src/RuntimeBridge.res
deleted file mode 100644
index 44bb875d..00000000
--- a/clade-portal/src/RuntimeBridge.res
+++ /dev/null
@@ -1,117 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath)
-
-/// RuntimeBridge — Gossamer-native IPC bridge for the Clade Portal.
-///
-/// Gossamer-only bridge for the third Gossamer-native application. The Clade
-/// Portal reads clade A2ML files from the PanLL panel-clades directory via
-/// filesystem capability tokens, and checks panel health via network tokens.
-///
-/// The bridge communicates with the Gossamer runtime via the injected
-/// `window.__gossamer_invoke` function. All IPC uses JSON protocol as
-/// configured in gossamer.conf.json.
-///
-/// Capability tokens:
-///   - filesystem: Required to read clade directories and A2ML files
-///   - network: Required to fetch panel health status from running services
-
-// ---------------------------------------------------------------------------
-// Gossamer runtime detection
-// ---------------------------------------------------------------------------
-
-/// Check whether the Gossamer runtime is available in this webview.
-/// Returns true when `window.__gossamer_invoke` has been injected by
-/// the gossamer_channel_open() call during webview initialisation.
-%%raw(`
-function isGossamerRuntime() {
-  return typeof window !== 'undefined'
-    && typeof window.__gossamer_invoke === 'function';
-}
-`)
-@val external isGossamerRuntime: unit => bool = "isGossamerRuntime"
-
-/// Raw Gossamer IPC call. Sends a command name and JSON payload to the
-/// Gossamer runtime and returns a promise with the response.
-%%raw(`
-function gossamerInvoke(cmd, args) {
-  return window.__gossamer_invoke(cmd, args);
-}
-`)
-@val external gossamerInvoke: (string, 'a) => promise<'b> = "gossamerInvoke"
-
-// ---------------------------------------------------------------------------
-// Runtime type (Gossamer-only, no Tauri path)
-// ---------------------------------------------------------------------------
-
-/// The runtime environment. For the Clade Portal, this is always Gossamer
-/// or an error state (dev browser without the runtime).
-type runtime =
-  | /// Running inside the Gossamer webview shell (production).
-    Gossamer
-  | /// Running in a plain browser (development only — most features disabled).
-    BrowserDev
-
-/// Detect the current runtime environment.
-let detectRuntime = (): runtime => {
-  if isGossamerRuntime() {
-    Gossamer
-  } else {
-    BrowserDev
-  }
-}
-
-// ---------------------------------------------------------------------------
-// Unified invoke — Gossamer-native with dev fallback
-// ---------------------------------------------------------------------------
-
-/// Invoke a Gossamer IPC command.
-///
-/// In production (Gossamer runtime), this calls `window.__gossamer_invoke`.
-/// In development (browser), this rejects with a descriptive error so the
-/// developer knows to run inside Gossamer.
-///
-/// All command modules (CladeCmd, Capabilities) use this function.
-let invoke = (cmd: string, args: 'a): promise<'b> => {
-  if isGossamerRuntime() {
-    gossamerInvoke(cmd, args)
-  } else {
-    Promise.reject(
-      JsError.throwWithMessage(
-        `Gossamer runtime required — "${cmd}" cannot run in a plain browser. ` ++
-        `Launch via: gossamer run --config gossamer.conf.json`,
-      ),
-    )
-  }
-}
-
-/// Invoke a command that requires a capability token.
-///
-/// This is the security-critical path. The token is included in the IPC
-/// payload so the Gossamer runtime can verify the caller holds the
-/// required capability before executing the command.
-///
-/// @param cmd   - The IPC command name
-/// @param args  - The command payload
-/// @param token - The capability token (obtained from __gossamer_cap_grant)
-let invokeWithToken = (cmd: string, args: 'a, token: float): promise<'b> => {
-  if isGossamerRuntime() {
-    gossamerInvoke(cmd, {"__cap_token": token, "payload": args})
-  } else {
-    Promise.reject(
-      JsError.throwWithMessage(
-        `Gossamer runtime required — "${cmd}" needs a capability token`,
-      ),
-    )
-  }
-}
-
-/// Check whether the Gossamer runtime is available.
-let hasRuntime = (): bool => isGossamerRuntime()
-
-/// Human-readable runtime name for display in the UI.
-let runtimeName = (): string => {
-  switch detectRuntime() {
-  | Gossamer => "Gossamer"
-  | BrowserDev => "Browser (dev)"
-  }
-}
diff --git a/rescript.json b/rescript.json
deleted file mode 100644
index 83e44f48..00000000
--- a/rescript.json
+++ /dev/null
@@ -1,26 +0,0 @@
-{
-  "name": "panll",
-  "sources": [
-    {
-      "dir": "src",
-      "subdirs": true
-    }
-  ],
-  "package-specs": [
-    {
-      "module": "esmodule",
-      "in-source": true
-    }
-  ],
-  "suffix": ".res.js",
-  "dependencies": [
-    "@rescript/core"
-  ],
-  "compiler-flags": [
-    "-open RescriptCore"
-  ],
-  "warnings": {
-    "error": "+101-33-44",
-    "number": "-44-45"
-  }
-}
diff --git a/src/App.affine b/src/App.affine
new file mode 100644
index 00000000..eb92faa1
--- /dev/null
+++ b/src/App.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module App;
+
+// TODO: Complete semantic implementation
diff --git a/src/App.res b/src/App.res
deleted file mode 100644
index 79e2b82d..00000000
--- a/src/App.res
+++ /dev/null
@@ -1,78 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Application Entry Point
-///
-/// Initializes the TEA application with the Binary Star co-orbit model.
-
-/// Initialize the application
-/// Attempts to restore persisted state then probes panic-attacker capability so the UI
-/// knows whether ambush/panll exports are available.
-let init = (): (Model.model, Tea_Cmd.t<Msg.msg>) => {
-  // Try to load persisted state
-  let model = switch Storage.load() {
-  | Some(loadedModel) => loadedModel
-  | None => Model.init() // Use default if no saved state
-  }
-
-  // Register OS colour scheme change listener for System theme mode.
-  let colorSchemeCmd = AccessibilityEngine.listenColorSchemeChange(prefersLight => {
-    let osTheme: AccessibilityModel.themeMode = if prefersLight {
-      ThemeLight
-    } else {
-      ThemeDark
-    }
-    Msg.AccessibilityCtrl(OsColorSchemeChanged(osTheme))
-  })
-
-  // Apply saved font size on startup (sets <html> font-size for rem scaling).
-  let fontSizeCmd = AccessibilityEngine.applyFontSizeCmd(model.accessibility.fontSize)
-
-  // Probe Burble groove endpoint at startup for capability discovery.
-  // Non-blocking — if Burble is not running, the error is silently recorded.
-  let grooveCmd = BurbleCmd.checkGroove(result =>
-    switch result {
-    | Ok(_json) => Msg.Burble(BurbleModel.ConnectionChanged(BurbleModel.Connected))
-    | Error(err) => Msg.Burble(BurbleModel.ErrorOccurred(err))
-    }
-  )
-
-  // Attempt async VeriSimDB state restore (Connected Workbench v0.2.0).
-  // Fires after the synchronous localStorage load above — if VeriSimDB holds
-  // newer/richer state, the VeriSimDBStateLoaded handler will merge it in.
-  let verisimdbStateCmd = GossamerCmd.loadStateFromVeriSimDB(result =>
-    Msg.VeriSimDBStateLoaded(result)
-  )
-
-  // Probe all registered services at startup (Connected Workbench v0.2.0).
-  // Non-blocking — populates the service registry with current health status.
-  let serviceRefreshCmd = ServiceCmd.refreshAll(result =>
-    Msg.Service(RefreshAllResult(result))
-  )
-
-  // Load user settings from ~/.panll/config.json (Connected Workbench v0.2.0).
-  let settingsCmd = SettingsCmd.getSettings(result =>
-    Msg.Settings(SettingsLoaded(result))
-  )
-
-  (
-    model,
-    Tea_Cmd.batch(list{
-      colorSchemeCmd,
-      fontSizeCmd,
-      grooveCmd,
-      verisimdbStateCmd,
-      serviceRefreshCmd,
-      settingsCmd,
-    }),
-  )
-}
-
-/// Main TEA program
-/// Bootstraps the standard TEA pipeline (init/update/view/subscriptions).
-let main = Tea_App.standardProgram(
-  ~init,
-  ~update=Update.update,
-  ~view=View.view,
-  ~subscriptions=SubscriptionsFixed.all,
-  (),
-)
diff --git a/src/Model.affine b/src/Model.affine
new file mode 100644
index 00000000..cd116033
--- /dev/null
+++ b/src/Model.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Model;
+
+// TODO: Complete semantic implementation
diff --git a/src/Model.res b/src/Model.res
deleted file mode 100644
index 95b23544..00000000
--- a/src/Model.res
+++ /dev/null
@@ -1,1533 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Model — Composition root for the eNSAID environment state.
-///
-/// This module re-exports all domain types from the four sub-modules
-/// (PaneModel, EchidnaModel, VeriSimModel, GovernanceModel) and defines
-/// the unified `model` record and its initial state.
-///
-/// Downstream code using `open Model` or `Model.typeName` continues to
-/// work unchanged — `include` re-exports types AND variant constructors.
-///
-/// Dependency graph (no cycles):
-///   PaneModel       ← no deps (leaf)
-///   EchidnaModel    ← no deps (leaf)
-///   VeriSimModel    ← no deps (leaf)
-///   GovernanceModel ← PaneModel (for neuralToken in antiCrashState)
-///   Model           ← all four (this file)
-///
-/// NOTE ON TYPE COMPOSITION: This `model` record contains 18 domain slices,
-/// each with its own variant types and records. ReScript's `include` mechanism
-/// re-exports all constructors — so `Installed`, `Native`, `Verified` etc. are
-/// usable without qualification throughout the codebase. In TypeScript, this
-/// would require either string literal unions (no exhaustiveness checking beyond
-/// what the IDE approximates) or a maze of discriminated unions with manual type
-/// guards. Here, the compiler enforces exhaustive matching on every `switch` —
-/// add a new variant to any model and the compiler tells you every place in
-/// 26,000+ lines that needs updating. That's not "nice to have" type safety;
-/// it's the difference between refactoring with confidence and refactoring with
-/// prayer. See https://rescript-lang.org/docs/manual/latest/variant
-
-/// Re-export Pane-L, Pane-N, Pane-W state types and their supporting types
-/// (symbolicConstraint, neuralToken, oodaPhase, agencyState, eventChain*).
-include PaneModel
-
-/// Re-export ECHIDNA theorem prover types (trust levels, axiom danger,
-/// portfolio confidence, provers, sessions, dispatch results, tactic suggestions).
-include EchidnaModel
-
-/// Re-export VeriSimDB types (proof obligations, drift scores, telemetry,
-/// database backend state).
-include VeriSimModel
-
-/// Re-export cognitive governance types (violationType, antiCrashState,
-/// vexometer, orbital, humidity, viewMode, sync, contractiles).
-include GovernanceModel
-
-/// Re-export VAB (Verified Assembly Building) types (categories, components,
-/// warnings, capabilities, assembly state) for the server composer panel.
-include VabModel
-
-/// Re-export CloudGuard types (zones, settings, DNS records, audit findings,
-/// plan tiers, policy constraints, diff entries) for the Cloudflare domain
-/// security management panel.
-include CloudGuardModel
-
-/// Re-export Farm types (farmRepo, farmPriority, farmCategory, farmSortBy,
-/// farmState) for the Git-Private-Farm panel — repo inventory and health.
-include FarmModel
-
-/// Re-export Plaza types (complianceLevel, complianceAudit, adoptionStats,
-/// plazaCategory, plazaState) for the Palimpsest Plaza licensing panel.
-include PlazaModel
-
-/// Re-export Reposystem types for RSR compliance auditing.
-include ReposystemModel
-
-/// Re-export Aerie types for network diagnostics and BGP forensics.
-include AerieModel
-
-/// Re-export Interfaces types for ABI/FFI inventory.
-include InterfacesModel
-
-/// Re-export Playgrounds types for code sandbox and NQC console.
-include PlaygroundsModel
-
-/// Re-export Hypatia types (neuralNetId, neuralNetStatus, neuralNetState,
-/// scanResult, pipelineStage, learningCycle, hypatiaCategory, hypatiaState)
-/// for the neurosymbolic CI/CD intelligence panel.
-include HypatiaModel
-
-/// Re-export Fleet types (botId, botStatus, botState, safetyTier, fleetFinding,
-/// fleetHealth, fleetCategory, fleetState) for the Gitbot-Fleet panel.
-include FleetModel
-
-/// Re-export Minter types (panelBackendKind, accessibilityLevel, minterCapability,
-/// nameValidation, minterForm, mintResult, minterState) for the Panel Minter
-/// wizard that generates new panel modules with accessibility baked in.
-include MinterModel
-
-/// Re-export Provisioner types (panelIsolation, panelInstallStatus, panelConfig,
-/// portfolio, portfolioInstallProgress, provisionerCategory, provisionerState)
-/// for the portfolio bundling, panel configuration, and installation system.
-include ProvisionerModel
-
-/// Re-export VoiceTag types (mriTagType, mriInputMethod, mriAttribution,
-/// mriCodeAuthor, mriTag, mriFileSummary, mriFile, voiceState, voiceTagState)
-/// for the Code MRI Layer 0 annotation system. Tags are stored as portable
-/// `.mri.json` sidecars — standalone-first, no PanLL dependency required.
-include VoiceTagModel
-
-/// Re-export Provenance types (trustLevel, provenanceRegion, provenanceSummary,
-/// fileProvenance, accessibilityPalette, provenanceState) for the Qubes-style
-/// code trust surface that is always visible as an ambient layer.
-include ProvenanceModel
-
-/// Re-export Pattern Diagnostics types (Layer 3) — pattern detection, gamification.
-include PatternDiagModel
-
-/// Re-export Attribution-to-Licensing types (Layer 4) — SPDX, trust→license link.
-include AttributionLicenseModel
-
-/// Re-export 007 Toolchain types for agentic compiler and high-rigor execution.
-include Oo7ToolchainModel
-include VideoCoordinationModel
-
-/// Re-export AI types (aiProviderId, aiProviderConfig, aiProviderStatus,
-/// aiMessage, aiCategory, aiState) for the multi-provider AI neural interface
-/// panel that speaks to Anthropic, Google, Mistral, OpenAI, and local models.
-include AiModel
-
-/// Re-export Repo Loader types (repoInfo, panelSuggestion, repoLoaderCategory,
-/// repoLoaderState) for the repository scanning and panel configuration panel.
-include RepoLoaderModel
-
-/// Re-export Watcher types (watchEventKind, watchEvent, watcherState) for
-/// the filesystem observation infrastructure that feeds events into the TEA
-/// loop. Every panel can react to relevant file changes.
-include WatcherModel
-
-/// Re-export Panel Switcher types (panelId, connectionStatus, panelMeta,
-/// panelSwitcherState) for the unified panel navigation system that replaces
-/// ad-hoc `visible: bool` toggles on individual overlays.
-include PanelSwitcherModel
-
-/// Re-export Workspace types (workspaceMode, sessionProtection, executionMode,
-/// panelGroup, arrangement, session, checkpoint, polyTool, configuratorTab,
-/// workspaceState) for the workspace management layer (DD-022–DD-027).
-include WorkspaceModel
-
-/// Re-export Keybindings types (modifier, keyChord, keybindingAction, keybinding,
-/// keybindingsState) for the customisable keyboard shortcut system.
-include KeybindingsModel
-
-/// Re-export Migration types (migrationVersionBracket, migrationConfigFormat,
-/// migrationRepoSummary, migrationSession, migrationSubmission, migrationConstraint,
-/// migrationObligation, mergeResolution, migrationCategory, migrationState) for the
-/// ReScript Migration Observatory panel — health tracking, session observation,
-/// submission queue, and merge conflict resolution timeline.
-include MigrationModel
-
-/// Re-export PanicAttack types (weakPointSeverity, weakPointCategory, weakPoint,
-/// scanSummary, scanReport, panicCategory, panicAttackState) for the stress
-/// testing and logic-based bug signature detection panel.
-include PanicAttackModel
-
-/// Re-export MassPanic types (repoScanStatus, repoResult, assemblylineSummary,
-/// deltaEntry, repoSortMode, repoFilterMode, storageTarget, massPanicState) for
-/// the organisation-scale batch scanning panel (assemblyline + BLAKE3 + verisim).
-include MassPanicModel
-
-/// Re-export TSDM types (scopeTier, maintenanceTier, auditTier, cleanupStep,
-/// dialogueTopic, axisId, tsdmWorkItem, auditTooling, tsdmState) for the
-/// Triaxial Software Development Methodology directive panel.
-include TsdmModel
-
-/// Re-export Capture types (captureFormat, captureEntry, recordingState, demoStep,
-/// demoPackage, comparisonMode, panelClone, captureCategory, captureState) for
-/// the panel capture, recording, and demo/teaching system (DD-022).
-include CaptureModel
-
-/// Re-export Status Bar types (widgetPosition, widgetKind, statusWidget, systemInfo,
-/// statusBarState) for the configurable status bar widget system (DD-025).
-include StatusBarModel
-
-/// Re-export Security types (redactionMode, redactionPattern, detectedSecret,
-/// vaultStatus, vaultKey, twoFactorStatus, securityLevel, trustfilePolicy,
-/// securityCategory, securityState) for secrets, vault, 2FA, Trustfile (DD-026/027).
-include SecurityModel
-
-/// Re-export Valence Shell types (shellBackend, recordingState, terminalRecording,
-/// approvalGateMode, pendingCommand, valenceCheckpoint, valenceShellCategory,
-/// terminalLine, valenceShellState) for the embedded terminal panel with Claude
-/// Code integration, session recording, and collaborative approval gate.
-include ValenceShellModel
-
-/// Re-export Game Preview types (gameOverlay, gameExecutionState,
-/// gameRecordingState, deviceInteraction, gameplayClip, renderStats,
-/// gamePreviewCategory, gamePreviewState) for the live IDApTIK game
-/// preview panel with hot-reload, overlays, and gameplay recording.
-include GamePreviewModel
-
-/// Re-export VM Inspector types (vmInstructionTier, vmInstruction,
-/// vmMemoryCell, vmPortEntry, vmSnapshot, vmBreakpoint, vmConnectionMode,
-/// vmInspectorCategory, vmInspectorState) for the reversible VM visual
-/// debugger with step forward/backward and execution timeline.
-include VmInspectorModel
-
-/// Re-export Network Topology types (networkZone, connectionProtocol,
-/// networkDevice, networkConnection, dnsEntry, packetFlowEvent,
-/// networkTopologyCategory, networkTopologyState) for the IDApTIK
-/// in-game network topology viewer.
-include NetworkTopologyModel
-
-/// Re-export Level Architect types (levelEntityKind, levelEntity,
-/// guardPatrol, defenceFlag, validationIssue, levelAsset, editorTool,
-/// levelArchitectCategory, levelArchitectState) for the visual level
-/// design tool with grid editor and LevelConfig export.
-include LevelArchitectModel
-
-/// Re-export Coprocessors types (coprocessorBackend, coprocHealth,
-/// coprocCallEntry, coprocMetrics, heatmapCell, coprocessorsCategory,
-/// coprocessorsState) for the IDApTIK coprocessor monitoring dashboard.
-include CoprocessorsModel
-
-/// Re-export Multiplayer Monitor types (wsConnectionState, connectedPlayer,
-/// channelSubscription, stateDiffEntry, deviceLock, latencySample,
-/// etsCacheEntry, multiplayerCategory, multiplayerMonitorState) for the
-/// IDApTIK Phoenix sync server monitoring panel.
-include MultiplayerMonitorModel
-
-/// Re-export DLC Workshop types (puzzleDifficulty, testRunStatus,
-/// puzzleInstruction, dlcPuzzle, puzzleChain, dlcAsset, dlcPackMeta,
-/// dlcWorkshopCategory, dlcWorkshopState) for the DLC puzzle pack
-/// creation, testing, and packaging panel.
-include DlcWorkshopModel
-
-/// Re-export UMS types (umsCategory, modProject, modTemplate, modAsset,
-/// abiValidationResult, distributionTarget, apiEntry, umsState) for the
-/// Universal Modding Studio panel — unified IDApTIK game content creation hub.
-include UmsModel
-
-/// Re-export Editor Bridge types (editorKind, editorConnectionState,
-/// openFileEntry, lspDiagnostic, workspaceSymbol, bridgeActivity,
-/// editorBridgeCategory, editorBridgeState) for the external code
-/// editor federation panel (LSP diagnostics, symbols, jump-to-line).
-include EditorBridgeModel
-
-/// Re-export Build Dashboard types (buildTarget, buildStatus,
-/// buildMessage, testResult, buildHistoryEntry, buildDashboardCategory,
-/// buildDashboardState) for the IDApTIK build monitoring panel.
-include BuildDashboardModel
-
-/// Re-export Release Manager types (releaseChannel, platformTarget,
-/// releaseStatus, releaseArtifact, changelogEntry, releaseRecord,
-/// releaseManagerCategory, releaseManagerState) for the versioning,
-/// changelog, and distribution panel.
-include ReleaseManagerModel
-
-/// Re-export Automation Router types (triggerEvent, ruleCondition, ruleAction,
-/// approvalMode, automationRule, pendingAction, executionLogEntry,
-/// automationRouterCategory, automationRouterState) for the hybrid cross-panel
-/// workflow orchestration panel with event-driven rules and approval gates.
-include AutomationRouterModel
-
-/// Re-export Databases types (databasesCategory, queryHistoryEntry,
-/// schemaEntity, databasesState) for the unified database management panel
-/// covering VeriSimDB, QuandleDB, and LithoGlyph.
-include DatabasesModel
-
-/// Opens BojModel into this scope, contributing BoJ types
-/// (bojCartridge, bojCategory, bojState, etc.) for the Bundle of Joy panel.
-include BojModel
-include CladeBrowserModel
-
-/// Re-export Tentacles types (tentacleId, tentacleStage, oodaPhase,
-/// tentacleConstraint, reasoningEntry, validatedResult, tentaclePersonality,
-/// tentacleNames, agentBroadcastPayload, tentacleAgentState, tentaclesCategory,
-/// tentaclesState) for the 7-Tentacles compiler agent panel — seven colour-coded
-/// agents representing compiler subsystems with progressive cephalopod staging.
-include TentaclesModel
-include ProtocolSquisherModel
-include MyLangModel
-include TypeLLModel
-
-/// Re-export Help types (helpCategory, helpEntry, glossaryTerm, onboardingStep,
-/// onboardingState, helpState) for the in-application help system with
-/// context-sensitive guides, neurosymbolic glossary, and onboarding walkthrough.
-include HelpModel
-
-/// Re-export Accessibility types (fontSizePreset, animationPreference,
-/// focusIndicatorStyle, accessibilityState) for the centralised accessibility
-/// toolbar controlling colour palettes, animation, font size, and focus indicators.
-include AccessibilityModel
-
-/// Re-export Tiling types (snapZone, tilingPreset, detachedPanel, tilingState)
-/// for multi-monitor panel detachment, Aero-style snap zones, and tiling presets.
-include TilingModel
-
-/// Re-export Focus Dimming types (dimmingMode, panelFocusOverride,
-/// focusDimmingState) for focus-aware panel dimming and Smart Memory Mode
-/// that throttles unfocused panel processing.
-include FocusDimmingModel
-include MenuBarModel
-
-/// Re-export ScriptGist types (gistLanguage, gistParam, gistSchema, gistTarget,
-/// gistVisibility, gistResult, scriptGist, gistTemplate, gistCategory, gistSortBy,
-/// scriptGistState) for the portable computation gist system — saveable, shareable,
-/// LLM-callable as MCP tools, user-runnable standalone.
-include ScriptGistModel
-
-/// Re-export Stapeln container assembly types (constraints, pipeline status,
-/// validation, artifact formats, component catalog, panel state).
-include StapelnModel
-
-/// Re-export Evangeliser types (evangeliserCategory, evangeliserDifficulty,
-/// evangeliserGlyph, evangeliserNarrative, evangeliserPattern, evangeliserMatch,
-/// evangeliserAnalysis, evangeliserConstraints, evangeliserTab, evangeliserViewLayer,
-/// evangeliserState) for the JS→ReScript transformation teaching panel.
-include EvangeliserModel
-
-/// Re-export Observatory types for the integrative dashboard panel.
-include ObservatoryModel
-
-/// Re-export AmbientOps types for the hospital-model sysadmin panel.
-include AmbientOpsModel
-
-/// Re-export Language Forge types (languagePhase, componentStatus, languageEntry,
-/// forgeCategory, forgeSortBy, languageForgeState) for the nextgen-languages panel.
-include LanguageForgeModel
-
-/// Re-export TangleViz types (braidGenerator, tangleViewMode, knotInvariant,
-/// parsedStatus, tangleVizState) for the topological programming visualizer panel.
-include TangleVizModel
-
-/// Re-export SpecBrowser types (specFileKind, filePresence, verificationSummary,
-/// specLanguageEntry, specBrowserCategory, comparisonSide, specBrowserState) for
-/// the language specification browser panel.
-include SpecBrowserModel
-
-/// Re-export VerificationDashboard types (proofSystem, conformanceLevel,
-/// benchmarkEntry, fuzzingCoverage, languageVerificationStatus,
-/// verificationDashboardCategory, verificationSortBy, verificationDashboardState)
-/// for the verification status panel.
-include VerificationDashboardModel
-
-/// Re-export game testing panel types.
-include UnitTestRunnerModel
-include FunctionalTesterModel
-include RegressionGuardModel
-include PerformanceProfilerModel
-include LoadTesterModel
-include SoakMonitorModel
-include CompatibilityMatrixModel
-include ExploratoryWorkbenchModel
-include BetaFeedbackHubModel
-include BalanceAnalyserModel
-
-/// Re-export bridge panel types.
-include TypingBridgeModel
-include NeurosymBridgeModel
-include AgenticBridgeModel
-include AutomationBridgeModel
-include DatabaseBridgeModel
-include ProtocolBridgeModel
-include ProofsBridgeModel
-include ScriptingBridgeModel
-
-/// Re-export game-specific panel types.
-include GeneratorModeModel
-include ArchitectModeModel
-include GuardAiTunerModel
-include DeviceNetworkDesignerModel
-include AssetManagerModel
-include PlaytestRecorderModel
-
-/// Re-export team/collaboration panel types.
-include CodeReviewModel
-include MergeCoordinatorModel
-include TeamDashboardModel
-include DebuggingWorkbenchModel
-
-/// Re-export Wiring Inspector types (obligationStatus, failureClass,
-/// repairability, obligation, panelVerification, wiringInspectorState)
-/// for the PCC constraint state UI panel.
-include WiringInspectorModel
-
-/// Re-export Floor Raise campaign panel types.
-include FloorRaiseModel
-include ProvenAdoptionModel
-include ContractileCompletenessModel
-include ManifestCoverageModel
-include VerisimdbFeedsModel
-include FeedbackRoutingModel
-include VexometerFrictionModel
-
-/// Re-export Service Registry types (serviceStatus, serviceEntry,
-/// serviceRegistryState) for centralized backend service lifecycle management.
-include ServiceModel
-
-/// Re-export Settings types (settingsState) for user configuration management.
-include SettingsModel
-
-/// Re-export Identity types (identitySnapshot, identityState) for snapshots
-/// and team replication.
-include IdentityModel
-
-/// The complete Model — composes all domain slices into a single record.
-/// This is the "Gravitational Centre" of the Binary Star system.
-type model = {
-  // Core panes
-  paneL: paneLState,
-  paneN: paneNState,
-  paneW: paneWState,
-  paneA: paneAState,
-  // Cognitive governance
-  antiCrash: antiCrashState,
-  vexometer: vexometerState,
-  orbital: orbitalState,
-  syncState: syncState,
-  contractiles: array<contractile>,
-  humidity: humidityLevel,
-  barycentreTour: tourState,
-  menuBar: menuBarState,
-  // View state
-  viewMode: viewMode,
-  paneLVisible: bool,
-  paneNVisible: bool,
-  paneWVisible: bool,
-  protocolAnalysisVisible: bool,
-  panelBarVisible: bool,
-  fullscreenActive: bool,
-  // Database backends
-  verisim: verisimdbState,
-  // Theorem prover backend
-  echidna: echidnaState,
-  // VAB (Verified Assembly Building)
-  vab: vabState,
-  // CloudGuard (Cloudflare domain security management)
-  cloudguard: cloudguardState,
-  // Git-Private-Farm — repo inventory and health dashboard
-  farm: farmState,
-  // Palimpsest Plaza — PMPL licensing adoption and governance
-  plaza: plazaState,
-  // Reposystem — RSR compliance across 265+ repos
-  reposystem: reposystemState,
-  // System Update — rpm-ostree, flatpak, asdf, cargo, fwupd component management
-  systemUpdate: SystemUpdateModel.systemUpdateState,
-  // Aerie — network diagnostics, speed tests, BGP forensics
-  aerie: aerieState,
-  // 007 Toolchain — agentic compiler and high-rigor execution (Groove)
-  oo7toolchain: oo7State,
-  // VideoCoordination — Drive-to-Photos batch transfer dashboard
-  videoCoordination: videoCoordinationState,
-  // Interfaces — Idris2 ABI + Zig FFI inventory + binding coverage
-  interfaces: interfacesState,
-  // Playgrounds — code sandbox + NQC console + tutorials
-  playgrounds: playgroundsState,
-  // Hypatia — neurosymbolic CI/CD intelligence (5 neural networks, 298+ repos)
-  hypatia: hypatiaState,
-  // Gitbot-Fleet — 6-bot orchestration and dispatch dashboard
-  fleet: fleetState,
-  // Panel Minter — create new panel modules with accessibility by default
-  minter: minterState,
-  // Provisioner — portfolio bundles, panel config, isolation tiers
-  provisioner: provisionerState,
-  // Code MRI VoiceTag — voice-activated annotation system (Layer 0)
-  voiceTag: voiceTagState,
-  // Provenance Map — Qubes-style code trust surface (always visible, ambient)
-  provenance: provenanceState,
-  // Code MRI Timeline — VeriSimDB-backed development time series (Layer 2)
-  codeMriTimeline: TimelineModel.timelineState,
-  // Code MRI Pattern Diagnostics — anti-pattern detection + gamification (Layer 3)
-  patternDiag: patternDiagState,
-  // Code MRI Attribution-to-Licensing — SPDX/provenance→license link (Layer 4)
-  attributionLicense: attributionLicenseState,
-  // Wizard — Plugin/panel creation wizard
-  wizard: WizardModel.wizardState,
-  // Watcher — filesystem observation infrastructure (feeds all panels)
-  watcher: watcherState,
-  // AI — multi-provider neural interface (Claude, Gemini, Mistral, GPT, local)
-  ai: aiState,
-  // Repo Loader — repository scanner and panel configuration wizard
-  repoLoader: repoLoaderState,
-  // Panel Switcher — unified panel navigation (replaces ad-hoc visible toggles)
-  panelSwitcher: panelSwitcherState,
-  // Workspace — panel arrangements, groups, sessions, modes (DD-022–DD-027)
-  workspace: workspaceState,
-  // Keybindings — customisable keyboard shortcuts
-  keybindings: keybindingsState,
-  // Capture — screenshots, recordings, demos, cloning (DD-022)
-  capture: captureState,
-  // Status Bar — configurable bottom bar with system info widgets (DD-025)
-  statusBar: statusBarState,
-  // Security — redaction, vault, 2FA, Trustfile enforcement (DD-026/027)
-  security: securityState,
-  // Migration Observatory — ReScript migration health, sessions, submissions
-  migration: migrationState,
-  // panic-attack — stress testing and weak point analysis
-  panicAttack: panicAttackState,
-  // mass-panic — organisation-scale batch scanning (assemblyline + BLAKE3 + verisim)
-  massPanic: massPanicState,
-  // TSDM — triaxial software development methodology directive
-  tsdm: tsdmState,
-  // Valence Shell — embedded terminal with Claude Code and reversible ops
-  valenceShell: valenceShellState,
-  // Game Preview — live IDApTIK game preview with hot-reload and overlays
-  gamePreview: gamePreviewState,
-  // VM Inspector — reversible VM visual debugger (step forward/backward)
-  vmInspector: vmInspectorState,
-  // Network Topology — IDApTIK in-game network graph viewer
-  networkTopology: networkTopologyState,
-  // Level Architect — visual level design tool
-  levelArchitect: levelArchitectState,
-  // Coprocessors — coprocessor backend monitoring dashboard
-  coprocessors: coprocessorsState,
-  // Multiplayer Monitor — Phoenix sync server inspector
-  multiplayerMonitor: multiplayerMonitorState,
-  // DLC Workshop — puzzle pack creation, testing, packaging
-  dlcWorkshop: dlcWorkshopState,
-  // Universal Modding Studio — unified IDApTIK content creation hub
-  ums: umsState,
-  // Editor Bridge — federate with external code editors (VSCodium, Zed, etc.)
-  editorBridge: editorBridgeState,
-  // Build Dashboard — build/test/error monitoring for IDApTIK sub-projects
-  buildDashboard: buildDashboardState,
-  // Release Manager — versioning, changelog, artifacts, distribution
-  releaseManager: releaseManagerState,
-  // Automation Router — hybrid cross-panel workflow orchestration
-  automationRouter: automationRouterState,
-  // Databases — unified VeriSimDB/QuandleDB/LithoGlyph management
-  databases: databasesState,
-  // BoJ — Bundle of Joy cartridge server
-  boj: bojState,
-  // Clade Browser — panel taxonomy explorer
-  cladeBrowser: cladeBrowserState,
-  // Tentacles — 7-Tentacles compiler agent panel (within/without ECHIDNA)
-  tentacles: tentaclesState,
-  // Protocol-Squisher — 13-format schema analysis and compatibility
-  protocolSquisher: protocolSquisherState,
-  // My-Lang — AI-native language workbench (Solo/Duet/Ensemble/Me dialects)
-  myLang: myLangState,
-  // TypeLL — Verification kernel (cross-panel type intelligence)
-  typell: typellState,
-  // Panel Bus — pub/sub subscriber registry and event history
-  busRegistry: PanelBus.subscriberRegistry,
-  // A2ML — last loaded/validated manifest state
-  lastA2mlManifest: option<A2mlEngine.a2mlManifest>,
-  lastA2mlValidation: option<A2mlEngine.a2mlValidationResult>,
-  a2mlManifestPaths: array<string>,
-  // K9 — last loaded/validated contractile state
-  lastK9Contractile: option<K9Engine.k9Contractile>,
-  lastK9Layout: option<K9Engine.k9Layout>,
-  k9KennelSchema: option<string>,
-  k9YardContract: option<string>,
-  // Compliance seams — exception register and audit state
-  seamRegister: SeamEngine.seamRegister,
-  lastSeamAudit: option<SeamEngine.seamAuditResult>,
-  // ENSAID_CONFIG — cross-panel config generation state
-  ensaidConfigPreview: option<string>,
-  ensaidConfigError: option<string>,
-  // Undo/Redo — ring buffer of model snapshots
-  undoStack: array<string>,
-  redoStack: array<string>,
-  // Feedback-O-Tron
-  feedbackPending: option<string>,
-  feedbackError: option<string>,
-  feedbackReportType: option<string>,
-  // Help — in-app help system with context-sensitive guides and glossary
-  help: helpState,
-  // Accessibility — centralised a11y preferences (palette, animation, font, focus)
-  accessibility: accessibilityState,
-  // Tiling — multi-monitor panel detachment and snap zone management
-  tiling: tilingState,
-  // Focus Dimming — focus-aware panel dimming and Smart Memory Mode
-  focusDimming: focusDimmingState,
-  // Script Gist — portable computation gists (saveable, LLM-callable, user-runnable)
-  scriptGist: scriptGistState,
-  // Stapeln — container stack assembly pipeline (constraints, reasoning, artifacts)
-  stapeln: stapelnState,
-  // Evangeliser — JS→ReScript pattern teaching with celebrate/minimize/better narratives
-  evangeliser: evangeliserState,
-  // Language Forge — nextgen-languages portfolio monitoring and development
-  languageForge: languageForgeState,
-  // TangleViz — topological programming visualizer for braid/knot topology
-  tangleViz: tangleVizState,
-  // Spec Browser — browse all language specs, grammars, typing rules
-  specBrowser: specBrowserState,
-  // Verification Dashboard — proof/test/benchmark/fuzzing status
-  verificationDashboard: verificationDashboardState,
-  // Observatory — integrative dashboard aggregating health, resources, activity
-  observatory: observatoryState,
-  // AmbientOps — hospital-model sysadmin (clinician, network ambulance, hardware crash team)
-  ambientOps: ambientOpsState,
-  // Game Testing panels
-  unitTestRunner: unitTestRunnerState,
-  functionalTester: functionalTesterState,
-  regressionGuard: regressionGuardState,
-  performanceProfiler: performanceProfilerState,
-  loadTester: loadTesterState,
-  soakMonitor: soakMonitorState,
-  compatibilityMatrix: compatibilityMatrixState,
-  exploratoryWorkbench: exploratoryWorkbenchState,
-  betaFeedbackHub: betaFeedbackHubState,
-  balanceAnalyser: balanceAnalyserState,
-  // Bridge panels
-  typingBridge: typingBridgeState,
-  neurosymBridge: neurosymBridgeState,
-  agenticBridge: agenticBridgeState,
-  automationBridge: automationBridgeState,
-  databaseBridge: databaseBridgeState,
-  protocolBridge: protocolBridgeState,
-  proofsBridge: proofsBridgeState,
-  scriptingBridge: scriptingBridgeState,
-  // Game-specific panels
-  generatorMode: generatorModeState,
-  architectMode: architectModeState,
-  guardAiTuner: guardAiTunerState,
-  deviceNetworkDesigner: deviceNetworkDesignerState,
-  assetManager: assetManagerState,
-  playtestRecorder: playtestRecorderState,
-  // Team / collaboration panels
-  codeReview: codeReviewState,
-  mergeCoordinator: mergeCoordinatorState,
-  teamDashboard: teamDashboardState,
-  debuggingWorkbench: debuggingWorkbenchState,
-  // Infrastructure panels
-  wiringInspector: wiringInspectorState,
-  // K9 and Contractile management panels
-  k9Manager: K9Model.k9ManagerState,
-  // Floor Raise campaign panels
-  floorRaise: floorRaiseState,
-  provenAdoption: provenAdoptionState,
-  contractileCompleteness: contractileCompletenessState,
-  manifestCoverage: manifestCoverageState,
-  verisimdbFeeds: verisimdbFeedsState,
-  feedbackRouting: feedbackRoutingState,
-  vexometerFriction: vexometerFrictionState,
-  // LLM Coding — multi-session Claude/LLM coordinator
-  llmCoding: LlmCodingModel.llmCodingState,
-  // Agent Coordination View
-  agentCoordination: AgentCoordinationModel.agentCoordinationState,
-  // Burble — voice huddle integration (groove-aware, workspace profile)
-  burble: BurbleModel.burbleState,
-  // Service Registry — centralized backend service lifecycle (Connected Workbench v0.2.0)
-  serviceRegistry: serviceRegistryState,
-  // Settings — user configuration (Connected Workbench v0.2.0)
-  settings: settingsState,
-  // Identity — named snapshots and team replication (Connected Workbench v0.2.0)
-  identity: identityState,
-}
-
-/// Initial model state - "Dark Start" mode
-let init = (): model => {
-  paneL: {
-    constraints: [
-      {
-        id: "orbital-stability-inv",
-        expression: "forall t : Time, stability(t) >= 0.3 -> co_orbit_maintained(t)",
-        active: true,
-        pinned: true,
-      },
-      {
-        id: "divergence-bound",
-        expression: "divergence(symbolic, neural) <= 0.7 // Jaccard distance ceiling",
-        active: true,
-        pinned: true,
-      },
-      {
-        id: "autonomy-ceiling",
-        expression: "agency.autonomyLevel <= 0.8 // Human-in-the-loop bound",
-        active: true,
-        pinned: false,
-      },
-      {
-        id: "trust-propagation",
-        expression: "forall a b : Artifact, depends(a, b) -> trust(a) <= trust(b)",
-        active: true,
-        pinned: false,
-      },
-      {
-        id: "vexation-anti-inflammatory",
-        expression: "vexometer.index > 0.6 -> enable_anti_inflammatory()",
-        active: true,
-        pinned: false,
-      },
-      {
-        id: "type-safety-invariant",
-        expression: "forall expr : Expr, type_check(expr) = Ok(t) -> eval(expr) : t",
-        active: false,
-        pinned: false,
-      },
-      {
-        id: "sync-latency-bound",
-        expression: "sync_latency(L, N, W) <= 2000ms // Cross-pane coherence",
-        active: true,
-        pinned: false,
-      },
-    ],
-    activeConstraintId: None,
-    editorContent: "// Symbolic Mass — Tractatus Editor\n// Define constraints that govern the Binary Star co-orbit.\n//\n// Active constraints feed into the barycentre position\n// and inform ECHIDNA's proof obligations.\n\ntype orbital_invariant =\n  | StabilityBound(float)    // Minimum stability threshold\n  | DivergenceLimit(float)   // Maximum symbolic-neural drift\n  | AutonomyCeiling(float)   // Human-in-the-loop guarantee\n  | TrustPropagation         // Provenance chain integrity\n\nlet verify_co_orbit : orbital_invariant -> result<proof, counterexample> =\n  fun inv -> match inv with\n  | StabilityBound(min) ->\n      if orbital.stability >= min then Ok(QED)\n      else Error(DriftDetected(orbital.stability, min))\n  | DivergenceLimit(max) ->\n      let d = jaccard_distance(paneL.tokens, paneN.tokens) in\n      if d <= max then Ok(WithinBound(d))\n      else Error(Diverged(d, max))\n  | AutonomyCeiling(cap) ->\n      assert(agency.autonomyLevel <= cap);\n      Ok(HumanInLoop)\n  | TrustPropagation ->\n      forall_chain(provenance.artifacts, fun a b ->\n        trust(a) <= trust(b))\n",
-    lastInferredType: None,
-  },
-  paneN: {
-    tokens: [
-      {
-        id: "t-0",
-        content: "Initialising formal verification context...",
-        timestamp: 0.0,
-        confidence: 0.95,
-        validated: true,
-        source: NeuralInference,
-        category: Observation,
-        emittedDuring: Observe,
-        causedBy: [],
-        proofHash: None,
-      },
-      {
-        id: "t-1",
-        content: "Loading Coq prover backend",
-        timestamp: 0.1,
-        confidence: 0.88,
-        validated: true,
-        source: EchidnaProver,
-        category: Observation,
-        emittedDuring: Observe,
-        causedBy: ["t-0"],
-        proofHash: None,
-      },
-      {
-        id: "t-2",
-        content: "forall n : nat, n + 0 = n",
-        timestamp: 0.2,
-        confidence: 0.92,
-        validated: true,
-        source: EchidnaProver,
-        category: Hypothesis,
-        emittedDuring: Orient,
-        causedBy: ["t-1"],
-        proofHash: None,
-      },
-      {
-        id: "t-3",
-        content: "Tactic suggestion: induction on n",
-        timestamp: 0.3,
-        confidence: 0.78,
-        validated: false,
-        source: EchidnaProver,
-        category: Abduction,
-        emittedDuring: Orient,
-        causedBy: ["t-2"],
-        proofHash: None,
-      },
-      {
-        id: "t-4",
-        content: "Proof obligation discharged",
-        timestamp: 0.4,
-        confidence: 0.97,
-        validated: true,
-        source: EchidnaProver,
-        category: ProofStep,
-        emittedDuring: Decide,
-        causedBy: ["t-2", "t-3"],
-        proofHash: Some("sha256:a1b2c3..."),
-      },
-      {
-        id: "t-5",
-        content: "Checking orbital stability invariant...",
-        timestamp: 0.5,
-        confidence: 0.91,
-        validated: true,
-        source: TypeLLKernel,
-        category: Observation,
-        emittedDuring: Observe,
-        causedBy: [],
-        proofHash: None,
-      },
-      {
-        id: "t-6",
-        content: "Divergence bound verified: 0.23 <= 0.7",
-        timestamp: 0.6,
-        confidence: 0.94,
-        validated: true,
-        source: TypeLLKernel,
-        category: ProofStep,
-        emittedDuring: Decide,
-        causedBy: ["t-5"],
-        proofHash: Some("sha256:d4e5f6..."),
-      },
-      {
-        id: "t-7",
-        content: "Trust propagation: 4 artifacts in chain",
-        timestamp: 0.7,
-        confidence: 0.86,
-        validated: true,
-        source: NeuralInference,
-        category: Deduction,
-        emittedDuring: Orient,
-        causedBy: ["t-4", "t-6"],
-        proofHash: None,
-      },
-      {
-        id: "t-8",
-        content: "Autonomy ceiling: 0.0 <= 0.8 (human in loop)",
-        timestamp: 0.8,
-        confidence: 0.99,
-        validated: true,
-        source: AntiCrashGate,
-        category: Observation,
-        emittedDuring: Act,
-        causedBy: [],
-        proofHash: None,
-      },
-      {
-        id: "t-9",
-        content: "7 constraints active, 6 satisfied, 1 pending",
-        timestamp: 0.9,
-        confidence: 0.93,
-        validated: true,
-        source: NeuralInference,
-        category: Synthesis,
-        emittedDuring: Act,
-        causedBy: ["t-7", "t-8"],
-        proofHash: None,
-      },
-    ],
-    inferenceActive: true,
-    nextTokenId: 10,
-    activeCausalChain: ["t-9"],
-    filters: {
-      sources: [],
-      categories: [],
-      phases: [],
-      confidenceThreshold: 0.0,
-      validatedOnly: false,
-      proofOnly: false,
-    },
-    monologue: "ECHIDNA neural advisor active. Processing 7 symbolic constraints from Panel-L.\n\n[OBSERVE] Scanning constraint set: orbital-stability-inv, divergence-bound, autonomy-ceiling, trust-propagation, vexation-anti-inflammatory, type-safety-invariant (disabled), sync-latency-bound.\n\n[ORIENT] Symbolic mass density: moderate (editor content ~180 tokens). Barycentre currently balanced — both stars contributing mass. Divergence level low: symbolic and neural streams share vocabulary overlap.\n\n[DECIDE] Recommend verifying trust-propagation constraint against current provenance chain. The forall quantifier over artifact dependencies requires inductive proof — dispatching to Coq backend.\n\n[ACT] Dispatched proof obligation: trust_propagation_inductive to Coq. Estimated completion: <200ms. Monitoring sync latency for cross-pane coherence bound (2000ms ceiling).\n\nContractile status: orbital-stability STRICT (elasticity 0.2), vexation-ceiling ADAPTIVE (elasticity 0.5), divergence-limit WARN (elasticity 0.3), autonomy-bound STRICT (elasticity 0.4). All within elastic bounds.\n\nNext: Awaiting Coq discharge for trust propagation. Will update inference manifold on completion.",
-    agency: {
-      phase: Orient,
-      autonomyLevel: 0.15,
-      lastOperatorInput: 0.0,
-    },
-  },
-  paneW: {
-    content: "",
-    topologyView: true, // Start with Binary Star diagram
-    lastValidatedOutput: "",
-    eventChain: [],
-    eventChainSummary: None,
-    eventChainTimeline: None,
-    eventChainInput: "",
-    eventChainError: None,
-    panicAttackerMode: "unknown",
-    panicAttackerBinary: None,
-    panicAttackerStatusDetail: None,
-    securityTarget: "",
-    securityTimeline: "",
-    securityAxes: "cpu,memory,concurrency",
-    securityIntensity: "medium",
-    securityDuration: "30",
-    securityStatus: None,
-    securityError: None,
-    securityMenuExpanded: false,
-    securityDialogOpen: false,
-    securityDialogTool: None,
-    securityViewActive: false,
-  },
-  paneA: {
-    vexationIndex: 0.0,
-    antiInflammatoryActive: false,
-    humidity: High,
-    recentCancellations: 0,
-    recentCorrections: 0,
-    expanded: false,
-  },
-  antiCrash: {
-    enabled: true,
-    strictMode: true,
-    violations: [],
-    halted: false,
-    pendingReview: None,
-  },
-  vexometer: {
-    index: 0.0,
-    recentCancellations: 0,
-    recentCorrections: 0,
-    antiInflammatoryActive: false,
-    inertiaDetected: false,
-  },
-  orbital: {
-    stability: 1.0,
-    divergenceLevel: 0.0,
-    driftAuraColour: "indigo",
-    symbolicMass: 0.0,
-    neuralStream: 0.0,
-    barycentrePosition: 0.0,
-    syncHealth: 1.0,
-  },
-  syncState: {
-    lastSymbolicHash: "",
-    lastNeuralHash: "",
-    lastWorldHash: "",
-    pendingSync: [],
-    syncLatency: 0.0,
-  },
-  contractiles: [
-    {
-      id: "orbital-stability",
-      name: "Orbital Stability Bound",
-      description: "Ensures the Binary Star co-orbit remains stable",
-      enforcement: Strict,
-      status: Pending,
-      elasticity: 0.2,
-      lastEvaluated: 0.0,
-    },
-    {
-      id: "vexation-ceiling",
-      name: "Vexation Ceiling",
-      description: "Prevents operator friction from exceeding acceptable levels",
-      enforcement: Adaptive,
-      status: Pending,
-      elasticity: 0.5,
-      lastEvaluated: 0.0,
-    },
-    {
-      id: "divergence-limit",
-      name: "Divergence Limit",
-      description: "Limits drift between symbolic and neural subsystems",
-      enforcement: Warn,
-      status: Pending,
-      elasticity: 0.3,
-      lastEvaluated: 0.0,
-    },
-    {
-      id: "autonomy-bound",
-      name: "Autonomy Bound",
-      description: "Constrains the machine's autonomous action level",
-      enforcement: Strict,
-      status: Pending,
-      elasticity: 0.4,
-      lastEvaluated: 0.0,
-    },
-  ],
-  verisim: {
-    connected: true,
-    endpoint: ServiceEndpoints.verisim,
-    lastQuery: "SELECT * FROM entities WHERE modality = 'graph' LIMIT 10",
-    queryResult: None,
-    queryError: None,
-    entities: [
-      "orbital-stability-proof",
-      "trust-chain-artifact-001",
-      "divergence-metric-snapshot",
-      "provenance-graph-root",
-      "temporal-drift-log",
-    ],
-    selectedEntity: None,
-    driftStatus: Some("Nominal — all 8 modalities within tolerance"),
-    driftScores: Some({
-      graph: 0.03,
-      vector: 0.07,
-      tensor: 0.02,
-      semantic: 0.11,
-      document: 0.04,
-      temporal: 0.06,
-      provenance: 0.01,
-      spatial: 0.05,
-    }),
-    proofObligations: [
-      {
-        proofType: "invariant",
-        contractName: "orbital-stability",
-        status: "verified",
-        proofHash: "a1b2c3d4e5f6",
-      },
-      {
-        proofType: "temporal",
-        contractName: "drift-bound",
-        status: "pending",
-        proofHash: "f6e5d4c3b2a1",
-      },
-    ],
-    dbMenuExpanded: false,
-    normalisingEntity: None,
-    entityDetail: None,
-    telemetry: None,
-    telemetryVisible: false,
-    orchStatus: Some("Orchestrator online — 5 entities indexed"),
-    lastTypeCheck: None,
-    proofDisplayActive: false,
-    inferenceStream: [],
-    antiCrashValidation: true,
-    queryCount: 0,
-    bojRouting: false,
-  },
-  echidna: {
-    connected: true,
-    endpoint: ServiceEndpoints.echidna,
-    version: Some("0.4.1-neurosym"),
-    provers: [
-      {name: "Coq", tier: "ITP", complexity: "CoC"},
-      {name: "Lean 4", tier: "ITP", complexity: "DTT"},
-      {name: "Z3", tier: "SMT", complexity: "QF_LIA"},
-      {name: "Isabelle/HOL", tier: "ITP", complexity: "HOL"},
-      {name: "CVC5", tier: "SMT", complexity: "QF_UFLIA"},
-    ],
-    lastProofResult: None,
-    proofError: None,
-    proofLoading: false,
-    session: None,
-    tacticSuggestions: [
-      {
-        tactic: "induction",
-        args: ["n"],
-        confidence: 0.92,
-        aspectTags: ["structural", "recursive"],
-        description: "Structural induction on the natural number argument",
-      },
-      {
-        tactic: "apply",
-        args: ["trust_transitive"],
-        confidence: 0.85,
-        aspectTags: ["rewriting", "chain"],
-        description: "Apply trust transitivity lemma to close provenance chain goal",
-      },
-      {
-        tactic: "simpl",
-        args: [],
-        confidence: 0.78,
-        aspectTags: ["simplification"],
-        description: "Simplify the current goal using reduction rules",
-      },
-    ],
-    selectedProver: Some("Coq"),
-    proofInput: "",
-    menuExpanded: false,
-    activeTab: EchidnaProofTab,
-    tacticInput: "",
-    sessionLoading: false,
-    lastProofObligations: None,
-    bojRouting: false,
-    enterpriseModel: {
-      elements: [],
-      constraints: [],
-      checkResults: [],
-      checking: false,
-      activeMetamodel: None,
-      activeLayer: None,
-      lastXmiImport: None,
-    },
-  },
-  vab: {
-    visible: false,
-    catalog: VabCatalog.allComponents,
-    selectedCategory: VabCore,
-    sortBy: SortByName,
-    filterText: "",
-    server: {
-      name: "Untitled Server",
-      components: [],
-    },
-    warnings: [],
-    capabilities: VabEngine.computeCapabilities([], VabCatalog.allComponents, []),
-    hoveredComponent: None,
-  },
-  cloudguard: {
-    connection: Disconnected,
-    loading: false,
-    error: None,
-    zones: [],
-    selectedZoneIds: [],
-    settings: [],
-    dnsRecords: [],
-    pagesProjects: [],
-    auditResult: None,
-    constraints: [],
-    exceptions: [],
-    configDiff: None,
-    bulkProgress: None,
-    visible: false,
-    activeCategory: SslTls,
-    filterText: "",
-    settingFilter: "",
-    showDiff: false,
-    showAudit: true,
-    dnsEditingId: None,
-  },
-  farm: {
-    loaded: false,
-    loading: false,
-    error: None,
-    repos: [],
-    selectedRepoNames: [],
-    activeCategory: AllRepos,
-    filterText: "",
-    sortBy: SortByName,
-    totalRepos: 0,
-    unhealthyCount: 0,
-  },
-  plaza: {
-    loaded: false,
-    loading: false,
-    error: None,
-    stats: None,
-    audits: [],
-    signatures: [],
-    compatibilityResults: [],
-    activeCategory: Dashboard,
-    filterText: "",
-    selectedRepo: None,
-  },
-  reposystem: ReposystemEngine.defaultState,
-  systemUpdate: SystemUpdateModel.init,
-  aerie: {
-    loaded: true,
-    loading: false,
-    error: None,
-    probes: [
-      {
-        endpoint: "1.1.1.1",
-        label: "Cloudflare DNS",
-        protocol: "ICMP",
-        active: true,
-      },
-      {
-        endpoint: "8.8.8.8",
-        label: "Google DNS",
-        protocol: "ICMP",
-        active: true,
-      },
-      {
-        endpoint: "api.github.com",
-        label: "GitHub API",
-        protocol: "HTTPS",
-        active: true,
-      },
-    ],
-    latencyResults: [
-      {
-        endpoint: "1.1.1.1",
-        rttMs: 4.2,
-        jitterMs: 0.8,
-        packetLoss: 0.0,
-        timestamp: "2026-03-09T10:30:00Z",
-      },
-      {
-        endpoint: "8.8.8.8",
-        rttMs: 12.7,
-        jitterMs: 1.3,
-        packetLoss: 0.0,
-        timestamp: "2026-03-09T10:30:00Z",
-      },
-      {
-        endpoint: "api.github.com",
-        rttMs: 28.4,
-        jitterMs: 3.1,
-        packetLoss: 0.0,
-        timestamp: "2026-03-09T10:30:00Z",
-      },
-    ],
-    speedTests: [],
-    bgpRoutes: [],
-    activeCategory: AerieDashboard,
-    bgpAnomalyCount: 0,
-    mtuResult: None,
-    interfaces: [],
-    bojRouting: false,
-  },
-  oo7toolchain: {
-    loaded: false,
-    loading: false,
-    error: None,
-    isConnected: false,
-    permissions: PermissionReadOnly,
-    stageOutputs: [],
-    sourceCode: "spawn agent_name {\n  40 + 2\n}",
-    activeCategory: Oo7Dashboard,
-    nesyStatus: "Waiting for analysis...",
-  },
-  videoCoordination: VideoCoordinationEngine.defaultState,
-  interfaces: InterfacesEngine.defaultState,
-  playgrounds: PlaygroundsEngine.defaultState,
-  hypatia: HypatiaEngine.defaultState,
-  fleet: {
-    loaded: true,
-    loading: false,
-    error: None,
-    bots: [
-      {
-        id: Rhodibot,
-        status: BotActive,
-        queuedFindings: 3,
-        processedFindings: 47,
-        confidenceThreshold: 0.85,
-        lastActivity: "2026-03-09T10:30:00Z",
-      },
-      {
-        id: Echidnabot,
-        status: BotActive,
-        queuedFindings: 7,
-        processedFindings: 112,
-        confidenceThreshold: 0.90,
-        lastActivity: "2026-03-09T10:28:00Z",
-      },
-      {
-        id: Sustainabot,
-        status: BotIdle,
-        queuedFindings: 0,
-        processedFindings: 23,
-        confidenceThreshold: 0.80,
-        lastActivity: "2026-03-09T09:45:00Z",
-      },
-      {
-        id: Glambot,
-        status: BotActive,
-        queuedFindings: 2,
-        processedFindings: 31,
-        confidenceThreshold: 0.75,
-        lastActivity: "2026-03-09T10:25:00Z",
-      },
-      {
-        id: Seambot,
-        status: BotIdle,
-        queuedFindings: 0,
-        processedFindings: 18,
-        confidenceThreshold: 0.82,
-        lastActivity: "2026-03-09T08:50:00Z",
-      },
-      {
-        id: Finishbot,
-        status: BotActive,
-        queuedFindings: 1,
-        processedFindings: 9,
-        confidenceThreshold: 0.88,
-        lastActivity: "2026-03-09T10:15:00Z",
-      },
-    ],
-    findings: [
-      {
-        id: "HYP-2026-0142",
-        repoName: "proven",
-        summary: "4,566 believe_me instances — formal verification undermined",
-        tier: Eliminate,
-        confidence: 0.97,
-        assignedBot: Some(Echidnabot),
-        resolved: false,
-      },
-      {
-        id: "HYP-2026-0143",
-        repoName: "boj-server",
-        summary: "Missing SPDX headers in 3 cartridge source files",
-        tier: Control,
-        confidence: 0.91,
-        assignedBot: Some(Rhodibot),
-        resolved: false,
-      },
-      {
-        id: "HYP-2026-0144",
-        repoName: "panll",
-        summary: "Documentation coverage below 60% threshold",
-        tier: Substitute,
-        confidence: 0.84,
-        assignedBot: Some(Glambot),
-        resolved: false,
-      },
-    ],
-    health: Some({
-      activeBots: 4,
-      totalQueued: 13,
-      totalProcessed: 240,
-      avgConfidence: 0.88,
-      triangleCounts: (1, 1, 1),
-    }),
-    activeCategory: FleetDashboard,
-    filterText: "",
-  },
-  minter: MinterEngine.defaultState,
-  provisioner: ProvisionerEngine.defaultState,
-  voiceTag: VoiceTagEngine.defaultState,
-  provenance: ProvenanceEngine.defaultState,
-  codeMriTimeline: TimelineModel.defaultTimelineState(),
-  patternDiag: PatternDiagModel.init,
-  attributionLicense: AttributionLicenseModel.init,
-  wizard: WizardModel.defaultWizardState,
-  watcher: {
-    running: false,
-    watchedPaths: [],
-    eventCount: 0,
-    recentEvents: [],
-    error: None,
-  },
-  ai: AiEngine.defaultState,
-  repoLoader: RepoLoaderEngine.defaultState,
-  panelSwitcher: PanelRegistry.init,
-  workspace: WorkspaceEngine.defaultState,
-  keybindings: KeybindingsEngine.defaultState,
-  capture: CaptureEngine.defaultState,
-  statusBar: StatusBarEngine.defaultState,
-  security: SecurityEngine.defaultState,
-  migration: MigrationEngine.defaultState,
-  panicAttack: PanicAttackModel.init,
-  massPanic: MassPanicModel.init,
-  tsdm: TsdmModel.init,
-  valenceShell: ValenceShellEngine.defaultState,
-  gamePreview: GamePreviewEngine.defaultState,
-  vmInspector: VmInspectorEngine.defaultState,
-  networkTopology: NetworkTopologyEngine.defaultState,
-  levelArchitect: LevelArchitectEngine.defaultState,
-  coprocessors: CoprocessorsEngine.defaultState,
-  multiplayerMonitor: MultiplayerMonitorEngine.defaultState,
-  dlcWorkshop: DlcWorkshopEngine.defaultState,
-  ums: UmsEngine.defaultState,
-  editorBridge: EditorBridgeEngine.defaultState,
-  buildDashboard: BuildDashboardEngine.defaultState,
-  releaseManager: ReleaseManagerEngine.defaultState,
-  automationRouter: AutomationRouterEngine.defaultState,
-  databases: DatabasesEngine.defaultState,
-  boj: {
-    serverUrl: ServiceEndpoints.bojServer,
-    connected: true,
-    lastHealthCheck: 1709942400.0,
-    cartridges: [
-      {
-        name: "database-mcp",
-        displayName: "Database MCP",
-        description: "VeriSimDB query routing and schema introspection",
-        grade: GradeC,
-        loaded: true,
-        protocols: [ProtoMCP, ProtoREST, ProtoGRPC, ProtoGraphQL],
-        layers: {abiReady: true, ffiReady: true, adapterReady: true, sharedLibReady: true},
-        soHash: "sha256:a1b2c3d4",
-        restPort: 7701,
-        grpcPort: 7702,
-        graphqlPort: 7703,
-      },
-      {
-        name: "proof-mcp",
-        displayName: "Proof MCP",
-        description: "ECHIDNA proof dispatch and tactic suggestions",
-        grade: GradeC,
-        loaded: true,
-        protocols: [ProtoMCP, ProtoNeSy],
-        layers: {abiReady: true, ffiReady: true, adapterReady: true, sharedLibReady: true},
-        soHash: "sha256:e5f6a7b8",
-        restPort: 7711,
-        grpcPort: 7712,
-        graphqlPort: 7713,
-      },
-      {
-        name: "observe-mcp",
-        displayName: "Observe MCP",
-        description: "Network telemetry and Aerie probe routing",
-        grade: GradeC,
-        loaded: true,
-        protocols: [ProtoMCP, ProtoREST],
-        layers: {abiReady: true, ffiReady: true, adapterReady: false, sharedLibReady: true},
-        soHash: "sha256:c9d0e1f2",
-        restPort: 7721,
-        grpcPort: 0,
-        graphqlPort: 0,
-      },
-      {
-        name: "fleet-mcp",
-        displayName: "Fleet MCP",
-        description: "Gitbot-fleet orchestration and dispatch",
-        grade: GradeC,
-        loaded: true,
-        protocols: [ProtoMCP, ProtoFleet, ProtoAgentic],
-        layers: {abiReady: true, ffiReady: true, adapterReady: true, sharedLibReady: true},
-        soHash: "sha256:34567890",
-        restPort: 7731,
-        grpcPort: 7732,
-        graphqlPort: 7733,
-      },
-      {
-        name: "security-mcp",
-        displayName: "Security MCP",
-        description: "Panic-attack fuzzing and vulnerability scanning",
-        grade: GradeC,
-        loaded: false,
-        protocols: [ProtoMCP, ProtoREST],
-        layers: {abiReady: true, ffiReady: true, adapterReady: false, sharedLibReady: true},
-        soHash: "sha256:abcdef01",
-        restPort: 0,
-        grpcPort: 0,
-        graphqlPort: 0,
-      },
-    ],
-    selectedCartridge: None,
-    umoja: {
-      active: true,
-      localNodeId: "panll-primary-001",
-      peers: [
-        {
-          nodeId: "boj-worker-002",
-          address: "127.0.0.1:7750",
-          state: PeerVerified,
-          gossipRound: 12,
-          catalogueDigest: "sha256:fedcba98",
-          lastSeen: 1709942380.0,
-        },
-      ],
-      currentRound: 12,
-    },
-    activeCategory: Dashboard,
-    invokeCartridge: "",
-    invokeTool: "",
-    invokeArgs: [],
-    invokeResult: None,
-    loading: false,
-    error: None,
-    filterText: "",
-    lastTypeCheck: None,
-    latencyLog: [],
-    umojaAddPeerInput: "",
-  },
-  cladeBrowser: {
-    ...CladeBrowserModel.defaultState,
-    clades: CladeBrowserEngine.builtinClades,
-    permissionRules: CladeBrowserEngine.defaultPermissionRules,
-  },
-  tentacles: TentaclesEngine.init(),
-  protocolSquisher: ProtocolSquisherEngine.defaultState,
-  myLang: MyLangEngine.defaultState,
-  typell: TypeLLEngine.defaultState,
-  busRegistry: PanelBus.defaultRegistry,
-  lastA2mlManifest: None,
-  lastA2mlValidation: None,
-  a2mlManifestPaths: [],
-  lastK9Contractile: None,
-  lastK9Layout: None,
-  k9KennelSchema: None,
-  k9YardContract: None,
-  seamRegister: SeamEngine.defaultRegister,
-  lastSeamAudit: None,
-  ensaidConfigPreview: None,
-  ensaidConfigError: None,
-  undoStack: [],
-  redoStack: [],
-  humidity: Medium,
-  barycentreTour: {
-    active: false,
-    currentStep: TourIntro,
-    completed: false,
-  },
-  menuBar: {
-    activeMenu: None,
-  },
-  viewMode: Standard,
-  paneLVisible: true,
-  paneNVisible: true,
-  paneWVisible: true,
-  protocolAnalysisVisible: false,
-  panelBarVisible: true,
-  fullscreenActive: false,
-  feedbackPending: None,
-  feedbackError: None,
-  feedbackReportType: Some("FeatureRequest"),
-  help: HelpEngine.defaultState,
-  accessibility: AccessibilityEngine.defaultState,
-  tiling: TilingEngine.defaultState,
-  focusDimming: FocusDimmingEngine.defaultState,
-  scriptGist: ScriptGistEngine.defaultState,
-  stapeln: StapelnEngine.defaultState,
-  evangeliser: EvangeliserEngine.defaultState,
-  languageForge: LanguageForgeEngine.defaultState,
-  tangleViz: TangleVizEngine.defaultState,
-  specBrowser: SpecBrowserModel.initial,
-  verificationDashboard: VerificationDashboardModel.initial,
-  observatory: ObservatoryEngine.defaultState,
-  ambientOps: AmbientOpsEngine.defaultState,
-  // Game Dev panels — testing
-  unitTestRunner: UnitTestRunnerEngine.defaultState,
-  functionalTester: FunctionalTesterEngine.defaultState,
-  regressionGuard: RegressionGuardEngine.defaultState,
-  performanceProfiler: PerformanceProfilerEngine.defaultState,
-  loadTester: LoadTesterEngine.defaultState,
-  soakMonitor: SoakMonitorEngine.defaultState,
-  compatibilityMatrix: CompatibilityMatrixEngine.defaultState,
-  exploratoryWorkbench: ExploratoryWorkbenchEngine.defaultState,
-  betaFeedbackHub: BetaFeedbackHubEngine.defaultState,
-  balanceAnalyser: BalanceAnalyserEngine.defaultState,
-  // Game Dev panels — bridges
-  typingBridge: TypingBridgeEngine.defaultState,
-  neurosymBridge: NeurosymBridgeEngine.defaultState,
-  agenticBridge: AgenticBridgeEngine.defaultState,
-  automationBridge: AutomationBridgeEngine.defaultState,
-  databaseBridge: DatabaseBridgeEngine.defaultState,
-  protocolBridge: ProtocolBridgeEngine.defaultState,
-  proofsBridge: ProofsBridgeEngine.defaultState,
-  scriptingBridge: ScriptingBridgeEngine.defaultState,
-  // Game Dev panels — game-specific
-  generatorMode: GeneratorModeEngine.defaultState,
-  architectMode: ArchitectModeEngine.defaultState,
-  guardAiTuner: GuardAiTunerEngine.defaultState,
-  deviceNetworkDesigner: DeviceNetworkDesignerEngine.defaultState,
-  assetManager: AssetManagerEngine.defaultState,
-  playtestRecorder: PlaytestRecorderEngine.defaultState,
-  codeReview: CodeReviewEngine.defaultState,
-  mergeCoordinator: MergeCoordinatorEngine.defaultState,
-  teamDashboard: TeamDashboardEngine.defaultState,
-  debuggingWorkbench: DebuggingWorkbenchEngine.defaultState,
-  wiringInspector: WiringInspectorEngine.defaultState,
-  // K9 and Contractile management panels
-  k9Manager: K9Model.init,
-  // Floor Raise campaign panels
-  floorRaise: FloorRaiseEngine.defaultState,
-  provenAdoption: ProvenAdoptionEngine.defaultState,
-  contractileCompleteness: ContractileCompletenessEngine.defaultState,
-  manifestCoverage: ManifestCoverageEngine.defaultState,
-  verisimdbFeeds: VerisimdbFeedsEngine.defaultState,
-  feedbackRouting: FeedbackRoutingEngine.defaultState,
-  vexometerFriction: VexometerFrictionEngine.defaultState,
-  llmCoding: LlmCodingEngine.init,
-  agentCoordination: AgentCoordinationEngine.init,
-  burble: BurbleEngine.defaultState,
-  serviceRegistry: {
-    services: Dict.make(),
-    lastChecked: None,
-    isRefreshing: false,
-  },
-  settings: {
-    verisimdbUrl: "http://localhost:8080",
-    echidnaUrl: "http://localhost:9000",
-    burbleUrl: "http://localhost:6473",
-    bojUrl: "http://localhost:7700",
-    typellUrl: "http://localhost:7800",
-    configDir: "~/.panll",
-    theme: "DarkStart",
-    autoSaveIntervalMs: 30000,
-    autoConnectServices: true,
-    isLoading: false,
-    error: None,
-    isDirty: false,
-  },
-  identity: {
-    snapshots: [],
-    activeSnapshotId: None,
-    isCapturing: false,
-    isRestoring: false,
-    error: None,
-  },
-}
diff --git a/src/Msg.affine b/src/Msg.affine
new file mode 100644
index 00000000..b1a59b85
--- /dev/null
+++ b/src/Msg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Msg;
+
+// TODO: Complete semantic implementation
diff --git a/src/Msg.res b/src/Msg.res
deleted file mode 100644
index 3a0a5a7f..00000000
--- a/src/Msg.res
+++ /dev/null
@@ -1,544 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Messages - the communication protocol for TEA updates.
-///
-/// Every user action, backend response, and timer pulse is encoded here so
-/// the Elm-style update loop can deterministically evolve the Binary Star
-/// state machine. Each domain message type lives in its own module under
-/// src/msg/ and is re-exported here via `include`. The unified `type msg`
-/// at the bottom references all sub-types.
-///
-/// Dependency graph (no cycles):
-///   src/msg/*Msg.res  <- Model (leaf types)
-///   Msg.res           <- all msg modules (this file)
-
-// -- Core pane messages --------------------------------------------------
-
-/// Re-export Pane-L (Symbolic) messages.
-include PaneLMsg
-
-/// Re-export Pane-N (Neural) messages.
-include PaneNMsg
-
-/// Re-export Pane-W (World/Barycentre) messages.
-include PaneWMsg
-
-/// Re-export Pane-A (Ambient) messages.
-include PaneAMsg
-
-// -- Cognitive governance messages ---------------------------------------
-
-/// Re-export Vexometer messages.
-include VexometerMsg
-
-/// Re-export Orbital stability messages.
-include OrbitalMsg
-
-/// Re-export View control messages.
-include ViewMsg
-
-/// Re-export Feedback-O-Tron messages.
-include FeedbackMsg
-
-/// Re-export Anti-Crash validation messages.
-include AntiCrashMsg
-
-// -- Backend service messages --------------------------------------------
-
-/// Re-export VeriSimDB database messages.
-include VeriSimDBMsg
-
-/// Re-export ECHIDNA theorem prover messages.
-include EchidnaMsg
-
-/// Re-export VAB (Verified Assembly Building) messages.
-include VabMsg
-
-/// Re-export CloudGuard Cloudflare messages.
-include CloudguardMsg
-
-/// Re-export BoJ cartridge server messages.
-include BojMsg
-
-/// Re-export unified Databases panel messages.
-include DatabasesMsg
-
-// -- Tool and panel messages ---------------------------------------------
-
-/// Re-export Git-Private-Farm messages.
-include FarmMsg
-
-/// Re-export Palimpsest Plaza messages.
-include PlazaMsg
-
-/// Re-export Hypatia neurosymbolic scanner messages.
-include HypatiaMsg
-
-/// Re-export Gitbot-Fleet messages.
-include FleetMsg
-
-/// Re-export Reposystem RSR compliance messages.
-include ReposystemMsg
-
-/// Re-export Aerie network diagnostics messages.
-include AerieMsg
-
-/// Re-export Interfaces ABI/FFI messages.
-include InterfacesMsg
-
-/// Re-export Playgrounds sandbox messages.
-include PlaygroundsMsg
-
-/// Re-export Panel Minter wizard messages.
-include MinterMsg
-
-/// Re-export Provisioner messages.
-include ProvisionerMsg
-
-/// Re-export Wizard messages.
-include WizardMsg
-
-/// Re-export Code MRI VoiceTag messages.
-include VoiceTagMsg
-
-/// Re-export Provenance Map messages.
-include ProvenanceMsg
-
-/// Re-export Watcher filesystem observation messages.
-include WatcherMsg
-
-/// Re-export AI panel messages.
-include AiMsg
-
-/// Re-export Repo Loader messages.
-include RepoLoaderMsg
-
-/// Re-export Panel Switcher messages.
-include PanelSwitcherMsg
-
-/// Re-export Workspace management messages.
-include WorkspaceMsg
-
-/// Re-export Capture messages.
-include CaptureMsg
-
-/// Re-export Security messages.
-include SecurityMsg
-
-/// Re-export Keybindings messages.
-include KeybindingsMsg
-
-/// Re-export Migration Observatory messages.
-include MigrationMsg
-
-/// Re-export panic-attack messages.
-include PanicAttackMsg
-
-/// Re-export Mass-panic batch scanning messages.
-include MassPanicMsg
-
-/// Re-export TSDM directive messages.
-include TsdmMsg
-
-/// Re-export Valence Shell terminal messages.
-include ValenceShellMsg
-
-/// Re-export Game Preview messages.
-include GamePreviewMsg
-
-/// Re-export VM Inspector messages.
-include VmInspectorMsg
-
-/// Re-export Network Topology messages.
-include NetworkTopologyMsg
-
-/// Re-export Level Architect messages.
-include LevelArchitectMsg
-
-/// Re-export Coprocessors messages.
-include CoprocessorsMsg
-
-/// Re-export Multiplayer Monitor messages.
-include MultiplayerMonitorMsg
-
-/// Re-export Universal Modding Studio messages.
-include UmsMsg
-
-/// Re-export DLC Workshop messages.
-include DlcWorkshopMsg
-
-/// Re-export Editor Bridge messages.
-include EditorBridgeMsg
-
-/// Re-export Build Dashboard messages.
-include BuildDashboardMsg
-
-/// Re-export Release Manager messages.
-include ReleaseManagerMsg
-
-/// Re-export Automation Router messages.
-include AutomationRouterMsg
-
-/// Re-export Script Gist messages.
-include ScriptGistMsg
-
-/// Re-export ENSAID_CONFIG messages.
-include EnsaidConfigMsg
-
-/// Re-export Code MRI Timeline messages.
-include TimelineMsg
-
-/// Re-export Code MRI Pattern Diagnostics messages (Layer 3).
-include PatternDiagMsg
-
-/// Re-export Code MRI Attribution-to-Licensing messages (Layer 4).
-include AttributionLicenseMsg
-
-/// Re-export Clade Browser messages.
-include CladeBrowserMsg
-
-/// Re-export Panel Bus messages.
-include PanelBusMsg
-
-/// Re-export 7-Tentacles compiler agent messages.
-include TentaclesMsg
-
-/// Re-export Protocol-Squisher messages.
-include ProtocolSquisherMsg
-
-/// Re-export My-Lang AI-native language messages.
-include MyLangMsg
-
-/// Re-export TypeLL verification kernel messages.
-include TypellMsg
-
-/// Re-export Observability messages.
-include ObservabilityMsg
-
-/// Re-export A2ML manifest messages.
-include A2mlMsg
-
-/// Re-export K9 contractile messages.
-include K9Msg
-
-/// Re-export Help system messages.
-include HelpMsg
-
-/// Re-export Accessibility toolbar messages.
-include AccessibilityMsg
-
-/// Re-export Tiling and multi-monitor messages.
-include TilingMsg
-
-/// Re-export Menu bar messages.
-include MenuBarMsg
-
-/// Re-export Focus dimming messages.
-include FocusDimmingMsg
-
-/// Re-export Stapeln container assembly messages.
-include StapelnMsg
-
-/// Re-export Evangeliser JS->ReScript messages.
-include EvangeliserMsg
-
-/// Re-export Language Forge messages.
-include LanguageForgeMsg
-
-/// Re-export TangleViz topological programming messages.
-include TangleVizMsg
-
-/// Re-export SpecBrowser language specification messages.
-include SpecBrowserMsg
-
-/// Re-export VerificationDashboard messages.
-include VerificationDashboardMsg
-
-/// Re-export Observatory integrative dashboard messages.
-include ObservatoryMsg
-
-/// Re-export AmbientOps hospital-model sysadmin messages.
-include AmbientOpsMsg
-
-// -- Game Testing panel messages -----------------------------------------
-
-/// Re-export Unit Test Runner messages.
-include UnitTestRunnerMsg
-
-/// Re-export Functional Tester messages.
-include FunctionalTesterMsg
-
-/// Re-export Regression Guard messages.
-include RegressionGuardMsg
-
-/// Re-export Performance Profiler messages.
-include PerformanceProfilerMsg
-
-/// Re-export Load Tester messages.
-include LoadTesterMsg
-
-/// Re-export Soak Monitor messages.
-include SoakMonitorMsg
-
-/// Re-export Compatibility Matrix messages.
-include CompatibilityMatrixMsg
-
-/// Re-export Exploratory Workbench messages.
-include ExploratoryWorkbenchMsg
-
-/// Re-export Beta Feedback Hub messages.
-include BetaFeedbackHubMsg
-
-/// Re-export Balance Analyser messages.
-include BalanceAnalyserMsg
-
-// -- Bridge panel messages -----------------------------------------------
-
-/// Re-export Typing Bridge messages.
-include TypingBridgeMsg
-
-/// Re-export Neurosymbolic Bridge messages.
-include NeurosymBridgeMsg
-
-/// Re-export Agentic Bridge messages.
-include AgenticBridgeMsg
-
-/// Re-export Automation Bridge messages.
-include AutomationBridgeMsg
-
-/// Re-export Database Bridge messages.
-include DatabaseBridgeMsg
-
-/// Re-export Protocol Bridge messages.
-include ProtocolBridgeMsg
-
-/// Re-export Proofs Bridge messages.
-include ProofsBridgeMsg
-
-/// Re-export Scripting Bridge messages.
-include ScriptingBridgeMsg
-
-// -- Game-specific panel messages ----------------------------------------
-
-/// Re-export Generator Mode messages.
-include GeneratorModeMsg
-
-/// Re-export Architect Mode messages.
-include ArchitectModeMsg
-
-/// Re-export Guard AI Tuner messages.
-include GuardAiTunerMsg
-
-/// Re-export Device Network Designer messages.
-include DeviceNetworkDesignerMsg
-
-/// Re-export Asset Manager messages.
-include AssetManagerMsg
-
-/// Re-export Playtest Recorder messages.
-include PlaytestRecorderMsg
-
-// -- Team / collaboration panel messages ---------------------------------
-
-/// Re-export Code Review messages.
-include CodeReviewMsg
-
-/// Re-export Merge Coordinator messages.
-include MergeCoordinatorMsg
-
-/// Re-export Team Dashboard messages.
-include TeamDashboardMsg
-
-/// Re-export Debugging Workbench messages.
-include DebuggingWorkbenchMsg
-
-// -- Infrastructure panel messages ---------------------------------------
-
-/// Re-export Wiring Inspector messages.
-include WiringInspectorMsg
-
-// -- Floor Raise campaign messages ---------------------------------------
-
-/// Re-export Floor Raise campaign dashboard messages.
-include FloorRaiseMsg
-
-/// Re-export Proven Adoption scanner messages.
-include ProvenAdoptionMsg
-
-/// Re-export Contractile Completeness scanner messages.
-include ContractileCompletenessMsg
-
-/// Re-export Manifest Coverage scanner messages.
-include ManifestCoverageMsg
-
-/// Re-export VeriSimDB Feeds viewer messages.
-include VerisimdbFeedsMsg
-
-/// Re-export Feedback Routing viewer messages.
-include FeedbackRoutingMsg
-
-/// Re-export Vexometer Friction viewer messages.
-include VexometerFrictionMsg
-
-// -- 007 Toolchain and VideoCoordination ---------------------------------
-
-/// Re-export 007 Toolchain messages.
-include Oo7Msg
-
-/// Re-export VideoCoordination messages.
-include VideoCoordinationMsg
-
-/// Re-export Service Registry messages (Connected Workbench v0.2.0).
-include ServiceMsg
-
-/// Re-export Settings messages (Connected Workbench v0.2.0).
-include SettingsMsg
-
-/// Re-export Identity messages (Connected Workbench v0.2.0).
-include IdentityMsg
-
-// -- The unified message type --------------------------------------------
-
-/// The unified message type
-type msg =
-  | PaneL(paneLMsg)
-  | PaneN(paneNMsg)
-  | PaneW(paneWMsg)
-  | PaneA(paneAMsg)
-  | VeriSimDB(verisimdbMsg)
-  | Echidna(echidnaMsg)
-  | Vexometer(vexometerMsg)
-  | Orbital(orbitalMsg)
-  | View(viewMsg)
-  | Feedback(feedbackMsg)
-  | AntiCrash(antiCrashMsg)
-  | Vab(vabMsg)
-  | CloudGuard(cloudguardMsg) // Cloudflare domain security management
-  | Farm(farmMsg) // Git-Private-Farm repo inventory
-  | Plaza(plazaMsg) // Palimpsest Plaza PMPL licensing
-  | Hypatia(hypatiaMsg) // Hypatia neurosymbolic scanner
-  | Fleet(fleetMsg) // Gitbot-Fleet orchestration
-  | Reposystem(reposystemMsg) // RSR compliance auditing
-  | Aerie(aerieMsg) // Network diagnostics
-  | Oo7Toolchain(oo7Msg) // Agentic compiler and high-rigor execution
-  | VideoCoordination(videoCoordinationMsg) // Drive-to-Photos batch transfer dashboard
-  | Interfaces(interfacesMsg) // ABI/FFI inventory
-  | Playgrounds(playgroundsMsg) // Code sandbox
-  | Minter(minterMsg) // Panel Minter wizard
-  | Provisioner(provisionerMsg) // Portfolio bundles, config, isolation
-  | VoiceTag(voiceTagMsg) // Code MRI Layer 0 -- voice-activated annotation
-  | Provenance(provenanceMsg) // Code trust surface (core infrastructure)
-  | Watcher(watcherMsg) // Filesystem observation (core infrastructure)
-  | Ai(aiMsg) // Multi-provider AI neural interface
-  | RepoLoader(repoLoaderMsg) // Repository scanner and panel configuration
-  | PanelSwitcher(panelSwitcherMsg) // Panel navigation and health checks
-  | Workspace(workspaceMsg) // Workspace management layer (DD-022–DD-027)
-  | Capture(captureMsg) // Screenshots, recordings, demos (DD-022)
-  | Security(securityMsg) // Redaction, vault, 2FA, Trustfile (DD-026/027)
-  | Wizard(wizardMsg) // Plugin/panel creation wizard
-  | Keybindings(keybindingsMsg) // Keyboard shortcut management
-  | Migration(migrationMsg) // ReScript Migration Observatory
-  | PanicAttack(panicAttackMsg) // Stress testing and bug detection
-  | MassPanic(massPanicMsg) // Organisation-scale batch scanning
-  | Tsdm(tsdmMsg) // TSDM directive -- triaxial priority ordering
-  | ValenceShell(valenceShellMsg) // Embedded terminal with Claude Code
-  | GamePreview(gamePreviewMsg) // Live IDApTIK game preview
-  | VmInspector(vmInspectorMsg) // Reversible VM visual debugger
-  | NetworkTopology(networkTopologyMsg) // IDApTIK in-game network graph
-  | LevelArchitect(levelArchitectMsg) // Visual level design tool
-  | Coprocessors(coprocessorsMsg) // Coprocessor backend monitoring
-  | MultiplayerMonitor(multiplayerMonitorMsg) // Phoenix sync server inspector
-  | DlcWorkshop(dlcWorkshopMsg) // DLC puzzle pack creation and testing
-  | Ums(umsMsg) // Universal Modding Studio -- unified game content creation hub
-  | EditorBridge(editorBridgeMsg) // External code editor federation (LSP)
-  | BuildDashboard(buildDashboardMsg) // Build/test/error monitoring
-  | ReleaseManager(releaseManagerMsg) // Versioning, changelog, distribution
-  | AutomationRouter(automationRouterMsg) // Hybrid cross-panel workflow orchestration
-  | ScriptGist(scriptGistMsg) // Portable computation gists (Minskian cardfiles)
-  | Databases(databasesMsg) // Unified database management (VeriSimDB/QuandleDB/LithoGlyph)
-  | Boj(bojMsg) // Bundle of Joy cartridge server
-  | CladeBrowser(cladeBrowserMsg) // Clade taxonomy browser
-  | Tentacles(tentaclesMsg) // 7-Tentacles compiler agent orchestra
-  | ProtocolSquisher(protocolSquisherMsg) // Format analysis and compatibility
-  | MyLang(myLangMsg) // AI-native language workbench
-  | TypeLL(typellMsg) // Verification kernel (cross-panel type intelligence)
-  | EnsaidConfig(ensaidConfigMsg) // Cross-panel ENSAID_CONFIG generation and I/O
-  | Timeline(timelineMsg) // Code MRI Layer 2 -- VeriSimDB development timeline
-  | PatternDiag(patternDiagMsg) // Code MRI Layer 3 -- pattern diagnostics + gamification
-  | AttrLicense(attributionLicenseMsg) // Code MRI Layer 4 -- attribution-to-licensing
-  | Bus(panelBusMsg) // Panel Bus subscriber management
-  | RecordBojLatency(string, string, float) // cartridge, tool, elapsed ms
-  | GovernanceNesyResult(result<string, string>) // nesy-mcp governance query response
-  | GovernanceNesyValidateResult(result<string, string>) // nesy-mcp adjustment validation
-  | GovernanceNesyProbeResult(result<string, string>) // nesy-mcp stability probe
-  | Observability(observabilityMsg) // SARIF export and OpenTelemetry via observe-mcp
-  | A2ml(a2mlMsg) // AI manifest parsing and validation
-  | K9(k9Msg) // K9 contractile configuration and layout
-  | AuditSeams // Run compliance seam audit against exception register
-  | SeamAuditResult(SeamEngine.seamAuditResult) // Result of seam audit
-  | Help(helpMsg) // In-app help, glossary, onboarding
-  | MenuBar(menuBarMsg) // Standard application menu bar
-  | AccessibilityCtrl(accessibilityMsg) // Accessibility toolbar preferences
-  | Tiling(tilingMsg) // Multi-monitor panel detachment and tiling
-  | FocusDimming(focusDimmingMsg) // Focus-aware dimming and Smart Memory Mode
-  | Stapeln(stapelnMsg) // Stapeln container assembly pipeline
-  | Evangeliser(evangeliserMsg) // ReScript Evangeliser -- JS->ReScript teaching
-  | LanguageForge(languageForgeMsg) // Language Forge -- nextgen-languages portfolio
-  | TangleViz(tangleVizMsg) // Topological programming visualizer (braids, knots, invariants)
-  | SpecBrowser(specBrowserMsg) // Language specification browser -- grammars, typing rules, taxonomy
-  | VerificationDashboard(verificationDashboardMsg) // Proof/test/benchmark/fuzzing status
-  | Observatory(observatoryMsg) // Integrative dashboard -- cross-panel health and resources
-  | AmbientOps(ambientOpsMsg) // Hospital-model sysadmin -- clinician, network, hardware
-  // Game Testing panels
-  | UnitTestRunner(unitTestRunnerMsg) // ReScript test execution, coverage heatmap
-  | FunctionalTester(functionalTesterMsg) // End-to-end game workflow simulation
-  | RegressionGuard(regressionGuardMsg) // Snapshot comparison and golden-file testing
-  | PerformanceProfiler(performanceProfilerMsg) // Frame budget, GC pressure, flamegraphs
-  | LoadTester(loadTesterMsg) // Phoenix channel stress testing
-  | SoakMonitor(soakMonitorMsg) // Long-running session memory trend
-  | CompatibilityMatrix(compatibilityMatrixMsg) // Browser/device/resolution test matrix
-  | ExploratoryWorkbench(exploratoryWorkbenchMsg) // Freeform play session recording
-  | BetaFeedbackHub(betaFeedbackHubMsg) // Feedback-o-tron integration, sentiment
-  | BalanceAnalyser(balanceAnalyserMsg) // Game balance stats, Monte Carlo
-  // Bridge panels
-  | TypingBridge(typingBridgeMsg) // TypeLL type constraints for game state
-  | NeurosymBridge(neurosymBridgeMsg) // Guard AI behaviour reasoning via ECHIDNA
-  | AgenticBridge(agenticBridgeMsg) // Automated playtesting agents with OODA
-  | AutomationBridge(automationBridgeMsg) // CI/CD pipeline orchestration
-  | DatabaseBridge(databaseBridgeMsg) // VeriSimDB game state persistence
-  | ProtocolBridge(protocolBridgeMsg) // Multiplayer sync protocol analysis
-  | ProofsBridge(proofsBridgeMsg) // Proven repo formal verification
-  | ScriptingBridge(scriptingBridgeMsg) // VM instruction scripting REPL
-  // Game-specific panels
-  | GeneratorMode(generatorModeMsg) // Parametric procedural world builder
-  | ArchitectMode(architectModeMsg) // PixiJS fine-grained level editor
-  | GuardAiTuner(guardAiTunerMsg) // Guard patrol, alert threshold tuning
-  | DeviceNetworkDesigner(deviceNetworkDesignerMsg) // Wire devices, security levels
-  | AssetManager(assetManagerMsg) // PixiJS sprites, sounds, templates
-  | PlaytestRecorder(playtestRecorderMsg) // Record + replay sessions
-  // Team / collaboration panels
-  | CodeReview(codeReviewMsg) // PR review, inline comments, approval gates
-  | MergeCoordinator(mergeCoordinatorMsg) // Branch management, conflict resolution
-  | TeamDashboard(teamDashboardMsg) // Team presence, activity feed, progress
-  | DebuggingWorkbench(debuggingWorkbenchMsg) // Time-travel debugging, state inspection
-  // Infrastructure panels
-  | WiringInspector(wiringInspectorMsg) // PCC constraint state and bottleneck analysis
-  // Floor Raise panels -- foundational tool adoption campaign
-  | FloorRaise(floorRaiseMsg) // Floor Raise campaign dashboard
-  | ProvenAdoption(provenAdoptionMsg) // Proven library adoption scanner
-  | ContractileCompleteness(contractileCompletenessMsg) // Contractile coverage scanner
-  | ManifestCoverage(manifestCoverageMsg) // AI manifest coverage scanner
-  | VerisimdbFeeds(verisimdbFeedsMsg) // VeriSimDB data feed viewer
-  | FeedbackRouting(feedbackRoutingMsg) // Feedback-o-Tron routing viewer
-  | VexometerFriction(vexometerFrictionMsg) // Vexometer friction viewer
-  | SystemUpdate(SystemUpdateMsg.systemUpdateMsg) // System component update management
-  | Burble(BurbleModel.burbleMsg) // Burble voice huddle (groove-aware)
-  | Service(serviceMsg) // Service registry lifecycle (Connected Workbench v0.2.0)
-  | Settings(settingsMsg) // User configuration (Connected Workbench v0.2.0)
-  | Identity(identityMsg) // Identity snapshots + team replication (Connected Workbench v0.2.0)
-  | Undo // Undo last significant action
-  | Redo // Redo last undone action
-  | SaveState // Persist current state to storage
-  | VeriSimDBStateLoaded(result<string, string>) // Async state restored from VeriSimDB
-  | VeriSimDBStateSaved(result<string, string>) // Confirmation/error from VeriSimDB save
-  | NoOp
diff --git a/src/Storage.affine b/src/Storage.affine
new file mode 100644
index 00000000..7cd202fd
--- /dev/null
+++ b/src/Storage.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Storage;
+
+// TODO: Complete semantic implementation
diff --git a/src/Storage.res b/src/Storage.res
deleted file mode 100644
index 19e6a1b3..00000000
--- a/src/Storage.res
+++ /dev/null
@@ -1,588 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Storage module for persisting PanLL state between sessions.
-///
-/// Uses localStorage for now (Gossamer storage API can be added later).
-/// Handles serialization/deserialization of Model types to/from JSON.
-
-open Model
-
-// Storage key for localStorage
-let storageKey = "panll_state_v1"
-
-// Type for serializable state (subset of model that should persist)
-type persistedState = {
-  // User work (Priority 1)
-  constraints: array<symbolicConstraint>,
-  editorContent: string,
-  neuralTokens: array<neuralToken>,
-  worldContent: string,
-  // Event chain data (Priority 1 - imported analysis results)
-  eventChain: array<eventChainEvent>,
-  eventChainSummary: option<eventChainSummary>,
-  eventChainTimeline: option<eventChainTimeline>,
-  // User preferences (Priority 2)
-  viewMode: viewMode,
-  paneLVisible: bool,
-  paneNVisible: bool,
-  paneWVisible: bool,
-  humidity: humidityLevel,
-  // Session state (Priority 3)
-  vexometerIndex: float,
-  orbitalStability: float,
-}
-
-// Convert OODA phase to string
-let oodaPhaseToString = (phase: oodaPhase): string => {
-  switch phase {
-  | Observe => "Observe"
-  | Orient => "Orient"
-  | Decide => "Decide"
-  | Act => "Act"
-  }
-}
-
-// Convert string to OODA phase
-let stringToOodaPhase = (str: string): oodaPhase => {
-  switch str {
-  | "Orient" => Orient
-  | "Decide" => Decide
-  | "Act" => Act
-  | _ => Observe // Default
-  }
-}
-
-// Convert viewMode to string
-let viewModeToString = (mode: viewMode): string => {
-  switch mode {
-  | Standard => "Standard"
-  | LightMode => "LightMode"
-  | Ambient => "Ambient"
-  | Zen => "Zen"
-  | DarkStart => "DarkStart"
-  }
-}
-
-// Convert string to viewMode
-let stringToViewMode = (str: string): viewMode => {
-  switch str {
-  | "LightMode" => LightMode
-  | "Ambient" => Ambient
-  | "Zen" => Zen
-  | "DarkStart" => DarkStart
-  | _ => Standard // Default
-  }
-}
-
-// Convert humidity level to string
-let humidityToString = (humidity: humidityLevel): string => {
-  switch humidity {
-  | High => "High"
-  | Medium => "Medium"
-  | Low => "Low"
-  }
-}
-
-// Convert string to humidity level
-let stringToHumidity = (str: string): humidityLevel => {
-  switch str {
-  | "High" => High
-  | "Low" => Low
-  | _ => Medium // Default
-  }
-}
-
-// Extract persisted state from model
-let extractPersistedState = (model: model): persistedState => {
-  constraints: model.paneL.constraints,
-  editorContent: model.paneL.editorContent,
-  neuralTokens: model.paneN.tokens,
-  worldContent: model.paneW.content,
-  eventChain: model.paneW.eventChain,
-  eventChainSummary: model.paneW.eventChainSummary,
-  eventChainTimeline: model.paneW.eventChainTimeline,
-  viewMode: model.viewMode,
-  paneLVisible: model.paneLVisible,
-  paneNVisible: model.paneNVisible,
-  paneWVisible: model.paneWVisible,
-  humidity: model.humidity,
-  vexometerIndex: model.vexometer.index,
-  orbitalStability: model.orbital.stability,
-}
-
-// Build a plain JS object from persisted state for JSON serialization
-let toJsonObject = (state: persistedState): JSON.t => {
-  let constraints = state.constraints->Array.map(c => {
-    let d = Dict.make()
-    d->Dict.set("id", JSON.Encode.string(c.id))
-    d->Dict.set("expression", JSON.Encode.string(c.expression))
-    d->Dict.set("active", JSON.Encode.bool(c.active))
-    d->Dict.set("pinned", JSON.Encode.bool(c.pinned))
-    JSON.Encode.object(d)
-  })
-  let sourceToString = (s: tokenSource): string =>
-    switch s {
-    | NeuralInference => "neural"
-    | EchidnaProver => "echidna"
-    | TypeLLKernel => "typell"
-    | VeriSimInference => "verisim"
-    | AntiCrashGate => "anticrash"
-    | OperatorInput => "operator"
-    | OrbitalSync => "orbital"
-    }
-  let categoryToString = (c: tokenCategory): string =>
-    switch c {
-    | Observation => "observation"
-    | Hypothesis => "hypothesis"
-    | Deduction => "deduction"
-    | Abduction => "abduction"
-    | ProofStep => "proof"
-    | Violation => "violation"
-    | Correction => "correction"
-    | Synthesis => "synthesis"
-    }
-  let phaseToString = (p: oodaPhase): string =>
-    switch p {
-    | Observe => "observe"
-    | Orient => "orient"
-    | Decide => "decide"
-    | Act => "act"
-    }
-  let tokens = state.neuralTokens->Array.map(t => {
-    let d = Dict.make()
-    d->Dict.set("id", JSON.Encode.string(t.id))
-    d->Dict.set("content", JSON.Encode.string(t.content))
-    d->Dict.set("timestamp", JSON.Encode.float(t.timestamp))
-    d->Dict.set("confidence", JSON.Encode.float(t.confidence))
-    d->Dict.set("validated", JSON.Encode.bool(t.validated))
-    d->Dict.set("source", JSON.Encode.string(sourceToString(t.source)))
-    d->Dict.set("category", JSON.Encode.string(categoryToString(t.category)))
-    d->Dict.set("emittedDuring", JSON.Encode.string(phaseToString(t.emittedDuring)))
-    d->Dict.set("causedBy", JSON.Encode.array(t.causedBy->Array.map(JSON.Encode.string)))
-    switch t.proofHash {
-    | Some(h) => d->Dict.set("proofHash", JSON.Encode.string(h))
-    | None => ()
-    }
-    JSON.Encode.object(d)
-  })
-  let eventChainEvents = state.eventChain->Array.map(e => {
-    let d = Dict.make()
-    d->Dict.set("id", JSON.Encode.string(e.id))
-    d->Dict.set("axis", JSON.Encode.string(e.axis))
-    switch e.startMs {
-    | Some(ms) => d->Dict.set("startMs", JSON.Encode.float(ms))
-    | None => ()
-    }
-    d->Dict.set("durationMs", JSON.Encode.float(e.durationMs))
-    d->Dict.set("intensity", JSON.Encode.string(e.intensity))
-    d->Dict.set("status", JSON.Encode.string(e.status))
-    switch e.peakMemory {
-    | Some(mem) => d->Dict.set("peakMemory", JSON.Encode.float(mem))
-    | None => ()
-    }
-    switch e.notes {
-    | Some(n) => d->Dict.set("notes", JSON.Encode.string(n))
-    | None => ()
-    }
-    JSON.Encode.object(d)
-  })
-  let root = Dict.make()
-  root->Dict.set("constraints", JSON.Encode.array(constraints))
-  root->Dict.set("editorContent", JSON.Encode.string(state.editorContent))
-  root->Dict.set("neuralTokens", JSON.Encode.array(tokens))
-  root->Dict.set("worldContent", JSON.Encode.string(state.worldContent))
-  root->Dict.set("eventChain", JSON.Encode.array(eventChainEvents))
-  switch state.eventChainSummary {
-  | Some(summary) => {
-      let d = Dict.make()
-      d->Dict.set("program", JSON.Encode.string(summary.program))
-      d->Dict.set("weakPoints", JSON.Encode.int(summary.weakPoints))
-      d->Dict.set("criticalWeakPoints", JSON.Encode.int(summary.criticalWeakPoints))
-      d->Dict.set("totalCrashes", JSON.Encode.int(summary.totalCrashes))
-      d->Dict.set("robustnessScore", JSON.Encode.float(summary.robustnessScore))
-      root->Dict.set("eventChainSummary", JSON.Encode.object(d))
-    }
-  | None => ()
-  }
-  switch state.eventChainTimeline {
-  | Some(timeline) => {
-      let d = Dict.make()
-      d->Dict.set("durationMs", JSON.Encode.float(timeline.durationMs))
-      d->Dict.set("events", JSON.Encode.int(timeline.events))
-      root->Dict.set("eventChainTimeline", JSON.Encode.object(d))
-    }
-  | None => ()
-  }
-  root->Dict.set("viewMode", JSON.Encode.string(viewModeToString(state.viewMode)))
-  root->Dict.set("paneLVisible", JSON.Encode.bool(state.paneLVisible))
-  root->Dict.set("paneNVisible", JSON.Encode.bool(state.paneNVisible))
-  root->Dict.set("paneWVisible", JSON.Encode.bool(state.paneWVisible))
-  root->Dict.set("humidity", JSON.Encode.string(humidityToString(state.humidity)))
-  root->Dict.set("vexometerIndex", JSON.Encode.float(state.vexometerIndex))
-  root->Dict.set("orbitalStability", JSON.Encode.float(state.orbitalStability))
-  JSON.Encode.object(root)
-}
-
-// Serialize persisted state to JSON string
-let serialize = (state: persistedState): string => {
-  JSON.stringify(toJsonObject(state))
-}
-
-// Raw localStorage helpers that receive values as arguments
-let setItem: (
-  string,
-  string,
-) => unit = %raw(`function(key, value) { localStorage.setItem(key, value) }`)
-
-/// Save model to localStorage (synchronous) and VeriSimDB (async fire-and-forget).
-///
-/// localStorage is always written first as the fast synchronous fallback.
-/// If a Gossamer runtime is available, the state is also persisted to
-/// VeriSimDB for cross-session durability and identity snapshot support.
-let save = (model: model): unit => {
-  try {
-    let state = extractPersistedState(model)
-    let json = serialize(state)
-    // Always write localStorage (fast, synchronous)
-    setItem(storageKey, json)
-    // Also persist to VeriSimDB (async, fire-and-forget)
-    if RuntimeBridge.isGossamerRuntime() {
-      RuntimeBridge.invoke("verisimdb_save_state", {"key": storageKey, "state": json})
-      ->Promise.catch(_err => {
-        Console.warn("VeriSimDB state save failed — localStorage backup active")
-        Promise.resolve()
-      })
-      ->ignore
-    }
-  } catch {
-  | exn => Console.error2("Failed to save state:", exn)
-  }
-}
-
-// ── Token source/category/phase string parsers (used by decoders) ────
-
-/// Parse a token source string into a tokenSource variant.
-let parseSource = (s: string): tokenSource =>
-  switch s {
-  | "echidna" => EchidnaProver
-  | "typell" => TypeLLKernel
-  | "verisim" => VeriSimInference
-  | "anticrash" => AntiCrashGate
-  | "operator" => OperatorInput
-  | "orbital" => OrbitalSync
-  | _ => NeuralInference
-  }
-
-/// Parse a token category string into a tokenCategory variant.
-let parseCategory = (s: string): tokenCategory =>
-  switch s {
-  | "hypothesis" => Hypothesis
-  | "deduction" => Deduction
-  | "abduction" => Abduction
-  | "proof" => ProofStep
-  | "violation" => Violation
-  | "correction" => Correction
-  | "synthesis" => Synthesis
-  | _ => Observation
-  }
-
-/// Parse an OODA phase string into an oodaPhase variant.
-let parsePhase = (s: string): oodaPhase =>
-  switch s {
-  | "orient" => Orient
-  | "decide" => Decide
-  | "act" => Act
-  | _ => Observe
-  }
-
-// ── Tea_Json decoders for persisted state ────────────────────────────
-
-/// Tea_Json decoder for a symbolic constraint.
-let constraintDecoder: Tea_Json.decoder<symbolicConstraint> = {
-  open Decoders
-  open Tea_Json
-  map4((id, expression, active, pinned): symbolicConstraint => {
-    id,
-    expression,
-    active,
-    pinned,
-  }, stringField(
-    "id",
-  ), stringField("expression"), fieldWithDefault("active", bool, true), boolField("pinned"))
-}
-
-/// Tea_Json decoder for a neural token.
-let neuralTokenDecoder: Tea_Json.decoder<neuralToken> = {
-  open Decoders
-  open Tea_Json
-  map10(
-    (
-      id,
-      content,
-      timestamp,
-      confidence,
-      validated,
-      sourceStr,
-      categoryStr,
-      phaseStr,
-      causedBy,
-      proofHash,
-    ): neuralToken => {
-      id,
-      content,
-      timestamp,
-      confidence,
-      validated,
-      source: parseSource(sourceStr),
-      category: parseCategory(categoryStr),
-      emittedDuring: parsePhase(phaseStr),
-      causedBy,
-      proofHash,
-    },
-    stringField("id"),
-    stringField("content"),
-    floatField("timestamp"),
-    floatField("confidence"),
-    boolField("validated"),
-    fieldWithDefault("source", string, "neural"),
-    fieldWithDefault("category", string, "observation"),
-    fieldWithDefault("emittedDuring", string, "observe"),
-    stringArrayField("causedBy"),
-    optionalFieldDecoder("proofHash", string),
-  )
-}
-
-/// Tea_Json decoder for a persisted event chain event (camelCase field names).
-let eventChainEventDecoder: Tea_Json.decoder<eventChainEvent> = {
-  open Decoders
-  open Tea_Json
-  map8((id, axis, startMs, durationMs, intensity, status, peakMemory, notes): eventChainEvent => {
-    id,
-    axis,
-    startMs,
-    durationMs,
-    intensity,
-    status,
-    peakMemory,
-    notes,
-  }, stringField(
-    "id",
-  ), stringField(
-    "axis",
-  ), optionalFieldDecoder(
-    "startMs",
-    float,
-  ), floatField(
-    "durationMs",
-  ), stringField(
-    "intensity",
-  ), stringField(
-    "status",
-  ), optionalFieldDecoder("peakMemory", float), optionalFieldDecoder("notes", string))
-}
-
-/// Tea_Json decoder for a persisted event chain summary (camelCase field names).
-let summaryDecoder: Tea_Json.decoder<eventChainSummary> = {
-  open Decoders
-  open Tea_Json
-  map5(
-    (program, weakPoints, criticalWeakPoints, totalCrashes, robustnessScore): eventChainSummary => {
-      program,
-      weakPoints,
-      criticalWeakPoints,
-      totalCrashes,
-      robustnessScore,
-    },
-    stringField("program"),
-    intField("weakPoints"),
-    intField("criticalWeakPoints"),
-    intField("totalCrashes"),
-    floatField("robustnessScore"),
-  )
-}
-
-/// Tea_Json decoder for a persisted event chain timeline (camelCase field names).
-let timelineDecoder: Tea_Json.decoder<eventChainTimeline> = {
-  open Decoders
-  open Tea_Json
-  map2((durationMs, events): eventChainTimeline => {
-    durationMs,
-    events,
-  }, floatField("durationMs"), intField("events"))
-}
-
-/// Tea_Json decoder for the full persisted state.
-let persistedStateDecoder: Tea_Json.decoder<persistedState> = {
-  open Decoders
-  open Tea_Json
-  map13(
-    (
-      constraints,
-      editorContent,
-      neuralTokens,
-      worldContent,
-      eventChain,
-      eventChainSummary,
-      eventChainTimeline,
-      viewModeStr,
-      paneLVisible,
-      paneNVisible,
-      paneWVisible,
-      humidityStr,
-      vexAndOrbital,
-    ) => {
-      let (vexometerIndex, orbitalStability) = vexAndOrbital
-      (
-        {
-          constraints,
-          editorContent,
-          neuralTokens,
-          worldContent,
-          eventChain,
-          eventChainSummary,
-          eventChainTimeline,
-          viewMode: stringToViewMode(viewModeStr),
-          paneLVisible,
-          paneNVisible,
-          paneWVisible,
-          humidity: stringToHumidity(humidityStr),
-          vexometerIndex,
-          orbitalStability,
-        }: persistedState
-      )
-    },
-    fieldWithDefault("constraints", lenientArray(constraintDecoder), []),
-    stringField("editorContent"),
-    fieldWithDefault("neuralTokens", lenientArray(neuralTokenDecoder), []),
-    stringField("worldContent"),
-    fieldWithDefault("eventChain", lenientArray(eventChainEventDecoder), []),
-    optionalFieldDecoder("eventChainSummary", summaryDecoder),
-    optionalFieldDecoder("eventChainTimeline", timelineDecoder),
-    fieldWithDefault("viewMode", string, "DarkStart"),
-    fieldWithDefault("paneLVisible", bool, true),
-    fieldWithDefault("paneNVisible", bool, true),
-    fieldWithDefault("paneWVisible", bool, true),
-    fieldWithDefault("humidity", string, "Medium"),
-    // Pack the last two floats into a tuple to fit map13
-    map2(
-      (vex, orb) => (vex, orb),
-      floatField("vexometerIndex"),
-      fieldWithDefault("orbitalStability", float, 1.0),
-    ),
-  )
-}
-
-/// Reconstruct a model from persisted state.
-let modelFromPersisted = (state: persistedState): model => {
-  let baseModel = init()
-  {
-    ...baseModel,
-    paneL: {
-      ...baseModel.paneL,
-      constraints: state.constraints,
-      editorContent: state.editorContent,
-    },
-    paneN: {
-      ...baseModel.paneN,
-      tokens: state.neuralTokens,
-      nextTokenId: Array.length(state.neuralTokens),
-      activeCausalChain: switch state.neuralTokens->Array.at(-1) {
-      | Some(last) => [last.id]
-      | None => []
-      },
-    },
-    paneW: {
-      ...baseModel.paneW,
-      content: state.worldContent,
-      eventChain: state.eventChain,
-      eventChainSummary: state.eventChainSummary,
-      eventChainTimeline: state.eventChainTimeline,
-    },
-    viewMode: state.viewMode,
-    paneLVisible: state.paneLVisible,
-    paneNVisible: state.paneNVisible,
-    paneWVisible: state.paneWVisible,
-    humidity: state.humidity,
-    vexometer: {
-      ...baseModel.vexometer,
-      index: state.vexometerIndex,
-    },
-    orbital: {
-      ...baseModel.orbital,
-      stability: state.orbitalStability,
-    },
-  }
-}
-
-// Load persisted state from localStorage and merge with initial model
-let load = (): option<model> => {
-  try {
-    let getItem: string => option<
-      string,
-    > = %raw(`function(key) { var v = localStorage.getItem(key); return v === null ? undefined : v }`)
-    let json: option<string> = getItem(storageKey)
-
-    switch json {
-    | None => None
-    | Some(jsonStr) =>
-      switch Decoders.decodeOption(persistedStateDecoder, jsonStr) {
-      | Some(state) => Some(modelFromPersisted(state))
-      | None => None
-      }
-    }
-  } catch {
-  | exn => {
-      Console.error2("Failed to load state:", exn)
-      None
-    }
-  }
-}
-
-// Raw localStorage remove helper
-let removeItem: string => unit = %raw(`function(key) { localStorage.removeItem(key) }`)
-
-// Clear persisted state
-let clear = (): unit => {
-  try {
-    removeItem(storageKey)
-  } catch {
-  | exn => Console.error2("Failed to clear state:", exn)
-  }
-}
-
-// ===========================================================================
-// VeriSimDB Async Persistence (Connected Workbench v0.2.0)
-// ===========================================================================
-
-/// Load persisted state from VeriSimDB (async).
-///
-/// Returns `Some(model)` if VeriSimDB holds valid state, `None` otherwise.
-/// Used at startup after the synchronous localStorage load to upgrade to
-/// the latest VeriSimDB-backed state if available.
-let loadFromVeriSimDB = (): promise<option<model>> => {
-  if RuntimeBridge.isGossamerRuntime() {
-    RuntimeBridge.invoke("verisimdb_load_state", {"key": storageKey})
-    ->Promise.then(jsonStr => {
-      // VeriSimDB returns the state wrapper — extract the inner state JSON
-      let stateJson = switch JSON.parseExn(jsonStr)->JSON.Classify.classify {
-      | Object(d) =>
-        switch d->Dict.get("state") {
-        | Some(v) =>
-          switch JSON.Classify.classify(v) {
-          | String(s) => s
-          | _ => jsonStr
-          }
-        | None => jsonStr
-        }
-      | _ => jsonStr
-      }
-      switch Decoders.decodeOption(persistedStateDecoder, stateJson) {
-      | Some(state) => Promise.resolve(Some(modelFromPersisted(state)))
-      | None => Promise.resolve(None)
-      }
-    })
-    ->Promise.catch(_err => Promise.resolve(None))
-  } else {
-    Promise.resolve(None)
-  }
-}
diff --git a/src/SubscriptionsFixed.affine b/src/SubscriptionsFixed.affine
new file mode 100644
index 00000000..3f8277e5
--- /dev/null
+++ b/src/SubscriptionsFixed.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module SubscriptionsFixed;
+
+// TODO: Complete semantic implementation
diff --git a/src/SubscriptionsFixed.res b/src/SubscriptionsFixed.res
deleted file mode 100644
index 16b87bf4..00000000
--- a/src/SubscriptionsFixed.res
+++ /dev/null
@@ -1,256 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Subscriptions — External event handling (Custom TEA version).
-///
-/// This module defines all subscriptions (external events) that the PanLL
-/// environment listens to, following the TEA pattern.
-///
-/// Keyboard shortcuts now use KeybindingsEngine for lookup instead of
-/// hardcoded switch arms. This makes shortcuts customisable via the
-/// Workspace panel's Keybindings configurator tab.
-
-open Model
-open Msg
-
-/// Map a keybinding action to its corresponding msg. This is the bridge
-/// between the configurable keybinding map and the TEA message dispatch.
-let actionToMsg = (action: KeybindingsModel.keybindingAction): msg => {
-  switch action {
-  | ActionUndo => Undo
-  | ActionRedo => Redo
-  | ActionSave => SaveState
-  | ActionPrint => NoOp // Print needs the active panel ID — handled specially
-  | ActionResetPanel => Workspace(ResetPanel("active"))
-  | ActionResetAll => Workspace(ResetAllPanels)
-  | ActionTogglePaneL => View(TogglePaneL)
-  | ActionTogglePaneN => View(TogglePaneN)
-  | ActionTogglePaneW => View(TogglePaneW)
-  | ActionToggleVab => PanelSwitcher(TogglePanel(PanelVab))
-  | ActionTogglePanelBar => View(TogglePanelBar)
-  | ActionFullscreen => View(ToggleFullscreen)
-  | ActionCloseOverlay => PanelSwitcher(ClosePanels)
-  | ActionToggleCapture => PanelSwitcher(TogglePanel(PanelCapture))
-  | ActionToggleWorkspace => PanelSwitcher(TogglePanel(PanelWorkspace))
-  | ActionToggleSecurity => PanelSwitcher(TogglePanel(PanelSecurity))
-  | ActionCycleWorkspaceMode => Workspace(CycleWorkspaceMode)
-  | ActionToggleDryRun => Workspace(ToggleDryRun)
-  }
-}
-
-/// Main subscriptions function — keyboard shortcuts + polling.
-let subscriptions = (model: model): Tea_Sub.t<msg> => {
-  Tea_Sub.batch(list{
-    // Keyboard shortcuts via configurable keybinding map.
-    KeyboardFixed.onKeyDown(evt => {
-      // If keybinding editor is in recording mode, capture the key for rebinding.
-      if model.keybindings.recording {
-        let modifiers = {
-          let mods = []
-          let mods = if evt.ctrlKey {
-            Array.concat(mods, [KeybindingsModel.Ctrl])
-          } else {
-            mods
-          }
-          let mods = if evt.shiftKey {
-            Array.concat(mods, [KeybindingsModel.Shift])
-          } else {
-            mods
-          }
-          let mods = if evt.altKey {
-            Array.concat(mods, [KeybindingsModel.Alt])
-          } else {
-            mods
-          }
-          let mods = if evt.metaKey {
-            Array.concat(mods, [KeybindingsModel.Meta])
-          } else {
-            mods
-          }
-          mods
-        }
-        Keybindings(RecordKey({modifiers, key: evt.key}))
-      } else {
-        // Look up the key event in the keybinding map.
-        let action = KeybindingsEngine.lookup(
-          model.keybindings.bindings,
-          evt.ctrlKey,
-          evt.shiftKey,
-          evt.altKey,
-          evt.metaKey,
-          evt.key,
-        )
-        switch action {
-        | Some(a) => actionToMsg(a)
-        | None => NoOp
-        }
-      }
-    }),
-    // Update vexation index periodically (every 2 seconds).
-    if model.paneN.inferenceActive {
-      Tea_Time.every(2000.0, _time => {
-        Vexometer(RequestVexationIndex)
-      })
-    } else {
-      Tea_Sub.none
-    },
-  })
-}
-
-/// Subscription for when inference is active — more frequent vexation polling.
-let inferenceSubscriptions = (model: model): Tea_Sub.t<msg> => {
-  if model.paneN.inferenceActive {
-    Tea_Sub.batch(list{Tea_Time.every(500.0, _time => Vexometer(RequestVexationIndex))})
-  } else {
-    Tea_Sub.none
-  }
-}
-
-/// S2: Gossamer backend event subscriptions — real-time neurosymbolic streaming.
-/// These fire when the Rust backend receives events from ECHIDNA, Tentacles,
-/// VeriSimDB, or Hypatia. Only active when the relevant panel is connected.
-let neurosymbolicSubscriptions = (_model: model): Tea_Sub.t<msg> => {
-  Tea_Sub.batch(list{
-    // ECHIDNA proof progress → feed into proof session state.
-    GossamerEvents.onEchidnaProgress(payload => Echidna(ProofResult(Ok(payload)))),
-    // ECHIDNA tactic suggestions → populate suggestion ribbon.
-    GossamerEvents.onEchidnaTactics(payload => Echidna(TacticSuggestionsLoaded(Ok(payload)))),
-    // Tentacles agent phase changes → advance OODA indicators.
-    // Payload expected as "agentId:phaseId" string from FFI.
-    GossamerEvents.onTentaclesPhaseChange(payload => {
-      // Parse "0:2" as agent Red, phase Decide — graceful fallback.
-      let parts = String.split(payload, ":")
-      let agentIdx = parts[0]->Option.getOr("0")->Int.fromString->Option.getOr(0)
-      let agentId = switch agentIdx {
-      | 0 => TentaclesModel.Red
-      | 1 => TentaclesModel.Orange
-      | 2 => TentaclesModel.Yellow
-      | 3 => TentaclesModel.Green
-      | 4 => TentaclesModel.Blue
-      | 5 => TentaclesModel.Indigo
-      | _ => TentaclesModel.Violet
-      }
-      let phaseIdx = parts[1]->Option.getOr("0")->Int.fromString->Option.getOr(0)
-      let phase = switch phaseIdx {
-      | 0 => PaneModel.Observe
-      | 1 => PaneModel.Orient
-      | 2 => PaneModel.Decide
-      | _ => PaneModel.Act
-      }
-      Tentacles(AgentPhaseAdvanced(agentId, phase))
-    }),
-    // Tentacles agent broadcasts → deliver as reasoning share.
-    GossamerEvents.onTentaclesBroadcast(payload => Tentacles(
-      BroadcastFromAgent(
-        Red,
-        ReasoningShare({
-          agent: Red,
-          phase: Observe,
-          summary: payload,
-          detail: None,
-          timestamp: 0.0,
-        }),
-      ),
-    )),
-    // VeriSimDB drift alerts → refresh drift display.
-    GossamerEvents.onVeriSimDBDrift(payload => VeriSimDB(DriftLoaded(Ok(payload)))),
-    // Hypatia neural network status → refresh network grid.
-    GossamerEvents.onHypatiaStatus(payload => Hypatia(ScansLoaded(Ok(payload)))),
-    // Governance signals → Anti-Crash intervention request.
-    GossamerEvents.onGovernanceSignal(payload => AntiCrash(RequestOperatorIntervention(payload))),
-    // AI streaming chunks → feed into AI panel streaming state machine.
-    GossamerEvents.onAiStreamChunk(payload => Ai(AiStreamChunkReceived(payload))),
-  })
-}
-
-/// S3: Token drip-feed — synthetic token emission for neural stream animation.
-/// When inference is active, emits a lightweight "heartbeat" token every 3 seconds
-/// so the neural stream shows visible activity even between real inference bursts.
-/// The token content cycles through OODA status lines to give contextual feedback.
-let tokenDripFeed = (model: model): Tea_Sub.t<msg> => {
-  if model.paneN.inferenceActive {
-    Tea_Sub.batch(list{
-      Tea_Time.every(3000.0, time => {
-        let phaseLabel = switch model.paneN.agency.phase {
-        | Observe => "OBSERVE"
-        | Orient => "ORIENT"
-        | Decide => "DECIDE"
-        | Act => "ACT"
-        }
-        let tokenContent = "[" ++ phaseLabel ++ "] Heartbeat @ " ++ Float.toString(time)
-        let tokenId = "t-" ++ Int.toString(model.paneN.nextTokenId)
-        PaneN(
-          ReceiveToken({
-            id: tokenId,
-            content: tokenContent,
-            timestamp: time,
-            confidence: 0.5,
-            validated: false,
-            source: NeuralInference,
-            category: Observation,
-            emittedDuring: model.paneN.agency.phase,
-            causedBy: model.paneN.activeCausalChain,
-            proofHash: None,
-          }),
-        )
-      }),
-    })
-  } else {
-    Tea_Sub.none
-  }
-}
-
-/// S4: OODA phase cycling — automatic phase progression for the neural agent.
-/// Cycles Observe → Orient → Decide → Act → Observe every 8 seconds when
-/// inference is active. This gives the appearance of an active deliberation
-/// loop and keeps the agency monitor visually responsive.
-let oodaPhaseCycling = (model: model): Tea_Sub.t<msg> => {
-  if model.paneN.inferenceActive {
-    Tea_Sub.batch(list{
-      Tea_Time.every(8000.0, _time => {
-        let nextPhase = switch model.paneN.agency.phase {
-        | Observe => Orient
-        | Orient => Decide
-        | Decide => Act
-        | Act => Observe
-        }
-        PaneN(
-          UpdateAgency({
-            ...model.paneN.agency,
-            phase: nextPhase,
-          }),
-        )
-      }),
-    })
-  } else {
-    Tea_Sub.none
-  }
-}
-
-/// S5: Filesystem watcher subscriptions — relay watcher events into TEA loop.
-/// The Rust watcher emits on `watcher://event` when files change on disk.
-/// This parses the JSON payload into a typed watchEvent and dispatches it.
-let watcherSubscriptions = (_model: model): Tea_Sub.t<msg> => {
-  Tea_Sub.batch(list{
-    // Filesystem events → Watcher panel + consuming panels (Farm, Hypatia, etc.)
-    GossamerEvents.onWatcherEvent(payload => {
-      switch WatcherCmd.parseEvent(payload) {
-      | Some(evt) => Watcher(FileEvent(evt))
-      | None => NoOp
-      }
-    }),
-    // Watcher errors → Observatory activity log
-    GossamerEvents.onWatcherError(payload => Watcher(WatcherResult(Error(payload)))),
-  })
-}
-
-/// Combined subscriptions — all subscription layers merged.
-let all = (model: model): Tea_Sub.t<msg> => {
-  Tea_Sub.batch(list{
-    subscriptions(model),
-    inferenceSubscriptions(model),
-    neurosymbolicSubscriptions(model),
-    tokenDripFeed(model),
-    oodaPhaseCycling(model),
-    watcherSubscriptions(model),
-  })
-}
diff --git a/src/Update.affine b/src/Update.affine
new file mode 100644
index 00000000..0ebdce06
--- /dev/null
+++ b/src/Update.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Update;
+
+// TODO: Complete semantic implementation
diff --git a/src/Update.res b/src/Update.res
deleted file mode 100644
index 0ce18386..00000000
--- a/src/Update.res
+++ /dev/null
@@ -1,491 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Update Engine — The state transition kernel.
-///
-/// This module implements the "Update" function of The Elm Architecture (TEA).
-/// It is responsible for taking the current `model` and an incoming `msg`,
-/// and producing a new version of the model along with any required
-/// side-effect commands (`Tea_Cmd`).
-///
-/// Architecture:
-///   1. Domain sub-updaters live in `src/update/Update*.res` modules
-///   2. The main `update()` orchestrator routes messages to sub-updaters
-///   3. Contractiles post-processing evaluates cognitive governance contracts
-///      after every state-modifying update
-///
-/// DESIGN: Sub-updaters are pure — commands represent deferred side effects.
-/// The only imperative call is `Storage.save()` in the SaveState handler.
-
-open Model
-open Msg
-
-// ===========================================================================
-// Import all domain sub-updaters from src/update/
-// ===========================================================================
-
-// Shared helpers (undo/redo, logging)
-open UpdateHelpers
-
-// Core panes
-open UpdatePaneL
-open UpdatePaneN
-open UpdatePaneW
-open UpdatePaneA
-
-// Major subsystems
-open UpdateVeriSimDB
-open UpdateEchidna
-open UpdateGovernance
-open UpdateVab
-open UpdateCloudGuard
-open UpdateFarm
-open UpdatePlaza
-open UpdatePanelSwitcher
-open UpdateReposystem
-open UpdateAerie
-open UpdateInterfaces
-open UpdatePlaygrounds
-open UpdateHypatia
-open UpdateFleet
-open UpdateMinter
-open UpdateProvisioner
-open UpdateVoiceTag
-open UpdateProvenance
-open UpdateWatcher
-open UpdateAi
-open UpdateRepoLoader
-open UpdateWorkspace
-open UpdateCapture
-open UpdateSecurity
-open UpdateKeybindings
-open UpdateMigration
-open UpdatePanicAttack
-open UpdateMassPanic
-open UpdateTsdm
-open UpdateValenceShell
-open UpdateGamePreview
-open UpdateVmInspector
-open UpdateNetworkTopology
-open UpdateLevelArchitect
-open UpdateCoprocessors
-open UpdateMultiplayerMonitor
-open UpdateDlcWorkshop
-open UpdateUms
-open UpdateEditorBridge
-open UpdateBuildDashboard
-open UpdateReleaseManager
-open UpdateAutomationRouter
-open UpdateScriptGist
-open UpdateDatabases
-open UpdateBoj
-open UpdateCladeBrowser
-open UpdateTentacles
-open UpdateProtocolSquisher
-open UpdateMyLang
-open UpdateTypeLL
-open UpdateHelp
-open UpdateMenuBar
-open UpdateAccessibility
-open UpdateTiling
-open UpdateFocusDimming
-open UpdateEnsaidConfig
-open UpdateTimeline
-open UpdatePatternDiag
-open UpdateAttributionLicense
-open UpdateStapeln
-open UpdateEvangeliser
-open UpdateLanguageForge
-open UpdateTangleViz
-open UpdateWizard
-
-// Extracted sub-updaters (formerly inline in this file)
-open UpdateSpecBrowser
-open UpdateVerificationDashboard
-open UpdateBus
-open UpdateObservatory
-open UpdateAmbientOps
-open UpdateObservability
-open UpdateA2ml
-open UpdateK9
-open UpdateSystemUpdate
-
-// Grouped small updaters
-open UpdateGameDevTesting
-open UpdateGameDevBridges
-open UpdateGameDevSpecific
-open UpdateTeamCollab
-open UpdateWiringInspector
-open UpdateFloorRaise
-
-// ===========================================================================
-// Main Dispatcher
-// ===========================================================================
-
-/// Determines whether a message should trigger auto-save to localStorage.
-/// NoOp and SaveState itself are excluded to avoid infinite loops.
-let shouldAutoSave = (msg: msg): bool => {
-  switch msg {
-  | NoOp => false
-  | SaveState => false
-  | VeriSimDBStateLoaded(_) => false
-  | VeriSimDBStateSaved(_) => false
-  | Service(_) => false // Service health checks should not trigger state save
-  | Settings(_) => false // Settings changes persist via their own mechanism
-  | Identity(_) => false // Identity operations have their own persistence
-  | _ => true
-  }
-}
-
-/// The main TEA update function. Routes each message variant to its domain
-/// sub-updater, then applies contractile post-processing.
-let update = (model: model, msg: msg): (model, Tea_Cmd.t<msg>) => {
-  let (newModel, cmd) = switch msg {
-  // Core panes
-  | PaneL(subMsg) => updatePaneL(model, subMsg)
-  | PaneN(subMsg) => (updatePaneN(model, subMsg), Tea_Cmd.none)
-  | PaneW(subMsg) => updatePaneW(model, subMsg)
-  | PaneA(subMsg) => UpdatePaneA.update(model, subMsg)
-  // Major subsystems
-  | VeriSimDB(subMsg) => updateVeriSimDB(model, subMsg)
-  | Echidna(subMsg) => updateEchidna(model, subMsg)
-  | Vexometer(subMsg) => updateVexometer(model, subMsg)
-  | Orbital(subMsg) => updateOrbital(model, subMsg)
-  | View(subMsg) => updateView(model, subMsg)
-  | Feedback(subMsg) => updateFeedback(model, subMsg)
-  | AntiCrash(subMsg) => updateAntiCrash(model, subMsg)
-  | Vab(subMsg) => updateVab(model, subMsg)
-  | CloudGuard(subMsg) => updateCloudGuard(model, subMsg)
-  | Farm(subMsg) => updateFarm(model, subMsg)
-  | Plaza(subMsg) => updatePlaza(model, subMsg)
-  | Hypatia(subMsg) => updateHypatia(model, subMsg)
-  | Fleet(subMsg) => updateFleet(model, subMsg)
-  | Reposystem(subMsg) => updateReposystem(model, subMsg)
-  | Aerie(subMsg) => updateAerie(model, subMsg)
-  | Oo7Toolchain(subMsg) => updateOo7Toolchain(model, subMsg)
-  | VideoCoordination(subMsg) => UpdateVideoCoordination.updateVideoCoordination(model, subMsg)
-  | Interfaces(subMsg) => updateInterfaces(model, subMsg)
-  | Playgrounds(subMsg) => updatePlaygrounds(model, subMsg)
-  | Minter(subMsg) => updateMinter(model, subMsg)
-  | Provisioner(subMsg) => updateProvisioner(model, subMsg)
-  | VoiceTag(subMsg) => updateVoiceTag(model, subMsg)
-  | Provenance(subMsg) => updateProvenance(model, subMsg)
-  | Watcher(subMsg) => updateWatcher(model, subMsg)
-  | Ai(subMsg) => updateAi(model, subMsg)
-  | RepoLoader(subMsg) => updateRepoLoader(model, subMsg)
-  | PanelSwitcher(subMsg) => updatePanelSwitcher(model, subMsg)
-  | Workspace(subMsg) => updateWorkspace(model, subMsg)
-  | Capture(subMsg) => updateCapture(model, subMsg)
-  | Security(subMsg) => updateSecurity(model, subMsg)
-  | Keybindings(subMsg) => (updateKeybindings(model, subMsg), Tea_Cmd.none)
-  | Migration(subMsg) => updateMigration(model, subMsg)
-  | PanicAttack(subMsg) => updatePanicAttack(model, subMsg)
-  | MassPanic(subMsg) => updateMassPanic(model, subMsg)
-  | Tsdm(subMsg) => updateTsdm(model, subMsg)
-  | ValenceShell(subMsg) => updateValenceShell(model, subMsg)
-  | GamePreview(subMsg) => updateGamePreview(model, subMsg)
-  | VmInspector(subMsg) => updateVmInspector(model, subMsg)
-  | NetworkTopology(subMsg) => updateNetworkTopology(model, subMsg)
-  | LevelArchitect(subMsg) => updateLevelArchitect(model, subMsg)
-  | Coprocessors(subMsg) => updateCoprocessors(model, subMsg)
-  | MultiplayerMonitor(subMsg) => updateMultiplayerMonitor(model, subMsg)
-  | DlcWorkshop(subMsg) => updateDlcWorkshop(model, subMsg)
-  | Ums(subMsg) => updateUms(model, subMsg)
-  | EditorBridge(subMsg) => updateEditorBridge(model, subMsg)
-  | BuildDashboard(subMsg) => updateBuildDashboard(model, subMsg)
-  | ReleaseManager(subMsg) => updateReleaseManager(model, subMsg)
-  | AutomationRouter(subMsg) => updateAutomationRouter(model, subMsg)
-  | ScriptGist(subMsg) => updateScriptGist(model, subMsg)
-  | Databases(subMsg) => updateDatabases(model, subMsg)
-  | Boj(subMsg) => updateBoj(model, subMsg)
-  | CladeBrowser(subMsg) => updateCladeBrowser(model, subMsg)
-  | Tentacles(subMsg) => updateTentacles(model, subMsg)
-  | ProtocolSquisher(subMsg) => updateProtocolSquisher(model, subMsg)
-  | MyLang(subMsg) => updateMyLang(model, subMsg)
-  | TypeLL(subMsg) => updateTypeLL(model, subMsg)
-  | Help(subMsg) => updateHelp(model, subMsg)
-  | MenuBar(subMsg) => updateMenuBar(model, subMsg)
-  | AccessibilityCtrl(subMsg) => updateAccessibility(model, subMsg)
-  | Tiling(subMsg) => updateTiling(model, subMsg)
-  | FocusDimming(subMsg) => updateFocusDimming(model, subMsg)
-  | Stapeln(subMsg) => updateStapeln(model, subMsg)
-  | Evangeliser(subMsg) => updateEvangeliser(model, subMsg)
-  | LanguageForge(subMsg) => updateLanguageForge(model, subMsg)
-  | TangleViz(subMsg) => updateTangleViz(model, subMsg)
-  | EnsaidConfig(subMsg) => updateEnsaidConfig(model, subMsg)
-  | Timeline(subMsg) => updateTimeline(model, subMsg)
-  | PatternDiag(subMsg) => updatePatternDiag(model, subMsg)
-  | AttrLicense(subMsg) => updateAttributionLicense(model, subMsg)
-  // Game Dev panels — testing
-  | UnitTestRunner(subMsg) => updateUnitTestRunner(model, subMsg)
-  | FunctionalTester(subMsg) => updateFunctionalTester(model, subMsg)
-  | RegressionGuard(subMsg) => updateRegressionGuard(model, subMsg)
-  | PerformanceProfiler(subMsg) => updatePerformanceProfiler(model, subMsg)
-  | LoadTester(subMsg) => updateLoadTester(model, subMsg)
-  | SoakMonitor(subMsg) => updateSoakMonitor(model, subMsg)
-  | CompatibilityMatrix(subMsg) => updateCompatibilityMatrix(model, subMsg)
-  | ExploratoryWorkbench(subMsg) => updateExploratoryWorkbench(model, subMsg)
-  | BetaFeedbackHub(subMsg) => updateBetaFeedbackHub(model, subMsg)
-  | BalanceAnalyser(subMsg) => updateBalanceAnalyser(model, subMsg)
-  // Game Dev panels — bridges
-  | TypingBridge(subMsg) => updateTypingBridge(model, subMsg)
-  | NeurosymBridge(subMsg) => updateNeurosymBridge(model, subMsg)
-  | AgenticBridge(subMsg) => updateAgenticBridge(model, subMsg)
-  | AutomationBridge(subMsg) => updateAutomationBridge(model, subMsg)
-  | DatabaseBridge(subMsg) => updateDatabaseBridge(model, subMsg)
-  | ProtocolBridge(subMsg) => updateProtocolBridge(model, subMsg)
-  | ProofsBridge(subMsg) => updateProofsBridge(model, subMsg)
-  | ScriptingBridge(subMsg) => updateScriptingBridge(model, subMsg)
-  // Game Dev panels — game-specific
-  | GeneratorMode(subMsg) => updateGeneratorMode(model, subMsg)
-  | ArchitectMode(subMsg) => updateArchitectMode(model, subMsg)
-  | GuardAiTuner(subMsg) => updateGuardAiTuner(model, subMsg)
-  | DeviceNetworkDesigner(subMsg) => updateDeviceNetworkDesigner(model, subMsg)
-  | AssetManager(subMsg) => updateAssetManager(model, subMsg)
-  | PlaytestRecorder(subMsg) => updatePlaytestRecorder(model, subMsg)
-  // Team / collaboration panels
-  | CodeReview(subMsg) => updateCodeReview(model, subMsg)
-  | MergeCoordinator(subMsg) => updateMergeCoordinator(model, subMsg)
-  | TeamDashboard(subMsg) => updateTeamDashboard(model, subMsg)
-  | DebuggingWorkbench(subMsg) => updateDebuggingWorkbench(model, subMsg)
-  // Infrastructure panels
-  | WiringInspector(subMsg) => updateWiringInspector(model, subMsg)
-  // Floor Raise campaign panels
-  | FloorRaise(subMsg) => updateFloorRaise(model, subMsg)
-  | ProvenAdoption(subMsg) => updateProvenAdoption(model, subMsg)
-  | ContractileCompleteness(subMsg) => updateContractileCompleteness(model, subMsg)
-  | ManifestCoverage(subMsg) => updateManifestCoverage(model, subMsg)
-  | VerisimdbFeeds(subMsg) => updateVerisimdbFeeds(model, subMsg)
-  | FeedbackRouting(subMsg) => updateFeedbackRouting(model, subMsg)
-  | VexometerFriction(subMsg) => updateVexometerFriction(model, subMsg)
-  | Wizard(subMsg) => UpdateWizard.update(model, subMsg)
-  // SpecBrowser — language specification browsing
-  | SpecBrowser(subMsg) => updateSpecBrowser(model, subMsg)
-  // VerificationDashboard — proof/test/benchmark status
-  | VerificationDashboard(subMsg) => updateVerificationDashboard(model, subMsg)
-  // Panel Bus — cross-panel messaging
-  | Bus(busMsg) => updateBus(model, busMsg)
-  // Undo/Redo
-  | Undo => {
-      let len = Array.length(model.undoStack)
-      if len === 0 {
-        (model, Tea_Cmd.none)
-      } else {
-        let snapshot = model.undoStack[len - 1]
-        let remainingUndo = Array.slice(model.undoStack, ~start=0, ~end=len - 1)
-        let currentSnapshot = snapshotToJson(model)
-        let newRedo = Array.concat(model.redoStack, [currentSnapshot])
-        let trimmedRedo = if Array.length(newRedo) > undoStackLimit {
-          Array.slice(
-            newRedo,
-            ~start=Array.length(newRedo) - undoStackLimit,
-            ~end=Array.length(newRedo),
-          )
-        } else {
-          newRedo
-        }
-        switch snapshot {
-        | Some(s) => {
-            let restored = restoreSnapshot(model, s)
-            ({...restored, undoStack: remainingUndo, redoStack: trimmedRedo}, Tea_Cmd.none)
-          }
-        | None => (model, Tea_Cmd.none)
-        }
-      }
-    }
-  | Redo => {
-      let len = Array.length(model.redoStack)
-      if len === 0 {
-        (model, Tea_Cmd.none)
-      } else {
-        let snapshot = model.redoStack[len - 1]
-        let remainingRedo = Array.slice(model.redoStack, ~start=0, ~end=len - 1)
-        let currentSnapshot = snapshotToJson(model)
-        let newUndo = Array.concat(model.undoStack, [currentSnapshot])
-        let trimmedUndo = if Array.length(newUndo) > undoStackLimit {
-          Array.slice(
-            newUndo,
-            ~start=Array.length(newUndo) - undoStackLimit,
-            ~end=Array.length(newUndo),
-          )
-        } else {
-          newUndo
-        }
-        switch snapshot {
-        | Some(s) => {
-            let restored = restoreSnapshot(model, s)
-            ({...restored, undoStack: trimmedUndo, redoStack: remainingRedo}, Tea_Cmd.none)
-          }
-        | None => (model, Tea_Cmd.none)
-        }
-      }
-    }
-  // State persistence
-  | SaveState => {
-      Storage.save(model)
-      (model, Tea_Cmd.none)
-    }
-  // VeriSimDB async state restoration (Connected Workbench v0.2.0)
-  | VeriSimDBStateLoaded(result) =>
-    switch result {
-    | Ok(jsonStr) => {
-        // Parse the VeriSimDB response — extract the inner "state" field
-        let stateJson = switch JSON.parseExn(jsonStr)->JSON.Classify.classify {
-        | Object(d) =>
-          switch d->Dict.get("state") {
-          | Some(v) =>
-            switch JSON.Classify.classify(v) {
-            | String(s) => s
-            | _ => jsonStr
-            }
-          | None => jsonStr
-          }
-        | _ => jsonStr
-        }
-        switch Decoders.decodeOption(Storage.persistedStateDecoder, stateJson) {
-        | Some(state) => {
-            let restoredModel = Storage.modelFromPersisted(state)
-            // Merge restored state with current model to preserve runtime-only fields
-            (
-              {
-                ...model,
-                paneL: restoredModel.paneL,
-                paneN: restoredModel.paneN,
-                paneW: restoredModel.paneW,
-                viewMode: restoredModel.viewMode,
-                paneLVisible: restoredModel.paneLVisible,
-                paneNVisible: restoredModel.paneNVisible,
-                paneWVisible: restoredModel.paneWVisible,
-                humidity: restoredModel.humidity,
-                vexometer: {...model.vexometer, index: restoredModel.vexometer.index},
-                orbital: {...model.orbital, stability: restoredModel.orbital.stability},
-              },
-              Tea_Cmd.none,
-            )
-          }
-        | None => (model, Tea_Cmd.none)
-        }
-      }
-    | Error(_) => (model, Tea_Cmd.none) // VeriSimDB unavailable — localStorage already loaded
-    }
-  // VeriSimDB save confirmation (log-only, no state change)
-  | VeriSimDBStateSaved(_result) => (model, Tea_Cmd.none)
-  // BoJ latency recording
-  | RecordBojLatency(cartridge, tool, elapsed) => {
-      let entry: BojModel.bojLatencyEntry = {
-        cartridge,
-        tool,
-        durationMs: elapsed,
-        timestamp: Date.now(),
-      }
-      let log = Array.concat([entry], model.boj.latencyLog)->Array.slice(~start=0, ~end=100)
-      ({...model, boj: {...model.boj, latencyLog: log}}, Tea_Cmd.none)
-    }
-  // Governance NeSy results
-  | GovernanceNesyResult(result) => switch result {
-    | Ok(jsonStr) => {
-        let newModel = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-        | Some(json) =>
-          let o = json->JSON.Decode.object->Option.getOr(Dict.make())
-          let confidence =
-            o->Dict.get("confidence")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.5)
-          let approved =
-            o->Dict.get("approved")->Option.flatMap(JSON.Decode.bool)->Option.getOr(true)
-          if !approved {
-            {...model, antiCrash: {...model.antiCrash, strictMode: false}}
-          } else if confidence > 0.8 {
-            {...model, antiCrash: {...model.antiCrash, strictMode: true}}
-          } else if confidence < 0.3 {
-            {...model, antiCrash: {...model.antiCrash, strictMode: false}}
-          } else {
-            model
-          }
-
-        | None => model
-        }
-        (newModel, Tea_Cmd.none)
-      }
-    | Error(_) => (model, Tea_Cmd.none)
-    }
-  | GovernanceNesyValidateResult(result) => switch result {
-    | Ok(jsonStr) => {
-        let newModel = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-        | Some(json) =>
-          let o = json->JSON.Decode.object->Option.getOr(Dict.make())
-          let approved =
-            o->Dict.get("approved")->Option.flatMap(JSON.Decode.bool)->Option.getOr(true)
-          let reasoning =
-            o->Dict.get("reasoning")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          if !approved {
-            ignore(reasoning)
-            {...model, antiCrash: {...model.antiCrash, strictMode: false}}
-          } else {
-            model
-          }
-
-        | None => model
-        }
-        (newModel, Tea_Cmd.none)
-      }
-    | Error(_) => (model, Tea_Cmd.none)
-    }
-  | GovernanceNesyProbeResult(result) => switch result {
-    | Ok(jsonStr) => {
-        let newModel = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-        | Some(json) =>
-          let o = json->JSON.Decode.object->Option.getOr(Dict.make())
-          let neuralCoherence =
-            o->Dict.get("neural_coherence")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.5)
-          let driftMagnitude =
-            o->Dict.get("drift_magnitude")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          {
-            ...model,
-            orbital: {
-              ...model.orbital,
-              stability: neuralCoherence,
-              divergenceLevel: driftMagnitude,
-            },
-          }
-
-        | None => model
-        }
-        (newModel, Tea_Cmd.none)
-      }
-    | Error(_) => (model, Tea_Cmd.none)
-    }
-  // Observability
-  | Observability(obsMsg) => updateObservability(model, obsMsg)
-  // A2ML manifest management
-  | A2ml(a2mlMsg) => updateA2ml(model, a2mlMsg)
-  // K9 contractile management
-  | K9(k9Msg) => updateK9(model, k9Msg)
-  // Seam auditing
-  | AuditSeams => {
-      let register = SeamEngine.buildRegister("2026-03-09")
-      let audit = SeamEngine.auditRegister(register, "2026-03-09")
-      ({...model, seamRegister: register, lastSeamAudit: Some(audit)}, Tea_Cmd.none)
-    }
-  | SeamAuditResult(audit) => ({...model, lastSeamAudit: Some(audit)}, Tea_Cmd.none)
-  // Observatory — integrative dashboard
-  | Observatory(subMsg) => updateObservatory(model, subMsg)
-  // AmbientOps — hospital-model sysadmin
-  | AmbientOps(subMsg) => updateAmbientOps(model, subMsg)
-  // Burble — groove-aware voice huddle integration
-  | Burble(subMsg) => ({...model, burble: BurbleEngine.update(model.burble, subMsg)}, Tea_Cmd.none)
-  // Service Registry — centralized backend service lifecycle (Connected Workbench v0.2.0)
-  | Service(subMsg) => UpdateService.updateService(model, subMsg)
-  // Settings — user configuration (Connected Workbench v0.2.0)
-  | Settings(subMsg) => UpdateSettings.updateSettings(model, subMsg)
-  // Identity — snapshots and team replication (Connected Workbench v0.2.0)
-  | Identity(subMsg) => UpdateIdentity.updateIdentity(model, subMsg)
-  // System Update — component update management
-  | SystemUpdate(subMsg) => updateSystemUpdate(model, subMsg)
-  | NoOp => (model, Tea_Cmd.none)
-  }
-
-  // Post-processing: evaluate contractiles after every state-modifying update.
-  // Skip for NoOp to avoid unnecessary computation.
-  switch msg {
-  | NoOp => (newModel, cmd)
-  | _ => applyContractiles(newModel, cmd)
-  }
-}
diff --git a/src/View.affine b/src/View.affine
new file mode 100644
index 00000000..b69df0bc
--- /dev/null
+++ b/src/View.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module View;
+
+// TODO: Complete semantic implementation
diff --git a/src/View.res b/src/View.res
deleted file mode 100644
index 81e40210..00000000
--- a/src/View.res
+++ /dev/null
@@ -1,937 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL View - The render layer for the eNSAID environment.
-///
-/// This module implements the TEA view function, rendering the
-/// three-pane parallel architecture with ambient substrate.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render the Orbital Drift Aura background
-let renderDriftAura = (orbital: orbitalState, humidity: humidityLevel): Tea_Vdom.t<msg> => {
-  let opacityClass = switch humidity {
-  | High => "opacity-30"
-  | Medium => "opacity-20"
-  | Low => "opacity-10"
-  }
-  let colourClass = orbital.driftAuraColour === "indigo" ? "bg-indigo-900" : "bg-amber-900"
-
-  div(
-    list{
-      Attrs.class_(
-        `fixed inset-0 ${colourClass} ${opacityClass} transition-all duration-1000 pointer-events-none`,
-      ),
-    },
-    list{},
-  )
-}
-
-/// Render Pane-L (Symbolic Mass) - using full component.
-/// Receives proof obligations from VeriSimDB VCL-total queries to display
-/// as symbolic constraints alongside the constraint editor.
-let renderPaneL = (paneL: paneLState, proofs: array<proofObligation>, visible: bool): Tea_Vdom.t<
-  msg,
-> => {
-  if !visible {
-    noNode
-  } else {
-    div(list{Attrs.class_("flex-1 overflow-auto")}, list{PaneL.view(paneL, proofs)})
-  }
-}
-
-/// Render Pane-N (Neural Stream) with ECHIDNA theorem prover panel - using full component
-let renderPaneN = (
-  paneN: paneNState,
-  echidna: echidnaState,
-  ~inferenceStream: array<string>=[],
-  visible: bool,
-): Tea_Vdom.t<msg> => {
-  if !visible {
-    noNode
-  } else {
-    div(
-      list{Attrs.class_("flex-1 overflow-auto")},
-      list{PaneN.view(paneN, echidna, ~inferenceStream)},
-    )
-  }
-}
-
-/// Render Pane-W (World/Barycentre) - using full component
-/// This pane draws the central security panel, event chain importer, and
-/// panic-attacker toolset, ensuring the time/space study is visible when dialogs open.
-/// Render Pane-W (World/Barycentre) with VeriSimDB database tools.
-let renderPaneW = (
-  paneW: paneWState,
-  orbital: orbitalState,
-  db: verisimdbState,
-  contractiles: array<contractile>,
-  tour: tourState,
-  visible: bool,
-): Tea_Vdom.t<msg> => {
-  if !visible {
-    noNode
-  } else {
-    div(
-      list{Attrs.class_("flex-1 overflow-auto")},
-      list{PaneW.view(paneW, orbital, db, ~contractiles, ~tour)},
-    )
-  }
-}
-
-/// Render Pane-A (Ambient Substrate) - the ergonomic control layer.
-/// This pane is always visible when active, providing high-level sensory
-/// feedback and cognitive relief adjustments for the co-orbit.
-let renderPaneA = (paneA: paneAState, visible: bool): Tea_Vdom.t<msg> => {
-  if !visible {
-    noNode
-  } else {
-    div(list{Attrs.class_("w-72 border-r border-gray-900")}, list{PaneA.view(paneA)})
-  }
-}
-
-/// Render the Dark Start architecture manifold
-/// Render a quick-access panel card for the DarkStart grid.
-let renderQuickPanel = (panel: panelMeta): Tea_Vdom.t<msg> => {
-  let statusDot = switch panel.connectionStatus {
-  | ServiceConnected => "bg-green-400"
-  | ServiceDisconnected => "bg-gray-600"
-  | ServiceChecking => "bg-amber-400 animate-pulse"
-  | ServiceError(_) => "bg-red-400"
-  }
-  button(
-    list{
-      Attrs.class_(
-        "bg-gray-900/60 border border-gray-800 rounded-lg p-3 hover:bg-gray-800/80 hover:border-gray-700 transition-all text-left group",
-      ),
-      Events.onClick(PanelSwitcher(TogglePanel(panel.id))),
-      Attrs.title(panel.description),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex items-center gap-2 mb-1")},
-        list{
-          div(list{Attrs.class_(`w-1.5 h-1.5 rounded-full ${statusDot}`)}, list{}),
-          span(
-            list{Attrs.class_("text-sm text-gray-300 group-hover:text-white transition-colors")},
-            list{text(panel.name)},
-          ),
-        },
-      ),
-      div(list{Attrs.class_("text-[10px] text-gray-600 truncate")}, list{text(panel.description)}),
-    },
-  )
-}
-
-/// Render the DarkStart front page — system overview, quick access, health.
-let renderDarkStart = (model: model): Tea_Vdom.t<msg> => {
-  // Gather health metrics
-  let totalPanels = Array.length(model.panelSwitcher.panels)
-  let connectedPanels =
-    model.panelSwitcher.panels
-    ->Array.filter(p => p.connectionStatus === ServiceConnected)
-    ->Array.length
-  let hypatiaConfidence = HypatiaEngine.avgConfidence(model.hypatia.networks)
-  let sessionCount = Array.length(model.workspace.sessions)
-  let bojCartridges = Array.length(model.boj.cartridges)
-  let bojLoaded = model.boj.cartridges->Array.filter(c => c.loaded)->Array.length
-
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950 overflow-auto"),
-      Attrs.role("main"),
-      Attrs.ariaLabel("PanLL DarkStart — system overview"),
-    },
-    list{
-      // Top section: branding + enter button
-      div(
-        list{Attrs.class_("max-w-5xl mx-auto px-8 pt-12 pb-6")},
-        list{
-          div(
-            list{Attrs.class_("flex items-end justify-between mb-8")},
-            list{
-              div(
-                list{},
-                list{
-                  div(list{Attrs.class_("text-3xl font-light text-gray-400")}, list{text("PanLL")}),
-                  div(
-                    list{Attrs.class_("text-xs text-gray-600 mt-1")},
-                    list{text("eNSAID Neurosymbolic Development Environment")},
-                  ),
-                },
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-6 py-2.5 bg-indigo-600 text-white rounded-lg hover:bg-indigo-500 transition-colors text-sm font-medium",
-                  ),
-                  Events.onClick(View(SetViewMode(Standard))),
-                  KeyboardUtil.onEnterOrSpace(View(SetViewMode(Standard))),
-                },
-                list{text("Enter Environment")},
-              ),
-            },
-          ),
-          // Binary Star diagram (compact)
-          div(
-            list{Attrs.class_("flex items-center justify-center gap-8 mb-10")},
-            list{
-              div(
-                list{
-                  Attrs.class_(
-                    "w-16 h-16 rounded-full bg-indigo-600/30 border border-indigo-500/50 flex items-center justify-center",
-                  ),
-                },
-                list{
-                  div(
-                    list{Attrs.class_("text-indigo-400 text-[10px] font-medium")},
-                    list{text("L")},
-                  ),
-                },
-              ),
-              div(list{Attrs.class_("w-8 border-t border-dashed border-gray-700")}, list{}),
-              div(
-                list{
-                  Attrs.class_(
-                    "w-16 h-16 rounded-full bg-emerald-600/30 border border-emerald-500/50 flex items-center justify-center",
-                  ),
-                },
-                list{
-                  div(
-                    list{Attrs.class_("text-emerald-400 text-[10px] font-medium")},
-                    list{text("N")},
-                  ),
-                },
-              ),
-              div(list{Attrs.class_("w-8 border-t border-dashed border-gray-700")}, list{}),
-              div(
-                list{
-                  Attrs.class_(
-                    "w-16 h-16 rounded-full bg-amber-600/30 border border-amber-500/50 flex items-center justify-center",
-                  ),
-                },
-                list{
-                  div(
-                    list{Attrs.class_("text-amber-400 text-[10px] font-medium")},
-                    list{text("W")},
-                  ),
-                },
-              ),
-            },
-          ),
-          // System health cards
-          div(
-            list{Attrs.class_("grid grid-cols-4 gap-3 mb-8")},
-            list{
-              // Panels
-              div(
-                list{Attrs.class_("bg-gray-900/60 border border-gray-800 rounded-lg p-4")},
-                list{
-                  div(
-                    list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wider mb-1")},
-                    list{text("Panels")},
-                  ),
-                  div(
-                    list{Attrs.class_("text-2xl font-light text-gray-200")},
-                    list{text(Int.toString(totalPanels))},
-                  ),
-                  div(
-                    list{Attrs.class_("text-xs text-green-500 mt-1")},
-                    list{text(`${Int.toString(connectedPanels)} connected`)},
-                  ),
-                },
-              ),
-              // Hypatia
-              div(
-                list{Attrs.class_("bg-gray-900/60 border border-gray-800 rounded-lg p-4")},
-                list{
-                  div(
-                    list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wider mb-1")},
-                    list{text("Hypatia")},
-                  ),
-                  div(
-                    list{
-                      Attrs.class_(
-                        `text-2xl font-light ${if hypatiaConfidence > 0.8 {
-                            "text-green-400"
-                          } else if hypatiaConfidence > 0.5 {
-                            "text-amber-400"
-                          } else {
-                            "text-gray-500"
-                          }}`,
-                      ),
-                    },
-                    list{
-                      text(
-                        if hypatiaConfidence > 0.0 {
-                          `${Float.toFixed(hypatiaConfidence *. 100.0, ~digits=0)}%`
-                        } else {
-                          "---"
-                        },
-                      ),
-                    },
-                  ),
-                  div(
-                    list{Attrs.class_("text-xs text-gray-600 mt-1")},
-                    list{text("ensemble confidence")},
-                  ),
-                },
-              ),
-              // BoJ
-              div(
-                list{Attrs.class_("bg-gray-900/60 border border-gray-800 rounded-lg p-4")},
-                list{
-                  div(
-                    list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wider mb-1")},
-                    list{text("BoJ Server")},
-                  ),
-                  div(
-                    list{Attrs.class_("text-2xl font-light text-gray-200")},
-                    list{text(Int.toString(bojCartridges))},
-                  ),
-                  div(
-                    list{Attrs.class_("text-xs text-green-500 mt-1")},
-                    list{text(`${Int.toString(bojLoaded)} loaded`)},
-                  ),
-                },
-              ),
-              // Sessions
-              div(
-                list{Attrs.class_("bg-gray-900/60 border border-gray-800 rounded-lg p-4")},
-                list{
-                  div(
-                    list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wider mb-1")},
-                    list{text("Sessions")},
-                  ),
-                  div(
-                    list{Attrs.class_("text-2xl font-light text-gray-200")},
-                    list{text(Int.toString(sessionCount))},
-                  ),
-                  div(
-                    list{Attrs.class_("text-xs text-gray-600 mt-1")},
-                    list{text("workspace sessions")},
-                  ),
-                },
-              ),
-            },
-          ),
-          // Quick-access panel grid (top 12 panels)
-          div(
-            list{Attrs.class_("mb-8")},
-            list{
-              div(
-                list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wider mb-3")},
-                list{text("Quick Access")},
-              ),
-              div(
-                list{Attrs.class_("grid grid-cols-4 gap-2")},
-                model.panelSwitcher.panels
-                ->Array.slice(~start=0, ~end=12)
-                ->Array.map(p => renderQuickPanel(p))
-                ->List.fromArray,
-              ),
-            },
-          ),
-          // Recent sessions
-          if Array.length(model.workspace.sessions) > 0 {
-            div(
-              list{Attrs.class_("mb-8")},
-              list{
-                div(
-                  list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wider mb-3")},
-                  list{text("Recent Sessions")},
-                ),
-                div(
-                  list{Attrs.class_("space-y-1")},
-                  model.workspace.sessions
-                  ->Array.slice(~start=0, ~end=5)
-                  ->Array.map(session =>
-                    div(
-                      list{
-                        Attrs.class_(
-                          "flex items-center gap-3 p-2 bg-gray-900/40 rounded hover:bg-gray-800/60 transition-colors",
-                        ),
-                      },
-                      list{
-                        div(list{Attrs.class_("w-1.5 h-1.5 rounded-full bg-gray-600")}, list{}),
-                        span(
-                          list{Attrs.class_("text-sm text-gray-400 flex-1")},
-                          list{text(session.name)},
-                        ),
-                        span(
-                          list{Attrs.class_("text-xs text-gray-600")},
-                          list{text(Date.make()->Date.toLocaleDateString)},
-                        ),
-                      },
-                    )
-                  )
-                  ->List.fromArray,
-                ),
-              },
-            )
-          } else {
-            noNode
-          },
-          // Footer
-          div(
-            list{Attrs.class_("text-center py-6 border-t border-gray-900")},
-            list{
-              div(
-                list{Attrs.class_("text-xs text-gray-700")},
-                list{text("Press Enter or click \"Enter Environment\" to begin")},
-              ),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render cross-panel circuit lines — SVG overlay showing data flow connections
-/// between Panel-L (Symbolic), Panel-N (Neural), and Panel-W (World).
-/// Lines animate based on orbital sync health: green = healthy, amber = drifting,
-/// red = diverged. The circuit only renders when all three panels are visible.
-let renderCircuitLines = (
-  orbital: orbitalState,
-  paneLVisible: bool,
-  paneNVisible: bool,
-  paneWVisible: bool,
-): Tea_Vdom.t<msg> => {
-  if !(paneLVisible && paneNVisible && paneWVisible) {
-    noNode
-  } else {
-    let healthClass = if orbital.syncHealth > 0.7 {
-      "stroke-emerald-500/40"
-    } else if orbital.syncHealth > 0.4 {
-      "stroke-amber-500/40"
-    } else {
-      "stroke-red-500/40"
-    }
-    let pulseClass = if orbital.syncHealth > 0.7 {
-      ""
-    } else {
-      "animate-pulse"
-    }
-
-    // SVG overlay positioned absolutely over the three-panel layout
-    Tea_Svg.svg(
-      list{
-        Tea_Svg.Attrs.class_(
-          `absolute inset-0 w-full h-full pointer-events-none z-20 ${pulseClass}`,
-        ),
-        Tea_Svg.Attrs.viewBox("0 0 1200 800"),
-        Attrs.prop("preserveAspectRatio", "none"),
-      },
-      list{
-        // L→N connection (symbolic feeds neural)
-        Tea_Svg.line(
-          list{
-            Tea_Svg.Attrs.class_(healthClass),
-            Tea_Svg.Attrs.x1("400"),
-            Tea_Svg.Attrs.y1("400"),
-            Tea_Svg.Attrs.x2("800"),
-            Tea_Svg.Attrs.y2("400"),
-            Tea_Svg.Attrs.strokeWidth("2"),
-            Tea_Svg.Attrs.strokeDasharray("8 4"),
-          },
-          list{},
-        ),
-        // N→W connection (neural feeds world)
-        Tea_Svg.line(
-          list{
-            Tea_Svg.Attrs.class_(healthClass),
-            Tea_Svg.Attrs.x1("800"),
-            Tea_Svg.Attrs.y1("400"),
-            Tea_Svg.Attrs.x2("1100"),
-            Tea_Svg.Attrs.y2("200"),
-            Tea_Svg.Attrs.strokeWidth("2"),
-            Tea_Svg.Attrs.strokeDasharray("8 4"),
-          },
-          list{},
-        ),
-        // W→L feedback loop (world constrains symbolic)
-        Tea_Svg.line(
-          list{
-            Tea_Svg.Attrs.class_(healthClass),
-            Tea_Svg.Attrs.x1("1100"),
-            Tea_Svg.Attrs.y1("600"),
-            Tea_Svg.Attrs.x2("100"),
-            Tea_Svg.Attrs.y2("600"),
-            Tea_Svg.Attrs.strokeWidth("1"),
-            Tea_Svg.Attrs.strokeDasharray("4 8"),
-          },
-          list{},
-        ),
-        // Barycentre indicator dot
-        Tea_Svg.circle(
-          list{
-            Tea_Svg.Attrs.class_("fill-indigo-500/60"),
-            Tea_Svg.Attrs.cx(Float.toString(400.0 +. orbital.barycentrePosition *. 400.0)),
-            Tea_Svg.Attrs.cy("400"),
-            Tea_Svg.Attrs.r("6"),
-          },
-          list{},
-        ),
-      },
-    )
-  }
-}
-
-/// Render the active panel overlay based on the panel switcher state.
-/// Each panel module renders as a full-screen overlay on top of the core
-/// three-panel layout. Panels not yet implemented show a placeholder.
-let renderActivePanel = (model: model): Tea_Vdom.t<msg> => {
-  switch model.panelSwitcher.activePanel {
-  | None => noNode
-  | Some(PanelVab) => Vab.view(model.vab)
-  | Some(PanelCloudGuard) => CloudGuard.view(model.cloudguard)
-  | Some(PanelFarm) => Farm.view(model.farm)
-  | Some(PanelPlaza) => Plaza.view(model.plaza)
-  | Some(PanelHypatia) => Hypatia.view(model.hypatia)
-  | Some(PanelFleet) => Fleet.view(model.fleet)
-  | Some(PanelReposystem) => Reposystem.view(model.reposystem)
-  | Some(PanelDatabases) => Databases.view(model.databases)
-  | Some(PanelAerie) => Aerie.view(model.aerie)
-  | Some(PanelOo7Toolchain) => Oo7Toolchain.view(model.oo7toolchain)
-  | Some(PanelVideoCoordination) => VideoCoordination.view(model.videoCoordination)
-  | Some(PanelInterfaces) => Interfaces.view(model.interfaces)
-  | Some(PanelPlaygrounds) => Playgrounds.view(model.playgrounds)
-  | Some(PanelMinter) => Minter.view(model.minter)
-  | Some(PanelProvisioner) => Provisioner.view(model.provisioner)
-  | Some(PanelWizard) => Wizard.view(model)
-  | Some(PanelVoiceTag) => VoiceTag.view(model.voiceTag)
-  | Some(PanelAi) => Ai.view(model.ai)
-  | Some(PanelRepoLoader) => RepoLoader.view(model.repoLoader)
-  | Some(PanelWorkspace) => Workspace.view(model.workspace, model.keybindings)
-  | Some(PanelCapture) => Capture.view(model.capture)
-  | Some(PanelSecurity) => Security.view(model.security)
-  | Some(PanelMigration) => Migration.view(model.migration)
-  | Some(PanelPanicAttack) => PanicAttack.view(model.panicAttack)
-  | Some(PanelMassPanic) => MassPanic.view(model.massPanic)
-  | Some(PanelTsdm) => Tsdm.view(model.tsdm)
-  | Some(PanelValenceShell) => ValenceShell.view(model.valenceShell)
-  | Some(PanelGamePreview) => GamePreview.view(model.gamePreview)
-  | Some(PanelVmInspector) => VmInspector.view(model.vmInspector)
-  | Some(PanelNetworkTopology) => NetworkTopology.view(model.networkTopology)
-  | Some(PanelLevelArchitect) => LevelArchitect.view(model.levelArchitect)
-  | Some(PanelCoprocessors) => Coprocessors.view(model.coprocessors)
-  | Some(PanelMultiplayerMonitor) => MultiplayerMonitor.view(model.multiplayerMonitor)
-  | Some(PanelDlcWorkshop) => DlcWorkshop.view(model.dlcWorkshop)
-  | Some(PanelUms) => Ums.view(model.ums, ~levelArchitect=model.levelArchitect)
-  | Some(PanelEditorBridge) => EditorBridge.view(model.editorBridge)
-  | Some(PanelBuildDashboard) => BuildDashboard.view(model.buildDashboard)
-  | Some(PanelReleaseManager) => ReleaseManager.view(model.releaseManager)
-  | Some(PanelAutomationRouter) => AutomationRouter.view(model.automationRouter)
-  | Some(PanelScriptGist) => ScriptGist.view(model.scriptGist)
-  | Some(PanelBoj) => Boj.view(model.boj)
-  | Some(PanelCladeBrowser) => CladeBrowser.view(model.cladeBrowser)
-  | Some(PanelTentacles) => Tentacles.view(model.tentacles)
-  | Some(PanelProtocolSquisher) => ProtocolSquisher.view(model.protocolSquisher)
-  | Some(PanelMyLang) => MyLang.view(model.myLang)
-  | Some(PanelTypeLL) => TypeLL.view(model.typell)
-  | Some(PanelEvangeliser) => Evangeliser.view(model.evangeliser)
-  | Some(PanelHelp) => Help.view(model.help)
-  | Some(PanelLanguageForge) => LanguageForge.view(model.languageForge)
-  | Some(PanelTangleViz) => TangleViz.view(model.tangleViz)
-  | Some(PanelSpecBrowser) => SpecBrowser.view(model.specBrowser)
-  | Some(PanelVerificationDashboard) => VerificationDashboard.view(model.verificationDashboard)
-  | Some(PanelEchidna) => Echidna.view(model.echidna)
-  | Some(PanelObservatory) => Observatory.view(model.observatory)
-  | Some(PanelAmbientOps) => AmbientOps.view(model.ambientOps)
-  // Game Dev panels — testing
-  | Some(PanelUnitTestRunner) => UnitTestRunner.view(model.unitTestRunner)
-  | Some(PanelFunctionalTester) => FunctionalTester.view(model.functionalTester)
-  | Some(PanelRegressionGuard) => RegressionGuard.view(model.regressionGuard)
-  | Some(PanelPerformanceProfiler) => PerformanceProfiler.view(model.performanceProfiler)
-  | Some(PanelLoadTester) => LoadTester.view(model.loadTester)
-  | Some(PanelSoakMonitor) => SoakMonitor.view(model.soakMonitor)
-  | Some(PanelCompatibilityMatrix) => CompatibilityMatrix.view(model.compatibilityMatrix)
-  | Some(PanelExploratoryWorkbench) => ExploratoryWorkbench.view(model.exploratoryWorkbench)
-  | Some(PanelBetaFeedbackHub) => BetaFeedbackHub.view(model.betaFeedbackHub)
-  | Some(PanelBalanceAnalyser) => BalanceAnalyser.view(model.balanceAnalyser)
-  // Game Dev panels — bridges
-  | Some(PanelTypingBridge) => TypingBridge.view(model.typingBridge)
-  | Some(PanelNeurosymBridge) => NeurosymBridge.view(model.neurosymBridge)
-  | Some(PanelAgenticBridge) => AgenticBridge.view(model.agenticBridge)
-  | Some(PanelAutomationBridge) => AutomationBridge.view(model.automationBridge)
-  | Some(PanelDatabaseBridge) => DatabaseBridge.view(model.databaseBridge)
-  | Some(PanelProtocolBridge) => ProtocolBridge.view(model.protocolBridge)
-  | Some(PanelProofsBridge) => ProofsBridge.view(model.proofsBridge)
-  | Some(PanelScriptingBridge) => ScriptingBridge.view(model.scriptingBridge)
-  // Game Dev panels — game-specific
-  | Some(PanelGeneratorMode) => GeneratorMode.view(model.generatorMode)
-  | Some(PanelArchitectMode) => ArchitectMode.view(model.architectMode)
-  | Some(PanelGuardAiTuner) => GuardAiTuner.view(model.guardAiTuner)
-  | Some(PanelDeviceNetworkDesigner) => DeviceNetworkDesigner.view(model.deviceNetworkDesigner)
-  | Some(PanelAssetManager) => AssetManager.view(model.assetManager)
-  | Some(PanelPlaytestRecorder) => PlaytestRecorder.view(model.playtestRecorder)
-  // Team / collaboration panels
-  | Some(PanelCodeReview) => CodeReview.view(model.codeReview)
-  | Some(PanelMergeCoordinator) => MergeCoordinator.view(model.mergeCoordinator)
-  | Some(PanelTeamDashboard) => TeamDashboard.view(model.teamDashboard)
-  | Some(PanelDebuggingWorkbench) => DebuggingWorkbench.view(model.debuggingWorkbench)
-  // Infrastructure panels
-  | Some(PanelWiringInspector) => WiringInspector.view(model.wiringInspector)
-  // Floor Raise panels — foundational tool adoption campaign
-  | Some(PanelFloorRaise) => FloorRaise.view(model.floorRaise)
-  | Some(PanelProvenAdoption) => ProvenAdoption.view(model.provenAdoption)
-  | Some(PanelContractileCompleteness) =>
-    ContractileCompleteness.view(model.contractileCompleteness)
-  | Some(PanelManifestCoverage) => ManifestCoverage.view(model.manifestCoverage)
-  | Some(PanelVerisimdbFeeds) => VerisimdbFeeds.view(model.verisimdbFeeds)
-  | Some(PanelFeedbackRouting) => FeedbackRouting.view(model.feedbackRouting)
-  | Some(PanelVexometerFriction) => VexometerFriction.view(model.vexometerFriction)
-  | Some(PanelK9Manager) => K9Manager.view(model.k9Manager)
-  | Some(PanelContractileManager) => ContractileManager.view(model.contractiles, model.vexometer)
-  // VCL-total panel (broken JSX — disabled pending Vcl.res fix)
-  | Some(PanelVcl) =>
-    div(list{Attrs.class_("p-4 text-gray-400")}, list{text("VCL-total panel loading...")})
-  // LLM Coding — multi-session Claude/LLM coordinator
-  | Some(PanelLlmCoding) => LlmCoding.view(model.llmCoding)
-  // Agent Coordination View
-  | Some(PanelAgentCoordination) => AgentCoordination.view(model.agentCoordination)
-  // GSA (Game Server Admin) panels — Clade-registered, views pending
-  | Some(PanelGsaServerBrowser) =>
-    div(
-      list{Attrs.class_("p-4 text-gray-400")},
-      list{text("GSA Server Browser — panel loading...")},
-    )
-  | Some(PanelGsaConfigEditor) =>
-    div(
-      list{Attrs.class_("p-4 text-gray-400")},
-      list{text("GSA Config Editor — panel loading...")},
-    )
-  | Some(PanelGsaServerActions) =>
-    div(
-      list{Attrs.class_("p-4 text-gray-400")},
-      list{text("GSA Server Actions — panel loading...")},
-    )
-  | Some(PanelGsaLiveLogs) =>
-    div(list{Attrs.class_("p-4 text-gray-400")}, list{text("GSA Live Logs — panel loading...")})
-  | Some(PanelGsaHealthDashboard) =>
-    div(
-      list{Attrs.class_("p-4 text-gray-400")},
-      list{text("GSA Health Dashboard — panel loading...")},
-    )
-  | Some(PanelGsaConfigHistory) =>
-    div(
-      list{Attrs.class_("p-4 text-gray-400")},
-      list{text("GSA Config History — panel loading...")},
-    )
-  | Some(PanelGsaCrossSearch) =>
-    div(
-      list{Attrs.class_("p-4 text-gray-400")},
-      list{text("GSA Cross-Search — panel loading...")},
-    )
-  // Burble panels — groove-aware voice integration
-  | Some(PanelBurbleServerStatus) => BurbleServerStatus.view(model.burble)
-  | Some(PanelBurbleVoiceQuality) => BurbleVoiceQuality.view(model.burble)
-  | Some(PanelBurbleRoomMonitor) => BurbleRoomMonitor.view(model.burble)
-  // IDApTIK panels — Clade-registered, views pending
-  | Some(PanelIdaptikServerStatus) =>
-    div(
-      list{Attrs.class_("p-4 text-gray-400")},
-      list{text("IDApTIK Server Status — panel loading...")},
-    )
-  | Some(PanelIdaptikSessionMonitor) =>
-    div(
-      list{Attrs.class_("p-4 text-gray-400")},
-      list{text("IDApTIK Session Monitor — panel loading...")},
-    )
-  | Some(PanelIdaptikPlayerOverview) =>
-    div(
-      list{Attrs.class_("p-4 text-gray-400")},
-      list{text("IDApTIK Player Overview — panel loading...")},
-    )
-  }
-}
-
-/// Get the root colour classes based on view mode. Light mode uses lighter backgrounds
-/// with dark text for better contrast in high-ambient-light environments.
-let rootColourClasses = (viewMode: viewMode): string => {
-  switch viewMode {
-  | DarkStart | Standard => "bg-gray-950 text-gray-100"
-  | LightMode => "bg-gray-50 text-gray-900"
-  | Ambient | Zen => "bg-gray-950 text-gray-100"
-  }
-}
-
-/// Main view function
-let view = (model: model): Tea_Vdom.t<msg> => {
-  // Dark Start mode - show architecture manifold
-  if model.viewMode === DarkStart {
-    renderDarkStart(model)
-  } else {
-    div(
-      list{
-        Attrs.class_(
-          `h-screen ${rootColourClasses(
-              model.viewMode,
-            )} flex flex-col ${AccessibilityEngine.rootClasses(model.accessibility)}`,
-        ),
-      },
-      list{
-        // ────────────────────────────────────────────────────────────────
-        // Accessibility: Skip links (WCAG 2.1 AA §2.4.1)
-        // Visually hidden until focused via Tab key, allowing keyboard
-        // users to jump directly to main content areas.
-        // ────────────────────────────────────────────────────────────────
-        nav(
-          list{
-            Attrs.class_(
-              "sr-only focus-within:not-sr-only focus-within:fixed focus-within:top-0 focus-within:left-0 focus-within:z-50 focus-within:bg-gray-900 focus-within:p-2 focus-within:flex focus-within:gap-2",
-            ),
-            Attrs.ariaLabel("Skip navigation"),
-          },
-          list{
-            a(
-              list{
-                Attrs.href("#pane-l"),
-                Attrs.class_(
-                  "text-blue-400 underline focus:outline-2 focus:outline-blue-400 px-2 py-1 rounded",
-                ),
-              },
-              list{text("Skip to Panel-L (Symbolic)")},
-            ),
-            a(
-              list{
-                Attrs.href("#pane-n"),
-                Attrs.class_(
-                  "text-blue-400 underline focus:outline-2 focus:outline-blue-400 px-2 py-1 rounded",
-                ),
-              },
-              list{text("Skip to Panel-N (Neural)")},
-            ),
-            a(
-              list{
-                Attrs.href("#pane-w"),
-                Attrs.class_(
-                  "text-blue-400 underline focus:outline-2 focus:outline-blue-400 px-2 py-1 rounded",
-                ),
-              },
-              list{text("Skip to Panel-W (World)")},
-            ),
-            a(
-              list{
-                Attrs.href("#panel-bar"),
-                Attrs.class_(
-                  "text-blue-400 underline focus:outline-2 focus:outline-blue-400 px-2 py-1 rounded",
-                ),
-              },
-              list{text("Skip to Panel Bar")},
-            ),
-          },
-        ),
-        // Ambient substrate - Orbital Drift Aura
-        renderDriftAura(model.orbital, model.humidity),
-        // Code Provenance Map — Qubes-style trust surface (hidden in fullscreen)
-        if !model.fullscreenActive {
-          Provenance.view(model.provenance)
-        } else {
-          noNode
-        },
-        // Application menu bar — File / Edit / View / Panel / Tools / Help
-        if !model.fullscreenActive {
-          MenuBar.view(model.menuBar)
-        } else {
-          noNode
-        },
-        // Main three-pane layout (padded right for the panel bar when visible)
-        div(
-          list{
-            Attrs.class_(
-              `flex-1 flex overflow-hidden relative z-10 ${if model.panelBarVisible {
-                  "pr-12"
-                } else {
-                  ""
-                }}`,
-            ),
-            Attrs.role("main"),
-            Attrs.ariaLabel("PanLL workspace — three-pane parallel layout"),
-          },
-          list{
-            // Cross-panel circuit lines showing data flow
-            renderCircuitLines(
-              model.orbital,
-              model.paneLVisible,
-              model.paneNVisible,
-              model.paneWVisible,
-            ),
-            // Pane-A: Ambient Substrate (Ergonomics)
-            div(
-              list{
-                Attrs.id("pane-a"),
-                Attrs.class_(
-                  `w-72 overflow-auto relative border-r border-gray-900 transition-all duration-500 ${FocusDimmingEngine.panelOpacityClass(
-                      model.focusDimming,
-                      "paneA",
-                    )}`,
-                ),
-                Attrs.role("region"),
-                Attrs.ariaLabel("Panel-A — Ambient substrate and cognitive ergonomics"),
-                Events.onClick(FocusDimming(RecordInteraction("paneA"))),
-              },
-              list{
-                renderPaneA(model.paneA, true),
-                CaptureBar.view(
-                  "paneA",
-                  false,
-                  model.capture.captureBarVisible,
-                ),
-              },
-            ),
-            // Pane-L with capture bar and focus dimming
-            div(
-              list{
-                Attrs.id("pane-l"),
-                Attrs.class_(
-                  `flex-1 overflow-auto relative transition-opacity duration-500 ${FocusDimmingEngine.panelOpacityClass(
-                      model.focusDimming,
-                      "paneL",
-                    )}`,
-                ),
-                Attrs.role("region"),
-                Attrs.ariaLabel("Panel-L — Symbolic constraints and proof obligations"),
-                Events.onClick(FocusDimming(RecordInteraction("paneL"))),
-              },
-              list{
-                renderPaneL(
-                  model.paneL,
-                  if model.verisim.proofDisplayActive {
-                    model.verisim.proofObligations
-                  } else {
-                    []
-                  },
-                  model.paneLVisible,
-                ),
-                CaptureBar.view(
-                  "paneL",
-                  false,
-                  model.capture.captureBarVisible && model.paneLVisible,
-                ),
-              },
-            ),
-            // Pane-N with capture bar and focus dimming
-            div(
-              list{
-                Attrs.id("pane-n"),
-                Attrs.class_(
-                  `flex-1 overflow-auto relative transition-opacity duration-500 ${FocusDimmingEngine.panelOpacityClass(
-                      model.focusDimming,
-                      "paneN",
-                    )}`,
-                ),
-                Attrs.role("region"),
-                Attrs.ariaLabel("Panel-N — Neural inference stream and ECHIDNA prover"),
-                Events.onClick(FocusDimming(RecordInteraction("paneN"))),
-              },
-              list{
-                renderPaneN(
-                  model.paneN,
-                  model.echidna,
-                  ~inferenceStream=model.verisim.inferenceStream,
-                  model.paneNVisible,
-                ),
-                CaptureBar.view(
-                  "paneN",
-                  false,
-                  model.capture.captureBarVisible && model.paneNVisible,
-                ),
-              },
-            ),
-            // Pane-W with capture bar and focus dimming
-            div(
-              list{
-                Attrs.id("pane-w"),
-                Attrs.class_(
-                  `flex-1 overflow-auto relative transition-opacity duration-500 ${FocusDimmingEngine.panelOpacityClass(
-                      model.focusDimming,
-                      "paneW",
-                    )}`,
-                ),
-                Attrs.role("region"),
-                Attrs.ariaLabel(
-                  "Panel-W — World barycentre, validated output, and VeriSimDB tools",
-                ),
-                Events.onClick(FocusDimming(RecordInteraction("paneW"))),
-              },
-              list{
-                renderPaneW(
-                  model.paneW,
-                  model.orbital,
-                  model.verisim,
-                  model.contractiles,
-                  model.barycentreTour,
-                  model.paneWVisible,
-                ),
-                CaptureBar.view(
-                  "paneW",
-                  false,
-                  model.capture.captureBarVisible && model.paneWVisible,
-                ),
-              },
-            ),
-          },
-        ),
-        // Vexometer - hidden in fullscreen
-        if !model.fullscreenActive {
-          Vexometer.view(model.vexometer, false)
-        } else {
-          noNode
-        },
-        // Feedback-O-Tron - hidden in fullscreen
-        if !model.fullscreenActive {
-          FeedbackOTron.view(
-            model.feedbackPending,
-            model.feedbackError,
-            model.feedbackReportType,
-            model.boj,
-          )
-        } else {
-          noNode
-        },
-        // Active panel overlay — replaces ad-hoc visible checks on VAB/CloudGuard.
-        // The panel switcher routes to the correct module's view or a placeholder.
-        renderActivePanel(model),
-        // Panel switcher bar — controlled by panelBarVisible toggle
-        if model.panelBarVisible {
-          PanelSwitcher.view(model.panelSwitcher)
-        } else {
-          noNode
-        },
-        // Status bar — hidden in fullscreen
-        if !model.fullscreenActive {
-          StatusBar.view(model)
-        } else {
-          noNode
-        },
-        // Home button — fixed top-right, visible when any panel overlay is open.
-        // Provides a constant escape hatch back to the main three-panel view.
-        // Positioned top-right to avoid obscuring panel titles and left-side controls.
-        if model.panelSwitcher.activePanel !== None {
-          button(
-            list{
-              Attrs.class_(
-                "fixed top-2 right-14 z-[9998] h-8 px-3 rounded-lg bg-gray-800 hover:bg-gray-700 text-gray-300 hover:text-white shadow-lg flex items-center gap-1.5 transition-all hover:scale-105 focus:outline-none focus:ring-2 focus:ring-indigo-400 border border-gray-700 text-xs font-medium",
-              ),
-              Attrs.title("Return to main view (Escape)"),
-              Attrs.ariaLabel("Return to main view"),
-              Events.onClick(PanelSwitcher(ClosePanels)),
-            },
-            list{
-              span(list{Attrs.class_("text-sm")}, list{text("\xe2\x86\x90")}),
-              span(list{}, list{text("Back")}),
-            },
-          )
-        } else {
-          noNode
-        },
-        // Floating accessibility widget (FAB + panel) — always rendered last
-        // so it overlays all content via fixed positioning.
-        AccessibilityToolbar.view(model.accessibility),
-      },
-    )
-  }
-}
diff --git a/src/commands/A2mlCmd.affine b/src/commands/A2mlCmd.affine
new file mode 100644
index 00000000..21dc5857
--- /dev/null
+++ b/src/commands/A2mlCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module A2mlCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/A2mlCmd.res b/src/commands/A2mlCmd.res
deleted file mode 100644
index 970d2d11..00000000
--- a/src/commands/A2mlCmd.res
+++ /dev/null
@@ -1,66 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL A2ML Commands — backend invoke wrappers for A2ML manifest operations.
-/// These call into the Rust backend at src-gossamer/src/a2ml/commands.rs which
-/// handles filesystem access for loading, validating, and listing .a2ml files.
-///
-/// The Rust backend reads files and returns content as JSON strings. The
-/// ReScript A2mlEngine then handles the actual parsing and validation logic
-/// on the client side for maximum testability.
-
-let invoke = RuntimeBridge.invoke
-
-/// Load an A2ML manifest file from disk. Returns the raw file content
-/// as a JSON-wrapped string for client-side parsing by A2mlEngine.
-let loadManifest = (path: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("a2ml_load_manifest", {"path": path})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to load A2ML manifest: ${path}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Validate an A2ML manifest file on the backend. The Rust side performs
-/// basic structural checks (file exists, non-empty, valid encoding) and
-/// returns a JSON validation result. Deeper semantic validation is done
-/// client-side by A2mlEngine.validateManifest.
-let validateManifestFile = (path: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("a2ml_validate", {"path": path})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to validate A2ML manifest: ${path}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// List all .a2ml files found in the current repository. Returns a JSON
-/// array of file paths relative to the repo root.
-let listManifests = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("a2ml_list", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to list A2ML manifests")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/AerieCmd.affine b/src/commands/AerieCmd.affine
new file mode 100644
index 00000000..26605b59
--- /dev/null
+++ b/src/commands/AerieCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AerieCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/AerieCmd.res b/src/commands/AerieCmd.res
deleted file mode 100644
index 34b80699..00000000
--- a/src/commands/AerieCmd.res
+++ /dev/null
@@ -1,39 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Aerie Commands — Backend wrappers for network diagnostics.
-///
-/// Backend is V-lang API gateway at :4000 (GraphQL + REST).
-
-let invoke = RuntimeBridge.invoke
-
-/// Fetch latest latency measurements.
-let fetchLatency = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("aerie_get_latency", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Latency fetch failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Run a speed test.
-let runSpeedTest = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("aerie_speed_test", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Speed test failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/AgentCoordinationCmd.affine b/src/commands/AgentCoordinationCmd.affine
new file mode 100644
index 00000000..af6cfb73
--- /dev/null
+++ b/src/commands/AgentCoordinationCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AgentCoordinationCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/AgentCoordinationCmd.res b/src/commands/AgentCoordinationCmd.res
deleted file mode 100644
index ddf5877d..00000000
--- a/src/commands/AgentCoordinationCmd.res
+++ /dev/null
@@ -1,44 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Agent Coordination command wrappers — invoke bridge for the
-/// coordination view panel.
-///
-/// All commands invoke BoJ cartridge endpoints for multi-agent topology
-/// and strategy management. Uses `Tea_Cmd.call` for async operations.
-
-let invoke = RuntimeBridge.invoke
-
-/// Fetch the current agent coordination topology.
-/// Returns JSON with nodes, edges, and active strategy.
-let topology = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("agent_coord_topology", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to fetch coordination topology")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Set the coordination strategy for the agent system.
-/// Returns JSON confirming the strategy change.
-let setStrategy = (strategyId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("agent_coord_set_strategy", {"strategy_id": strategyId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to set coordination strategy")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/AgentOodaCmd.affine b/src/commands/AgentOodaCmd.affine
new file mode 100644
index 00000000..48e28444
--- /dev/null
+++ b/src/commands/AgentOodaCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AgentOodaCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/AgentOodaCmd.res b/src/commands/AgentOodaCmd.res
deleted file mode 100644
index 4cf6e530..00000000
--- a/src/commands/AgentOodaCmd.res
+++ /dev/null
@@ -1,82 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Agent OODA command wrappers — invoke bridge for the
-/// OODA session monitor panel.
-///
-/// All commands invoke BoJ cartridge endpoints for agent OODA session
-/// management. Uses `Tea_Cmd.call` for async operations.
-
-let invoke = RuntimeBridge.invoke
-
-/// List all active OODA sessions.
-/// Returns JSON array of session summary objects.
-let listSessions = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("agent_ooda_list_sessions", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to list OODA sessions")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Get detailed information for a specific OODA session.
-/// Returns JSON with full session detail including transition history.
-let sessionDetail = (sessionId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("agent_ooda_session_detail", {"session_id": sessionId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to fetch session detail")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Manually advance an agent session to the next OODA state.
-/// Returns JSON with the updated session state.
-let advance = (sessionId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("agent_ooda_advance", {"session_id": sessionId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to advance session")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Halt an agent session immediately.
-/// Returns JSON confirming the halt.
-let halt = (sessionId: string, reason: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("agent_ooda_halt", {"session_id": sessionId, "reason": reason})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to halt session")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/AgentSafetyCmd.affine b/src/commands/AgentSafetyCmd.affine
new file mode 100644
index 00000000..fe0162f3
--- /dev/null
+++ b/src/commands/AgentSafetyCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AgentSafetyCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/AgentSafetyCmd.res b/src/commands/AgentSafetyCmd.res
deleted file mode 100644
index ff5d5aa5..00000000
--- a/src/commands/AgentSafetyCmd.res
+++ /dev/null
@@ -1,80 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Agent Safety command wrappers — invoke bridge for the
-/// safety gate panel.
-///
-/// All commands invoke BoJ cartridge endpoints for agent tool call
-/// safety management. Uses `Tea_Cmd.call` for async operations.
-
-let invoke = RuntimeBridge.invoke
-
-/// Fetch all pending safety events awaiting human review.
-/// Returns JSON array of safety event objects.
-let pending = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("agent_safety_pending", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to fetch pending safety events")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Approve a pending safety event, allowing the tool call to proceed.
-/// Returns JSON confirming the approval.
-let approve = (eventId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("agent_safety_approve", {"event_id": eventId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to approve safety event")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Deny a pending safety event, blocking the tool call.
-/// Returns JSON confirming the denial.
-let deny = (eventId: string, reason: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("agent_safety_deny", {"event_id": eventId, "reason": reason})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to deny safety event")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Fetch historical safety events.
-/// Returns JSON array of safety event objects sorted by timestamp.
-let history = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("agent_safety_history", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to fetch safety history")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/AiCmd.affine b/src/commands/AiCmd.affine
new file mode 100644
index 00000000..5a661cc6
--- /dev/null
+++ b/src/commands/AiCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AiCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/AiCmd.res b/src/commands/AiCmd.res
deleted file mode 100644
index 4c641adb..00000000
--- a/src/commands/AiCmd.res
+++ /dev/null
@@ -1,220 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL AI Commands — Backend command wrappers for the multi-provider AI panel.
-///
-/// Each function wraps a backend `invoke` call in a `Tea_Cmd.call`, converting
-/// the Promise-based IPC into the TEA command model. Results arrive as
-/// JSON strings; parsing happens in the Update layer, not here.
-///
-/// Pattern: `commandName(args..., tagger) => Tea_Cmd.t<'msg>`
-/// where `tagger: result<string, string> => 'msg` wraps the result into
-/// the panel's message type.
-
-let invoke = RuntimeBridge.invoke
-
-/// Send a message to the AI provider. The backend selects the highest-priority
-/// enabled provider (or uses the specified one) and returns the response.
-let sendMessage = (
-  content: string,
-  history: array<JSON.t>,
-  systemPrompt: string,
-  providerId: option<string>,
-  broadcast: bool,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke(
-      "ai_send_message",
-      {
-        "request": {
-          "content": content,
-          "history": history,
-          "system_prompt": systemPrompt,
-          "provider_id": providerId,
-          "broadcast": broadcast,
-        },
-      },
-    )
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to send AI message")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Check if a provider is reachable and properly authenticated.
-let checkProvider = (providerId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("ai_check_provider", {"providerId": providerId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to check provider: ${providerId}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Change the selected model for a provider.
-let setModel = (
-  providerId: string,
-  model: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("ai_set_model", {"providerId": providerId, "model": model})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to set model for ${providerId}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Change a provider's precedence ranking.
-let setPriority = (
-  providerId: string,
-  priority: int,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("ai_set_priority", {"providerId": providerId, "priority": priority})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to set priority for ${providerId}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Enable or disable a provider (mute/unmute without losing the API key).
-let toggleProvider = (providerId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("ai_toggle_provider", {"providerId": providerId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to toggle provider: ${providerId}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Clear the conversation history.
-let clearHistory = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("ai_clear_history", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to clear history")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Build the system prompt context from a repository path.
-let buildContext = (repoPath: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("ai_build_context", {"repoPath": repoPath})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to build context for ${repoPath}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Fire-and-forget streaming message. Results arrive via backend events on
-/// `ai:stream-chunk`. This command returns immediately with "streaming_started".
-///
-/// The streaming provider emits StreamChunk events that the frontend receives
-/// via GossamerEvents.onAiStreamChunk and feeds into the TEA update loop.
-///
-/// @param content — the user's message text
-/// @param history — conversation history (JSON-serialised AiMessages)
-/// @param systemPrompt — assembled system prompt
-/// @param providerId — explicit provider or None for auto-select
-/// @param tools — tool definitions for Claude's tool_use (or None)
-/// @param toolResults — results from previously executed tool calls (or None)
-/// @param tagger — TEA message tagger for the fire-and-forget acknowledgement
-let sendMessageStreaming = (
-  content: string,
-  history: array<JSON.t>,
-  systemPrompt: string,
-  providerId: option<string>,
-  tools: option<JSON.t>,
-  toolResults: option<JSON.t>,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke(
-      "ai_send_message_streaming",
-      {
-        "request": {
-          "content": content,
-          "history": history,
-          "system_prompt": systemPrompt,
-          "provider_id": providerId,
-          "tools": tools,
-          "tool_results": toolResults,
-        },
-      },
-    )
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to start streaming")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Load the current provider configuration state from disk.
-let getState = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("ai_get_state", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to load AI provider state")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/AutomationRouterCmd.affine b/src/commands/AutomationRouterCmd.affine
new file mode 100644
index 00000000..20386179
--- /dev/null
+++ b/src/commands/AutomationRouterCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AutomationRouterCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/AutomationRouterCmd.res b/src/commands/AutomationRouterCmd.res
deleted file mode 100644
index dd24d4c5..00000000
--- a/src/commands/AutomationRouterCmd.res
+++ /dev/null
@@ -1,86 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Automation Router Commands — backend invoke wrappers for loading,
-/// saving, and executing automation workflow rules.
-
-let invoke = RuntimeBridge.invoke
-
-/// Load automation rules from .machine_readable/ENSAID_CONFIG.a2ml or local storage.
-let loadRules = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("automation_load_rules", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to load automation rules")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Save automation rules to local storage.
-let saveRules = (rulesJson: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("automation_save_rules", {"rulesJson": rulesJson})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to save automation rules")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Execute an automation rule's actions.
-let executeRule = (ruleId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("automation_execute_rule", {"ruleId": ruleId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to execute automation rule")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Load rules from .machine_readable/ENSAID_CONFIG.a2ml in the current repo.
-let loadFromRepo = (repoPath: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("automation_load_from_repo", {"repoPath": repoPath})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("No ENSAID_CONFIG.a2ml found in repo")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Read execution history.
-let readHistory = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("automation_read_history", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to read execution history")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/BojCmd.affine b/src/commands/BojCmd.affine
new file mode 100644
index 00000000..c6bfe447
--- /dev/null
+++ b/src/commands/BojCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module BojCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/BojCmd.res b/src/commands/BojCmd.res
deleted file mode 100644
index 2120e153..00000000
--- a/src/commands/BojCmd.res
+++ /dev/null
@@ -1,192 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL BoJ Commands — backend invoke wrappers for the Bundle of Joy
-/// cartridge server. These call into the Rust backend at src-gossamer/src/boj/commands.rs
-/// which proxies to the BoJ server at BOJ_URL (default http://localhost:7700/api/v1).
-
-let invoke = RuntimeBridge.invoke
-
-/// Check BoJ server health.
-let health = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("boj_health", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("BoJ server unreachable")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// List all cartridges from the BoJ server.
-let listCartridges = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("boj_list_cartridges", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to list cartridges")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Get detailed info for a specific cartridge.
-let getCartridge = (name: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("boj_get_cartridge", {"name": name})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to get cartridge: ${name}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Load (mount) a cartridge into the BoJ runtime.
-let loadCartridge = (name: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("boj_load_cartridge", {"name": name})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to load cartridge: ${name}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Unload (unmount) a cartridge from the BoJ runtime.
-let unloadCartridge = (name: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("boj_unload_cartridge", {"name": name})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to unload cartridge: ${name}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Get the full topology (architecture diagram data).
-let topology = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("boj_topology", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to get topology")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Invoke a tool on a specific cartridge.
-let invokeCartridge = (
-  name: string,
-  tool: string,
-  args: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("boj_invoke", {"name": name, "tool": tool, "args": args})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Invocation failed: ${name}/${tool}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Invoke a tool on a cartridge with latency measurement.
-/// Fires both the result tagger and a latency tagger with (cartridge, tool, elapsed ms).
-let invokeCartridgeWithLatency = (
-  name: string,
-  tool: string,
-  args: string,
-  resultTagger: result<string, string> => 'msg,
-  latencyTagger: (string, string, float) => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let startTime = Date.now()
-    invoke("boj_invoke", {"name": name, "tool": tool, "args": args})
-    ->Promise.then(result => {
-      let elapsed = Date.now() -. startTime
-      callbacks.enqueue(resultTagger(Ok(result)))
-      callbacks.enqueue(latencyTagger(name, tool, elapsed))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      let elapsed = Date.now() -. startTime
-      callbacks.enqueue(resultTagger(Error(`Invocation failed: ${name}/${tool}`)))
-      callbacks.enqueue(latencyTagger(name, tool, elapsed))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Type-safe cartridge invocation — compile-time validated via CartridgeAbi.
-/// Prefer this over the raw string-based invokeCartridge/invokeCartridgeWithLatency.
-/// Usage: BojCmd.invokeTyped(Database(ExecuteVcl), args, resultTagger, latencyTagger)
-let invokeTyped = (
-  inv: CartridgeAbi.invocation,
-  args: string,
-  resultTagger: result<string, string> => 'msg,
-  latencyTagger: (string, string, float) => 'msg,
-): Tea_Cmd.t<'msg> => {
-  let (name, tool) = CartridgeAbi.toWire(inv)
-  invokeCartridgeWithLatency(name, tool, args, resultTagger, latencyTagger)
-}
-
-/// Type-safe cartridge invocation without latency tracking.
-/// Usage: BojCmd.invokeTypedSimple(Nesy(Harmonize), args, resultTagger)
-let invokeTypedSimple = (
-  inv: CartridgeAbi.invocation,
-  args: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  let (name, tool) = CartridgeAbi.toWire(inv)
-  invokeCartridge(name, tool, args, tagger)
-}
-
-/// Get Umoja federation status.
-let umojaStatus = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("boj_umoja_status", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to get Umoja status")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/BojLiveCmd.affine b/src/commands/BojLiveCmd.affine
new file mode 100644
index 00000000..c14646c0
--- /dev/null
+++ b/src/commands/BojLiveCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module BojLiveCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/BojLiveCmd.res b/src/commands/BojLiveCmd.res
deleted file mode 100644
index 8c849c74..00000000
--- a/src/commands/BojLiveCmd.res
+++ /dev/null
@@ -1,109 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// BoJ Live Commands — async BoJ-server connection via the shared HTTP client.
-///
-/// These wrap the async backend commands from `boj_live.rs` and provide the same
-/// TEA-compatible callback interface as `BojCmd.res`. Panels can switch between
-/// mock (BojCmd) and live (BojLiveCmd) backends by routing through the panel
-/// config's `bojRouting` flag.
-///
-/// All commands talk to the BoJ server at BOJ_URL (default localhost:7700).
-
-let invoke = RuntimeBridge.invoke
-
-/// Check BoJ-server health (async endpoint).
-/// Calls `boj_live_health` which hits `GET /health` on the BoJ server.
-let checkHealth = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("boj_live_health", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("BoJ server unreachable")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// List available cartridges (async endpoint).
-/// Calls `boj_live_cartridges` which hits `GET /cartridges` on the BoJ server.
-let listCartridges = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("boj_live_cartridges", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to list cartridges")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Invoke a cartridge tool (async endpoint).
-/// Calls `boj_live_invoke` which hits `POST /cartridges/{cartridge}/invoke`.
-///
-/// @param cartridge — name of the target cartridge (e.g. "database", "nesy")
-/// @param tool — tool/function name within the cartridge
-/// @param params — JSON string of tool arguments
-/// @param tagger — TEA message tagger for the result
-let invokeCartridge = (
-  cartridge: string,
-  tool: string,
-  params: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("boj_live_invoke", {"cartridge": cartridge, "tool": tool, "params": params})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Cartridge invoke failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Get cartridge topology / dependency graph (async endpoint).
-/// Calls `boj_live_topology` which hits `GET /topology` on the BoJ server.
-let getTopology = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("boj_live_topology", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to get topology")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Check if BoJ-server is reachable (async health probe).
-/// Returns `{"reachable": bool, "endpoint": "..."}` — useful for panel bar
-/// connection-dot indicators (green/red).
-let checkReachable = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("boj_live_check", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Connection check failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/BuildDashboardCmd.affine b/src/commands/BuildDashboardCmd.affine
new file mode 100644
index 00000000..1c1a19af
--- /dev/null
+++ b/src/commands/BuildDashboardCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module BuildDashboardCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/BuildDashboardCmd.res b/src/commands/BuildDashboardCmd.res
deleted file mode 100644
index e3c4e170..00000000
--- a/src/commands/BuildDashboardCmd.res
+++ /dev/null
@@ -1,86 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Build Dashboard Commands — backend invoke wrappers for triggering
-/// builds, reading build status, and running tests.
-
-let invoke = RuntimeBridge.invoke
-
-/// Trigger a build for a specific target.
-let triggerBuild = (target: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("build_trigger", {"target": target})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Build trigger failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Read the current build status for all targets.
-let readBuildStatus = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("build_read_status", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to read build status")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Run the test suite for a target.
-let runTests = (target: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("build_run_tests", {"target": target})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Test run failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Cancel a running build.
-let cancelBuild = (target: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("build_cancel", {"target": target})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to cancel build")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Read build history.
-let readHistory = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("build_read_history", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to read build history")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/BurbleCmd.affine b/src/commands/BurbleCmd.affine
new file mode 100644
index 00000000..b1d8ee39
--- /dev/null
+++ b/src/commands/BurbleCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module BurbleCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/BurbleCmd.res b/src/commands/BurbleCmd.res
deleted file mode 100644
index 25259435..00000000
--- a/src/commands/BurbleCmd.res
+++ /dev/null
@@ -1,261 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-//
-// BurbleCmd — TEA command wrappers for PanLL's Burble voice integration.
-//
-// All commands use the invoke bridge to communicate with the Rust
-// backend, which manages the WebSocket connection to the Burble voice
-// server at ws://localhost:6473/voice.
-//
-// Pattern: same as LlmCodingCmd.res — Tea_Cmd.call wrapping backend invokes
-// with Promise-based async flow and result tagging.
-//
-// The Workspace profile is always used:
-//   - Always-on VAD (hands-free)
-//   - Noise suppression ON
-//   - Echo cancellation ON
-//   - No spatial audio
-//   - E2EE ON
-
-let invoke = RuntimeBridge.invoke
-
-// ============================================================================
-// Connection lifecycle
-// ============================================================================
-
-/// Connect to the Burble voice server.
-/// The backend establishes a Phoenix WebSocket to ws://localhost:6473/voice
-/// with the Workspace profile applied.
-let connect = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke(
-      "burble_connect",
-      {
-        "server_url": "ws://localhost:6473/voice",
-        "profile": "workspace",
-      },
-    )
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to connect to Burble")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Disconnect from the Burble voice server.
-let disconnect = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("burble_disconnect", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to disconnect from Burble")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-// ============================================================================
-// Huddle lifecycle
-// ============================================================================
-
-/// Join a workspace huddle by huddle ID.
-/// Creates/joins the voice room on the Burble server.
-let joinHuddle = (huddleId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("burble_join_huddle", {"huddle_id": huddleId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to join huddle")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Leave the current workspace huddle.
-let leaveHuddle = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("burble_leave_huddle", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to leave huddle")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-// ============================================================================
-// Voice controls
-// ============================================================================
-
-/// Toggle the local user's mute state.
-let toggleMute = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("burble_toggle_mute", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to toggle mute")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Toggle the local user's deafen state.
-/// Deafening also mutes the user.
-let toggleDeafen = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("burble_toggle_deafen", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to toggle deafen")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-// ============================================================================
-// Participant queries
-// ============================================================================
-
-/// Fetch the current list of participants in the huddle.
-/// Returns a JSON string that the update function can parse.
-let getParticipants = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("burble_get_participants", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to get participants")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-// ============================================================================
-// Groove discovery — probe Burble's /.well-known/groove endpoint
-// ============================================================================
-
-/// Probe the Burble groove endpoint to discover capabilities.
-/// GET http://localhost:6473/.well-known/groove
-/// Returns the groove manifest JSON (service_id, capabilities, endpoints).
-let checkGroove = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke(
-      "burble_check_groove",
-      {
-        "url": "http://localhost:6473/.well-known/groove",
-      },
-    )
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Groove probe failed — Burble not reachable")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-// ============================================================================
-// Room management — list and query rooms via groove API
-// ============================================================================
-
-/// List active rooms on the Burble server.
-/// GET http://localhost:6473/api/v1/servers/:id/rooms
-/// The serverId "local" is used for the default local Burble instance.
-let listRooms = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke(
-      "burble_list_rooms",
-      {
-        "url": "http://localhost:6473/api/v1/servers/local/rooms",
-      },
-    )
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to list rooms")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-// ============================================================================
-// Health check — query Burble server health
-// ============================================================================
-
-/// Check the Burble server health endpoint.
-/// GET http://localhost:6473/api/v1/health
-/// Returns JSON with server status, uptime, room count, participant count.
-let getHealth = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke(
-      "burble_get_health",
-      {
-        "url": "http://localhost:6473/api/v1/health",
-      },
-    )
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Health check failed — Burble not reachable")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-// ============================================================================
-// Voice stats — WebRTC quality metrics
-// ============================================================================
-
-/// Query WebRTC voice statistics for the active session.
-/// Returns latency, jitter, packet loss, bitrate, codec info as JSON.
-let getVoiceStats = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("burble_get_voice_stats", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to get voice stats")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/CaptureCmd.affine b/src/commands/CaptureCmd.affine
new file mode 100644
index 00000000..5895fd87
--- /dev/null
+++ b/src/commands/CaptureCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CaptureCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/CaptureCmd.res b/src/commands/CaptureCmd.res
deleted file mode 100644
index 5a988f0a..00000000
--- a/src/commands/CaptureCmd.res
+++ /dev/null
@@ -1,99 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Capture Commands — IPC wrappers for screenshot, recording,
-/// and demo operations (DD-022).
-///
-/// These functions bridge the ReScript TEA loop with the Rust backend
-/// for capture persistence and demo package management. Each function
-/// returns a Tea_Cmd that dispatches a result message back into the
-/// update loop via `callbacks.enqueue`.
-
-open Msg
-
-/// Backend invoke binding via RuntimeBridge.
-let invoke = RuntimeBridge.invoke
-
-/// Save a screenshot to disk. The base64 data is captured in the frontend
-/// via html2canvas and sent to Rust for file I/O.
-let saveScreenshot = (
-  captureId: string,
-  panelId: string,
-  base64Data: string,
-  format: string,
-): Tea_Cmd.t<msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke(
-      "save_screenshot",
-      {
-        "captureId": captureId,
-        "panelId": panelId,
-        "base64Data": base64Data,
-        "format": format,
-      },
-    )
-    ->Promise.then(result => {
-      callbacks.enqueue(Capture(ScreenshotSaved(Ok(result))))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(Capture(ScreenshotSaved(Error("Failed to save screenshot"))))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Invoke the system print dialog for a panel.
-let printPanel = (panelId: string): Tea_Cmd.t<msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("print_panel", {"panelId": panelId})
-    ->Promise.then(result => {
-      callbacks.enqueue(Capture(PrintResult(Ok(result))))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(Capture(PrintResult(Error("Failed to print panel"))))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Save a demo package to disk.
-let saveDemo = (demoJson: string): Tea_Cmd.t<msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("save_demo", {"demoJson": demoJson})
-    ->Promise.then(result => {
-      callbacks.enqueue(Capture(DemoSaved(Ok(result))))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(Capture(DemoSaved(Error("Failed to save demo"))))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Load all demo packages from disk.
-let loadDemos = (): Tea_Cmd.t<msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("load_demos", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(Capture(DemosLoaded(Ok(result))))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(Capture(DemosLoaded(Error("Failed to load demos"))))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Delete a demo package from disk.
-let deleteDemo = (demoId: string): Tea_Cmd.t<msg> => {
-  Tea_Cmd.call(_callbacks => {
-    invoke("delete_demo", {"demoId": demoId})->ignore
-  })
-}
diff --git a/src/commands/CladeCmd.affine b/src/commands/CladeCmd.affine
new file mode 100644
index 00000000..6bb98e4c
--- /dev/null
+++ b/src/commands/CladeCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CladeCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/CladeCmd.res b/src/commands/CladeCmd.res
deleted file mode 100644
index c2cacc0e..00000000
--- a/src/commands/CladeCmd.res
+++ /dev/null
@@ -1,25 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Clade Commands — Backend command wrappers for scanning `.a2ml` clade files.
-///
-/// Invokes `scan_clade_files` on the Rust backend to read all clade definitions
-/// from `panel-clades/clades/`. Returns a JSON array of `{id, content}` objects.
-
-let invoke = RuntimeBridge.invoke
-
-/// Scan all `.a2ml` clade files from the panel-clades directory.
-/// Returns a JSON string: `[{"id": "...", "content": "..."}]`.
-let scanCladeFiles = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("scan_clade_files", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to scan clade files")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/CloudGuardCmd.affine b/src/commands/CloudGuardCmd.affine
new file mode 100644
index 00000000..4242dfd7
--- /dev/null
+++ b/src/commands/CloudGuardCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CloudGuardCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/CloudGuardCmd.res b/src/commands/CloudGuardCmd.res
deleted file mode 100644
index 43e081c1..00000000
--- a/src/commands/CloudGuardCmd.res
+++ /dev/null
@@ -1,357 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// CloudGuard Backend Command Wrappers — TEA commands for Cloudflare API operations.
-///
-/// Each function wraps a backend command handler from
-/// `src-gossamer/src/cloudguard/commands.rs`, using the `Tea_Cmd.call` pattern
-/// to bridge async backend invocations into the TEA update loop.
-///
-/// Pattern:
-///   1. Call `invoke("cloudguard_*", params)` → returns Promise
-///   2. On success: `callbacks.enqueue(tagger(Ok(jsonString)))`
-///   3. On failure: `callbacks.enqueue(tagger(Error(errorMessage)))`
-///
-/// The frontend parses JSON strings from `Ok(...)` results in the Update.res
-/// sub-updater using `JSON.parseExn` and `JSON.Classify.classify`.
-
-/// Backend invoke binding via RuntimeBridge.
-let invoke = RuntimeBridge.invoke
-
-// ============================================================================
-// Token verification (health check / connection)
-// ============================================================================
-
-/// Verify the Cloudflare API token. Returns connection status JSON.
-/// Called when the CloudGuard panel opens and periodically to maintain state.
-let verifyToken = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("cloudguard_verify_token", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Cloudflare token verification failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-// ============================================================================
-// Zone operations
-// ============================================================================
-
-/// List all Cloudflare zones (domains) in the account.
-/// Returns JSON array of zone objects.
-let listZones = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("cloudguard_list_zones", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to list Cloudflare zones")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Get details for a single zone by ID.
-/// Returns JSON zone object.
-let getZone = (zoneId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("cloudguard_get_zone", {"zone_id": zoneId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to get zone details")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-// ============================================================================
-// Settings operations
-// ============================================================================
-
-/// Get all settings for a zone.
-/// Returns JSON array of setting objects.
-let getSettings = (zoneId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("cloudguard_get_settings", {"zone_id": zoneId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to get zone settings")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Update a single zone setting.
-/// `value` is a JSON-encoded string of the new value.
-/// Returns JSON of the updated setting.
-let updateSetting = (
-  zoneId: string,
-  settingId: string,
-  value: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke(
-      "cloudguard_update_setting",
-      {"zone_id": zoneId, "setting_id": settingId, "value": value},
-    )
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to update setting " ++ settingId)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Batch-update multiple settings for a zone.
-/// `settingsJson` is a JSON array of `[{id, value}]` objects.
-/// Returns JSON of the updated settings.
-let updateSettingsBatch = (
-  zoneId: string,
-  settingsJson: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("cloudguard_update_settings_batch", {"zone_id": zoneId, "settings_json": settingsJson})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to batch-update settings")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-// ============================================================================
-// DNS record operations
-// ============================================================================
-
-/// List all DNS records for a zone.
-/// Returns JSON array of DNS record objects.
-let listDnsRecords = (zoneId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("cloudguard_list_dns_records", {"zone_id": zoneId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to list DNS records")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Create a new DNS record.
-/// Payload fields: zone_id, record_type, name, content, ttl, proxied, priority, comment.
-let createDnsRecord = (
-  zoneId: string,
-  recordType: string,
-  name: string,
-  content: string,
-  ttl: int,
-  proxied: option<bool>,
-  priority: option<int>,
-  comment: option<string>,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let payload = Dict.fromArray([
-      ("zone_id", JSON.Encode.string(zoneId)),
-      ("record_type", JSON.Encode.string(recordType)),
-      ("name", JSON.Encode.string(name)),
-      ("content", JSON.Encode.string(content)),
-      ("ttl", JSON.Encode.int(ttl)),
-    ])
-    // Add optional fields
-    switch proxied {
-    | Some(p) => Dict.set(payload, "proxied", JSON.Encode.bool(p))
-    | None => ()
-    }
-    switch priority {
-    | Some(p) => Dict.set(payload, "priority", JSON.Encode.int(p))
-    | None => ()
-    }
-    switch comment {
-    | Some(c) => Dict.set(payload, "comment", JSON.Encode.string(c))
-    | None => ()
-    }
-
-    invoke("cloudguard_create_dns_record", JSON.Encode.object(payload))
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to create DNS record")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Delete a DNS record from a zone.
-/// Returns a success/failure result.
-let deleteDnsRecord = (
-  zoneId: string,
-  recordId: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("cloudguard_delete_dns_record", {"zone_id": zoneId, "record_id": recordId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to delete DNS record")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-// ============================================================================
-// DNSSEC operations
-// ============================================================================
-
-/// Get DNSSEC status for a zone.
-/// Returns JSON with status, DS record info, algorithm, etc.
-let getDnssec = (zoneId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("cloudguard_get_dnssec", {"zone_id": zoneId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to get DNSSEC status")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Enable DNSSEC for a zone.
-/// Returns the updated DNSSEC status JSON.
-let enableDnssec = (zoneId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("cloudguard_enable_dnssec", {"zone_id": zoneId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to enable DNSSEC")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-// ============================================================================
-// Offline config — download/upload zone configurations
-// ============================================================================
-
-/// Download the offline configuration for a zone (settings + DNS records).
-/// Saves to ~/.config/cloudguard/configs/{domain}.json and returns the path.
-let downloadConfig = (zoneId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("cloudguard_download_config", {"zone_id": zoneId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to download config")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-// ============================================================================
-// Hardening — one-click security defaults
-// ============================================================================
-
-/// Apply the standard hardening settings to a zone.
-/// This is the "Harden" button — applies SSL/TLS, HSTS, headers, etc.
-/// Returns JSON with status and number of settings updated.
-/// Compute a diff between current live settings and a saved configuration.
-/// Returns JSON with the list of changed, added, and removed settings.
-let computeDiff = (
-  zoneId: string,
-  savedConfigId: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("cloudguard_compute_diff", {"zone_id": zoneId, "config_id": savedConfigId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to compute config diff")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// List all saved configurations for a zone.
-/// Returns JSON array of saved config metadata (id, name, timestamp).
-let listSavedConfigs = (zoneId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("cloudguard_list_saved_configs", {"zone_id": zoneId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to list saved configs")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-let hardenZone = (zoneId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("cloudguard_harden_zone", {"zone_id": zoneId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Zone hardening failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/CoprocessorsCmd.affine b/src/commands/CoprocessorsCmd.affine
new file mode 100644
index 00000000..8515fc86
--- /dev/null
+++ b/src/commands/CoprocessorsCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CoprocessorsCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/CoprocessorsCmd.res b/src/commands/CoprocessorsCmd.res
deleted file mode 100644
index e0a9e3ed..00000000
--- a/src/commands/CoprocessorsCmd.res
+++ /dev/null
@@ -1,217 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Coprocessors Commands — backend invoke wrappers for reading
-/// coprocessor metrics, call logs, and backend health from the
-/// running IDApTIK game instance.
-
-let invoke = RuntimeBridge.invoke
-
-/// Read metrics for all coprocessor backends.
-let readMetrics = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("read_coprocessor_metrics", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to read coprocessor metrics")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Read the coprocessor call log.
-let readCallLog = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("read_coprocessor_call_log", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to read call log")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Read the heatmap data (call frequency over time).
-let readHeatmap = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("read_coprocessor_heatmap", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to read heatmap")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Toggle a coprocessor backend on/off.
-let toggleBackend = (
-  backendId: string,
-  enabled: bool,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("toggle_coprocessor_backend", {"backendId": backendId, "enabled": enabled})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to toggle backend")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Query an external compute engine (control plane).
-let queryComputeEngine = (
-  engineId: string,
-  operation: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("query_compute_engine", {"engineId": engineId, "operation": operation})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to query compute engine")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Discover available compute devices from all engines.
-let discoverDevices = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("discover_compute_devices", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to discover compute devices")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Dispatch a compute operation to local Zig FFI (Phase 2).
-let dispatchLocal = (
-  operation: string,
-  input: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("coprocessor_dispatch_local", {"operation": operation, "input": input})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to dispatch local compute operation")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Check local FFI availability — is the .so loaded? (Phase 2).
-let checkFfiStatus = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("coprocessor_check_ffi", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to check FFI status")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Benchmark local compute — run standard test suite (Phase 2).
-let benchmarkLocal = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("coprocessor_benchmark", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to run local benchmark")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Phase 2: Load the Zig FFI shared library for local GPU/CPU dispatch.
-/// Returns JSON with load status, available devices, and library version.
-let loadLocalFfi = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("coprocessor_load_ffi", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to load Zig FFI library")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Phase 2: Query local system resources (CPU utilisation, GPU memory).
-let queryLocalResources = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("coprocessor_local_resources", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to query local resources")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Phase 3: Smart dispatch — auto-selects local vs remote based on load,
-/// capability, and availability. The backend implements the routing logic.
-let smartDispatch = (
-  operation: string,
-  payload: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("coprocessor_smart_dispatch", {"operation": operation, "payload": payload})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Smart dispatch failed: ${operation}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/DlcWorkshopCmd.affine b/src/commands/DlcWorkshopCmd.affine
new file mode 100644
index 00000000..6d49406f
--- /dev/null
+++ b/src/commands/DlcWorkshopCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module DlcWorkshopCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/DlcWorkshopCmd.res b/src/commands/DlcWorkshopCmd.res
deleted file mode 100644
index 503040a6..00000000
--- a/src/commands/DlcWorkshopCmd.res
+++ /dev/null
@@ -1,134 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL DLC Workshop Commands — backend invoke wrappers for DLC puzzle
-/// pack creation, testing, and packaging operations.
-
-let invoke = RuntimeBridge.invoke
-
-/// Load puzzles from the DLC directory.
-let loadPuzzles = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("dlc_load_puzzles", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to load puzzles")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Save a puzzle to disk.
-let savePuzzle = (data: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("dlc_save_puzzle", {"data": data})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to save puzzle")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Run the solution test suite for a puzzle.
-let runTest = (puzzleId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("dlc_run_test", {"puzzleId": puzzleId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Test run failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Run all tests in the DLC pack.
-let runAllTests = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("dlc_run_all_tests", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Test suite failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Browse DLC assets.
-let browseAssets = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("dlc_browse_assets", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to browse assets")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Package the DLC pack for distribution.
-let packageDlc = (data: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("dlc_package", {"data": data})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to package DLC")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Import a puzzle from a file.
-let importPuzzle = (path: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("dlc_import_puzzle", {"path": path})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to import puzzle")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Export a puzzle to a file.
-let exportPuzzle = (puzzleId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("dlc_export_puzzle", {"puzzleId": puzzleId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to export puzzle")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/EchidnaLiveCmd.affine b/src/commands/EchidnaLiveCmd.affine
new file mode 100644
index 00000000..89b5b29f
--- /dev/null
+++ b/src/commands/EchidnaLiveCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module EchidnaLiveCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/EchidnaLiveCmd.res b/src/commands/EchidnaLiveCmd.res
deleted file mode 100644
index 7aff6ecf..00000000
--- a/src/commands/EchidnaLiveCmd.res
+++ /dev/null
@@ -1,190 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// ECHIDNA Live Commands — async ECHIDNA proof assistant connection via the shared HTTP client.
-///
-/// These wrap the async backend commands from `echidna_live.rs` and provide the same
-/// TEA-compatible callback interface used throughout PanLL. Panels can switch between
-/// mock and live backends by routing through the panel config's routing flag.
-///
-/// All commands talk to the ECHIDNA server at ServiceEndpoints.echidna
-/// (default http://localhost:9000/api/v1).
-///
-/// ECHIDNA is the multi-solver dispatch layer — it receives proof obligations,
-/// farms them out to Idris2/Lean/Coq/Z3 backends, and returns tactics or results.
-///
-/// In browser-only mode (no desktop runtime), commands fall back to direct
-/// fetch() calls against the ECHIDNA server URL.
-
-let hasDesktopRuntime = RuntimeBridge.hasDesktopRuntime
-
-/// GET helper for ECHIDNA direct fetch (bypasses backend invoke).
-/// panic-attack:allow insecure-protocol — localhost development endpoint.
-let fetchGet: string => promise<string> = %raw(`
-  function(path) {
-    return fetch("http://localhost:9000/api/v1" + path)
-      .then(function(r) {
-        if (!r.ok) throw new Error("ECHIDNA returned " + r.status);
-        return r.text();
-      });
-  }
-`)
-
-/// POST helper for ECHIDNA direct fetch (bypasses backend invoke).
-/// panic-attack:allow insecure-protocol — localhost development endpoint.
-let fetchPost: (string, string) => promise<string> = %raw(`
-  function(path, body) {
-    return fetch("http://localhost:9000/api/v1" + path, {
-      method: "POST",
-      headers: { "Content-Type": "application/json" },
-      body: body
-    }).then(function(r) {
-      if (!r.ok) throw new Error("ECHIDNA returned " + r.status);
-      return r.text();
-    });
-  }
-`)
-
-/// Check ECHIDNA server health (async endpoint).
-/// Calls `echidna_live_health` which hits `GET /health` on the ECHIDNA server.
-/// Returns a JSON string with server status, connected solvers, and queue depth.
-///
-/// @param tagger — TEA message tagger receiving Ok(json) or Error(reason)
-let checkHealth = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("echidna_live_health", ())
-    } else {
-      fetchGet("/health")
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("ECHIDNA server unreachable")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Recommend proof tactics for an obligation (async endpoint).
-/// Calls `echidna_live_recommend_tactics` which hits `POST /tactics/recommend`
-/// on the ECHIDNA server. The multi-solver dispatch analyses the obligation
-/// and returns ranked tactic suggestions from available backends.
-///
-/// @param obligation — the proof obligation expression (Idris2/Lean/Coq syntax)
-/// @param tagger — TEA message tagger receiving Ok(json) or Error(reason)
-let recommendTactics = (obligation: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("echidna_live_recommend_tactics", {"obligation": obligation})
-    } else {
-      fetchPost(
-        "/tactics/recommend",
-        `{"obligation":${JSON.stringifyAny(obligation)->Option.getOr("\"\"")}}`,
-      )
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Tactic recommendation failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Submit a proof obligation for asynchronous solving (async endpoint).
-/// Calls `echidna_live_submit_obligation` which hits `POST /obligations/submit`
-/// on the ECHIDNA server. Returns an obligation ID that can be polled via getResult.
-///
-/// This is the async counterpart to recommendTactics — use this for long-running
-/// proofs that may take multiple solver passes.
-///
-/// @param obligation — the proof obligation expression (Idris2/Lean/Coq syntax)
-/// @param tagger — TEA message tagger receiving Ok(json) or Error(reason)
-let submitObligation = (obligation: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("echidna_live_submit_obligation", {"obligation": obligation})
-    } else {
-      fetchPost(
-        "/obligations/submit",
-        `{"obligation":${JSON.stringifyAny(obligation)->Option.getOr("\"\"")}}`,
-      )
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Obligation submission failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Get the result of a previously submitted obligation (async endpoint).
-/// Calls `echidna_live_get_result` which hits `GET /obligations/{id}/result`
-/// on the ECHIDNA server. Returns the current status (pending/solved/failed)
-/// and proof term if solved.
-///
-/// @param obligationId — the obligation ID returned by submitObligation
-/// @param tagger — TEA message tagger receiving Ok(json) or Error(reason)
-let getResult = (obligationId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("echidna_live_get_result", {"obligation_id": obligationId})
-    } else {
-      fetchGet("/obligations/" ++ obligationId ++ "/result")
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to get obligation result: " ++ obligationId)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Get ECHIDNA solver statistics (async endpoint).
-/// Calls `echidna_live_stats` which hits `GET /stats` on the ECHIDNA server.
-/// Returns solver utilisation, queue depths, success rates, and LLM integration
-/// metrics from the Prover Wars dodeca-API.
-///
-/// @param tagger — TEA message tagger receiving Ok(json) or Error(reason)
-let getStats = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("echidna_live_stats", ())
-    } else {
-      fetchGet("/stats")
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to get ECHIDNA stats")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/EditorBridgeCmd.affine b/src/commands/EditorBridgeCmd.affine
new file mode 100644
index 00000000..574799fd
--- /dev/null
+++ b/src/commands/EditorBridgeCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module EditorBridgeCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/EditorBridgeCmd.res b/src/commands/EditorBridgeCmd.res
deleted file mode 100644
index 32b497f4..00000000
--- a/src/commands/EditorBridgeCmd.res
+++ /dev/null
@@ -1,106 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Editor Bridge Commands — backend invoke wrappers for connecting
-/// to external editors via LSP, extension protocols, or file watchers.
-
-let invoke = RuntimeBridge.invoke
-
-/// Detect which editor is running and attempt to connect.
-let detectEditor = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("editor_bridge_detect", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("No supported editor detected")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Connect to an editor via LSP on a given port.
-let connectLsp = (port: int, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("editor_bridge_connect_lsp", {"port": port})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to connect to LSP")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Read diagnostics from the connected editor.
-let readDiagnostics = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("editor_bridge_diagnostics", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to read diagnostics")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Read open files from the connected editor.
-let readOpenFiles = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("editor_bridge_open_files", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to read open files")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Read workspace symbols.
-let readSymbols = (query: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("editor_bridge_symbols", {"query": query})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to read symbols")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Tell the external editor to open a file at a specific line.
-let openFileAtLine = (
-  filePath: string,
-  line: int,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("editor_bridge_open_file", {"filePath": filePath, "line": line})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to open file in editor")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/EnsaidConfigCmd.affine b/src/commands/EnsaidConfigCmd.affine
new file mode 100644
index 00000000..5339bb3d
--- /dev/null
+++ b/src/commands/EnsaidConfigCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module EnsaidConfigCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/EnsaidConfigCmd.res b/src/commands/EnsaidConfigCmd.res
deleted file mode 100644
index 7e1ac0f6..00000000
--- a/src/commands/EnsaidConfigCmd.res
+++ /dev/null
@@ -1,70 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL ENSAID_CONFIG Commands — backend invoke wrappers for reading and writing
-/// .machine_readable/ENSAID_CONFIG.a2ml files.
-///
-/// Used by Minter, Provisioner, Workspace, and Automation Router to export
-/// the current PanLL configuration as a well-annotated, human-editable file.
-
-let invoke = RuntimeBridge.invoke
-
-/// Write ENSAID_CONFIG.a2ml to a repo's .machine_readable/ directory.
-/// Creates the directory if it doesn't exist.
-let writeConfig = (
-  repoPath: string,
-  content: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("ensaid_config_write", {"repoPath": repoPath, "content": content})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to write ENSAID_CONFIG.a2ml")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Read ENSAID_CONFIG.a2ml from a repo's .machine_readable/ directory.
-/// Returns the file content as a string, or an error if not found.
-let readConfig = (repoPath: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("ensaid_config_read", {"repoPath": repoPath})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("No ENSAID_CONFIG.a2ml found")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Preview what the generated ENSAID_CONFIG would look like (pure, no I/O).
-/// This is used by the "Preview" button in the export UI to show the file
-/// content before writing it.
-let preview = (
-  ~repoName: string,
-  ~workspace: option<WorkspaceModel.workspaceState>=?,
-  ~humidity: string="medium",
-  ~panelConfigs: array<ProvisionerModel.panelConfig>=[],
-  ~portfolios: array<ProvisionerModel.portfolio>=[],
-  ~automationRules: array<AutomationRouterModel.automationRule>=[],
-  (),
-): string => {
-  EnsaidConfigEngine.generate(
-    ~repoName,
-    ~workspace?,
-    ~humidity,
-    ~panelConfigs,
-    ~portfolios,
-    ~automationRules,
-    (),
-  )
-}
diff --git a/src/commands/FarmCmd.affine b/src/commands/FarmCmd.affine
new file mode 100644
index 00000000..49081101
--- /dev/null
+++ b/src/commands/FarmCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FarmCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/FarmCmd.res b/src/commands/FarmCmd.res
deleted file mode 100644
index b95ea7fb..00000000
--- a/src/commands/FarmCmd.res
+++ /dev/null
@@ -1,73 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Farm Commands — Backend command wrappers for the Git-Private-Farm panel.
-///
-/// Each function wraps a backend `invoke` call in a `Tea_Cmd.call`, converting
-/// the Promise-based IPC into the TEA command model. Results arrive as
-/// JSON strings; parsing happens in the Update layer, not here.
-///
-/// Pattern: `commandName(args..., tagger) => Tea_Cmd.t<'msg>`
-/// where `tagger: result<string, string> => 'msg` wraps the result into
-/// the panel's message type.
-///
-/// ON THE COMMAND PATTERN: Every backend call goes through `Tea_Cmd.call` which
-/// hands us a `callbacks` object with `.enqueue`. This is TEA's answer to the
-/// "where do side effects go?" question. In React, you'd `useEffect` with an
-/// async function, manage loading/error states manually, worry about cleanup
-/// on unmount, and pray the dependency array is correct. Here: the command
-/// returns a tagged Result, the Update switch arm handles both cases, done.
-/// No effect cleanup, no stale closures, no forgotten error boundaries.
-
-let invoke = RuntimeBridge.invoke
-
-/// Load the full repo inventory from farm-manifest.json.
-/// Returns a JSON string containing the FarmInventory structure
-/// (total, repos array, groups, languages, forge_names).
-let listRepos = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("farm_list_repos", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to load farm manifest")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Get details for a single repo by name.
-/// Returns a JSON string containing the FarmRepoEntry.
-let getRepo = (name: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("farm_get_repo", {"name": name})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to load repo: ${name}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Get aggregate statistics from the manifest (counts by language,
-/// forge, priority, group).
-let getStats = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("farm_get_stats", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to load farm statistics")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/FeedbackCmd.affine b/src/commands/FeedbackCmd.affine
new file mode 100644
index 00000000..f4b19260
--- /dev/null
+++ b/src/commands/FeedbackCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FeedbackCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/FeedbackCmd.res b/src/commands/FeedbackCmd.res
deleted file mode 100644
index 80a5accd..00000000
--- a/src/commands/FeedbackCmd.res
+++ /dev/null
@@ -1,25 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Feedback Commands — Backend command wrapper for saving Feedback-O-Tron reports.
-///
-/// Persists feedback reports to `~/.panll/feedback/<timestamp>.json` via the
-/// Rust backend. The report includes the feedback text, report type, and
-/// optional BoJ context snapshot.
-
-let invoke = RuntimeBridge.invoke
-
-/// Save a feedback report to disk via the Rust backend.
-let saveReport = (reportJson: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("feedback_save_report", {"reportJson": reportJson})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to save feedback report")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/FleetCmd.affine b/src/commands/FleetCmd.affine
new file mode 100644
index 00000000..e64d9769
--- /dev/null
+++ b/src/commands/FleetCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FleetCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/FleetCmd.res b/src/commands/FleetCmd.res
deleted file mode 100644
index 423c3b18..00000000
--- a/src/commands/FleetCmd.res
+++ /dev/null
@@ -1,60 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Fleet Commands — Backend command wrappers for Gitbot-Fleet.
-///
-/// The fleet backend connects to the gitbot-fleet Axum dashboard API
-/// at :8080 for bot status, findings, and dispatch operations.
-
-let invoke = RuntimeBridge.invoke
-
-/// Fetch the current status of all 6 bots.
-let fetchBots = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("fleet_get_bots", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to fetch bot status")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Fetch the findings queue.
-let fetchFindings = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("fleet_get_findings", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to fetch findings")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Dispatch a finding to a specific bot for processing.
-let dispatchFinding = (
-  findingId: string,
-  botId: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("fleet_dispatch", {"findingId": findingId, "botId": botId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Dispatch failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/FleetLiveCmd.affine b/src/commands/FleetLiveCmd.affine
new file mode 100644
index 00000000..5f307ace
--- /dev/null
+++ b/src/commands/FleetLiveCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FleetLiveCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/FleetLiveCmd.res b/src/commands/FleetLiveCmd.res
deleted file mode 100644
index 5216b4c2..00000000
--- a/src/commands/FleetLiveCmd.res
+++ /dev/null
@@ -1,179 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// Gitbot-Fleet Live Commands — async fleet connection via direct HTTP fetch.
-///
-/// These provide live connections to the gitbot-fleet Axum dashboard API
-/// for bot status, findings, dispatch operations, and fleet health monitoring.
-/// Falls back to direct fetch() in browser-only mode (no desktop runtime).
-///
-/// All commands talk to the gitbot-fleet API at ServiceEndpoints.fleet
-/// (default http://localhost:8090/api/v1).
-///
-/// In browser-only mode (no desktop runtime), commands fall back to direct
-/// fetch() calls against the fleet server URL.
-
-let hasDesktopRuntime = RuntimeBridge.hasDesktopRuntime
-
-/// GET helper for fleet direct fetch (bypasses backend invoke).
-/// panic-attack:allow insecure-protocol — localhost development endpoint.
-let fetchGet: string => promise<string> = %raw(`
-  function(path) {
-    return fetch("http://localhost:8090/api/v1" + path)
-      .then(function(r) {
-        if (!r.ok) throw new Error("Fleet returned " + r.status);
-        return r.text();
-      });
-  }
-`)
-
-/// POST helper for fleet direct fetch (bypasses backend invoke).
-/// panic-attack:allow insecure-protocol — localhost development endpoint.
-let fetchPost: (string, string) => promise<string> = %raw(`
-  function(path, body) {
-    return fetch("http://localhost:8090/api/v1" + path, {
-      method: "POST",
-      headers: { "Content-Type": "application/json" },
-      body: body
-    }).then(function(r) {
-      if (!r.ok) throw new Error("Fleet returned " + r.status);
-      return r.text();
-    });
-  }
-`)
-
-/// Check gitbot-fleet server health (async endpoint).
-/// Calls `fleet_live_health` which hits `GET /health` on the fleet server.
-/// Returns a JSON string with server status, uptime, and bot count.
-///
-/// @param tagger — TEA message tagger receiving Ok(json) or Error(reason)
-let checkHealth = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("fleet_live_health", ())
-    } else {
-      fetchGet("/health")
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Fleet server unreachable")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Fetch the current status of all 6 bots (async endpoint).
-/// Calls `fleet_live_bots` which hits `GET /bots` on the fleet server.
-/// Returns a JSON array of bot objects with status, last-run, and findings count.
-///
-/// @param tagger — TEA message tagger receiving Ok(json) or Error(reason)
-let fetchBots = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("fleet_live_bots", ())
-    } else {
-      fetchGet("/bots")
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to fetch bot status")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Fetch the findings queue (async endpoint).
-/// Calls `fleet_live_findings` which hits `GET /findings` on the fleet server.
-/// Returns a JSON array of finding objects with severity, target repo, and
-/// assigned bot.
-///
-/// @param tagger — TEA message tagger receiving Ok(json) or Error(reason)
-let fetchFindings = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("fleet_live_findings", ())
-    } else {
-      fetchGet("/findings")
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to fetch findings")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Dispatch a finding to a specific bot for processing (async endpoint).
-/// Calls `fleet_live_dispatch` which hits `POST /dispatch` on the fleet server.
-///
-/// @param findingId — the finding to dispatch
-/// @param botId — the target bot (e.g., "rhodibot", "echidnabot")
-/// @param tagger — TEA message tagger receiving Ok(json) or Error(reason)
-let dispatchFinding = (
-  findingId: string,
-  botId: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("fleet_live_dispatch", {"finding_id": findingId, "bot_id": botId})
-    } else {
-      fetchPost(
-        "/dispatch",
-        `{"finding_id":${JSON.stringifyAny(findingId)->Option.getOr("\"\"")},` ++
-        `"bot_id":${JSON.stringifyAny(botId)->Option.getOr("\"\"")}}`,
-      )
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Dispatch failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Check if gitbot-fleet is reachable (async health probe).
-/// Wraps checkHealth but normalises the result into a reachability flag.
-/// Returns `{"reachable": true/false, "endpoint": "..."}` — useful for panel bar
-/// connection-dot indicators (green/red).
-///
-/// @param tagger — TEA message tagger receiving Ok(json) or Error(reason)
-let checkReachable = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("fleet_live_health", ())
-    } else {
-      fetchGet("/health")
-    }
-    p
-    ->Promise.then(_result => {
-      callbacks.enqueue(tagger(Ok(`{"reachable":true,"endpoint":"${ServiceEndpoints.fleet}"}`)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Ok(`{"reachable":false,"endpoint":"${ServiceEndpoints.fleet}"}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/GamePreviewCmd.affine b/src/commands/GamePreviewCmd.affine
new file mode 100644
index 00000000..9df458aa
--- /dev/null
+++ b/src/commands/GamePreviewCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module GamePreviewCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/GamePreviewCmd.res b/src/commands/GamePreviewCmd.res
deleted file mode 100644
index c6f1fc0b..00000000
--- a/src/commands/GamePreviewCmd.res
+++ /dev/null
@@ -1,139 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Game Preview Commands — Backend async bindings for the live game
-/// preview panel. Handles dev server health checks, game loop control,
-/// gameplay recording, and render stats polling.
-
-let invoke = RuntimeBridge.invoke
-
-/// Check whether the Vite dev server is running and responding.
-let checkDevServer = (url: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("game_preview_check_server", {"url": url})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Dev server not responding")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Send a game loop control command (pause, resume, step).
-let controlGameLoop = (command: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("game_preview_control", {"command": command})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to control game loop")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Start recording gameplay to WebM.
-let startGameRecording = (name: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("game_preview_record_start", {"name": name})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to start gameplay recording")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Stop gameplay recording.
-let stopGameRecording = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("game_preview_record_stop", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to stop gameplay recording")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Take a screenshot of the current game frame.
-let screenshotGameFrame = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("game_preview_screenshot", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to capture game screenshot")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Fetch current render statistics from the game engine.
-let fetchRenderStats = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("game_preview_stats", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to fetch render stats")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// List saved gameplay clips.
-let listClips = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("game_preview_clips_list", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to list gameplay clips")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Delete a gameplay clip by ID.
-let deleteClip = (id: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("game_preview_clip_delete", {"id": id})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to delete clip")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/GossamerCmd.affine b/src/commands/GossamerCmd.affine
new file mode 100644
index 00000000..897bde9a
--- /dev/null
+++ b/src/commands/GossamerCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module GossamerCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/GossamerCmd.res b/src/commands/GossamerCmd.res
deleted file mode 100644
index 16177937..00000000
--- a/src/commands/GossamerCmd.res
+++ /dev/null
@@ -1,792 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Gossamer Command Integration for TEA
-///
-/// Gossamer command integration for TEA. Provides TEA commands for invoking
-/// backend functions through the RuntimeBridge, which dispatches to Gossamer
-/// or rejects with a descriptive error in browser-only mode.
-///
-/// All panel command modules should use RuntimeBridge.invoke directly.
-/// This module provides higher-level TEA command wrappers for the core
-/// PanLL operations (dialogs, filesystem, service health, VeriSimDB,
-/// ECHIDNA, panic-attacker, vexation tracking).
-
-let invoke = RuntimeBridge.invoke
-let isGossamerRuntime = RuntimeBridge.isGossamerRuntime
-
-// ===========================================================================
-// Direct HTTP helpers for browser-only mode
-// ===========================================================================
-
-/// ECHIDNA base URL for direct browser fetch.
-let echidnaUrl = "http://localhost:9000/api/v1"
-
-/// GET helper for ECHIDNA direct fetch (bypasses desktop runtime).
-let echidnaGet: string => promise<string> = %raw(`
-  function(path) {
-    return fetch("http://localhost:9000/api/v1" + path)
-      .then(function(r) {
-        if (!r.ok) throw new Error("ECHIDNA returned " + r.status);
-        return r.text();
-      });
-  }
-`)
-
-/// POST helper for ECHIDNA direct fetch (bypasses desktop runtime).
-let echidnaPost: (string, string) => promise<string> = %raw(`
-  function(path, body) {
-    return fetch("http://localhost:9000/api/v1" + path, {
-      method: "POST",
-      headers: { "Content-Type": "application/json" },
-      body: body
-    }).then(function(r) {
-      if (!r.ok) throw new Error("ECHIDNA returned " + r.status);
-      return r.text();
-    });
-  }
-`)
-
-module Dialog = {
-  /// Open a file picker dialog through the RuntimeBridge.
-  let openDialog = (opts: JSON.t): promise<Nullable.t<JSON.t>> => {
-    RuntimeBridge.Dialog.openDialog(opts)
-  }
-}
-
-module Fs = {
-  /// Read a text file through the RuntimeBridge.
-  let readTextFile = (path: string): promise<string> => {
-    RuntimeBridge.Fs.readTextFile(path)
-  }
-}
-
-let decodeDialogPath = RuntimeBridge.decodeDialogPath
-
-/// Validate a neural inference token against symbolic constraints
-let validateInference = (
-  token: string,
-  constraints: array<string>,
-  tagger: result<bool, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("validate_inference", {"token": token, "constraints": constraints})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Validation failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Open a timeline specification file for Security Ambush runs
-let openSecurityTimelineFile = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let options: JSON.t = %raw(`({
-        multiple: false,
-        filters: [
-          { name: "PanLL Timeline (JSON/YAML)", extensions: ["json", "yaml", "yml"] }
-        ]
-      })`)
-    Dialog.openDialog(options)
-    ->Promise.then(result => {
-      switch Nullable.toOption(result) {
-      | None => {
-          callbacks.enqueue(tagger(Error("No timeline selected")))
-          Promise.resolve()
-        }
-      | Some(value) =>
-        switch decodeDialogPath(value) {
-        | Some(path) => {
-            callbacks.enqueue(tagger(Ok(path)))
-            Promise.resolve()
-          }
-        | None => {
-            callbacks.enqueue(tagger(Error("Unsupported dialog response")))
-            Promise.resolve()
-          }
-        }
-      }
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Timeline selection failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Get the current vexation index from the backend
-let getVexationIndex = (tagger: float => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("get_vexation_index", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(result))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(0.0))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Submit feedback to the Feedback-O-Tron
-let submitFeedback = (
-  paneLState: string,
-  paneNState: string,
-  paneWState: string,
-  reportType: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke(
-      "submit_feedback",
-      {
-        "pane_l_state": paneLState,
-        "pane_n_state": paneNState,
-        "pane_w_state": paneWState,
-        "report_type": reportType,
-      },
-    )
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Feedback submission failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Open and read a PanLL event-chain JSON file
-let openEventChainFile = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let options: JSON.t = %raw(`({
-        multiple: false,
-        filters: [{ name: "PanLL Event Chain", extensions: ["json"] }]
-      })`)
-    Dialog.openDialog(options)
-    ->Promise.then(result => {
-      switch Nullable.toOption(result) {
-      | None => {
-          callbacks.enqueue(tagger(Error("No file selected")))
-          Promise.resolve()
-        }
-      | Some(value) =>
-        switch decodeDialogPath(value) {
-        | Some(path) =>
-          Fs.readTextFile(path)
-          ->Promise.then(
-            contents => {
-              callbacks.enqueue(tagger(Ok(contents)))
-              Promise.resolve()
-            },
-          )
-          ->Promise.catch(
-            _err => {
-              callbacks.enqueue(tagger(Error("Failed to read file")))
-              Promise.resolve()
-            },
-          )
-        | None => {
-            callbacks.enqueue(tagger(Error("Unsupported dialog response")))
-            Promise.resolve()
-          }
-        }
-      }
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("File selection failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Open a panic-attacker assault report JSON file and return the chosen path.
-let openPanicAttackerReportFile = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let options: JSON.t = %raw(`({
-        multiple: false,
-        filters: [{ name: "panic-attacker Assault Report", extensions: ["json"] }]
-      })`)
-    Dialog.openDialog(options)
-    ->Promise.then(result => {
-      switch Nullable.toOption(result) {
-      | None => {
-          callbacks.enqueue(tagger(Error("No panic-attacker report selected")))
-          Promise.resolve()
-        }
-      | Some(value) =>
-        switch decodeDialogPath(value) {
-        | Some(path) => {
-            callbacks.enqueue(tagger(Ok(path)))
-            Promise.resolve()
-          }
-        | None => {
-            callbacks.enqueue(tagger(Error("Unsupported dialog response")))
-            Promise.resolve()
-          }
-        }
-      }
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("panic-attacker report selection failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Convert a panic-attacker assault report into PanLL event-chain JSON.
-let importPanicAttackerReport = (
-  reportPath: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("import_panic_attacker_report", {"report_path": reportPath})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("panic-attacker import failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-let optionToJson = (value: option<string>): JSON.t =>
-  switch value {
-  | Some(v) => JSON.Encode.string(v)
-  | None => JSON.Encode.null
-  }
-
-/// Invokes the backend `run_panic_attack_ambush` command.
-let runPanicAttackAmbush = (
-  program: string,
-  timeline: option<string>,
-  axes: option<string>,
-  intensity: string,
-  durationSecs: int,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let payload = Dict.fromArray([
-      ("program", JSON.Encode.string(program)),
-      ("timeline", optionToJson(timeline)),
-      ("axes", optionToJson(axes)),
-      ("intensity", JSON.Encode.string(intensity)),
-      ("duration_secs", JSON.Encode.int(durationSecs)),
-    ])
-
-    invoke("run_panic_attack_ambush", JSON.Encode.object(payload))
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("panic-attacker ambush failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Import the latest panic-attacker report from its reports directory.
-let importLatestPanicAttackerReport = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("import_latest_panic_attacker_report", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("No latest panic-attacker report could be imported")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Probe panic-attacker capabilities.
-let getPanicAttackerCapability = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("get_panic_attacker_capability", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("panic-attacker capability probe failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Record a vexation event in the backend.
-let recordVexationEvent = (eventType: string, tagger: result<unit, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("record_vexation_event", {"event_type": eventType})
-    ->Promise.then(_result => {
-      callbacks.enqueue(tagger(Ok()))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to record vexation event")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-// ===========================================================================
-// VeriSimDB Database Backend Commands
-// ===========================================================================
-
-/// Check VeriSimDB server health status.
-let checkVeriSimDBHealth = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("verisim_health", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("VeriSimDB health check failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Execute a VCL query against VeriSimDB.
-let queryVeriSimDB = (query: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("verisim_query", {"query": query})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("VCL query execution failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// List octad entities from VeriSimDB with pagination.
-let listOctads = (limit: int, offset: int, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("verisim_list_octads", {"limit": limit, "offset": offset})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to list octad entities")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Get drift detection status for a specific entity.
-let getDrift = (entityId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("verisim_get_drift", {"entity_id": entityId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Drift status retrieval failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Trigger normalisation for a drifted entity.
-let triggerNormalise = (entityId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("verisim_normalise", {"entity_id": entityId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Normalisation failed for " ++ entityId)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Load full entity detail for a specific octad.
-let getEntityDetail = (entityId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("verisim_get_entity", {"entity_id": entityId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Entity detail retrieval failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Fetch product telemetry from VeriSimDB.
-let getTelemetry = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("verisim_telemetry", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Telemetry fetch failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Fetch orchestration status from VeriSimDB.
-let getOrchStatus = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("verisim_orch_status", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Orchestration status fetch failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-// ===========================================================================
-// VeriSimDB State Persistence Commands (Connected Workbench v0.2.0)
-// ===========================================================================
-
-/// Load persisted PanLL state from VeriSimDB.
-///
-/// Sends a load request for the canonical state key. On success, the tagger
-/// receives `Ok(stateJson)` which can be decoded via `Storage.persistedStateDecoder`.
-/// On failure, receives `Error(reason)` — the caller should fall back to localStorage.
-let loadStateFromVeriSimDB = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("verisim_load_state", {"key": "panll_state_v1"})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("VeriSimDB state load failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Save persisted PanLL state to VeriSimDB.
-///
-/// Accepts the pre-serialized JSON string from `Storage.serialize()`.
-/// Returns confirmation or error via the tagger.
-let saveStateToVeriSimDB = (stateJson: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("verisim_save_state", {"key": "panll_state_v1", "state": stateJson})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("VeriSimDB state save failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-// ===========================================================================
-// ECHIDNA Theorem Prover Backend Commands
-// ===========================================================================
-
-/// Check ECHIDNA prover health status.
-/// In browser mode, calls ECHIDNA directly via fetch.
-let checkEchidnaHealth = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if isGossamerRuntime() {
-      invoke("echidna_health", ())
-    } else {
-      echidnaGet("/health")
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(
-        tagger(Error("ECHIDNA health check failed — server not running on localhost:9000")),
-      )
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// List available provers from the ECHIDNA catalog.
-let listEchidnaProvers = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if isGossamerRuntime() {
-      invoke("echidna_list_provers", ())
-    } else {
-      echidnaGet("/provers")
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(
-        tagger(Error("ECHIDNA prover listing failed — server not running on localhost:9000")),
-      )
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Submit proof content to ECHIDNA.
-let echidnaProve = (
-  content: string,
-  prover: option<string>,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if isGossamerRuntime() {
-      let payload = Dict.fromArray([
-        ("content", JSON.Encode.string(content)),
-        ("prover", optionToJson(prover)),
-      ])
-      invoke("echidna_prove", JSON.Encode.object(payload))
-    } else {
-      let proverJson = switch prover {
-      | Some(pv) => JSON.stringifyAny(pv)->Option.getOr("null")
-      | None => "null"
-      }
-      echidnaPost(
-        "/prove",
-        `{"content":${JSON.stringifyAny(content)->Option.getOr("\"\"")}, "prover":${proverJson}}`,
-      )
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("ECHIDNA proof submission failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Submit content for verification to ECHIDNA.
-let echidnaVerify = (content: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if isGossamerRuntime() {
-      invoke("echidna_verify", {"content": content})
-    } else {
-      echidnaPost("/verify", `{"content":${JSON.stringifyAny(content)->Option.getOr("\"\"")}}`)
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("ECHIDNA verification failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Search the ECHIDNA theorem library.
-let echidnaSearchTheorems = (query: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    let encoded = query->String.replaceAll(" ", "%20")
-    let p = if isGossamerRuntime() {
-      invoke("echidna_search_theorems", {"query": query})
-    } else {
-      echidnaGet(`/search?q=${encoded}`)
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("ECHIDNA theorem search failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-// ===========================================================================
-// ECHIDNA Interactive Session Commands
-// ===========================================================================
-
-/// Create a new proof session.
-let createEchidnaSession = (
-  goal: string,
-  prover: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if isGossamerRuntime() {
-      invoke("echidna_create_session", {"goal": goal, "prover": prover})
-    } else {
-      echidnaPost(
-        "/proofs",
-        `{"goal":${JSON.stringifyAny(goal)->Option.getOr("\"\"")}, "prover":${JSON.stringifyAny(
-            prover,
-          )->Option.getOr("\"\"")}}`,
-      )
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("ECHIDNA session creation failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Retrieve the current state of a proof session.
-let getEchidnaSession = (sessionId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if isGossamerRuntime() {
-      invoke("echidna_get_session", {"session_id": sessionId})
-    } else {
-      echidnaGet(`/proofs/${sessionId}`)
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("ECHIDNA get session failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Apply a tactic to an active proof session.
-let applyEchidnaTactic = (
-  sessionId: string,
-  name: string,
-  args: array<string>,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if isGossamerRuntime() {
-      let payload = Dict.fromArray([
-        ("session_id", JSON.Encode.string(sessionId)),
-        ("name", JSON.Encode.string(name)),
-        ("args", JSON.Encode.array(Array.map(args, JSON.Encode.string))),
-      ])
-      invoke("echidna_apply_tactic", JSON.Encode.object(payload))
-    } else {
-      let argsJson = JSON.stringifyAny(args)->Option.getOr("[]")
-      echidnaPost(
-        `/proofs/${sessionId}/tactics`,
-        `{"name":${JSON.stringifyAny(name)->Option.getOr("\"\"")}, "args":${argsJson}}`,
-      )
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("ECHIDNA apply tactic failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Request ML-powered tactic suggestions.
-let suggestEchidnaTactics = (
-  sessionId: string,
-  limit: int,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if isGossamerRuntime() {
-      invoke("echidna_suggest_tactics", {"session_id": sessionId, "limit": limit})
-    } else {
-      echidnaGet(`/proofs/${sessionId}/tactics/suggest?limit=${Int.toString(limit)}`)
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("ECHIDNA tactic suggestions failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Batch multiple commands together
-let batch = (commands: list<Tea_Cmd.t<'msg>>): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.batch(commands)
-}
-
-/// No-op command
-let none: Tea_Cmd.t<'msg> = Tea_Cmd.none
diff --git a/src/commands/GovernanceCmd.affine b/src/commands/GovernanceCmd.affine
new file mode 100644
index 00000000..d5b8cfd9
--- /dev/null
+++ b/src/commands/GovernanceCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module GovernanceCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/GovernanceCmd.res b/src/commands/GovernanceCmd.res
deleted file mode 100644
index ec0e1823..00000000
--- a/src/commands/GovernanceCmd.res
+++ /dev/null
@@ -1,67 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Governance Commands — backend invoke wrappers for nesy-MCP governance
-/// queries. These call into the Rust backend at src-gossamer/src/governance/commands.rs
-/// which routes governance decisions through the BoJ nesy-mcp cartridge for
-/// real-time neural validation.
-///
-/// Used by the GovernanceEngine's `evaluateWithCmd` path when the engine cannot
-/// make a confident pure decision and needs async neural consultation.
-
-let invoke = RuntimeBridge.invoke
-
-/// Query nesy-mcp for a confidence assessment on a borderline governance
-/// decision. Returns JSON with confidence score, recommended action, and
-/// reasoning from the neural subsystem.
-let queryNesyConfidence = (query: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("governance_nesy_query", {"query": query})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Nesy confidence query failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Ask nesy-mcp to validate a governance adjustment before it is applied.
-/// Used primarily for HaltInference decisions — the neural subsystem can
-/// approve or reject the halt with reasoning.
-let validateAdjustment = (adj: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("governance_nesy_validate", {"adjustment": adj})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Nesy adjustment validation failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Probe nesy-mcp for overall stability metrics from the neural subsystem.
-/// Returns JSON with neural coherence, drift magnitude, and recommendation.
-/// Emitted automatically when any governance query is generated.
-let probeStability = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("governance_nesy_probe", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Nesy stability probe failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/HealthCheckCmd.affine b/src/commands/HealthCheckCmd.affine
new file mode 100644
index 00000000..3b426b49
--- /dev/null
+++ b/src/commands/HealthCheckCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module HealthCheckCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/HealthCheckCmd.res b/src/commands/HealthCheckCmd.res
deleted file mode 100644
index 431fdbc2..00000000
--- a/src/commands/HealthCheckCmd.res
+++ /dev/null
@@ -1,30 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Health Check Command — generic backend command for checking if an
-/// HTTP service is reachable. Used by all panels with backend services.
-///
-/// Each panel calls `checkEndpoint` with its service URL and a tagger
-/// function that wraps the result into its own message type.
-
-let invoke = RuntimeBridge.invoke
-
-/// Check if an HTTP endpoint responds with a 2xx status.
-/// The backend makes a GET request and returns the response body
-/// (or an error message).
-///
-/// `endpoint` — full URL to health check (e.g. "http://localhost:8080/health")
-/// `tagger` — function to wrap result<string, string> into the panel's msg type
-let checkEndpoint = (endpoint: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("health_check", {"endpoint": endpoint})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Service unreachable: ${endpoint}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/HypatiaCmd.affine b/src/commands/HypatiaCmd.affine
new file mode 100644
index 00000000..0fda4d90
--- /dev/null
+++ b/src/commands/HypatiaCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module HypatiaCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/HypatiaCmd.res b/src/commands/HypatiaCmd.res
deleted file mode 100644
index b3ebd758..00000000
--- a/src/commands/HypatiaCmd.res
+++ /dev/null
@@ -1,55 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Hypatia Commands — Backend command wrappers for the Hypatia scanner.
-///
-/// The Hypatia backend is an Elixir Phoenix API at /api/v1/.
-
-let invoke = RuntimeBridge.invoke
-
-/// Fetch the status of all 5 neural networks.
-let fetchNetworks = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("hypatia_get_networks", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to fetch network status")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Fetch scan results across all repos.
-let fetchScans = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("hypatia_get_scans", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to fetch scan results")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Trigger a scan on a specific repo.
-let scanRepo = (repoName: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("hypatia_scan_repo", {"repoName": repoName})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Scan failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/IdentityCmd.affine b/src/commands/IdentityCmd.affine
new file mode 100644
index 00000000..85fed154
--- /dev/null
+++ b/src/commands/IdentityCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module IdentityCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/IdentityCmd.res b/src/commands/IdentityCmd.res
deleted file mode 100644
index 7e34235c..00000000
--- a/src/commands/IdentityCmd.res
+++ /dev/null
@@ -1,102 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// IdentityCmd — TEA command wrappers for identity snapshot operations.
-
-let invoke = RuntimeBridge.invoke
-
-/// Capture a new identity snapshot with the given name and state payloads.
-let captureSnapshot = (
-  name: string,
-  panllState: string,
-  settingsJson: string,
-  serviceUrls: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke(
-      "identity_save",
-      {
-        "name": name,
-        "panll_state": panllState,
-        "settings": settingsJson,
-        "service_urls": serviceUrls,
-      },
-    )
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Identity capture failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Load a full identity snapshot by ID.
-let loadSnapshot = (id: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("identity_load", {"id": id})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Identity load failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// List all available identity snapshots (metadata only).
-let listSnapshots = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("identity_list", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Identity list failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Delete an identity snapshot by ID.
-let deleteSnapshot = (id: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("identity_delete", {"id": id})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Identity delete failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Broadcast an identity snapshot to team members via Burble.
-let broadcastSnapshot = (snapshotJson: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("team_broadcast_state", {"snapshot": snapshotJson})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Team broadcast failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/InterfacesCmd.affine b/src/commands/InterfacesCmd.affine
new file mode 100644
index 00000000..5b8eaee0
--- /dev/null
+++ b/src/commands/InterfacesCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module InterfacesCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/InterfacesCmd.res b/src/commands/InterfacesCmd.res
deleted file mode 100644
index 23469675..00000000
--- a/src/commands/InterfacesCmd.res
+++ /dev/null
@@ -1,23 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Interfaces Commands — Backend wrappers for ABI/FFI scanning.
-///
-/// Scans src/abi/ for Idris2 definitions and ffi/zig/ for implementations.
-
-let invoke = RuntimeBridge.invoke
-
-/// Scan ABI/FFI definitions and binding coverage.
-let scanInterfaces = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("interfaces_scan", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Interface scan failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/K9Cmd.affine b/src/commands/K9Cmd.affine
new file mode 100644
index 00000000..c082565b
--- /dev/null
+++ b/src/commands/K9Cmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module K9Cmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/K9Cmd.res b/src/commands/K9Cmd.res
deleted file mode 100644
index aa7777ab..00000000
--- a/src/commands/K9Cmd.res
+++ /dev/null
@@ -1,70 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL K9 Commands — backend invoke wrappers for K9 contractile operations.
-/// These call into the Rust backend at src-gossamer/src/k9/commands.rs which
-/// handles filesystem access for loading, validating, and applying K9
-/// contractile files (.k9.ncl).
-///
-/// The Rust backend reads files and returns content as JSON strings. The
-/// ReScript K9Engine then handles the actual parsing and validation logic
-/// on the client side for maximum testability.
-
-let invoke = RuntimeBridge.invoke
-
-/// Load a K9 contractile file from disk. Returns the raw file content
-/// as a JSON-wrapped string for client-side parsing by K9Engine.
-let loadContractile = (path: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("k9_load_contractile", {"path": path})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to load K9 contractile: ${path}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Validate a K9 contractile file on the backend. The Rust side performs
-/// basic structural checks (file exists, non-empty, valid encoding, K9
-/// magic header presence) and returns a JSON validation result. Deeper
-/// semantic validation (security level, pedigree checks) is done
-/// client-side by K9Engine.validateContractile.
-let validateContractileFile = (path: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("k9_validate", {"path": path})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to validate K9 contractile: ${path}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Apply a K9 layout preset by name. The Rust backend locates the layout
-/// file in the `layouts/` directory, reads it, and returns the parsed
-/// layout configuration as JSON. The client side then applies the panel
-/// arrangement to the PanLL workspace.
-let applyLayout = (name: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("k9_apply_layout", {"name": name})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to apply K9 layout: ${name}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/LevelArchitectCmd.affine b/src/commands/LevelArchitectCmd.affine
new file mode 100644
index 00000000..26f8b968
--- /dev/null
+++ b/src/commands/LevelArchitectCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module LevelArchitectCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/LevelArchitectCmd.res b/src/commands/LevelArchitectCmd.res
deleted file mode 100644
index bdb0b012..00000000
--- a/src/commands/LevelArchitectCmd.res
+++ /dev/null
@@ -1,88 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Level Architect Commands — backend invoke wrappers for level
-/// file I/O, asset browsing, level validation, and LevelConfig export.
-
-let invoke = RuntimeBridge.invoke
-
-/// Load a level from a JSON file.
-let loadLevel = (path: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("load_level", {"path": path})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to load level")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Save the current level to a JSON file.
-let saveLevel = (path: string, data: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("save_level", {"path": path, "data": data})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to save level")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Export the level as a LevelConfig.res source file.
-let exportLevelConfig = (data: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("export_level_config", {"data": data})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to export LevelConfig")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Browse available game assets.
-let browseAssets = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("browse_level_assets", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to browse assets")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Validate the current level design.
-let validateLevel = (data: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("validate_level", {"data": data})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to validate level")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/LlmCodingCmd.affine b/src/commands/LlmCodingCmd.affine
new file mode 100644
index 00000000..c7aaa654
--- /dev/null
+++ b/src/commands/LlmCodingCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module LlmCodingCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/LlmCodingCmd.res b/src/commands/LlmCodingCmd.res
deleted file mode 100644
index dc8467f8..00000000
--- a/src/commands/LlmCodingCmd.res
+++ /dev/null
@@ -1,162 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL LLM Coding command wrappers — invoke bridge for spawning
-/// and managing LLM coding sessions.
-///
-/// All commands invoke backend commands registered in
-/// src-gossamer/src/llm_coding/commands.rs.
-
-let invoke = RuntimeBridge.invoke
-
-// ============================================================================
-// Session Management
-// ============================================================================
-
-/// Fetch all sessions with updated resource stats.
-let listSessions = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("llm_coding_list_sessions", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to list sessions")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Spawn a new Claude coding session.
-let spawnSession = (
-  name: string,
-  workDir: string,
-  taskList: string,
-  allowedRepos: array<string>,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke(
-      "llm_coding_spawn",
-      {
-        "name": name,
-        "work_dir": workDir,
-        "task_list": taskList,
-        "allowed_repos": allowedRepos,
-      },
-    )
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to spawn session")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Freeze (SIGSTOP) a session.
-let freezeSession = (sessionId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("llm_coding_freeze", {"session_id": sessionId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to freeze session")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Thaw (SIGCONT) a session.
-let thawSession = (sessionId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("llm_coding_thaw", {"session_id": sessionId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to thaw session")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Kill (terminate) a session.
-let killSession = (sessionId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("llm_coding_kill", {"session_id": sessionId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to kill session")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-// ============================================================================
-// Resource & Lock Queries
-// ============================================================================
-
-/// Fetch system resource snapshot.
-let systemResources = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("llm_coding_system_resources", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to fetch system resources")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Fetch workspace locks.
-let listLocks = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("llm_coding_list_locks", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to list locks")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Fetch cross-session messages.
-let listMessages = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("llm_coding_list_messages", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to list messages")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/MassPanicCmd.affine b/src/commands/MassPanicCmd.affine
new file mode 100644
index 00000000..2661feac
--- /dev/null
+++ b/src/commands/MassPanicCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MassPanicCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/MassPanicCmd.res b/src/commands/MassPanicCmd.res
deleted file mode 100644
index 0b5f6022..00000000
--- a/src/commands/MassPanicCmd.res
+++ /dev/null
@@ -1,246 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Mass Panic command wrappers — invoke bridge for the
-/// organisation-scale batch scanning panel (assemblyline + incremental
-/// BLAKE3 + verisim + delta reporting + notifications).
-///
-/// All commands invoke panic-attack assemblyline via the backend.
-/// Uses `Tea_Cmd.call` for async operations.
-
-let invoke = RuntimeBridge.invoke
-
-/// Discover git repos in a directory.
-/// Returns JSON array of { path, name, has_git } objects.
-let discoverRepos = (directory: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("mass_panic_discover_repos", {"directory": directory})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to discover repos — check directory path")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Run assemblyline scan on selected repos.
-/// Accepts configuration for incremental scanning, cache, storage, and filtering.
-/// Returns JSON with per-repo results and aggregate summary.
-let runAssemblyline = (
-  directory: string,
-  incremental: bool,
-  cachePath: option<string>,
-  storePath: option<string>,
-  minFindings: int,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke(
-      "mass_panic_run_assemblyline",
-      {
-        "directory": directory,
-        "incremental": incremental,
-        "cache_path": cachePath,
-        "store_path": storePath,
-        "min_findings": minFindings,
-      },
-    )
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Assemblyline scan failed — is panic-attack installed?")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Get scan progress (polled during long-running assemblyline scans).
-/// Returns JSON with { repos_done, repos_total, current_repo, elapsed_seconds }.
-let getProgress = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("mass_panic_get_progress", Dict.make())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to fetch scan progress")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Diff two assemblyline reports (delta reporting).
-/// Returns JSON array of { repo, new_findings, fixed_findings, direction }.
-let diffReports = (
-  leftPath: string,
-  rightPath: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("mass_panic_diff_reports", {"left_path": leftPath, "right_path": rightPath})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to compare reports")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Generate notification summary (markdown + optional GitHub issues).
-/// Returns the markdown content as a string.
-let generateNotification = (
-  reportPath: string,
-  criticalOnly: bool,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke(
-      "mass_panic_generate_notification",
-      {"report_path": reportPath, "critical_only": criticalOnly},
-    )
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to generate notification")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-// ---------------------------------------------------------------------------
-// Imaging — fNIRS-style spatial health map
-// ---------------------------------------------------------------------------
-
-/// Build a system image from an assemblyline scan.
-/// Runs assemblyline internally, then builds the fNIRS-style image.
-/// Returns panll.system-image.v0 JSON.
-let buildImage = (
-  directory: string,
-  incremental: bool,
-  cachePath: option<string>,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke(
-      "mass_panic_build_image",
-      {
-        "directory": directory,
-        "incremental": incremental,
-        "cache_path": cachePath,
-      },
-    )
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to build system image")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-// ---------------------------------------------------------------------------
-// Temporal — time-series navigation
-// ---------------------------------------------------------------------------
-
-/// List temporal snapshots in VeriSimDB.
-/// Returns JSON array of snapshot entries.
-let listSnapshots = (verisimdbDir: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("mass_panic_list_snapshots", {"verisim_dir": verisimdbDir})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to list temporal snapshots")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Diff two temporal snapshots.
-/// Returns panll.temporal-diff.v0 JSON.
-let diffSnapshots = (
-  verisimdbDir: string,
-  fromSeq: int,
-  toSeq: int,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke(
-      "mass_panic_diff_snapshots",
-      {"verisim_dir": verisimdbDir, "from_seq": fromSeq, "to_seq": toSeq},
-    )
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to diff temporal snapshots")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Take a temporal snapshot of the current image.
-/// Returns snapshot entry JSON.
-let takeSnapshot = (
-  verisimdbDir: string,
-  label: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("mass_panic_take_snapshot", {"verisim_dir": verisimdbDir, "label": label})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to take temporal snapshot")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Load the BLAKE3 fingerprint cache (shows which repos have changed).
-/// Returns JSON with { cached_repos, total_entries }.
-let loadCache = (cachePath: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("mass_panic_load_cache", {"cache_path": cachePath})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to load fingerprint cache")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/MinterCmd.affine b/src/commands/MinterCmd.affine
new file mode 100644
index 00000000..f3496c6b
--- /dev/null
+++ b/src/commands/MinterCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MinterCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/MinterCmd.res b/src/commands/MinterCmd.res
deleted file mode 100644
index 722411c3..00000000
--- a/src/commands/MinterCmd.res
+++ /dev/null
@@ -1,65 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Minter Commands — Backend command wrappers for panel scaffolding.
-///
-/// The minter backend generates ReScript source files and Rust backend
-/// stubs, then patches the global wiring files to register the new panel.
-
-let invoke = RuntimeBridge.invoke
-
-/// Mint a new panel from the given form data.
-/// The backend generates all files and patches wiring.
-/// Returns a JSON-serialised MintResult.
-let mintPanel = (
-  panelName: string,
-  shortName: string,
-  description: string,
-  icon: string,
-  backendKind: string,
-  accessibility: string,
-  capabilities: string,
-  endpoint: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke(
-      "minter_mint_panel",
-      {
-        "panelName": panelName,
-        "shortName": shortName,
-        "description": description,
-        "icon": icon,
-        "backendKind": backendKind,
-        "accessibility": accessibility,
-        "capabilities": capabilities,
-        "endpoint": endpoint,
-      },
-    )
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to mint panel")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Validate a panel name against the existing registry.
-/// Returns "valid" or an error description.
-let validateName = (name: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("minter_validate_name", {"name": name})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Validation failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/MultiplayerMonitorCmd.affine b/src/commands/MultiplayerMonitorCmd.affine
new file mode 100644
index 00000000..0373cb05
--- /dev/null
+++ b/src/commands/MultiplayerMonitorCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MultiplayerMonitorCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/MultiplayerMonitorCmd.res b/src/commands/MultiplayerMonitorCmd.res
deleted file mode 100644
index 8acb9afe..00000000
--- a/src/commands/MultiplayerMonitorCmd.res
+++ /dev/null
@@ -1,103 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Multiplayer Monitor Commands — backend invoke wrappers for
-/// connecting to the IDApTIK Phoenix sync server and reading
-/// multiplayer state.
-
-let invoke = RuntimeBridge.invoke
-
-/// Connect to the Phoenix WebSocket sync server.
-let connectToServer = (url: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("multiplayer_connect", {"url": url})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to connect to sync server")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Disconnect from the sync server.
-let disconnectFromServer = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("multiplayer_disconnect", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to disconnect")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Read the current multiplayer state (players, channels, locks).
-let readMultiplayerState = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("multiplayer_read_state", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to read multiplayer state")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Read state diffs between local and remote.
-let readStateDiffs = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("multiplayer_read_diffs", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to read state diffs")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Read ETS cache entries for inspection.
-let readEtsCache = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("multiplayer_read_ets", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to read ETS cache")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Trigger a reconnection test.
-let reconnectionTest = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("multiplayer_reconnection_test", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Reconnection test failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/MyLangCmd.affine b/src/commands/MyLangCmd.affine
new file mode 100644
index 00000000..986ea331
--- /dev/null
+++ b/src/commands/MyLangCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MyLangCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/MyLangCmd.res b/src/commands/MyLangCmd.res
deleted file mode 100644
index 068e6c13..00000000
--- a/src/commands/MyLangCmd.res
+++ /dev/null
@@ -1,97 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL My-Lang Commands — Backend wrappers for the AI-native language tools.
-///
-/// Invokes the my-lang CLI through backend commands.
-/// The Rust backend shells out to `my compile`, `my repl`, etc.
-
-let invoke = RuntimeBridge.invoke
-
-/// Check whether the my-lang CLI binary is available.
-let checkCli = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("mylang_check", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("my-lang CLI not found")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Compile source code in a given dialect. Returns JSON compilation result.
-let compile = (source: string, dialect: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("mylang_compile", {"source": source, "dialect": dialect})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Compilation failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Connect to the my-lang LSP server. Returns connection status JSON.
-let connectLsp = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("mylang_lsp_connect", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("LSP connection failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Request diagnostics from the my-lang LSP for a file.
-/// Sends content to the LSP and returns diagnostic JSON.
-let requestDiagnostics = (
-  filePath: string,
-  content: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("mylang_lsp_diagnostics", {"file_path": filePath, "content": content})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("LSP diagnostics request failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Send a line to the REPL. Returns the REPL output.
-let replEval = (input: string, dialect: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("mylang_repl", {"input": input, "dialect": dialect})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("REPL evaluation failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/NesyDriftCmd.affine b/src/commands/NesyDriftCmd.affine
new file mode 100644
index 00000000..0d0b993b
--- /dev/null
+++ b/src/commands/NesyDriftCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module NesyDriftCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/NesyDriftCmd.res b/src/commands/NesyDriftCmd.res
deleted file mode 100644
index 71472b08..00000000
--- a/src/commands/NesyDriftCmd.res
+++ /dev/null
@@ -1,44 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL NeSy Drift command wrappers — invoke bridge for the
-/// drift dashboard panel.
-///
-/// All commands invoke BoJ cartridge endpoints for neural model drift
-/// detection. Uses `Tea_Cmd.call` for async operations.
-
-let invoke = RuntimeBridge.invoke
-
-/// Run a drift check on all monitored models.
-/// Returns JSON with per-model drift status and any new alerts.
-let check = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("nesy_drift_check", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to run drift check")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Fetch historical drift alerts.
-/// Returns JSON array of drift alert objects sorted by timestamp.
-let history = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("nesy_drift_history", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to fetch drift history")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/NesyHarmonizeCmd.affine b/src/commands/NesyHarmonizeCmd.affine
new file mode 100644
index 00000000..ae8ac26b
--- /dev/null
+++ b/src/commands/NesyHarmonizeCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module NesyHarmonizeCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/NesyHarmonizeCmd.res b/src/commands/NesyHarmonizeCmd.res
deleted file mode 100644
index a2419755..00000000
--- a/src/commands/NesyHarmonizeCmd.res
+++ /dev/null
@@ -1,47 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL NeSy Harmonization command wrappers — invoke bridge for the
-/// harmonization monitor panel.
-///
-/// All commands invoke BoJ cartridge endpoints for neural-symbolic
-/// harmonization data. Uses `Tea_Cmd.call` for async operations.
-
-let invoke = RuntimeBridge.invoke
-
-/// Fetch current harmonization entries from the BoJ NeSy cartridge.
-/// Returns JSON array of harmonization entry objects.
-let fetchEntries = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("nesy_harmonize_fetch_entries", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to fetch harmonization entries")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Submit a new harmonization request to the BoJ NeSy cartridge.
-/// Triggers neural-symbolic verdict fusion for the given input.
-/// Returns JSON with the resulting harmonization entry.
-let submit = (source: string, inputData: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("nesy_harmonize_submit", {"source": source, "input_data": inputData})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to submit harmonization request")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/NesyModesCmd.affine b/src/commands/NesyModesCmd.affine
new file mode 100644
index 00000000..94523a9f
--- /dev/null
+++ b/src/commands/NesyModesCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module NesyModesCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/NesyModesCmd.res b/src/commands/NesyModesCmd.res
deleted file mode 100644
index 4de67b3d..00000000
--- a/src/commands/NesyModesCmd.res
+++ /dev/null
@@ -1,44 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL NeSy Modes command wrappers — invoke bridge for the
-/// reasoning mode selector panel.
-///
-/// All commands invoke BoJ cartridge endpoints for reasoning mode
-/// management. Uses `Tea_Cmd.call` for async operations.
-
-let invoke = RuntimeBridge.invoke
-
-/// Get the currently active reasoning mode.
-/// Returns JSON with the mode identifier and metadata.
-let getMode = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("nesy_mode_get", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to get current reasoning mode")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Set the active reasoning mode.
-/// Returns JSON confirming the mode switch.
-let setMode = (modeId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("nesy_mode_set", {"mode_id": modeId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to set reasoning mode")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/NetworkTopologyCmd.affine b/src/commands/NetworkTopologyCmd.affine
new file mode 100644
index 00000000..2bccda17
--- /dev/null
+++ b/src/commands/NetworkTopologyCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module NetworkTopologyCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/NetworkTopologyCmd.res b/src/commands/NetworkTopologyCmd.res
deleted file mode 100644
index c466d56d..00000000
--- a/src/commands/NetworkTopologyCmd.res
+++ /dev/null
@@ -1,70 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Network Topology Commands — backend invoke wrappers for reading
-/// the in-game network topology from the running IDApTIK instance.
-
-let invoke = RuntimeBridge.invoke
-
-/// Read the current network topology from the running game.
-let readTopology = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("read_network_topology", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to read network topology")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Read DNS resolution table from the game.
-let readDnsTable = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("read_dns_table", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to read DNS table")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Export the topology as SVG.
-let exportSvg = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("export_topology_svg", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to export SVG")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Read packet flow events from the game.
-let readPacketFlow = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("read_packet_flow", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to read packet flow")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/ObservabilityCmd.affine b/src/commands/ObservabilityCmd.affine
new file mode 100644
index 00000000..d80a3ddf
--- /dev/null
+++ b/src/commands/ObservabilityCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ObservabilityCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/ObservabilityCmd.res b/src/commands/ObservabilityCmd.res
deleted file mode 100644
index b35f7921..00000000
--- a/src/commands/ObservabilityCmd.res
+++ /dev/null
@@ -1,77 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// ObservabilityCmd — backend invoke wrappers for the observe-mcp BoJ cartridge.
-///
-/// Routes SARIF export and OpenTelemetry trace collection through the
-/// observe-mcp cartridge backend (src-gossamer/src/observability/commands.rs),
-/// enabling BoJ-routed observability when bojRouting is on.
-///
-/// All commands use `Tea_Cmd.call` for async backend invocations, matching
-/// the pattern established in BojCmd.res and PanicAttackCmd.res.
-
-let invoke = RuntimeBridge.invoke
-
-/// Export a panic-attack report as SARIF via the observe-mcp cartridge.
-///
-/// This routes through the BoJ observe-mcp cartridge rather than directly
-/// to the panic-attack backend, enabling centralised observability tracking.
-///
-/// The backend command `observe_export_sarif` accepts a report ID and
-/// returns the SARIF JSON or an error.
-let exportSarifViaObserveMcp = (
-  reportId: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("observe_export_sarif", {"report_id": reportId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to export SARIF via observe-mcp")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Export OpenTelemetry trace spans via the observe-mcp cartridge.
-///
-/// The `batch` parameter should be an OTLP JSON string produced by
-/// `ObservabilityEngine.exportTraceBatch`.  The backend forwards this
-/// to the configured collector endpoint and returns an acceptance count.
-let exportOtelTraces = (batch: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("observe_export_traces", {"batch": batch})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to export OTLP traces via observe-mcp")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Fetch an observability summary from the observe-mcp cartridge.
-///
-/// Returns JSON with trace count, span count, active exporters, and
-/// collector health — used to populate the BoJ observability dashboard.
-let fetchObservabilitySummary = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("observe_summary", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to fetch observability summary")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/PanicAttackCmd.affine b/src/commands/PanicAttackCmd.affine
new file mode 100644
index 00000000..4fe1d75e
--- /dev/null
+++ b/src/commands/PanicAttackCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PanicAttackCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/PanicAttackCmd.res b/src/commands/PanicAttackCmd.res
deleted file mode 100644
index 8089da7c..00000000
--- a/src/commands/PanicAttackCmd.res
+++ /dev/null
@@ -1,146 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL panic-attack command wrappers — invoke bridge for
-/// the panic-attack stress testing and weak point analysis panel.
-///
-/// All commands invoke the panic-attack binary via the backend,
-/// returning JSON results. Uses `Tea_Cmd.call` for async operations.
-
-let invoke = RuntimeBridge.invoke
-
-/// Check panic-attack capability (is the binary available? what mode?).
-let checkCapability = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("check_panic_attacker_capability", Dict.make())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to probe panic-attack capability")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Run a static analysis scan (assail) on a target directory.
-/// Returns JSON with weak points, statistics, and recommendations.
-let assail = (targetPath: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("panic_attack_assail", {"target_path": targetPath})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Scan failed — is panic-attack installed?")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Run a full assault (static analysis + stress testing) on a target.
-/// Returns JSON with combined assail + attack results.
-let assault = (targetPath: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("panic_attack_assault", {"target_path": targetPath})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Assault scan failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// View a saved report by path.
-let viewReport = (reportPath: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("panic_attack_view_report", {"report_path": reportPath})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to load report")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Compare two reports (diff).
-let diffReports = (
-  leftPath: string,
-  rightPath: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("panic_attack_diff", {"left_path": leftPath, "right_path": rightPath})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to compare reports")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// List saved scan reports.
-let listReports = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("panic_attack_list_reports", Dict.make())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to list reports")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Export a report as SARIF format for GitHub Security tab.
-let exportSarif = (reportPath: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("panic_attack_export_sarif", {"report_path": reportPath})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to export SARIF")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Export a report as PanLL event-chain model.
-let exportEventChain = (reportPath: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("panic_attack_export_panll", {"report_path": reportPath})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to export event chain")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/PlaygroundsCmd.affine b/src/commands/PlaygroundsCmd.affine
new file mode 100644
index 00000000..ed528917
--- /dev/null
+++ b/src/commands/PlaygroundsCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PlaygroundsCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/PlaygroundsCmd.res b/src/commands/PlaygroundsCmd.res
deleted file mode 100644
index f2ea1f30..00000000
--- a/src/commands/PlaygroundsCmd.res
+++ /dev/null
@@ -1,27 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Playgrounds Commands — Backend wrappers for code execution.
-///
-/// Connects to the NQC proxy at :4000 for VCL/KQL/GQL queries.
-
-let invoke = RuntimeBridge.invoke
-
-/// Execute a query through the NQC proxy.
-let executeQuery = (
-  language: string,
-  code: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("playgrounds_execute", {"language": language, "code": code})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Execution failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/PlazaCmd.affine b/src/commands/PlazaCmd.affine
new file mode 100644
index 00000000..4d7d650b
--- /dev/null
+++ b/src/commands/PlazaCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PlazaCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/PlazaCmd.res b/src/commands/PlazaCmd.res
deleted file mode 100644
index 33e22e69..00000000
--- a/src/commands/PlazaCmd.res
+++ /dev/null
@@ -1,62 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Palimpsest Plaza Commands — Backend command wrappers for the
-/// PMPL licensing panel.
-///
-/// Each function wraps a backend `invoke` call for license compliance
-/// scanning, adoption statistics, and compatibility checking.
-
-let invoke = RuntimeBridge.invoke
-
-/// Scan a single repository for PMPL compliance indicators.
-/// Returns JSON with license detection, SPDX header counts, exhibit status.
-let scanRepo = (repoName: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("plaza_scan_repo", {"repo_name": repoName})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to scan repo: ${repoName}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Compute adoption statistics across the entire ecosystem.
-/// Scans all repos under the canonical path and returns aggregate counts.
-let adoptionStats = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("plaza_adoption_stats", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to compute adoption statistics")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Check PMPL compatibility with another license.
-/// Returns JSON with compatible (bool) and notes.
-let checkCompatibility = (license: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("plaza_check_compatibility", {"license": license})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Compatibility check failed for: ${license}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/ProtocolSquisherCmd.affine b/src/commands/ProtocolSquisherCmd.affine
new file mode 100644
index 00000000..60c5b423
--- /dev/null
+++ b/src/commands/ProtocolSquisherCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ProtocolSquisherCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/ProtocolSquisherCmd.res b/src/commands/ProtocolSquisherCmd.res
deleted file mode 100644
index b2d54343..00000000
--- a/src/commands/ProtocolSquisherCmd.res
+++ /dev/null
@@ -1,60 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Protocol-Squisher Commands — Backend wrappers for format analysis.
-///
-/// Invokes the protocol-squisher CLI through backend commands.
-/// The Rust backend shells out to `protocol-squisher analyze`, `compare`, etc.
-
-let invoke = RuntimeBridge.invoke
-
-/// Check whether the protocol-squisher CLI binary is available.
-let checkCli = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("protocol_squisher_check", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("protocol-squisher CLI not found")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Analyse a schema file. Returns JSON analysis result.
-let analyse = (filePath: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("protocol_squisher_analyze", {"file_path": filePath})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Schema analysis failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Compare two schema files for compatibility. Returns JSON comparison result.
-let compare = (
-  leftPath: string,
-  rightPath: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("protocol_squisher_compare", {"left_path": leftPath, "right_path": rightPath})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Schema comparison failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/ProvenanceCmd.affine b/src/commands/ProvenanceCmd.affine
new file mode 100644
index 00000000..d3ef40fe
--- /dev/null
+++ b/src/commands/ProvenanceCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ProvenanceCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/ProvenanceCmd.res b/src/commands/ProvenanceCmd.res
deleted file mode 100644
index 590483df..00000000
--- a/src/commands/ProvenanceCmd.res
+++ /dev/null
@@ -1,56 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL ProvenanceCmd — Backend command wrappers for git blame provenance analysis.
-///
-/// The Rust backend runs `git blame --porcelain` on a file and enriches each
-/// region with Co-Authored-By trailer parsing. Results come back as JSON that
-/// the Update layer parses into `provenanceRegion` arrays.
-///
-/// Pattern: `commandName(args..., tagger) => Tea_Cmd.t<'msg>`
-
-let invoke = RuntimeBridge.invoke
-
-/// Analyse a file's provenance via git blame + Co-Authored-By parsing.
-///
-/// The Rust backend runs `git blame --porcelain <path>` in the repo root,
-/// parses the output, and returns a JSON array of blame regions with
-/// author, co-author, and commit metadata.
-let analyseFile = (
-  repoPath: string,
-  filePath: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("provenance_analyse_file", {"repoPath": repoPath, "filePath": filePath})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to analyse provenance: ${filePath}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Scan a file for unsound markers (believe_me, sorry, Admitted, assert_total).
-///
-/// Returns a JSON object with counts per marker type. Used to validate that
-/// regions marked as Verified actually contain no proof-undermining patterns.
-let scanUnsoundMarkers = (filePath: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("provenance_scan_unsound", {"filePath": filePath})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to scan for unsound markers: ${filePath}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/ProvisionerCmd.affine b/src/commands/ProvisionerCmd.affine
new file mode 100644
index 00000000..85f9d2e5
--- /dev/null
+++ b/src/commands/ProvisionerCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ProvisionerCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/ProvisionerCmd.res b/src/commands/ProvisionerCmd.res
deleted file mode 100644
index cc2ccb50..00000000
--- a/src/commands/ProvisionerCmd.res
+++ /dev/null
@@ -1,79 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL ProvisionerCmd — Backend command wrappers for portfolio provisioning.
-///
-/// Handles panel installation (native or containerised), configuration
-/// persistence, and portfolio management. Container operations route through
-/// Stapeln when available, falling back to direct Podman commands.
-
-let invoke = RuntimeBridge.invoke
-
-/// Install a panel. For native panels this is a no-op (they're built in).
-/// For podded panels, this pulls/builds the container image.
-let installPanel = (
-  panelName: string,
-  isolation: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("provisioner_install_panel", {"panelName": panelName, "isolation": isolation})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to install panel: ${panelName}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Remove a panel. For native panels, just disables it. For podded panels,
-/// deletes the container and all its data — clean uninstall, everything gone.
-let removePanel = (panelName: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("provisioner_remove_panel", {"panelName": panelName})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to remove panel: ${panelName}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Save panel configuration to persistent storage.
-let saveConfig = (configJson: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("provisioner_save_config", {"config": configJson})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to save panel configuration")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Load panel configuration from persistent storage.
-let loadConfig = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("provisioner_load_config", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to load panel configuration")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/ReleaseManagerCmd.affine b/src/commands/ReleaseManagerCmd.affine
new file mode 100644
index 00000000..50295297
--- /dev/null
+++ b/src/commands/ReleaseManagerCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ReleaseManagerCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/ReleaseManagerCmd.res b/src/commands/ReleaseManagerCmd.res
deleted file mode 100644
index 9fe5bd64..00000000
--- a/src/commands/ReleaseManagerCmd.res
+++ /dev/null
@@ -1,96 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Release Manager Commands — backend invoke wrappers for versioning,
-/// changelog generation, artifact building, and distribution.
-
-let invoke = RuntimeBridge.invoke
-
-/// Generate a changelog from git history.
-let generateChangelog = (fromVersion: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("release_generate_changelog", {"fromVersion": fromVersion})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to generate changelog")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Build artifacts for the specified platforms.
-let buildArtifacts = (
-  version: string,
-  platforms: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("release_build_artifacts", {"version": version, "platforms": platforms})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Artifact build failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Publish a release.
-let publishRelease = (
-  version: string,
-  channel: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("release_publish", {"version": version, "channel": channel})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to publish release")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Read release history.
-let readReleases = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("release_read_history", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to read releases")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Bump the version number.
-let bumpVersion = (bumpType: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("release_bump_version", {"bumpType": bumpType})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to bump version")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/RepoLoaderCmd.affine b/src/commands/RepoLoaderCmd.affine
new file mode 100644
index 00000000..d115295d
--- /dev/null
+++ b/src/commands/RepoLoaderCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module RepoLoaderCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/RepoLoaderCmd.res b/src/commands/RepoLoaderCmd.res
deleted file mode 100644
index 90c6af7a..00000000
--- a/src/commands/RepoLoaderCmd.res
+++ /dev/null
@@ -1,101 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Repo Loader Commands — Backend command wrappers for the repo loading panel.
-///
-/// Each function wraps a backend `invoke` call in a `Tea_Cmd.call`, converting
-/// the Promise-based IPC into the TEA command model.
-
-let invoke = RuntimeBridge.invoke
-
-let openDialog = RuntimeBridge.Dialog.openDialog
-
-/// Scan a repository directory and return info + panel suggestions.
-let scan = (repoPath: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("repoloader_scan", {"repoPath": repoPath})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to scan repo: ${repoPath}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Save panel configuration to PANELS.a2ml in the repo.
-let savePanels = (
-  repoPath: string,
-  panelsJson: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("repoloader_save_panels", {"repoPath": repoPath, "panelsJson": panelsJson})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to save panel configuration")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// List recently loaded repositories.
-let listRecent = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("repoloader_list_recent", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to load recent repos")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Search the git-private-farm for repos matching a query.
-let searchFarm = (query: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("repoloader_search_farm", {"query": query})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to search farm for: ${query}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Open a directory picker dialog for the user to select a repo.
-let pickDirectory = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let options: JSON.t = %raw(`({ directory: true, multiple: false, title: "Select Repository" })`)
-    openDialog(options)
-    ->Promise.then(result => {
-      switch Nullable.toOption(result) {
-      | Some(value) => switch JSON.Classify.classify(value) {
-        | String(path) => callbacks.enqueue(tagger(Ok(path)))
-        | _ => callbacks.enqueue(tagger(Error("Unexpected dialog result type")))
-        }
-      | None => callbacks.enqueue(tagger(Error("No directory selected")))
-      }
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Directory selection failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/ReposystemCmd.affine b/src/commands/ReposystemCmd.affine
new file mode 100644
index 00000000..8b4b74de
--- /dev/null
+++ b/src/commands/ReposystemCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ReposystemCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/ReposystemCmd.res b/src/commands/ReposystemCmd.res
deleted file mode 100644
index 840a2aa9..00000000
--- a/src/commands/ReposystemCmd.res
+++ /dev/null
@@ -1,23 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Reposystem Commands — Backend wrappers for RSR compliance scanning.
-///
-/// The reposystem backend scans local repo directories for required files.
-
-let invoke = RuntimeBridge.invoke
-
-/// Scan all repos for RSR compliance.
-let scanAll = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("reposystem_scan_all", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("RSR scan failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/ScriptGistCmd.affine b/src/commands/ScriptGistCmd.affine
new file mode 100644
index 00000000..e3ab63a4
--- /dev/null
+++ b/src/commands/ScriptGistCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ScriptGistCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/ScriptGistCmd.res b/src/commands/ScriptGistCmd.res
deleted file mode 100644
index 8b025ffc..00000000
--- a/src/commands/ScriptGistCmd.res
+++ /dev/null
@@ -1,78 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL ScriptGist Commands — backend invoke wrappers for gist persistence,
-/// execution dispatch, and diachronic snapshot restoration.
-///
-/// Routes to Rust backend at src-gossamer/src/script_gist/commands.rs which
-/// handles filesystem I/O and target dispatch.
-
-let invoke = RuntimeBridge.invoke
-
-/// Save a gist to persistent storage (`~/.panll/gists/<id>.json`).
-/// The gist is serialised as a JSON string on the frontend side.
-let saveGist = (gistJson: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("script_gist_save", {"gistJson": gistJson})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to save gist")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Execute a gist by dispatching to its target backend.
-/// Returns a JSON string representing a gistResult.
-let executeGist = (gistJson: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("script_gist_execute", {"gistJson": gistJson})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Gist execution failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Restore a diachronic checkpoint by deserialising the snapshot.
-/// Returns the validated scriptGistState JSON for the frontend to parse.
-let restoreSnapshot = (snapshotJson: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("script_gist_restore_snapshot", {"snapshotJson": snapshotJson})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Snapshot restoration failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// List all saved gist files from persistent storage.
-let listGists = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("script_gist_list", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to list gists")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/SecurityCmd.affine b/src/commands/SecurityCmd.affine
new file mode 100644
index 00000000..876bb270
--- /dev/null
+++ b/src/commands/SecurityCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module SecurityCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/SecurityCmd.res b/src/commands/SecurityCmd.res
deleted file mode 100644
index f3e5452a..00000000
--- a/src/commands/SecurityCmd.res
+++ /dev/null
@@ -1,105 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Security Commands — IPC wrappers for redaction, vault,
-/// 2FA, and Trustfile operations (DD-026, DD-027).
-///
-/// Each function returns a Tea_Cmd that dispatches a result message
-/// back into the update loop via `callbacks.enqueue`.
-
-open Msg
-
-/// Backend invoke binding via RuntimeBridge.
-let invoke = RuntimeBridge.invoke
-
-/// Redact secrets from text using backend regex patterns.
-let redactText = (text: string, panelId: string, patternsJson: string): Tea_Cmd.t<msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke(
-      "redact_text",
-      {
-        "text": text,
-        "panelId": panelId,
-        "patternsJson": patternsJson,
-      },
-    )
-    ->Promise.then(result => {
-      callbacks.enqueue(Security(RedactionResult(Ok(result))))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(Security(RedactionResult(Error("Failed to redact text"))))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Store a secret in the vault.
-let vaultStore = (key: string, value: string): Tea_Cmd.t<msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke(
-      "vault_store",
-      {
-        "key": key,
-        "value": value,
-      },
-    )
-    ->Promise.then(result => {
-      callbacks.enqueue(Security(VaultStoreResult(Ok(result))))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(Security(VaultStoreResult(Error("Failed to store in vault"))))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Retrieve a secret from the vault.
-let vaultRetrieve = (key: string): Tea_Cmd.t<msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("vault_retrieve", {"key": key})
-    ->Promise.then(result => {
-      callbacks.enqueue(Security(VaultRetrieveResult(Ok(result))))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(Security(VaultRetrieveResult(Error("Failed to retrieve from vault"))))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// List all keys in the vault.
-let vaultList = (): Tea_Cmd.t<msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("vault_list", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(Security(VaultListResult(Ok(result))))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(Security(VaultListResult(Error("Failed to list vault keys"))))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Load and parse a Trustfile from the given repo path.
-let loadTrustfile = (repoPath: string): Tea_Cmd.t<msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("load_trustfile", {"repoPath": repoPath})
-    ->Promise.then(result => {
-      callbacks.enqueue(Security(TrustfileLoaded(Ok(result))))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(Security(TrustfileLoaded(Error("Failed to load Trustfile"))))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/ServiceCmd.affine b/src/commands/ServiceCmd.affine
new file mode 100644
index 00000000..5f4c01fa
--- /dev/null
+++ b/src/commands/ServiceCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ServiceCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/ServiceCmd.res b/src/commands/ServiceCmd.res
deleted file mode 100644
index 84252f73..00000000
--- a/src/commands/ServiceCmd.res
+++ /dev/null
@@ -1,84 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// ServiceCmd — TEA command wrappers for the PanLL service registry.
-///
-/// Provides side-effectful commands that invoke service registry operations
-/// through the Gossamer backend. Each command follows the standard pattern:
-/// `Tea_Cmd.call` + `RuntimeBridge.invoke` + `Promise.then/catch`.
-
-let invoke = RuntimeBridge.invoke
-
-/// Refresh health status of all registered services.
-///
-/// Returns the full registry as JSON on success.
-let refreshAll = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("service_status_all", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Service registry refresh failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Check health of a single service by key.
-///
-/// Returns the updated service entry as JSON on success.
-let checkService = (serviceKey: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("service_status", {"service_key": serviceKey})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Health check failed for " ++ serviceKey)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Update the URL of a registered service.
-///
-/// Resets the service status to Stopped after URL change.
-let updateServiceUrl = (
-  serviceKey: string,
-  url: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("service_update_url", {"service_key": serviceKey, "url": url})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("URL update failed for " ++ serviceKey)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Load the current registry snapshot from the backend.
-let getRegistry = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("service_registry_get", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Registry load failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/SettingsCmd.affine b/src/commands/SettingsCmd.affine
new file mode 100644
index 00000000..fb129cee
--- /dev/null
+++ b/src/commands/SettingsCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module SettingsCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/SettingsCmd.res b/src/commands/SettingsCmd.res
deleted file mode 100644
index f22a6451..00000000
--- a/src/commands/SettingsCmd.res
+++ /dev/null
@@ -1,60 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// SettingsCmd — TEA command wrappers for PanLL settings operations.
-
-let invoke = RuntimeBridge.invoke
-
-/// Load all settings from the backend.
-let getSettings = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("settings_get", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Settings load failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Set a single setting by key.
-let setSetting = (
-  key: string,
-  value: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("settings_set", {"key": key, "value": value})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Setting update failed for " ++ key)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Save all settings as a complete JSON blob.
-let saveAllSettings = (settingsJson: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("settings_save", {"settings": settingsJson})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Settings save failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/StapelnCmd.affine b/src/commands/StapelnCmd.affine
new file mode 100644
index 00000000..a4132108
--- /dev/null
+++ b/src/commands/StapelnCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module StapelnCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/StapelnCmd.res b/src/commands/StapelnCmd.res
deleted file mode 100644
index c941b37e..00000000
--- a/src/commands/StapelnCmd.res
+++ /dev/null
@@ -1,75 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Stapeln Commands — backend invoke wrappers for the container
-/// assembly pipeline. These call into the Rust backend which proxies
-/// to the Stapeln server API (default http://localhost:8420/api/v1).
-
-let invoke = RuntimeBridge.invoke
-
-/// Connect to the stapeln backend and check availability.
-let connect = (url: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("stapeln_health", {"url": url})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Cannot reach stapeln backend")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Request validation of the current assembly from the backend.
-let requestValidation = (url: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("stapeln_validate", {"url": url})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Validation request failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Request artifact generation from the backend.
-let requestGenerate = (
-  url: string,
-  format: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("stapeln_generate", {"url": url, "format": format})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Artifact generation failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Refresh pipeline status from the backend.
-let refreshStatus = (url: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("stapeln_status", {"url": url})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Status refresh failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/SystemUpdateCmd.affine b/src/commands/SystemUpdateCmd.affine
new file mode 100644
index 00000000..7da6120f
--- /dev/null
+++ b/src/commands/SystemUpdateCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module SystemUpdateCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/SystemUpdateCmd.res b/src/commands/SystemUpdateCmd.res
deleted file mode 100644
index 880916b1..00000000
--- a/src/commands/SystemUpdateCmd.res
+++ /dev/null
@@ -1,171 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// SystemUpdateCmd — TEA command wrappers for system update backend operations.
-///
-/// Each function wraps a backend command handler from
-/// `src-gossamer/src/system_update/commands.rs`, using the `Tea_Cmd.call` pattern
-/// to bridge async backend invocations into the TEA update loop.
-///
-/// Pattern:
-///   1. Call `invoke("system_update_*", params)` → returns Promise
-///   2. On success: `callbacks.enqueue(tagger(Ok(jsonString)))`
-///   3. On failure: `callbacks.enqueue(tagger(Error(errorMessage)))`
-
-/// Backend invoke binding via RuntimeBridge.
-let invoke = RuntimeBridge.invoke
-
-// ============================================================================
-// Component listing
-// ============================================================================
-
-/// List all updatable components with current/latest versions.
-/// Returns: JSON array of component objects.
-let listComponents = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("system_update_list_components", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to list system components")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-// ============================================================================
-// Update checking
-// ============================================================================
-
-/// Check all components for available updates.
-/// Returns: JSON with summary and components array.
-let checkAll = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("system_update_check_all", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to check for updates")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Check a single component for updates by ID.
-/// Returns: JSON component object.
-let checkComponent = (componentId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("system_update_check_component", {"component_id": componentId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to check component: " ++ componentId)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-// ============================================================================
-// Update application
-// ============================================================================
-
-/// Apply update to a single component by ID.
-/// Returns: JSON with success/output fields.
-let applyComponent = (componentId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("system_update_apply_component", {"component_id": componentId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to apply update: " ++ componentId)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Apply all available updates in sequence.
-/// Returns: JSON with success/applied/failed/summary fields.
-let applyAll = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("system_update_apply_all", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to apply all updates")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-// ============================================================================
-// asdf details
-// ============================================================================
-
-/// Get detailed asdf plugin status (all 33+ plugins).
-/// Returns: JSON array of {plugin, installed, latest}.
-let asdfStatus = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("system_update_asdf_status", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to get asdf status")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-// ============================================================================
-// Logs and summary
-// ============================================================================
-
-/// Get update log history.
-/// Returns: JSON array of {timestamp, summary}.
-let logs = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("system_update_logs", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to get update logs")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Get last update run summary.
-/// Returns: JSON with summary text.
-let lastSummary = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("system_update_last_summary", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to get last summary")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/TentaclesCmd.affine b/src/commands/TentaclesCmd.affine
new file mode 100644
index 00000000..5ebfd3c6
--- /dev/null
+++ b/src/commands/TentaclesCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TentaclesCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/TentaclesCmd.res b/src/commands/TentaclesCmd.res
deleted file mode 100644
index 2964f744..00000000
--- a/src/commands/TentaclesCmd.res
+++ /dev/null
@@ -1,61 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Tentacles Commands — backend invoke wrappers for the ECHIDNA FFI bridge.
-///
-/// These call into the Rust backend which proxies to the ECHIDNA V-lang REST
-/// adapters. Used for "without" mode — agents operating through the FFI/ABI
-/// layer rather than embedded TEA state.
-
-let invoke = RuntimeBridge.invoke
-
-/// Check ECHIDNA FFI bridge health.
-let checkFfiBridge = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("tentacles_ffi_health", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("ECHIDNA FFI bridge unreachable")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Send a task to a specific agent via the FFI bridge.
-let sendAgentTask = (
-  agentId: string,
-  task: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("tentacles_agent_task", {"agent": agentId, "task": task})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to dispatch agent task")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Poll for events from the ECHIDNA FFI event stream.
-let pollEvents = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("tentacles_poll_events", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to poll FFI events")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/TimelineCmd.affine b/src/commands/TimelineCmd.affine
new file mode 100644
index 00000000..afacba9d
--- /dev/null
+++ b/src/commands/TimelineCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TimelineCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/TimelineCmd.res b/src/commands/TimelineCmd.res
deleted file mode 100644
index 217badbd..00000000
--- a/src/commands/TimelineCmd.res
+++ /dev/null
@@ -1,166 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Code MRI — Timeline Commands (Layer 2)
-///
-/// backend invoke wrappers for VeriSimDB-backed development timeline persistence.
-/// The Rust backend manages the VeriSimDB connection, stores timeline snapshots,
-/// and retrieves historical data for the "time machine" scrubber.
-///
-/// Command pattern follows PanLL convention:
-///   `commandName(args..., tagger) => Tea_Cmd.t<'msg>`
-///
-/// DESIGN NOTE: Snapshots are captured on commit hooks (via the Watcher panel)
-/// and on-demand via the Code MRI dashboard. The backend aggregates metrics
-/// from git, panic-attack findings, Vexometer readings, and .mri.json tag
-/// counts into a single TimelineEngine.timelineSnapshot struct.
-
-let invoke = RuntimeBridge.invoke
-
-/// Connect to the VeriSimDB timeline database for the current repo.
-///
-/// Creates the database file if it doesn't exist. The path is derived from
-/// the repo root: `<repo>/.panll/timeline.verisim`.
-///
-/// @param repoPath  Root path of the repository
-/// @param tagger    Callback receiving Ok(dbPath) or Error(message)
-/// @returns TEA command that initiates the connection
-let connect = (repoPath: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("timeline_connect", {"repoPath": repoPath})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to connect to timeline database")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Capture a new timeline snapshot for the current repo state.
-///
-/// The Rust backend gathers metrics from:
-///   - git (lines of code, commit hash)
-///   - panic-attack (finding count)
-///   - .mri.json sidecars (tag count)
-///   - Vexometer state (friction reading)
-///   - AI attribution from provenance data
-///
-/// The snapshot is stored in VeriSimDB and returned as JSON.
-///
-/// @param repoPath  Root path of the repository
-/// @param tagger    Callback receiving Ok(snapshotJson) or Error(message)
-/// @returns TEA command that triggers snapshot capture
-let captureSnapshot = (repoPath: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("timeline_capture_snapshot", {"repoPath": repoPath})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to capture timeline snapshot")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Load all timeline snapshots from VeriSimDB for the current repo.
-///
-/// Returns a JSON array of snapshot objects, ordered oldest-first.
-/// The caller should parse these into TimelineEngine.timelineSnapshot values.
-///
-/// @param repoPath  Root path of the repository
-/// @param tagger    Callback receiving Ok(snapshotsJson) or Error(message)
-/// @returns TEA command that loads the timeline history
-let loadHistory = (repoPath: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("timeline_load_history", {"repoPath": repoPath})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to load timeline history")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Query timeline snapshots within a date range.
-///
-/// Returns snapshots where timestamp is between startDate and endDate
-/// (inclusive, ISO 8601 format). Useful for zoomed timeline views.
-///
-/// @param repoPath   Root path of the repository
-/// @param startDate  ISO 8601 start date (inclusive)
-/// @param endDate    ISO 8601 end date (inclusive)
-/// @param tagger     Callback receiving Ok(snapshotsJson) or Error(message)
-/// @returns TEA command that queries the range
-let queryRange = (
-  repoPath: string,
-  startDate: string,
-  endDate: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke(
-      "timeline_query_range",
-      {
-        "repoPath": repoPath,
-        "startDate": startDate,
-        "endDate": endDate,
-      },
-    )
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to query timeline range")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Export the full timeline as a JSON file for external analysis.
-///
-/// Writes a standalone JSON file to the specified path, containing all
-/// snapshots and computed metrics. This file can be consumed by Hypatia
-/// for pattern analysis or by external tools.
-///
-/// @param repoPath   Root path of the repository
-/// @param outputPath Path where the exported JSON file will be written
-/// @param tagger     Callback receiving Ok(outputPath) or Error(message)
-/// @returns TEA command that triggers the export
-let exportTimeline = (
-  repoPath: string,
-  outputPath: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke(
-      "timeline_export",
-      {
-        "repoPath": repoPath,
-        "outputPath": outputPath,
-      },
-    )
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to export timeline")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/TsdmCmd.affine b/src/commands/TsdmCmd.affine
new file mode 100644
index 00000000..052cd755
--- /dev/null
+++ b/src/commands/TsdmCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TsdmCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/TsdmCmd.res b/src/commands/TsdmCmd.res
deleted file mode 100644
index b17a1f32..00000000
--- a/src/commands/TsdmCmd.res
+++ /dev/null
@@ -1,67 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL TSDM command wrappers — persistence for the Triaxial Software
-/// Development Methodology directive panel.
-///
-/// The TSDM panel is a directive panel — it stores user preferences for
-/// axis ordering, tier priorities, and cleanup steps. These are persisted
-/// to localStorage (fast) and optionally to verisim (durable).
-///
-/// No heavy backend operations — this is mostly client-side state management
-/// with optional persistence calls.
-
-let invoke = RuntimeBridge.invoke
-
-/// Save TSDM directive preferences to persistent storage.
-/// Accepts JSON-serialised TsdmState.
-let saveDirective = (directiveJson: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("tsdm_save_directive", {"directive": directiveJson})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to save TSDM directive")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Load TSDM directive preferences from persistent storage.
-/// Returns JSON-serialised TsdmState or empty string if none saved.
-let loadDirective = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("tsdm_load_directive", Dict.make())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to load TSDM directive")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Collect work items from all consumer panels.
-/// Returns JSON array of classified work items.
-let collectWorkItems = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("tsdm_collect_work_items", Dict.make())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to collect work items")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/TypeLLCmd.affine b/src/commands/TypeLLCmd.affine
new file mode 100644
index 00000000..00c3e232
--- /dev/null
+++ b/src/commands/TypeLLCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TypeLLCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/TypeLLCmd.res b/src/commands/TypeLLCmd.res
deleted file mode 100644
index 20705eb7..00000000
--- a/src/commands/TypeLLCmd.res
+++ /dev/null
@@ -1,339 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL TypeLL Commands — Backend wrappers for the verification kernel.
-///
-/// TypeLL exposes a JSON-RPC-style API at TYPELL_URL (default http://localhost:7800/api/v1).
-/// These bindings wrap the 7 backend commands defined in src-gossamer/src/typell/commands.rs.
-///
-/// In browser-only mode (no desktop runtime), commands fall back to direct
-/// fetch() calls against the TypeLL server URL.
-///
-/// Unlike most panels which are self-contained, TypeLL commands are also called
-/// by other panels through TypeLLService — making TypeLL a cross-cutting concern.
-
-let hasDesktopRuntime = RuntimeBridge.hasDesktopRuntime
-
-/// GET helper for TypeLL direct fetch (bypasses backend invoke).
-let fetchGet: string => promise<string> = %raw(`
-  function(path) {
-    return fetch("http://localhost:7800/api/v1" + path)
-      .then(function(r) {
-        if (!r.ok) throw new Error("TypeLL returned " + r.status);
-        return r.text();
-      });
-  }
-`)
-
-/// POST helper for TypeLL direct fetch (bypasses backend invoke).
-let fetchPost: (string, string) => promise<string> = %raw(`
-  function(path, body) {
-    return fetch("http://localhost:7800/api/v1" + path, {
-      method: "POST",
-      headers: { "Content-Type": "application/json" },
-      body: body
-    }).then(function(r) {
-      if (!r.ok) throw new Error("TypeLL returned " + r.status);
-      return r.text();
-    });
-  }
-`)
-
-/// Check TypeLL server health.
-let health = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("typell_health", ())
-    } else {
-      fetchGet("/health")
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("TypeLL server not reachable")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Type-check an expression with optional context.
-/// POST /check — bidirectional type checking with full feature detection.
-let check = (
-  expression: string,
-  context: option<string>,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  let ctx = context->Option.getOr("")
-  Tea_Cmd.call(callbacks => {
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("typell_check", {"expression": expression, "context": ctx})
-    } else {
-      fetchPost(
-        "/check",
-        `{"expression":${JSON.stringifyAny(expression)->Option.getOr(
-            "\"\"",
-          )}, "context":${JSON.stringifyAny(ctx)->Option.getOr("{}")}}`,
-      )
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Type checking failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Infer the type of an expression.
-/// POST /infer — returns the most general type.
-let infer = (expression: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("typell_infer", {"expression": expression})
-    } else {
-      fetchPost("/infer", `{"expression":${JSON.stringifyAny(expression)->Option.getOr("\"\"")}}`)
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Type inference failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Apply refinement types to a specification.
-/// POST /refine — narrows a type with constraints.
-let refine = (
-  spec: string,
-  constraints: option<string>,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  let cons = constraints->Option.getOr("")
-  Tea_Cmd.call(callbacks => {
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("typell_refine", {"spec": spec, "constraints": cons})
-    } else {
-      fetchPost(
-        "/refine",
-        `{"spec":${JSON.stringifyAny(spec)->Option.getOr(
-            "\"\"",
-          )}, "constraints":${JSON.stringifyAny(cons)->Option.getOr("[]")}}`,
-      )
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Refinement failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Evaluate a type-level computation.
-/// POST /compute — evaluates normalisation, unification, etc.
-let compute = (term: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("typell_compute", {"term": term})
-    } else {
-      fetchPost("/compute", `{"term":${JSON.stringifyAny(term)->Option.getOr("\"\"")}}`)
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Type computation failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// List available type signatures from the server.
-/// GET /signatures — returns the signature catalogue.
-let listSignatures = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("typell_list_signatures", ())
-    } else {
-      fetchGet("/signatures")
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to list signatures")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Get the type universe hierarchy.
-/// GET /universes — returns the hierarchy of type universes.
-let universes = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("typell_universes", ())
-    } else {
-      fetchGet("/universes")
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to get universes")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-// ============================================================================
-// New Kernel Integration — localhost:7800 routed operations
-// ============================================================================
-
-/// Route a type check to the kernel with a specific language target.
-/// POST /check — sends source + language to the kernel for type checking.
-let checkType = (
-  source: string,
-  language: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let body = TypeLLEngine.buildCheckBody(source, language)
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("typell_check", {"expression": source, "context": language})
-    } else {
-      fetchPost("/check", body)
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Kernel type check failed for " ++ language)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Infer usage quantifiers (linear/affine/unrestricted) for an expression.
-/// POST /infer-usage — returns QTT quantifier annotations.
-let inferUsage = (source: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let body = TypeLLEngine.buildInferUsageBody(source)
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("typell_infer", {"expression": source})
-    } else {
-      fetchPost("/infer-usage", body)
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Usage inference failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Infer effects for an expression.
-/// POST /check-effects — returns effect list and purity status.
-let checkEffects = (source: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let body = TypeLLEngine.buildCheckEffectsBody(source)
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("typell_compute", {"term": source})
-    } else {
-      fetchPost("/check-effects", body)
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Effect checking failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Check dimensional consistency (for Eclexia's dimensional type system).
-/// POST /check-dimensional — validates unit/dimension annotations.
-let checkDimensional = (source: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    let body = TypeLLEngine.buildCheckDimensionalBody(source)
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("typell_compute", {"term": source})
-    } else {
-      fetchPost("/check-dimensional", body)
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Dimensional check failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Generate proof obligations from dependent types in the source.
-/// POST /generate-obligations — extracts propositions that need proving.
-let generateProofObligation = (source: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    let body = TypeLLEngine.buildGenerateProofObligationBody(source)
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("typell_compute", {"term": source})
-    } else {
-      fetchPost("/generate-obligations", body)
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Proof obligation generation failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/UmojaCmd.affine b/src/commands/UmojaCmd.affine
new file mode 100644
index 00000000..f21798f3
--- /dev/null
+++ b/src/commands/UmojaCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UmojaCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/UmojaCmd.res b/src/commands/UmojaCmd.res
deleted file mode 100644
index 69cfce96..00000000
--- a/src/commands/UmojaCmd.res
+++ /dev/null
@@ -1,89 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Umoja Commands — backend invoke wrappers for Umoja peer management.
-///
-/// These call into the Rust backend at src-gossamer/src/umoja/commands.rs
-/// for federation peer lifecycle operations: add, disconnect, gossip,
-/// catalogue sync, and metrics retrieval.
-
-let invoke = RuntimeBridge.invoke
-
-/// Add a new peer to the Umoja federation by address.
-let addPeer = (address: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("umoja_add_peer", {"address": address})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to add peer: ${address}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Disconnect a peer from the Umoja federation by node ID.
-let disconnectPeer = (nodeId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("umoja_disconnect_peer", {"nodeId": nodeId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to disconnect peer: ${nodeId}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Trigger a manual gossip round across the Umoja federation.
-let triggerGossipRound = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("umoja_trigger_gossip", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to trigger gossip round")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Request a catalogue sync with a specific peer by node ID.
-let syncCatalogue = (nodeId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("umoja_sync_catalogue", {"nodeId": nodeId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to sync catalogue with peer: ${nodeId}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Retrieve metrics for a specific peer by node ID.
-let getPeerMetrics = (nodeId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("umoja_peer_metrics", {"nodeId": nodeId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to get metrics for peer: ${nodeId}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/UmsCmd.affine b/src/commands/UmsCmd.affine
new file mode 100644
index 00000000..086ef09a
--- /dev/null
+++ b/src/commands/UmsCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UmsCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/UmsCmd.res b/src/commands/UmsCmd.res
deleted file mode 100644
index 0a4d1689..00000000
--- a/src/commands/UmsCmd.res
+++ /dev/null
@@ -1,201 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Universal Modding Studio Commands — backend invoke wrappers for
-/// mod project management, ABI validation, template instantiation,
-/// asset pipeline, distribution, and API reference loading.
-
-let invoke = RuntimeBridge.invoke
-
-/// Load all mod projects from the UMS projects directory.
-let loadProjects = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("ums_load_projects", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to load projects")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Create a new mod project with the given name and description.
-let createProject = (
-  name: string,
-  description: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("ums_create_project", {"name": name, "description": description})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to create project")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Open an existing mod project by its ID.
-let openProject = (projectId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("ums_open_project", {"projectId": projectId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to open project")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Delete a mod project by its ID.
-let deleteProject = (projectId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("ums_delete_project", {"projectId": projectId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to delete project")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Run ABI validation on a level within the current project.
-let validateLevel = (levelId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("ums_validate_level", {"levelId": levelId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("ABI validation failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Load available mod templates.
-let loadTemplates = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("ums_load_templates", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to load templates")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Instantiate a mod template to create a new project.
-let instantiateTemplate = (
-  templateId: string,
-  projectName: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("ums_instantiate_template", {"templateId": templateId, "projectName": projectName})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to instantiate template")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Load assets for the currently selected project.
-let loadAssets = (projectId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("ums_load_assets", {"projectId": projectId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to load assets")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Import an asset file into the current project.
-let importAsset = (
-  projectId: string,
-  filePath: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("ums_import_asset", {"projectId": projectId, "filePath": filePath})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to import asset")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Publish the current mod to a distribution target.
-let publishMod = (
-  projectId: string,
-  platform: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("ums_publish_mod", {"projectId": projectId, "platform": platform})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to publish mod")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Load the modding API reference documentation.
-let loadApiReference = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("ums_load_api_reference", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to load API reference")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/ValenceShellCmd.affine b/src/commands/ValenceShellCmd.affine
new file mode 100644
index 00000000..77597cdf
--- /dev/null
+++ b/src/commands/ValenceShellCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ValenceShellCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/ValenceShellCmd.res b/src/commands/ValenceShellCmd.res
deleted file mode 100644
index 5cc6262c..00000000
--- a/src/commands/ValenceShellCmd.res
+++ /dev/null
@@ -1,215 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Valence Shell Commands — Backend async bindings for PTY, Valence
-/// shell binary, session recording, and checkpoint operations.
-///
-/// Each function returns a `Tea_Cmd.t<'msg>` that wraps a backend invoke
-/// call in a Promise, tagging the result back into the TEA message loop.
-///
-/// The terminal PTY is managed by the shell plugin. The Valence
-/// shell binary handles reversible filesystem ops. Recordings use the
-/// asciinema .cast format for portability.
-
-let invoke = RuntimeBridge.invoke
-
-/// Check whether the Valence shell binary is available on PATH.
-/// Returns the version string on success, or an error if not found.
-let checkValenceAvailability = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("valence_shell_check", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Valence shell binary not found on PATH")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Spawn a PTY process with the given shell command.
-/// Returns a session ID on success that can be used for subsequent I/O.
-let spawnPty = (
-  shellCommand: string,
-  cwd: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("valence_shell_spawn", {"shell": shellCommand, "cwd": cwd})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to spawn PTY")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Send input to the running PTY session.
-let sendInput = (input: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("valence_shell_input", {"input": input})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to send input to PTY")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Start recording the terminal session to an asciinema .cast file.
-let startRecording = (name: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("valence_shell_record_start", {"name": name})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to start recording")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Stop the current recording and save the .cast file.
-let stopRecording = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("valence_shell_record_stop", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to stop recording")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// List all saved recordings.
-let listRecordings = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("valence_shell_recordings_list", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to list recordings")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Delete a recording by ID.
-let deleteRecording = (id: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("valence_shell_recording_delete", {"id": id})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to delete recording")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Create a Valence filesystem checkpoint.
-let createCheckpoint = (label: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("valence_shell_checkpoint_create", {"label": label})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to create checkpoint")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Restore a Valence filesystem checkpoint by ID.
-let restoreCheckpoint = (id: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("valence_shell_checkpoint_restore", {"id": id})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to restore checkpoint")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// List all Valence filesystem checkpoints.
-let listCheckpoints = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("valence_shell_checkpoints_list", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to list checkpoints")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Take a screenshot of the terminal state and save to the Capture panel.
-let screenshotTerminal = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("valence_shell_screenshot", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to capture terminal screenshot")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Export a recording as HTML replay (self-contained, shareable).
-let exportRecording = (
-  id: string,
-  format: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("valence_shell_recording_export", {"id": id, "format": format})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to export recording")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/VeriSimDbLiveCmd.affine b/src/commands/VeriSimDbLiveCmd.affine
new file mode 100644
index 00000000..a5671166
--- /dev/null
+++ b/src/commands/VeriSimDbLiveCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VeriSimDbLiveCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/VeriSimDbLiveCmd.res b/src/commands/VeriSimDbLiveCmd.res
deleted file mode 100644
index ae506143..00000000
--- a/src/commands/VeriSimDbLiveCmd.res
+++ /dev/null
@@ -1,173 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// VeriSimDB Live Commands — async VeriSimDB connection via the shared HTTP client.
-///
-/// These wrap the async backend commands from `verisim_live.rs` and provide the same
-/// TEA-compatible callback interface used throughout PanLL. Panels can switch between
-/// mock and live backends by routing through the panel config's routing flag.
-///
-/// All commands talk to the VeriSimDB server at ServiceEndpoints.verisim
-/// (default http://localhost:8080/api/v1).
-///
-/// In browser-only mode (no desktop runtime), commands fall back to direct
-/// fetch() calls against the VeriSimDB server URL.
-
-let hasDesktopRuntime = RuntimeBridge.hasDesktopRuntime
-
-/// GET helper for VeriSimDB direct fetch (bypasses backend invoke).
-/// panic-attack:allow insecure-protocol — localhost development endpoint.
-let fetchGet: string => promise<string> = %raw(`
-  function(path) {
-    return fetch("http://localhost:8080/api/v1" + path)
-      .then(function(r) {
-        if (!r.ok) throw new Error("VeriSimDB returned " + r.status);
-        return r.text();
-      });
-  }
-`)
-
-/// POST helper for VeriSimDB direct fetch (bypasses backend invoke).
-/// panic-attack:allow insecure-protocol — localhost development endpoint.
-let fetchPost: (string, string) => promise<string> = %raw(`
-  function(path, body) {
-    return fetch("http://localhost:8080/api/v1" + path, {
-      method: "POST",
-      headers: { "Content-Type": "application/json" },
-      body: body
-    }).then(function(r) {
-      if (!r.ok) throw new Error("VeriSimDB returned " + r.status);
-      return r.text();
-    });
-  }
-`)
-
-/// Check VeriSimDB server health (async endpoint).
-/// Calls `verisim_live_health` which hits `GET /health` on the VeriSimDB server.
-/// Returns a JSON string with server status, uptime, and octad store metrics.
-///
-/// @param tagger — TEA message tagger receiving Ok(json) or Error(reason)
-let checkHealth = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("verisim_live_health", ())
-    } else {
-      fetchGet("/health")
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("VeriSimDB server unreachable")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// List all octads in the VeriSimDB store (async endpoint).
-/// Calls `verisim_live_list_octads` which hits `GET /octads` on the VeriSimDB server.
-/// Returns a JSON array of octad summaries (id, name, modality counts).
-///
-/// @param tagger — TEA message tagger receiving Ok(json) or Error(reason)
-let listOctads = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("verisim_live_list_octads", ())
-    } else {
-      fetchGet("/octads")
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to list octads")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Execute a VCL query against VeriSimDB (async endpoint).
-/// Calls `verisim_live_query` which hits `POST /query` on the VeriSimDB server.
-/// The query string is a VCL-total expression that selects across octad modalities.
-///
-/// @param query — VCL-total query string (e.g. "SELECT * FROM octad WHERE modality = 'text'")
-/// @param tagger — TEA message tagger receiving Ok(json) or Error(reason)
-let executeQuery = (query: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("verisim_live_query", {"query": query})
-    } else {
-      fetchPost("/query", `{"query":${JSON.stringifyAny(query)->Option.getOr("\"\"")}}`)
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("VeriSimDB query failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Retrieve a specific octad by ID (async endpoint).
-/// Calls `verisim_live_get_octad` which hits `GET /octads/{id}` on the VeriSimDB server.
-/// Returns the full octad structure including all 8 modality slots.
-///
-/// @param id — the octad identifier (UUID or slug)
-/// @param tagger — TEA message tagger receiving Ok(json) or Error(reason)
-let getOctad = (id: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("verisim_live_get_octad", {"id": id})
-    } else {
-      fetchGet("/octads/" ++ id)
-    }
-    p
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to get octad: " ++ id)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Check if VeriSimDB is reachable (async health probe).
-/// Wraps checkHealth but normalises the result into a reachability flag.
-/// Returns `{"reachable": true/false, "endpoint": "..."}` — useful for panel bar
-/// connection-dot indicators (green/red).
-///
-/// @param tagger — TEA message tagger receiving Ok(json) or Error(reason)
-let checkReachable = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let p = if hasDesktopRuntime() {
-      RuntimeBridge.invoke("verisim_live_health", ())
-    } else {
-      fetchGet("/health")
-    }
-    p
-    ->Promise.then(_result => {
-      callbacks.enqueue(tagger(Ok(`{"reachable":true,"endpoint":"${ServiceEndpoints.verisim}"}`)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(
-        tagger(Ok(`{"reachable":false,"endpoint":"${ServiceEndpoints.verisim}"}`)),
-      )
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/VideoCoordinationCmd.affine b/src/commands/VideoCoordinationCmd.affine
new file mode 100644
index 00000000..3512b410
--- /dev/null
+++ b/src/commands/VideoCoordinationCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VideoCoordinationCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/VideoCoordinationCmd.res b/src/commands/VideoCoordinationCmd.res
deleted file mode 100644
index 805cb7cb..00000000
--- a/src/commands/VideoCoordinationCmd.res
+++ /dev/null
@@ -1,29 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// VideoCoordination Cmd — side effects for video transfers.
-///
-/// Calls backend commands for rclone and laminar orchestration.
-
-open RuntimeBridge
-
-/// Start a new rclone transfer batch.
-let startTransfer = (source, destination, options) => {
-  invoke(
-    "video_start_transfer",
-    {
-      "source": source,
-      "destination": destination,
-      "options": options,
-    },
-  )
-}
-
-/// Fetch the latest status of all active transfers.
-let fetchStatus = () => {
-  invoke("video_fetch_status", ())
-}
-
-/// Pause an ongoing transfer batch.
-let pauseTransfer = batchId => {
-  invoke("video_pause_transfer", {"id": batchId})
-}
diff --git a/src/commands/VmInspectorCmd.affine b/src/commands/VmInspectorCmd.affine
new file mode 100644
index 00000000..32e9c3ad
--- /dev/null
+++ b/src/commands/VmInspectorCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VmInspectorCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/VmInspectorCmd.res b/src/commands/VmInspectorCmd.res
deleted file mode 100644
index 695a7bb7..00000000
--- a/src/commands/VmInspectorCmd.res
+++ /dev/null
@@ -1,121 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL VM Inspector Commands — Backend async bindings for the reversible
-/// VM debugger. Handles VM state reading, step execution, breakpoint
-/// management, and state export.
-
-let invoke = RuntimeBridge.invoke
-
-/// Read the current VM state from the running game (inter-webview).
-let readVmState = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("vm_inspector_read_state", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to read VM state")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Step the VM forward by one instruction.
-let stepForward = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("vm_inspector_step_forward", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to step VM forward")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Step the VM backward by one instruction (reverse execution).
-let stepBackward = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("vm_inspector_step_backward", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to step VM backward")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Run the VM until the next breakpoint or program end.
-let runToBreakpoint = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("vm_inspector_run", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to run VM")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Load a VM program from assembly text.
-let loadProgram = (assembly: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("vm_inspector_load_program", {"assembly": assembly})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to load VM program")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Export the current VM state as a JSON snapshot.
-let exportSnapshot = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("vm_inspector_export_snapshot", {"_": true})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to export VM snapshot")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Read VM state from a serialised JSON file (file-based connection mode).
-let readVmStateFromFile = (path: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("vm_inspector_read_file", {"path": path})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to read VM state file")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/VoiceTagCmd.affine b/src/commands/VoiceTagCmd.affine
new file mode 100644
index 00000000..0378f613
--- /dev/null
+++ b/src/commands/VoiceTagCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VoiceTagCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/VoiceTagCmd.res b/src/commands/VoiceTagCmd.res
deleted file mode 100644
index 903a1e37..00000000
--- a/src/commands/VoiceTagCmd.res
+++ /dev/null
@@ -1,85 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Code MRI — VoiceTag Commands (Layer 0)
-///
-/// Backend command wrappers for .mri.json file I/O and Web Speech API voice input.
-/// The file format is portable — any tool can read/write .mri.json files. PanLL
-/// adds voice input and agentic integration on top.
-///
-/// .mri.json sidecar convention:
-///   Source file: `src/Model.res`
-///   Sidecar:     `src/Model.res.mri.json`
-///
-/// The sidecar lives alongside the source file. It's a plain JSON file that
-/// editors, CLI tools, and CI pipelines can all consume without PanLL installed.
-
-let invoke = RuntimeBridge.invoke
-
-/// Load tags from a .mri.json sidecar file.
-/// Returns the raw JSON string; parsing happens in the Update layer.
-let loadTags = (filePath: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let sidecarPath = filePath ++ ".mri.json"
-    let _ =
-      invoke("voicetag_load", {"path": sidecarPath})
-      ->Promise.thenResolve(result => {
-        callbacks.enqueue(tagger(Ok(result)))
-      })
-      ->Promise.catch(_err => {
-        callbacks.enqueue(tagger(Error("Failed to load .mri.json")))
-        Promise.resolve()
-      })
-  })
-}
-
-/// Save tags to a .mri.json sidecar file.
-/// Takes a JSON string (serialised in the Update layer).
-let saveTags = (
-  filePath: string,
-  jsonContent: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let sidecarPath = filePath ++ ".mri.json"
-    let _ =
-      invoke("voicetag_save", {"path": sidecarPath, "content": jsonContent})
-      ->Promise.thenResolve(result => {
-        callbacks.enqueue(tagger(Ok(result)))
-      })
-      ->Promise.catch(_err => {
-        callbacks.enqueue(tagger(Error("Failed to save .mri.json")))
-        Promise.resolve()
-      })
-  })
-}
-
-/// Delete a .mri.json sidecar file (when all tags are removed).
-let deleteSidecar = (filePath: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let sidecarPath = filePath ++ ".mri.json"
-    let _ =
-      invoke("voicetag_delete", {"path": sidecarPath})
-      ->Promise.thenResolve(result => {
-        callbacks.enqueue(tagger(Ok(result)))
-      })
-      ->Promise.catch(_err => {
-        callbacks.enqueue(tagger(Error("Failed to delete .mri.json")))
-        Promise.resolve()
-      })
-  })
-}
-
-/// Scan a directory for all .mri.json sidecar files (for project-wide tag summary).
-let scanProject = (dirPath: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let _ =
-      invoke("voicetag_scan", {"path": dirPath})
-      ->Promise.thenResolve(result => {
-        callbacks.enqueue(tagger(Ok(result)))
-      })
-      ->Promise.catch(_err => {
-        callbacks.enqueue(tagger(Error("Failed to scan for .mri.json files")))
-        Promise.resolve()
-      })
-  })
-}
diff --git a/src/commands/VqlCmd.affine b/src/commands/VqlCmd.affine
new file mode 100644
index 00000000..fa6343ce
--- /dev/null
+++ b/src/commands/VqlCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VqlCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/VqlCmd.res b/src/commands/VqlCmd.res
deleted file mode 100644
index 3ee728ff..00000000
--- a/src/commands/VqlCmd.res
+++ /dev/null
@@ -1,234 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// VCL-total Commands — backend command bridge for VCL panel I/O.
-//
-// All side effects (HTTP calls, file I/O, clipboard) route through here.
-// The VCL panel's Engine layer is pure; this module handles the real world.
-//
-// Endpoints:
-//   VeriSimDB  — http://localhost:8200 (octad query execution)
-//   ECHIDNA    — http://localhost:8000 (cross-prover dispatch)
-//   TypeLL     — http://localhost:7800 (type checking)
-//   BoJ Server — http://localhost:7700 (cartridge routing)
-
-open VqlModel
-
-// ============================================================
-// SECTION 1: Backend Command Bindings
-// ============================================================
-
-let invoke = RuntimeBridge.invoke
-
-// ============================================================
-// SECTION 2: VeriSimDB Commands
-// ============================================================
-
-/// Execute a VCL-total query against VeriSimDB.
-let executeQuery = (
-  query: string,
-  target: executionTarget,
-  level: typeSafetyLevel,
-  _bojRouting: bool,
-): promise<result<string, string>> => {
-  let endpoint = switch target {
-  | TargetVeriSimDB => "http://localhost:8200/api/v1/query"
-  | TargetEchidna => "http://localhost:8000/api/v1/vcl"
-  | TargetBoJ => "http://localhost:7700/echidna-llm/vcl"
-  | TargetTypeLL => "http://localhost:7800/api/v1/vcl-total/check"
-  | TargetDryRun => "http://localhost:8200/api/v1/explain"
-  }
-  let levelInt = VqlEngine.levelToInt(level)
-  let body = `{"query": ${JSON.stringify(JSON.Encode.string(query))}, "level": ${Int.toString(
-      levelInt,
-    )}}`
-  invoke("http_post", {"url": endpoint, "body": body})
-  ->Promise.then(response => Promise.resolve(Ok(response)))
-  ->Promise.catch(err => {
-    let msg = switch err {
-    | JsExn(e) =>
-      switch JsExn.message(e) {
-      | Some(m) => m
-      | None => "Unknown error"
-      }
-    | _ => "Unknown error"
-    }
-    Promise.resolve(Error(msg))
-  })
-}
-
-/// Fetch the VeriSimDB schema (tables, columns, modalities).
-let fetchSchema = (): promise<result<string, string>> => {
-  invoke("http_get", {"url": "http://localhost:8200/api/v1/schema"})
-  ->Promise.then(r => Promise.resolve(Ok(r)))
-  ->Promise.catch(err => {
-    let msg = switch err {
-    | JsExn(e) =>
-      switch JsExn.message(e) {
-      | Some(m) => m
-      | None => "Schema fetch failed"
-      }
-    | _ => "Schema fetch failed"
-    }
-    Promise.resolve(Error(msg))
-  })
-}
-
-/// Check VeriSimDB connection health.
-let checkConnection = (): promise<result<string, string>> => {
-  invoke("http_get", {"url": "http://localhost:8200/api/v1/health"})
-  ->Promise.then(r => Promise.resolve(Ok(r)))
-  ->Promise.catch(err => {
-    let msg = switch err {
-    | JsExn(e) =>
-      switch JsExn.message(e) {
-      | Some(m) => m
-      | None => "Connection failed"
-      }
-    | _ => "Connection failed"
-    }
-    Promise.resolve(Error(msg))
-  })
-}
-
-// ============================================================
-// SECTION 3: TypeLL Type Checking Commands
-// ============================================================
-
-/// Send a VCL-total query to TypeLL for type checking.
-let typeCheckQuery = (query: string, level: typeSafetyLevel): promise<result<string, string>> => {
-  let levelInt = VqlEngine.levelToInt(level)
-  let body = `{"query": ${JSON.stringify(JSON.Encode.string(query))}, "level": ${Int.toString(
-      levelInt,
-    )}, "mode": "vcl-total"}`
-  invoke("http_post", {"url": "http://localhost:7800/api/v1/vcl-total/check", "body": body})
-  ->Promise.then(r => Promise.resolve(Ok(r)))
-  ->Promise.catch(err => {
-    let msg = switch err {
-    | JsExn(e) =>
-      switch JsExn.message(e) {
-      | Some(m) => m
-      | None => "TypeLL check failed"
-      }
-    | _ => "TypeLL check failed"
-    }
-    Promise.resolve(Error(msg))
-  })
-}
-
-// ============================================================
-// SECTION 4: ECHIDNA Cross-Prover Commands
-// ============================================================
-
-/// Fetch available prover statuses from ECHIDNA.
-let fetchProverStatus = (): promise<result<string, string>> => {
-  invoke("http_get", {"url": "http://localhost:8000/api/v1/provers"})
-  ->Promise.then(r => Promise.resolve(Ok(r)))
-  ->Promise.catch(err => {
-    let msg = switch err {
-    | JsExn(e) =>
-      switch JsExn.message(e) {
-      | Some(m) => m
-      | None => "Prover fetch failed"
-      }
-    | _ => "Prover fetch failed"
-    }
-    Promise.resolve(Error(msg))
-  })
-}
-
-/// Get a query execution plan without executing.
-let explainQuery = (query: string): promise<result<string, string>> => {
-  let body = `{"query": ${JSON.stringify(JSON.Encode.string(query))}, "explain": true}`
-  invoke("http_post", {"url": "http://localhost:8000/api/v1/vcl/explain", "body": body})
-  ->Promise.then(r => Promise.resolve(Ok(r)))
-  ->Promise.catch(err => {
-    let msg = switch err {
-    | JsExn(e) =>
-      switch JsExn.message(e) {
-      | Some(m) => m
-      | None => "Explain failed"
-      }
-    | _ => "Explain failed"
-    }
-    Promise.resolve(Error(msg))
-  })
-}
-
-// ============================================================
-// SECTION 5: Export Commands
-// ============================================================
-
-/// Export query results to a file.
-let exportResults = (data: string, format: string): promise<result<string, string>> => {
-  invoke("save_file", {"content": data, "format": format, "defaultName": `vcl-results.${format}`})
-  ->Promise.then(r => Promise.resolve(Ok(r)))
-  ->Promise.catch(err => {
-    let msg = switch err {
-    | JsExn(e) =>
-      switch JsExn.message(e) {
-      | Some(m) => m
-      | None => "Export failed"
-      }
-    | _ => "Export failed"
-    }
-    Promise.resolve(Error(msg))
-  })
-}
-
-/// Copy text to clipboard.
-let copyToClipboard = (text: string): promise<result<string, string>> => {
-  invoke("clipboard_write", {"text": text})
-  ->Promise.then(r => Promise.resolve(Ok(r)))
-  ->Promise.catch(err => {
-    let msg = switch err {
-    | JsExn(e) =>
-      switch JsExn.message(e) {
-      | Some(m) => m
-      | None => "Clipboard failed"
-      }
-    | _ => "Clipboard failed"
-    }
-    Promise.resolve(Error(msg))
-  })
-}
-
-// ============================================================
-// SECTION 6: History Persistence
-// ============================================================
-
-/// Save query history to local storage.
-let saveHistory = (history: array<historyEntry>): promise<result<string, string>> => {
-  let json = switch JSON.stringifyAny(history) {
-  | Some(s) => s
-  | None => "[]"
-  }
-  invoke("store_set", {"key": "vcl_history", "value": json})
-  ->Promise.then(r => Promise.resolve(Ok(r)))
-  ->Promise.catch(err => {
-    let msg = switch err {
-    | JsExn(e) =>
-      switch JsExn.message(e) {
-      | Some(m) => m
-      | None => "Save failed"
-      }
-    | _ => "Save failed"
-    }
-    Promise.resolve(Error(msg))
-  })
-}
-
-/// Load query history from local storage.
-let loadHistory = (): promise<result<string, string>> => {
-  invoke("store_get", {"key": "vcl_history"})
-  ->Promise.then(r => Promise.resolve(Ok(r)))
-  ->Promise.catch(err => {
-    let msg = switch err {
-    | JsExn(e) =>
-      switch JsExn.message(e) {
-      | Some(m) => m
-      | None => "Load failed"
-      }
-    | _ => "Load failed"
-    }
-    Promise.resolve(Error(msg))
-  })
-}
diff --git a/src/commands/WatcherCmd.affine b/src/commands/WatcherCmd.affine
new file mode 100644
index 00000000..fb65474c
--- /dev/null
+++ b/src/commands/WatcherCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module WatcherCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/WatcherCmd.res b/src/commands/WatcherCmd.res
deleted file mode 100644
index 1490af84..00000000
--- a/src/commands/WatcherCmd.res
+++ /dev/null
@@ -1,136 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL WatcherCmd — Backend command wrappers for filesystem observation.
-///
-/// These wrap the Rust `watcher_*` commands using the same `callbacks.enqueue`
-/// pattern as FarmCmd and other panel commands. The watcher runs in a Rust
-/// background thread and emits `watcher://event` backend events.
-///
-/// Pattern: `commandName(args..., tagger) => Tea_Cmd.t<'msg>`
-/// where `tagger: result<string, string> => 'msg` wraps the result into
-/// the Watcher message type.
-
-open Model
-
-/// Backend invoke binding via RuntimeBridge.
-let invoke = RuntimeBridge.invoke
-
-/// Parse a watch event kind string from JSON into the typed variant.
-let parseEventKind = (kind: string): watchEventKind => {
-  switch kind {
-  | "created" => Created
-  | "modified" => Modified
-  | "removed" => Removed
-  | "renamed" => Renamed
-  | _ => Other
-  }
-}
-
-/// Tea_Json decoder for a single watch event.
-let watchEventDecoder: Tea_Json.decoder<watchEvent> = {
-  open Decoders
-  map6((path, kindStr, isDir, timestamp, extension, filename): watchEvent => {
-    path,
-    kind: parseEventKind(kindStr),
-    isDir,
-    timestamp,
-    extension,
-    filename,
-  }, stringField(
-    "path",
-  ), stringField(
-    "kind",
-  ), boolField(
-    "is_dir",
-  ), floatField("timestamp"), stringField("extension"), stringField("filename"))
-}
-
-/// Parse a raw JSON string into a `watchEvent`.
-///
-/// The Rust side emits events as JSON-serialised `WatchEvent` structs.
-/// This parses the JSON and maps field names (snake_case → camelCase).
-let parseEvent = (jsonStr: string): option<watchEvent> =>
-  Decoders.decodeOption(watchEventDecoder, jsonStr)
-
-/// Start the filesystem watcher on the given paths.
-///
-/// The watcher runs in a background Rust thread and emits events via the
-/// backend event bus. Paths are watched recursively with 500ms debounce.
-let start = (paths: array<string>, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("watcher_start", {"paths": paths})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to start watcher")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Stop the filesystem watcher. Idempotent — safe to call when not running.
-let stop = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("watcher_stop", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to stop watcher")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Get the current watcher status (running, watched paths, event count).
-let status = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("watcher_status", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to get watcher status")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Add a path to the running watcher dynamically.
-let addPath = (path: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("watcher_add_path", {"path": path})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to add watch path: ${path}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Remove a path from the running watcher.
-let removePath = (path: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("watcher_remove_path", {"path": path})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to remove watch path: ${path}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/WiringInspectorCmd.affine b/src/commands/WiringInspectorCmd.affine
new file mode 100644
index 00000000..06e2f628
--- /dev/null
+++ b/src/commands/WiringInspectorCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module WiringInspectorCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/WiringInspectorCmd.res b/src/commands/WiringInspectorCmd.res
deleted file mode 100644
index c7b91ab0..00000000
--- a/src/commands/WiringInspectorCmd.res
+++ /dev/null
@@ -1,49 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Wiring Inspector Command Wrappers — Backend bindings for PCC invocation.
-///
-/// Two commands:
-///   - `runVerification`: invoke PCC against all panel contracts.
-///   - `runSingleVerification`: invoke PCC against a single panel contract.
-///
-/// Both return JSON strings that the frontend parses with
-/// WiringInspectorEngine.parseVerificationJson.
-
-let invoke = RuntimeBridge.invoke
-
-/// Run PCC verification against all panel contracts.
-/// Returns JSON string with all panel verification results.
-let runVerification = (tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("wiring_inspector_verify", Dict.make())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to run PCC verification")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Run PCC verification against a single panel contract.
-/// Returns JSON string with one panel verification result.
-let runSingleVerification = (panelId: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("wiring_inspector_verify_panel", {"panelId": panelId})
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error(`Failed to verify panel: ${panelId}`)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/commands/WizardCmd.affine b/src/commands/WizardCmd.affine
new file mode 100644
index 00000000..30148929
--- /dev/null
+++ b/src/commands/WizardCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module WizardCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/WizardCmd.res b/src/commands/WizardCmd.res
deleted file mode 100644
index 9faaa6b2..00000000
--- a/src/commands/WizardCmd.res
+++ /dev/null
@@ -1,66 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Wizard Commands — Backend command wrappers for plugin/panel generation.
-
-let invoke = RuntimeBridge.invoke
-
-/// Generate a new plugin or panel based on wizard configuration.
-/// The backend handles the actual file generation and registration.
-/// Returns a JSON-serialised generation result.
-let generate = (
-  creationType: string,
-  capabilities: string,
-  dependencies: string,
-  securityConfig: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke(
-      "wizard_generate",
-      {
-        "creationType": creationType,
-        "capabilities": capabilities,
-        "dependencies": dependencies,
-        "securityConfig": securityConfig,
-      },
-    )
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to generate plugin/panel")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Validate wizard configuration before generation.
-/// Checks for capability conflicts, dependency issues, etc.
-let validateConfig = (
-  creationType: string,
-  capabilities: string,
-  dependencies: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke(
-      "wizard_validate_config",
-      {
-        "creationType": creationType,
-        "capabilities": capabilities,
-        "dependencies": dependencies,
-      },
-    )
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Validation failed")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
\ No newline at end of file
diff --git a/src/commands/WorkspaceCmd.affine b/src/commands/WorkspaceCmd.affine
new file mode 100644
index 00000000..974759a9
--- /dev/null
+++ b/src/commands/WorkspaceCmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module WorkspaceCmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/commands/WorkspaceCmd.res b/src/commands/WorkspaceCmd.res
deleted file mode 100644
index 4ffd740e..00000000
--- a/src/commands/WorkspaceCmd.res
+++ /dev/null
@@ -1,92 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Workspace Commands — IPC wrappers for workspace operations.
-///
-/// These functions bridge the ReScript TEA loop with the Rust backend
-/// for workspace persistence (arrangements, sessions) and system info
-/// queries (status bar widgets). Each function returns a Tea_Cmd that
-/// dispatches a result message back into the update loop via
-/// `callbacks.enqueue`.
-
-open Msg
-
-/// Backend invoke binding via RuntimeBridge.
-/// All backend commands return Promise<string> or throw on error.
-let invoke = RuntimeBridge.invoke
-
-/// Save an arrangement to disk via backend.
-let saveArrangement = (arrangementJson: string): Tea_Cmd.t<msg> => {
-  Tea_Cmd.call(_callbacks => {
-    invoke("save_arrangement", {"arrangement": arrangementJson})->ignore
-    // Fire-and-forget — arrangement save errors are non-critical.
-  })
-}
-
-/// Load all saved arrangements from disk.
-let loadArrangements = (): Tea_Cmd.t<msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("load_arrangements", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(Workspace(ArrangementsLoaded(Ok(result))))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(Workspace(ArrangementsLoaded(Error("Failed to load arrangements"))))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Delete an arrangement from disk.
-let deleteArrangement = (arrangementId: string): Tea_Cmd.t<msg> => {
-  Tea_Cmd.call(_callbacks => {
-    invoke("delete_arrangement", {"arrangementId": arrangementId})->ignore
-  })
-}
-
-/// Save a session to disk via backend.
-let saveSession = (sessionJson: string): Tea_Cmd.t<msg> => {
-  Tea_Cmd.call(_callbacks => {
-    invoke("save_session", {"session": sessionJson})->ignore
-  })
-}
-
-/// Load all saved sessions from disk.
-let loadSessions = (): Tea_Cmd.t<msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("load_sessions", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(Workspace(SessionsLoaded(Ok(result))))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(Workspace(SessionsLoaded(Error("Failed to load sessions"))))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Delete a session from disk.
-let deleteSession = (sessionId: string): Tea_Cmd.t<msg> => {
-  Tea_Cmd.call(_callbacks => {
-    invoke("delete_session", {"sessionId": sessionId})->ignore
-  })
-}
-
-/// Query system information (CPU, memory, disk, uptime) for status bar widgets.
-let getSystemInfo = (): Tea_Cmd.t<msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("get_system_info", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(Workspace(SystemInfoLoaded(Ok(result))))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(Workspace(SystemInfoLoaded(Error("Failed to get system info"))))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
diff --git a/src/components/AccessibilityToolbar.affine b/src/components/AccessibilityToolbar.affine
new file mode 100644
index 00000000..25f32d53
--- /dev/null
+++ b/src/components/AccessibilityToolbar.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AccessibilityToolbar;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/AccessibilityToolbar.res b/src/components/AccessibilityToolbar.res
deleted file mode 100644
index 63f90812..00000000
--- a/src/components/AccessibilityToolbar.res
+++ /dev/null
@@ -1,306 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL AccessibilityToolbar — floating accessibility widget (FAB style).
-///
-/// Renders as a fixed-position circular button in the bottom-right corner.
-/// Clicking it opens a floating panel with categorised accessibility controls:
-///   - Theme: Dark / Light / System
-///   - Colour Palette: Standard / Deuteranopia / Protanopia / High Contrast
-///   - Animation: On / Reduced / Off
-///   - Font Size: S / M / L / XL
-///   - Focus Indicators: Default / High Contrast / Thick / Dotted
-///
-/// Inspired by the "All in One Accessibility" WordPress widget pattern:
-/// a non-intrusive floating button that expands to a comprehensive panel.
-///
-/// All dispatch goes through `AccessibilityCtrl(accessibilityMsg)`.
-/// The widget reads from `accessibilityState` and uses `AccessibilityEngine`
-/// for labels. Position is fixed so it floats above all content.
-
-open Model
-open Msg
-open Tea.Html
-
-// ===========================================================================
-// Shared radio button helper
-// ===========================================================================
-
-/// Render a single option button within a control group.
-/// Active buttons get a highlighted ring + brighter text.
-let renderOption = (label: string, tooltip: string, isActive: bool, onClick: msg): Tea_Vdom.t<
-  msg,
-> => {
-  button(
-    list{
-      Attrs.class_(
-        `px-3 py-1.5 text-xs rounded-md transition-all ${isActive
-            ? "bg-indigo-600 text-white ring-2 ring-indigo-400"
-            : "bg-gray-800 text-gray-400 hover:bg-gray-700 hover:text-gray-200"}`,
-      ),
-      Attrs.role("radio"),
-      Attrs.ariaSelected(isActive),
-      Attrs.title(tooltip),
-      Events.onClick(onClick),
-    },
-    list{text(label)},
-  )
-}
-
-// ===========================================================================
-// Section header helper
-// ===========================================================================
-
-/// Render a section heading inside the accessibility panel.
-let renderSectionHeader = (title: string): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_(
-        "text-xs font-semibold text-gray-400 uppercase tracking-wider mb-2 mt-3 first:mt-0",
-      ),
-    },
-    list{text(title)},
-  )
-}
-
-// ===========================================================================
-// Control group renderers
-// ===========================================================================
-
-/// Theme mode: Dark / Light / System.
-let renderThemeSection = (active: themeMode): Tea_Vdom.t<msg> => {
-  let modes: array<(themeMode, string, string)> = [
-    (ThemeDark, "Dark", "Dark background with light text"),
-    (ThemeLight, "Light", "Light background with dark text"),
-    (ThemeSystem, "System", "Follow your OS colour scheme"),
-  ]
-  div(
-    list{Attrs.role("radiogroup"), Attrs.ariaLabel("Theme mode")},
-    list{
-      renderSectionHeader("Theme"),
-      div(
-        list{Attrs.class_("flex flex-wrap gap-1.5")},
-        modes
-        ->Array.map(((mode, label, tooltip)) =>
-          renderOption(label, tooltip, mode === active, AccessibilityCtrl(SetThemeMode(mode)))
-        )
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-/// Colour palette: Standard / Deuteranopia / Protanopia / High Contrast.
-let renderPaletteSection = (active: accessibilityPalette): Tea_Vdom.t<msg> => {
-  let palettes: array<(accessibilityPalette, string, string)> = [
-    (StandardPalette, "Standard", "Default colour palette"),
-    (DeuteranopiaPalette, "Deutan.", "Red-green colour blindness safe"),
-    (ProtanopiaPalette, "Protan.", "Protanopia-safe palette"),
-    (HighContrastPalette, "Hi-Con", "Maximum contrast for low vision"),
-  ]
-  div(
-    list{Attrs.role("radiogroup"), Attrs.ariaLabel("Colour palette")},
-    list{
-      renderSectionHeader("Colour Vision"),
-      div(
-        list{Attrs.class_("flex flex-wrap gap-1.5")},
-        palettes
-        ->Array.map(((palette, label, tooltip)) =>
-          renderOption(
-            label,
-            tooltip,
-            palette === active,
-            AccessibilityCtrl(SetAccessibilityPalette(palette)),
-          )
-        )
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-/// Animation preference: On / Reduced / Off.
-let renderAnimationSection = (active: animationPreference): Tea_Vdom.t<msg> => {
-  let prefs: array<(animationPreference, string, string)> = [
-    (AnimationsOn, "On", "All animations enabled"),
-    (AnimationsReduced, "Reduced", "Slower, fewer animations"),
-    (AnimationsOff, "Off", "No animations or transitions"),
-  ]
-  div(
-    list{Attrs.role("radiogroup"), Attrs.ariaLabel("Animation preference")},
-    list{
-      renderSectionHeader("Motion"),
-      div(
-        list{Attrs.class_("flex flex-wrap gap-1.5")},
-        prefs
-        ->Array.map(((pref, label, tooltip)) =>
-          renderOption(label, tooltip, pref === active, AccessibilityCtrl(SetAnimations(pref)))
-        )
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-/// Font size: S / M / L / XL.
-let renderFontSizeSection = (active: fontSizePreset): Tea_Vdom.t<msg> => {
-  let sizes: array<(fontSizePreset, string)> = [
-    (FontSmall, "S"),
-    (FontMedium, "M"),
-    (FontLarge, "L"),
-    (FontExtraLarge, "XL"),
-  ]
-  div(
-    list{Attrs.role("radiogroup"), Attrs.ariaLabel("Font size")},
-    list{
-      renderSectionHeader("Text Size"),
-      div(
-        list{Attrs.class_("flex flex-wrap gap-1.5")},
-        sizes
-        ->Array.map(((preset, shortLabel)) =>
-          renderOption(
-            shortLabel,
-            AccessibilityEngine.fontSizeLabel(preset),
-            preset === active,
-            AccessibilityCtrl(SetFontSize(preset)),
-          )
-        )
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-/// Focus indicator style: Default / High Contrast / Thick / Dotted.
-let renderFocusSection = (active: focusIndicatorStyle): Tea_Vdom.t<msg> => {
-  let styles: array<(focusIndicatorStyle, string)> = [
-    (FocusDefault, "Default"),
-    (FocusHighContrast, "Hi-Con"),
-    (FocusThick, "Thick"),
-    (FocusDotted, "Dotted"),
-  ]
-  div(
-    list{Attrs.role("radiogroup"), Attrs.ariaLabel("Focus indicator style")},
-    list{
-      renderSectionHeader("Focus Ring"),
-      div(
-        list{Attrs.class_("flex flex-wrap gap-1.5")},
-        styles
-        ->Array.map(((style, shortLabel)) =>
-          renderOption(
-            shortLabel,
-            AccessibilityEngine.focusStyleLabel(style),
-            style === active,
-            AccessibilityCtrl(SetFocusStyle(style)),
-          )
-        )
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-// ===========================================================================
-// Main view: FAB + floating panel
-// ===========================================================================
-
-/// The floating accessibility panel that appears when the FAB is clicked.
-let renderPanel = (state: accessibilityState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_(
-        "fixed bottom-20 right-4 w-72 max-h-[80vh] overflow-y-auto bg-gray-900 border border-gray-700 rounded-xl shadow-2xl shadow-black/50 z-[9999] p-4",
-      ),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Accessibility settings"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-1")},
-        list{
-          div(
-            list{Attrs.class_("text-sm font-semibold text-gray-200")},
-            list{text("Accessibility")},
-          ),
-          button(
-            list{
-              Attrs.class_("text-gray-500 hover:text-gray-300 transition-colors p-1"),
-              Attrs.title("Close accessibility panel"),
-              Attrs.ariaLabel("Close accessibility panel"),
-              Events.onClick(AccessibilityCtrl(ToggleAccessibilityToolbar)),
-              KeyboardNav.onActivate(AccessibilityCtrl(ToggleAccessibilityToolbar)),
-            },
-            list{text("X")},
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("text-xs text-gray-600 mb-3")},
-        list{text("Adjust display and interaction preferences")},
-      ),
-      // Divider
-      div(list{Attrs.class_("border-t border-gray-800 mb-1")}, list{}),
-      // Control sections
-      renderThemeSection(state.theme),
-      renderPaletteSection(state.palette),
-      renderAnimationSection(state.animations),
-      renderFontSizeSection(state.fontSize),
-      renderFocusSection(state.focusStyle),
-      // Reset link
-      div(
-        list{Attrs.class_("mt-4 pt-3 border-t border-gray-800 text-center")},
-        list{
-          button(
-            list{
-              Attrs.class_("text-xs text-gray-600 hover:text-gray-400 transition-colors"),
-              Attrs.title("Reset all accessibility settings to defaults"),
-              Events.onClick(AccessibilityCtrl(SetThemeMode(ThemeDark))),
-            },
-            list{text("Reset to defaults")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Main view entry point for the floating accessibility widget.
-///
-/// Renders a fixed-position FAB (Floating Action Button) in the bottom-right
-/// corner. When `toolbarExpanded` is true, the floating panel appears above
-/// the FAB with all accessibility controls.
-///
-/// @param state The current accessibility state from the model
-let view = (state: accessibilityState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("fixed bottom-4 right-4 z-[9999] flex flex-col items-end gap-2")},
-    list{
-      // Floating panel (when expanded)
-      if state.toolbarExpanded {
-        renderPanel(state)
-      } else {
-        noNode
-      },
-      // FAB button (always visible)
-      button(
-        list{
-          Attrs.class_(
-            "w-12 h-12 rounded-full bg-indigo-600 hover:bg-indigo-500 text-white shadow-lg shadow-indigo-900/50 flex items-center justify-center transition-all hover:scale-110 focus:outline-none focus:ring-2 focus:ring-indigo-400 focus:ring-offset-2 focus:ring-offset-gray-950",
-          ),
-          Attrs.title(
-            state.toolbarExpanded ? "Close accessibility settings" : "Open accessibility settings",
-          ),
-          Attrs.ariaLabel(
-            state.toolbarExpanded ? "Close accessibility settings" : "Open accessibility settings",
-          ),
-          Events.onClick(AccessibilityCtrl(ToggleAccessibilityToolbar)),
-          KeyboardNav.onActivate(AccessibilityCtrl(ToggleAccessibilityToolbar)),
-        },
-        list{
-          // Accessibility icon (universal access symbol approximation using text)
-          span(list{Attrs.class_("text-lg font-bold")}, list{text("A")}),
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/Aerie.affine b/src/components/Aerie.affine
new file mode 100644
index 00000000..2cf1b3dd
--- /dev/null
+++ b/src/components/Aerie.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Aerie;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Aerie.res b/src/components/Aerie.res
deleted file mode 100644
index 1c5482be..00000000
--- a/src/components/Aerie.res
+++ /dev/null
@@ -1,701 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Aerie Component — Network diagnostics dashboard.
-///
-/// Latency gauges, speed test results, BGP route analysis,
-/// probe configuration. Backend: V-lang API at :4000.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a single latency measurement card showing RTT, jitter, quality, and packet loss.
-let renderLatencyCard = (result: latencyResult): Tea_Vdom.t<msg> => {
-  let color = AerieEngine.latencyColor(result.rttMs)
-  let quality = AerieEngine.latencyQuality(result.rttMs)
-  div(
-    list{
-      Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-4"),
-      Attrs.role("article"),
-      Attrs.ariaLabel(`${result.endpoint}: ${Float.toFixed(result.rttMs, ~digits=1)}ms`),
-    },
-    list{
-      div(list{Attrs.class_("text-xs text-gray-500 truncate mb-1")}, list{text(result.endpoint)}),
-      div(
-        list{Attrs.class_(`text-2xl font-light ${color}`)},
-        list{text(`${Float.toFixed(result.rttMs, ~digits=1)}ms`)},
-      ),
-      div(
-        list{Attrs.class_("flex justify-between text-xs text-gray-500 mt-2")},
-        list{
-          span(list{}, list{text(quality)}),
-          span(list{}, list{text(`jitter: ${Float.toFixed(result.jitterMs, ~digits=1)}ms`)}),
-        },
-      ),
-      if result.packetLoss > 0.0 {
-        div(
-          list{Attrs.class_("text-xs text-red-400 mt-1")},
-          list{text(`${Float.toFixed(result.packetLoss, ~digits=1)}% loss`)},
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-/// Render the category tab bar (Dashboard, Speed Tests, BGP, Probes).
-let renderTabs = (active: aerieCategory): Tea_Vdom.t<msg> => {
-  let tabs: array<aerieCategory> = [AerieDashboard, AerieSpeedTests, AerieBgp, AerieProbes]
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 mb-4"), Attrs.role("tablist")},
-    tabs
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-4 py-2 text-sm rounded-t transition-colors ${isActive
-                ? "bg-gray-800 text-gray-200 border-b-2 border-violet-500"
-                : "text-gray-500 hover:text-gray-300"}`,
-          ),
-          Attrs.role("tab"),
-          Attrs.ariaSelected(isActive),
-          Events.onClick(Aerie(SetAerieCategory(tab))),
-        },
-        list{text(AerieEngine.categoryLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Main Aerie panel view — full-screen overlay for network diagnostics and BGP forensics.
-let view = (aerie: aerieState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Aerie network diagnostics panel"),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between p-4 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(list{Attrs.class_("text-lg font-medium text-gray-200")}, list{text("Aerie")}),
-              span(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{text("network diagnostics & BGP forensics")},
-              ),
-              if aerie.bgpAnomalyCount > 0 {
-                span(
-                  list{Attrs.class_("text-xs text-red-400 ml-2")},
-                  list{text(`${Int.toString(aerie.bgpAnomalyCount)} BGP anomalies`)},
-                )
-              } else {
-                noNode
-              },
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-xs bg-violet-600 text-white rounded hover:bg-violet-500",
-                  ),
-                  Events.onClick(Aerie(LoadAerie)),
-                  KeyboardNav.onActivate(Aerie(LoadAerie)),
-                },
-                list{text("Refresh")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-sm bg-gray-800 text-gray-300 rounded hover:bg-gray-700",
-                  ),
-                  Events.onClick(PanelSwitcher(ClosePanels)),
-                  KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-                },
-                list{text("Close")},
-              ),
-            },
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("flex-1 overflow-auto p-6")},
-        list{
-          if !aerie.loaded && !aerie.loading {
-            div(
-              list{Attrs.class_("text-center text-gray-500 mt-12")},
-              list{
-                div(list{Attrs.class_("text-4xl mb-2")}, list{text("Aerie")}),
-                div(
-                  list{Attrs.class_("text-sm mb-6")},
-                  list{text("Network health, speed tests, BGP analysis, proof envelopes")},
-                ),
-                button(
-                  list{
-                    Attrs.class_("px-4 py-2 bg-violet-600 text-white rounded hover:bg-violet-500"),
-                    Events.onClick(Aerie(LoadAerie)),
-                    KeyboardNav.onActivate(Aerie(LoadAerie)),
-                  },
-                  list{text("Connect to Aerie")},
-                ),
-              },
-            )
-          } else {
-            div(
-              list{Attrs.class_("space-y-4")},
-              list{
-                renderTabs(aerie.activeCategory),
-                switch aerie.activeCategory {
-                | AerieDashboard =>
-                  div(
-                    list{Attrs.class_("space-y-6")},
-                    list{
-                      {
-                        let avg = AerieEngine.avgLatency(aerie.latencyResults)
-                        let maxRtt =
-                          aerie.latencyResults->Array.reduce(0.0, (acc, r) =>
-                            Math.max(acc, r.rttMs)
-                          )
-                        let minRtt = if Array.length(aerie.latencyResults) > 0 {
-                          aerie.latencyResults->Array.reduce(99999.0, (acc, r) =>
-                            Math.min(acc, r.rttMs)
-                          )
-                        } else {
-                          0.0
-                        }
-                        let totalLoss =
-                          aerie.latencyResults->Array.reduce(0.0, (acc, r) => acc +. r.packetLoss)
-                        div(
-                          list{Attrs.class_("flex gap-6 text-sm")},
-                          list{
-                            div(
-                              list{Attrs.class_("text-gray-400")},
-                              list{text(`${Int.toString(Array.length(aerie.probes))} probes`)},
-                            ),
-                            div(
-                              list{Attrs.class_(AerieEngine.latencyColor(avg))},
-                              list{text(`avg: ${Float.toFixed(avg, ~digits=1)}ms`)},
-                            ),
-                            div(
-                              list{Attrs.class_("text-green-400")},
-                              list{text(`min: ${Float.toFixed(minRtt, ~digits=1)}ms`)},
-                            ),
-                            div(
-                              list{Attrs.class_(AerieEngine.latencyColor(maxRtt))},
-                              list{text(`max: ${Float.toFixed(maxRtt, ~digits=1)}ms`)},
-                            ),
-                            if totalLoss > 0.0 {
-                              div(
-                                list{Attrs.class_("text-red-400")},
-                                list{text(`loss: ${Float.toFixed(totalLoss, ~digits=1)}%`)},
-                              )
-                            } else {
-                              div(list{Attrs.class_("text-green-500")}, list{text("0% loss")})
-                            },
-                            div(
-                              list{Attrs.class_("text-gray-400")},
-                              list{
-                                text(
-                                  `jitter: ${Float.toFixed(
-                                      AerieEngine.avgJitter(aerie.latencyResults),
-                                      ~digits=1,
-                                    )}ms`,
-                                ),
-                              },
-                            ),
-                            div(
-                              list{Attrs.class_(AerieEngine.mtuColor(aerie.mtuResult))},
-                              list{text(`MTU: ${AerieEngine.mtuStatus(aerie.mtuResult)}`)},
-                            ),
-                            div(
-                              list{Attrs.class_("text-gray-400")},
-                              list{
-                                text(
-                                  `${Int.toString(
-                                      AerieEngine.interfacesUp(aerie.interfaces),
-                                    )}/${Int.toString(Array.length(aerie.interfaces))} ifaces up`,
-                                ),
-                              },
-                            ),
-                            if aerie.bgpAnomalyCount > 0 {
-                              div(
-                                list{Attrs.class_("text-red-400 font-medium")},
-                                list{text(`${Int.toString(aerie.bgpAnomalyCount)} BGP anomalies`)},
-                              )
-                            } else {
-                              noNode
-                            },
-                          },
-                        )
-                      },
-                      // Interface summary cards
-                      if Array.length(aerie.interfaces) > 0 {
-                        div(
-                          list{Attrs.class_("grid grid-cols-3 gap-3")},
-                          aerie.interfaces
-                          ->Array.map(iface =>
-                            div(
-                              list{
-                                Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-3"),
-                              },
-                              list{
-                                div(
-                                  list{Attrs.class_("flex justify-between items-center mb-1")},
-                                  list{
-                                    span(
-                                      list{Attrs.class_("text-sm text-gray-200 font-mono")},
-                                      list{text(iface.name)},
-                                    ),
-                                    span(
-                                      list{
-                                        Attrs.class_(
-                                          `text-xs ${iface.isUp
-                                              ? "text-green-400"
-                                              : "text-red-400"}`,
-                                        ),
-                                      },
-                                      list{
-                                        text(
-                                          if iface.isUp {
-                                            "UP"
-                                          } else {
-                                            "DOWN"
-                                          },
-                                        ),
-                                      },
-                                    ),
-                                  },
-                                ),
-                                div(
-                                  list{Attrs.class_("text-xs text-gray-500")},
-                                  list{
-                                    text(iface.linkType),
-                                    switch iface.ipAddress {
-                                    | Some(ip) => span(list{Attrs.class_("ml-2")}, list{text(ip)})
-                                    | None =>
-                                      span(
-                                        list{Attrs.class_("ml-2 text-gray-600")},
-                                        list{text("no IP")},
-                                      )
-                                    },
-                                    switch iface.signalDbm {
-                                    | Some(dbm) =>
-                                      span(
-                                        list{Attrs.class_("ml-2")},
-                                        list{text(`${Int.toString(dbm)} dBm`)},
-                                      )
-                                    | None => noNode
-                                    },
-                                  },
-                                ),
-                              },
-                            )
-                          )
-                          ->List.fromArray,
-                        )
-                      } else {
-                        noNode
-                      },
-                      // Latency cards
-                      div(
-                        list{
-                          Attrs.class_("grid grid-cols-4 gap-3"),
-                          Attrs.role("list"),
-                          Attrs.ariaLabel("Latency measurements"),
-                        },
-                        aerie.latencyResults->Array.map(r => renderLatencyCard(r))->List.fromArray,
-                      ),
-                      // Latency histogram (bar chart of measurements)
-                      if Array.length(aerie.latencyResults) > 0 {
-                        div(
-                          list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-4")},
-                          list{
-                            div(
-                              list{Attrs.class_("text-sm font-medium text-gray-300 mb-3")},
-                              list{text("Latency Distribution")},
-                            ),
-                            div(
-                              list{Attrs.class_("flex items-end gap-1 h-24")},
-                              aerie.latencyResults
-                              ->Array.map(r => {
-                                let maxH = 96.0 // h-24 = 6rem = 96px
-                                let maxRttForScale =
-                                  aerie.latencyResults->Array.reduce(1.0, (acc, r2) =>
-                                    Math.max(acc, r2.rttMs)
-                                  )
-                                let barH = Math.max(4.0, r.rttMs /. maxRttForScale *. maxH)
-                                let barColor = if r.rttMs < 20.0 {
-                                  "bg-green-500"
-                                } else if r.rttMs < 50.0 {
-                                  "bg-emerald-500"
-                                } else if r.rttMs < 100.0 {
-                                  "bg-amber-500"
-                                } else {
-                                  "bg-red-500"
-                                }
-                                div(
-                                  list{
-                                    Attrs.class_(
-                                      `flex-1 ${barColor} rounded-t transition-all cursor-default`,
-                                    ),
-                                    Attrs.prop(
-                                      "style",
-                                      `height: ${Float.toFixed(barH, ~digits=0)}px`,
-                                    ),
-                                    Attrs.title(
-                                      `${r.endpoint}: ${Float.toFixed(r.rttMs, ~digits=1)}ms`,
-                                    ),
-                                  },
-                                  list{},
-                                )
-                              })
-                              ->List.fromArray,
-                            ),
-                            // Endpoint labels
-                            div(
-                              list{Attrs.class_("flex gap-1 mt-1")},
-                              aerie.latencyResults
-                              ->Array.map(r =>
-                                div(
-                                  list{
-                                    Attrs.class_(
-                                      "flex-1 text-[8px] text-gray-600 truncate text-center",
-                                    ),
-                                  },
-                                  list{text(r.endpoint)},
-                                )
-                              )
-                              ->List.fromArray,
-                            ),
-                          },
-                        )
-                      } else {
-                        noNode
-                      },
-                    },
-                  )
-                | AerieSpeedTests =>
-                  div(
-                    list{Attrs.class_("space-y-3")},
-                    aerie.speedTests
-                    ->Array.map(st =>
-                      div(
-                        list{
-                          Attrs.class_(
-                            "bg-gray-900 border border-gray-700 rounded-lg p-4 flex justify-between",
-                          ),
-                        },
-                        list{
-                          div(
-                            list{},
-                            list{
-                              div(
-                                list{Attrs.class_("text-green-400 text-lg")},
-                                list{
-                                  text(`${Float.toFixed(st.downloadMbps, ~digits=1)} Mbps down`),
-                                },
-                              ),
-                              div(
-                                list{Attrs.class_("text-blue-400 text-sm")},
-                                list{text(`${Float.toFixed(st.uploadMbps, ~digits=1)} Mbps up`)},
-                              ),
-                            },
-                          ),
-                          div(
-                            list{Attrs.class_("text-right")},
-                            list{
-                              div(
-                                list{Attrs.class_("text-xs text-gray-500")},
-                                list{text(st.serverLocation)},
-                              ),
-                              div(
-                                list{Attrs.class_("text-xs text-gray-600")},
-                                list{text(`${Float.toFixed(st.pingMs, ~digits=0)}ms ping`)},
-                              ),
-                            },
-                          ),
-                        },
-                      )
-                    )
-                    ->List.fromArray,
-                  )
-                | AerieBgp =>
-                  div(
-                    list{Attrs.class_("space-y-4")},
-                    list{
-                      {
-                        let total = Array.length(aerie.bgpRoutes)
-                        let anomalous =
-                          aerie.bgpRoutes->Array.filter(r => r.anomalous)->Array.length
-                        let clean = total - anomalous
-                        div(
-                          list{Attrs.class_("flex gap-4 text-xs")},
-                          list{
-                            span(
-                              list{Attrs.class_("text-gray-400")},
-                              list{text(`${Int.toString(total)} routes`)},
-                            ),
-                            span(
-                              list{Attrs.class_("text-green-400")},
-                              list{text(`${Int.toString(clean)} clean`)},
-                            ),
-                            if anomalous > 0 {
-                              span(
-                                list{Attrs.class_("text-red-400 font-medium")},
-                                list{text(`${Int.toString(anomalous)} anomalous`)},
-                              )
-                            } else {
-                              span(list{Attrs.class_("text-green-500")}, list{text("No anomalies")})
-                            },
-                          },
-                        )
-                      },
-                      // BGP route table
-                      if Array.length(aerie.bgpRoutes) > 0 {
-                        div(
-                          list{Attrs.class_("border border-gray-700 rounded-lg overflow-hidden")},
-                          list{
-                            // Header
-                            div(
-                              list{
-                                Attrs.class_(
-                                  "flex items-center gap-3 p-3 bg-gray-900 border-b border-gray-700 text-xs text-gray-500",
-                                ),
-                              },
-                              list{
-                                span(list{Attrs.class_("w-8")}, list{text("")}),
-                                span(list{Attrs.class_("w-40")}, list{text("Prefix")}),
-                                span(list{Attrs.class_("flex-1")}, list{text("AS Path")}),
-                                span(list{Attrs.class_("w-32")}, list{text("Next Hop")}),
-                                span(list{Attrs.class_("w-48")}, list{text("Detail")}),
-                              },
-                            ),
-                            // Routes
-                            div(
-                              list{Attrs.class_("max-h-96 overflow-y-auto")},
-                              aerie.bgpRoutes
-                              ->Array.map(route => {
-                                let rowBg = route.anomalous
-                                  ? "bg-red-900/20"
-                                  : "hover:bg-gray-900/50"
-                                div(
-                                  list{
-                                    Attrs.class_(
-                                      `flex items-center gap-3 p-3 border-b border-gray-800 ${rowBg}`,
-                                    ),
-                                    Attrs.role("row"),
-                                  },
-                                  list{
-                                    // Anomaly indicator
-                                    span(
-                                      list{
-                                        Attrs.class_(
-                                          `w-8 text-center text-xs font-bold ${route.anomalous
-                                              ? "text-red-400"
-                                              : "text-green-500"}`,
-                                        ),
-                                      },
-                                      list{text(route.anomalous ? "!" : "ok")},
-                                    ),
-                                    // Prefix
-                                    span(
-                                      list{Attrs.class_("w-40 text-sm text-gray-300 font-mono")},
-                                      list{text(route.prefix)},
-                                    ),
-                                    // AS Path
-                                    span(
-                                      list{
-                                        Attrs.class_(
-                                          "flex-1 text-xs text-gray-400 font-mono truncate",
-                                        ),
-                                      },
-                                      list{
-                                        text(
-                                          route.asPath
-                                          ->Array.map(asn => Int.toString(asn))
-                                          ->Array.join(" → "),
-                                        ),
-                                      },
-                                    ),
-                                    // Next hop
-                                    span(
-                                      list{Attrs.class_("w-32 text-xs text-gray-500 font-mono")},
-                                      list{text(route.nextHop)},
-                                    ),
-                                    // Anomaly detail
-                                    switch route.anomalyDetail {
-                                    | Some(detail) =>
-                                      span(
-                                        list{Attrs.class_("w-48 text-xs text-red-400 truncate")},
-                                        list{text(detail)},
-                                      )
-                                    | None =>
-                                      span(
-                                        list{Attrs.class_("w-48 text-xs text-gray-700")},
-                                        list{text("-")},
-                                      )
-                                    },
-                                  },
-                                )
-                              })
-                              ->List.fromArray,
-                            ),
-                          },
-                        )
-                      } else {
-                        div(
-                          list{Attrs.class_("text-center py-12")},
-                          list{
-                            div(
-                              list{Attrs.class_("text-gray-600 text-sm")},
-                              list{text("No BGP route data available")},
-                            ),
-                            div(
-                              list{Attrs.class_("text-xs text-gray-700 mt-1")},
-                              list{text("Connect to the Aerie backend for live BGP analysis")},
-                            ),
-                          },
-                        )
-                      },
-                    },
-                  )
-                | AerieProbes =>
-                  div(
-                    list{Attrs.class_("space-y-4")},
-                    list{
-                      {
-                        let active = aerie.probes->Array.filter(p => p.active)->Array.length
-                        let inactive = Array.length(aerie.probes) - active
-                        div(
-                          list{Attrs.class_("flex gap-4 text-xs")},
-                          list{
-                            span(
-                              list{Attrs.class_("text-gray-400")},
-                              list{
-                                text(
-                                  `${Int.toString(Array.length(aerie.probes))} probes configured`,
-                                ),
-                              },
-                            ),
-                            span(
-                              list{Attrs.class_("text-green-400")},
-                              list{text(`${Int.toString(active)} active`)},
-                            ),
-                            if inactive > 0 {
-                              span(
-                                list{Attrs.class_("text-gray-600")},
-                                list{text(`${Int.toString(inactive)} inactive`)},
-                              )
-                            } else {
-                              noNode
-                            },
-                          },
-                        )
-                      },
-                      // Probe list
-                      if Array.length(aerie.probes) > 0 {
-                        div(
-                          list{Attrs.class_("space-y-2")},
-                          aerie.probes
-                          ->Array.map(probe => {
-                            let statusColor = probe.active ? "bg-green-500" : "bg-gray-600"
-                            div(
-                              list{
-                                Attrs.class_(
-                                  "flex items-center gap-3 p-3 bg-gray-900 border border-gray-700 rounded-lg",
-                                ),
-                              },
-                              list{
-                                // Active indicator
-                                div(
-                                  list{Attrs.class_(`w-2 h-2 rounded-full ${statusColor}`)},
-                                  list{},
-                                ),
-                                // Label
-                                div(
-                                  list{Attrs.class_("flex-1")},
-                                  list{
-                                    div(
-                                      list{Attrs.class_("text-sm text-gray-200")},
-                                      list{text(probe.label)},
-                                    ),
-                                    div(
-                                      list{Attrs.class_("text-xs text-gray-500 font-mono")},
-                                      list{text(probe.endpoint)},
-                                    ),
-                                  },
-                                ),
-                                // Protocol badge
-                                span(
-                                  list{
-                                    Attrs.class_(
-                                      "px-2 py-0.5 text-xs bg-gray-800 text-gray-400 rounded border border-gray-700",
-                                    ),
-                                  },
-                                  list{text(probe.protocol)},
-                                ),
-                                // Toggle button
-                                button(
-                                  list{
-                                    Attrs.class_(
-                                      `px-3 py-1 text-xs rounded transition-colors ${probe.active
-                                          ? "bg-red-900/40 text-red-400 hover:bg-red-900/60"
-                                          : "bg-green-900/40 text-green-400 hover:bg-green-900/60"}`,
-                                    ),
-                                    Events.onClick(Aerie(ToggleProbe(probe.endpoint))),
-                                  },
-                                  list{text(probe.active ? "Disable" : "Enable")},
-                                ),
-                              },
-                            )
-                          })
-                          ->List.fromArray,
-                        )
-                      } else {
-                        div(
-                          list{Attrs.class_("text-center py-12")},
-                          list{
-                            div(
-                              list{Attrs.class_("text-gray-600 text-sm")},
-                              list{text("No probes configured")},
-                            ),
-                            div(
-                              list{Attrs.class_("text-xs text-gray-700 mt-1")},
-                              list{text("Connect to Aerie backend to configure network probes")},
-                            ),
-                          },
-                        )
-                      },
-                    },
-                  )
-                },
-              },
-            )
-          },
-          switch aerie.error {
-          | Some(e) =>
-            div(
-              list{
-                Attrs.class_(
-                  "mt-4 p-3 bg-red-900/30 border border-red-700 rounded text-sm text-red-300",
-                ),
-                Attrs.role("alert"),
-              },
-              list{text(e)},
-            )
-          | None => noNode
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/AgentCoordination.affine b/src/components/AgentCoordination.affine
new file mode 100644
index 00000000..421b2cf3
--- /dev/null
+++ b/src/components/AgentCoordination.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AgentCoordination;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/AgentCoordination.res b/src/components/AgentCoordination.res
deleted file mode 100644
index 955d113a..00000000
--- a/src/components/AgentCoordination.res
+++ /dev/null
@@ -1,217 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Agent Coordination View Panel — multi-agent topology and
-/// coordination strategy display.
-///
-/// Layout: Strategy selector (6 cards) at top, agent topology diagram
-/// below showing nodes connected by labelled edges. Memory type
-/// indicators appear as badges on each agent node.
-
-open Msg
-open AgentCoordinationModel
-open AgentCoordinationEngine
-open Tea.Html
-
-// ============================================================================
-// Memory Type Badges
-// ============================================================================
-
-/// A small badge for a memory type indicator on an agent node.
-let memoryBadge = (mem: memoryType): Tea_Vdom.t<msg> => {
-  let colorClass = memoryColor(mem)
-  span(
-    list{Attrs.class_(`px-1 py-0.5 text-xs rounded font-mono ${colorClass}`)},
-    list{text(memoryIndicator(mem))},
-  )
-}
-
-// ============================================================================
-// Strategy Card
-// ============================================================================
-
-/// A single strategy card in the selector grid.
-let strategyCard = (strategy: coordination, isSelected: bool): Tea_Vdom.t<msg> => {
-  let borderClass = strategyBorderColor(strategy, isSelected)
-  div(
-    list{
-      Attrs.class_(
-        `flex flex-col p-3 rounded-lg border-2 cursor-pointer transition-all ${borderClass} bg-gray-900/50 hover:brightness-110`,
-      ),
-    },
-    list{
-      // Strategy name
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-1")},
-        list{
-          span(
-            list{Attrs.class_("font-semibold text-sm text-gray-100")},
-            list{text(strategyDisplayName(strategy))},
-          ),
-          if isSelected {
-            span(list{Attrs.class_("text-xs text-emerald-400 font-mono")}, list{text("ACTIVE")})
-          } else {
-            noNode
-          },
-        },
-      ),
-      // Multi-agent indicator
-      if isMultiAgent(strategy) {
-        span(list{Attrs.class_("text-xs text-purple-400 mb-1")}, list{text("Multi-Agent")})
-      } else {
-        span(list{Attrs.class_("text-xs text-gray-500 mb-1")}, list{text("Single Agent")})
-      },
-      // Description
-      p(
-        list{Attrs.class_("text-xs text-gray-400 leading-relaxed")},
-        list{text(strategyDescription(strategy))},
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Agent Node
-// ============================================================================
-
-/// A single agent node in the topology diagram.
-let agentNodeView = (node: agentNode): Tea_Vdom.t<msg> => {
-  let stateColor = nodeStateColor(node.state)
-  let borderColor = nodeBorderColor(node.state)
-  div(
-    list{
-      Attrs.class_(
-        `flex flex-col items-center p-3 rounded-lg border ${borderColor} bg-gray-900/50 min-w-32`,
-      ),
-    },
-    list{
-      // State indicator dot
-      span(list{Attrs.class_(`w-2 h-2 rounded-full mb-1 ${stateColor}`)}, list{}),
-      // Agent name
-      span(list{Attrs.class_("text-sm font-semibold text-gray-100 mb-1")}, list{text(node.name)}),
-      // State label
-      span(
-        list{Attrs.class_(`text-xs ${stateColor} mb-2`)},
-        list{text(nodeStateLabel(node.state))},
-      ),
-      // Strategy badge
-      span(
-        list{Attrs.class_("text-xs text-gray-500 mb-2")},
-        list{text(strategyDisplayName(node.strategy))},
-      ),
-      // Memory type badges
-      div(
-        list{Attrs.class_("flex gap-1 flex-wrap justify-center")},
-        node.memoryTypes->Array.map(memoryBadge)->List.fromArray,
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Topology Edge
-// ============================================================================
-
-/// An edge label between two nodes (displayed as text since full SVG
-/// topology rendering is deferred to a future version).
-let edgeLabel = (edge: topologyEdge): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex items-center gap-2 text-xs text-gray-500")},
-    list{
-      span(list{Attrs.class_("font-mono")}, list{text(edge.fromId)}),
-      span(list{Attrs.class_("text-gray-600")}, list{text("--" ++ edge.label ++ "-->")}),
-      span(list{Attrs.class_("font-mono")}, list{text(edge.toId)}),
-    },
-  )
-}
-
-// ============================================================================
-// Topology Diagram
-// ============================================================================
-
-/// The topology diagram showing agent nodes and their connections.
-let topologyDiagram = (nodes: array<agentNode>, edges: array<topologyEdge>): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-col gap-4")},
-    list{
-      // Agent nodes (flex wrapped)
-      div(
-        list{Attrs.class_("flex gap-3 flex-wrap")},
-        nodes->Array.map(agentNodeView)->List.fromArray,
-      ),
-      // Edge labels
-      if Array.length(edges) > 0 {
-        div(
-          list{
-            Attrs.class_("flex flex-col gap-1 p-3 bg-gray-900/30 rounded border border-gray-800"),
-          },
-          list{
-            h4(
-              list{Attrs.class_("text-xs font-semibold text-gray-400 mb-1")},
-              list{text("Connections")},
-            ),
-            div(
-              list{Attrs.class_("flex flex-col gap-1")},
-              edges->Array.map(edgeLabel)->List.fromArray,
-            ),
-          },
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-// ============================================================================
-// Main View
-// ============================================================================
-
-/// All 6 coordination strategies for the selector grid.
-let allStrategies: array<coordination> = [Solo, Pipeline, Broadcast, Consensus, Hierarchy, Swarm]
-
-/// Top-level view for the Agent Coordination View panel.
-let view = (state: agentCoordinationState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-col h-full p-3 bg-gray-950 text-gray-100")},
-    list{
-      // Panel header
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-3")},
-        list{
-          h2(list{Attrs.class_("text-lg font-semibold")}, list{text("Agent Coordination View")}),
-          span(
-            list{Attrs.class_("text-xs text-gray-500")},
-            list{text(`${Int.toString(Array.length(state.nodes))} agents`)},
-          ),
-        },
-      ),
-      // Strategy selector (3x2 grid)
-      div(
-        list{Attrs.class_("grid grid-cols-3 gap-2 mb-4")},
-        allStrategies
-        ->Array.map(s => strategyCard(s, state.selectedStrategy == Some(s)))
-        ->List.fromArray,
-      ),
-      // Topology diagram
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto")},
-        list{
-          if state.loading {
-            div(
-              list{Attrs.class_("flex items-center justify-center h-32 text-gray-600")},
-              list{text("Loading topology...")},
-            )
-          } else if Array.length(state.nodes) == 0 {
-            div(
-              list{Attrs.class_("flex items-center justify-center h-32 text-gray-600")},
-              list{text("No agents registered")},
-            )
-          } else {
-            topologyDiagram(state.nodes, state.edges)
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/AgentOoda.affine b/src/components/AgentOoda.affine
new file mode 100644
index 00000000..437afbee
--- /dev/null
+++ b/src/components/AgentOoda.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AgentOoda;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/AgentOoda.res b/src/components/AgentOoda.res
deleted file mode 100644
index 96cd8929..00000000
--- a/src/components/AgentOoda.res
+++ /dev/null
@@ -1,259 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL OODA Session Monitor Panel — agent OODA loop lifecycle tracking
-/// display.
-///
-/// Layout: Session list (left column), selected session detail (right column)
-/// showing OODA state diagram with current state highlighted, loop count,
-/// and advance/halt control buttons.
-
-open Msg
-open AgentOodaModel
-open AgentOodaEngine
-open Tea.Html
-
-// ============================================================================
-// OODA State Diagram
-// ============================================================================
-
-/// A single state node in the OODA diagram.
-let stateNode = (state: agentState, isCurrent: bool): Tea_Vdom.t<msg> => {
-  let bgColor = if isCurrent {
-    stateColor(state)
-  } else {
-    "bg-gray-800 text-gray-400"
-  }
-  let borderClass = if isCurrent {
-    stateBorderColor(state) ++ " ring-2 ring-offset-1 ring-offset-gray-950"
-  } else {
-    "border-gray-700"
-  }
-  div(
-    list{
-      Attrs.class_(
-        `flex flex-col items-center p-3 rounded-lg border ${borderClass} ${bgColor} min-w-20`,
-      ),
-    },
-    list{span(list{Attrs.class_("text-sm font-semibold")}, list{text(stateLabel(state))})},
-  )
-}
-
-/// Arrow connector between OODA states.
-let stateArrow: Tea_Vdom.t<msg> = {
-  span(list{Attrs.class_("text-gray-600 text-lg self-center")}, list{text("->")})
-}
-
-/// The full OODA state diagram showing all 4 states + Halted.
-let oodaDiagram = (currentState: agentState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-col gap-3")},
-    list{
-      // Main OODA loop (horizontal)
-      div(
-        list{Attrs.class_("flex items-center gap-2 flex-wrap")},
-        list{
-          stateNode(Observing, currentState == Observing),
-          stateArrow,
-          stateNode(Orienting, currentState == Orienting),
-          stateArrow,
-          stateNode(Deciding, currentState == Deciding),
-          stateArrow,
-          stateNode(Acting, currentState == Acting),
-        },
-      ),
-      // Halted state (separate, below)
-      div(
-        list{Attrs.class_("flex items-center gap-2 mt-2")},
-        list{stateNode(Halted, currentState == Halted)},
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Session List Item
-// ============================================================================
-
-/// A single session row in the left-hand session list.
-let sessionListItem = (session: oodaSession, isSelected: bool): Tea_Vdom.t<msg> => {
-  let health = sessionHealth(session)
-  let healthCls = healthColor(health)
-  let selectedCls = if isSelected {
-    "bg-gray-800 border-emerald-500"
-  } else {
-    "bg-gray-900/50 border-gray-800 hover:bg-gray-800/50"
-  }
-  div(
-    list{Attrs.class_(`flex items-center gap-3 p-3 rounded border cursor-pointer ${selectedCls}`)},
-    list{
-      // Health indicator dot
-      span(list{Attrs.class_(`w-2 h-2 rounded-full ${healthCls} shrink-0`)}, list{}),
-      // Agent name + state
-      div(
-        list{Attrs.class_("flex-1 min-w-0")},
-        list{
-          div(
-            list{Attrs.class_("text-sm font-semibold text-gray-100 truncate")},
-            list{text(session.agentName)},
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              span(
-                list{Attrs.class_(`text-xs ${stateTextColor(session.state)}`)},
-                list{text(stateLabel(session.state))},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{text(`${Int.toString(session.loopCount)} loops`)},
-              ),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Session Detail View
-// ============================================================================
-
-/// Detailed view of the selected session (right column).
-let sessionDetailView = (detail: sessionDetail): Tea_Vdom.t<msg> => {
-  let session = detail.session
-  div(
-    list{Attrs.class_("flex flex-col gap-4")},
-    list{
-      // Session header
-      div(
-        list{Attrs.class_("flex items-center justify-between")},
-        list{
-          h3(
-            list{Attrs.class_("text-lg font-semibold text-gray-100")},
-            list{text(session.agentName)},
-          ),
-          span(list{Attrs.class_("text-xs text-gray-500 font-mono")}, list{text(session.id)}),
-        },
-      ),
-      // OODA state diagram
-      oodaDiagram(session.state),
-      // Stats row
-      div(
-        list{Attrs.class_("flex gap-4 p-3 bg-gray-900/50 rounded-lg")},
-        list{
-          div(
-            list{Attrs.class_("flex flex-col items-center")},
-            list{
-              span(
-                list{Attrs.class_("text-xl font-bold font-mono text-gray-100")},
-                list{text(Int.toString(session.loopCount))},
-              ),
-              span(list{Attrs.class_("text-xs text-gray-500")}, list{text("Loops")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex flex-col items-center")},
-            list{
-              span(
-                list{Attrs.class_("text-xl font-bold font-mono text-gray-100")},
-                list{text(Float.toFixed(loopRate(detail), ~digits=2) ++ "/s")},
-              ),
-              span(list{Attrs.class_("text-xs text-gray-500")}, list{text("Loop Rate")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex flex-col items-center")},
-            list{
-              span(
-                list{Attrs.class_("text-xl font-bold font-mono text-gray-100")},
-                list{text(Float.toFixed(detail.avgLoopMs, ~digits=0) ++ "ms")},
-              ),
-              span(list{Attrs.class_("text-xs text-gray-500")}, list{text("Avg Loop")}),
-            },
-          ),
-        },
-      ),
-      // Control buttons
-      div(
-        list{Attrs.class_("flex gap-2")},
-        list{
-          if session.state != Halted {
-            button(
-              list{
-                Attrs.class_("px-4 py-2 text-sm rounded bg-blue-600 text-white hover:bg-blue-500"),
-              },
-              list{text("Advance")},
-            )
-          } else {
-            noNode
-          },
-          if session.state != Halted {
-            button(
-              list{
-                Attrs.class_("px-4 py-2 text-sm rounded bg-red-600 text-white hover:bg-red-500"),
-              },
-              list{text("Halt")},
-            )
-          } else {
-            noNode
-          },
-        },
-      ),
-      // Halt reason (if halted)
-      switch session.haltReason {
-      | Some(reason) =>
-        div(
-          list{
-            Attrs.class_("p-2 rounded bg-red-900/30 border border-red-500/40 text-xs text-red-400"),
-          },
-          list{text("Halt reason: " ++ reason)},
-        )
-      | None => noNode
-      },
-    },
-  )
-}
-
-// ============================================================================
-// Main View
-// ============================================================================
-
-/// Top-level view for the OODA Session Monitor panel.
-let view = (state: agentOodaState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex h-full p-3 gap-3 bg-gray-950 text-gray-100")},
-    list{
-      // Left column: session list
-      div(
-        list{Attrs.class_("w-64 flex flex-col gap-2 overflow-y-auto shrink-0")},
-        list{
-          h2(list{Attrs.class_("text-lg font-semibold mb-2")}, list{text("OODA Sessions")}),
-          div(
-            list{Attrs.class_("flex flex-col gap-1")},
-            state.sessions
-            ->Array.map(session =>
-              sessionListItem(session, state.selectedSessionId == Some(session.id))
-            )
-            ->List.fromArray,
-          ),
-        },
-      ),
-      // Right column: session detail
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto")},
-        list{
-          switch state.selectedDetail {
-          | Some(detail) => sessionDetailView(detail)
-          | None =>
-            div(
-              list{Attrs.class_("flex items-center justify-center h-full text-gray-600")},
-              list{text("Select a session to view details")},
-            )
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/AgentSafety.affine b/src/components/AgentSafety.affine
new file mode 100644
index 00000000..144c83b1
--- /dev/null
+++ b/src/components/AgentSafety.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AgentSafety;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/AgentSafety.res b/src/components/AgentSafety.res
deleted file mode 100644
index db5d8cc9..00000000
--- a/src/components/AgentSafety.res
+++ /dev/null
@@ -1,230 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Agent Safety Gate Panel — tool call safety review and approval
-/// queue display.
-///
-/// Layout: Pending approvals queue at top (red/amber cards with Approve/Deny
-/// buttons), event history below, stats sidebar showing approved/denied/
-/// escalated counts.
-
-open Msg
-open AgentSafetyModel
-open AgentSafetyEngine
-open Tea.Html
-
-// ============================================================================
-// Stats Sidebar
-// ============================================================================
-
-/// A single stat counter in the sidebar.
-let statCounter = (label: string, count: int, colorClass: string): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex items-center justify-between py-1")},
-    list{
-      span(list{Attrs.class_("text-xs text-gray-400")}, list{text(label)}),
-      span(
-        list{Attrs.class_(`text-sm font-mono font-bold ${colorClass}`)},
-        list{text(Int.toString(count))},
-      ),
-    },
-  )
-}
-
-/// Stats sidebar showing aggregate counts.
-let statsSidebar = (stats: safetyStats): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("w-48 shrink-0 p-3 bg-gray-900/50 rounded-lg border border-gray-800")},
-    list{
-      h3(
-        list{Attrs.class_("text-sm font-semibold text-gray-200 mb-3")},
-        list{text("Safety Stats")},
-      ),
-      statCounter("Total Events", stats.totalEvents, "text-gray-200"),
-      statCounter("Auto-Approved", stats.autoApproved, "text-emerald-400"),
-      statCounter("Human Approved", stats.humanApproved, "text-emerald-400"),
-      statCounter("Denied", stats.denied, "text-red-400"),
-      statCounter("Escalated", stats.escalated, "text-orange-400"),
-      statCounter("Policy Blocked", stats.policyBlocked, "text-red-400"),
-      div(
-        list{Attrs.class_("border-t border-gray-700 mt-2 pt-2")},
-        list{statCounter("Pending", stats.pendingCount, "text-amber-400")},
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Pending Approval Card
-// ============================================================================
-
-/// A pending approval card with Approve and Deny buttons.
-let pendingCard = (event: safetyEvent): Tea_Vdom.t<msg> => {
-  let cardColor = eventColor(event.outcome)
-  div(
-    list{Attrs.class_(`flex flex-col p-3 rounded-lg border ${cardColor}`)},
-    list{
-      // Header: tool call type + agent
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-2")},
-        list{
-          span(
-            list{Attrs.class_("text-sm font-semibold text-gray-100")},
-            list{text(toolCallLabel(event.toolCall))},
-          ),
-          span(list{Attrs.class_("text-xs text-gray-500 font-mono")}, list{text(event.agentId)}),
-        },
-      ),
-      // Description
-      p(list{Attrs.class_("text-xs text-gray-300 mb-1")}, list{text(event.description)}),
-      // Resource
-      div(
-        list{Attrs.class_("text-xs text-gray-500 font-mono mb-3 truncate")},
-        list{text(event.resource)},
-      ),
-      // Side effects warning
-      if hasSideEffects(event.toolCall) {
-        div(
-          list{Attrs.class_("text-xs text-amber-400 mb-2")},
-          list{text("This operation has side effects")},
-        )
-      } else {
-        noNode
-      },
-      // Action buttons
-      div(
-        list{Attrs.class_("flex gap-2")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "flex-1 px-3 py-1.5 text-sm rounded bg-emerald-600 text-white hover:bg-emerald-500",
-              ),
-            },
-            list{text("Approve")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "flex-1 px-3 py-1.5 text-sm rounded bg-red-600 text-white hover:bg-red-500",
-              ),
-            },
-            list{text("Deny")},
-          ),
-        },
-      ),
-      // Timestamp
-      span(list{Attrs.class_("text-xs text-gray-600 mt-2")}, list{text(event.timestamp)}),
-    },
-  )
-}
-
-// ============================================================================
-// History Row
-// ============================================================================
-
-/// A single event row in the history list.
-let historyRow = (event: safetyEvent): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_(
-        "flex items-center gap-3 px-3 py-2 border-b border-gray-800 hover:bg-gray-800/30",
-      ),
-    },
-    list{
-      // Outcome badge
-      span(
-        list{
-          Attrs.class_(
-            `px-2 py-0.5 text-xs rounded font-mono shrink-0 ${outcomeTextColor(event.outcome)}`,
-          ),
-        },
-        list{text(outcomeLabel(event.outcome))},
-      ),
-      // Tool call type
-      span(
-        list{Attrs.class_("text-xs text-gray-300 w-24 shrink-0")},
-        list{text(toolCallLabel(event.toolCall))},
-      ),
-      // Description (truncated)
-      span(
-        list{Attrs.class_("text-xs text-gray-400 flex-1 truncate")},
-        list{text(event.description)},
-      ),
-      // Agent
-      span(
-        list{Attrs.class_("text-xs text-gray-500 font-mono shrink-0")},
-        list{text(event.agentId)},
-      ),
-      // Timestamp
-      span(
-        list{Attrs.class_("text-xs text-gray-600 font-mono shrink-0")},
-        list{text(event.timestamp)},
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Main View
-// ============================================================================
-
-/// Top-level view for the Agent Safety Gate panel.
-let view = (state: agentSafetyState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex h-full p-3 gap-3 bg-gray-950 text-gray-100")},
-    list{
-      // Main content area
-      div(
-        list{Attrs.class_("flex-1 flex flex-col overflow-hidden")},
-        list{
-          // Panel header
-          h2(list{Attrs.class_("text-lg font-semibold mb-3")}, list{text("Agent Safety Gate")}),
-          // Pending approvals section
-          if Array.length(state.pendingEvents) > 0 {
-            div(
-              list{Attrs.class_("mb-4")},
-              list{
-                h3(
-                  list{Attrs.class_("text-sm font-semibold text-amber-400 mb-2")},
-                  list{
-                    text(`Pending Approvals (${Int.toString(Array.length(state.pendingEvents))})`),
-                  },
-                ),
-                div(
-                  list{Attrs.class_("grid grid-cols-1 gap-2 max-h-64 overflow-y-auto")},
-                  state.pendingEvents->Array.map(pendingCard)->List.fromArray,
-                ),
-              },
-            )
-          } else {
-            div(
-              list{
-                Attrs.class_(
-                  "p-3 mb-4 rounded bg-emerald-900/20 border border-emerald-500/30 text-xs text-emerald-400",
-                ),
-              },
-              list{text("No pending approvals")},
-            )
-          },
-          // History section
-          h3(
-            list{Attrs.class_("text-sm font-semibold text-gray-300 mb-2")},
-            list{text("Event History")},
-          ),
-          div(
-            list{Attrs.class_("flex-1 overflow-y-auto border border-gray-800 rounded")},
-            list{
-              div(
-                list{Attrs.class_("divide-y divide-gray-800")},
-                state.historyEvents->Array.map(historyRow)->List.fromArray,
-              ),
-            },
-          ),
-        },
-      ),
-      // Stats sidebar (right)
-      statsSidebar(state.stats),
-    },
-  )
-}
diff --git a/src/components/AgenticBridge.affine b/src/components/AgenticBridge.affine
new file mode 100644
index 00000000..20fc1a93
--- /dev/null
+++ b/src/components/AgenticBridge.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AgenticBridge;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/AgenticBridge.res b/src/components/AgenticBridge.res
deleted file mode 100644
index 04d5f27f..00000000
--- a/src/components/AgenticBridge.res
+++ /dev/null
@@ -1,345 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Agentic Bridge Component — automated playtesting agents with OODA loop
-/// phases. Displays agent lists with phase badges, configuration panel,
-/// execution log, and findings.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render an OODA phase badge with colour coding.
-/// Observe=blue, Orient=yellow, Decide=orange, Act=green.
-let oodaPhaseBadge = (phase: oodaPhase): Tea_Vdom.t<msg> => {
-  let (color, label) = switch phase {
-  | Observe => ("bg-blue-700 text-blue-100", "Observe")
-  | Orient => ("bg-yellow-700 text-yellow-100", "Orient")
-  | Decide => ("bg-orange-700 text-orange-100", "Decide")
-  | Act => ("bg-green-700 text-green-100", "Act")
-  }
-  span(list{Attrs.class_("px-2 py-0.5 text-xs rounded font-mono " ++ color)}, list{text(label)})
-}
-
-/// Render an agent status indicator.
-let agentStatusBadge = (status: agentStatus): Tea_Vdom.t<msg> => {
-  let (color, label) = switch status {
-  | AgentIdle => ("text-gray-500", "Idle")
-  | AgentRunning => ("text-green-400 animate-pulse", "Running")
-  | AgentPaused => ("text-yellow-400", "Paused")
-  | AgentCompleted => ("text-blue-400", "Completed")
-  | AgentFailed => ("text-red-400", "Failed")
-  }
-  span(list{Attrs.class_("text-xs font-mono " ++ color)}, list{text(label)})
-}
-
-/// Render a finding severity badge.
-let findingSevBadge = (sev: findingSeverity): Tea_Vdom.t<msg> => {
-  let (color, label) = switch sev {
-  | FindingCritical => ("bg-red-700 text-red-100", "Critical")
-  | FindingMajor => ("bg-orange-700 text-orange-100", "Major")
-  | FindingMinor => ("bg-yellow-700 text-yellow-100", "Minor")
-  | FindingObservation => ("bg-gray-700 text-gray-300", "Obs")
-  }
-  span(list{Attrs.class_("px-2 py-0.5 text-xs rounded font-mono " ++ color)}, list{text(label)})
-}
-
-/// Main view function for the Agentic Bridge panel.
-let view = (state: agenticBridgeState): Tea_Vdom.t<msg> => {
-  let totalAgents = Array.length(state.agents)
-  let runningAgents = state.agents->Array.filter(a => a.status == AgentRunning)->Array.length
-  let allFindings = state.agents->Array.flatMap(a => a.findings)
-
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Agentic Bridge — Automated Playtesting Agents"),
-    },
-    list{
-      // Header row
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-bold text-amber-300")},
-                list{text("Agentic Bridge")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-400")},
-                list{
-                  text(
-                    Int.toString(totalAgents) ++
-                    " agents, " ++
-                    Int.toString(runningAgents) ++ " active",
-                  ),
-                },
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-xs bg-amber-800 hover:bg-amber-700 text-white rounded",
-                  ),
-                  Events.onClick(AgenticBridge(AbStarted)),
-                  KeyboardNav.onActivate(AgenticBridge(AbStarted)),
-                },
-                list{text("Launch All")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Tab bar
-      div(
-        list{Attrs.class_("flex gap-1 px-4 py-2 border-b border-gray-800")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Agents {
-                  "bg-amber-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(AgenticBridge(SetAbTab(Agents))),
-            },
-            list{text("Agents")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Config {
-                  "bg-amber-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(AgenticBridge(SetAbTab(Config))),
-            },
-            list{text("Config")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Execution {
-                  "bg-amber-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(AgenticBridge(SetAbTab(Execution))),
-            },
-            list{text("Execution")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Results {
-                  "bg-amber-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(AgenticBridge(SetAbTab(Results))),
-            },
-            list{text("Results")},
-          ),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 px-3 py-2 bg-red-900/50 border border-red-700 rounded text-sm text-red-200 flex justify-between items-center",
-            ),
-          },
-          list{
-            text(err),
-            button(
-              list{
-                Attrs.class_("text-red-400 hover:text-red-200 text-xs ml-2"),
-                Events.onClick(AgenticBridge(DismissAbError)),
-                KeyboardNav.onActivate(AgenticBridge(DismissAbError)),
-              },
-              list{text("Dismiss")},
-            ),
-          },
-        )
-      | None => Tea_Html.noNode
-      },
-      // Content area
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto px-4 py-4")},
-        list{
-          switch state.activeTab {
-          | Agents =>
-            div(
-              list{Attrs.class_("space-y-2")},
-              state.agents
-              ->Array.map(agent =>
-                div(
-                  list{Attrs.class_("px-3 py-2 bg-gray-900 border border-gray-800 rounded")},
-                  list{
-                    div(
-                      list{Attrs.class_("flex items-center gap-3")},
-                      list{
-                        span(
-                          list{Attrs.class_("text-sm font-bold text-gray-200")},
-                          list{text(agent.name)},
-                        ),
-                        oodaPhaseBadge(agent.oodaPhase),
-                        agentStatusBadge(agent.status),
-                      },
-                    ),
-                    div(
-                      list{Attrs.class_("flex gap-4 mt-1 text-xs text-gray-500")},
-                      list{
-                        span(
-                          list{},
-                          list{text(Int.toString(Array.length(agent.actions)) ++ " actions")},
-                        ),
-                        span(
-                          list{},
-                          list{text(Int.toString(Array.length(agent.findings)) ++ " findings")},
-                        ),
-                      },
-                    ),
-                  },
-                )
-              )
-              ->List.fromArray,
-            )
-          | Config =>
-            div(
-              list{Attrs.class_("space-y-2")},
-              state.agentConfigs
-              ->Array.map(cfg => {
-                let strategyLabel = switch cfg.strategy {
-                | StrategyRandom => "Random"
-                | StrategyExhaustive => "Exhaustive"
-                | StrategyAdversarial => "Adversarial"
-                | StrategyReplay => "Replay"
-                }
-                div(
-                  list{Attrs.class_("px-3 py-2 bg-gray-900 border border-gray-800 rounded")},
-                  list{
-                    div(
-                      list{Attrs.class_("text-sm text-gray-200 font-mono mb-1")},
-                      list{text("Agent: " ++ cfg.agentId)},
-                    ),
-                    div(
-                      list{Attrs.class_("grid grid-cols-2 gap-x-4 gap-y-1 text-xs text-gray-400")},
-                      list{
-                        span(
-                          list{},
-                          list{text("Speed: " ++ Float.toFixed(cfg.speed, ~digits=1) ++ "x")},
-                        ),
-                        span(list{}, list{text("Strategy: " ++ strategyLabel)}),
-                        span(
-                          list{},
-                          list{
-                            text(
-                              "Thoroughness: " ++
-                              Float.toFixed(cfg.thoroughness *. 100.0, ~digits=0) ++ "%",
-                            ),
-                          },
-                        ),
-                        span(list{}, list{text("Max cycles: " ++ Int.toString(cfg.maxCycles))}),
-                        span(list{}, list{text("Seed: " ++ Int.toString(cfg.randomSeed))}),
-                      },
-                    ),
-                  },
-                )
-              })
-              ->List.fromArray,
-            )
-          | Execution =>
-            div(
-              list{Attrs.class_("space-y-1")},
-              state.agents
-              ->Array.filter(a => a.status == AgentRunning || a.status == AgentCompleted)
-              ->Array.flatMap(a =>
-                a.actions->Array.map(act =>
-                  div(
-                    list{Attrs.class_("flex items-center gap-3 py-1 border-b border-gray-800/30")},
-                    list{
-                      oodaPhaseBadge(act.phase),
-                      span(
-                        list{Attrs.class_("text-sm text-gray-300 flex-1")},
-                        list{text(act.description)},
-                      ),
-                      span(
-                        list{Attrs.class_("text-xs text-gray-500 font-mono")},
-                        list{text(act.targetPath)},
-                      ),
-                      span(
-                        list{Attrs.class_("text-xs text-gray-600")},
-                        list{text(Float.toFixed(act.timestampMs, ~digits=0) ++ "ms")},
-                      ),
-                    },
-                  )
-                )
-              )
-              ->List.fromArray,
-            )
-          | Results =>
-            div(
-              list{Attrs.class_("space-y-2")},
-              list{
-                div(
-                  list{Attrs.class_("text-xs text-gray-400 mb-2")},
-                  list{
-                    text(
-                      Int.toString(
-                        Array.length(allFindings),
-                      ) ++ " total findings across all agents",
-                    ),
-                  },
-                ),
-                div(
-                  list{},
-                  allFindings
-                  ->Array.map(f =>
-                    div(
-                      list{
-                        Attrs.class_("px-3 py-2 mb-2 bg-gray-900 border border-gray-800 rounded"),
-                      },
-                      list{
-                        div(
-                          list{Attrs.class_("flex items-center gap-2")},
-                          list{
-                            findingSevBadge(f.severity),
-                            span(
-                              list{Attrs.class_("text-sm text-gray-200")},
-                              list{text(f.summary)},
-                            ),
-                          },
-                        ),
-                        div(list{Attrs.class_("text-xs text-gray-400 mt-1")}, list{text(f.detail)}),
-                        div(
-                          list{Attrs.class_("text-xs text-gray-500 font-mono mt-1")},
-                          list{text(f.location)},
-                        ),
-                      },
-                    )
-                  )
-                  ->List.fromArray,
-                ),
-              },
-            )
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/Ai.affine b/src/components/Ai.affine
new file mode 100644
index 00000000..b7f04ce1
--- /dev/null
+++ b/src/components/Ai.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Ai;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Ai.res b/src/components/Ai.res
deleted file mode 100644
index 1b828bab..00000000
--- a/src/components/Ai.res
+++ /dev/null
@@ -1,755 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL AI Panel Component — Three-region multi-provider neural interface.
-///
-/// Layout:
-///   +--sidebar--+  +--main area-----+
-///   | Panel-L   |  | Conversation   |
-///   | Constraints|  | or Providers   |
-///   | Context   |  | or SystemPrompt|
-///   +-----------+  +--input area----+
-///
-/// The AI panel embeds AI providers (Claude, Gemini, Mistral, GPT, local) inside
-/// the PanLL environment with full repo context, active panel awareness, VoiceTag
-/// data, and provenance information.
-
-open Model
-open Msg
-open Tea.Html
-
-// ===========================================================================
-// Sidebar: Context summary + constraint indicators
-// ===========================================================================
-
-/// Render the left sidebar showing current context and constraint indicators.
-let renderSidebar = (ai: aiState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("w-64 border-r border-gray-800 p-4 overflow-y-auto flex-shrink-0")},
-    list{
-      // Section: Active provider
-      div(
-        list{Attrs.class_("mb-6")},
-        list{
-          div(
-            list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wider mb-2")},
-            list{text("Active Provider")},
-          ),
-          {
-            let selected = AiEngine.selectProvider(ai.providers)
-            switch selected {
-            | Some(p) =>
-              div(
-                list{
-                  Attrs.class_(
-                    `px-3 py-2 rounded ${AiEngine.providerBgColour(p.id)} text-sm font-medium`,
-                  ),
-                },
-                list{text(`${AiEngine.providerShortLabel(p.id)} / ${p.selectedModel}`)},
-              )
-            | None =>
-              div(
-                list{Attrs.class_("px-3 py-2 rounded bg-red-500/20 text-red-300 text-sm")},
-                list{text("No provider available")},
-              )
-            }
-          },
-        },
-      ),
-      // Section: Token usage
-      div(
-        list{Attrs.class_("mb-6")},
-        list{
-          div(
-            list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wider mb-2")},
-            list{text("Token Usage")},
-          ),
-          div(
-            list{Attrs.class_("text-sm text-gray-400 space-y-1")},
-            list{
-              div(list{}, list{text(`In: ${AiEngine.formatTokens(ai.totalInputTokens)}`)}),
-              div(list{}, list{text(`Out: ${AiEngine.formatTokens(ai.totalOutputTokens)}`)}),
-            },
-          ),
-        },
-      ),
-      // Section: Provider status summary
-      div(
-        list{Attrs.class_("mb-6")},
-        list{
-          div(
-            list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wider mb-2")},
-            list{text("Providers")},
-          ),
-          div(
-            list{Attrs.class_("space-y-2")},
-            ai.providers
-            ->AiEngine.sortByPriority
-            ->Array.map(p => {
-              let status = AiEngine.getProviderStatus(ai.providerStatuses, p.id)
-              div(
-                list{Attrs.class_("flex items-center gap-2 text-sm")},
-                list{
-                  div(
-                    list{Attrs.class_(`w-2 h-2 rounded-full ${AiEngine.statusDotClass(status)}`)},
-                    list{},
-                  ),
-                  div(
-                    list{Attrs.class_(p.enabled ? "text-gray-300" : "text-gray-600")},
-                    list{text(AiEngine.providerShortLabel(p.id))},
-                  ),
-                },
-              )
-            })
-            ->List.fromArray,
-          ),
-        },
-      ),
-      {
-        if ai.autoContext !== "" {
-          div(
-            list{Attrs.class_("mb-6")},
-            list{
-              div(
-                list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wider mb-2")},
-                list{text("Repo Context")},
-              ),
-              div(
-                list{Attrs.class_("text-xs text-gray-500 max-h-40 overflow-y-auto")},
-                list{text(String.slice(ai.autoContext, ~start=0, ~end=200) ++ "...")},
-              ),
-            },
-          )
-        } else {
-          div(
-            list{Attrs.class_("mb-6")},
-            list{
-              div(
-                list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wider mb-2")},
-                list{text("Repo Context")},
-              ),
-              div(
-                list{Attrs.class_("text-xs text-gray-600 italic")},
-                list{text("No repo loaded — use Repo Loader to load context")},
-              ),
-            },
-          )
-        }
-      },
-    },
-  )
-}
-
-// ===========================================================================
-// Category tab bar
-// ===========================================================================
-
-/// Render a single category tab.
-let renderCategoryTab = (cat: aiCategory, isActive: bool): Tea_Vdom.t<msg> => {
-  button(
-    list{
-      Attrs.class_(
-        `px-4 py-2 text-sm transition-colors ${isActive
-            ? "text-gray-100 border-b-2 border-orange-500"
-            : "text-gray-500 hover:text-gray-300"}`,
-      ),
-      Events.onClick(Ai(SetAiCategory(cat))),
-    },
-    list{text(AiEngine.categoryLabel(cat))},
-  )
-}
-
-/// Render the category tab bar.
-let renderCategoryTabBar = (activeCategory: aiCategory): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex border-b border-gray-800")},
-    AiEngine.allCategories
-    ->Array.map(cat => renderCategoryTab(cat, cat === activeCategory))
-    ->List.fromArray,
-  )
-}
-
-// ===========================================================================
-// Conversation view
-// ===========================================================================
-
-/// Render a single message in the conversation stream.
-let renderMessage = (msg: aiMessage): Tea_Vdom.t<Msg.msg> => {
-  let isUser = msg.role === User
-  let alignment = isUser ? "justify-end" : "justify-start"
-  let bgClass = isUser ? "bg-gray-800" : "bg-gray-900"
-  let borderClass = switch msg.provider {
-  | Some(id) => AiEngine.providerColour(id)
-  | None => "border-gray-700"
-  }
-
-  div(
-    list{Attrs.class_(`flex ${alignment} mb-3`)},
-    list{
-      div(
-        list{Attrs.class_(`max-w-3xl ${bgClass} border ${borderClass} rounded-lg px-4 py-3`)},
-        list{
-          {
-            if !isUser {
-              div(
-                list{Attrs.class_("flex items-center gap-2 mb-2")},
-                list{
-                  {
-                    switch msg.provider {
-                    | Some(id) =>
-                      span(
-                        list{
-                          Attrs.class_(
-                            `text-xs px-2 py-0.5 rounded ${AiEngine.providerBgColour(id)}`,
-                          ),
-                        },
-                        list{text(AiEngine.providerShortLabel(id))},
-                      )
-                    | None => noNode
-                    }
-                  },
-                  {
-                    switch msg.model {
-                    | Some(m) => span(list{Attrs.class_("text-xs text-gray-600")}, list{text(m)})
-                    | None => noNode
-                    }
-                  },
-                  {
-                    if msg.outputTokens > 0 {
-                      span(
-                        list{Attrs.class_("text-xs text-gray-600")},
-                        list{text(`${AiEngine.formatTokens(msg.outputTokens)} tokens`)},
-                      )
-                    } else {
-                      noNode
-                    }
-                  },
-                },
-              )
-            } else {
-              noNode
-            }
-          },
-          // Message content
-          div(
-            list{Attrs.class_("text-sm text-gray-200 whitespace-pre-wrap")},
-            list{text(msg.content)},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render the conversation stream.
-let renderConversation = (ai: aiState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 overflow-y-auto p-4")},
-    list{
-      {
-        if Array.length(ai.messages) === 0 {
-          div(
-            list{Attrs.class_("flex items-center justify-center h-full")},
-            list{
-              div(
-                list{Attrs.class_("text-center text-gray-600")},
-                list{
-                  div(list{Attrs.class_("text-2xl mb-4")}, list{text("Neural Interface")}),
-                  div(
-                    list{Attrs.class_("text-sm")},
-                    list{text("Start a conversation with your AI providers.")},
-                  ),
-                  div(
-                    list{Attrs.class_("text-sm mt-2")},
-                    list{text("Load a repo to give the AI full project context.")},
-                  ),
-                },
-              ),
-            },
-          )
-        } else {
-          div(
-            list{Attrs.class_("space-y-1")},
-            ai.messages->Array.map(renderMessage)->List.fromArray,
-          )
-        }
-      },
-      {
-        if ai.loading {
-          div(
-            list{Attrs.class_("flex justify-start mb-3")},
-            list{
-              div(
-                list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg px-4 py-3")},
-                list{
-                  div(
-                    list{Attrs.class_("text-sm text-gray-500 animate-pulse")},
-                    list{text("Thinking...")},
-                  ),
-                },
-              ),
-            },
-          )
-        } else {
-          noNode
-        }
-      },
-      {
-        switch ai.error {
-        | Some(e) =>
-          div(
-            list{
-              Attrs.class_(
-                "mx-4 mb-2 px-3 py-2 bg-red-900/30 border border-red-700 rounded text-sm text-red-300",
-              ),
-            },
-            list{text(e)},
-          )
-        | None => noNode
-        }
-      },
-    },
-  )
-}
-
-// ===========================================================================
-// Input area
-// ===========================================================================
-
-/// Render the message input area with send button and provider indicator.
-let renderInputArea = (ai: aiState): Tea_Vdom.t<msg> => {
-  let selectedProvider = AiEngine.selectProvider(ai.providers)
-  div(
-    list{Attrs.class_("border-t border-gray-800 p-4")},
-    list{
-      // Input row
-      div(
-        list{Attrs.class_("flex gap-2")},
-        list{
-          input(
-            list{
-              Attrs.class_(
-                "flex-1 bg-gray-900 border border-gray-700 rounded-lg px-4 py-3 text-sm text-gray-200 placeholder-gray-600 focus:outline-none focus:border-orange-500",
-              ),
-              Attrs.placeholder("Type a message..."),
-              Attrs.value(ai.inputText),
-              Events.onInput(text => Ai(SetAiInput(text))),
-              KeyboardUtil.onEnterOrSpace(Ai(SendMessage)),
-            },
-            list{},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-6 py-3 bg-orange-600 hover:bg-orange-500 text-white rounded-lg text-sm font-medium transition-colors disabled:opacity-50 disabled:cursor-not-allowed",
-              ),
-              Attrs.disabled(ai.loading || ai.inputText === ""),
-              Events.onClick(Ai(SendMessage)),
-              KeyboardNav.onActivate(Ai(SendMessage)),
-            },
-            list{text("Send")},
-          ),
-        },
-      ),
-      // Status bar
-      div(
-        list{Attrs.class_("flex items-center justify-between mt-2 text-xs text-gray-600")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              {
-                switch selectedProvider {
-                | Some(p) =>
-                  span(
-                    list{},
-                    list{text(`${AiEngine.providerShortLabel(p.id)}: ${p.selectedModel}`)},
-                  )
-                | None => span(list{}, list{text("No provider")})
-                }
-              },
-              span(
-                list{},
-                list{
-                  text(
-                    `${AiEngine.formatTokens(ai.totalInputTokens)} in / ${AiEngine.formatTokens(
-                        ai.totalOutputTokens,
-                      )} out`,
-                  ),
-                },
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    `px-2 py-1 rounded transition-colors ${ai.broadcastMode
-                        ? "bg-orange-500/20 text-orange-300"
-                        : "text-gray-600 hover:text-gray-400"}`,
-                  ),
-                  Events.onClick(Ai(ToggleBroadcast)),
-                  KeyboardNav.onActivate(Ai(ToggleBroadcast)),
-                },
-                list{text("Broadcast")},
-              ),
-              button(
-                list{
-                  Attrs.class_("text-gray-600 hover:text-gray-400 transition-colors"),
-                  Events.onClick(Ai(ClearAiHistory)),
-                  KeyboardNav.onActivate(Ai(ClearAiHistory)),
-                },
-                list{text("Clear")},
-              ),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ===========================================================================
-// Providers view
-// ===========================================================================
-
-/// Render the provider management view.
-let renderProviders = (ai: aiState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 overflow-y-auto p-4")},
-    list{
-      div(
-        list{Attrs.class_("space-y-4")},
-        ai.providers
-        ->AiEngine.sortByPriority
-        ->Array.map(p => {
-          let status = AiEngine.getProviderStatus(ai.providerStatuses, p.id)
-          div(
-            list{
-              Attrs.class_(
-                `border ${p.enabled ? "border-gray-700" : "border-gray-800"} rounded-lg p-4`,
-              ),
-            },
-            list{
-              // Provider header
-              div(
-                list{Attrs.class_("flex items-center justify-between mb-3")},
-                list{
-                  div(
-                    list{Attrs.class_("flex items-center gap-3")},
-                    list{
-                      div(
-                        list{
-                          Attrs.class_(`w-3 h-3 rounded-full ${AiEngine.statusDotClass(status)}`),
-                        },
-                        list{},
-                      ),
-                      div(
-                        list{Attrs.class_("text-lg font-medium text-gray-200")},
-                        list{text(AiEngine.providerLabel(p.id))},
-                      ),
-                      span(
-                        list{
-                          Attrs.class_(
-                            `text-xs px-2 py-0.5 rounded ${AiEngine.providerBgColour(p.id)}`,
-                          ),
-                        },
-                        list{text(`#${Int.toString(p.priority)}`)},
-                      ),
-                    },
-                  ),
-                  button(
-                    list{
-                      Attrs.class_(
-                        `px-3 py-1 rounded text-sm transition-colors ${p.enabled
-                            ? "bg-green-500/20 text-green-300 hover:bg-green-500/30"
-                            : "bg-gray-700 text-gray-400 hover:bg-gray-600"}`,
-                      ),
-                      Events.onClick(Ai(ToggleAiProvider(p.id))),
-                    },
-                    list{text(p.enabled ? "Enabled" : "Disabled")},
-                  ),
-                },
-              ),
-              // Model selector
-              div(
-                list{Attrs.class_("flex items-center gap-2 mb-2")},
-                list{
-                  span(list{Attrs.class_("text-xs text-gray-500")}, list{text("Model:")}),
-                  div(
-                    list{Attrs.class_("flex gap-1 flex-wrap")},
-                    AiEngine.providerModels(p.id)
-                    ->Array.map(m => {
-                      button(
-                        list{
-                          Attrs.class_(
-                            `px-2 py-1 text-xs rounded transition-colors ${p.selectedModel === m
-                                ? "bg-orange-500/20 text-orange-300"
-                                : "text-gray-500 hover:text-gray-300 hover:bg-gray-800"}`,
-                          ),
-                          Events.onClick(Ai(SetAiModel(p.id, m))),
-                        },
-                        list{text(m)},
-                      )
-                    })
-                    ->List.fromArray,
-                  ),
-                },
-              ),
-              // Status line
-              div(
-                list{Attrs.class_("text-xs text-gray-600")},
-                list{text(`Status: ${AiEngine.statusLabel(status)} | Env: ${p.envVar}`)},
-              ),
-              // Health check button
-              button(
-                list{
-                  Attrs.class_("mt-2 text-xs text-gray-500 hover:text-gray-300 transition-colors"),
-                  Events.onClick(Ai(CheckProvider(p.id))),
-                },
-                list{text("Check health")},
-              ),
-            },
-          )
-        })
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-// ===========================================================================
-// System prompt view
-// ===========================================================================
-
-/// Render the system prompt editor.
-let renderSystemPrompt = (ai: aiState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 overflow-y-auto p-4")},
-    list{
-      div(
-        list{Attrs.class_("mb-4")},
-        list{
-          div(
-            list{Attrs.class_("text-sm text-gray-400 mb-2")},
-            list{text("System Prompt (editable)")},
-          ),
-          textarea(
-            list{
-              Attrs.class_(
-                "w-full h-48 bg-gray-900 border border-gray-700 rounded-lg px-4 py-3 text-sm text-gray-200 font-mono resize-y focus:outline-none focus:border-orange-500",
-              ),
-              Attrs.value(ai.systemPrompt),
-              Events.onInput(text => Ai(SetSystemPrompt(text))),
-            },
-            list{},
-          ),
-        },
-      ),
-      {
-        if ai.autoContext !== "" {
-          div(
-            list{Attrs.class_("mb-4")},
-            list{
-              div(
-                list{Attrs.class_("text-sm text-gray-400 mb-2")},
-                list{text("Auto-generated Context (from loaded repo)")},
-              ),
-              div(
-                list{
-                  Attrs.class_(
-                    "w-full bg-gray-900/50 border border-gray-800 rounded-lg px-4 py-3 text-xs text-gray-500 font-mono max-h-96 overflow-y-auto whitespace-pre-wrap",
-                  ),
-                },
-                list{text(ai.autoContext)},
-              ),
-            },
-          )
-        } else {
-          noNode
-        }
-      },
-    },
-  )
-}
-
-// ===========================================================================
-// Context view
-// ===========================================================================
-
-/// Render the context inspector.
-let renderContext = (ai: aiState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 overflow-y-auto p-4")},
-    list{
-      div(
-        list{Attrs.class_("text-sm text-gray-400 mb-4")},
-        list{text("What the AI knows about the current session:")},
-      ),
-      div(
-        list{Attrs.class_("space-y-4")},
-        list{
-          // Context sections
-          div(
-            list{Attrs.class_("border border-gray-800 rounded-lg p-4")},
-            list{
-              div(
-                list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wider mb-2")},
-                list{text("Conversation History")},
-              ),
-              div(
-                list{Attrs.class_("text-sm text-gray-300")},
-                list{text(`${Int.toString(Array.length(ai.messages))} messages`)},
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("border border-gray-800 rounded-lg p-4")},
-            list{
-              div(
-                list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wider mb-2")},
-                list{text("System Prompt Size")},
-              ),
-              div(
-                list{Attrs.class_("text-sm text-gray-300")},
-                list{text(`${Int.toString(String.length(ai.systemPrompt))} characters`)},
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("border border-gray-800 rounded-lg p-4")},
-            list{
-              div(
-                list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wider mb-2")},
-                list{text("Auto Context")},
-              ),
-              div(
-                list{Attrs.class_("text-sm text-gray-300")},
-                list{
-                  text(
-                    ai.autoContext === ""
-                      ? "None — load a repo to populate"
-                      : `${Int.toString(String.length(ai.autoContext))} characters from repo`,
-                  ),
-                },
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("border border-gray-800 rounded-lg p-4")},
-            list{
-              div(
-                list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wider mb-2")},
-                list{text("Broadcast Mode")},
-              ),
-              div(
-                list{Attrs.class_("text-sm text-gray-300")},
-                list{
-                  text(
-                    ai.broadcastMode
-                      ? "Enabled — sending to multiple providers"
-                      : "Disabled — single provider",
-                  ),
-                },
-              ),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ===========================================================================
-// Main view (full panel overlay)
-// ===========================================================================
-
-/// Render the full AI panel overlay with three-region layout.
-let view = (ai: aiState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col")},
-    list{
-      // Header bar
-      div(
-        list{Attrs.class_("flex items-center justify-between px-6 py-3 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              div(list{Attrs.class_("text-lg font-light text-gray-200")}, list{text("AI Panel")}),
-              {
-                let selected = AiEngine.selectProvider(ai.providers)
-                switch selected {
-                | Some(p) =>
-                  span(
-                    list{
-                      Attrs.class_(
-                        `text-xs px-2 py-0.5 rounded ${AiEngine.providerBgColour(p.id)}`,
-                      ),
-                    },
-                    list{text(AiEngine.providerShortLabel(p.id))},
-                  )
-                | None => noNode
-                }
-              },
-              {
-                if ai.broadcastMode {
-                  span(
-                    list{
-                      Attrs.class_("text-xs px-2 py-0.5 rounded bg-orange-500/20 text-orange-300"),
-                    },
-                    list{text("Broadcast")},
-                  )
-                } else {
-                  noNode
-                }
-              },
-            },
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-4 py-2 bg-gray-800 text-gray-300 rounded hover:bg-gray-700 transition-colors",
-              ),
-              Events.onClick(PanelSwitcher(ClosePanels)),
-              KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-            },
-            list{text("Close")},
-          ),
-        },
-      ),
-      // Category tabs
-      renderCategoryTabBar(ai.activeCategory),
-      // Main content area (sidebar + main region)
-      div(
-        list{Attrs.class_("flex-1 flex overflow-hidden")},
-        list{
-          // Left sidebar (always visible)
-          renderSidebar(ai),
-          // Main content (switches by category)
-          div(
-            list{Attrs.class_("flex-1 flex flex-col")},
-            list{
-              {
-                switch ai.activeCategory {
-                | Conversation => renderConversation(ai)
-                | SystemPrompt => renderSystemPrompt(ai)
-                | Providers => renderProviders(ai)
-                | Context => renderContext(ai)
-                }
-              },
-              {
-                if ai.activeCategory === Conversation {
-                  renderInputArea(ai)
-                } else {
-                  noNode
-                }
-              },
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/AmbientOps.affine b/src/components/AmbientOps.affine
new file mode 100644
index 00000000..0dcdbf14
--- /dev/null
+++ b/src/components/AmbientOps.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AmbientOps;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/AmbientOps.res b/src/components/AmbientOps.res
deleted file mode 100644
index f53da444..00000000
--- a/src/components/AmbientOps.res
+++ /dev/null
@@ -1,243 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL AmbientOps Component — hospital-model sysadmin operations panel.
-///
-/// Integrates the AmbientOps framework departments:
-///   - Clinician: AI-assisted sysadmin diagnostics (Rust)
-///   - Network Ambulance: Network repair (Ada/SPARK + bash)
-///   - Hardware Crash Team: GPU/PCIe diagnostics (Rust)
-///   - Emergency Room: Panic-safe intake (V)
-///   - Observatory: System weather (Elixir)
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a severity badge.
-let severityBadge = (severity: diagnosticSeverity): Tea_Vdom.t<msg> => {
-  let (color, label) = switch severity {
-  | Info => ("text-blue-400", "INFO")
-  | Warning => ("text-yellow-400", "WARN")
-  | Error => ("text-red-400", "ERROR")
-  | Critical => ("text-red-500 font-bold", "CRIT")
-  }
-  span(list{Attrs.class_("text-xs font-mono px-1 rounded " ++ color)}, list{text(label)})
-}
-
-/// Render a finding row.
-let findingRow = (finding: diagnosticFinding): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("flex items-start gap-3 py-2 px-3 border-b border-gray-800"),
-      Attrs.role("row"),
-    },
-    list{
-      severityBadge(finding.severity),
-      div(
-        list{Attrs.class_("flex-1")},
-        list{
-          div(list{Attrs.class_("text-sm text-gray-200")}, list{text(finding.summary)}),
-          div(
-            list{Attrs.class_("text-xs text-gray-500 mt-0.5")},
-            list{
-              text(AmbientOpsEngine.departmentLabel(finding.department)),
-              if finding.repairAvailable {
-                span(list{Attrs.class_("ml-2 text-green-500")}, list{text("[repair available]")})
-              } else {
-                Tea_Html.noNode
-              },
-            },
-          ),
-        },
-      ),
-      span(list{Attrs.class_("text-xs text-gray-600 shrink-0")}, list{text(finding.timestamp)}),
-    },
-  )
-}
-
-/// Render a tab button.
-let tabBtn = (current: ambientOpsTab, target: ambientOpsTab, label: string): Tea_Vdom.t<msg> => {
-  let active = current == target
-  button(
-    list{
-      Attrs.class_(
-        "px-3 py-1 text-xs rounded " ++ if active {
-          "bg-teal-700 text-white"
-        } else {
-          "bg-gray-800 text-gray-400 hover:bg-gray-700"
-        },
-      ),
-      Events.onClick(AmbientOps(SetOpsTab(target))),
-      Attrs.role("tab"),
-      Attrs.ariaSelected(active),
-    },
-    list{text(label)},
-  )
-}
-
-/// Availability indicator.
-let availDot = (available: bool, label: string): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex items-center gap-2 text-xs")},
-    list{
-      span(
-        list{
-          Attrs.class_(
-            "w-2 h-2 rounded-full " ++ if available {
-              "bg-green-400"
-            } else {
-              "bg-red-500"
-            },
-          ),
-        },
-        list{},
-      ),
-      span(
-        list{
-          Attrs.class_(
-            if available {
-              "text-gray-300"
-            } else {
-              "text-gray-600"
-            },
-          ),
-        },
-        list{text(label)},
-      ),
-    },
-  )
-}
-
-/// Main view function for the AmbientOps panel.
-let view = (state: ambientOpsState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("AmbientOps — Hospital-Model Sysadmin"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          h2(list{Attrs.class_("text-lg font-bold text-teal-300")}, list{text("AmbientOps")}),
-          div(
-            list{Attrs.class_("flex gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-xs rounded bg-teal-700 text-white hover:bg-teal-600",
-                  ),
-                  Events.onClick(AmbientOps(RunDiagnostics)),
-                  KeyboardNav.onActivate(AmbientOps(RunDiagnostics)),
-                },
-                list{
-                  text(
-                    if state.scanning {
-                      "Scanning..."
-                    } else {
-                      "Run Diagnostics"
-                    },
-                  ),
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Tabs
-      div(
-        list{Attrs.class_("flex gap-1 px-4 py-2 border-b border-gray-800"), Attrs.role("tablist")},
-        list{
-          tabBtn(state.activeTab, TabDashboard, "Dashboard"),
-          tabBtn(state.activeTab, TabClinician, "Clinician"),
-          tabBtn(state.activeTab, TabNetwork, "Network"),
-          tabBtn(state.activeTab, TabHardware, "Hardware"),
-          tabBtn(state.activeTab, TabEmergency, "Emergency"),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 px-3 py-2 bg-red-900/50 border border-red-700 rounded text-sm text-red-200",
-            ),
-            Events.onClick(AmbientOps(DismissOpsError)),
-            KeyboardNav.onActivate(AmbientOps(DismissOpsError)),
-          },
-          list{text(err)},
-        )
-      | None => Tea_Html.noNode
-      },
-      // Tool availability bar
-      div(
-        list{Attrs.class_("flex gap-6 px-4 py-2 border-b border-gray-800")},
-        list{
-          availDot(state.clinicianAvailable, "Clinician"),
-          availDot(state.networkRepairAvailable, "Network Repair"),
-          availDot(state.hardwareCrashTeamAvailable, "HW Crash Team"),
-        },
-      ),
-      // Findings count summary
-      div(
-        list{Attrs.class_("flex gap-4 px-4 py-1 text-xs text-gray-400 border-b border-gray-800")},
-        list{
-          span(
-            list{},
-            list{
-              text(
-                "Critical: " ++
-                Int.toString(AmbientOpsEngine.countBySeverity(state.findings, Critical)),
-              ),
-            },
-          ),
-          span(
-            list{},
-            list{
-              text(
-                "Errors: " ++ Int.toString(AmbientOpsEngine.countBySeverity(state.findings, Error)),
-              ),
-            },
-          ),
-          span(
-            list{},
-            list{
-              text(
-                "Warnings: " ++
-                Int.toString(AmbientOpsEngine.countBySeverity(state.findings, Warning)),
-              ),
-            },
-          ),
-          span(list{}, list{text("Total: " ++ Int.toString(Array.length(state.findings)))}),
-        },
-      ),
-      // Content — filtered findings
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto")},
-        {
-          let filtered = switch state.activeTab {
-          | TabDashboard => state.findings
-          | TabClinician => AmbientOpsEngine.findingsForDepartment(state.findings, Clinician)
-          | TabNetwork => AmbientOpsEngine.findingsForDepartment(state.findings, NetworkAmbulance)
-          | TabHardware => AmbientOpsEngine.findingsForDepartment(state.findings, HardwareCrashTeam)
-          | TabEmergency => AmbientOpsEngine.findingsForDepartment(state.findings, EmergencyRoom)
-          }
-          if Array.length(filtered) == 0 {
-            list{
-              div(
-                list{Attrs.class_("flex items-center justify-center h-32 text-gray-600 text-sm")},
-                list{text("No findings. Run diagnostics to scan.")},
-              ),
-            }
-          } else {
-            filtered->Array.map(findingRow)->List.fromArray
-          }
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/ArchitectMode.affine b/src/components/ArchitectMode.affine
new file mode 100644
index 00000000..ede1ceeb
--- /dev/null
+++ b/src/components/ArchitectMode.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ArchitectMode;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/ArchitectMode.res b/src/components/ArchitectMode.res
deleted file mode 100644
index 630cf700..00000000
--- a/src/components/ArchitectMode.res
+++ /dev/null
@@ -1,441 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Architect Mode Component — PixiJS fine-grained level editor.
-/// Displays tool palette, canvas placeholder, property inspector for
-/// selected entities, AI suggestion list, and undo/redo buttons.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a tool label from architectEditorTool.
-let toolLabel = (tool: architectEditorTool): string => {
-  switch tool {
-  | SelectTool => "Select"
-  | PlaceTool(_) => "Place"
-  | EraseTool => "Erase"
-  | WireTool => "Wire"
-  | ZoneTool => "Zone"
-  | PanTool => "Pan"
-  }
-}
-
-/// Render a tool palette button.
-let toolButton = (
-  currentTool: architectEditorTool,
-  tool: architectEditorTool,
-  label: string,
-): Tea_Vdom.t<msg> => {
-  let isActive = toolLabel(currentTool) == toolLabel(tool)
-  button(
-    list{
-      Attrs.class_(
-        "px-3 py-1.5 text-xs rounded border " ++ if isActive {
-          "bg-fuchsia-700 border-fuchsia-600 text-white"
-        } else {
-          "bg-gray-800 border-gray-700 text-gray-400 hover:text-gray-200"
-        },
-      ),
-    },
-    list{text(label)},
-  )
-}
-
-/// Main view function for the Architect Mode panel.
-let view = (state: architectModeState): Tea_Vdom.t<msg> => {
-  let entityCount = Array.length(state.entities)
-  let zoneCount = Array.length(state.zones)
-  let undoCount = Array.length(state.undoStack)
-  let redoCount = Array.length(state.redoStack)
-
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Architect Mode — PixiJS Level Editor"),
-    },
-    list{
-      // Header row
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-bold text-fuchsia-300")},
-                list{text("Architect Mode")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-400")},
-                list{
-                  text(
-                    Int.toString(entityCount) ++
-                    " entities, " ++
-                    Int.toString(zoneCount) ++ " zones",
-                  ),
-                },
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{text("Zoom: " ++ Float.toFixed(state.zoom, ~digits=1) ++ "x")},
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-2 py-1 text-xs rounded " ++ if undoCount > 0 {
-                      "bg-gray-700 text-gray-200 hover:bg-gray-600"
-                    } else {
-                      "bg-gray-800 text-gray-600 cursor-not-allowed"
-                    },
-                  ),
-                },
-                list{text("Undo (" ++ Int.toString(undoCount) ++ ")")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-2 py-1 text-xs rounded " ++ if redoCount > 0 {
-                      "bg-gray-700 text-gray-200 hover:bg-gray-600"
-                    } else {
-                      "bg-gray-800 text-gray-600 cursor-not-allowed"
-                    },
-                  ),
-                },
-                list{text("Redo (" ++ Int.toString(redoCount) ++ ")")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Tab bar
-      div(
-        list{Attrs.class_("flex gap-1 px-4 py-2 border-b border-gray-800")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Canvas {
-                  "bg-fuchsia-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(ArchitectMode(SetArchModeCategory(Canvas))),
-            },
-            list{text("Canvas")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Properties {
-                  "bg-fuchsia-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(ArchitectMode(SetArchModeCategory(Properties))),
-            },
-            list{text("Properties")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == AiSuggestions {
-                  "bg-fuchsia-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(ArchitectMode(SetArchModeCategory(AiSuggestions))),
-            },
-            list{text("AI Suggestions")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Validation {
-                  "bg-fuchsia-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(ArchitectMode(SetArchModeCategory(Validation))),
-            },
-            list{text("Validation")},
-          ),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 px-3 py-2 bg-red-900/50 border border-red-700 rounded text-sm text-red-200 flex justify-between items-center",
-            ),
-          },
-          list{
-            text(err),
-            button(
-              list{
-                Attrs.class_("text-red-400 hover:text-red-200 text-xs ml-2"),
-                Events.onClick(ArchitectMode(DismissArchModeError)),
-                KeyboardNav.onActivate(ArchitectMode(DismissArchModeError)),
-              },
-              list{text("Dismiss")},
-            ),
-          },
-        )
-      | None => Tea_Html.noNode
-      },
-      // Content area
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto px-4 py-4")},
-        list{
-          switch state.activeTab {
-          | Canvas =>
-            div(
-              list{Attrs.class_("space-y-3")},
-              list{
-                // Tool palette
-                div(
-                  list{Attrs.class_("flex gap-2 flex-wrap")},
-                  list{
-                    toolButton(state.selectedTool, SelectTool, "Select"),
-                    toolButton(state.selectedTool, PlaceTool(""), "Place"),
-                    toolButton(state.selectedTool, EraseTool, "Erase"),
-                    toolButton(state.selectedTool, WireTool, "Wire"),
-                    toolButton(state.selectedTool, ZoneTool, "Zone"),
-                    toolButton(state.selectedTool, PanTool, "Pan"),
-                  },
-                ),
-                // Canvas placeholder
-                div(
-                  list{
-                    Attrs.class_(
-                      "w-full h-64 bg-gray-900 border border-gray-800 rounded flex items-center justify-center",
-                    ),
-                  },
-                  list{
-                    span(
-                      list{Attrs.class_("text-gray-600 text-sm")},
-                      list{
-                        text(
-                          "PixiJS canvas — " ++
-                          Int.toString(entityCount) ++
-                          " entities, " ++
-                          Int.toString(zoneCount) ++ " zones",
-                        ),
-                      },
-                    ),
-                  },
-                ),
-                // Grid controls
-                div(
-                  list{Attrs.class_("flex gap-4 text-xs text-gray-400")},
-                  list{
-                    span(
-                      list{},
-                      list{
-                        text(
-                          "Grid: " ++ if state.gridVisible {
-                            "visible"
-                          } else {
-                            "hidden"
-                          },
-                        ),
-                      },
-                    ),
-                    span(
-                      list{},
-                      list{
-                        text(
-                          "Snap: " ++ if state.snapToGrid {
-                            "on"
-                          } else {
-                            "off"
-                          },
-                        ),
-                      },
-                    ),
-                    span(list{}, list{text("Cell: " ++ Int.toString(state.gridSize) ++ "px")}),
-                  },
-                ),
-              },
-            )
-          | Properties =>
-            switch state.selectedEntityId {
-            | Some(eid) =>
-              switch state.entities->Array.find(e => e.id == eid) {
-              | Some(entity) =>
-                div(
-                  list{Attrs.class_("space-y-3")},
-                  list{
-                    div(
-                      list{Attrs.class_("flex items-center gap-2 mb-2")},
-                      list{
-                        span(
-                          list{Attrs.class_("text-sm font-bold text-fuchsia-300")},
-                          list{text(entity.kind)},
-                        ),
-                        span(
-                          list{Attrs.class_("text-xs text-gray-500 font-mono")},
-                          list{text(entity.id)},
-                        ),
-                      },
-                    ),
-                    div(
-                      list{Attrs.class_("grid grid-cols-2 gap-2 text-xs")},
-                      list{
-                        span(list{Attrs.class_("text-gray-400")}, list{text("X:")}),
-                        span(
-                          list{Attrs.class_("text-gray-200 font-mono")},
-                          list{text(Float.toFixed(entity.x, ~digits=1))},
-                        ),
-                        span(list{Attrs.class_("text-gray-400")}, list{text("Y:")}),
-                        span(
-                          list{Attrs.class_("text-gray-200 font-mono")},
-                          list{text(Float.toFixed(entity.y, ~digits=1))},
-                        ),
-                        span(list{Attrs.class_("text-gray-400")}, list{text("Rotation:")}),
-                        span(
-                          list{Attrs.class_("text-gray-200 font-mono")},
-                          list{text(Float.toFixed(entity.rotation, ~digits=0) ++ " deg")},
-                        ),
-                      },
-                    ),
-                  },
-                )
-              | None =>
-                div(
-                  list{Attrs.class_("text-xs text-gray-500")},
-                  list{text("Entity not found: " ++ eid)},
-                )
-              }
-            | None =>
-              div(
-                list{Attrs.class_("text-center text-gray-500 py-8")},
-                list{text("Select an entity on the canvas to inspect its properties.")},
-              )
-            }
-          | AiSuggestions =>
-            div(
-              list{Attrs.class_("space-y-2")},
-              list{
-                div(
-                  list{Attrs.class_("text-xs text-gray-400 mb-2")},
-                  list{text(Int.toString(Array.length(state.aiSuggestions)) ++ " AI suggestions")},
-                ),
-                div(
-                  list{},
-                  state.aiSuggestions
-                  ->Array.map(s =>
-                    div(
-                      list{
-                        Attrs.class_(
-                          "px-3 py-2 mb-2 border rounded " ++ if s.applied {
-                            "bg-green-900/20 border-green-800"
-                          } else {
-                            "bg-gray-900 border-gray-800"
-                          },
-                        ),
-                      },
-                      list{
-                        div(
-                          list{Attrs.class_("flex items-center justify-between")},
-                          list{
-                            span(
-                              list{Attrs.class_("text-sm text-gray-200")},
-                              list{text(s.description)},
-                            ),
-                            span(
-                              list{Attrs.class_("text-xs font-mono text-fuchsia-400")},
-                              list{text(Float.toFixed(s.confidence *. 100.0, ~digits=0) ++ "%")},
-                            ),
-                          },
-                        ),
-                        div(
-                          list{Attrs.class_("text-xs text-gray-500 mt-1")},
-                          list{
-                            text(Int.toString(Array.length(s.entities)) ++ " entities suggested"),
-                          },
-                        ),
-                        if s.applied {
-                          span(
-                            list{Attrs.class_("text-xs text-green-400 mt-1")},
-                            list{text("Applied")},
-                          )
-                        } else {
-                          button(
-                            list{
-                              Attrs.class_("text-xs text-fuchsia-400 hover:text-fuchsia-300 mt-1"),
-                            },
-                            list{text("Apply")},
-                          )
-                        },
-                      },
-                    )
-                  )
-                  ->List.fromArray,
-                ),
-              },
-            )
-          | Validation =>
-            div(
-              list{Attrs.class_("space-y-3")},
-              list{
-                // Entity list for validation
-                div(
-                  list{Attrs.class_("text-xs text-gray-400 mb-2")},
-                  list{
-                    text(
-                      Int.toString(entityCount) ++
-                      " entities, " ++
-                      Int.toString(zoneCount) ++ " zones on canvas",
-                    ),
-                  },
-                ),
-                // Show entities without zones
-                div(
-                  list{Attrs.class_("space-y-1")},
-                  state.entities
-                  ->Array.filter(e => e.selected)
-                  ->Array.map(e =>
-                    div(
-                      list{
-                        Attrs.class_(
-                          "flex items-center gap-2 text-xs px-2 py-1 bg-gray-900 rounded",
-                        ),
-                      },
-                      list{
-                        span(list{Attrs.class_("text-fuchsia-300")}, list{text(e.kind)}),
-                        span(
-                          list{Attrs.class_("text-gray-500 font-mono")},
-                          list{
-                            text(
-                              "(" ++
-                              Float.toFixed(e.x, ~digits=0) ++
-                              ", " ++
-                              Float.toFixed(e.y, ~digits=0) ++ ")",
-                            ),
-                          },
-                        ),
-                      },
-                    )
-                  )
-                  ->List.fromArray,
-                ),
-              },
-            )
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/AssetManager.affine b/src/components/AssetManager.affine
new file mode 100644
index 00000000..27381f05
--- /dev/null
+++ b/src/components/AssetManager.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AssetManager;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/AssetManager.res b/src/components/AssetManager.res
deleted file mode 100644
index 4b5b61c1..00000000
--- a/src/components/AssetManager.res
+++ /dev/null
@@ -1,350 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Asset Manager Component — PixiJS sprites, sounds, level templates.
-/// Displays asset grid with thumbnails/icons, filter by kind, collection
-/// organiser, and usage tracker.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render an asset kind label.
-let assetKindLabel = (kind: assetKind): string => {
-  switch kind {
-  | Sprite => "Sprite"
-  | SpriteSheet => "SpriteSheet"
-  | Sound => "Sound"
-  | Music => "Music"
-  | Font => "Font"
-  | LevelTemplate => "Template"
-  | ParticleEffect => "Particle"
-  }
-}
-
-/// Render an asset kind icon/colour.
-let assetKindColor = (kind: assetKind): string => {
-  switch kind {
-  | Sprite => "text-pink-400"
-  | SpriteSheet => "text-pink-300"
-  | Sound => "text-yellow-400"
-  | Music => "text-purple-400"
-  | Font => "text-gray-400"
-  | LevelTemplate => "text-green-400"
-  | ParticleEffect => "text-cyan-400"
-  }
-}
-
-/// Format file size in human-readable form.
-let formatSize = (bytes: int): string => {
-  if bytes >= 1048576 {
-    Float.toFixed(Int.toFloat(bytes) /. 1048576.0, ~digits=1) ++ " MB"
-  } else if bytes >= 1024 {
-    Float.toFixed(Int.toFloat(bytes) /. 1024.0, ~digits=1) ++ " KB"
-  } else {
-    Int.toString(bytes) ++ " B"
-  }
-}
-
-/// Main view function for the Asset Manager panel.
-let view = (state: assetManagerState): Tea_Vdom.t<msg> => {
-  let totalAssets = Array.length(state.assets)
-  let collectionCount = Array.length(state.collections)
-
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Asset Manager — Game Asset Library"),
-    },
-    list{
-      // Header row
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-bold text-pink-300")},
-                list{text("Asset Manager")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-400")},
-                list{
-                  text(
-                    Int.toString(totalAssets) ++
-                    " assets, " ++
-                    Int.toString(collectionCount) ++ " collections",
-                  ),
-                },
-              ),
-              if state.importing {
-                span(
-                  list{Attrs.class_("text-xs text-yellow-400 animate-pulse")},
-                  list{text("Importing...")},
-                )
-              } else {
-                Tea_Html.noNode
-              },
-            },
-          ),
-          button(
-            list{
-              Attrs.class_("px-3 py-1 text-xs bg-pink-800 hover:bg-pink-700 text-white rounded"),
-              Events.onClick(AssetManager(AmStarted)),
-              KeyboardNav.onActivate(AssetManager(AmStarted)),
-            },
-            list{text("Import")},
-          ),
-        },
-      ),
-      // Tab bar
-      div(
-        list{Attrs.class_("flex gap-1 px-4 py-2 border-b border-gray-800")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Browse {
-                  "bg-pink-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(AssetManager(SetAmCategory(Browse))),
-            },
-            list{text("Browse")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Import {
-                  "bg-pink-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(AssetManager(SetAmCategory(Import))),
-            },
-            list{text("Import")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Collections {
-                  "bg-pink-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(AssetManager(SetAmCategory(Collections))),
-            },
-            list{text("Collections")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Usage {
-                  "bg-pink-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(AssetManager(SetAmCategory(Usage))),
-            },
-            list{text("Usage")},
-          ),
-        },
-      ),
-      // Filter bar
-      div(
-        list{Attrs.class_("flex items-center gap-2 px-4 py-2 border-b border-gray-800")},
-        list{
-          input(
-            list{
-              Attrs.class_(
-                "flex-1 bg-gray-900 border border-gray-700 rounded px-2 py-1 text-xs text-gray-200",
-              ),
-              Attrs.value(state.filter),
-              Attrs.placeholder("Search assets..."),
-            },
-            list{},
-          ),
-          // Kind filter badges
-          span(list{Attrs.class_("text-xs text-gray-500")}, list{text("Kind:")}),
-          switch state.kindFilter {
-          | Some(k) =>
-            span(
-              list{Attrs.class_("px-2 py-0.5 text-xs bg-pink-900/50 text-pink-300 rounded")},
-              list{text(assetKindLabel(k))},
-            )
-          | None => span(list{Attrs.class_("text-xs text-gray-500")}, list{text("All")})
-          },
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 px-3 py-2 bg-red-900/50 border border-red-700 rounded text-sm text-red-200 flex justify-between items-center",
-            ),
-          },
-          list{
-            text(err),
-            button(
-              list{
-                Attrs.class_("text-red-400 hover:text-red-200 text-xs ml-2"),
-                Events.onClick(AssetManager(DismissAmError)),
-                KeyboardNav.onActivate(AssetManager(DismissAmError)),
-              },
-              list{text("Dismiss")},
-            ),
-          },
-        )
-      | None => Tea_Html.noNode
-      },
-      // Content area
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto px-4 py-4")},
-        list{
-          switch state.activeTab {
-          | Browse =>
-            // Asset grid
-            div(
-              list{Attrs.class_("grid grid-cols-3 gap-2")},
-              state.assets
-              ->Array.map(a => {
-                let isSelected = state.selectedAsset == Some(a.id)
-                div(
-                  list{
-                    Attrs.class_(
-                      "px-2 py-2 border rounded cursor-pointer " ++ if isSelected {
-                        "bg-pink-900/20 border-pink-700"
-                      } else {
-                        "bg-gray-900 border-gray-800 hover:border-gray-700"
-                      },
-                    ),
-                  },
-                  list{
-                    // Thumbnail placeholder
-                    div(
-                      list{
-                        Attrs.class_(
-                          "w-full h-16 bg-gray-800 rounded flex items-center justify-center mb-1",
-                        ),
-                      },
-                      list{
-                        span(
-                          list{Attrs.class_("text-xs font-mono " ++ assetKindColor(a.kind))},
-                          list{text(assetKindLabel(a.kind))},
-                        ),
-                      },
-                    ),
-                    div(list{Attrs.class_("text-xs text-gray-200 truncate")}, list{text(a.name)}),
-                    div(
-                      list{Attrs.class_("text-xs text-gray-500")},
-                      list{text(formatSize(a.sizeBytes))},
-                    ),
-                    if Array.length(a.tags) > 0 {
-                      div(
-                        list{Attrs.class_("flex flex-wrap gap-1 mt-1")},
-                        a.tags
-                        ->Array.map(t =>
-                          span(
-                            list{Attrs.class_("px-1 text-xs bg-gray-800 text-gray-500 rounded")},
-                            list{text(t)},
-                          )
-                        )
-                        ->List.fromArray,
-                      )
-                    } else {
-                      Tea_Html.noNode
-                    },
-                  },
-                )
-              })
-              ->List.fromArray,
-            )
-          | Import =>
-            div(
-              list{Attrs.class_("text-center py-8 space-y-4")},
-              list{
-                div(
-                  list{
-                    Attrs.class_(
-                      "w-full h-32 border-2 border-dashed border-gray-700 rounded flex items-center justify-center",
-                    ),
-                  },
-                  list{
-                    span(
-                      list{Attrs.class_("text-gray-500 text-sm")},
-                      list{text("Drop files here or click Import to select")},
-                    ),
-                  },
-                ),
-                div(
-                  list{Attrs.class_("text-xs text-gray-500")},
-                  list{text("Supports: PNG, WebP, WAV, OGG, MP3, TTF, WOFF2, JSON")},
-                ),
-              },
-            )
-          | Collections =>
-            div(
-              list{Attrs.class_("space-y-3")},
-              state.collections
-              ->Array.map(c =>
-                div(
-                  list{Attrs.class_("px-3 py-2 bg-gray-900 border border-gray-800 rounded")},
-                  list{
-                    div(
-                      list{Attrs.class_("flex items-center justify-between mb-1")},
-                      list{
-                        span(
-                          list{Attrs.class_("text-sm font-bold text-pink-300")},
-                          list{text(c.name)},
-                        ),
-                        span(
-                          list{Attrs.class_("text-xs text-gray-500")},
-                          list{text(Int.toString(Array.length(c.assets)) ++ " assets")},
-                        ),
-                      },
-                    ),
-                    div(list{Attrs.class_("text-xs text-gray-500")}, list{text(c.description)}),
-                  },
-                )
-              )
-              ->List.fromArray,
-            )
-          | Usage =>
-            div(
-              list{Attrs.class_("space-y-1")},
-              state.assets
-              ->Array.filter(a => Array.length(a.usedInLevels) > 0)
-              ->Array.map(a =>
-                div(
-                  list{Attrs.class_("flex items-center gap-3 py-1 border-b border-gray-800/50")},
-                  list{
-                    span(
-                      list{Attrs.class_("text-xs " ++ assetKindColor(a.kind))},
-                      list{text(assetKindLabel(a.kind))},
-                    ),
-                    span(list{Attrs.class_("text-sm text-gray-200 flex-1")}, list{text(a.name)}),
-                    span(
-                      list{Attrs.class_("text-xs text-gray-400")},
-                      list{
-                        text("Used in " ++ Int.toString(Array.length(a.usedInLevels)) ++ " levels"),
-                      },
-                    ),
-                  },
-                )
-              )
-              ->List.fromArray,
-            )
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/AutomationBridge.affine b/src/components/AutomationBridge.affine
new file mode 100644
index 00000000..643ec0f3
--- /dev/null
+++ b/src/components/AutomationBridge.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AutomationBridge;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/AutomationBridge.res b/src/components/AutomationBridge.res
deleted file mode 100644
index a5cbd60c..00000000
--- a/src/components/AutomationBridge.res
+++ /dev/null
@@ -1,381 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Automation Bridge Component — CI/CD pipeline orchestration for game
-/// builds. Displays pipeline lists with step progress, trigger rules, build
-/// status, and history table.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a pipeline status badge.
-let pipelineStatusBadge = (status: automationPipelineStatus): Tea_Vdom.t<msg> => {
-  let (color, label) = switch status {
-  | PipelineIdle => ("bg-gray-700 text-gray-300", "Idle")
-  | PipelineQueued => ("bg-blue-700 text-blue-100", "Queued")
-  | PipelineRunning => ("bg-yellow-700 text-yellow-100", "Running")
-  | PipelineSucceeded => ("bg-green-700 text-green-100", "Passed")
-  | PipelineFailed => ("bg-red-700 text-red-100", "Failed")
-  | PipelineCancelled => ("bg-gray-600 text-gray-300", "Cancelled")
-  }
-  span(list{Attrs.class_("px-2 py-0.5 text-xs rounded font-mono " ++ color)}, list{text(label)})
-}
-
-/// Render a trigger event label.
-let triggerEventLabel = (evt: automationTriggerEvent): string => {
-  switch evt {
-  | TriggerPush => "Push"
-  | TriggerPullRequest => "PR"
-  | TriggerTag => "Tag"
-  | TriggerSchedule => "Cron"
-  | TriggerManual => "Manual"
-  | TriggerFileChange => "FileChange"
-  }
-}
-
-/// Main view function for the Automation Bridge panel.
-let view = (state: automationBridgeState): Tea_Vdom.t<msg> => {
-  let totalPipelines = Array.length(state.pipelines)
-  let runningCount = state.pipelines->Array.filter(p => p.status == PipelineRunning)->Array.length
-
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Automation Bridge — CI/CD Pipeline Orchestration"),
-    },
-    list{
-      // Header row
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-bold text-emerald-300")},
-                list{text("Automation Bridge")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-400")},
-                list{
-                  text(
-                    Int.toString(totalPipelines) ++
-                    " pipelines, " ++
-                    Int.toString(runningCount) ++ " running",
-                  ),
-                },
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs bg-emerald-800 hover:bg-emerald-700 text-white rounded",
-              ),
-              Events.onClick(AutomationBridge(AutoBStarted)),
-              KeyboardNav.onActivate(AutomationBridge(AutoBStarted)),
-            },
-            list{text("Trigger Build")},
-          ),
-        },
-      ),
-      // Tab bar
-      div(
-        list{Attrs.class_("flex gap-1 px-4 py-2 border-b border-gray-800")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Pipelines {
-                  "bg-emerald-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(AutomationBridge(SetAutoBTab(Pipelines))),
-            },
-            list{text("Pipelines")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Triggers {
-                  "bg-emerald-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(AutomationBridge(SetAutoBTab(Triggers))),
-            },
-            list{text("Triggers")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Status {
-                  "bg-emerald-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(AutomationBridge(SetAutoBTab(Status))),
-            },
-            list{text("Status")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == History {
-                  "bg-emerald-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(AutomationBridge(SetAutoBTab(History))),
-            },
-            list{text("History")},
-          ),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 px-3 py-2 bg-red-900/50 border border-red-700 rounded text-sm text-red-200 flex justify-between items-center",
-            ),
-          },
-          list{
-            text(err),
-            button(
-              list{
-                Attrs.class_("text-red-400 hover:text-red-200 text-xs ml-2"),
-                Events.onClick(AutomationBridge(DismissAutoBError)),
-                KeyboardNav.onActivate(AutomationBridge(DismissAutoBError)),
-              },
-              list{text("Dismiss")},
-            ),
-          },
-        )
-      | None => Tea_Html.noNode
-      },
-      // Content area
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto px-4 py-4")},
-        list{
-          switch state.activeTab {
-          | Pipelines =>
-            div(
-              list{Attrs.class_("space-y-3")},
-              state.pipelines
-              ->Array.map(pipe =>
-                div(
-                  list{Attrs.class_("px-3 py-2 bg-gray-900 border border-gray-800 rounded")},
-                  list{
-                    div(
-                      list{Attrs.class_("flex items-center justify-between mb-2")},
-                      list{
-                        span(
-                          list{Attrs.class_("text-sm font-bold text-gray-200")},
-                          list{text(pipe.name)},
-                        ),
-                        pipelineStatusBadge(pipe.status),
-                      },
-                    ),
-                    // Step progress
-                    div(
-                      list{Attrs.class_("space-y-1")},
-                      pipe.steps
-                      ->Array.map(step =>
-                        div(
-                          list{Attrs.class_("flex items-center gap-2")},
-                          list{
-                            span(
-                              list{
-                                Attrs.class_(
-                                  "w-2 h-2 rounded-full " ++
-                                  switch step.status {
-                                  | PipelineSucceeded => "bg-green-500"
-                                  | PipelineFailed => "bg-red-500"
-                                  | PipelineRunning => "bg-yellow-500 animate-pulse"
-                                  | _ => "bg-gray-600"
-                                  },
-                                ),
-                              },
-                              list{},
-                            ),
-                            span(
-                              list{Attrs.class_("text-xs text-gray-400 flex-1")},
-                              list{text(step.name)},
-                            ),
-                            switch step.durationMs {
-                            | Some(d) =>
-                              span(
-                                list{Attrs.class_("text-xs text-gray-600")},
-                                list{text(Float.toFixed(d, ~digits=0) ++ "ms")},
-                              )
-                            | None => Tea_Html.noNode
-                            },
-                          },
-                        )
-                      )
-                      ->List.fromArray,
-                    ),
-                  },
-                )
-              )
-              ->List.fromArray,
-            )
-          | Triggers =>
-            div(
-              list{Attrs.class_("space-y-2")},
-              state.triggers
-              ->Array.map(t =>
-                div(
-                  list{Attrs.class_("flex items-center gap-3 py-2 border-b border-gray-800/50")},
-                  list{
-                    span(
-                      list{
-                        Attrs.class_(
-                          "w-2 h-2 rounded-full " ++ if t.enabled {
-                            "bg-green-500"
-                          } else {
-                            "bg-gray-600"
-                          },
-                        ),
-                      },
-                      list{},
-                    ),
-                    div(
-                      list{Attrs.class_("flex-1 min-w-0")},
-                      list{
-                        div(list{Attrs.class_("text-sm text-gray-200")}, list{text(t.description)}),
-                        div(
-                          list{Attrs.class_("text-xs text-gray-500")},
-                          list{text(triggerEventLabel(t.event) ++ " | " ++ t.pattern)},
-                        ),
-                      },
-                    ),
-                    span(
-                      list{Attrs.class_("text-xs font-mono text-gray-500")},
-                      list{text(t.pipelineId)},
-                    ),
-                  },
-                )
-              )
-              ->List.fromArray,
-            )
-          | Status =>
-            div(
-              list{Attrs.class_("space-y-2")},
-              state.pipelines
-              ->Array.filter(p => p.status == PipelineRunning || p.status == PipelineQueued)
-              ->Array.map(pipe => {
-                let completedSteps =
-                  pipe.steps->Array.filter(s => s.status == PipelineSucceeded)->Array.length
-                let totalSteps = Array.length(pipe.steps)
-                div(
-                  list{Attrs.class_("px-3 py-2 bg-gray-900 border border-gray-800 rounded")},
-                  list{
-                    div(
-                      list{Attrs.class_("flex items-center justify-between mb-1")},
-                      list{
-                        span(list{Attrs.class_("text-sm text-gray-200")}, list{text(pipe.name)}),
-                        span(
-                          list{Attrs.class_("text-xs text-gray-400")},
-                          list{
-                            text(
-                              Int.toString(completedSteps) ++
-                              "/" ++
-                              Int.toString(totalSteps) ++ " steps",
-                            ),
-                          },
-                        ),
-                      },
-                    ),
-                    // Progress bar
-                    div(
-                      list{Attrs.class_("w-full h-2 bg-gray-800 rounded overflow-hidden")},
-                      list{
-                        div(
-                          list{
-                            Attrs.class_("h-full bg-emerald-500 transition-all"),
-                            Attrs.style(
-                              "width",
-                              Float.toFixed(
-                                if totalSteps > 0 {
-                                  Int.toFloat(completedSteps) /. Int.toFloat(totalSteps) *. 100.0
-                                } else {
-                                  0.0
-                                },
-                                ~digits=1,
-                              ) ++ "%",
-                            ),
-                          },
-                          list{},
-                        ),
-                      },
-                    ),
-                  },
-                )
-              })
-              ->List.fromArray,
-            )
-          | History =>
-            div(
-              list{},
-              list{
-                // History table header
-                div(
-                  list{
-                    Attrs.class_(
-                      "flex gap-2 text-xs text-gray-500 font-mono border-b border-gray-800 pb-1 mb-2",
-                    ),
-                  },
-                  list{
-                    span(list{Attrs.class_("w-24")}, list{text("Build")}),
-                    span(list{Attrs.class_("flex-1")}, list{text("Pipeline")}),
-                    span(list{Attrs.class_("w-16")}, list{text("Trigger")}),
-                    span(list{Attrs.class_("w-20")}, list{text("Duration")}),
-                    span(list{Attrs.class_("w-20")}, list{text("Status")}),
-                  },
-                ),
-                div(
-                  list{Attrs.class_("space-y-1")},
-                  state.buildHistory
-                  ->Array.map(entry =>
-                    div(
-                      list{Attrs.class_("flex gap-2 text-xs py-1 border-b border-gray-800/30")},
-                      list{
-                        span(
-                          list{Attrs.class_("w-24 font-mono text-gray-500 truncate")},
-                          list{text(entry.commitSha->String.slice(~start=0, ~end=7))},
-                        ),
-                        span(
-                          list{Attrs.class_("flex-1 text-gray-300")},
-                          list{text(entry.pipelineName)},
-                        ),
-                        span(
-                          list{Attrs.class_("w-16 text-gray-500")},
-                          list{text(triggerEventLabel(entry.triggeredBy))},
-                        ),
-                        span(
-                          list{Attrs.class_("w-20 text-gray-500")},
-                          list{text(Float.toFixed(entry.durationMs /. 1000.0, ~digits=1) ++ "s")},
-                        ),
-                        span(list{Attrs.class_("w-20")}, list{pipelineStatusBadge(entry.status)}),
-                      },
-                    )
-                  )
-                  ->List.fromArray,
-                ),
-              },
-            )
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/AutomationRouter.affine b/src/components/AutomationRouter.affine
new file mode 100644
index 00000000..7fb3c38a
--- /dev/null
+++ b/src/components/AutomationRouter.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AutomationRouter;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/AutomationRouter.res b/src/components/AutomationRouter.res
deleted file mode 100644
index c26bb3b5..00000000
--- a/src/components/AutomationRouter.res
+++ /dev/null
@@ -1,639 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Automation Router Component — view for cross-panel workflow
-/// orchestration with event-driven rules and hybrid approval gates.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a category tab button.
-let renderTab = (
-  label: string,
-  cat: automationRouterCategory,
-  active: automationRouterCategory,
-): Tea_Vdom.t<msg> => {
-  let isActive = cat === active
-  let cls = isActive
-    ? "px-3 py-1.5 text-xs font-medium bg-gray-700 text-white rounded"
-    : "px-3 py-1.5 text-xs text-gray-400 hover:text-gray-200 hover:bg-gray-800 rounded cursor-pointer"
-  button(
-    list{Attrs.class_(cls), Events.onClick(AutomationRouter(SetRouterCategory(cat)))},
-    list{text(label)},
-  )
-}
-
-/// Render dashboard — stats cards, global toggle, recent executions.
-let renderDashboard = (state: automationRouterState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-4")},
-    list{
-      // Stats row
-      div(
-        list{Attrs.class_("grid grid-cols-4 gap-3")},
-        list{
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-cyan-400")},
-                list{text(Int.toString(AutomationRouterEngine.enabledCount(state.rules)))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Active Rules")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-amber-400")},
-                list{text(Int.toString(AutomationRouterEngine.pendingCount(state.pendingActions)))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Pending Approval")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-emerald-400")},
-                list{
-                  text(
-                    AutomationRouterEngine.formatSuccessRate(
-                      AutomationRouterEngine.successRate(state.executionLog),
-                    ),
-                  ),
-                },
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Success Rate")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-gray-300")},
-                list{text(Int.toString(Array.length(state.executionLog)))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Executions")}),
-            },
-          ),
-        },
-      ),
-      // Global toggle
-      div(
-        list{Attrs.class_("flex items-center gap-3")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                if state.globalEnabled {
-                  "px-4 py-2 text-sm bg-emerald-700 text-white rounded hover:bg-emerald-600 cursor-pointer"
-                } else {
-                  "px-4 py-2 text-sm bg-red-800 text-red-200 rounded hover:bg-red-700 cursor-pointer"
-                },
-              ),
-              Events.onClick(AutomationRouter(ToggleGlobalEnabled)),
-              KeyboardNav.onActivate(AutomationRouter(ToggleGlobalEnabled)),
-            },
-            list{
-              text(
-                if state.globalEnabled {
-                  "Automation: ON"
-                } else {
-                  "Automation: OFF"
-                },
-              ),
-            },
-          ),
-          span(
-            list{Attrs.class_("text-xs text-gray-500")},
-            list{text(`${Int.toString(Array.length(state.rules))} rules configured`)},
-          ),
-        },
-      ),
-      // Recent executions
-      if Array.length(state.executionLog) > 0 {
-        div(
-          list{Attrs.class_("space-y-1")},
-          list{
-            div(list{Attrs.class_("text-xs text-gray-400 mb-1")}, list{text("Recent Executions")}),
-            ...state.executionLog
-            ->Array.slice(~start=0, ~end=5)
-            ->Array.map(entry =>
-              div(
-                list{Attrs.class_("flex items-center gap-3 p-2 bg-gray-800 rounded text-xs")},
-                list{
-                  span(
-                    list{
-                      Attrs.class_(
-                        if entry.success {
-                          "text-emerald-400"
-                        } else {
-                          "text-red-400"
-                        },
-                      ),
-                    },
-                    list{
-                      text(
-                        if entry.success {
-                          "OK"
-                        } else {
-                          "FAIL"
-                        },
-                      ),
-                    },
-                  ),
-                  span(list{Attrs.class_("text-gray-200 flex-1")}, list{text(entry.ruleName)}),
-                  span(list{Attrs.class_("text-gray-500")}, list{text(entry.detail)}),
-                },
-              )
-            )
-            ->List.fromArray,
-          },
-        )
-      } else {
-        div(
-          list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-          list{text("No executions yet — rules will appear here when they fire")},
-        )
-      },
-    },
-  )
-}
-
-/// Render rules list.
-let renderRules = (state: automationRouterState): Tea_Vdom.t<msg> => {
-  let filtered = AutomationRouterEngine.filterRules(
-    state.rules,
-    state.filterText,
-    state.showDisabled,
-  )
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      // Filter
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          input(
-            list{
-              Attrs.class_(
-                "flex-1 px-3 py-1.5 text-xs bg-gray-800 text-gray-200 rounded border border-gray-700",
-              ),
-              Attrs.placeholder("Filter rules..."),
-              Attrs.value(state.filterText),
-              Events.onInput(text => AutomationRouter(SetRouterFilter(text))),
-            },
-            list{},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                if state.showDisabled {
-                  "px-2 py-1 text-xs bg-gray-600 text-white rounded"
-                } else {
-                  "px-2 py-1 text-xs bg-gray-700 text-gray-400 rounded cursor-pointer"
-                },
-              ),
-              Events.onClick(AutomationRouter(ToggleShowDisabled)),
-              KeyboardNav.onActivate(AutomationRouter(ToggleShowDisabled)),
-            },
-            list{text("Show Disabled")},
-          ),
-        },
-      ),
-      // Rule cards
-      if Array.length(filtered) === 0 {
-        div(
-          list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-          list{
-            text(
-              "No rules configured — load from .machine_readable/ENSAID_CONFIG.a2ml or create manually",
-            ),
-          },
-        )
-      } else {
-        div(
-          list{Attrs.class_("space-y-2")},
-          filtered
-          ->Array.map(rule => {
-            let triggerCls = AutomationRouterEngine.triggerColour(rule.trigger)
-            let approvalCls = AutomationRouterEngine.approvalColour(rule.approval)
-            div(
-              list{
-                Attrs.class_(
-                  `p-3 bg-gray-800 rounded border ${if rule.enabled {
-                      "border-gray-700"
-                    } else {
-                      "border-gray-800 opacity-50"
-                    }}`,
-                ),
-              },
-              list{
-                div(
-                  list{Attrs.class_("flex items-center gap-2 mb-2")},
-                  list{
-                    span(
-                      list{Attrs.class_("text-sm text-gray-100 font-medium flex-1")},
-                      list{text(rule.name)},
-                    ),
-                    span(
-                      list{Attrs.class_(`text-xs ${triggerCls} font-mono`)},
-                      list{text(AutomationRouterEngine.triggerKindLabel(rule.trigger))},
-                    ),
-                    span(
-                      list{Attrs.class_(`text-xs ${approvalCls}`)},
-                      list{text(AutomationRouterEngine.approvalLabel(rule.approval))},
-                    ),
-                  },
-                ),
-                div(list{Attrs.class_("text-xs text-gray-400 mb-2")}, list{text(rule.description)}),
-                div(
-                  list{Attrs.class_("flex items-center gap-2")},
-                  list{
-                    span(
-                      list{Attrs.class_("text-xs text-gray-500")},
-                      list{text(`Trigger: ${AutomationRouterEngine.triggerLabel(rule.trigger)}`)},
-                    ),
-                    span(
-                      list{Attrs.class_("text-xs text-gray-600")},
-                      list{text(`Fired: ${Int.toString(rule.firedCount)}x`)},
-                    ),
-                    button(
-                      list{
-                        Attrs.class_(
-                          if rule.enabled {
-                            "ml-auto px-2 py-1 text-xs bg-emerald-800 text-emerald-200 rounded cursor-pointer"
-                          } else {
-                            "ml-auto px-2 py-1 text-xs bg-gray-700 text-gray-400 rounded cursor-pointer"
-                          },
-                        ),
-                        Events.onClick(AutomationRouter(ToggleRule(rule.id))),
-                      },
-                      list{
-                        text(
-                          if rule.enabled {
-                            "Enabled"
-                          } else {
-                            "Disabled"
-                          },
-                        ),
-                      },
-                    ),
-                    button(
-                      list{
-                        Attrs.class_(
-                          "px-2 py-1 text-xs bg-cyan-800 text-cyan-200 rounded hover:bg-cyan-700 cursor-pointer",
-                        ),
-                        Events.onClick(AutomationRouter(ExecuteRule(rule.id))),
-                      },
-                      list{text("Run")},
-                    ),
-                  },
-                ),
-              },
-            )
-          })
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render pending approval actions.
-let renderPending = (state: automationRouterState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      if Array.length(state.pendingActions) > 0 {
-        div(
-          list{Attrs.class_("flex items-center gap-2 mb-2")},
-          list{
-            button(
-              list{
-                Attrs.class_(
-                  "px-3 py-1.5 text-xs bg-emerald-700 text-white rounded hover:bg-emerald-600 cursor-pointer",
-                ),
-                Events.onClick(AutomationRouter(ApproveAll)),
-                KeyboardNav.onActivate(AutomationRouter(ApproveAll)),
-              },
-              list{text("Approve All")},
-            ),
-            button(
-              list{
-                Attrs.class_(
-                  "px-3 py-1.5 text-xs bg-red-800 text-red-200 rounded hover:bg-red-700 cursor-pointer",
-                ),
-                Events.onClick(AutomationRouter(RejectAll)),
-                KeyboardNav.onActivate(AutomationRouter(RejectAll)),
-              },
-              list{text("Reject All")},
-            ),
-          },
-        )
-      } else {
-        noNode
-      },
-      if Array.length(state.pendingActions) === 0 {
-        div(
-          list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-          list{text("No pending actions — rules with approval gates will queue here")},
-        )
-      } else {
-        div(
-          list{Attrs.class_("space-y-2")},
-          state.pendingActions
-          ->Array.mapWithIndex((action, idx) =>
-            div(
-              list{Attrs.class_("p-3 bg-gray-800 rounded border border-amber-800/50")},
-              list{
-                div(
-                  list{Attrs.class_("flex items-center gap-2 mb-2")},
-                  list{
-                    span(
-                      list{Attrs.class_("text-sm text-amber-300 font-medium")},
-                      list{text(action.ruleName)},
-                    ),
-                    span(
-                      list{Attrs.class_("text-xs text-gray-500 ml-auto")},
-                      list{text(action.triggerDetail)},
-                    ),
-                  },
-                ),
-                div(
-                  list{Attrs.class_("space-y-1 mb-2")},
-                  action.actions
-                  ->Array.map(a =>
-                    div(
-                      list{Attrs.class_("text-xs text-gray-400 font-mono")},
-                      list{text(`${a.panelId} -> ${a.message}`)},
-                    )
-                  )
-                  ->List.fromArray,
-                ),
-                div(
-                  list{Attrs.class_("flex items-center gap-2")},
-                  list{
-                    button(
-                      list{
-                        Attrs.class_(
-                          "px-3 py-1 text-xs bg-emerald-700 text-white rounded hover:bg-emerald-600 cursor-pointer",
-                        ),
-                        Events.onClick(AutomationRouter(ApproveAction(idx))),
-                      },
-                      list{text("Approve")},
-                    ),
-                    button(
-                      list{
-                        Attrs.class_(
-                          "px-3 py-1 text-xs bg-red-800 text-red-200 rounded hover:bg-red-700 cursor-pointer",
-                        ),
-                        Events.onClick(AutomationRouter(RejectAction(idx))),
-                      },
-                      list{text("Reject")},
-                    ),
-                  },
-                ),
-              },
-            )
-          )
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render execution history.
-let renderHistory = (state: automationRouterState): Tea_Vdom.t<msg> => {
-  if Array.length(state.executionLog) === 0 {
-    div(
-      list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-      list{text("No execution history")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("space-y-1 max-h-96 overflow-y-auto")},
-      state.executionLog
-      ->Array.map(entry =>
-        div(
-          list{Attrs.class_("flex items-center gap-3 p-2 bg-gray-800 rounded text-xs")},
-          list{
-            span(
-              list{
-                Attrs.class_(
-                  if entry.success {
-                    "text-emerald-400 w-8"
-                  } else {
-                    "text-red-400 w-8"
-                  },
-                ),
-              },
-              list{
-                text(
-                  if entry.success {
-                    "OK"
-                  } else {
-                    "FAIL"
-                  },
-                ),
-              },
-            ),
-            span(list{Attrs.class_("text-gray-200 flex-1")}, list{text(entry.ruleName)}),
-            span(list{Attrs.class_("text-gray-500")}, list{text(entry.detail)}),
-            span(
-              list{Attrs.class_("text-gray-600 font-mono")},
-              list{text(AutomationRouterEngine.formatRelativeTime(entry.triggeredAt))},
-            ),
-          },
-        )
-      )
-      ->List.fromArray,
-    )
-  }
-}
-
-/// Render settings view.
-let renderSettings = (state: automationRouterState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-4")},
-    list{
-      // Config source
-      div(
-        list{Attrs.class_("p-4 bg-gray-800 rounded border border-gray-700")},
-        list{
-          div(list{Attrs.class_("text-sm text-gray-200 mb-3")}, list{text("Configuration Source")}),
-          div(
-            list{Attrs.class_("text-xs text-gray-400 mb-3")},
-            list{
-              text(
-                "Rules can be loaded from the repo's .machine_readable/ENSAID_CONFIG.a2ml or stored locally in PanLL.",
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    if state.configSource === "repo" {
-                      "px-3 py-1.5 text-xs bg-cyan-700 text-white rounded"
-                    } else {
-                      "px-3 py-1.5 text-xs bg-gray-700 text-gray-300 rounded cursor-pointer hover:bg-gray-600"
-                    },
-                  ),
-                  Events.onClick(AutomationRouter(LoadFromRepo)),
-                  KeyboardNav.onActivate(AutomationRouter(LoadFromRepo)),
-                },
-                list{text("Load from Repo")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1.5 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer",
-                  ),
-                  Events.onClick(AutomationRouter(SaveRules)),
-                  KeyboardNav.onActivate(AutomationRouter(SaveRules)),
-                },
-                list{text("Save Rules")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Show disabled toggle
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                if state.showDisabled {
-                  "px-3 py-1.5 text-xs bg-gray-600 text-white rounded"
-                } else {
-                  "px-3 py-1.5 text-xs bg-gray-700 text-gray-400 rounded cursor-pointer"
-                },
-              ),
-              Events.onClick(AutomationRouter(ToggleShowDisabled)),
-              KeyboardNav.onActivate(AutomationRouter(ToggleShowDisabled)),
-            },
-            list{text("Show Disabled Rules")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Main view function.
-let view = (state: automationRouterState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Automation Router panel"),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              span(
-                list{Attrs.class_("text-lg font-semibold text-gray-100")},
-                list{text("Automation Router")},
-              ),
-              if state.globalEnabled {
-                span(list{Attrs.class_("text-xs text-emerald-400")}, list{text("ACTIVE")})
-              } else {
-                span(list{Attrs.class_("text-xs text-red-400")}, list{text("PAUSED")})
-              },
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    if state.bojRouting {
-                      "px-3 py-1.5 text-xs bg-blue-700 text-white rounded"
-                    } else {
-                      "px-3 py-1.5 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600"
-                    },
-                  ),
-                  Attrs.ariaLabel(
-                    if state.bojRouting {
-                      "Disable BoJ routing"
-                    } else {
-                      "Enable BoJ routing"
-                    },
-                  ),
-                  Events.onClick(AutomationRouter(ToggleAutomationBojRouting)),
-                  KeyboardNav.onActivate(AutomationRouter(ToggleAutomationBojRouting)),
-                },
-                list{
-                  text(
-                    if state.bojRouting {
-                      "BoJ On"
-                    } else {
-                      "BoJ"
-                    },
-                  ),
-                },
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1.5 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer",
-                  ),
-                  Events.onClick(AutomationRouter(LoadRules)),
-                  KeyboardNav.onActivate(AutomationRouter(LoadRules)),
-                },
-                list{text("Refresh")},
-              ),
-            },
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("flex items-center gap-1 px-4 py-2 border-b border-gray-800")},
-        list{
-          renderTab("Dashboard", RouterDashboard, state.activeCategory),
-          renderTab("Rules", RouterRules, state.activeCategory),
-          renderTab("Pending", RouterPending, state.activeCategory),
-          renderTab("History", RouterHistory, state.activeCategory),
-          renderTab("Settings", RouterSettings, state.activeCategory),
-        },
-      ),
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 p-2 bg-red-900/50 border border-red-700 rounded text-xs text-red-300",
-            ),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      div(
-        list{Attrs.class_("flex-1 overflow-auto p-4")},
-        list{
-          switch state.activeCategory {
-          | RouterDashboard => renderDashboard(state)
-          | RouterRules => renderRules(state)
-          | RouterPending => renderPending(state)
-          | RouterHistory => renderHistory(state)
-          | RouterSettings => renderSettings(state)
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/BalanceAnalyser.affine b/src/components/BalanceAnalyser.affine
new file mode 100644
index 00000000..72ff5bf6
--- /dev/null
+++ b/src/components/BalanceAnalyser.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module BalanceAnalyser;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/BalanceAnalyser.res b/src/components/BalanceAnalyser.res
deleted file mode 100644
index 477a6281..00000000
--- a/src/components/BalanceAnalyser.res
+++ /dev/null
@@ -1,521 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL BalanceAnalyser — game balance statistical analysis and Monte Carlo
-/// simulation for IDApTIK level tuning.
-///
-/// Five tabs: Overview (level stats table with difficulty scores and win rates),
-/// Distributions (placeholder charts), Simulations (Monte Carlo results),
-/// Recommendations (suggested parameter changes), and Difficulty Curve
-/// (placeholder chart for the intended difficulty arc).
-
-open Model
-open Msg
-open Tea.Html
-
-// =========================================================================
-// Helpers
-// =========================================================================
-
-/// Tab label lookup for balanceTab variants.
-let tabLabel = (tab: balanceTab): string =>
-  switch tab {
-  | TabOverview => "Overview"
-  | TabDistributions => "Distributions"
-  | TabSimulations => "Simulations"
-  | TabRecommendations => "Recommendations"
-  | TabDifficultyCurve => "Difficulty Curve"
-  }
-
-/// Render the tab bar.
-let renderTabs = (active: balanceTab): Tea_Vdom.t<msg> => {
-  let tabs: array<balanceTab> = [
-    TabOverview,
-    TabDistributions,
-    TabSimulations,
-    TabRecommendations,
-    TabDifficultyCurve,
-  ]
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 px-4")},
-    tabs
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-3 py-2 text-sm font-medium transition-colors rounded-t ${isActive
-                ? "bg-gray-800 text-cyan-400 border-b-2 border-cyan-400"
-                : "text-gray-500 hover:text-gray-300 hover:bg-gray-900 cursor-pointer"}`,
-          ),
-          Events.onClick(BalanceAnalyser(SetBaTab(tab))),
-        },
-        list{text(tabLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Difficulty colour from score (0-10 scale).
-let difficultyColour = (score: float): string =>
-  if score >= 8.0 {
-    "text-red-400"
-  } else if score >= 5.0 {
-    "text-amber-400"
-  } else if score >= 3.0 {
-    "text-emerald-400"
-  } else {
-    "text-blue-400"
-  }
-
-/// Win rate colour (higher is greener, lower is redder).
-let winRateColour = (rate: float): string =>
-  if rate >= 0.7 {
-    "text-emerald-400"
-  } else if rate >= 0.4 {
-    "text-amber-400"
-  } else {
-    "text-red-400"
-  }
-
-// =========================================================================
-// Tab content views
-// =========================================================================
-
-/// Overview tab: level stats table with difficulty scores and estimated win rates.
-let renderOverviewTab = (state: balanceAnalyserState): Tea_Vdom.t<msg> => {
-  if Array.length(state.levelStats) === 0 {
-    div(
-      list{Attrs.class_("p-4 text-gray-500 text-sm italic")},
-      list{text("No level statistics loaded. Run a simulation to generate balance data.")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("flex flex-col gap-2 p-4")},
-      list{
-        // Summary
-        div(
-          list{Attrs.class_("text-sm text-gray-400 mb-1")},
-          list{text(`${Int.toString(Array.length(state.levelStats))} level(s) analysed`)},
-        ),
-        // Table header
-        div(
-          list{
-            Attrs.class_(
-              "grid grid-cols-6 gap-2 px-3 py-2 text-xs text-gray-500 font-medium border-b border-gray-800",
-            ),
-          },
-          list{
-            span(list{}, list{text("Level")}),
-            span(list{Attrs.class_("text-right")}, list{text("Difficulty")}),
-            span(list{Attrs.class_("text-right")}, list{text("Win Rate")}),
-            span(list{Attrs.class_("text-right")}, list{text("Guard Rate")}),
-            span(list{Attrs.class_("text-right")}, list{text("Alert Threshold")}),
-            span(list{Attrs.class_("text-right")}, list{text("Outlier")}),
-          },
-        ),
-        // Table rows
-        div(
-          list{Attrs.class_("flex flex-col gap-1 max-h-80 overflow-y-auto")},
-          state.levelStats
-          ->Array.map(level => {
-            let isSelected = state.selectedLevel === Some(level.levelId)
-            let bgCls = isSelected ? "bg-gray-750 border border-cyan-700" : "bg-gray-800"
-            let diffColour = difficultyColour(level.difficultyScore)
-            let wrColour = winRateColour(level.estimatedWinRate)
-            let outlierColour = if level.outlierScore > 2.0 {
-              "text-red-400"
-            } else if level.outlierScore > 1.0 {
-              "text-amber-400"
-            } else {
-              "text-gray-400"
-            }
-            div(
-              list{
-                Attrs.class_(
-                  `grid grid-cols-6 gap-2 px-3 py-2 text-sm rounded cursor-pointer hover:bg-gray-750 ${bgCls}`,
-                ),
-                Events.onClick(BalanceAnalyser(SelectLevel(level.levelId))),
-              },
-              list{
-                span(list{Attrs.class_("text-gray-300 truncate")}, list{text(level.levelName)}),
-                span(
-                  list{Attrs.class_(`text-right font-mono ${diffColour}`)},
-                  list{text(Float.toFixed(level.difficultyScore, ~digits=1))},
-                ),
-                span(
-                  list{Attrs.class_(`text-right font-mono ${wrColour}`)},
-                  list{text(`${Float.toFixed(level.estimatedWinRate *. 100.0, ~digits=0)}%`)},
-                ),
-                span(
-                  list{Attrs.class_("text-right font-mono text-gray-400")},
-                  list{text(Float.toFixed(level.guardSpawnRate, ~digits=2))},
-                ),
-                span(
-                  list{Attrs.class_("text-right font-mono text-gray-400")},
-                  list{text(Float.toFixed(level.alertThreshold, ~digits=2))},
-                ),
-                span(
-                  list{Attrs.class_(`text-right font-mono ${outlierColour}`)},
-                  list{text(Float.toFixed(level.outlierScore, ~digits=2))},
-                ),
-              },
-            )
-          })
-          ->List.fromArray,
-        ),
-      },
-    )
-  }
-}
-
-/// Distributions tab: placeholder for distribution charts.
-let renderDistributionsTab = (state: balanceAnalyserState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-col gap-4 p-4")},
-    list{
-      div(
-        list{Attrs.class_("bg-gray-800 rounded p-4 h-40 flex items-center justify-center")},
-        list{
-          span(
-            list{Attrs.class_("text-gray-600 text-sm")},
-            list{
-              text(
-                `Difficulty distribution chart (${Int.toString(
-                    Array.length(state.distributions),
-                  )} buckets)`,
-              ),
-            },
-          ),
-        },
-      ),
-      // Distribution data summary
-      if Array.length(state.distributions) > 0 {
-        div(
-          list{Attrs.class_("flex flex-col gap-1 max-h-48 overflow-y-auto")},
-          state.distributions
-          ->Array.map(point => {
-            let widthPct = Int.toString(Int.fromFloat(point.percentage))
-            div(
-              list{Attrs.class_("flex items-center gap-2 text-xs")},
-              list{
-                span(
-                  list{Attrs.class_("w-16 text-gray-400 font-mono text-right")},
-                  list{text(point.bucket)},
-                ),
-                div(
-                  list{Attrs.class_("flex-1 h-3 bg-gray-700 rounded overflow-hidden")},
-                  list{
-                    div(
-                      list{
-                        Attrs.class_(
-                          `h-full bg-cyan-600 transition-all duration-300 w-[${widthPct}%]`,
-                        ),
-                      },
-                      list{},
-                    ),
-                  },
-                ),
-                span(
-                  list{Attrs.class_("text-gray-500 font-mono w-12 text-right")},
-                  list{text(`${Int.toString(point.count)}`)},
-                ),
-              },
-            )
-          })
-          ->List.fromArray,
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-/// Simulations tab: Monte Carlo simulation results.
-let renderSimulationsTab = (state: balanceAnalyserState): Tea_Vdom.t<msg> => {
-  if Array.length(state.simulations) === 0 {
-    div(
-      list{Attrs.class_("p-4 text-gray-500 text-sm italic")},
-      list{text("No simulation results. Click Run Simulation to generate balance data.")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("flex flex-col gap-2 p-4")},
-      list{
-        div(
-          list{Attrs.class_("text-sm text-gray-400 mb-1")},
-          list{
-            text(
-              `${Int.toString(Array.length(state.simulations))} simulation(s) (${Int.toString(
-                  state.simulationRuns,
-                )} runs each)`,
-            ),
-          },
-        ),
-        div(
-          list{Attrs.class_("flex flex-col gap-2 max-h-80 overflow-y-auto")},
-          state.simulations
-          ->Array.map(sim => {
-            let wrColour = winRateColour(sim.winRate)
-            div(
-              list{Attrs.class_("bg-gray-800 rounded p-3 border border-gray-700")},
-              list{
-                div(
-                  list{Attrs.class_("flex items-center justify-between mb-2")},
-                  list{
-                    span(
-                      list{Attrs.class_("text-sm font-medium text-gray-200")},
-                      list{text(sim.levelId)},
-                    ),
-                    span(
-                      list{Attrs.class_("text-xs text-gray-500")},
-                      list{text(`${Int.toString(sim.runs)} runs`)},
-                    ),
-                  },
-                ),
-                div(
-                  list{Attrs.class_("grid grid-cols-3 gap-2 text-xs")},
-                  list{
-                    div(
-                      list{Attrs.class_(`${wrColour}`)},
-                      list{text(`Win: ${Float.toFixed(sim.winRate *. 100.0, ~digits=1)}%`)},
-                    ),
-                    div(
-                      list{Attrs.class_("text-gray-400")},
-                      list{text(`Avg: ${Float.toFixed(sim.avgCompletionTime, ~digits=0)}s`)},
-                    ),
-                    div(
-                      list{Attrs.class_("text-gray-400")},
-                      list{text(`P95: ${Float.toFixed(sim.p95CompletionTime, ~digits=0)}s`)},
-                    ),
-                    div(
-                      list{Attrs.class_("text-red-400")},
-                      list{text(`Guard: ${Int.toString(sim.deathsByGuard)}`)},
-                    ),
-                    div(
-                      list{Attrs.class_("text-amber-400")},
-                      list{text(`Trap: ${Int.toString(sim.deathsByTrap)}`)},
-                    ),
-                    div(
-                      list{Attrs.class_("text-gray-500")},
-                      list{text(`Timeout: ${Int.toString(sim.deathsByTimeout)}`)},
-                    ),
-                  },
-                ),
-              },
-            )
-          })
-          ->List.fromArray,
-        ),
-      },
-    )
-  }
-}
-
-/// Recommendations tab: suggested parameter changes for balance improvement.
-let renderRecommendationsTab = (state: balanceAnalyserState): Tea_Vdom.t<msg> => {
-  if Array.length(state.recommendations) === 0 {
-    div(
-      list{Attrs.class_("p-4 text-gray-500 text-sm italic")},
-      list{text("No recommendations yet. Run simulations to generate balance suggestions.")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("flex flex-col gap-2 p-4 max-h-96 overflow-y-auto")},
-      state.recommendations
-      ->Array.map(item => {
-        let delta = item.suggestedValue -. item.currentValue
-        let deltaSign = delta >= 0.0 ? "+" : ""
-        let deltaColour = if Float.parseFloat(Float.toFixed(delta, ~digits=2)) === 0.0 {
-          "text-gray-400"
-        } else if delta > 0.0 {
-          "text-emerald-400"
-        } else {
-          "text-red-400"
-        }
-        div(
-          list{Attrs.class_("bg-gray-800 rounded p-3 border border-gray-700")},
-          list{
-            div(
-              list{Attrs.class_("flex items-center justify-between mb-1")},
-              list{
-                span(
-                  list{Attrs.class_("text-sm text-gray-300")},
-                  list{text(`${item.levelId}: ${item.parameter}`)},
-                ),
-                span(
-                  list{Attrs.class_(`text-xs font-mono ${deltaColour}`)},
-                  list{
-                    text(
-                      `${Float.toFixed(item.currentValue, ~digits=2)} -> ${Float.toFixed(
-                          item.suggestedValue,
-                          ~digits=2,
-                        )} (${deltaSign}${Float.toFixed(delta, ~digits=2)})`,
-                    ),
-                  },
-                ),
-              },
-            ),
-            div(list{Attrs.class_("text-xs text-gray-400 mb-1")}, list{text(item.reason)}),
-            div(list{Attrs.class_("text-xs text-gray-500")}, list{text(`Impact: ${item.impact}`)}),
-            // Apply button
-            div(
-              list{Attrs.class_("flex justify-end mt-2")},
-              list{
-                button(
-                  list{
-                    Attrs.class_(
-                      "px-2 py-1 text-xs bg-cyan-700 text-white rounded hover:bg-cyan-600 cursor-pointer",
-                    ),
-                    Events.onClick(
-                      BalanceAnalyser(
-                        ApplyRecommendation(item.levelId, item.parameter, item.suggestedValue),
-                      ),
-                    ),
-                  },
-                  list{text("Apply")},
-                ),
-              },
-            ),
-          },
-        )
-      })
-      ->List.fromArray,
-    )
-  }
-}
-
-/// Difficulty Curve tab: placeholder chart for the intended difficulty arc.
-let renderDifficultyCurveTab = (state: balanceAnalyserState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-col gap-4 p-4")},
-    list{
-      div(
-        list{Attrs.class_("bg-gray-800 rounded p-4 h-48 flex items-center justify-center")},
-        list{
-          span(
-            list{Attrs.class_("text-gray-600 text-sm")},
-            list{
-              text(
-                `Difficulty curve chart (${Int.toString(Array.length(state.levelStats))} levels)`,
-              ),
-            },
-          ),
-        },
-      ),
-      // Level difficulty as horizontal bars for visual reference
-      div(
-        list{Attrs.class_("flex flex-col gap-1 max-h-48 overflow-y-auto")},
-        state.levelStats
-        ->Array.map(level => {
-          let widthPct = Int.toString(Int.fromFloat(level.difficultyScore *. 10.0))
-          let barColour = if level.difficultyScore >= 8.0 {
-            "bg-red-500"
-          } else if level.difficultyScore >= 5.0 {
-            "bg-amber-500"
-          } else {
-            "bg-emerald-500"
-          }
-          div(
-            list{Attrs.class_("flex items-center gap-2 text-xs")},
-            list{
-              span(
-                list{Attrs.class_("w-24 text-gray-400 truncate text-right")},
-                list{text(level.levelName)},
-              ),
-              div(
-                list{Attrs.class_("flex-1 h-3 bg-gray-700 rounded overflow-hidden")},
-                list{
-                  div(
-                    list{
-                      Attrs.class_(
-                        `h-full ${barColour} transition-all duration-300 w-[${widthPct}%]`,
-                      ),
-                    },
-                    list{},
-                  ),
-                },
-              ),
-              span(
-                list{Attrs.class_("text-gray-500 font-mono w-8 text-right")},
-                list{text(Float.toFixed(level.difficultyScore, ~digits=1))},
-              ),
-            },
-          )
-        })
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-// =========================================================================
-// Main view
-// =========================================================================
-
-/// Primary view function dispatching tab content based on active tab.
-let view = (state: balanceAnalyserState): Tea_Vdom.t<msg> => {
-  let content = switch state.activeTab {
-  | TabOverview => renderOverviewTab(state)
-  | TabDistributions => renderDistributionsTab(state)
-  | TabSimulations => renderSimulationsTab(state)
-  | TabRecommendations => renderRecommendationsTab(state)
-  | TabDifficultyCurve => renderDifficultyCurveTab(state)
-  }
-
-  div(
-    list{Attrs.class_("flex flex-col h-full bg-gray-900 text-gray-100")},
-    list{
-      // Header with Run Simulation
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          h2(
-            list{Attrs.class_("text-lg font-semibold text-cyan-300")},
-            list{text("Balance Analyser")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-xs bg-emerald-700 text-white rounded hover:bg-emerald-600 cursor-pointer font-medium",
-              ),
-              Events.onClick(BalanceAnalyser(RunSimulation)),
-              KeyboardNav.onActivate(BalanceAnalyser(RunSimulation)),
-            },
-            list{text("Run Simulation")},
-          ),
-        },
-      ),
-      // Running indicator
-      if state.running {
-        div(
-          list{
-            Attrs.class_("flex items-center gap-2 px-4 py-2 bg-gray-800 border-b border-gray-700"),
-          },
-          list{
-            div(list{Attrs.class_("w-3 h-3 bg-amber-400 rounded-full animate-pulse")}, list{}),
-            span(list{Attrs.class_("text-sm text-amber-300")}, list{text("Simulation running...")}),
-          },
-        )
-      } else {
-        noNode
-      },
-      // Error display
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_("px-4 py-2 bg-red-900/30 text-red-300 text-sm border-b border-red-800"),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      // Tab bar
-      renderTabs(state.activeTab),
-      // Content
-      div(list{Attrs.class_("flex-1 overflow-y-auto")}, list{content}),
-    },
-  )
-}
diff --git a/src/components/BetaFeedbackHub.affine b/src/components/BetaFeedbackHub.affine
new file mode 100644
index 00000000..e255edba
--- /dev/null
+++ b/src/components/BetaFeedbackHub.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module BetaFeedbackHub;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/BetaFeedbackHub.res b/src/components/BetaFeedbackHub.res
deleted file mode 100644
index 9309befc..00000000
--- a/src/components/BetaFeedbackHub.res
+++ /dev/null
@@ -1,459 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL BetaFeedbackHub — feedback-o-tron integration and player feedback
-/// triage for IDApTIK beta testing programmes.
-///
-/// Five tabs: Inbox (feedback list with upvote/downvote), Triaged (processed
-/// entries), Sentiment (chart placeholder), Submit (new feedback form), and
-/// Analytics (aggregate statistics).
-
-open Model
-open Msg
-open Tea.Html
-
-// =========================================================================
-// Helpers
-// =========================================================================
-
-/// Tab label lookup for betaFeedbackTab variants.
-let tabLabel = (tab: betaFeedbackTab): string =>
-  switch tab {
-  | TabInbox => "Inbox"
-  | TabTriaged => "Triaged"
-  | TabSentiment => "Sentiment"
-  | TabSubmit => "Submit"
-  | TabAnalytics => "Analytics"
-  }
-
-/// Render the tab bar.
-let renderTabs = (active: betaFeedbackTab): Tea_Vdom.t<msg> => {
-  let tabs: array<betaFeedbackTab> = [TabInbox, TabTriaged, TabSentiment, TabSubmit, TabAnalytics]
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 px-4")},
-    tabs
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-3 py-2 text-sm font-medium transition-colors rounded-t ${isActive
-                ? "bg-gray-800 text-cyan-400 border-b-2 border-cyan-400"
-                : "text-gray-500 hover:text-gray-300 hover:bg-gray-900 cursor-pointer"}`,
-          ),
-          Events.onClick(BetaFeedbackHub(SetBfhTab(tab))),
-        },
-        list{text(tabLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Category badge colour.
-let categoryBadge = (cat: feedbackCategory): Tea_Vdom.t<msg> => {
-  let (colour, lbl) = switch cat {
-  | FeedbackBug => ("bg-red-600 text-white", "BUG")
-  | FeedbackFeature => ("bg-blue-600 text-white", "FEAT")
-  | FeedbackBalance => ("bg-purple-600 text-white", "BAL")
-  | FeedbackUx => ("bg-cyan-600 text-white", "UX")
-  | FeedbackPerformance => ("bg-amber-600 text-white", "PERF")
-  | FeedbackOther => ("bg-gray-600 text-gray-200", "OTHER")
-  }
-  span(list{Attrs.class_(`px-1.5 py-0.5 text-xs rounded font-mono ${colour}`)}, list{text(lbl)})
-}
-
-/// Priority indicator.
-let priorityIndicator = (priority: feedbackPriority): Tea_Vdom.t<msg> => {
-  let (colour, lbl) = switch priority {
-  | FeedbackCritical => ("text-red-400", "P0")
-  | FeedbackHigh => ("text-orange-400", "P1")
-  | FeedbackMedium => ("text-amber-400", "P2")
-  | FeedbackLow => ("text-gray-400", "P3")
-  }
-  span(list{Attrs.class_(`text-xs font-mono ${colour}`)}, list{text(lbl)})
-}
-
-/// Sentiment icon.
-let sentimentIcon = (sentiment: feedbackSentiment): Tea_Vdom.t<msg> => {
-  let (colour, sym) = switch sentiment {
-  | SentimentPositive => ("text-emerald-400", "+")
-  | SentimentNeutral => ("text-gray-400", "=")
-  | SentimentNegative => ("text-red-400", "-")
-  | SentimentUnknown => ("text-gray-600", "?")
-  }
-  span(list{Attrs.class_(`text-xs font-mono ${colour}`)}, list{text(sym)})
-}
-
-/// Status label.
-let statusLabel = (status: feedbackStatus): string =>
-  switch status {
-  | FeedbackNew => "NEW"
-  | FeedbackTriaged => "TRIAGED"
-  | FeedbackInProgress => "IN PROGRESS"
-  | FeedbackResolved => "RESOLVED"
-  | FeedbackWontFix => "WON'T FIX"
-  }
-
-// =========================================================================
-// Tab content views
-// =========================================================================
-
-/// Render a feedback entry row with upvote/downvote buttons.
-let feedbackRow = (entry: feedbackEntry): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_(
-        "flex items-center gap-3 px-3 py-2 bg-gray-800 rounded text-sm cursor-pointer hover:bg-gray-750",
-      ),
-      Events.onClick(BetaFeedbackHub(SelectFeedback(entry.id))),
-    },
-    list{
-      // Vote buttons
-      div(
-        list{Attrs.class_("flex flex-col items-center gap-0.5")},
-        list{
-          button(
-            list{
-              Attrs.class_("text-xs text-gray-500 hover:text-emerald-400 cursor-pointer"),
-              Events.onClick(BetaFeedbackHub(Upvote(entry.id))),
-            },
-            list{text("^")},
-          ),
-          span(
-            list{Attrs.class_("text-xs font-mono text-gray-400")},
-            list{text(Int.toString(entry.upvotes - entry.downvotes))},
-          ),
-          button(
-            list{
-              Attrs.class_("text-xs text-gray-500 hover:text-red-400 cursor-pointer"),
-              Events.onClick(BetaFeedbackHub(Downvote(entry.id))),
-            },
-            list{text("v")},
-          ),
-        },
-      ),
-      // Priority and category
-      priorityIndicator(entry.priority),
-      categoryBadge(entry.category),
-      sentimentIcon(entry.sentiment),
-      // Title
-      span(list{Attrs.class_("text-gray-300 flex-1")}, list{text(entry.title)}),
-      // Submitter and platform
-      span(
-        list{Attrs.class_("text-gray-600 text-xs")},
-        list{text(`${entry.submittedBy} (${entry.platform})`)},
-      ),
-    },
-  )
-}
-
-/// Inbox tab: all feedback entries sorted by newest or votes.
-let renderInboxTab = (state: betaFeedbackHubState): Tea_Vdom.t<msg> => {
-  let newEntries = state.entries->Array.filter(e =>
-    switch e.status {
-    | FeedbackNew => true
-    | _ => false
-    }
-  )
-  div(
-    list{Attrs.class_("flex flex-col gap-2 p-4")},
-    list{
-      // Controls
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-1")},
-        list{
-          span(
-            list{Attrs.class_("text-sm text-gray-400")},
-            list{text(`${Int.toString(Array.length(newEntries))} new feedback item(s)`)},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                `px-2 py-1 text-xs rounded cursor-pointer ${state.sortByUpvotes
-                    ? "bg-cyan-700 text-white"
-                    : "bg-gray-700 text-gray-400"}`,
-              ),
-              Events.onClick(BetaFeedbackHub(ToggleSortByVotes)),
-              KeyboardNav.onActivate(BetaFeedbackHub(ToggleSortByVotes)),
-            },
-            list{text(state.sortByUpvotes ? "Sort: Votes" : "Sort: Recent")},
-          ),
-        },
-      ),
-      // Entry list
-      div(
-        list{Attrs.class_("flex flex-col gap-1 max-h-96 overflow-y-auto")},
-        newEntries->Array.map(entry => feedbackRow(entry))->List.fromArray,
-      ),
-    },
-  )
-}
-
-/// Triaged tab: entries that have been processed.
-let renderTriagedTab = (state: betaFeedbackHubState): Tea_Vdom.t<msg> => {
-  let processed = state.entries->Array.filter(e =>
-    switch e.status {
-    | FeedbackNew => false
-    | _ => true
-    }
-  )
-  if Array.length(processed) === 0 {
-    div(
-      list{Attrs.class_("p-4 text-gray-500 text-sm italic")},
-      list{text("No triaged feedback yet.")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("flex flex-col gap-1 p-4 max-h-96 overflow-y-auto")},
-      processed
-      ->Array.map(entry => {
-        div(
-          list{Attrs.class_("flex items-center gap-3 px-3 py-2 bg-gray-800 rounded text-sm")},
-          list{
-            categoryBadge(entry.category),
-            span(list{Attrs.class_("text-gray-300 flex-1")}, list{text(entry.title)}),
-            span(
-              list{Attrs.class_("text-xs text-gray-500 font-mono")},
-              list{text(statusLabel(entry.status))},
-            ),
-          },
-        )
-      })
-      ->List.fromArray,
-    )
-  }
-}
-
-/// Sentiment tab: chart placeholder showing positive/neutral/negative distribution.
-let renderSentimentTab = (state: betaFeedbackHubState): Tea_Vdom.t<msg> => {
-  let positive = state.entries->Array.filter(e => e.sentiment === SentimentPositive)->Array.length
-  let neutral = state.entries->Array.filter(e => e.sentiment === SentimentNeutral)->Array.length
-  let negative = state.entries->Array.filter(e => e.sentiment === SentimentNegative)->Array.length
-  let total = Array.length(state.entries)
-
-  div(
-    list{Attrs.class_("flex flex-col gap-4 p-4")},
-    list{
-      // Sentiment summary
-      div(
-        list{Attrs.class_("grid grid-cols-3 gap-3")},
-        list{
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-emerald-400")},
-                list{text(Int.toString(positive))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Positive")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-gray-300")},
-                list{text(Int.toString(neutral))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Neutral")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-red-400")},
-                list{text(Int.toString(negative))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Negative")}),
-            },
-          ),
-        },
-      ),
-      // Chart placeholder
-      div(
-        list{Attrs.class_("bg-gray-800 rounded p-4 h-32 flex items-center justify-center")},
-        list{
-          span(
-            list{Attrs.class_("text-gray-600 text-sm")},
-            list{text(`Sentiment distribution chart (${Int.toString(total)} entries)`)},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Submit tab: new feedback form.
-let renderSubmitTab = (state: betaFeedbackHubState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-col gap-4 p-4")},
-    list{
-      h3(
-        list{Attrs.class_("text-sm font-medium text-gray-300")},
-        list{text("Submit New Feedback")},
-      ),
-      // Title input
-      div(
-        list{Attrs.class_("flex flex-col gap-1")},
-        list{
-          label(list{Attrs.class_("text-xs text-gray-500")}, list{text("Title")}),
-          input(
-            list{
-              Attrs.class_(
-                "w-full bg-gray-800 text-gray-200 text-sm rounded px-3 py-2 border border-gray-700 focus:border-cyan-600 focus:outline-none",
-              ),
-              Attrs.placeholder("Brief description of the feedback..."),
-              Events.onInput(text => BetaFeedbackHub(UpdateSubmitTitle(text))),
-            },
-            list{},
-          ),
-        },
-      ),
-      // Body textarea
-      div(
-        list{Attrs.class_("flex flex-col gap-1")},
-        list{
-          label(list{Attrs.class_("text-xs text-gray-500")}, list{text("Details")}),
-          textarea(
-            list{
-              Attrs.class_(
-                "w-full h-24 bg-gray-800 text-gray-200 text-sm rounded p-3 border border-gray-700 focus:border-cyan-600 focus:outline-none resize-y",
-              ),
-              Attrs.placeholder("Describe the feedback in detail..."),
-              Events.onInput(text => BetaFeedbackHub(UpdateSubmitBody(text))),
-            },
-            list{},
-          ),
-        },
-      ),
-      // Submit button
-      div(
-        list{Attrs.class_("flex justify-end")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                `px-4 py-2 text-sm rounded font-medium cursor-pointer ${state.submitting
-                    ? "bg-gray-600 text-gray-400"
-                    : "bg-emerald-700 text-white hover:bg-emerald-600"}`,
-              ),
-              Events.onClick(BetaFeedbackHub(SubmitFeedback)),
-              KeyboardNav.onActivate(BetaFeedbackHub(SubmitFeedback)),
-            },
-            list{text(state.submitting ? "Submitting..." : "Submit Feedback")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Analytics tab: aggregate statistics from all feedback.
-let renderAnalyticsTab = (state: betaFeedbackHubState): Tea_Vdom.t<msg> => {
-  let total = Array.length(state.entries)
-  let bugs = state.entries->Array.filter(e => e.category === FeedbackBug)->Array.length
-  let features = state.entries->Array.filter(e => e.category === FeedbackFeature)->Array.length
-  let balance = state.entries->Array.filter(e => e.category === FeedbackBalance)->Array.length
-
-  div(
-    list{Attrs.class_("flex flex-col gap-4 p-4")},
-    list{
-      div(
-        list{Attrs.class_("grid grid-cols-4 gap-3")},
-        list{
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-gray-300")},
-                list{text(Int.toString(total))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Total")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-red-400")},
-                list{text(Int.toString(bugs))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Bugs")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-blue-400")},
-                list{text(Int.toString(features))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Features")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-purple-400")},
-                list{text(Int.toString(balance))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Balance")}),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// =========================================================================
-// Main view
-// =========================================================================
-
-/// Primary view function dispatching tab content based on active tab.
-let view = (state: betaFeedbackHubState): Tea_Vdom.t<msg> => {
-  let content = switch state.activeTab {
-  | TabInbox => renderInboxTab(state)
-  | TabTriaged => renderTriagedTab(state)
-  | TabSentiment => renderSentimentTab(state)
-  | TabSubmit => renderSubmitTab(state)
-  | TabAnalytics => renderAnalyticsTab(state)
-  }
-
-  div(
-    list{Attrs.class_("flex flex-col h-full bg-gray-900 text-gray-100")},
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          h2(
-            list{Attrs.class_("text-lg font-semibold text-cyan-300")},
-            list{text("Beta Feedback Hub")},
-          ),
-          span(
-            list{Attrs.class_("text-xs text-gray-500")},
-            list{text(`${Int.toString(Array.length(state.entries))} entries`)},
-          ),
-        },
-      ),
-      // Error display
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_("px-4 py-2 bg-red-900/30 text-red-300 text-sm border-b border-red-800"),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      // Tab bar
-      renderTabs(state.activeTab),
-      // Content
-      div(list{Attrs.class_("flex-1 overflow-y-auto")}, list{content}),
-    },
-  )
-}
diff --git a/src/components/Boj.affine b/src/components/Boj.affine
new file mode 100644
index 00000000..28029766
--- /dev/null
+++ b/src/components/Boj.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Boj;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Boj.res b/src/components/Boj.res
deleted file mode 100644
index 2a81f967..00000000
--- a/src/components/Boj.res
+++ /dev/null
@@ -1,1317 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL BoJ Component — view for the Bundle of Joy cartridge server panel.
-///
-/// 5 tabs: Dashboard, Cartridges (17×10 matrix), Topology, Federation, Invoke.
-/// All views use Tea_Html (no JSX). Accessible with ARIA roles and labels.
-
-open Msg
-open BojModel
-open BojEngine
-open Tea.Html
-
-// ===========================================================================
-// TypeLL Cross-Panel Type Intelligence
-// ===========================================================================
-
-/// Render TypeLL cross-panel type intelligence result (if available).
-/// Parses the raw JSON via TypeLLEngine.parseCheckResult and displays an
-/// evangeliser-style narrative with proof obligations and linearity notes.
-let viewTypeCheckResult = (lastTypeCheck: option<string>): Tea_Vdom.t<msg> => {
-  switch lastTypeCheck {
-  | None => noNode
-  | Some(json) =>
-    switch TypeLLEngine.parseCheckResult(json) {
-    | Error(_) => noNode
-    | Ok(result) =>
-      let narrative = TypeLLEngine.generateNarrative(result)
-      let borderColour = if result.valid {
-        "border-green-700 bg-green-900/20"
-      } else {
-        "border-red-700 bg-red-900/20"
-      }
-      let labelColour = if result.valid {
-        "text-green-400"
-      } else {
-        "text-red-400"
-      }
-      let statusText = if result.valid {
-        "Type-safe"
-      } else {
-        "Type issues detected"
-      }
-      div(
-        list{Attrs.class_("mt-4 p-3 rounded-lg border " ++ borderColour)},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2 mb-2")},
-            list{
-              span(
-                list{Attrs.class_("text-xs font-bold uppercase tracking-wider " ++ labelColour)},
-                list{text("TypeLL")},
-              ),
-              span(list{Attrs.class_("text-xs text-gray-400")}, list{text(statusText)}),
-            },
-          ),
-          div(
-            list{Attrs.class_("text-sm text-gray-300 font-mono mb-1")},
-            list{text(result.typeSignature)},
-          ),
-          div(list{Attrs.class_("text-xs text-gray-400 mb-1")}, list{text(narrative.celebrate)}),
-          if Array.length(result.proofObligations) > 0 {
-            div(
-              list{Attrs.class_("text-xs text-yellow-400 mt-1")},
-              list{text("Proof obligations: " ++ Array.join(result.proofObligations, ", "))},
-            )
-          } else {
-            noNode
-          },
-          if Array.length(result.linearityIssues) > 0 {
-            div(
-              list{Attrs.class_("text-xs text-orange-400 mt-1")},
-              list{text("Linearity: " ++ Array.join(result.linearityIssues, ", "))},
-            )
-          } else {
-            noNode
-          },
-        },
-      )
-    }
-  }
-}
-
-/// Render a tab button.
-let renderTab = (label: string, active: bool, onClick: msg): Tea_Vdom.t<msg> => {
-  let baseClass = "px-3 py-1.5 text-xs rounded-t border-b-2 transition-colors"
-  let activeClass = active
-    ? `${baseClass} text-cyan-300 border-cyan-400 bg-gray-800`
-    : `${baseClass} text-gray-500 border-transparent hover:text-gray-300`
-  button(
-    list{
-      Attrs.class_(activeClass),
-      Events.onClick(onClick),
-      Attrs.role("tab"),
-      Attrs.ariaSelected(active),
-    },
-    list{text(label)},
-  )
-}
-
-/// Render the connection status indicator.
-let renderConnectionStatus = (state: bojState): Tea_Vdom.t<msg> => {
-  let (dotClass, label) = if state.connected {
-    ("bg-green-400", "Connected")
-  } else {
-    ("bg-red-400", "Disconnected")
-  }
-  div(
-    list{Attrs.class_("flex items-center gap-2 text-xs")},
-    list{
-      div(list{Attrs.class_(`w-2 h-2 rounded-full ${dotClass}`)}, list{}),
-      span(list{Attrs.class_("text-gray-400")}, list{text(label)}),
-      span(list{Attrs.class_("text-gray-600 ml-2")}, list{text(state.serverUrl)}),
-    },
-  )
-}
-
-/// Render a stat card.
-let renderStat = (label: string, value: string, colour: string): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("bg-gray-800/50 border border-gray-700 rounded p-3")},
-    list{
-      div(list{Attrs.class_(`text-lg font-bold ${colour}`)}, list{text(value)}),
-      div(list{Attrs.class_("text-xs text-gray-500 mt-1")}, list{text(label)}),
-    },
-  )
-}
-
-// ============================================================================
-// Dashboard Tab
-// ============================================================================
-
-let renderDashboard = (state: bojState): Tea_Vdom.t<msg> => {
-  let total = Array.length(state.cartridges)
-  let loaded = loadedCount(state.cartridges)
-  let gradeD = countByGrade(state.cartridges, GradeD)
-  let gradeC = countByGrade(state.cartridges, GradeC)
-  let gradeB = countByGrade(state.cartridges, GradeB)
-  let gradeA = countByGrade(state.cartridges, GradeA)
-  let peerCount = Array.length(state.umoja.peers)
-
-  div(
-    list{Attrs.class_("space-y-4")},
-    list{
-      // Stats grid
-      div(
-        list{Attrs.class_("grid grid-cols-4 gap-3")},
-        list{
-          renderStat("Total Cartridges", Int.toString(total), "text-cyan-300"),
-          renderStat("Loaded", Int.toString(loaded), "text-green-300"),
-          renderStat("Umoja Peers", Int.toString(peerCount), "text-indigo-300"),
-          renderStat("Federation", state.umoja.active ? "Active" : "Inactive", "text-amber-300"),
-        },
-      ),
-      // Grade breakdown
-      div(
-        list{Attrs.class_("bg-gray-800/30 border border-gray-700 rounded p-3")},
-        list{
-          div(
-            list{Attrs.class_("text-xs text-gray-400 mb-2")},
-            list{text("Cartridge Readiness Grades")},
-          ),
-          div(
-            list{Attrs.class_("flex gap-4 text-xs")},
-            list{
-              span(
-                list{Attrs.class_("text-yellow-300")},
-                list{text(`D(Alpha): ${Int.toString(gradeD)}`)},
-              ),
-              span(
-                list{Attrs.class_("text-blue-300")},
-                list{text(`C(Beta): ${Int.toString(gradeC)}`)},
-              ),
-              span(
-                list{Attrs.class_("text-emerald-300")},
-                list{text(`B(RC): ${Int.toString(gradeB)}`)},
-              ),
-              span(
-                list{Attrs.class_("text-green-300")},
-                list{text(`A(Prod): ${Int.toString(gradeA)}`)},
-              ),
-            },
-          ),
-        },
-      ),
-      // Architecture summary
-      div(
-        list{Attrs.class_("bg-gray-800/30 border border-gray-700 rounded p-3")},
-        list{
-          div(list{Attrs.class_("text-xs text-gray-400 mb-2")}, list{text("Architecture")}),
-          div(
-            list{Attrs.class_("text-xs text-gray-300 font-mono space-y-1")},
-            list{
-              div(
-                list{},
-                list{
-                  text(
-                    "Idris2 ABI (dependent types) → Zig FFI (C-compatible) → V-lang (REST+gRPC+GraphQL)",
-                  ),
-                },
-              ),
-              div(
-                list{},
-                list{text("Umoja: gossip protocol, SHA-256 attestation, distributed federation")},
-              ),
-              div(list{}, list{text("Hot-reload: unmount → verify hash → remount")}),
-            },
-          ),
-        },
-      ),
-      // Latency log visualization
-      if Array.length(state.latencyLog) > 0 {
-        div(
-          list{Attrs.class_("bg-gray-800/30 border border-gray-700 rounded p-3")},
-          list{
-            div(
-              list{Attrs.class_("text-xs text-gray-400 mb-3")},
-              list{text("Invocation Latency (last 20)")},
-            ),
-            // Histogram bars
-            div(
-              list{Attrs.class_("flex items-end gap-0.5 h-16")},
-              state.latencyLog
-              ->Array.slice(~start=0, ~end=20)
-              ->Array.map(entry => {
-                let maxMs = 500.0
-                let heightPct = Math.min(entry.durationMs /. maxMs *. 100.0, 100.0)
-                let colour = if entry.durationMs < 50.0 {
-                  "bg-emerald-500"
-                } else if entry.durationMs < 200.0 {
-                  "bg-amber-500"
-                } else {
-                  "bg-red-500"
-                }
-                div(
-                  list{
-                    Attrs.class_(`flex-1 ${colour} rounded-t transition-all min-w-1`),
-                    Attrs.style("height", `${Float.toFixed(heightPct, ~digits=0)}%`),
-                    Attrs.title(
-                      `${entry.cartridge}/${entry.tool}: ${Float.toFixed(
-                          entry.durationMs,
-                          ~digits=1,
-                        )}ms`,
-                    ),
-                  },
-                  list{},
-                )
-              })
-              ->List.fromArray,
-            ),
-            {
-              let totalMs = state.latencyLog->Array.reduce(0.0, (acc, e) => acc +. e.durationMs)
-              let count = Float.fromInt(Array.length(state.latencyLog))
-              let avgMs = totalMs /. count
-              let maxEntry = state.latencyLog->Array.reduce(state.latencyLog->Array.getUnsafe(0), (
-                best,
-                e,
-              ) =>
-                if e.durationMs > best.durationMs {
-                  e
-                } else {
-                  best
-                }
-              )
-              let minEntry = state.latencyLog->Array.reduce(state.latencyLog->Array.getUnsafe(0), (
-                best,
-                e,
-              ) =>
-                if e.durationMs < best.durationMs {
-                  e
-                } else {
-                  best
-                }
-              )
-              div(
-                list{Attrs.class_("flex gap-4 mt-2 text-[10px] text-gray-600")},
-                list{
-                  span(list{}, list{text(`Avg: ${Float.toFixed(avgMs, ~digits=1)}ms`)}),
-                  span(
-                    list{},
-                    list{text(`Min: ${Float.toFixed(minEntry.durationMs, ~digits=1)}ms`)},
-                  ),
-                  span(
-                    list{},
-                    list{text(`Max: ${Float.toFixed(maxEntry.durationMs, ~digits=1)}ms`)},
-                  ),
-                  span(
-                    list{},
-                    list{text(`Total: ${Int.toString(Array.length(state.latencyLog))} calls`)},
-                  ),
-                },
-              )
-            },
-          },
-        )
-      } else {
-        noNode
-      },
-      // Hot-reload pipeline indicator
-      div(
-        list{Attrs.class_("bg-gray-800/30 border border-gray-700 rounded p-3")},
-        list{
-          div(list{Attrs.class_("text-xs text-gray-400 mb-2")}, list{text("Hot-Reload Pipeline")}),
-          div(
-            list{Attrs.class_("flex items-center gap-2 text-xs")},
-            list{
-              span(
-                list{
-                  Attrs.class_(
-                    "px-2 py-0.5 bg-red-900/30 text-red-400 rounded border border-red-800",
-                  ),
-                },
-                list{text("1. Unmount")},
-              ),
-              span(list{Attrs.class_("text-gray-700")}, list{text("→")}),
-              span(
-                list{
-                  Attrs.class_(
-                    "px-2 py-0.5 bg-amber-900/30 text-amber-400 rounded border border-amber-800",
-                  ),
-                },
-                list{text("2. Verify SHA-256")},
-              ),
-              span(list{Attrs.class_("text-gray-700")}, list{text("→")}),
-              span(
-                list{
-                  Attrs.class_(
-                    "px-2 py-0.5 bg-emerald-900/30 text-emerald-400 rounded border border-emerald-800",
-                  ),
-                },
-                list{text("3. Remount")},
-              ),
-              span(
-                list{Attrs.class_("text-gray-600 ml-auto text-[10px]")},
-                list{text("Zero-downtime cartridge replacement")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Refresh button
-      div(
-        list{Attrs.class_("flex gap-2")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-xs bg-cyan-900/50 text-cyan-300 rounded border border-cyan-700 hover:bg-cyan-800/50",
-              ),
-              Events.onClick(Boj(RefreshHealth)),
-              KeyboardNav.onActivate(Boj(RefreshHealth)),
-            },
-            list{text("Check Health")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-xs bg-gray-700 text-gray-300 rounded border border-gray-600 hover:bg-gray-600",
-              ),
-              Events.onClick(Boj(RefreshCartridges)),
-              KeyboardNav.onActivate(Boj(RefreshCartridges)),
-            },
-            list{text("Refresh Cartridges")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Cartridges Tab — Matrix View
-// ============================================================================
-
-let renderCartridgeRow = (cartridge: bojCartridge): Tea_Vdom.t<msg> => {
-  let gradeBadge = {
-    let colour = gradeColour(cartridge.grade)
-    span(
-      list{Attrs.class_(`px-1.5 py-0.5 text-xs rounded border ${colour}`)},
-      list{text(gradeLabel(cartridge.grade))},
-    )
-  }
-  let loadedBadge = if cartridge.loaded {
-    span(list{Attrs.class_("text-green-400 text-xs")}, list{text("●")})
-  } else {
-    span(list{Attrs.class_("text-gray-600 text-xs")}, list{text("○")})
-  }
-  let protoCells =
-    allProtocols
-    ->Array.map(proto => {
-      let has = hasProtocol(cartridge, proto)
-      td(
-        list{Attrs.class_("px-1 py-1 text-center text-xs")},
-        list{
-          if has {
-            span(list{Attrs.class_("text-cyan-400")}, list{text("██")})
-          } else {
-            span(list{Attrs.class_("text-gray-800")}, list{text("  ")})
-          },
-        },
-      )
-    })
-    ->List.fromArray
-
-  tr(
-    list{
-      Attrs.class_("border-b border-gray-800 hover:bg-gray-800/30 cursor-pointer"),
-      Events.onClick(Boj(SelectCartridge(cartridge.name))),
-    },
-    list{
-      td(list{Attrs.class_("px-2 py-1 text-xs")}, list{loadedBadge}),
-      td(list{Attrs.class_("px-2 py-1 text-xs text-gray-200")}, list{text(cartridge.displayName)}),
-      td(list{Attrs.class_("px-2 py-1")}, list{gradeBadge}),
-      td(
-        list{Attrs.class_("px-2 py-1 text-xs text-gray-500")},
-        list{text(layerProgress(cartridge.layers))},
-      ),
-      ...protoCells,
-    },
-  )
-}
-
-let renderCartridgesMatrix = (state: bojState): Tea_Vdom.t<msg> => {
-  let filtered = filterCartridges(state.cartridges, state.filterText)
-  let protoHeaders =
-    allProtocols
-    ->Array.map(proto => {
-      th(
-        list{Attrs.class_("px-1 py-1 text-xs text-gray-500 font-normal text-center")},
-        list{text(protocolShort(proto))},
-      )
-    })
-    ->List.fromArray
-
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      // Filter
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          input(
-            list{
-              Attrs.class_(
-                "flex-1 px-3 py-1.5 text-xs bg-gray-800 text-gray-200 rounded border border-gray-700",
-              ),
-              Attrs.placeholder("Filter cartridges..."),
-              Attrs.value(state.filterText),
-              Events.onInput(t => Boj(SetBojFilter(t))),
-            },
-            list{},
-          ),
-          span(
-            list{Attrs.class_("text-xs text-gray-500")},
-            list{
-              text(
-                `${Int.toString(Array.length(filtered))} of ${Int.toString(
-                    Array.length(state.cartridges),
-                  )}`,
-              ),
-            },
-          ),
-        },
-      ),
-      // Matrix table
-      div(
-        list{Attrs.class_("overflow-x-auto")},
-        list{
-          table(
-            list{
-              Attrs.class_("w-full text-left"),
-              Attrs.role("grid"),
-              Attrs.ariaLabel("Cartridge capability matrix"),
-            },
-            list{
-              thead(
-                list{},
-                list{
-                  tr(
-                    list{Attrs.class_("border-b border-gray-700")},
-                    list{
-                      th(list{Attrs.class_("px-2 py-1 text-xs text-gray-500 font-normal")}, list{}),
-                      th(
-                        list{Attrs.class_("px-2 py-1 text-xs text-gray-500 font-normal")},
-                        list{text("Cartridge")},
-                      ),
-                      th(
-                        list{Attrs.class_("px-2 py-1 text-xs text-gray-500 font-normal")},
-                        list{text("Grade")},
-                      ),
-                      th(
-                        list{Attrs.class_("px-2 py-1 text-xs text-gray-500 font-normal")},
-                        list{text("Layers")},
-                      ),
-                      ...protoHeaders,
-                    },
-                  ),
-                },
-              ),
-              tbody(list{}, filtered->Array.map(renderCartridgeRow)->List.fromArray),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Cartridge Detail (shown when a cartridge is selected)
-// ============================================================================
-
-let renderCartridgeDetail = (state: bojState, name: string): Tea_Vdom.t<msg> => {
-  let cartOpt = state.cartridges->Array.find(c => c.name === name)
-  switch cartOpt {
-  | None => div(list{}, list{text("Cartridge not found")})
-  | Some(cart) =>
-    div(
-      list{Attrs.class_("bg-gray-800/30 border border-gray-700 rounded p-4 space-y-3")},
-      list{
-        // Header
-        div(
-          list{Attrs.class_("flex items-center justify-between")},
-          list{
-            div(
-              list{Attrs.class_("flex items-center gap-3")},
-              list{
-                span(
-                  list{Attrs.class_("text-sm font-medium text-gray-200")},
-                  list{text(cart.displayName)},
-                ),
-                span(
-                  list{
-                    Attrs.class_(`px-1.5 py-0.5 text-xs rounded border ${gradeColour(cart.grade)}`),
-                  },
-                  list{text(gradeLabel(cart.grade))},
-                ),
-              },
-            ),
-            button(
-              list{
-                Attrs.class_("text-xs text-gray-500 hover:text-gray-300"),
-                Events.onClick(Boj(SelectCartridge(""))),
-                Attrs.ariaLabel("Close detail"),
-              },
-              list{text("✕")},
-            ),
-          },
-        ),
-        // Description
-        div(list{Attrs.class_("text-xs text-gray-400")}, list{text(cart.description)}),
-        // Layer status
-        div(
-          list{Attrs.class_("grid grid-cols-4 gap-2 text-xs")},
-          list{
-            div(
-              list{Attrs.class_(cart.layers.abiReady ? "text-green-400" : "text-gray-600")},
-              list{text(cart.layers.abiReady ? "✓ ABI (Idris2)" : "○ ABI (Idris2)")},
-            ),
-            div(
-              list{Attrs.class_(cart.layers.ffiReady ? "text-green-400" : "text-gray-600")},
-              list{text(cart.layers.ffiReady ? "✓ FFI (Zig)" : "○ FFI (Zig)")},
-            ),
-            div(
-              list{Attrs.class_(cart.layers.adapterReady ? "text-green-400" : "text-gray-600")},
-              list{text(cart.layers.adapterReady ? "✓ Adapter (V)" : "○ Adapter (V)")},
-            ),
-            div(
-              list{Attrs.class_(cart.layers.sharedLibReady ? "text-green-400" : "text-gray-600")},
-              list{text(cart.layers.sharedLibReady ? "✓ .so built" : "○ .so pending")},
-            ),
-          },
-        ),
-        // Ports
-        if cart.restPort > 0 || cart.grpcPort > 0 || cart.graphqlPort > 0 {
-          div(
-            list{Attrs.class_("flex gap-4 text-xs text-gray-500")},
-            list{
-              if cart.restPort > 0 {
-                span(list{}, list{text(`REST :${Int.toString(cart.restPort)}`)})
-              } else {
-                noNode
-              },
-              if cart.grpcPort > 0 {
-                span(list{}, list{text(`gRPC :${Int.toString(cart.grpcPort)}`)})
-              } else {
-                noNode
-              },
-              if cart.graphqlPort > 0 {
-                span(list{}, list{text(`GraphQL :${Int.toString(cart.graphqlPort)}`)})
-              } else {
-                noNode
-              },
-            },
-          )
-        } else {
-          noNode
-        },
-        // Load/Unload buttons
-        div(
-          list{Attrs.class_("flex gap-2")},
-          list{
-            if cart.loaded {
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1.5 text-xs bg-red-900/50 text-red-300 rounded border border-red-700 hover:bg-red-800/50",
-                  ),
-                  Events.onClick(Boj(UnloadCartridge(cart.name))),
-                },
-                list{text("Unload")},
-              )
-            } else {
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1.5 text-xs bg-cyan-900/50 text-cyan-300 rounded border border-cyan-700 hover:bg-cyan-800/50",
-                  ),
-                  Events.onClick(Boj(LoadCartridge(cart.name))),
-                },
-                list{text("Load")},
-              )
-            },
-            button(
-              list{
-                Attrs.class_(
-                  "px-3 py-1.5 text-xs bg-gray-700 text-gray-300 rounded border border-gray-600 hover:bg-gray-600",
-                ),
-                Events.onClick(Boj(SetBojCategory(Invoke))),
-              },
-              list{text("Invoke →")},
-            ),
-          },
-        ),
-        // SHA hash
-        if cart.soHash !== "" {
-          div(
-            list{Attrs.class_("text-xs text-gray-600 font-mono truncate")},
-            list{text(`SHA-256: ${cart.soHash}`)},
-          )
-        } else {
-          noNode
-        },
-      },
-    )
-  }
-}
-
-// ============================================================================
-// Topology Tab — Interactive Layered Architecture View
-// ============================================================================
-
-/// Render a single topology layer card with detail metrics.
-let renderTopologyLayer = (
-  title: string,
-  subtitle: string,
-  colour: string,
-  borderColour: string,
-  metrics: array<(string, string)>,
-  readyCount: int,
-  totalCount: int,
-): Tea_Vdom.t<msg> => {
-  let pct = if totalCount > 0 {
-    readyCount * 100 / totalCount
-  } else {
-    0
-  }
-  div(
-    list{
-      Attrs.class_(
-        `bg-gray-800/40 border rounded-lg p-4 ${borderColour} hover:bg-gray-800/60 transition-colors`,
-      ),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-2")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              span(list{Attrs.class_(`text-sm font-bold ${colour}`)}, list{text(title)}),
-              span(list{Attrs.class_("text-[10px] text-gray-600")}, list{text(subtitle)}),
-            },
-          ),
-          // Readiness gauge
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              div(
-                list{Attrs.class_("w-20 h-2 bg-gray-700 rounded-full overflow-hidden")},
-                list{
-                  div(
-                    list{
-                      Attrs.class_(
-                        `h-full rounded-full ${if pct >= 80 {
-                            "bg-emerald-500"
-                          } else if pct >= 50 {
-                            "bg-amber-500"
-                          } else {
-                            "bg-red-500"
-                          }}`,
-                      ),
-                      Attrs.style("width", `${Int.toString(pct)}%`),
-                    },
-                    list{},
-                  ),
-                },
-              ),
-              span(
-                list{Attrs.class_("text-[10px] text-gray-500 font-mono")},
-                list{text(`${Int.toString(readyCount)}/${Int.toString(totalCount)}`)},
-              ),
-            },
-          ),
-        },
-      ),
-      // Metrics grid
-      div(
-        list{Attrs.class_("grid grid-cols-3 gap-2 mt-2")},
-        metrics
-        ->Array.map(((label, value)) =>
-          div(
-            list{Attrs.class_("text-xs")},
-            list{
-              div(list{Attrs.class_("text-gray-600")}, list{text(label)}),
-              div(list{Attrs.class_("text-gray-300 font-mono")}, list{text(value)}),
-            },
-          )
-        )
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-/// Render the data flow arrow between layers.
-let renderFlowArrow = (label: string): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex items-center justify-center py-1")},
-    list{
-      div(
-        list{Attrs.class_("text-gray-700 text-xs flex items-center gap-1")},
-        list{
-          span(list{}, list{text("▼")}),
-          span(list{Attrs.class_("text-[10px] text-gray-600")}, list{text(label)}),
-          span(list{}, list{text("▼")}),
-        },
-      ),
-    },
-  )
-}
-
-let renderTopology = (state: bojState): Tea_Vdom.t<msg> => {
-  let abiReady = state.cartridges->Array.filter(c => c.layers.abiReady)->Array.length
-  let ffiReady = state.cartridges->Array.filter(c => c.layers.ffiReady)->Array.length
-  let adapterReady = state.cartridges->Array.filter(c => c.layers.adapterReady)->Array.length
-  let soReady = state.cartridges->Array.filter(c => c.layers.sharedLibReady)->Array.length
-  let total = Array.length(state.cartridges)
-  let restPorts = state.cartridges->Array.filter(c => c.restPort > 0)->Array.length
-  let grpcPorts = state.cartridges->Array.filter(c => c.grpcPort > 0)->Array.length
-  let gqlPorts = state.cartridges->Array.filter(c => c.graphqlPort > 0)->Array.length
-
-  div(
-    list{Attrs.class_("space-y-1")},
-    list{
-      div(
-        list{Attrs.class_("text-xs text-gray-400 mb-3")},
-        list{text("BoJ Architecture — Interactive 3-Layer Cartridge Stack")},
-      ),
-      // Layer 1: V-lang Adapter
-      renderTopologyLayer(
-        "V-lang Triple Adapter",
-        "REST + gRPC + GraphQL",
-        "text-violet-400",
-        "border-violet-800",
-        [
-          ("REST endpoints", Int.toString(restPorts)),
-          ("gRPC endpoints", Int.toString(grpcPorts)),
-          ("GraphQL endpoints", Int.toString(gqlPorts)),
-        ],
-        adapterReady,
-        total,
-      ),
-      renderFlowArrow("C ABI calls"),
-      // Layer 2: Zig FFI
-      renderTopologyLayer(
-        "Zig FFI",
-        "C-compatible, zero-cost",
-        "text-amber-400",
-        "border-amber-800",
-        [
-          (".so files built", Int.toString(soReady)),
-          ("State machines", Int.toString(ffiReady)),
-          ("Hash verified", Int.toString(soReady)),
-        ],
-        ffiReady,
-        total,
-      ),
-      renderFlowArrow("dependent type proofs"),
-      // Layer 3: Idris2 ABI
-      renderTopologyLayer(
-        "Idris2 ABI",
-        "Dependent types, formal proofs",
-        "text-cyan-400",
-        "border-cyan-800",
-        [
-          ("Definitions ready", Int.toString(abiReady)),
-          ("Safe* modules", "7"),
-          ("Proof strategy", "compile-time"),
-        ],
-        abiReady,
-        total,
-      ),
-      renderFlowArrow("UDP gossip protocol"),
-      // Layer 4: Umoja Federation
-      renderTopologyLayer(
-        "Umoja Federation",
-        "IPv6 UDP gossip, SHA-256 attestation",
-        "text-indigo-400",
-        "border-indigo-800",
-        [
-          ("Active peers", Int.toString(Array.length(state.umoja.peers))),
-          ("Gossip round", Int.toString(state.umoja.currentRound)),
-          (
-            "Status",
-            if state.umoja.active {
-              "Active"
-            } else {
-              "Inactive"
-            },
-          ),
-        ],
-        if state.umoja.active {
-          1
-        } else {
-          0
-        },
-        1,
-      ),
-      // Refresh
-      div(
-        list{Attrs.class_("flex gap-2 mt-3")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-xs bg-gray-700 text-gray-300 rounded border border-gray-600 hover:bg-gray-600",
-              ),
-              Events.onClick(Boj(RefreshTopology)),
-              KeyboardNav.onActivate(Boj(RefreshTopology)),
-            },
-            list{text("Refresh Topology")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Federation Tab
-// ============================================================================
-
-/// Format a relative time string from a Unix timestamp (seconds).
-let relativeTime = (timestamp: float): string => {
-  let now = Date.now() /. 1000.0
-  let diff = now -. timestamp
-  if diff < 0.0 {
-    "just now"
-  } else if diff < 60.0 {
-    `${Int.toString(Float.toInt(diff))}s ago`
-  } else if diff < 3600.0 {
-    `${Int.toString(Float.toInt(diff /. 60.0))}m ago`
-  } else if diff < 86400.0 {
-    `${Int.toString(Float.toInt(diff /. 3600.0))}h ago`
-  } else {
-    `${Int.toString(Float.toInt(diff /. 86400.0))}d ago`
-  }
-}
-
-/// Determine catalogue sync status by comparing a peer's digest against
-/// the local node's digest (first peer with Verified state, or local node).
-let catalogueSyncLabel = (state: bojState, peer: umojaPeer): (string, string) => {
-  // Compare against the first verified peer's digest as a proxy for local.
-  // If the local catalogue digest is not tracked separately, we compare
-  // against the most common digest among verified peers.
-  let localDigest =
-    state.umoja.peers
-    ->Array.find(p => p.state === PeerVerified && p.nodeId !== peer.nodeId)
-    ->Option.map(p => p.catalogueDigest)
-    ->Option.getOr("")
-  if peer.catalogueDigest === "" {
-    ("unknown", "text-gray-600")
-  } else if localDigest === "" || peer.catalogueDigest === localDigest {
-    ("in sync", "text-green-400")
-  } else {
-    ("differs", "text-amber-400")
-  }
-}
-
-/// Render per-peer action buttons based on peer state.
-let renderPeerActions = (peer: umojaPeer): Tea_Vdom.t<msg> => {
-  let disconnectBtn = switch peer.state {
-  | PeerVerified | PeerExchanged =>
-    button(
-      list{
-        Attrs.class_(
-          "px-2 py-0.5 text-xs bg-red-900/40 text-red-300 rounded border border-red-800 hover:bg-red-800/50",
-        ),
-        Events.onClick(Boj(UmojaDisconnectPeer(peer.nodeId))),
-        Attrs.ariaLabel(`Disconnect peer ${peer.nodeId}`),
-      },
-      list{text("Disconnect")},
-    )
-  | PeerPending | PeerRejected | PeerStale => noNode
-  }
-  let syncBtn = switch peer.state {
-  | PeerVerified =>
-    button(
-      list{
-        Attrs.class_(
-          "px-2 py-0.5 text-xs bg-cyan-900/40 text-cyan-300 rounded border border-cyan-800 hover:bg-cyan-800/50",
-        ),
-        Events.onClick(Boj(UmojaSyncCatalogue(peer.nodeId))),
-        Attrs.ariaLabel(`Sync catalogue with peer ${peer.nodeId}`),
-      },
-      list{text("Sync Catalogue")},
-    )
-  | PeerPending | PeerExchanged | PeerRejected | PeerStale => noNode
-  }
-  let metricsBtn = button(
-    list{
-      Attrs.class_(
-        "px-2 py-0.5 text-xs bg-gray-700 text-gray-300 rounded border border-gray-600 hover:bg-gray-600",
-      ),
-      Events.onClick(Boj(UmojaPeerMetrics(peer.nodeId))),
-      Attrs.ariaLabel(`View metrics for peer ${peer.nodeId}`),
-    },
-    list{text("Metrics")},
-  )
-  div(list{Attrs.class_("flex gap-1 ml-auto")}, list{syncBtn, disconnectBtn, metricsBtn})
-}
-
-let renderFederation = (state: bojState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-4")},
-    list{
-      // Status bar
-      div(
-        list{Attrs.class_("flex items-center gap-3")},
-        list{
-          div(
-            list{
-              Attrs.class_(
-                state.umoja.active
-                  ? "px-2 py-1 text-xs bg-green-900/50 text-green-300 rounded border border-green-700"
-                  : "px-2 py-1 text-xs bg-gray-800 text-gray-500 rounded border border-gray-700",
-              ),
-            },
-            list{text(state.umoja.active ? "Federation Active" : "Federation Inactive")},
-          ),
-          span(
-            list{Attrs.class_("text-xs text-gray-500")},
-            list{text(`Node: ${state.umoja.localNodeId}`)},
-          ),
-          span(
-            list{Attrs.class_("text-xs text-gray-500")},
-            list{text(`Round: ${Int.toString(state.umoja.currentRound)}`)},
-          ),
-        },
-      ),
-      // Add Peer section
-      div(
-        list{Attrs.class_("bg-gray-800/30 border border-gray-700 rounded p-3")},
-        list{
-          div(list{Attrs.class_("text-xs text-gray-400 mb-2")}, list{text("Add Peer")}),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              input(
-                list{
-                  Attrs.class_(
-                    "flex-1 px-3 py-1.5 text-xs bg-gray-800 text-gray-200 rounded border border-gray-700",
-                  ),
-                  Attrs.placeholder("Peer address (e.g. 192.168.1.100:9876 or [::1]:9876)"),
-                  Attrs.value(state.umojaAddPeerInput),
-                  Events.onInput(v => Boj(UmojaAddPeerInput(v))),
-                },
-                list{},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1.5 text-xs bg-indigo-900/50 text-indigo-300 rounded border border-indigo-700 hover:bg-indigo-800/50",
-                  ),
-                  Events.onClick(Boj(UmojaAddPeer(state.umojaAddPeerInput))),
-                  Attrs.disabled(state.umojaAddPeerInput === ""),
-                  Attrs.ariaLabel("Add peer to federation"),
-                },
-                list{text("Add")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Peer list with management controls
-      if Array.length(state.umoja.peers) > 0 {
-        div(
-          list{Attrs.class_("space-y-1")},
-          state.umoja.peers
-          ->Array.map(peer => {
-            let (syncStatus, syncColour) = catalogueSyncLabel(state, peer)
-            div(
-              list{
-                Attrs.class_(
-                  "flex items-center gap-3 bg-gray-800/30 border border-gray-700 rounded px-3 py-2",
-                ),
-              },
-              list{
-                // Peer state badge
-                span(
-                  list{Attrs.class_(`text-xs font-medium ${peerStateColour(peer.state)}`)},
-                  list{text(peerStateLabel(peer.state))},
-                ),
-                // Node ID
-                span(list{Attrs.class_("text-xs text-gray-300")}, list{text(peer.nodeId)}),
-                // Address
-                span(list{Attrs.class_("text-xs text-gray-500")}, list{text(peer.address)}),
-                // Last seen (relative time)
-                span(
-                  list{Attrs.class_("text-xs text-gray-600")},
-                  list{text(peer.lastSeen > 0.0 ? relativeTime(peer.lastSeen) : "never")},
-                ),
-                // Catalogue sync status
-                span(list{Attrs.class_(`text-xs ${syncColour}`)}, list{text(syncStatus)}),
-                // Catalogue digest (truncated)
-                span(
-                  list{Attrs.class_("text-xs text-gray-700 font-mono truncate max-w-32")},
-                  list{text(peer.catalogueDigest)},
-                ),
-                // Per-peer action buttons
-                renderPeerActions(peer),
-              },
-            )
-          })
-          ->List.fromArray,
-        )
-      } else {
-        div(
-          list{Attrs.class_("text-xs text-gray-500 italic")},
-          list{
-            text(
-              "No peers discovered. Add a peer or start the Umoja federation layer to begin gossip.",
-            ),
-          },
-        )
-      },
-      // Action buttons row
-      div(
-        list{Attrs.class_("flex gap-2")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-xs bg-amber-900/50 text-amber-300 rounded border border-amber-700 hover:bg-amber-800/50",
-              ),
-              Events.onClick(Boj(UmojaTriggerGossip)),
-              KeyboardNav.onActivate(Boj(UmojaTriggerGossip)),
-              Attrs.ariaLabel("Trigger manual gossip round"),
-            },
-            list{text("Trigger Gossip Round")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-xs bg-indigo-900/50 text-indigo-300 rounded border border-indigo-700 hover:bg-indigo-800/50",
-              ),
-              Events.onClick(Boj(RefreshUmoja)),
-              KeyboardNav.onActivate(Boj(RefreshUmoja)),
-            },
-            list{text("Refresh Federation")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Invoke Tab
-// ============================================================================
-
-let renderInvoke = (state: bojState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      // Cartridge selector
-      div(
-        list{Attrs.class_("space-y-1")},
-        list{
-          label(list{Attrs.class_("text-xs text-gray-400")}, list{text("Cartridge")}),
-          select(
-            list{
-              Attrs.class_(
-                "w-full px-3 py-1.5 text-xs bg-gray-800 text-gray-200 rounded border border-gray-700",
-              ),
-              Events.onChange(v => Boj(SetInvokeCartridge(v))),
-            },
-            list{
-              option'(list{Attrs.value("")}, list{text("Select cartridge...")}),
-              ...state.cartridges
-              ->Array.filter(c => c.loaded)
-              ->Array.map(c => option'(list{Attrs.value(c.name)}, list{text(c.displayName)}))
-              ->List.fromArray,
-            },
-          ),
-        },
-      ),
-      // Tool name
-      div(
-        list{Attrs.class_("space-y-1")},
-        list{
-          label(list{Attrs.class_("text-xs text-gray-400")}, list{text("Tool")}),
-          input(
-            list{
-              Attrs.class_(
-                "w-full px-3 py-1.5 text-xs bg-gray-800 text-gray-200 rounded border border-gray-700",
-              ),
-              Attrs.placeholder("Tool name (e.g. query, connect, status)"),
-              Attrs.value(state.invokeTool),
-              Events.onInput(v => Boj(SetInvokeTool(v))),
-            },
-            list{},
-          ),
-        },
-      ),
-      // Args (JSON)
-      div(
-        list{Attrs.class_("space-y-1")},
-        list{
-          label(list{Attrs.class_("text-xs text-gray-400")}, list{text("Arguments (JSON)")}),
-          textarea(
-            list{
-              Attrs.class_(
-                "w-full px-3 py-1.5 text-xs bg-gray-800 text-gray-200 rounded border border-gray-700 font-mono h-20",
-              ),
-              Attrs.placeholder(`{"key": "value"}`),
-              Events.onInput(v => Boj(SetInvokeArgs(v))),
-            },
-            list{},
-          ),
-        },
-      ),
-      // Execute button
-      button(
-        list{
-          Attrs.class_(
-            "px-4 py-2 text-xs bg-cyan-900/50 text-cyan-300 rounded border border-cyan-700 hover:bg-cyan-800/50",
-          ),
-          Events.onClick(Boj(ExecuteInvoke)),
-          KeyboardNav.onActivate(Boj(ExecuteInvoke)),
-          Attrs.disabled(state.invokeCartridge === "" || state.invokeTool === ""),
-        },
-        list{text(state.loading ? "Invoking..." : "Invoke")},
-      ),
-      // Result
-      switch state.invokeResult {
-      | None => noNode
-      | Some(result) =>
-        div(
-          list{
-            Attrs.class_(
-              result.success
-                ? "bg-green-900/20 border border-green-800 rounded p-3"
-                : "bg-red-900/20 border border-red-800 rounded p-3",
-            ),
-          },
-          list{
-            div(
-              list{Attrs.class_("flex items-center justify-between mb-2")},
-              list{
-                span(
-                  list{
-                    Attrs.class_(
-                      result.success ? "text-xs text-green-400" : "text-xs text-red-400",
-                    ),
-                  },
-                  list{text(result.success ? "Success" : "Failed")},
-                ),
-                span(
-                  list{Attrs.class_("text-xs text-gray-500")},
-                  list{text(`${Int.toString(result.durationMs)}ms`)},
-                ),
-              },
-            ),
-            pre(
-              list{
-                Attrs.class_(
-                  "text-xs text-gray-300 font-mono whitespace-pre-wrap overflow-auto max-h-40",
-                ),
-              },
-              list{text(result.payload)},
-            ),
-          },
-        )
-      },
-      // TypeLL type-check result
-      viewTypeCheckResult(state.lastTypeCheck),
-    },
-  )
-}
-
-// ============================================================================
-// Main View
-// ============================================================================
-
-let view = (state: bojState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 z-40 bg-gray-950/95 flex flex-col overflow-hidden"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Bundle of Joy — Cartridge Server"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("px-4 py-3 border-b border-gray-800 flex items-center justify-between")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              span(
-                list{Attrs.class_("text-sm font-medium text-cyan-300")},
-                list{text("BoJ — Bundle of Joy")},
-              ),
-              renderConnectionStatus(state),
-            },
-          ),
-          // Close button
-          button(
-            list{
-              Attrs.class_("text-gray-500 hover:text-gray-300 text-sm"),
-              Events.onClick(PanelSwitcher(ClosePanels)),
-              KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-              Attrs.ariaLabel("Close BoJ panel"),
-            },
-            list{text("✕")},
-          ),
-        },
-      ),
-      // Tab bar
-      div(
-        list{Attrs.class_("px-4 pt-2 flex gap-1 border-b border-gray-800"), Attrs.role("tablist")},
-        list{
-          renderTab(
-            "Dashboard",
-            state.activeCategory === Dashboard,
-            Boj(SetBojCategory(Dashboard)),
-          ),
-          renderTab(
-            "Cartridges",
-            state.activeCategory === Cartridges,
-            Boj(SetBojCategory(Cartridges)),
-          ),
-          renderTab("Topology", state.activeCategory === Topology, Boj(SetBojCategory(Topology))),
-          renderTab(
-            "Federation",
-            state.activeCategory === Federation,
-            Boj(SetBojCategory(Federation)),
-          ),
-          renderTab("Invoke", state.activeCategory === Invoke, Boj(SetBojCategory(Invoke))),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | None => noNode
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 px-3 py-2 bg-red-900/30 border border-red-800 rounded text-xs text-red-300 flex justify-between",
-            ),
-          },
-          list{
-            span(list{}, list{text(err)}),
-            button(
-              list{
-                Attrs.class_("text-red-500 hover:text-red-300 ml-2"),
-                Events.onClick(Boj(DismissBojError)),
-                KeyboardNav.onActivate(Boj(DismissBojError)),
-              },
-              list{text("✕")},
-            ),
-          },
-        )
-      },
-      // Content
-      div(
-        list{Attrs.class_("flex-1 overflow-auto p-4")},
-        list{
-          // Selected cartridge detail (shown above matrix)
-          switch state.selectedCartridge {
-          | Some(name) if name !== "" => renderCartridgeDetail(state, name)
-          | _ => noNode
-          },
-          // Tab content
-          switch state.activeCategory {
-          | Dashboard => renderDashboard(state)
-          | Cartridges => renderCartridgesMatrix(state)
-          | Topology => renderTopology(state)
-          | Federation => renderFederation(state)
-          | Invoke => renderInvoke(state)
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/BuildDashboard.affine b/src/components/BuildDashboard.affine
new file mode 100644
index 00000000..799b1ef0
--- /dev/null
+++ b/src/components/BuildDashboard.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module BuildDashboard;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/BuildDashboard.res b/src/components/BuildDashboard.res
deleted file mode 100644
index 3e021253..00000000
--- a/src/components/BuildDashboard.res
+++ /dev/null
@@ -1,454 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Build Dashboard Component — view for monitoring build processes,
-/// test results, and compilation status across IDApTIK sub-projects.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a category tab button.
-let renderTab = (
-  label: string,
-  cat: buildDashboardCategory,
-  active: buildDashboardCategory,
-): Tea_Vdom.t<msg> => {
-  let isActive = cat === active
-  let cls = isActive
-    ? "px-3 py-1.5 text-xs font-medium bg-gray-700 text-white rounded"
-    : "px-3 py-1.5 text-xs text-gray-400 hover:text-gray-200 hover:bg-gray-800 rounded cursor-pointer"
-  button(
-    list{Attrs.class_(cls), Events.onClick(BuildDashboard(SetBuildCategory(cat)))},
-    list{text(label)},
-  )
-}
-
-/// Render overview — target cards with status.
-let renderOverview = (state: buildDashboardState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-4")},
-    list{
-      // Stats row
-      div(
-        list{Attrs.class_("grid grid-cols-3 gap-3")},
-        list{
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-red-400")},
-                list{text(Int.toString(BuildDashboardEngine.errorCount(state.messages)))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Errors")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-amber-400")},
-                list{text(Int.toString(BuildDashboardEngine.warningCount(state.messages)))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Warnings")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-emerald-400")},
-                list{
-                  text(
-                    `${Int.toString(
-                        BuildDashboardEngine.passedTestCount(state.testResults),
-                      )}/${Int.toString(Array.length(state.testResults))}`,
-                  ),
-                },
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Tests Passed")}),
-            },
-          ),
-        },
-      ),
-      // Target cards
-      div(
-        list{Attrs.class_("grid grid-cols-2 lg:grid-cols-3 gap-3")},
-        state.targets
-        ->Array.map(((target, status)) => {
-          let colourCls = BuildDashboardEngine.targetColour(target)
-          let statusCls = BuildDashboardEngine.statusColour(status)
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded border border-gray-700")},
-            list{
-              div(
-                list{Attrs.class_("flex items-center justify-between mb-2")},
-                list{
-                  span(
-                    list{Attrs.class_(`text-sm font-medium ${colourCls}`)},
-                    list{text(BuildDashboardEngine.targetLabel(target))},
-                  ),
-                  span(
-                    list{Attrs.class_(`text-xs ${statusCls}`)},
-                    list{text(BuildDashboardEngine.statusLabel(status))},
-                  ),
-                },
-              ),
-              div(
-                list{Attrs.class_("flex items-center gap-2")},
-                list{
-                  button(
-                    list{
-                      Attrs.class_(
-                        "px-2 py-1 text-xs bg-emerald-700 text-white rounded hover:bg-emerald-600 cursor-pointer",
-                      ),
-                      Events.onClick(BuildDashboard(TriggerBuild(target))),
-                    },
-                    list{text("Build")},
-                  ),
-                  button(
-                    list{
-                      Attrs.class_(
-                        "px-2 py-1 text-xs bg-cyan-700 text-white rounded hover:bg-cyan-600 cursor-pointer",
-                      ),
-                      Events.onClick(BuildDashboard(RunTests(target))),
-                    },
-                    list{text("Test")},
-                  ),
-                },
-              ),
-            },
-          )
-        })
-        ->List.fromArray,
-      ),
-      // Controls
-      div(
-        list{Attrs.class_("flex items-center gap-3")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                if state.watchMode {
-                  "px-3 py-1.5 text-xs bg-emerald-700 text-white rounded"
-                } else {
-                  "px-3 py-1.5 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer"
-                },
-              ),
-              Events.onClick(BuildDashboard(ToggleWatchMode)),
-              KeyboardNav.onActivate(BuildDashboard(ToggleWatchMode)),
-            },
-            list{
-              text(
-                if state.watchMode {
-                  "Watch Mode On"
-                } else {
-                  "Watch Mode"
-                },
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_(
-                if state.autoRebuild {
-                  "px-3 py-1.5 text-xs bg-amber-700 text-white rounded"
-                } else {
-                  "px-3 py-1.5 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer"
-                },
-              ),
-              Events.onClick(BuildDashboard(ToggleAutoRebuild)),
-              KeyboardNav.onActivate(BuildDashboard(ToggleAutoRebuild)),
-            },
-            list{
-              text(
-                if state.autoRebuild {
-                  "Auto-Rebuild On"
-                } else {
-                  "Auto-Rebuild"
-                },
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_(
-                if state.bojRouting {
-                  "px-3 py-1.5 text-xs bg-blue-700 text-white rounded"
-                } else {
-                  "px-3 py-1.5 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600"
-                },
-              ),
-              Attrs.ariaLabel(
-                if state.bojRouting {
-                  "Disable BoJ routing"
-                } else {
-                  "Enable BoJ routing"
-                },
-              ),
-              Events.onClick(BuildDashboard(ToggleBuildBojRouting)),
-              KeyboardNav.onActivate(BuildDashboard(ToggleBuildBojRouting)),
-            },
-            list{
-              text(
-                if state.bojRouting {
-                  "BoJ On"
-                } else {
-                  "BoJ"
-                },
-              ),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render errors/warnings list.
-let renderErrors = (state: buildDashboardState): Tea_Vdom.t<msg> => {
-  if Array.length(state.messages) === 0 {
-    div(
-      list{Attrs.class_("text-center text-emerald-400 text-sm py-8")},
-      list{text("No build errors or warnings")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("space-y-1 max-h-96 overflow-y-auto")},
-      state.messages
-      ->Array.map(m => {
-        let sevCls = switch m.severity {
-        | "error" => "border-red-800 bg-red-900/20"
-        | "warning" => "border-amber-800 bg-amber-900/20"
-        | _ => "border-gray-700 bg-gray-800"
-        }
-        let targetCls = BuildDashboardEngine.targetColour(m.target)
-        div(
-          list{
-            Attrs.class_(`p-2 rounded border ${sevCls} cursor-pointer hover:opacity-80`),
-            Events.onClick(EditorBridge(OpenFileInEditor(m.filePath, m.line))),
-          },
-          list{
-            div(
-              list{Attrs.class_("flex items-center gap-2 mb-1 text-xs")},
-              list{
-                span(
-                  list{Attrs.class_(`font-bold ${targetCls}`)},
-                  list{text(BuildDashboardEngine.targetLabel(m.target))},
-                ),
-                span(
-                  list{Attrs.class_("text-gray-400 font-mono")},
-                  list{text(`${m.filePath}:${Int.toString(m.line)}:${Int.toString(m.col)}`)},
-                ),
-              },
-            ),
-            div(list{Attrs.class_("text-xs text-gray-300")}, list{text(m.message)}),
-          },
-        )
-      })
-      ->List.fromArray,
-    )
-  }
-}
-
-/// Render test results.
-let renderTests = (state: buildDashboardState): Tea_Vdom.t<msg> => {
-  let results = if state.showPassedTests {
-    state.testResults
-  } else {
-    state.testResults->Array.filter(r => !r.passed)
-  }
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                if state.showPassedTests {
-                  "px-2 py-1 text-xs bg-gray-600 text-white rounded"
-                } else {
-                  "px-2 py-1 text-xs bg-gray-700 text-gray-400 rounded cursor-pointer"
-                },
-              ),
-              Events.onClick(BuildDashboard(ToggleShowPassed)),
-              KeyboardNav.onActivate(BuildDashboard(ToggleShowPassed)),
-            },
-            list{text("Show Passed")},
-          ),
-          span(
-            list{Attrs.class_("text-xs text-gray-400")},
-            list{
-              text(
-                `${Int.toString(
-                    BuildDashboardEngine.passedTestCount(state.testResults),
-                  )} passed, ${Int.toString(
-                    BuildDashboardEngine.failedTestCount(state.testResults),
-                  )} failed`,
-              ),
-            },
-          ),
-        },
-      ),
-      if Array.length(results) === 0 {
-        div(
-          list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-          list{text("No test results")},
-        )
-      } else {
-        div(
-          list{Attrs.class_("space-y-1")},
-          results
-          ->Array.map(r =>
-            div(
-              list{
-                Attrs.class_(
-                  `flex items-center gap-3 p-2 rounded text-xs ${if r.passed {
-                      "bg-gray-800"
-                    } else {
-                      "bg-red-900/20 border border-red-800"
-                    }}`,
-                ),
-              },
-              list{
-                span(
-                  list{
-                    Attrs.class_(
-                      if r.passed {
-                        "text-emerald-400"
-                      } else {
-                        "text-red-400"
-                      },
-                    ),
-                  },
-                  list{
-                    text(
-                      if r.passed {
-                        "PASS"
-                      } else {
-                        "FAIL"
-                      },
-                    ),
-                  },
-                ),
-                span(list{Attrs.class_("text-gray-200 flex-1")}, list{text(r.name)}),
-                span(list{Attrs.class_("text-gray-500")}, list{text(r.suite)}),
-                span(
-                  list{Attrs.class_("text-gray-400 font-mono")},
-                  list{text(`${Float.toString(r.durationMs)}ms`)},
-                ),
-              },
-            )
-          )
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render build history.
-let renderHistory = (state: buildDashboardState): Tea_Vdom.t<msg> => {
-  if Array.length(state.history) === 0 {
-    div(
-      list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-      list{text("No build history")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("space-y-1")},
-      state.history
-      ->Array.map(entry => {
-        let statusCls = BuildDashboardEngine.statusColour(entry.status)
-        let targetCls = BuildDashboardEngine.targetColour(entry.target)
-        div(
-          list{Attrs.class_("flex items-center gap-3 p-2 bg-gray-800 rounded text-xs")},
-          list{
-            span(
-              list{Attrs.class_(`w-20 ${targetCls}`)},
-              list{text(BuildDashboardEngine.targetLabel(entry.target))},
-            ),
-            span(
-              list{Attrs.class_(statusCls)},
-              list{text(BuildDashboardEngine.statusLabel(entry.status))},
-            ),
-            span(
-              list{Attrs.class_("text-gray-400 font-mono")},
-              list{text(`${Float.toString(entry.durationMs)}ms`)},
-            ),
-            span(
-              list{Attrs.class_("text-gray-500")},
-              list{text(`${Int.toString(entry.errorCount)}E ${Int.toString(entry.warningCount)}W`)},
-            ),
-          },
-        )
-      })
-      ->List.fromArray,
-    )
-  }
-}
-
-/// Main view function.
-let view = (state: buildDashboardState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Build Dashboard panel"),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          span(
-            list{Attrs.class_("text-lg font-semibold text-gray-100")},
-            list{text("Build Dashboard")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer",
-              ),
-              Events.onClick(BuildDashboard(RefreshBuildStatus)),
-              KeyboardNav.onActivate(BuildDashboard(RefreshBuildStatus)),
-            },
-            list{text("Refresh")},
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("flex items-center gap-1 px-4 py-2 border-b border-gray-800")},
-        list{
-          renderTab("Overview", BuildOverview, state.activeCategory),
-          renderTab("Errors", BuildErrors, state.activeCategory),
-          renderTab("Tests", BuildTests, state.activeCategory),
-          renderTab("History", BuildHistory, state.activeCategory),
-        },
-      ),
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 p-2 bg-red-900/50 border border-red-700 rounded text-xs text-red-300",
-            ),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      div(
-        list{Attrs.class_("flex-1 overflow-auto p-4")},
-        list{
-          switch state.activeCategory {
-          | BuildOverview => renderOverview(state)
-          | BuildErrors => renderErrors(state)
-          | BuildTests => renderTests(state)
-          | BuildHistory => renderHistory(state)
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/BurbleRoomMonitor.affine b/src/components/BurbleRoomMonitor.affine
new file mode 100644
index 00000000..9736f16c
--- /dev/null
+++ b/src/components/BurbleRoomMonitor.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module BurbleRoomMonitor;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/BurbleRoomMonitor.res b/src/components/BurbleRoomMonitor.res
deleted file mode 100644
index 818f9a76..00000000
--- a/src/components/BurbleRoomMonitor.res
+++ /dev/null
@@ -1,379 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Burble Room Monitor Component — Active room dashboard.
-///
-/// Displays active voice rooms with participant counts, recording status,
-/// and speaking indicators per participant. Emits PanelBus events for
-/// cross-panel communication:
-///   - BurbleSpeechStarted(userId, displayName)
-///   - BurbleSpeechEnded(userId)
-///   - BurbleVoiceStarted(panelContext, roomId)
-///   - BurbleVoiceEnded(panelContext)
-///
-/// Uses the groove discovery protocol for room listing via
-/// GET /api/v1/servers/:id/rooms.
-///
-/// TEA pattern:
-///   Model:  BurbleModel.burbleState (participants, huddle state)
-///   Cmd:    BurbleCmd.listRooms, BurbleCmd.joinHuddle
-///   View:   This file — renders room list and participant detail
-
-open Msg
-open Tea.Html
-
-// ===========================================================================
-// Room card — displays a single room with participant list
-// ===========================================================================
-
-/// Render the "current room" section when the user is in a huddle.
-let rec renderCurrentRoom = (state: BurbleModel.burbleState): Tea_Vdom.t<msg> => {
-  switch state.currentHuddle {
-  | None =>
-    div(
-      list{Attrs.class_("px-4 py-6 text-center border-b border-gray-800")},
-      list{
-        div(list{Attrs.class_("text-gray-500 text-sm mb-2")}, list{text("Not in a room")}),
-        div(
-          list{Attrs.class_("text-gray-600 text-xs")},
-          list{text("Join a huddle to see room activity and participant details.")},
-        ),
-      },
-    )
-  | Some(huddleId) =>
-    let participants = BurbleEngine.getParticipants(state)
-    let speakingCount = Array.length(BurbleEngine.speakingParticipants(state))
-
-    div(
-      list{Attrs.class_("border-b border-gray-800")},
-      list{
-        // Room header
-        div(
-          list{Attrs.class_("flex items-center justify-between px-4 py-3 bg-gray-900/50")},
-          list{
-            div(
-              list{Attrs.class_("flex items-center gap-3")},
-              list{
-                // Active indicator
-                div(
-                  list{Attrs.class_("w-2.5 h-2.5 rounded-full bg-emerald-400 animate-pulse")},
-                  list{},
-                ),
-                div(
-                  list{},
-                  list{
-                    div(
-                      list{Attrs.class_("text-sm text-gray-200 font-medium")},
-                      list{text(huddleId)},
-                    ),
-                    div(
-                      list{Attrs.class_("text-xs text-gray-500")},
-                      list{
-                        text(
-                          `${Int.toString(Array.length(participants))} participants, ${Int.toString(
-                              speakingCount,
-                            )} speaking`,
-                        ),
-                      },
-                    ),
-                  },
-                ),
-              },
-            ),
-            // Leave button
-            button(
-              list{
-                Attrs.class_(
-                  "px-3 py-1 text-xs bg-red-900/50 text-red-300 rounded hover:bg-red-800/50 border border-red-700 transition-colors",
-                ),
-                Events.onClick(Burble(BurbleModel.LeftHuddle)),
-                KeyboardNav.onActivate(Burble(BurbleModel.LeftHuddle)),
-                Attrs.title("Leave room"),
-              },
-              list{text("Leave")},
-            ),
-          },
-        ),
-        // Recording status
-        div(
-          list{
-            Attrs.class_(
-              "flex items-center gap-2 px-4 py-2 border-t border-gray-800/50 bg-gray-900/30",
-            ),
-          },
-          list{
-            div(list{Attrs.class_("w-2 h-2 rounded-full bg-gray-600")}, list{}),
-            span(list{Attrs.class_("text-xs text-gray-500")}, list{text("Recording: Off")}),
-            div(list{Attrs.class_("flex-1")}, list{}),
-            span(list{Attrs.class_("text-xs text-gray-600")}, list{text("Consent: Avow")}),
-          },
-        ),
-        // Participant list
-        div(
-          list{Attrs.class_("max-h-64 overflow-y-auto")},
-          participants
-          ->Array.map(p => renderParticipantRow(p))
-          ->List.fromArray,
-        ),
-      },
-    )
-  }
-}
-
-/// Render a single participant row with speaking indicator.
-and renderParticipantRow = (participant: BurbleModel.participant): Tea_Vdom.t<msg> => {
-  let speakingIndicator = participant.isSpeaking
-    ? "border-l-2 border-l-emerald-500 bg-gray-900/30"
-    : "border-l-2 border-l-transparent"
-  let voiceLabel = switch participant.voiceState {
-  | BurbleModel.Connected => "Active"
-  | BurbleModel.Muted => "Muted"
-  | BurbleModel.Deafened => "Deaf"
-  }
-  let voiceColour = switch participant.voiceState {
-  | BurbleModel.Connected => "text-emerald-400"
-  | BurbleModel.Muted => "text-amber-400"
-  | BurbleModel.Deafened => "text-red-400"
-  }
-
-  div(
-    list{
-      Attrs.class_(`flex items-center gap-3 py-2 px-4 ${speakingIndicator} transition-all`),
-      Attrs.ariaLabel(`${participant.displayName}: ${voiceLabel}`),
-    },
-    list{
-      // Speaking animation
-      div(
-        list{
-          Attrs.class_(
-            `w-2 h-2 rounded-full transition-colors ${participant.isSpeaking
-                ? "bg-emerald-400"
-                : "bg-gray-700"}`,
-          ),
-        },
-        list{},
-      ),
-      // Name
-      span(list{Attrs.class_("text-sm text-gray-300 flex-1")}, list{text(participant.displayName)}),
-      // Voice state badge
-      span(list{Attrs.class_(`text-xs ${voiceColour}`)}, list{text(voiceLabel)}),
-      // Volume level (small bar)
-      div(
-        list{Attrs.class_("w-16 h-1.5 bg-gray-800 rounded-full overflow-hidden")},
-        list{
-          div(
-            list{
-              Attrs.class_(
-                `h-full rounded-full ${participant.isSpeaking
-                    ? "bg-emerald-500"
-                    : "bg-gray-600"} transition-all duration-100`,
-              ),
-              Attrs.style("width", `${Float.toFixed(participant.volume *. 100.0, ~digits=0)}%`),
-            },
-            list{},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ===========================================================================
-// Room actions — join/create room controls
-// ===========================================================================
-
-/// Render room action buttons.
-let renderRoomActions = (inHuddle: bool): Tea_Vdom.t<msg> => {
-  if inHuddle {
-    noNode
-  } else {
-    div(
-      list{Attrs.class_("flex items-center gap-2 px-4 py-3 border-b border-gray-800")},
-      list{
-        button(
-          list{
-            Attrs.class_(
-              "px-3 py-1.5 text-xs bg-emerald-900/50 text-emerald-300 rounded hover:bg-emerald-800/50 border border-emerald-700 transition-colors",
-            ),
-            Events.onClick(Burble(BurbleModel.ConnectionChanged(BurbleModel.Connecting))),
-            Attrs.title("Connect to Burble server"),
-          },
-          list{text("Connect")},
-        ),
-        span(
-          list{Attrs.class_("text-xs text-gray-600")},
-          list{text("Connect to see available rooms")},
-        ),
-      },
-    )
-  }
-}
-
-// ===========================================================================
-// Groove room discovery section
-// ===========================================================================
-
-/// Render the groove-discovered room list.
-/// Currently shows the current huddle. The listRooms command would populate
-/// additional rooms from the Burble API.
-let renderDiscoveredRooms = (_state: BurbleModel.burbleState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 overflow-y-auto")},
-    list{
-      // Section header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          span(
-            list{Attrs.class_("text-sm text-gray-300 font-medium")},
-            list{text("Discovered Rooms")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-2 py-1 text-xs bg-gray-800 text-gray-400 rounded hover:bg-gray-700 border border-gray-700 transition-colors",
-              ),
-              Events.onClick(Burble(BurbleModel.ConnectionChanged(BurbleModel.Connecting))),
-              Attrs.title("Refresh room list from groove endpoint"),
-            },
-            list{text("Refresh")},
-          ),
-        },
-      ),
-      // Placeholder for additional rooms from the API
-      div(
-        list{Attrs.class_("px-4 py-4 text-center")},
-        list{
-          div(
-            list{Attrs.class_("text-xs text-gray-600")},
-            list{text("Room discovery via groove: GET /api/v1/servers/:id/rooms")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ===========================================================================
-// Local voice controls — mute/deafen
-// ===========================================================================
-
-/// Render local voice control buttons.
-let renderVoiceControls = (state: BurbleModel.burbleState): Tea_Vdom.t<msg> => {
-  if !BurbleEngine.isInHuddle(state) {
-    noNode
-  } else {
-    div(
-      list{
-        Attrs.class_("flex items-center gap-3 px-4 py-2 border-t border-gray-800 bg-gray-900/30"),
-      },
-      list{
-        // Mute toggle
-        button(
-          list{
-            Attrs.class_(
-              `px-3 py-1.5 text-xs rounded border transition-colors ${state.isMuted
-                  ? "bg-amber-900/50 text-amber-300 border-amber-700"
-                  : "bg-gray-800 text-gray-300 border-gray-700 hover:bg-gray-700"}`,
-            ),
-            Events.onClick(Burble(BurbleModel.MuteToggled(!state.isMuted))),
-          },
-          list{text(state.isMuted ? "Unmute" : "Mute")},
-        ),
-        // Deafen toggle
-        button(
-          list{
-            Attrs.class_(
-              `px-3 py-1.5 text-xs rounded border transition-colors ${state.isDeafened
-                  ? "bg-red-900/50 text-red-300 border-red-700"
-                  : "bg-gray-800 text-gray-300 border-gray-700 hover:bg-gray-700"}`,
-            ),
-            Events.onClick(Burble(BurbleModel.DeafenToggled(!state.isDeafened))),
-          },
-          list{text(state.isDeafened ? "Undeafen" : "Deafen")},
-        ),
-        // Status
-        div(list{Attrs.class_("flex-1")}, list{}),
-        span(
-          list{Attrs.class_("text-xs text-gray-500")},
-          list{text(BurbleEngine.localVoiceLabel(state))},
-        ),
-      },
-    )
-  }
-}
-
-// ===========================================================================
-// Main view — full-screen panel overlay
-// ===========================================================================
-
-/// Main Burble Room Monitor panel view.
-///
-/// Layout:
-///   Header (title, close)
-///   Room actions (connect/join when not in huddle)
-///   Current room (participant list with speaking indicators)
-///   Discovered rooms (from groove discovery)
-///   Voice controls (mute/deafen when in huddle)
-let view = (state: BurbleModel.burbleState): Tea_Vdom.t<msg> => {
-  let inHuddle = BurbleEngine.isInHuddle(state)
-
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.ariaLabel("Burble Room Monitor panel"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              div(
-                list{Attrs.class_("text-lg font-medium text-gray-200")},
-                list{text("Room Monitor")},
-              ),
-              span(list{Attrs.class_("text-xs text-gray-500")}, list{text("Burble")}),
-              if inHuddle {
-                span(list{Attrs.class_("text-xs text-emerald-400")}, list{text("LIVE")})
-              } else {
-                noNode
-              },
-            },
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-sm text-gray-400 hover:text-gray-200 bg-gray-800 rounded hover:bg-gray-700 transition-colors",
-              ),
-              Events.onClick(PanelSwitcher(ClosePanels)),
-              KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-            },
-            list{text("Close")},
-          ),
-        },
-      ),
-      // Error display
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_("px-4 py-2 bg-red-900/30 border-b border-red-800 text-xs text-red-400"),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      // Room actions (when not in huddle)
-      renderRoomActions(inHuddle),
-      // Current room detail
-      renderCurrentRoom(state),
-      // Discovered rooms from groove
-      renderDiscoveredRooms(state),
-      // Voice controls (when in huddle)
-      renderVoiceControls(state),
-    },
-  )
-}
diff --git a/src/components/BurbleServerStatus.affine b/src/components/BurbleServerStatus.affine
new file mode 100644
index 00000000..7f3a03c4
--- /dev/null
+++ b/src/components/BurbleServerStatus.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module BurbleServerStatus;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/BurbleServerStatus.res b/src/components/BurbleServerStatus.res
deleted file mode 100644
index 6bf5d0f0..00000000
--- a/src/components/BurbleServerStatus.res
+++ /dev/null
@@ -1,291 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Burble Server Status Component — Groove-aware health panel.
-///
-/// Displays Burble server connection state, active rooms, total participants,
-/// uptime, and a groove capability summary showing which services are connected.
-///
-/// Uses the groove discovery protocol to probe localhost:6473/.well-known/groove
-/// and enriches the view with capability details (voice, text, presence, TTS,
-/// STT, recording, spatial audio).
-///
-/// TEA pattern:
-///   Model:  BurbleModel.burbleState + grooveManifest from BurbleCmd
-///   Update: BurbleEngine.update (pure state transitions)
-///   Cmd:    BurbleCmd.checkGroove, BurbleCmd.getHealth
-///   View:   This file — renders server status and groove discovery
-
-open Msg
-open Tea.Html
-
-// ===========================================================================
-// Groove capability row — coloured pill with endpoint and protocol
-// ===========================================================================
-
-/// Capability status from groove manifest.
-type grooveCapability = {
-  name: string,
-  capType: string,
-  protocol: string,
-  endpoint: string,
-  panelCompatible: bool,
-}
-
-/// Render a single groove capability as a status row.
-let renderCapability = (cap: grooveCapability): Tea_Vdom.t<msg> => {
-  let compatClass = cap.panelCompatible ? "text-emerald-400" : "text-gray-600"
-  let protocolBadge = switch cap.protocol {
-  | "webrtc" => "bg-purple-900/50 text-purple-300 border-purple-700"
-  | "websocket" => "bg-blue-900/50 text-blue-300 border-blue-700"
-  | "http" => "bg-amber-900/50 text-amber-300 border-amber-700"
-  | _ => "bg-gray-800 text-gray-400 border-gray-700"
-  }
-
-  div(
-    list{Attrs.class_("flex items-center gap-3 py-1.5 px-3 border-b border-gray-800/50")},
-    list{
-      // Capability name
-      span(list{Attrs.class_("text-sm text-gray-300 w-28")}, list{text(cap.name)}),
-      // Protocol badge
-      span(
-        list{Attrs.class_(`text-xs px-1.5 py-0.5 rounded border ${protocolBadge}`)},
-        list{text(cap.protocol)},
-      ),
-      // Endpoint
-      span(list{Attrs.class_("text-xs text-gray-500 font-mono flex-1")}, list{text(cap.endpoint)}),
-      // Panel compatible indicator
-      span(
-        list{
-          Attrs.class_(`text-xs ${compatClass}`),
-          Attrs.title(cap.panelCompatible ? "Panel-compatible" : "Not panel-compatible"),
-        },
-        list{text(cap.panelCompatible ? "PANEL" : "---")},
-      ),
-    },
-  )
-}
-
-// ===========================================================================
-// Connection status indicator
-// ===========================================================================
-
-/// Render the server connection status header.
-let renderConnectionStatus = (connection: BurbleModel.connectionState): Tea_Vdom.t<msg> => {
-  let (dotClass, label) = switch connection {
-  | Disconnected => ("bg-gray-600", "Disconnected")
-  | Connecting => ("bg-amber-400 animate-pulse", "Connecting...")
-  | Connected => ("bg-emerald-400", "Connected")
-  | Reconnecting => ("bg-amber-400 animate-pulse", "Reconnecting...")
-  | Failed(reason) => ("bg-red-500", `Failed: ${reason}`)
-  }
-
-  div(
-    list{Attrs.class_("flex items-center gap-3 px-4 py-3 border-b border-gray-800")},
-    list{
-      div(list{Attrs.class_(`w-3 h-3 rounded-full ${dotClass}`)}, list{}),
-      div(
-        list{Attrs.class_("flex-1")},
-        list{
-          div(list{Attrs.class_("text-sm text-gray-200 font-medium")}, list{text("Burble Server")}),
-          div(list{Attrs.class_("text-xs text-gray-500")}, list{text(label)}),
-        },
-      ),
-      // Server URL
-      span(list{Attrs.class_("text-xs text-gray-600 font-mono")}, list{text("localhost:6473")}),
-    },
-  )
-}
-
-// ===========================================================================
-// Stats grid — rooms, participants, uptime
-// ===========================================================================
-
-/// Render a stat card in the overview grid.
-let statCard = (label: string, value: string, colour: string): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("bg-gray-900/60 border border-gray-800 rounded-lg p-3 text-center")},
-    list{
-      div(list{Attrs.class_(`text-2xl font-bold ${colour}`)}, list{text(value)}),
-      div(list{Attrs.class_("text-xs text-gray-500 mt-1")}, list{text(label)}),
-    },
-  )
-}
-
-/// Render the server stats overview grid.
-let renderStatsGrid = (state: BurbleModel.burbleState): Tea_Vdom.t<msg> => {
-  let participantCount = Int.toString(Array.length(Dict.valuesToArray(state.participants)))
-  let roomLabel = switch state.currentHuddle {
-  | Some(_) => "1"
-  | None => "0"
-  }
-
-  div(
-    list{Attrs.class_("grid grid-cols-3 gap-3 px-4 py-3 border-b border-gray-800")},
-    list{
-      statCard("Active Rooms", roomLabel, "text-blue-400"),
-      statCard("Participants", participantCount, "text-emerald-400"),
-      statCard("Connection", BurbleEngine.localVoiceLabel(state), "text-amber-400"),
-    },
-  )
-}
-
-// ===========================================================================
-// Groove capabilities section
-// ===========================================================================
-
-/// The known Burble groove capabilities from the /.well-known/groove manifest.
-/// These are rendered as a summary of what the Burble server offers.
-let burbleCapabilities: array<grooveCapability> = [
-  {name: "Voice", capType: "voice", protocol: "webrtc", endpoint: "/voice", panelCompatible: true},
-  {
-    name: "Text",
-    capType: "text",
-    protocol: "websocket",
-    endpoint: "/socket/websocket",
-    panelCompatible: true,
-  },
-  {
-    name: "Presence",
-    capType: "presence",
-    protocol: "websocket",
-    endpoint: "/socket/websocket",
-    panelCompatible: true,
-  },
-  {
-    name: "Spatial",
-    capType: "spatial-audio",
-    protocol: "webrtc",
-    endpoint: "/voice",
-    panelCompatible: false,
-  },
-  {
-    name: "Recording",
-    capType: "recording",
-    protocol: "http",
-    endpoint: "/api/v1/recordings",
-    panelCompatible: true,
-  },
-  {name: "TTS", capType: "tts", protocol: "http", endpoint: "/api/v1/tts", panelCompatible: false},
-  {name: "STT", capType: "stt", protocol: "http", endpoint: "/api/v1/stt", panelCompatible: false},
-]
-
-/// Render the groove capabilities section.
-let renderGrooveCapabilities = (connected: bool): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 overflow-y-auto")},
-    list{
-      // Section header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              span(
-                list{Attrs.class_("text-sm text-gray-300 font-medium")},
-                list{text("Groove Capabilities")},
-              ),
-              span(list{Attrs.class_("text-xs text-gray-600")}, list{text("/.well-known/groove")}),
-            },
-          ),
-          // Refresh button
-          button(
-            list{
-              Attrs.class_(
-                "px-2 py-1 text-xs bg-gray-800 text-gray-400 rounded hover:bg-gray-700 border border-gray-700 transition-colors",
-              ),
-              Events.onClick(Burble(BurbleModel.ConnectionChanged(BurbleModel.Connecting))),
-              Attrs.title("Re-probe groove endpoint"),
-            },
-            list{text("Probe")},
-          ),
-        },
-      ),
-      // Capability list (dimmed if disconnected)
-      div(
-        list{Attrs.class_(connected ? "" : "opacity-50")},
-        burbleCapabilities
-        ->Array.map(cap => renderCapability(cap))
-        ->List.fromArray
-        ->List.toArray
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-// ===========================================================================
-// Error display
-// ===========================================================================
-
-/// Render error bar if present.
-let renderError = (error: option<string>): Tea_Vdom.t<msg> => {
-  switch error {
-  | Some(err) =>
-    div(
-      list{Attrs.class_("px-4 py-2 bg-red-900/30 border-b border-red-800 text-xs text-red-400")},
-      list{text(err)},
-    )
-  | None => noNode
-  }
-}
-
-// ===========================================================================
-// Main view — full-screen panel overlay
-// ===========================================================================
-
-/// Main Burble Server Status panel view.
-///
-/// Layout:
-///   Header (title, close)
-///   Connection status (dot, label, URL)
-///   Stats grid (rooms, participants, uptime)
-///   Error bar (if any)
-///   Groove capabilities (capability list with protocols)
-let view = (state: BurbleModel.burbleState): Tea_Vdom.t<msg> => {
-  let isConnected = BurbleEngine.isConnected(state)
-
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.ariaLabel("Burble Server Status panel"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              div(
-                list{Attrs.class_("text-lg font-medium text-gray-200")},
-                list{text("Burble Server Status")},
-              ),
-              span(list{Attrs.class_("text-xs text-gray-500")}, list{text("groove-aware")}),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-sm text-gray-400 hover:text-gray-200 bg-gray-800 rounded hover:bg-gray-700 transition-colors",
-              ),
-              Events.onClick(PanelSwitcher(ClosePanels)),
-              KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-            },
-            list{text("Close")},
-          ),
-        },
-      ),
-      // Connection status
-      renderConnectionStatus(state.connection),
-      // Stats grid
-      renderStatsGrid(state),
-      // Error display
-      renderError(state.error),
-      // Groove capabilities
-      renderGrooveCapabilities(isConnected),
-    },
-  )
-}
diff --git a/src/components/BurbleVoiceQuality.affine b/src/components/BurbleVoiceQuality.affine
new file mode 100644
index 00000000..4ab7ec90
--- /dev/null
+++ b/src/components/BurbleVoiceQuality.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module BurbleVoiceQuality;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/BurbleVoiceQuality.res b/src/components/BurbleVoiceQuality.res
deleted file mode 100644
index 80dd8de6..00000000
--- a/src/components/BurbleVoiceQuality.res
+++ /dev/null
@@ -1,351 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Burble Voice Quality Component — WebRTC audio metrics panel.
-///
-/// Displays real-time audio quality indicators for the active Burble session:
-///   - Latency (round-trip time in ms)
-///   - Jitter (variation in packet arrival time)
-///   - Packet loss (percentage of dropped audio packets)
-///   - Bitrate (current Opus encode bitrate)
-///   - Per-participant audio level indicators (volume bars)
-///   - Codec info (Opus configuration, sample rate, channels)
-///   - Spatial audio status (enabled/disabled, coordinate system)
-///
-/// When no session is active, shows a disconnected state with instructions.
-///
-/// TEA pattern:
-///   Model:  BurbleModel.burbleState (participant volumes, connection state)
-///   Cmd:    BurbleCmd.getVoiceStats (WebRTC stats query)
-///   View:   This file — renders quality metrics and participant levels
-
-open Msg
-open Tea.Html
-
-// ===========================================================================
-// Metric card — single stat with colour-coded quality threshold
-// ===========================================================================
-
-/// Quality rating for colour coding.
-type qualityRating =
-  | Good
-  | Fair
-  | Poor
-
-/// Get CSS classes for a quality rating.
-let qualityColour = (rating: qualityRating): string => {
-  switch rating {
-  | Good => "text-emerald-400"
-  | Fair => "text-amber-400"
-  | Poor => "text-red-400"
-  }
-}
-
-/// Render a single metric card with value and quality indicator.
-let metricCard = (label: string, value: string, unit: string, rating: qualityRating): Tea_Vdom.t<
-  msg,
-> => {
-  div(
-    list{Attrs.class_("bg-gray-900/60 border border-gray-800 rounded-lg p-3")},
-    list{
-      div(list{Attrs.class_("text-xs text-gray-500 mb-1")}, list{text(label)}),
-      div(
-        list{Attrs.class_("flex items-baseline gap-1")},
-        list{
-          span(list{Attrs.class_(`text-xl font-bold ${qualityColour(rating)}`)}, list{text(value)}),
-          span(list{Attrs.class_("text-xs text-gray-600")}, list{text(unit)}),
-        },
-      ),
-    },
-  )
-}
-
-// ===========================================================================
-// Audio quality metrics grid
-// ===========================================================================
-
-/// Render the audio quality metrics grid.
-/// These are representative values based on connection state since actual
-/// WebRTC stats come from the Rust backend via BurbleCmd.getVoiceStats.
-let renderMetrics = (connected: bool): Tea_Vdom.t<msg> => {
-  // When connected, show representative good-quality metrics.
-  // The Update function would replace these with real WebRTC stats.
-  let (latency, jitter, loss, bitrate) = if connected {
-    ("23", "4", "0.1", "48")
-  } else {
-    ("--", "--", "--", "--")
-  }
-  let latencyRating = if connected {
-    Good
-  } else {
-    Poor
-  }
-  let jitterRating = if connected {
-    Good
-  } else {
-    Poor
-  }
-  let lossRating = if connected {
-    Good
-  } else {
-    Poor
-  }
-  let bitrateRating = if connected {
-    Good
-  } else {
-    Poor
-  }
-
-  div(
-    list{Attrs.class_("grid grid-cols-4 gap-3 px-4 py-3 border-b border-gray-800")},
-    list{
-      metricCard("Latency", latency, "ms", latencyRating),
-      metricCard("Jitter", jitter, "ms", jitterRating),
-      metricCard("Packet Loss", loss, "%", lossRating),
-      metricCard("Bitrate", bitrate, "kbps", bitrateRating),
-    },
-  )
-}
-
-// ===========================================================================
-// Per-participant audio level bars
-// ===========================================================================
-
-/// Render a single participant's audio level indicator.
-let renderParticipantLevel = (participant: BurbleModel.participant): Tea_Vdom.t<msg> => {
-  let volumePercent = Float.toFixed(participant.volume *. 100.0, ~digits=0)
-  let barWidth = `${volumePercent}%`
-  let speakingClass = participant.isSpeaking ? "border-emerald-600" : "border-gray-800"
-  let stateLabel = switch participant.voiceState {
-  | BurbleModel.Connected => "Active"
-  | BurbleModel.Muted => "Muted"
-  | BurbleModel.Deafened => "Deafened"
-  }
-  let stateColour = switch participant.voiceState {
-  | BurbleModel.Connected => "text-emerald-400"
-  | BurbleModel.Muted => "text-amber-400"
-  | BurbleModel.Deafened => "text-red-400"
-  }
-
-  div(
-    list{
-      Attrs.class_(`flex items-center gap-3 py-2 px-4 border-b ${speakingClass} transition-colors`),
-      Attrs.ariaLabel(`${participant.displayName} audio level`),
-    },
-    list{
-      // Speaking indicator dot
-      div(
-        list{
-          Attrs.class_(
-            `w-2 h-2 rounded-full ${participant.isSpeaking
-                ? "bg-emerald-400 animate-pulse"
-                : "bg-gray-700"}`,
-          ),
-        },
-        list{},
-      ),
-      // Name and state
-      div(
-        list{Attrs.class_("w-32")},
-        list{
-          div(
-            list{Attrs.class_("text-sm text-gray-300 truncate")},
-            list{text(participant.displayName)},
-          ),
-          div(list{Attrs.class_(`text-xs ${stateColour}`)}, list{text(stateLabel)}),
-        },
-      ),
-      // Volume bar
-      div(
-        list{Attrs.class_("flex-1 h-3 bg-gray-800 rounded-full overflow-hidden")},
-        list{
-          div(
-            list{
-              Attrs.class_(
-                `h-full rounded-full transition-all duration-150 ${participant.isSpeaking
-                    ? "bg-emerald-500"
-                    : "bg-gray-600"}`,
-              ),
-              Attrs.style("width", barWidth),
-            },
-            list{},
-          ),
-        },
-      ),
-      // Volume percentage
-      span(
-        list{Attrs.class_("text-xs text-gray-500 w-10 text-right font-mono")},
-        list{text(`${volumePercent}%`)},
-      ),
-    },
-  )
-}
-
-/// Render the participant audio levels section.
-let renderParticipants = (state: BurbleModel.burbleState): Tea_Vdom.t<msg> => {
-  let participants = BurbleEngine.getParticipants(state)
-  div(
-    list{Attrs.class_("flex-1 overflow-y-auto")},
-    list{
-      // Section header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          span(
-            list{Attrs.class_("text-sm text-gray-300 font-medium")},
-            list{text("Participant Audio Levels")},
-          ),
-          span(
-            list{Attrs.class_("text-xs text-gray-600")},
-            list{text(`${Int.toString(Array.length(participants))} participants`)},
-          ),
-        },
-      ),
-      // Participant rows
-      if Array.length(participants) === 0 {
-        div(
-          list{Attrs.class_("flex items-center justify-center py-8")},
-          list{
-            div(
-              list{Attrs.class_("text-gray-600 text-sm text-center")},
-              list{text("No participants in huddle. Join a room to see audio levels.")},
-            ),
-          },
-        )
-      } else {
-        div(
-          list{},
-          participants
-          ->Array.map(p => renderParticipantLevel(p))
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-// ===========================================================================
-// Codec info section
-// ===========================================================================
-
-/// Render codec and spatial audio info.
-let renderCodecInfo = (connected: bool): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("px-4 py-3 border-t border-gray-800 bg-gray-900/30")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center gap-6 text-xs text-gray-500")},
-        list{
-          // Codec
-          div(
-            list{Attrs.class_("flex items-center gap-1")},
-            list{
-              span(list{Attrs.class_("text-gray-600")}, list{text("Codec:")}),
-              span(
-                list{Attrs.class_(connected ? "text-gray-300" : "text-gray-600")},
-                list{text(connected ? "Opus 48kHz" : "---")},
-              ),
-            },
-          ),
-          // Channels
-          div(
-            list{Attrs.class_("flex items-center gap-1")},
-            list{
-              span(list{Attrs.class_("text-gray-600")}, list{text("Channels:")}),
-              span(
-                list{Attrs.class_(connected ? "text-gray-300" : "text-gray-600")},
-                list{text(connected ? "Stereo" : "---")},
-              ),
-            },
-          ),
-          // Spatial audio
-          div(
-            list{Attrs.class_("flex items-center gap-1")},
-            list{
-              span(list{Attrs.class_("text-gray-600")}, list{text("Spatial:")}),
-              span(list{Attrs.class_("text-gray-400")}, list{text("Off (Workspace profile)")}),
-            },
-          ),
-          // E2EE
-          div(
-            list{Attrs.class_("flex items-center gap-1")},
-            list{
-              span(list{Attrs.class_("text-gray-600")}, list{text("E2EE:")}),
-              span(
-                list{Attrs.class_(connected ? "text-emerald-400" : "text-gray-600")},
-                list{text(connected ? "ON" : "---")},
-              ),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ===========================================================================
-// Main view — full-screen panel overlay
-// ===========================================================================
-
-/// Main Burble Voice Quality panel view.
-///
-/// Layout:
-///   Header (title, close)
-///   Metrics grid (latency, jitter, packet loss, bitrate)
-///   Participant audio levels (volume bars, speaking indicators)
-///   Codec info bar (Opus config, spatial status, E2EE)
-let view = (state: BurbleModel.burbleState): Tea_Vdom.t<msg> => {
-  let connected = BurbleEngine.isConnected(state)
-
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.ariaLabel("Burble Voice Quality panel"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              div(
-                list{Attrs.class_("text-lg font-medium text-gray-200")},
-                list{text("Voice Quality")},
-              ),
-              span(list{Attrs.class_("text-xs text-gray-500")}, list{text("WebRTC Metrics")}),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-sm text-gray-400 hover:text-gray-200 bg-gray-800 rounded hover:bg-gray-700 transition-colors",
-              ),
-              Events.onClick(PanelSwitcher(ClosePanels)),
-              KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-            },
-            list{text("Close")},
-          ),
-        },
-      ),
-      // Metrics grid
-      renderMetrics(connected),
-      // Error display
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_("px-4 py-2 bg-red-900/30 border-b border-red-800 text-xs text-red-400"),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      // Participant audio levels
-      renderParticipants(state),
-      // Codec info bar
-      renderCodecInfo(connected),
-    },
-  )
-}
diff --git a/src/components/Capture.affine b/src/components/Capture.affine
new file mode 100644
index 00000000..ac9bfa15
--- /dev/null
+++ b/src/components/Capture.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Capture;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Capture.res b/src/components/Capture.res
deleted file mode 100644
index 261ee265..00000000
--- a/src/components/Capture.res
+++ /dev/null
@@ -1,276 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Capture Panel — gallery, recordings, demos, cloning, comparisons (DD-022).
-///
-/// The capture panel provides a gallery view of all screenshots and recordings,
-/// demo package management, panel clone tracking, and comparison mode controls.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render the capture gallery — thumbnails of all screenshots.
-let renderGallery = (capture: captureState): Tea_Vdom.t<msg> => {
-  if Array.length(capture.captures) === 0 {
-    div(
-      list{
-        Attrs.class_("p-8 text-center text-gray-600 text-sm"),
-        Attrs.title("Use the capture bar (camera icon) on any panel to take screenshots"),
-      },
-      list{text("No captures yet — use the capture bar on any panel to start")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("grid grid-cols-3 gap-4")},
-      Array.map(capture.captures, entry =>
-        div(
-          list{
-            Attrs.class_(
-              "bg-gray-900 rounded border border-gray-800 p-3 hover:border-gray-600 transition-colors",
-            ),
-            Attrs.title(
-              `${entry.label} — ${entry.panelId} (${Float.toFixed(entry.timestamp, ~digits=0)})`,
-            ),
-          },
-          list{
-            div(list{Attrs.class_("text-xs text-gray-400 mb-1")}, list{text(entry.label)}),
-            div(
-              list{Attrs.class_("text-xs text-gray-600")},
-              list{text(entry.panelId ++ " " ++ (entry.isRecording ? "recording" : "screenshot"))},
-            ),
-            button(
-              list{
-                Attrs.class_("mt-2 text-xs text-red-500 hover:text-red-400"),
-                Events.onClick(Capture(RemoveCapture(entry.id))),
-              },
-              list{text("Remove")},
-            ),
-          },
-        )
-      )->List.fromArray,
-    )
-  }
-}
-
-/// Render recording status.
-let renderRecordingStatus = (recording: recordingState): Tea_Vdom.t<msg> => {
-  switch recording {
-  | NotRecording => div(list{Attrs.class_("text-xs text-gray-600")}, list{text("Not recording")})
-  | Recording(panelId, _startTime) =>
-    div(
-      list{Attrs.class_("flex items-center gap-2")},
-      list{
-        div(list{Attrs.class_("w-2 h-2 rounded-full bg-red-500 animate-pulse")}, list{}),
-        div(list{Attrs.class_("text-xs text-red-400")}, list{text("Recording: " ++ panelId)}),
-        button(
-          list{
-            Attrs.class_("text-xs text-gray-400 hover:text-gray-300"),
-            Events.onClick(Capture(StopRecording)),
-            KeyboardNav.onActivate(Capture(StopRecording)),
-          },
-          list{text("Stop")},
-        ),
-      },
-    )
-  | Paused(panelId, _elapsed) =>
-    div(
-      list{Attrs.class_("flex items-center gap-2")},
-      list{
-        div(list{Attrs.class_("w-2 h-2 rounded-full bg-yellow-500")}, list{}),
-        div(list{Attrs.class_("text-xs text-yellow-400")}, list{text("Paused: " ++ panelId)}),
-        button(
-          list{
-            Attrs.class_("text-xs text-gray-400 hover:text-gray-300"),
-            Events.onClick(Capture(TogglePauseRecording)),
-            KeyboardNav.onActivate(Capture(TogglePauseRecording)),
-          },
-          list{text("Resume")},
-        ),
-      },
-    )
-  }
-}
-
-/// Full Capture panel view.
-let view = (capture: captureState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 overflow-auto"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Capture panel"),
-    },
-    list{
-      // Header
-      div(
-        list{
-          Attrs.class_(
-            "sticky top-0 bg-gray-950 border-b border-gray-800 p-4 flex items-center justify-between z-10",
-          ),
-        },
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-4")},
-            list{
-              div(list{Attrs.class_("text-lg font-light text-gray-300")}, list{text("Capture")}),
-              renderRecordingStatus(capture.recording),
-              div(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{text(Int.toString(Array.length(capture.captures)) ++ " captures")},
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    `px-2 py-1 rounded text-xs ${capture.captureBarVisible
-                        ? "bg-blue-700 text-white"
-                        : "bg-gray-800 text-gray-400"}`,
-                  ),
-                  Events.onClick(Capture(ToggleCaptureBar)),
-                  KeyboardNav.onActivate(Capture(ToggleCaptureBar)),
-                  Attrs.title("Toggle capture bar visibility on all panels"),
-                },
-                list{text("Capture Bars")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 bg-gray-800 text-gray-400 rounded hover:bg-gray-700 transition-colors text-sm",
-                  ),
-                  Events.onClick(PanelSwitcher(ClosePanels)),
-                  KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-                },
-                list{text("Close")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Body
-      div(
-        list{Attrs.class_("p-6 max-w-5xl mx-auto")},
-        list{
-          // Category tabs
-          div(
-            list{Attrs.class_("flex gap-2 mb-6")},
-            [
-              (CaptureGallery, "Gallery"),
-              (CaptureRecordings, "Recordings"),
-              (CaptureDemos, "Demos"),
-              (CaptureClones, "Clones"),
-              (CaptureComparison, "Comparison"),
-            ]
-            ->Array.map(((cat, label)) =>
-              button(
-                list{
-                  Attrs.class_(
-                    `px-3 py-1 rounded text-xs ${capture.activeCategory === cat
-                        ? "bg-blue-700 text-white"
-                        : "bg-gray-800 text-gray-400 hover:bg-gray-700"}`,
-                  ),
-                  Events.onClick(Capture(SetCaptureCategory(cat))),
-                },
-                list{text(label)},
-              )
-            )
-            ->List.fromArray,
-          ),
-          // Content based on active tab
-          switch capture.activeCategory {
-          | CaptureGallery => renderGallery(capture)
-          | CaptureRecordings =>
-            div(
-              list{
-                Attrs.class_(
-                  "p-4 bg-gray-900/50 rounded border border-gray-800 text-xs text-gray-600",
-                ),
-                Attrs.title(
-                  "Start a recording from any panel's capture bar (record icon on panel edge)",
-                ),
-              },
-              list{
-                text(
-                  "Recordings captured via panel capture bars appear here. Use the record button on any panel edge.",
-                ),
-              },
-            )
-          | CaptureDemos =>
-            div(
-              list{
-                Attrs.class_("p-4 bg-gray-900/50 rounded border border-gray-800"),
-                Attrs.title(
-                  "Demo packages: instructor records steps, student replays and compares",
-                ),
-              },
-              list{
-                div(
-                  list{Attrs.class_("text-xs text-gray-500 mb-2")},
-                  list{text(Int.toString(Array.length(capture.demos)) ++ " demos loaded")},
-                ),
-                div(
-                  list{Attrs.class_("text-xs text-gray-600")},
-                  list{
-                    text(
-                      "Record a panel session as a .panll-demo package for teaching. Students load the demo, see golden output in a locked reference panel, and work alongside it.",
-                    ),
-                  },
-                ),
-              },
-            )
-          | CaptureClones =>
-            div(
-              list{
-                Attrs.class_("p-4 bg-gray-900/50 rounded border border-gray-800"),
-                Attrs.title(
-                  "Clone a panel to create an independent copy for before/after comparison",
-                ),
-              },
-              list{
-                div(
-                  list{Attrs.class_("text-xs text-gray-500 mb-2")},
-                  list{text(Int.toString(Array.length(capture.clones)) ++ " clones")},
-                ),
-                div(
-                  list{Attrs.class_("text-xs text-gray-600")},
-                  list{
-                    text(
-                      "Clone any panel's state for before/after analysis. Clones are independent — changes in one don't affect the other.",
-                    ),
-                  },
-                ),
-              },
-            )
-          | CaptureComparison =>
-            div(
-              list{
-                Attrs.class_("p-4 bg-gray-900/50 rounded border border-gray-800"),
-                Attrs.title(
-                  "Compare two panels side-by-side, or a student's work against a demo's golden output",
-                ),
-              },
-              list{
-                div(
-                  list{Attrs.class_("text-xs text-gray-600")},
-                  list{
-                    text(
-                      switch capture.comparison {
-                      | NoComparison => "No comparison active — select two panels or a demo to compare"
-                      | SideBySide(l, r) => "Side-by-side: " ++ l ++ " vs " ++ r
-                      | DemoComparison(s, d) =>
-                        "Demo comparison: student " ++ s ++ " vs golden " ++ d
-                      | BeforeAfter(b, a) => "Before/after: " ++ b ++ " vs " ++ a
-                      },
-                    ),
-                  },
-                ),
-              },
-            )
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/CaptureBar.affine b/src/components/CaptureBar.affine
new file mode 100644
index 00000000..b59c04fa
--- /dev/null
+++ b/src/components/CaptureBar.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CaptureBar;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/CaptureBar.res b/src/components/CaptureBar.res
deleted file mode 100644
index 3ef1e798..00000000
--- a/src/components/CaptureBar.res
+++ /dev/null
@@ -1,88 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Capture Bar — reusable vertical capture strip for panels (DD-022).
-///
-/// Per the user's design: icons are SIDE-ORIENTED (vertical strip on the panel
-/// edge) so people don't instinctively click them thinking they're selfie buttons.
-/// The strip appears on the right edge of each panel/pane.
-///
-/// Icons:
-/// - Camera: screenshot this panel
-/// - Record: start/stop recording this panel
-/// - Clone: duplicate this panel's state
-/// - Compare: enter comparison mode with this panel
-
-open Msg
-open Tea.Html
-
-/// A single capture bar button.
-let captureButton = (
-  label: string,
-  icon: string,
-  tooltip: string,
-  onClick: msg,
-  active: bool,
-): Tea_Vdom.t<msg> => {
-  button(
-    list{
-      Attrs.class_(
-        `w-6 h-6 flex items-center justify-center rounded text-xs ${active
-            ? "bg-red-700 text-white"
-            : "bg-gray-800/80 text-gray-500 hover:text-gray-300 hover:bg-gray-700"} transition-colors`,
-      ),
-      Events.onClick(onClick),
-      Attrs.title(tooltip),
-      Attrs.ariaLabel(label),
-    },
-    list{text(icon)},
-  )
-}
-
-/// Render the capture bar for a panel. `panelId` identifies which panel
-/// this bar is attached to. `isRecording` indicates if this panel is
-/// currently being recorded.
-let view = (panelId: string, isRecording: bool, visible: bool): Tea_Vdom.t<msg> => {
-  if !visible {
-    noNode
-  } else {
-    div(
-      list{
-        Attrs.class_(
-          "absolute right-0 top-1/2 -translate-y-1/2 flex flex-col gap-1 p-1 bg-gray-950/70 rounded-l z-30",
-        ),
-        Attrs.role("toolbar"),
-        Attrs.ariaLabel("Capture controls for " ++ panelId),
-      },
-      list{
-        captureButton(
-          "Screenshot " ++ panelId,
-          "C", // Camera icon placeholder (would be SVG in production)
-          "Screenshot this panel",
-          Capture(CaptureScreenshot(panelId)),
-          false,
-        ),
-        captureButton(
-          (isRecording ? "Stop recording " : "Record ") ++ panelId,
-          "R", // Record icon placeholder
-          isRecording ? "Stop recording this panel" : "Start recording this panel",
-          isRecording ? Capture(StopRecording) : Capture(StartRecording(panelId)),
-          isRecording,
-        ),
-        captureButton(
-          "Clone " ++ panelId,
-          "D", // Duplicate/clone icon placeholder
-          "Clone this panel's state into an independent copy",
-          Capture(ClonePanel(panelId)),
-          false,
-        ),
-        captureButton(
-          "Compare " ++ panelId,
-          "=", // Compare icon placeholder
-          "Enter comparison mode with this panel",
-          Capture(ToggleCaptureSelection(panelId)),
-          false,
-        ),
-      },
-    )
-  }
-}
diff --git a/src/components/CladeBrowser.affine b/src/components/CladeBrowser.affine
new file mode 100644
index 00000000..37064cce
--- /dev/null
+++ b/src/components/CladeBrowser.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CladeBrowser;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/CladeBrowser.res b/src/components/CladeBrowser.res
deleted file mode 100644
index 92786477..00000000
--- a/src/components/CladeBrowser.res
+++ /dev/null
@@ -1,654 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Clade Browser — panel component for exploring and customising panel clades.
-///
-/// Renders four tabs: Overview (stats grid + clade list), By Kind (grouped view),
-/// Traits (trait matrix), Panel Map (which panels belong to which clades).
-/// Uses Tailwind CSS classes (same as all other PanLL panels).
-
-open Msg
-open CladeBrowserModel
-open CladeBrowserEngine
-open Tea.Html
-
-/// Render a tab button.
-let renderTab = (label: string, active: bool, cat: cladeBrowserCategory): Tea_Vdom.t<msg> => {
-  let baseClass = "px-3 py-1.5 text-xs rounded-t border-b-2 transition-colors cursor-pointer"
-  let cls = active
-    ? `${baseClass} text-cyan-300 border-cyan-400 bg-gray-800`
-    : `${baseClass} text-gray-500 border-transparent hover:text-gray-300`
-  button(
-    list{
-      Attrs.class_(cls),
-      Events.onClick(CladeBrowser(SetCladeCategory(cat))),
-      Attrs.role("tab"),
-      Attrs.ariaSelected(active),
-    },
-    list{text(label)},
-  )
-}
-
-/// Render a trait badge (green if active, gray if not).
-let traitBadge = (label: string, active: bool): Tea_Vdom.t<msg> => {
-  let cls = active
-    ? "inline-block px-2 py-0.5 text-xs rounded border border-green-500/30 bg-green-500/10 text-green-400"
-    : "inline-block px-2 py-0.5 text-xs rounded border border-gray-600/30 bg-gray-700/20 text-gray-500"
-  span(list{Attrs.class_(cls)}, list{text(label)})
-}
-
-/// Render trait badges for a clade entry.
-let traitBadges = (traits: cladeTraits): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-wrap gap-1 mt-1")},
-    list{
-      traitBadge("Persistence", traits.hasPersistence),
-      traitBadge("Backend", traits.hasBackend),
-      traitBadge("Work Items", traits.hasWorkItems),
-      traitBadge("Real-Time", traits.hasRealTime),
-      traitBadge("Ambient", traits.isAmbient),
-    },
-  )
-}
-
-/// Render a kind badge with colour-coded background.
-let kindBadge = (kind: string): Tea_Vdom.t<msg> => {
-  let cls = switch kind {
-  | "ai" => "bg-violet-500/20 text-violet-400 border-violet-500/30"
-  | "bridge" => "bg-blue-500/20 text-blue-400 border-blue-500/30"
-  | "builder" => "bg-amber-500/20 text-amber-400 border-amber-500/30"
-  | "database" => "bg-emerald-500/20 text-emerald-400 border-emerald-500/30"
-  | "directive" => "bg-red-500/20 text-red-400 border-red-500/30"
-  | "loader" => "bg-indigo-500/20 text-indigo-400 border-indigo-500/30"
-  | "meta" => "bg-gray-500/20 text-gray-400 border-gray-500/30"
-  | "network" => "bg-teal-500/20 text-teal-400 border-teal-500/30"
-  | "scanner" => "bg-orange-500/20 text-orange-400 border-orange-500/30"
-  | "terminal" => "bg-lime-500/20 text-lime-400 border-lime-500/30"
-  | "viewer" => "bg-purple-500/20 text-purple-400 border-purple-500/30"
-  | _ => "bg-gray-500/20 text-gray-400 border-gray-500/30"
-  }
-  span(
-    list{Attrs.class_(`inline-block px-2 py-0.5 text-xs rounded-full border ${cls}`)},
-    list{text(kind)},
-  )
-}
-
-/// Render a stat card for the overview grid.
-let statCard = (value: string, label: string, colour: string): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("bg-gray-800 rounded-lg p-4 text-center")},
-    list{
-      div(list{Attrs.class_(`text-2xl font-bold ${colour}`)}, list{text(value)}),
-      div(list{Attrs.class_("text-xs text-gray-400 mt-1")}, list{text(label)}),
-    },
-  )
-}
-
-/// Render a protocol badge.
-let protocolBadge = (proto: cladeProtocol): Tea_Vdom.t<msg> => {
-  span(
-    list{
-      Attrs.class_(
-        "inline-block px-1.5 py-0.5 text-xs rounded border border-sky-500/30 bg-sky-500/10 text-sky-400",
-      ),
-    },
-    list{text(protocolLabel(proto))},
-  )
-}
-
-/// Render a capability badge.
-let capBadge = (cap: cladeCapability): Tea_Vdom.t<msg> => {
-  span(
-    list{
-      Attrs.class_(
-        "inline-block px-1.5 py-0.5 text-xs rounded border border-amber-500/30 bg-amber-500/10 text-amber-400",
-      ),
-    },
-    list{text(capabilityLabel(cap))},
-  )
-}
-
-/// Render an isolation level badge with colour coding.
-let isolationBadgeView = (iso: cladeIsolation): Tea_Vdom.t<msg> => {
-  let (cls, label) = switch iso {
-  | IsolationNone => ("border-red-500/30 bg-red-500/10 text-red-400", "None")
-  | IsolationSoft => ("border-yellow-500/30 bg-yellow-500/10 text-yellow-400", "Soft")
-  | IsolationProcess => ("border-blue-500/30 bg-blue-500/10 text-blue-400", "Process")
-  | IsolationContainer => ("border-emerald-500/30 bg-emerald-500/10 text-emerald-400", "Container")
-  }
-  span(
-    list{Attrs.class_(`inline-block px-1.5 py-0.5 text-xs rounded border ${cls}`)},
-    list{text(label)},
-  )
-}
-
-/// Render a single clade card.
-let cladeCard = (entry: cladeEntry, isSelected: bool): Tea_Vdom.t<msg> => {
-  let borderCls = isSelected ? "border-cyan-500 bg-gray-800/80" : "border-gray-700 bg-gray-800/40"
-  div(
-    list{
-      Attrs.class_(
-        `p-3 mb-2 rounded-lg border ${borderCls} cursor-pointer hover:border-gray-500 transition-colors`,
-      ),
-      Events.onClick(CladeBrowser(SelectClade(Some(entry.id)))),
-    },
-    list{
-      // Header row: name + kind badge + version + isolation
-      div(
-        list{Attrs.class_("flex justify-between items-center mb-1")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              strong(list{Attrs.class_("text-sm text-gray-100")}, list{text(entry.name)}),
-              kindBadge(entry.kind),
-              isolationBadgeView(entry.isolation),
-              span(list{Attrs.class_("text-xs text-gray-600")}, list{text("v" ++ entry.version)}),
-            },
-          ),
-          span(list{Attrs.class_("text-xs text-gray-500 font-mono")}, list{text(entry.id)}),
-        },
-      ),
-      // Summary
-      p(list{Attrs.class_("text-xs text-gray-300 my-1")}, list{text(entry.summary)}),
-      // Traits
-      traitBadges(entry.traits),
-      // Protocols (Tier 1.1)
-      if entry.protocols->Array.length > 0 {
-        div(
-          list{Attrs.class_("flex flex-wrap gap-1 mt-1")},
-          entry.protocols->Array.map(protocolBadge)->List.fromArray,
-        )
-      } else {
-        noNode
-      },
-      // Capabilities (Tier 1.2)
-      if entry.capabilities->Array.length > 0 {
-        div(
-          list{Attrs.class_("flex flex-wrap gap-1 mt-1")},
-          entry.capabilities->Array.map(capBadge)->List.fromArray,
-        )
-      } else {
-        noNode
-      },
-      // Dependencies (Tier 1.3)
-      if entry.requires->Array.length > 0 {
-        div(
-          list{Attrs.class_("mt-1 text-xs text-red-400")},
-          list{text("requires: " ++ entry.requires->Array.map(d => d.cladeId)->Array.join(", "))},
-        )
-      } else {
-        noNode
-      },
-      // Enhances (Tier 1.3)
-      if entry.enhances->Array.length > 0 {
-        div(
-          list{Attrs.class_("mt-1 text-xs text-indigo-400")},
-          list{text("enhances: " ++ entry.enhances->Array.join(", "))},
-        )
-      } else {
-        noNode
-      },
-      // Panel IDs
-      if entry.panelIds->Array.length > 0 {
-        div(
-          list{Attrs.class_("mt-1 text-xs text-gray-500")},
-          list{text("Panels: " ++ entry.panelIds->Array.join(", "))},
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-/// Overview tab — stats grid + full clade list.
-let viewOverview = (state: cladeBrowserState): Tea_Vdom.t<msg> => {
-  let filtered = filterClades(state.clades, state.kindFilter, state.searchQuery)
-  let total = state.clades->Array.length
-
-  div(
-    list{},
-    list{
-      // Stats grid (row 1: counts, row 2: Tier 1 metrics)
-      div(
-        list{Attrs.class_("grid grid-cols-4 gap-3 mb-3")},
-        list{
-          statCard(Int.toString(total), "Total Clades", "text-cyan-400"),
-          statCard(
-            Int.toString(countWithTrait(state.clades, t => t.hasBackend)),
-            "With Backend",
-            "text-green-400",
-          ),
-          statCard(
-            Int.toString(countWithTrait(state.clades, t => t.hasRealTime)),
-            "Real-Time",
-            "text-amber-400",
-          ),
-          statCard(
-            Int.toString(countWithTrait(state.clades, t => t.isAmbient)),
-            "Ambient",
-            "text-violet-400",
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("grid grid-cols-4 gap-3 mb-5")},
-        list{
-          statCard(
-            Int.toString(countWithProtocols(state.clades)),
-            "With Protocols",
-            "text-sky-400",
-          ),
-          statCard(
-            Int.toString(countWithCapabilities(state.clades)),
-            "With Capabilities",
-            "text-amber-400",
-          ),
-          statCard(
-            Int.toString(
-              countByIsolation(state.clades, IsolationProcess) +
-              countByIsolation(state.clades, IsolationContainer),
-            ),
-            "Process/Container",
-            "text-blue-400",
-          ),
-          statCard(
-            Int.toString(countWithParent(state.clades)),
-            "With Inheritance",
-            "text-indigo-400",
-          ),
-        },
-      ),
-      // Kind distribution
-      div(
-        list{Attrs.class_("flex flex-wrap gap-3 mb-4 text-xs")},
-        allKinds
-        ->Array.filter(k => k !== KindAll)
-        ->Array.map(k => {
-          let count = countByKind(state.clades, k)
-          div(
-            list{Attrs.class_("flex items-center gap-1")},
-            list{
-              span(list{Attrs.class_("w-2 h-2 rounded-full bg-current")}, list{}),
-              text(kindLabel(k) ++ " (" ++ Int.toString(count) ++ ")"),
-            },
-          )
-        })
-        ->List.fromArray,
-      ),
-      // Clade list
-      div(
-        list{},
-        filtered
-        ->Array.map(entry => cladeCard(entry, state.selectedClade === Some(entry.id)))
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-/// By Kind tab — clades grouped by their kind.
-let viewByKind = (state: cladeBrowserState): Tea_Vdom.t<msg> => {
-  let kinds = allKinds->Array.filter(k => k !== KindAll)
-  div(
-    list{},
-    kinds
-    ->Array.map(kind => {
-      let kindsClades = filterByKind(state.clades, kind)
-      if kindsClades->Array.length > 0 {
-        div(
-          list{Attrs.class_("mb-5")},
-          list{
-            div(
-              list{Attrs.class_("flex items-center gap-2 mb-2")},
-              list{
-                kindBadge(kindLabel(kind)->String.toLowerCase),
-                h3(
-                  list{Attrs.class_("text-sm font-semibold text-gray-200 m-0")},
-                  list{
-                    text(kindLabel(kind) ++ " (" ++ Int.toString(kindsClades->Array.length) ++ ")"),
-                  },
-                ),
-              },
-            ),
-            div(
-              list{},
-              kindsClades
-              ->Array.map(entry => cladeCard(entry, state.selectedClade === Some(entry.id)))
-              ->List.fromArray,
-            ),
-          },
-        )
-      } else {
-        noNode
-      }
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Traits tab — matrix of all clades vs traits.
-let viewTraits = (state: cladeBrowserState): Tea_Vdom.t<msg> => {
-  let check = (v: bool): Tea_Vdom.t<msg> =>
-    if v {
-      span(list{Attrs.class_("text-green-400")}, list{text("Yes")})
-    } else {
-      span(list{Attrs.class_("text-gray-600")}, list{text("-")})
-    }
-
-  table(
-    list{Attrs.class_("w-full text-xs")},
-    list{
-      thead(
-        list{},
-        list{
-          tr(
-            list{Attrs.class_("border-b border-gray-700")},
-            list{
-              th(list{Attrs.class_("text-left p-2 text-gray-400")}, list{text("Clade")}),
-              th(list{Attrs.class_("text-left p-2 text-gray-400")}, list{text("Kind")}),
-              th(list{Attrs.class_("text-left p-2 text-gray-400")}, list{text("Persist")}),
-              th(list{Attrs.class_("text-left p-2 text-gray-400")}, list{text("Backend")}),
-              th(list{Attrs.class_("text-left p-2 text-gray-400")}, list{text("Work Items")}),
-              th(list{Attrs.class_("text-left p-2 text-gray-400")}, list{text("Real-Time")}),
-              th(list{Attrs.class_("text-left p-2 text-gray-400")}, list{text("Ambient")}),
-              th(list{Attrs.class_("text-left p-2 text-gray-400")}, list{text("Isolation")}),
-              th(list{Attrs.class_("text-left p-2 text-gray-400")}, list{text("Protocols")}),
-              th(list{Attrs.class_("text-left p-2 text-gray-400")}, list{text("Capabilities")}),
-            },
-          ),
-        },
-      ),
-      tbody(
-        list{},
-        state.clades
-        ->Array.map(entry =>
-          tr(
-            list{Attrs.class_("border-b border-gray-800 hover:bg-gray-800/50")},
-            list{
-              td(list{Attrs.class_("p-2 font-medium text-gray-200")}, list{text(entry.name)}),
-              td(list{Attrs.class_("p-2")}, list{kindBadge(entry.kind)}),
-              td(list{Attrs.class_("p-2")}, list{check(entry.traits.hasPersistence)}),
-              td(list{Attrs.class_("p-2")}, list{check(entry.traits.hasBackend)}),
-              td(list{Attrs.class_("p-2")}, list{check(entry.traits.hasWorkItems)}),
-              td(list{Attrs.class_("p-2")}, list{check(entry.traits.hasRealTime)}),
-              td(list{Attrs.class_("p-2")}, list{check(entry.traits.isAmbient)}),
-              td(list{Attrs.class_("p-2")}, list{isolationBadgeView(entry.isolation)}),
-              td(
-                list{Attrs.class_("p-2")},
-                list{
-                  span(
-                    list{Attrs.class_("text-sky-400")},
-                    list{text(Int.toString(entry.protocols->Array.length))},
-                  ),
-                },
-              ),
-              td(
-                list{Attrs.class_("p-2")},
-                list{
-                  span(
-                    list{Attrs.class_("text-amber-400")},
-                    list{text(Int.toString(entry.capabilities->Array.length))},
-                  ),
-                },
-              ),
-            },
-          )
-        )
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-/// Panel Map tab — which panels belong to which clades, with inheritance chains.
-let viewPanelMap = (state: cladeBrowserState): Tea_Vdom.t<msg> => {
-  let withParent = countWithParent(state.clades)
-  let roots = rootClades(state.clades)->Array.length
-  div(
-    list{},
-    list{
-      p(
-        list{Attrs.class_("text-xs text-gray-400 mb-2")},
-        list{
-          text(
-            "Panel-to-clade assignments. Each panel inherits traits from its clade and ancestors.",
-          ),
-        },
-      ),
-      // Inheritance stats
-      div(
-        list{Attrs.class_("flex gap-4 text-xs text-gray-500 mb-4")},
-        list{
-          span(list{}, list{text(`${Int.toString(roots)} root clades`)}),
-          span(list{}, list{text(`${Int.toString(withParent)} with inheritance`)}),
-        },
-      ),
-      div(
-        list{},
-        state.clades
-        ->Array.filter(c => c.panelIds->Array.length > 0)
-        ->Array.map(entry => {
-          let chain = inheritanceLabel(state.clades, entry.id)
-          let effectiveTraits = resolveTraits(state.clades, entry.id)
-          div(
-            list{Attrs.class_("py-2 border-b border-gray-800")},
-            list{
-              div(
-                list{Attrs.class_("flex items-baseline gap-3")},
-                list{
-                  div(
-                    list{Attrs.class_("min-w-[180px] flex items-center gap-2")},
-                    list{
-                      strong(list{Attrs.class_("text-sm text-gray-200")}, list{text(entry.name)}),
-                      kindBadge(entry.kind),
-                    },
-                  ),
-                  div(
-                    list{Attrs.class_("flex flex-wrap gap-1")},
-                    entry.panelIds
-                    ->Array.map(pid =>
-                      span(
-                        list{Attrs.class_("bg-gray-700 px-2 py-0.5 rounded text-xs text-gray-200")},
-                        list{text(pid)},
-                      )
-                    )
-                    ->List.fromArray,
-                  ),
-                },
-              ),
-              // Inheritance chain
-              if chain != entry.id {
-                div(
-                  list{Attrs.class_("mt-1 ml-[180px] flex items-center gap-2")},
-                  list{span(list{Attrs.class_("text-xs text-indigo-400")}, list{text(chain)})},
-                )
-              } else {
-                noNode
-              },
-              // Effective traits (from inheritance)
-              switch effectiveTraits {
-              | Some(traits) =>
-                div(
-                  list{Attrs.class_("mt-1 ml-[180px] flex gap-2 text-xs")},
-                  list{
-                    if traits.hasPersistence {
-                      span(list{Attrs.class_("text-green-500")}, list{text("persist")})
-                    } else {
-                      noNode
-                    },
-                    if traits.hasBackend {
-                      span(list{Attrs.class_("text-blue-500")}, list{text("backend")})
-                    } else {
-                      noNode
-                    },
-                    if traits.hasWorkItems {
-                      span(list{Attrs.class_("text-amber-500")}, list{text("work")})
-                    } else {
-                      noNode
-                    },
-                    if traits.hasRealTime {
-                      span(list{Attrs.class_("text-cyan-500")}, list{text("realtime")})
-                    } else {
-                      noNode
-                    },
-                    if traits.isAmbient {
-                      span(list{Attrs.class_("text-purple-500")}, list{text("ambient")})
-                    } else {
-                      noNode
-                    },
-                  },
-                )
-              | None => noNode
-              },
-              // Sibling clades
-              if entry.siblingClades->Array.length > 0 {
-                div(
-                  list{Attrs.class_("mt-1 ml-[180px] text-xs text-gray-600")},
-                  list{text("siblings: " ++ entry.siblingClades->Array.join(", "))},
-                )
-              } else {
-                noNode
-              },
-            },
-          )
-        })
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-/// Render the permission rules for a clade.
-let permissionBadge = (rules: array<cladePermissionRule>, cladeId: string): Tea_Vdom.t<msg> => {
-  let rule = CladeBrowserEngine.findPermissionRule(rules, cladeId)
-  switch rule {
-  | None =>
-    span(
-      list{
-        Attrs.class_("text-xs text-emerald-500 cursor-pointer"),
-        Events.onClick(CladeBrowser(SetCladePermission(cladeId, PermitNone))),
-      },
-      list{text("open")},
-    )
-  | Some({permission: PermitAll}) =>
-    span(
-      list{
-        Attrs.class_("text-xs text-emerald-500 cursor-pointer"),
-        Events.onClick(CladeBrowser(SetCladePermission(cladeId, PermitNone))),
-      },
-      list{text("open")},
-    )
-  | Some({permission: PermitNone}) =>
-    span(
-      list{
-        Attrs.class_("text-xs text-red-400 cursor-pointer"),
-        Events.onClick(CladeBrowser(RemoveCladePermission(cladeId))),
-      },
-      list{text("locked")},
-    )
-  | Some({permission: PermitOnly(allowed)}) =>
-    span(
-      list{
-        Attrs.class_("text-xs text-amber-400 cursor-pointer"),
-        Events.onClick(CladeBrowser(RemoveCladePermission(cladeId))),
-      },
-      list{text(`restricted (${Int.toString(Array.length(allowed))})`)},
-    )
-  }
-}
-
-/// Render the permission rules section.
-let viewPermissions = (state: cladeBrowserState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("mt-4 pt-4 border-t border-gray-700")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-2")},
-        list{
-          h3(
-            list{Attrs.class_("text-sm font-semibold text-gray-200 m-0")},
-            list{text("Cross-Clade Permissions")},
-          ),
-          span(
-            list{Attrs.class_("text-xs text-gray-500")},
-            list{text(`${Int.toString(Array.length(state.permissionRules))} rules active`)},
-          ),
-        },
-      ),
-      p(
-        list{Attrs.class_("text-xs text-gray-500 mb-3")},
-        list{
-          text(
-            "Controls which clades may cross-reference each other via the Panel Bus. Click to toggle.",
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("space-y-1")},
-        state.clades
-        ->Array.map(entry =>
-          div(
-            list{
-              Attrs.class_(
-                "flex items-center justify-between py-1 px-2 rounded hover:bg-gray-800/50",
-              ),
-            },
-            list{
-              div(
-                list{Attrs.class_("flex items-center gap-2")},
-                list{
-                  span(
-                    list{Attrs.class_("text-xs text-gray-300 font-mono w-36 truncate")},
-                    list{text(entry.id)},
-                  ),
-                  kindBadge(entry.kind),
-                },
-              ),
-              permissionBadge(state.permissionRules, entry.id),
-            },
-          )
-        )
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-/// Main view function — renders the complete clade browser panel.
-let view = (state: cladeBrowserState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("p-5 text-gray-200 font-mono overflow-y-auto max-h-screen"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Clade Browser"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex justify-between items-center mb-4")},
-        list{
-          h2(list{Attrs.class_("text-lg font-bold m-0")}, list{text("Clade Browser")}),
-          span(
-            list{Attrs.class_("text-xs text-gray-500")},
-            list{text(Int.toString(state.clades->Array.length) ++ " clades loaded")},
-          ),
-        },
-      ),
-      // Tabs
-      div(
-        list{Attrs.class_("flex gap-1 mb-4 border-b border-gray-700 pb-2")},
-        allCategories
-        ->Array.map(cat => renderTab(categoryLabel(cat), state.category === cat, cat))
-        ->List.fromArray,
-      ),
-      // Content
-      switch state.category {
-      | CategoryOverview => viewOverview(state)
-      | CategoryByKind => viewByKind(state)
-      | CategoryTraits => viewTraits(state)
-      | CategoryPanelMap => div(list{}, list{viewPanelMap(state), viewPermissions(state)})
-      },
-    },
-  )
-}
diff --git a/src/components/CloudGuard.affine b/src/components/CloudGuard.affine
new file mode 100644
index 00000000..4e3a4db2
--- /dev/null
+++ b/src/components/CloudGuard.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CloudGuard;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/CloudGuard.res b/src/components/CloudGuard.res
deleted file mode 100644
index 8013c361..00000000
--- a/src/components/CloudGuard.res
+++ /dev/null
@@ -1,559 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL CloudGuard — Main Cloudflare domain security management panel.
-///
-/// Full-screen overlay panel (like VAB) that provides the Panel-W dashboard
-/// for managing Cloudflare domains. Contains the domain selector ribbon,
-/// category tab bar, settings toggle grid, action bar, and side panels
-/// for audit results and config diffs.
-///
-/// Layout (see plan for full ASCII art):
-///   +-------------------------------------------------------+
-///   | [Domain Ribbon: checkboxes for each domain]           |
-///   | [Select All] [None] [Filter: _____]                   |
-///   +-------------------------------------------------------+
-///   | SSL/TLS | Headers | WAF | Bot | DNS | ... | DNSSEC    |  <-- Category tabs
-///   +---------------------------+---------------------------+
-///   | Settings Toggle Grid      | Compliance Audit          |
-///   | (toggles, dropdowns,      | (passed/failed/warnings,  |
-///   |  number inputs per        |  findings list,           |
-///   |  category)                |  config diff summary)     |
-///   +---------------------------+---------------------------+
-///   | [Harden All] [Push Changes] [Download] [Audit]        |  <-- Action bar
-///   | Progress: 28/36 domains hardened                       |
-///   +-------------------------------------------------------+
-
-open Msg
-open Model
-open Tea.Html
-
-// ============================================================================
-// Category tab bar
-// ============================================================================
-
-/// All setting categories in display order.
-let allCategories: array<settingCategory> = [
-  SslTls,
-  Headers,
-  Waf,
-  BotDefense,
-  Dns,
-  EmailSec,
-  Performance,
-  Network,
-  Pages,
-  Dnssec,
-]
-
-/// Render a single category tab button.
-let renderCategoryTab = (cat: settingCategory, isActive: bool): Tea_Vdom.t<msg> => {
-  let activeClass = isActive
-    ? "border-indigo-500 text-indigo-300 bg-gray-800/50"
-    : "border-transparent text-gray-500 hover:text-gray-300 hover:border-gray-600"
-
-  button(
-    list{
-      Attrs.class_(
-        `px-3 py-2 text-sm font-medium border-b-2 cursor-pointer transition-colors ${activeClass}`,
-      ),
-      Attrs.ariaSelected(isActive),
-      Attrs.role("tab"),
-      Events.onClick(CloudGuard(SetCategory(cat))),
-    },
-    list{text(CloudGuardCatalog.categoryLabel(cat))},
-  )
-}
-
-/// Render the full category tab bar.
-let renderCategoryTabBar = (activeCategory: settingCategory): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("flex border-b border-gray-800 overflow-x-auto"),
-      Attrs.role("tablist"),
-      Attrs.ariaLabel("Setting categories"),
-    },
-    allCategories
-    ->Array.map(cat => renderCategoryTab(cat, cat === activeCategory))
-    ->List.fromArray,
-  )
-}
-
-// ============================================================================
-// Connection status bar
-// ============================================================================
-
-/// Render the connection status indicator.
-let renderConnectionStatus = (connection: cfConnectionStatus): Tea_Vdom.t<msg> => {
-  let (dotClass, statusText) = switch connection {
-  | Disconnected => ("bg-gray-500", "Not connected")
-  | Connecting => ("bg-yellow-400 animate-pulse", "Connecting...")
-  | Connected(info) => ("bg-green-400", `Connected: ${info}`)
-  | ConnectionError(err) => ("bg-red-400", `Error: ${err}`)
-  }
-
-  div(
-    list{Attrs.class_("flex items-center gap-2 px-3 py-1.5")},
-    list{
-      span(list{Attrs.class_(`w-2 h-2 rounded-full ${dotClass}`)}, list{}),
-      span(list{Attrs.class_("text-xs text-gray-400")}, list{text(statusText)}),
-    },
-  )
-}
-
-// ============================================================================
-// Audit side panel
-// ============================================================================
-
-/// Render the audit results summary in the right side panel.
-let renderAuditPanel = (auditResult: option<auditResult>, loading: bool): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("w-72 border-l border-gray-800 p-3 overflow-y-auto")},
-    list{
-      div(
-        list{Attrs.class_("text-xs text-gray-500 mb-3 font-medium")},
-        list{text("COMPLIANCE AUDIT")},
-      ),
-      switch auditResult {
-      | None =>
-        if loading {
-          div(list{Attrs.class_("text-sm text-gray-500 italic")}, list{text("Running audit...")})
-        } else {
-          div(
-            list{Attrs.class_("text-sm text-gray-600 italic")},
-            list{text("Click 'Audit' to check compliance")},
-          )
-        }
-      | Some(result) =>
-        div(
-          list{},
-          list{
-            // Score summary
-            div(
-              list{Attrs.class_("flex items-center gap-3 mb-3")},
-              list{
-                div(
-                  list{Attrs.class_("text-2xl font-bold text-indigo-300")},
-                  list{text(`${Float.toFixed(result.score *. 100.0, ~digits=0)}%`)},
-                ),
-                div(
-                  list{},
-                  list{
-                    div(
-                      list{Attrs.class_("text-xs text-green-400")},
-                      list{text(`${Int.toString(result.passed)} passed`)},
-                    ),
-                    div(
-                      list{Attrs.class_("text-xs text-red-400")},
-                      list{text(`${Int.toString(result.failed)} failed`)},
-                    ),
-                  },
-                ),
-              },
-            ),
-            // Severity summary bar
-            div(
-              list{Attrs.class_("flex gap-1 mb-3")},
-              list{
-                {
-                  let critical =
-                    result.findings
-                    ->Array.filter(f => CloudGuardEngine.severityLabel(f.severity) == "CRITICAL")
-                    ->Array.length
-                  let high =
-                    result.findings
-                    ->Array.filter(f => CloudGuardEngine.severityLabel(f.severity) == "HIGH")
-                    ->Array.length
-                  let medium =
-                    result.findings
-                    ->Array.filter(f => CloudGuardEngine.severityLabel(f.severity) == "MEDIUM")
-                    ->Array.length
-                  let low =
-                    result.findings
-                    ->Array.filter(f => CloudGuardEngine.severityLabel(f.severity) == "LOW")
-                    ->Array.length
-                  div(
-                    list{Attrs.class_("flex gap-2 text-[10px]")},
-                    list{
-                      if critical > 0 {
-                        span(
-                          list{Attrs.class_("text-red-400")},
-                          list{text(`${Int.toString(critical)} critical`)},
-                        )
-                      } else {
-                        noNode
-                      },
-                      if high > 0 {
-                        span(
-                          list{Attrs.class_("text-orange-400")},
-                          list{text(`${Int.toString(high)} high`)},
-                        )
-                      } else {
-                        noNode
-                      },
-                      if medium > 0 {
-                        span(
-                          list{Attrs.class_("text-amber-400")},
-                          list{text(`${Int.toString(medium)} medium`)},
-                        )
-                      } else {
-                        noNode
-                      },
-                      if low > 0 {
-                        span(
-                          list{Attrs.class_("text-gray-400")},
-                          list{text(`${Int.toString(low)} low`)},
-                        )
-                      } else {
-                        noNode
-                      },
-                    },
-                  )
-                },
-              },
-            ),
-            // Findings list with drill-down
-            div(
-              list{Attrs.class_("space-y-2")},
-              result.findings
-              ->CloudGuardEngine.sortFindingsBySeverity
-              ->Array.map(finding =>
-                div(
-                  list{
-                    Attrs.class_(
-                      "text-xs p-2 bg-gray-800/50 rounded hover:bg-gray-800/70 transition-colors",
-                    ),
-                  },
-                  list{
-                    div(
-                      list{Attrs.class_("flex items-center gap-1.5 mb-1")},
-                      list{
-                        span(
-                          list{
-                            Attrs.class_(
-                              `font-bold ${CloudGuardEngine.severityColour(finding.severity)}`,
-                            ),
-                          },
-                          list{text(CloudGuardEngine.severityLabel(finding.severity))},
-                        ),
-                        span(list{Attrs.class_("text-gray-400")}, list{text(finding.settingId)}),
-                      },
-                    ),
-                    div(list{Attrs.class_("text-gray-400")}, list{text(finding.message)}),
-                    // Remediation suggestion
-                    div(
-                      list{Attrs.class_("mt-1.5 pl-2 border-l-2 border-gray-700")},
-                      list{
-                        div(
-                          list{
-                            Attrs.class_(
-                              "text-[10px] text-gray-600 uppercase tracking-wider mb-0.5",
-                            ),
-                          },
-                          list{text("Remediation")},
-                        ),
-                        div(
-                          list{Attrs.class_("text-[10px] text-gray-500")},
-                          list{
-                            text(
-                              `Set ${finding.settingId} from "${finding.currentValue}" to "${finding.expectedValue}"`,
-                            ),
-                          },
-                        ),
-                      },
-                    ),
-                    // Fix action button
-                    button(
-                      list{
-                        Attrs.class_(
-                          "mt-1.5 px-2 py-0.5 text-[10px] bg-indigo-900/40 text-indigo-300 rounded border border-indigo-800 hover:bg-indigo-800/50 transition-colors",
-                        ),
-                        Events.onClick(CloudGuard(HardenSetting(finding.settingId))),
-                        Attrs.ariaLabel(`Fix ${finding.settingId}`),
-                      },
-                      list{text("Apply Fix")},
-                    ),
-                  },
-                )
-              )
-              ->List.fromArray,
-            ),
-          },
-        )
-      },
-    },
-  )
-}
-
-// ============================================================================
-// Action bar
-// ============================================================================
-
-/// Render the bottom action bar with Harden All, Push, Download, Audit buttons.
-let renderActionBar = (
-  selectedCount: int,
-  totalCount: int,
-  loading: bool,
-  bulkProgress: option<bulkProgress>,
-): Tea_Vdom.t<msg> => {
-  let buttonClass = "px-3 py-1.5 text-sm font-medium rounded cursor-pointer transition-colors"
-  let primaryClass = `${buttonClass} bg-indigo-600 hover:bg-indigo-500 text-white`
-  let secondaryClass = `${buttonClass} bg-gray-700 hover:bg-gray-600 text-gray-200`
-  let disabledClass = `${buttonClass} bg-gray-800 text-gray-600 cursor-not-allowed`
-
-  div(
-    list{Attrs.class_("border-t border-gray-800 px-4 py-3 flex items-center justify-between")},
-    list{
-      // Action buttons
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                if selectedCount > 0 && !loading {
-                  primaryClass
-                } else {
-                  disabledClass
-                },
-              ),
-              Attrs.ariaLabel("Harden all selected domains"),
-              if selectedCount > 0 && !loading {
-                Events.onClick(CloudGuard(HardenSelected))
-              } else {
-                Attrs.noProp
-              },
-            },
-            list{text("Harden All")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                if !loading {
-                  secondaryClass
-                } else {
-                  disabledClass
-                },
-              ),
-              Attrs.ariaLabel("Push local changes to Cloudflare"),
-              if !loading {
-                Events.onClick(CloudGuard(PushChanges))
-              } else {
-                Attrs.noProp
-              },
-            },
-            list{text("Push Changes")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                if !loading {
-                  secondaryClass
-                } else {
-                  disabledClass
-                },
-              ),
-              Attrs.ariaLabel("Download offline config"),
-              if !loading {
-                Events.onClick(CloudGuard(DownloadConfig))
-              } else {
-                Attrs.noProp
-              },
-            },
-            list{text("Download")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                if selectedCount > 0 && !loading {
-                  secondaryClass
-                } else {
-                  disabledClass
-                },
-              ),
-              Attrs.ariaLabel("Run compliance audit"),
-              if selectedCount > 0 && !loading {
-                Events.onClick(CloudGuard(RunAudit))
-              } else {
-                Attrs.noProp
-              },
-            },
-            list{text("Audit")},
-          ),
-        },
-      ),
-      // Progress indicator
-      switch bulkProgress {
-      | None =>
-        div(
-          list{Attrs.class_("text-xs text-gray-500")},
-          list{text(`${Int.toString(selectedCount)}/${Int.toString(totalCount)} domains selected`)},
-        )
-      | Some(progress) =>
-        div(
-          list{Attrs.class_("flex items-center gap-2")},
-          list{
-            // Progress bar
-            div(
-              list{Attrs.class_("w-40 h-2 bg-gray-800 rounded-full overflow-hidden")},
-              list{
-                div(
-                  list{
-                    Attrs.class_("h-full bg-indigo-500 transition-all"),
-                    Attrs.style(
-                      "width",
-                      `${Float.toFixed(
-                          Int.toFloat(progress.completed) /.
-                          Int.toFloat(
-                            if progress.total > 0 {
-                              progress.total
-                            } else {
-                              1
-                            },
-                          ) *. 100.0,
-                          ~digits=0,
-                        )}%`,
-                    ),
-                  },
-                  list{},
-                ),
-              },
-            ),
-            // Progress text
-            div(
-              list{Attrs.class_("text-xs text-gray-400")},
-              list{
-                text(`${Int.toString(progress.completed)}/${Int.toString(progress.total)} domains`),
-              },
-            ),
-            // Current domain
-            switch progress.currentDomain {
-            | Some(domain) => span(list{Attrs.class_("text-xs text-gray-500")}, list{text(domain)})
-            | None => noNode
-            },
-          },
-        )
-      },
-    },
-  )
-}
-
-// ============================================================================
-// Main panel view
-// ============================================================================
-
-/// Render the complete CloudGuard panel as a full-screen overlay.
-/// This is the Panel-W component for the CloudGuard module.
-let view = (state: cloudguardState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 z-50 bg-gray-950 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("CloudGuard — Cloudflare Domain Security Management"),
-    },
-    list{
-      // Header bar with title, connection status, and close button
-      div(
-        list{
-          Attrs.class_(
-            "flex items-center justify-between px-4 py-2 border-b border-gray-800 bg-gray-900/80",
-          ),
-        },
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              div(
-                list{Attrs.class_("text-lg font-semibold text-gray-200")},
-                list{text("CloudGuard")},
-              ),
-              div(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{text("Cloudflare Domain Security")},
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              renderConnectionStatus(state.connection),
-              button(
-                list{
-                  Attrs.class_("text-gray-500 hover:text-gray-300 cursor-pointer text-lg px-2"),
-                  Attrs.ariaLabel("Close CloudGuard"),
-                  Events.onClick(CloudGuard(ToggleCloudGuard)),
-                },
-                list{text("x")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Domain selector ribbon
-      div(
-        list{Attrs.class_("px-4 py-2")},
-        list{CloudGuardDomainList.view(state.zones, state.selectedZoneIds, state.filterText)},
-      ),
-      // Category tab bar
-      div(list{Attrs.class_("px-4")}, list{renderCategoryTabBar(state.activeCategory)}),
-      // Main content area: settings grid + audit side panel
-      div(
-        list{Attrs.class_("flex-1 flex overflow-hidden")},
-        list{
-          // Main content (left) — DNS editor for DNS tab, settings grid otherwise
-          div(
-            list{Attrs.class_("flex-1 overflow-y-auto px-4 py-2")},
-            list{
-              {
-                let currentDomain = switch state.selectedZoneIds[0] {
-                | Some(zoneId) =>
-                  switch state.zones->Array.find(z => z.id === zoneId) {
-                  | Some(zone) => Some(zone.name)
-                  | None => None
-                  }
-                | None => None
-                }
-                switch state.activeCategory {
-                | Dns =>
-                  // DNS tab shows the inline record editor
-                  CloudGuardDnsEditor.view(
-                    state.dnsRecords,
-                    state.dnsEditingId,
-                    Array.length(state.selectedZoneIds) > 0,
-                    state.loading,
-                  )
-                | Pages =>
-                  // Pages tab shows the Pages setup component
-                  CloudGuardPagesSetup.view(state.pagesProjects, currentDomain, state.loading)
-                | _ =>
-                  // All other tabs show the settings toggle grid
-                  CloudGuardSettingsGrid.view(
-                    state.settings,
-                    state.activeCategory,
-                    state.settingFilter,
-                    state.exceptions,
-                    currentDomain,
-                  )
-                }
-              },
-            },
-          ),
-          // Side panel (right) — audit results or diff viewer
-          if state.showAudit {
-            renderAuditPanel(state.auditResult, state.loading)
-          } else if state.showDiff {
-            CloudGuardDiffViewer.view(state.configDiff, state.loading)
-          } else {
-            noNode
-          },
-        },
-      ),
-      // Action bar (bottom)
-      renderActionBar(
-        Array.length(state.selectedZoneIds),
-        Array.length(state.zones),
-        state.loading,
-        state.bulkProgress,
-      ),
-    },
-  )
-}
diff --git a/src/components/CloudGuardDiffViewer.affine b/src/components/CloudGuardDiffViewer.affine
new file mode 100644
index 00000000..9b8d91b8
--- /dev/null
+++ b/src/components/CloudGuardDiffViewer.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CloudGuardDiffViewer;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/CloudGuardDiffViewer.res b/src/components/CloudGuardDiffViewer.res
deleted file mode 100644
index 79bffc6f..00000000
--- a/src/components/CloudGuardDiffViewer.res
+++ /dev/null
@@ -1,264 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL CloudGuard Diff Viewer — Three-way config diff display.
-///
-/// Shows differences between offline (saved), live (Cloudflare), and policy
-/// (Trustfile/Nickel) values for zone settings. Each diff entry displays the
-/// three values side by side with colour-coded resolution indicators.
-///
-/// Layout:
-///   +-------------+-------------+-------------+-------------+
-///   | Setting     | Offline     | Live        | Policy      |
-///   +-------------+-------------+-------------+-------------+
-///   | ssl.mode    | full_strict | flexible    | full_strict |  <-- red: live differs
-///   | min_tls     | 1.2         | 1.2         | 1.2         |  <-- green: all match
-///   | brotli      | on          | off         | on          |  <-- red: live differs
-///   +-------------+-------------+-------------+-------------+
-///   | 2 drifts found | 0 conflicts | 12 settings match       |
-///   +------------------------------------------------------------+
-
-open Msg
-open Model
-open Tea.Html
-
-// ============================================================================
-// Diff entry rendering
-// ============================================================================
-
-/// CSS class for a diff value based on whether it matches the policy.
-let valueClass = (value: option<string>, policyValue: option<string>): string => {
-  switch (value, policyValue) {
-  | (Some(v), Some(p)) =>
-    if v === p {
-      "text-green-400"
-    } else {
-      "text-red-400"
-    }
-  | (None, _) => "text-gray-600 italic"
-  | (_, None) => "text-gray-400"
-  }
-}
-
-/// Render a single diff entry row.
-let renderDiffEntry = (entry: configDiffEntry): Tea_Vdom.t<msg> => {
-  let offlineDisplay = switch entry.offlineValue {
-  | Some(v) => v
-  | None => "—"
-  }
-  let liveDisplay = switch entry.liveValue {
-  | Some(v) => v
-  | None => "—"
-  }
-  let policyDisplay = switch entry.policyValue {
-  | Some(v) => v
-  | None => "—"
-  }
-
-  // Determine if this is a drift (live != offline) or conflict (all three differ)
-  let isDrift = entry.offlineValue !== entry.liveValue
-  let isConflict =
-    isDrift && entry.offlineValue !== entry.policyValue && entry.liveValue !== entry.policyValue
-
-  let rowBg = if isConflict {
-    " bg-red-950/20"
-  } else if isDrift {
-    " bg-yellow-950/20"
-  } else {
-    ""
-  }
-
-  div(
-    list{Attrs.class_(`flex hover:bg-gray-800/30${rowBg}`)},
-    list{
-      // Setting ID
-      div(
-        list{Attrs.class_("py-1.5 px-2 text-sm text-gray-300 font-mono flex-1")},
-        list{text(entry.settingId)},
-      ),
-      // Offline value
-      div(
-        list{
-          Attrs.class_(
-            `py-1.5 px-2 text-sm font-mono w-28 ${valueClass(
-                entry.offlineValue,
-                entry.policyValue,
-              )}`,
-          ),
-        },
-        list{text(offlineDisplay)},
-      ),
-      // Live value
-      div(
-        list{
-          Attrs.class_(
-            `py-1.5 px-2 text-sm font-mono w-28 ${valueClass(entry.liveValue, entry.policyValue)}`,
-          ),
-        },
-        list{text(liveDisplay)},
-      ),
-      // Policy value
-      div(
-        list{Attrs.class_("py-1.5 px-2 text-sm font-mono w-28 text-gray-500")},
-        list{text(policyDisplay)},
-      ),
-      // Status indicator
-      div(
-        list{Attrs.class_("py-1.5 px-2 w-20")},
-        list{
-          if isConflict {
-            span(list{Attrs.class_("text-xs text-red-400 font-medium")}, list{text("CONFLICT")})
-          } else if isDrift {
-            span(list{Attrs.class_("text-xs text-yellow-400 font-medium")}, list{text("DRIFT")})
-          } else {
-            span(list{Attrs.class_("text-xs text-green-400")}, list{text("OK")})
-          },
-        },
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Table header
-// ============================================================================
-
-/// Render the diff table header as a flex row.
-let renderDiffHeader = (): Tea_Vdom.t<msg> => {
-  let headerCell = (label: string, extraClass: string) =>
-    div(
-      list{Attrs.class_(`text-left text-xs text-gray-500 font-medium py-2 px-2 ${extraClass}`)},
-      list{text(label)},
-    )
-
-  div(
-    list{Attrs.class_("flex border-b border-gray-800")},
-    list{
-      headerCell("Setting", "flex-1"),
-      headerCell("Offline", "w-28"),
-      headerCell("Live", "w-28"),
-      headerCell("Policy", "w-28"),
-      headerCell("Status", "w-20"),
-    },
-  )
-}
-
-// ============================================================================
-// Main diff viewer
-// ============================================================================
-
-/// Render the complete diff viewer panel.
-/// Shows the three-way diff table when a diff is available, or a prompt to
-/// download configs first.
-let view = (configDiff: option<configDiff>, _loading: bool): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("w-72 border-l border-gray-800 p-3 overflow-y-auto"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Configuration Diff Viewer"),
-    },
-    list{
-      div(list{Attrs.class_("text-xs text-gray-500 mb-3 font-medium")}, list{text("CONFIG DIFF")}),
-      switch configDiff {
-      | None =>
-        div(
-          list{Attrs.class_("text-sm text-gray-600 italic")},
-          list{text("Download a config first, then compare to see diffs.")},
-        )
-      | Some(diff) =>
-        div(
-          list{},
-          list{
-            // Summary bar
-            div(
-              list{Attrs.class_("flex items-center gap-3 mb-3 text-xs")},
-              list{
-                span(
-                  list{Attrs.class_("text-yellow-400")},
-                  list{text(`${Int.toString(diff.driftCount)} drifts`)},
-                ),
-                span(
-                  list{Attrs.class_("text-red-400")},
-                  list{text(`${Int.toString(diff.conflictCount)} conflicts`)},
-                ),
-                span(
-                  list{Attrs.class_("text-gray-500")},
-                  list{
-                    text(
-                      `${Int.toString(
-                          Array.length(diff.entries) - diff.driftCount - diff.conflictCount,
-                        )} OK`,
-                    ),
-                  },
-                ),
-              },
-            ),
-            // Diff entries (compact list for the side panel)
-            div(
-              list{Attrs.class_("space-y-1")},
-              diff.entries
-              ->Array.filter(e => e.offlineValue !== e.liveValue)
-              ->Array.map(entry => {
-                let liveDisplay = switch entry.liveValue {
-                | Some(v) => v
-                | None => "—"
-                }
-                let offlineDisplay = switch entry.offlineValue {
-                | Some(v) => v
-                | None => "—"
-                }
-                div(
-                  list{Attrs.class_("text-xs p-2 bg-gray-800/50 rounded")},
-                  list{
-                    div(
-                      list{Attrs.class_("font-mono text-gray-300 mb-0.5")},
-                      list{text(entry.settingId)},
-                    ),
-                    div(
-                      list{Attrs.class_("flex items-center gap-1")},
-                      list{
-                        span(list{Attrs.class_("text-gray-500")}, list{text(offlineDisplay)}),
-                        span(list{Attrs.class_("text-gray-600")}, list{text(" -> ")}),
-                        span(list{Attrs.class_("text-yellow-400")}, list{text(liveDisplay)}),
-                      },
-                    ),
-                  },
-                )
-              })
-              ->List.fromArray,
-            ),
-          },
-        )
-      },
-    },
-  )
-}
-
-/// Render the diff viewer as a full-width table (for modal/expanded view).
-/// This is an alternative layout for when the diff is shown in the main content area.
-let viewExpanded = (configDiff: option<configDiff>): Tea_Vdom.t<msg> => {
-  switch configDiff {
-  | None =>
-    div(
-      list{Attrs.class_("text-sm text-gray-600 italic px-3 py-4")},
-      list{text("No config diff available. Download a config, then compare.")},
-    )
-  | Some(diff) =>
-    div(
-      list{Attrs.class_("flex-1 overflow-y-auto")},
-      list{
-        div(
-          list{Attrs.class_("w-full text-left")},
-          list{
-            renderDiffHeader(),
-            div(
-              list{},
-              diff.entries
-              ->Array.map(renderDiffEntry)
-              ->List.fromArray,
-            ),
-          },
-        ),
-      },
-    )
-  }
-}
diff --git a/src/components/CloudGuardDnsEditor.affine b/src/components/CloudGuardDnsEditor.affine
new file mode 100644
index 00000000..31886f4c
--- /dev/null
+++ b/src/components/CloudGuardDnsEditor.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CloudGuardDnsEditor;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/CloudGuardDnsEditor.res b/src/components/CloudGuardDnsEditor.res
deleted file mode 100644
index 570f7b2c..00000000
--- a/src/components/CloudGuardDnsEditor.res
+++ /dev/null
@@ -1,499 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL CloudGuard DNS Editor — Inline DNS record table with security templates.
-///
-/// Renders a tabular view of all DNS records for the selected zone with inline
-/// editing, creation, deletion, and one-click security record templates.
-///
-/// Security templates provide quick setup of:
-///   - SPF: `v=spf1 -all` (deny all for domains that don't send email)
-///   - DMARC: `v=DMARC1; p=reject; sp=reject; adkim=s; aspf=s; pct=100; fo=1`
-///   - DKIM revocation: `v=DKIM1; p=` (revoke all DKIM keys)
-///   - CAA: `0 issue "letsencrypt.org"` (restrict CA to Let's Encrypt)
-///   - TLS-RPT: `v=TLSRPTv1; rua=mailto:tlsrpt@domain`
-///
-/// Layout:
-///   +---------+--------------------+----------------------------+-----+-------+--------+
-///   | Type    | Name               | Content                    | TTL | Proxy | Actions|
-///   +---------+--------------------+----------------------------+-----+-------+--------+
-///   | A       | example.com        | 192.0.2.1                  | Auto| ON    | [Edit][Del]
-///   | AAAA    | example.com        | 2001:db8::1                | Auto| ON    | [Edit][Del]
-///   | TXT     | example.com        | v=spf1 -all                | Auto| --    | [Edit][Del]
-///   | TXT     | _dmarc.example.com | v=DMARC1; p=reject; ...    | Auto| --    | [Edit][Del]
-///   | CAA     | example.com        | 0 issue "letsencrypt.org"  | Auto| --    | [Edit][Del]
-///   +---------+--------------------+----------------------------+-----+-------+--------+
-///   [+ Add Record] [SPF] [DMARC] [DKIM Revoke] [CAA] [TLS-RPT]  <-- Security templates
-
-open Msg
-open Model
-open Tea.Html
-
-// ============================================================================
-// DNS record type display helpers
-// ============================================================================
-
-/// Human-readable label for a DNS record type.
-let recordTypeLabel = (rt: dnsRecordType): string => {
-  switch rt {
-  | A => "A"
-  | AAAA => "AAAA"
-  | CNAME => "CNAME"
-  | MX => "MX"
-  | TXT => "TXT"
-  | SRV => "SRV"
-  | NS => "NS"
-  | CAA => "CAA"
-  | TLSA => "TLSA"
-  | HTTPS => "HTTPS"
-  | SVCB => "SVCB"
-  | PTR => "PTR"
-  | LOC => "LOC"
-  }
-}
-
-/// CSS colour class for a DNS record type badge.
-let recordTypeBadgeClass = (rt: dnsRecordType): string => {
-  switch rt {
-  | A | AAAA => "bg-blue-900/50 text-blue-300 border-blue-700/50"
-  | CNAME => "bg-green-900/50 text-green-300 border-green-700/50"
-  | MX => "bg-purple-900/50 text-purple-300 border-purple-700/50"
-  | TXT => "bg-yellow-900/50 text-yellow-300 border-yellow-700/50"
-  | CAA => "bg-orange-900/50 text-orange-300 border-orange-700/50"
-  | NS => "bg-gray-800/50 text-gray-300 border-gray-700/50"
-  | SRV => "bg-indigo-900/50 text-indigo-300 border-indigo-700/50"
-  | _ => "bg-gray-800/50 text-gray-400 border-gray-700/50"
-  }
-}
-
-// ============================================================================
-// Security status indicators
-// ============================================================================
-
-/// Check if a record is a security-relevant TXT record (SPF, DMARC, DKIM, TLSRPT).
-let isSecurityRecord = (record: cfDnsRecord): bool => {
-  switch record.recordType {
-  | TXT =>
-    String.includes(record.content, "v=spf1") ||
-    String.includes(record.name, "_dmarc") && String.includes(record.content, "v=DMARC1") ||
-    String.includes(record.name, "_domainkey") && String.includes(record.content, "v=DKIM1") ||
-    (String.includes(record.name, "_smtp._tls") && String.includes(record.content, "v=TLSRPTv1"))
-  | CAA => true
-  | _ => false
-  }
-}
-
-/// Get a security label for a record if it's a known security record.
-let securityLabel = (record: cfDnsRecord): option<string> => {
-  switch record.recordType {
-  | TXT =>
-    if String.includes(record.content, "v=spf1") {
-      Some("SPF")
-    } else if String.includes(record.name, "_dmarc") {
-      Some("DMARC")
-    } else if String.includes(record.name, "_domainkey") {
-      Some("DKIM")
-    } else if String.includes(record.name, "_smtp._tls") {
-      Some("TLS-RPT")
-    } else {
-      None
-    }
-  | CAA => Some("CAA")
-  | _ => None
-  }
-}
-
-// ============================================================================
-// Table header
-// ============================================================================
-
-/// Render the DNS records table header row (div-based flex layout since
-/// Tea_Html does not provide th/thead/tr elements).
-let renderTableHeader = (): Tea_Vdom.t<msg> => {
-  let headerCell = (label: string, width: string) =>
-    div(
-      list{Attrs.class_(`text-left text-xs text-gray-500 font-medium py-2 px-2 ${width}`)},
-      list{text(label)},
-    )
-
-  div(
-    list{Attrs.class_("flex border-b border-gray-800")},
-    list{
-      headerCell("Type", "w-16"),
-      headerCell("Name", "w-48"),
-      headerCell("Content", "flex-1"),
-      headerCell("TTL", "w-16"),
-      headerCell("Proxy", "w-14"),
-      headerCell("", "w-20"),
-    },
-  )
-}
-
-// ============================================================================
-// Individual record row
-// ============================================================================
-
-/// Render a single DNS record row in the table.
-let renderRecordRow = (record: cfDnsRecord, isEditing: bool): Tea_Vdom.t<msg> => {
-  let editingClass = isEditing ? " bg-gray-800/80 ring-1 ring-indigo-500/50" : ""
-  let secLabel = securityLabel(record)
-
-  div(
-    list{
-      Attrs.class_(`flex hover:bg-gray-800/30 transition-colors${editingClass}`),
-      Attrs.ariaLabel(`DNS record ${recordTypeLabel(record.recordType)} ${record.name}`),
-    },
-    list{
-      // Type badge
-      div(
-        list{Attrs.class_("py-1.5 px-2 w-16")},
-        list{
-          span(
-            list{
-              Attrs.class_(
-                `text-xs font-mono px-1.5 py-0.5 rounded border ${recordTypeBadgeClass(
-                    record.recordType,
-                  )}`,
-              ),
-            },
-            list{text(recordTypeLabel(record.recordType))},
-          ),
-        },
-      ),
-      // Name
-      div(
-        list{Attrs.class_("py-1.5 px-2 w-48")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-1.5")},
-            list{
-              span(
-                list{Attrs.class_("text-sm text-gray-200 font-mono truncate max-w-48")},
-                list{text(record.name)},
-              ),
-              // Security label badge
-              switch secLabel {
-              | Some(label) =>
-                span(
-                  list{
-                    Attrs.class_(
-                      "text-xs text-green-400 font-medium px-1 py-0.5 bg-green-900/30 rounded",
-                    ),
-                  },
-                  list{text(label)},
-                )
-              | None => noNode
-              },
-            },
-          ),
-        },
-      ),
-      // Content (truncated for long TXT records)
-      div(
-        list{Attrs.class_("py-1.5 px-2 flex-1")},
-        list{
-          div(
-            list{
-              Attrs.class_("text-sm text-gray-300 font-mono truncate max-w-96"),
-              Attrs.title(record.content), // Full content on hover
-            },
-            list{text(record.content)},
-          ),
-        },
-      ),
-      // TTL
-      div(
-        list{Attrs.class_("py-1.5 px-2 w-16 text-xs text-gray-500")},
-        list{
-          text(
-            if record.ttl === 1 {
-              "Auto"
-            } else {
-              Int.toString(record.ttl)
-            },
-          ),
-        },
-      ),
-      // Proxied status
-      div(
-        list{Attrs.class_("py-1.5 px-2 w-14")},
-        list{
-          switch record.recordType {
-          | A | AAAA | CNAME =>
-            span(
-              list{
-                Attrs.class_(
-                  if record.proxied {
-                    "text-xs text-orange-400 font-medium"
-                  } else {
-                    "text-xs text-gray-500"
-                  },
-                ),
-              },
-              list{
-                text(
-                  if record.proxied {
-                    "ON"
-                  } else {
-                    "OFF"
-                  },
-                ),
-              },
-            )
-          | _ => span(list{Attrs.class_("text-xs text-gray-600")}, list{text("--")})
-          },
-        },
-      ),
-      // Actions
-      div(
-        list{Attrs.class_("py-1.5 px-2 w-20")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-1")},
-            list{
-              // Edit button
-              if !record.locked {
-                button(
-                  list{
-                    Attrs.class_("text-xs text-gray-500 hover:text-indigo-400 cursor-pointer px-1"),
-                    Attrs.ariaLabel(`Edit ${record.name}`),
-                    Events.onClick(CloudGuard(StartEditingDnsRecord(record.id))),
-                  },
-                  list{text("Edit")},
-                )
-              } else {
-                noNode
-              },
-              // Delete button
-              if !record.locked {
-                button(
-                  list{
-                    Attrs.class_("text-xs text-gray-500 hover:text-red-400 cursor-pointer px-1"),
-                    Attrs.ariaLabel(`Delete ${record.name}`),
-                    Events.onClick(CloudGuard(DeleteDnsRecord(record.zoneId, record.id))),
-                  },
-                  list{text("Del")},
-                )
-              } else {
-                span(list{Attrs.class_("text-xs text-gray-600 italic")}, list{text("Locked")})
-              },
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Security template buttons
-// ============================================================================
-
-/// Render the security record template buttons.
-/// These provide one-click creation of SPF, DMARC, DKIM revocation, CAA, TLS-RPT records.
-let renderSecurityTemplates = (records: array<cfDnsRecord>, hasSelectedZone: bool): Tea_Vdom.t<
-  msg,
-> => {
-  // Check which security records already exist
-  let hasSpf = records->Array.some(r =>
-    switch r.recordType {
-    | TXT => String.includes(r.content, "v=spf1")
-    | _ => false
-    }
-  )
-  let hasDmarc = records->Array.some(r =>
-    switch r.recordType {
-    | TXT => String.includes(r.name, "_dmarc") && String.includes(r.content, "v=DMARC1")
-    | _ => false
-    }
-  )
-  let hasDkim = records->Array.some(r =>
-    switch r.recordType {
-    | TXT => String.includes(r.name, "_domainkey")
-    | _ => false
-    }
-  )
-  let hasCaa = records->Array.some(r =>
-    switch r.recordType {
-    | CAA => true
-    | _ => false
-    }
-  )
-  let hasTlsrpt = records->Array.some(r =>
-    switch r.recordType {
-    | TXT => String.includes(r.name, "_smtp._tls")
-    | _ => false
-    }
-  )
-
-  /// Render a single template button. Green if record exists, amber if missing.
-  let templateButton = (label: string, templateName: string, exists: bool) => {
-    let (bgClass, labelSuffix) = if exists {
-      ("bg-green-900/30 text-green-400 border-green-700/40 cursor-default", " OK")
-    } else {
-      (
-        "bg-amber-900/30 text-amber-400 border-amber-700/40 hover:bg-amber-900/50 cursor-pointer",
-        "",
-      )
-    }
-
-    button(
-      list{
-        Attrs.class_(`text-xs font-medium px-2 py-1 rounded border ${bgClass}`),
-        Attrs.ariaLabel(
-          if exists {
-            `${label} record already exists`
-          } else {
-            `Add ${label} security record`
-          },
-        ),
-        if !exists && hasSelectedZone {
-          Events.onClick(CloudGuard(ApplySecurityTemplate(templateName)))
-        } else {
-          Attrs.noProp
-        },
-      },
-      list{text(`${label}${labelSuffix}`)},
-    )
-  }
-
-  div(
-    list{Attrs.class_("flex items-center gap-2 flex-wrap")},
-    list{
-      span(list{Attrs.class_("text-xs text-gray-500 mr-1")}, list{text("Security:")}),
-      templateButton("SPF", "spf", hasSpf),
-      templateButton("DMARC", "dmarc", hasDmarc),
-      templateButton("DKIM", "dkim_revoke", hasDkim),
-      templateButton("CAA", "caa", hasCaa),
-      templateButton("TLS-RPT", "tlsrpt", hasTlsrpt),
-    },
-  )
-}
-
-// ============================================================================
-// Record count summary
-// ============================================================================
-
-/// Render a compact summary showing counts by record type.
-let renderRecordSummary = (records: array<cfDnsRecord>): Tea_Vdom.t<msg> => {
-  let counts = CloudGuardEngine.countRecordsByType(records)
-
-  div(
-    list{Attrs.class_("flex items-center gap-2 flex-wrap")},
-    counts
-    ->Array.map(((typeName, count)) =>
-      span(
-        list{Attrs.class_("text-xs text-gray-500")},
-        list{text(`${typeName}: ${Int.toString(count)}`)},
-      )
-    )
-    ->List.fromArray,
-  )
-}
-
-// ============================================================================
-// Main DNS editor view
-// ============================================================================
-
-/// Render the complete DNS editor for the currently selected zone.
-/// Shows the record table, security templates, and record count summary.
-let view = (
-  records: array<cfDnsRecord>,
-  editingId: option<string>,
-  hasSelectedZone: bool,
-  loading: bool,
-): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("flex-1 flex flex-col"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("DNS Record Editor"),
-    },
-    list{
-      // Header with record count and security templates
-      div(
-        list{
-          Attrs.class_("flex items-center justify-between px-3 py-2 border-b border-gray-800/50"),
-        },
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              span(
-                list{Attrs.class_("text-sm text-gray-300 font-medium")},
-                list{text(`${Int.toString(Array.length(records))} records`)},
-              ),
-              renderRecordSummary(records),
-            },
-          ),
-          renderSecurityTemplates(records, hasSelectedZone),
-        },
-      ),
-      // Loading indicator
-      if loading {
-        div(
-          list{Attrs.class_("text-sm text-gray-500 italic px-3 py-2")},
-          list{text("Loading DNS records...")},
-        )
-      } else {
-        noNode
-      },
-      // Records table
-      if Array.length(records) > 0 {
-        div(
-          list{Attrs.class_("flex-1 overflow-y-auto")},
-          list{
-            div(
-              list{Attrs.class_("w-full text-left")},
-              list{
-                renderTableHeader(),
-                div(
-                  list{},
-                  records
-                  ->Array.map(record => {
-                    let isEditing = switch editingId {
-                    | Some(id) => id === record.id
-                    | None => false
-                    }
-                    renderRecordRow(record, isEditing)
-                  })
-                  ->List.fromArray,
-                ),
-              },
-            ),
-          },
-        )
-      } else if !loading {
-        div(
-          list{Attrs.class_("text-sm text-gray-600 italic px-3 py-4")},
-          list{text("No DNS records found for this zone.")},
-        )
-      } else {
-        noNode
-      },
-      {
-        let missing = CloudGuardEngine.checkEmailSecurityRecords(records)
-        if Array.length(missing) > 0 && Array.length(records) > 0 {
-          div(
-            list{Attrs.class_("border-t border-gray-800/50 px-3 py-2")},
-            list{
-              div(
-                list{Attrs.class_("text-xs text-amber-400 font-medium mb-1")},
-                list{text("Missing Security Records:")},
-              ),
-              div(
-                list{Attrs.class_("space-y-0.5")},
-                missing
-                ->Array.map(msg =>
-                  div(list{Attrs.class_("text-xs text-gray-500")}, list{text(`- ${msg}`)})
-                )
-                ->List.fromArray,
-              ),
-            },
-          )
-        } else {
-          noNode
-        }
-      },
-    },
-  )
-}
diff --git a/src/components/CloudGuardDomainList.affine b/src/components/CloudGuardDomainList.affine
new file mode 100644
index 00000000..0bcaba65
--- /dev/null
+++ b/src/components/CloudGuardDomainList.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CloudGuardDomainList;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/CloudGuardDomainList.res b/src/components/CloudGuardDomainList.res
deleted file mode 100644
index 74c66f12..00000000
--- a/src/components/CloudGuardDomainList.res
+++ /dev/null
@@ -1,161 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL CloudGuard Domain List — Horizontal domain selector ribbon.
-///
-/// Renders a scrollable horizontal ribbon of domain checkboxes at the top of
-/// the CloudGuard panel. Users can select/deselect individual domains, use
-/// "Select All" / "None" shortcuts, and filter by name.
-///
-/// Layout:
-///   [Select All] [None] [Filter: ________]
-///   [x wokelang.org] [x axel-protocol.org] [ betlang.org] [x cc-studio.dev] ...
-///
-/// Selected domains are highlighted with an indigo border. Domains with
-/// compliance issues show a small red/yellow dot indicator.
-
-open Msg
-open Model
-open Tea.Html
-
-/// Render a single domain chip in the ribbon.
-/// Selected chips have an indigo border, deselected have a gray border.
-let renderDomainChip = (zone: cfZone, isSelected: bool): Tea_Vdom.t<msg> => {
-  let borderClass = isSelected
-    ? "border-indigo-500 bg-indigo-950/30"
-    : "border-gray-700 bg-gray-800/30"
-
-  let statusDot = switch zone.status {
-  | "active" =>
-    span(list{Attrs.class_("w-2 h-2 rounded-full bg-green-400 inline-block mr-1.5")}, list{})
-  | "pending" =>
-    span(list{Attrs.class_("w-2 h-2 rounded-full bg-yellow-400 inline-block mr-1.5")}, list{})
-  | _ => span(list{Attrs.class_("w-2 h-2 rounded-full bg-gray-500 inline-block mr-1.5")}, list{})
-  }
-
-  let planBadge = switch zone.plan {
-  | Free => noNode
-  | Pro => span(list{Attrs.class_("ml-1.5 text-xs text-orange-400 font-medium")}, list{text("PRO")})
-  | Business =>
-    span(list{Attrs.class_("ml-1.5 text-xs text-purple-400 font-medium")}, list{text("BIZ")})
-  | Enterprise =>
-    span(list{Attrs.class_("ml-1.5 text-xs text-blue-400 font-medium")}, list{text("ENT")})
-  }
-
-  button(
-    list{
-      Attrs.class_(
-        `inline-flex items-center px-3 py-1.5 rounded border text-sm font-mono cursor-pointer transition-colors ${borderClass} hover:border-indigo-400`,
-      ),
-      Attrs.ariaPressed(isSelected),
-      Attrs.ariaLabel(`${isSelected ? "Deselect" : "Select"} ${zone.name}`),
-      Events.onClick(CloudGuard(ToggleZoneSelection(zone.id))),
-    },
-    list{statusDot, span(list{Attrs.class_("text-gray-200")}, list{text(zone.name)}), planBadge},
-  )
-}
-
-/// Render the domain filter input.
-let renderFilterInput = (filterText: string): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex items-center gap-2")},
-    list{
-      span(list{Attrs.class_("text-xs text-gray-500")}, list{text("Filter:")}),
-      input(
-        list{
-          Attrs.class_(
-            "bg-gray-800 border border-gray-700 rounded px-2 py-1 text-sm text-gray-300 w-40 focus:border-indigo-500 focus:outline-none",
-          ),
-          Attrs.type_("text"),
-          Attrs.value(filterText),
-          Attrs.placeholder("domain name..."),
-          Attrs.ariaLabel("Filter domains"),
-          Events.onInput(text => CloudGuard(SetFilterText(text))),
-        },
-        list{},
-      ),
-    },
-  )
-}
-
-/// Render the "Select All" and "None" shortcut buttons.
-let renderSelectionControls = (): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex items-center gap-2")},
-    list{
-      button(
-        list{
-          Attrs.class_("text-xs text-indigo-400 hover:text-indigo-300 cursor-pointer font-medium"),
-          Attrs.ariaLabel("Select all domains"),
-          Events.onClick(CloudGuard(SelectAllZones)),
-          KeyboardNav.onActivate(CloudGuard(SelectAllZones)),
-        },
-        list{text("Select All")},
-      ),
-      span(list{Attrs.class_("text-gray-600")}, list{text("|")}),
-      button(
-        list{
-          Attrs.class_("text-xs text-gray-400 hover:text-gray-300 cursor-pointer font-medium"),
-          Attrs.ariaLabel("Deselect all domains"),
-          Events.onClick(CloudGuard(DeselectAllZones)),
-          KeyboardNav.onActivate(CloudGuard(DeselectAllZones)),
-        },
-        list{text("None")},
-      ),
-    },
-  )
-}
-
-/// Render the complete domain ribbon: controls bar + scrollable chip list.
-let view = (zones: array<cfZone>, selectedZoneIds: array<string>, filterText: string): Tea_Vdom.t<
-  msg,
-> => {
-  let filteredZones = CloudGuardEngine.filterZones(zones, filterText)
-
-  div(
-    list{
-      Attrs.class_("border-b border-gray-800 pb-3"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Domain selector"),
-    },
-    list{
-      // Controls row: Select All | None | Filter
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-2")},
-        list{
-          renderSelectionControls(),
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              span(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{
-                  text(
-                    `${Int.toString(Array.length(selectedZoneIds))}/${Int.toString(
-                        Array.length(zones),
-                      )} selected`,
-                  ),
-                },
-              ),
-              renderFilterInput(filterText),
-            },
-          ),
-        },
-      ),
-      // Domain chips ribbon (scrollable)
-      div(
-        list{
-          Attrs.class_("flex flex-wrap gap-1.5 max-h-20 overflow-y-auto"),
-          Attrs.role("listbox"),
-          Attrs.ariaLabel("Domains"),
-          Attrs.prop("aria-multiselectable", "true"),
-        },
-        filteredZones
-        ->Array.map(zone => {
-          let isSelected = Array.includes(selectedZoneIds, zone.id)
-          renderDomainChip(zone, isSelected)
-        })
-        ->List.fromArray,
-      ),
-    },
-  )
-}
diff --git a/src/components/CloudGuardPagesSetup.affine b/src/components/CloudGuardPagesSetup.affine
new file mode 100644
index 00000000..aee20e8f
--- /dev/null
+++ b/src/components/CloudGuardPagesSetup.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CloudGuardPagesSetup;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/CloudGuardPagesSetup.res b/src/components/CloudGuardPagesSetup.res
deleted file mode 100644
index e093a53e..00000000
--- a/src/components/CloudGuardPagesSetup.res
+++ /dev/null
@@ -1,212 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL CloudGuard Pages Setup — Cloudflare Pages integration panel.
-///
-/// Provides a workflow for connecting GitHub repositories to Cloudflare Pages
-/// projects with automatic SSG framework detection, CNAME record creation,
-/// custom domain binding, and security headers setup via `_headers` file.
-///
-/// Layout:
-///   +-----------------------------------------------+
-///   | Existing Pages Projects                        |
-///   | +-------------------------------------------+  |
-///   | | project-name.pages.dev                    |  |
-///   | | custom-domain.com (CNAME active)          |  |
-///   | | Framework: Jekyll | Branch: main          |  |
-///   | +-------------------------------------------+  |
-///   |                                               |
-///   | [+ New Pages Project]                         |
-///   |                                               |
-///   | Security Headers Template                     |
-///   | [Generate _headers file] [Preview]            |
-///   +-----------------------------------------------+
-
-open Msg
-open Model
-open Tea.Html
-
-// ============================================================================
-// Pages project card
-// ============================================================================
-
-/// Render a single Pages project card showing project metadata and status.
-let renderProjectCard = (project: cfPagesProject): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_(
-        "border border-gray-700 rounded-lg p-3 mb-2 hover:border-gray-600 transition-colors",
-      ),
-    },
-    list{
-      // Project header
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-2")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              span(
-                list{Attrs.class_("text-sm font-medium text-gray-200")},
-                list{text(project.name)},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-indigo-400 font-mono")},
-                list{text(`${project.subdomain}.pages.dev`)},
-              ),
-            },
-          ),
-          // Framework badge
-          switch project.framework {
-          | Some(fw) =>
-            span(
-              list{
-                Attrs.class_(
-                  "text-xs text-purple-400 font-medium px-1.5 py-0.5 bg-purple-900/30 rounded",
-                ),
-              },
-              list{text(fw)},
-            )
-          | None => noNode
-          },
-        },
-      ),
-      // Custom domains
-      if Array.length(project.customDomains) > 0 {
-        div(
-          list{Attrs.class_("mb-1.5")},
-          list{
-            div(list{Attrs.class_("text-xs text-gray-500 mb-0.5")}, list{text("Custom domains:")}),
-            div(
-              list{Attrs.class_("flex flex-wrap gap-1")},
-              project.customDomains
-              ->Array.map(domain =>
-                span(
-                  list{
-                    Attrs.class_(
-                      "text-xs text-green-400 font-mono px-1.5 py-0.5 bg-green-900/20 rounded",
-                    ),
-                  },
-                  list{text(domain)},
-                )
-              )
-              ->List.fromArray,
-            ),
-          },
-        )
-      } else {
-        noNode
-      },
-      // Branch info
-      div(
-        list{Attrs.class_("text-xs text-gray-500")},
-        list{text(`Production branch: ${project.productionBranch}`)},
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Security headers template preview
-// ============================================================================
-
-/// Generate a `_headers` file content for security hardening.
-/// This is a free alternative to Workers for setting security headers on
-/// Cloudflare Pages deployments.
-let securityHeadersTemplate = (domain: string): string => {
-  `/*
-  X-Frame-Options: DENY
-  X-Content-Type-Options: nosniff
-  X-XSS-Protection: 1; mode=block
-  Referrer-Policy: strict-origin-when-cross-origin
-  Permissions-Policy: accelerometer=(), camera=(), geolocation=(), gyroscope=(), magnetometer=(), microphone=(), payment=(), usb=()
-  Content-Security-Policy: default-src 'self'; script-src 'self'; style-src 'self' 'unsafe-inline'; img-src 'self' data: https:; font-src 'self'; connect-src 'self'; frame-ancestors 'none'; base-uri 'self'; form-action 'self'
-  Strict-Transport-Security: max-age=31536000; includeSubDomains; preload
-  Cross-Origin-Embedder-Policy: require-corp
-  Cross-Origin-Opener-Policy: same-origin
-  Cross-Origin-Resource-Policy: same-origin
-
-# ${domain} — Generated by CloudGuard
-`
-}
-
-/// Render the security headers template section.
-let renderHeadersTemplate = (currentDomain: option<string>): Tea_Vdom.t<msg> => {
-  let domain = switch currentDomain {
-  | Some(d) => d
-  | None => "example.com"
-  }
-
-  div(
-    list{Attrs.class_("border border-gray-700 rounded-lg p-3")},
-    list{
-      div(
-        list{Attrs.class_("text-sm text-gray-300 font-medium mb-2")},
-        list{text("Security Headers Template (_headers)")},
-      ),
-      div(
-        list{Attrs.class_("text-xs text-gray-500 mb-2")},
-        list{
-          text(
-            "Add this _headers file to your Pages project root for free security headers (no Workers needed).",
-          ),
-        },
-      ),
-      // Template preview
-      pre(
-        list{
-          Attrs.class_(
-            "text-xs text-gray-400 bg-gray-900 rounded p-2 overflow-x-auto max-h-40 font-mono whitespace-pre",
-          ),
-        },
-        list{text(securityHeadersTemplate(domain))},
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Main Pages setup view
-// ============================================================================
-
-/// Render the Pages setup panel. Shows existing projects and the security
-/// headers template generator.
-let view = (
-  pagesProjects: array<cfPagesProject>,
-  currentDomain: option<string>,
-  _loading: bool,
-): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("flex-1 flex flex-col gap-4"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Cloudflare Pages Setup"),
-    },
-    list{
-      // Existing projects section
-      div(
-        list{},
-        list{
-          div(
-            list{Attrs.class_("text-sm text-gray-400 font-medium mb-2")},
-            list{text("Pages Projects")},
-          ),
-          if Array.length(pagesProjects) > 0 {
-            div(
-              list{Attrs.class_("space-y-2")},
-              pagesProjects
-              ->Array.map(renderProjectCard)
-              ->List.fromArray,
-            )
-          } else {
-            div(
-              list{Attrs.class_("text-xs text-gray-600 italic py-2")},
-              list{text("No Pages projects found for this account.")},
-            )
-          },
-        },
-      ),
-      // Security headers template
-      renderHeadersTemplate(currentDomain),
-    },
-  )
-}
diff --git a/src/components/CloudGuardSettingsGrid.affine b/src/components/CloudGuardSettingsGrid.affine
new file mode 100644
index 00000000..b8a5137c
--- /dev/null
+++ b/src/components/CloudGuardSettingsGrid.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CloudGuardSettingsGrid;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/CloudGuardSettingsGrid.res b/src/components/CloudGuardSettingsGrid.res
deleted file mode 100644
index 3c5c4d36..00000000
--- a/src/components/CloudGuardSettingsGrid.res
+++ /dev/null
@@ -1,302 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL CloudGuard Settings Grid — Grouped toggle/switch grid for zone settings.
-///
-/// Renders Cloudflare zone settings as an interactive grid of toggles, dropdowns,
-/// and number inputs, grouped by category. Settings unavailable on the user's plan
-/// are greyed out with a "Requires Pro/Business/Enterprise" badge.
-///
-/// Modified settings (different from last-pushed state) show an orange dot indicator.
-/// Settings that differ from the policy default show a yellow warning icon.
-///
-/// Layout (within a category tab):
-///   +-----------------------------------------+
-///   | SSL Mode          [Full (Strict)    v]  |
-///   | Min TLS Version   [1.2             v]  |
-///   | Always HTTPS      [================ON]  |
-///   | Auto Rewrites     [================ON]  |
-///   | Opportunistic Enc [================ON]  |
-///   | TLS 1.3           [zrt (0-RTT)     v]  |
-///   +-----------------------------------------+
-
-open Msg
-open Model
-open Tea.Html
-
-/// Render a toggle switch for on/off settings.
-/// The toggle is a styled checkbox that looks like a sliding switch.
-let renderToggle = (setting: cfSetting): Tea_Vdom.t<msg> => {
-  let isOn = CloudGuardEngine.isSettingEnabled(setting.value)
-  let bgClass = isOn ? "bg-indigo-600" : "bg-gray-600"
-  let translateClass = isOn ? "translate-x-5" : "translate-x-0"
-
-  div(
-    list{Attrs.class_("flex items-center justify-between py-2 px-3 hover:bg-gray-800/50 rounded")},
-    list{
-      // Label + description
-      div(
-        list{Attrs.class_("flex-1 mr-4")},
-        list{
-          div(list{Attrs.class_("text-sm text-gray-200 font-medium")}, list{text(setting.label)}),
-          div(list{Attrs.class_("text-xs text-gray-500 mt-0.5")}, list{text(setting.description)}),
-        },
-      ),
-      // Toggle switch
-      button(
-        list{
-          Attrs.class_(
-            `relative inline-flex h-6 w-11 items-center rounded-full transition-colors cursor-pointer ${bgClass}`,
-          ),
-          Attrs.role("switch"),
-          Attrs.ariaChecked(isOn),
-          Attrs.ariaLabel(`Toggle ${setting.label}`),
-          Events.onClick(CloudGuard(ToggleSetting(setting.id))),
-        },
-        list{
-          span(
-            list{
-              Attrs.class_(
-                `inline-block h-4 w-4 rounded-full bg-white transition-transform ${translateClass}`,
-              ),
-              Attrs.style("margin-left", "2px"),
-            },
-            list{},
-          ),
-        },
-      ),
-      // Modified indicator
-      if setting.modified {
-        span(
-          list{
-            Attrs.class_("w-2 h-2 rounded-full bg-orange-400 ml-2"),
-            Attrs.title("Setting has been modified"),
-          },
-          list{},
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-/// Render a dropdown select for enum settings.
-let renderSelect = (setting: cfSetting, options: array<string>): Tea_Vdom.t<msg> => {
-  let currentValue = CloudGuardEngine.settingValueToString(setting.value)
-
-  div(
-    list{Attrs.class_("flex items-center justify-between py-2 px-3 hover:bg-gray-800/50 rounded")},
-    list{
-      // Label + description
-      div(
-        list{Attrs.class_("flex-1 mr-4")},
-        list{
-          div(list{Attrs.class_("text-sm text-gray-200 font-medium")}, list{text(setting.label)}),
-          div(list{Attrs.class_("text-xs text-gray-500 mt-0.5")}, list{text(setting.description)}),
-        },
-      ),
-      // Select dropdown
-      select(
-        list{
-          Attrs.class_(
-            "bg-gray-800 border border-gray-600 rounded px-2 py-1 text-sm text-gray-200 cursor-pointer focus:border-indigo-500 focus:outline-none",
-          ),
-          Attrs.value(currentValue),
-          Attrs.ariaLabel(`Select ${setting.label}`),
-          Events.onChange(value => CloudGuard(UpdateSettingValue(setting.id, value))),
-        },
-        options
-        ->Array.map(opt => {
-          option'(
-            list{
-              Attrs.value(opt),
-              if opt === currentValue {
-                Attrs.selected(true)
-              } else {
-                Attrs.noProp
-              },
-            },
-            list{text(opt)},
-          )
-        })
-        ->List.fromArray,
-      ),
-      // Modified indicator
-      if setting.modified {
-        span(
-          list{
-            Attrs.class_("w-2 h-2 rounded-full bg-orange-400 ml-2"),
-            Attrs.title("Setting has been modified"),
-          },
-          list{},
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-/// Render a number input for numeric settings.
-let renderNumberInput = (setting: cfSetting): Tea_Vdom.t<msg> => {
-  let currentValue = CloudGuardEngine.settingValueToString(setting.value)
-
-  div(
-    list{Attrs.class_("flex items-center justify-between py-2 px-3 hover:bg-gray-800/50 rounded")},
-    list{
-      div(
-        list{Attrs.class_("flex-1 mr-4")},
-        list{
-          div(list{Attrs.class_("text-sm text-gray-200 font-medium")}, list{text(setting.label)}),
-          div(list{Attrs.class_("text-xs text-gray-500 mt-0.5")}, list{text(setting.description)}),
-        },
-      ),
-      input(
-        list{
-          Attrs.class_(
-            "bg-gray-800 border border-gray-600 rounded px-2 py-1 text-sm text-gray-200 w-24 focus:border-indigo-500 focus:outline-none",
-          ),
-          Attrs.type_("number"),
-          Attrs.value(currentValue),
-          Attrs.ariaLabel(`Set ${setting.label}`),
-          Events.onInput(value => CloudGuard(UpdateSettingValue(setting.id, value))),
-        },
-        list{},
-      ),
-    },
-  )
-}
-
-/// Render an exception indicator badge showing that this setting has a
-/// per-domain override. Displays the override reason on hover via title attr.
-let renderExceptionBadge = (domainExc: domainException): Tea_Vdom.t<msg> => {
-  span(
-    list{
-      Attrs.class_(
-        "text-xs text-yellow-400 font-medium px-1.5 py-0.5 border border-yellow-500/30 rounded ml-2",
-      ),
-      Attrs.title(`Exception: ${domainExc.reason}`),
-    },
-    list{text("EXC")},
-  )
-}
-
-/// Render a single setting row, choosing the appropriate input type.
-/// Unavailable settings are rendered greyed-out with a plan badge.
-/// If an exception exists for the current domain, shows a yellow "EXC" badge.
-let renderSettingRow = (setting: cfSetting, domainExc: option<domainException>): Tea_Vdom.t<
-  msg,
-> => {
-  // Check availability from catalog
-  let catalogEntry = CloudGuardCatalog.findById(setting.id)
-
-  // The core row content depends on availability and value type
-  let rowContent = switch catalogEntry {
-  | None => renderToggle(setting) // Fallback to toggle for unknown settings
-  | Some(entry) =>
-    switch entry.availability {
-    | Unavailable(tier) =>
-      // Greyed-out setting with plan badge
-      div(
-        list{
-          Attrs.class_("flex items-center justify-between py-2 px-3 opacity-40 cursor-not-allowed"),
-        },
-        list{
-          div(
-            list{Attrs.class_("flex-1 mr-4")},
-            list{
-              div(
-                list{Attrs.class_("text-sm text-gray-400 font-medium")},
-                list{text(setting.label)},
-              ),
-              div(
-                list{Attrs.class_("text-xs text-gray-600 mt-0.5")},
-                list{text(setting.description)},
-              ),
-            },
-          ),
-          span(
-            list{
-              Attrs.class_(
-                "text-xs text-amber-500/60 font-medium px-2 py-0.5 border border-amber-500/30 rounded",
-              ),
-            },
-            list{text(`Requires ${CloudGuardCatalog.planLabel(tier)}`)},
-          ),
-        },
-      )
-    | Available | Limited(_) =>
-      switch entry.valueType {
-      | "toggle" => renderToggle(setting)
-      | "select" =>
-        switch entry.options {
-        | Some(opts) => renderSelect(setting, opts)
-        | None => renderToggle(setting)
-        }
-      | "number" => renderNumberInput(setting)
-      | _ => renderToggle(setting) // Fallback
-      }
-    }
-  }
-
-  // Wrap with exception badge if this setting has a per-domain override
-  switch domainExc {
-  | None => rowContent
-  | Some(exc) => div(list{Attrs.class_("relative")}, list{rowContent, renderExceptionBadge(exc)})
-  }
-}
-
-/// Render the settings grid for a given category.
-/// Shows all settings in the category, filtered by search text.
-/// Exceptions are used to show per-domain override indicators on individual rows.
-let view = (
-  settings: array<cfSetting>,
-  activeCategory: settingCategory,
-  settingFilter: string,
-  exceptions: array<domainException>,
-  currentDomain: option<string>,
-): Tea_Vdom.t<msg> => {
-  // Filter settings to the active category
-  let categorySettings = settings->Array.filter(s => s.category === activeCategory)
-
-  // Apply text filter
-  let filteredSettings = if String.length(settingFilter) > 0 {
-    let lower = String.toLowerCase(settingFilter)
-    categorySettings->Array.filter(s =>
-      String.includes(String.toLowerCase(s.label), lower) ||
-      String.includes(String.toLowerCase(s.id), lower)
-    )
-  } else {
-    categorySettings
-  }
-
-  div(
-    list{
-      Attrs.class_("flex-1 overflow-y-auto"),
-      Attrs.role("list"),
-      Attrs.ariaLabel(`${CloudGuardCatalog.categoryLabel(activeCategory)} settings`),
-    },
-    list{
-      if Array.length(filteredSettings) === 0 {
-        div(
-          list{Attrs.class_("text-gray-600 text-sm italic py-4 px-3")},
-          list{text(`No ${CloudGuardCatalog.categoryLabel(activeCategory)} settings found`)},
-        )
-      } else {
-        div(
-          list{Attrs.class_("divide-y divide-gray-800/50")},
-          filteredSettings
-          ->Array.map(setting => {
-            // Look up per-domain exception for this setting
-            let domainExc = switch currentDomain {
-            | Some(domain) => CloudGuardEngine.findException(exceptions, domain, setting.id)
-            | None => None
-            }
-            renderSettingRow(setting, domainExc)
-          })
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
diff --git a/src/components/CodeReview.affine b/src/components/CodeReview.affine
new file mode 100644
index 00000000..241812c1
--- /dev/null
+++ b/src/components/CodeReview.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CodeReview;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/CodeReview.res b/src/components/CodeReview.res
deleted file mode 100644
index f93b2925..00000000
--- a/src/components/CodeReview.res
+++ /dev/null
@@ -1,311 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL CodeReview — pull request review, inline comments, and approval gates.
-/// Scanner clade panel for team code review workflows.
-///
-/// Four tabs: Pull Requests (list with status badges), File Changes (summary),
-/// Comments (threaded inline review), and Approval Gate (merge readiness).
-
-open Model
-open Msg
-open Tea.Html
-
-// =========================================================================
-// Helpers
-// =========================================================================
-
-/// Human-readable label for a PR status.
-let statusLabel = (status: prStatus): string =>
-  switch status {
-  | PrOpen => "Open"
-  | PrApproved => "Approved"
-  | PrChangesRequested => "Changes Requested"
-  | PrMerged => "Merged"
-  | PrClosed => "Closed"
-  }
-
-/// Tailwind colour class for a PR status badge.
-let statusColour = (status: prStatus): string =>
-  switch status {
-  | PrOpen => "bg-blue-600 text-blue-100"
-  | PrApproved => "bg-emerald-600 text-emerald-100"
-  | PrChangesRequested => "bg-amber-600 text-amber-100"
-  | PrMerged => "bg-purple-600 text-purple-100"
-  | PrClosed => "bg-gray-600 text-gray-300"
-  }
-
-/// Tab bar rendering.
-let renderTabs = (active: codeReviewTab): Tea_Vdom.t<msg> => {
-  let tabs = CodeReviewEngine.allTabs
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 px-4")},
-    tabs
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-3 py-2 text-sm font-medium transition-colors rounded-t ${isActive
-                ? "bg-gray-800 text-cyan-400 border-b-2 border-cyan-400"
-                : "text-gray-500 hover:text-gray-300 hover:bg-gray-900 cursor-pointer"}`,
-          ),
-          Events.onClick(CodeReview(SetCrTab(tab))),
-        },
-        list{text(CodeReviewEngine.tabLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-// =========================================================================
-// Tab content views
-// =========================================================================
-
-/// Pull Requests tab: list with status badges, file counts, and diff stats.
-let renderPullRequestsTab = (state: codeReviewState): Tea_Vdom.t<msg> => {
-  let filtered = CodeReviewEngine.filterPrs(state.pullRequests, state.filter)
-  if Array.length(filtered) === 0 {
-    div(
-      list{Attrs.class_("p-4 text-gray-500 text-sm italic")},
-      list{text("No pull requests found. Open a PR to begin code review.")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("flex flex-col gap-2 p-4 max-h-96 overflow-y-auto")},
-      filtered
-      ->Array.map(pr => {
-        let isSelected = state.selectedPr === Some(pr.id)
-        let bgCls = isSelected ? "bg-gray-750 border border-cyan-700" : "bg-gray-800"
-        div(
-          list{
-            Attrs.class_(
-              `p-3 rounded border border-gray-700 cursor-pointer hover:bg-gray-750 ${bgCls}`,
-            ),
-            Events.onClick(CodeReview(SelectPr(pr.id))),
-          },
-          list{
-            div(
-              list{Attrs.class_("flex items-center justify-between mb-1")},
-              list{
-                span(list{Attrs.class_("text-sm font-medium text-gray-200")}, list{text(pr.title)}),
-                span(
-                  list{Attrs.class_(`text-xs px-2 py-0.5 rounded-full ${statusColour(pr.status)}`)},
-                  list{text(statusLabel(pr.status))},
-                ),
-              },
-            ),
-            div(
-              list{Attrs.class_("flex gap-4 text-xs text-gray-500")},
-              list{
-                span(list{}, list{text(pr.author)}),
-                span(list{}, list{text(`${pr.branch}`)}),
-                span(list{}, list{text(`${Int.toString(pr.filesChanged)} files`)}),
-                span(
-                  list{Attrs.class_("text-emerald-500")},
-                  list{text(`+${Int.toString(pr.additions)}`)},
-                ),
-                span(
-                  list{Attrs.class_("text-red-400")},
-                  list{text(`-${Int.toString(pr.deletions)}`)},
-                ),
-              },
-            ),
-          },
-        )
-      })
-      ->List.fromArray,
-    )
-  }
-}
-
-/// File Changes tab: summary of changed files in the selected PR.
-let renderFileChangesTab = (_state: codeReviewState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("p-4")},
-    list{
-      div(
-        list{Attrs.class_("bg-gray-800 rounded p-4 h-48 flex items-center justify-center")},
-        list{
-          span(
-            list{Attrs.class_("text-gray-600 text-sm")},
-            list{text("Select a pull request to view file changes.")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Comments tab: threaded inline review comments.
-let renderCommentsTab = (state: codeReviewState): Tea_Vdom.t<msg> => {
-  let unresolvedCount = CodeReviewEngine.countUnresolved(state.comments)
-  if Array.length(state.comments) === 0 {
-    div(
-      list{Attrs.class_("p-4 text-gray-500 text-sm italic")},
-      list{text("No review comments yet.")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("flex flex-col gap-2 p-4")},
-      list{
-        div(
-          list{Attrs.class_("text-sm text-gray-400 mb-1")},
-          list{
-            text(
-              `${Int.toString(Array.length(state.comments))} comment(s), ${Int.toString(
-                  unresolvedCount,
-                )} unresolved`,
-            ),
-          },
-        ),
-        div(
-          list{Attrs.class_("flex flex-col gap-2 max-h-80 overflow-y-auto")},
-          state.comments
-          ->Array.map(comment => {
-            let resolvedCls = comment.resolved ? "border-emerald-800 opacity-60" : "border-gray-700"
-            div(
-              list{Attrs.class_(`bg-gray-800 rounded p-3 border ${resolvedCls}`)},
-              list{
-                div(
-                  list{Attrs.class_("flex items-center justify-between mb-1")},
-                  list{
-                    span(
-                      list{Attrs.class_("text-xs text-gray-400 font-mono")},
-                      list{text(`${comment.filePath}:${Int.toString(comment.lineNumber)}`)},
-                    ),
-                    span(list{Attrs.class_("text-xs text-gray-500")}, list{text(comment.author)}),
-                  },
-                ),
-                div(list{Attrs.class_("text-sm text-gray-300")}, list{text(comment.body)}),
-                if comment.resolved {
-                  div(list{Attrs.class_("text-xs text-emerald-500 mt-1")}, list{text("Resolved")})
-                } else {
-                  noNode
-                },
-              },
-            )
-          })
-          ->List.fromArray,
-        ),
-      },
-    )
-  }
-}
-
-/// Approval Gate tab: merge readiness check and approve button.
-let renderApprovalGateTab = (state: codeReviewState): Tea_Vdom.t<msg> => {
-  let unresolvedCount = CodeReviewEngine.countUnresolved(state.comments)
-  let openCount = CodeReviewEngine.countByStatus(state.pullRequests, PrOpen)
-  div(
-    list{Attrs.class_("flex flex-col gap-4 p-4")},
-    list{
-      div(
-        list{Attrs.class_("bg-gray-800 rounded p-4 border border-gray-700")},
-        list{
-          div(
-            list{Attrs.class_("text-sm font-medium text-gray-300 mb-2")},
-            list{text("Merge Readiness")},
-          ),
-          div(
-            list{Attrs.class_("flex flex-col gap-1 text-xs")},
-            list{
-              div(
-                list{
-                  Attrs.class_(
-                    if openCount === 0 {
-                      "text-emerald-400"
-                    } else {
-                      "text-amber-400"
-                    },
-                  ),
-                },
-                list{text(`Open PRs: ${Int.toString(openCount)}`)},
-              ),
-              div(
-                list{
-                  Attrs.class_(
-                    if unresolvedCount === 0 {
-                      "text-emerald-400"
-                    } else {
-                      "text-red-400"
-                    },
-                  ),
-                },
-                list{text(`Unresolved comments: ${Int.toString(unresolvedCount)}`)},
-              ),
-            },
-          ),
-        },
-      ),
-      if unresolvedCount === 0 && state.selectedPr !== None {
-        button(
-          list{
-            Attrs.class_(
-              "px-4 py-2 text-sm bg-emerald-700 text-white rounded hover:bg-emerald-600 cursor-pointer font-medium",
-            ),
-            Events.onClick(CodeReview(ApprovePr)),
-            KeyboardNav.onActivate(CodeReview(ApprovePr)),
-          },
-          list{text("Approve Selected PR")},
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-// =========================================================================
-// Main view
-// =========================================================================
-
-/// Primary view function for the Code Review panel.
-let view = (state: codeReviewState): Tea_Vdom.t<msg> => {
-  let content = switch state.activeTab {
-  | TabPullRequests => renderPullRequestsTab(state)
-  | TabFileChanges => renderFileChangesTab(state)
-  | TabComments => renderCommentsTab(state)
-  | TabApprovalGate => renderApprovalGateTab(state)
-  }
-
-  div(
-    list{Attrs.class_("flex flex-col h-full bg-gray-900 text-gray-100")},
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          h2(list{Attrs.class_("text-lg font-semibold text-cyan-300")}, list{text("Code Review")}),
-          // Filter input
-          input(
-            list{
-              Attrs.class_(
-                "bg-gray-800 border border-gray-700 rounded px-2 py-1 text-sm text-gray-300 w-48 placeholder-gray-600",
-              ),
-              Attrs.placeholder("Filter PRs..."),
-              Attrs.value(state.filter),
-              Events.onInput(value => CodeReview(SetCrFilter(value))),
-            },
-            list{},
-          ),
-        },
-      ),
-      // Error display
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_("px-4 py-2 bg-red-900/30 text-red-300 text-sm border-b border-red-800"),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      // Tab bar
-      renderTabs(state.activeTab),
-      // Content
-      div(list{Attrs.class_("flex-1 overflow-y-auto")}, list{content}),
-    },
-  )
-}
diff --git a/src/components/CompatibilityMatrix.affine b/src/components/CompatibilityMatrix.affine
new file mode 100644
index 00000000..4bf08b43
--- /dev/null
+++ b/src/components/CompatibilityMatrix.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CompatibilityMatrix;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/CompatibilityMatrix.res b/src/components/CompatibilityMatrix.res
deleted file mode 100644
index 08da4de8..00000000
--- a/src/components/CompatibilityMatrix.res
+++ /dev/null
@@ -1,439 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL CompatibilityMatrix — browser/device cross-testing matrix with
-/// pass/fail/untested cell colouring and failure detail drill-down.
-///
-/// Four tabs: Matrix (grid layout with coloured cells), Failures (detail view
-/// of failing cells), Screenshots (captured evidence), and Targets (browser
-/// and device configuration).
-
-open Model
-open Msg
-open Tea.Html
-
-// =========================================================================
-// Helpers
-// =========================================================================
-
-/// Tab label lookup for compatibilityTab variants.
-let tabLabel = (tab: compatibilityTab): string =>
-  switch tab {
-  | TabMatrix => "Matrix"
-  | TabFailures => "Failures"
-  | TabScreenshots => "Screenshots"
-  | TabTargets => "Targets"
-  }
-
-/// Render the tab bar.
-let renderTabs = (active: compatibilityTab): Tea_Vdom.t<msg> => {
-  let tabs: array<compatibilityTab> = [TabMatrix, TabFailures, TabScreenshots, TabTargets]
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 px-4")},
-    tabs
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-4 py-2 text-sm font-medium transition-colors rounded-t ${isActive
-                ? "bg-gray-800 text-cyan-400 border-b-2 border-cyan-400"
-                : "text-gray-500 hover:text-gray-300 hover:bg-gray-900 cursor-pointer"}`,
-          ),
-          Events.onClick(CompatibilityMatrix(SetCmTab(tab))),
-        },
-        list{text(tabLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Cell background colour based on compatibility result.
-let cellColour = (result: compatResult): string =>
-  switch result {
-  | CompatPassing => "bg-emerald-700"
-  | CompatFailing(_) => "bg-red-700"
-  | CompatWarning(_) => "bg-amber-700"
-  | CompatUntested => "bg-gray-700"
-  | CompatSkipped(_) => "bg-gray-600"
-  }
-
-/// Cell short label for the matrix grid.
-let cellLabel = (result: compatResult): string =>
-  switch result {
-  | CompatPassing => "OK"
-  | CompatFailing(_) => "FAIL"
-  | CompatWarning(_) => "WARN"
-  | CompatUntested => "--"
-  | CompatSkipped(_) => "SKIP"
-  }
-
-// =========================================================================
-// Tab content views
-// =========================================================================
-
-/// Matrix tab: grid of browsers (columns) x devices (rows) with coloured cells.
-let renderMatrixTab = (state: compatibilityMatrixState): Tea_Vdom.t<msg> => {
-  let browserCount = Array.length(state.browsers)
-  let deviceCount = Array.length(state.devices)
-  let passing =
-    state.cells
-    ->Array.filter(c =>
-      switch c.result {
-      | CompatPassing => true
-      | _ => false
-      }
-    )
-    ->Array.length
-  let failing =
-    state.cells
-    ->Array.filter(c =>
-      switch c.result {
-      | CompatFailing(_) => true
-      | _ => false
-      }
-    )
-    ->Array.length
-  let totalCells = Array.length(state.cells)
-
-  div(
-    list{Attrs.class_("flex flex-col gap-3 p-4")},
-    list{
-      // Summary
-      div(
-        list{Attrs.class_("flex gap-4 text-sm")},
-        list{
-          span(
-            list{Attrs.class_("text-gray-400")},
-            list{
-              text(
-                `${Int.toString(browserCount)} browser(s) x ${Int.toString(
-                    deviceCount,
-                  )} device(s) = ${Int.toString(totalCells)} cell(s)`,
-              ),
-            },
-          ),
-          span(list{Attrs.class_("text-emerald-400")}, list{text(`${Int.toString(passing)} pass`)}),
-          span(list{Attrs.class_("text-red-400")}, list{text(`${Int.toString(failing)} fail`)}),
-        },
-      ),
-      // Matrix header row (browser names)
-      div(
-        list{Attrs.class_("overflow-x-auto")},
-        list{
-          div(
-            list{Attrs.class_("inline-flex flex-col gap-1 min-w-max")},
-            list{
-              // Header row
-              div(
-                list{Attrs.class_("flex gap-1")},
-                list{
-                  // Empty corner cell
-                  div(list{Attrs.class_("w-28 h-8 flex-shrink-0")}, list{}),
-                  // Browser column headers
-                  fragment(
-                    state.browsers
-                    ->Array.map(browser => {
-                      div(
-                        list{
-                          Attrs.class_(
-                            "w-16 h-8 flex items-center justify-center text-xs text-gray-400 font-mono",
-                          ),
-                        },
-                        list{text(browser.name)},
-                      )
-                    })
-                    ->List.fromArray,
-                  ),
-                },
-              ),
-              // Device rows with cells
-              fragment(
-                state.devices
-                ->Array.map(device => {
-                  div(
-                    list{Attrs.class_("flex gap-1")},
-                    list{
-                      // Device label
-                      div(
-                        list{
-                          Attrs.class_(
-                            "w-28 h-8 flex items-center text-xs text-gray-400 font-mono flex-shrink-0 truncate",
-                          ),
-                        },
-                        list{text(device.name)},
-                      ),
-                      // Matrix cells for this device
-                      fragment(
-                        state.browsers
-                        ->Array.map(browser => {
-                          let cell =
-                            state.cells->Array.find(
-                              c => c.browser.name === browser.name && c.device.name === device.name,
-                            )
-                          let result = switch cell {
-                          | Some(c) => c.result
-                          | None => CompatUntested
-                          }
-                          div(
-                            list{
-                              Attrs.class_(
-                                `w-16 h-8 flex items-center justify-center rounded text-xs text-white font-mono cursor-pointer hover:opacity-80 ${cellColour(
-                                    result,
-                                  )}`,
-                              ),
-                              Events.onClick(
-                                CompatibilityMatrix(SelectCell(browser.name, device.name)),
-                              ),
-                            },
-                            list{text(cellLabel(result))},
-                          )
-                        })
-                        ->List.fromArray,
-                      ),
-                    },
-                  )
-                })
-                ->List.fromArray,
-              ),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Failures tab: detail view of failing cells with error messages.
-let renderFailuresTab = (state: compatibilityMatrixState): Tea_Vdom.t<msg> => {
-  let failures = state.cells->Array.filter(c =>
-    switch c.result {
-    | CompatFailing(_) => true
-    | _ => false
-    }
-  )
-  if Array.length(failures) === 0 {
-    div(
-      list{Attrs.class_("p-4 text-gray-500 text-sm italic")},
-      list{text("No failures detected. All tested cells are passing.")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("flex flex-col gap-2 p-4 max-h-96 overflow-y-auto")},
-      failures
-      ->Array.map(cell => {
-        let errMsg = switch cell.result {
-        | CompatFailing(msg) => msg
-        | _ => ""
-        }
-        div(
-          list{Attrs.class_("bg-gray-800 rounded p-3 border border-red-800")},
-          list{
-            div(
-              list{Attrs.class_("flex items-center justify-between mb-2")},
-              list{
-                span(
-                  list{Attrs.class_("text-sm font-medium text-gray-200")},
-                  list{text(`${cell.browser.name} / ${cell.device.name}`)},
-                ),
-                span(
-                  list{
-                    Attrs.class_("px-1.5 py-0.5 text-xs rounded bg-red-600 text-white font-mono"),
-                  },
-                  list{text("FAIL")},
-                ),
-              },
-            ),
-            div(
-              list{Attrs.class_("text-xs text-red-300 font-mono whitespace-pre-wrap")},
-              list{text(errMsg)},
-            ),
-            if cell.notes !== "" {
-              div(
-                list{Attrs.class_("text-xs text-gray-500 mt-2")},
-                list{text(`Notes: ${cell.notes}`)},
-              )
-            } else {
-              noNode
-            },
-          },
-        )
-      })
-      ->List.fromArray,
-    )
-  }
-}
-
-/// Screenshots tab: grid of captured evidence images.
-let renderScreenshotsTab = (state: compatibilityMatrixState): Tea_Vdom.t<msg> => {
-  let withScreenshots = state.cells->Array.filter(c => Option.isSome(c.screenshotPath))
-  if Array.length(withScreenshots) === 0 {
-    div(
-      list{Attrs.class_("p-4 text-gray-500 text-sm italic")},
-      list{text("No screenshots captured yet. Run tests to generate evidence.")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("grid grid-cols-3 gap-3 p-4 max-h-96 overflow-y-auto")},
-      withScreenshots
-      ->Array.map(cell => {
-        div(
-          list{Attrs.class_("bg-gray-800 rounded p-2 border border-gray-700")},
-          list{
-            div(
-              list{Attrs.class_("bg-gray-900 rounded h-24 flex items-center justify-center mb-2")},
-              list{span(list{Attrs.class_("text-gray-600 text-xs")}, list{text("[screenshot]")})},
-            ),
-            div(
-              list{Attrs.class_("text-xs text-gray-400 text-center")},
-              list{text(`${cell.browser.name} / ${cell.device.name}`)},
-            ),
-          },
-        )
-      })
-      ->List.fromArray,
-    )
-  }
-}
-
-/// Targets tab: browser and device configuration lists.
-let renderTargetsTab = (state: compatibilityMatrixState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-col gap-4 p-4")},
-    list{
-      // Browsers
-      div(
-        list{Attrs.class_("flex flex-col gap-2")},
-        list{
-          h3(
-            list{Attrs.class_("text-sm font-medium text-gray-300")},
-            list{text(`Browsers (${Int.toString(Array.length(state.browsers))})`)},
-          ),
-          div(
-            list{Attrs.class_("flex flex-col gap-1")},
-            state.browsers
-            ->Array.map(browser => {
-              div(
-                list{Attrs.class_("flex items-center gap-3 px-3 py-2 bg-gray-800 rounded text-xs")},
-                list{
-                  span(list{Attrs.class_("text-gray-300 font-medium")}, list{text(browser.name)}),
-                  span(list{Attrs.class_("text-gray-500")}, list{text(`v${browser.version}`)}),
-                  span(list{Attrs.class_("text-gray-600")}, list{text(browser.engine)}),
-                },
-              )
-            })
-            ->List.fromArray,
-          ),
-        },
-      ),
-      // Devices
-      div(
-        list{Attrs.class_("flex flex-col gap-2")},
-        list{
-          h3(
-            list{Attrs.class_("text-sm font-medium text-gray-300")},
-            list{text(`Devices (${Int.toString(Array.length(state.devices))})`)},
-          ),
-          div(
-            list{Attrs.class_("flex flex-col gap-1")},
-            state.devices
-            ->Array.map(device => {
-              let (w, h) = device.resolution
-              div(
-                list{Attrs.class_("flex items-center gap-3 px-3 py-2 bg-gray-800 rounded text-xs")},
-                list{
-                  span(list{Attrs.class_("text-gray-300 font-medium")}, list{text(device.name)}),
-                  span(list{Attrs.class_("text-gray-500")}, list{text(device.category)}),
-                  span(
-                    list{Attrs.class_("text-gray-600 font-mono")},
-                    list{
-                      text(
-                        `${Int.toString(w)}x${Int.toString(h)} @${Float.toFixed(
-                            device.pixelRatio,
-                            ~digits=0,
-                          )}x`,
-                      ),
-                    },
-                  ),
-                },
-              )
-            })
-            ->List.fromArray,
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// =========================================================================
-// Main view
-// =========================================================================
-
-/// Primary view function dispatching tab content based on active tab.
-let view = (state: compatibilityMatrixState): Tea_Vdom.t<msg> => {
-  let content = switch state.activeTab {
-  | TabMatrix => renderMatrixTab(state)
-  | TabFailures => renderFailuresTab(state)
-  | TabScreenshots => renderScreenshotsTab(state)
-  | TabTargets => renderTargetsTab(state)
-  }
-
-  div(
-    list{Attrs.class_("flex flex-col h-full bg-gray-900 text-gray-100")},
-    list{
-      // Header with Run All
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          h2(
-            list{Attrs.class_("text-lg font-semibold text-cyan-300")},
-            list{text("Compatibility Matrix")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-xs bg-emerald-700 text-white rounded hover:bg-emerald-600 cursor-pointer font-medium",
-              ),
-              Events.onClick(CompatibilityMatrix(RunAll)),
-              KeyboardNav.onActivate(CompatibilityMatrix(RunAll)),
-            },
-            list{text("Run All")},
-          ),
-        },
-      ),
-      // Running indicator
-      if state.running {
-        div(
-          list{
-            Attrs.class_("flex items-center gap-2 px-4 py-2 bg-gray-800 border-b border-gray-700"),
-          },
-          list{
-            div(list{Attrs.class_("w-3 h-3 bg-amber-400 rounded-full animate-pulse")}, list{}),
-            span(
-              list{Attrs.class_("text-sm text-amber-300")},
-              list{text("Running compatibility tests...")},
-            ),
-          },
-        )
-      } else {
-        noNode
-      },
-      // Error display
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_("px-4 py-2 bg-red-900/30 text-red-300 text-sm border-b border-red-800"),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      // Tab bar
-      renderTabs(state.activeTab),
-      // Content
-      div(list{Attrs.class_("flex-1 overflow-y-auto")}, list{content}),
-    },
-  )
-}
diff --git a/src/components/ContractileCompleteness.affine b/src/components/ContractileCompleteness.affine
new file mode 100644
index 00000000..9d1febae
--- /dev/null
+++ b/src/components/ContractileCompleteness.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ContractileCompleteness;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/ContractileCompleteness.res b/src/components/ContractileCompleteness.res
deleted file mode 100644
index 04edddb5..00000000
--- a/src/components/ContractileCompleteness.res
+++ /dev/null
@@ -1,266 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Contractile Completeness Component — Mustfile/Trustfile/Dustfile/K9 coverage.
-///
-/// Two-column layout: left sidebar with repo list, right content with
-/// detail view showing which contractile files are present or missing.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a presence indicator.
-let presenceIcon = (present: bool): Tea_Vdom.t<msg> => {
-  let (color, label) = if present {
-    ("text-green-400", "Y")
-  } else {
-    ("text-red-400", "N")
-  }
-  span(list{Attrs.class_("text-xs font-mono " ++ color)}, list{text(label)})
-}
-
-/// Render a repo row in the sidebar.
-let repoRow = (repo: repoContractileStatus, selected: bool): Tea_Vdom.t<msg> => {
-  let complete = repo.hasMustfile && repo.hasTrustfile && repo.hasDustfile && repo.hasK9
-  button(
-    list{
-      Attrs.class_(
-        "w-full text-left px-3 py-2 border-b border-gray-800 hover:bg-gray-800/60 transition-colors " ++ if (
-          selected
-        ) {
-          "bg-gray-800/80 border-l-2 border-l-blue-500"
-        } else {
-          ""
-        },
-      ),
-      Events.onClick(ContractileCompleteness(SelectRepo(repo.repoName))),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between")},
-        list{
-          span(list{Attrs.class_("text-sm text-gray-200 truncate")}, list{text(repo.repoName)}),
-          span(
-            list{
-              Attrs.class_(
-                if complete {
-                  "text-xs text-green-400"
-                } else {
-                  "text-xs text-amber-400"
-                },
-              ),
-            },
-            list{
-              text(
-                if complete {
-                  "Complete"
-                } else {
-                  "Incomplete"
-                },
-              ),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render a tab button.
-let tabBtn = (
-  current: contractileCompletenessTab,
-  target: contractileCompletenessTab,
-  label: string,
-): Tea_Vdom.t<msg> => {
-  let active = current == target
-  button(
-    list{
-      Attrs.class_(
-        "px-3 py-1 text-xs rounded " ++ if active {
-          "bg-blue-600 text-white"
-        } else {
-          "bg-gray-800 text-gray-400 hover:bg-gray-700"
-        },
-      ),
-      Events.onClick(ContractileCompleteness(SetTab(target))),
-      Attrs.role("tab"),
-      Attrs.ariaSelected(active),
-    },
-    list{text(label)},
-  )
-}
-
-/// Main view function for the Contractile Completeness panel.
-let view = (state: contractileCompletenessState): Tea_Vdom.t<msg> => {
-  let complete = ContractileCompletenessEngine.fullyCompleteCount(state.repos)
-  let total = Array.length(state.repos)
-
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Contractile Completeness — Mustfile/Trustfile/Dustfile/K9 Coverage"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-bold text-amber-300")},
-                list{text("Contractile Completeness")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{text(`${Int.toString(complete)}/${Int.toString(total)} complete`)},
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_("px-3 py-1 text-xs rounded bg-green-700 text-white hover:bg-green-600"),
-              Events.onClick(ContractileCompleteness(ScanRepos)),
-              KeyboardNav.onActivate(ContractileCompleteness(ScanRepos)),
-            },
-            list{
-              text(
-                if state.scanning {
-                  "Scanning..."
-                } else {
-                  "Scan"
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Tabs
-      div(
-        list{Attrs.class_("flex gap-1 px-4 py-2 border-b border-gray-800"), Attrs.role("tablist")},
-        ContractileCompletenessEngine.allTabs
-        ->Array.map(t => tabBtn(state.activeTab, t, ContractileCompletenessEngine.tabLabel(t)))
-        ->List.fromArray,
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 px-3 py-2 bg-red-900/50 border border-red-700 rounded text-sm text-red-200",
-            ),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      // Two-column layout
-      div(
-        list{Attrs.class_("flex flex-1 overflow-hidden")},
-        list{
-          // Left sidebar — repo list
-          div(
-            list{Attrs.class_("w-64 border-r border-gray-800 overflow-y-auto")},
-            state.repos
-            ->Array.map(r => repoRow(r, state.selectedRepo == Some(r.repoName)))
-            ->List.fromArray,
-          ),
-          // Right content — detail view
-          div(
-            list{Attrs.class_("flex-1 overflow-y-auto px-4 py-2")},
-            list{
-              switch state.selectedRepo {
-              | None =>
-                div(
-                  list{Attrs.class_("flex items-center justify-center h-full text-gray-600")},
-                  list{text("Select a repo to view contractile file details")},
-                )
-              | Some(name) =>
-                switch state.repos->Array.find(r => r.repoName == name) {
-                | None => div(list{}, list{text("Repo not found")})
-                | Some(repo) =>
-                  div(
-                    list{},
-                    list{
-                      h3(
-                        list{Attrs.class_("text-md font-semibold text-gray-200 mb-3")},
-                        list{text(repo.repoName)},
-                      ),
-                      div(
-                        list{Attrs.class_("space-y-2")},
-                        list{
-                          div(
-                            list{Attrs.class_("flex items-center gap-2")},
-                            list{
-                              span(
-                                list{Attrs.class_("text-xs text-gray-500 w-24")},
-                                list{text("Mustfile:")},
-                              ),
-                              presenceIcon(repo.hasMustfile),
-                            },
-                          ),
-                          div(
-                            list{Attrs.class_("flex items-center gap-2")},
-                            list{
-                              span(
-                                list{Attrs.class_("text-xs text-gray-500 w-24")},
-                                list{text("Trustfile:")},
-                              ),
-                              presenceIcon(repo.hasTrustfile),
-                            },
-                          ),
-                          div(
-                            list{Attrs.class_("flex items-center gap-2")},
-                            list{
-                              span(
-                                list{Attrs.class_("text-xs text-gray-500 w-24")},
-                                list{text("Dustfile:")},
-                              ),
-                              presenceIcon(repo.hasDustfile),
-                            },
-                          ),
-                          div(
-                            list{Attrs.class_("flex items-center gap-2")},
-                            list{
-                              span(
-                                list{Attrs.class_("text-xs text-gray-500 w-24")},
-                                list{text("K9:")},
-                              ),
-                              presenceIcon(repo.hasK9),
-                              if repo.hasK9 {
-                                span(
-                                  list{Attrs.class_("text-xs text-gray-500 ml-2")},
-                                  list{text(`(${Int.toString(repo.k9Count)} configs)`)},
-                                )
-                              } else {
-                                noNode
-                              },
-                            },
-                          ),
-                        },
-                      ),
-                    },
-                  )
-                }
-              },
-            },
-          ),
-        },
-      ),
-      // Footer
-      div(
-        list{Attrs.class_("px-4 py-2 border-t border-gray-800 text-xs text-gray-500")},
-        list{
-          text(
-            `${Int.toString(
-                ContractileCompletenessEngine.incompleteCount(state.repos),
-              )} repos incomplete`,
-          ),
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/ContractileManager.affine b/src/components/ContractileManager.affine
new file mode 100644
index 00000000..c8cdca0f
--- /dev/null
+++ b/src/components/ContractileManager.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ContractileManager;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/ContractileManager.res b/src/components/ContractileManager.res
deleted file mode 100644
index a692c087..00000000
--- a/src/components/ContractileManager.res
+++ /dev/null
@@ -1,220 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath)
-
-/// PanLL Contractile Manager Component — cognitive governance dashboard.
-///
-/// Displays all 11 built-in contractiles from the Cognitive Governance Stack
-/// (DD-007) with colour-coded status badges, elasticity levels, and the
-/// current vexation index. Contractiles are the elastic, adaptive state-shapes
-/// between the Operator and the Machine.
-///
-/// Status colours: green=Satisfied, red=Violated, yellow=Pending, grey=Suspended.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a contractile status badge with colour coding.
-let statusBadge = (status: contractStatus): Tea_Vdom.t<msg> => {
-  let (color, label) = switch status {
-  | Satisfied => ("bg-green-700 text-green-100", "Satisfied")
-  | Violated(_) => ("bg-red-700 text-red-100", "Violated")
-  | Pending => ("bg-yellow-700 text-yellow-100", "Pending")
-  | Suspended => ("bg-gray-700 text-gray-300", "Suspended")
-  }
-  span(
-    list{
-      Attrs.class_("px-2 py-0.5 text-xs rounded font-mono " ++ color),
-      Attrs.ariaLabel("Status: " ++ label),
-    },
-    list{text(label)},
-  )
-}
-
-/// Render an enforcement level indicator.
-let enforcementLabel = (level: enforcementLevel): Tea_Vdom.t<msg> => {
-  let (color, label) = switch level {
-  | Strict => ("text-red-400", "Strict")
-  | Adaptive => ("text-amber-400", "Adaptive")
-  | Warn => ("text-blue-400", "Warn")
-  }
-  span(list{Attrs.class_("text-xs font-mono " ++ color)}, list{text(label)})
-}
-
-/// Render an elasticity bar — visual indicator of how flexible the contractile is.
-/// 0.0 = rigid (no give), 1.0 = fully elastic (maximum flexibility).
-let elasticityBar = (elasticity: float): Tea_Vdom.t<msg> => {
-  let pct = Float.toFixed(elasticity *. 100.0, ~digits=0)
-  let barColor = if elasticity == 0.0 {
-    "bg-red-500"
-  } else if elasticity < 0.3 {
-    "bg-amber-500"
-  } else {
-    "bg-green-500"
-  }
-  div(
-    list{Attrs.class_("flex items-center gap-2"), Attrs.ariaLabel("Elasticity: " ++ pct ++ "%")},
-    list{
-      div(
-        list{Attrs.class_("w-16 h-2 bg-gray-800 rounded-full overflow-hidden")},
-        list{
-          div(
-            list{
-              Attrs.class_("h-full rounded-full transition-all " ++ barColor),
-              Attrs.prop("style", "width: " ++ pct ++ "%"),
-            },
-            list{},
-          ),
-        },
-      ),
-      span(list{Attrs.class_("text-xs text-gray-500 w-8")}, list{text(pct ++ "%")}),
-    },
-  )
-}
-
-/// Render a single contractile row.
-let renderContractile = (c: contractile): Tea_Vdom.t<msg> => {
-  let violationDetail = switch c.status {
-  | Violated(reason) =>
-    div(
-      list{Attrs.class_("text-xs text-red-300 mt-1 pl-2 border-l-2 border-red-800")},
-      list{text(reason)},
-    )
-  | _ => Tea_Html.noNode
-  }
-
-  div(
-    list{
-      Attrs.class_("px-3 py-2 bg-gray-900 border border-gray-800 rounded"),
-      Attrs.role("listitem"),
-      Attrs.ariaLabel(c.name ++ " contractile"),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex items-center gap-3")},
-        list{
-          statusBadge(c.status),
-          div(
-            list{Attrs.class_("flex-1")},
-            list{
-              div(list{Attrs.class_("text-sm font-medium text-gray-200")}, list{text(c.name)}),
-              div(list{Attrs.class_("text-xs text-gray-500 mt-0.5")}, list{text(c.description)}),
-            },
-          ),
-          enforcementLabel(c.enforcement),
-          elasticityBar(c.elasticity),
-        },
-      ),
-      violationDetail,
-    },
-  )
-}
-
-/// Render the vexation index indicator — shows current operator friction level.
-let vexationIndicator = (vexometer: vexometerState): Tea_Vdom.t<msg> => {
-  let pct = Float.toFixed(vexometer.index *. 100.0, ~digits=0)
-  let color = if vexometer.index > 0.7 {
-    "text-red-400"
-  } else if vexometer.index > 0.4 {
-    "text-amber-400"
-  } else {
-    "text-green-400"
-  }
-  div(
-    list{
-      Attrs.class_("flex items-center gap-3 px-4 py-2 bg-gray-900 border border-gray-800 rounded"),
-      Attrs.role("status"),
-      Attrs.ariaLabel("Vexation index: " ++ pct ++ "%"),
-    },
-    list{
-      span(list{Attrs.class_("text-sm text-gray-400")}, list{text("Vexation Index")}),
-      span(list{Attrs.class_("text-lg font-bold font-mono " ++ color)}, list{text(pct ++ "%")}),
-      div(
-        list{Attrs.class_("flex-1 h-2 bg-gray-800 rounded-full overflow-hidden")},
-        list{
-          div(
-            list{
-              Attrs.class_(
-                "h-full rounded-full transition-all " ++ if vexometer.index > 0.7 {
-                  "bg-red-500"
-                } else if vexometer.index > 0.4 {
-                  "bg-amber-500"
-                } else {
-                  "bg-green-500"
-                },
-              ),
-              Attrs.prop("style", "width: " ++ pct ++ "%"),
-            },
-            list{},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Main view function for the Contractile Manager panel.
-let view = (contractiles: array<contractile>, vexometer: vexometerState): Tea_Vdom.t<msg> => {
-  let totalCount = Array.length(contractiles)
-  let satisfiedCount = contractiles->Array.filter(c => c.status == Satisfied)->Array.length
-  let violatedCount =
-    contractiles
-    ->Array.filter(c =>
-      switch c.status {
-      | Violated(_) => true
-      | _ => false
-      }
-    )
-    ->Array.length
-
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Contractile Manager — Cognitive Governance Dashboard"),
-    },
-    list{
-      // Header row
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-bold text-purple-300")},
-                list{text("Contractile Manager")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-400")},
-                list{
-                  text(
-                    Int.toString(satisfiedCount) ++
-                    "/" ++
-                    Int.toString(totalCount) ++
-                    " satisfied" ++ if violatedCount > 0 {
-                      ", " ++ Int.toString(violatedCount) ++ " violated"
-                    } else {
-                      ""
-                    },
-                  ),
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Vexation indicator
-      div(list{Attrs.class_("px-4 pt-3")}, list{vexationIndicator(vexometer)}),
-      // Contractile list
-      div(
-        list{
-          Attrs.class_("flex-1 overflow-y-auto px-4 py-3 space-y-2"),
-          Attrs.role("list"),
-          Attrs.ariaLabel("Contractile governance stack"),
-        },
-        contractiles->Array.map(c => renderContractile(c))->List.fromArray,
-      ),
-    },
-  )
-}
diff --git a/src/components/Coprocessors.affine b/src/components/Coprocessors.affine
new file mode 100644
index 00000000..25487e60
--- /dev/null
+++ b/src/components/Coprocessors.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Coprocessors;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Coprocessors.res b/src/components/Coprocessors.res
deleted file mode 100644
index 65a183ef..00000000
--- a/src/components/Coprocessors.res
+++ /dev/null
@@ -1,1006 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Coprocessors Component — view for monitoring IDApTIK's
-/// coprocessor backends. Dashboard, call log, heatmap, and settings.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a category tab button.
-let renderTab = (
-  label: string,
-  cat: coprocessorsCategory,
-  active: coprocessorsCategory,
-): Tea_Vdom.t<msg> => {
-  let isActive = cat === active
-  let cls = isActive
-    ? "px-3 py-1.5 text-xs font-medium bg-gray-700 text-white rounded"
-    : "px-3 py-1.5 text-xs text-gray-400 hover:text-gray-200 hover:bg-gray-800 rounded cursor-pointer"
-  button(
-    list{Attrs.class_(cls), Events.onClick(Coprocessors(SetCoprocCategory(cat)))},
-    list{text(label)},
-  )
-}
-
-/// Render a single backend metrics card.
-let renderMetricsCard = (metrics: coprocMetrics): Tea_Vdom.t<msg> => {
-  let colourCls = CoprocessorsEngine.backendColour(metrics.backend)
-  let healthCls = CoprocessorsEngine.healthColour(metrics.health)
-  div(
-    list{Attrs.class_("p-3 bg-gray-800 rounded border border-gray-700")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-2")},
-        list{
-          span(
-            list{Attrs.class_(`text-sm font-medium ${colourCls}`)},
-            list{text(CoprocessorsEngine.backendLabel(metrics.backend))},
-          ),
-          span(
-            list{Attrs.class_(`text-xs ${healthCls}`)},
-            list{text(CoprocessorsEngine.healthLabel(metrics.health))},
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("grid grid-cols-2 gap-2 text-xs")},
-        list{
-          div(
-            list{},
-            list{
-              div(list{Attrs.class_("text-gray-500")}, list{text("Total Calls")}),
-              div(
-                list{Attrs.class_("text-gray-200 font-mono")},
-                list{text(Int.toString(metrics.totalCalls))},
-              ),
-            },
-          ),
-          div(
-            list{},
-            list{
-              div(list{Attrs.class_("text-gray-500")}, list{text("Avg Duration")}),
-              div(
-                list{Attrs.class_("text-gray-200 font-mono")},
-                list{text(`${Float.toString(metrics.avgDurationMs)}ms`)},
-              ),
-            },
-          ),
-          div(
-            list{},
-            list{
-              div(list{Attrs.class_("text-gray-500")}, list{text("Max Duration")}),
-              div(
-                list{Attrs.class_("text-gray-200 font-mono")},
-                list{text(`${Float.toString(metrics.maxDurationMs)}ms`)},
-              ),
-            },
-          ),
-          div(
-            list{},
-            list{
-              div(list{Attrs.class_("text-gray-500")}, list{text("Error Rate")}),
-              div(
-                list{
-                  Attrs.class_(
-                    if metrics.errorRate > 0.1 {
-                      "text-red-400 font-mono"
-                    } else {
-                      "text-gray-200 font-mono"
-                    },
-                  ),
-                },
-                list{text(`${Float.toString(metrics.errorRate *. 100.0)}%`)},
-              ),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render a discovered compute device card.
-let renderDeviceCard = (device: computeDevice): Tea_Vdom.t<msg> => {
-  let engineLabel = CoprocessorsEngine.engineLabel(device.engineId)
-  let statusCls = if device.available {
-    "text-emerald-400"
-  } else {
-    "text-gray-500"
-  }
-  div(
-    list{Attrs.class_("p-3 bg-gray-800 rounded border border-gray-700")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-1")},
-        list{
-          span(
-            list{Attrs.class_("text-sm font-medium text-gray-200")},
-            list{text(device.deviceName)},
-          ),
-          span(
-            list{Attrs.class_(`text-xs ${statusCls}`)},
-            list{
-              text(
-                if device.available {
-                  "Online"
-                } else {
-                  "Offline"
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("text-xs text-gray-500")},
-        list{text(`${engineLabel} / ${device.deviceType}`)},
-      ),
-    },
-  )
-}
-
-/// Render the last compute result.
-let renderComputeResult = (result: computeQueryResult): Tea_Vdom.t<msg> => {
-  let engineLabel = CoprocessorsEngine.engineLabel(result.engineId)
-  let borderCls = if result.success {
-    "border-emerald-700"
-  } else {
-    "border-red-700"
-  }
-  div(
-    list{Attrs.class_(`p-3 bg-gray-800 rounded border ${borderCls}`)},
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-2")},
-        list{
-          span(
-            list{Attrs.class_("text-sm font-medium text-gray-200")},
-            list{text(`${engineLabel}: ${result.operation}`)},
-          ),
-          span(
-            list{Attrs.class_("text-xs text-gray-400 font-mono")},
-            list{text(`${Float.toString(result.durationMs)}ms`)},
-          ),
-        },
-      ),
-      div(
-        list{
-          Attrs.class_(
-            "text-xs text-gray-400 font-mono whitespace-pre-wrap max-h-32 overflow-y-auto",
-          ),
-        },
-        list{text(result.result)},
-      ),
-    },
-  )
-}
-
-/// Render the Phase 2 FFI status indicator.
-let renderFfiStatus = (localDispatch: localDispatchState): Tea_Vdom.t<msg> => {
-  let statusColour = if localDispatch.ffiLoaded {
-    "text-emerald-400"
-  } else {
-    "text-gray-500"
-  }
-  let statusText = if localDispatch.ffiLoaded {
-    "Loaded"
-  } else {
-    "Not Loaded"
-  }
-  let dotColour = if localDispatch.ffiLoaded {
-    "bg-emerald-400"
-  } else {
-    "bg-gray-600"
-  }
-  div(
-    list{Attrs.class_("p-3 bg-gray-800 rounded border border-gray-700 space-y-2")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              div(list{Attrs.class_(`w-2 h-2 rounded-full ${dotColour}`)}, list{}),
-              span(list{Attrs.class_("text-sm font-medium text-gray-200")}, list{text("Zig FFI")}),
-            },
-          ),
-          span(list{Attrs.class_(`text-xs font-mono ${statusColour}`)}, list{text(statusText)}),
-        },
-      ),
-      div(
-        list{Attrs.class_("grid grid-cols-2 gap-2 text-xs")},
-        list{
-          div(
-            list{},
-            list{
-              div(list{Attrs.class_("text-gray-500")}, list{text("CPU Cores")}),
-              div(
-                list{Attrs.class_("text-gray-200 font-mono")},
-                list{text(Int.toString(localDispatch.cpuCores))},
-              ),
-            },
-          ),
-          div(
-            list{},
-            list{
-              div(list{Attrs.class_("text-gray-500")}, list{text("CPU Load")}),
-              div(
-                list{Attrs.class_("text-gray-200 font-mono")},
-                list{text(`${Float.toFixed(localDispatch.cpuUtilisation *. 100.0, ~digits=1)}%`)},
-              ),
-            },
-          ),
-          div(
-            list{},
-            list{
-              div(list{Attrs.class_("text-gray-500")}, list{text("GPU Memory")}),
-              div(
-                list{Attrs.class_("text-gray-200 font-mono")},
-                list{
-                  text(
-                    if localDispatch.gpuMemoryMb > 0 {
-                      `${Int.toString(localDispatch.gpuMemoryMb)} MB`
-                    } else {
-                      "N/A"
-                    },
-                  ),
-                },
-              ),
-            },
-          ),
-          div(
-            list{},
-            list{
-              div(list{Attrs.class_("text-gray-500")}, list{text("FFI Backends")}),
-              div(
-                list{Attrs.class_("text-gray-200 font-mono")},
-                list{
-                  text(
-                    if Array.length(localDispatch.availableBackends) > 0 {
-                      Int.toString(Array.length(localDispatch.availableBackends))
-                    } else {
-                      "0"
-                    },
-                  ),
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Show library path when loaded.
-      switch localDispatch.ffiLibPath {
-      | Some(path) =>
-        div(list{Attrs.class_("text-xs text-gray-600 font-mono truncate")}, list{text(path)})
-      | None => noNode
-      },
-    },
-  )
-}
-
-/// Render the dashboard view.
-let renderDashboard = (state: coprocessorsState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-4")},
-    list{
-      // Phase 2: FFI status indicator
-      div(
-        list{Attrs.class_("space-y-2")},
-        list{
-          div(
-            list{Attrs.class_("text-xs text-gray-400 font-medium")},
-            list{text("LOCAL DISPATCH (PHASE 2)")},
-          ),
-          renderFfiStatus(state.localDispatch),
-        },
-      ),
-      // Control plane: discovered devices
-      div(
-        list{Attrs.class_("space-y-2")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center justify-between")},
-            list{
-              span(
-                list{Attrs.class_("text-xs text-gray-400 font-medium")},
-                list{text("COMPUTE ENGINES")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-2 py-1 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer",
-                  ),
-                  Events.onClick(Coprocessors(DiscoverDevices)),
-                  KeyboardNav.onActivate(Coprocessors(DiscoverDevices)),
-                },
-                list{text("Discover")},
-              ),
-            },
-          ),
-          if Array.length(state.discoveredDevices) === 0 {
-            div(
-              list{Attrs.class_("text-center text-gray-500 text-xs py-4")},
-              list{
-                text("No compute engines discovered. Click Discover to probe Axiom.jl and BoJ."),
-              },
-            )
-          } else {
-            div(
-              list{Attrs.class_("grid grid-cols-2 lg:grid-cols-3 gap-2")},
-              state.discoveredDevices->Array.map(d => renderDeviceCard(d))->List.fromArray,
-            )
-          },
-        },
-      ),
-      // Last compute result
-      switch state.lastComputeResult {
-      | Some(result) =>
-        div(
-          list{Attrs.class_("space-y-2")},
-          list{
-            div(
-              list{Attrs.class_("text-xs text-gray-400 font-medium")},
-              list{text("LAST COMPUTE RESULT")},
-            ),
-            renderComputeResult(result),
-          },
-        )
-      | None => noNode
-      },
-      // Data plane: backend metrics (existing)
-      div(
-        list{Attrs.class_("space-y-2")},
-        list{
-          div(
-            list{Attrs.class_("text-xs text-gray-400 font-medium")},
-            list{text("BACKEND METRICS")},
-          ),
-          if Array.length(state.metrics) === 0 {
-            div(
-              list{Attrs.class_("text-center text-gray-500 text-xs py-4")},
-              list{
-                text("No backend metrics available"),
-                button(
-                  list{
-                    Attrs.class_(
-                      "ml-2 px-2 py-1 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer",
-                    ),
-                    Events.onClick(Coprocessors(RefreshMetrics)),
-                    KeyboardNav.onActivate(Coprocessors(RefreshMetrics)),
-                  },
-                  list{text("Refresh")},
-                ),
-              },
-            )
-          } else {
-            div(
-              list{Attrs.class_("grid grid-cols-2 lg:grid-cols-3 xl:grid-cols-5 gap-3")},
-              state.metrics->Array.map(m => renderMetricsCard(m))->List.fromArray,
-            )
-          },
-        },
-      ),
-    },
-  )
-}
-
-/// Render the call log view.
-let renderCallLog = (state: coprocessorsState): Tea_Vdom.t<msg> => {
-  let entries = switch state.selectedBackend {
-  | Some(backend) => CoprocessorsEngine.filterByBackend(state.callLog, backend)
-  | None => state.callLog
-  }
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      // Backend filter chips
-      div(
-        list{Attrs.class_("flex items-center gap-1 flex-wrap")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                if state.selectedBackend === None {
-                  "px-2 py-1 text-xs bg-gray-600 text-white rounded"
-                } else {
-                  "px-2 py-1 text-xs bg-gray-700 text-gray-400 rounded cursor-pointer"
-                },
-              ),
-              Events.onClick(Coprocessors(SelectBackendFilter(None))),
-            },
-            list{text("All")},
-          ),
-          ...CoprocessorsEngine.allBackends
-          ->Array.map(backend => {
-            let isActive = state.selectedBackend === Some(backend)
-            let colourCls = CoprocessorsEngine.backendColour(backend)
-            button(
-              list{
-                Attrs.class_(
-                  if isActive {
-                    `px-2 py-1 text-xs bg-gray-600 ${colourCls} rounded`
-                  } else {
-                    "px-2 py-1 text-xs bg-gray-800 text-gray-500 rounded cursor-pointer hover:text-gray-300"
-                  },
-                ),
-                Events.onClick(Coprocessors(SelectBackendFilter(Some(backend)))),
-              },
-              list{text(CoprocessorsEngine.backendShortLabel(backend))},
-            )
-          })
-          ->List.fromArray,
-        },
-      ),
-      // Log entries
-      if Array.length(entries) === 0 {
-        div(
-          list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-          list{text("No call log entries")},
-        )
-      } else {
-        div(
-          list{Attrs.class_("space-y-1 max-h-96 overflow-y-auto")},
-          entries
-          ->Array.map(entry => {
-            let colourCls = CoprocessorsEngine.backendColour(entry.backend)
-            div(
-              list{
-                Attrs.class_(
-                  `flex items-center gap-3 p-2 rounded text-xs ${if entry.success {
-                      "bg-gray-800"
-                    } else {
-                      "bg-red-900/20"
-                    }}`,
-                ),
-              },
-              list{
-                span(
-                  list{Attrs.class_(`w-8 font-mono ${colourCls}`)},
-                  list{text(CoprocessorsEngine.backendShortLabel(entry.backend))},
-                ),
-                span(
-                  list{Attrs.class_("text-gray-200 w-32 truncate")},
-                  list{text(entry.operation)},
-                ),
-                span(
-                  list{Attrs.class_("text-gray-500 w-24 truncate")},
-                  list{text(entry.inputSummary)},
-                ),
-                span(
-                  list{Attrs.class_("text-gray-400 font-mono")},
-                  list{text(`${Float.toString(entry.durationMs)}ms`)},
-                ),
-                if entry.success {
-                  span(list{Attrs.class_("text-emerald-400")}, list{text("OK")})
-                } else {
-                  span(list{Attrs.class_("text-red-400")}, list{text("ERR")})
-                },
-              },
-            )
-          })
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render the heatmap view.
-let renderHeatmap = (state: coprocessorsState): Tea_Vdom.t<msg> => {
-  if Array.length(state.heatmap) === 0 {
-    div(
-      list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-      list{text("No heatmap data — coprocessor call frequency will appear here during gameplay")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("space-y-2")},
-      CoprocessorsEngine.allBackends
-      ->Array.map(backend => {
-        let cells = state.heatmap->Array.filter(c => c.backend === backend)
-        let colourCls = CoprocessorsEngine.backendColour(backend)
-        div(
-          list{Attrs.class_("flex items-center gap-2")},
-          list{
-            span(
-              list{Attrs.class_(`w-8 text-xs font-mono ${colourCls}`)},
-              list{text(CoprocessorsEngine.backendShortLabel(backend))},
-            ),
-            div(
-              list{Attrs.class_("flex gap-px flex-1")},
-              cells
-              ->Array.map(cell => {
-                let intensity = if cell.callCount === 0 {
-                  "bg-gray-800"
-                } else if cell.callCount < 5 {
-                  "bg-emerald-900"
-                } else if cell.callCount < 20 {
-                  "bg-emerald-700"
-                } else if cell.callCount < 50 {
-                  "bg-amber-700"
-                } else {
-                  "bg-red-700"
-                }
-                div(
-                  list{
-                    Attrs.class_(`w-4 h-6 rounded-sm ${intensity}`),
-                    Attrs.title(
-                      `Slot ${Int.toString(cell.timeSlot)}: ${Int.toString(cell.callCount)} calls`,
-                    ),
-                  },
-                  list{},
-                )
-              })
-              ->List.fromArray,
-            ),
-          },
-        )
-      })
-      ->List.fromArray,
-    )
-  }
-}
-
-/// Render a single routing decision row in the audit log.
-let renderRoutingRow = (decision: routingDecision): Tea_Vdom.t<msg> => {
-  let routeColour = CoprocessorsEngine.routingColour(decision.chosenRoute)
-  let routeLabel = CoprocessorsEngine.routingLabel(decision.chosenRoute)
-  let category = SmartRouter.classifyOperation(decision.operation)
-  let catColour = SmartRouter.categoryColour(category)
-  div(
-    list{Attrs.class_("flex items-center gap-3 p-2 bg-gray-800 rounded text-xs")},
-    list{
-      span(
-        list{Attrs.class_(`w-20 font-mono ${catColour}`)},
-        list{text(SmartRouter.categoryLabel(category))},
-      ),
-      span(list{Attrs.class_("text-gray-200 w-36 truncate")}, list{text(decision.operation)}),
-      span(list{Attrs.class_(`font-medium ${routeColour}`)}, list{text(routeLabel)}),
-      span(
-        list{Attrs.class_("text-gray-500 font-mono ml-auto")},
-        list{text(`${Float.toFixed(decision.latencyEstimateMs, ~digits=1)}ms`)},
-      ),
-    },
-  )
-}
-
-/// Render the routing strategy selector buttons.
-let renderStrategySelector = (activeStrategy: routingStrategy): Tea_Vdom.t<msg> => {
-  let strategies: array<routingStrategy> = [RouteAutomatic, RouteLocal, RouteRemote, RouteBoj]
-  div(
-    list{Attrs.class_("flex items-center gap-1")},
-    strategies
-    ->Array.map(s => {
-      let isActive = s === activeStrategy
-      let colour = CoprocessorsEngine.routingColour(s)
-      let label = CoprocessorsEngine.routingLabel(s)
-      button(
-        list{
-          Attrs.class_(
-            if isActive {
-              `px-3 py-1 text-xs font-medium ${colour} bg-gray-700 rounded border border-gray-600`
-            } else {
-              "px-3 py-1 text-xs text-gray-400 bg-gray-800 rounded border border-gray-700 hover:text-gray-200 cursor-pointer"
-            },
-          ),
-          Events.onClick(Coprocessors(SetRoutingStrategy(s))),
-        },
-        list{text(label)},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Render the route distribution bar chart.
-let renderRouteDistribution = (stats: array<(string, int, float)>): Tea_Vdom.t<msg> => {
-  let total = stats->Array.reduce(0, (acc, (_, count, _)) => acc + count)
-  div(
-    list{Attrs.class_("space-y-2")},
-    stats
-    ->Array.map(((label, count, avgLatency)) => {
-      let pct = if total > 0 {
-        Float.fromInt(count) /. Float.fromInt(total) *. 100.0
-      } else {
-        0.0
-      }
-      let widthPct = if total > 0 {
-        Float.toFixed(pct, ~digits=0)
-      } else {
-        "0"
-      }
-      div(
-        list{Attrs.class_("space-y-0.5")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center justify-between text-xs")},
-            list{
-              span(list{Attrs.class_("text-gray-300")}, list{text(label)}),
-              span(
-                list{Attrs.class_("text-gray-500 font-mono")},
-                list{
-                  text(
-                    `${Int.toString(count)} (${Float.toFixed(pct, ~digits=1)}%) avg ${Float.toFixed(
-                        avgLatency,
-                        ~digits=1,
-                      )}ms`,
-                  ),
-                },
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("w-full bg-gray-800 rounded-full h-1.5")},
-            list{
-              div(
-                list{
-                  Attrs.class_("bg-cyan-500 h-1.5 rounded-full"),
-                  Attrs.style("width", `${widthPct}%`),
-                },
-                list{},
-              ),
-            },
-          ),
-        },
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Render the backend health indicators.
-let renderBackendHealthRow = (health: SmartRouter.backendHealth): Tea_Vdom.t<msg> => {
-  let dotColour = if health.available {
-    "bg-emerald-400"
-  } else {
-    "bg-gray-600"
-  }
-  let statusText = if health.available {
-    "Online"
-  } else {
-    "Offline"
-  }
-  let statusColour = if health.available {
-    "text-emerald-400"
-  } else {
-    "text-gray-500"
-  }
-  div(
-    list{Attrs.class_("flex items-center justify-between p-2 bg-gray-800 rounded")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          div(list{Attrs.class_(`w-2 h-2 rounded-full ${dotColour}`)}, list{}),
-          span(list{Attrs.class_("text-sm text-gray-200")}, list{text(health.name)}),
-        },
-      ),
-      div(
-        list{Attrs.class_("flex items-center gap-4 text-xs")},
-        list{
-          span(
-            list{Attrs.class_("text-gray-500 font-mono")},
-            list{text(`${Float.toFixed(health.avgLatencyMs, ~digits=1)}ms`)},
-          ),
-          span(list{Attrs.class_(statusColour)}, list{text(statusText)}),
-        },
-      ),
-    },
-  )
-}
-
-/// Render the Phase 3 routing tab.
-let renderRouting = (state: coprocessorsState): Tea_Vdom.t<msg> => {
-  let backends = SmartRouter.buildBackendHealth(state)
-  let stats = CoprocessorsEngine.currentRouteStats(state)
-  let catStats = CoprocessorsEngine.currentCategoryStats(state)
-  let recentDecisions =
-    state.routingHistory
-    ->Array.toReversed
-    ->Array.slice(~start=0, ~end=50)
-
-  div(
-    list{Attrs.class_("space-y-4")},
-    list{
-      // Strategy selector
-      div(
-        list{Attrs.class_("space-y-2")},
-        list{
-          div(
-            list{Attrs.class_("text-xs text-gray-400 font-medium")},
-            list{text("ROUTING STRATEGY")},
-          ),
-          renderStrategySelector(state.routingStrategy),
-        },
-      ),
-      // Backend health
-      div(
-        list{Attrs.class_("space-y-2")},
-        list{
-          div(
-            list{Attrs.class_("text-xs text-gray-400 font-medium")},
-            list{text("BACKEND HEALTH")},
-          ),
-          div(
-            list{Attrs.class_("space-y-1")},
-            backends->Array.map(b => renderBackendHealthRow(b))->List.fromArray,
-          ),
-        },
-      ),
-      // Route distribution
-      div(
-        list{Attrs.class_("space-y-2")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center justify-between")},
-            list{
-              span(
-                list{Attrs.class_("text-xs text-gray-400 font-medium")},
-                list{text("ROUTE DISTRIBUTION")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-600")},
-                list{text(`${Int.toString(Array.length(state.routingHistory))} decisions`)},
-              ),
-            },
-          ),
-          if Array.length(state.routingHistory) === 0 {
-            div(
-              list{Attrs.class_("text-center text-gray-500 text-xs py-3")},
-              list{text("No routing decisions yet. Use Smart Dispatch to route operations.")},
-            )
-          } else {
-            renderRouteDistribution(stats)
-          },
-        },
-      ),
-      // Category distribution
-      if Array.length(catStats) > 0 {
-        div(
-          list{Attrs.class_("space-y-2")},
-          list{
-            div(
-              list{Attrs.class_("text-xs text-gray-400 font-medium")},
-              list{text("OPERATION CATEGORIES")},
-            ),
-            div(
-              list{Attrs.class_("flex items-center gap-2 flex-wrap")},
-              catStats
-              ->Array.map(((label, count)) => {
-                div(
-                  list{Attrs.class_("px-2 py-1 bg-gray-800 rounded text-xs")},
-                  list{
-                    span(list{Attrs.class_("text-gray-300")}, list{text(label)}),
-                    span(
-                      list{Attrs.class_("text-gray-500 ml-1 font-mono")},
-                      list{text(Int.toString(count))},
-                    ),
-                  },
-                )
-              })
-              ->List.fromArray,
-            ),
-          },
-        )
-      } else {
-        noNode
-      },
-      // Recent routing decisions (audit trail)
-      div(
-        list{Attrs.class_("space-y-2")},
-        list{
-          div(
-            list{Attrs.class_("text-xs text-gray-400 font-medium")},
-            list{text("RECENT DECISIONS")},
-          ),
-          if Array.length(recentDecisions) === 0 {
-            div(
-              list{Attrs.class_("text-center text-gray-500 text-xs py-4")},
-              list{text("No routing decisions recorded")},
-            )
-          } else {
-            div(
-              list{Attrs.class_("space-y-1 max-h-72 overflow-y-auto")},
-              recentDecisions->Array.map(d => renderRoutingRow(d))->List.fromArray,
-            )
-          },
-        },
-      ),
-    },
-  )
-}
-
-/// Render the settings view.
-let renderSettings = (state: coprocessorsState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      // Auto-refresh toggle
-      div(
-        list{Attrs.class_("flex items-center justify-between p-3 bg-gray-800 rounded")},
-        list{
-          div(
-            list{},
-            list{
-              div(list{Attrs.class_("text-sm text-gray-200")}, list{text("Auto-Refresh")}),
-              div(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{text(`Every ${Int.toString(state.refreshIntervalMs)}ms`)},
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_(
-                if state.autoRefresh {
-                  "px-3 py-1 text-xs bg-emerald-700 text-white rounded"
-                } else {
-                  "px-3 py-1 text-xs bg-gray-700 text-gray-300 rounded cursor-pointer"
-                },
-              ),
-              Events.onClick(Coprocessors(ToggleAutoRefresh)),
-              KeyboardNav.onActivate(Coprocessors(ToggleAutoRefresh)),
-            },
-            list{
-              text(
-                if state.autoRefresh {
-                  "Enabled"
-                } else {
-                  "Disabled"
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Backend toggles
-      div(
-        list{Attrs.class_("space-y-1")},
-        list{
-          div(list{Attrs.class_("text-xs text-gray-400 mb-1")}, list{text("Backend Toggles")}),
-          ...CoprocessorsEngine.allBackends
-          ->Array.map(backend => {
-            let isEnabled = state.enabledBackends->Array.includes(backend)
-            let colourCls = CoprocessorsEngine.backendColour(backend)
-            div(
-              list{Attrs.class_("flex items-center justify-between p-2 bg-gray-800/50 rounded")},
-              list{
-                span(
-                  list{Attrs.class_(`text-sm ${colourCls}`)},
-                  list{text(CoprocessorsEngine.backendLabel(backend))},
-                ),
-                button(
-                  list{
-                    Attrs.class_(
-                      if isEnabled {
-                        "px-2 py-0.5 text-xs bg-emerald-700 text-white rounded"
-                      } else {
-                        "px-2 py-0.5 text-xs bg-gray-700 text-gray-400 rounded cursor-pointer"
-                      },
-                    ),
-                    Events.onClick(Coprocessors(ToggleCoprocBackend(backend))),
-                  },
-                  list{
-                    text(
-                      if isEnabled {
-                        "On"
-                      } else {
-                        "Off"
-                      },
-                    ),
-                  },
-                ),
-              },
-            )
-          })
-          ->List.fromArray,
-        },
-      ),
-    },
-  )
-}
-
-/// Main view function.
-let view = (state: coprocessorsState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Coprocessors panel"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              span(
-                list{Attrs.class_("text-lg font-semibold text-gray-100")},
-                list{text("Coprocessors")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{text(`${Int.toString(Array.length(state.enabledBackends))} of 10 active`)},
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer",
-              ),
-              Events.onClick(Coprocessors(RefreshMetrics)),
-              KeyboardNav.onActivate(Coprocessors(RefreshMetrics)),
-            },
-            list{text("Refresh")},
-          ),
-        },
-      ),
-      // Category tabs
-      div(
-        list{Attrs.class_("flex items-center gap-1 px-4 py-2 border-b border-gray-800")},
-        list{
-          renderTab("Dashboard", CoprocDashboard, state.activeCategory),
-          renderTab("Call Log", CoprocCallLog, state.activeCategory),
-          renderTab("Heatmap", CoprocHeatmap, state.activeCategory),
-          renderTab("Routing", CoprocRouting, state.activeCategory),
-          renderTab("Settings", CoprocSettings, state.activeCategory),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 p-2 bg-red-900/50 border border-red-700 rounded text-xs text-red-300",
-            ),
-          },
-          list{
-            div(
-              list{Attrs.class_("flex items-center justify-between")},
-              list{
-                text(err),
-                button(
-                  list{
-                    Attrs.class_("text-red-400 hover:text-red-200 cursor-pointer"),
-                    Events.onClick(Coprocessors(DismissCoprocError)),
-                    KeyboardNav.onActivate(Coprocessors(DismissCoprocError)),
-                  },
-                  list{text("Dismiss")},
-                ),
-              },
-            ),
-          },
-        )
-      | None => noNode
-      },
-      // Loading indicator
-      if state.loading {
-        div(
-          list{Attrs.class_("px-4 py-2 text-xs text-cyan-400 animate-pulse")},
-          list{text("Loading coprocessor data...")},
-        )
-      } else {
-        noNode
-      },
-      // Main content
-      div(
-        list{Attrs.class_("flex-1 overflow-auto p-4")},
-        list{
-          switch state.activeCategory {
-          | CoprocDashboard => renderDashboard(state)
-          | CoprocCallLog => renderCallLog(state)
-          | CoprocHeatmap => renderHeatmap(state)
-          | CoprocRouting => renderRouting(state)
-          | CoprocSettings => renderSettings(state)
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/DatabaseBridge.affine b/src/components/DatabaseBridge.affine
new file mode 100644
index 00000000..e60fd062
--- /dev/null
+++ b/src/components/DatabaseBridge.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module DatabaseBridge;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/DatabaseBridge.res b/src/components/DatabaseBridge.res
deleted file mode 100644
index 1141616e..00000000
--- a/src/components/DatabaseBridge.res
+++ /dev/null
@@ -1,443 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Database Bridge Component — VeriSimDB game state persistence.
-/// Displays schema tree, query history, game state snapshot viewer, and
-/// proof obligation badges for data integrity.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a proof obligation status badge.
-let obligationBadge = (status: proofObligationStatus): Tea_Vdom.t<msg> => {
-  let (color, label) = switch status {
-  | ObligationProven => ("bg-green-700 text-green-100", "Proven")
-  | ObligationUnproven => ("bg-gray-700 text-gray-300", "Unproven")
-  | ObligationViolated => ("bg-red-700 text-red-100", "Violated")
-  | ObligationTimeout => ("bg-yellow-700 text-yellow-100", "Timeout")
-  }
-  span(list{Attrs.class_("px-2 py-0.5 text-xs rounded font-mono " ++ color)}, list{text(label)})
-}
-
-/// Render a query status indicator.
-let queryStatusIndicator = (status: queryStatus): Tea_Vdom.t<msg> => {
-  let (color, label) = switch status {
-  | QuerySuccess => ("text-green-400", "OK")
-  | QueryFailed => ("text-red-400", "Fail")
-  | QueryRunning => ("text-yellow-400 animate-pulse", "Running")
-  | QueryCancelled => ("text-gray-500", "Cancelled")
-  }
-  span(list{Attrs.class_("text-xs font-mono " ++ color)}, list{text(label)})
-}
-
-/// Render a column data type label.
-let colTypeLabel = (dt: columnDataType): string => {
-  switch dt {
-  | ColInt => "Int"
-  | ColFloat => "Float"
-  | ColString => "String"
-  | ColBool => "Bool"
-  | ColTimestamp => "Timestamp"
-  | ColBlob => "Blob"
-  | ColJson => "JSON"
-  }
-}
-
-/// Main view function for the Database Bridge panel.
-let view = (state: databaseBridgeState): Tea_Vdom.t<msg> => {
-  let provenCount =
-    state.proofObligations->Array.filter(o => o.status == ObligationProven)->Array.length
-  let totalObligations = Array.length(state.proofObligations)
-
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Database Bridge — VeriSimDB Game State Persistence"),
-    },
-    list{
-      // Header row
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-bold text-teal-300")},
-                list{text("Database Bridge")},
-              ),
-              span(
-                list{
-                  Attrs.class_(
-                    "text-xs " ++ if state.connected {
-                      "text-green-400"
-                    } else {
-                      "text-red-400"
-                    },
-                  ),
-                },
-                list{
-                  text(
-                    if state.connected {
-                      "Connected"
-                    } else {
-                      "Disconnected"
-                    },
-                  ),
-                },
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-400")},
-                list{text(Int.toString(Array.length(state.schemas)) ++ " schemas")},
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_("px-3 py-1 text-xs bg-teal-800 hover:bg-teal-700 text-white rounded"),
-              Events.onClick(DatabaseBridge(DbBStarted)),
-              KeyboardNav.onActivate(DatabaseBridge(DbBStarted)),
-            },
-            list{text("Refresh")},
-          ),
-        },
-      ),
-      // Tab bar
-      div(
-        list{Attrs.class_("flex gap-1 px-4 py-2 border-b border-gray-800")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Schema {
-                  "bg-teal-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(DatabaseBridge(SetDbBTab(Schema))),
-            },
-            list{text("Schema")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Queries {
-                  "bg-teal-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(DatabaseBridge(SetDbBTab(Queries))),
-            },
-            list{text("Queries")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == GameState {
-                  "bg-teal-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(DatabaseBridge(SetDbBTab(GameState))),
-            },
-            list{text("Game State")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == ProofObligations {
-                  "bg-teal-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(DatabaseBridge(SetDbBTab(ProofObligations))),
-            },
-            list{
-              text(
-                "Proofs (" ++
-                Int.toString(provenCount) ++
-                "/" ++
-                Int.toString(totalObligations) ++ ")",
-              ),
-            },
-          ),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 px-3 py-2 bg-red-900/50 border border-red-700 rounded text-sm text-red-200 flex justify-between items-center",
-            ),
-          },
-          list{
-            text(err),
-            button(
-              list{
-                Attrs.class_("text-red-400 hover:text-red-200 text-xs ml-2"),
-                Events.onClick(DatabaseBridge(DismissDbBError)),
-                KeyboardNav.onActivate(DatabaseBridge(DismissDbBError)),
-              },
-              list{text("Dismiss")},
-            ),
-          },
-        )
-      | None => Tea_Html.noNode
-      },
-      // Content area
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto px-4 py-4")},
-        list{
-          switch state.activeTab {
-          | Schema =>
-            div(
-              list{Attrs.class_("space-y-3")},
-              state.schemas
-              ->Array.map(s =>
-                div(
-                  list{Attrs.class_("px-3 py-2 bg-gray-900 border border-gray-800 rounded")},
-                  list{
-                    div(
-                      list{Attrs.class_("text-sm font-bold text-teal-300 mb-1")},
-                      list{text(s.name)},
-                    ),
-                    div(
-                      list{Attrs.class_("text-xs text-gray-500 mb-2")},
-                      list{text(s.description)},
-                    ),
-                    div(
-                      list{Attrs.class_("space-y-1")},
-                      s.columns
-                      ->Array.map(col =>
-                        div(
-                          list{Attrs.class_("flex items-center gap-2 text-xs")},
-                          list{
-                            span(
-                              list{Attrs.class_("font-mono text-gray-300 w-32")},
-                              list{
-                                text(
-                                  col.name ++ if col.primaryKey {
-                                    " (PK)"
-                                  } else {
-                                    ""
-                                  },
-                                ),
-                              },
-                            ),
-                            span(
-                              list{Attrs.class_("text-teal-400 w-16")},
-                              list{text(colTypeLabel(col.dataType))},
-                            ),
-                            span(
-                              list{Attrs.class_("text-gray-600")},
-                              list{
-                                text(
-                                  if col.nullable {
-                                    "nullable"
-                                  } else {
-                                    "not null"
-                                  },
-                                ),
-                              },
-                            ),
-                            switch col.constraint_ {
-                            | Some(c) => span(list{Attrs.class_("text-yellow-400")}, list{text(c)})
-                            | None => Tea_Html.noNode
-                            },
-                          },
-                        )
-                      )
-                      ->List.fromArray,
-                    ),
-                    if Array.length(s.invariants) > 0 {
-                      div(
-                        list{Attrs.class_("mt-2 pt-2 border-t border-gray-800")},
-                        s.invariants
-                        ->Array.map(inv =>
-                          div(
-                            list{Attrs.class_("text-xs text-yellow-400 font-mono")},
-                            list{text("INV: " ++ inv)},
-                          )
-                        )
-                        ->List.fromArray,
-                      )
-                    } else {
-                      Tea_Html.noNode
-                    },
-                  },
-                )
-              )
-              ->List.fromArray,
-            )
-          | Queries =>
-            div(
-              list{Attrs.class_("space-y-1")},
-              state.queries
-              ->Array.map(q =>
-                div(
-                  list{Attrs.class_("py-2 border-b border-gray-800/50")},
-                  list{
-                    div(
-                      list{Attrs.class_("flex items-center gap-3")},
-                      list{
-                        queryStatusIndicator(q.status),
-                        span(
-                          list{Attrs.class_("text-sm font-mono text-gray-300 flex-1 truncate")},
-                          list{text(q.queryText)},
-                        ),
-                        span(
-                          list{Attrs.class_("text-xs text-gray-500")},
-                          list{text(Int.toString(q.rowCount) ++ " rows")},
-                        ),
-                        span(
-                          list{Attrs.class_("text-xs text-gray-600")},
-                          list{text(Float.toFixed(q.durationMs, ~digits=1) ++ "ms")},
-                        ),
-                      },
-                    ),
-                    if Array.length(q.optimisationHints) > 0 {
-                      div(
-                        list{Attrs.class_("flex flex-wrap gap-1 mt-1")},
-                        q.optimisationHints
-                        ->Array.map(h =>
-                          span(
-                            list{
-                              Attrs.class_(
-                                "px-2 py-0.5 text-xs bg-teal-900/50 text-teal-300 rounded",
-                              ),
-                            },
-                            list{text(h)},
-                          )
-                        )
-                        ->List.fromArray,
-                      )
-                    } else {
-                      Tea_Html.noNode
-                    },
-                  },
-                )
-              )
-              ->List.fromArray,
-            )
-          | GameState =>
-            switch state.gameStateSnapshot {
-            | Some(snap) =>
-              div(
-                list{Attrs.class_("space-y-3")},
-                list{
-                  div(
-                    list{Attrs.class_("flex gap-4 text-xs text-gray-400")},
-                    list{
-                      span(list{}, list{text("Snapshot: " ++ snap.snapshotId)}),
-                      span(list{}, list{text("Tables: " ++ Int.toString(snap.tableCount))}),
-                      span(list{}, list{text("Total rows: " ++ Int.toString(snap.totalRows))}),
-                      span(
-                        list{},
-                        list{text("Size: " ++ Int.toString(snap.sizeBytes / 1024) ++ " KB")},
-                      ),
-                    },
-                  ),
-                  div(
-                    list{Attrs.class_("space-y-1")},
-                    snap.tableSizes
-                    ->Array.map(((tName, rowCount)) =>
-                      div(
-                        list{Attrs.class_("flex items-center gap-3 py-1")},
-                        list{
-                          span(
-                            list{Attrs.class_("text-sm font-mono text-gray-300 w-40")},
-                            list{text(tName)},
-                          ),
-                          span(
-                            list{Attrs.class_("text-xs text-gray-500")},
-                            list{text(Int.toString(rowCount) ++ " rows")},
-                          ),
-                          // Simple bar
-                          div(
-                            list{Attrs.class_("flex-1 h-2 bg-gray-800 rounded overflow-hidden")},
-                            list{
-                              div(
-                                list{
-                                  Attrs.class_("h-full bg-teal-600"),
-                                  Attrs.style(
-                                    "width",
-                                    Float.toFixed(
-                                      if snap.totalRows > 0 {
-                                        Int.toFloat(rowCount) /.
-                                        Int.toFloat(snap.totalRows) *. 100.0
-                                      } else {
-                                        0.0
-                                      },
-                                      ~digits=1,
-                                    ) ++ "%",
-                                  ),
-                                },
-                                list{},
-                              ),
-                            },
-                          ),
-                        },
-                      )
-                    )
-                    ->List.fromArray,
-                  ),
-                },
-              )
-            | None =>
-              div(
-                list{Attrs.class_("text-center text-gray-500 py-8")},
-                list{
-                  text(
-                    "No game state snapshot available. Take a snapshot to inspect persisted data.",
-                  ),
-                },
-              )
-            }
-          | ProofObligations =>
-            div(
-              list{Attrs.class_("space-y-2")},
-              state.proofObligations
-              ->Array.map(o =>
-                div(
-                  list{Attrs.class_("px-3 py-2 bg-gray-900 border border-gray-800 rounded")},
-                  list{
-                    div(
-                      list{Attrs.class_("flex items-center gap-3")},
-                      list{
-                        obligationBadge(o.status),
-                        span(
-                          list{Attrs.class_("text-sm text-gray-200")},
-                          list{text(o.description)},
-                        ),
-                      },
-                    ),
-                    div(
-                      list{Attrs.class_("text-xs text-gray-500 font-mono mt-1")},
-                      list{text(o.schemaName ++ ": " ++ o.statement)},
-                    ),
-                    switch o.counterexample {
-                    | Some(ce) =>
-                      div(
-                        list{Attrs.class_("text-xs text-red-400 mt-1")},
-                        list{text("Counterexample: " ++ ce)},
-                      )
-                    | None => Tea_Html.noNode
-                    },
-                  },
-                )
-              )
-              ->List.fromArray,
-            )
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/Databases.affine b/src/components/Databases.affine
new file mode 100644
index 00000000..d1482525
--- /dev/null
+++ b/src/components/Databases.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Databases;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Databases.res b/src/components/Databases.res
deleted file mode 100644
index 51ddc9c8..00000000
--- a/src/components/Databases.res
+++ /dev/null
@@ -1,1353 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Databases Component — unified database management panel.
-///
-/// Manages VeriSimDB, QuandleDB, and LithoGlyph in a single view with:
-///   - Multi-module connection dashboard with health cards
-///   - Unified query console with per-module language switching
-///   - Schema browser with entity detail drill-down
-///   - Cross-modal drift heatmap with normalisation controls
-///   - Opt-in telemetry dashboard with aggregate metrics
-///   - TypeLL cross-panel type intelligence for query validation
-///
-/// 5 tabs: Dashboard, Query, Schema, Drift, Telemetry.
-/// All views use Tea_Html (no JSX). Accessible with ARIA roles and labels.
-
-open Msg
-open DatabasesModel
-open DatabasesEngine
-open DatabaseModule
-open Tea.Html
-
-// ===========================================================================
-// TypeLL Cross-Panel Type Intelligence
-// ===========================================================================
-
-/// Render TypeLL cross-panel type intelligence result (if available).
-let viewTypeCheckResult = (lastTypeCheck: option<string>): Tea_Vdom.t<msg> => {
-  switch lastTypeCheck {
-  | None => noNode
-  | Some(json) =>
-    switch TypeLLEngine.parseCheckResult(json) {
-    | Error(_) => noNode
-    | Ok(result) =>
-      let narrative = TypeLLEngine.generateNarrative(result)
-      let borderColour = if result.valid {
-        "border-green-700 bg-green-900/20"
-      } else {
-        "border-red-700 bg-red-900/20"
-      }
-      let labelColour = if result.valid {
-        "text-green-400"
-      } else {
-        "text-red-400"
-      }
-      let statusText = if result.valid {
-        "Type-safe"
-      } else {
-        "Type issues detected"
-      }
-      div(
-        list{Attrs.class_("mt-4 p-3 rounded-lg border " ++ borderColour)},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2 mb-2")},
-            list{
-              span(
-                list{Attrs.class_("text-xs font-bold uppercase tracking-wider " ++ labelColour)},
-                list{text("TypeLL")},
-              ),
-              span(list{Attrs.class_("text-xs text-gray-400")}, list{text(statusText)}),
-            },
-          ),
-          div(
-            list{Attrs.class_("text-sm text-gray-300 font-mono mb-1")},
-            list{text(result.typeSignature)},
-          ),
-          div(list{Attrs.class_("text-xs text-gray-400 mb-1")}, list{text(narrative.celebrate)}),
-          if Array.length(result.proofObligations) > 0 {
-            div(
-              list{Attrs.class_("text-xs text-yellow-400 mt-1")},
-              list{text("Proof obligations: " ++ Array.join(result.proofObligations, ", "))},
-            )
-          } else {
-            noNode
-          },
-          if Array.length(result.linearityIssues) > 0 {
-            div(
-              list{Attrs.class_("text-xs text-orange-400 mt-1")},
-              list{text("Linearity: " ++ Array.join(result.linearityIssues, ", "))},
-            )
-          } else {
-            noNode
-          },
-        },
-      )
-    }
-  }
-}
-
-// ===========================================================================
-// Shared Components
-// ===========================================================================
-
-/// Render a tab button.
-let renderTab = (label: string, active: bool, onClick: msg): Tea_Vdom.t<msg> => {
-  let baseClass = "px-3 py-1.5 text-xs rounded-t border-b-2 transition-colors"
-  let activeClass = active
-    ? `${baseClass} text-emerald-300 border-emerald-400 bg-gray-800`
-    : `${baseClass} text-gray-500 border-transparent hover:text-gray-300`
-  button(
-    list{
-      Attrs.class_(activeClass),
-      Events.onClick(onClick),
-      Attrs.role("tab"),
-      Attrs.ariaSelected(active),
-    },
-    list{text(label)},
-  )
-}
-
-/// Render a stat card.
-let renderStat = (label: string, value: string, colour: string): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("bg-gray-800/50 border border-gray-700 rounded p-3")},
-    list{
-      div(list{Attrs.class_(`text-lg font-bold ${colour}`)}, list{text(value)}),
-      div(list{Attrs.class_("text-xs text-gray-500 mt-1")}, list{text(label)}),
-    },
-  )
-}
-
-/// Render a module selector pill.
-let renderModulePill = (
-  config: moduleConfig,
-  selected: bool,
-  connStatus: connectionStatus,
-): Tea_Vdom.t<msg> => {
-  let accent = moduleAccent(config.id)
-  let bg = if selected {
-    "bg-gray-700"
-  } else {
-    "bg-transparent hover:bg-gray-800"
-  }
-  let border = if selected {
-    `border`
-  } else {
-    "border border-transparent"
-  }
-  button(
-    list{
-      Attrs.class_(
-        `flex items-center gap-2 px-3 py-2 rounded-lg ${bg} ${border} transition-colors`,
-      ),
-      Attrs.style(
-        "border-color",
-        if selected {
-          accent
-        } else {
-          "transparent"
-        },
-      ),
-      Events.onClick(Databases(SelectModule(config.id))),
-      Attrs.ariaLabel(`Select ${config.name} database`),
-    },
-    list{
-      // Connection status dot
-      div(
-        list{Attrs.class_(`w-2 h-2 rounded-full flex-shrink-0 ${connectionColour(connStatus)}`)},
-        list{},
-      ),
-      // Module icon
-      span(
-        list{
-          Attrs.class_("text-xs font-bold px-1.5 py-0.5 rounded"),
-          Attrs.style("background-color", accent ++ "20"),
-          Attrs.style("color", accent),
-        },
-        list{text(moduleIcon(config.id))},
-      ),
-      // Module name
-      span(list{Attrs.class_("text-sm text-gray-200")}, list{text(config.name)}),
-      // Version badge
-      span(list{Attrs.class_("text-[10px] text-gray-600")}, list{text("v" ++ config.version)}),
-    },
-  )
-}
-
-// ===========================================================================
-// Dashboard Tab
-// ===========================================================================
-
-/// Render capability badge.
-let renderCapabilityBadge = (cap: capability, supported: bool): Tea_Vdom.t<msg> => {
-  let colour = if supported {
-    "text-emerald-400 bg-emerald-900/30 border-emerald-700"
-  } else {
-    "text-gray-600 bg-gray-900/30 border-gray-800"
-  }
-  span(
-    list{Attrs.class_(`text-[10px] px-2 py-0.5 rounded-full border ${colour}`)},
-    list{text(capabilityLabel(cap))},
-  )
-}
-
-/// Render the capability matrix row for a module.
-let renderModuleRow = (ms: moduleState): Tea_Vdom.t<msg> => {
-  let allCaps = [
-    QueryExecution,
-    DriftDetection,
-    ProofGeneration,
-    Normalisation,
-    Federation,
-    Telemetry,
-    Playground,
-  ]
-  let accent = moduleAccent(ms.config.id)
-  div(
-    list{Attrs.class_("flex items-center gap-3 py-2 border-b border-gray-800")},
-    list{
-      // Module badge
-      div(
-        list{Attrs.class_("w-24 flex-shrink-0")},
-        list{
-          span(
-            list{
-              Attrs.class_("text-xs font-bold px-2 py-0.5 rounded"),
-              Attrs.style("background-color", accent ++ "20"),
-              Attrs.style("color", accent),
-            },
-            list{text(ms.config.name)},
-          ),
-        },
-      ),
-      // Connection
-      div(
-        list{Attrs.class_("w-28 flex-shrink-0 flex items-center gap-1.5")},
-        list{
-          div(
-            list{Attrs.class_(`w-2 h-2 rounded-full ${connectionColour(ms.connection)}`)},
-            list{},
-          ),
-          span(
-            list{Attrs.class_("text-xs text-gray-400 truncate")},
-            list{
-              text(
-                switch ms.connection {
-                | Disconnected => "Offline"
-                | Connecting => "Connecting"
-                | Connected(_) => "Online"
-                | Error(_) => "Error"
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Capabilities
-      div(
-        list{Attrs.class_("flex flex-wrap gap-1")},
-        allCaps
-        ->Array.map(cap => renderCapabilityBadge(cap, hasCapability(ms.config, cap)))
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-/// Render the Dashboard tab.
-let viewDashboard = (state: databasesState): Tea_Vdom.t<msg> => {
-  let connected = connectedCount(state)
-  let total = Array.length(state.modules)
-  let caps = totalCapabilities(state)
-  let historyCount = Array.length(state.queryHistory)
-
-  div(
-    list{Attrs.class_("space-y-6")},
-    list{
-      // Health summary cards
-      div(
-        list{Attrs.class_("grid grid-cols-4 gap-4")},
-        list{
-          renderStat("Modules", Int.toString(total), "text-emerald-400"),
-          renderStat(
-            "Connected",
-            `${Int.toString(connected)}/${Int.toString(total)}`,
-            if connected == total {
-              "text-emerald-400"
-            } else {
-              "text-amber-400"
-            },
-          ),
-          renderStat("Capabilities", Int.toString(caps), "text-indigo-400"),
-          renderStat("Queries Run", Int.toString(historyCount), "text-cyan-400"),
-        },
-      ),
-      // Module capability matrix
-      div(
-        list{Attrs.class_("bg-gray-900/50 border border-gray-800 rounded-lg p-4")},
-        list{
-          div(
-            list{Attrs.class_("text-xs font-semibold text-gray-400 uppercase tracking-wider mb-3")},
-            list{text("Module Capability Matrix")},
-          ),
-          div(
-            list{Attrs.class_("space-y-1")},
-            state.modules->Array.map(renderModuleRow)->List.fromArray,
-          ),
-        },
-      ),
-      // Action bar
-      div(
-        list{Attrs.class_("flex items-center gap-3")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-4 py-2 bg-emerald-700 hover:bg-emerald-600 text-white text-xs rounded transition-colors",
-              ),
-              Events.onClick(Databases(ConnectAll)),
-              KeyboardNav.onActivate(Databases(ConnectAll)),
-              Attrs.ariaLabel("Connect to all database modules"),
-            },
-            list{text("Connect All")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-4 py-2 bg-gray-700 hover:bg-gray-600 text-white text-xs rounded transition-colors",
-              ),
-              Events.onClick(Databases(RefreshHealth)),
-              KeyboardNav.onActivate(Databases(RefreshHealth)),
-              Attrs.ariaLabel("Refresh database health"),
-            },
-            list{text("Refresh Health")},
-          ),
-          // BoJ routing toggle
-          div(
-            list{Attrs.class_("flex items-center gap-2 ml-auto")},
-            list{
-              span(list{Attrs.class_("text-xs text-gray-500")}, list{text("BoJ Routing")}),
-              button(
-                list{
-                  Attrs.class_(
-                    if state.bojRouting {
-                      "w-8 h-4 rounded-full bg-emerald-600 relative transition-colors"
-                    } else {
-                      "w-8 h-4 rounded-full bg-gray-700 relative transition-colors"
-                    },
-                  ),
-                  Events.onClick(Databases(ToggleBojRouting)),
-                  KeyboardNav.onActivate(Databases(ToggleBojRouting)),
-                  Attrs.ariaLabel("Toggle BoJ cartridge routing"),
-                },
-                list{
-                  div(
-                    list{
-                      Attrs.class_(
-                        `w-3 h-3 rounded-full bg-white absolute top-0.5 transition-transform ${if (
-                            state.bojRouting
-                          ) {
-                            "translate-x-4"
-                          } else {
-                            "translate-x-0.5"
-                          }}`,
-                      ),
-                    },
-                    list{},
-                  ),
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Recent query history
-      if historyCount > 0 {
-        div(
-          list{Attrs.class_("bg-gray-900/50 border border-gray-800 rounded-lg p-4")},
-          list{
-            div(
-              list{
-                Attrs.class_("text-xs font-semibold text-gray-400 uppercase tracking-wider mb-3"),
-              },
-              list{text("Recent Queries")},
-            ),
-            div(
-              list{Attrs.class_("space-y-1 max-h-48 overflow-y-auto")},
-              state.queryHistory
-              ->Array.slice(~start=0, ~end=10)
-              ->Array.map(entry => {
-                let statusColour = if entry.success {
-                  "text-emerald-400"
-                } else {
-                  "text-red-400"
-                }
-                let moduleBadge = moduleAccent(entry.moduleId)
-                div(
-                  list{
-                    Attrs.class_(
-                      "flex items-center gap-2 py-1.5 border-b border-gray-800/50 text-xs",
-                    ),
-                  },
-                  list{
-                    span(
-                      list{
-                        Attrs.class_("px-1.5 py-0.5 rounded font-mono"),
-                        Attrs.style("background-color", moduleBadge ++ "20"),
-                        Attrs.style("color", moduleBadge),
-                      },
-                      list{text(moduleIcon(entry.moduleId))},
-                    ),
-                    span(
-                      list{Attrs.class_("text-gray-300 font-mono truncate flex-1")},
-                      list{text(entry.query)},
-                    ),
-                    span(
-                      list{Attrs.class_(statusColour)},
-                      list{
-                        text(
-                          if entry.success {
-                            "OK"
-                          } else {
-                            "ERR"
-                          },
-                        ),
-                      },
-                    ),
-                    span(
-                      list{Attrs.class_("text-gray-600")},
-                      list{text(Float.toString(entry.durationMs) ++ "ms")},
-                    ),
-                    span(
-                      list{Attrs.class_("text-gray-600")},
-                      list{text(Int.toString(entry.rowCount) ++ " rows")},
-                    ),
-                  },
-                )
-              })
-              ->List.fromArray,
-            ),
-          },
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-// ===========================================================================
-// Query Console Tab
-// ===========================================================================
-
-/// Render the query console for the selected module.
-let viewQuery = (state: databasesState): Tea_Vdom.t<msg> => {
-  let currentModule = selectedModuleState(state)
-  let playground = currentModule->Option.flatMap(m => m.config.playground)
-  let langName = playground->Option.map(p => p.languageName)->Option.getOr("SQL")
-
-  div(
-    list{Attrs.class_("space-y-4")},
-    list{
-      // Module selector ribbon
-      div(
-        list{Attrs.class_("flex items-center gap-2 border-b border-gray-800 pb-3")},
-        state.modules
-        ->Array.map(m =>
-          renderModulePill(m.config, m.config.id == state.selectedModule, m.connection)
-        )
-        ->List.fromArray,
-      ),
-      // Query editor
-      div(
-        list{Attrs.class_("bg-gray-900/50 border border-gray-800 rounded-lg p-4")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2 mb-2")},
-            list{
-              span(
-                list{Attrs.class_("text-xs font-semibold text-gray-400 uppercase tracking-wider")},
-                list{text(langName ++ " Editor")},
-              ),
-              // Example query buttons
-              switch playground {
-              | Some(pg) =>
-                div(
-                  list{Attrs.class_("flex gap-1 ml-auto")},
-                  pg.exampleQueries
-                  ->Array.slice(~start=0, ~end=4)
-                  ->Array.map(eq =>
-                    button(
-                      list{
-                        Attrs.class_(
-                          "text-[10px] px-2 py-0.5 bg-gray-800 hover:bg-gray-700 text-gray-400 rounded transition-colors",
-                        ),
-                        Events.onClick(Databases(LoadExampleQuery(eq.query))),
-                        Attrs.title(eq.query),
-                      },
-                      list{
-                        text(eq.label),
-                        if eq.isDependentType {
-                          span(list{Attrs.class_("text-yellow-500 ml-0.5")}, list{text("DT")})
-                        } else {
-                          noNode
-                        },
-                      },
-                    )
-                  )
-                  ->List.fromArray,
-                )
-              | None => noNode
-              },
-            },
-          ),
-          // Textarea
-          textarea(
-            list{
-              Attrs.class_(
-                "w-full h-32 bg-gray-950 text-gray-200 text-sm font-mono p-3 rounded border border-gray-700 focus:border-emerald-600 focus:outline-none resize-y",
-              ),
-              Attrs.value(state.queryInput),
-              Attrs.placeholder(`Enter ${langName} query...`),
-              Events.onInput(value => Databases(SetQueryInput(value))),
-              Attrs.ariaLabel(`${langName} query input`),
-              Attrs.spellCheck(false),
-            },
-            list{},
-          ),
-          // Execute bar
-          div(
-            list{Attrs.class_("flex items-center gap-3 mt-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    if state.queryLoading {
-                      "px-4 py-2 bg-gray-600 text-gray-400 text-xs rounded cursor-not-allowed"
-                    } else {
-                      "px-4 py-2 bg-emerald-700 hover:bg-emerald-600 text-white text-xs rounded transition-colors"
-                    },
-                  ),
-                  Events.onClick(Databases(ExecuteQuery)),
-                  KeyboardNav.onActivate(Databases(ExecuteQuery)),
-                  Attrs.disabled(state.queryLoading || state.queryInput == ""),
-                  Attrs.ariaLabel("Execute query"),
-                },
-                list{
-                  text(
-                    if state.queryLoading {
-                      "Executing..."
-                    } else {
-                      "Execute"
-                    },
-                  ),
-                },
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-4 py-2 bg-gray-700 hover:bg-gray-600 text-white text-xs rounded transition-colors",
-                  ),
-                  Events.onClick(Databases(ClearQuery)),
-                  KeyboardNav.onActivate(Databases(ClearQuery)),
-                  Attrs.ariaLabel("Clear query"),
-                },
-                list{text("Clear")},
-              ),
-              // Language features
-              switch playground {
-              | Some(pg) =>
-                div(
-                  list{Attrs.class_("flex items-center gap-2 ml-auto text-[10px] text-gray-600")},
-                  list{
-                    if pg.linterAvailable {
-                      span(list{Attrs.class_("text-emerald-600")}, list{text("Linter")})
-                    } else {
-                      noNode
-                    },
-                    if pg.formatterAvailable {
-                      span(list{Attrs.class_("text-emerald-600")}, list{text("Formatter")})
-                    } else {
-                      noNode
-                    },
-                    if pg.hasDependentTypes {
-                      span(
-                        list{Attrs.class_("text-yellow-600")},
-                        list{text(pg.languageName ++ "-DT")},
-                      )
-                    } else {
-                      noNode
-                    },
-                  },
-                )
-              | None => noNode
-              },
-            },
-          ),
-        },
-      ),
-      // Query result
-      switch currentModule {
-      | Some(ms) =>
-        switch ms.queryResult {
-        | Some(result) =>
-          div(
-            list{Attrs.class_("bg-gray-900/50 border border-gray-800 rounded-lg p-4")},
-            list{
-              div(
-                list{Attrs.class_("flex items-center gap-2 mb-3")},
-                list{
-                  span(
-                    list{Attrs.class_("text-xs font-semibold text-emerald-400")},
-                    list{text("Result")},
-                  ),
-                  span(
-                    list{Attrs.class_("text-xs text-gray-500")},
-                    list{
-                      text(
-                        `${Int.toString(result.rowCount)} rows in ${Float.toString(
-                            result.timingMs,
-                          )}ms`,
-                      ),
-                    },
-                  ),
-                  span(
-                    list{Attrs.class_("text-[10px] text-gray-600 ml-auto")},
-                    list{text(result.statementType)},
-                  ),
-                },
-              ),
-              // Column headers
-              if Array.length(result.columns) > 0 {
-                div(
-                  list{Attrs.class_("overflow-x-auto")},
-                  list{
-                    table(
-                      list{Attrs.class_("w-full text-xs"), Attrs.role("grid")},
-                      list{
-                        thead(
-                          list{},
-                          list{
-                            tr(
-                              list{Attrs.class_("border-b border-gray-700")},
-                              result.columns
-                              ->Array.map(col =>
-                                th(
-                                  list{
-                                    Attrs.class_(
-                                      "text-left py-1.5 px-2 text-gray-400 font-semibold",
-                                    ),
-                                  },
-                                  list{text(col)},
-                                )
-                              )
-                              ->List.fromArray,
-                            ),
-                          },
-                        ),
-                        tbody(
-                          list{},
-                          result.rows
-                          ->Array.map(row =>
-                            tr(
-                              list{
-                                Attrs.class_("border-b border-gray-800/50 hover:bg-gray-800/30"),
-                              },
-                              row
-                              ->Array.map(cell =>
-                                td(
-                                  list{Attrs.class_("py-1.5 px-2 text-gray-300 font-mono")},
-                                  list{text(cell)},
-                                )
-                              )
-                              ->List.fromArray,
-                            )
-                          )
-                          ->List.fromArray,
-                        ),
-                      },
-                    ),
-                  },
-                )
-              } else {
-                switch result.message {
-                | Some(msg) => div(list{Attrs.class_("text-xs text-gray-400")}, list{text(msg)})
-                | None => noNode
-                }
-              },
-            },
-          )
-        | None =>
-          switch ms.queryError {
-          | Some(err) =>
-            div(
-              list{Attrs.class_("bg-red-900/20 border border-red-700 rounded-lg p-4")},
-              list{
-                div(
-                  list{Attrs.class_("text-xs font-semibold text-red-400 mb-1")},
-                  list{text("Query Error")},
-                ),
-                div(list{Attrs.class_("text-xs text-red-300 font-mono")}, list{text(err)}),
-              },
-            )
-          | None => noNode
-          }
-        }
-      | None => noNode
-      },
-      // TypeLL result
-      viewTypeCheckResult(state.lastTypeCheck),
-    },
-  )
-}
-
-// ===========================================================================
-// Schema Browser Tab
-// ===========================================================================
-
-/// Render entity detail panel.
-let viewEntityDetail = (state: databasesState): Tea_Vdom.t<msg> => {
-  switch state.selectedEntity {
-  | None =>
-    div(
-      list{Attrs.class_("text-xs text-gray-600 text-center py-8")},
-      list{text("Select an entity to view details")},
-    )
-  | Some(entityName) =>
-    let entity = state.schemaEntities->Array.find(e => e.name == entityName)
-    switch entity {
-    | None => noNode
-    | Some(e) =>
-      div(
-        list{Attrs.class_("bg-gray-900/50 border border-gray-800 rounded-lg p-4")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2 mb-3")},
-            list{
-              span(list{Attrs.class_("text-sm font-bold text-gray-200")}, list{text(e.name)}),
-              span(
-                list{
-                  Attrs.class_("text-[10px] px-2 py-0.5 bg-gray-800 text-gray-500 rounded-full"),
-                },
-                list{text(e.kind)},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-600 ml-auto")},
-                list{text(Int.toString(e.entryCount) ++ " entries")},
-              ),
-            },
-          ),
-          // Fields
-          div(
-            list{Attrs.class_("space-y-1")},
-            list{
-              div(
-                list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wider mb-1")},
-                list{text("Fields")},
-              ),
-              div(
-                list{Attrs.class_("flex flex-wrap gap-1")},
-                e.fields
-                ->Array.map(field =>
-                  span(
-                    list{
-                      Attrs.class_(
-                        "text-xs font-mono px-2 py-0.5 bg-gray-800 text-gray-300 rounded border border-gray-700",
-                      ),
-                    },
-                    list{text(field)},
-                  )
-                )
-                ->List.fromArray,
-              ),
-            },
-          ),
-          // Entity detail JSON (if loaded)
-          switch state.entityDetail {
-          | Some(detail) =>
-            div(
-              list{Attrs.class_("mt-3")},
-              list{
-                div(
-                  list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wider mb-1")},
-                  list{text("Detail")},
-                ),
-                pre(
-                  list{
-                    Attrs.class_(
-                      "text-xs text-gray-300 font-mono bg-gray-950 p-3 rounded overflow-x-auto max-h-48 overflow-y-auto",
-                    ),
-                  },
-                  list{text(detail)},
-                ),
-              },
-            )
-          | None => noNode
-          },
-          // Actions
-          div(
-            list{Attrs.class_("flex gap-2 mt-3")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1.5 bg-gray-700 hover:bg-gray-600 text-xs text-white rounded transition-colors",
-                  ),
-                  Events.onClick(Databases(LoadEntityDetail(entityName))),
-                },
-                list{text("Load Detail")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1.5 bg-gray-700 hover:bg-gray-600 text-xs text-white rounded transition-colors",
-                  ),
-                  Events.onClick(
-                    Databases(LoadExampleQuery("SELECT * FROM " ++ entityName ++ " LIMIT 10")),
-                  ),
-                },
-                list{text("Query This")},
-              ),
-            },
-          ),
-        },
-      )
-    }
-  }
-}
-
-/// Render the Schema Browser tab.
-let viewSchema = (state: databasesState): Tea_Vdom.t<msg> => {
-  let entities = filteredEntities(state)
-
-  div(
-    list{Attrs.class_("space-y-4")},
-    list{
-      // Module selector
-      div(
-        list{Attrs.class_("flex items-center gap-2 border-b border-gray-800 pb-3")},
-        state.modules
-        ->Array.map(m =>
-          renderModulePill(m.config, m.config.id == state.selectedModule, m.connection)
-        )
-        ->List.fromArray,
-      ),
-      // Filter
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          input(
-            list{
-              Attrs.class_(
-                "flex-1 bg-gray-900 text-gray-200 text-sm px-3 py-2 rounded border border-gray-700 focus:border-emerald-600 focus:outline-none",
-              ),
-              Attrs.placeholder("Filter entities..."),
-              Attrs.value(state.filterText),
-              Events.onInput(value => Databases(SetFilter(value))),
-              Attrs.ariaLabel("Filter schema entities"),
-            },
-            list{},
-          ),
-          span(
-            list{Attrs.class_("text-xs text-gray-600")},
-            list{text(`${Int.toString(Array.length(entities))} entities`)},
-          ),
-        },
-      ),
-      // Two-column: entity list + detail
-      div(
-        list{Attrs.class_("grid grid-cols-2 gap-4")},
-        list{
-          // Entity list
-          div(
-            list{Attrs.class_("space-y-1 max-h-96 overflow-y-auto")},
-            entities
-            ->Array.map(entity => {
-              let isSelected = state.selectedEntity == Some(entity.name)
-              button(
-                list{
-                  Attrs.class_(
-                    `flex items-center gap-2 w-full px-3 py-2 rounded text-left transition-colors ${if (
-                        isSelected
-                      ) {
-                        "bg-gray-700 text-white"
-                      } else {
-                        "hover:bg-gray-800 text-gray-300"
-                      }}`,
-                  ),
-                  Events.onClick(Databases(SelectEntity(entity.name))),
-                  Attrs.ariaLabel(`Select entity ${entity.name}`),
-                },
-                list{
-                  span(
-                    list{
-                      Attrs.class_("text-[10px] px-1.5 py-0.5 bg-gray-800 text-gray-500 rounded"),
-                    },
-                    list{text(entity.kind)},
-                  ),
-                  span(
-                    list{Attrs.class_("text-sm flex-1 truncate font-mono")},
-                    list{text(entity.name)},
-                  ),
-                  span(
-                    list{Attrs.class_("text-xs text-gray-600")},
-                    list{text(Int.toString(entity.entryCount))},
-                  ),
-                  span(
-                    list{Attrs.class_("text-xs text-gray-700")},
-                    list{text(Int.toString(Array.length(entity.fields)) ++ " cols")},
-                  ),
-                },
-              )
-            })
-            ->List.fromArray,
-          ),
-          // Entity detail panel
-          viewEntityDetail(state),
-        },
-      ),
-    },
-  )
-}
-
-// ===========================================================================
-// Drift Monitor Tab
-// ===========================================================================
-
-/// Render a single drift bar for a modality.
-let renderDriftBar = (dimension: string, score: float): Tea_Vdom.t<msg> => {
-  let pct = Float.toInt(score *. 100.0)
-  let colour = if score < 0.1 {
-    "bg-emerald-500"
-  } else if score < 0.3 {
-    "bg-amber-500"
-  } else {
-    "bg-red-500"
-  }
-  let textColour = if score < 0.1 {
-    "text-emerald-400"
-  } else if score < 0.3 {
-    "text-amber-400"
-  } else {
-    "text-red-400"
-  }
-
-  div(
-    list{Attrs.class_("flex items-center gap-3 py-1")},
-    list{
-      span(
-        list{Attrs.class_("text-xs text-gray-400 w-24 text-right capitalize")},
-        list{text(dimension)},
-      ),
-      div(
-        list{Attrs.class_("flex-1 h-3 bg-gray-800 rounded-full overflow-hidden")},
-        list{
-          div(
-            list{
-              Attrs.class_(`h-full ${colour} rounded-full transition-all`),
-              Attrs.style("width", Int.toString(max(pct, 1)) ++ "%"),
-            },
-            list{},
-          ),
-        },
-      ),
-      span(
-        list{Attrs.class_(`text-xs font-mono w-12 text-right ${textColour}`)},
-        list{text(Float.toFixed(score, ~digits=3))},
-      ),
-    },
-  )
-}
-
-/// Render the Drift Monitor tab.
-let viewDrift = (state: databasesState): Tea_Vdom.t<msg> => {
-  let currentModule = selectedModuleState(state)
-  let hasDrift =
-    currentModule->Option.map(m => hasCapability(m.config, DriftDetection))->Option.getOr(false)
-
-  div(
-    list{Attrs.class_("space-y-4")},
-    list{
-      // Module selector
-      div(
-        list{Attrs.class_("flex items-center gap-2 border-b border-gray-800 pb-3")},
-        state.modules
-        ->Array.map(m =>
-          renderModulePill(m.config, m.config.id == state.selectedModule, m.connection)
-        )
-        ->List.fromArray,
-      ),
-      if hasDrift {
-        switch currentModule {
-        | Some(ms) =>
-          div(
-            list{Attrs.class_("space-y-4")},
-            list{
-              // Drift heatmap
-              div(
-                list{Attrs.class_("bg-gray-900/50 border border-gray-800 rounded-lg p-4")},
-                list{
-                  div(
-                    list{Attrs.class_("flex items-center gap-2 mb-4")},
-                    list{
-                      span(
-                        list{
-                          Attrs.class_(
-                            "text-xs font-semibold text-gray-400 uppercase tracking-wider",
-                          ),
-                        },
-                        list{text("Cross-Modal Drift Heatmap")},
-                      ),
-                      button(
-                        list{
-                          Attrs.class_(
-                            "ml-auto px-3 py-1 bg-gray-700 hover:bg-gray-600 text-xs text-white rounded transition-colors",
-                          ),
-                          Events.onClick(Databases(RefreshDrift)),
-                          KeyboardNav.onActivate(Databases(RefreshDrift)),
-                          Attrs.ariaLabel("Refresh drift scores"),
-                        },
-                        list{text("Refresh")},
-                      ),
-                    },
-                  ),
-                  switch ms.driftScores {
-                  | Some(scores) =>
-                    div(
-                      list{Attrs.class_("space-y-1")},
-                      scores
-                      ->Array.map(ds => renderDriftBar(ds.dimension, ds.score))
-                      ->List.fromArray,
-                    )
-                  | None =>
-                    div(
-                      list{Attrs.class_("text-xs text-gray-600 text-center py-8")},
-                      list{text("Connect to backend to load drift scores")},
-                    )
-                  },
-                },
-              ),
-              // Proof obligations
-              if Array.length(ms.proofObligations) > 0 {
-                div(
-                  list{Attrs.class_("bg-gray-900/50 border border-gray-800 rounded-lg p-4")},
-                  list{
-                    div(
-                      list{
-                        Attrs.class_(
-                          "text-xs font-semibold text-gray-400 uppercase tracking-wider mb-3",
-                        ),
-                      },
-                      list{text("Proof Obligations")},
-                    ),
-                    div(
-                      list{Attrs.class_("space-y-2")},
-                      ms.proofObligations
-                      ->Array.map(po => {
-                        let statusColour = switch po.status {
-                        | "verified" => "text-emerald-400"
-                        | "failed" => "text-red-400"
-                        | _ => "text-amber-400"
-                        }
-                        div(
-                          list{
-                            Attrs.class_(
-                              "flex items-center gap-3 text-xs py-1 border-b border-gray-800/50",
-                            ),
-                          },
-                          list{
-                            span(
-                              list{Attrs.class_(`font-semibold ${statusColour} w-16`)},
-                              list{text(po.status)},
-                            ),
-                            span(list{Attrs.class_("text-gray-300")}, list{text(po.contractName)}),
-                            span(
-                              list{Attrs.class_("text-gray-600 ml-auto")},
-                              list{text(po.proofType)},
-                            ),
-                            span(
-                              list{Attrs.class_("text-gray-700 font-mono text-[10px]")},
-                              list{text(po.proofHash)},
-                            ),
-                          },
-                        )
-                      })
-                      ->List.fromArray,
-                    ),
-                  },
-                )
-              } else {
-                noNode
-              },
-              // Normalise button
-              button(
-                list{
-                  Attrs.class_(
-                    "px-4 py-2 bg-indigo-700 hover:bg-indigo-600 text-white text-xs rounded transition-colors",
-                  ),
-                  Events.onClick(Databases(NormaliseAll)),
-                  KeyboardNav.onActivate(Databases(NormaliseAll)),
-                  Attrs.ariaLabel("Normalise all drifted modalities"),
-                },
-                list{text("Normalise Drifted Modalities")},
-              ),
-            },
-          )
-        | None => noNode
-        }
-      } else {
-        div(
-          list{Attrs.class_("text-xs text-gray-600 text-center py-12")},
-          list{text("Selected module does not support drift detection. Switch to VeriSimDB.")},
-        )
-      },
-    },
-  )
-}
-
-// ===========================================================================
-// Telemetry Tab
-// ===========================================================================
-
-/// Render the Telemetry tab.
-let viewTelemetry = (state: databasesState): Tea_Vdom.t<msg> => {
-  let currentModule = selectedModuleState(state)
-  let hasTelemetry =
-    currentModule->Option.map(m => hasCapability(m.config, Telemetry))->Option.getOr(false)
-
-  div(
-    list{Attrs.class_("space-y-4")},
-    list{
-      // Module selector
-      div(
-        list{Attrs.class_("flex items-center gap-2 border-b border-gray-800 pb-3")},
-        state.modules
-        ->Array.map(m =>
-          renderModulePill(m.config, m.config.id == state.selectedModule, m.connection)
-        )
-        ->List.fromArray,
-      ),
-      if hasTelemetry {
-        switch currentModule {
-        | Some(ms) =>
-          switch ms.telemetry {
-          | Some(t) =>
-            div(
-              list{Attrs.class_("space-y-4")},
-              list{
-                // Summary cards
-                div(
-                  list{Attrs.class_("grid grid-cols-4 gap-4")},
-                  list{
-                    renderStat("Entities", Int.toString(t.entityCount), "text-emerald-400"),
-                    renderStat(
-                      "Avg Query",
-                      Float.toFixed(t.avgQueryDurationMs, ~digits=1) ++ "ms",
-                      "text-cyan-400",
-                    ),
-                    renderStat(
-                      "Drift Events",
-                      Int.toString(t.driftDetectedCount),
-                      "text-amber-400",
-                    ),
-                    renderStat(
-                      "Normalise Rate",
-                      Float.toFixed(t.normaliseSuccessRate *. 100.0, ~digits=0) ++ "%",
-                      "text-indigo-400",
-                    ),
-                  },
-                ),
-                // Modality heatmap
-                div(
-                  list{Attrs.class_("bg-gray-900/50 border border-gray-800 rounded-lg p-4")},
-                  list{
-                    div(
-                      list{
-                        Attrs.class_(
-                          "text-xs font-semibold text-gray-400 uppercase tracking-wider mb-3",
-                        ),
-                      },
-                      list{text("Modality Usage Heatmap")},
-                    ),
-                    div(
-                      list{Attrs.class_("flex gap-2 flex-wrap")},
-                      t.modalityHeatmap
-                      ->Array.map(((name, intensity)) => {
-                        let opacity = Float.toFixed(Math.min(intensity, 1.0), ~digits=2)
-                        div(
-                          list{
-                            Attrs.class_("px-3 py-2 rounded text-xs text-white font-mono"),
-                            Attrs.style("background-color", `rgba(52, 211, 153, ${opacity})`),
-                          },
-                          list{
-                            div(list{}, list{text(name)}),
-                            div(
-                              list{Attrs.class_("text-[10px] opacity-80")},
-                              list{text(Float.toFixed(intensity *. 100.0, ~digits=0) ++ "%")},
-                            ),
-                          },
-                        )
-                      })
-                      ->List.fromArray,
-                    ),
-                  },
-                ),
-                // Query patterns
-                if Array.length(t.queryPatterns) > 0 {
-                  div(
-                    list{Attrs.class_("bg-gray-900/50 border border-gray-800 rounded-lg p-4")},
-                    list{
-                      div(
-                        list{
-                          Attrs.class_(
-                            "text-xs font-semibold text-gray-400 uppercase tracking-wider mb-3",
-                          ),
-                        },
-                        list{text("Common Query Patterns")},
-                      ),
-                      div(
-                        list{Attrs.class_("space-y-1")},
-                        t.queryPatterns
-                        ->Array.map(((pattern, count)) =>
-                          div(
-                            list{Attrs.class_("flex items-center gap-2 text-xs py-1")},
-                            list{
-                              span(list{Attrs.class_("text-gray-300 flex-1")}, list{text(pattern)}),
-                              span(
-                                list{Attrs.class_("text-gray-600 font-mono")},
-                                list{text(Int.toString(count))},
-                              ),
-                            },
-                          )
-                        )
-                        ->List.fromArray,
-                      ),
-                    },
-                  )
-                } else {
-                  noNode
-                },
-                // Privacy notice
-                div(
-                  list{Attrs.class_("text-[10px] text-gray-700 text-center")},
-                  list{
-                    text(
-                      "Telemetry is opt-in and aggregate-only. No query content, entity data, or PII.",
-                    ),
-                  },
-                ),
-                // Timestamp
-                div(
-                  list{Attrs.class_("text-[10px] text-gray-700 text-center")},
-                  list{text("Generated: " ++ t.generatedAt)},
-                ),
-              },
-            )
-          | None =>
-            div(
-              list{Attrs.class_("text-center py-12")},
-              list{
-                div(
-                  list{Attrs.class_("text-xs text-gray-500 mb-3")},
-                  list{text("No telemetry snapshot loaded")},
-                ),
-                button(
-                  list{
-                    Attrs.class_(
-                      "px-4 py-2 bg-gray-700 hover:bg-gray-600 text-white text-xs rounded transition-colors",
-                    ),
-                    Events.onClick(Databases(LoadTelemetry)),
-                    KeyboardNav.onActivate(Databases(LoadTelemetry)),
-                    Attrs.ariaLabel("Load telemetry snapshot"),
-                  },
-                  list{text("Load Telemetry")},
-                ),
-              },
-            )
-          }
-        | None => noNode
-        }
-      } else {
-        div(
-          list{Attrs.class_("text-xs text-gray-600 text-center py-12")},
-          list{text("Selected module does not expose telemetry. Switch to VeriSimDB.")},
-        )
-      },
-    },
-  )
-}
-
-// ===========================================================================
-// Main View
-// ===========================================================================
-
-/// Root view for the Databases panel.
-let view = (state: databasesState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 p-4 overflow-y-auto"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Databases panel — VeriSimDB, QuandleDB, LithoGlyph management"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center gap-3 mb-4")},
-        list{
-          h2(list{Attrs.class_("text-lg font-bold text-emerald-400")}, list{text("Databases")}),
-          span(
-            list{Attrs.class_("text-xs text-gray-600")},
-            list{text(`${Int.toString(Array.length(state.modules))} modules registered`)},
-          ),
-          // Error display
-          switch state.error {
-          | Some(err) =>
-            div(
-              list{Attrs.class_("ml-auto flex items-center gap-2")},
-              list{
-                span(list{Attrs.class_("text-xs text-red-400")}, list{text(err)}),
-                button(
-                  list{
-                    Attrs.class_("text-xs text-gray-500 hover:text-gray-300"),
-                    Events.onClick(Databases(DismissError)),
-                    KeyboardNav.onActivate(Databases(DismissError)),
-                  },
-                  list{text("dismiss")},
-                ),
-              },
-            )
-          | None => noNode
-          },
-        },
-      ),
-      // Tab bar
-      div(
-        list{Attrs.class_("flex gap-1 mb-4 border-b border-gray-800"), Attrs.role("tablist")},
-        list{
-          renderTab(
-            "Dashboard",
-            state.activeCategory == DbDashboard,
-            Databases(SetCategory(DbDashboard)),
-          ),
-          renderTab("Query", state.activeCategory == DbQuery, Databases(SetCategory(DbQuery))),
-          renderTab("Schema", state.activeCategory == DbSchema, Databases(SetCategory(DbSchema))),
-          renderTab("Drift", state.activeCategory == DbDrift, Databases(SetCategory(DbDrift))),
-          renderTab(
-            "Telemetry",
-            state.activeCategory == DbTelemetry,
-            Databases(SetCategory(DbTelemetry)),
-          ),
-        },
-      ),
-      // Active tab content
-      switch state.activeCategory {
-      | DbDashboard => viewDashboard(state)
-      | DbQuery => viewQuery(state)
-      | DbSchema => viewSchema(state)
-      | DbDrift => viewDrift(state)
-      | DbTelemetry => viewTelemetry(state)
-      },
-    },
-  )
-}
diff --git a/src/components/DebuggingWorkbench.affine b/src/components/DebuggingWorkbench.affine
new file mode 100644
index 00000000..5e8a97b7
--- /dev/null
+++ b/src/components/DebuggingWorkbench.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module DebuggingWorkbench;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/DebuggingWorkbench.res b/src/components/DebuggingWorkbench.res
deleted file mode 100644
index 58b68dc0..00000000
--- a/src/components/DebuggingWorkbench.res
+++ /dev/null
@@ -1,374 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL DebuggingWorkbench — time-travel debugging, state inspection, watch
-/// expressions, and console output for the TEA model.
-/// Inspector clade panel for deep debugging workflows.
-///
-/// Four tabs: Time Travel (snapshot slider), State Inspector (model tree),
-/// Watch Expressions (live evaluation), and Console (log output).
-
-open Model
-open Msg
-open Tea.Html
-
-// =========================================================================
-// Helpers
-// =========================================================================
-
-/// Tab bar rendering.
-let renderTabs = (active: debuggingWorkbenchTab): Tea_Vdom.t<msg> => {
-  let tabs = DebuggingWorkbenchEngine.allTabs
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 px-4")},
-    tabs
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-3 py-2 text-sm font-medium transition-colors rounded-t ${isActive
-                ? "bg-gray-800 text-cyan-400 border-b-2 border-cyan-400"
-                : "text-gray-500 hover:text-gray-300 hover:bg-gray-900 cursor-pointer"}`,
-          ),
-          Events.onClick(DebuggingWorkbench(SetDwTab(tab))),
-        },
-        list{text(DebuggingWorkbenchEngine.tabLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-// =========================================================================
-// Tab content views
-// =========================================================================
-
-/// Time Travel tab: snapshot slider with step controls and snapshot list.
-let renderTimeTravelTab = (state: debuggingWorkbenchState): Tea_Vdom.t<msg> => {
-  let tt = state.timeTravel
-  let count = DebuggingWorkbenchEngine.snapshotCount(tt)
-  div(
-    list{Attrs.class_("flex flex-col gap-4 p-4")},
-    list{
-      // Controls
-      div(
-        list{Attrs.class_("flex items-center gap-3")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                `px-3 py-1.5 text-xs rounded font-medium ${if (
-                    DebuggingWorkbenchEngine.canGoBack(tt)
-                  ) {
-                    "bg-cyan-700 text-white hover:bg-cyan-600 cursor-pointer"
-                  } else {
-                    "bg-gray-700 text-gray-500 cursor-not-allowed"
-                  }}`,
-              ),
-              Events.onClick(DebuggingWorkbench(DwStepBack)),
-              KeyboardNav.onActivate(DebuggingWorkbench(DwStepBack)),
-              Attrs.disabled(!DebuggingWorkbenchEngine.canGoBack(tt)),
-            },
-            list{text("Step Back")},
-          ),
-          div(
-            list{Attrs.class_("text-sm text-gray-400 flex-1 text-center")},
-            list{
-              text(
-                if count > 0 {
-                  `Snapshot ${Int.toString(tt.currentIndex + 1)} of ${Int.toString(count)}`
-                } else {
-                  "No snapshots captured"
-                },
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_(
-                `px-3 py-1.5 text-xs rounded font-medium ${if (
-                    DebuggingWorkbenchEngine.canGoForward(tt)
-                  ) {
-                    "bg-cyan-700 text-white hover:bg-cyan-600 cursor-pointer"
-                  } else {
-                    "bg-gray-700 text-gray-500 cursor-not-allowed"
-                  }}`,
-              ),
-              Events.onClick(DebuggingWorkbench(DwStepForward)),
-              KeyboardNav.onActivate(DebuggingWorkbench(DwStepForward)),
-              Attrs.disabled(!DebuggingWorkbenchEngine.canGoForward(tt)),
-            },
-            list{text("Step Forward")},
-          ),
-        },
-      ),
-      // Time-travelling indicator
-      if tt.isTimeTravelling {
-        div(
-          list{
-            Attrs.class_(
-              "flex items-center gap-2 bg-amber-900/30 border border-amber-700 rounded p-2",
-            ),
-          },
-          list{
-            div(list{Attrs.class_("w-2.5 h-2.5 bg-amber-400 rounded-full animate-pulse")}, list{}),
-            span(
-              list{Attrs.class_("text-xs text-amber-300")},
-              list{text("Time-travelling — state is read-only")},
-            ),
-          },
-        )
-      } else {
-        noNode
-      },
-      // Snapshot list
-      if count > 0 {
-        div(
-          list{Attrs.class_("flex flex-col gap-1 max-h-64 overflow-y-auto")},
-          tt.snapshots
-          ->Array.mapWithIndex((snap, idx) => {
-            let isCurrent = idx === tt.currentIndex
-            let bgCls = isCurrent ? "bg-cyan-900/30 border-cyan-700" : "bg-gray-800 border-gray-700"
-            div(
-              list{
-                Attrs.class_(
-                  `flex items-center gap-2 p-2 rounded border cursor-pointer hover:bg-gray-750 ${bgCls}`,
-                ),
-                Events.onClick(DebuggingWorkbench(DwGoToSnapshot(idx))),
-              },
-              list{
-                span(
-                  list{Attrs.class_("text-xs text-gray-500 w-8 text-right")},
-                  list{text(`#${Int.toString(idx + 1)}`)},
-                ),
-                span(list{Attrs.class_("text-sm text-gray-300 flex-1")}, list{text(snap.label)}),
-                span(
-                  list{Attrs.class_("text-xs text-gray-600 font-mono")},
-                  list{text(Float.toFixed(snap.timestamp, ~digits=1))},
-                ),
-              },
-            )
-          })
-          ->List.fromArray,
-        )
-      } else {
-        div(
-          list{Attrs.class_("bg-gray-800 rounded p-4 h-32 flex items-center justify-center")},
-          list{
-            span(
-              list{Attrs.class_("text-gray-600 text-sm")},
-              list{text("Click \"Capture Snapshot\" to begin time-travel debugging.")},
-            ),
-          },
-        )
-      },
-      // Capture button
-      button(
-        list{
-          Attrs.class_(
-            "px-3 py-1.5 text-xs bg-emerald-700 text-white rounded hover:bg-emerald-600 cursor-pointer font-medium self-end",
-          ),
-          Events.onClick(DebuggingWorkbench(DwCaptureSnapshot)),
-          KeyboardNav.onActivate(DebuggingWorkbench(DwCaptureSnapshot)),
-        },
-        list{text("Capture Snapshot")},
-      ),
-    },
-  )
-}
-
-/// State Inspector tab: JSON tree view of the current model state.
-let renderStateInspectorTab = (state: debuggingWorkbenchState): Tea_Vdom.t<msg> => {
-  switch state.selectedSnapshot {
-  | Some(snapshotId) => {
-      let snap = state.timeTravel.snapshots->Array.find(s => s.id === snapshotId)
-      switch snap {
-      | Some(s) =>
-        div(
-          list{Attrs.class_("p-4")},
-          list{
-            div(
-              list{Attrs.class_("text-sm text-gray-400 mb-2")},
-              list{text(`Inspecting: ${s.label}`)},
-            ),
-            pre(
-              list{
-                Attrs.class_(
-                  "bg-gray-800 rounded p-4 text-xs font-mono text-gray-300 max-h-96 overflow-auto border border-gray-700",
-                ),
-              },
-              list{text(s.modelJson)},
-            ),
-          },
-        )
-      | None =>
-        div(
-          list{Attrs.class_("p-4 text-gray-500 text-sm italic")},
-          list{text("Snapshot not found.")},
-        )
-      }
-    }
-  | None =>
-    div(
-      list{Attrs.class_("p-4 text-gray-500 text-sm italic")},
-      list{text("Select a snapshot to inspect its state tree.")},
-    )
-  }
-}
-
-/// Watch Expressions tab: live expression evaluation display.
-let renderWatchExpressionsTab = (state: debuggingWorkbenchState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-col gap-2 p-4")},
-    list{
-      if Array.length(state.watches) === 0 {
-        div(
-          list{Attrs.class_("text-gray-500 text-sm italic")},
-          list{text("No watch expressions. Add one below.")},
-        )
-      } else {
-        div(
-          list{Attrs.class_("flex flex-col gap-2 max-h-64 overflow-y-auto")},
-          state.watches
-          ->Array.map(watch => {
-            div(
-              list{Attrs.class_("bg-gray-800 rounded p-3 border border-gray-700")},
-              list{
-                div(
-                  list{Attrs.class_("flex items-center justify-between mb-1")},
-                  list{
-                    span(
-                      list{Attrs.class_("text-xs font-mono text-cyan-400")},
-                      list{text(watch.expression)},
-                    ),
-                    button(
-                      list{
-                        Attrs.class_("text-xs text-gray-600 hover:text-red-400 cursor-pointer"),
-                        Events.onClick(DebuggingWorkbench(DwRemoveWatch(watch.id))),
-                      },
-                      list{text("x")},
-                    ),
-                  },
-                ),
-                div(
-                  list{Attrs.class_("text-sm font-mono text-gray-300")},
-                  list{text(watch.currentValue)},
-                ),
-              },
-            )
-          })
-          ->List.fromArray,
-        )
-      },
-      // Add watch button
-      button(
-        list{
-          Attrs.class_(
-            "px-3 py-1.5 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer self-start",
-          ),
-          Events.onClick(DebuggingWorkbench(DwAddWatch)),
-          KeyboardNav.onActivate(DebuggingWorkbench(DwAddWatch)),
-        },
-        list{text("+ Add Watch")},
-      ),
-    },
-  )
-}
-
-/// Console tab: scrollable log output.
-let renderConsoleTab = (state: debuggingWorkbenchState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-col gap-2 p-4")},
-    list{
-      if Array.length(state.consoleLog) === 0 {
-        div(
-          list{Attrs.class_("text-gray-500 text-sm italic")},
-          list{text("Console output is empty.")},
-        )
-      } else {
-        div(
-          list{
-            Attrs.class_(
-              "bg-gray-800 rounded p-4 font-mono text-xs text-gray-300 max-h-96 overflow-auto border border-gray-700",
-            ),
-          },
-          state.consoleLog
-          ->Array.map(line => {
-            div(list{Attrs.class_("py-0.5")}, list{text(line)})
-          })
-          ->List.fromArray,
-        )
-      },
-      // Clear console button
-      if Array.length(state.consoleLog) > 0 {
-        button(
-          list{
-            Attrs.class_(
-              "px-3 py-1.5 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer self-end",
-            ),
-            Events.onClick(DebuggingWorkbench(DwClearConsole)),
-            KeyboardNav.onActivate(DebuggingWorkbench(DwClearConsole)),
-          },
-          list{text("Clear Console")},
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-// =========================================================================
-// Main view
-// =========================================================================
-
-/// Primary view function for the Debugging Workbench panel.
-let view = (state: debuggingWorkbenchState): Tea_Vdom.t<msg> => {
-  let content = switch state.activeTab {
-  | TabTimeTravel => renderTimeTravelTab(state)
-  | TabStateInspector => renderStateInspectorTab(state)
-  | TabWatchExpressions => renderWatchExpressionsTab(state)
-  | TabConsole => renderConsoleTab(state)
-  }
-
-  div(
-    list{Attrs.class_("flex flex-col h-full bg-gray-900 text-gray-100")},
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          h2(
-            list{Attrs.class_("text-lg font-semibold text-cyan-300")},
-            list{text("Debugging Workbench")},
-          ),
-          div(
-            list{Attrs.class_("text-xs text-gray-500")},
-            list{
-              text(
-                `${Int.toString(
-                    DebuggingWorkbenchEngine.snapshotCount(state.timeTravel),
-                  )} snapshots`,
-              ),
-            },
-          ),
-        },
-      ),
-      // Error display
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_("px-4 py-2 bg-red-900/30 text-red-300 text-sm border-b border-red-800"),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      // Tab bar
-      renderTabs(state.activeTab),
-      // Content
-      div(list{Attrs.class_("flex-1 overflow-y-auto")}, list{content}),
-    },
-  )
-}
diff --git a/src/components/DeviceNetworkDesigner.affine b/src/components/DeviceNetworkDesigner.affine
new file mode 100644
index 00000000..bfc81c27
--- /dev/null
+++ b/src/components/DeviceNetworkDesigner.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module DeviceNetworkDesigner;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/DeviceNetworkDesigner.res b/src/components/DeviceNetworkDesigner.res
deleted file mode 100644
index e8794ab1..00000000
--- a/src/components/DeviceNetworkDesigner.res
+++ /dev/null
@@ -1,444 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Device Network Designer Component — wire devices, configure security
-/// levels, and validate network topology. Displays device palette, canvas
-/// placeholder, wiring mode toggle, and validation results panel.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Main view function for the Device Network Designer panel.
-let view = (state: deviceNetworkDesignerState): Tea_Vdom.t<msg> => {
-  let deviceCount = Array.length(state.devices)
-  let connectionCount = Array.length(state.connections)
-
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Device Network Designer — Network Topology Editor"),
-    },
-    list{
-      // Header row
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-bold text-blue-300")},
-                list{text("Device Network Designer")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-400")},
-                list{
-                  text(
-                    Int.toString(deviceCount) ++
-                    " devices, " ++
-                    Int.toString(connectionCount) ++ " connections",
-                  ),
-                },
-              ),
-              span(
-                list{
-                  Attrs.class_(
-                    "text-xs px-2 py-0.5 rounded " ++ if state.wiringMode {
-                      "bg-blue-700 text-blue-100"
-                    } else {
-                      "bg-gray-800 text-gray-400"
-                    },
-                  ),
-                },
-                list{
-                  text(
-                    if state.wiringMode {
-                      "Wiring ON"
-                    } else {
-                      "Wiring OFF"
-                    },
-                  ),
-                },
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_("px-3 py-1 text-xs bg-blue-800 hover:bg-blue-700 text-white rounded"),
-              Events.onClick(DeviceNetworkDesigner(DndStarted)),
-              KeyboardNav.onActivate(DeviceNetworkDesigner(DndStarted)),
-            },
-            list{text("Validate")},
-          ),
-        },
-      ),
-      // Tab bar
-      div(
-        list{Attrs.class_("flex gap-1 px-4 py-2 border-b border-gray-800")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Designer {
-                  "bg-blue-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(DeviceNetworkDesigner(SetDndCategory(Designer))),
-            },
-            list{text("Designer")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Devices {
-                  "bg-blue-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(DeviceNetworkDesigner(SetDndCategory(Devices))),
-            },
-            list{text("Devices")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Wiring {
-                  "bg-blue-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(DeviceNetworkDesigner(SetDndCategory(Wiring))),
-            },
-            list{text("Wiring")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Validation {
-                  "bg-blue-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(DeviceNetworkDesigner(SetDndCategory(Validation))),
-            },
-            list{text("Validation")},
-          ),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 px-3 py-2 bg-red-900/50 border border-red-700 rounded text-sm text-red-200 flex justify-between items-center",
-            ),
-          },
-          list{
-            text(err),
-            button(
-              list{
-                Attrs.class_("text-red-400 hover:text-red-200 text-xs ml-2"),
-                Events.onClick(DeviceNetworkDesigner(DismissDndError)),
-                KeyboardNav.onActivate(DeviceNetworkDesigner(DismissDndError)),
-              },
-              list{text("Dismiss")},
-            ),
-          },
-        )
-      | None => Tea_Html.noNode
-      },
-      // Content area
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto px-4 py-4")},
-        list{
-          switch state.activeTab {
-          | Designer =>
-            div(
-              list{Attrs.class_("space-y-3")},
-              list{
-                // Device palette
-                div(
-                  list{Attrs.class_("flex gap-2 flex-wrap mb-3")},
-                  ["Router", "Server", "Camera", "Firewall", "Switch", "Sensor"]
-                  ->Array.map(dt =>
-                    span(
-                      list{
-                        Attrs.class_(
-                          "px-3 py-1.5 text-xs bg-gray-800 border border-gray-700 text-gray-300 rounded cursor-pointer hover:border-blue-600",
-                        ),
-                      },
-                      list{text(dt)},
-                    )
-                  )
-                  ->List.fromArray,
-                ),
-                // Canvas placeholder
-                div(
-                  list{
-                    Attrs.class_(
-                      "w-full h-48 bg-gray-900 border border-gray-800 rounded flex items-center justify-center",
-                    ),
-                  },
-                  list{
-                    span(
-                      list{Attrs.class_("text-gray-600 text-sm")},
-                      list{
-                        text(
-                          "Network graph canvas — " ++
-                          Int.toString(deviceCount) ++
-                          " nodes, " ++
-                          Int.toString(connectionCount) ++ " edges",
-                        ),
-                      },
-                    ),
-                  },
-                ),
-              },
-            )
-          | Devices =>
-            div(
-              list{Attrs.class_("space-y-2")},
-              state.devices
-              ->Array.map(d => {
-                let isSelected = state.selectedDevice == Some(d.id)
-                div(
-                  list{
-                    Attrs.class_(
-                      "px-3 py-2 border rounded " ++ if isSelected {
-                        "bg-blue-900/20 border-blue-700"
-                      } else {
-                        "bg-gray-900 border-gray-800"
-                      },
-                    ),
-                  },
-                  list{
-                    div(
-                      list{Attrs.class_("flex items-center justify-between")},
-                      list{
-                        div(
-                          list{Attrs.class_("flex items-center gap-2")},
-                          list{
-                            span(
-                              list{Attrs.class_("text-sm font-bold text-blue-300")},
-                              list{text(d.deviceType)},
-                            ),
-                            span(
-                              list{Attrs.class_("text-xs text-gray-500 font-mono")},
-                              list{text(d.id)},
-                            ),
-                          },
-                        ),
-                        span(
-                          list{
-                            Attrs.class_("px-2 py-0.5 text-xs bg-gray-800 text-gray-300 rounded"),
-                          },
-                          list{text(d.zone ++ " (L" ++ Int.toString(d.securityLevel) ++ ")")},
-                        ),
-                      },
-                    ),
-                    div(
-                      list{Attrs.class_("text-xs text-gray-500 mt-1 font-mono")},
-                      list{
-                        text(
-                          "(" ++
-                          Float.toFixed(d.x, ~digits=0) ++
-                          ", " ++
-                          Float.toFixed(d.y, ~digits=0) ++ ")",
-                        ),
-                      },
-                    ),
-                  },
-                )
-              })
-              ->List.fromArray,
-            )
-          | Wiring =>
-            div(
-              list{Attrs.class_("space-y-1")},
-              list{
-                // Table header
-                div(
-                  list{
-                    Attrs.class_(
-                      "flex gap-2 text-xs text-gray-500 font-mono border-b border-gray-800 pb-1 mb-2",
-                    ),
-                  },
-                  list{
-                    span(list{Attrs.class_("w-20")}, list{text("From")}),
-                    span(list{Attrs.class_("w-20")}, list{text("To")}),
-                    span(list{Attrs.class_("w-16")}, list{text("Protocol")}),
-                    span(list{Attrs.class_("w-16")}, list{text("BW")}),
-                    span(list{Attrs.class_("w-12")}, list{text("Enc")}),
-                  },
-                ),
-                div(
-                  list{Attrs.class_("space-y-1")},
-                  state.connections
-                  ->Array.map(c => {
-                    let isSelected = state.selectedConnection == Some(c.id)
-                    div(
-                      list{
-                        Attrs.class_(
-                          "flex gap-2 text-xs py-1 border-b border-gray-800/30 " ++ if isSelected {
-                            "bg-blue-900/20"
-                          } else {
-                            ""
-                          },
-                        ),
-                      },
-                      list{
-                        span(
-                          list{Attrs.class_("w-20 font-mono text-gray-400 truncate")},
-                          list{text(c.fromDevice)},
-                        ),
-                        span(
-                          list{Attrs.class_("w-20 font-mono text-gray-400 truncate")},
-                          list{text(c.toDevice)},
-                        ),
-                        span(list{Attrs.class_("w-16 text-blue-400")}, list{text(c.protocol)}),
-                        span(list{Attrs.class_("w-16 text-gray-500")}, list{text(c.bandwidth)}),
-                        span(
-                          list{
-                            Attrs.class_(
-                              "w-12 " ++ if c.encrypted {
-                                "text-green-400"
-                              } else {
-                                "text-red-400"
-                              },
-                            ),
-                          },
-                          list{
-                            text(
-                              if c.encrypted {
-                                "Yes"
-                              } else {
-                                "No"
-                              },
-                            ),
-                          },
-                        ),
-                      },
-                    )
-                  })
-                  ->List.fromArray,
-                ),
-              },
-            )
-          | Validation =>
-            switch state.validation {
-            | Some(v) =>
-              div(
-                list{Attrs.class_("space-y-3")},
-                list{
-                  // Validation summary
-                  div(
-                    list{Attrs.class_("flex items-center gap-3 mb-3")},
-                    list{
-                      span(
-                        list{
-                          Attrs.class_(
-                            "px-3 py-1 text-sm rounded font-bold " ++ if v.valid {
-                              "bg-green-700 text-green-100"
-                            } else {
-                              "bg-red-700 text-red-100"
-                            },
-                          ),
-                        },
-                        list{
-                          text(
-                            if v.valid {
-                              "VALID"
-                            } else {
-                              "INVALID"
-                            },
-                          ),
-                        },
-                      ),
-                      span(
-                        list{Attrs.class_("text-xs text-gray-400")},
-                        list{
-                          text(
-                            Int.toString(v.deviceCount) ++
-                            " devices, " ++
-                            Int.toString(v.connectionCount) ++ " connections",
-                          ),
-                        },
-                      ),
-                    },
-                  ),
-                  // Errors
-                  if Array.length(v.errors) > 0 {
-                    div(
-                      list{Attrs.class_("space-y-1")},
-                      list{
-                        h3(list{Attrs.class_("text-sm text-red-400 mb-1")}, list{text("Errors")}),
-                        div(
-                          list{},
-                          v.errors
-                          ->Array.map(e =>
-                            div(
-                              list{
-                                Attrs.class_(
-                                  "px-2 py-1 text-xs text-red-200 bg-red-900/30 rounded mb-1",
-                                ),
-                              },
-                              list{text(e)},
-                            )
-                          )
-                          ->List.fromArray,
-                        ),
-                      },
-                    )
-                  } else {
-                    Tea_Html.noNode
-                  },
-                  // Warnings
-                  if Array.length(v.warnings) > 0 {
-                    div(
-                      list{Attrs.class_("space-y-1")},
-                      list{
-                        h3(
-                          list{Attrs.class_("text-sm text-yellow-400 mb-1")},
-                          list{text("Warnings")},
-                        ),
-                        div(
-                          list{},
-                          v.warnings
-                          ->Array.map(w =>
-                            div(
-                              list{
-                                Attrs.class_(
-                                  "px-2 py-1 text-xs text-yellow-200 bg-yellow-900/30 rounded mb-1",
-                                ),
-                              },
-                              list{text(w)},
-                            )
-                          )
-                          ->List.fromArray,
-                        ),
-                      },
-                    )
-                  } else {
-                    Tea_Html.noNode
-                  },
-                },
-              )
-            | None =>
-              div(
-                list{Attrs.class_("text-center text-gray-500 py-8")},
-                list{text("Run validation to check the network topology for errors.")},
-              )
-            }
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/DlcWorkshop.affine b/src/components/DlcWorkshop.affine
new file mode 100644
index 00000000..210fc820
--- /dev/null
+++ b/src/components/DlcWorkshop.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module DlcWorkshop;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/DlcWorkshop.res b/src/components/DlcWorkshop.res
deleted file mode 100644
index 60fd0d96..00000000
--- a/src/components/DlcWorkshop.res
+++ /dev/null
@@ -1,588 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL DLC Workshop Component — view for creating, testing, and
-/// packaging IDApTIK DLC puzzle packs. Puzzle browser, VM instruction
-/// composer, solution test runner, asset browser, and packaging.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a category tab button.
-let renderTab = (label: string, cat: dlcWorkshopCategory, active: dlcWorkshopCategory): Tea_Vdom.t<
-  msg,
-> => {
-  let isActive = cat === active
-  let cls = isActive
-    ? "px-3 py-1.5 text-xs font-medium bg-gray-700 text-white rounded"
-    : "px-3 py-1.5 text-xs text-gray-400 hover:text-gray-200 hover:bg-gray-800 rounded cursor-pointer"
-  button(
-    list{Attrs.class_(cls), Events.onClick(DlcWorkshop(SetWorkshopCategory(cat)))},
-    list{text(label)},
-  )
-}
-
-/// Render a puzzle card.
-let renderPuzzleCard = (puzzle: dlcPuzzle, isSelected: bool): Tea_Vdom.t<msg> => {
-  let borderCls = if isSelected {
-    "border-cyan-400"
-  } else {
-    "border-gray-700"
-  }
-  let diffCls = DlcWorkshopEngine.difficultyColour(puzzle.difficulty)
-  let testCls = DlcWorkshopEngine.testStatusColour(puzzle.testStatus)
-  div(
-    list{
-      Attrs.class_(
-        `p-3 bg-gray-800 rounded border ${borderCls} cursor-pointer hover:border-gray-500`,
-      ),
-      Events.onClick(DlcWorkshop(SelectPuzzle(puzzle.id))),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-1")},
-        list{
-          span(list{Attrs.class_("text-sm font-medium text-gray-100")}, list{text(puzzle.name)}),
-          span(
-            list{Attrs.class_(`text-xs ${diffCls}`)},
-            list{text(DlcWorkshopEngine.difficultyLabel(puzzle.difficulty))},
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("text-xs text-gray-400 mb-2 line-clamp-2")},
-        list{text(puzzle.description)},
-      ),
-      div(
-        list{Attrs.class_("flex items-center gap-3 text-xs")},
-        list{
-          span(
-            list{Attrs.class_("text-gray-500")},
-            list{text(`${Int.toString(Array.length(puzzle.instructions))} instrs`)},
-          ),
-          span(
-            list{Attrs.class_("text-gray-500")},
-            list{text(`${Int.toString(puzzle.optimalSteps)} optimal`)},
-          ),
-          span(
-            list{Attrs.class_(testCls)},
-            list{text(DlcWorkshopEngine.testStatusLabel(puzzle.testStatus))},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render puzzles list view.
-let renderPuzzles = (state: dlcWorkshopState): Tea_Vdom.t<msg> => {
-  let filtered = DlcWorkshopEngine.filterPuzzles(
-    state.puzzles,
-    state.filterText,
-    state.filterDifficulty,
-  )
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      // Filter bar
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          input(
-            list{
-              Attrs.class_(
-                "flex-1 px-3 py-1.5 bg-gray-800 border border-gray-700 rounded text-sm text-gray-200 placeholder-gray-500",
-              ),
-              Attrs.placeholder("Filter puzzles..."),
-              Attrs.value(state.filterText),
-              Events.onInput(text => DlcWorkshop(SetDlcFilter(text))),
-            },
-            list{},
-          ),
-          // Difficulty filter chips
-          button(
-            list{
-              Attrs.class_(
-                if state.filterDifficulty === None {
-                  "px-2 py-1 text-xs bg-gray-600 text-white rounded"
-                } else {
-                  "px-2 py-1 text-xs bg-gray-700 text-gray-400 rounded cursor-pointer"
-                },
-              ),
-              Events.onClick(DlcWorkshop(SetDifficultyFilter(None))),
-            },
-            list{text("All")},
-          ),
-          ...DlcWorkshopEngine.allDifficulties
-          ->Array.map(diff => {
-            let isActive = state.filterDifficulty === Some(diff)
-            let cls = if isActive {
-              `px-2 py-1 text-xs bg-gray-600 ${DlcWorkshopEngine.difficultyColour(diff)} rounded`
-            } else {
-              "px-2 py-1 text-xs bg-gray-800 text-gray-500 rounded cursor-pointer hover:text-gray-300"
-            }
-            button(
-              list{Attrs.class_(cls), Events.onClick(DlcWorkshop(SetDifficultyFilter(Some(diff))))},
-              list{text(DlcWorkshopEngine.difficultyLabel(diff))},
-            )
-          })
-          ->List.fromArray,
-        },
-      ),
-      // Stats
-      div(
-        list{Attrs.class_("flex items-center gap-4 text-xs text-gray-400")},
-        list{
-          span(list{}, list{text(`${Int.toString(Array.length(filtered))} puzzles`)}),
-          span(
-            list{},
-            list{
-              text(`${Int.toString(DlcWorkshopEngine.passedTests(state.puzzles))} tests passed`),
-            },
-          ),
-        },
-      ),
-      // Puzzle cards
-      if Array.length(filtered) === 0 {
-        div(
-          list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-          list{
-            text("No puzzles found. "),
-            button(
-              list{
-                Attrs.class_("text-cyan-400 hover:text-cyan-300 underline cursor-pointer"),
-                Events.onClick(DlcWorkshop(LoadPuzzles)),
-                KeyboardNav.onActivate(DlcWorkshop(LoadPuzzles)),
-              },
-              list{text("Load puzzles")},
-            ),
-          },
-        )
-      } else {
-        div(
-          list{Attrs.class_("grid grid-cols-2 lg:grid-cols-3 gap-3")},
-          filtered
-          ->Array.map(p => renderPuzzleCard(p, state.selectedPuzzleId === Some(p.id)))
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render the VM instruction composer.
-let renderComposer = (state: dlcWorkshopState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between")},
-        list{
-          span(list{Attrs.class_("text-sm text-gray-200")}, list{text("VM Instruction Composer")}),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-2 py-1 text-xs bg-emerald-700 text-white rounded hover:bg-emerald-600 cursor-pointer",
-                  ),
-                  Events.onClick(DlcWorkshop(AddInstruction)),
-                  KeyboardNav.onActivate(DlcWorkshop(AddInstruction)),
-                },
-                list{text("Add Instruction")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-2 py-1 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer",
-                  ),
-                  Events.onClick(DlcWorkshop(ClearComposer)),
-                  KeyboardNav.onActivate(DlcWorkshop(ClearComposer)),
-                },
-                list{text("Clear")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Instructions list
-      if Array.length(state.composerInstructions) === 0 {
-        div(
-          list{
-            Attrs.class_(
-              "text-center text-gray-500 text-sm py-8 border border-dashed border-gray-700 rounded",
-            ),
-          },
-          list{text("No instructions — click 'Add Instruction' to start composing a puzzle")},
-        )
-      } else {
-        div(
-          list{Attrs.class_("space-y-1 font-mono text-xs")},
-          state.composerInstructions
-          ->Array.map(instr =>
-            div(
-              list{Attrs.class_("flex items-center gap-3 p-2 bg-gray-800 rounded")},
-              list{
-                span(
-                  list{Attrs.class_("text-gray-500 w-6")},
-                  list{text(Int.toString(instr.index))},
-                ),
-                span(list{Attrs.class_("text-cyan-400 w-16")}, list{text(instr.opcode)}),
-                switch instr.operand {
-                | Some(op) =>
-                  span(list{Attrs.class_("text-amber-400 w-8")}, list{text(Int.toString(op))})
-                | None => span(list{Attrs.class_("text-gray-600 w-8")}, list{text("-")})
-                },
-                if instr.comment !== "" {
-                  span(list{Attrs.class_("text-gray-500 italic")}, list{text(`; ${instr.comment}`)})
-                } else {
-                  noNode
-                },
-                button(
-                  list{
-                    Attrs.class_("ml-auto text-red-400 hover:text-red-300 cursor-pointer"),
-                    Events.onClick(DlcWorkshop(RemoveInstruction(instr.index))),
-                  },
-                  list{text("x")},
-                ),
-              },
-            )
-          )
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render testing view.
-let renderTesting = (state: dlcWorkshopState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-xs bg-emerald-700 text-white rounded hover:bg-emerald-600 cursor-pointer",
-              ),
-              Events.onClick(DlcWorkshop(RunAllTests)),
-              KeyboardNav.onActivate(DlcWorkshop(RunAllTests)),
-            },
-            list{text("Run All Tests")},
-          ),
-          span(
-            list{Attrs.class_("text-xs text-gray-400")},
-            list{
-              text(
-                `${Int.toString(DlcWorkshopEngine.passedTests(state.puzzles))}/${Int.toString(
-                    Array.length(state.puzzles),
-                  )} passed`,
-              ),
-            },
-          ),
-        },
-      ),
-      // Test results per puzzle
-      div(
-        list{Attrs.class_("space-y-1")},
-        state.puzzles
-        ->Array.map(puzzle => {
-          let testCls = DlcWorkshopEngine.testStatusColour(puzzle.testStatus)
-          div(
-            list{Attrs.class_("flex items-center gap-3 p-2 bg-gray-800 rounded text-xs")},
-            list{
-              span(list{Attrs.class_("text-gray-200 w-40 truncate")}, list{text(puzzle.name)}),
-              span(
-                list{Attrs.class_(testCls)},
-                list{text(DlcWorkshopEngine.testStatusLabel(puzzle.testStatus))},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "ml-auto px-2 py-0.5 bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer",
-                  ),
-                  Events.onClick(DlcWorkshop(RunPuzzleTest(puzzle.id))),
-                },
-                list{text("Run")},
-              ),
-            },
-          )
-        })
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-/// Render assets view.
-let renderAssets = (state: dlcWorkshopState): Tea_Vdom.t<msg> => {
-  if Array.length(state.assets) === 0 {
-    div(
-      list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-      list{
-        text("No assets loaded. "),
-        button(
-          list{
-            Attrs.class_("text-cyan-400 hover:text-cyan-300 underline cursor-pointer"),
-            Events.onClick(DlcWorkshop(BrowseDlcAssets)),
-            KeyboardNav.onActivate(DlcWorkshop(BrowseDlcAssets)),
-          },
-          list{text("Browse assets")},
-        ),
-      },
-    )
-  } else {
-    div(
-      list{Attrs.class_("grid grid-cols-3 lg:grid-cols-4 gap-2")},
-      state.assets
-      ->Array.map(asset =>
-        div(
-          list{Attrs.class_("p-2 bg-gray-800 rounded border border-gray-700")},
-          list{
-            div(
-              list{Attrs.class_("text-xs text-gray-100 font-medium truncate")},
-              list{text(asset.name)},
-            ),
-            div(list{Attrs.class_("text-xs text-gray-500")}, list{text(asset.assetType)}),
-            div(
-              list{Attrs.class_("text-xs text-gray-600")},
-              list{text(`${Int.toString(asset.sizeBytes / 1024)}KB`)},
-            ),
-          },
-        )
-      )
-      ->List.fromArray,
-    )
-  }
-}
-
-/// Render packaging view.
-let renderPackaging = (state: dlcWorkshopState): Tea_Vdom.t<msg> => {
-  let meta = state.packMeta
-  div(
-    list{Attrs.class_("space-y-4")},
-    list{
-      // Pack metadata
-      div(
-        list{Attrs.class_("p-4 bg-gray-800 rounded border border-gray-700")},
-        list{
-          div(
-            list{Attrs.class_("text-sm font-medium text-gray-200 mb-3")},
-            list{text("Pack Metadata")},
-          ),
-          div(
-            list{Attrs.class_("grid grid-cols-2 gap-3 text-xs")},
-            list{
-              div(
-                list{},
-                list{
-                  div(list{Attrs.class_("text-gray-500")}, list{text("Name")}),
-                  div(list{Attrs.class_("text-gray-200")}, list{text(meta.name)}),
-                },
-              ),
-              div(
-                list{},
-                list{
-                  div(list{Attrs.class_("text-gray-500")}, list{text("Version")}),
-                  div(list{Attrs.class_("text-gray-200")}, list{text(meta.version)}),
-                },
-              ),
-              div(
-                list{},
-                list{
-                  div(list{Attrs.class_("text-gray-500")}, list{text("Author")}),
-                  div(list{Attrs.class_("text-gray-200")}, list{text(meta.author)}),
-                },
-              ),
-              div(
-                list{},
-                list{
-                  div(list{Attrs.class_("text-gray-500")}, list{text("Puzzles")}),
-                  div(
-                    list{Attrs.class_("text-gray-200")},
-                    list{text(Int.toString(Array.length(state.puzzles)))},
-                  ),
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Package button
-      div(
-        list{Attrs.class_("flex items-center gap-3")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-4 py-2 text-sm bg-purple-700 text-white rounded hover:bg-purple-600 cursor-pointer",
-              ),
-              Events.onClick(DlcWorkshop(PackageDlc)),
-              KeyboardNav.onActivate(DlcWorkshop(PackageDlc)),
-            },
-            list{text("Package DLC")},
-          ),
-          span(
-            list{Attrs.class_("text-xs text-gray-400")},
-            list{
-              text(
-                `${Int.toString(Array.length(state.puzzles))} puzzles, ${Int.toString(
-                    Array.length(state.assets),
-                  )} assets`,
-              ),
-            },
-          ),
-        },
-      ),
-      // Chains
-      if Array.length(state.chains) > 0 {
-        div(
-          list{Attrs.class_("space-y-2")},
-          list{
-            div(list{Attrs.class_("text-sm text-gray-300")}, list{text("Puzzle Chains")}),
-            ...state.chains
-            ->Array.map(chain =>
-              div(
-                list{Attrs.class_("p-2 bg-gray-800 rounded text-xs")},
-                list{
-                  div(
-                    list{Attrs.class_("flex items-center justify-between")},
-                    list{
-                      span(list{Attrs.class_("text-gray-200")}, list{text(chain.name)}),
-                      span(
-                        list{Attrs.class_("text-gray-500")},
-                        list{text(`${Int.toString(Array.length(chain.puzzleIds))} puzzles`)},
-                      ),
-                    },
-                  ),
-                },
-              )
-            )
-            ->List.fromArray,
-          },
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-/// Main view function.
-let view = (state: dlcWorkshopState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("DLC Workshop panel"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              span(
-                list{Attrs.class_("text-lg font-semibold text-gray-100")},
-                list{text("DLC Workshop")},
-              ),
-              span(list{Attrs.class_("text-xs text-gray-500")}, list{text(state.packMeta.name)}),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-2 py-1 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer",
-                  ),
-                  Events.onClick(DlcWorkshop(ImportPuzzle)),
-                  KeyboardNav.onActivate(DlcWorkshop(ImportPuzzle)),
-                },
-                list{text("Import")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-2 py-1 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer",
-                  ),
-                  Events.onClick(DlcWorkshop(ExportPuzzle)),
-                  KeyboardNav.onActivate(DlcWorkshop(ExportPuzzle)),
-                },
-                list{text("Export")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Category tabs
-      div(
-        list{Attrs.class_("flex items-center gap-1 px-4 py-2 border-b border-gray-800")},
-        list{
-          renderTab("Puzzles", WorkshopPuzzles, state.activeCategory),
-          renderTab("Composer", WorkshopComposer, state.activeCategory),
-          renderTab("Testing", WorkshopTesting, state.activeCategory),
-          renderTab("Assets", WorkshopAssets, state.activeCategory),
-          renderTab("Packaging", WorkshopPackaging, state.activeCategory),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 p-2 bg-red-900/50 border border-red-700 rounded text-xs text-red-300",
-            ),
-          },
-          list{
-            div(
-              list{Attrs.class_("flex items-center justify-between")},
-              list{
-                text(err),
-                button(
-                  list{
-                    Attrs.class_("text-red-400 hover:text-red-200 cursor-pointer"),
-                    Events.onClick(DlcWorkshop(DismissWorkshopError)),
-                    KeyboardNav.onActivate(DlcWorkshop(DismissWorkshopError)),
-                  },
-                  list{text("Dismiss")},
-                ),
-              },
-            ),
-          },
-        )
-      | None => noNode
-      },
-      // Loading
-      if state.loading {
-        div(
-          list{Attrs.class_("px-4 py-2 text-xs text-cyan-400 animate-pulse")},
-          list{text("Loading DLC data...")},
-        )
-      } else {
-        noNode
-      },
-      // Main content
-      div(
-        list{Attrs.class_("flex-1 overflow-auto p-4")},
-        list{
-          switch state.activeCategory {
-          | WorkshopPuzzles => renderPuzzles(state)
-          | WorkshopComposer => renderComposer(state)
-          | WorkshopTesting => renderTesting(state)
-          | WorkshopAssets => renderAssets(state)
-          | WorkshopPackaging => renderPackaging(state)
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/Echidna.affine b/src/components/Echidna.affine
new file mode 100644
index 00000000..44b8962e
--- /dev/null
+++ b/src/components/Echidna.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Echidna;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Echidna.res b/src/components/Echidna.res
deleted file mode 100644
index 03eacf58..00000000
--- a/src/components/Echidna.res
+++ /dev/null
@@ -1,219 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL ECHIDNA Component — multi-solver theorem prover dispatch panel.
-///
-/// Two tabs:
-///   - Proof Workbench: interactive proof sessions, tactic suggestions, dispatch
-///   - Enterprise Model: MOF/OCL/ArchiMate model constraint checking
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a trust level badge.
-let trustBadge = (level: echidnaTrustLevel): Tea_Vdom.t<msg> => {
-  let (color, label) = switch level {
-  | TrustLevel1 => ("text-red-400", "L1")
-  | TrustLevel2 => ("text-yellow-400", "L2")
-  | TrustLevel3 => ("text-blue-400", "L3")
-  | TrustLevel4 => ("text-green-400", "L4")
-  | TrustLevel5 => ("text-green-300 font-bold", "L5")
-  }
-  span(list{Attrs.class_("text-xs font-mono " ++ color)}, list{text(label)})
-}
-
-/// Main view function for the ECHIDNA panel.
-let view = (state: echidnaState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("ECHIDNA — Multi-Solver Theorem Prover"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(list{Attrs.class_("text-lg font-bold text-purple-300")}, list{text("ECHIDNA")}),
-              span(
-                list{
-                  Attrs.class_(
-                    "text-xs " ++ if state.connected {
-                      "text-green-400"
-                    } else {
-                      "text-red-400"
-                    },
-                  ),
-                },
-                list{
-                  text(
-                    if state.connected {
-                      "Connected"
-                    } else {
-                      "Disconnected"
-                    },
-                  ),
-                },
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-xs rounded " ++ if state.activeTab == EchidnaProofTab {
-                      "bg-purple-700 text-white"
-                    } else {
-                      "bg-gray-800 text-gray-400"
-                    },
-                  ),
-                  Events.onClick(Echidna(SelectEchidnaTab(EchidnaProofTab))),
-                },
-                list{text("Proof Workbench")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-xs rounded " ++ if state.activeTab == EchidnaEnterpriseTab {
-                      "bg-purple-700 text-white"
-                    } else {
-                      "bg-gray-800 text-gray-400"
-                    },
-                  ),
-                  Events.onClick(Echidna(SelectEchidnaTab(EchidnaEnterpriseTab))),
-                },
-                list{text("Enterprise Model")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Prover catalog summary
-      div(
-        list{Attrs.class_("flex gap-4 px-4 py-2 text-xs text-gray-400 border-b border-gray-800")},
-        list{
-          span(list{}, list{text("Provers: " ++ Int.toString(Array.length(state.provers)))}),
-          switch state.version {
-          | Some(v) => span(list{}, list{text("Version: " ++ v)})
-          | None => Tea_Html.noNode
-          },
-          switch state.lastProofResult {
-          | Some(r) =>
-            span(
-              list{Attrs.class_("flex items-center gap-1")},
-              list{
-                text("Last: "),
-                trustBadge(r.trustLevel),
-                text(
-                  if r.verified {
-                    " verified"
-                  } else {
-                    " unverified"
-                  },
-                ),
-              },
-            )
-          | None => span(list{}, list{text("No proofs yet")})
-          },
-        },
-      ),
-      // Error banner
-      switch state.proofError {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 px-3 py-2 bg-red-900/50 border border-red-700 rounded text-sm text-red-200",
-            ),
-          },
-          list{text(err)},
-        )
-      | None => Tea_Html.noNode
-      },
-      // Content placeholder
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto px-4 py-4")},
-        list{
-          switch state.activeTab {
-          | EchidnaProofTab =>
-            div(
-              list{},
-              list{
-                // Proof input area
-                div(
-                  list{Attrs.class_("mb-4")},
-                  list{
-                    label(
-                      list{Attrs.class_("text-xs text-gray-400 block mb-1")},
-                      list{text("Proof Obligation")},
-                    ),
-                    textarea(
-                      list{
-                        Attrs.class_(
-                          "w-full h-40 bg-gray-900 border border-gray-700 rounded p-2 text-sm text-gray-200 font-mono",
-                        ),
-                        Attrs.value(state.proofInput),
-                        Attrs.placeholder("Enter proof obligation..."),
-                      },
-                      list{},
-                    ),
-                  },
-                ),
-                // Tactic suggestions
-                if Array.length(state.tacticSuggestions) > 0 {
-                  div(
-                    list{Attrs.class_("mb-4")},
-                    list{
-                      h3(
-                        list{Attrs.class_("text-sm text-gray-300 mb-2")},
-                        list{text("Tactic Suggestions")},
-                      ),
-                      div(
-                        list{Attrs.class_("flex flex-wrap gap-2")},
-                        state.tacticSuggestions
-                        ->Array.map(s =>
-                          span(
-                            list{
-                              Attrs.class_(
-                                "px-2 py-1 text-xs bg-purple-900/50 border border-purple-700 rounded cursor-pointer hover:bg-purple-800",
-                              ),
-                            },
-                            list{
-                              text(
-                                s.tactic ++
-                                " (" ++
-                                Float.toFixed(s.confidence *. 100.0, ~digits=0) ++ "%)",
-                              ),
-                            },
-                          )
-                        )
-                        ->List.fromArray,
-                      ),
-                    },
-                  )
-                } else {
-                  Tea_Html.noNode
-                },
-              },
-            )
-          | EchidnaEnterpriseTab =>
-            div(
-              list{Attrs.class_("text-center text-gray-500 py-8")},
-              list{
-                text(
-                  "MOF/OCL enterprise model checking — load XMI models and verify OCL constraints.",
-                ),
-              },
-            )
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/EditorBridge.affine b/src/components/EditorBridge.affine
new file mode 100644
index 00000000..47e4d9ef
--- /dev/null
+++ b/src/components/EditorBridge.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module EditorBridge;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/EditorBridge.res b/src/components/EditorBridge.res
deleted file mode 100644
index be013d5e..00000000
--- a/src/components/EditorBridge.res
+++ /dev/null
@@ -1,612 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Editor Bridge Component — view for federating with external
-/// code editors. Shows diagnostics, open files, symbols, and activity
-/// from the connected editor without duplicating the editing surface.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a category tab button.
-let renderTab = (
-  label: string,
-  cat: editorBridgeCategory,
-  active: editorBridgeCategory,
-): Tea_Vdom.t<msg> => {
-  let isActive = cat === active
-  let cls = isActive
-    ? "px-3 py-1.5 text-xs font-medium bg-gray-700 text-white rounded"
-    : "px-3 py-1.5 text-xs text-gray-400 hover:text-gray-200 hover:bg-gray-800 rounded cursor-pointer"
-  button(
-    list{Attrs.class_(cls), Events.onClick(EditorBridge(SetBridgeCategory(cat)))},
-    list{text(label)},
-  )
-}
-
-/// Render the overview — connection status, open files, diagnostic summary.
-let renderOverview = (state: editorBridgeState): Tea_Vdom.t<msg> => {
-  let connCls = EditorBridgeEngine.connectionColour(state.connection)
-  div(
-    list{Attrs.class_("space-y-4")},
-    list{
-      // Connection card
-      div(
-        list{Attrs.class_("p-4 bg-gray-800 rounded border border-gray-700")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center justify-between mb-3")},
-            list{
-              div(
-                list{Attrs.class_("flex items-center gap-2")},
-                list{
-                  span(
-                    list{Attrs.class_("text-sm font-medium text-gray-200")},
-                    list{text(EditorBridgeEngine.editorLabel(state.editorKind))},
-                  ),
-                  span(
-                    list{Attrs.class_(`text-xs ${connCls}`)},
-                    list{text(EditorBridgeEngine.connectionLabel(state.connection))},
-                  ),
-                },
-              ),
-              div(
-                list{Attrs.class_("flex items-center gap-2")},
-                list{
-                  button(
-                    list{
-                      Attrs.class_(
-                        "px-2 py-1 text-xs bg-emerald-700 text-white rounded hover:bg-emerald-600 cursor-pointer",
-                      ),
-                      Events.onClick(EditorBridge(DetectEditor)),
-                      KeyboardNav.onActivate(EditorBridge(DetectEditor)),
-                    },
-                    list{text("Detect")},
-                  ),
-                  button(
-                    list{
-                      Attrs.class_(
-                        "px-2 py-1 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer",
-                      ),
-                      Events.onClick(EditorBridge(ConnectLsp)),
-                      KeyboardNav.onActivate(EditorBridge(ConnectLsp)),
-                    },
-                    list{text("Connect LSP")},
-                  ),
-                },
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("text-xs text-gray-500")},
-            list{
-              text(
-                `LSP port: ${Int.toString(state.lspPort)} | Auto-sync: ${if state.autoSync {
-                    "on"
-                  } else {
-                    "off"
-                  }}`,
-              ),
-            },
-          ),
-        },
-      ),
-      // Stats row
-      div(
-        list{Attrs.class_("grid grid-cols-4 gap-3")},
-        list{
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-gray-100")},
-                list{text(Int.toString(Array.length(state.openFiles)))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Open Files")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-red-400")},
-                list{
-                  text(
-                    Int.toString(EditorBridgeEngine.countBySeverity(state.diagnostics, "error")),
-                  ),
-                },
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Errors")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-amber-400")},
-                list{
-                  text(
-                    Int.toString(EditorBridgeEngine.countBySeverity(state.diagnostics, "warning")),
-                  ),
-                },
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Warnings")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-gray-100")},
-                list{text(Int.toString(Array.length(state.symbols)))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Symbols")}),
-            },
-          ),
-        },
-      ),
-      // Open files list
-      if Array.length(state.openFiles) > 0 {
-        div(
-          list{Attrs.class_("space-y-1")},
-          list{
-            div(list{Attrs.class_("text-xs text-gray-400 mb-1")}, list{text("Open Files")}),
-            ...state.openFiles
-            ->Array.map(file =>
-              div(
-                list{
-                  Attrs.class_(
-                    "flex items-center gap-3 p-2 bg-gray-800/50 rounded cursor-pointer hover:bg-gray-700/50",
-                  ),
-                  Events.onClick(EditorBridge(OpenFileInEditor(file.path, file.cursorLine))),
-                },
-                list{
-                  span(
-                    list{
-                      Attrs.class_(
-                        if file.modified {
-                          "text-amber-400 text-xs"
-                        } else {
-                          "text-gray-400 text-xs"
-                        },
-                      ),
-                    },
-                    list{
-                      text(
-                        if file.modified {
-                          "*"
-                        } else {
-                          " "
-                        },
-                      ),
-                    },
-                  ),
-                  span(
-                    list{Attrs.class_("text-sm text-gray-200 flex-1 truncate font-mono")},
-                    list{text(file.path)},
-                  ),
-                  span(list{Attrs.class_("text-xs text-gray-500")}, list{text(file.language)}),
-                  span(
-                    list{Attrs.class_("text-xs text-gray-600 font-mono")},
-                    list{text(`L${Int.toString(file.cursorLine)}`)},
-                  ),
-                },
-              )
-            )
-            ->List.fromArray,
-          },
-        )
-      } else {
-        div(
-          list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-          list{text("No files open — connect to an editor to see open files")},
-        )
-      },
-    },
-  )
-}
-
-/// Render diagnostics list.
-let renderDiagnostics = (state: editorBridgeState): Tea_Vdom.t<msg> => {
-  let filtered = EditorBridgeEngine.filterDiagnostics(
-    state.diagnostics,
-    state.showErrors,
-    state.showWarnings,
-    state.showInfo,
-    state.diagnosticFilter,
-  )
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      // Filter controls
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          input(
-            list{
-              Attrs.class_(
-                "flex-1 px-3 py-1.5 bg-gray-800 border border-gray-700 rounded text-sm text-gray-200 placeholder-gray-500",
-              ),
-              Attrs.placeholder("Filter diagnostics..."),
-              Attrs.value(state.diagnosticFilter),
-              Events.onInput(text => EditorBridge(SetDiagnosticFilter(text))),
-            },
-            list{},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                if state.showErrors {
-                  "px-2 py-1 text-xs bg-red-800 text-red-200 rounded"
-                } else {
-                  "px-2 py-1 text-xs bg-gray-700 text-gray-400 rounded cursor-pointer"
-                },
-              ),
-              Events.onClick(EditorBridge(ToggleShowErrors)),
-              KeyboardNav.onActivate(EditorBridge(ToggleShowErrors)),
-            },
-            list{text("Errors")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                if state.showWarnings {
-                  "px-2 py-1 text-xs bg-amber-800 text-amber-200 rounded"
-                } else {
-                  "px-2 py-1 text-xs bg-gray-700 text-gray-400 rounded cursor-pointer"
-                },
-              ),
-              Events.onClick(EditorBridge(ToggleShowWarnings)),
-              KeyboardNav.onActivate(EditorBridge(ToggleShowWarnings)),
-            },
-            list{text("Warnings")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                if state.showInfo {
-                  "px-2 py-1 text-xs bg-blue-800 text-blue-200 rounded"
-                } else {
-                  "px-2 py-1 text-xs bg-gray-700 text-gray-400 rounded cursor-pointer"
-                },
-              ),
-              Events.onClick(EditorBridge(ToggleShowInfo)),
-              KeyboardNav.onActivate(EditorBridge(ToggleShowInfo)),
-            },
-            list{text("Info")},
-          ),
-        },
-      ),
-      // Diagnostics list
-      if Array.length(filtered) === 0 {
-        div(
-          list{Attrs.class_("text-center text-emerald-400 text-sm py-8")},
-          list{text("No diagnostics — code is clean")},
-        )
-      } else {
-        div(
-          list{Attrs.class_("space-y-1 max-h-96 overflow-y-auto")},
-          filtered
-          ->Array.map(diag => {
-            let sevCls = EditorBridgeEngine.severityColour(diag.severity)
-            div(
-              list{
-                Attrs.class_("p-2 bg-gray-800 rounded cursor-pointer hover:bg-gray-700"),
-                Events.onClick(EditorBridge(OpenFileInEditor(diag.filePath, diag.line))),
-              },
-              list{
-                div(
-                  list{Attrs.class_("flex items-center gap-2 mb-1")},
-                  list{
-                    span(
-                      list{Attrs.class_(`text-xs font-bold ${sevCls} uppercase`)},
-                      list{text(diag.severity)},
-                    ),
-                    span(
-                      list{Attrs.class_("text-xs text-gray-400 font-mono")},
-                      list{text(`${diag.filePath}:${Int.toString(diag.line)}`)},
-                    ),
-                    if diag.source !== "" {
-                      span(
-                        list{Attrs.class_("text-xs text-gray-600")},
-                        list{text(`[${diag.source}]`)},
-                      )
-                    } else {
-                      noNode
-                    },
-                  },
-                ),
-                div(list{Attrs.class_("text-xs text-gray-300")}, list{text(diag.message)}),
-              },
-            )
-          })
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render symbols view.
-let renderSymbols = (state: editorBridgeState): Tea_Vdom.t<msg> => {
-  let filtered = EditorBridgeEngine.filterSymbols(state.symbols, state.symbolFilter)
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      input(
-        list{
-          Attrs.class_(
-            "w-full px-3 py-1.5 bg-gray-800 border border-gray-700 rounded text-sm text-gray-200 placeholder-gray-500",
-          ),
-          Attrs.placeholder("Search symbols..."),
-          Attrs.value(state.symbolFilter),
-          Events.onInput(text => EditorBridge(SetSymbolFilter(text))),
-        },
-        list{},
-      ),
-      if Array.length(filtered) === 0 {
-        div(
-          list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-          list{text("No symbols found")},
-        )
-      } else {
-        div(
-          list{Attrs.class_("space-y-1 max-h-96 overflow-y-auto")},
-          filtered
-          ->Array.map(sym =>
-            div(
-              list{
-                Attrs.class_(
-                  "flex items-center gap-3 p-2 bg-gray-800 rounded cursor-pointer hover:bg-gray-700",
-                ),
-                Events.onClick(EditorBridge(OpenFileInEditor(sym.filePath, sym.line))),
-              },
-              list{
-                span(list{Attrs.class_("text-xs text-gray-500 w-16")}, list{text(sym.kind)}),
-                span(list{Attrs.class_("text-sm text-cyan-400 font-mono")}, list{text(sym.name)}),
-                if sym.containerName !== "" {
-                  span(
-                    list{Attrs.class_("text-xs text-gray-500")},
-                    list{text(`in ${sym.containerName}`)},
-                  )
-                } else {
-                  noNode
-                },
-                span(
-                  list{Attrs.class_("ml-auto text-xs text-gray-600 font-mono")},
-                  list{text(`${sym.filePath}:${Int.toString(sym.line)}`)},
-                ),
-              },
-            )
-          )
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render activity feed.
-let renderActivity = (state: editorBridgeState): Tea_Vdom.t<msg> => {
-  if Array.length(state.activity) === 0 {
-    div(
-      list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-      list{text("No editor activity recorded yet")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("space-y-1 max-h-96 overflow-y-auto")},
-      state.activity
-      ->Array.map(act =>
-        div(
-          list{Attrs.class_("flex items-center gap-3 p-2 bg-gray-800/50 rounded text-xs")},
-          list{
-            span(
-              list{Attrs.class_("text-gray-500 font-mono w-16")},
-              list{text(Float.toString(act.timestamp))},
-            ),
-            span(list{Attrs.class_("text-gray-300")}, list{text(act.action)}),
-            span(list{Attrs.class_("text-gray-400 font-mono truncate")}, list{text(act.filePath)}),
-          },
-        )
-      )
-      ->List.fromArray,
-    )
-  }
-}
-
-/// Render settings view.
-let renderSettings = (state: editorBridgeState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      // Editor selection
-      div(
-        list{Attrs.class_("p-3 bg-gray-800 rounded")},
-        list{
-          div(list{Attrs.class_("text-xs text-gray-400 mb-2")}, list{text("Editor")}),
-          div(
-            list{Attrs.class_("flex flex-wrap gap-1")},
-            EditorBridgeEngine.allEditors
-            ->Array.map(editor => {
-              let isActive = state.editorKind === editor
-              button(
-                list{
-                  Attrs.class_(
-                    if isActive {
-                      "px-2 py-1 text-xs bg-cyan-700 text-white rounded"
-                    } else {
-                      "px-2 py-1 text-xs bg-gray-700 text-gray-400 rounded cursor-pointer hover:bg-gray-600"
-                    },
-                  ),
-                  Events.onClick(EditorBridge(SetEditorKind(editor))),
-                },
-                list{text(EditorBridgeEngine.editorLabel(editor))},
-              )
-            })
-            ->List.fromArray,
-          ),
-        },
-      ),
-      // Auto-sync toggle
-      div(
-        list{Attrs.class_("flex items-center justify-between p-3 bg-gray-800 rounded")},
-        list{
-          span(list{Attrs.class_("text-sm text-gray-200")}, list{text("Auto-Sync")}),
-          button(
-            list{
-              Attrs.class_(
-                if state.autoSync {
-                  "px-3 py-1 text-xs bg-emerald-700 text-white rounded"
-                } else {
-                  "px-3 py-1 text-xs bg-gray-700 text-gray-300 rounded cursor-pointer"
-                },
-              ),
-              Events.onClick(EditorBridge(ToggleAutoSync)),
-              KeyboardNav.onActivate(EditorBridge(ToggleAutoSync)),
-            },
-            list{
-              text(
-                if state.autoSync {
-                  "Enabled"
-                } else {
-                  "Disabled"
-                },
-              ),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Main view function.
-let view = (state: editorBridgeState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Editor Bridge panel"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              span(
-                list{Attrs.class_("text-lg font-semibold text-gray-100")},
-                list{text("Editor Bridge")},
-              ),
-              span(
-                list{
-                  Attrs.class_(`text-xs ${EditorBridgeEngine.connectionColour(state.connection)}`),
-                },
-                list{text(EditorBridgeEngine.connectionLabel(state.connection))},
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    if state.bojRouting {
-                      "px-3 py-1.5 text-xs bg-blue-700 text-white rounded"
-                    } else {
-                      "px-3 py-1.5 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600"
-                    },
-                  ),
-                  Attrs.ariaLabel(
-                    if state.bojRouting {
-                      "Disable BoJ routing"
-                    } else {
-                      "Enable BoJ routing"
-                    },
-                  ),
-                  Events.onClick(EditorBridge(ToggleBojRouting)),
-                  KeyboardNav.onActivate(EditorBridge(ToggleBojRouting)),
-                },
-                list{
-                  text(
-                    if state.bojRouting {
-                      "BoJ On"
-                    } else {
-                      "BoJ"
-                    },
-                  ),
-                },
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1.5 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer",
-                  ),
-                  Events.onClick(EditorBridge(RefreshBridge)),
-                  KeyboardNav.onActivate(EditorBridge(RefreshBridge)),
-                },
-                list{text("Refresh")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Tabs
-      div(
-        list{Attrs.class_("flex items-center gap-1 px-4 py-2 border-b border-gray-800")},
-        list{
-          renderTab("Overview", BridgeOverview, state.activeCategory),
-          renderTab("Diagnostics", BridgeDiagnostics, state.activeCategory),
-          renderTab("Symbols", BridgeSymbols, state.activeCategory),
-          renderTab("Activity", BridgeActivity, state.activeCategory),
-          renderTab("Settings", BridgeSettings, state.activeCategory),
-        },
-      ),
-      // Error
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 p-2 bg-red-900/50 border border-red-700 rounded text-xs text-red-300",
-            ),
-          },
-          list{
-            div(
-              list{Attrs.class_("flex items-center justify-between")},
-              list{
-                text(err),
-                button(
-                  list{
-                    Attrs.class_("text-red-400 hover:text-red-200 cursor-pointer"),
-                    Events.onClick(EditorBridge(DismissBridgeError)),
-                    KeyboardNav.onActivate(EditorBridge(DismissBridgeError)),
-                  },
-                  list{text("Dismiss")},
-                ),
-              },
-            ),
-          },
-        )
-      | None => noNode
-      },
-      // Content
-      div(
-        list{Attrs.class_("flex-1 overflow-auto p-4")},
-        list{
-          switch state.activeCategory {
-          | BridgeOverview => renderOverview(state)
-          | BridgeDiagnostics => renderDiagnostics(state)
-          | BridgeSymbols => renderSymbols(state)
-          | BridgeActivity => renderActivity(state)
-          | BridgeSettings => renderSettings(state)
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/Evangeliser.affine b/src/components/Evangeliser.affine
new file mode 100644
index 00000000..181e2c57
--- /dev/null
+++ b/src/components/Evangeliser.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Evangeliser;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Evangeliser.res b/src/components/Evangeliser.res
deleted file mode 100644
index 75d7d34b..00000000
--- a/src/components/Evangeliser.res
+++ /dev/null
@@ -1,868 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Evangeliser Component — JS-to-ReScript transformation teaching panel.
-///
-/// Three-panel view integrated into PanLL's overlay system:
-///   Panel-L section: Pattern constraints, category filters, confidence threshold
-///   Panel-N section: Narrative reasoning, glyph annotations, scan progress
-///   Panel-W section: JS→ReScript side-by-side with matched patterns
-///
-/// Philosophy: "Celebrate good, minimize bad, show better"
-
-open Model
-open Msg
-open Tea.Html
-
-// ============================================================================
-// Tab Navigation
-// ============================================================================
-
-/// Render a tab button in the header.
-let renderTab = (label: string, tab: evangeliserTab, active: evangeliserTab): Tea_Vdom.t<msg> => {
-  let isActive = tab === active
-  let cls = isActive
-    ? "px-3 py-1.5 text-xs font-medium bg-gray-700 text-white rounded"
-    : "px-3 py-1.5 text-xs text-gray-400 hover:text-gray-200 hover:bg-gray-800 rounded cursor-pointer"
-  button(
-    list{Attrs.class_(cls), Attrs.ariaLabel(label), Events.onClick(Evangeliser(SetTab(tab)))},
-    list{text(label)},
-  )
-}
-
-// ============================================================================
-// Panel-L: Constraints Sidebar
-// ============================================================================
-
-/// Render the constraint controls (left column in scan tab).
-let renderConstraints = (state: evangeliserState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("w-64 border-r border-gray-800 p-3 flex flex-col gap-3 overflow-y-auto")},
-    list{
-      // Section header
-      div(
-        list{Attrs.class_("text-[10px] uppercase tracking-wider text-gray-500 font-medium")},
-        list{text("Constraints (Panel-L)")},
-      ),
-      // Confidence threshold
-      div(
-        list{Attrs.class_("flex flex-col gap-1")},
-        list{
-          label(
-            list{Attrs.class_("text-[10px] text-gray-500")},
-            list{
-              text(
-                "Min Confidence: " ++
-                Float.toFixed(state.constraints.minConfidence *. 100.0, ~digits=0) ++ "%",
-              ),
-            },
-          ),
-          input(
-            list{
-              Attrs.type_("range"),
-              Attrs.class_("w-full accent-indigo-500"),
-              Attrs.value(Float.toString(state.constraints.minConfidence *. 100.0)),
-              Events.onInput(v => Evangeliser(
-                SetMinConfidence(Float.fromString(v)->Option.getOr(50.0) /. 100.0),
-              )),
-              Attrs.ariaLabel("Minimum confidence threshold"),
-            },
-            list{},
-          ),
-        },
-      ),
-      // Difficulty filter
-      div(
-        list{Attrs.class_("flex flex-col gap-1")},
-        list{
-          span(list{Attrs.class_("text-[10px] text-gray-500")}, list{text("Difficulty")}),
-          div(
-            list{Attrs.class_("flex gap-1")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    if state.constraints.difficultyFilter === None {
-                      "px-2 py-0.5 text-[10px] bg-gray-700 text-white rounded"
-                    } else {
-                      "px-2 py-0.5 text-[10px] text-gray-500 hover:text-gray-300 rounded cursor-pointer"
-                    },
-                  ),
-                  Events.onClick(Evangeliser(SetDifficultyFilter(None))),
-                },
-                list{text("All")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    if state.constraints.difficultyFilter === Some(Beginner) {
-                      "px-2 py-0.5 text-[10px] bg-emerald-900 text-emerald-300 rounded"
-                    } else {
-                      "px-2 py-0.5 text-[10px] text-gray-500 hover:text-gray-300 rounded cursor-pointer"
-                    },
-                  ),
-                  Events.onClick(Evangeliser(SetDifficultyFilter(Some(Beginner)))),
-                },
-                list{text("Beginner")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    if state.constraints.difficultyFilter === Some(Intermediate) {
-                      "px-2 py-0.5 text-[10px] bg-amber-900 text-amber-300 rounded"
-                    } else {
-                      "px-2 py-0.5 text-[10px] text-gray-500 hover:text-gray-300 rounded cursor-pointer"
-                    },
-                  ),
-                  Events.onClick(Evangeliser(SetDifficultyFilter(Some(Intermediate)))),
-                },
-                list{text("Intermediate")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    if state.constraints.difficultyFilter === Some(Advanced) {
-                      "px-2 py-0.5 text-[10px] bg-red-900 text-red-300 rounded"
-                    } else {
-                      "px-2 py-0.5 text-[10px] text-gray-500 hover:text-gray-300 rounded cursor-pointer"
-                    },
-                  ),
-                  Events.onClick(Evangeliser(SetDifficultyFilter(Some(Advanced)))),
-                },
-                list{text("Advanced")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Category toggles
-      div(
-        list{Attrs.class_("flex flex-col gap-1")},
-        list{
-          span(
-            list{Attrs.class_("text-[10px] text-gray-500")},
-            list{
-              text(
-                "Categories (" ++
-                Int.toString(Array.length(EvangeliserEngine.allCategories)) ++ ")",
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex flex-wrap gap-1")},
-            EvangeliserEngine.allCategories
-            ->Array.map(cat => {
-              let enabled =
-                state.constraints.enabledCategories->Array.length === 0 ||
-                  state.constraints.enabledCategories->Array.includes(cat)
-              let colour = if enabled {
-                EvangeliserEngine.categoryColour(cat)
-              } else {
-                "text-gray-600"
-              }
-              button(
-                list{
-                  Attrs.class_(
-                    "px-1.5 py-0.5 text-[9px] rounded border border-gray-800 " ++
-                    colour ++ " hover:border-gray-600 cursor-pointer",
-                  ),
-                  Attrs.title(EvangeliserEngine.categoryLabel(cat)),
-                  Events.onClick(Evangeliser(ToggleCategory(cat))),
-                },
-                list{text(EvangeliserEngine.categoryCode(cat))},
-              )
-            })
-            ->List.fromArray,
-          ),
-        },
-      ),
-      // Pattern count
-      div(
-        list{Attrs.class_("mt-2 text-[10px] text-gray-600")},
-        list{text(Int.toString(Array.length(state.patterns)) ++ " patterns loaded")},
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Panel-N: Narrative Display
-// ============================================================================
-
-/// Render the narrative for a single match.
-let renderNarrative = (m: evangeliserMatch): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("p-3 bg-gray-900/60 rounded border border-gray-800 flex flex-col gap-2")},
-    list{
-      // Glyphs
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          span(list{Attrs.class_("text-sm")}, list{text(EvangeliserEngine.glyphSymbols(m.glyphs))}),
-          span(
-            list{
-              Attrs.class_("text-xs font-medium " ++ EvangeliserEngine.categoryColour(m.category)),
-            },
-            list{text(m.patternName)},
-          ),
-          span(
-            list{Attrs.class_("text-[10px] text-gray-600")},
-            list{
-              text(
-                "L" ++
-                Int.toString(m.startLine) ++
-                " \xc2\xb7 " ++
-                Float.toFixed(m.confidence *. 100.0, ~digits=0) ++ "%",
-              ),
-            },
-          ),
-        },
-      ),
-      // Celebrate
-      div(
-        list{Attrs.class_("text-[11px] text-emerald-400")},
-        list{
-          span(list{Attrs.class_("font-medium")}, list{text("Celebrate: ")}),
-          text(m.narrative.celebrate),
-        },
-      ),
-      // Minimize
-      div(
-        list{Attrs.class_("text-[11px] text-amber-400")},
-        list{
-          span(list{Attrs.class_("font-medium")}, list{text("Note: ")}),
-          text(m.narrative.minimize),
-        },
-      ),
-      // Better
-      div(
-        list{Attrs.class_("text-[11px] text-cyan-400")},
-        list{
-          span(list{Attrs.class_("font-medium")}, list{text("Better: ")}),
-          text(m.narrative.better),
-        },
-      ),
-      // Safety
-      div(
-        list{Attrs.class_("text-[11px] text-indigo-400")},
-        list{
-          span(list{Attrs.class_("font-medium")}, list{text("Safety: ")}),
-          text(m.narrative.safety),
-        },
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Panel-W: Results — JS→ReScript side-by-side
-// ============================================================================
-
-/// Render a single match result with JS→ReScript comparison.
-let renderMatchResult = (m: evangeliserMatch, idx: int, selected: option<int>): Tea_Vdom.t<msg> => {
-  let isSelected = selected === Some(idx)
-  let borderCls = isSelected ? "border-cyan-600" : "border-gray-800 hover:border-gray-700"
-
-  div(
-    list{
-      Attrs.class_("rounded border " ++ borderCls ++ " transition-colors cursor-pointer"),
-      Events.onClick(Evangeliser(SelectMatch(Some(idx)))),
-      Attrs.ariaLabel("Pattern match: " ++ m.patternName),
-    },
-    list{
-      // Header row
-      div(
-        list{
-          Attrs.class_(
-            "flex items-center justify-between px-3 py-1.5 bg-gray-900/40 border-b border-gray-800",
-          ),
-        },
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              span(
-                list{Attrs.class_("text-sm")},
-                list{text(EvangeliserEngine.glyphSymbols(m.glyphs))},
-              ),
-              span(
-                list{
-                  Attrs.class_(
-                    "text-xs font-medium " ++ EvangeliserEngine.categoryColour(m.category),
-                  ),
-                },
-                list{text(m.patternName)},
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              span(
-                list{Attrs.class_("text-[10px] text-gray-500")},
-                list{text("line " ++ Int.toString(m.startLine))},
-              ),
-              span(
-                list{Attrs.class_("text-[10px] px-1.5 py-0.5 rounded bg-gray-800 text-gray-400")},
-                list{text(Float.toFixed(m.confidence *. 100.0, ~digits=0) ++ "%")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Code comparison
-      div(
-        list{Attrs.class_("grid grid-cols-2 divide-x divide-gray-800")},
-        list{
-          // JS side
-          div(
-            list{Attrs.class_("p-3")},
-            list{
-              div(
-                list{Attrs.class_("text-[9px] uppercase text-gray-600 mb-1")},
-                list{text("JavaScript")},
-              ),
-              pre(
-                list{
-                  Attrs.class_(
-                    "text-[11px] text-gray-300 whitespace-pre-wrap font-mono bg-gray-900/40 p-2 rounded",
-                  ),
-                },
-                list{code(list{}, list{text(m.jsExample)})},
-              ),
-            },
-          ),
-          // ReScript side
-          div(
-            list{Attrs.class_("p-3")},
-            list{
-              div(
-                list{Attrs.class_("text-[9px] uppercase text-emerald-600 mb-1")},
-                list{text("ReScript")},
-              ),
-              pre(
-                list{
-                  Attrs.class_(
-                    "text-[11px] text-emerald-300 whitespace-pre-wrap font-mono bg-gray-900/40 p-2 rounded",
-                  ),
-                },
-                list{code(list{}, list{text(m.rescriptExample)})},
-              ),
-            },
-          ),
-        },
-      ),
-      // Narrative (expanded when selected)
-      if isSelected {
-        div(list{Attrs.class_("border-t border-gray-800 p-3")}, list{renderNarrative(m)})
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-// ============================================================================
-// Tab: Scan (main input + results view)
-// ============================================================================
-
-/// Render the scan tab — JS input on left, results on right.
-let renderScanTab = (state: evangeliserState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 flex overflow-hidden")},
-    list{
-      // Left: Constraints + Input
-      div(
-        list{Attrs.class_("flex flex-col flex-1")},
-        list{
-          // JS code input
-          div(
-            list{Attrs.class_("flex-1 flex flex-col p-3")},
-            list{
-              div(
-                list{Attrs.class_("flex items-center justify-between mb-2")},
-                list{
-                  span(
-                    list{Attrs.class_("text-[10px] uppercase text-gray-500")},
-                    list{text("Paste JavaScript Code")},
-                  ),
-                  button(
-                    list{
-                      Attrs.class_(
-                        if state.scanning {
-                          "px-3 py-1 text-xs bg-gray-700 text-gray-400 rounded cursor-not-allowed"
-                        } else {
-                          "px-3 py-1 text-xs bg-indigo-600 hover:bg-indigo-500 text-white rounded cursor-pointer"
-                        },
-                      ),
-                      Attrs.disabled(state.scanning),
-                      Events.onClick(Evangeliser(RunScan)),
-                      KeyboardNav.onActivate(Evangeliser(RunScan)),
-                      Attrs.ariaLabel("Scan JavaScript code for patterns"),
-                    },
-                    list{
-                      text(
-                        if state.scanning {
-                          "Scanning..."
-                        } else {
-                          "Scan"
-                        },
-                      ),
-                    },
-                  ),
-                },
-              ),
-              textarea(
-                list{
-                  Attrs.class_(
-                    "flex-1 bg-gray-900 border border-gray-800 rounded p-3 text-xs text-gray-200 font-mono resize-none focus:border-indigo-500 outline-none",
-                  ),
-                  Attrs.placeholder(
-                    "// Paste your JavaScript code here...\n// The evangeliser will detect patterns and show\n// how ReScript makes them safer and cleaner.",
-                  ),
-                  Attrs.value(state.jsInput),
-                  Events.onInput(v => Evangeliser(SetJsInput(v))),
-                  Attrs.ariaLabel("JavaScript code input"),
-                },
-                list{},
-              ),
-              // Error display
-              switch state.scanError {
-              | Some(err) =>
-                div(
-                  list{
-                    Attrs.class_(
-                      "mt-2 px-3 py-1.5 bg-red-900/30 border border-red-800 rounded text-xs text-red-400",
-                    ),
-                  },
-                  list{text(err)},
-                )
-              | None => noNode
-              },
-            },
-          ),
-        },
-      ),
-      // Right: Results
-      div(
-        list{Attrs.class_("flex-1 flex flex-col border-l border-gray-800 overflow-y-auto")},
-        list{
-          switch state.analysis {
-          | None =>
-            div(
-              list{Attrs.class_("flex-1 flex items-center justify-center text-gray-600 text-sm")},
-              list{text("Paste JS code and click Scan to see patterns")},
-            )
-          | Some(analysis) =>
-            div(
-              list{Attrs.class_("flex flex-col gap-2 p-3")},
-              list{
-                // Summary bar
-                div(
-                  list{Attrs.class_("flex items-center gap-3 mb-2 pb-2 border-b border-gray-800")},
-                  list{
-                    span(
-                      list{Attrs.class_("text-xs text-gray-400")},
-                      list{text(Int.toString(Array.length(analysis.matches)) ++ " matches")},
-                    ),
-                    span(
-                      list{Attrs.class_("text-xs text-gray-600")},
-                      list{
-                        text(Float.toFixed(analysis.coveragePercentage, ~digits=1) ++ "% coverage"),
-                      },
-                    ),
-                    span(
-                      list{
-                        Attrs.class_(
-                          "text-[10px] px-1.5 py-0.5 rounded " ++
-                          EvangeliserEngine.difficultyColour(analysis.difficulty),
-                        ),
-                      },
-                      list{text(EvangeliserEngine.difficultyLabel(analysis.difficulty))},
-                    ),
-                    span(
-                      list{Attrs.class_("text-[10px] text-gray-600")},
-                      list{text(Float.toFixed(analysis.analysisTime, ~digits=1) ++ "ms")},
-                    ),
-                  },
-                ),
-                // Category breakdown
-                div(
-                  list{Attrs.class_("flex flex-wrap gap-1 mb-2")},
-                  EvangeliserEngine.matchCategoryStats(analysis.matches)
-                  ->Array.map(((cat, count)) => {
-                    span(
-                      list{
-                        Attrs.class_(
-                          "text-[9px] px-1.5 py-0.5 rounded bg-gray-900 " ++
-                          EvangeliserEngine.categoryColour(cat),
-                        ),
-                      },
-                      list{text(EvangeliserEngine.categoryCode(cat) ++ ":" ++ Int.toString(count))},
-                    )
-                  })
-                  ->List.fromArray,
-                ),
-                // Match list
-                div(
-                  list{Attrs.class_("flex flex-col gap-2")},
-                  analysis.matches
-                  ->Array.mapWithIndex((m, idx) => {
-                    renderMatchResult(m, idx, state.selectedMatchIndex)
-                  })
-                  ->List.fromArray,
-                ),
-              },
-            )
-          },
-        },
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Tab: Pattern Library Browser
-// ============================================================================
-
-/// Render the pattern library browser.
-let renderPatternsTab = (state: evangeliserState): Tea_Vdom.t<msg> => {
-  let filtered = state.patterns->EvangeliserEngine.filterBySearch(state.filterText)
-
-  div(
-    list{Attrs.class_("flex-1 flex flex-col overflow-hidden")},
-    list{
-      // Search bar
-      div(
-        list{Attrs.class_("px-3 py-2 border-b border-gray-800")},
-        list{
-          input(
-            list{
-              Attrs.class_(
-                "w-full bg-gray-900 border border-gray-800 rounded px-3 py-1.5 text-xs text-gray-200 focus:border-indigo-500 outline-none",
-              ),
-              Attrs.placeholder("Search patterns by name or tag..."),
-              Attrs.value(state.filterText),
-              Events.onInput(v => Evangeliser(SetFilterText(v))),
-              Attrs.ariaLabel("Filter patterns"),
-            },
-            list{},
-          ),
-        },
-      ),
-      // Pattern grid
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto p-3")},
-        list{
-          div(
-            list{Attrs.class_("grid grid-cols-1 gap-2")},
-            filtered
-            ->Array.map(p => {
-              div(
-                list{
-                  Attrs.class_(
-                    "p-3 bg-gray-900/40 rounded border border-gray-800 hover:border-gray-700 transition-colors",
-                  ),
-                },
-                list{
-                  div(
-                    list{Attrs.class_("flex items-center justify-between mb-2")},
-                    list{
-                      div(
-                        list{Attrs.class_("flex items-center gap-2")},
-                        list{
-                          span(
-                            list{Attrs.class_("text-sm")},
-                            list{text(EvangeliserEngine.glyphSymbols(p.glyphs))},
-                          ),
-                          span(
-                            list{
-                              Attrs.class_(
-                                "text-xs font-medium " ++
-                                EvangeliserEngine.categoryColour(p.category),
-                              ),
-                            },
-                            list{text(p.name)},
-                          ),
-                        },
-                      ),
-                      div(
-                        list{Attrs.class_("flex items-center gap-1")},
-                        list{
-                          span(
-                            list{
-                              Attrs.class_(
-                                "text-[10px] px-1.5 py-0.5 rounded " ++
-                                EvangeliserEngine.difficultyColour(p.difficulty),
-                              ),
-                            },
-                            list{text(EvangeliserEngine.difficultyLabel(p.difficulty))},
-                          ),
-                          span(
-                            list{Attrs.class_("text-[10px] text-gray-600")},
-                            list{text(Float.toFixed(p.confidence *. 100.0, ~digits=0) ++ "%")},
-                          ),
-                        },
-                      ),
-                    },
-                  ),
-                  // JS→ReScript comparison
-                  div(
-                    list{Attrs.class_("grid grid-cols-2 gap-2")},
-                    list{
-                      div(
-                        list{Attrs.class_("bg-gray-950 p-2 rounded")},
-                        list{
-                          div(
-                            list{Attrs.class_("text-[8px] uppercase text-gray-600 mb-1")},
-                            list{text("JS")},
-                          ),
-                          pre(
-                            list{
-                              Attrs.class_(
-                                "text-[10px] text-gray-400 whitespace-pre-wrap font-mono",
-                              ),
-                            },
-                            list{code(list{}, list{text(p.jsExample)})},
-                          ),
-                        },
-                      ),
-                      div(
-                        list{Attrs.class_("bg-gray-950 p-2 rounded")},
-                        list{
-                          div(
-                            list{Attrs.class_("text-[8px] uppercase text-emerald-700 mb-1")},
-                            list{text("ReScript")},
-                          ),
-                          pre(
-                            list{
-                              Attrs.class_(
-                                "text-[10px] text-emerald-400 whitespace-pre-wrap font-mono",
-                              ),
-                            },
-                            list{code(list{}, list{text(p.rescriptExample)})},
-                          ),
-                        },
-                      ),
-                    },
-                  ),
-                  // Tags
-                  div(
-                    list{Attrs.class_("flex flex-wrap gap-1 mt-2")},
-                    p.tags
-                    ->Array.map(t => {
-                      span(
-                        list{
-                          Attrs.class_("text-[9px] px-1 py-0.5 bg-gray-800 text-gray-500 rounded"),
-                        },
-                        list{text(t)},
-                      )
-                    })
-                    ->List.fromArray,
-                  ),
-                },
-              )
-            })
-            ->List.fromArray,
-          ),
-        },
-      ),
-      // Footer with count
-      div(
-        list{Attrs.class_("px-3 py-1.5 border-t border-gray-800 text-[10px] text-gray-600")},
-        list{
-          text(
-            Int.toString(Array.length(filtered)) ++
-            " of " ++
-            Int.toString(Array.length(state.patterns)) ++ " patterns",
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Tab: Glyph Legend
-// ============================================================================
-
-/// Render the Makaton glyph legend.
-let renderLegendTab = (state: evangeliserState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 overflow-y-auto p-4")},
-    list{
-      div(
-        list{Attrs.class_("mb-4")},
-        list{
-          span(
-            list{Attrs.class_("text-sm font-medium text-gray-200")},
-            list{text("Makaton-Inspired Glyph System")},
-          ),
-          div(
-            list{Attrs.class_("text-[11px] text-gray-500 mt-1")},
-            list{
-              text(
-                "Glyphs transcend syntax to show semantic meaning. Each glyph represents a programming concept that maps from JavaScript patterns to ReScript equivalents.",
-              ),
-            },
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("grid grid-cols-1 md:grid-cols-2 gap-2")},
-        state.glyphs
-        ->Array.map(g => {
-          let catColour = switch g.semanticCategory {
-          | Transformation => "text-emerald-400"
-          | Safety => "text-red-400"
-          | Flow => "text-cyan-400"
-          | Structure => "text-violet-400"
-          | State => "text-amber-400"
-          | Data => "text-pink-400"
-          }
-          div(
-            list{
-              Attrs.class_(
-                "flex items-start gap-3 p-2 bg-gray-900/40 rounded border border-gray-800",
-              ),
-            },
-            list{
-              span(list{Attrs.class_("text-xl")}, list{text(g.symbol)}),
-              div(
-                list{Attrs.class_("flex flex-col")},
-                list{
-                  div(
-                    list{Attrs.class_("flex items-center gap-2")},
-                    list{
-                      span(
-                        list{Attrs.class_("text-xs font-medium text-gray-200")},
-                        list{text(g.name)},
-                      ),
-                      span(
-                        list{Attrs.class_("text-[9px] " ++ catColour)},
-                        list{
-                          text(
-                            switch g.semanticCategory {
-                            | Transformation => "transformation"
-                            | Safety => "safety"
-                            | Flow => "flow"
-                            | Structure => "structure"
-                            | State => "state"
-                            | Data => "data"
-                            },
-                          ),
-                        },
-                      ),
-                    },
-                  ),
-                  span(list{Attrs.class_("text-[10px] text-gray-500")}, list{text(g.meaning)}),
-                },
-              ),
-            },
-          )
-        })
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Main View
-// ============================================================================
-
-/// Main view function for the Evangeliser panel.
-let view = (state: evangeliserState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("ReScript Evangeliser — JS to ReScript transformation panel"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              span(
-                list{Attrs.class_("text-sm font-medium text-gray-200")},
-                list{text("Evangeliser")},
-              ),
-              span(
-                list{Attrs.class_("text-[10px] text-gray-600")},
-                list{text("Celebrate good, minimize bad, show better")},
-              ),
-              span(
-                list{Attrs.class_("text-[10px] px-1.5 py-0.5 rounded bg-gray-800 text-gray-500")},
-                list{text(Int.toString(Array.length(state.patterns)) ++ " patterns")},
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-1")},
-            list{
-              renderTab("Scan", TabScan, state.activeTab),
-              renderTab("Patterns", TabPatterns, state.activeTab),
-              renderTab("Results", TabResults, state.activeTab),
-              renderTab("Legend", TabLegend, state.activeTab),
-              // View layer selector
-              div(
-                list{Attrs.class_("ml-2 flex items-center gap-1 border-l border-gray-800 pl-2")},
-                list{
-                  span(list{Attrs.class_("text-[9px] text-gray-600")}, list{text("View:")}),
-                  button(
-                    list{
-                      Attrs.class_(
-                        if state.viewLayer === ViewRaw {
-                          "text-[9px] px-1.5 py-0.5 bg-gray-700 text-white rounded"
-                        } else {
-                          "text-[9px] px-1.5 py-0.5 text-gray-500 hover:text-gray-300 rounded cursor-pointer"
-                        },
-                      ),
-                      Events.onClick(Evangeliser(SetViewLayer(ViewRaw))),
-                    },
-                    list{text("RAW")},
-                  ),
-                  button(
-                    list{
-                      Attrs.class_(
-                        if state.viewLayer === ViewGlyphed {
-                          "text-[9px] px-1.5 py-0.5 bg-gray-700 text-white rounded"
-                        } else {
-                          "text-[9px] px-1.5 py-0.5 text-gray-500 hover:text-gray-300 rounded cursor-pointer"
-                        },
-                      ),
-                      Events.onClick(Evangeliser(SetViewLayer(ViewGlyphed))),
-                    },
-                    list{text("GLYPHED")},
-                  ),
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Tab content
-      div(
-        list{Attrs.class_("flex-1 flex overflow-hidden")},
-        list{
-          // Constraints sidebar (visible in Scan and Results tabs)
-          if state.activeTab === TabScan || state.activeTab === TabResults {
-            renderConstraints(state)
-          } else {
-            noNode
-          },
-          // Main content area
-          switch state.activeTab {
-          | TabScan => renderScanTab(state)
-          | TabPatterns => renderPatternsTab(state)
-          | TabResults => renderScanTab(state) // Results shown in scan view
-          | TabLegend => renderLegendTab(state)
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/ExploratoryWorkbench.affine b/src/components/ExploratoryWorkbench.affine
new file mode 100644
index 00000000..59cf0976
--- /dev/null
+++ b/src/components/ExploratoryWorkbench.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ExploratoryWorkbench;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/ExploratoryWorkbench.res b/src/components/ExploratoryWorkbench.res
deleted file mode 100644
index 0d0f4115..00000000
--- a/src/components/ExploratoryWorkbench.res
+++ /dev/null
@@ -1,364 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL ExploratoryWorkbench — freeform play session recording and anomaly
-/// detection for QA testers and designers.
-///
-/// Four tabs: Session (current recording with quick-flag button), Anomalies
-/// (severity-badged anomaly list), Notes (session notes textarea), and History
-/// (previous session summaries).
-
-open Model
-open Msg
-open Tea.Html
-
-// =========================================================================
-// Helpers
-// =========================================================================
-
-/// Tab label lookup for exploratoryTab variants.
-let tabLabel = (tab: exploratoryTab): string =>
-  switch tab {
-  | TabSession => "Session"
-  | TabAnomalies => "Anomalies"
-  | TabNotes => "Notes"
-  | TabHistory => "History"
-  }
-
-/// Render the tab bar.
-let renderTabs = (active: exploratoryTab): Tea_Vdom.t<msg> => {
-  let tabs: array<exploratoryTab> = [TabSession, TabAnomalies, TabNotes, TabHistory]
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 px-4")},
-    tabs
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-4 py-2 text-sm font-medium transition-colors rounded-t ${isActive
-                ? "bg-gray-800 text-cyan-400 border-b-2 border-cyan-400"
-                : "text-gray-500 hover:text-gray-300 hover:bg-gray-900 cursor-pointer"}`,
-          ),
-          Events.onClick(ExploratoryWorkbench(SetEwTab(tab))),
-        },
-        list{text(tabLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Anomaly severity badge with colour coding.
-let severityBadge = (severity: anomalySeverity): Tea_Vdom.t<msg> => {
-  let (colour, lbl) = switch severity {
-  | AnomalyLow => ("bg-blue-600 text-white", "LOW")
-  | AnomalyMedium => ("bg-amber-500 text-white", "MED")
-  | AnomalyHigh => ("bg-orange-600 text-white", "HIGH")
-  | AnomalyCritical => ("bg-red-600 text-white", "CRIT")
-  }
-  span(list{Attrs.class_(`px-1.5 py-0.5 text-xs rounded font-mono ${colour}`)}, list{text(lbl)})
-}
-
-// =========================================================================
-// Tab content views
-// =========================================================================
-
-/// Session tab: current recording state, quick-flag button, and session vitals.
-let renderSessionTab = (state: exploratoryWorkbenchState): Tea_Vdom.t<msg> => {
-  switch state.currentSession {
-  | None =>
-    div(
-      list{Attrs.class_("p-4 text-gray-500 text-sm italic")},
-      list{text("No active session. Click Start Recording to begin an exploratory play session.")},
-    )
-  | Some(session) =>
-    div(
-      list{Attrs.class_("flex flex-col gap-4 p-4")},
-      list{
-        // Session vitals
-        div(
-          list{Attrs.class_("grid grid-cols-3 gap-3")},
-          list{
-            div(
-              list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-              list{
-                div(
-                  list{Attrs.class_("text-2xl font-light text-cyan-400")},
-                  list{text(`${Float.toFixed(session.durationMinutes, ~digits=1)}`)},
-                ),
-                div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Minutes")}),
-              },
-            ),
-            div(
-              list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-              list{
-                div(
-                  list{Attrs.class_("text-2xl font-light text-gray-300")},
-                  list{text(Int.toString(session.playerActions))},
-                ),
-                div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Actions")}),
-              },
-            ),
-            div(
-              list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-              list{
-                div(
-                  list{Attrs.class_("text-2xl font-light text-amber-400")},
-                  list{text(Int.toString(Array.length(session.anomalies)))},
-                ),
-                div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Anomalies")}),
-              },
-            ),
-          },
-        ),
-        // Quick-flag button — the "That felt weird" button
-        div(
-          list{Attrs.class_("flex justify-center")},
-          list{
-            button(
-              list{
-                Attrs.class_(
-                  "px-6 py-3 bg-amber-600 text-white rounded-lg hover:bg-amber-500 cursor-pointer text-sm font-medium shadow-lg",
-                ),
-                Events.onClick(ExploratoryWorkbench(QuickFlag("anomaly"))),
-              },
-              list{text("That felt weird")},
-            ),
-          },
-        ),
-        // Anomaly detection toggle
-        div(
-          list{Attrs.class_("flex items-center gap-3")},
-          list{
-            button(
-              list{
-                Attrs.class_(
-                  `px-3 py-1.5 text-xs rounded font-medium cursor-pointer ${state.anomalyDetectionEnabled
-                      ? "bg-cyan-700 text-white"
-                      : "bg-gray-700 text-gray-400"}`,
-                ),
-                Events.onClick(ExploratoryWorkbench(ToggleAnomalyDetection)),
-                KeyboardNav.onActivate(ExploratoryWorkbench(ToggleAnomalyDetection)),
-              },
-              list{
-                text(state.anomalyDetectionEnabled ? "Auto-Detection: ON" : "Auto-Detection: OFF"),
-              },
-            ),
-            span(
-              list{Attrs.class_("text-xs text-gray-500")},
-              list{text("Automatically detect gameplay anomalies")},
-            ),
-          },
-        ),
-      },
-    )
-  }
-}
-
-/// Anomalies tab: severity-badged list of detected anomalies.
-let renderAnomaliesTab = (state: exploratoryWorkbenchState): Tea_Vdom.t<msg> => {
-  if Array.length(state.anomalies) === 0 {
-    div(
-      list{Attrs.class_("p-4 text-gray-500 text-sm italic")},
-      list{text("No anomalies flagged yet. Use the quick-flag button or enable auto-detection.")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("flex flex-col gap-2 p-4")},
-      list{
-        div(
-          list{Attrs.class_("text-sm text-gray-400 mb-1")},
-          list{text(`${Int.toString(Array.length(state.anomalies))} anomaly(ies) flagged`)},
-        ),
-        div(
-          list{Attrs.class_("flex flex-col gap-1 max-h-96 overflow-y-auto")},
-          state.anomalies
-          ->Array.map(anomaly => {
-            let autoTag = anomaly.autoDetected
-              ? span(
-                  list{
-                    Attrs.class_("px-1 py-0.5 text-xs rounded bg-gray-600 text-gray-300 font-mono"),
-                  },
-                  list{text("AUTO")},
-                )
-              : noNode
-            div(
-              list{Attrs.class_("flex items-center gap-3 px-3 py-2 bg-gray-800 rounded text-sm")},
-              list{
-                severityBadge(anomaly.severity),
-                autoTag,
-                span(list{Attrs.class_("text-gray-300 flex-1")}, list{text(anomaly.description)}),
-                span(list{Attrs.class_("text-gray-600 text-xs")}, list{text(anomaly.category)}),
-              },
-            )
-          })
-          ->List.fromArray,
-        ),
-      },
-    )
-  }
-}
-
-/// Notes tab: session notes textarea for recording observations.
-let renderNotesTab = (state: exploratoryWorkbenchState): Tea_Vdom.t<msg> => {
-  let currentNotes = switch state.currentSession {
-  | Some(session) => session.notes
-  | None => ""
-  }
-  div(
-    list{Attrs.class_("flex flex-col gap-3 p-4")},
-    list{
-      h3(list{Attrs.class_("text-sm font-medium text-gray-300")}, list{text("Session Notes")}),
-      textarea(
-        list{
-          Attrs.class_(
-            "w-full h-48 bg-gray-800 text-gray-200 text-sm rounded p-3 border border-gray-700 focus:border-cyan-600 focus:outline-none resize-y font-mono",
-          ),
-          Attrs.placeholder("Record observations, hunches, and test ideas..."),
-          Attrs.value(currentNotes),
-          Events.onInput(text => ExploratoryWorkbench(UpdateNotes(text))),
-        },
-        list{},
-      ),
-      div(
-        list{Attrs.class_("text-xs text-gray-500")},
-        list{text(`${Int.toString(String.length(currentNotes))} character(s)`)},
-      ),
-    },
-  )
-}
-
-/// History tab: previous exploratory session summaries.
-let renderHistoryTab = (state: exploratoryWorkbenchState): Tea_Vdom.t<msg> => {
-  if Array.length(state.sessions) === 0 {
-    div(
-      list{Attrs.class_("p-4 text-gray-500 text-sm italic")},
-      list{text("No previous sessions recorded.")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("flex flex-col gap-2 p-4 max-h-96 overflow-y-auto")},
-      state.sessions
-      ->Array.map(session => {
-        let anomalyCount = Array.length(session.anomalies)
-        let borderCls = anomalyCount > 0 ? "border-amber-700" : "border-gray-700"
-        div(
-          list{Attrs.class_(`bg-gray-800 rounded p-3 border ${borderCls}`)},
-          list{
-            div(
-              list{Attrs.class_("flex items-center justify-between mb-1")},
-              list{
-                span(
-                  list{Attrs.class_("text-sm font-medium text-gray-200")},
-                  list{text(session.name)},
-                ),
-                span(list{Attrs.class_("text-xs text-gray-500 font-mono")}, list{text(session.id)}),
-              },
-            ),
-            div(
-              list{Attrs.class_("flex gap-4 text-xs text-gray-400")},
-              list{
-                text(`${Float.toFixed(session.durationMinutes, ~digits=1)} min`),
-                text(`${Int.toString(session.playerActions)} actions`),
-                text(`${Int.toString(anomalyCount)} anomalies`),
-              },
-            ),
-            if session.notes !== "" {
-              div(
-                list{Attrs.class_("text-xs text-gray-500 mt-1 truncate")},
-                list{text(session.notes)},
-              )
-            } else {
-              noNode
-            },
-          },
-        )
-      })
-      ->List.fromArray,
-    )
-  }
-}
-
-// =========================================================================
-// Main view
-// =========================================================================
-
-/// Primary view function dispatching tab content based on active tab.
-let view = (state: exploratoryWorkbenchState): Tea_Vdom.t<msg> => {
-  let content = switch state.activeTab {
-  | TabSession => renderSessionTab(state)
-  | TabAnomalies => renderAnomaliesTab(state)
-  | TabNotes => renderNotesTab(state)
-  | TabHistory => renderHistoryTab(state)
-  }
-
-  div(
-    list{Attrs.class_("flex flex-col h-full bg-gray-900 text-gray-100")},
-    list{
-      // Header with Start/Stop Recording
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          h2(
-            list{Attrs.class_("text-lg font-semibold text-cyan-300")},
-            list{text("Exploratory Workbench")},
-          ),
-          div(
-            list{Attrs.class_("flex gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1.5 text-xs bg-emerald-700 text-white rounded hover:bg-emerald-600 cursor-pointer font-medium",
-                  ),
-                  Events.onClick(ExploratoryWorkbench(StartRecording)),
-                  KeyboardNav.onActivate(ExploratoryWorkbench(StartRecording)),
-                },
-                list{text("Start Recording")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1.5 text-xs bg-red-700 text-white rounded hover:bg-red-600 cursor-pointer font-medium",
-                  ),
-                  Events.onClick(ExploratoryWorkbench(StopRecording)),
-                  KeyboardNav.onActivate(ExploratoryWorkbench(StopRecording)),
-                },
-                list{text("Stop Recording")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Recording indicator
-      if state.recording {
-        div(
-          list{
-            Attrs.class_("flex items-center gap-2 px-4 py-2 bg-gray-800 border-b border-gray-700"),
-          },
-          list{
-            div(list{Attrs.class_("w-3 h-3 bg-red-500 rounded-full animate-pulse")}, list{}),
-            span(list{Attrs.class_("text-sm text-red-300")}, list{text("Recording...")}),
-          },
-        )
-      } else {
-        noNode
-      },
-      // Error display
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_("px-4 py-2 bg-red-900/30 text-red-300 text-sm border-b border-red-800"),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      // Tab bar
-      renderTabs(state.activeTab),
-      // Content
-      div(list{Attrs.class_("flex-1 overflow-y-auto")}, list{content}),
-    },
-  )
-}
diff --git a/src/components/Farm.affine b/src/components/Farm.affine
new file mode 100644
index 00000000..01d8b30c
--- /dev/null
+++ b/src/components/Farm.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Farm;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Farm.res b/src/components/Farm.res
deleted file mode 100644
index 1bc35eef..00000000
--- a/src/components/Farm.res
+++ /dev/null
@@ -1,632 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Farm Component — view layer for the Git-Private-Farm panel.
-///
-/// Renders a full-screen overlay with the repo inventory from
-/// farm-manifest.json. Layout follows the CloudGuard pattern:
-///   - Header with title, stats, and close button
-///   - Category tab bar (All | By Group | By Language | By Forge | Enrollment | Health)
-///   - Filter/sort controls
-///   - Main inventory table/grid
-///
-/// The panel reads local JSON via the Gossamer backend — no HTTP service required.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a single category tab button.
-let renderCategoryTab = (cat: farmCategory, isActive: bool): Tea_Vdom.t<msg> => {
-  let activeClass = isActive
-    ? "border-indigo-500 text-indigo-300 bg-gray-800/50"
-    : "border-transparent text-gray-500 hover:text-gray-300 hover:border-gray-600"
-
-  button(
-    list{
-      Attrs.class_(
-        `px-3 py-2 text-sm font-medium border-b-2 cursor-pointer transition-colors ${activeClass}`,
-      ),
-      Attrs.role("tab"),
-      Events.onClick(Farm(SetFarmCategory(cat))),
-    },
-    list{text(FarmEngine.categoryLabel(cat))},
-  )
-}
-
-/// Render the category tab bar.
-let renderCategoryTabBar = (activeCategory: farmCategory): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("flex border-b border-gray-800 overflow-x-auto"),
-      Attrs.role("tablist"),
-      Attrs.ariaLabel("Farm view categories"),
-    },
-    FarmEngine.allCategories
-    ->Array.map(cat => renderCategoryTab(cat, cat === activeCategory))
-    ->List.fromArray,
-  )
-}
-
-/// Render a priority badge with colour coding.
-let renderPriorityBadge = (priority: farmPriority): Tea_Vdom.t<msg> => {
-  let (label, bgClass) = switch priority {
-  | High => ("HIGH", "bg-red-900/50 text-red-300 border-red-700")
-  | Medium => ("MED", "bg-amber-900/50 text-amber-300 border-amber-700")
-  | Low => ("LOW", "bg-gray-800/50 text-gray-400 border-gray-700")
-  }
-  span(list{Attrs.class_(`text-xs px-1.5 py-0.5 rounded border ${bgClass}`)}, list{text(label)})
-}
-
-/// Render forge badges for a repo (small coloured pills).
-let renderForgeBadges = (forges: array<farmForge>): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-wrap gap-1")},
-    forges
-    ->Array.map(f => {
-      let colour = switch f.name {
-      | "github" => "bg-gray-700 text-gray-200"
-      | "gitlab" => "bg-orange-900/50 text-orange-300"
-      | "sourcehut" => "bg-blue-900/50 text-blue-300"
-      | "codeberg" => "bg-green-900/50 text-green-300"
-      | "bitbucket" => "bg-blue-800/50 text-blue-200"
-      | "radicle" => "bg-purple-900/50 text-purple-300"
-      | _ => "bg-gray-800 text-gray-400"
-      }
-      span(list{Attrs.class_(`text-xs px-1.5 py-0.5 rounded ${colour}`)}, list{text(f.name)})
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Render a single repo row in the inventory table.
-let renderRepoRow = (repo: farmRepo): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_(
-        "flex items-center gap-3 px-4 py-2 hover:bg-gray-800/30 border-b border-gray-800/50 transition-colors",
-      ),
-    },
-    list{
-      // Name + description
-      div(
-        list{Attrs.class_("flex-1 min-w-0")},
-        list{
-          div(
-            list{Attrs.class_("text-sm font-medium text-gray-200 truncate")},
-            list{text(repo.name)},
-          ),
-          div(list{Attrs.class_("text-xs text-gray-500 truncate")}, list{text(repo.description)}),
-        },
-      ),
-      // Language
-      div(
-        list{Attrs.class_("w-20 text-xs text-gray-400 text-center")},
-        list{text(repo.language === "" ? "-" : repo.language)},
-      ),
-      // Priority
-      div(list{Attrs.class_("w-16 flex justify-center")}, list{renderPriorityBadge(repo.priority)}),
-      // Forges
-      div(list{Attrs.class_("w-48")}, list{renderForgeBadges(repo.forges)}),
-      // Auto-propagate indicator
-      div(
-        list{Attrs.class_("w-8 text-center")},
-        list{
-          span(
-            list{
-              Attrs.class_(repo.autoPropagation ? "text-emerald-400" : "text-gray-600"),
-              Attrs.title(repo.autoPropagation ? "Auto-propagation enabled" : "Manual sync"),
-            },
-            list{text(repo.autoPropagation ? "A" : "-")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render the table header row.
-let renderTableHeader = (): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_(
-        "flex items-center gap-3 px-4 py-2 border-b border-gray-700 text-xs font-medium text-gray-500 uppercase tracking-wider",
-      ),
-    },
-    list{
-      div(list{Attrs.class_("flex-1")}, list{text("Repository")}),
-      div(list{Attrs.class_("w-20 text-center")}, list{text("Lang")}),
-      div(list{Attrs.class_("w-16 text-center")}, list{text("Priority")}),
-      div(list{Attrs.class_("w-48")}, list{text("Forges")}),
-      div(list{Attrs.class_("w-8 text-center")}, list{text("Auto")}),
-    },
-  )
-}
-
-/// Render grouped repos (for By Group / By Language views).
-let renderGroupedRepos = (groups: array<(string, array<farmRepo>)>): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-4")},
-    groups
-    ->Array.map(((groupName, repos)) => {
-      div(
-        list{Attrs.class_("border border-gray-800 rounded-lg overflow-hidden")},
-        list{
-          // Group header
-          div(
-            list{
-              Attrs.class_(
-                "px-4 py-2 bg-gray-800/50 text-sm font-medium text-gray-300 flex items-center justify-between",
-              ),
-            },
-            list{
-              text(groupName),
-              span(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{text(`${Int.toString(Array.length(repos))} repos`)},
-              ),
-            },
-          ),
-          // Repo rows
-          div(list{Attrs.class_("")}, repos->Array.map(renderRepoRow)->List.fromArray),
-        },
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Render the forge coverage summary (for By Forge view).
-let renderForgeCoverage = (repos: array<farmRepo>): Tea_Vdom.t<msg> => {
-  let forgeCounts = FarmEngine.countByForge(repos)
-  let total = Array.length(repos)
-  div(
-    list{Attrs.class_("space-y-3 p-4")},
-    list{
-      div(
-        list{Attrs.class_("text-sm text-gray-400 mb-2")},
-        list{text(`Forge coverage across ${Int.toString(total)} repos`)},
-      ),
-      div(
-        list{Attrs.class_("space-y-2")},
-        forgeCounts
-        ->Array.map(((forgeName, count)) => {
-          let pct =
-            total > 0
-              ? Float.toFixed(Int.toFloat(count) /. Int.toFloat(total) *. 100.0, ~digits=0)
-              : "0"
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              div(list{Attrs.class_("w-24 text-sm text-gray-300")}, list{text(forgeName)}),
-              div(
-                list{Attrs.class_("flex-1 h-2 bg-gray-800 rounded-full overflow-hidden")},
-                list{
-                  div(
-                    list{
-                      Attrs.class_("h-full bg-indigo-500 rounded-full transition-all"),
-                      Attrs.style("width", `${pct}%`),
-                    },
-                    list{},
-                  ),
-                },
-              ),
-              div(
-                list{Attrs.class_("w-16 text-xs text-gray-500 text-right")},
-                list{text(`${Int.toString(count)}/${Int.toString(total)}`)},
-              ),
-            },
-          )
-        })
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-/// Render the main content area based on active category.
-let renderContent = (farm: farmState): Tea_Vdom.t<msg> => {
-  let filtered = FarmEngine.filterRepos(farm.repos, farm.filterText)
-  let sorted = FarmEngine.sortRepos(filtered, farm.sortBy)
-
-  switch farm.activeCategory {
-  | AllRepos =>
-    div(
-      list{Attrs.class_("flex-1 overflow-y-auto")},
-      list{
-        renderTableHeader(),
-        div(list{Attrs.class_("")}, sorted->Array.map(renderRepoRow)->List.fromArray),
-      },
-    )
-  | ByGroup =>
-    div(
-      list{Attrs.class_("flex-1 overflow-y-auto p-4")},
-      list{renderGroupedRepos(FarmEngine.groupByGroup(filtered))},
-    )
-  | ByLanguage =>
-    div(
-      list{Attrs.class_("flex-1 overflow-y-auto p-4")},
-      list{renderGroupedRepos(FarmEngine.groupByLanguage(filtered))},
-    )
-  | ByForge =>
-    div(list{Attrs.class_("flex-1 overflow-y-auto")}, list{renderForgeCoverage(filtered)})
-  | Enrollment => {
-      let farmCount = filtered->Array.filter(r => r.enrollment.farm)->Array.length
-      let hypatiaCount = filtered->Array.filter(r => r.enrollment.hypatia)->Array.length
-      let fleetCount = filtered->Array.filter(r => r.enrollment.fleet)->Array.length
-      let totalCount = Array.length(filtered)
-      let pctBar = (count: int): string =>
-        if totalCount > 0 {
-          Float.toFixed(Int.toFloat(count) /. Int.toFloat(totalCount) *. 100.0, ~digits=0)
-        } else {
-          "0"
-        }
-      div(
-        list{
-          Attrs.class_("flex-1 overflow-y-auto p-4 space-y-6"),
-          Attrs.role("region"),
-          Attrs.ariaLabel("Three-tier enrollment status"),
-        },
-        list{
-          // Summary heading
-          div(
-            list{Attrs.class_("text-sm font-medium text-gray-300 mb-2")},
-            list{text("Three-Tier Enrollment Pipeline")},
-          ),
-          div(
-            list{Attrs.class_("text-xs text-gray-500 mb-4")},
-            list{
-              text(
-                "Each tier builds on the previous: Farm (admin registry) > Hypatia (scanning) > Fleet (execution)",
-              ),
-            },
-          ),
-          // Tier bars
-          div(
-            list{Attrs.class_("space-y-3")},
-            list{
-              // Tier 1: Farm
-              div(
-                list{Attrs.class_("flex items-center gap-3")},
-                list{
-                  div(
-                    list{Attrs.class_("w-36 text-sm text-emerald-400 font-medium")},
-                    list{text("git-private-farm")},
-                  ),
-                  div(
-                    list{Attrs.class_("flex-1 h-4 bg-gray-800 rounded-full overflow-hidden")},
-                    list{
-                      div(
-                        list{
-                          Attrs.class_("h-full bg-emerald-600 rounded-full transition-all"),
-                          Attrs.prop("style", `width: ${pctBar(farmCount)}%`),
-                        },
-                        list{},
-                      ),
-                    },
-                  ),
-                  div(
-                    list{Attrs.class_("w-20 text-xs text-gray-400 text-right")},
-                    list{text(`${Int.toString(farmCount)}/${Int.toString(totalCount)}`)},
-                  ),
-                },
-              ),
-              // Tier 2: Hypatia
-              div(
-                list{Attrs.class_("flex items-center gap-3")},
-                list{
-                  div(
-                    list{Attrs.class_("w-36 text-sm text-indigo-400 font-medium")},
-                    list{text("hypatia")},
-                  ),
-                  div(
-                    list{Attrs.class_("flex-1 h-4 bg-gray-800 rounded-full overflow-hidden")},
-                    list{
-                      div(
-                        list{
-                          Attrs.class_("h-full bg-indigo-600 rounded-full transition-all"),
-                          Attrs.prop("style", `width: ${pctBar(hypatiaCount)}%`),
-                        },
-                        list{},
-                      ),
-                    },
-                  ),
-                  div(
-                    list{Attrs.class_("w-20 text-xs text-gray-400 text-right")},
-                    list{text(`${Int.toString(hypatiaCount)}/${Int.toString(totalCount)}`)},
-                  ),
-                },
-              ),
-              // Tier 3: Fleet
-              div(
-                list{Attrs.class_("flex items-center gap-3")},
-                list{
-                  div(
-                    list{Attrs.class_("w-36 text-sm text-purple-400 font-medium")},
-                    list{text("gitbot-fleet")},
-                  ),
-                  div(
-                    list{Attrs.class_("flex-1 h-4 bg-gray-800 rounded-full overflow-hidden")},
-                    list{
-                      div(
-                        list{
-                          Attrs.class_("h-full bg-purple-600 rounded-full transition-all"),
-                          Attrs.prop("style", `width: ${pctBar(fleetCount)}%`),
-                        },
-                        list{},
-                      ),
-                    },
-                  ),
-                  div(
-                    list{Attrs.class_("w-20 text-xs text-gray-400 text-right")},
-                    list{text(`${Int.toString(fleetCount)}/${Int.toString(totalCount)}`)},
-                  ),
-                },
-              ),
-            },
-          ),
-          // Per-repo enrollment table
-          div(
-            list{Attrs.class_("border border-gray-700 rounded-lg overflow-hidden mt-4")},
-            list{
-              // Header
-              div(
-                list{
-                  Attrs.class_(
-                    "flex items-center gap-3 px-4 py-2 border-b border-gray-700 text-xs font-medium text-gray-500 uppercase tracking-wider",
-                  ),
-                },
-                list{
-                  div(list{Attrs.class_("flex-1")}, list{text("Repository")}),
-                  div(list{Attrs.class_("w-16 text-center")}, list{text("Farm")}),
-                  div(list{Attrs.class_("w-16 text-center")}, list{text("Hypatia")}),
-                  div(list{Attrs.class_("w-16 text-center")}, list{text("Fleet")}),
-                },
-              ),
-              // Rows
-              div(
-                list{Attrs.class_("max-h-96 overflow-y-auto")},
-                sorted
-                ->Array.map(repo => {
-                  let tierDot = (enrolled: bool): Tea_Vdom.t<msg> =>
-                    span(
-                      list{
-                        Attrs.class_(enrolled ? "text-emerald-400" : "text-gray-700"),
-                        Attrs.ariaLabel(enrolled ? "Enrolled" : "Not enrolled"),
-                      },
-                      list{text(enrolled ? "Y" : "-")},
-                    )
-                  div(
-                    list{
-                      Attrs.class_(
-                        "flex items-center gap-3 px-4 py-2 border-b border-gray-800/50 hover:bg-gray-800/30 transition-colors",
-                      ),
-                      Attrs.ariaLabel(`${repo.name} enrollment status`),
-                    },
-                    list{
-                      div(
-                        list{Attrs.class_("flex-1 text-sm text-gray-300 truncate")},
-                        list{text(repo.name)},
-                      ),
-                      div(
-                        list{Attrs.class_("w-16 text-center")},
-                        list{tierDot(repo.enrollment.farm)},
-                      ),
-                      div(
-                        list{Attrs.class_("w-16 text-center")},
-                        list{tierDot(repo.enrollment.hypatia)},
-                      ),
-                      div(
-                        list{Attrs.class_("w-16 text-center")},
-                        list{tierDot(repo.enrollment.fleet)},
-                      ),
-                    },
-                  )
-                })
-                ->List.fromArray,
-              ),
-            },
-          ),
-        },
-      )
-    }
-  | Health => {
-      let unhealthy =
-        filtered
-        ->Array.filter(r =>
-          switch r.healthScore {
-          | Some(s) => s < 0.5
-          | None => false
-          }
-        )
-        ->Array.length
-      let unassessed = filtered->Array.filter(r => Option.isNone(r.healthScore))->Array.length
-      let withAlerts = filtered->Array.filter(r => r.hasDependabotAlerts)->Array.length
-      div(
-        list{
-          Attrs.class_("flex-1 overflow-y-auto p-4 space-y-6"),
-          Attrs.role("region"),
-          Attrs.ariaLabel("Farm health dashboard"),
-        },
-        list{
-          // Quick stats
-          div(
-            list{Attrs.class_("flex gap-6 text-sm")},
-            list{
-              div(
-                list{Attrs.class_(unhealthy > 0 ? "text-red-400" : "text-gray-400")},
-                list{text(`Unhealthy (score < 0.5): ${Int.toString(unhealthy)}`)},
-              ),
-              div(
-                list{Attrs.class_("text-gray-400")},
-                list{text(`Unassessed: ${Int.toString(unassessed)}`)},
-              ),
-              div(
-                list{Attrs.class_(withAlerts > 0 ? "text-amber-400" : "text-gray-400")},
-                list{text(`Dependabot alerts: ${Int.toString(withAlerts)}`)},
-              ),
-            },
-          ),
-          // Hypatia integration prompt
-          div(
-            list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-6 text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-sm text-gray-400 mb-3")},
-                list{text("Health scores are populated by Hypatia neurosymbolic scanning.")},
-              ),
-              div(
-                list{Attrs.class_("text-xs text-gray-500 mb-4")},
-                list{
-                  text(
-                    `${Int.toString(unassessed)} of ${Int.toString(
-                        Array.length(filtered),
-                      )} repos have not been assessed yet.`,
-                  ),
-                },
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-4 py-2 bg-indigo-600 text-white text-sm rounded hover:bg-indigo-500 transition-colors",
-                  ),
-                  Attrs.ariaLabel("Open Hypatia panel to run health scans"),
-                  Events.onClick(PanelSwitcher(TogglePanel(PanelHypatia))),
-                },
-                list{text("Open Hypatia")},
-              ),
-            },
-          ),
-        },
-      )
-    }
-  }
-}
-
-/// Render the header bar with title, stats summary, and controls.
-let renderHeader = (farm: farmState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex items-center justify-between px-6 py-4 border-b border-gray-800")},
-    list{
-      // Title and stats
-      div(
-        list{Attrs.class_("flex items-center gap-4")},
-        list{
-          div(
-            list{Attrs.class_("text-lg font-medium text-gray-200")},
-            list{text("Git-Private-Farm")},
-          ),
-          if farm.loaded {
-            div(
-              list{Attrs.class_("flex items-center gap-3 text-xs text-gray-500")},
-              list{
-                span(list{}, list{text(`${Int.toString(farm.totalRepos)} repos`)}),
-                span(list{Attrs.class_("text-gray-700")}, list{text("|")}),
-                span(list{}, list{text(`${Int.toString(Array.length(farm.repos))} loaded`)}),
-              },
-            )
-          } else {
-            noNode
-          },
-        },
-      ),
-      // Controls: filter, sort, close
-      div(
-        list{Attrs.class_("flex items-center gap-3")},
-        list{
-          // Filter input
-          input(
-            list{
-              Attrs.class_(
-                "bg-gray-800 border border-gray-700 rounded px-3 py-1.5 text-sm text-gray-200 placeholder-gray-500 focus:border-indigo-500 focus:outline-none w-48",
-              ),
-              Attrs.placeholder("Filter repos..."),
-              Attrs.value(farm.filterText),
-              Events.onInput(text => Farm(SetFarmFilter(text))),
-            },
-            list{},
-          ),
-          // Close button
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-sm text-gray-400 hover:text-gray-200 bg-gray-800 rounded hover:bg-gray-700 transition-colors",
-              ),
-              Events.onClick(PanelSwitcher(ClosePanels)),
-              KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-            },
-            list{text("Close")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render a loading state.
-let renderLoading = (): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 flex items-center justify-center")},
-    list{
-      div(
-        list{Attrs.class_("text-gray-500 animate-pulse")},
-        list{text("Loading farm manifest...")},
-      ),
-    },
-  )
-}
-
-/// Render an error state.
-let renderError = (error: string): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 flex items-center justify-center")},
-    list{
-      div(
-        list{Attrs.class_("text-center")},
-        list{
-          div(list{Attrs.class_("text-red-400 mb-2")}, list{text("Failed to load farm manifest")}),
-          div(list{Attrs.class_("text-sm text-gray-500 mb-4")}, list{text(error)}),
-          button(
-            list{
-              Attrs.class_(
-                "px-4 py-2 bg-gray-800 text-gray-300 rounded hover:bg-gray-700 transition-colors",
-              ),
-              Events.onClick(Farm(LoadRepos)),
-              KeyboardNav.onActivate(Farm(LoadRepos)),
-            },
-            list{text("Retry")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Main Farm panel view — full-screen overlay.
-let view = (farm: farmState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.ariaLabel("Git-Private-Farm panel"),
-    },
-    list{
-      // Header
-      renderHeader(farm),
-      // Category tabs
-      renderCategoryTabBar(farm.activeCategory),
-      // Content area
-      if farm.loading {
-        renderLoading()
-      } else {
-        switch farm.error {
-        | Some(e) => renderError(e)
-        | None =>
-          if !farm.loaded {
-            renderLoading()
-          } else {
-            renderContent(farm)
-          }
-        }
-      },
-    },
-  )
-}
diff --git a/src/components/FeedbackOTron.affine b/src/components/FeedbackOTron.affine
new file mode 100644
index 00000000..b40ef774
--- /dev/null
+++ b/src/components/FeedbackOTron.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FeedbackOTron;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/FeedbackOTron.res b/src/components/FeedbackOTron.res
deleted file mode 100644
index 5d6923ee..00000000
--- a/src/components/FeedbackOTron.res
+++ /dev/null
@@ -1,348 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Feedback-O-Tron Component
-///
-/// The "Voice of the Arena" module for collective governance.
-/// Captures context-aware reports on Agent performance and
-/// enables crowdsourced constraint suggestions.
-
-open Msg
-open Tea.Html
-
-/// Report types for Orbital Decay
-type reportType =
-  | Hallucination
-  | ConstraintViolation
-  | PerformanceIssue
-  | UXFriction
-  | FeatureRequest
-
-/// Get report type label
-let getReportLabel = (rt: reportType): string => {
-  switch rt {
-  | Hallucination => "Hallucination"
-  | ConstraintViolation => "Constraint Violation"
-  | PerformanceIssue => "Performance Issue"
-  | UXFriction => "UX Friction"
-  | FeatureRequest => "Feature Request"
-  }
-}
-
-/// Map report type to string value
-let reportTypeToString = (rt: reportType): string => {
-  switch rt {
-  | Hallucination => "Hallucination"
-  | ConstraintViolation => "ConstraintViolation"
-  | PerformanceIssue => "PerformanceIssue"
-  | UXFriction => "UXFriction"
-  | FeatureRequest => "FeatureRequest"
-  }
-}
-
-/// Get report type colour
-let getReportColour = (rt: reportType): string => {
-  switch rt {
-  | Hallucination => "bg-red-600"
-  | ConstraintViolation => "bg-amber-600"
-  | PerformanceIssue => "bg-orange-600"
-  | UXFriction => "bg-yellow-600"
-  | FeatureRequest => "bg-blue-600"
-  }
-}
-
-/// Render a report type button
-let renderReportTypeButton = (rt: reportType, selectedType: option<string>): Tea_Vdom.t<msg> => {
-  let baseClass = "px-3 py-1 rounded text-xs transition-all"
-  let colour = getReportColour(rt)
-  let isSelected = selectedType === Some(reportTypeToString(rt))
-  let selectedClass = isSelected
-    ? `${colour} text-white`
-    : "bg-gray-800 text-gray-400 hover:bg-gray-700"
-
-  button(
-    list{
-      Attrs.class_(`${baseClass} ${selectedClass}`),
-      Events.onClick(Feedback(SetReportType(reportTypeToString(rt)))),
-    },
-    list{text(getReportLabel(rt))},
-  )
-}
-
-/// Render the BoJ context snapshot section for feedback reports.
-/// Captures cartridge server state so maintainers can correlate
-/// user-reported issues with backend conditions.
-let renderBojContext = (boj: BojModel.bojState): Tea_Vdom.t<msg> => {
-  let connectedLabel = boj.connected ? "Connected" : "Disconnected"
-  let connectedColour = boj.connected ? "text-emerald-400" : "text-red-400"
-  let cartridgeCount = Array.length(boj.cartridges)
-  let loadedCount = boj.cartridges->Array.filter(c => c.loaded)->Array.length
-  let federationLabel = boj.umoja.active ? "Active" : "Inactive"
-  let federationColour = boj.umoja.active ? "text-emerald-400" : "text-gray-500"
-  let peerCount = Array.length(boj.umoja.peers)
-
-  let lastResultView = switch boj.invokeResult {
-  | Some(result) =>
-    let statusLabel = result.success ? "OK" : "FAIL"
-    let statusColour = result.success ? "text-emerald-400" : "text-red-400"
-    div(
-      list{Attrs.class_("flex justify-between")},
-      list{
-        span(list{Attrs.class_("text-gray-500")}, list{text("Last Invoke")}),
-        span(
-          list{Attrs.class_(statusColour)},
-          list{text(`${statusLabel} (${Int.toString(result.durationMs)}ms)`)},
-        ),
-      },
-    )
-  | None =>
-    div(
-      list{Attrs.class_("flex justify-between")},
-      list{
-        span(list{Attrs.class_("text-gray-500")}, list{text("Last Invoke")}),
-        span(list{Attrs.class_("text-gray-600")}, list{text("None")}),
-      },
-    )
-  }
-
-  let errorView = switch boj.error {
-  | Some(err) =>
-    div(
-      list{Attrs.class_("flex justify-between")},
-      list{
-        span(list{Attrs.class_("text-gray-500")}, list{text("Error")}),
-        span(
-          list{Attrs.class_("text-red-400 truncate ml-2 max-w-[200px]"), Attrs.title(err)},
-          list{text(err)},
-        ),
-      },
-    )
-  | None => noNode
-  }
-
-  div(
-    list{Attrs.class_("bg-sky-900/20 p-2 rounded")},
-    list{
-      div(list{Attrs.class_("text-sky-400 mb-1")}, list{text("BoJ Server")}),
-      div(
-        list{Attrs.class_("space-y-1")},
-        list{
-          div(
-            list{Attrs.class_("flex justify-between")},
-            list{
-              span(list{Attrs.class_("text-gray-500")}, list{text("Status")}),
-              span(list{Attrs.class_(connectedColour)}, list{text(connectedLabel)}),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex justify-between")},
-            list{
-              span(list{Attrs.class_("text-gray-500")}, list{text("Cartridges")}),
-              span(
-                list{Attrs.class_("text-gray-300")},
-                list{text(`${Int.toString(loadedCount)}/${Int.toString(cartridgeCount)} loaded`)},
-              ),
-            },
-          ),
-          lastResultView,
-          errorView,
-          div(
-            list{Attrs.class_("flex justify-between")},
-            list{
-              span(list{Attrs.class_("text-gray-500")}, list{text("Umoja")}),
-              span(
-                list{Attrs.class_(federationColour)},
-                list{text(`${federationLabel} (${Int.toString(peerCount)} peers)`)},
-              ),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render the feedback form
-let renderFeedbackForm = (
-  pendingReport: option<string>,
-  feedbackError: option<string>,
-  selectedType: option<string>,
-  boj: BojModel.bojState,
-): Tea_Vdom.t<msg> => {
-  let reportTypes = [
-    Hallucination,
-    ConstraintViolation,
-    PerformanceIssue,
-    UXFriction,
-    FeatureRequest,
-  ]
-  let errorView = switch feedbackError {
-  | Some(err) => div(list{Attrs.class_("mt-2 text-xs text-red-400")}, list{text(err)})
-  | None => noNode
-  }
-
-  div(
-    list{Attrs.class_("fixed inset-0 bg-black/80 flex items-center justify-center z-50")},
-    list{
-      div(
-        list{
-          Attrs.class_(
-            "bg-gray-900 border border-gray-700 rounded-lg w-[500px] max-h-[80vh] overflow-auto",
-          ),
-          Attrs.role("dialog"),
-          Attrs.ariaLabel("Feedback Form"),
-        },
-        list{
-          // Header
-          div(
-            list{Attrs.class_("p-4 border-b border-gray-700")},
-            list{
-              div(
-                list{Attrs.class_("flex items-center justify-between")},
-                list{
-                  div(
-                    list{Attrs.class_("text-lg font-semibold text-gray-200")},
-                    list{text("Feedback-O-Tron")},
-                  ),
-                  button(
-                    list{
-                      Attrs.class_("text-gray-500 hover:text-gray-300"),
-                      Attrs.ariaLabel("Close feedback form"),
-                      Events.onClick(Feedback(CancelFeedback)),
-                      KeyboardNav.onActivate(Feedback(CancelFeedback)),
-                    },
-                    list{text("×")},
-                  ),
-                },
-              ),
-              div(
-                list{Attrs.class_("text-xs text-gray-500 mt-1")},
-                list{text("Report Orbital Decay to the Community")},
-              ),
-            },
-          ),
-          // Report type selection
-          div(
-            list{Attrs.class_("p-4 border-b border-gray-800")},
-            list{
-              div(list{Attrs.class_("text-xs text-gray-500 mb-2")}, list{text("REPORT TYPE")}),
-              div(
-                list{Attrs.class_("flex flex-wrap gap-2"), Attrs.role("radiogroup")},
-                reportTypes
-                ->Array.map(rt => renderReportTypeButton(rt, selectedType))
-                ->List.fromArray,
-              ),
-            },
-          ),
-          // Description
-          div(
-            list{Attrs.class_("p-4 border-b border-gray-800")},
-            list{
-              div(list{Attrs.class_("text-xs text-gray-500 mb-2")}, list{text("DESCRIPTION")}),
-              textarea(
-                list{
-                  Attrs.class_(
-                    "w-full h-24 bg-gray-800 border border-gray-700 rounded p-3 text-sm text-gray-300 resize-none focus:border-gray-500 focus:outline-none",
-                  ),
-                  Attrs.placeholder("Describe the issue..."),
-                  Attrs.value(Option.getOr(pendingReport, "")),
-                  Events.onInput(value => Feedback(SubmitFeedback(value))),
-                },
-                list{},
-              ),
-              errorView,
-            },
-          ),
-          // Context snapshot info
-          div(
-            list{Attrs.class_("p-4 border-b border-gray-800")},
-            list{
-              div(list{Attrs.class_("text-xs text-gray-500 mb-2")}, list{text("CONTEXT SNAPSHOT")}),
-              div(
-                list{Attrs.class_("grid grid-cols-2 gap-2 text-xs")},
-                list{
-                  div(
-                    list{Attrs.class_("bg-indigo-900/30 p-2 rounded")},
-                    list{
-                      div(list{Attrs.class_("text-indigo-400")}, list{text("Panel-L")}),
-                      div(list{Attrs.class_("text-gray-500")}, list{text("Captured")}),
-                    },
-                  ),
-                  div(
-                    list{Attrs.class_("bg-emerald-900/30 p-2 rounded")},
-                    list{
-                      div(list{Attrs.class_("text-emerald-400")}, list{text("Panel-N")}),
-                      div(list{Attrs.class_("text-gray-500")}, list{text("Captured")}),
-                    },
-                  ),
-                  div(
-                    list{Attrs.class_("bg-gray-800/50 p-2 rounded")},
-                    list{
-                      div(list{Attrs.class_("text-gray-400")}, list{text("Panel-W")}),
-                      div(list{Attrs.class_("text-gray-500")}, list{text("Captured")}),
-                    },
-                  ),
-                  renderBojContext(boj),
-                },
-              ),
-            },
-          ),
-          // Actions
-          div(
-            list{Attrs.class_("p-4 flex justify-end gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-4 py-2 bg-gray-800 hover:bg-gray-700 rounded text-sm text-gray-400 transition-colors",
-                  ),
-                  Events.onClick(Feedback(CancelFeedback)),
-                  KeyboardNav.onActivate(Feedback(CancelFeedback)),
-                },
-                list{text("Cancel")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-4 py-2 bg-emerald-600 hover:bg-emerald-500 rounded text-sm text-white transition-colors",
-                  ),
-                  Events.onClick(Feedback(FeedbackSubmitted)),
-                  KeyboardNav.onActivate(Feedback(FeedbackSubmitted)),
-                },
-                list{text("Submit Report")},
-              ),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render the feedback trigger button
-let renderTriggerButton = (): Tea_Vdom.t<msg> => {
-  button(
-    list{
-      Attrs.class_(
-        "fixed bottom-4 left-4 px-3 py-2 bg-gray-800 hover:bg-gray-700 border border-gray-700 rounded text-xs text-gray-400 transition-colors",
-      ),
-      Attrs.title("Open the Feedback-O-Tron to report an issue or suggest an improvement"),
-      Attrs.ariaLabel("Report Issue"),
-      Events.onClick(Feedback(OpenFeedback)),
-      KeyboardNav.onActivate(Feedback(OpenFeedback)),
-    },
-    list{text("Report Issue")},
-  )
-}
-
-/// Main Feedback-O-Tron view
-let view = (
-  feedbackPending: option<string>,
-  feedbackError: option<string>,
-  selectedType: option<string>,
-  boj: BojModel.bojState,
-): Tea_Vdom.t<msg> => {
-  switch feedbackPending {
-  | Some(_) => renderFeedbackForm(feedbackPending, feedbackError, selectedType, boj)
-  | None => renderTriggerButton()
-  }
-}
diff --git a/src/components/FeedbackRouting.affine b/src/components/FeedbackRouting.affine
new file mode 100644
index 00000000..dccfb171
--- /dev/null
+++ b/src/components/FeedbackRouting.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FeedbackRouting;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/FeedbackRouting.res b/src/components/FeedbackRouting.res
deleted file mode 100644
index 765543d7..00000000
--- a/src/components/FeedbackRouting.res
+++ /dev/null
@@ -1,278 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Feedback Routing Component — upstream bug report status and integration map.
-///
-/// Two-column layout: left sidebar with report list, right content with
-/// detail view showing report status, platform, and external links.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a report status badge.
-let statusBadge = (status: reportStatus): Tea_Vdom.t<msg> => {
-  let (color, label) = switch status {
-  | ReportFiled => ("text-blue-400", "Filed")
-  | ReportAcknowledged => ("text-cyan-400", "Ack")
-  | ReportInProgress => ("text-amber-400", "In Progress")
-  | ReportResolved => ("text-green-400", "Resolved")
-  | ReportClosed => ("text-gray-400", "Closed")
-  | ReportWontFix => ("text-red-400", "Won't Fix")
-  }
-  span(list{Attrs.class_("text-xs font-mono " ++ color)}, list{text(label)})
-}
-
-/// Render a report row in the sidebar.
-let reportRow = (report: feedbackReport, selected: bool): Tea_Vdom.t<msg> => {
-  button(
-    list{
-      Attrs.class_(
-        "w-full text-left px-3 py-2 border-b border-gray-800 hover:bg-gray-800/60 transition-colors " ++ if (
-          selected
-        ) {
-          "bg-gray-800/80 border-l-2 border-l-blue-500"
-        } else {
-          ""
-        },
-      ),
-      Events.onClick(FeedbackRouting(SelectReport(report.reportId))),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between")},
-        list{
-          span(list{Attrs.class_("text-sm text-gray-200 truncate")}, list{text(report.title)}),
-          statusBadge(report.status),
-        },
-      ),
-      div(
-        list{Attrs.class_("text-xs text-gray-500 mt-0.5")},
-        list{
-          text(`${FeedbackRoutingEngine.platformLabel(report.platform)} | ${report.targetRepo}`),
-        },
-      ),
-    },
-  )
-}
-
-/// Render a tab button.
-let tabBtn = (current: feedbackRoutingTab, target: feedbackRoutingTab, label: string): Tea_Vdom.t<
-  msg,
-> => {
-  let active = current == target
-  button(
-    list{
-      Attrs.class_(
-        "px-3 py-1 text-xs rounded " ++ if active {
-          "bg-blue-600 text-white"
-        } else {
-          "bg-gray-800 text-gray-400 hover:bg-gray-700"
-        },
-      ),
-      Events.onClick(FeedbackRouting(SetTab(target))),
-      Attrs.role("tab"),
-      Attrs.ariaSelected(active),
-    },
-    list{text(label)},
-  )
-}
-
-/// Main view function for the Feedback Routing panel.
-let view = (state: feedbackRoutingState): Tea_Vdom.t<msg> => {
-  let openCount = FeedbackRoutingEngine.openReportCount(state.reports)
-  let total = Array.length(state.reports)
-
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Feedback Routing — Upstream Bug Report Status"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-bold text-pink-300")},
-                list{text("Feedback Routing")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{text(`${Int.toString(openCount)} open / ${Int.toString(total)} total`)},
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_("px-3 py-1 text-xs rounded bg-green-700 text-white hover:bg-green-600"),
-              Events.onClick(FeedbackRouting(RefreshReports)),
-              KeyboardNav.onActivate(FeedbackRouting(RefreshReports)),
-            },
-            list{
-              text(
-                if state.refreshing {
-                  "Refreshing..."
-                } else {
-                  "Refresh"
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Tabs
-      div(
-        list{Attrs.class_("flex gap-1 px-4 py-2 border-b border-gray-800"), Attrs.role("tablist")},
-        FeedbackRoutingEngine.allTabs
-        ->Array.map(t => tabBtn(state.activeTab, t, FeedbackRoutingEngine.tabLabel(t)))
-        ->List.fromArray,
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 px-3 py-2 bg-red-900/50 border border-red-700 rounded text-sm text-red-200",
-            ),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      // Two-column layout
-      div(
-        list{Attrs.class_("flex flex-1 overflow-hidden")},
-        list{
-          // Left sidebar
-          div(
-            list{Attrs.class_("w-72 border-r border-gray-800 overflow-y-auto")},
-            state.reports
-            ->Array.map(r => reportRow(r, state.selectedReport == Some(r.reportId)))
-            ->List.fromArray,
-          ),
-          // Right content
-          div(
-            list{Attrs.class_("flex-1 overflow-y-auto px-4 py-2")},
-            list{
-              switch state.selectedReport {
-              | None =>
-                div(
-                  list{Attrs.class_("flex items-center justify-center h-full text-gray-600")},
-                  list{text("Select a report to view details")},
-                )
-              | Some(reportId) =>
-                switch state.reports->Array.find(r => r.reportId == reportId) {
-                | None => div(list{}, list{text("Report not found")})
-                | Some(report) =>
-                  div(
-                    list{},
-                    list{
-                      h3(
-                        list{Attrs.class_("text-md font-semibold text-gray-200 mb-3")},
-                        list{text(report.title)},
-                      ),
-                      div(
-                        list{Attrs.class_("space-y-2")},
-                        list{
-                          div(
-                            list{Attrs.class_("flex items-center gap-2")},
-                            list{
-                              span(
-                                list{Attrs.class_("text-xs text-gray-500 w-28")},
-                                list{text("Status:")},
-                              ),
-                              statusBadge(report.status),
-                            },
-                          ),
-                          div(
-                            list{Attrs.class_("flex items-center gap-2")},
-                            list{
-                              span(
-                                list{Attrs.class_("text-xs text-gray-500 w-28")},
-                                list{text("Platform:")},
-                              ),
-                              span(
-                                list{Attrs.class_("text-xs text-gray-300")},
-                                list{text(FeedbackRoutingEngine.platformLabel(report.platform))},
-                              ),
-                            },
-                          ),
-                          div(
-                            list{Attrs.class_("flex items-center gap-2")},
-                            list{
-                              span(
-                                list{Attrs.class_("text-xs text-gray-500 w-28")},
-                                list{text("Target:")},
-                              ),
-                              span(
-                                list{Attrs.class_("text-xs text-gray-300")},
-                                list{text(report.targetRepo)},
-                              ),
-                            },
-                          ),
-                          div(
-                            list{Attrs.class_("flex items-center gap-2")},
-                            list{
-                              span(
-                                list{Attrs.class_("text-xs text-gray-500 w-28")},
-                                list{text("Filed:")},
-                              ),
-                              span(
-                                list{Attrs.class_("text-xs text-gray-300 font-mono")},
-                                list{text(report.dateFiled)},
-                              ),
-                            },
-                          ),
-                          div(
-                            list{Attrs.class_("flex items-center gap-2")},
-                            list{
-                              span(
-                                list{Attrs.class_("text-xs text-gray-500 w-28")},
-                                list{text("Last Updated:")},
-                              ),
-                              span(
-                                list{Attrs.class_("text-xs text-gray-300 font-mono")},
-                                list{text(report.lastUpdated)},
-                              ),
-                            },
-                          ),
-                          switch report.externalUrl {
-                          | Some(url) =>
-                            div(
-                              list{Attrs.class_("flex items-center gap-2")},
-                              list{
-                                span(
-                                  list{Attrs.class_("text-xs text-gray-500 w-28")},
-                                  list{text("URL:")},
-                                ),
-                                span(
-                                  list{Attrs.class_("text-xs text-blue-400 font-mono truncate")},
-                                  list{text(url)},
-                                ),
-                              },
-                            )
-                          | None => noNode
-                          },
-                        },
-                      ),
-                    },
-                  )
-                }
-              },
-            },
-          ),
-        },
-      ),
-      // Footer
-      div(
-        list{Attrs.class_("px-4 py-2 border-t border-gray-800 text-xs text-gray-500")},
-        list{text(`${Int.toString(Array.length(state.platformStats))} platforms tracked`)},
-      ),
-    },
-  )
-}
diff --git a/src/components/Fleet.affine b/src/components/Fleet.affine
new file mode 100644
index 00000000..37c5c032
--- /dev/null
+++ b/src/components/Fleet.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Fleet;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Fleet.res b/src/components/Fleet.res
deleted file mode 100644
index 5769e8e2..00000000
--- a/src/components/Fleet.res
+++ /dev/null
@@ -1,633 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Fleet Component — Gitbot-Fleet orchestration dashboard.
-///
-/// Renders the 6-bot status grid, safety triangle visualisation,
-/// findings queue with filtering, and dispatch controls. Every
-/// interactive element has ARIA labels and keyboard navigation.
-
-open Model
-open Msg
-open Tea.Html
-
-// ============================================================================
-// Bot Status Card
-// ============================================================================
-
-/// Render a single bot status card in the fleet grid.
-let renderBotCard = (bot: botState): Tea_Vdom.t<msg> => {
-  let dotColor = FleetEngine.statusColor(bot.status)
-  let label = FleetEngine.botLabel(bot.id)
-  let desc = FleetEngine.botDescription(bot.id)
-  let statusText = FleetEngine.statusLabel(bot.status)
-  let icon = FleetEngine.botIcon(bot.id)
-
-  div(
-    list{
-      Attrs.class_(
-        "bg-gray-900 border border-gray-700 rounded-lg p-4 hover:border-gray-500 transition-colors",
-      ),
-      Attrs.role("article"),
-      Attrs.ariaLabel(`${label} — ${statusText}`),
-    },
-    list{
-      // Header: icon + bot name + status dot
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-2")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-1.5")},
-            list{
-              span(
-                list{Attrs.class_("text-xs text-gray-500"), Attrs.prop("aria-hidden", "true")},
-                list{text(icon)},
-              ),
-              span(list{Attrs.class_("text-sm font-medium text-gray-200")}, list{text(label)}),
-            },
-          ),
-          span(
-            list{
-              Attrs.class_(`w-2.5 h-2.5 rounded-full ${dotColor}`),
-              Attrs.ariaLabel(statusText),
-              Attrs.role("status"),
-            },
-            list{},
-          ),
-        },
-      ),
-      // Description
-      div(list{Attrs.class_("text-xs text-gray-500 mb-3")}, list{text(desc)}),
-      // Metrics row
-      div(
-        list{Attrs.class_("flex justify-between text-xs")},
-        list{
-          div(
-            list{Attrs.class_("text-gray-400")},
-            list{text(`Queued: ${Int.toString(bot.queuedFindings)}`)},
-          ),
-          div(
-            list{Attrs.class_("text-gray-400")},
-            list{text(`Done: ${Int.toString(bot.processedFindings)}`)},
-          ),
-        },
-      ),
-      // Confidence threshold
-      div(
-        list{Attrs.class_("mt-2 text-xs text-gray-500")},
-        list{text(`Threshold: ${Float.toFixed(bot.confidenceThreshold, ~digits=0)}%`)},
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Safety Triangle
-// ============================================================================
-
-/// Render the safety triangle (Eliminate / Substitute / Control) with counts.
-let renderSafetyTriangle = (health: fleetHealth): Tea_Vdom.t<msg> => {
-  let (elim, sub, ctrl) = health.triangleCounts
-  let total = elim + sub + ctrl
-  let pct = (count: int): string => {
-    if total <= 0 {
-      "0"
-    } else {
-      Float.toFixed(Int.toFloat(count) /. Int.toFloat(total) *. 100.0, ~digits=0)
-    }
-  }
-  div(
-    list{
-      Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-6"),
-      Attrs.role("figure"),
-      Attrs.ariaLabel("Safety triangle — hierarchy of controls"),
-    },
-    list{
-      div(
-        list{Attrs.class_("text-sm font-medium text-gray-300 mb-4")},
-        list{text("Safety Triangle")},
-      ),
-      // Triangle tiers stacked vertically (inverted pyramid)
-      div(
-        list{Attrs.class_("space-y-2")},
-        list{
-          // Eliminate (top, narrowest = highest priority)
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              div(
-                list{Attrs.class_("w-20 text-right text-xs text-red-400 font-medium")},
-                list{text("Eliminate")},
-              ),
-              div(
-                list{Attrs.class_("flex-1 bg-gray-800 rounded-full h-4 overflow-hidden")},
-                list{
-                  div(
-                    list{
-                      Attrs.class_("bg-red-600 h-full rounded-full transition-all"),
-                      Attrs.prop("style", `width: ${pct(elim)}%`),
-                    },
-                    list{},
-                  ),
-                },
-              ),
-              div(
-                list{Attrs.class_("w-8 text-xs text-gray-400 text-right")},
-                list{text(Int.toString(elim))},
-              ),
-            },
-          ),
-          // Substitute (middle)
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              div(
-                list{Attrs.class_("w-20 text-right text-xs text-amber-400 font-medium")},
-                list{text("Substitute")},
-              ),
-              div(
-                list{Attrs.class_("flex-1 bg-gray-800 rounded-full h-4 overflow-hidden")},
-                list{
-                  div(
-                    list{
-                      Attrs.class_("bg-amber-600 h-full rounded-full transition-all"),
-                      Attrs.prop("style", `width: ${pct(sub)}%`),
-                    },
-                    list{},
-                  ),
-                },
-              ),
-              div(
-                list{Attrs.class_("w-8 text-xs text-gray-400 text-right")},
-                list{text(Int.toString(sub))},
-              ),
-            },
-          ),
-          // Control (bottom, widest = most common)
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              div(
-                list{Attrs.class_("w-20 text-right text-xs text-blue-400 font-medium")},
-                list{text("Control")},
-              ),
-              div(
-                list{Attrs.class_("flex-1 bg-gray-800 rounded-full h-4 overflow-hidden")},
-                list{
-                  div(
-                    list{
-                      Attrs.class_("bg-blue-600 h-full rounded-full transition-all"),
-                      Attrs.prop("style", `width: ${pct(ctrl)}%`),
-                    },
-                    list{},
-                  ),
-                },
-              ),
-              div(
-                list{Attrs.class_("w-8 text-xs text-gray-400 text-right")},
-                list{text(Int.toString(ctrl))},
-              ),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Finding Row
-// ============================================================================
-
-/// Render a single finding in the findings list.
-let renderFinding = (finding: fleetFinding): Tea_Vdom.t<msg> => {
-  let tierBadge = FleetEngine.tierColor(finding.tier)
-  let tierText = FleetEngine.tierLabel(finding.tier)
-  let assignedText = switch finding.assignedBot {
-  | Some(bot) => FleetEngine.botLabel(bot)
-  | None => "Unassigned"
-  }
-
-  div(
-    list{
-      Attrs.class_(
-        `flex items-center gap-4 p-3 border-b border-gray-800 ${finding.resolved
-            ? "opacity-50"
-            : ""}`,
-      ),
-      Attrs.role("row"),
-      Attrs.ariaLabel(`${finding.summary} — ${tierText} — ${assignedText}`),
-    },
-    list{
-      // Tier badge
-      span(list{Attrs.class_(`text-xs px-2 py-0.5 rounded ${tierBadge}`)}, list{text(tierText)}),
-      // Repo name
-      span(list{Attrs.class_("text-xs text-gray-500 w-32 truncate")}, list{text(finding.repoName)}),
-      // Summary
-      span(
-        list{Attrs.class_("flex-1 text-sm text-gray-300 truncate")},
-        list{text(finding.summary)},
-      ),
-      // Confidence
-      span(
-        list{Attrs.class_("text-xs text-gray-400 w-16 text-right")},
-        list{text(`${Float.toFixed(finding.confidence *. 100.0, ~digits=0)}%`)},
-      ),
-      // Assigned bot
-      span(list{Attrs.class_("text-xs text-gray-500 w-24 text-right")}, list{text(assignedText)}),
-    },
-  )
-}
-
-// ============================================================================
-// Dashboard View
-// ============================================================================
-
-/// Render the fleet dashboard — bot grid + safety triangle + health summary.
-let renderDashboard = (fleet: fleetState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-6")},
-    list{
-      // Health summary bar
-      switch fleet.health {
-      | Some(health) =>
-        div(
-          list{Attrs.class_("flex gap-6 text-sm")},
-          list{
-            div(
-              list{Attrs.class_("text-gray-400")},
-              list{text(`Active: ${Int.toString(health.activeBots)}/6 bots`)},
-            ),
-            div(
-              list{Attrs.class_("text-gray-400")},
-              list{text(`Queued: ${Int.toString(health.totalQueued)}`)},
-            ),
-            div(
-              list{Attrs.class_("text-gray-400")},
-              list{text(`Processed: ${Int.toString(health.totalProcessed)}`)},
-            ),
-            div(
-              list{Attrs.class_("text-gray-400")},
-              list{
-                text(`Avg confidence: ${Float.toFixed(health.avgConfidence *. 100.0, ~digits=0)}%`),
-              },
-            ),
-          },
-        )
-      | None =>
-        div(list{Attrs.class_("text-sm text-gray-500")}, list{text("No health data available")})
-      },
-      // Two-column layout: bot grid + safety triangle
-      div(
-        list{Attrs.class_("flex gap-6")},
-        list{
-          // Bot grid (2x3)
-          div(
-            list{
-              Attrs.class_("flex-1 grid grid-cols-3 gap-3"),
-              Attrs.role("list"),
-              Attrs.ariaLabel("Fleet bot status"),
-            },
-            fleet.bots->Array.map(bot => renderBotCard(bot))->List.fromArray,
-          ),
-          // Safety triangle (right column)
-          switch fleet.health {
-          | Some(health) => div(list{Attrs.class_("w-80")}, list{renderSafetyTriangle(health)})
-          | None => noNode
-          },
-        },
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Findings View
-// ============================================================================
-
-/// Render the findings queue with filtering.
-let renderFindings = (fleet: fleetState): Tea_Vdom.t<msg> => {
-  let filtered = FleetEngine.filterFindings(fleet.findings, fleet.filterText)
-  div(
-    list{Attrs.class_("space-y-4")},
-    list{
-      // Filter input
-      div(
-        list{Attrs.class_("flex items-center gap-3")},
-        list{
-          input(
-            list{
-              Attrs.class_(
-                "flex-1 bg-gray-900 border border-gray-700 rounded px-3 py-2 text-sm text-gray-200 placeholder-gray-600",
-              ),
-              Attrs.placeholder("Filter findings by repo or summary..."),
-              Attrs.ariaLabel("Filter findings"),
-              Attrs.value(fleet.filterText),
-              Events.onInput(v => Fleet(SetFleetFilter(v))),
-            },
-            list{},
-          ),
-          span(
-            list{Attrs.class_("text-xs text-gray-500")},
-            list{text(`${Int.toString(Array.length(filtered))} findings`)},
-          ),
-        },
-      ),
-      // Findings list
-      div(
-        list{
-          Attrs.class_("border border-gray-700 rounded-lg overflow-hidden"),
-          Attrs.role("table"),
-          Attrs.ariaLabel("Findings queue"),
-        },
-        list{
-          // Header
-          div(
-            list{
-              Attrs.class_(
-                "flex items-center gap-4 p-3 bg-gray-900 border-b border-gray-700 text-xs text-gray-500",
-              ),
-              Attrs.role("row"),
-            },
-            list{
-              span(list{Attrs.class_("w-20")}, list{text("Tier")}),
-              span(list{Attrs.class_("w-32")}, list{text("Repo")}),
-              span(list{Attrs.class_("flex-1")}, list{text("Summary")}),
-              span(list{Attrs.class_("w-16 text-right")}, list{text("Conf.")}),
-              span(list{Attrs.class_("w-24 text-right")}, list{text("Assigned")}),
-            },
-          ),
-          // Rows
-          div(
-            list{Attrs.class_("max-h-96 overflow-y-auto")},
-            filtered->Array.map(f => renderFinding(f))->List.fromArray,
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Dispatch View
-// ============================================================================
-
-/// Render the dispatch summary — stats derived from bot and findings state.
-/// Shows per-bot dispatch counts, resolution rates, and assignment coverage.
-let renderDispatch = (fleet: fleetState): Tea_Vdom.t<msg> => {
-  let totalResolved = fleet.findings->Array.filter(f => f.resolved)->Array.length
-  let totalFindings = Array.length(fleet.findings)
-  let assigned = fleet.findings->Array.filter(f => Option.isSome(f.assignedBot))->Array.length
-  let unassigned = totalFindings - assigned
-  div(
-    list{
-      Attrs.class_("space-y-6"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Dispatch manifest summary"),
-    },
-    list{
-      // Summary stats row
-      div(
-        list{Attrs.class_("flex gap-6 text-sm")},
-        list{
-          div(
-            list{Attrs.class_("text-gray-400")},
-            list{text(`Total findings: ${Int.toString(totalFindings)}`)},
-          ),
-          div(
-            list{Attrs.class_("text-gray-400")},
-            list{text(`Resolved: ${Int.toString(totalResolved)}`)},
-          ),
-          div(
-            list{Attrs.class_("text-gray-400")},
-            list{text(`Assigned: ${Int.toString(assigned)}`)},
-          ),
-          div(
-            list{Attrs.class_(unassigned > 0 ? "text-amber-400" : "text-gray-400")},
-            list{text(`Unassigned: ${Int.toString(unassigned)}`)},
-          ),
-        },
-      ),
-      // Per-bot dispatch breakdown
-      div(
-        list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-4")},
-        list{
-          div(
-            list{Attrs.class_("text-sm font-medium text-gray-300 mb-3")},
-            list{text("Per-Bot Dispatch")},
-          ),
-          div(
-            list{Attrs.class_("space-y-2")},
-            fleet.bots
-            ->Array.map(bot => {
-              let assignedToBot =
-                fleet.findings
-                ->Array.filter(f => f.assignedBot === Some(bot.id))
-                ->Array.length
-              let resolvedByBot =
-                fleet.findings
-                ->Array.filter(f => f.assignedBot === Some(bot.id) && f.resolved)
-                ->Array.length
-              let botName = FleetEngine.botLabel(bot.id)
-              div(
-                list{
-                  Attrs.class_("flex items-center gap-3"),
-                  Attrs.ariaLabel(
-                    `${botName}: ${Int.toString(assignedToBot)} assigned, ${Int.toString(
-                        resolvedByBot,
-                      )} resolved`,
-                  ),
-                },
-                list{
-                  div(list{Attrs.class_("w-28 text-sm text-gray-300")}, list{text(botName)}),
-                  div(
-                    list{Attrs.class_("flex-1 h-3 bg-gray-800 rounded-full overflow-hidden")},
-                    list{
-                      div(
-                        list{
-                          Attrs.class_("h-full bg-indigo-500 rounded-full transition-all"),
-                          Attrs.prop(
-                            "style",
-                            `width: ${if totalFindings > 0 {
-                                Float.toFixed(
-                                  Int.toFloat(assignedToBot) /. Int.toFloat(totalFindings) *. 100.0,
-                                  ~digits=0,
-                                )
-                              } else {
-                                "0"
-                              }}%`,
-                          ),
-                        },
-                        list{},
-                      ),
-                    },
-                  ),
-                  div(
-                    list{Attrs.class_("w-24 text-xs text-gray-500 text-right")},
-                    list{text(`${Int.toString(resolvedByBot)}/${Int.toString(assignedToBot)}`)},
-                  ),
-                },
-              )
-            })
-            ->List.fromArray,
-          ),
-        },
-      ),
-      // Note about live dispatch history
-      div(
-        list{Attrs.class_("text-xs text-gray-600 italic")},
-        list{text("Dispatch audit log requires a live connection to the fleet backend.")},
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Category Tabs
-// ============================================================================
-
-/// Render the category tab bar.
-let renderTabs = (active: fleetCategory): Tea_Vdom.t<msg> => {
-  let tabs: array<fleetCategory> = [FleetDashboard, FleetFindings, FleetDispatch]
-  div(
-    list{
-      Attrs.class_("flex gap-1 border-b border-gray-800 mb-4"),
-      Attrs.role("tablist"),
-      Attrs.ariaLabel("Fleet panel sections"),
-    },
-    tabs
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-4 py-2 text-sm rounded-t transition-colors ${isActive
-                ? "bg-gray-800 text-gray-200 border-b-2 border-indigo-500"
-                : "text-gray-500 hover:text-gray-300"}`,
-          ),
-          Attrs.role("tab"),
-          Attrs.ariaSelected(isActive),
-          Events.onClick(Fleet(SetFleetCategory(tab))),
-        },
-        list{text(FleetEngine.categoryLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-// ============================================================================
-// Main View
-// ============================================================================
-
-/// Main view for the Fleet panel — full-screen overlay.
-let view = (fleet: fleetState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Gitbot Fleet orchestration panel"),
-    },
-    list{
-      // Header bar
-      div(
-        list{Attrs.class_("flex items-center justify-between p-4 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-medium text-gray-200")},
-                list{text("Gitbot Fleet")},
-              ),
-              span(list{Attrs.class_("text-xs text-gray-500")}, list{text("6-bot orchestration")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-xs bg-indigo-600 text-white rounded hover:bg-indigo-500",
-                  ),
-                  Attrs.ariaLabel("Refresh fleet status"),
-                  Events.onClick(Fleet(LoadFleet)),
-                  KeyboardNav.onActivate(Fleet(LoadFleet)),
-                },
-                list{text("Refresh")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-sm bg-gray-800 text-gray-300 rounded hover:bg-gray-700",
-                  ),
-                  Attrs.ariaLabel("Close Fleet panel"),
-                  Events.onClick(PanelSwitcher(ClosePanels)),
-                  KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-                },
-                list{text("Close")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Content
-      div(
-        list{Attrs.class_("flex-1 overflow-auto p-6")},
-        list{
-          if fleet.loading {
-            div(
-              list{Attrs.class_("text-gray-400"), Attrs.role("status")},
-              list{text("Loading fleet status...")},
-            )
-          } else if !fleet.loaded {
-            div(
-              list{Attrs.class_("text-center text-gray-500 mt-12")},
-              list{
-                div(list{Attrs.class_("text-4xl mb-4")}, list{text("Fleet")}),
-                div(
-                  list{Attrs.class_("text-sm mb-6")},
-                  list{text("6-bot gitbot-fleet orchestration")},
-                ),
-                button(
-                  list{
-                    Attrs.class_("px-4 py-2 bg-indigo-600 text-white rounded hover:bg-indigo-500"),
-                    Events.onClick(Fleet(LoadFleet)),
-                    KeyboardNav.onActivate(Fleet(LoadFleet)),
-                  },
-                  list{text("Connect to Fleet")},
-                ),
-              },
-            )
-          } else {
-            div(
-              list{Attrs.class_("space-y-4")},
-              list{
-                renderTabs(fleet.activeCategory),
-                switch fleet.activeCategory {
-                | FleetDashboard => renderDashboard(fleet)
-                | FleetFindings => renderFindings(fleet)
-                | FleetDispatch => renderDispatch(fleet)
-                },
-              },
-            )
-          },
-          // Error display
-          switch fleet.error {
-          | Some(e) =>
-            div(
-              list{
-                Attrs.class_(
-                  "mt-4 p-3 bg-red-900/30 border border-red-700 rounded text-sm text-red-300",
-                ),
-                Attrs.role("alert"),
-              },
-              list{text(e)},
-            )
-          | None => noNode
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/FleetAgenticBridge.affine b/src/components/FleetAgenticBridge.affine
new file mode 100644
index 00000000..26b16790
--- /dev/null
+++ b/src/components/FleetAgenticBridge.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FleetAgenticBridge;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/FleetAgenticBridge.res b/src/components/FleetAgenticBridge.res
deleted file mode 100644
index 1af8cee6..00000000
--- a/src/components/FleetAgenticBridge.res
+++ /dev/null
@@ -1,59 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath)
-
-/// PanLL Fleet-AgenticBridge Wiring — dispatches Fleet bot actions to
-/// AgenticBridge OODA phases and updates agent status on bot task completion.
-///
-/// When a Fleet bot completes a finding (e.g., echidnabot resolves a security
-/// finding), this module maps the bot action into the AgenticBridge's OODA
-/// loop so automated playtesting agents can react to fleet-driven changes.
-///
-/// The mapping is:
-///   - Bot finding assigned   -> AgenticBridge agent enters Observe phase
-///   - Bot processing finding -> AgenticBridge agent enters Orient phase
-///   - Bot applying fix       -> AgenticBridge agent enters Decide phase
-///   - Bot resolving finding  -> AgenticBridge agent enters Act + Completed
-
-open Model
-
-/// Map a Fleet bot ID to an AgenticBridge OODA phase based on the bot's
-/// current processing stage. Returns the OODA phase and a descriptive action.
-let botActionToOodaPhase = (botId: FleetModel.botId, resolved: bool): (oodaPhase, string) => {
-  let botName = switch botId {
-  | Rhodibot => "rhodibot"
-  | Echidnabot => "echidnabot"
-  | Sustainabot => "sustainabot"
-  | Glambot => "glambot"
-  | Seambot => "seambot"
-  | Finishbot => "finishbot"
-  }
-  if resolved {
-    (Act, botName ++ " resolved finding — applying changes")
-  } else {
-    (Observe, botName ++ " assigned finding — observing impact")
-  }
-}
-
-/// Derive an updated AgenticBridge agent status from a Fleet bot's state.
-/// When a bot completes all queued findings, its corresponding agent is
-/// marked as Completed. Active bots map to Running agents.
-let botStatusToAgentStatus = (botStatus: FleetModel.botStatus): agentStatus => {
-  switch botStatus {
-  | BotActive => AgentRunning
-  | BotIdle => AgentIdle
-  | BotOffline => AgentPaused
-  | BotError(_) => AgentFailed
-  }
-}
-
-/// Build a bridge action record from a Fleet finding resolution event.
-/// This creates an AgenticBridge action entry that appears in the Execution
-/// tab, linking Fleet findings to OODA-phase tracking.
-let buildBridgeAction = (finding: FleetModel.fleetFinding, phase: oodaPhase): agentAction => {
-  {
-    phase,
-    description: "Fleet: " ++ finding.summary,
-    targetPath: finding.repoName,
-    timestampMs: 0.0, // Caller should set actual timestamp
-  }
-}
diff --git a/src/components/FloorRaise.affine b/src/components/FloorRaise.affine
new file mode 100644
index 00000000..3693035d
--- /dev/null
+++ b/src/components/FloorRaise.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FloorRaise;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/FloorRaise.res b/src/components/FloorRaise.res
deleted file mode 100644
index 4f0c650d..00000000
--- a/src/components/FloorRaise.res
+++ /dev/null
@@ -1,297 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Floor Raise Component — foundational tool adoption dashboard.
-///
-/// Master dashboard for the Floor Raise campaign. Shows adoption metrics
-/// for all foundational tools, active dispatch campaigns, recent fix
-/// outcomes, and gap analysis.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a progress bar for a tool adoption metric.
-let progressBar = (adoption: toolAdoption): Tea_Vdom.t<msg> => {
-  let pctStr = Float.toFixed(adoption.percentage, ~digits=1)
-  let barColor = if adoption.percentage > 80.0 {
-    "bg-green-500"
-  } else if adoption.percentage > 50.0 {
-    "bg-amber-500"
-  } else {
-    "bg-red-500"
-  }
-  div(
-    list{Attrs.class_("bg-gray-900/60 border border-gray-800 rounded-lg p-3")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-2")},
-        list{
-          span(list{Attrs.class_("text-sm text-gray-200 font-medium")}, list{text(adoption.name)}),
-          span(
-            list{Attrs.class_("text-xs text-gray-400")},
-            list{
-              text(`${Int.toString(adoption.adoptedCount)}/${Int.toString(adoption.targetCount)}`),
-            },
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("w-full bg-gray-800 rounded-full h-2")},
-        list{
-          div(
-            list{
-              Attrs.class_(`${barColor} h-2 rounded-full transition-all duration-300`),
-              Attrs.style("width", `${pctStr}%`),
-            },
-            list{},
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("flex items-center justify-between mt-1")},
-        list{
-          span(list{Attrs.class_("text-xs text-gray-500")}, list{text(`${pctStr}%`)}),
-          if adoption.campaignActive {
-            span(
-              list{Attrs.class_("text-xs text-blue-400 animate-pulse")},
-              list{text("Campaign Active")},
-            )
-          } else {
-            noNode
-          },
-        },
-      ),
-    },
-  )
-}
-
-/// Render a dispatch outcome row.
-let outcomeRow = (outcome: dispatchOutcome): Tea_Vdom.t<msg> => {
-  let statusColor = if outcome.success {
-    "text-green-400"
-  } else {
-    "text-red-400"
-  }
-  let statusLabel = if outcome.success {
-    "OK"
-  } else {
-    "FAIL"
-  }
-  div(
-    list{Attrs.class_("flex items-center gap-3 py-2 px-2 border-b border-gray-800 text-xs")},
-    list{
-      span(list{Attrs.class_("text-gray-500 w-36 shrink-0")}, list{text(outcome.timestamp)}),
-      span(list{Attrs.class_("text-gray-300 w-40 shrink-0 truncate")}, list{text(outcome.repo)}),
-      span(
-        list{Attrs.class_("text-gray-400 w-32 shrink-0 truncate")},
-        list{text(outcome.fixScript)},
-      ),
-      span(list{Attrs.class_("text-gray-400 w-32 shrink-0")}, list{text(outcome.category)}),
-      span(list{Attrs.class_(`${statusColor} w-12 font-mono`)}, list{text(statusLabel)}),
-    },
-  )
-}
-
-/// Render a tab button.
-let tabBtn = (current: floorRaiseTab, target: floorRaiseTab, label: string): Tea_Vdom.t<msg> => {
-  let active = current == target
-  button(
-    list{
-      Attrs.class_(
-        "px-3 py-1 text-xs rounded " ++ if active {
-          "bg-blue-600 text-white"
-        } else {
-          "bg-gray-800 text-gray-400 hover:bg-gray-700"
-        },
-      ),
-      Events.onClick(FloorRaise(SetTab(target))),
-      Attrs.role("tab"),
-      Attrs.ariaSelected(active),
-    },
-    list{text(label)},
-  )
-}
-
-/// Main view function for the Floor Raise panel.
-let view = (state: floorRaiseState): Tea_Vdom.t<msg> => {
-  let progress = FloorRaiseEngine.overallProgress(state)
-  let progressStr = Float.toFixed(progress, ~digits=1)
-
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Floor Raise — Foundational Tool Adoption Dashboard"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(list{Attrs.class_("text-lg font-bold text-blue-300")}, list{text("Floor Raise")}),
-              span(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{text(`Overall: ${progressStr}% | ${Int.toString(state.totalRepos)} repos`)},
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-xs rounded bg-green-700 text-white hover:bg-green-600",
-                  ),
-                  Events.onClick(FloorRaise(ScanAdoption)),
-                  KeyboardNav.onActivate(FloorRaise(ScanAdoption)),
-                },
-                list{
-                  text(
-                    if state.scanning {
-                      "Scanning..."
-                    } else {
-                      "Scan Adoption"
-                    },
-                  ),
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Tabs
-      div(
-        list{Attrs.class_("flex gap-1 px-4 py-2 border-b border-gray-800"), Attrs.role("tablist")},
-        list{
-          tabBtn(state.activeTab, TabOverview, "Overview"),
-          tabBtn(state.activeTab, TabCampaigns, "Campaigns"),
-          tabBtn(state.activeTab, TabOutcomes, "Outcomes"),
-          tabBtn(state.activeTab, TabGaps, "Gaps"),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 px-3 py-2 bg-red-900/50 border border-red-700 rounded text-sm text-red-200",
-            ),
-            Events.onClick(FloorRaise(ClearError)),
-            KeyboardNav.onActivate(FloorRaise(ClearError)),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      // Content
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto px-4 py-2")},
-        list{
-          switch state.activeTab {
-          | TabOverview =>
-            div(
-              list{Attrs.class_("grid grid-cols-2 gap-3")},
-              state.adoptions->Array.map(a => progressBar(a))->List.fromArray,
-            )
-          | TabCampaigns =>
-            div(
-              list{},
-              state.adoptions
-              ->Array.filter(a => a.campaignActive)
-              ->Array.map(a =>
-                div(
-                  list{
-                    Attrs.class_(
-                      "flex items-center justify-between py-2 px-3 border-b border-gray-800",
-                    ),
-                  },
-                  list{
-                    span(list{Attrs.class_("text-sm text-gray-200")}, list{text(a.name)}),
-                    div(
-                      list{Attrs.class_("flex items-center gap-3")},
-                      list{
-                        span(
-                          list{Attrs.class_("text-xs text-gray-400")},
-                          list{text(`${Float.toFixed(a.percentage, ~digits=1)}% adopted`)},
-                        ),
-                        button(
-                          list{
-                            Attrs.class_(
-                              "px-2 py-1 text-xs rounded bg-blue-700 text-white hover:bg-blue-600",
-                            ),
-                            Events.onClick(FloorRaise(RunCampaign(a.name))),
-                          },
-                          list{text("Dispatch")},
-                        ),
-                      },
-                    ),
-                  },
-                )
-              )
-              ->List.fromArray,
-            )
-          | TabOutcomes =>
-            div(
-              list{Attrs.role("table"), Attrs.ariaLabel("Dispatch outcomes")},
-              state.outcomes->Array.map(o => outcomeRow(o))->List.fromArray,
-            )
-          | TabGaps =>
-            div(
-              list{},
-              state.adoptions
-              ->Array.filter(a => a.percentage < 100.0)
-              ->Array.map(a =>
-                div(
-                  list{
-                    Attrs.class_(
-                      "flex items-center justify-between py-2 px-3 border-b border-gray-800",
-                    ),
-                  },
-                  list{
-                    span(list{Attrs.class_("text-sm text-gray-200")}, list{text(a.name)}),
-                    span(
-                      list{Attrs.class_("text-xs text-red-400")},
-                      list{text(`${Int.toString(a.targetCount - a.adoptedCount)} repos missing`)},
-                    ),
-                  },
-                )
-              )
-              ->List.fromArray,
-            )
-          },
-        },
-      ),
-      // Footer
-      div(
-        list{
-          Attrs.class_(
-            "px-4 py-2 border-t border-gray-800 text-xs text-gray-500 flex justify-between",
-          ),
-        },
-        list{
-          span(
-            list{},
-            list{
-              text(`${Int.toString(FloorRaiseEngine.activeCampaignCount(state))} active campaigns`),
-            },
-          ),
-          span(
-            list{},
-            list{
-              text(
-                `${Int.toString(FloorRaiseEngine.successCount(state.outcomes))}/${Int.toString(
-                    Array.length(state.outcomes),
-                  )} dispatches succeeded`,
-              ),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/FunctionalTester.affine b/src/components/FunctionalTester.affine
new file mode 100644
index 00000000..8dd656e1
--- /dev/null
+++ b/src/components/FunctionalTester.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FunctionalTester;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/FunctionalTester.res b/src/components/FunctionalTester.res
deleted file mode 100644
index dda71475..00000000
--- a/src/components/FunctionalTester.res
+++ /dev/null
@@ -1,378 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL FunctionalTester — end-to-end game workflow simulation and validation.
-///
-/// Provides four tabs: a workflow list with progress indicators, a step-by-step
-/// editor for composing workflow sequences, a results view showing pass/fail
-/// per step, and a templates library for common game-testing patterns.
-
-open Model
-open Msg
-open Tea.Html
-
-// =========================================================================
-// Helpers
-// =========================================================================
-
-/// Tab label lookup for functionalTestTab variants.
-let tabLabel = (tab: functionalTestTab): string =>
-  switch tab {
-  | TabWorkflows => "Workflows"
-  | TabEditor => "Editor"
-  | TabResults => "Results"
-  | TabTemplates => "Templates"
-  }
-
-/// Render the tab bar.
-let renderTabs = (active: functionalTestTab): Tea_Vdom.t<msg> => {
-  let tabs: array<functionalTestTab> = [TabWorkflows, TabEditor, TabResults, TabTemplates]
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 px-4")},
-    tabs
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-4 py-2 text-sm font-medium transition-colors rounded-t ${isActive
-                ? "bg-gray-800 text-cyan-400 border-b-2 border-cyan-400"
-                : "text-gray-500 hover:text-gray-300 hover:bg-gray-900 cursor-pointer"}`,
-          ),
-          Events.onClick(FunctionalTester(SetFtTab(tab))),
-        },
-        list{text(tabLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Workflow status badge with colour and animation for running workflows.
-let workflowStatusBadge = (status: workflowStatus): Tea_Vdom.t<msg> => {
-  let (colour, lbl) = switch status {
-  | WorkflowDraft => ("bg-gray-600 text-gray-200", "DRAFT")
-  | WorkflowReady => ("bg-blue-600 text-white", "READY")
-  | WorkflowRunning(step) => (
-      "bg-amber-500 text-white animate-pulse",
-      `STEP ${Int.toString(step + 1)}`,
-    )
-  | WorkflowPassed(ms) => ("bg-emerald-600 text-white", `PASS ${Float.toFixed(ms, ~digits=0)}ms`)
-  | WorkflowFailed(_, _) => ("bg-red-600 text-white", "FAIL")
-  }
-  span(list{Attrs.class_(`px-2 py-0.5 text-xs rounded font-mono ${colour}`)}, list{text(lbl)})
-}
-
-/// Progress bar for a workflow based on completed steps vs total.
-let workflowProgress = (workflow: testWorkflow): Tea_Vdom.t<msg> => {
-  let total = Array.length(workflow.steps)
-  if total === 0 {
-    noNode
-  } else {
-    let completed = workflow.steps->Array.filter(s => Option.isSome(s.passed))->Array.length
-    let pct = Int.toString(Int.fromFloat(Int.toFloat(completed) /. Int.toFloat(total) *. 100.0))
-    div(
-      list{Attrs.class_("w-full h-1.5 bg-gray-700 rounded overflow-hidden mt-1")},
-      list{
-        div(
-          list{Attrs.class_(`h-full bg-cyan-500 transition-all duration-300 w-[${pct}%]`)},
-          list{},
-        ),
-      },
-    )
-  }
-}
-
-// =========================================================================
-// Tab content views
-// =========================================================================
-
-/// Workflows tab: list of all workflows with status badges and progress.
-let renderWorkflowsTab = (state: functionalTesterState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-col gap-2 p-4")},
-    list{
-      div(
-        list{Attrs.class_("text-sm text-gray-400 mb-1")},
-        list{text(`${Int.toString(Array.length(state.workflows))} workflow(s)`)},
-      ),
-      div(
-        list{Attrs.class_("flex flex-col gap-2 max-h-96 overflow-y-auto")},
-        state.workflows
-        ->Array.map(wf => {
-          let isSelected = state.selectedWorkflow === Some(wf.id)
-          let borderCls = isSelected ? "border-cyan-600" : "border-gray-700"
-          div(
-            list{
-              Attrs.class_(`bg-gray-800 rounded p-3 border ${borderCls} cursor-pointer`),
-              Events.onClick(FunctionalTester(SelectWorkflow(wf.id))),
-            },
-            list{
-              div(
-                list{Attrs.class_("flex items-center justify-between")},
-                list{
-                  span(
-                    list{Attrs.class_("text-sm font-medium text-gray-200")},
-                    list{text(wf.name)},
-                  ),
-                  workflowStatusBadge(wf.status),
-                },
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-500 mt-1")},
-                list{text(`${Int.toString(Array.length(wf.steps))} step(s)`)},
-              ),
-              workflowProgress(wf),
-            },
-          )
-        })
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-/// Editor tab: step-by-step view for the selected workflow.
-let renderEditorTab = (state: functionalTesterState): Tea_Vdom.t<msg> => {
-  let selectedWf = state.workflows->Array.find(wf => Some(wf.id) === state.selectedWorkflow)
-  switch selectedWf {
-  | None =>
-    div(
-      list{Attrs.class_("p-4 text-gray-500 text-sm italic")},
-      list{text("Select a workflow from the Workflows tab to edit its steps.")},
-    )
-  | Some(wf) =>
-    div(
-      list{Attrs.class_("flex flex-col gap-2 p-4")},
-      list{
-        h3(
-          list{Attrs.class_("text-sm font-medium text-gray-300")},
-          list{text(`Editing: ${wf.name}`)},
-        ),
-        div(
-          list{Attrs.class_("flex flex-col gap-2 max-h-96 overflow-y-auto")},
-          wf.steps
-          ->Array.mapWithIndex((step, idx) => {
-            let stepColour = switch step.passed {
-            | Some(true) => "border-emerald-700"
-            | Some(false) => "border-red-700"
-            | None => "border-gray-700"
-            }
-            div(
-              list{Attrs.class_(`bg-gray-800 rounded p-3 border ${stepColour}`)},
-              list{
-                div(
-                  list{Attrs.class_("flex items-center gap-2 mb-1")},
-                  list{
-                    span(
-                      list{Attrs.class_("text-xs text-gray-500 font-mono")},
-                      list{text(`#${Int.toString(idx + 1)}`)},
-                    ),
-                    span(list{Attrs.class_("text-sm text-gray-200")}, list{text(step.action)}),
-                  },
-                ),
-                div(
-                  list{Attrs.class_("text-xs text-gray-500")},
-                  list{text(`Expected: ${step.expectedOutcome}`)},
-                ),
-                switch step.actualOutcome {
-                | Some(actual) =>
-                  div(
-                    list{Attrs.class_("text-xs text-gray-400 mt-1")},
-                    list{text(`Actual: ${actual}`)},
-                  )
-                | None => noNode
-                },
-              },
-            )
-          })
-          ->List.fromArray,
-        ),
-      },
-    )
-  }
-}
-
-/// Results tab: aggregated pass/fail results for all workflows.
-let renderResultsTab = (state: functionalTesterState): Tea_Vdom.t<msg> => {
-  let passedCount =
-    state.workflows
-    ->Array.filter(wf =>
-      switch wf.status {
-      | WorkflowPassed(_) => true
-      | _ => false
-      }
-    )
-    ->Array.length
-  let failedCount =
-    state.workflows
-    ->Array.filter(wf =>
-      switch wf.status {
-      | WorkflowFailed(_, _) => true
-      | _ => false
-      }
-    )
-    ->Array.length
-
-  div(
-    list{Attrs.class_("flex flex-col gap-3 p-4")},
-    list{
-      div(
-        list{Attrs.class_("grid grid-cols-3 gap-3")},
-        list{
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-gray-300")},
-                list{text(Int.toString(Array.length(state.workflows)))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Total")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-emerald-400")},
-                list{text(Int.toString(passedCount))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Passed")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-red-400")},
-                list{text(Int.toString(failedCount))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Failed")}),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Templates tab: library of reusable workflow templates.
-let renderTemplatesTab = (_state: functionalTesterState): Tea_Vdom.t<msg> => {
-  let templates = [
-    ("Login Flow", "Complete user authentication cycle"),
-    ("Tutorial Walkthrough", "First-time user experience path"),
-    ("Combat Loop", "Engage guard, evade, complete level"),
-    ("Inventory CRUD", "Create, equip, drop, destroy items"),
-    ("Multiplayer Join", "Connect, sync, verify game state"),
-  ]
-  div(
-    list{Attrs.class_("flex flex-col gap-2 p-4")},
-    templates
-    ->Array.map(((name, desc)) => {
-      div(
-        list{Attrs.class_("bg-gray-800 rounded p-3 border border-gray-700")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center justify-between")},
-            list{
-              span(list{Attrs.class_("text-sm font-medium text-gray-200")}, list{text(name)}),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-2 py-1 text-xs bg-cyan-700 text-white rounded hover:bg-cyan-600 cursor-pointer",
-                  ),
-                  Events.onClick(FunctionalTester(LoadTemplate(name))),
-                },
-                list{text("Use")},
-              ),
-            },
-          ),
-          span(list{Attrs.class_("text-xs text-gray-500")}, list{text(desc)}),
-        },
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-// =========================================================================
-// Main view
-// =========================================================================
-
-/// Primary view function dispatching tab content based on active tab.
-let view = (state: functionalTesterState): Tea_Vdom.t<msg> => {
-  let content = switch state.activeTab {
-  | TabWorkflows => renderWorkflowsTab(state)
-  | TabEditor => renderEditorTab(state)
-  | TabResults => renderResultsTab(state)
-  | TabTemplates => renderTemplatesTab(state)
-  }
-
-  div(
-    list{Attrs.class_("flex flex-col h-full bg-gray-900 text-gray-100")},
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          h2(
-            list{Attrs.class_("text-lg font-semibold text-cyan-300")},
-            list{text("Functional Tester")},
-          ),
-          div(
-            list{Attrs.class_("flex gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1.5 text-xs bg-blue-700 text-white rounded hover:bg-blue-600 cursor-pointer font-medium",
-                  ),
-                  Events.onClick(FunctionalTester(NewWorkflow)),
-                  KeyboardNav.onActivate(FunctionalTester(NewWorkflow)),
-                },
-                list{text("New Workflow")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1.5 text-xs bg-emerald-700 text-white rounded hover:bg-emerald-600 cursor-pointer font-medium",
-                  ),
-                  Events.onClick(FunctionalTester(RunWorkflow(""))),
-                },
-                list{text("Run")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Running indicator
-      if state.running {
-        div(
-          list{
-            Attrs.class_("flex items-center gap-2 px-4 py-2 bg-gray-800 border-b border-gray-700"),
-          },
-          list{
-            div(list{Attrs.class_("w-3 h-3 bg-amber-400 rounded-full animate-pulse")}, list{}),
-            span(list{Attrs.class_("text-sm text-amber-300")}, list{text("Workflow running...")}),
-          },
-        )
-      } else {
-        noNode
-      },
-      // Error display
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_("px-4 py-2 bg-red-900/30 text-red-300 text-sm border-b border-red-800"),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      // Tab bar
-      renderTabs(state.activeTab),
-      // Content
-      div(list{Attrs.class_("flex-1 overflow-y-auto")}, list{content}),
-    },
-  )
-}
diff --git a/src/components/GamePreview.affine b/src/components/GamePreview.affine
new file mode 100644
index 00000000..9def8fbe
--- /dev/null
+++ b/src/components/GamePreview.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module GamePreview;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/GamePreview.res b/src/components/GamePreview.res
deleted file mode 100644
index ec8b1a30..00000000
--- a/src/components/GamePreview.res
+++ /dev/null
@@ -1,620 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Game Preview Component — renders the live IDApTIK game preview panel.
-///
-/// The Live Preview tab embeds the Vite dev server output via an iframe.
-/// When the Gossamer multi-webview system is wired (Phase 2), the iframe
-/// will be replaced by a dedicated webview for tighter integration.
-///
-/// Additional tabs show the device interaction log, saved gameplay clips,
-/// and render performance statistics.
-
-open Model
-open Msg
-open Tea.Html
-
-// =========================================================================
-// Helpers
-// =========================================================================
-
-/// Render the category tab bar.
-let renderTabs = (active: gamePreviewCategory): Tea_Vdom.t<msg> => {
-  let tabs: array<gamePreviewCategory> = [
-    PreviewLive,
-    PreviewDeviceLog,
-    PreviewClips,
-    PreviewPerformance,
-  ]
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 px-4")},
-    tabs
-    ->Array.map(tab => {
-      let isActive = tab === active
-      let label = GamePreviewEngine.categoryLabel(tab)
-      button(
-        list{
-          Attrs.class_(
-            `px-4 py-2 text-sm font-medium transition-colors rounded-t ${isActive
-                ? "bg-gray-800 text-cyan-400 border-b-2 border-cyan-400"
-                : "text-gray-500 hover:text-gray-300 hover:bg-gray-900"}`,
-          ),
-          Events.onClick(GamePreview(SetPreviewCategory(tab))),
-        },
-        list{text(label)},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Render the game loop execution controls.
-let renderExecutionControls = (state: gamePreviewState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex items-center gap-2")},
-    list{
-      // Pause/Resume button
-      button(
-        list{
-          Attrs.class_(
-            `px-3 py-1.5 text-xs rounded font-medium ${switch state.execution {
-              | GameRunning => "bg-amber-800 text-amber-200 hover:bg-amber-700"
-              | GamePaused | GameStepping => "bg-emerald-800 text-emerald-200 hover:bg-emerald-700"
-              }}`,
-          ),
-          Events.onClick(
-            GamePreview(
-              switch state.execution {
-              | GameRunning => PauseGame
-              | GamePaused | GameStepping => ResumeGame
-              },
-            ),
-          ),
-        },
-        list{
-          text(
-            switch state.execution {
-            | GameRunning => "Pause"
-            | GamePaused | GameStepping => "Resume"
-            },
-          ),
-        },
-      ),
-      // Step button (only when paused)
-      switch state.execution {
-      | GamePaused | GameStepping =>
-        button(
-          list{
-            Attrs.class_("px-3 py-1.5 text-xs rounded bg-blue-800 text-blue-200 hover:bg-blue-700"),
-            Events.onClick(GamePreview(StepFrame)),
-            KeyboardNav.onActivate(GamePreview(StepFrame)),
-          },
-          list{text("Step Frame")},
-        )
-      | GameRunning => noNode
-      },
-      // Execution state indicator
-      div(
-        list{Attrs.class_("flex items-center gap-1 ml-2")},
-        list{
-          div(
-            list{
-              Attrs.class_(
-                `w-2 h-2 rounded-full ${switch state.execution {
-                  | GameRunning => "bg-emerald-400 animate-pulse"
-                  | GamePaused => "bg-amber-400"
-                  | GameStepping => "bg-blue-400"
-                  }}`,
-              ),
-            },
-            list{},
-          ),
-          span(
-            list{Attrs.class_("text-xs text-gray-400")},
-            list{text(GamePreviewEngine.executionLabel(state.execution))},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render the overlay toggle buttons.
-let renderOverlayToggles = (activeOverlays: array<gameOverlay>): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-wrap gap-1")},
-    GamePreviewEngine.allOverlays
-    ->Array.map(overlay => {
-      let isActive = GamePreviewEngine.isOverlayActive(activeOverlays, overlay)
-      button(
-        list{
-          Attrs.class_(
-            `px-2 py-1 text-xs rounded transition-colors ${isActive
-                ? "bg-cyan-800 text-cyan-200"
-                : "bg-gray-800 text-gray-500 hover:text-gray-300"}`,
-          ),
-          Events.onClick(GamePreview(ToggleOverlay(overlay))),
-        },
-        list{text(GamePreviewEngine.overlayLabel(overlay))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Render the live preview tab — embedded game + toolbar.
-let renderLivePreview = (state: gamePreviewState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 flex flex-col")},
-    list{
-      // Toolbar
-      div(
-        list{
-          Attrs.class_(
-            "flex items-center justify-between px-4 py-2 bg-gray-900/50 border-b border-gray-800",
-          ),
-        },
-        list{
-          renderExecutionControls(state),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              // Recording controls
-              switch state.gameRecording {
-              | GameRecordingActive(_) =>
-                div(
-                  list{Attrs.class_("flex items-center gap-1")},
-                  list{
-                    div(
-                      list{Attrs.class_("w-2 h-2 rounded-full bg-red-500 animate-pulse")},
-                      list{},
-                    ),
-                    span(list{Attrs.class_("text-xs text-red-400")}, list{text("REC")}),
-                    button(
-                      list{
-                        Attrs.class_("text-xs text-gray-400 hover:text-gray-200 px-2 py-1"),
-                        Events.onClick(GamePreview(StopGameRecording)),
-                        KeyboardNav.onActivate(GamePreview(StopGameRecording)),
-                      },
-                      list{text("Stop")},
-                    ),
-                  },
-                )
-              | GameRecordingPaused(_) =>
-                span(list{Attrs.class_("text-xs text-yellow-400")}, list{text("REC PAUSED")})
-              | GameRecordingIdle =>
-                button(
-                  list{
-                    Attrs.class_(
-                      "text-xs text-gray-500 hover:text-gray-300 px-2 py-1 rounded bg-gray-800",
-                    ),
-                    Events.onClick(GamePreview(StartGameRecording)),
-                    KeyboardNav.onActivate(GamePreview(StartGameRecording)),
-                  },
-                  list{text("Record")},
-                )
-              },
-              // Screenshot button
-              button(
-                list{
-                  Attrs.class_(
-                    "text-xs text-gray-500 hover:text-gray-300 px-2 py-1 rounded bg-gray-800",
-                  ),
-                  Events.onClick(GamePreview(ScreenshotGame)),
-                  KeyboardNav.onActivate(GamePreview(ScreenshotGame)),
-                },
-                list{text("Screenshot")},
-              ),
-              // Zoom controls
-              div(
-                list{Attrs.class_("flex items-center gap-1")},
-                list{
-                  button(
-                    list{
-                      Attrs.class_("text-xs text-gray-500 hover:text-gray-300 px-1"),
-                      Events.onClick(GamePreview(SetZoom(state.zoomLevel -. 0.25))),
-                    },
-                    list{text("-")},
-                  ),
-                  span(
-                    list{Attrs.class_("text-xs text-gray-400 w-10 text-center")},
-                    list{text(`${Float.toFixed(state.zoomLevel *. 100.0, ~digits=0)}%`)},
-                  ),
-                  button(
-                    list{
-                      Attrs.class_("text-xs text-gray-500 hover:text-gray-300 px-1"),
-                      Events.onClick(GamePreview(SetZoom(state.zoomLevel +. 0.25))),
-                    },
-                    list{text("+")},
-                  ),
-                },
-              ),
-              // Multiplayer view toggle
-              button(
-                list{
-                  Attrs.class_(
-                    `text-xs px-2 py-1 rounded ${state.multiplayerView
-                        ? "bg-purple-800 text-purple-200"
-                        : "bg-gray-800 text-gray-500"}`,
-                  ),
-                  Events.onClick(GamePreview(ToggleMultiplayerView)),
-                  KeyboardNav.onActivate(GamePreview(ToggleMultiplayerView)),
-                },
-                list{text("Co-op View")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Overlay toggles
-      div(
-        list{Attrs.class_("px-4 py-2 border-b border-gray-800 bg-gray-900/30")},
-        list{renderOverlayToggles(state.activeOverlays)},
-      ),
-      // Game iframe
-      if state.devServerConnected {
-        div(
-          list{
-            Attrs.class_("flex-1 relative bg-black"),
-            Attrs.style("transform", `scale(${Float.toString(state.zoomLevel)})`),
-            Attrs.style("transform-origin", "center center"),
-          },
-          list{
-            node(
-              "iframe",
-              list{
-                Attrs.src(state.devServerUrl),
-                Attrs.class_("w-full h-full border-0"),
-                Attrs.title("IDApTIK Game Preview"),
-              },
-              list{},
-            ),
-          },
-        )
-      } else {
-        div(
-          list{Attrs.class_("flex-1 flex items-center justify-center bg-gray-950")},
-          list{
-            div(
-              list{Attrs.class_("text-center")},
-              list{
-                div(list{Attrs.class_("text-gray-600 text-lg mb-2")}, list{text("Game Preview")}),
-                div(
-                  list{Attrs.class_("text-gray-700 text-sm mb-4")},
-                  list{text(`Dev server not detected at ${state.devServerUrl}`)},
-                ),
-                div(
-                  list{Attrs.class_("text-gray-700 text-xs mb-4")},
-                  list{text("Run `deno task dev` or `./start-game-only.sh` to start the game.")},
-                ),
-                button(
-                  list{
-                    Attrs.class_(
-                      "px-4 py-2 text-sm rounded bg-cyan-900 text-cyan-200 hover:bg-cyan-800",
-                    ),
-                    Events.onClick(GamePreview(CheckDevServer)),
-                    KeyboardNav.onActivate(GamePreview(CheckDevServer)),
-                  },
-                  list{text("Retry Connection")},
-                ),
-              },
-            ),
-          },
-        )
-      },
-    },
-  )
-}
-
-/// Render the device interaction log tab.
-let renderDeviceLog = (state: gamePreviewState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 overflow-auto p-6")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-4")},
-        list{
-          h3(
-            list{Attrs.class_("text-sm font-medium text-gray-300")},
-            list{text(`Device Interactions (${Int.toString(Array.length(state.deviceLog))})`)},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "text-xs text-gray-400 hover:text-gray-200 px-3 py-1 rounded bg-gray-800",
-              ),
-              Events.onClick(GamePreview(ClearDeviceLog)),
-              KeyboardNav.onActivate(GamePreview(ClearDeviceLog)),
-            },
-            list{text("Clear")},
-          ),
-        },
-      ),
-      if Array.length(state.deviceLog) === 0 {
-        div(
-          list{Attrs.class_("text-center text-gray-600 text-sm py-8")},
-          list{text("No device interactions recorded. Play the game to see interactions here.")},
-        )
-      } else {
-        div(
-          list{Attrs.class_("space-y-1")},
-          state.deviceLog
-          ->Array.map(entry => {
-            div(
-              list{
-                Attrs.class_(
-                  "flex items-center gap-3 font-mono text-sm px-3 py-1.5 rounded bg-gray-900/50",
-                ),
-              },
-              list{
-                span(
-                  list{Attrs.class_("text-cyan-400 w-32 truncate")},
-                  list{text(entry.deviceType)},
-                ),
-                span(list{Attrs.class_("text-gray-500 w-20")}, list{text(entry.deviceId)}),
-                span(list{Attrs.class_("text-gray-300 flex-1")}, list{text(entry.interaction)}),
-              },
-            )
-          })
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render the gameplay clips tab.
-let renderClips = (state: gamePreviewState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 overflow-auto p-6")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-4")},
-        list{
-          h3(list{Attrs.class_("text-sm font-medium text-gray-300")}, list{text("Gameplay Clips")}),
-          button(
-            list{
-              Attrs.class_(
-                "text-xs text-gray-400 hover:text-gray-200 px-3 py-1 rounded bg-gray-800",
-              ),
-              Events.onClick(GamePreview(LoadClips)),
-              KeyboardNav.onActivate(GamePreview(LoadClips)),
-            },
-            list{text("Refresh")},
-          ),
-        },
-      ),
-      if Array.length(state.clips) === 0 {
-        div(
-          list{Attrs.class_("text-center text-gray-600 text-sm py-8")},
-          list{text("No clips yet. Record gameplay from the Live Preview tab.")},
-        )
-      } else {
-        div(
-          list{Attrs.class_("space-y-2")},
-          state.clips
-          ->Array.map(clip => {
-            div(
-              list{
-                Attrs.class_(
-                  "flex items-center justify-between bg-gray-900 rounded-lg px-4 py-3 border border-gray-800",
-                ),
-              },
-              list{
-                div(
-                  list{Attrs.class_("flex-1")},
-                  list{
-                    div(
-                      list{Attrs.class_("text-sm text-gray-200 font-medium")},
-                      list{text(clip.name)},
-                    ),
-                    div(
-                      list{Attrs.class_("text-xs text-gray-500 mt-1")},
-                      list{
-                        text(
-                          `${Float.toString(clip.durationSecs)}s | ${Int.toString(
-                              clip.sizeBytes,
-                            )} bytes`,
-                        ),
-                      },
-                    ),
-                  },
-                ),
-                button(
-                  list{
-                    Attrs.class_(
-                      "text-xs text-red-400 hover:text-red-300 px-2 py-1 bg-gray-800 rounded",
-                    ),
-                    Events.onClick(GamePreview(DeleteClip(clip.id))),
-                  },
-                  list{text("Delete")},
-                ),
-              },
-            )
-          })
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render the performance/render stats tab.
-let renderPerformance = (state: gamePreviewState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 overflow-auto p-6")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-4")},
-        list{
-          h3(
-            list{Attrs.class_("text-sm font-medium text-gray-300")},
-            list{text("Render Performance")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "text-xs text-gray-400 hover:text-gray-200 px-3 py-1 rounded bg-gray-800",
-              ),
-              Events.onClick(GamePreview(RefreshStats)),
-              KeyboardNav.onActivate(GamePreview(RefreshStats)),
-            },
-            list{text("Refresh")},
-          ),
-        },
-      ),
-      switch state.stats {
-      | None =>
-        div(
-          list{Attrs.class_("text-center text-gray-600 text-sm py-8")},
-          list{text("No render stats available. Connect to the running game.")},
-        )
-      | Some(stats) =>
-        div(
-          list{Attrs.class_("grid grid-cols-2 gap-4")},
-          list{
-            // FPS card
-            div(
-              list{Attrs.class_("bg-gray-900 rounded-lg p-4 border border-gray-800")},
-              list{
-                div(list{Attrs.class_("text-xs text-gray-500 mb-1")}, list{text("FPS")}),
-                div(
-                  list{
-                    Attrs.class_(
-                      `text-2xl font-bold ${stats.fps >= 55.0
-                          ? "text-emerald-400"
-                          : stats.fps >= 30.0
-                          ? "text-amber-400"
-                          : "text-red-400"}`,
-                    ),
-                  },
-                  list{text(Float.toFixed(stats.fps, ~digits=1))},
-                ),
-              },
-            ),
-            // Draw calls card
-            div(
-              list{Attrs.class_("bg-gray-900 rounded-lg p-4 border border-gray-800")},
-              list{
-                div(list{Attrs.class_("text-xs text-gray-500 mb-1")}, list{text("Draw Calls")}),
-                div(
-                  list{Attrs.class_("text-2xl font-bold text-gray-200")},
-                  list{text(Int.toString(stats.drawCalls))},
-                ),
-              },
-            ),
-            // Texture memory card
-            div(
-              list{Attrs.class_("bg-gray-900 rounded-lg p-4 border border-gray-800")},
-              list{
-                div(list{Attrs.class_("text-xs text-gray-500 mb-1")}, list{text("Texture Memory")}),
-                div(
-                  list{Attrs.class_("text-2xl font-bold text-gray-200")},
-                  list{
-                    text(
-                      `${Float.toFixed(
-                          Int.toFloat(stats.textureMemory) /. 1048576.0,
-                          ~digits=1,
-                        )} MB`,
-                    ),
-                  },
-                ),
-              },
-            ),
-            // Sprite count card
-            div(
-              list{Attrs.class_("bg-gray-900 rounded-lg p-4 border border-gray-800")},
-              list{
-                div(list{Attrs.class_("text-xs text-gray-500 mb-1")}, list{text("Active Sprites")}),
-                div(
-                  list{Attrs.class_("text-2xl font-bold text-gray-200")},
-                  list{text(Int.toString(stats.spriteCount))},
-                ),
-              },
-            ),
-          },
-        )
-      },
-    },
-  )
-}
-
-// =========================================================================
-// Main view
-// =========================================================================
-
-/// Render the Game Preview panel as a full-screen overlay.
-let view = (state: gamePreviewState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/98 z-40 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Game Preview — live IDApTIK game preview with hot-reload"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              div(
-                list{Attrs.class_("w-6 h-6 rounded bg-cyan-900 flex items-center justify-center")},
-                list{span(list{Attrs.class_("text-cyan-400 text-xs font-bold")}, list{text("GP")})},
-              ),
-              div(
-                list{},
-                list{
-                  h2(
-                    list{Attrs.class_("text-lg font-medium text-gray-200")},
-                    list{text("Game Preview")},
-                  ),
-                  div(
-                    list{Attrs.class_("text-xs text-gray-500")},
-                    list{
-                      text(
-                        if state.devServerConnected {
-                          `Connected to ${state.devServerUrl}`
-                        } else {
-                          "Dev server not connected"
-                        },
-                      ),
-                    },
-                  ),
-                },
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "text-gray-500 hover:text-gray-300 px-3 py-1.5 text-sm rounded bg-gray-800 hover:bg-gray-700",
-              ),
-              Events.onClick(PanelSwitcher(ClosePanels)),
-              KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-            },
-            list{text("Close")},
-          ),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{Attrs.class_("px-4 py-2 bg-red-950 border-b border-red-900")},
-          list{span(list{Attrs.class_("text-red-400 text-sm")}, list{text(err)})},
-        )
-      | None => noNode
-      },
-      // Tab bar
-      renderTabs(state.activeCategory),
-      // Content
-      switch state.activeCategory {
-      | PreviewLive => renderLivePreview(state)
-      | PreviewDeviceLog => renderDeviceLog(state)
-      | PreviewClips => renderClips(state)
-      | PreviewPerformance => renderPerformance(state)
-      },
-    },
-  )
-}
diff --git a/src/components/GeneratorMode.affine b/src/components/GeneratorMode.affine
new file mode 100644
index 00000000..5e56a9af
--- /dev/null
+++ b/src/components/GeneratorMode.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module GeneratorMode;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/GeneratorMode.res b/src/components/GeneratorMode.res
deleted file mode 100644
index a8d69f91..00000000
--- a/src/components/GeneratorMode.res
+++ /dev/null
@@ -1,433 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Generator Mode Component — parametric procedural world builder.
-/// Displays district list builder, slider controls for global parameters,
-/// preview area, and export button.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a district type label.
-let districtTypeLabel = (dt: districtType): string => {
-  switch dt {
-  | Residential => "Residential"
-  | Commercial => "Commercial"
-  | Military => "Military"
-  | Industrial => "Industrial"
-  | Government => "Government"
-  | Transport => "Transport"
-  | Historic => "Historic"
-  }
-}
-
-/// Render a weather condition label.
-let weatherLabel = (w: weatherCondition): string => {
-  switch w {
-  | Clear => "Clear"
-  | Rain => "Rain"
-  | Snow => "Snow"
-  | Fog => "Fog"
-  | Storm => "Storm"
-  | NightRain => "Night Rain"
-  }
-}
-
-/// Render a time-of-day label.
-let timeLabel = (t: timeOfDay): string => {
-  switch t {
-  | Dawn => "Dawn"
-  | Morning => "Morning"
-  | Afternoon => "Afternoon"
-  | Evening => "Evening"
-  | Night => "Night"
-  | Midnight => "Midnight"
-  }
-}
-
-/// Render a slider-style read-only parameter display.
-let paramRow = (label: string, value: float, maxVal: float): Tea_Vdom.t<msg> => {
-  let pct = value /. maxVal *. 100.0
-  div(
-    list{Attrs.class_("flex items-center gap-3 py-1")},
-    list{
-      span(list{Attrs.class_("text-xs text-gray-400 w-28")}, list{text(label)}),
-      div(
-        list{Attrs.class_("flex-1 h-2 bg-gray-800 rounded overflow-hidden")},
-        list{
-          div(
-            list{
-              Attrs.class_("h-full bg-indigo-500 transition-all"),
-              Attrs.style("width", Float.toFixed(pct, ~digits=1) ++ "%"),
-            },
-            list{},
-          ),
-        },
-      ),
-      span(
-        list{Attrs.class_("text-xs text-gray-500 w-12 text-right font-mono")},
-        list{text(Float.toFixed(value, ~digits=2))},
-      ),
-    },
-  )
-}
-
-/// Main view function for the Generator Mode panel.
-let view = (state: generatorModeState): Tea_Vdom.t<msg> => {
-  let districtCount = switch state.currentSpec {
-  | Some(spec) => Array.length(spec.districts)
-  | None => 0
-  }
-
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Generator Mode — Parametric World Builder"),
-    },
-    list{
-      // Header row
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-bold text-indigo-300")},
-                list{text("Generator Mode")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-400")},
-                list{text(Int.toString(districtCount) ++ " districts")},
-              ),
-              if state.generating {
-                span(
-                  list{Attrs.class_("text-xs text-yellow-400 animate-pulse")},
-                  list{text("Generating...")},
-                )
-              } else {
-                Tea_Html.noNode
-              },
-            },
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs bg-indigo-800 hover:bg-indigo-700 text-white rounded",
-              ),
-              Events.onClick(GeneratorMode(GenStarted)),
-              KeyboardNav.onActivate(GeneratorMode(GenStarted)),
-            },
-            list{text("Generate")},
-          ),
-        },
-      ),
-      // Tab bar
-      div(
-        list{Attrs.class_("flex gap-1 px-4 py-2 border-b border-gray-800")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Design {
-                  "bg-indigo-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(GeneratorMode(SetGenCategory(Design))),
-            },
-            list{text("Design")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Parameters {
-                  "bg-indigo-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(GeneratorMode(SetGenCategory(Parameters))),
-            },
-            list{text("Parameters")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Preview {
-                  "bg-indigo-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(GeneratorMode(SetGenCategory(Preview))),
-            },
-            list{text("Preview")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Export {
-                  "bg-indigo-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(GeneratorMode(SetGenCategory(Export))),
-            },
-            list{text("Export")},
-          ),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 px-3 py-2 bg-red-900/50 border border-red-700 rounded text-sm text-red-200 flex justify-between items-center",
-            ),
-          },
-          list{
-            text(err),
-            button(
-              list{
-                Attrs.class_("text-red-400 hover:text-red-200 text-xs ml-2"),
-                Events.onClick(GeneratorMode(DismissGenError)),
-                KeyboardNav.onActivate(GeneratorMode(DismissGenError)),
-              },
-              list{text("Dismiss")},
-            ),
-          },
-        )
-      | None => Tea_Html.noNode
-      },
-      // Content area
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto px-4 py-4")},
-        list{
-          switch state.activeTab {
-          | Design =>
-            switch state.currentSpec {
-            | Some(spec) =>
-              div(
-                list{Attrs.class_("space-y-3")},
-                list{
-                  div(
-                    list{Attrs.class_("text-sm text-indigo-300 font-bold mb-2")},
-                    list{text(spec.name)},
-                  ),
-                  div(
-                    list{},
-                    spec.districts
-                    ->Array.map(d =>
-                      div(
-                        list{
-                          Attrs.class_("px-3 py-2 bg-gray-900 border border-gray-800 rounded mb-2"),
-                        },
-                        list{
-                          div(
-                            list{Attrs.class_("flex items-center justify-between mb-1")},
-                            list{
-                              span(
-                                list{Attrs.class_("text-sm text-gray-200")},
-                                list{text(districtTypeLabel(d.districtType))},
-                              ),
-                              span(
-                                list{Attrs.class_("text-xs text-gray-500")},
-                                list{text("Size: " ++ d.sizeHint)},
-                              ),
-                            },
-                          ),
-                          div(
-                            list{Attrs.class_("flex flex-wrap gap-1")},
-                            d.facilities
-                            ->Array.map(f =>
-                              span(
-                                list{
-                                  Attrs.class_(
-                                    "px-2 py-0.5 text-xs bg-gray-800 text-gray-300 rounded",
-                                  ),
-                                },
-                                list{text(f.facilityType ++ " x" ++ Int.toString(f.count))},
-                              )
-                            )
-                            ->List.fromArray,
-                          ),
-                        },
-                      )
-                    )
-                    ->List.fromArray,
-                  ),
-                },
-              )
-            | None =>
-              div(
-                list{Attrs.class_("text-center text-gray-500 py-8")},
-                list{text("No world specification loaded. Create a new design to begin.")},
-              )
-            }
-          | Parameters =>
-            div(
-              list{Attrs.class_("space-y-2")},
-              list{
-                h3(
-                  list{Attrs.class_("text-sm text-indigo-300 mb-2")},
-                  list{text("Global Parameters")},
-                ),
-                paramRow("Security", state.params.securityLevel, 1.0),
-                paramRow("Tech Level", state.params.techLevel, 1.0),
-                paramRow("Trap Density", state.params.trapDensity, 1.0),
-                paramRow("Difficulty", state.params.difficultyTarget, 1.0),
-                div(
-                  list{Attrs.class_("flex gap-4 pt-2 text-xs text-gray-400")},
-                  list{
-                    span(
-                      list{},
-                      list{text("Weather: " ++ weatherLabel(state.params.weatherCondition))},
-                    ),
-                    span(list{}, list{text("Time: " ++ timeLabel(state.params.timeOfDay))}),
-                    span(
-                      list{},
-                      list{text("Civilians: " ++ Int.toString(state.params.civilianPopulation))},
-                    ),
-                  },
-                ),
-              },
-            )
-          | Preview =>
-            switch state.previewResult {
-            | Some(result) =>
-              div(
-                list{Attrs.class_("space-y-3")},
-                list{
-                  div(
-                    list{Attrs.class_("flex gap-4 text-xs text-gray-400")},
-                    list{
-                      span(list{}, list{text("Entities: " ++ Int.toString(result.entityCount))}),
-                      span(
-                        list{
-                          Attrs.class_(
-                            if result.validationPassed {
-                              "text-green-400"
-                            } else {
-                              "text-red-400"
-                            },
-                          ),
-                        },
-                        list{
-                          text(
-                            if result.validationPassed {
-                              "Validation passed"
-                            } else {
-                              "Validation failed"
-                            },
-                          ),
-                        },
-                      ),
-                      span(list{}, list{text("Generated: " ++ result.generatedAt)}),
-                    },
-                  ),
-                  div(
-                    list{
-                      Attrs.class_("bg-gray-900 border border-gray-800 rounded p-3 min-h-[200px]"),
-                    },
-                    list{
-                      pre(
-                        list{
-                          Attrs.class_(
-                            "text-xs text-gray-300 font-mono whitespace-pre-wrap overflow-auto max-h-96",
-                          ),
-                        },
-                        list{text(result.levelConfigJson)},
-                      ),
-                    },
-                  ),
-                },
-              )
-            | None =>
-              div(
-                list{Attrs.class_("text-center text-gray-500 py-8")},
-                list{text("Generate a world to see the preview.")},
-              )
-            }
-          | Export =>
-            div(
-              list{Attrs.class_("space-y-4")},
-              list{
-                div(
-                  list{Attrs.class_("text-sm text-gray-400")},
-                  list{text("Export the generated LevelConfig JSON for use in IDApTIK.")},
-                ),
-                switch state.previewResult {
-                | Some(result) =>
-                  div(
-                    list{Attrs.class_("space-y-2")},
-                    list{
-                      div(
-                        list{Attrs.class_("flex gap-4 text-xs text-gray-400")},
-                        list{
-                          span(
-                            list{},
-                            list{text("Entities: " ++ Int.toString(result.entityCount))},
-                          ),
-                          span(list{}, list{text("World: " ++ result.worldSpec.name)}),
-                        },
-                      ),
-                      button(
-                        list{
-                          Attrs.class_(
-                            "px-4 py-2 bg-indigo-700 hover:bg-indigo-600 text-white rounded text-sm",
-                          ),
-                        },
-                        list{text("Export LevelConfig JSON")},
-                      ),
-                    },
-                  )
-                | None =>
-                  div(
-                    list{Attrs.class_("text-xs text-gray-500")},
-                    list{text("No generation result to export. Run the generator first.")},
-                  )
-                },
-                // Saved templates
-                if Array.length(state.templates) > 0 {
-                  div(
-                    list{Attrs.class_("pt-4 border-t border-gray-800")},
-                    list{
-                      h3(
-                        list{Attrs.class_("text-sm text-gray-300 mb-2")},
-                        list{text("Saved Templates")},
-                      ),
-                      div(
-                        list{Attrs.class_("space-y-1")},
-                        state.templates
-                        ->Array.map(t =>
-                          div(
-                            list{Attrs.class_("flex items-center gap-3 py-1 text-xs")},
-                            list{
-                              span(list{Attrs.class_("text-gray-300")}, list{text(t.name)}),
-                              span(
-                                list{Attrs.class_("text-gray-500")},
-                                list{text(Int.toString(Array.length(t.districts)) ++ " districts")},
-                              ),
-                            },
-                          )
-                        )
-                        ->List.fromArray,
-                      ),
-                    },
-                  )
-                } else {
-                  Tea_Html.noNode
-                },
-              },
-            )
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/GuardAiTuner.affine b/src/components/GuardAiTuner.affine
new file mode 100644
index 00000000..1f02a010
--- /dev/null
+++ b/src/components/GuardAiTuner.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module GuardAiTuner;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/GuardAiTuner.res b/src/components/GuardAiTuner.res
deleted file mode 100644
index 3bcb25ce..00000000
--- a/src/components/GuardAiTuner.res
+++ /dev/null
@@ -1,378 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Guard AI Tuner Component — guard patrol, alert threshold, and spawn
-/// rate tuning. Displays guard profile cards with patrol patterns, slider
-/// controls, patrol route editor, and presets dropdown.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a slider-style parameter row for guard profiles.
-let guardParamRow = (label: string, value: float, maxVal: float, unit: string): Tea_Vdom.t<msg> => {
-  let pct = Math.min(value /. maxVal *. 100.0, 100.0)
-  div(
-    list{Attrs.class_("flex items-center gap-3 py-1")},
-    list{
-      span(list{Attrs.class_("text-xs text-gray-400 w-28")}, list{text(label)}),
-      div(
-        list{Attrs.class_("flex-1 h-2 bg-gray-800 rounded overflow-hidden")},
-        list{
-          div(
-            list{
-              Attrs.class_("h-full bg-orange-500 transition-all"),
-              Attrs.style("width", Float.toFixed(pct, ~digits=1) ++ "%"),
-            },
-            list{},
-          ),
-        },
-      ),
-      span(
-        list{Attrs.class_("text-xs text-gray-500 w-16 text-right font-mono")},
-        list{text(Float.toFixed(value, ~digits=2) ++ unit)},
-      ),
-    },
-  )
-}
-
-/// Main view function for the Guard AI Tuner panel.
-let view = (state: guardAiTunerState): Tea_Vdom.t<msg> => {
-  let guardCount = Array.length(state.guards)
-  let routeCount = Array.length(state.routes)
-  let presetCount = Array.length(state.presets)
-
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Guard AI Tuner — Patrol and Alert Threshold Tuning"),
-    },
-    list{
-      // Header row
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-bold text-orange-300")},
-                list{text("Guard AI Tuner")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-400")},
-                list{
-                  text(
-                    Int.toString(guardCount) ++
-                    " guards, " ++
-                    Int.toString(routeCount) ++ " routes",
-                  ),
-                },
-              ),
-              if state.editing {
-                span(list{Attrs.class_("text-xs text-yellow-400")}, list{text("Editing...")})
-              } else {
-                Tea_Html.noNode
-              },
-            },
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs bg-orange-800 hover:bg-orange-700 text-white rounded",
-              ),
-              Events.onClick(GuardAiTuner(GatStarted)),
-              KeyboardNav.onActivate(GuardAiTuner(GatStarted)),
-            },
-            list{text("Apply Tuning")},
-          ),
-        },
-      ),
-      // Tab bar
-      div(
-        list{Attrs.class_("flex gap-1 px-4 py-2 border-b border-gray-800")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Profiles {
-                  "bg-orange-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(GuardAiTuner(SetGatCategory(Profiles))),
-            },
-            list{text("Profiles")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == PatrolEditor {
-                  "bg-orange-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(GuardAiTuner(SetGatCategory(PatrolEditor))),
-            },
-            list{text("Patrol Editor")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Thresholds {
-                  "bg-orange-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(GuardAiTuner(SetGatCategory(Thresholds))),
-            },
-            list{text("Thresholds")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Presets {
-                  "bg-orange-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(GuardAiTuner(SetGatCategory(Presets))),
-            },
-            list{text("Presets (" ++ Int.toString(presetCount) ++ ")")},
-          ),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 px-3 py-2 bg-red-900/50 border border-red-700 rounded text-sm text-red-200 flex justify-between items-center",
-            ),
-          },
-          list{
-            text(err),
-            button(
-              list{
-                Attrs.class_("text-red-400 hover:text-red-200 text-xs ml-2"),
-                Events.onClick(GuardAiTuner(DismissGatError)),
-                KeyboardNav.onActivate(GuardAiTuner(DismissGatError)),
-              },
-              list{text("Dismiss")},
-            ),
-          },
-        )
-      | None => Tea_Html.noNode
-      },
-      // Content area
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto px-4 py-4")},
-        list{
-          switch state.activeTab {
-          | Profiles =>
-            div(
-              list{Attrs.class_("space-y-3")},
-              state.guards
-              ->Array.map(g => {
-                let isSelected = state.selectedGuard == Some(g.id)
-                div(
-                  list{
-                    Attrs.class_(
-                      "px-3 py-2 border rounded " ++ if isSelected {
-                        "bg-orange-900/20 border-orange-700"
-                      } else {
-                        "bg-gray-900 border-gray-800"
-                      },
-                    ),
-                  },
-                  list{
-                    div(
-                      list{Attrs.class_("flex items-center justify-between mb-2")},
-                      list{
-                        span(
-                          list{Attrs.class_("text-sm font-bold text-orange-300")},
-                          list{text(g.name)},
-                        ),
-                        span(
-                          list{
-                            Attrs.class_(
-                              "px-2 py-0.5 text-xs bg-gray-800 text-gray-300 rounded font-mono",
-                            ),
-                          },
-                          list{text(g.patrolPattern)},
-                        ),
-                      },
-                    ),
-                    div(
-                      list{Attrs.class_("grid grid-cols-2 gap-x-4 gap-y-1 text-xs text-gray-400")},
-                      list{
-                        span(
-                          list{},
-                          list{text("Alert: " ++ Float.toFixed(g.alertThreshold, ~digits=2))},
-                        ),
-                        span(
-                          list{},
-                          list{text("Spawn: " ++ Float.toFixed(g.spawnRate, ~digits=1) ++ "x")},
-                        ),
-                        span(
-                          list{},
-                          list{text("Speed: " ++ Float.toFixed(g.speed, ~digits=1) ++ " u/s")},
-                        ),
-                        span(
-                          list{},
-                          list{
-                            text(
-                              "Detection: " ++ Float.toFixed(g.detectionRange, ~digits=0) ++ " u",
-                            ),
-                          },
-                        ),
-                        span(
-                          list{},
-                          list{
-                            text("Response: " ++ Float.toFixed(g.responseTime, ~digits=1) ++ "s"),
-                          },
-                        ),
-                      },
-                    ),
-                  },
-                )
-              })
-              ->List.fromArray,
-            )
-          | PatrolEditor =>
-            div(
-              list{Attrs.class_("space-y-3")},
-              state.routes
-              ->Array.map(route =>
-                div(
-                  list{Attrs.class_("px-3 py-2 bg-gray-900 border border-gray-800 rounded")},
-                  list{
-                    div(
-                      list{Attrs.class_("flex items-center justify-between mb-2")},
-                      list{
-                        span(
-                          list{Attrs.class_("text-sm text-gray-200 font-mono")},
-                          list{text("Route: " ++ route.id)},
-                        ),
-                        span(
-                          list{Attrs.class_("text-xs text-gray-500")},
-                          list{
-                            text(
-                              if route.looping {
-                                "Looping"
-                              } else {
-                                "Ping-pong"
-                              },
-                            ),
-                          },
-                        ),
-                      },
-                    ),
-                    div(
-                      list{Attrs.class_("space-y-1")},
-                      route.points
-                      ->Array.mapWithIndex((pt, idx) =>
-                        div(
-                          list{Attrs.class_("flex items-center gap-2 text-xs text-gray-400")},
-                          list{
-                            span(
-                              list{Attrs.class_("w-6 text-gray-600")},
-                              list{text(Int.toString(idx + 1))},
-                            ),
-                            span(
-                              list{Attrs.class_("font-mono")},
-                              list{
-                                text(
-                                  "(" ++
-                                  Float.toFixed(pt.x, ~digits=0) ++
-                                  ", " ++
-                                  Float.toFixed(pt.y, ~digits=0) ++ ")",
-                                ),
-                              },
-                            ),
-                            span(
-                              list{Attrs.class_("text-gray-600")},
-                              list{text("wait " ++ Float.toFixed(pt.waitTime, ~digits=1) ++ "s")},
-                            ),
-                          },
-                        )
-                      )
-                      ->List.fromArray,
-                    ),
-                  },
-                )
-              )
-              ->List.fromArray,
-            )
-          | Thresholds =>
-            switch state.selectedGuard {
-            | Some(gid) =>
-              switch state.guards->Array.find(g => g.id == gid) {
-              | Some(g) =>
-                div(
-                  list{Attrs.class_("space-y-2")},
-                  list{
-                    div(
-                      list{Attrs.class_("text-sm text-orange-300 font-bold mb-3")},
-                      list{text(g.name ++ " — Thresholds")},
-                    ),
-                    guardParamRow("Alert Threshold", g.alertThreshold, 1.0, ""),
-                    guardParamRow("Spawn Rate", g.spawnRate, 5.0, "x"),
-                    guardParamRow("Speed", g.speed, 20.0, " u/s"),
-                    guardParamRow("Detection", g.detectionRange, 100.0, " u"),
-                    guardParamRow("Response Time", g.responseTime, 10.0, "s"),
-                  },
-                )
-              | None =>
-                div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Guard not found.")})
-              }
-            | None =>
-              div(
-                list{Attrs.class_("text-center text-gray-500 py-8")},
-                list{text("Select a guard profile to tune thresholds.")},
-              )
-            }
-          | Presets =>
-            div(
-              list{Attrs.class_("space-y-2")},
-              state.presets
-              ->Array.map(p =>
-                div(
-                  list{Attrs.class_("px-3 py-2 bg-gray-900 border border-gray-800 rounded")},
-                  list{
-                    div(list{Attrs.class_("text-sm font-bold text-gray-200")}, list{text(p.name)}),
-                    div(
-                      list{Attrs.class_("text-xs text-gray-500 mt-1")},
-                      list{text(p.description)},
-                    ),
-                    div(
-                      list{Attrs.class_("flex gap-2 mt-2")},
-                      p.profiles
-                      ->Array.map(prof =>
-                        span(
-                          list{
-                            Attrs.class_(
-                              "px-2 py-0.5 text-xs bg-orange-900/30 text-orange-300 rounded",
-                            ),
-                          },
-                          list{text(prof.name)},
-                        )
-                      )
-                      ->List.fromArray,
-                    ),
-                  },
-                )
-              )
-              ->List.fromArray,
-            )
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/Help.affine b/src/components/Help.affine
new file mode 100644
index 00000000..6cd3ae05
--- /dev/null
+++ b/src/components/Help.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Help;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Help.res b/src/components/Help.res
deleted file mode 100644
index 09ba9e03..00000000
--- a/src/components/Help.res
+++ /dev/null
@@ -1,781 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Help Component — In-application help, glossary, and onboarding.
-///
-/// Renders a full-screen overlay containing the PanLL help system with
-/// six content categories (Getting Started, Glossary, Panel Guides,
-/// Shortcuts, FAQ, Architecture), a searchable entry list, detailed
-/// article views, a glossary browser with related-term navigation,
-/// and an 8-step onboarding walkthrough for new users.
-///
-/// All interactive elements carry ARIA attributes and keyboard semantics
-/// so the help system itself meets the accessibility standard PanLL
-/// enforces on every panel it mints.
-///
-/// This component is purely presentational — all state transformations
-/// live in HelpEngine and are dispatched through Help(...) messages.
-
-open Model
-open Msg
-open Tea.Html
-
-// ============================================================================
-// Constants
-// ============================================================================
-
-/// Ordered list of all help categories for tab rendering.
-/// Kept local because HelpEngine does not export an enumeration array.
-let allCategories: array<helpCategory> = [
-  GettingStarted,
-  Glossary,
-  PanelGuide,
-  Shortcuts,
-  Faq,
-  Architecture,
-]
-
-// ============================================================================
-// Header
-// ============================================================================
-
-/// Renders the help panel header bar containing the title, a search input
-/// for filtering entries and glossary terms, and a close button.
-///
-/// The search input dispatches `Help(SetHelpSearch(...))` on every keystroke
-/// so the engine can recompute filtered results in real time.
-///
-/// The close button dispatches `Help(CloseHelp)` to dismiss the overlay.
-///
-/// @param state The current help system state (for pre-filling the search box)
-/// @returns A virtual DOM node representing the header bar
-let renderHeader = (state: helpState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_(
-        "flex items-center justify-between px-6 py-4 border-b border-gray-800 bg-gray-950 shrink-0",
-      ),
-    },
-    list{
-      // Title
-      h2(
-        list{Attrs.class_("text-lg font-semibold text-gray-100 tracking-tight")},
-        list{text("Help & Documentation")},
-      ),
-      // Search + close cluster
-      div(
-        list{Attrs.class_("flex items-center gap-3")},
-        list{
-          // Search input
-          div(
-            list{Attrs.class_("relative")},
-            list{
-              span(
-                list{
-                  Attrs.class_(
-                    "absolute left-3 top-1/2 -translate-y-1/2 text-gray-500 text-sm pointer-events-none",
-                  ),
-                  Attrs.prop("aria-hidden", "true"),
-                },
-                list{text("search")},
-              ),
-              input(
-                list{
-                  Attrs.class_(
-                    "w-72 bg-gray-900 border border-gray-700 rounded-lg pl-10 pr-3 py-2 text-sm text-gray-200 placeholder-gray-600 focus:border-indigo-500 focus:outline-none focus:ring-1 focus:ring-indigo-500/30",
-                  ),
-                  Attrs.type_("text"),
-                  Attrs.placeholder("Search help topics..."),
-                  Attrs.value(state.searchQuery),
-                  Attrs.ariaLabel("Search help topics"),
-                  Events.onInput(v => Help(SetHelpSearch(v))),
-                },
-                list{},
-              ),
-            },
-          ),
-          // Close button
-          button(
-            list{
-              Attrs.class_(
-                "p-2 rounded-lg text-gray-400 hover:text-gray-200 hover:bg-gray-800 transition-colors focus:outline-none focus:ring-2 focus:ring-indigo-500/50",
-              ),
-              Attrs.ariaLabel("Close help panel"),
-              Events.onClick(Help(CloseHelp)),
-              KeyboardNav.onActivate(Help(CloseHelp)),
-            },
-            list{text("close")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Category Tabs
-// ============================================================================
-
-/// Renders the category tab bar for switching between help sections.
-///
-/// Each tab dispatches `Help(SetHelpCategory(...))` when clicked. The
-/// currently active tab is highlighted with an indigo accent and carries
-/// `ariaSelected="true"` for screen reader users.
-///
-/// The tab bar uses `role="tablist"` and each tab uses `role="tab"`.
-///
-/// @param active The currently selected help category
-/// @returns A virtual DOM node representing the tab bar
-let renderCategoryTabs = (active: helpCategory): Tea_Vdom.t<msg> => {
-  let renderTab = (cat: helpCategory): Tea_Vdom.t<msg> => {
-    let isActive = cat === active
-    let baseClass = "px-4 py-2 text-sm font-medium rounded-lg transition-colors focus:outline-none focus:ring-2 focus:ring-indigo-500/50 whitespace-nowrap"
-    let stateClass = if isActive {
-      "bg-indigo-600 text-gray-100"
-    } else {
-      "text-gray-400 hover:text-gray-200 hover:bg-gray-800"
-    }
-    button(
-      list{
-        Attrs.class_(`${baseClass} ${stateClass}`),
-        Attrs.role("tab"),
-        Attrs.prop("aria-selected", isActive ? "true" : "false"),
-        Attrs.ariaLabel(HelpEngine.categoryLabel(cat)),
-        Events.onClick(Help(SetHelpCategory(cat))),
-      },
-      list{text(HelpEngine.categoryLabel(cat))},
-    )
-  }
-
-  div(
-    list{
-      Attrs.class_(
-        "flex items-center gap-1 px-6 py-3 border-b border-gray-800 bg-gray-950/80 overflow-x-auto shrink-0",
-      ),
-      Attrs.role("tablist"),
-      Attrs.ariaLabel("Help category tabs"),
-    },
-    allCategories->Array.map(renderTab)->List.fromArray,
-  )
-}
-
-// ============================================================================
-// Entry List (Card Grid)
-// ============================================================================
-
-/// Renders a single help entry as a clickable card in the entry list.
-///
-/// Clicking the card dispatches `Help(SelectEntry(entry.id))` to open
-/// the full article view for that entry.
-///
-/// @param entry The help entry to render as a card
-/// @returns A virtual DOM node for the entry card
-let renderEntryCard = (entry: helpEntry): Tea_Vdom.t<msg> => {
-  let truncatedBody = if String.length(entry.body) > 160 {
-    String.slice(entry.body, ~start=0, ~end=157) ++ "..."
-  } else {
-    entry.body
-  }
-
-  button(
-    list{
-      Attrs.class_(
-        "w-full text-left bg-gray-900 border border-gray-700 rounded-lg p-4 hover:border-indigo-500/50 hover:bg-gray-900/80 transition-colors focus:outline-none focus:ring-2 focus:ring-indigo-500/50 group",
-      ),
-      Attrs.ariaLabel(`Read: ${entry.title}`),
-      Events.onClick(Help(SelectEntry(entry.id))),
-    },
-    list{
-      // Title
-      h3(
-        list{
-          Attrs.class_(
-            "text-sm font-medium text-gray-200 group-hover:text-indigo-400 transition-colors mb-1",
-          ),
-        },
-        list{text(entry.title)},
-      ),
-      // Category badge
-      span(
-        list{
-          Attrs.class_("inline-block text-xs text-gray-500 bg-gray-800 rounded px-2 py-0.5 mb-2"),
-        },
-        list{text(HelpEngine.categoryLabel(entry.category))},
-      ),
-      // Truncated body preview
-      p(
-        list{Attrs.class_("text-xs text-gray-400 leading-relaxed line-clamp-3")},
-        list{text(truncatedBody)},
-      ),
-      // Keywords
-      switch Array.length(entry.keywords) > 0 {
-      | true =>
-        div(
-          list{Attrs.class_("flex flex-wrap gap-1 mt-2")},
-          entry.keywords
-          ->Array.slice(~start=0, ~end=4)
-          ->Array.map(kw =>
-            span(
-              list{Attrs.class_("text-xs text-gray-600 bg-gray-800/50 rounded px-1.5 py-0.5")},
-              list{text(kw)},
-            )
-          )
-          ->List.fromArray,
-        )
-      | false => noNode
-      },
-    },
-  )
-}
-
-/// Renders the entry list view — a grid of clickable help entry cards.
-///
-/// When no entries match the current filter/search, a "no results" message
-/// is displayed. Otherwise entries are laid out in a responsive card grid.
-///
-/// @param entries The filtered array of help entries to display
-/// @param _activeEntry The currently selected entry ID (unused here but kept for signature consistency)
-/// @returns A virtual DOM node for the entry list grid
-let renderEntryList = (entries: array<helpEntry>, _activeEntry: option<string>): Tea_Vdom.t<
-  msg,
-> => {
-  if Array.length(entries) === 0 {
-    div(
-      list{Attrs.class_("flex flex-col items-center justify-center py-16 text-center")},
-      list{
-        div(list{Attrs.class_("text-4xl mb-4 text-gray-600")}, list{text("?")}),
-        p(
-          list{Attrs.class_("text-gray-400 text-sm")},
-          list{text("No help entries found matching your search.")},
-        ),
-        p(
-          list{Attrs.class_("text-gray-500 text-xs mt-1")},
-          list{text("Try a different search term or switch categories.")},
-        ),
-      },
-    )
-  } else {
-    div(
-      list{
-        Attrs.class_("grid grid-cols-1 md:grid-cols-2 lg:grid-cols-3 gap-4 p-6"),
-        Attrs.role("list"),
-        Attrs.ariaLabel("Help entries"),
-      },
-      entries
-      ->Array.map(entry => div(list{Attrs.role("listitem")}, list{renderEntryCard(entry)}))
-      ->List.fromArray,
-    )
-  }
-}
-
-// ============================================================================
-// Entry Detail
-// ============================================================================
-
-/// Renders the full article view for a single help entry.
-///
-/// Includes a back button to return to the entry list, the entry title,
-/// category badge, full body text, and keyword tags. The back button
-/// dispatches `Help(SelectEntry(""))` with an empty string to clear the
-/// active entry selection (the engine treats empty-string SelectEntry
-/// as deselection, or alternatively we dispatch SetHelpSearch to reset).
-///
-/// @param entry The help entry to render in full detail
-/// @returns A virtual DOM node for the article view
-let renderEntryDetail = (entry: helpEntry): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-col h-full")},
-    list{
-      // Back button bar
-      div(
-        list{Attrs.class_("px-6 py-3 border-b border-gray-800 shrink-0")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "flex items-center gap-2 text-sm text-gray-400 hover:text-indigo-400 transition-colors focus:outline-none focus:ring-2 focus:ring-indigo-500/50 rounded px-2 py-1",
-              ),
-              Attrs.ariaLabel("Back to entry list"),
-              Events.onClick(Help(SelectEntry(""))),
-            },
-            list{
-              span(list{Attrs.prop("aria-hidden", "true")}, list{text("back")}),
-              text("Back to entries"),
-            },
-          ),
-        },
-      ),
-      // Article content
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto px-6 py-6")},
-        list{
-          // Title
-          h2(
-            list{Attrs.class_("text-xl font-semibold text-gray-100 mb-2")},
-            list{text(entry.title)},
-          ),
-          // Category badge
-          span(
-            list{
-              Attrs.class_(
-                "inline-block text-xs text-indigo-400 bg-indigo-900/30 border border-indigo-800/50 rounded px-2 py-0.5 mb-6",
-              ),
-            },
-            list{text(HelpEngine.categoryLabel(entry.category))},
-          ),
-          // Body text — rendered as paragraphs split on double newlines
-          div(
-            list{Attrs.class_("space-y-4")},
-            entry.body
-            ->String.split("\n\n")
-            ->Array.map(paragraph =>
-              p(list{Attrs.class_("text-sm text-gray-300 leading-relaxed")}, list{text(paragraph)})
-            )
-            ->List.fromArray,
-          ),
-          // Panel link (if panel-specific)
-          switch entry.panelId {
-          | Some(_pid) =>
-            div(
-              list{Attrs.class_("mt-6 p-3 bg-gray-900 border border-gray-700 rounded-lg")},
-              list{
-                span(
-                  list{Attrs.class_("text-xs text-gray-500")},
-                  list{
-                    text(
-                      "This entry is associated with a specific panel. Use the Panel Switcher to navigate there.",
-                    ),
-                  },
-                ),
-              },
-            )
-          | None => noNode
-          },
-          // Keywords footer
-          switch Array.length(entry.keywords) > 0 {
-          | true =>
-            div(
-              list{Attrs.class_("mt-6 pt-4 border-t border-gray-800")},
-              list{
-                div(
-                  list{Attrs.class_("text-xs text-gray-500 mb-2")},
-                  list{text("Related keywords")},
-                ),
-                div(
-                  list{Attrs.class_("flex flex-wrap gap-2")},
-                  entry.keywords
-                  ->Array.map(kw =>
-                    span(
-                      list{
-                        Attrs.class_("text-xs text-gray-400 bg-gray-800 rounded-full px-3 py-1"),
-                      },
-                      list{text(kw)},
-                    )
-                  )
-                  ->List.fromArray,
-                ),
-              },
-            )
-          | false => noNode
-          },
-        },
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Glossary
-// ============================================================================
-
-/// Renders a single glossary term card with its definition and related terms.
-///
-/// Related terms are rendered as clickable links that dispatch
-/// `Help(SearchGlossary(relatedTerm))` to navigate the glossary graph.
-///
-/// @param term The glossary term to render
-/// @returns A virtual DOM node for the glossary term card
-let renderGlossaryTerm = (term: glossaryTerm): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-4"),
-      Attrs.role("article"),
-      Attrs.ariaLabel(`Glossary term: ${term.term}`),
-    },
-    list{
-      // Term heading
-      h3(list{Attrs.class_("text-sm font-semibold text-indigo-400 mb-2")}, list{text(term.term)}),
-      // Definition
-      p(
-        list{Attrs.class_("text-sm text-gray-300 leading-relaxed mb-3")},
-        list{text(term.definition)},
-      ),
-      // Extended description (if available)
-      switch term.extendedDescription {
-      | Some(ext) =>
-        p(list{Attrs.class_("text-xs text-gray-400 leading-relaxed mb-3 italic")}, list{text(ext)})
-      | None => noNode
-      },
-      // Related terms
-      switch Array.length(term.relatedTerms) > 0 {
-      | true =>
-        div(
-          list{Attrs.class_("flex flex-wrap gap-1.5 pt-2 border-t border-gray-800")},
-          [
-            span(
-              list{Attrs.class_("text-xs text-gray-500 mr-1 self-center")},
-              list{text("See also:")},
-            ),
-          ]
-          ->Array.concat(
-            term.relatedTerms->Array.map(rt =>
-              button(
-                list{
-                  Attrs.class_(
-                    "text-xs text-indigo-400 hover:text-indigo-300 bg-indigo-900/20 hover:bg-indigo-900/40 rounded px-2 py-0.5 transition-colors focus:outline-none focus:ring-1 focus:ring-indigo-500/50",
-                  ),
-                  Attrs.ariaLabel(`Look up related term: ${rt}`),
-                  Events.onClick(Help(SearchGlossary(rt))),
-                },
-                list{text(rt)},
-              )
-            ),
-          )
-          ->List.fromArray,
-        )
-      | false => noNode
-      },
-    },
-  )
-}
-
-/// Renders the glossary view — an alphabetical list of neurosymbolic terms
-/// with definitions and cross-reference links.
-///
-/// The glossary is filtered by the current search query. Terms are sorted
-/// alphabetically by their `term` field. When no terms match the search,
-/// a "no results" message is shown.
-///
-/// @param glossary The array of glossary terms (pre-filtered by the engine or raw)
-/// @param searchQuery The current search string for additional client-side filtering
-/// @returns A virtual DOM node for the glossary list
-let renderGlossary = (glossary: array<glossaryTerm>, searchQuery: string): Tea_Vdom.t<msg> => {
-  let filtered = HelpEngine.searchGlossary(searchQuery, glossary)
-  let sorted = filtered->Array.toSorted((a, b) => {
-    let la = String.toLowerCase(a.term)
-    let lb = String.toLowerCase(b.term)
-    if la < lb {
-      -1.0
-    } else if la > lb {
-      1.0
-    } else {
-      0.0
-    }
-  })
-
-  if Array.length(sorted) === 0 {
-    div(
-      list{Attrs.class_("flex flex-col items-center justify-center py-16 text-center")},
-      list{
-        div(list{Attrs.class_("text-4xl mb-4 text-gray-600")}, list{text("A-Z")}),
-        p(
-          list{Attrs.class_("text-gray-400 text-sm")},
-          list{text("No glossary terms match your search.")},
-        ),
-      },
-    )
-  } else {
-    div(
-      list{Attrs.class_("p-6")},
-      list{
-        // Term count
-        div(
-          list{Attrs.class_("text-xs text-gray-500 mb-4")},
-          list{
-            text(
-              `${Int.toString(Array.length(sorted))} term${Array.length(sorted) === 1 ? "" : "s"}`,
-            ),
-          },
-        ),
-        // Term list
-        div(
-          list{
-            Attrs.class_("grid grid-cols-1 md:grid-cols-2 gap-4"),
-            Attrs.role("list"),
-            Attrs.ariaLabel("Glossary terms"),
-          },
-          sorted
-          ->Array.map(term => div(list{Attrs.role("listitem")}, list{renderGlossaryTerm(term)}))
-          ->List.fromArray,
-        ),
-      },
-    )
-  }
-}
-
-// ============================================================================
-// Onboarding Overlay
-// ============================================================================
-
-/// Renders the onboarding walkthrough overlay — a step-by-step card
-/// sequence introducing new users to PanLL's core concepts.
-///
-/// The overlay floats above the help panel content with a semi-transparent
-/// backdrop. Navigation buttons dispatch `Help(PrevOnboardingStep)`,
-/// `Help(NextOnboardingStep)`, and `Help(SkipOnboarding)` messages.
-///
-/// On the final step, the "Next" button becomes "Finish" and dispatches
-/// `Help(CompleteOnboarding)`.
-///
-/// @param state The current onboarding walkthrough state
-/// @returns A virtual DOM node for the onboarding overlay (or noNode if inactive)
-let renderOnboarding = (state: onboardingState): Tea_Vdom.t<msg> => {
-  if !state.active {
-    noNode
-  } else {
-    let totalSteps = Array.length(state.steps)
-    let currentIdx = state.currentStep
-    let isLast = currentIdx >= totalSteps - 1
-    let isFirst = currentIdx <= 0
-
-    let currentStep = state.steps->Array.get(currentIdx)
-
-    switch currentStep {
-    | None => noNode
-    | Some(step) =>
-      div(
-        list{
-          Attrs.class_(
-            "fixed inset-0 z-50 flex items-center justify-center bg-gray-950/80 backdrop-blur-sm",
-          ),
-          Attrs.role("dialog"),
-          Attrs.ariaLabel("Onboarding walkthrough"),
-        },
-        list{
-          // Walkthrough card
-          div(
-            list{
-              Attrs.class_(
-                "w-full max-w-lg bg-gray-900 border border-gray-700 rounded-xl shadow-2xl overflow-hidden",
-              ),
-            },
-            list{
-              // Progress bar
-              div(
-                list{Attrs.class_("h-1 bg-gray-800")},
-                list{
-                  div(
-                    list{
-                      Attrs.class_("h-full bg-indigo-500 transition-all duration-300"),
-                      Attrs.style(
-                        "width",
-                        `${Float.toFixed(
-                            Int.toFloat(currentIdx + 1) /. Int.toFloat(totalSteps) *. 100.0,
-                            ~digits=0,
-                          )}%`,
-                      ),
-                    },
-                    list{},
-                  ),
-                },
-              ),
-              // Card body
-              div(
-                list{Attrs.class_("p-8")},
-                list{
-                  // Step counter
-                  div(
-                    list{Attrs.class_("text-xs text-gray-500 mb-4")},
-                    list{
-                      text(`Step ${Int.toString(currentIdx + 1)} of ${Int.toString(totalSteps)}`),
-                    },
-                  ),
-                  // Title
-                  h3(
-                    list{Attrs.class_("text-lg font-semibold text-gray-100 mb-3")},
-                    list{text(step.title)},
-                  ),
-                  // Description
-                  p(
-                    list{Attrs.class_("text-sm text-gray-300 leading-relaxed")},
-                    list{text(step.description)},
-                  ),
-                },
-              ),
-              // Navigation footer
-              div(
-                list{
-                  Attrs.class_(
-                    "flex items-center justify-between px-8 py-4 border-t border-gray-800 bg-gray-950/50",
-                  ),
-                },
-                list{
-                  // Skip button
-                  button(
-                    list{
-                      Attrs.class_(
-                        "text-xs text-gray-500 hover:text-gray-300 transition-colors focus:outline-none focus:ring-2 focus:ring-indigo-500/50 rounded px-2 py-1",
-                      ),
-                      Attrs.ariaLabel("Skip onboarding walkthrough"),
-                      Events.onClick(Help(SkipOnboarding)),
-                      KeyboardNav.onActivate(Help(SkipOnboarding)),
-                    },
-                    list{text("Skip walkthrough")},
-                  ),
-                  // Prev / Next buttons
-                  div(
-                    list{Attrs.class_("flex items-center gap-3")},
-                    list{
-                      // Previous
-                      if isFirst {
-                        noNode
-                      } else {
-                        button(
-                          list{
-                            Attrs.class_(
-                              "px-4 py-2 text-sm text-gray-400 hover:text-gray-200 bg-gray-800 hover:bg-gray-700 rounded-lg transition-colors focus:outline-none focus:ring-2 focus:ring-indigo-500/50",
-                            ),
-                            Attrs.ariaLabel("Previous onboarding step"),
-                            Events.onClick(Help(PrevOnboardingStep)),
-                            KeyboardNav.onActivate(Help(PrevOnboardingStep)),
-                          },
-                          list{text("Previous")},
-                        )
-                      },
-                      // Next / Finish
-                      button(
-                        list{
-                          Attrs.class_(
-                            "px-4 py-2 text-sm font-medium text-white bg-indigo-600 hover:bg-indigo-500 rounded-lg transition-colors focus:outline-none focus:ring-2 focus:ring-indigo-500/50",
-                          ),
-                          Attrs.ariaLabel(isLast ? "Finish onboarding" : "Next onboarding step"),
-                          Events.onClick(
-                            isLast ? Help(CompleteOnboarding) : Help(NextOnboardingStep),
-                          ),
-                        },
-                        list{text(isLast ? "Finish" : "Next")},
-                      ),
-                    },
-                  ),
-                },
-              ),
-            },
-          ),
-        },
-      )
-    }
-  }
-}
-
-// ============================================================================
-// Main View
-// ============================================================================
-
-/// Main entry point for the Help panel.
-///
-/// Renders a full-screen overlay containing the header bar, category tabs,
-/// and the appropriate content area based on the current state:
-///
-/// - If a specific entry is selected (`activeEntry = Some(id)`), shows
-///   the full article view via `renderEntryDetail`.
-/// - If the Glossary tab is active, shows the glossary browser via
-///   `renderGlossary`.
-/// - Otherwise, shows the entry list grid via `renderEntryList`.
-///
-/// The onboarding overlay is conditionally rendered on top of everything
-/// when the walkthrough is active.
-///
-/// The outermost div carries `role="dialog"` and an ARIA label for
-/// assistive technology.
-///
-/// @param state The complete help system state
-/// @returns A virtual DOM tree for the entire Help panel overlay
-let view = (state: helpState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col h-screen"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Help and documentation"),
-    },
-    list{
-      // Header with search and close
-      renderHeader(state),
-      // Category tabs
-      renderCategoryTabs(state.activeCategory),
-      // Content area (scrollable)
-      div(
-        list{
-          Attrs.class_("flex-1 overflow-y-auto"),
-          Attrs.role("tabpanel"),
-          Attrs.ariaLabel(`${HelpEngine.categoryLabel(state.activeCategory)} content`),
-        },
-        list{
-          // Determine which view to render based on state
-          switch state.activeEntry {
-          | Some(entryId) if entryId !== "" =>
-            // Entry detail view — find the entry and render it
-            switch HelpEngine.findEntry(entryId, state.filteredEntries) {
-            | Some(entry) => renderEntryDetail(entry)
-            | None =>
-              // Entry not found in filtered set — show a fallback message
-              div(
-                list{Attrs.class_("flex flex-col items-center justify-center py-16 text-center")},
-                list{
-                  p(
-                    list{Attrs.class_("text-gray-400 text-sm")},
-                    list{text("Entry not found. It may have been filtered out.")},
-                  ),
-                  button(
-                    list{
-                      Attrs.class_(
-                        "mt-4 px-4 py-2 text-sm text-indigo-400 hover:text-indigo-300 bg-gray-900 border border-gray-700 rounded-lg transition-colors focus:outline-none focus:ring-2 focus:ring-indigo-500/50",
-                      ),
-                      Events.onClick(Help(SelectEntry(""))),
-                    },
-                    list{text("Back to entries")},
-                  ),
-                },
-              )
-            }
-          | _ =>
-            // List / glossary view depending on active category
-            switch state.activeCategory {
-            | Glossary => renderGlossary(state.glossary, state.searchQuery)
-            | _ => renderEntryList(state.filteredEntries, state.activeEntry)
-            }
-          },
-        },
-      ),
-      // Context panel indicator (when opened from a specific panel via F1)
-      switch state.contextPanelId {
-      | Some(_pid) =>
-        div(
-          list{Attrs.class_("px-6 py-2 border-t border-gray-800 bg-gray-950 shrink-0")},
-          list{
-            div(
-              list{Attrs.class_("flex items-center justify-between")},
-              list{
-                span(
-                  list{Attrs.class_("text-xs text-gray-500")},
-                  list{text("Showing context-sensitive help. ")},
-                ),
-                button(
-                  list{
-                    Attrs.class_(
-                      "text-xs text-indigo-400 hover:text-indigo-300 transition-colors focus:outline-none focus:ring-1 focus:ring-indigo-500/50 rounded px-1",
-                    ),
-                    Attrs.ariaLabel("Show all help entries, clear panel filter"),
-                    Events.onClick(Help(OpenContextHelp(None))),
-                  },
-                  list{text("Show all")},
-                ),
-              },
-            ),
-          },
-        )
-      | None => noNode
-      },
-      // Onboarding overlay (floats above everything when active)
-      renderOnboarding(state.onboarding),
-    },
-  )
-}
diff --git a/src/components/Hypatia.affine b/src/components/Hypatia.affine
new file mode 100644
index 00000000..537748f0
--- /dev/null
+++ b/src/components/Hypatia.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Hypatia;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Hypatia.res b/src/components/Hypatia.res
deleted file mode 100644
index 04c8f8c1..00000000
--- a/src/components/Hypatia.res
+++ /dev/null
@@ -1,1120 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Hypatia Component — Neurosymbolic scanner dashboard.
-///
-/// Renders the 5 neural network confidence gauges, scan results table,
-/// quarantine status, pipeline health, and learning cycle progress.
-/// The brain of the entire ecosystem.
-
-open Model
-open Msg
-open Tea.Html
-
-// ============================================================================
-// Neural Network Gauge
-// ============================================================================
-
-/// Render a single neural network confidence gauge.
-let renderNetGauge = (net: neuralNetState): Tea_Vdom.t<msg> => {
-  let label = HypatiaEngine.netLabel(net.id)
-  let desc = HypatiaEngine.netDescription(net.id)
-  let dotColor = HypatiaEngine.netStatusColor(net.status)
-  let confPct = Float.toFixed(net.confidence *. 100.0, ~digits=0)
-  // Gauge bar width as percentage
-  let barWidth = Float.toFixed(net.confidence *. 100.0, ~digits=0)
-  let barColor = if net.confidence > 0.8 {
-    "bg-green-500"
-  } else if net.confidence > 0.5 {
-    "bg-amber-500"
-  } else {
-    "bg-red-500"
-  }
-
-  div(
-    list{
-      Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-4"),
-      Attrs.role("meter"),
-      Attrs.ariaLabel(`${label} confidence: ${confPct}%`),
-      Attrs.prop("aria-valuenow", confPct),
-      Attrs.prop("aria-valuemin", "0"),
-      Attrs.prop("aria-valuemax", "100"),
-    },
-    list{
-      // Header: name + status dot
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-1")},
-        list{
-          span(list{Attrs.class_("text-sm font-medium text-gray-200")}, list{text(label)}),
-          span(
-            list{Attrs.class_(`w-2 h-2 rounded-full ${dotColor}`), Attrs.role("status")},
-            list{},
-          ),
-        },
-      ),
-      // Description
-      div(list{Attrs.class_("text-xs text-gray-500 mb-3")}, list{text(desc)}),
-      // Confidence bar
-      div(
-        list{Attrs.class_("w-full bg-gray-800 rounded-full h-2 mb-2")},
-        list{
-          div(
-            list{
-              Attrs.class_(`${barColor} h-full rounded-full transition-all duration-500`),
-              Attrs.prop("style", `width: ${barWidth}%`),
-            },
-            list{},
-          ),
-        },
-      ),
-      // Metrics
-      div(
-        list{Attrs.class_("flex justify-between text-xs text-gray-400")},
-        list{
-          span(list{}, list{text(`${confPct}% conf`)}),
-          span(list{}, list{text(`${Int.toString(net.inferenceCount)} inferences`)}),
-        },
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Scan Result Row
-// ============================================================================
-
-/// Render a single scan result row.
-let renderScanRow = (scan: scanResult): Tea_Vdom.t<msg> => {
-  let riskClass = if scan.riskScore > 0.7 {
-    "text-red-400"
-  } else if scan.riskScore > 0.3 {
-    "text-amber-400"
-  } else {
-    "text-green-400"
-  }
-  let statusIcon = scan.passed ? "text-green-400" : "text-red-400"
-  let statusText = scan.passed ? "PASS" : "FAIL"
-
-  div(
-    list{
-      Attrs.class_("flex items-center gap-4 p-3 border-b border-gray-800 hover:bg-gray-900/50"),
-      Attrs.role("row"),
-    },
-    list{
-      // Pass/fail indicator
-      span(list{Attrs.class_(`text-xs font-bold ${statusIcon} w-10`)}, list{text(statusText)}),
-      // Repo name
-      span(list{Attrs.class_("text-sm text-gray-300 w-48 truncate")}, list{text(scan.repoName)}),
-      // Risk score
-      span(
-        list{Attrs.class_(`text-xs ${riskClass} w-16 text-right`)},
-        list{text(`${Float.toFixed(scan.riskScore *. 100.0, ~digits=0)}%`)},
-      ),
-      // Finding count
-      span(
-        list{Attrs.class_("text-xs text-gray-400 w-20 text-right")},
-        list{text(`${Int.toString(scan.findingCount)} findings`)},
-      ),
-      // Quarantine count
-      span(
-        list{Attrs.class_("text-xs text-gray-500 w-20 text-right")},
-        list{text(`${Int.toString(scan.quarantineCount)} quarantined`)},
-      ),
-      // Last scanned
-      span(
-        list{Attrs.class_("text-xs text-gray-600 flex-1 text-right truncate")},
-        list{text(scan.lastScanned)},
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Learning Cycle Status
-// ============================================================================
-
-/// Render the learning cycle progress indicator.
-let renderLearningCycle = (cycle: learningCycle): Tea_Vdom.t<msg> => {
-  let progress = if cycle.reposTotal > 0 {
-    Int.toFloat(cycle.reposScanned) /. Int.toFloat(cycle.reposTotal) *. 100.0
-  } else {
-    0.0
-  }
-  let pctStr = Float.toFixed(progress, ~digits=0)
-
-  div(
-    list{
-      Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-4"),
-      Attrs.role("status"),
-      Attrs.ariaLabel(`Learning cycle: ${pctStr}% complete`),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-2")},
-        list{
-          span(
-            list{Attrs.class_("text-sm font-medium text-gray-300")},
-            list{text("Learning Cycle")},
-          ),
-          span(
-            list{Attrs.class_("text-xs text-indigo-400")},
-            list{text(HypatiaEngine.stageLabel(cycle.stage))},
-          ),
-        },
-      ),
-      // Progress bar
-      div(
-        list{Attrs.class_("w-full bg-gray-800 rounded-full h-2 mb-2")},
-        list{
-          div(
-            list{
-              Attrs.class_("bg-indigo-500 h-full rounded-full transition-all"),
-              Attrs.prop("style", `width: ${pctStr}%`),
-            },
-            list{},
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("flex justify-between text-xs text-gray-500")},
-        list{
-          span(
-            list{},
-            list{
-              text(`${Int.toString(cycle.reposScanned)}/${Int.toString(cycle.reposTotal)} repos`),
-            },
-          ),
-          if cycle.noveltyTriggered {
-            span(list{Attrs.class_("text-amber-400")}, list{text("Novelty detected")})
-          } else {
-            noNode
-          },
-        },
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Category Tabs
-// ============================================================================
-
-/// Render the category tab bar (Dashboard, Scans, Quarantine, Neural, Recipes).
-let renderTabs = (active: hypatiaCategory): Tea_Vdom.t<msg> => {
-  let tabs: array<hypatiaCategory> = [
-    HypatiaDashboard,
-    HypatiaScans,
-    HypatiaQuarantine,
-    HypatiaNeural,
-    HypatiaRecipes,
-  ]
-  div(
-    list{
-      Attrs.class_("flex gap-1 border-b border-gray-800 mb-4"),
-      Attrs.role("tablist"),
-      Attrs.ariaLabel("Hypatia panel sections"),
-    },
-    tabs
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-4 py-2 text-sm rounded-t transition-colors ${isActive
-                ? "bg-gray-800 text-gray-200 border-b-2 border-emerald-500"
-                : "text-gray-500 hover:text-gray-300"}`,
-          ),
-          Attrs.role("tab"),
-          Attrs.ariaSelected(isActive),
-          Events.onClick(Hypatia(SetHypatiaCategory(tab))),
-        },
-        list{text(HypatiaEngine.categoryLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-// ============================================================================
-// Main View
-// ============================================================================
-
-/// Main Hypatia panel view — full-screen overlay with neural gauges, scan results, and recipes.
-let view = (hypatia: hypatiaState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Hypatia neurosymbolic scanner panel"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between p-4 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(list{Attrs.class_("text-lg font-medium text-gray-200")}, list{text("Hypatia")}),
-              span(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{text("neurosymbolic CI/CD intelligence")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-emerald-400 ml-2")},
-                list{
-                  text(
-                    `${Float.toFixed(
-                        HypatiaEngine.avgConfidence(hypatia.networks) *. 100.0,
-                        ~digits=0,
-                      )}% ensemble confidence`,
-                  ),
-                },
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-xs bg-emerald-600 text-white rounded hover:bg-emerald-500",
-                  ),
-                  Events.onClick(Hypatia(LoadHypatia)),
-                  KeyboardNav.onActivate(Hypatia(LoadHypatia)),
-                },
-                list{text("Refresh")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-sm bg-gray-800 text-gray-300 rounded hover:bg-gray-700",
-                  ),
-                  Events.onClick(PanelSwitcher(ClosePanels)),
-                  KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-                },
-                list{text("Close")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Content
-      div(
-        list{Attrs.class_("flex-1 overflow-auto p-6")},
-        list{
-          if hypatia.loading {
-            div(
-              list{Attrs.class_("text-gray-400"), Attrs.role("status")},
-              list{text("Scanning...")},
-            )
-          } else if !hypatia.loaded {
-            div(
-              list{Attrs.class_("text-center text-gray-500 mt-12")},
-              list{
-                div(list{Attrs.class_("text-4xl mb-2")}, list{text("Hypatia")}),
-                div(
-                  list{Attrs.class_("text-sm mb-1")},
-                  list{text("Neurosymbolic CI/CD Intelligence")},
-                ),
-                div(
-                  list{Attrs.class_("text-xs text-gray-600 mb-6")},
-                  list{
-                    text(
-                      `5 neural networks. ${Int.toString(
-                          hypatia.totalRepos,
-                        )}+ repos. Safety triangle routing.`,
-                    ),
-                  },
-                ),
-                button(
-                  list{
-                    Attrs.class_(
-                      "px-4 py-2 bg-emerald-600 text-white rounded hover:bg-emerald-500",
-                    ),
-                    Events.onClick(Hypatia(LoadHypatia)),
-                    KeyboardNav.onActivate(Hypatia(LoadHypatia)),
-                  },
-                  list{text("Connect to Hypatia")},
-                ),
-              },
-            )
-          } else {
-            div(
-              list{Attrs.class_("space-y-4")},
-              list{
-                renderTabs(hypatia.activeCategory),
-                switch hypatia.activeCategory {
-                | HypatiaDashboard =>
-                  div(
-                    list{Attrs.class_("space-y-6")},
-                    list{
-                      // Summary bar
-                      div(
-                        list{Attrs.class_("flex gap-6 text-sm")},
-                        list{
-                          div(
-                            list{Attrs.class_("text-gray-400")},
-                            list{text(`${Int.toString(hypatia.totalRepos)} repos`)},
-                          ),
-                          div(
-                            list{Attrs.class_("text-gray-400")},
-                            list{text(`${Int.toString(Array.length(hypatia.scans))} scanned`)},
-                          ),
-                          div(
-                            list{Attrs.class_("text-gray-400")},
-                            list{text(`${Int.toString(hypatia.quarantinedCount)} quarantined`)},
-                          ),
-                        },
-                      ),
-                      // Neural network gauges (5 in a row)
-                      div(
-                        list{
-                          Attrs.class_("grid grid-cols-5 gap-3"),
-                          Attrs.role("list"),
-                          Attrs.ariaLabel("Neural network ensemble"),
-                        },
-                        hypatia.networks->Array.map(net => renderNetGauge(net))->List.fromArray,
-                      ),
-                      // Safety Triangle summary
-                      switch hypatia.triangleCounts {
-                      | Some((elim, sub, ctrl)) =>
-                        div(
-                          list{
-                            Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-4"),
-                            Attrs.role("figure"),
-                            Attrs.ariaLabel("Safety triangle — hierarchy of controls"),
-                          },
-                          list{
-                            div(
-                              list{Attrs.class_("text-sm font-medium text-gray-300 mb-3")},
-                              list{text("Safety Triangle")},
-                            ),
-                            div(
-                              list{Attrs.class_("space-y-2")},
-                              list{
-                                // Eliminate tier
-                                div(
-                                  list{Attrs.class_("flex items-center gap-3")},
-                                  list{
-                                    div(
-                                      list{
-                                        Attrs.class_(
-                                          "w-20 text-right text-xs text-red-400 font-medium",
-                                        ),
-                                      },
-                                      list{text("Eliminate")},
-                                    ),
-                                    div(
-                                      list{
-                                        Attrs.class_(
-                                          "flex-1 bg-gray-800 rounded-full h-3 overflow-hidden",
-                                        ),
-                                      },
-                                      list{
-                                        div(
-                                          list{
-                                            Attrs.class_(
-                                              "bg-red-600 h-full rounded-full transition-all",
-                                            ),
-                                            Attrs.prop(
-                                              "style",
-                                              `width: ${Int.toString(elim * 10)}%`,
-                                            ),
-                                          },
-                                          list{},
-                                        ),
-                                      },
-                                    ),
-                                    div(
-                                      list{Attrs.class_("w-8 text-xs text-gray-400 text-right")},
-                                      list{text(Int.toString(elim))},
-                                    ),
-                                  },
-                                ),
-                                // Substitute tier
-                                div(
-                                  list{Attrs.class_("flex items-center gap-3")},
-                                  list{
-                                    div(
-                                      list{
-                                        Attrs.class_(
-                                          "w-20 text-right text-xs text-amber-400 font-medium",
-                                        ),
-                                      },
-                                      list{text("Substitute")},
-                                    ),
-                                    div(
-                                      list{
-                                        Attrs.class_(
-                                          "flex-1 bg-gray-800 rounded-full h-3 overflow-hidden",
-                                        ),
-                                      },
-                                      list{
-                                        div(
-                                          list{
-                                            Attrs.class_(
-                                              "bg-amber-600 h-full rounded-full transition-all",
-                                            ),
-                                            Attrs.prop(
-                                              "style",
-                                              `width: ${Int.toString(sub * 10)}%`,
-                                            ),
-                                          },
-                                          list{},
-                                        ),
-                                      },
-                                    ),
-                                    div(
-                                      list{Attrs.class_("w-8 text-xs text-gray-400 text-right")},
-                                      list{text(Int.toString(sub))},
-                                    ),
-                                  },
-                                ),
-                                // Control tier
-                                div(
-                                  list{Attrs.class_("flex items-center gap-3")},
-                                  list{
-                                    div(
-                                      list{
-                                        Attrs.class_(
-                                          "w-20 text-right text-xs text-blue-400 font-medium",
-                                        ),
-                                      },
-                                      list{text("Control")},
-                                    ),
-                                    div(
-                                      list{
-                                        Attrs.class_(
-                                          "flex-1 bg-gray-800 rounded-full h-3 overflow-hidden",
-                                        ),
-                                      },
-                                      list{
-                                        div(
-                                          list{
-                                            Attrs.class_(
-                                              "bg-blue-600 h-full rounded-full transition-all",
-                                            ),
-                                            Attrs.prop(
-                                              "style",
-                                              `width: ${Int.toString(ctrl * 10)}%`,
-                                            ),
-                                          },
-                                          list{},
-                                        ),
-                                      },
-                                    ),
-                                    div(
-                                      list{Attrs.class_("w-8 text-xs text-gray-400 text-right")},
-                                      list{text(Int.toString(ctrl))},
-                                    ),
-                                  },
-                                ),
-                              },
-                            ),
-                          },
-                        )
-                      | None => noNode
-                      },
-                      // Outcomes summary
-                      switch hypatia.outcomes {
-                      | Some(out) =>
-                        div(
-                          list{
-                            Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-4"),
-                            Attrs.role("region"),
-                            Attrs.ariaLabel("Dispatch outcomes summary"),
-                          },
-                          list{
-                            div(
-                              list{Attrs.class_("text-sm font-medium text-gray-300 mb-3")},
-                              list{text("Outcomes")},
-                            ),
-                            div(
-                              list{Attrs.class_("flex gap-6 text-xs")},
-                              list{
-                                div(
-                                  list{Attrs.class_("text-gray-400")},
-                                  list{text(`${Int.toString(out.totalOutcomes)} total`)},
-                                ),
-                                div(
-                                  list{Attrs.class_("text-gray-400")},
-                                  list{text(`${Int.toString(out.successCount)} succeeded`)},
-                                ),
-                                div(
-                                  list{
-                                    Attrs.class_(
-                                      if out.successRate >= 90.0 {
-                                        "text-green-400"
-                                      } else if out.successRate >= 70.0 {
-                                        "text-amber-400"
-                                      } else {
-                                        "text-red-400"
-                                      },
-                                    ),
-                                  },
-                                  list{
-                                    text(`${Float.toFixed(out.successRate, ~digits=1)}% success`),
-                                  },
-                                ),
-                                div(
-                                  list{
-                                    Attrs.class_(
-                                      if out.mismatchFixApplied {
-                                        "text-green-400"
-                                      } else {
-                                        "text-amber-400"
-                                      },
-                                    ),
-                                  },
-                                  list{
-                                    text(
-                                      if out.mismatchFixApplied {
-                                        "Mismatch fix: applied"
-                                      } else {
-                                        "Mismatch fix: pending"
-                                      },
-                                    ),
-                                  },
-                                ),
-                              },
-                            ),
-                          },
-                        )
-                      | None => noNode
-                      },
-                      // Learning cycle
-                      switch hypatia.learningCycle {
-                      | Some(cycle) => renderLearningCycle(cycle)
-                      | None => noNode
-                      },
-                    },
-                  )
-                | HypatiaScans => {
-                    let filtered = HypatiaEngine.filterScans(hypatia.scans, hypatia.filterText)
-                    div(
-                      list{Attrs.class_("space-y-4")},
-                      list{
-                        // Filter
-                        div(
-                          list{Attrs.class_("flex items-center gap-3")},
-                          list{
-                            input(
-                              list{
-                                Attrs.class_(
-                                  "flex-1 bg-gray-900 border border-gray-700 rounded px-3 py-2 text-sm text-gray-200 placeholder-gray-600",
-                                ),
-                                Attrs.placeholder("Filter by repo name..."),
-                                Attrs.ariaLabel("Filter scan results"),
-                                Attrs.value(hypatia.filterText),
-                                Events.onInput(v => Hypatia(SetHypatiaFilter(v))),
-                              },
-                              list{},
-                            ),
-                            span(
-                              list{Attrs.class_("text-xs text-gray-500")},
-                              list{text(`${Int.toString(Array.length(filtered))} results`)},
-                            ),
-                          },
-                        ),
-                        // Results table
-                        div(
-                          list{
-                            Attrs.class_("border border-gray-700 rounded-lg overflow-hidden"),
-                            Attrs.role("table"),
-                          },
-                          list{
-                            div(
-                              list{
-                                Attrs.class_(
-                                  "flex items-center gap-4 p-3 bg-gray-900 border-b border-gray-700 text-xs text-gray-500",
-                                ),
-                              },
-                              list{
-                                span(list{Attrs.class_("w-10")}, list{text("Status")}),
-                                span(list{Attrs.class_("w-48")}, list{text("Repository")}),
-                                span(list{Attrs.class_("w-16 text-right")}, list{text("Risk")}),
-                                span(list{Attrs.class_("w-20 text-right")}, list{text("Findings")}),
-                                span(
-                                  list{Attrs.class_("w-20 text-right")},
-                                  list{text("Quarantine")},
-                                ),
-                                span(
-                                  list{Attrs.class_("flex-1 text-right")},
-                                  list{text("Last Scan")},
-                                ),
-                              },
-                            ),
-                            div(
-                              list{Attrs.class_("max-h-96 overflow-y-auto")},
-                              filtered->Array.map(s => renderScanRow(s))->List.fromArray,
-                            ),
-                          },
-                        ),
-                      },
-                    )
-                  }
-                | HypatiaQuarantine =>
-                  div(
-                    list{
-                      Attrs.class_("space-y-4"),
-                      Attrs.role("region"),
-                      Attrs.ariaLabel("Quarantine status"),
-                    },
-                    list{
-                      if hypatia.quarantinedCount > 0 {
-                        div(
-                          list{
-                            Attrs.class_("bg-amber-900/20 border border-amber-700 rounded-lg p-4"),
-                          },
-                          list{
-                            div(
-                              list{Attrs.class_("flex items-center gap-3 mb-2")},
-                              list{
-                                span(
-                                  list{Attrs.class_("text-amber-400 text-sm font-medium")},
-                                  list{
-                                    text(
-                                      `${Int.toString(hypatia.quarantinedCount)} items quarantined`,
-                                    ),
-                                  },
-                                ),
-                              },
-                            ),
-                            div(
-                              list{Attrs.class_("text-xs text-gray-400")},
-                              list{
-                                text(
-                                  "These items have been held for human review. Connect to the Hypatia backend to inspect and resolve individual quarantine entries.",
-                                ),
-                              },
-                            ),
-                          },
-                        )
-                      } else {
-                        div(
-                          list{Attrs.class_("text-center py-12")},
-                          list{
-                            div(
-                              list{Attrs.class_("text-3xl text-gray-600 mb-2")},
-                              list{text("Clear")},
-                            ),
-                            div(
-                              list{Attrs.class_("text-sm text-gray-500")},
-                              list{
-                                text(
-                                  "No items in quarantine. All findings have been routed through the safety triangle.",
-                                ),
-                              },
-                            ),
-                          },
-                        )
-                      },
-                    },
-                  )
-                | HypatiaNeural =>
-                  div(
-                    list{Attrs.class_("grid grid-cols-2 lg:grid-cols-3 gap-4")},
-                    hypatia.networks->Array.map(net => renderNetGauge(net))->List.fromArray,
-                  )
-                | HypatiaRecipes =>
-                  div(
-                    list{
-                      Attrs.class_("space-y-4"),
-                      Attrs.role("region"),
-                      Attrs.ariaLabel("Recipe inventory"),
-                    },
-                    list{
-                      {
-                        let total = Array.length(hypatia.recipeEntries)
-                        let withFix =
-                          hypatia.recipeEntries->Array.filter(r => r.hasFixScript)->Array.length
-                        let elimCount =
-                          hypatia.recipeEntries
-                          ->Array.filter(r => r.tier === Eliminate)
-                          ->Array.length
-                        let subCount =
-                          hypatia.recipeEntries
-                          ->Array.filter(r => r.tier === Substitute)
-                          ->Array.length
-                        let ctrlCount =
-                          hypatia.recipeEntries->Array.filter(r => r.tier === Control)->Array.length
-                        div(
-                          list{Attrs.class_("flex gap-4 text-xs flex-wrap")},
-                          list{
-                            div(
-                              list{Attrs.class_("text-gray-300 font-medium")},
-                              list{text(`${Int.toString(total)} recipes`)},
-                            ),
-                            div(
-                              list{Attrs.class_("text-green-400")},
-                              list{text(`${Int.toString(withFix)} with fix_script`)},
-                            ),
-                            div(
-                              list{Attrs.class_("text-red-400")},
-                              list{text(`${Int.toString(elimCount)} eliminate`)},
-                            ),
-                            div(
-                              list{Attrs.class_("text-amber-400")},
-                              list{text(`${Int.toString(subCount)} substitute`)},
-                            ),
-                            div(
-                              list{Attrs.class_("text-blue-400")},
-                              list{text(`${Int.toString(ctrlCount)} control`)},
-                            ),
-                          },
-                        )
-                      },
-                      // Filter input
-                      input(
-                        list{
-                          Attrs.class_(
-                            "w-full bg-gray-900 border border-gray-700 rounded px-3 py-2 text-sm text-gray-200 placeholder-gray-600",
-                          ),
-                          Attrs.placeholder("Filter recipes by name, description, or language..."),
-                          Attrs.ariaLabel("Filter recipes"),
-                          Attrs.value(hypatia.recipeFilter),
-                          Events.onInput(v => Hypatia(SetRecipeFilter(v))),
-                        },
-                        list{},
-                      ),
-                      {
-                        let filtered = HypatiaEngine.filterRecipes(
-                          hypatia.recipeEntries,
-                          hypatia.recipeFilter,
-                        )
-                        div(
-                          list{Attrs.class_("flex gap-4")},
-                          list{
-                            // Recipe list (left)
-                            div(
-                              list{
-                                Attrs.class_(
-                                  "flex-1 border border-gray-700 rounded-lg overflow-hidden",
-                                ),
-                                Attrs.role("list"),
-                              },
-                              list{
-                                // Column headers
-                                div(
-                                  list{
-                                    Attrs.class_(
-                                      "flex items-center gap-2 p-2 bg-gray-900 border-b border-gray-700 text-xs text-gray-500",
-                                    ),
-                                  },
-                                  list{
-                                    span(list{Attrs.class_("w-6")}, list{text("")}),
-                                    span(list{Attrs.class_("flex-1")}, list{text("Recipe")}),
-                                    span(list{Attrs.class_("w-12 text-right")}, list{text("Conf")}),
-                                    span(list{Attrs.class_("w-16 text-right")}, list{text("Tier")}),
-                                    span(
-                                      list{Attrs.class_("w-14 text-right")},
-                                      list{text("Fired")},
-                                    ),
-                                  },
-                                ),
-                                div(
-                                  list{Attrs.class_("max-h-[32rem] overflow-y-auto")},
-                                  filtered
-                                  ->Array.map(recipe => {
-                                    let isSelected = hypatia.selectedRecipe === Some(recipe.id)
-                                    let confPct = Float.toFixed(
-                                      recipe.confidence *. 100.0,
-                                      ~digits=0,
-                                    )
-                                    let tierCol = HypatiaEngine.tierColor(recipe.tier)
-                                    div(
-                                      list{
-                                        Attrs.class_(
-                                          `flex items-center gap-2 p-2 cursor-pointer transition-colors ${isSelected
-                                              ? "bg-indigo-900/40 border-l-2 border-indigo-500"
-                                              : "hover:bg-gray-900/50 border-l-2 border-transparent"}`,
-                                        ),
-                                        Attrs.role("listitem"),
-                                        Events.onClick(Hypatia(SelectRecipe(Some(recipe.id)))),
-                                      },
-                                      list{
-                                        // Fix script indicator
-                                        span(
-                                          list{
-                                            Attrs.class_(
-                                              `w-6 text-center text-xs ${recipe.hasFixScript
-                                                  ? "text-green-500"
-                                                  : "text-gray-700"}`,
-                                            ),
-                                          },
-                                          list{text(recipe.hasFixScript ? "F" : "-")},
-                                        ),
-                                        // Name
-                                        span(
-                                          list{
-                                            Attrs.class_("flex-1 text-sm text-gray-300 truncate"),
-                                          },
-                                          list{text(recipe.name)},
-                                        ),
-                                        // Confidence
-                                        span(
-                                          list{
-                                            Attrs.class_(
-                                              `w-12 text-right text-xs ${recipe.confidence >= 0.97
-                                                  ? "text-emerald-400"
-                                                  : recipe.confidence >= 0.93
-                                                  ? "text-amber-400"
-                                                  : "text-red-400"}`,
-                                            ),
-                                          },
-                                          list{text(`${confPct}%`)},
-                                        ),
-                                        // Tier
-                                        span(
-                                          list{Attrs.class_(`w-16 text-right text-xs ${tierCol}`)},
-                                          list{text(HypatiaEngine.tierLabel(recipe.tier))},
-                                        ),
-                                        // Times triggered
-                                        span(
-                                          list{
-                                            Attrs.class_(
-                                              "w-14 text-right text-xs text-gray-500 font-mono",
-                                            ),
-                                          },
-                                          list{text(Int.toString(recipe.timesTriggered))},
-                                        ),
-                                      },
-                                    )
-                                  })
-                                  ->List.fromArray,
-                                ),
-                              },
-                            ),
-                            // Detail panel (right) — shown when a recipe is selected
-                            switch hypatia.selectedRecipe {
-                            | Some(recipeId) =>
-                              switch HypatiaEngine.findRecipe(hypatia.recipeEntries, recipeId) {
-                              | Some(recipe) =>
-                                div(
-                                  list{
-                                    Attrs.class_(
-                                      `w-80 border rounded-lg p-4 space-y-4 ${HypatiaEngine.tierBg(
-                                          recipe.tier,
-                                        )}`,
-                                    ),
-                                    Attrs.role("complementary"),
-                                    Attrs.ariaLabel(`Recipe detail: ${recipe.name}`),
-                                  },
-                                  list{
-                                    // Header
-                                    div(
-                                      list{Attrs.class_("flex items-start justify-between")},
-                                      list{
-                                        div(
-                                          list{Attrs.class_("space-y-1")},
-                                          list{
-                                            div(
-                                              list{
-                                                Attrs.class_("text-sm font-medium text-gray-200"),
-                                              },
-                                              list{text(recipe.name)},
-                                            ),
-                                            div(
-                                              list{Attrs.class_("text-xs text-gray-500 font-mono")},
-                                              list{text(recipe.id)},
-                                            ),
-                                          },
-                                        ),
-                                        button(
-                                          list{
-                                            Attrs.class_(
-                                              "text-xs text-gray-500 hover:text-gray-300",
-                                            ),
-                                            Events.onClick(Hypatia(SelectRecipe(None))),
-                                            Attrs.ariaLabel("Close detail"),
-                                          },
-                                          list{text("x")},
-                                        ),
-                                      },
-                                    ),
-                                    // Description
-                                    div(
-                                      list{Attrs.class_("text-xs text-gray-400 leading-relaxed")},
-                                      list{text(recipe.description)},
-                                    ),
-                                    // Properties grid
-                                    div(
-                                      list{Attrs.class_("grid grid-cols-2 gap-2 text-xs")},
-                                      list{
-                                        div(
-                                          list{Attrs.class_("text-gray-500")},
-                                          list{text("Confidence")},
-                                        ),
-                                        div(
-                                          list{
-                                            Attrs.class_(
-                                              `font-mono ${recipe.confidence >= 0.97
-                                                  ? "text-emerald-400"
-                                                  : "text-amber-400"}`,
-                                            ),
-                                          },
-                                          list{
-                                            text(
-                                              `${Float.toFixed(
-                                                  recipe.confidence *. 100.0,
-                                                  ~digits=1,
-                                                )}%`,
-                                            ),
-                                          },
-                                        ),
-                                        div(
-                                          list{Attrs.class_("text-gray-500")},
-                                          list{text("Tier")},
-                                        ),
-                                        div(
-                                          list{Attrs.class_(HypatiaEngine.tierColor(recipe.tier))},
-                                          list{text(HypatiaEngine.tierLabel(recipe.tier))},
-                                        ),
-                                        div(
-                                          list{Attrs.class_("text-gray-500")},
-                                          list{text("Fix script")},
-                                        ),
-                                        div(
-                                          list{
-                                            Attrs.class_(
-                                              recipe.hasFixScript
-                                                ? "text-green-400"
-                                                : "text-gray-600",
-                                            ),
-                                          },
-                                          list{text(recipe.hasFixScript ? "Available" : "None")},
-                                        ),
-                                        div(
-                                          list{Attrs.class_("text-gray-500")},
-                                          list{text("Times fired")},
-                                        ),
-                                        div(
-                                          list{Attrs.class_("text-gray-300 font-mono")},
-                                          list{text(Int.toString(recipe.timesTriggered))},
-                                        ),
-                                        div(
-                                          list{Attrs.class_("text-gray-500")},
-                                          list{text("Last triggered")},
-                                        ),
-                                        div(
-                                          list{Attrs.class_("text-gray-400")},
-                                          list{text(recipe.lastTriggered)},
-                                        ),
-                                      },
-                                    ),
-                                    // Languages
-                                    div(
-                                      list{Attrs.class_("space-y-1")},
-                                      list{
-                                        div(
-                                          list{Attrs.class_("text-xs text-gray-500")},
-                                          list{text("Languages")},
-                                        ),
-                                        div(
-                                          list{Attrs.class_("flex flex-wrap gap-1")},
-                                          recipe.languages
-                                          ->Array.map(lang =>
-                                            span(
-                                              list{
-                                                Attrs.class_(
-                                                  "px-2 py-0.5 text-xs bg-gray-800/80 text-gray-300 rounded border border-gray-700",
-                                                ),
-                                              },
-                                              list{text(lang)},
-                                            )
-                                          )
-                                          ->List.fromArray,
-                                        ),
-                                      },
-                                    ),
-                                    // Confidence gauge
-                                    div(
-                                      list{Attrs.class_("space-y-1")},
-                                      list{
-                                        div(
-                                          list{Attrs.class_("text-xs text-gray-500")},
-                                          list{text("Confidence gauge")},
-                                        ),
-                                        div(
-                                          list{
-                                            Attrs.class_("w-full bg-gray-800/60 rounded-full h-2"),
-                                          },
-                                          list{
-                                            div(
-                                              list{
-                                                Attrs.class_(
-                                                  `h-full rounded-full transition-all ${recipe.confidence >= 0.97
-                                                      ? "bg-emerald-500"
-                                                      : recipe.confidence >= 0.93
-                                                      ? "bg-amber-500"
-                                                      : "bg-red-500"}`,
-                                                ),
-                                                Attrs.prop(
-                                                  "style",
-                                                  `width: ${Float.toFixed(
-                                                      recipe.confidence *. 100.0,
-                                                      ~digits=0,
-                                                    )}%`,
-                                                ),
-                                              },
-                                              list{},
-                                            ),
-                                          },
-                                        ),
-                                      },
-                                    ),
-                                  },
-                                )
-                              | None =>
-                                div(
-                                  list{
-                                    Attrs.class_(
-                                      "w-80 border border-gray-700 rounded-lg p-4 text-xs text-gray-500",
-                                    ),
-                                  },
-                                  list{text("Recipe not found")},
-                                )
-                              }
-                            | None =>
-                              div(
-                                list{
-                                  Attrs.class_(
-                                    "w-80 border border-gray-700 rounded-lg p-6 flex items-center justify-center",
-                                  ),
-                                },
-                                list{
-                                  div(
-                                    list{Attrs.class_("text-center text-gray-600 text-xs")},
-                                    list{text("Select a recipe to view details")},
-                                  ),
-                                },
-                              )
-                            },
-                          },
-                        )
-                      },
-                    },
-                  )
-                },
-              },
-            )
-          },
-          switch hypatia.error {
-          | Some(e) =>
-            div(
-              list{
-                Attrs.class_(
-                  "mt-4 p-3 bg-red-900/30 border border-red-700 rounded text-sm text-red-300",
-                ),
-                Attrs.role("alert"),
-              },
-              list{text(e)},
-            )
-          | None => noNode
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/Interfaces.affine b/src/components/Interfaces.affine
new file mode 100644
index 00000000..c5d99bb7
--- /dev/null
+++ b/src/components/Interfaces.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Interfaces;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Interfaces.res b/src/components/Interfaces.res
deleted file mode 100644
index 760d1462..00000000
--- a/src/components/Interfaces.res
+++ /dev/null
@@ -1,285 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Interfaces Component — ABI/FFI inventory dashboard.
-///
-/// Idris2 ABI definitions, Zig FFI implementations, per-language
-/// binding coverage matrix, believe_me audit.
-
-open Model
-open Msg
-open Tea.Html
-
-let renderAbiRow = (def: abiDefinition): Tea_Vdom.t<msg> => {
-  let verifiedIcon = def.verified ? "text-green-400" : "text-red-400"
-  let verifiedText = def.verified ? "Verified" : "Unverified"
-  div(
-    list{Attrs.class_("flex items-center gap-4 p-2 border-b border-gray-800"), Attrs.role("row")},
-    list{
-      span(list{Attrs.class_(`text-xs ${verifiedIcon} w-16`)}, list{text(verifiedText)}),
-      span(list{Attrs.class_("text-sm text-gray-300 w-32")}, list{text(def.moduleName)}),
-      span(list{Attrs.class_("text-xs text-gray-500 flex-1 truncate")}, list{text(def.path)}),
-      span(
-        list{Attrs.class_("text-xs text-gray-400 w-20 text-right")},
-        list{text(`${Int.toString(def.exportCount)} exports`)},
-      ),
-      if def.believeMeCount > 0 {
-        span(
-          list{Attrs.class_("text-xs text-red-400 w-24 text-right font-bold")},
-          list{text(`${Int.toString(def.believeMeCount)} believe_me`)},
-        )
-      } else {
-        span(
-          list{Attrs.class_("text-xs text-green-400 w-24 text-right")},
-          list{text("0 believe_me")},
-        )
-      },
-    },
-  )
-}
-
-let renderBindingRow = (binding: bindingCoverage): Tea_Vdom.t<msg> => {
-  let covColor = if binding.coverage > 80.0 {
-    "bg-green-500"
-  } else if binding.coverage > 40.0 {
-    "bg-amber-500"
-  } else {
-    "bg-red-500"
-  }
-  div(
-    list{Attrs.class_("flex items-center gap-3 mb-2")},
-    list{
-      div(
-        list{Attrs.class_("w-24 text-sm text-gray-300 text-right")},
-        list{text(binding.language)},
-      ),
-      div(
-        list{Attrs.class_("flex-1 bg-gray-800 rounded-full h-3")},
-        list{
-          div(
-            list{
-              Attrs.class_(`${covColor} h-full rounded-full transition-all`),
-              Attrs.prop("style", `width: ${Float.toFixed(binding.coverage, ~digits=0)}%`),
-            },
-            list{},
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("w-20 text-xs text-gray-400 text-right")},
-        list{text(`${Int.toString(binding.boundCount)}/${Int.toString(binding.totalCount)}`)},
-      ),
-      div(
-        list{Attrs.class_("w-14 text-xs text-gray-500")},
-        list{text(`${Float.toFixed(binding.coverage, ~digits=0)}%`)},
-      ),
-    },
-  )
-}
-
-let renderTabs = (active: interfacesCategory): Tea_Vdom.t<msg> => {
-  let tabs: array<interfacesCategory> = [IfaceDashboard, IfaceAbi, IfaceFfi, IfaceBindings]
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 mb-4"), Attrs.role("tablist")},
-    tabs
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-4 py-2 text-sm rounded-t transition-colors ${isActive
-                ? "bg-gray-800 text-gray-200 border-b-2 border-orange-500"
-                : "text-gray-500 hover:text-gray-300"}`,
-          ),
-          Attrs.role("tab"),
-          Attrs.ariaSelected(isActive),
-          Events.onClick(Interfaces(SetIfaceCategory(tab))),
-        },
-        list{text(InterfacesEngine.categoryLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-let view = (iface: interfacesState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Interfaces ABI/FFI panel"),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between p-4 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(list{Attrs.class_("text-lg font-medium text-gray-200")}, list{text("Interfaces")}),
-              span(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{text("Idris2 ABI + Zig FFI inventory")},
-              ),
-              if iface.totalBelieveMe > 0 {
-                span(
-                  list{Attrs.class_("text-xs text-red-400 ml-2 font-bold")},
-                  list{text(`${Int.toString(iface.totalBelieveMe)} believe_me VIOLATIONS`)},
-                )
-              } else {
-                span(list{Attrs.class_("text-xs text-green-400 ml-2")}, list{text("0 believe_me")})
-              },
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-xs bg-orange-600 text-white rounded hover:bg-orange-500",
-                  ),
-                  Events.onClick(Interfaces(ScanInterfaces)),
-                  KeyboardNav.onActivate(Interfaces(ScanInterfaces)),
-                },
-                list{text("Scan")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-sm bg-gray-800 text-gray-300 rounded hover:bg-gray-700",
-                  ),
-                  Events.onClick(PanelSwitcher(ClosePanels)),
-                  KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-                },
-                list{text("Close")},
-              ),
-            },
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("flex-1 overflow-auto p-6")},
-        list{
-          if !iface.loaded {
-            div(
-              list{Attrs.class_("text-center text-gray-500 mt-12")},
-              list{
-                div(list{Attrs.class_("text-4xl mb-2")}, list{text("Interfaces")}),
-                div(
-                  list{Attrs.class_("text-sm mb-6")},
-                  list{
-                    text("ABI definitions (Idris2) + FFI implementations (Zig) + binding coverage"),
-                  },
-                ),
-                button(
-                  list{
-                    Attrs.class_("px-4 py-2 bg-orange-600 text-white rounded hover:bg-orange-500"),
-                    Events.onClick(Interfaces(ScanInterfaces)),
-                    KeyboardNav.onActivate(Interfaces(ScanInterfaces)),
-                  },
-                  list{text("Scan ABI/FFI")},
-                ),
-              },
-            )
-          } else {
-            div(
-              list{Attrs.class_("space-y-4")},
-              list{
-                renderTabs(iface.activeCategory),
-                switch iface.activeCategory {
-                | IfaceDashboard =>
-                  div(
-                    list{Attrs.class_("space-y-6")},
-                    list{
-                      div(
-                        list{Attrs.class_("flex gap-6 text-sm")},
-                        list{
-                          div(
-                            list{Attrs.class_("text-gray-400")},
-                            list{text(`${Int.toString(Array.length(iface.abiDefs))} ABI modules`)},
-                          ),
-                          div(
-                            list{Attrs.class_("text-gray-400")},
-                            list{
-                              text(
-                                `${Int.toString(
-                                    InterfacesEngine.totalAbiExports(iface.abiDefs),
-                                  )} exports`,
-                              ),
-                            },
-                          ),
-                          div(
-                            list{Attrs.class_("text-gray-400")},
-                            list{
-                              text(
-                                `${Float.toFixed(
-                                    InterfacesEngine.verificationRate(iface.abiDefs) *. 100.0,
-                                    ~digits=0,
-                                  )}% verified`,
-                              ),
-                            },
-                          ),
-                          div(
-                            list{Attrs.class_("text-gray-400")},
-                            list{
-                              text(
-                                `${Float.toFixed(
-                                    InterfacesEngine.avgCoverage(iface.bindings),
-                                    ~digits=0,
-                                  )}% avg binding coverage`,
-                              ),
-                            },
-                          ),
-                        },
-                      ),
-                      div(
-                        list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-4")},
-                        list{
-                          div(
-                            list{Attrs.class_("text-sm font-medium text-gray-300 mb-3")},
-                            list{text("Binding Coverage by Language")},
-                          ),
-                          div(
-                            list{},
-                            iface.bindings->Array.map(b => renderBindingRow(b))->List.fromArray,
-                          ),
-                        },
-                      ),
-                    },
-                  )
-                | IfaceAbi =>
-                  div(
-                    list{Attrs.class_("border border-gray-700 rounded-lg overflow-hidden")},
-                    list{
-                      div(
-                        list{Attrs.class_("max-h-96 overflow-y-auto")},
-                        iface.abiDefs->Array.map(d => renderAbiRow(d))->List.fromArray,
-                      ),
-                    },
-                  )
-                | IfaceFfi =>
-                  div(
-                    list{Attrs.class_("text-gray-500 text-sm")},
-                    list{
-                      text(`${Int.toString(Array.length(iface.ffiImpls))} Zig FFI implementations`),
-                    },
-                  )
-                | IfaceBindings =>
-                  div(
-                    list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-4")},
-                    list{
-                      div(
-                        list{},
-                        iface.bindings->Array.map(b => renderBindingRow(b))->List.fromArray,
-                      ),
-                    },
-                  )
-                },
-              },
-            )
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/K9Manager.affine b/src/components/K9Manager.affine
new file mode 100644
index 00000000..bc813bcb
--- /dev/null
+++ b/src/components/K9Manager.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module K9Manager;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/K9Manager.res b/src/components/K9Manager.res
deleted file mode 100644
index 707be3ca..00000000
--- a/src/components/K9Manager.res
+++ /dev/null
@@ -1,194 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath)
-
-/// PanLL K9 Manager Component — self-validating K9 contractile management panel.
-///
-/// Displays K9 security levels (Kennel/Yard/Hunt) with colour-coded badges,
-/// lists loaded contractile files with validation status, and provides
-/// action buttons for loading, validating, and applying K9 layouts.
-///
-/// Wires to K9Cmd.res functions via the K9 message channel in the TEA loop.
-
-open Msg
-open Tea.Html
-
-/// Render a K9 security level badge with colour coding.
-/// Kennel=green (safe), Yard=amber (validated), Hunt=red (full execution).
-let securityLevelBadge = (level: K9Engine.k9SecurityLevel): Tea_Vdom.t<msg> => {
-  let (color, label) = switch level {
-  | Kennel => ("bg-green-700 text-green-100", "Kennel")
-  | Yard => ("bg-amber-700 text-amber-100", "Yard")
-  | Hunt => ("bg-red-700 text-red-100", "Hunt")
-  }
-  span(
-    list{
-      Attrs.class_("px-2 py-0.5 text-xs rounded font-mono " ++ color),
-      Attrs.ariaLabel("Security level: " ++ label),
-    },
-    list{text(label)},
-  )
-}
-
-/// Render a validation status indicator for a loaded file.
-let validationBadge = (entry: K9Model.k9FileEntry): Tea_Vdom.t<msg> => {
-  if entry.validating {
-    span(
-      list{Attrs.class_("text-xs text-blue-400 animate-pulse font-mono")},
-      list{text("Validating...")},
-    )
-  } else {
-    switch entry.contractile {
-    | Some(c) if c.isValid =>
-      span(list{Attrs.class_("text-xs text-green-400 font-mono")}, list{text("Valid")})
-    | Some(c) =>
-      span(
-        list{
-          Attrs.class_("text-xs text-red-400 font-mono"),
-          Attrs.ariaLabel("Invalid: " ++ c.errors->Array.join(", ")),
-        },
-        list{text("Invalid (" ++ Int.toString(Array.length(c.errors)) ++ " errors)")},
-      )
-    | None =>
-      span(list{Attrs.class_("text-xs text-gray-500 font-mono")}, list{text("Not validated")})
-    }
-  }
-}
-
-/// Render a single loaded file row.
-let renderFileEntry = (entry: K9Model.k9FileEntry): Tea_Vdom.t<msg> => {
-  let levelBadge = switch entry.contractile {
-  | Some(c) => securityLevelBadge(c.securityLevel)
-  | None => span(list{Attrs.class_("text-xs text-gray-600")}, list{text("--")})
-  }
-  div(
-    list{
-      Attrs.class_("flex items-center gap-3 px-3 py-2 bg-gray-900 border border-gray-800 rounded"),
-      Attrs.role("listitem"),
-      Attrs.ariaLabel("K9 file: " ++ entry.path),
-    },
-    list{
-      levelBadge,
-      span(
-        list{Attrs.class_("flex-1 text-sm text-gray-300 truncate font-mono")},
-        list{text(entry.path)},
-      ),
-      validationBadge(entry),
-      button(
-        list{
-          Attrs.class_("px-2 py-1 text-xs bg-gray-800 hover:bg-gray-700 text-gray-300 rounded"),
-          Attrs.ariaLabel("Validate " ++ entry.path),
-          Events.onClick(K9(ValidateContractile(entry.path))),
-        },
-        list{text("Validate")},
-      ),
-    },
-  )
-}
-
-/// Main view function for the K9 Manager panel.
-let view = (state: K9Model.k9ManagerState): Tea_Vdom.t<msg> => {
-  let fileCount = Array.length(state.loadedFiles)
-  let validCount =
-    state.loadedFiles
-    ->Array.filter(e =>
-      switch e.contractile {
-      | Some(c) => c.isValid
-      | None => false
-      }
-    )
-    ->Array.length
-
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("K9 Manager — Self-validating contractile management"),
-    },
-    list{
-      // Header row
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(list{Attrs.class_("text-lg font-bold text-green-300")}, list{text("K9 Manager")}),
-              securityLevelBadge(state.currentLevel),
-              span(
-                list{Attrs.class_("text-xs text-gray-400")},
-                list{
-                  text(
-                    Int.toString(fileCount) ++ " files, " ++ Int.toString(validCount) ++ " valid",
-                  ),
-                },
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-xs bg-green-800 hover:bg-green-700 text-white rounded",
-                  ),
-                  Attrs.ariaLabel("Load a K9 contractile file"),
-                  Events.onClick(K9(LoadContractile(""))),
-                },
-                list{text("Load Contractile")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-xs bg-amber-800 hover:bg-amber-700 text-white rounded",
-                  ),
-                  Attrs.ariaLabel("Apply a K9 layout preset"),
-                  Events.onClick(K9(ApplyLayout(""))),
-                },
-                list{text("Apply Layout")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 px-3 py-2 bg-red-900/50 border border-red-700 rounded text-sm text-red-200",
-            ),
-            Attrs.role("alert"),
-          },
-          list{text(err)},
-        )
-      | None => Tea_Html.noNode
-      },
-      // File list
-      div(
-        list{
-          Attrs.class_("flex-1 overflow-y-auto px-4 py-4 space-y-2"),
-          Attrs.role("list"),
-          Attrs.ariaLabel("Loaded K9 contractile files"),
-        },
-        if fileCount == 0 {
-          list{
-            div(
-              list{Attrs.class_("text-center text-gray-500 mt-8")},
-              list{
-                div(list{Attrs.class_("text-sm mb-2")}, list{text("No K9 files loaded")}),
-                div(
-                  list{Attrs.class_("text-xs")},
-                  list{text("Click \"Load Contractile\" to add a .k9.ncl file")},
-                ),
-              },
-            ),
-          }
-        } else {
-          state.loadedFiles->Array.map(entry => renderFileEntry(entry))->List.fromArray
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/LanguageForge.affine b/src/components/LanguageForge.affine
new file mode 100644
index 00000000..ca82a051
--- /dev/null
+++ b/src/components/LanguageForge.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module LanguageForge;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/LanguageForge.res b/src/components/LanguageForge.res
deleted file mode 100644
index 268da0c5..00000000
--- a/src/components/LanguageForge.res
+++ /dev/null
@@ -1,550 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Language Forge Component — view layer for the nextgen-languages panel.
-///
-/// Renders a full-screen overlay with the 14 nextgen-languages portfolio.
-/// Layout follows the Farm panel pattern:
-///   - Header with title, stats, and close button
-///   - Category tab bar (All | Production Ready | In Progress | Needs Work)
-///   - Filter/sort controls
-///   - Language cards with score bars, phase badges, component indicators
-///   - Selected language detail view with MoSCoW breakdown
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a single category tab button.
-let renderCategoryTab = (cat: forgeCategory, isActive: bool): Tea_Vdom.t<msg> => {
-  let activeClass = isActive
-    ? "border-indigo-500 text-indigo-300 bg-gray-800/50"
-    : "border-transparent text-gray-500 hover:text-gray-300 hover:border-gray-600"
-
-  button(
-    list{
-      Attrs.class_(
-        `px-3 py-2 text-sm font-medium border-b-2 cursor-pointer transition-colors ${activeClass}`,
-      ),
-      Attrs.role("tab"),
-      Attrs.ariaLabel(`Filter by ${LanguageForgeEngine.categoryLabel(cat)}`),
-      Events.onClick(LanguageForge(SetForgeCategory(cat))),
-    },
-    list{text(LanguageForgeEngine.categoryLabel(cat))},
-  )
-}
-
-/// Render the category tab bar.
-let renderCategoryTabBar = (activeCategory: forgeCategory): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("flex border-b border-gray-800 overflow-x-auto"),
-      Attrs.role("tablist"),
-      Attrs.ariaLabel("Language portfolio categories"),
-    },
-    LanguageForgeEngine.allCategories
-    ->Array.map(cat => renderCategoryTab(cat, cat === activeCategory))
-    ->List.fromArray,
-  )
-}
-
-/// Render a phase badge with colour coding.
-let renderPhaseBadge = (phase: languagePhase): Tea_Vdom.t<msg> => {
-  span(
-    list{
-      Attrs.class_(
-        `text-xs px-1.5 py-0.5 rounded border ${LanguageForgeEngine.phaseBadgeClass(phase)}`,
-      ),
-    },
-    list{text(LanguageForgeEngine.phaseLabel(phase))},
-  )
-}
-
-/// Render a score bar (horizontal progress indicator).
-let renderScoreBar = (score: int): Tea_Vdom.t<msg> => {
-  let pct = Int.toString(score)
-  let barColour = if score >= 90 {
-    "bg-emerald-500"
-  } else if score >= 70 {
-    "bg-green-500"
-  } else if score >= 40 {
-    "bg-amber-500"
-  } else if score > 0 {
-    "bg-red-500"
-  } else {
-    "bg-gray-700"
-  }
-  div(
-    list{Attrs.class_("flex items-center gap-2"), Attrs.ariaLabel(`Score: ${pct} percent`)},
-    list{
-      div(
-        list{Attrs.class_("flex-1 h-2 bg-gray-800 rounded-full overflow-hidden")},
-        list{
-          div(
-            list{
-              Attrs.class_(`h-full ${barColour} rounded-full transition-all`),
-              Attrs.style("width", `${pct}%`),
-            },
-            list{},
-          ),
-        },
-      ),
-      span(list{Attrs.class_("text-xs text-gray-400 w-8 text-right")}, list{text(`${pct}%`)}),
-    },
-  )
-}
-
-/// Render component pipeline indicators (lexer/parser/typechecker/wasm).
-let renderPipelineIndicators = (lang: languageEntry): Tea_Vdom.t<msg> => {
-  let indicator = (label: string, complete: bool): Tea_Vdom.t<msg> =>
-    span(
-      list{
-        Attrs.class_(complete ? "text-emerald-400" : "text-gray-600"),
-        Attrs.title(`${label}: ${complete ? "complete" : "incomplete"}`),
-        Attrs.ariaLabel(`${label} ${complete ? "complete" : "incomplete"}`),
-      },
-      list{text(complete ? "Y" : "-")},
-    )
-  div(
-    list{Attrs.class_("flex gap-3 text-xs")},
-    list{
-      indicator("Lexer", lang.lexerComplete),
-      indicator("Parser", lang.parserComplete),
-      indicator("Types", lang.typeCheckerComplete),
-      indicator("WASM", lang.hasWasmBackend),
-    },
-  )
-}
-
-/// Render a single language card/row.
-let renderLanguageRow = (lang: languageEntry, isSelected: bool): Tea_Vdom.t<msg> => {
-  let selectedClass = isSelected
-    ? "bg-gray-800/60 border-l-2 border-l-indigo-500"
-    : "hover:bg-gray-800/30 border-l-2 border-l-transparent"
-
-  div(
-    list{
-      Attrs.class_(
-        `flex items-center gap-3 px-4 py-3 ${selectedClass} border-b border-gray-800/50 transition-colors cursor-pointer`,
-      ),
-      Attrs.role("button"),
-      Attrs.tabIndex(0),
-      Attrs.ariaLabel(
-        `${lang.name} — ${LanguageForgeEngine.phaseLabel(lang.phase)}, score ${Int.toString(
-            lang.score,
-          )} percent`,
-      ),
-      Events.onClick(LanguageForge(SelectLanguage(Some(lang.name)))),
-      KeyboardUtil.onEnterOrSpace(LanguageForge(SelectLanguage(Some(lang.name)))),
-    },
-    list{
-      // Name + impl language
-      div(
-        list{Attrs.class_("w-36 min-w-0")},
-        list{
-          div(
-            list{Attrs.class_("text-sm font-medium text-gray-200 truncate")},
-            list{text(lang.name)},
-          ),
-          div(
-            list{Attrs.class_("text-xs text-gray-500 truncate")},
-            list{text(lang.implLang === "" ? "unspecified" : lang.implLang)},
-          ),
-        },
-      ),
-      // Score bar
-      div(list{Attrs.class_("flex-1 min-w-0")}, list{renderScoreBar(lang.score)}),
-      // Phase badge
-      div(list{Attrs.class_("w-28 flex justify-center")}, list{renderPhaseBadge(lang.phase)}),
-      // Pipeline indicators
-      div(list{Attrs.class_("w-28")}, list{renderPipelineIndicators(lang)}),
-      // WASM readiness
-      div(
-        list{Attrs.class_("w-12 text-center")},
-        list{
-          span(
-            list{
-              Attrs.class_(
-                lang.hasWasmBackend
-                  ? "text-emerald-400 text-xs font-medium"
-                  : "text-gray-600 text-xs",
-              ),
-              Attrs.title(lang.hasWasmBackend ? "WASM backend available" : "No WASM backend"),
-            },
-            list{text(lang.hasWasmBackend ? "WASM" : "-")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render the table header row.
-let renderTableHeader = (): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_(
-        "flex items-center gap-3 px-4 py-2 border-b border-gray-700 text-xs font-medium text-gray-500 uppercase tracking-wider",
-      ),
-    },
-    list{
-      div(list{Attrs.class_("w-36")}, list{text("Language")}),
-      div(list{Attrs.class_("flex-1")}, list{text("Score")}),
-      div(list{Attrs.class_("w-28 text-center")}, list{text("Phase")}),
-      div(list{Attrs.class_("w-28")}, list{text("L / P / T / W")}),
-      div(list{Attrs.class_("w-12 text-center")}, list{text("WASM")}),
-    },
-  )
-}
-
-/// Render component detail table for a selected language.
-let renderComponentDetails = (components: array<componentStatus>): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("space-y-2"),
-      Attrs.role("list"),
-      Attrs.ariaLabel("Component completion details"),
-    },
-    components
-    ->Array.map(comp => {
-      let pct = Int.toString(comp.completion)
-      div(
-        list{Attrs.class_("flex items-center gap-3"), Attrs.role("listitem")},
-        list{
-          div(list{Attrs.class_("w-32 text-sm text-gray-300")}, list{text(comp.name)}),
-          div(
-            list{Attrs.class_("flex-1 h-2 bg-gray-800 rounded-full overflow-hidden")},
-            list{
-              div(
-                list{
-                  Attrs.class_("h-full bg-indigo-500 rounded-full transition-all"),
-                  Attrs.style("width", `${pct}%`),
-                },
-                list{},
-              ),
-            },
-          ),
-          div(list{Attrs.class_("w-12 text-xs text-gray-500 text-right")}, list{text(`${pct}%`)}),
-          span(
-            list{
-              Attrs.class_(comp.hasTests ? "text-emerald-400 text-xs" : "text-gray-600 text-xs"),
-              Attrs.title(comp.hasTests ? "Has tests" : "No tests"),
-            },
-            list{text(comp.hasTests ? "tested" : "untested")},
-          ),
-        },
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Render the selected language detail panel.
-let renderDetailView = (lang: languageEntry, showMoscow: bool): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("border-l border-gray-700 w-80 flex-shrink-0 overflow-y-auto p-4 space-y-4"),
-      Attrs.role("complementary"),
-      Attrs.ariaLabel(`${lang.name} detail view`),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-2")},
-        list{
-          h3(list{Attrs.class_("text-lg font-medium text-gray-200")}, list{text(lang.name)}),
-          button(
-            list{
-              Attrs.class_("text-gray-500 hover:text-gray-300 text-sm"),
-              Attrs.ariaLabel("Close detail view"),
-              Events.onClick(LanguageForge(SelectLanguage(None))),
-            },
-            list{text("X")},
-          ),
-        },
-      ),
-      // Summary stats
-      div(
-        list{Attrs.class_("space-y-1 text-sm")},
-        list{
-          div(
-            list{Attrs.class_("flex justify-between text-gray-400")},
-            list{
-              text("Implementation"),
-              span(
-                list{Attrs.class_("text-gray-200")},
-                list{text(lang.implLang === "" ? "None" : lang.implLang)},
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex justify-between text-gray-400")},
-            list{text("Phase"), renderPhaseBadge(lang.phase)},
-          ),
-          div(
-            list{Attrs.class_("flex justify-between text-gray-400")},
-            list{
-              text("Score"),
-              span(list{Attrs.class_("text-gray-200")}, list{text(`${Int.toString(lang.score)}%`)}),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex justify-between text-gray-400")},
-            list{
-              text("LOC"),
-              span(list{Attrs.class_("text-gray-200")}, list{text(Int.toString(lang.locCount))}),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex justify-between text-gray-400")},
-            list{
-              text("TODOs"),
-              span(
-                list{Attrs.class_(lang.todoCount > 20 ? "text-amber-400" : "text-gray-200")},
-                list{text(Int.toString(lang.todoCount))},
-              ),
-            },
-          ),
-        },
-      ),
-      // WASM readiness
-      div(
-        list{Attrs.class_("flex items-center gap-2 text-sm")},
-        list{
-          span(
-            list{Attrs.class_(lang.hasWasmBackend ? "text-emerald-400" : "text-red-400")},
-            list{text(lang.hasWasmBackend ? "WASM Ready" : "No WASM")},
-          ),
-        },
-      ),
-      // Component breakdown
-      div(
-        list{Attrs.class_("border-t border-gray-700 pt-3")},
-        list{
-          div(
-            list{Attrs.class_("text-sm font-medium text-gray-300 mb-2")},
-            list{text("Components")},
-          ),
-          if Array.length(lang.components) > 0 {
-            renderComponentDetails(lang.components)
-          } else {
-            div(
-              list{Attrs.class_("text-xs text-gray-500")},
-              list{text("No components defined yet.")},
-            )
-          },
-        },
-      ),
-      // MoSCoW toggle
-      div(
-        list{Attrs.class_("border-t border-gray-700 pt-3")},
-        list{
-          button(
-            list{
-              Attrs.class_("text-sm text-indigo-400 hover:text-indigo-300 transition-colors"),
-              Attrs.ariaLabel(showMoscow ? "Hide MoSCoW breakdown" : "Show MoSCoW breakdown"),
-              Events.onClick(LanguageForge(ToggleMoscow)),
-              KeyboardNav.onActivate(LanguageForge(ToggleMoscow)),
-            },
-            list{text(showMoscow ? "Hide MoSCoW" : "Show MoSCoW")},
-          ),
-          if showMoscow {
-            div(
-              list{Attrs.class_("mt-2 space-y-1 text-xs text-gray-400")},
-              list{
-                div(list{}, list{text("Must Have: Lexer, Parser")}),
-                div(list{}, list{text("Should Have: Type Checker, Tests")}),
-                div(list{}, list{text("Could Have: WASM Backend, LSP")}),
-                div(list{}, list{text("Won't Have (now): IDE Plugin, Package Manager")}),
-              },
-            )
-          } else {
-            noNode
-          },
-        },
-      ),
-    },
-  )
-}
-
-/// Render summary statistics in the header.
-let renderStats = (languages: array<languageEntry>): Tea_Vdom.t<msg> => {
-  let total = Array.length(languages)
-  let production = languages->Array.filter(l => l.phase === Production)->Array.length
-  let withWasm = languages->Array.filter(l => l.hasWasmBackend)->Array.length
-  div(
-    list{Attrs.class_("flex items-center gap-3 text-xs text-gray-500")},
-    list{
-      span(list{}, list{text(`${Int.toString(total)} languages`)}),
-      span(list{Attrs.class_("text-gray-700")}, list{text("|")}),
-      span(
-        list{Attrs.class_("text-emerald-400")},
-        list{text(`${Int.toString(production)} production`)},
-      ),
-      span(list{Attrs.class_("text-gray-700")}, list{text("|")}),
-      span(list{}, list{text(`${Int.toString(withWasm)} WASM`)}),
-    },
-  )
-}
-
-/// Render the header bar with title, stats, and controls.
-let renderHeader = (forge: languageForgeState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex items-center justify-between px-6 py-4 border-b border-gray-800")},
-    list{
-      // Title and stats
-      div(
-        list{Attrs.class_("flex items-center gap-4")},
-        list{
-          div(
-            list{Attrs.class_("text-lg font-medium text-gray-200")},
-            list{text("Language Forge")},
-          ),
-          if forge.loaded {
-            renderStats(forge.languages)
-          } else {
-            noNode
-          },
-        },
-      ),
-      // Controls: filter, close
-      div(
-        list{Attrs.class_("flex items-center gap-3")},
-        list{
-          // Filter input
-          input(
-            list{
-              Attrs.class_(
-                "bg-gray-800 border border-gray-700 rounded px-3 py-1.5 text-sm text-gray-200 placeholder-gray-500 focus:border-indigo-500 focus:outline-none w-48",
-              ),
-              Attrs.placeholder("Filter languages..."),
-              Attrs.value(forge.filterText),
-              Attrs.ariaLabel("Filter languages by name or implementation"),
-              Events.onInput(text => LanguageForge(SetForgeFilter(text))),
-            },
-            list{},
-          ),
-          // Close button
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-sm text-gray-400 hover:text-gray-200 bg-gray-800 rounded hover:bg-gray-700 transition-colors",
-              ),
-              Attrs.ariaLabel("Close Language Forge panel"),
-              Events.onClick(PanelSwitcher(ClosePanels)),
-              KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-            },
-            list{text("Close")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render a loading state.
-let renderLoading = (): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 flex items-center justify-center")},
-    list{
-      div(
-        list{Attrs.class_("text-gray-500 animate-pulse")},
-        list{text("Loading language portfolio...")},
-      ),
-    },
-  )
-}
-
-/// Render an error state.
-let renderError = (error: string): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 flex items-center justify-center")},
-    list{
-      div(
-        list{Attrs.class_("text-center")},
-        list{
-          div(list{Attrs.class_("text-red-400 mb-2")}, list{text("Failed to load language data")}),
-          div(list{Attrs.class_("text-sm text-gray-500 mb-4")}, list{text(error)}),
-          button(
-            list{
-              Attrs.class_(
-                "px-4 py-2 bg-gray-800 text-gray-300 rounded hover:bg-gray-700 transition-colors",
-              ),
-              Attrs.ariaLabel("Retry loading language data"),
-              Events.onClick(LanguageForge(LoadLanguages)),
-              KeyboardNav.onActivate(LanguageForge(LoadLanguages)),
-            },
-            list{text("Retry")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Main Language Forge panel view — full-screen overlay.
-let view = (forge: languageForgeState): Tea_Vdom.t<msg> => {
-  let filtered = LanguageForgeEngine.filterLanguages(
-    forge.languages,
-    forge.activeCategory,
-    forge.filterText,
-  )
-  let sorted = LanguageForgeEngine.sortLanguages(filtered, forge.sortBy)
-
-  // Find selected language entry for detail view
-  let selectedEntry = switch forge.selectedLanguage {
-  | None => None
-  | Some(name) => forge.languages->Array.find(l => l.name === name)
-  }
-
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.ariaLabel("Language Forge panel"),
-    },
-    list{
-      // Header
-      renderHeader(forge),
-      // Category tabs
-      renderCategoryTabBar(forge.activeCategory),
-      // Content area with optional detail sidebar
-      if forge.loading {
-        renderLoading()
-      } else {
-        switch forge.error {
-        | Some(e) => renderError(e)
-        | None =>
-          if !forge.loaded {
-            renderLoading()
-          } else {
-            div(
-              list{Attrs.class_("flex-1 flex overflow-hidden")},
-              list{
-                // Main language list
-                div(
-                  list{Attrs.class_("flex-1 overflow-y-auto")},
-                  list{
-                    renderTableHeader(),
-                    div(
-                      list{Attrs.role("list"), Attrs.ariaLabel("Language portfolio")},
-                      sorted
-                      ->Array.map(lang => {
-                        let isSelected = forge.selectedLanguage === Some(lang.name)
-                        renderLanguageRow(lang, isSelected)
-                      })
-                      ->List.fromArray,
-                    ),
-                  },
-                ),
-                // Detail sidebar (if a language is selected)
-                switch selectedEntry {
-                | Some(lang) => renderDetailView(lang, forge.showMoscow)
-                | None => noNode
-                },
-              },
-            )
-          }
-        }
-      },
-    },
-  )
-}
diff --git a/src/components/LevelArchitect.affine b/src/components/LevelArchitect.affine
new file mode 100644
index 00000000..3115068c
--- /dev/null
+++ b/src/components/LevelArchitect.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module LevelArchitect;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/LevelArchitect.res b/src/components/LevelArchitect.res
deleted file mode 100644
index 23503fc8..00000000
--- a/src/components/LevelArchitect.res
+++ /dev/null
@@ -1,582 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Level Architect Component — view for the IDApTIK visual level
-/// design tool. Grid editor, asset browser, patrol editor, and level
-/// validation with undo/redo.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a category tab button.
-let renderTab = (
-  label: string,
-  cat: levelArchitectCategory,
-  active: levelArchitectCategory,
-): Tea_Vdom.t<msg> => {
-  let isActive = cat === active
-  let cls = isActive
-    ? "px-3 py-1.5 text-xs font-medium bg-gray-700 text-white rounded"
-    : "px-3 py-1.5 text-xs text-gray-400 hover:text-gray-200 hover:bg-gray-800 rounded cursor-pointer"
-  button(
-    list{Attrs.class_(cls), Events.onClick(LevelArchitect(SetArchitectCategory(cat)))},
-    list{text(label)},
-  )
-}
-
-/// Render tool selector buttons.
-let renderToolbar = (state: levelArchitectState): Tea_Vdom.t<msg> => {
-  let tools: array<editorTool> = [
-    ToolSelect,
-    ToolPlace(EntityDevice),
-    ToolPlace(EntityGuard),
-    ToolPlace(EntitySpawnPoint),
-    ToolErase,
-    ToolPatrol,
-    ToolDefenceFlag,
-  ]
-  div(
-    list{Attrs.class_("flex items-center gap-1 flex-wrap")},
-    tools
-    ->Array.map(tool => {
-      let isActive = state.selectedTool === tool
-      let cls = isActive
-        ? "px-2 py-1 text-xs bg-cyan-700 text-white rounded"
-        : "px-2 py-1 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer"
-      button(
-        list{Attrs.class_(cls), Events.onClick(LevelArchitect(SelectTool(tool)))},
-        list{text(LevelArchitectEngine.toolLabel(tool))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Render a single grid cell.
-let renderGridCell = (state: levelArchitectState, x: int, y: int): Tea_Vdom.t<msg> => {
-  let entity = state.entities->Array.find(e => e.gridX === x && e.gridY === y)
-  let isSelected = switch entity {
-  | Some(e) => state.selectedEntityId === Some(e.id)
-  | None => false
-  }
-  let bgCls = switch entity {
-  | Some(e) =>
-    switch e.kind {
-    | EntityDevice => "bg-cyan-900/50"
-    | EntityGuard => "bg-red-900/50"
-    | EntitySpawnPoint => "bg-emerald-900/50"
-    | EntityCompanion => "bg-purple-900/50"
-    | EntityCollectable => "bg-amber-900/50"
-    | EntityTrigger => "bg-orange-900/50"
-    | EntityDecoration => "bg-gray-700/50"
-    }
-  | None => "bg-gray-900/30"
-  }
-  let borderCls = if isSelected {
-    "border-cyan-400"
-  } else {
-    "border-gray-700"
-  }
-  div(
-    list{
-      Attrs.class_(
-        `w-8 h-8 border ${borderCls} ${bgCls} flex items-center justify-center cursor-pointer hover:border-gray-500`,
-      ),
-      Events.onClick(LevelArchitect(ClickGrid(x, y))),
-    },
-    list{
-      switch entity {
-      | Some(e) =>
-        span(
-          list{Attrs.class_("text-xs text-gray-300")},
-          list{
-            text(
-              switch e.kind {
-              | EntityDevice => "D"
-              | EntityGuard => "G"
-              | EntitySpawnPoint => "S"
-              | EntityCompanion => "C"
-              | EntityCollectable => "$"
-              | EntityTrigger => "!"
-              | EntityDecoration => "."
-              },
-            ),
-          },
-        )
-      | None => noNode
-      },
-    },
-  )
-}
-
-/// Render the grid editor.
-let renderGrid = (state: levelArchitectState): Tea_Vdom.t<msg> => {
-  let rows = Array.fromInitializer(~length=state.gridHeight, i => i)
-  let cols = Array.fromInitializer(~length=state.gridWidth, i => i)
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      // Toolbar
-      renderToolbar(state),
-      // Grid
-      div(
-        list{Attrs.class_("overflow-auto border border-gray-700 rounded p-2 bg-gray-900")},
-        list{
-          div(
-            list{Attrs.class_("inline-block")},
-            rows
-            ->Array.map(y =>
-              div(
-                list{Attrs.class_("flex")},
-                cols->Array.map(x => renderGridCell(state, x, y))->List.fromArray,
-              )
-            )
-            ->List.fromArray,
-          ),
-        },
-      ),
-      // Entity count summary
-      div(
-        list{Attrs.class_("flex items-center gap-4 text-xs text-gray-400")},
-        list{
-          span(list{}, list{text(`Entities: ${Int.toString(Array.length(state.entities))}`)}),
-          span(
-            list{},
-            list{
-              text(
-                `Guards: ${Int.toString(
-                    LevelArchitectEngine.countByKind(state.entities, EntityGuard),
-                  )}`,
-              ),
-            },
-          ),
-          span(
-            list{},
-            list{
-              text(
-                `Devices: ${Int.toString(
-                    LevelArchitectEngine.countByKind(state.entities, EntityDevice),
-                  )}`,
-              ),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render the asset browser.
-let renderAssets = (state: levelArchitectState): Tea_Vdom.t<msg> => {
-  if Array.length(state.assets) === 0 {
-    div(
-      list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-      list{
-        text("No assets loaded. "),
-        button(
-          list{
-            Attrs.class_("text-cyan-400 hover:text-cyan-300 underline cursor-pointer"),
-            Events.onClick(LevelArchitect(BrowseAssets)),
-            KeyboardNav.onActivate(LevelArchitect(BrowseAssets)),
-          },
-          list{text("Browse assets")},
-        ),
-      },
-    )
-  } else {
-    div(
-      list{Attrs.class_("grid grid-cols-3 gap-2")},
-      state.assets
-      ->Array.map(asset =>
-        div(
-          list{
-            Attrs.class_(
-              "p-2 bg-gray-800 rounded border border-gray-700 cursor-pointer hover:border-gray-500",
-            ),
-            Events.onClick(LevelArchitect(SelectTool(ToolPlace(asset.entityKind)))),
-          },
-          list{
-            div(list{Attrs.class_("text-xs text-gray-100 font-medium")}, list{text(asset.name)}),
-            div(list{Attrs.class_("text-xs text-gray-500")}, list{text(asset.category)}),
-          },
-        )
-      )
-      ->List.fromArray,
-    )
-  }
-}
-
-/// Render patrol paths view.
-let renderPatrols = (state: levelArchitectState): Tea_Vdom.t<msg> => {
-  if Array.length(state.patrols) === 0 {
-    div(
-      list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-      list{
-        text(
-          "No guard patrols defined. Select the Patrol tool and click guard entities to add waypoints.",
-        ),
-      },
-    )
-  } else {
-    div(
-      list{Attrs.class_("space-y-2")},
-      state.patrols
-      ->Array.map(patrol =>
-        div(
-          list{Attrs.class_("p-3 bg-gray-800 rounded border border-gray-700")},
-          list{
-            div(
-              list{Attrs.class_("flex items-center justify-between mb-1")},
-              list{
-                span(
-                  list{Attrs.class_("text-sm text-gray-100")},
-                  list{text(`Guard: ${patrol.guardId}`)},
-                ),
-                span(
-                  list{Attrs.class_("text-xs text-gray-400")},
-                  list{text(`${Int.toString(Array.length(patrol.waypoints))} waypoints`)},
-                ),
-              },
-            ),
-            div(
-              list{Attrs.class_("text-xs text-gray-500")},
-              list{
-                text(
-                  if patrol.looping {
-                    `Speed: ${Float.toString(patrol.speed)} | Looping`
-                  } else {
-                    `Speed: ${Float.toString(patrol.speed)} | One-way`
-                  },
-                ),
-              },
-            ),
-          },
-        )
-      )
-      ->List.fromArray,
-    )
-  }
-}
-
-/// Render validation issues.
-/// Render a single ABI proof badge (pass/fail indicator).
-let renderAbiProofBadge = (name: string, passed: bool): Tea_Vdom.t<msg> => {
-  let (dotCls, textCls) = if passed {
-    ("bg-emerald-400", "text-emerald-400")
-  } else {
-    ("bg-red-400", "text-red-400")
-  }
-  div(
-    list{Attrs.class_("flex items-center gap-1.5")},
-    list{
-      div(list{Attrs.class_(`w-2 h-2 rounded-full ${dotCls}`)}, list{}),
-      span(list{Attrs.class_(`text-xs ${textCls}`)}, list{text(name)}),
-    },
-  )
-}
-
-let renderValidation = (state: levelArchitectState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-4")},
-    list{
-      // Action bar
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-xs bg-amber-700 text-white rounded hover:bg-amber-600 cursor-pointer",
-              ),
-              Events.onClick(LevelArchitect(ValidateLevel)),
-              KeyboardNav.onActivate(LevelArchitect(ValidateLevel)),
-            },
-            list{text("Validate Level")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-2 py-1 text-xs bg-gray-700 text-cyan-400 rounded hover:bg-gray-600 cursor-pointer",
-              ),
-              Events.onClick(Ums(NavigateToPanel(PanelLevelArchitect))),
-            },
-            list{text("Open in UMS")},
-          ),
-        },
-      ),
-      // UMS ABI Validation (5 Idris2 proofs)
-      div(
-        list{Attrs.class_("p-3 bg-gray-800 rounded border border-gray-700")},
-        list{
-          div(
-            list{Attrs.class_("text-xs font-medium text-gray-300 mb-2")},
-            list{text("Idris2 ABI Proofs (5 cross-domain invariants)")},
-          ),
-          switch state.umsValidation {
-          | Some(v) =>
-            div(
-              list{Attrs.class_("grid grid-cols-2 lg:grid-cols-3 gap-2")},
-              list{
-                renderAbiProofBadge("Guards in Zones", v.guardsInZones),
-                renderAbiProofBadge("Defence Targets Valid", v.defenceTargetsValid),
-                renderAbiProofBadge("Zones Ordered", v.zonesOrdered),
-                renderAbiProofBadge("PBX Consistent", v.pbxConsistent),
-                renderAbiProofBadge("Devices Exist", v.devicesExist),
-                div(
-                  list{Attrs.class_("flex items-center gap-1.5")},
-                  list{
-                    div(
-                      list{
-                        Attrs.class_(
-                          if v.allPassed {
-                            "w-2 h-2 rounded-full bg-emerald-400"
-                          } else {
-                            "w-2 h-2 rounded-full bg-red-400"
-                          },
-                        ),
-                      },
-                      list{},
-                    ),
-                    span(
-                      list{
-                        Attrs.class_(
-                          if v.allPassed {
-                            "text-xs font-bold text-emerald-400"
-                          } else {
-                            "text-xs font-bold text-red-400"
-                          },
-                        ),
-                      },
-                      list{
-                        text(
-                          if v.allPassed {
-                            "ALL PASSED"
-                          } else {
-                            "HAS FAILURES"
-                          },
-                        ),
-                      },
-                    ),
-                  },
-                ),
-              },
-            )
-          | None =>
-            div(
-              list{Attrs.class_("text-xs text-gray-500")},
-              list{text("Not yet validated. Click 'Validate Level' to run ABI proof checks.")},
-            )
-          },
-        },
-      ),
-      // Classic validation issues
-      if Array.length(state.validationIssues) === 0 {
-        div(
-          list{Attrs.class_("text-center text-emerald-400 text-sm py-4")},
-          list{text("No validation issues found")},
-        )
-      } else {
-        div(
-          list{Attrs.class_("space-y-1")},
-          state.validationIssues
-          ->Array.map(issue => {
-            let severityCls = switch issue.severity {
-            | "error" => "border-red-700 bg-red-900/30"
-            | "warning" => "border-amber-700 bg-amber-900/30"
-            | _ => "border-blue-700 bg-blue-900/30"
-            }
-            div(
-              list{Attrs.class_(`p-2 rounded border ${severityCls} text-xs`)},
-              list{
-                span(list{Attrs.class_("text-gray-200")}, list{text(issue.message)}),
-                switch issue.entityId {
-                | Some(eid) =>
-                  span(list{Attrs.class_("text-gray-500 ml-2")}, list{text(`(${eid})`)})
-                | None => noNode
-                },
-              },
-            )
-          })
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render defence flags toggles.
-let renderDefenceFlags = (state: levelArchitectState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-wrap gap-2 mt-2")},
-    LevelArchitectEngine.allDefenceFlags
-    ->Array.map(flag => {
-      let isActive = state.defenceFlags->Array.includes(flag)
-      let cls = if isActive {
-        "px-2 py-1 text-xs bg-emerald-700 text-emerald-100 rounded"
-      } else {
-        "px-2 py-1 text-xs bg-gray-700 text-gray-400 rounded cursor-pointer hover:bg-gray-600"
-      }
-      button(
-        list{Attrs.class_(cls), Events.onClick(LevelArchitect(ToggleDefenceFlag(flag)))},
-        list{text(LevelArchitectEngine.defenceFlagLabel(flag))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Main view function.
-let view = (state: levelArchitectState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Level Architect panel"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              span(
-                list{Attrs.class_("text-lg font-semibold text-gray-100")},
-                list{text("Level Architect")},
-              ),
-              span(list{Attrs.class_("text-sm text-gray-400")}, list{text(state.levelName)}),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              // Undo / Redo
-              button(
-                list{
-                  Attrs.class_(
-                    if state.historyIndex > 0 {
-                      "px-2 py-1 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer"
-                    } else {
-                      "px-2 py-1 text-xs bg-gray-800 text-gray-600 rounded cursor-not-allowed"
-                    },
-                  ),
-                  Events.onClick(LevelArchitect(UndoAction)),
-                  KeyboardNav.onActivate(LevelArchitect(UndoAction)),
-                },
-                list{text("Undo")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    if state.historyIndex < Array.length(state.history) - 1 {
-                      "px-2 py-1 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer"
-                    } else {
-                      "px-2 py-1 text-xs bg-gray-800 text-gray-600 rounded cursor-not-allowed"
-                    },
-                  ),
-                  Events.onClick(LevelArchitect(RedoAction)),
-                  KeyboardNav.onActivate(LevelArchitect(RedoAction)),
-                },
-                list{text("Redo")},
-              ),
-              // Toggle grid lines
-              button(
-                list{
-                  Attrs.class_(
-                    if state.showGrid {
-                      "px-2 py-1 text-xs bg-cyan-800 text-cyan-200 rounded"
-                    } else {
-                      "px-2 py-1 text-xs bg-gray-700 text-gray-400 rounded cursor-pointer"
-                    },
-                  ),
-                  Events.onClick(LevelArchitect(ToggleGrid)),
-                  KeyboardNav.onActivate(LevelArchitect(ToggleGrid)),
-                },
-                list{text("Grid")},
-              ),
-              // Toggle patrol paths
-              button(
-                list{
-                  Attrs.class_(
-                    if state.showPatrolPaths {
-                      "px-2 py-1 text-xs bg-purple-800 text-purple-200 rounded"
-                    } else {
-                      "px-2 py-1 text-xs bg-gray-700 text-gray-400 rounded cursor-pointer"
-                    },
-                  ),
-                  Events.onClick(LevelArchitect(TogglePatrolPaths)),
-                  KeyboardNav.onActivate(LevelArchitect(TogglePatrolPaths)),
-                },
-                list{text("Patrols")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Category tabs
-      div(
-        list{Attrs.class_("flex items-center gap-1 px-4 py-2 border-b border-gray-800")},
-        list{
-          renderTab("Grid", ArchitectGrid, state.activeCategory),
-          renderTab("Assets", ArchitectAssets, state.activeCategory),
-          renderTab("Patrols", ArchitectPatrols, state.activeCategory),
-          renderTab("Validation", ArchitectValidation, state.activeCategory),
-        },
-      ),
-      // Defence flags bar
-      div(
-        list{Attrs.class_("px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              span(list{Attrs.class_("text-xs text-gray-400")}, list{text("Defence Flags:")}),
-              renderDefenceFlags(state),
-            },
-          ),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 p-2 bg-red-900/50 border border-red-700 rounded text-xs text-red-300",
-            ),
-          },
-          list{
-            div(
-              list{Attrs.class_("flex items-center justify-between")},
-              list{
-                text(err),
-                button(
-                  list{
-                    Attrs.class_("text-red-400 hover:text-red-200 cursor-pointer"),
-                    Events.onClick(LevelArchitect(DismissArchitectError)),
-                    KeyboardNav.onActivate(LevelArchitect(DismissArchitectError)),
-                  },
-                  list{text("Dismiss")},
-                ),
-              },
-            ),
-          },
-        )
-      | None => noNode
-      },
-      // Main content
-      div(
-        list{Attrs.class_("flex-1 overflow-auto p-4")},
-        list{
-          switch state.activeCategory {
-          | ArchitectGrid => renderGrid(state)
-          | ArchitectAssets => renderAssets(state)
-          | ArchitectPatrols => renderPatrols(state)
-          | ArchitectValidation => renderValidation(state)
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/LlmCoding.affine b/src/components/LlmCoding.affine
new file mode 100644
index 00000000..f783860f
--- /dev/null
+++ b/src/components/LlmCoding.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module LlmCoding;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/LlmCoding.res b/src/components/LlmCoding.res
deleted file mode 100644
index 2040d5c1..00000000
--- a/src/components/LlmCoding.res
+++ /dev/null
@@ -1,464 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL LLM Coding Panel View — headed supervisor for parallel Claude/LLM
-/// coding sessions. Spawns, monitors, freezes, and coordinates multiple
-/// sessions from a single control panel.
-///
-/// Layout:
-///   Top bar: system resources + daemon status + spawn button
-///   Left column: session cards with state/resource indicators
-///   Right column: selected session detail (tasks, locks, messages)
-///   Bottom bar: pending actions requiring approval
-
-open Msg
-open LlmCodingModel
-open LlmCodingEngine
-open Tea.Html
-
-// ============================================================================
-// System Status Bar
-// ============================================================================
-
-/// System resource summary and daemon connection status.
-let systemBar = (state: llmCodingState): Tea_Vdom.t<msg> => {
-  let memHealth = systemMemoryHealth(state.systemMemoryAvailableMb, state.systemMemoryTotalMb)
-  let memColor = resourceHealthColor(memHealth)
-  div(
-    list{
-      Attrs.class_("flex items-center justify-between p-2 bg-gray-900 border-b border-gray-800"),
-    },
-    list{
-      // Left: daemon status
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          span(
-            list{
-              Attrs.class_(
-                `w-2 h-2 rounded-full ${if state.daemonConnected {
-                    "bg-emerald-400"
-                  } else {
-                    "bg-red-400"
-                  }}`,
-              ),
-            },
-            list{},
-          ),
-          span(
-            list{Attrs.class_("text-xs text-gray-400")},
-            list{
-              text(
-                if state.daemonConnected {
-                  "Daemon connected"
-                } else {
-                  "Daemon offline"
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Centre: system resources
-      div(
-        list{Attrs.class_("flex items-center gap-4 text-xs")},
-        list{
-          span(
-            list{Attrs.class_(memColor)},
-            list{
-              text(
-                `RAM: ${Int.toString(state.systemMemoryAvailableMb)}/${Int.toString(
-                    state.systemMemoryTotalMb,
-                  )}MB`,
-              ),
-            },
-          ),
-          span(
-            list{Attrs.class_("text-gray-400")},
-            list{text(`CPU: ${Float.toFixed(state.systemCpuPercent, ~digits=0)}%`)},
-          ),
-          span(
-            list{Attrs.class_("text-gray-500")},
-            list{text(`${Int.toString(Array.length(state.sessions))} sessions`)},
-          ),
-        },
-      ),
-      // Right: spawn button
-      button(
-        list{
-          Attrs.class_(
-            "px-3 py-1 text-xs font-semibold rounded bg-emerald-600 hover:bg-emerald-500 text-white",
-          ),
-        },
-        list{text("+ Spawn Session")},
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Session Card
-// ============================================================================
-
-/// Resource usage bar for a session.
-let resourceBar = (usage: resourceUsage, limits: resourceLimits): Tea_Vdom.t<msg> => {
-  let health = resourceHealth(usage, limits)
-  let color = resourceHealthColor(health)
-  div(
-    list{Attrs.class_("flex items-center gap-2 text-xs mt-2")},
-    list{
-      span(list{Attrs.class_(color)}, list{text(`${Int.toString(usage.memoryMb)}MB`)}),
-      span(
-        list{Attrs.class_("text-gray-600")},
-        list{text(`CPU ${Float.toFixed(usage.cpuPercent, ~digits=0)}%`)},
-      ),
-      span(
-        list{Attrs.class_("text-gray-600")},
-        list{text(`${Int.toString(usage.subagentCount)} agents`)},
-      ),
-      span(
-        list{Attrs.class_(`ml-auto font-mono ${color}`)},
-        list{text(resourceHealthLabel(health))},
-      ),
-    },
-  )
-}
-
-/// Progress bar for a session's task list.
-let taskProgress = (tasks: array<sharedTask>): Tea_Vdom.t<msg> => {
-  let total = Array.length(tasks)
-  if total == 0 {
-    noNode
-  } else {
-    let pct = progressPercent(tasks)
-    let done = completedCount(tasks)
-    div(
-      list{Attrs.class_("mt-2")},
-      list{
-        div(
-          list{Attrs.class_("flex justify-between text-xs text-gray-500 mb-1")},
-          list{
-            span(list{}, list{text(`${Int.toString(done)}/${Int.toString(total)} tasks`)}),
-            span(list{}, list{text(`${Int.toString(pct)}%`)}),
-          },
-        ),
-        div(
-          list{Attrs.class_("w-full h-1 bg-gray-800 rounded")},
-          list{
-            div(
-              list{
-                Attrs.class_("h-1 bg-emerald-500 rounded"),
-                Attrs.style("width", `${Int.toString(pct)}%`),
-              },
-              list{},
-            ),
-          },
-        ),
-      },
-    )
-  }
-}
-
-/// A single session card in the sidebar.
-let sessionCard = (session: llmSession, isSelected: bool): Tea_Vdom.t<msg> => {
-  let borderClass = stateBorderColor(session.state)
-  let selectedRing = if isSelected {
-    " ring-2 ring-emerald-500/30"
-  } else {
-    ""
-  }
-  div(
-    list{
-      Attrs.class_(
-        `flex flex-col p-3 rounded-lg border ${borderClass}${selectedRing} bg-gray-900/50 cursor-pointer hover:brightness-110 transition-all`,
-      ),
-    },
-    list{
-      // Header: name + state
-      div(
-        list{Attrs.class_("flex items-center justify-between")},
-        list{
-          span(list{Attrs.class_("font-semibold text-sm text-gray-100")}, list{text(session.name)}),
-          span(
-            list{Attrs.class_(`text-xs font-mono ${stateColor(session.state)}`)},
-            list{text(stateLabel(session.state))},
-          ),
-        },
-      ),
-      // Provider + PID
-      div(
-        list{Attrs.class_("flex items-center gap-2 mt-1 text-xs text-gray-500")},
-        list{
-          span(list{}, list{text(providerName(session.provider))}),
-          switch session.pid {
-          | Some(pid) =>
-            span(list{Attrs.class_("font-mono")}, list{text(`PID ${Int.toString(pid)}`)})
-          | None => noNode
-          },
-        },
-      ),
-      // Allowed repos
-      div(
-        list{Attrs.class_("flex gap-1 flex-wrap mt-1")},
-        session.allowedRepos
-        ->Array.map(repo =>
-          span(
-            list{Attrs.class_("px-1 py-0.5 text-xs rounded bg-gray-800 text-gray-400 font-mono")},
-            list{text(repo)},
-          )
-        )
-        ->List.fromArray,
-      ),
-      // Resource usage
-      resourceBar(session.resources, session.limits),
-      // Task progress
-      taskProgress(session.tasks),
-      // Action buttons (only for alive sessions)
-      if isAlive(session.state) {
-        div(
-          list{Attrs.class_("flex gap-1 mt-2")},
-          list{
-            if canFreeze(session.state) {
-              button(
-                list{
-                  Attrs.class_(
-                    "px-2 py-0.5 text-xs rounded bg-amber-700 hover:bg-amber-600 text-white",
-                  ),
-                },
-                list{text("Freeze")},
-              )
-            } else if canThaw(session.state) {
-              button(
-                list{
-                  Attrs.class_(
-                    "px-2 py-0.5 text-xs rounded bg-blue-700 hover:bg-blue-600 text-white",
-                  ),
-                },
-                list{text("Thaw")},
-              )
-            } else {
-              noNode
-            },
-            button(
-              list{
-                Attrs.class_("px-2 py-0.5 text-xs rounded bg-red-800 hover:bg-red-700 text-white"),
-              },
-              list{text("Kill")},
-            ),
-          },
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-// ============================================================================
-// Pending Actions Bar
-// ============================================================================
-
-/// A single pending action requiring approval.
-let pendingActionView = (action: pendingAction): Tea_Vdom.t<msg> => {
-  let danger = actionDanger(action.category)
-  let color = dangerColor(danger)
-  div(
-    list{
-      Attrs.class_(
-        "flex items-center justify-between p-2 bg-gray-900 border border-gray-700 rounded",
-      ),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          span(
-            list{Attrs.class_(`text-xs font-mono ${color}`)},
-            list{text(actionCategoryName(action.category))},
-          ),
-          span(list{Attrs.class_("text-xs text-gray-300")}, list{text(action.description)}),
-          span(list{Attrs.class_("text-xs text-gray-600")}, list{text(`from ${action.sessionId}`)}),
-        },
-      ),
-      div(
-        list{Attrs.class_("flex gap-1")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-2 py-0.5 text-xs rounded bg-emerald-700 hover:bg-emerald-600 text-white",
-              ),
-            },
-            list{text("Approve")},
-          ),
-          button(
-            list{
-              Attrs.class_("px-2 py-0.5 text-xs rounded bg-red-800 hover:bg-red-700 text-white"),
-            },
-            list{text("Deny")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Messages View
-// ============================================================================
-
-/// Cross-session message in the log.
-let messageView = (msg_: sessionMessage): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex gap-2 text-xs py-1 border-b border-gray-800/50")},
-    list{
-      span(list{Attrs.class_("text-gray-600 font-mono shrink-0")}, list{text(msg_.sentAt)}),
-      span(list{Attrs.class_("text-emerald-400 font-mono shrink-0")}, list{text(msg_.fromSession)}),
-      span(list{Attrs.class_("text-gray-300")}, list{text(msg_.content)}),
-    },
-  )
-}
-
-// ============================================================================
-// Main View
-// ============================================================================
-
-/// Top-level view for the LLM Coding panel.
-let view = (state: llmCodingState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100")},
-    list{
-      // System status bar
-      systemBar(state),
-      // Main content area
-      div(
-        list{Attrs.class_("flex flex-1 overflow-hidden")},
-        list{
-          // Left: session cards
-          div(
-            list{
-              Attrs.class_("w-80 border-r border-gray-800 overflow-y-auto p-2 flex flex-col gap-2"),
-            },
-            if Array.length(state.sessions) == 0 {
-              list{
-                div(
-                  list{Attrs.class_("flex items-center justify-center h-32 text-gray-600 text-sm")},
-                  list{text("No sessions. Click '+ Spawn Session' to begin.")},
-                ),
-              }
-            } else {
-              state.sessions
-              ->Array.map(s => sessionCard(s, state.selectedSession == Some(s.id)))
-              ->List.fromArray
-            },
-          ),
-          // Right: detail / messages
-          div(
-            list{Attrs.class_("flex-1 overflow-y-auto p-3")},
-            list{
-              // Cross-session messages
-              div(
-                list{Attrs.class_("mb-4")},
-                list{
-                  h3(
-                    list{Attrs.class_("text-sm font-semibold text-gray-400 mb-2")},
-                    list{text("Cross-Session Messages")},
-                  ),
-                  if Array.length(state.messages) == 0 {
-                    div(list{Attrs.class_("text-xs text-gray-600")}, list{text("No messages yet")})
-                  } else {
-                    div(
-                      list{Attrs.class_("flex flex-col")},
-                      state.messages->Array.map(messageView)->List.fromArray,
-                    )
-                  },
-                },
-              ),
-              // Workspace locks
-              div(
-                list{Attrs.class_("mb-4")},
-                list{
-                  h3(
-                    list{Attrs.class_("text-sm font-semibold text-gray-400 mb-2")},
-                    list{text(`Workspace Locks (${Int.toString(Array.length(state.locks))})`)},
-                  ),
-                  div(
-                    list{Attrs.class_("flex flex-col gap-1")},
-                    state.locks
-                    ->Array.map(lock =>
-                      div(
-                        list{Attrs.class_("flex items-center gap-2 text-xs")},
-                        list{
-                          span(
-                            list{
-                              Attrs.class_(
-                                if lock.exclusive {
-                                  "text-red-400"
-                                } else {
-                                  "text-blue-400"
-                                },
-                              ),
-                            },
-                            list{
-                              text(
-                                if lock.exclusive {
-                                  "EXCL"
-                                } else {
-                                  "READ"
-                                },
-                              ),
-                            },
-                          ),
-                          span(
-                            list{Attrs.class_("text-gray-300 font-mono")},
-                            list{text(lock.path)},
-                          ),
-                          span(
-                            list{Attrs.class_("text-gray-600")},
-                            list{text(`held by ${lock.heldBy}`)},
-                          ),
-                        },
-                      )
-                    )
-                    ->List.fromArray,
-                  ),
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Bottom: pending actions
-      if Array.length(state.pendingActions) > 0 {
-        div(
-          list{Attrs.class_("border-t border-amber-800 bg-amber-950/30 p-2 flex flex-col gap-1")},
-          list{
-            h3(
-              list{Attrs.class_("text-xs font-semibold text-amber-400 mb-1")},
-              list{
-                text(
-                  `${Int.toString(Array.length(state.pendingActions))} action(s) awaiting approval`,
-                ),
-              },
-            ),
-            div(
-              list{Attrs.class_("flex flex-col gap-1")},
-              state.pendingActions->Array.map(pendingActionView)->List.fromArray,
-            ),
-          },
-        )
-      } else {
-        noNode
-      },
-      // Error display
-      switch state.lastError {
-      | Some(err) =>
-        div(
-          list{Attrs.class_("p-2 bg-red-950 border-t border-red-800 text-xs text-red-300")},
-          list{text(err)},
-        )
-      | None => noNode
-      },
-    },
-  )
-}
diff --git a/src/components/LoadTester.affine b/src/components/LoadTester.affine
new file mode 100644
index 00000000..6d4ecdcb
--- /dev/null
+++ b/src/components/LoadTester.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module LoadTester;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/LoadTester.res b/src/components/LoadTester.res
deleted file mode 100644
index e4cf5911..00000000
--- a/src/components/LoadTester.res
+++ /dev/null
@@ -1,411 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL LoadTester — Phoenix channel stress testing and concurrency simulation
-/// for IDApTIK multiplayer infrastructure.
-///
-/// Four tabs: Scenarios (editor with player count/ramp-up/duration), Live Test
-/// (connected player count, latency, throughput), Results (table of completed
-/// runs), and Saturation Curve (placeholder for latency-vs-concurrency chart).
-
-open Model
-open Msg
-open Tea.Html
-
-// =========================================================================
-// Helpers
-// =========================================================================
-
-/// Tab label lookup for loadTestTab variants.
-let tabLabel = (tab: loadTestTab): string =>
-  switch tab {
-  | TabScenarios => "Scenarios"
-  | TabLiveTest => "Live Test"
-  | TabResults => "Results"
-  | TabSaturationCurve => "Saturation Curve"
-  }
-
-/// Render the tab bar.
-let renderTabs = (active: loadTestTab): Tea_Vdom.t<msg> => {
-  let tabs: array<loadTestTab> = [TabScenarios, TabLiveTest, TabResults, TabSaturationCurve]
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 px-4")},
-    tabs
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-3 py-2 text-sm font-medium transition-colors rounded-t ${isActive
-                ? "bg-gray-800 text-cyan-400 border-b-2 border-cyan-400"
-                : "text-gray-500 hover:text-gray-300 hover:bg-gray-900 cursor-pointer"}`,
-          ),
-          Events.onClick(LoadTester(SetLtTab(tab))),
-        },
-        list{text(tabLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Player status badge.
-let playerStatusBadge = (status: simulatedPlayerStatus): Tea_Vdom.t<msg> =>
-  switch status {
-  | PlayerConnecting =>
-    span(
-      list{
-        Attrs.class_(
-          "px-1.5 py-0.5 text-xs rounded bg-amber-500 text-white font-mono animate-pulse",
-        ),
-      },
-      list{text("CONNECTING")},
-    )
-  | PlayerConnected =>
-    span(
-      list{Attrs.class_("px-1.5 py-0.5 text-xs rounded bg-emerald-600 text-white font-mono")},
-      list{text("CONNECTED")},
-    )
-  | PlayerDisconnected(_) =>
-    span(
-      list{Attrs.class_("px-1.5 py-0.5 text-xs rounded bg-gray-600 text-gray-200 font-mono")},
-      list{text("DISCONNECTED")},
-    )
-  | PlayerError(_) =>
-    span(
-      list{Attrs.class_("px-1.5 py-0.5 text-xs rounded bg-red-600 text-white font-mono")},
-      list{text("ERROR")},
-    )
-  }
-
-// =========================================================================
-// Tab content views
-// =========================================================================
-
-/// Scenarios tab: list of load test scenarios with configuration details.
-let renderScenariosTab = (state: loadTesterState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-col gap-2 p-4")},
-    list{
-      div(
-        list{Attrs.class_("text-sm text-gray-400 mb-1")},
-        list{text(`${Int.toString(Array.length(state.scenarios))} scenario(s)`)},
-      ),
-      div(
-        list{Attrs.class_("flex flex-col gap-2 max-h-96 overflow-y-auto")},
-        state.scenarios
-        ->Array.map(scenario => {
-          let isSelected = state.selectedScenario === Some(scenario.name)
-          let borderCls = isSelected ? "border-cyan-600" : "border-gray-700"
-          div(
-            list{
-              Attrs.class_(`bg-gray-800 rounded p-3 border ${borderCls} cursor-pointer`),
-              Events.onClick(LoadTester(SelectScenario(scenario.name))),
-            },
-            list{
-              div(
-                list{Attrs.class_("flex items-center justify-between mb-2")},
-                list{
-                  span(
-                    list{Attrs.class_("text-sm font-medium text-gray-200")},
-                    list{text(scenario.name)},
-                  ),
-                  button(
-                    list{
-                      Attrs.class_(
-                        "px-2 py-1 text-xs bg-emerald-700 text-white rounded hover:bg-emerald-600 cursor-pointer",
-                      ),
-                      Events.onClick(LoadTester(RunScenario(scenario.name))),
-                    },
-                    list{text("Run")},
-                  ),
-                },
-              ),
-              div(
-                list{Attrs.class_("grid grid-cols-2 gap-2 text-xs")},
-                list{
-                  div(
-                    list{Attrs.class_("text-gray-500")},
-                    list{text(`Players: ${Int.toString(scenario.concurrentPlayers)}`)},
-                  ),
-                  div(
-                    list{Attrs.class_("text-gray-500")},
-                    list{text(`Ramp-up: ${Int.toString(scenario.rampUpSeconds)}s`)},
-                  ),
-                  div(
-                    list{Attrs.class_("text-gray-500")},
-                    list{text(`Duration: ${Int.toString(scenario.durationSeconds)}s`)},
-                  ),
-                  div(
-                    list{Attrs.class_("text-gray-500")},
-                    list{text(`Msg/s: ${Int.toString(scenario.messagesPerSecond)}`)},
-                  ),
-                },
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-600 mt-1")},
-                list{text(`Channel: ${scenario.channelName}`)},
-              ),
-            },
-          )
-        })
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-/// Live Test tab: connected player count, latency, and throughput overview.
-let renderLiveTestTab = (state: loadTesterState): Tea_Vdom.t<msg> => {
-  let connectedCount =
-    state.players
-    ->Array.filter(p =>
-      switch p.status {
-      | PlayerConnected => true
-      | _ => false
-      }
-    )
-    ->Array.length
-  let totalPlayers = Array.length(state.players)
-  let avgLatency = if totalPlayers > 0 {
-    state.players->Array.reduce(0.0, (acc, p) => acc +. p.latencyMs) /. Int.toFloat(totalPlayers)
-  } else {
-    0.0
-  }
-  let totalMessages =
-    state.players->Array.reduce(0, (acc, p) => acc + p.messagesSent + p.messagesReceived)
-
-  div(
-    list{Attrs.class_("flex flex-col gap-4 p-4")},
-    list{
-      // Key metrics row
-      div(
-        list{Attrs.class_("grid grid-cols-4 gap-3")},
-        list{
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-emerald-400")},
-                list{text(Int.toString(connectedCount))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Connected")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-gray-300")},
-                list{text(Int.toString(totalPlayers))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Total")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-cyan-400")},
-                list{text(`${Float.toFixed(avgLatency, ~digits=1)}ms`)},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Avg Latency")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-gray-300")},
-                list{text(Int.toString(totalMessages))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Messages")}),
-            },
-          ),
-        },
-      ),
-      // Player list (capped to most recent 20)
-      div(
-        list{Attrs.class_("flex flex-col gap-1 max-h-64 overflow-y-auto")},
-        state.players
-        ->Array.sliceToEnd(~start=max(0, totalPlayers - 20))
-        ->Array.map(player => {
-          div(
-            list{
-              Attrs.class_(
-                "flex items-center justify-between px-3 py-1.5 bg-gray-800 rounded text-xs",
-              ),
-            },
-            list{
-              span(
-                list{Attrs.class_("text-gray-500 font-mono")},
-                list{text(`P-${Int.toString(player.id)}`)},
-              ),
-              playerStatusBadge(player.status),
-              span(
-                list{Attrs.class_("text-gray-400 font-mono")},
-                list{text(`${Float.toFixed(player.latencyMs, ~digits=1)}ms`)},
-              ),
-            },
-          )
-        })
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-/// Results tab: table of completed load test results.
-let renderResultsTab = (state: loadTesterState): Tea_Vdom.t<msg> => {
-  if Array.length(state.results) === 0 {
-    div(
-      list{Attrs.class_("p-4 text-gray-500 text-sm italic")},
-      list{text("No load test results yet. Run a scenario to see results here.")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("flex flex-col gap-2 p-4 max-h-96 overflow-y-auto")},
-      state.results
-      ->Array.map(result => {
-        let errRate = if result.messagesTotal > 0 {
-          Int.toFloat(result.errorsTotal) /. Int.toFloat(result.messagesTotal) *. 100.0
-        } else {
-          0.0
-        }
-        let errColour = if errRate > 5.0 {
-          "text-red-400"
-        } else if errRate > 1.0 {
-          "text-amber-400"
-        } else {
-          "text-emerald-400"
-        }
-        div(
-          list{Attrs.class_("bg-gray-800 rounded p-3 border border-gray-700")},
-          list{
-            div(
-              list{Attrs.class_("flex items-center justify-between mb-2")},
-              list{
-                span(
-                  list{Attrs.class_("text-sm font-medium text-gray-200")},
-                  list{text(result.scenario.name)},
-                ),
-                span(list{Attrs.class_("text-xs text-gray-500")}, list{text(result.timestamp)}),
-              },
-            ),
-            div(
-              list{Attrs.class_("grid grid-cols-3 gap-2 text-xs")},
-              list{
-                div(
-                  list{Attrs.class_("text-gray-400")},
-                  list{text(`Peak: ${Int.toString(result.peakPlayers)} players`)},
-                ),
-                div(
-                  list{Attrs.class_("text-gray-400")},
-                  list{text(`Avg: ${Float.toFixed(result.avgLatencyMs, ~digits=1)}ms`)},
-                ),
-                div(
-                  list{Attrs.class_("text-gray-400")},
-                  list{text(`P99: ${Float.toFixed(result.p99LatencyMs, ~digits=1)}ms`)},
-                ),
-                div(
-                  list{Attrs.class_("text-gray-400")},
-                  list{text(`Throughput: ${Float.toFixed(result.throughputPerSec, ~digits=0)}/s`)},
-                ),
-                div(
-                  list{Attrs.class_(errColour)},
-                  list{text(`Errors: ${Float.toFixed(errRate, ~digits=1)}%`)},
-                ),
-                div(
-                  list{Attrs.class_("text-gray-400")},
-                  list{text(`Duration: ${Float.toFixed(result.durationMs, ~digits=0)}ms`)},
-                ),
-              },
-            ),
-          },
-        )
-      })
-      ->List.fromArray,
-    )
-  }
-}
-
-/// Saturation Curve tab: placeholder for latency-vs-concurrency chart.
-let renderSaturationCurveTab = (_state: loadTesterState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("p-4 flex items-center justify-center h-48")},
-    list{
-      span(
-        list{Attrs.class_("text-gray-600 text-sm")},
-        list{text("Saturation curve chart (latency vs. concurrency) — Phase 2")},
-      ),
-    },
-  )
-}
-
-// =========================================================================
-// Main view
-// =========================================================================
-
-/// Primary view function dispatching tab content based on active tab.
-let view = (state: loadTesterState): Tea_Vdom.t<msg> => {
-  let content = switch state.activeTab {
-  | TabScenarios => renderScenariosTab(state)
-  | TabLiveTest => renderLiveTestTab(state)
-  | TabResults => renderResultsTab(state)
-  | TabSaturationCurve => renderSaturationCurveTab(state)
-  }
-
-  div(
-    list{Attrs.class_("flex flex-col h-full bg-gray-900 text-gray-100")},
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          h2(list{Attrs.class_("text-lg font-semibold text-cyan-300")}, list{text("Load Tester")}),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-xs bg-emerald-700 text-white rounded hover:bg-emerald-600 cursor-pointer font-medium",
-              ),
-              Events.onClick(LoadTester(RunSelectedScenario)),
-              KeyboardNav.onActivate(LoadTester(RunSelectedScenario)),
-            },
-            list{text("Run Scenario")},
-          ),
-        },
-      ),
-      // Running indicator
-      if state.running {
-        div(
-          list{
-            Attrs.class_("flex items-center gap-2 px-4 py-2 bg-gray-800 border-b border-gray-700"),
-          },
-          list{
-            div(list{Attrs.class_("w-3 h-3 bg-amber-400 rounded-full animate-pulse")}, list{}),
-            span(
-              list{Attrs.class_("text-sm text-amber-300")},
-              list{text("Load test in progress...")},
-            ),
-          },
-        )
-      } else {
-        noNode
-      },
-      // Error display
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_("px-4 py-2 bg-red-900/30 text-red-300 text-sm border-b border-red-800"),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      // Tab bar
-      renderTabs(state.activeTab),
-      // Content
-      div(list{Attrs.class_("flex-1 overflow-y-auto")}, list{content}),
-    },
-  )
-}
diff --git a/src/components/ManifestCoverage.affine b/src/components/ManifestCoverage.affine
new file mode 100644
index 00000000..80da54ed
--- /dev/null
+++ b/src/components/ManifestCoverage.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ManifestCoverage;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/ManifestCoverage.res b/src/components/ManifestCoverage.res
deleted file mode 100644
index 22babbcf..00000000
--- a/src/components/ManifestCoverage.res
+++ /dev/null
@@ -1,299 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Manifest Coverage Component — AI manifest presence across all repos.
-///
-/// Two-column layout: left sidebar with repo list, right content with
-/// detail view showing manifest presence, validity, and errors.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a repo row in the sidebar.
-let repoRow = (repo: repoManifestStatus, selected: bool): Tea_Vdom.t<msg> => {
-  let statusColor = if repo.hasManifest && repo.isValid {
-    "text-green-400"
-  } else if repo.hasManifest {
-    "text-amber-400"
-  } else {
-    "text-red-400"
-  }
-  let statusLabel = if repo.hasManifest && repo.isValid {
-    "Valid"
-  } else if repo.hasManifest {
-    "Invalid"
-  } else {
-    "Missing"
-  }
-  button(
-    list{
-      Attrs.class_(
-        "w-full text-left px-3 py-2 border-b border-gray-800 hover:bg-gray-800/60 transition-colors " ++ if (
-          selected
-        ) {
-          "bg-gray-800/80 border-l-2 border-l-blue-500"
-        } else {
-          ""
-        },
-      ),
-      Events.onClick(ManifestCoverage(SelectRepo(repo.repoName))),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between")},
-        list{
-          span(list{Attrs.class_("text-sm text-gray-200 truncate")}, list{text(repo.repoName)}),
-          span(list{Attrs.class_("text-xs font-mono " ++ statusColor)}, list{text(statusLabel)}),
-        },
-      ),
-    },
-  )
-}
-
-/// Render a tab button.
-let tabBtn = (current: manifestCoverageTab, target: manifestCoverageTab, label: string): Tea_Vdom.t<
-  msg,
-> => {
-  let active = current == target
-  button(
-    list{
-      Attrs.class_(
-        "px-3 py-1 text-xs rounded " ++ if active {
-          "bg-blue-600 text-white"
-        } else {
-          "bg-gray-800 text-gray-400 hover:bg-gray-700"
-        },
-      ),
-      Events.onClick(ManifestCoverage(SetTab(target))),
-      Attrs.role("tab"),
-      Attrs.ariaSelected(active),
-    },
-    list{text(label)},
-  )
-}
-
-/// Main view function for the Manifest Coverage panel.
-let view = (state: manifestCoverageState): Tea_Vdom.t<msg> => {
-  let valid = ManifestCoverageEngine.validManifestCount(state.repos)
-  let total = Array.length(state.repos)
-
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Manifest Coverage — AI Manifest Presence"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-bold text-purple-300")},
-                list{text("Manifest Coverage")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{text(`${Int.toString(valid)}/${Int.toString(total)} valid manifests`)},
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_("px-3 py-1 text-xs rounded bg-green-700 text-white hover:bg-green-600"),
-              Events.onClick(ManifestCoverage(ScanRepos)),
-              KeyboardNav.onActivate(ManifestCoverage(ScanRepos)),
-            },
-            list{
-              text(
-                if state.scanning {
-                  "Scanning..."
-                } else {
-                  "Scan"
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Tabs
-      div(
-        list{Attrs.class_("flex gap-1 px-4 py-2 border-b border-gray-800"), Attrs.role("tablist")},
-        ManifestCoverageEngine.allTabs
-        ->Array.map(t => tabBtn(state.activeTab, t, ManifestCoverageEngine.tabLabel(t)))
-        ->List.fromArray,
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 px-3 py-2 bg-red-900/50 border border-red-700 rounded text-sm text-red-200",
-            ),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      // Two-column layout
-      div(
-        list{Attrs.class_("flex flex-1 overflow-hidden")},
-        list{
-          // Left sidebar
-          div(
-            list{Attrs.class_("w-64 border-r border-gray-800 overflow-y-auto")},
-            state.repos
-            ->Array.map(r => repoRow(r, state.selectedRepo == Some(r.repoName)))
-            ->List.fromArray,
-          ),
-          // Right content
-          div(
-            list{Attrs.class_("flex-1 overflow-y-auto px-4 py-2")},
-            list{
-              switch state.selectedRepo {
-              | None =>
-                div(
-                  list{Attrs.class_("flex items-center justify-center h-full text-gray-600")},
-                  list{text("Select a repo to view manifest details")},
-                )
-              | Some(name) =>
-                switch state.repos->Array.find(r => r.repoName == name) {
-                | None => div(list{}, list{text("Repo not found")})
-                | Some(repo) =>
-                  div(
-                    list{},
-                    list{
-                      h3(
-                        list{Attrs.class_("text-md font-semibold text-gray-200 mb-3")},
-                        list{text(repo.repoName)},
-                      ),
-                      div(
-                        list{Attrs.class_("space-y-2")},
-                        list{
-                          div(
-                            list{Attrs.class_("flex items-center gap-2")},
-                            list{
-                              span(
-                                list{Attrs.class_("text-xs text-gray-500 w-28")},
-                                list{text("Has Manifest:")},
-                              ),
-                              span(
-                                list{
-                                  Attrs.class_(
-                                    if repo.hasManifest {
-                                      "text-xs text-green-400"
-                                    } else {
-                                      "text-xs text-red-400"
-                                    },
-                                  ),
-                                },
-                                list{
-                                  text(
-                                    if repo.hasManifest {
-                                      "Yes"
-                                    } else {
-                                      "No"
-                                    },
-                                  ),
-                                },
-                              ),
-                            },
-                          ),
-                          switch repo.manifestFile {
-                          | Some(file) =>
-                            div(
-                              list{Attrs.class_("flex items-center gap-2")},
-                              list{
-                                span(
-                                  list{Attrs.class_("text-xs text-gray-500 w-28")},
-                                  list{text("File:")},
-                                ),
-                                span(
-                                  list{Attrs.class_("text-xs text-gray-300 font-mono")},
-                                  list{text(file)},
-                                ),
-                              },
-                            )
-                          | None => noNode
-                          },
-                          div(
-                            list{Attrs.class_("flex items-center gap-2")},
-                            list{
-                              span(
-                                list{Attrs.class_("text-xs text-gray-500 w-28")},
-                                list{text("Valid:")},
-                              ),
-                              span(
-                                list{
-                                  Attrs.class_(
-                                    if repo.isValid {
-                                      "text-xs text-green-400"
-                                    } else {
-                                      "text-xs text-red-400"
-                                    },
-                                  ),
-                                },
-                                list{
-                                  text(
-                                    if repo.isValid {
-                                      "Yes"
-                                    } else {
-                                      "No"
-                                    },
-                                  ),
-                                },
-                              ),
-                            },
-                          ),
-                          if Array.length(repo.validationErrors) > 0 {
-                            div(
-                              list{Attrs.class_("mt-2")},
-                              list{
-                                span(
-                                  list{Attrs.class_("text-xs text-gray-500 block mb-1")},
-                                  list{text("Errors:")},
-                                ),
-                                div(
-                                  list{Attrs.class_("space-y-1")},
-                                  repo.validationErrors
-                                  ->Array.map(e =>
-                                    div(
-                                      list{Attrs.class_("text-xs text-red-300 font-mono pl-2")},
-                                      list{text(e)},
-                                    )
-                                  )
-                                  ->List.fromArray,
-                                ),
-                              },
-                            )
-                          } else {
-                            noNode
-                          },
-                        },
-                      ),
-                    },
-                  )
-                }
-              },
-            },
-          ),
-        },
-      ),
-      // Footer
-      div(
-        list{Attrs.class_("px-4 py-2 border-t border-gray-800 text-xs text-gray-500")},
-        list{
-          text(
-            `${Int.toString(
-                ManifestCoverageEngine.missingManifestCount(state.repos),
-              )} repos missing manifest`,
-          ),
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/MassPanic.affine b/src/components/MassPanic.affine
new file mode 100644
index 00000000..c6d69c79
--- /dev/null
+++ b/src/components/MassPanic.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MassPanic;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/MassPanic.res b/src/components/MassPanic.res
deleted file mode 100644
index a2d05884..00000000
--- a/src/components/MassPanic.res
+++ /dev/null
@@ -1,1222 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Mass Panic Panel — organisation-scale batch scanning GUI.
-///
-/// Provides a visual interface for panic-attack's mass-panic deployment mode:
-/// repo discovery, select-all/checkbox batch controls, assemblyline scanning
-/// with progress tracking, incremental BLAKE3 delta, verisim persistence,
-/// result sorting/filtering, delta comparison, and notification generation.
-///
-/// Replaces the complex CLI orchestration of:
-///   panic-attack assemblyline /path --incremental --store ./data --cache ...
-
-open Msg
-open MassPanicModel
-open Tea.Html
-
-/// Status badge for a repo scan result.
-let statusBadge = (status: repoScanStatus): Tea_Vdom.t<msg> => {
-  let (colour, lbl) = switch status {
-  | Queued => ("bg-gray-600 text-gray-200", "QUEUED")
-  | Scanning => ("bg-amber-500 text-white animate-pulse", "SCANNING")
-  | Complete => ("bg-emerald-600 text-white", "DONE")
-  | Skipped => ("bg-blue-600 text-white", "SKIPPED")
-  | Failed(_) => ("bg-red-600 text-white", "FAILED")
-  }
-  span(list{Attrs.class_(`px-1.5 py-0.5 text-xs rounded font-mono ${colour}`)}, list{text(lbl)})
-}
-
-/// Severity count pills for a repo row.
-let severityPills = (repo: repoResult): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex gap-1")},
-    list{
-      if repo.critical > 0 {
-        span(
-          list{Attrs.class_("px-1.5 py-0.5 text-xs rounded bg-red-600 text-white font-mono")},
-          list{text(`${Int.toString(repo.critical)}C`)},
-        )
-      } else {
-        noNode
-      },
-      if repo.high > 0 {
-        span(
-          list{Attrs.class_("px-1.5 py-0.5 text-xs rounded bg-orange-500 text-white font-mono")},
-          list{text(`${Int.toString(repo.high)}H`)},
-        )
-      } else {
-        noNode
-      },
-      if repo.medium > 0 {
-        span(
-          list{Attrs.class_("px-1.5 py-0.5 text-xs rounded bg-amber-400 text-gray-900 font-mono")},
-          list{text(`${Int.toString(repo.medium)}M`)},
-        )
-      } else {
-        noNode
-      },
-      if repo.low > 0 {
-        span(
-          list{Attrs.class_("px-1.5 py-0.5 text-xs rounded bg-blue-400 text-white font-mono")},
-          list{text(`${Int.toString(repo.low)}L`)},
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-/// Progress bar (thin horizontal bar showing scan completion).
-let progressBar = (progress: float, scanning: bool): Tea_Vdom.t<msg> => {
-  if !scanning {
-    noNode
-  } else {
-    let pct = Int.toString(Int.fromFloat(progress *. 100.0))
-    div(
-      list{Attrs.class_("w-full h-1.5 bg-gray-700 rounded overflow-hidden")},
-      list{
-        div(
-          list{Attrs.class_(`h-full bg-amber-500 transition-all duration-300 w-[${pct}%]`)},
-          list{},
-        ),
-      },
-    )
-  }
-}
-
-/// Aggregate summary bar.
-let summaryView = (summary: option<assemblylineSummary>): Tea_Vdom.t<msg> => {
-  switch summary {
-  | None =>
-    div(
-      list{Attrs.class_("text-gray-500 text-sm italic py-2")},
-      list{text("No scan results. Set a repos directory and run assemblyline.")},
-    )
-  | Some(s) =>
-    div(
-      list{Attrs.class_("flex flex-wrap gap-4 items-center py-2 text-sm")},
-      list{
-        span(
-          list{Attrs.class_("text-gray-300 font-mono")},
-          list{text(`${Int.toString(s.scannedRepos)}/${Int.toString(s.totalRepos)} repos scanned`)},
-        ),
-        if s.skippedRepos > 0 {
-          span(
-            list{Attrs.class_("text-blue-400 font-mono")},
-            list{text(`${Int.toString(s.skippedRepos)} skipped (unchanged)`)},
-          )
-        } else {
-          noNode
-        },
-        span(
-          list{Attrs.class_("text-gray-400 font-mono")},
-          list{text(`${Int.toString(s.totalFindings)} findings`)},
-        ),
-        if s.totalCritical > 0 {
-          span(
-            list{Attrs.class_("text-red-400 font-mono font-bold")},
-            list{text(`${Int.toString(s.totalCritical)} critical`)},
-          )
-        } else {
-          noNode
-        },
-        if s.totalHigh > 0 {
-          span(
-            list{Attrs.class_("text-orange-400 font-mono")},
-            list{text(`${Int.toString(s.totalHigh)} high`)},
-          )
-        } else {
-          noNode
-        },
-        span(
-          list{Attrs.class_("text-gray-500 font-mono")},
-          list{text(`${Float.toString(s.scanDuration)}s`)},
-        ),
-      },
-    )
-  }
-}
-
-/// Filter and sort repo results.
-let filterAndSort = (
-  repos: array<repoResult>,
-  filterMode: repoFilterMode,
-  sortMode: repoSortMode,
-  searchText: string,
-): array<repoResult> => {
-  repos
-  ->Array.filter(r => {
-    let filterMatch = switch filterMode {
-    | AllRepos => true
-    | FindingsOnly => r.totalFindings > 0
-    | CriticalOnly => r.critical > 0
-    | FailedOnly =>
-      switch r.status {
-      | Failed(_) => true
-      | _ => false
-      }
-    }
-    let textMatch =
-      searchText == "" ||
-      String.includes(String.toLowerCase(r.repoName), String.toLowerCase(searchText)) ||
-      String.includes(String.toLowerCase(r.repoPath), String.toLowerCase(searchText))
-    filterMatch && textMatch
-  })
-  ->Array.toSorted((a, b) =>
-    switch sortMode {
-    | ByRisk =>
-      Float.fromInt(b.critical * 100 + b.high * 10 + b.totalFindings) -.
-      Float.fromInt(a.critical * 100 + a.high * 10 + a.totalFindings)
-    | ByName => String.localeCompare(a.repoName, b.repoName)
-    | ByFindings => Float.fromInt(b.totalFindings - a.totalFindings)
-    | ByDuration =>
-      switch (b.scanDuration, a.scanDuration) {
-      | (Some(bd), Some(ad)) => bd -. ad
-      | (Some(_), None) => 1.0
-      | (None, Some(_)) => -1.0
-      | (None, None) => 0.0
-      }
-    }
-  )
-}
-
-/// Single repo row in the results table.
-let repoRow = (repo: repoResult, index: int, isSelected: bool): Tea_Vdom.t<msg> => {
-  let selectedClass = isSelected ? "bg-gray-800/30" : ""
-  div(
-    list{
-      Attrs.class_(
-        `flex items-center gap-3 py-2 px-3 border-b border-gray-700 hover:bg-gray-800/50 ${selectedClass}`,
-      ),
-    },
-    list{
-      // Checkbox
-      input(
-        list{
-          Attrs.type_("checkbox"),
-          Attrs.checked(isSelected),
-          Attrs.class_("w-4 h-4 accent-amber-500"),
-          Events.onClick(MassPanic(ToggleRepoSelection(index))),
-        },
-        list{},
-      ),
-      // Status badge
-      statusBadge(repo.status),
-      // Repo name
-      div(
-        list{Attrs.class_("flex-1 min-w-0")},
-        list{
-          div(
-            list{Attrs.class_("text-sm text-gray-200 font-mono truncate")},
-            list{text(repo.repoName)},
-          ),
-          div(
-            list{Attrs.class_("text-xs text-gray-500 font-mono truncate")},
-            list{text(repo.repoPath)},
-          ),
-        },
-      ),
-      // Findings count
-      span(
-        list{Attrs.class_("text-sm text-gray-300 font-mono min-w-[60px] text-right")},
-        list{text(Int.toString(repo.totalFindings))},
-      ),
-      // Severity pills
-      severityPills(repo),
-      // Files scanned
-      span(
-        list{Attrs.class_("text-xs text-gray-500 font-mono min-w-[40px] text-right")},
-        list{text(`${Int.toString(repo.filesScanned)}f`)},
-      ),
-      // Duration
-      span(
-        list{Attrs.class_("text-xs text-gray-500 font-mono min-w-[50px] text-right")},
-        list{
-          text(
-            switch repo.scanDuration {
-            | Some(d) => `${Float.toFixed(d, ~digits=1)}s`
-            | None => "-"
-            },
-          ),
-        },
-      ),
-      // BLAKE3 hash indicator
-      switch repo.blake3Hash {
-      | Some(_) => span(list{Attrs.class_("text-xs text-emerald-600")}, list{text("#")})
-      | None => noNode
-      },
-    },
-  )
-}
-
-/// Delta comparison row.
-let deltaRow = (entry: deltaEntry): Tea_Vdom.t<msg> => {
-  let dirColour = switch entry.changeDirection {
-  | "improved" => "text-emerald-400"
-  | "regressed" => "text-red-400"
-  | "new" => "text-amber-400"
-  | _ => "text-gray-400"
-  }
-  div(
-    list{Attrs.class_("flex items-center gap-3 py-1.5 px-3 border-b border-gray-700 text-sm")},
-    list{
-      span(
-        list{Attrs.class_(`font-mono font-bold ${dirColour} min-w-[80px]`)},
-        list{text(String.toUpperCase(entry.changeDirection))},
-      ),
-      span(
-        list{Attrs.class_("flex-1 text-gray-200 font-mono truncate")},
-        list{text(entry.repoName)},
-      ),
-      if entry.newFindings > 0 {
-        span(
-          list{Attrs.class_("text-red-400 font-mono")},
-          list{text(`+${Int.toString(entry.newFindings)}`)},
-        )
-      } else {
-        noNode
-      },
-      if entry.fixedFindings > 0 {
-        span(
-          list{Attrs.class_("text-emerald-400 font-mono")},
-          list{text(`-${Int.toString(entry.fixedFindings)}`)},
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-/// Render a filter button.
-let filterBtn = (mode: repoFilterMode, lbl: string, activeMode: repoFilterMode): Tea_Vdom.t<
-  msg,
-> => {
-  let active = activeMode == mode
-  button(
-    list{
-      Attrs.class_(
-        `px-2 py-0.5 rounded font-mono text-xs ${active
-            ? "bg-amber-600 text-white"
-            : "bg-gray-700 text-gray-400 hover:bg-gray-600"}`,
-      ),
-      Events.onClick(MassPanic(SetFilterMode(mode))),
-    },
-    list{text(lbl)},
-  )
-}
-
-/// Render a sort button.
-let sortBtn = (mode: repoSortMode, lbl: string, activeMode: repoSortMode): Tea_Vdom.t<msg> => {
-  let active = activeMode == mode
-  button(
-    list{
-      Attrs.class_(
-        `px-2 py-0.5 rounded font-mono text-xs ${active
-            ? "bg-gray-600 text-white"
-            : "bg-gray-750 text-gray-500 hover:bg-gray-600"}`,
-      ),
-      Events.onClick(MassPanic(SetSortMode(mode))),
-    },
-    list{text(lbl)},
-  )
-}
-
-/// Sub-view tab button.
-let viewTab = (targetView: massPanicView, lbl: string, activeView: massPanicView): Tea_Vdom.t<
-  msg,
-> => {
-  let active = activeView == targetView
-  button(
-    list{
-      Attrs.class_(
-        `px-3 py-1.5 rounded-t font-mono text-xs border-b-2 ${active
-            ? "bg-gray-800 text-white border-amber-500"
-            : "bg-gray-900 text-gray-500 border-transparent hover:text-gray-300"}`,
-      ),
-      Events.onClick(MassPanic(SwitchView(targetView))),
-    },
-    list{text(lbl)},
-  )
-}
-
-/// Risk intensity bar (horizontal coloured bar for a node's risk).
-let riskBar = (intensity: float): Tea_Vdom.t<msg> => {
-  let pct = Int.toString(Int.fromFloat(intensity *. 100.0))
-  let colour = if intensity > 0.7 {
-    "bg-red-500"
-  } else if intensity > 0.4 {
-    "bg-orange-500"
-  } else if intensity > 0.2 {
-    "bg-amber-400"
-  } else {
-    "bg-emerald-500"
-  }
-  div(
-    list{Attrs.class_("w-20 h-2 bg-gray-700 rounded overflow-hidden")},
-    list{div(list{Attrs.class_(`h-full ${colour} w-[${pct}%]`)}, list{})},
-  )
-}
-
-/// Imaging sub-view — fNIRS-style spatial health map.
-let renderImagingView = (state: massPanicState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-col h-full overflow-hidden")},
-    list{
-      // Toolbar
-      div(
-        list{Attrs.class_("flex items-center gap-3 px-4 py-2 border-b border-gray-700")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded bg-cyan-700 hover:bg-cyan-600 text-white font-mono disabled:opacity-50",
-              ),
-              Attrs.disabled(state.imagingLoading || state.reposDirectory == ""),
-              Events.onClick(MassPanic(BuildImage)),
-              KeyboardNav.onActivate(MassPanic(BuildImage)),
-            },
-            list{
-              text(
-                if state.imagingLoading {
-                  "building..."
-                } else {
-                  "build image"
-                },
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded bg-gray-700 hover:bg-gray-600 text-gray-200 font-mono",
-              ),
-              Events.onClick(MassPanic(ImportImageFile)),
-              KeyboardNav.onActivate(MassPanic(ImportImageFile)),
-            },
-            list{text("import JSON")},
-          ),
-          switch state.currentImage {
-          | Some(img) =>
-            div(
-              list{Attrs.class_("flex gap-3 ml-auto text-xs font-mono text-gray-400")},
-              list{
-                span(list{}, list{text(`${Int.toString(img.nodeCount)} nodes`)}),
-                span(list{}, list{text(`${Int.toString(img.edgeCount)} edges`)}),
-                span(
-                  list{
-                    Attrs.class_(
-                      if img.globalHealth > 0.7 {
-                        "text-emerald-400"
-                      } else if img.globalHealth > 0.4 {
-                        "text-amber-400"
-                      } else {
-                        "text-red-400"
-                      },
-                    ),
-                  },
-                  list{text(`health: ${Float.toFixed(img.globalHealth *. 100.0, ~digits=1)}%`)},
-                ),
-                span(
-                  list{},
-                  list{text(`risk: ${Float.toFixed(img.globalRisk *. 100.0, ~digits=1)}%`)},
-                ),
-                span(list{}, list{text(`${Int.toString(img.totalCritical)} critical`)}),
-              },
-            )
-          | None => noNode
-          },
-        },
-      ),
-      // Risk distribution bar
-      switch state.currentImage {
-      | Some(img) =>
-        div(
-          list{Attrs.class_("flex items-center gap-1 px-4 py-2 border-b border-gray-700 text-xs")},
-          list{
-            span(list{Attrs.class_("text-gray-500 mr-2")}, list{text("Distribution:")}),
-            span(
-              list{Attrs.class_("text-emerald-400 font-mono")},
-              list{text(`${Int.toString(img.riskDistribution.healthy)} healthy`)},
-            ),
-            span(
-              list{Attrs.class_("text-blue-400 font-mono")},
-              list{text(`${Int.toString(img.riskDistribution.low)} low`)},
-            ),
-            span(
-              list{Attrs.class_("text-amber-400 font-mono")},
-              list{text(`${Int.toString(img.riskDistribution.moderate)} mod`)},
-            ),
-            span(
-              list{Attrs.class_("text-orange-400 font-mono")},
-              list{text(`${Int.toString(img.riskDistribution.high)} high`)},
-            ),
-            span(
-              list{Attrs.class_("text-red-400 font-mono")},
-              list{text(`${Int.toString(img.riskDistribution.critical)} crit`)},
-            ),
-          },
-        )
-      | None => noNode
-      },
-      // Node grid
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto")},
-        switch state.currentImage {
-        | None =>
-          list{
-            div(
-              list{Attrs.class_("flex items-center justify-center h-32 text-gray-500 text-sm")},
-              list{text("No system image. Click 'build image' or 'import JSON' to generate one.")},
-            ),
-          }
-        | Some(img) =>
-          img.nodes
-          ->Array.map(node =>
-            div(
-              list{
-                Attrs.class_(
-                  "flex items-center gap-3 py-2 px-4 border-b border-gray-700 hover:bg-gray-800/50",
-                ),
-              },
-              list{
-                // Health indicator
-                span(
-                  list{
-                    Attrs.class_(
-                      `w-2 h-2 rounded-full ${if node.healthScore > 0.7 {
-                          "bg-emerald-500"
-                        } else if node.healthScore > 0.4 {
-                          "bg-amber-500"
-                        } else {
-                          "bg-red-500"
-                        }}`,
-                    ),
-                  },
-                  list{},
-                ),
-                // Name
-                div(
-                  list{Attrs.class_("flex-1 min-w-0")},
-                  list{
-                    div(
-                      list{Attrs.class_("text-sm text-gray-200 font-mono truncate")},
-                      list{text(node.name)},
-                    ),
-                    if Array.length(node.topCategories) > 0 {
-                      div(
-                        list{Attrs.class_("text-xs text-gray-500 font-mono truncate")},
-                        list{text(Array.join(node.topCategories, ", "))},
-                      )
-                    } else {
-                      noNode
-                    },
-                  },
-                ),
-                // Risk bar
-                riskBar(node.riskIntensity),
-                // Metrics
-                span(
-                  list{Attrs.class_("text-xs text-gray-400 font-mono min-w-[60px] text-right")},
-                  list{text(`${Float.toFixed(node.healthScore *. 100.0, ~digits=0)}%`)},
-                ),
-                span(
-                  list{Attrs.class_("text-xs text-gray-500 font-mono min-w-[40px] text-right")},
-                  list{text(`${Int.toString(node.weakPointCount)}wp`)},
-                ),
-                if node.criticalCount > 0 {
-                  span(
-                    list{Attrs.class_("text-xs text-red-400 font-mono")},
-                    list{text(`${Int.toString(node.criticalCount)}C`)},
-                  )
-                } else {
-                  noNode
-                },
-                if node.skipped {
-                  span(list{Attrs.class_("text-xs text-blue-500")}, list{text("skipped")})
-                } else {
-                  noNode
-                },
-              },
-            )
-          )
-          ->List.fromArray
-        },
-      ),
-    },
-  )
-}
-
-/// Temporal sub-view — time-series snapshot navigation.
-let renderTemporalView = (state: massPanicState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-col h-full overflow-hidden")},
-    list{
-      // Toolbar
-      div(
-        list{Attrs.class_("flex items-center gap-3 px-4 py-2 border-b border-gray-700")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded bg-violet-700 hover:bg-violet-600 text-white font-mono disabled:opacity-50",
-              ),
-              Attrs.disabled(state.temporalLoading),
-              Events.onClick(MassPanic(ListSnapshots)),
-              KeyboardNav.onActivate(MassPanic(ListSnapshots)),
-            },
-            list{
-              text(
-                if state.temporalLoading {
-                  "loading..."
-                } else {
-                  "list snapshots"
-                },
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded bg-gray-700 hover:bg-gray-600 text-gray-200 font-mono disabled:opacity-50",
-              ),
-              Attrs.disabled(
-                switch state.selectedSnapshots {
-                | (Some(_), Some(_)) => false
-                | _ => true
-                },
-              ),
-              Events.onClick(MassPanic(DiffSnapshots)),
-              KeyboardNav.onActivate(MassPanic(DiffSnapshots)),
-            },
-            list{text("diff selected")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded bg-emerald-700 hover:bg-emerald-600 text-white font-mono disabled:opacity-50",
-              ),
-              Attrs.disabled(
-                switch state.currentImage {
-                | Some(_) => false
-                | None => true
-                },
-              ),
-              Events.onClick(MassPanic(TakeSnapshot("manual"))),
-            },
-            list{text("take snapshot")},
-          ),
-        },
-      ),
-      // Diff summary (when active)
-      switch state.currentDiff {
-      | Some(diff) =>
-        div(
-          list{Attrs.class_("px-4 py-2 border-b border-gray-700 bg-gray-800")},
-          list{
-            div(
-              list{Attrs.class_("flex items-center gap-4 text-xs font-mono")},
-              list{
-                span(
-                  list{Attrs.class_("text-gray-400")},
-                  list{text(`${diff.fromLabel} → ${diff.toLabel}`)},
-                ),
-                span(
-                  list{
-                    Attrs.class_(
-                      if diff.healthDelta > 0.0 {
-                        "text-emerald-400"
-                      } else if diff.healthDelta < 0.0 {
-                        "text-red-400"
-                      } else {
-                        "text-gray-400"
-                      },
-                    ),
-                  },
-                  list{
-                    text(
-                      `health: ${if diff.healthDelta > 0.0 {
-                          "+"
-                        } else {
-                          ""
-                        }}${Float.toFixed(diff.healthDelta *. 100.0, ~digits=1)}%`,
-                    ),
-                  },
-                ),
-                span(
-                  list{
-                    Attrs.class_(
-                      if diff.weakPointDelta < 0 {
-                        "text-emerald-400"
-                      } else if diff.weakPointDelta > 0 {
-                        "text-red-400"
-                      } else {
-                        "text-gray-400"
-                      },
-                    ),
-                  },
-                  list{
-                    text(
-                      `wp: ${if diff.weakPointDelta > 0 {
-                          "+"
-                        } else {
-                          ""
-                        }}${Int.toString(diff.weakPointDelta)}`,
-                    ),
-                  },
-                ),
-                span(
-                  list{
-                    Attrs.class_(
-                      switch diff.trend {
-                      | "improving" => "text-emerald-400 font-bold"
-                      | "degrading" => "text-red-400 font-bold"
-                      | _ => "text-gray-400"
-                      },
-                    ),
-                  },
-                  list{text(String.toUpperCase(diff.trend))},
-                ),
-                span(
-                  list{Attrs.class_("text-gray-500")},
-                  list{
-                    text(
-                      `${Int.toString(Array.length(diff.improvedNodes))} improved, ${Int.toString(
-                          Array.length(diff.degradedNodes),
-                        )} degraded, ${Int.toString(diff.unchangedCount)} stable`,
-                    ),
-                  },
-                ),
-              },
-            ),
-            // Changed nodes
-            if Array.length(diff.degradedNodes) > 0 {
-              div(
-                list{Attrs.class_("mt-2")},
-                list{
-                  div(
-                    list{Attrs.class_("text-xs text-red-400 font-bold mb-1")},
-                    list{text("Degraded:")},
-                  ),
-                  div(
-                    list{Attrs.class_("max-h-24 overflow-y-auto")},
-                    diff.degradedNodes
-                    ->Array.map(nd =>
-                      div(
-                        list{Attrs.class_("flex items-center gap-2 text-xs font-mono py-0.5")},
-                        list{
-                          span(list{Attrs.class_("text-gray-200")}, list{text(nd.name)}),
-                          span(
-                            list{Attrs.class_("text-red-400")},
-                            list{
-                              text(`${Float.toFixed(nd.healthDelta *. 100.0, ~digits=1)}% health`),
-                            },
-                          ),
-                          span(
-                            list{Attrs.class_("text-gray-500")},
-                            list{
-                              text(
-                                `${if nd.weakPointDelta > 0 {
-                                    "+"
-                                  } else {
-                                    ""
-                                  }}${Int.toString(nd.weakPointDelta)} wp`,
-                              ),
-                            },
-                          ),
-                        },
-                      )
-                    )
-                    ->List.fromArray,
-                  ),
-                },
-              )
-            } else {
-              noNode
-            },
-            if Array.length(diff.improvedNodes) > 0 {
-              div(
-                list{Attrs.class_("mt-2")},
-                list{
-                  div(
-                    list{Attrs.class_("text-xs text-emerald-400 font-bold mb-1")},
-                    list{text("Improved:")},
-                  ),
-                  div(
-                    list{Attrs.class_("max-h-24 overflow-y-auto")},
-                    diff.improvedNodes
-                    ->Array.map(nd =>
-                      div(
-                        list{Attrs.class_("flex items-center gap-2 text-xs font-mono py-0.5")},
-                        list{
-                          span(list{Attrs.class_("text-gray-200")}, list{text(nd.name)}),
-                          span(
-                            list{Attrs.class_("text-emerald-400")},
-                            list{
-                              text(`+${Float.toFixed(nd.healthDelta *. 100.0, ~digits=1)}% health`),
-                            },
-                          ),
-                        },
-                      )
-                    )
-                    ->List.fromArray,
-                  ),
-                },
-              )
-            } else {
-              noNode
-            },
-          },
-        )
-      | None => noNode
-      },
-      // Snapshot timeline list
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto")},
-        if Array.length(state.snapshots) == 0 {
-          list{
-            div(
-              list{Attrs.class_("flex items-center justify-center h-32 text-gray-500 text-sm")},
-              list{
-                text(
-                  "No snapshots. Run an image scan and click 'take snapshot', or 'list snapshots' to load existing ones.",
-                ),
-              },
-            ),
-          }
-        } else {
-          state.snapshots
-          ->Array.map(snap => {
-            let (selA, selB) = state.selectedSnapshots
-            let isSelected = selA == Some(snap.sequence) || selB == Some(snap.sequence)
-            div(
-              list{
-                Attrs.class_(
-                  `flex items-center gap-3 py-2 px-4 border-b border-gray-700 cursor-pointer hover:bg-gray-800/50 ${isSelected
-                      ? "bg-violet-900/20 border-l-2 border-l-violet-500"
-                      : ""}`,
-                ),
-                Events.onClick(MassPanic(SelectSnapshot(snap.sequence, 0))),
-              },
-              list{
-                span(
-                  list{Attrs.class_("text-xs text-gray-500 font-mono min-w-[30px]")},
-                  list{text(`#${Int.toString(snap.sequence)}`)},
-                ),
-                span(list{Attrs.class_("text-sm text-gray-200 font-mono")}, list{text(snap.label)}),
-                span(
-                  list{Attrs.class_("text-xs text-gray-500 font-mono")},
-                  list{text(snap.timestamp)},
-                ),
-                span(
-                  list{Attrs.class_("text-xs text-gray-400 font-mono ml-auto")},
-                  list{text(`${Int.toString(snap.nodeCount)} nodes`)},
-                ),
-                span(
-                  list{
-                    Attrs.class_(
-                      `text-xs font-mono ${if snap.globalHealth > 0.7 {
-                          "text-emerald-400"
-                        } else if snap.globalHealth > 0.4 {
-                          "text-amber-400"
-                        } else {
-                          "text-red-400"
-                        }}`,
-                    ),
-                  },
-                  list{text(`${Float.toFixed(snap.globalHealth *. 100.0, ~digits=0)}%`)},
-                ),
-                span(
-                  list{Attrs.class_("text-xs text-gray-500 font-mono")},
-                  list{text(`${Int.toString(snap.totalWeakPoints)}wp`)},
-                ),
-              },
-            )
-          })
-          ->List.fromArray
-        },
-      ),
-    },
-  )
-}
-
-/// Main panel view.
-let view = (state: massPanicState): Tea_Vdom.t<msg> => {
-  let filtered = filterAndSort(
-    state.repoResults,
-    state.filterMode,
-    state.sortMode,
-    state.searchText,
-  )
-
-  div(
-    list{Attrs.class_("flex flex-col h-full bg-gray-900 text-gray-100 overflow-hidden")},
-    list{
-      // Header bar with tab navigation
-      div(
-        list{
-          Attrs.class_(
-            "flex items-center justify-between px-4 py-3 bg-gray-800 border-b border-gray-700",
-          ),
-        },
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              span(list{Attrs.class_("text-lg font-bold text-red-400")}, list{text("mass-panic")}),
-              // View tabs
-              div(
-                list{Attrs.class_("flex items-center gap-0 ml-4")},
-                list{
-                  viewTab(ScanView, "scan", state.activeView),
-                  viewTab(ImagingView, "imaging", state.activeView),
-                  viewTab(TemporalView, "temporal", state.activeView),
-                },
-              ),
-              if state.incremental {
-                span(
-                  list{
-                    Attrs.class_("text-xs text-blue-400 font-mono px-2 py-0.5 rounded bg-gray-700"),
-                  },
-                  list{text("BLAKE3 incremental")},
-                )
-              } else {
-                noNode
-              },
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              if state.scanning {
-                span(
-                  list{Attrs.class_("text-xs text-amber-400 animate-pulse")},
-                  list{
-                    text(
-                      switch state.currentRepo {
-                      | Some(name) => `Scanning ${name}...`
-                      | None => "Scanning..."
-                      },
-                    ),
-                  },
-                )
-              } else {
-                noNode
-              },
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-xs rounded bg-red-700 hover:bg-red-600 text-white font-mono disabled:opacity-50",
-                  ),
-                  Attrs.disabled(state.scanning || state.reposDirectory == ""),
-                  Events.onClick(MassPanic(RunAssemblyline)),
-                  KeyboardNav.onActivate(MassPanic(RunAssemblyline)),
-                },
-                list{text("scan all")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-xs rounded bg-amber-700 hover:bg-amber-600 text-white font-mono disabled:opacity-50",
-                  ),
-                  Attrs.disabled(state.scanning || Array.length(state.selectedRepos) == 0),
-                  Events.onClick(MassPanic(RunSelected)),
-                  KeyboardNav.onActivate(MassPanic(RunSelected)),
-                },
-                list{text(`scan ${Int.toString(Array.length(state.selectedRepos))} selected`)},
-              ),
-            },
-          ),
-        },
-      ),
-      // Error display (shared across all views)
-      switch state.lastError {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_("px-4 py-2 bg-red-900/30 border-b border-red-700 text-red-300 text-sm"),
-          },
-          list{
-            text(err),
-            button(
-              list{
-                Attrs.class_("ml-2 text-red-400 hover:text-red-200 text-xs"),
-                Events.onClick(MassPanic(DismissMassPanicError)),
-                KeyboardNav.onActivate(MassPanic(DismissMassPanicError)),
-              },
-              list{text("[dismiss]")},
-            ),
-          },
-        )
-      | None => noNode
-      },
-      // Sub-view content
-      switch state.activeView {
-      | ImagingView => renderImagingView(state)
-      | TemporalView => renderTemporalView(state)
-      | ScanView =>
-        // Scan view — assemblyline batch scanning
-        div(
-          list{Attrs.class_("flex flex-col flex-1 overflow-hidden")},
-          list{
-            // Directory input + controls bar
-            div(
-              list{Attrs.class_("flex items-center gap-2 px-4 py-2 border-b border-gray-700")},
-              list{
-                span(list{Attrs.class_("text-xs text-gray-500")}, list{text("Repos:")}),
-                input(
-                  list{
-                    Attrs.type_("text"),
-                    Attrs.class_(
-                      "flex-1 bg-gray-800 text-sm text-gray-200 px-2 py-1 rounded border border-gray-600 font-mono",
-                    ),
-                    Attrs.placeholder("/path/to/repos/"),
-                    Attrs.value(state.reposDirectory),
-                    Events.onInput(v => MassPanic(SetReposDirectory(v))),
-                  },
-                  list{},
-                ),
-                button(
-                  list{
-                    Attrs.class_(
-                      "px-2 py-1 text-xs rounded bg-gray-700 hover:bg-gray-600 text-gray-200 font-mono",
-                    ),
-                    Attrs.disabled(state.reposDirectory == ""),
-                    Events.onClick(MassPanic(DiscoverRepos)),
-                    KeyboardNav.onActivate(MassPanic(DiscoverRepos)),
-                  },
-                  list{text("discover")},
-                ),
-              },
-            ),
-            // Options bar: incremental, storage, filter, sort
-            div(
-              list{
-                Attrs.class_("flex items-center gap-4 px-4 py-2 border-b border-gray-700 text-xs"),
-              },
-              list{
-                label(
-                  list{Attrs.class_("flex items-center gap-1 text-gray-400 cursor-pointer")},
-                  list{
-                    input(
-                      list{
-                        Attrs.type_("checkbox"),
-                        Attrs.checked(state.incremental),
-                        Attrs.class_("w-3.5 h-3.5 accent-blue-500"),
-                        Events.onClick(MassPanic(ToggleIncremental)),
-                        KeyboardNav.onActivate(MassPanic(ToggleIncremental)),
-                      },
-                      list{},
-                    ),
-                    text("Incremental"),
-                  },
-                ),
-                label(
-                  list{Attrs.class_("flex items-center gap-1 text-gray-400 cursor-pointer")},
-                  list{
-                    input(
-                      list{
-                        Attrs.type_("checkbox"),
-                        Attrs.checked(state.notifyEnabled),
-                        Attrs.class_("w-3.5 h-3.5 accent-amber-500"),
-                        Events.onClick(MassPanic(ToggleNotify)),
-                        KeyboardNav.onActivate(MassPanic(ToggleNotify)),
-                      },
-                      list{},
-                    ),
-                    text("Notify"),
-                  },
-                ),
-                // Filter buttons
-                div(
-                  list{Attrs.class_("flex gap-1 ml-auto")},
-                  list{
-                    filterBtn(AllRepos, "All", state.filterMode),
-                    filterBtn(FindingsOnly, "Findings", state.filterMode),
-                    filterBtn(CriticalOnly, "Critical", state.filterMode),
-                    filterBtn(FailedOnly, "Failed", state.filterMode),
-                  },
-                ),
-                // Search
-                input(
-                  list{
-                    Attrs.type_("text"),
-                    Attrs.class_(
-                      "w-40 bg-gray-800 text-sm text-gray-200 px-2 py-0.5 rounded border border-gray-600 font-mono",
-                    ),
-                    Attrs.placeholder("Search repos..."),
-                    Attrs.value(state.searchText),
-                    Events.onInput(v => MassPanic(SetSearchText(v))),
-                  },
-                  list{},
-                ),
-              },
-            ),
-            // Progress bar
-            progressBar(state.progress, state.scanning),
-            // Summary bar
-            div(
-              list{Attrs.class_("px-4 border-b border-gray-700")},
-              list{summaryView(state.summary)},
-            ),
-            // Select-all bar
-            if Array.length(state.repoResults) > 0 {
-              div(
-                list{
-                  Attrs.class_(
-                    "flex items-center gap-3 px-4 py-1.5 border-b border-gray-700 bg-gray-850 text-xs",
-                  ),
-                },
-                list{
-                  label(
-                    list{Attrs.class_("flex items-center gap-1 text-gray-400 cursor-pointer")},
-                    list{
-                      input(
-                        list{
-                          Attrs.type_("checkbox"),
-                          Attrs.checked(state.selectAll),
-                          Attrs.class_("w-3.5 h-3.5 accent-amber-500"),
-                          Events.onClick(MassPanic(ToggleSelectAll)),
-                          KeyboardNav.onActivate(MassPanic(ToggleSelectAll)),
-                        },
-                        list{},
-                      ),
-                      text("Select all"),
-                    },
-                  ),
-                  span(
-                    list{Attrs.class_("text-gray-500")},
-                    list{
-                      text(
-                        `${Int.toString(Array.length(state.selectedRepos))} of ${Int.toString(
-                            Array.length(state.repoResults),
-                          )} selected`,
-                      ),
-                    },
-                  ),
-                  // Sort controls
-                  div(
-                    list{Attrs.class_("flex gap-1 ml-auto")},
-                    list{
-                      sortBtn(ByRisk, "Risk", state.sortMode),
-                      sortBtn(ByName, "Name", state.sortMode),
-                      sortBtn(ByFindings, "Findings", state.sortMode),
-                      sortBtn(ByDuration, "Time", state.sortMode),
-                    },
-                  ),
-                },
-              )
-            } else {
-              noNode
-            },
-            // Delta comparison view (when active)
-            if state.showDelta && Array.length(state.delta) > 0 {
-              div(
-                list{Attrs.class_("border-b border-gray-700")},
-                list{
-                  div(
-                    list{Attrs.class_("flex items-center gap-2 px-4 py-1.5 bg-gray-800 text-xs")},
-                    list{
-                      span(list{Attrs.class_("text-gray-400 font-bold")}, list{text("DELTA")}),
-                      span(
-                        list{Attrs.class_("text-gray-500")},
-                        list{text("Changes since previous run")},
-                      ),
-                      button(
-                        list{
-                          Attrs.class_("ml-auto text-gray-500 hover:text-gray-300"),
-                          Events.onClick(MassPanic(ToggleDelta)),
-                          KeyboardNav.onActivate(MassPanic(ToggleDelta)),
-                        },
-                        list{text("[close]")},
-                      ),
-                    },
-                  ),
-                  div(
-                    list{Attrs.class_("max-h-40 overflow-y-auto")},
-                    state.delta->Array.map(deltaRow)->List.fromArray,
-                  ),
-                },
-              )
-            } else {
-              noNode
-            },
-            // Repo results list
-            div(
-              list{Attrs.class_("flex-1 overflow-y-auto")},
-              if Array.length(filtered) == 0 && !state.scanning {
-                list{
-                  div(
-                    list{
-                      Attrs.class_("flex items-center justify-center h-32 text-gray-500 text-sm"),
-                    },
-                    list{
-                      text(
-                        if Array.length(state.repoResults) == 0 {
-                          "No repos discovered. Enter a directory path and click 'discover'."
-                        } else {
-                          "No repos match the current filter."
-                        },
-                      ),
-                    },
-                  ),
-                }
-              } else {
-                filtered
-                ->Array.mapWithIndex((repo, index) => {
-                  let isSelected = state.selectedRepos->Array.includes(index)
-                  repoRow(repo, index, isSelected)
-                })
-                ->List.fromArray
-              },
-            ),
-          },
-        )
-      },
-      // Footer
-      div(
-        list{
-          Attrs.class_(
-            "flex items-center justify-between px-4 py-2 bg-gray-800 border-t border-gray-700 text-xs text-gray-500",
-          ),
-        },
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              span(list{}, list{text(`${Int.toString(Array.length(state.repoResults))} repos`)}),
-              switch state.storage {
-              | NoStorage => noNode
-              | Filesystem(path) =>
-                span(list{Attrs.class_("text-emerald-600")}, list{text(`store: ${path}`)})
-              | VerisimDB(path) =>
-                span(list{Attrs.class_("text-cyan-500")}, list{text(`verisim: ${path}`)})
-              },
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              if state.showDelta {
-                noNode
-              } else {
-                button(
-                  list{
-                    Attrs.class_("text-gray-500 hover:text-gray-300"),
-                    Attrs.disabled(state.scanning),
-                    Events.onClick(MassPanic(ToggleDelta)),
-                    KeyboardNav.onActivate(MassPanic(ToggleDelta)),
-                  },
-                  list{text("show delta")},
-                )
-              },
-              span(list{}, list{text("panic-attack 2.1.0 — mass-panic mode")}),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/MenuBar.affine b/src/components/MenuBar.affine
new file mode 100644
index 00000000..1106f282
--- /dev/null
+++ b/src/components/MenuBar.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MenuBar;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/MenuBar.res b/src/components/MenuBar.res
deleted file mode 100644
index 214b51a3..00000000
--- a/src/components/MenuBar.res
+++ /dev/null
@@ -1,233 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL MenuBar — Standard application menu bar.
-///
-/// Provides File / Edit / View / Panel / Tools / Help menus following
-/// conventional desktop patterns (Notepad++, Visual Paradigm, VS Code).
-///
-/// Menu items dispatch to the unified msg type via `MenuBar(MenuAction(id))`.
-/// The Update module routes these action IDs to the appropriate sub-updaters.
-///
-/// Interoperability: Menu structure mirrors standard IDE conventions so that
-/// users of Visual Paradigm, VS Code, Notepad++, etc. find familiar
-/// entry points. Items map to PanLL's unique features behind standard names.
-
-open Model
-open Msg
-open Tea.Html
-
-// ===========================================================================
-// Menu item definitions
-// ===========================================================================
-
-/// A single menu item: label, action ID, keyboard shortcut hint (optional).
-type rec menuItem =
-  | Action(string, string, option<string>) // (label, actionId, shortcut)
-  | Separator
-  | SubMenu(string, array<menuItem>) // (label, children)
-
-/// File menu items — workspace, import/export, sessions.
-let fileMenuItems: array<menuItem> = [
-  Action("New Workspace", "file:new-workspace", Some("Ctrl+N")),
-  Action("Open Repository...", "file:open-repo", Some("Ctrl+O")),
-  Separator,
-  Action("Save State", "file:save-state", Some("Ctrl+S")),
-  Action("Export ENSAID Config...", "file:export-ensaid", None),
-  Action("Export Event Chain...", "file:export-chain", None),
-  Separator,
-  Action("Import Event Chain...", "file:import-chain", None),
-  Action("Import Panic Report...", "file:import-panic", None),
-  Separator,
-  Action("Print...", "file:print", Some("Ctrl+P")),
-  Separator,
-  Action("Preferences...", "file:preferences", None),
-]
-
-/// Edit menu items — undo/redo, search, clipboard.
-let editMenuItems: array<menuItem> = [
-  Action("Undo", "edit:undo", Some("Ctrl+Z")),
-  Action("Redo", "edit:redo", Some("Ctrl+Shift+Z")),
-  Separator,
-  Action("Find in Panel...", "edit:find", Some("Ctrl+F")),
-  Action("Replace...", "edit:replace", Some("Ctrl+H")),
-  Separator,
-  Action("Clear Event Chain", "edit:clear-chain", None),
-  Action("Reset Panel State", "edit:reset-panel", Some("Ctrl+Shift+R")),
-]
-
-/// View menu items — panel visibility, layout, themes.
-let viewMenuItems: array<menuItem> = [
-  Action("Toggle Panel-L (Symbolic)", "view:toggle-pane-l", Some("Ctrl+Shift+L")),
-  Action("Toggle Panel-N (Neural)", "view:toggle-pane-n", Some("Ctrl+Shift+N")),
-  Action("Toggle Panel-W (Barycentre)", "view:toggle-pane-w", Some("Ctrl+Shift+B")),
-  Separator,
-  Action("Toggle Panel Bar", "view:toggle-panel-bar", Some("Ctrl+`")),
-  Action("Toggle Topology View", "view:toggle-topology", None),
-  Separator,
-  Action("Fullscreen", "view:fullscreen", Some("F11")),
-  Action("Light Mode", "view:light-mode", None),
-  Action("Zen Mode", "view:zen", None),
-  Action("Dark Start", "view:dark-start", None),
-  Separator,
-  Action("Accessibility Settings...", "view:accessibility", None),
-]
-
-/// Panel menu items — quick access to key overlay panels.
-let panelMenuItems: array<menuItem> = [
-  Action("AI Neural Interface", "panel:ai", None),
-  Action("VeriSimDB (VAB)", "panel:vab", None),
-  Action("CloudGuard", "panel:cloudguard", None),
-  Action("Hypatia Scanner", "panel:hypatia", None),
-  Action("Repository System", "panel:reposystem", None),
-  Separator,
-  Action("Editor Bridge (LSP + Modeling)", "panel:editor-bridge", None),
-  Action("Build Dashboard", "panel:build-dashboard", None),
-  Action("Release Manager", "panel:release-manager", None),
-  Separator,
-  Action("ECHIDNA (Prover + MOF/OCL)", "panel:echidna", None),
-  Action("TypeLL Verifier", "panel:typell", None),
-  Action("Interfaces (ABI/FFI)", "panel:interfaces", None),
-  Action("Protocol Squisher (XMI/Formats)", "panel:protocol-squisher", None),
-  Separator,
-  Action("Workspace Settings", "panel:workspace", Some("Ctrl+Shift+K")),
-  Action("Capture Tools", "panel:capture", Some("Ctrl+Shift+C")),
-  Action("Security", "panel:security", None),
-  Action("Bundle of Joy (BoJ)", "panel:boj", None),
-  Action("Provenance Map", "panel:provenance", None),
-]
-
-/// Tools menu items — analysis, diagnostics, automation, enterprise architecture.
-let toolsMenuItems: array<menuItem> = [
-  Action("ECHIDNA Theorem Prover", "tools:echidna", None),
-  Action("MOF/OCL Model Checker", "tools:mof-ocl", None),
-  Action("TSDM Directive", "tools:tsdm", None),
-  Separator,
-  Action("Panic Attacker", "tools:panic-attack", None),
-  Action("Mass Panic (Batch)", "tools:mass-panic", None),
-  Separator,
-  Action("Clade Browser", "tools:clade-browser", None),
-  Action("Protocol Squisher", "tools:protocol-squisher", None),
-  Action("7-Tentacles Compiler", "tools:tentacles", None),
-  Separator,
-  Action("Network Topology", "tools:network-topology", None),
-  Action("VM Inspector", "tools:vm-inspector", None),
-  Action("Coprocessor Monitor", "tools:coprocessors", None),
-  Action("Automation Router", "tools:automation", None),
-  Separator,
-  Action("Keyboard Shortcuts...", "tools:keybindings", None),
-]
-
-/// Help menu items.
-let helpMenuItems: array<menuItem> = [
-  Action("Welcome Tour", "help:tour", None),
-  Action("Glossary", "help:glossary", None),
-  Action("Barycentre Tour", "help:barycentre-tour", None),
-  Separator,
-  Action("About PanLL", "help:about", None),
-]
-
-// ===========================================================================
-// Rendering
-// ===========================================================================
-
-/// Render a single menu item.
-let renderMenuItem = (item: menuItem): Tea_Vdom.t<msg> => {
-  switch item {
-  | Action(label, actionId, shortcut) =>
-    button(
-      list{
-        Attrs.class_(
-          "w-full text-left px-3 py-1.5 text-xs text-gray-300 hover:bg-gray-700 hover:text-white flex items-center justify-between gap-4 whitespace-nowrap",
-        ),
-        Events.onClick(MenuBar(MenuAction(actionId))),
-      },
-      list{
-        span(list{}, list{text(label)}),
-        switch shortcut {
-        | Some(sc) =>
-          span(list{Attrs.class_("text-gray-600 text-[10px] font-mono")}, list{text(sc)})
-        | None => noNode
-        },
-      },
-    )
-  | Separator => div(list{Attrs.class_("border-t border-gray-700 my-1")}, list{})
-  | SubMenu(label, _children) =>
-    // Sub-menus rendered as expandable items (simplified — flat for now)
-    div(
-      list{Attrs.class_("px-3 py-1.5 text-xs text-gray-500 cursor-default")},
-      list{text(label ++ " >")},
-    )
-  }
-}
-
-/// Render a dropdown menu panel.
-let renderDropdown = (items: array<menuItem>): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_(
-        "absolute top-full left-0 mt-0.5 min-w-[220px] bg-gray-900 border border-gray-700 rounded-md shadow-xl shadow-black/40 py-1 z-[9990]",
-      ),
-    },
-    items
-    ->Array.map(renderMenuItem)
-    ->List.fromArray,
-  )
-}
-
-/// Render a top-level menu button.
-let renderMenuButton = (
-  label: string,
-  menu: openMenu,
-  items: array<menuItem>,
-  activeMenu: option<openMenu>,
-): Tea_Vdom.t<msg> => {
-  let isOpen = activeMenu === Some(menu)
-  div(
-    list{Attrs.class_("relative")},
-    list{
-      button(
-        list{
-          Attrs.class_(
-            `px-3 py-1 text-xs transition-colors ${isOpen
-                ? "bg-gray-700 text-white"
-                : "text-gray-400 hover:bg-gray-800 hover:text-gray-200"}`,
-          ),
-          Events.onClick(
-            if isOpen {
-              MenuBar(CloseMenus)
-            } else {
-              MenuBar(OpenMenu(menu))
-            },
-          ),
-        },
-        list{text(label)},
-      ),
-      if isOpen {
-        renderDropdown(items)
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-/// Main menu bar view — renders as a horizontal bar above the three-panel layout.
-let view = (state: menuBarState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_(
-        "flex items-center bg-gray-900/90 border-b border-gray-800 h-7 px-1 z-30 relative",
-      ),
-      Attrs.role("menubar"),
-      Attrs.ariaLabel("Application menu"),
-    },
-    list{
-      renderMenuButton("File", MenuFile, fileMenuItems, state.activeMenu),
-      renderMenuButton("Edit", MenuEdit, editMenuItems, state.activeMenu),
-      renderMenuButton("View", MenuView, viewMenuItems, state.activeMenu),
-      renderMenuButton("Panel", MenuPanel, panelMenuItems, state.activeMenu),
-      renderMenuButton("Tools", MenuTools, toolsMenuItems, state.activeMenu),
-      renderMenuButton("Help", MenuHelp, helpMenuItems, state.activeMenu),
-    },
-  )
-}
diff --git a/src/components/MergeCoordinator.affine b/src/components/MergeCoordinator.affine
new file mode 100644
index 00000000..cedb8e2a
--- /dev/null
+++ b/src/components/MergeCoordinator.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MergeCoordinator;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/MergeCoordinator.res b/src/components/MergeCoordinator.res
deleted file mode 100644
index e7059198..00000000
--- a/src/components/MergeCoordinator.res
+++ /dev/null
@@ -1,324 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL MergeCoordinator — branch management, conflict resolution, and merge queue.
-/// Directive clade panel for coordinated merge workflows.
-///
-/// Four tabs: Branches (list with ahead/behind indicators), Conflicts (diff viewer),
-/// Merge Queue (ordered queue), and History (merged branch log).
-
-open Model
-open Msg
-open Tea.Html
-
-// =========================================================================
-// Helpers
-// =========================================================================
-
-/// Human-readable label for a branch status.
-let statusLabel = (status: branchStatus): string =>
-  switch status {
-  | BrActive => "Active"
-  | BrMerging => "Merging"
-  | BrConflicted => "Conflicted"
-  | BrMerged => "Merged"
-  | BrStale => "Stale"
-  }
-
-/// Tailwind colour class for a branch status badge.
-let statusColour = (status: branchStatus): string =>
-  switch status {
-  | BrActive => "text-blue-400"
-  | BrMerging => "text-amber-400 animate-pulse"
-  | BrConflicted => "text-red-400"
-  | BrMerged => "text-emerald-400"
-  | BrStale => "text-gray-500"
-  }
-
-/// Tab bar rendering.
-let renderTabs = (active: mergeCoordinatorTab): Tea_Vdom.t<msg> => {
-  let tabs = MergeCoordinatorEngine.allTabs
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 px-4")},
-    tabs
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-3 py-2 text-sm font-medium transition-colors rounded-t ${isActive
-                ? "bg-gray-800 text-cyan-400 border-b-2 border-cyan-400"
-                : "text-gray-500 hover:text-gray-300 hover:bg-gray-900 cursor-pointer"}`,
-          ),
-          Events.onClick(MergeCoordinator(SetMcTab(tab))),
-        },
-        list{text(MergeCoordinatorEngine.tabLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-// =========================================================================
-// Tab content views
-// =========================================================================
-
-/// Branches tab: list with ahead/behind indicators and status badges.
-let renderBranchesTab = (state: mergeCoordinatorState): Tea_Vdom.t<msg> => {
-  if Array.length(state.branches) === 0 {
-    div(
-      list{Attrs.class_("p-4 text-gray-500 text-sm italic")},
-      list{text("No tracked branches. Branches appear here when merge coordination is active.")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("flex flex-col gap-2 p-4 max-h-96 overflow-y-auto")},
-      state.branches
-      ->Array.map(branch => {
-        let isSelected = state.selectedBranch === Some(branch.name)
-        let bgCls = isSelected ? "bg-gray-750 border border-cyan-700" : "bg-gray-800"
-        div(
-          list{
-            Attrs.class_(
-              `p-3 rounded border border-gray-700 cursor-pointer hover:bg-gray-750 ${bgCls}`,
-            ),
-            Events.onClick(MergeCoordinator(SelectBranch(branch.name))),
-          },
-          list{
-            div(
-              list{Attrs.class_("flex items-center justify-between mb-1")},
-              list{
-                span(
-                  list{Attrs.class_("text-sm font-mono text-gray-200")},
-                  list{text(branch.name)},
-                ),
-                span(
-                  list{Attrs.class_(`text-xs ${statusColour(branch.status)}`)},
-                  list{text(statusLabel(branch.status))},
-                ),
-              },
-            ),
-            div(
-              list{Attrs.class_("flex gap-4 text-xs text-gray-500")},
-              list{
-                span(list{}, list{text(`base: ${branch.baseBranch}`)}),
-                span(list{}, list{text(branch.author)}),
-                span(
-                  list{Attrs.class_("text-emerald-500")},
-                  list{text(`+${Int.toString(branch.aheadBy)}`)},
-                ),
-                span(
-                  list{Attrs.class_("text-red-400")},
-                  list{text(`-${Int.toString(branch.behindBy)}`)},
-                ),
-              },
-            ),
-          },
-        )
-      })
-      ->List.fromArray,
-    )
-  }
-}
-
-/// Conflicts tab: file-level conflict viewer with resolution controls.
-let renderConflictsTab = (state: mergeCoordinatorState): Tea_Vdom.t<msg> => {
-  let unresolvedCount = MergeCoordinatorEngine.countConflicts(state.conflicts)
-  if Array.length(state.conflicts) === 0 {
-    div(
-      list{Attrs.class_("p-4 text-gray-500 text-sm italic")},
-      list{text("No merge conflicts detected.")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("flex flex-col gap-2 p-4")},
-      list{
-        div(
-          list{Attrs.class_("text-sm text-gray-400 mb-1")},
-          list{
-            text(
-              `${Int.toString(Array.length(state.conflicts))} conflict(s), ${Int.toString(
-                  unresolvedCount,
-                )} unresolved`,
-            ),
-          },
-        ),
-        div(
-          list{Attrs.class_("flex flex-col gap-2 max-h-80 overflow-y-auto")},
-          state.conflicts
-          ->Array.map(conflict => {
-            let resolvedCls = conflict.resolved ? "border-emerald-800 opacity-60" : "border-red-800"
-            div(
-              list{Attrs.class_(`bg-gray-800 rounded p-3 border ${resolvedCls}`)},
-              list{
-                div(
-                  list{Attrs.class_("text-xs font-mono text-gray-300 mb-2")},
-                  list{text(conflict.filePath)},
-                ),
-                div(
-                  list{Attrs.class_("grid grid-cols-2 gap-2")},
-                  list{
-                    div(
-                      list{
-                        Attrs.class_(
-                          "bg-gray-900 rounded p-2 text-xs font-mono text-emerald-400 max-h-24 overflow-auto",
-                        ),
-                      },
-                      list{text(`ours: ${conflict.ours}`)},
-                    ),
-                    div(
-                      list{
-                        Attrs.class_(
-                          "bg-gray-900 rounded p-2 text-xs font-mono text-blue-400 max-h-24 overflow-auto",
-                        ),
-                      },
-                      list{text(`theirs: ${conflict.theirs}`)},
-                    ),
-                  },
-                ),
-                if !conflict.resolved {
-                  div(
-                    list{Attrs.class_("flex gap-2 mt-2")},
-                    list{
-                      button(
-                        list{
-                          Attrs.class_(
-                            "px-2 py-1 text-xs bg-emerald-700 text-white rounded hover:bg-emerald-600 cursor-pointer",
-                          ),
-                          Events.onClick(
-                            MergeCoordinator(ResolveConflict(conflict.filePath, "ours")),
-                          ),
-                        },
-                        list{text("Accept Ours")},
-                      ),
-                      button(
-                        list{
-                          Attrs.class_(
-                            "px-2 py-1 text-xs bg-blue-700 text-white rounded hover:bg-blue-600 cursor-pointer",
-                          ),
-                          Events.onClick(
-                            MergeCoordinator(ResolveConflict(conflict.filePath, "theirs")),
-                          ),
-                        },
-                        list{text("Accept Theirs")},
-                      ),
-                    },
-                  )
-                } else {
-                  div(list{Attrs.class_("text-xs text-emerald-500 mt-1")}, list{text("Resolved")})
-                },
-              },
-            )
-          })
-          ->List.fromArray,
-        ),
-      },
-    )
-  }
-}
-
-/// Merge Queue tab: ordered list of branches awaiting merge.
-let renderMergeQueueTab = (state: mergeCoordinatorState): Tea_Vdom.t<msg> => {
-  if Array.length(state.mergeQueue) === 0 {
-    div(list{Attrs.class_("p-4 text-gray-500 text-sm italic")}, list{text("Merge queue is empty.")})
-  } else {
-    div(
-      list{Attrs.class_("flex flex-col gap-1 p-4 max-h-80 overflow-y-auto")},
-      state.mergeQueue
-      ->Array.mapWithIndex((entry, idx) => {
-        div(
-          list{Attrs.class_("flex items-center gap-3 p-2 bg-gray-800 rounded")},
-          list{
-            span(
-              list{Attrs.class_("text-xs text-gray-500 w-6 text-right")},
-              list{text(`#${Int.toString(idx + 1)}`)},
-            ),
-            span(
-              list{Attrs.class_("text-sm font-mono text-gray-300 flex-1")},
-              list{text(entry.branchName)},
-            ),
-            if entry.checksPassed {
-              span(list{Attrs.class_("text-xs text-green-400")}, list{text("Checks passed")})
-            } else {
-              span(
-                list{Attrs.class_("text-xs text-yellow-400")},
-                list{text(`${Int.toString(Array.length(entry.pendingChecks))} checks pending`)},
-              )
-            },
-          },
-        )
-      })
-      ->List.fromArray,
-    )
-  }
-}
-
-/// History tab: placeholder for merged branch history.
-let renderHistoryTab = (_state: mergeCoordinatorState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("p-4")},
-    list{
-      div(
-        list{Attrs.class_("bg-gray-800 rounded p-4 h-48 flex items-center justify-center")},
-        list{
-          span(
-            list{Attrs.class_("text-gray-600 text-sm")},
-            list{text("Merge history will appear here as branches are merged.")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// =========================================================================
-// Main view
-// =========================================================================
-
-/// Primary view function for the Merge Coordinator panel.
-let view = (state: mergeCoordinatorState): Tea_Vdom.t<msg> => {
-  let content = switch state.activeTab {
-  | TabBranches => renderBranchesTab(state)
-  | TabConflicts => renderConflictsTab(state)
-  | TabMergeQueue => renderMergeQueueTab(state)
-  | TabHistory => renderHistoryTab(state)
-  }
-
-  div(
-    list{Attrs.class_("flex flex-col h-full bg-gray-900 text-gray-100")},
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          h2(
-            list{Attrs.class_("text-lg font-semibold text-cyan-300")},
-            list{text("Merge Coordinator")},
-          ),
-          div(
-            list{Attrs.class_("text-xs text-gray-500")},
-            list{
-              text(
-                `${Int.toString(MergeCoordinatorEngine.queueLength(state.mergeQueue))} in queue`,
-              ),
-            },
-          ),
-        },
-      ),
-      // Error display
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_("px-4 py-2 bg-red-900/30 text-red-300 text-sm border-b border-red-800"),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      // Tab bar
-      renderTabs(state.activeTab),
-      // Content
-      div(list{Attrs.class_("flex-1 overflow-y-auto")}, list{content}),
-    },
-  )
-}
diff --git a/src/components/Migration.affine b/src/components/Migration.affine
new file mode 100644
index 00000000..92c222a2
--- /dev/null
+++ b/src/components/Migration.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Migration;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Migration.res b/src/components/Migration.res
deleted file mode 100644
index e89516ed..00000000
--- a/src/components/Migration.res
+++ /dev/null
@@ -1,1017 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Migration Component — ReScript Migration Observatory dashboard.
-///
-/// Three-panel mapping visualised as a tabbed full-screen overlay:
-///   Dashboard  — Panel-W health scores, version brackets, aggregate metrics
-///   Timeline   — Panel-W session history, before/after snapshots
-///   Reports    — Panel-W generated reports (per-repo, cross-repo, v13 trial)
-///   Submissions— Panel-W review queue with approve/reject for ReScript team
-///   Merge      — Panel-N/W merge conflict resolution timeline + rollback
-///
-/// Panel-L constraints and Panel-N reasoning are woven into each tab
-/// as inline indicators rather than separate views.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a health bar — a thin coloured bar proportional to 0.0–1.0.
-let renderHealthBar = (score: float): Tea_Vdom.t<msg> => {
-  let pct = Float.toFixed(score *. 100.0, ~digits=0)
-  let barColor = if score >= 0.8 {
-    "bg-green-500"
-  } else if score >= 0.5 {
-    "bg-amber-500"
-  } else {
-    "bg-red-500"
-  }
-  div(
-    list{Attrs.class_("flex-1 bg-gray-800 rounded-full h-2")},
-    list{
-      div(
-        list{
-          Attrs.class_(`${barColor} h-full rounded-full transition-all`),
-          Attrs.prop("style", `width: ${pct}%`),
-        },
-        list{},
-      ),
-    },
-  )
-}
-
-/// Render a single repo row in the dashboard table.
-let renderRepoRow = (repo: migrationRepoSummary): Tea_Vdom.t<msg> => {
-  let trendClass = MigrationEngine.trendIndicator(repo.trend)
-  let versionColor = MigrationEngine.versionBracketColor(repo.versionBracket)
-  div(
-    list{
-      Attrs.class_("flex items-center gap-3 p-2 border-b border-gray-800 hover:bg-gray-900/50"),
-      Attrs.role("row"),
-    },
-    list{
-      // Blocked indicator
-      if repo.blocked {
-        span(list{Attrs.class_("text-xs text-red-400 w-8")}, list{text("BLK")})
-      } else {
-        span(list{Attrs.class_("text-xs text-green-400 w-8")}, list{text("OK")})
-      },
-      // Repo name
-      span(
-        list{Attrs.class_("text-sm text-gray-200 w-40 truncate font-medium")},
-        list{text(repo.name)},
-      ),
-      // Version bracket badge
-      span(
-        list{Attrs.class_(`text-xs text-gray-900 px-2 py-0.5 rounded ${versionColor}`)},
-        list{text(MigrationEngine.versionBracketLabel(repo.versionBracket))},
-      ),
-      // Health bar
-      div(
-        list{Attrs.class_("flex-1 flex items-center gap-2")},
-        list{
-          renderHealthBar(repo.healthScore),
-          span(
-            list{
-              Attrs.class_(
-                `text-xs w-10 text-right ${MigrationEngine.healthColor(repo.healthScore)}`,
-              ),
-            },
-            list{text(MigrationEngine.healthPercent(repo.healthScore))},
-          ),
-        },
-      ),
-      // Trend
-      span(
-        list{Attrs.class_(`text-xs w-12 ${trendClass}`)},
-        list{text(MigrationEngine.trendLabel(repo.trend))},
-      ),
-      // Deprecated / modern counts
-      span(
-        list{Attrs.class_("text-xs text-red-400 w-16 text-right")},
-        list{text(`${Int.toString(repo.deprecatedCount)} dep`)},
-      ),
-      span(
-        list{Attrs.class_("text-xs text-green-400 w-16 text-right")},
-        list{text(`${Int.toString(repo.modernCount)} mod`)},
-      ),
-      // Config format
-      span(
-        list{Attrs.class_("text-xs text-gray-500 w-24 text-right")},
-        list{text(MigrationEngine.configFormatLabel(repo.configFormat))},
-      ),
-    },
-  )
-}
-
-/// Render the version bracket distribution as horizontal stacked segments.
-let renderVersionDistribution = (repos: array<migrationRepoSummary>): Tea_Vdom.t<msg> => {
-  let groups = MigrationEngine.groupByVersion(repos)
-  let total = Array.length(repos)
-  if total === 0 {
-    div(list{Attrs.class_("text-gray-500 text-sm")}, list{text("No repos loaded")})
-  } else {
-    div(
-      list{Attrs.class_("space-y-2")},
-      list{
-        div(list{Attrs.class_("text-sm text-gray-400 mb-2")}, list{text("Version Distribution")}),
-        div(
-          list{Attrs.class_("flex h-6 rounded overflow-hidden")},
-          groups
-          ->Array.map(((bracket, rs)) => {
-            let count = Array.length(rs)
-            let pct = Float.toFixed(Int.toFloat(count) /. Int.toFloat(total) *. 100.0, ~digits=0)
-            let color = MigrationEngine.versionBracketColor(bracket)
-            div(
-              list{
-                Attrs.class_(`${color} flex items-center justify-center`),
-                Attrs.prop("style", `width: ${pct}%`),
-                Attrs.title(
-                  `${MigrationEngine.versionBracketLabel(bracket)}: ${Int.toString(count)} repos`,
-                ),
-              },
-              list{
-                if count > 2 {
-                  span(
-                    list{Attrs.class_("text-xs text-gray-900 font-medium")},
-                    list{text(Int.toString(count))},
-                  )
-                } else {
-                  noNode
-                },
-              },
-            )
-          })
-          ->List.fromArray,
-        ),
-        // Legend
-        div(
-          list{Attrs.class_("flex flex-wrap gap-3 mt-2")},
-          groups
-          ->Array.map(((bracket, rs)) => {
-            let color = MigrationEngine.versionBracketColor(bracket)
-            div(
-              list{Attrs.class_("flex items-center gap-1")},
-              list{
-                div(list{Attrs.class_(`w-3 h-3 rounded ${color}`)}, list{}),
-                span(
-                  list{Attrs.class_("text-xs text-gray-400")},
-                  list{
-                    text(
-                      `${MigrationEngine.versionBracketLabel(bracket)} (${Int.toString(
-                          Array.length(rs),
-                        )})`,
-                    ),
-                  },
-                ),
-              },
-            )
-          })
-          ->List.fromArray,
-        ),
-      },
-    )
-  }
-}
-
-/// Render the constraint summary strip (Panel-L inline).
-let renderConstraintStrip = (constraints: array<migrationConstraint>): Tea_Vdom.t<msg> => {
-  let unsatisfied = constraints->Array.filter(c => !c.satisfied)
-  let count = Array.length(unsatisfied)
-  if count === 0 {
-    div(
-      list{
-        Attrs.class_(
-          "text-xs text-green-400 px-3 py-1 bg-green-900/20 border border-green-800 rounded",
-        ),
-      },
-      list{text("All migration constraints satisfied")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("flex flex-wrap gap-2")},
-      list{
-        span(
-          list{Attrs.class_("text-xs text-red-400 font-medium")},
-          list{text(`${Int.toString(count)} constraints remaining:`)},
-        ),
-        ...unsatisfied
-        ->Array.map(c =>
-          span(
-            list{Attrs.class_("text-xs px-2 py-0.5 bg-red-900/30 border border-red-800 rounded")},
-            list{
-              text(
-                `${c.pattern} (${Int.toString(c.totalCount)} in ${Int.toString(
-                    c.repoCount,
-                  )} repos)`,
-              ),
-            },
-          )
-        )
-        ->List.fromArray,
-      },
-    )
-  }
-}
-
-/// Render proof obligation indicators (Panel-L inline).
-let renderObligations = (obligations: array<migrationObligation>): Tea_Vdom.t<msg> => {
-  if Array.length(obligations) === 0 {
-    noNode
-  } else {
-    let met = obligations->Array.filter(o => o.met)->Array.length
-    let total = Array.length(obligations)
-    div(
-      list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-4")},
-      list{
-        div(
-          list{Attrs.class_("flex items-center gap-2 mb-3")},
-          list{
-            span(
-              list{Attrs.class_("text-sm font-medium text-gray-300")},
-              list{text("Proof Obligations")},
-            ),
-            span(
-              list{Attrs.class_("text-xs text-gray-500")},
-              list{text(`${Int.toString(met)}/${Int.toString(total)} met`)},
-            ),
-          },
-        ),
-        div(
-          list{Attrs.class_("space-y-1")},
-          obligations
-          ->Array.map(o => {
-            let icon = o.met ? "text-green-400" : "text-red-400"
-            let mark = o.met ? "[OK]" : "[!!]"
-            div(
-              list{Attrs.class_("flex items-center gap-2 text-xs")},
-              list{
-                span(list{Attrs.class_(icon)}, list{text(mark)}),
-                span(list{Attrs.class_("text-gray-400")}, list{text(o.repo)}),
-                span(list{Attrs.class_("text-gray-500")}, list{text(o.property)}),
-              },
-            )
-          })
-          ->List.fromArray,
-        ),
-      },
-    )
-  }
-}
-
-/// Render a migration session row.
-let renderSessionRow = (session: migrationSession): Tea_Vdom.t<msg> => {
-  let statusClass = session.active ? "text-amber-400" : "text-gray-400"
-  let statusText = session.active ? "In Progress" : "Complete"
-  div(
-    list{Attrs.class_("flex items-center gap-3 p-3 border-b border-gray-800")},
-    list{
-      span(list{Attrs.class_(`text-xs ${statusClass} w-16`)}, list{text(statusText)}),
-      span(list{Attrs.class_("text-sm text-gray-200 w-32 truncate")}, list{text(session.label)}),
-      span(list{Attrs.class_("text-xs text-gray-500 w-40 truncate")}, list{text(session.repoPath)}),
-      div(
-        list{Attrs.class_("flex items-center gap-2 flex-1")},
-        list{
-          span(
-            list{Attrs.class_("text-xs text-gray-400")},
-            list{text(`Before: ${MigrationEngine.healthPercent(session.beforeHealth)}`)},
-          ),
-          switch session.afterHealth {
-          | Some(after) =>
-            span(
-              list{Attrs.class_("text-xs text-gray-400")},
-              list{text(`After: ${MigrationEngine.healthPercent(after)}`)},
-            )
-          | None => noNode
-          },
-          switch session.healthDelta {
-          | Some(delta) =>
-            let deltaClass = delta > 0.0 ? "text-green-400" : "text-red-400"
-            let sign = delta > 0.0 ? "+" : ""
-            span(
-              list{Attrs.class_(`text-xs font-medium ${deltaClass}`)},
-              list{text(`${sign}${Float.toFixed(delta *. 100.0, ~digits=1)}%`)},
-            )
-          | None => noNode
-          },
-        },
-      ),
-      span(
-        list{Attrs.class_("text-xs text-gray-500 w-20 text-right")},
-        list{text(`${Int.toString(session.issueCount)} issues`)},
-      ),
-      span(
-        list{Attrs.class_("text-xs text-gray-600 w-28 text-right")},
-        list{text(session.startedAt)},
-      ),
-    },
-  )
-}
-
-/// Render a submission row with approve/reject controls.
-let renderSubmissionRow = (sub: migrationSubmission): Tea_Vdom.t<msg> => {
-  let statusColor = MigrationEngine.submissionStatusColor(sub.status)
-  div(
-    list{Attrs.class_("flex items-center gap-3 p-3 border-b border-gray-800")},
-    list{
-      span(
-        list{Attrs.class_(`text-xs ${statusColor} w-16`)},
-        list{text(MigrationEngine.submissionStatusLabel(sub.status))},
-      ),
-      div(
-        list{Attrs.class_("flex-1")},
-        list{
-          div(list{Attrs.class_("text-sm text-gray-200")}, list{text(sub.title)}),
-          div(
-            list{Attrs.class_("text-xs text-gray-500")},
-            list{text(`${sub.repo} | ${sub.severity}`)},
-          ),
-        },
-      ),
-      if sub.status == SubmissionPending {
-        div(
-          list{Attrs.class_("flex gap-2")},
-          list{
-            button(
-              list{
-                Attrs.class_(
-                  "px-2 py-1 text-xs bg-green-700 text-white rounded hover:bg-green-600",
-                ),
-                Events.onClick(Migration(ApproveSubmission(sub.id))),
-              },
-              list{text("Approve")},
-            ),
-            button(
-              list{
-                Attrs.class_("px-2 py-1 text-xs bg-red-700 text-white rounded hover:bg-red-600"),
-                Events.onClick(Migration(RejectSubmission(sub.id))),
-              },
-              list{text("Reject")},
-            ),
-          },
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-/// Render a merge resolution row.
-let renderMergeRow = (merge: mergeResolution): Tea_Vdom.t<msg> => {
-  let statusColor = switch merge.status {
-  | "in_progress" => "text-amber-400"
-  | "accepted" => "text-green-400"
-  | "rolled_back" => "text-red-400"
-  | _ => "text-gray-400"
-  }
-  let confColor = if merge.avgConfidence >= 0.9 {
-    "text-green-400"
-  } else if merge.avgConfidence >= 0.7 {
-    "text-amber-400"
-  } else {
-    "text-red-400"
-  }
-  div(
-    list{Attrs.class_("flex items-center gap-3 p-3 border-b border-gray-800")},
-    list{
-      span(list{Attrs.class_(`text-xs ${statusColor} w-16`)}, list{text(merge.status)}),
-      span(list{Attrs.class_("text-sm text-gray-200 w-32 truncate")}, list{text(merge.repo)}),
-      span(
-        list{Attrs.class_("text-xs text-gray-500 w-40")},
-        list{text(`${merge.sourceBranch} -> ${merge.targetBranch}`)},
-      ),
-      span(
-        list{Attrs.class_("text-xs text-gray-400 w-24")},
-        list{
-          text(
-            `${Int.toString(merge.resolvedCount)}/${Int.toString(merge.conflictCount)} resolved`,
-          ),
-        },
-      ),
-      span(
-        list{Attrs.class_(`text-xs w-16 ${confColor}`)},
-        list{text(`${Float.toFixed(merge.avgConfidence *. 100.0, ~digits=0)}% conf`)},
-      ),
-      if merge.status === "in_progress" {
-        div(
-          list{Attrs.class_("flex gap-2")},
-          list{
-            button(
-              list{
-                Attrs.class_(
-                  "px-2 py-1 text-xs bg-green-700 text-white rounded hover:bg-green-600",
-                ),
-                Events.onClick(Migration(AcceptMerge(merge.sessionId))),
-              },
-              list{text("Accept")},
-            ),
-            button(
-              list{
-                Attrs.class_("px-2 py-1 text-xs bg-red-700 text-white rounded hover:bg-red-600"),
-                Events.onClick(Migration(RollbackMerge(merge.sessionId))),
-              },
-              list{text("Rollback")},
-            ),
-          },
-        )
-      } else {
-        noNode
-      },
-      span(
-        list{Attrs.class_("text-xs text-gray-600 w-28 text-right")},
-        list{text(merge.timestamp)},
-      ),
-    },
-  )
-}
-
-/// Render the category tabs.
-let renderTabs = (active: migrationCategory): Tea_Vdom.t<msg> => {
-  let tabs: array<migrationCategory> = [
-    MigrationDashboard,
-    MigrationTimeline,
-    MigrationReports,
-    MigrationSubmissions,
-    MigrationMergeResolver,
-  ]
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 mb-4"), Attrs.role("tablist")},
-    tabs
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-4 py-2 text-sm rounded-t transition-colors ${isActive
-                ? "bg-gray-800 text-gray-200 border-b-2 border-indigo-500"
-                : "text-gray-500 hover:text-gray-300"}`,
-          ),
-          Attrs.role("tab"),
-          Attrs.ariaSelected(isActive),
-          Events.onClick(Migration(SetMigrationCategory(tab))),
-        },
-        list{text(MigrationEngine.categoryLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Render the report type selector pills.
-let renderReportTypeSelector = (active: migrationReportType): Tea_Vdom.t<msg> => {
-  let types: array<migrationReportType> = [PerRepoReport, CrossRepoReport, V13TrialReport]
-  div(
-    list{Attrs.class_("flex gap-2 mb-4")},
-    types
-    ->Array.map(rt => {
-      let isActive = rt === active
-      button(
-        list{
-          Attrs.class_(
-            `px-3 py-1 text-xs rounded transition-colors ${isActive
-                ? "bg-indigo-600 text-white"
-                : "bg-gray-800 text-gray-400 hover:text-gray-200"}`,
-          ),
-          Events.onClick(Migration(SetMigrationReportType(rt))),
-        },
-        list{text(MigrationEngine.reportTypeLabel(rt))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Dashboard tab — aggregate stats + version distribution + repo table.
-let renderDashboard = (mig: migrationState): Tea_Vdom.t<msg> => {
-  let filtered = MigrationEngine.filterRepos(mig.repos, mig.filterText)
-  div(
-    list{Attrs.class_("space-y-6")},
-    list{
-      // Stat cards
-      div(
-        list{Attrs.class_("flex gap-4 text-sm")},
-        list{
-          div(
-            list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-3 flex-1")},
-            list{
-              div(
-                list{Attrs.class_("text-gray-500 text-xs uppercase tracking-wider mb-1")},
-                list{text("Repos")},
-              ),
-              div(
-                list{Attrs.class_("text-2xl font-light text-gray-200")},
-                list{text(Int.toString(mig.totalRepos))},
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-3 flex-1")},
-            list{
-              div(
-                list{Attrs.class_("text-gray-500 text-xs uppercase tracking-wider mb-1")},
-                list{text("Avg Health")},
-              ),
-              div(
-                list{
-                  Attrs.class_(`text-2xl font-light ${MigrationEngine.healthColor(mig.avgHealth)}`),
-                },
-                list{text(MigrationEngine.healthPercent(mig.avgHealth))},
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-3 flex-1")},
-            list{
-              div(
-                list{Attrs.class_("text-gray-500 text-xs uppercase tracking-wider mb-1")},
-                list{text("Ready")},
-              ),
-              div(
-                list{Attrs.class_("text-2xl font-light text-green-400")},
-                list{text(Int.toString(mig.readyCount))},
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-3 flex-1")},
-            list{
-              div(
-                list{Attrs.class_("text-gray-500 text-xs uppercase tracking-wider mb-1")},
-                list{text("Blocked")},
-              ),
-              div(
-                list{Attrs.class_("text-2xl font-light text-red-400")},
-                list{text(Int.toString(mig.blockedCount))},
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-3 flex-1")},
-            list{
-              div(
-                list{Attrs.class_("text-gray-500 text-xs uppercase tracking-wider mb-1")},
-                list{text("Velocity")},
-              ),
-              div(
-                list{Attrs.class_("text-2xl font-light text-indigo-400")},
-                list{text(`${Float.toFixed(mig.velocity *. 100.0, ~digits=1)}%/sess`)},
-              ),
-            },
-          ),
-        },
-      ),
-      // Constraints strip (Panel-L inline)
-      renderConstraintStrip(mig.constraints),
-      // Version distribution
-      renderVersionDistribution(mig.repos),
-      // Proof obligations
-      renderObligations(mig.obligations),
-      // Repo table
-      div(
-        list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg overflow-hidden")},
-        list{
-          div(
-            list{
-              Attrs.class_(
-                "flex items-center gap-3 p-3 border-b border-gray-700 text-xs text-gray-500 uppercase tracking-wider",
-              ),
-            },
-            list{
-              span(list{Attrs.class_("w-8")}, list{text("St")}),
-              span(list{Attrs.class_("w-40")}, list{text("Repository")}),
-              span(list{Attrs.class_("w-20")}, list{text("Version")}),
-              span(list{Attrs.class_("flex-1")}, list{text("Health")}),
-              span(list{Attrs.class_("w-12")}, list{text("Trend")}),
-              span(list{Attrs.class_("w-16 text-right")}, list{text("Depr.")}),
-              span(list{Attrs.class_("w-16 text-right")}, list{text("Modern")}),
-              span(list{Attrs.class_("w-24 text-right")}, list{text("Config")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("max-h-96 overflow-y-auto")},
-            filtered->Array.map(r => renderRepoRow(r))->List.fromArray,
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Timeline tab — session history.
-let renderTimeline = (mig: migrationState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-4")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-2")},
-        list{
-          div(
-            list{Attrs.class_("text-sm text-gray-400")},
-            list{
-              text(`${Int.toString(MigrationEngine.activeSessions(mig.sessions))} active sessions`),
-            },
-          ),
-        },
-      ),
-      if Array.length(mig.sessions) === 0 {
-        div(
-          list{Attrs.class_("text-center text-gray-500 mt-8")},
-          list{
-            div(list{Attrs.class_("text-lg mb-2")}, list{text("No observation sessions")}),
-            div(
-              list{Attrs.class_("text-sm")},
-              list{text("Use feedback-o-tron to begin a migration observation")},
-            ),
-          },
-        )
-      } else {
-        div(
-          list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg overflow-hidden")},
-          list{
-            div(
-              list{Attrs.class_("max-h-96 overflow-y-auto")},
-              mig.sessions->Array.map(s => renderSessionRow(s))->List.fromArray,
-            ),
-          },
-        )
-      },
-    },
-  )
-}
-
-/// Reports tab — report type selector + placeholder for generated content.
-let renderReports = (mig: migrationState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-4")},
-    list{
-      renderReportTypeSelector(mig.activeReportType),
-      div(
-        list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-6")},
-        list{
-          switch mig.activeReportType {
-          | PerRepoReport =>
-            div(
-              list{},
-              list{
-                div(
-                  list{Attrs.class_("text-sm font-medium text-gray-300 mb-2")},
-                  list{text("Per-Repository Reports")},
-                ),
-                div(
-                  list{Attrs.class_("text-xs text-gray-500 mb-4")},
-                  list{text("Before/after migration tables, issues, recommendations per repo")},
-                ),
-                if Array.length(mig.repos) > 0 {
-                  div(
-                    list{Attrs.class_("space-y-2")},
-                    mig.repos
-                    ->Array.map(r =>
-                      div(
-                        list{
-                          Attrs.class_("flex items-center gap-3 p-2 hover:bg-gray-800/50 rounded"),
-                        },
-                        list{
-                          span(
-                            list{Attrs.class_("text-sm text-gray-300 w-40")},
-                            list{text(r.name)},
-                          ),
-                          renderHealthBar(r.healthScore),
-                          span(
-                            list{
-                              Attrs.class_(`text-xs ${MigrationEngine.healthColor(r.healthScore)}`),
-                            },
-                            list{text(MigrationEngine.healthPercent(r.healthScore))},
-                          ),
-                          span(
-                            list{Attrs.class_("text-xs text-gray-500")},
-                            list{text(`${Int.toString(r.deprecatedCount)} deprecated`)},
-                          ),
-                        },
-                      )
-                    )
-                    ->List.fromArray,
-                  )
-                } else {
-                  div(
-                    list{Attrs.class_("text-gray-500 text-sm")},
-                    list{
-                      text("No repo data available. Run panic-attack migration-snapshot first."),
-                    },
-                  )
-                },
-              },
-            )
-          | CrossRepoReport =>
-            div(
-              list{},
-              list{
-                div(
-                  list{Attrs.class_("text-sm font-medium text-gray-300 mb-2")},
-                  list{text("Cross-Repository Aggregation")},
-                ),
-                div(
-                  list{Attrs.class_("text-xs text-gray-500 mb-4")},
-                  list{text("Common pain points, average health improvement, migration velocity")},
-                ),
-                div(
-                  list{Attrs.class_("flex gap-4 text-xs text-gray-400")},
-                  list{
-                    span(list{}, list{text(`${Int.toString(mig.totalRepos)} repos tracked`)}),
-                    span(
-                      list{},
-                      list{text(`Avg health: ${MigrationEngine.healthPercent(mig.avgHealth)}`)},
-                    ),
-                    span(
-                      list{},
-                      list{
-                        text(
-                          `Velocity: ${Float.toFixed(mig.velocity *. 100.0, ~digits=1)}%/session`,
-                        ),
-                      },
-                    ),
-                  },
-                ),
-              },
-            )
-          | V13TrialReport =>
-            div(
-              list{},
-              list{
-                div(
-                  list{Attrs.class_("text-sm font-medium text-gray-300 mb-2")},
-                  list{text("v13 Pre-Release Trial Report")},
-                ),
-                div(
-                  list{Attrs.class_("text-xs text-gray-500 mb-4")},
-                  list{text("Performance data, regressions, missing features for ReScript team")},
-                ),
-                div(
-                  list{Attrs.class_("text-xs text-gray-500")},
-                  list{text("Generate report after completing v13 migration sessions")},
-                ),
-              },
-            )
-          },
-        },
-      ),
-    },
-  )
-}
-
-/// Submissions tab — review queue.
-let renderSubmissions = (mig: migrationState): Tea_Vdom.t<msg> => {
-  let pending = MigrationEngine.pendingSubmissions(mig.submissions)
-  div(
-    list{Attrs.class_("space-y-4")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-2")},
-        list{
-          div(
-            list{Attrs.class_("text-sm text-gray-400")},
-            list{text(`${Int.toString(pending)} pending review`)},
-          ),
-          if pending > 0 {
-            button(
-              list{
-                Attrs.class_(
-                  "px-3 py-1 text-xs bg-indigo-600 text-white rounded hover:bg-indigo-500",
-                ),
-                Events.onClick(Migration(SubmitApproved)),
-                KeyboardNav.onActivate(Migration(SubmitApproved)),
-              },
-              list{text("Submit Approved")},
-            )
-          } else {
-            noNode
-          },
-        },
-      ),
-      if Array.length(mig.submissions) === 0 {
-        div(
-          list{Attrs.class_("text-center text-gray-500 mt-8")},
-          list{
-            div(list{Attrs.class_("text-lg mb-2")}, list{text("No submissions")}),
-            div(
-              list{Attrs.class_("text-sm")},
-              list{text("Issues discovered during migration observations will appear here")},
-            ),
-          },
-        )
-      } else {
-        div(
-          list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg overflow-hidden")},
-          list{
-            div(
-              list{Attrs.class_("max-h-96 overflow-y-auto")},
-              mig.submissions->Array.map(s => renderSubmissionRow(s))->List.fromArray,
-            ),
-          },
-        )
-      },
-    },
-  )
-}
-
-/// Merge Resolver tab — conflict resolution timeline.
-let renderMergeResolver = (mig: migrationState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-4")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-2")},
-        list{
-          div(
-            list{Attrs.class_("text-sm text-gray-400")},
-            list{text(`${Int.toString(Array.length(mig.mergeResolutions))} merge sessions`)},
-          ),
-        },
-      ),
-      if Array.length(mig.mergeResolutions) === 0 {
-        div(
-          list{Attrs.class_("text-center text-gray-500 mt-8")},
-          list{
-            div(list{Attrs.class_("text-lg mb-2")}, list{text("No merge resolutions")}),
-            div(
-              list{Attrs.class_("text-sm mb-4")},
-              list{text("Use merge-resolver to begin resolving conflicts with rollback support")},
-            ),
-            div(
-              list{Attrs.class_("text-xs text-gray-600")},
-              list{text("merge-resolver begin <REPO> <BRANCH>")},
-            ),
-          },
-        )
-      } else {
-        div(
-          list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg overflow-hidden")},
-          list{
-            div(
-              list{Attrs.class_("max-h-96 overflow-y-auto")},
-              mig.mergeResolutions->Array.map(m => renderMergeRow(m))->List.fromArray,
-            ),
-          },
-        )
-      },
-    },
-  )
-}
-
-/// Main view for the Migration Observatory panel.
-let view = (mig: migrationState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Migration Observatory panel"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between p-4 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-medium text-gray-200")},
-                list{text("Migration Observatory")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{text("ReScript migration health, sessions, submissions")},
-              ),
-              if mig.loaded {
-                span(
-                  list{Attrs.class_("text-xs text-indigo-400 ml-2")},
-                  list{
-                    text(
-                      `${Int.toString(mig.totalRepos)} repos | ${MigrationEngine.healthPercent(
-                          mig.avgHealth,
-                        )} avg`,
-                    ),
-                  },
-                )
-              } else {
-                noNode
-              },
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              // Filter input
-              if mig.loaded {
-                input(
-                  list{
-                    Attrs.class_(
-                      "px-3 py-1 text-xs bg-gray-800 border border-gray-700 rounded text-gray-300 w-48 placeholder-gray-600",
-                    ),
-                    Attrs.placeholder("Filter repos..."),
-                    Attrs.value(mig.filterText),
-                    Events.onInput(text => Migration(SetMigrationFilter(text))),
-                  },
-                  list{},
-                )
-              } else {
-                noNode
-              },
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-xs bg-indigo-600 text-white rounded hover:bg-indigo-500",
-                  ),
-                  Events.onClick(Migration(RefreshMigrationHealth)),
-                  KeyboardNav.onActivate(Migration(RefreshMigrationHealth)),
-                },
-                list{text(mig.loaded ? "Refresh" : "Load Data")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-sm bg-gray-800 text-gray-300 rounded hover:bg-gray-700",
-                  ),
-                  Events.onClick(PanelSwitcher(ClosePanels)),
-                  KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-                },
-                list{text("Close")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Content
-      div(
-        list{Attrs.class_("flex-1 overflow-auto p-6")},
-        list{
-          if !mig.loaded {
-            div(
-              list{Attrs.class_("text-center text-gray-500 mt-12")},
-              list{
-                div(list{Attrs.class_("text-4xl mb-2")}, list{text("Migration Observatory")}),
-                div(
-                  list{Attrs.class_("text-sm mb-6")},
-                  list{
-                    text(
-                      "Track ReScript migration health across 54+ repos with before/after snapshots, session observation, issue submission, and merge conflict resolution",
-                    ),
-                  },
-                ),
-                div(
-                  list{Attrs.class_("text-xs text-gray-600 mb-4")},
-                  list{
-                    text(
-                      "Data from panic-attack + feedback-o-tron + merge-resolver + Hypatia + VeriSimDB",
-                    ),
-                  },
-                ),
-                button(
-                  list{
-                    Attrs.class_("px-4 py-2 bg-indigo-600 text-white rounded hover:bg-indigo-500"),
-                    Events.onClick(Migration(LoadMigrationData)),
-                    KeyboardNav.onActivate(Migration(LoadMigrationData)),
-                  },
-                  list{text("Load Migration Data")},
-                ),
-              },
-            )
-          } else if mig.loading {
-            div(
-              list{Attrs.class_("text-center text-gray-400 mt-12"), Attrs.role("status")},
-              list{
-                div(
-                  list{Attrs.class_("text-sm animate-pulse")},
-                  list{text("Loading migration data...")},
-                ),
-              },
-            )
-          } else {
-            div(
-              list{Attrs.class_("space-y-4")},
-              list{
-                renderTabs(mig.activeCategory),
-                switch mig.activeCategory {
-                | MigrationDashboard => renderDashboard(mig)
-                | MigrationTimeline => renderTimeline(mig)
-                | MigrationReports => renderReports(mig)
-                | MigrationSubmissions => renderSubmissions(mig)
-                | MigrationMergeResolver => renderMergeResolver(mig)
-                },
-              },
-            )
-          },
-        },
-      ),
-      // Error display
-      switch mig.error {
-      | Some(e) =>
-        div(
-          list{Attrs.class_("p-3 bg-red-900/30 border-t border-red-700"), Attrs.role("alert")},
-          list{span(list{Attrs.class_("text-xs text-red-400")}, list{text(e)})},
-        )
-      | None => noNode
-      },
-    },
-  )
-}
diff --git a/src/components/Minter.affine b/src/components/Minter.affine
new file mode 100644
index 00000000..7589f1aa
--- /dev/null
+++ b/src/components/Minter.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Minter;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Minter.res b/src/components/Minter.res
deleted file mode 100644
index ef976e28..00000000
--- a/src/components/Minter.res
+++ /dev/null
@@ -1,650 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Minter Component — Panel creation wizard.
-///
-/// A multi-step wizard for minting new panel modules. Every generated panel
-/// includes accessibility, ARIA semantics, and keyboard navigation by default.
-/// The wizard itself follows the same accessibility standards.
-///
-/// Steps:
-///   0. Name & Identity — panel name, short name, description, icon
-///   1. Backend & Config — backend type, endpoint, accessibility level
-///   2. Capabilities — declare what the panel can do
-///   3. Review & Mint — preview generated files, confirm, generate
-
-open Model
-open Msg
-open Tea.Html
-
-// ============================================================================
-// Step 0: Name & Identity
-// ============================================================================
-
-/// Render the name and identity step.
-let renderStep0 = (form: minterForm): Tea_Vdom.t<msg> => {
-  let validationClass = switch form.nameValidation {
-  | NameValid => "text-green-400"
-  | NameConflict(_) => "text-red-400"
-  | NameInvalid(_) => "text-amber-400"
-  }
-  let validationText = switch form.nameValidation {
-  | NameValid => "Name is available"
-  | NameConflict(msg) => msg
-  | NameInvalid(msg) => msg
-  }
-
-  div(
-    list{Attrs.class_("space-y-6")},
-    list{
-      // Panel name
-      div(
-        list{},
-        list{
-          label(
-            list{Attrs.class_("block text-sm text-gray-400 mb-1")},
-            list{text("Panel Name (PascalCase)")},
-          ),
-          input(
-            list{
-              Attrs.class_(
-                "w-full bg-gray-800 border border-gray-700 rounded px-3 py-2 text-gray-200 focus:border-indigo-500 focus:outline-none",
-              ),
-              Attrs.value(form.panelName),
-              Attrs.placeholder("e.g. Wharf, Statistease, Fleet"),
-              Attrs.ariaLabel("Panel name in PascalCase"),
-              Events.onInput(v => Minter(SetPanelName(v))),
-            },
-            list{},
-          ),
-          div(list{Attrs.class_(`text-xs mt-1 ${validationClass}`)}, list{text(validationText)}),
-        },
-      ),
-      // Short name
-      div(
-        list{},
-        list{
-          label(
-            list{Attrs.class_("block text-sm text-gray-400 mb-1")},
-            list{text("Short Name (for panel bar)")},
-          ),
-          input(
-            list{
-              Attrs.class_(
-                "w-full bg-gray-800 border border-gray-700 rounded px-3 py-2 text-gray-200 focus:border-indigo-500 focus:outline-none",
-              ),
-              Attrs.value(form.shortName),
-              Attrs.placeholder("e.g. Wharf, Stats"),
-              Attrs.ariaLabel("Short name for panel bar"),
-              Events.onInput(v => Minter(SetShortName(v))),
-            },
-            list{},
-          ),
-        },
-      ),
-      // Description
-      div(
-        list{},
-        list{
-          label(list{Attrs.class_("block text-sm text-gray-400 mb-1")}, list{text("Description")}),
-          input(
-            list{
-              Attrs.class_(
-                "w-full bg-gray-800 border border-gray-700 rounded px-3 py-2 text-gray-200 focus:border-indigo-500 focus:outline-none",
-              ),
-              Attrs.value(form.description),
-              Attrs.placeholder("One-line description of what this panel does"),
-              Attrs.ariaLabel("Panel description"),
-              Events.onInput(v => Minter(SetDescription(v))),
-            },
-            list{},
-          ),
-        },
-      ),
-      // Icon
-      div(
-        list{},
-        list{
-          label(
-            list{Attrs.class_("block text-sm text-gray-400 mb-1")},
-            list{text("Icon identifier")},
-          ),
-          input(
-            list{
-              Attrs.class_(
-                "w-full bg-gray-800 border border-gray-700 rounded px-3 py-2 text-gray-200 focus:border-indigo-500 focus:outline-none",
-              ),
-              Attrs.value(form.icon),
-              Attrs.placeholder("e.g. shield, barn, database, globe"),
-              Attrs.ariaLabel("Icon identifier"),
-              Events.onInput(v => Minter(SetIcon(v))),
-            },
-            list{},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Step 1: Backend & Config
-// ============================================================================
-
-/// Render a backend kind option as a selectable card.
-let renderBackendOption = (kind: panelBackendKind, isSelected: bool): Tea_Vdom.t<msg> => {
-  let selectedClass = isSelected
-    ? "border-indigo-500 bg-indigo-950/30"
-    : "border-gray-700 hover:border-gray-600"
-  button(
-    list{
-      Attrs.class_(
-        `w-full text-left p-3 rounded border ${selectedClass} cursor-pointer transition-colors`,
-      ),
-      Attrs.role("radio"),
-      Attrs.ariaChecked(isSelected),
-      Events.onClick(Minter(SetBackendKind(kind))),
-    },
-    list{
-      div(
-        list{Attrs.class_("text-sm text-gray-200 font-medium")},
-        list{text(MinterEngine.backendKindLabel(kind))},
-      ),
-      div(
-        list{Attrs.class_("text-xs text-gray-500 mt-0.5")},
-        list{text(MinterEngine.backendKindDescription(kind))},
-      ),
-    },
-  )
-}
-
-/// Render the backend and configuration step.
-let renderStep1 = (form: minterForm): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-6")},
-    list{
-      // Backend kind
-      div(
-        list{},
-        list{
-          div(list{Attrs.class_("text-sm text-gray-400 mb-2")}, list{text("Backend Type")}),
-          div(
-            list{
-              Attrs.class_("space-y-2"),
-              Attrs.role("radiogroup"),
-              Attrs.ariaLabel("Backend type selection"),
-            },
-            MinterEngine.allBackendKinds
-            ->Array.map(kind => renderBackendOption(kind, kind === form.backendKind))
-            ->List.fromArray,
-          ),
-        },
-      ),
-      // Accessibility level
-      div(
-        list{},
-        list{
-          div(list{Attrs.class_("text-sm text-gray-400 mb-2")}, list{text("Accessibility Level")}),
-          div(
-            list{Attrs.class_("space-y-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    `w-full text-left p-3 rounded border cursor-pointer transition-colors ${form.accessibility ===
-                        StandardAccessibility
-                        ? "border-indigo-500 bg-indigo-950/30"
-                        : "border-gray-700 hover:border-gray-600"}`,
-                  ),
-                  Events.onClick(Minter(SetAccessibility(StandardAccessibility))),
-                },
-                list{
-                  div(
-                    list{Attrs.class_("text-sm text-gray-200 font-medium")},
-                    list{text("Standard")},
-                  ),
-                  div(
-                    list{Attrs.class_("text-xs text-gray-500 mt-0.5")},
-                    list{text(MinterEngine.accessibilityDescription(StandardAccessibility))},
-                  ),
-                },
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    `w-full text-left p-3 rounded border cursor-pointer transition-colors ${form.accessibility ===
-                        EnhancedAccessibility
-                        ? "border-indigo-500 bg-indigo-950/30"
-                        : "border-gray-700 hover:border-gray-600"}`,
-                  ),
-                  Events.onClick(Minter(SetAccessibility(EnhancedAccessibility))),
-                },
-                list{
-                  div(
-                    list{Attrs.class_("flex items-center gap-2")},
-                    list{
-                      div(
-                        list{Attrs.class_("text-sm text-gray-200 font-medium")},
-                        list{text("Enhanced (Recommended)")},
-                      ),
-                    },
-                  ),
-                  div(
-                    list{Attrs.class_("text-xs text-gray-500 mt-0.5")},
-                    list{text(MinterEngine.accessibilityDescription(EnhancedAccessibility))},
-                  ),
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Endpoint (if HTTP backend)
-      if form.backendKind === HttpBackend {
-        div(
-          list{},
-          list{
-            label(
-              list{Attrs.class_("block text-sm text-gray-400 mb-1")},
-              list{text("API Endpoint")},
-            ),
-            input(
-              list{
-                Attrs.class_(
-                  "w-full bg-gray-800 border border-gray-700 rounded px-3 py-2 text-gray-200 focus:border-indigo-500 focus:outline-none",
-                ),
-                Attrs.value(form.endpoint),
-                Attrs.placeholder("e.g. http://localhost:4000/api/v1"),
-                Attrs.ariaLabel("API endpoint URL"),
-                Events.onInput(v => Minter(SetEndpoint(v))),
-              },
-              list{},
-            ),
-          },
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-// ============================================================================
-// Step 2: Capabilities
-// ============================================================================
-
-/// Render the capabilities step.
-let renderStep2 = (form: minterForm): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-4")},
-    list{
-      div(
-        list{Attrs.class_("text-sm text-gray-400")},
-        list{
-          text(
-            "Declare what your panel can do. Capabilities control which UI elements are rendered.",
-          ),
-        },
-      ),
-      // Existing capabilities
-      div(
-        list{Attrs.class_("space-y-2")},
-        form.capabilities
-        ->Array.mapWithIndex((cap, i) =>
-          div(
-            list{Attrs.class_("flex items-center gap-2 p-2 bg-gray-800/50 rounded")},
-            list{
-              div(
-                list{Attrs.class_("flex-1")},
-                list{
-                  div(list{Attrs.class_("text-sm text-gray-200 font-mono")}, list{text(cap.id)}),
-                  div(list{Attrs.class_("text-xs text-gray-500")}, list{text(cap.label)}),
-                },
-              ),
-              button(
-                list{
-                  Attrs.class_("text-xs text-red-400 hover:text-red-300 px-2 py-1"),
-                  Attrs.ariaLabel(`Remove capability ${cap.id}`),
-                  Events.onClick(Minter(RemoveCapability(i))),
-                },
-                list{text("Remove")},
-              ),
-            },
-          )
-        )
-        ->List.fromArray,
-      ),
-      // Add capability button
-      button(
-        list{
-          Attrs.class_(
-            "px-3 py-2 text-sm bg-gray-800 text-gray-300 rounded hover:bg-gray-700 transition-colors",
-          ),
-          Attrs.ariaLabel("Add a new capability"),
-          Events.onClick(Minter(AddCapability)),
-        },
-        list{text("+ Add Capability")},
-      ),
-      if Array.length(form.capabilities) === 0 {
-        div(
-          list{Attrs.class_("text-xs text-gray-600 italic")},
-          list{text("No capabilities declared yet. A default base capability will be generated.")},
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-// ============================================================================
-// Step 3: Review & Mint
-// ============================================================================
-
-/// Render the review and mint step.
-let renderStep3 = (form: minterForm, minting: bool, lastResult: option<mintResult>): Tea_Vdom.t<
-  msg,
-> => {
-  let files = MinterEngine.fileSummary(form)
-
-  div(
-    list{Attrs.class_("space-y-6")},
-    list{
-      // Panel summary
-      div(
-        list{Attrs.class_("p-4 bg-gray-800/50 rounded-lg")},
-        list{
-          div(
-            list{Attrs.class_("text-lg font-medium text-gray-200 mb-2")},
-            list{text(form.panelName)},
-          ),
-          div(list{Attrs.class_("text-sm text-gray-400 mb-3")}, list{text(form.description)}),
-          div(
-            list{Attrs.class_("grid grid-cols-2 gap-2 text-xs")},
-            list{
-              div(list{Attrs.class_("text-gray-500")}, list{text("Backend:")}),
-              div(
-                list{Attrs.class_("text-gray-300")},
-                list{text(MinterEngine.backendKindLabel(form.backendKind))},
-              ),
-              div(list{Attrs.class_("text-gray-500")}, list{text("Accessibility:")}),
-              div(
-                list{Attrs.class_("text-gray-300")},
-                list{text(MinterEngine.accessibilityLabel(form.accessibility))},
-              ),
-              div(list{Attrs.class_("text-gray-500")}, list{text("Capabilities:")}),
-              div(
-                list{Attrs.class_("text-gray-300")},
-                list{text(Int.toString(Array.length(form.capabilities)))},
-              ),
-            },
-          ),
-        },
-      ),
-      // File list
-      div(
-        list{},
-        list{
-          div(
-            list{Attrs.class_("text-sm text-gray-400 mb-2")},
-            list{text(`${Int.toString(Array.length(files))} files will be created or patched:`)},
-          ),
-          div(
-            list{Attrs.class_("space-y-1 max-h-48 overflow-y-auto")},
-            files
-            ->Array.map(((path, desc)) =>
-              div(
-                list{Attrs.class_("flex items-center gap-2 text-xs")},
-                list{
-                  span(list{Attrs.class_("text-indigo-400 font-mono flex-1")}, list{text(path)}),
-                  span(list{Attrs.class_("text-gray-600")}, list{text(desc)}),
-                },
-              )
-            )
-            ->List.fromArray,
-          ),
-        },
-      ),
-      // Mint button
-      if minting {
-        div(
-          list{Attrs.class_("text-sm text-indigo-400 animate-pulse"), Attrs.ariaLive("polite")},
-          list{text("Minting panel...")},
-        )
-      } else {
-        button(
-          list{
-            Attrs.class_(
-              "w-full px-4 py-3 bg-indigo-600 text-white rounded-lg hover:bg-indigo-500 transition-colors font-medium",
-            ),
-            Attrs.ariaLabel(`Mint the ${form.panelName} panel`),
-            Events.onClick(Minter(ExecuteMint)),
-          },
-          list{text(`Mint ${form.panelName} Panel`)},
-        )
-      },
-      // Result
-      switch lastResult {
-      | None => noNode
-      | Some(result) =>
-        div(
-          list{
-            Attrs.class_(
-              if result.success {
-                "p-3 bg-green-950/30 border border-green-800/50 rounded"
-              } else {
-                "p-3 bg-red-950/30 border border-red-800/50 rounded"
-              },
-            ),
-            Attrs.role("alert"),
-          },
-          list{
-            if result.success {
-              div(
-                list{},
-                list{
-                  div(
-                    list{Attrs.class_("text-sm text-green-400 font-medium mb-1")},
-                    list{text("Panel minted successfully!")},
-                  ),
-                  div(
-                    list{Attrs.class_("text-xs text-gray-500")},
-                    list{
-                      text(
-                        `${Int.toString(
-                            Array.length(result.filesCreated),
-                          )} files created, ${Int.toString(
-                            Array.length(result.filesPatched),
-                          )} files patched`,
-                      ),
-                    },
-                  ),
-                },
-              )
-            } else {
-              div(
-                list{Attrs.class_("text-sm text-red-400")},
-                list{
-                  text(
-                    switch result.error {
-                    | Some(err) => err
-                    | None => "Unknown error"
-                    },
-                  ),
-                },
-              )
-            },
-          },
-        )
-      },
-    },
-  )
-}
-
-// ============================================================================
-// Wizard navigation
-// ============================================================================
-
-/// Render the wizard step indicators.
-let renderStepIndicators = (currentStep: int): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("flex items-center gap-2 px-6 py-3 border-b border-gray-800"),
-      Attrs.role("navigation"),
-      Attrs.ariaLabel("Minting wizard steps"),
-    },
-    Array.make(~length=MinterEngine.totalSteps, 0)
-    ->Array.mapWithIndex((_, i) => {
-      let stepClass = if i === currentStep {
-        "bg-indigo-600 text-white"
-      } else if i < currentStep {
-        "bg-green-900/50 text-green-400"
-      } else {
-        "bg-gray-800 text-gray-600"
-      }
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          div(
-            list{
-              Attrs.class_(
-                `w-6 h-6 rounded-full flex items-center justify-center text-xs ${stepClass}`,
-              ),
-            },
-            list{text(Int.toString(i + 1))},
-          ),
-          div(
-            list{
-              Attrs.class_(
-                if i === currentStep {
-                  "text-xs text-gray-300"
-                } else {
-                  "text-xs text-gray-600"
-                },
-              ),
-            },
-            list{text(MinterEngine.stepLabel(i))},
-          ),
-          if i < MinterEngine.totalSteps - 1 {
-            div(list{Attrs.class_("w-8 border-t border-gray-700")}, list{})
-          } else {
-            noNode
-          },
-        },
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Render the wizard navigation buttons (Back / Next).
-let renderNavigation = (form: minterForm, step: int): Tea_Vdom.t<msg> => {
-  let canProceed = MinterEngine.canProceedFromStep(form, step)
-  div(
-    list{Attrs.class_("flex items-center justify-between px-6 py-3 border-t border-gray-800")},
-    list{
-      if step > 0 {
-        button(
-          list{
-            Attrs.class_(
-              "px-4 py-2 text-sm text-gray-400 hover:text-gray-200 bg-gray-800 rounded hover:bg-gray-700 transition-colors",
-            ),
-            Attrs.ariaLabel("Go to previous step"),
-            Events.onClick(Minter(PrevStep)),
-          },
-          list{text("Back")},
-        )
-      } else {
-        div(list{}, list{})
-      },
-      if step < MinterEngine.totalSteps - 1 {
-        button(
-          list{
-            Attrs.class_(
-              if canProceed {
-                "px-4 py-2 text-sm bg-indigo-600 text-white rounded hover:bg-indigo-500 transition-colors"
-              } else {
-                "px-4 py-2 text-sm bg-gray-700 text-gray-500 rounded cursor-not-allowed"
-              },
-            ),
-            Attrs.ariaLabel("Go to next step"),
-            if canProceed {
-              Events.onClick(Minter(NextStep))
-            } else {
-              Attrs.noProp
-            },
-          },
-          list{text("Next")},
-        )
-      } else {
-        div(list{}, list{})
-      },
-    },
-  )
-}
-
-// ============================================================================
-// Main view
-// ============================================================================
-
-/// Main view function for the Panel Minter.
-let view = (state: minterState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.role("main"),
-      Attrs.ariaLabel("Panel Minter wizard"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-6 py-4 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-medium text-gray-200")},
-                list{text("Panel Minter")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-600")},
-                list{text("Create a new eNSAID-compliant panel module")},
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-sm text-gray-400 hover:text-gray-200 bg-gray-800 rounded hover:bg-gray-700 transition-colors",
-              ),
-              Attrs.ariaLabel("Close Panel Minter"),
-              Events.onClick(PanelSwitcher(ClosePanels)),
-            },
-            list{text("Close")},
-          ),
-        },
-      ),
-      // Step indicators
-      renderStepIndicators(state.wizardStep),
-      // Step content
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto p-6 max-w-2xl mx-auto w-full")},
-        list{
-          switch state.wizardStep {
-          | 0 => renderStep0(state.form)
-          | 1 => renderStep1(state.form)
-          | 2 => renderStep2(state.form)
-          | 3 => renderStep3(state.form, state.minting, state.lastResult)
-          | _ => noNode
-          },
-        },
-      ),
-      // Navigation
-      if state.wizardStep < MinterEngine.totalSteps - 1 || state.wizardStep === 0 {
-        renderNavigation(state.form, state.wizardStep)
-      } else {
-        noNode
-      },
-    },
-  )
-}
diff --git a/src/components/MultiplayerMonitor.affine b/src/components/MultiplayerMonitor.affine
new file mode 100644
index 00000000..d8f77fdd
--- /dev/null
+++ b/src/components/MultiplayerMonitor.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MultiplayerMonitor;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/MultiplayerMonitor.res b/src/components/MultiplayerMonitor.res
deleted file mode 100644
index 3f6525a5..00000000
--- a/src/components/MultiplayerMonitor.res
+++ /dev/null
@@ -1,583 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Multiplayer Monitor Component — view for monitoring the IDApTIK
-/// Phoenix sync server. Dashboard, channels, state diffs, latency, locks.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a category tab button.
-let renderTab = (label: string, cat: multiplayerCategory, active: multiplayerCategory): Tea_Vdom.t<
-  msg,
-> => {
-  let isActive = cat === active
-  let cls = isActive
-    ? "px-3 py-1.5 text-xs font-medium bg-gray-700 text-white rounded"
-    : "px-3 py-1.5 text-xs text-gray-400 hover:text-gray-200 hover:bg-gray-800 rounded cursor-pointer"
-  button(
-    list{Attrs.class_(cls), Events.onClick(MultiplayerMonitor(SetMultiplayerCategory(cat)))},
-    list{text(label)},
-  )
-}
-
-/// Render a player card.
-let renderPlayerCard = (player: connectedPlayer, isSelected: bool): Tea_Vdom.t<msg> => {
-  let borderCls = if isSelected {
-    "border-cyan-400"
-  } else {
-    "border-gray-700"
-  }
-  let latencyCls = if player.latencyMs < 50 {
-    "text-emerald-400"
-  } else if player.latencyMs < 100 {
-    "text-amber-400"
-  } else {
-    "text-red-400"
-  }
-  div(
-    list{
-      Attrs.class_(
-        `p-3 bg-gray-800 rounded border ${borderCls} cursor-pointer hover:border-gray-500`,
-      ),
-      Events.onClick(MultiplayerMonitor(SelectPlayer(player.playerId))),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-1")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              span(
-                list{Attrs.class_("text-sm font-medium text-gray-100")},
-                list{text(player.displayName)},
-              ),
-              if player.isHost {
-                span(
-                  list{Attrs.class_("text-xs bg-amber-700 text-amber-100 px-1.5 py-0.5 rounded")},
-                  list{text("HOST")},
-                )
-              } else if player.isSpectator {
-                span(
-                  list{Attrs.class_("text-xs bg-gray-600 text-gray-300 px-1.5 py-0.5 rounded")},
-                  list{text("SPEC")},
-                )
-              } else {
-                noNode
-              },
-            },
-          ),
-          span(
-            list{Attrs.class_(`text-xs font-mono ${latencyCls}`)},
-            list{text(`${Int.toString(player.latencyMs)}ms`)},
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("flex items-center gap-3 text-xs text-gray-500")},
-        list{
-          span(list{}, list{text(`Device: ${player.deviceId}`)}),
-          span(list{}, list{text(`Clock: ${Int.toString(player.lamportClock)}`)}),
-        },
-      ),
-    },
-  )
-}
-
-/// Render dashboard view.
-let renderDashboard = (state: multiplayerMonitorState): Tea_Vdom.t<msg> => {
-  let connCls = MultiplayerMonitorEngine.connectionColour(state.wsConnection)
-  let players = MultiplayerMonitorEngine.filterPlayers(state.players, state.showSpectators)
-  div(
-    list{Attrs.class_("space-y-4")},
-    list{
-      // Connection status card
-      div(
-        list{Attrs.class_("p-4 bg-gray-800 rounded border border-gray-700")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center justify-between mb-3")},
-            list{
-              div(
-                list{Attrs.class_("flex items-center gap-2")},
-                list{
-                  span(
-                    list{Attrs.class_("text-sm font-medium text-gray-200")},
-                    list{text("Sync Server")},
-                  ),
-                  span(
-                    list{Attrs.class_(`text-xs ${connCls}`)},
-                    list{text(MultiplayerMonitorEngine.connectionLabel(state.wsConnection))},
-                  ),
-                },
-              ),
-              div(
-                list{Attrs.class_("flex items-center gap-2")},
-                list{
-                  switch state.wsConnection {
-                  | WsConnected =>
-                    button(
-                      list{
-                        Attrs.class_(
-                          "px-2 py-1 text-xs bg-red-700 text-white rounded hover:bg-red-600 cursor-pointer",
-                        ),
-                        Events.onClick(MultiplayerMonitor(DisconnectServer)),
-                        KeyboardNav.onActivate(MultiplayerMonitor(DisconnectServer)),
-                      },
-                      list{text("Disconnect")},
-                    )
-                  | WsDisconnected | WsError(_) =>
-                    button(
-                      list{
-                        Attrs.class_(
-                          "px-2 py-1 text-xs bg-emerald-700 text-white rounded hover:bg-emerald-600 cursor-pointer",
-                        ),
-                        Events.onClick(MultiplayerMonitor(ConnectServer)),
-                        KeyboardNav.onActivate(MultiplayerMonitor(ConnectServer)),
-                      },
-                      list{text("Connect")},
-                    )
-                  | WsConnecting | WsReconnecting => noNode
-                  },
-                  button(
-                    list{
-                      Attrs.class_(
-                        "px-2 py-1 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer",
-                      ),
-                      Events.onClick(MultiplayerMonitor(RefreshState)),
-                      KeyboardNav.onActivate(MultiplayerMonitor(RefreshState)),
-                    },
-                    list{text("Refresh")},
-                  ),
-                },
-              ),
-            },
-          ),
-          div(list{Attrs.class_("text-xs text-gray-500 font-mono")}, list{text(state.serverUrl)}),
-        },
-      ),
-      // Stats row
-      div(
-        list{Attrs.class_("grid grid-cols-4 gap-3")},
-        list{
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-gray-100")},
-                list{text(Int.toString(Array.length(players)))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Players")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-gray-100")},
-                list{text(Int.toString(Array.length(state.channels)))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Channels")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-gray-100")},
-                list{text(Int.toString(MultiplayerMonitorEngine.averageLatency(state.players)))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Avg Latency (ms)")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{
-                  Attrs.class_(
-                    if MultiplayerMonitorEngine.contestedLocks(state.deviceLocks) > 0 {
-                      "text-2xl font-light text-red-400"
-                    } else {
-                      "text-2xl font-light text-gray-100"
-                    },
-                  ),
-                },
-                list{
-                  text(Int.toString(MultiplayerMonitorEngine.contestedLocks(state.deviceLocks))),
-                },
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Contested Locks")}),
-            },
-          ),
-        },
-      ),
-      // Player list
-      if Array.length(players) === 0 {
-        div(
-          list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-          list{text("No players connected")},
-        )
-      } else {
-        div(
-          list{Attrs.class_("space-y-2")},
-          players
-          ->Array.map(p => renderPlayerCard(p, state.selectedPlayerId === Some(p.playerId)))
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render channels view.
-let renderChannels = (state: multiplayerMonitorState): Tea_Vdom.t<msg> => {
-  if Array.length(state.channels) === 0 {
-    div(
-      list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-      list{text("No channel subscriptions — connect to the sync server first")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("space-y-2")},
-      state.channels
-      ->Array.map(ch =>
-        div(
-          list{Attrs.class_("p-3 bg-gray-800 rounded border border-gray-700")},
-          list{
-            div(
-              list{Attrs.class_("flex items-center justify-between mb-1")},
-              list{
-                span(list{Attrs.class_("text-sm font-mono text-cyan-400")}, list{text(ch.topic)}),
-                span(
-                  list{Attrs.class_("text-xs text-gray-400")},
-                  list{text(`${Int.toString(ch.messageCount)} messages`)},
-                ),
-              },
-            ),
-          },
-        )
-      )
-      ->List.fromArray,
-    )
-  }
-}
-
-/// Render state diffs view.
-let renderStateDiffs = (state: multiplayerMonitorState): Tea_Vdom.t<msg> => {
-  let unresolved = MultiplayerMonitorEngine.unresolvedDiffs(state.stateDiffs)
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between")},
-        list{
-          span(
-            list{Attrs.class_("text-xs text-gray-400")},
-            list{text(`${Int.toString(Array.length(unresolved))} unresolved diffs`)},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-2 py-1 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer",
-              ),
-              Events.onClick(MultiplayerMonitor(RefreshDiffs)),
-              KeyboardNav.onActivate(MultiplayerMonitor(RefreshDiffs)),
-            },
-            list{text("Refresh")},
-          ),
-        },
-      ),
-      if Array.length(state.stateDiffs) === 0 {
-        div(
-          list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-          list{text("No state diffs detected — game state is in sync")},
-        )
-      } else {
-        div(
-          list{Attrs.class_("space-y-1")},
-          state.stateDiffs
-          ->Array.map(diff =>
-            div(
-              list{
-                Attrs.class_(
-                  `p-2 rounded text-xs ${if diff.resolved {
-                      "bg-gray-800 opacity-50"
-                    } else {
-                      "bg-red-900/20 border border-red-800"
-                    }}`,
-                ),
-              },
-              list{
-                div(
-                  list{Attrs.class_("flex items-center gap-3")},
-                  list{
-                    span(list{Attrs.class_("text-gray-400")}, list{text(diff.playerId)}),
-                    span(list{Attrs.class_("text-gray-200 font-mono")}, list{text(diff.field)}),
-                    span(list{Attrs.class_("text-red-400 font-mono")}, list{text(diff.localValue)}),
-                    span(list{Attrs.class_("text-gray-500")}, list{text("vs")}),
-                    span(
-                      list{Attrs.class_("text-emerald-400 font-mono")},
-                      list{text(diff.remoteValue)},
-                    ),
-                    if diff.resolved {
-                      span(list{Attrs.class_("text-emerald-500")}, list{text("Resolved")})
-                    } else {
-                      span(list{Attrs.class_("text-red-400")}, list{text("Unresolved")})
-                    },
-                  },
-                ),
-              },
-            )
-          )
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render latency view.
-let renderLatency = (state: multiplayerMonitorState): Tea_Vdom.t<msg> => {
-  if Array.length(state.latencySamples) === 0 {
-    div(
-      list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-      list{text("No latency data — connect players to see latency graph")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("space-y-2")},
-      list{
-        div(
-          list{Attrs.class_("text-xs text-gray-400 mb-2")},
-          list{text(`${Int.toString(Array.length(state.latencySamples))} samples`)},
-        ),
-        ...// Simple latency bars per player
-        state.players
-        ->Array.map(player => {
-          let latencyCls = if player.latencyMs < 50 {
-            "bg-emerald-600"
-          } else if player.latencyMs < 100 {
-            "bg-amber-600"
-          } else {
-            "bg-red-600"
-          }
-          let widthPct = Int.toString(
-            if player.latencyMs > 200 {
-              100
-            } else {
-              player.latencyMs * 100 / 200
-            },
-          )
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              span(
-                list{Attrs.class_("w-24 text-xs text-gray-300 truncate")},
-                list{text(player.displayName)},
-              ),
-              div(
-                list{Attrs.class_("flex-1 bg-gray-800 rounded h-4 overflow-hidden")},
-                list{
-                  div(
-                    list{
-                      Attrs.class_(`h-full ${latencyCls} rounded`),
-                      Attrs.style("width", `${widthPct}%`),
-                    },
-                    list{},
-                  ),
-                },
-              ),
-              span(
-                list{Attrs.class_("w-12 text-xs text-gray-400 text-right font-mono")},
-                list{text(`${Int.toString(player.latencyMs)}ms`)},
-              ),
-            },
-          )
-        })
-        ->List.fromArray,
-      },
-    )
-  }
-}
-
-/// Render device locks view.
-let renderDeviceLocks = (state: multiplayerMonitorState): Tea_Vdom.t<msg> => {
-  if Array.length(state.deviceLocks) === 0 {
-    div(
-      list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-      list{text("No device locks active")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("space-y-2")},
-      state.deviceLocks
-      ->Array.map(lock => {
-        let isContested = Array.length(lock.contestedBy) > 0
-        let borderCls = if isContested {
-          "border-red-700"
-        } else {
-          "border-gray-700"
-        }
-        div(
-          list{Attrs.class_(`p-3 bg-gray-800 rounded border ${borderCls}`)},
-          list{
-            div(
-              list{Attrs.class_("flex items-center justify-between mb-1")},
-              list{
-                span(
-                  list{Attrs.class_("text-sm font-mono text-gray-200")},
-                  list{text(lock.deviceId)},
-                ),
-                switch lock.lockedBy {
-                | Some(player) =>
-                  span(
-                    list{Attrs.class_("text-xs text-cyan-400")},
-                    list{text(`Locked by ${player}`)},
-                  )
-                | None => span(list{Attrs.class_("text-xs text-gray-500")}, list{text("Unlocked")})
-                },
-              },
-            ),
-            if isContested {
-              div(
-                list{Attrs.class_("text-xs text-red-400 mt-1")},
-                list{text(`Contested by: ${lock.contestedBy->Array.join(", ")}`)},
-              )
-            } else {
-              noNode
-            },
-          },
-        )
-      })
-      ->List.fromArray,
-    )
-  }
-}
-
-/// Main view function.
-let view = (state: multiplayerMonitorState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Multiplayer Monitor panel"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              span(
-                list{Attrs.class_("text-lg font-semibold text-gray-100")},
-                list{text("Multiplayer Monitor")},
-              ),
-              span(
-                list{
-                  Attrs.class_(
-                    `text-xs ${MultiplayerMonitorEngine.connectionColour(state.wsConnection)}`,
-                  ),
-                },
-                list{text(MultiplayerMonitorEngine.connectionLabel(state.wsConnection))},
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    if state.showSpectators {
-                      "px-2 py-1 text-xs bg-gray-600 text-white rounded"
-                    } else {
-                      "px-2 py-1 text-xs bg-gray-700 text-gray-400 rounded cursor-pointer"
-                    },
-                  ),
-                  Events.onClick(MultiplayerMonitor(ToggleSpectators)),
-                  KeyboardNav.onActivate(MultiplayerMonitor(ToggleSpectators)),
-                },
-                list{text("Spectators")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-2 py-1 text-xs bg-amber-700 text-white rounded hover:bg-amber-600 cursor-pointer",
-                  ),
-                  Events.onClick(MultiplayerMonitor(ReconnectionTest)),
-                  KeyboardNav.onActivate(MultiplayerMonitor(ReconnectionTest)),
-                },
-                list{text("Reconnection Test")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Category tabs
-      div(
-        list{Attrs.class_("flex items-center gap-1 px-4 py-2 border-b border-gray-800")},
-        list{
-          renderTab("Dashboard", MultiplayerDashboard, state.activeCategory),
-          renderTab("Channels", MultiplayerChannels, state.activeCategory),
-          renderTab("State Diff", MultiplayerStateDiff, state.activeCategory),
-          renderTab("Latency", MultiplayerLatency, state.activeCategory),
-          renderTab("Device Locks", MultiplayerDeviceLocks, state.activeCategory),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 p-2 bg-red-900/50 border border-red-700 rounded text-xs text-red-300",
-            ),
-          },
-          list{
-            div(
-              list{Attrs.class_("flex items-center justify-between")},
-              list{
-                text(err),
-                button(
-                  list{
-                    Attrs.class_("text-red-400 hover:text-red-200 cursor-pointer"),
-                    Events.onClick(MultiplayerMonitor(DismissMultiplayerError)),
-                    KeyboardNav.onActivate(MultiplayerMonitor(DismissMultiplayerError)),
-                  },
-                  list{text("Dismiss")},
-                ),
-              },
-            ),
-          },
-        )
-      | None => noNode
-      },
-      // Loading
-      if state.loading {
-        div(
-          list{Attrs.class_("px-4 py-2 text-xs text-cyan-400 animate-pulse")},
-          list{text("Loading multiplayer state...")},
-        )
-      } else {
-        noNode
-      },
-      // Main content
-      div(
-        list{Attrs.class_("flex-1 overflow-auto p-4")},
-        list{
-          switch state.activeCategory {
-          | MultiplayerDashboard => renderDashboard(state)
-          | MultiplayerChannels => renderChannels(state)
-          | MultiplayerStateDiff => renderStateDiffs(state)
-          | MultiplayerLatency => renderLatency(state)
-          | MultiplayerDeviceLocks => renderDeviceLocks(state)
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/MyLang.affine b/src/components/MyLang.affine
new file mode 100644
index 00000000..21be6f32
--- /dev/null
+++ b/src/components/MyLang.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MyLang;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/MyLang.res b/src/components/MyLang.res
deleted file mode 100644
index 40aac476..00000000
--- a/src/components/MyLang.res
+++ /dev/null
@@ -1,457 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL My-Lang Component — AI-native language development panel.
-///
-/// Provides a code editor, REPL, compilation output, and dialect reference
-/// for the 4 my-lang dialects: Solo, Duet, Ensemble, Me.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a dialect selector button.
-let renderDialectButton = (d: myLangDialect, active: myLangDialect): Tea_Vdom.t<msg> => {
-  let isActive = d === active
-  let colour = MyLangEngine.dialectColour(d)
-  button(
-    list{
-      Attrs.class_(
-        `px-3 py-1.5 text-xs rounded transition-colors ${isActive
-            ? colour ++ " ring-1 ring-gray-600"
-            : "text-gray-500 hover:text-gray-300"}`,
-      ),
-      Events.onClick(MyLang(SetDialect(d))),
-    },
-    list{text(MyLangEngine.dialectLabel(d))},
-  )
-}
-
-/// Render a REPL entry.
-let renderReplEntry = (entry: replEntry): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("font-mono text-xs space-y-0.5")},
-    list{
-      div(list{Attrs.class_("text-cyan-400")}, list{text(`> ${entry.input}`)}),
-      div(
-        list{
-          Attrs.class_(
-            if entry.isError {
-              "text-red-400"
-            } else {
-              "text-gray-300"
-            },
-          ),
-        },
-        list{text(entry.output)},
-      ),
-    },
-  )
-}
-
-/// Render category tabs.
-let renderTabs = (active: myLangCategory): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 mb-4"), Attrs.role("tablist")},
-    MyLangEngine.allCategories
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-4 py-2 text-sm rounded-t transition-colors ${isActive
-                ? "bg-gray-800 text-gray-200 border-b-2 border-cyan-500"
-                : "text-gray-500 hover:text-gray-300"}`,
-          ),
-          Attrs.role("tab"),
-          Attrs.ariaSelected(isActive),
-          Events.onClick(MyLang(SetMlCategory(tab))),
-        },
-        list{text(MyLangEngine.categoryLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Render TypeLL cross-panel type intelligence result (if available).
-/// Parses the raw JSON via TypeLLEngine.parseCheckResult and displays an
-/// evangeliser-style narrative with proof obligations and linearity notes.
-let viewTypeCheckResult = (lastTypeCheck: option<string>): Tea_Vdom.t<msg> => {
-  switch lastTypeCheck {
-  | None => noNode
-  | Some(json) =>
-    switch TypeLLEngine.parseCheckResult(json) {
-    | Error(_) => noNode
-    | Ok(result) =>
-      let narrative = TypeLLEngine.generateNarrative(result)
-      let borderColour = if result.valid {
-        "border-green-700 bg-green-900/20"
-      } else {
-        "border-red-700 bg-red-900/20"
-      }
-      let labelColour = if result.valid {
-        "text-green-400"
-      } else {
-        "text-red-400"
-      }
-      let statusText = if result.valid {
-        "Type-safe"
-      } else {
-        "Type issues detected"
-      }
-      div(
-        list{Attrs.class_("mt-4 p-3 rounded-lg border " ++ borderColour)},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2 mb-2")},
-            list{
-              span(
-                list{Attrs.class_("text-xs font-bold uppercase tracking-wider " ++ labelColour)},
-                list{text("TypeLL")},
-              ),
-              span(list{Attrs.class_("text-xs text-gray-400")}, list{text(statusText)}),
-            },
-          ),
-          div(
-            list{Attrs.class_("text-sm text-gray-300 font-mono mb-1")},
-            list{text(result.typeSignature)},
-          ),
-          div(list{Attrs.class_("text-xs text-gray-400 mb-1")}, list{text(narrative.celebrate)}),
-          if Array.length(result.proofObligations) > 0 {
-            div(
-              list{Attrs.class_("text-xs text-yellow-400 mt-1")},
-              list{text("Proof obligations: " ++ Array.join(result.proofObligations, ", "))},
-            )
-          } else {
-            noNode
-          },
-          if Array.length(result.linearityIssues) > 0 {
-            div(
-              list{Attrs.class_("text-xs text-orange-400 mt-1")},
-              list{text("Linearity: " ++ Array.join(result.linearityIssues, ", "))},
-            )
-          } else {
-            noNode
-          },
-        },
-      )
-    }
-  }
-}
-
-/// Main view for the My-Lang panel.
-let view = (ml: myLangState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("My-Lang AI-native language panel"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between p-4 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(list{Attrs.class_("text-lg font-medium text-gray-200")}, list{text("My-Lang")}),
-              span(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{text("AI-native language workbench")},
-              ),
-              if ml.cliAvailable {
-                span(list{Attrs.class_("text-xs text-emerald-500")}, list{text("CLI ready")})
-              } else {
-                span(list{Attrs.class_("text-xs text-amber-500")}, list{text("CLI not found")})
-              },
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              // Dialect selector
-              div(
-                list{Attrs.class_("flex gap-1")},
-                MyLangEngine.allDialects
-                ->Array.map(d => renderDialectButton(d, ml.activeDialect))
-                ->List.fromArray,
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-sm bg-gray-800 text-gray-300 rounded hover:bg-gray-700",
-                  ),
-                  Events.onClick(PanelSwitcher(ClosePanels)),
-                  KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-                },
-                list{text("Close")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Content
-      div(
-        list{Attrs.class_("flex-1 overflow-auto p-6")},
-        list{
-          renderTabs(ml.activeCategory),
-          switch ml.activeCategory {
-          | MlEditor =>
-            div(
-              list{Attrs.class_("space-y-4")},
-              list{
-                div(
-                  list{Attrs.class_("flex items-center justify-between")},
-                  list{
-                    span(
-                      list{Attrs.class_("text-sm text-gray-400")},
-                      list{
-                        text(`Editing in ${MyLangEngine.dialectLabel(ml.activeDialect)} dialect`),
-                      },
-                    ),
-                    button(
-                      list{
-                        Attrs.class_(
-                          "px-3 py-1 text-xs bg-emerald-600 text-white rounded hover:bg-emerald-500",
-                        ),
-                        Events.onClick(MyLang(Compile)),
-                        KeyboardNav.onActivate(MyLang(Compile)),
-                      },
-                      list{text("Compile")},
-                    ),
-                  },
-                ),
-                textarea(
-                  list{
-                    Attrs.class_(
-                      "w-full h-96 bg-gray-900 border border-gray-700 rounded-lg p-4 font-mono text-sm text-gray-200 resize-none focus:border-cyan-500 focus:outline-none",
-                    ),
-                    Attrs.value(ml.editorContent),
-                    Attrs.placeholder("Write your code here..."),
-                    Events.onInput(v => MyLang(UpdateEditor(v))),
-                  },
-                  list{},
-                ),
-              },
-            )
-          | MlRepl =>
-            div(
-              list{Attrs.class_("space-y-4")},
-              list{
-                // REPL history
-                div(
-                  list{
-                    Attrs.class_(
-                      "bg-gray-900 border border-gray-700 rounded-lg p-4 h-80 overflow-y-auto space-y-2",
-                    ),
-                  },
-                  if ml.replHistory->Array.length === 0 {
-                    list{
-                      div(
-                        list{Attrs.class_("text-gray-600 text-sm")},
-                        list{
-                          text(
-                            `${MyLangEngine.dialectLabel(
-                                ml.activeDialect,
-                              )} REPL — type an expression`,
-                          ),
-                        },
-                      ),
-                    }
-                  } else {
-                    ml.replHistory->Array.map(e => renderReplEntry(e))->List.fromArray
-                  },
-                ),
-                // REPL input
-                div(
-                  list{Attrs.class_("flex gap-2")},
-                  list{
-                    span(
-                      list{Attrs.class_("text-cyan-400 font-mono text-sm pt-2")},
-                      list{text(">")},
-                    ),
-                    input(
-                      list{
-                        Attrs.class_(
-                          "flex-1 bg-gray-900 border border-gray-700 rounded px-3 py-2 text-sm text-gray-200 font-mono placeholder-gray-600",
-                        ),
-                        Attrs.placeholder("Enter expression..."),
-                        Attrs.value(ml.replInput),
-                        Events.onInput(v => MyLang(UpdateReplInput(v))),
-                        Events.onKeyDown(key =>
-                          if key === "Enter" {
-                            Some(MyLang(EvalRepl))
-                          } else {
-                            None
-                          }
-                        ),
-                      },
-                      list{},
-                    ),
-                    button(
-                      list{
-                        Attrs.class_(
-                          "px-3 py-2 text-sm bg-cyan-600 text-white rounded hover:bg-cyan-500",
-                        ),
-                        Events.onClick(MyLang(EvalRepl)),
-                        KeyboardNav.onActivate(MyLang(EvalRepl)),
-                      },
-                      list{text("Eval")},
-                    ),
-                  },
-                ),
-              },
-            )
-          | MlCompile =>
-            switch ml.lastCompilation {
-            | Some(result) =>
-              div(
-                list{Attrs.class_("space-y-4")},
-                list{
-                  div(
-                    list{Attrs.class_("flex items-center gap-3")},
-                    list{
-                      span(
-                        list{
-                          Attrs.class_(
-                            if result.success {
-                              "text-emerald-400 text-sm font-medium"
-                            } else {
-                              "text-red-400 text-sm font-medium"
-                            },
-                          ),
-                        },
-                        list{
-                          text(
-                            if result.success {
-                              "Compilation succeeded"
-                            } else {
-                              "Compilation failed"
-                            },
-                          ),
-                        },
-                      ),
-                      span(
-                        list{Attrs.class_("text-xs text-gray-500")},
-                        list{text(`${Int.toString(result.compileTimeMs)}ms`)},
-                      ),
-                      span(
-                        list{Attrs.class_("text-xs text-gray-500")},
-                        list{
-                          text(
-                            `${Int.toString(result.errorCount)} errors, ${Int.toString(
-                                result.warningCount,
-                              )} warnings`,
-                          ),
-                        },
-                      ),
-                    },
-                  ),
-                  if result.output !== "" {
-                    div(
-                      list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-4")},
-                      list{
-                        div(list{Attrs.class_("text-xs text-gray-500 mb-2")}, list{text("Output")}),
-                        pre(
-                          list{Attrs.class_("font-mono text-sm text-gray-300 whitespace-pre-wrap")},
-                          list{text(result.output)},
-                        ),
-                      },
-                    )
-                  } else {
-                    noNode
-                  },
-                  if result.diagnostics !== "" {
-                    div(
-                      list{Attrs.class_("bg-gray-900 border border-red-700/50 rounded-lg p-4")},
-                      list{
-                        div(
-                          list{Attrs.class_("text-xs text-red-400 mb-2")},
-                          list{text("Diagnostics")},
-                        ),
-                        pre(
-                          list{Attrs.class_("font-mono text-sm text-red-300 whitespace-pre-wrap")},
-                          list{text(result.diagnostics)},
-                        ),
-                      },
-                    )
-                  } else {
-                    noNode
-                  },
-                  viewTypeCheckResult(ml.lastTypeCheck),
-                },
-              )
-            | None =>
-              div(
-                list{Attrs.class_("text-center text-gray-500 mt-8")},
-                list{
-                  text("No compilation results. Write code in the Editor tab and click Compile."),
-                },
-              )
-            }
-          | MlDialects =>
-            div(
-              list{Attrs.class_("space-y-6 max-w-2xl")},
-              list{
-                h3(
-                  list{Attrs.class_("text-base font-medium text-gray-200")},
-                  list{text("My-Lang Dialects")},
-                ),
-                div(
-                  list{Attrs.class_("space-y-4")},
-                  MyLangEngine.allDialects
-                  ->Array.map(d => {
-                    let colour = MyLangEngine.dialectColour(d)
-                    div(
-                      list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-4")},
-                      list{
-                        div(
-                          list{Attrs.class_("flex items-center gap-3 mb-2")},
-                          list{
-                            span(
-                              list{
-                                Attrs.class_(`px-2 py-0.5 text-xs font-medium rounded ${colour}`),
-                              },
-                              list{text(MyLangEngine.dialectLabel(d))},
-                            ),
-                            span(
-                              list{Attrs.class_("text-sm text-gray-400")},
-                              list{text(MyLangEngine.dialectDescription(d))},
-                            ),
-                          },
-                        ),
-                        pre(
-                          list{
-                            Attrs.class_(
-                              "mt-2 font-mono text-xs text-gray-500 bg-gray-950 rounded p-3 whitespace-pre-wrap",
-                            ),
-                          },
-                          list{text(MyLangEngine.dialectExample(d))},
-                        ),
-                      },
-                    )
-                  })
-                  ->List.fromArray,
-                ),
-              },
-            )
-          },
-          switch ml.error {
-          | Some(e) =>
-            div(
-              list{
-                Attrs.class_(
-                  "mt-4 p-3 bg-red-900/30 border border-red-700 rounded text-sm text-red-300",
-                ),
-                Attrs.role("alert"),
-              },
-              list{text(e)},
-            )
-          | None => noNode
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/NesyDrift.affine b/src/components/NesyDrift.affine
new file mode 100644
index 00000000..7111d42e
--- /dev/null
+++ b/src/components/NesyDrift.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module NesyDrift;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/NesyDrift.res b/src/components/NesyDrift.res
deleted file mode 100644
index 285a4034..00000000
--- a/src/components/NesyDrift.res
+++ /dev/null
@@ -1,226 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL NeSy Drift Dashboard Panel — model drift detection and alerting
-/// display.
-///
-/// Layout: Current drift status (large indicator) at top, action
-/// recommendation beneath, scrollable alert timeline below. Model status
-/// cards show per-model drift state.
-
-open Msg
-open NesyDriftModel
-open NesyDriftEngine
-open Tea.Html
-
-// ============================================================================
-// Model Status Card
-// ============================================================================
-
-/// A single model status card showing current drift state.
-let modelStatusCard = (status: modelDriftStatus): Tea_Vdom.t<msg> => {
-  let borderColor = driftBorderColor(status.isDrifting)
-  div(
-    list{Attrs.class_(`flex flex-col p-3 rounded border ${borderColor} bg-gray-900/50`)},
-    list{
-      // Model name
-      div(
-        list{Attrs.class_("font-semibold text-sm text-gray-100 mb-1")},
-        list{text(status.modelName)},
-      ),
-      // Drift indicator
-      div(
-        list{Attrs.class_("flex items-center gap-2 mb-1")},
-        list{
-          span(
-            list{
-              Attrs.class_(
-                if status.isDrifting {
-                  "w-2 h-2 rounded-full bg-red-500 animate-pulse"
-                } else {
-                  "w-2 h-2 rounded-full bg-emerald-500"
-                },
-              ),
-            },
-            list{},
-          ),
-          span(
-            list{Attrs.class_("text-xs text-gray-400")},
-            list{
-              text(
-                if status.isDrifting {
-                  "DRIFTING"
-                } else {
-                  "STABLE"
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Last drift kind
-      switch status.lastDriftKind {
-      | Some(kind) =>
-        span(list{Attrs.class_("text-xs text-amber-400")}, list{text(driftKindLabel(kind))})
-      | None => span(list{Attrs.class_("text-xs text-gray-600")}, list{text("No drift detected")})
-      },
-      // Magnitude bar
-      div(
-        list{Attrs.class_("mt-2 w-full bg-gray-800 rounded-full h-1.5")},
-        list{
-          div(
-            list{
-              Attrs.class_(
-                `h-1.5 rounded-full ${if status.lastMagnitude >= 0.7 {
-                    "bg-red-500"
-                  } else if status.lastMagnitude >= 0.4 {
-                    "bg-amber-500"
-                  } else {
-                    "bg-emerald-500"
-                  }}`,
-              ),
-              Attrs.style("width", Float.toFixed(status.lastMagnitude *. 100.0, ~digits=0) ++ "%"),
-            },
-            list{},
-          ),
-        },
-      ),
-      // Alert count
-      span(
-        list{Attrs.class_("text-xs text-gray-500 mt-1")},
-        list{text(`${Int.toString(status.alertCount)} alerts`)},
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Alert Row
-// ============================================================================
-
-/// A single alert row in the timeline.
-let alertRow = (alert: driftAlert): Tea_Vdom.t<msg> => {
-  let urgencyColor = alertColor(alert.urgency)
-  div(
-    list{
-      Attrs.class_(
-        "flex items-start gap-3 px-3 py-3 border-b border-gray-800 hover:bg-gray-800/30",
-      ),
-    },
-    list{
-      // Urgency badge
-      span(
-        list{Attrs.class_(`px-2 py-0.5 text-xs rounded font-mono shrink-0 ${urgencyColor}`)},
-        list{text(urgencyLabel(alert.urgency))},
-      ),
-      // Alert content
-      div(
-        list{Attrs.class_("flex-1 min-w-0")},
-        list{
-          // Model name + drift kind
-          div(
-            list{Attrs.class_("flex items-center gap-2 mb-1")},
-            list{
-              span(
-                list{Attrs.class_("text-sm font-semibold text-gray-100")},
-                list{text(alert.modelName)},
-              ),
-              span(
-                list{Attrs.class_(`text-xs ${severityTextColor(alert.severity)}`)},
-                list{text(driftKindLabel(alert.kind))},
-              ),
-            },
-          ),
-          // Description
-          p(list{Attrs.class_("text-xs text-gray-400 mb-1")}, list{text(alert.description)}),
-          // Action recommendation
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              span(list{Attrs.class_("text-xs text-gray-500")}, list{text("Recommended:")}),
-              span(
-                list{Attrs.class_("text-xs text-cyan-400 font-mono")},
-                list{text(actionLabel(alert.recommendedAction))},
-              ),
-            },
-          ),
-        },
-      ),
-      // Timestamp
-      span(
-        list{Attrs.class_("text-xs text-gray-500 font-mono shrink-0")},
-        list{text(alert.timestamp)},
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Urgency Filter
-// ============================================================================
-
-/// Urgency filter buttons.
-let urgencyFilter = (currentFilter: option<driftUrgency>): Tea_Vdom.t<msg> => {
-  let filterBtn = (label: string, filterValue: option<driftUrgency>) => {
-    let isActive = currentFilter == filterValue
-    let baseClass = "px-3 py-1 text-xs rounded cursor-pointer"
-    let activeClass = if isActive {
-      "bg-emerald-600 text-white"
-    } else {
-      "bg-gray-700 text-gray-300 hover:bg-gray-600"
-    }
-    button(list{Attrs.class_(`${baseClass} ${activeClass}`)}, list{text(label)})
-  }
-  div(
-    list{Attrs.class_("flex gap-2 mb-3")},
-    list{
-      filterBtn("All", None),
-      filterBtn("Immediate", Some(Immediate)),
-      filterBtn("Soon", Some(Soon)),
-      filterBtn("Scheduled", Some(Scheduled)),
-      filterBtn("FYI", Some(FYI)),
-    },
-  )
-}
-
-// ============================================================================
-// Main View
-// ============================================================================
-
-/// Top-level view for the NeSy Drift Dashboard panel.
-let view = (state: nesyDriftState): Tea_Vdom.t<msg> => {
-  let filteredAlerts = filterByUrgency(state.alerts, state.urgencyFilter)
-  div(
-    list{Attrs.class_("flex flex-col h-full p-3 bg-gray-950 text-gray-100")},
-    list{
-      // Panel header
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-3")},
-        list{
-          h2(list{Attrs.class_("text-lg font-semibold")}, list{text("NeSy Drift Dashboard")}),
-          span(
-            list{Attrs.class_("text-xs text-gray-500")},
-            list{text(`${Int.toString(Array.length(state.modelStatuses))} models monitored`)},
-          ),
-        },
-      ),
-      // Model status cards (horizontal scroll)
-      div(
-        list{Attrs.class_("flex gap-3 overflow-x-auto pb-3 mb-3")},
-        state.modelStatuses->Array.map(modelStatusCard)->List.fromArray,
-      ),
-      // Urgency filter
-      urgencyFilter(state.urgencyFilter),
-      // Alert timeline (scrollable)
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto border border-gray-800 rounded")},
-        list{
-          div(
-            list{Attrs.class_("divide-y divide-gray-800")},
-            filteredAlerts->Array.map(alertRow)->List.fromArray,
-          ),
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/NesyHarmonize.affine b/src/components/NesyHarmonize.affine
new file mode 100644
index 00000000..1412132e
--- /dev/null
+++ b/src/components/NesyHarmonize.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module NesyHarmonize;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/NesyHarmonize.res b/src/components/NesyHarmonize.res
deleted file mode 100644
index d029e05f..00000000
--- a/src/components/NesyHarmonize.res
+++ /dev/null
@@ -1,182 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL NeSy Harmonization Monitor Panel — live neural-symbolic verdict
-/// fusion display.
-///
-/// Layout: Stats bar at top (3 verdict counters with colours), scrollable
-/// entry list below. Each entry shows neural -> symbolic -> verdict with
-/// colour coding. Filter dropdown for verdict type selection.
-
-open Msg
-open NesyHarmonizeModel
-open NesyHarmonizeEngine
-open Tea.Html
-
-// ============================================================================
-// Stats Bar
-// ============================================================================
-
-/// A single stat counter pill with a coloured background.
-let statPill = (label: string, count: int, colorClass: string): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_(`flex flex-col items-center px-4 py-2 rounded ${colorClass}`)},
-    list{
-      span(list{Attrs.class_("text-2xl font-bold font-mono")}, list{text(Int.toString(count))}),
-      span(list{Attrs.class_("text-xs uppercase tracking-wide opacity-80")}, list{text(label)}),
-    },
-  )
-}
-
-/// Stats bar showing 3 verdict counters and the symbolic win rate.
-let statsBar = (stats: harmonizeStats): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex gap-3 p-3 bg-gray-900/50 rounded-lg mb-3")},
-    list{
-      statPill("Certified Safe", stats.certifiedSafe, "bg-emerald-600/80 text-white"),
-      statPill("Requires Review", stats.requiresReview, "bg-amber-500/80 text-white"),
-      statPill("Critical Unsafe", stats.criticalUnsafe, "bg-red-600/80 text-white"),
-      div(
-        list{
-          Attrs.class_("flex flex-col items-center px-4 py-2 rounded bg-gray-700/50 text-gray-200"),
-        },
-        list{
-          span(
-            list{Attrs.class_("text-2xl font-bold font-mono")},
-            list{text(Float.toFixed(stats.symbolicWinRate *. 100.0, ~digits=1) ++ "%")},
-          ),
-          span(
-            list{Attrs.class_("text-xs uppercase tracking-wide opacity-80")},
-            list{text("Symbolic Win Rate")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Verdict Arrow Display
-// ============================================================================
-
-/// Arrow separator between verdict stages.
-let arrow: Tea_Vdom.t<msg> = {
-  span(list{Attrs.class_("text-gray-500 mx-1")}, list{text("->")})
-}
-
-/// Verdict badge with colour coding.
-let verdictBadge = (label: string, colorClass: string): Tea_Vdom.t<msg> => {
-  span(list{Attrs.class_(`px-2 py-0.5 text-xs rounded font-mono ${colorClass}`)}, list{text(label)})
-}
-
-// ============================================================================
-// Entry Row
-// ============================================================================
-
-/// A single harmonization entry row showing the verdict pipeline.
-let entryRow = (entry: harmonizationEntry): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_(
-        "flex items-center gap-2 px-3 py-2 border-b border-gray-800 hover:bg-gray-800/30",
-      ),
-    },
-    list{
-      // Timestamp
-      span(
-        list{Attrs.class_("text-xs text-gray-500 font-mono w-40 shrink-0")},
-        list{text(entry.timestamp)},
-      ),
-      // Source
-      span(
-        list{Attrs.class_("text-xs text-gray-400 w-24 shrink-0 truncate")},
-        list{text(entry.source)},
-      ),
-      // Neural verdict
-      verdictBadge(neuralLabel(entry.neural), neuralVerdictColor(entry.neural)),
-      arrow,
-      // Symbolic verdict
-      verdictBadge(symbolicLabel(entry.symbolic), symbolicVerdictColor(entry.symbolic)),
-      arrow,
-      // Harmonized verdict (main result)
-      verdictBadge(verdictLabel(entry.verdict), verdictColor(entry.verdict)),
-      // Confidence indicator
-      span(
-        list{Attrs.class_(`text-xs ml-2 ${confidenceColor(entry.confidence)}`)},
-        list{text(confidenceLabel(entry.confidence))},
-      ),
-      // Symbolic wins indicator
-      if entry.symbolicWins {
-        span(list{Attrs.class_("text-xs text-blue-400 ml-auto")}, list{text("[S wins]")})
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-// ============================================================================
-// Filter Controls
-// ============================================================================
-
-/// Filter dropdown for selecting verdict type.
-let filterControls = (currentFilter: option<harmonizedVerdict>): Tea_Vdom.t<msg> => {
-  let filterBtn = (label: string, filterValue: option<harmonizedVerdict>) => {
-    let isActive = currentFilter == filterValue
-    let baseClass = "px-3 py-1 text-xs rounded cursor-pointer"
-    let activeClass = if isActive {
-      "bg-emerald-600 text-white"
-    } else {
-      "bg-gray-700 text-gray-300 hover:bg-gray-600"
-    }
-    button(list{Attrs.class_(`${baseClass} ${activeClass}`)}, list{text(label)})
-  }
-  div(
-    list{Attrs.class_("flex gap-2 mb-3")},
-    list{
-      filterBtn("All", None),
-      filterBtn("Certified Safe", Some(CertifiedSafe)),
-      filterBtn("Requires Review", Some(RequiresReview)),
-      filterBtn("Critical Unsafe", Some(CriticalUnsafe)),
-    },
-  )
-}
-
-// ============================================================================
-// Main View
-// ============================================================================
-
-/// Top-level view for the NeSy Harmonization Monitor panel.
-let view = (state: nesyHarmonizeState): Tea_Vdom.t<msg> => {
-  let filtered = filterEntries(state.entries, state.filter)
-  div(
-    list{Attrs.class_("flex flex-col h-full p-3 bg-gray-950 text-gray-100")},
-    list{
-      // Panel header
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-3")},
-        list{
-          h2(list{Attrs.class_("text-lg font-semibold")}, list{text("NeSy Harmonization Monitor")}),
-          span(
-            list{Attrs.class_("text-xs text-gray-500")},
-            list{text(`${Int.toString(state.stats.totalCount)} entries`)},
-          ),
-        },
-      ),
-      // Stats bar
-      statsBar(state.stats),
-      // Filter controls
-      filterControls(state.filter),
-      // Entry list (scrollable)
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto border border-gray-800 rounded")},
-        list{
-          div(
-            list{Attrs.class_("divide-y divide-gray-800")},
-            filtered->Array.map(entryRow)->List.fromArray,
-          ),
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/NesyModes.affine b/src/components/NesyModes.affine
new file mode 100644
index 00000000..77afdc15
--- /dev/null
+++ b/src/components/NesyModes.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module NesyModes;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/NesyModes.res b/src/components/NesyModes.res
deleted file mode 100644
index fe09000c..00000000
--- a/src/components/NesyModes.res
+++ /dev/null
@@ -1,134 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL NeSy Reasoning Mode Selector Panel — mode grid for choosing
-/// neural-symbolic reasoning strategies.
-///
-/// Layout: 6 mode cards in a 2x3 grid. Each card shows mode name,
-/// symbolic/neural indicators, and description. Click to select.
-/// Active mode is highlighted with an emerald border.
-
-open Msg
-open NesyModesModel
-open NesyModesEngine
-open Tea.Html
-
-// ============================================================================
-// Subsystem Indicator
-// ============================================================================
-
-/// Small indicator badge showing whether a subsystem is active.
-let subsystemIndicator = (label: string, isActive: bool): Tea_Vdom.t<msg> => {
-  let colorClass = if isActive {
-    "bg-emerald-600 text-white"
-  } else {
-    "bg-gray-700 text-gray-500"
-  }
-  span(list{Attrs.class_(`px-2 py-0.5 text-xs rounded font-mono ${colorClass}`)}, list{text(label)})
-}
-
-// ============================================================================
-// Mode Card
-// ============================================================================
-
-/// A single mode card in the selection grid.
-let modeCard = (info: modeInfo, isActive: bool): Tea_Vdom.t<msg> => {
-  let borderClass = modeBorderColor(info.mode, isActive)
-  let bgClass = modeBgColor(info.mode)
-  div(
-    list{
-      Attrs.class_(
-        `flex flex-col p-4 rounded-lg border-2 cursor-pointer transition-all ${borderClass} ${bgClass} hover:brightness-110`,
-      ),
-    },
-    list{
-      // Mode name
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-2")},
-        list{
-          span(
-            list{Attrs.class_("font-semibold text-sm text-gray-100")},
-            list{text(info.displayName)},
-          ),
-          if isActive {
-            span(list{Attrs.class_("text-xs text-emerald-400 font-mono")}, list{text("ACTIVE")})
-          } else {
-            noNode
-          },
-        },
-      ),
-      // Description
-      p(
-        list{Attrs.class_("text-xs text-gray-400 mb-3 leading-relaxed")},
-        list{text(info.description)},
-      ),
-      // Subsystem indicators
-      div(
-        list{Attrs.class_("flex gap-2 mt-auto")},
-        list{
-          subsystemIndicator("Symbolic", info.usesSymbolic),
-          subsystemIndicator("Neural", info.usesNeural),
-          if info.isHybrid {
-            span(
-              list{Attrs.class_("px-2 py-0.5 text-xs rounded font-mono bg-purple-600 text-white")},
-              list{text("Hybrid")},
-            )
-          } else {
-            noNode
-          },
-        },
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Main View
-// ============================================================================
-
-/// Top-level view for the NeSy Reasoning Mode Selector panel.
-let view = (state: nesyModesState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-col h-full p-3 bg-gray-950 text-gray-100")},
-    list{
-      // Panel header
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-4")},
-        list{
-          h2(
-            list{Attrs.class_("text-lg font-semibold")},
-            list{text("NeSy Reasoning Mode Selector")},
-          ),
-          if state.switching {
-            span(
-              list{Attrs.class_("text-xs text-amber-400 animate-pulse")},
-              list{text("Switching mode...")},
-            )
-          } else {
-            noNode
-          },
-        },
-      ),
-      // Error display
-      switch state.lastError {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "p-2 mb-3 rounded bg-red-900/30 border border-red-500/40 text-xs text-red-400",
-            ),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      // Mode grid (2x3)
-      div(
-        list{Attrs.class_("grid grid-cols-2 gap-3 flex-1")},
-        state.availableModes
-        ->Array.map(info => modeCard(info, info.mode == state.activeMode))
-        ->List.fromArray,
-      ),
-    },
-  )
-}
diff --git a/src/components/NetworkTopology.affine b/src/components/NetworkTopology.affine
new file mode 100644
index 00000000..d485e2e4
--- /dev/null
+++ b/src/components/NetworkTopology.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module NetworkTopology;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/NetworkTopology.res b/src/components/NetworkTopology.res
deleted file mode 100644
index 098bb358..00000000
--- a/src/components/NetworkTopology.res
+++ /dev/null
@@ -1,419 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Network Topology Component — view for the IDApTIK in-game
-/// network topology viewer. Force-directed graph of devices, zones,
-/// security levels, packet flow, and DNS resolution.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a category tab button.
-let renderTab = (
-  label: string,
-  cat: networkTopologyCategory,
-  active: networkTopologyCategory,
-): Tea_Vdom.t<msg> => {
-  let isActive = cat === active
-  let cls = isActive
-    ? "px-3 py-1.5 text-xs font-medium bg-gray-700 text-white rounded"
-    : "px-3 py-1.5 text-xs text-gray-400 hover:text-gray-200 hover:bg-gray-800 rounded cursor-pointer"
-  button(
-    list{Attrs.class_(cls), Events.onClick(NetworkTopology(SetTopologyCategory(cat)))},
-    list{text(label)},
-  )
-}
-
-/// Render a single device card in the graph view.
-let renderDeviceCard = (device: networkDevice, isSelected: bool): Tea_Vdom.t<msg> => {
-  let borderCls = if device.compromised {
-    "border-red-500"
-  } else if isSelected {
-    "border-cyan-400"
-  } else {
-    "border-gray-600"
-  }
-  let zoneCls = NetworkTopologyEngine.zoneColour(device.zone)
-  div(
-    list{
-      Attrs.class_(
-        `p-3 bg-gray-800 rounded border ${borderCls} cursor-pointer hover:border-gray-400`,
-      ),
-      Events.onClick(NetworkTopology(SelectDevice(device.id))),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-1")},
-        list{
-          span(list{Attrs.class_("text-sm font-medium text-gray-100")}, list{text(device.name)}),
-          span(
-            list{Attrs.class_(`text-xs ${zoneCls}`)},
-            list{text(NetworkTopologyEngine.zoneLabel(device.zone))},
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("flex items-center gap-2 text-xs text-gray-400")},
-        list{
-          span(list{}, list{text(device.deviceType)}),
-          span(list{}, list{text(`Sec: ${Int.toString(device.securityLevel)}`)}),
-          if device.compromised {
-            span(list{Attrs.class_("text-red-400 font-bold")}, list{text("COMPROMISED")})
-          } else if device.active {
-            span(list{Attrs.class_("text-emerald-400")}, list{text("Active")})
-          } else {
-            span(list{Attrs.class_("text-gray-500")}, list{text("Inactive")})
-          },
-        },
-      ),
-      if Array.length(device.defenceFlags) > 0 {
-        div(
-          list{Attrs.class_("flex flex-wrap gap-1 mt-1")},
-          device.defenceFlags
-          ->Array.map(flag =>
-            span(
-              list{
-                Attrs.class_("px-1.5 py-0.5 text-xs bg-emerald-900/50 text-emerald-300 rounded"),
-              },
-              list{text(flag)},
-            )
-          )
-          ->List.fromArray,
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-/// Render the zones summary view.
-let renderZones = (state: networkTopologyState): Tea_Vdom.t<msg> => {
-  let zones: array<networkZone> = [ZonePublic, ZoneDmz, ZoneInternal, ZoneRestricted, ZoneAirGapped]
-  div(
-    list{Attrs.class_("space-y-3")},
-    zones
-    ->Array.map(zone => {
-      let devices = NetworkTopologyEngine.devicesByZone(state.devices, zone)
-      let bgCls = NetworkTopologyEngine.zoneBgColour(zone)
-      let colourCls = NetworkTopologyEngine.zoneColour(zone)
-      div(
-        list{Attrs.class_(`p-3 rounded ${bgCls}`)},
-        list{
-          div(
-            list{Attrs.class_("flex items-center justify-between mb-2")},
-            list{
-              span(
-                list{Attrs.class_(`text-sm font-medium ${colourCls}`)},
-                list{text(NetworkTopologyEngine.zoneLabel(zone))},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-400")},
-                list{text(`${Int.toString(Array.length(devices))} devices`)},
-              ),
-            },
-          ),
-          if Array.length(devices) === 0 {
-            div(
-              list{Attrs.class_("text-xs text-gray-500 italic")},
-              list{text("No devices in this zone")},
-            )
-          } else {
-            div(
-              list{Attrs.class_("space-y-1")},
-              devices
-              ->Array.map(d =>
-                div(
-                  list{
-                    Attrs.class_(
-                      "flex items-center gap-2 text-xs text-gray-300 cursor-pointer hover:text-white",
-                    ),
-                  },
-                  list{
-                    span(list{}, list{text(d.name)}),
-                    span(list{Attrs.class_("text-gray-500")}, list{text(d.deviceType)}),
-                  },
-                )
-              )
-              ->List.fromArray,
-            )
-          },
-        },
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Render DNS entries table.
-let renderDns = (state: networkTopologyState): Tea_Vdom.t<msg> => {
-  if Array.length(state.dnsEntries) === 0 {
-    div(
-      list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-      list{text("No DNS entries — connect to a running game to see DNS resolution")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("space-y-1")},
-      state.dnsEntries
-      ->Array.map(entry =>
-        div(
-          list{Attrs.class_("flex items-center gap-3 p-2 bg-gray-800 rounded text-xs")},
-          list{
-            span(
-              list{Attrs.class_("text-cyan-400 font-mono w-40 truncate")},
-              list{text(entry.hostname)},
-            ),
-            span(list{Attrs.class_("text-gray-500")}, list{text(entry.recordType)}),
-            span(list{Attrs.class_("text-gray-300 font-mono")}, list{text(entry.resolvedIp)}),
-            span(
-              list{Attrs.class_("text-gray-500")},
-              list{text(`TTL: ${Int.toString(entry.ttl)}`)},
-            ),
-          },
-        )
-      )
-      ->List.fromArray,
-    )
-  }
-}
-
-/// Render packet flow animation view.
-let renderPacketFlow = (state: networkTopologyState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      // Controls
-      div(
-        list{Attrs.class_("flex items-center gap-3")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                if state.animatePackets {
-                  "px-3 py-1.5 text-xs bg-emerald-700 text-white rounded"
-                } else {
-                  "px-3 py-1.5 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer"
-                },
-              ),
-              Events.onClick(NetworkTopology(TogglePacketAnimation)),
-              KeyboardNav.onActivate(NetworkTopology(TogglePacketAnimation)),
-            },
-            list{
-              text(
-                if state.animatePackets {
-                  "Animating..."
-                } else {
-                  "Start Animation"
-                },
-              ),
-            },
-          ),
-          span(
-            list{Attrs.class_("text-xs text-gray-400")},
-            list{text(`${Int.toString(Array.length(state.packetFlow))} events`)},
-          ),
-        },
-      ),
-      // Recent packet events
-      if Array.length(state.packetFlow) === 0 {
-        div(
-          list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-          list{text("No packet flow events captured")},
-        )
-      } else {
-        div(
-          list{Attrs.class_("space-y-1 max-h-96 overflow-y-auto")},
-          state.packetFlow
-          ->Array.map(evt =>
-            div(
-              list{
-                Attrs.class_(
-                  `flex items-center gap-3 p-2 rounded text-xs ${if evt.blocked {
-                      "bg-red-900/30"
-                    } else {
-                      "bg-gray-800"
-                    }}`,
-                ),
-              },
-              list{
-                span(
-                  list{Attrs.class_("text-gray-400 font-mono")},
-                  list{text(Float.toString(evt.timestamp))},
-                ),
-                span(list{Attrs.class_("text-gray-300")}, list{text(evt.connectionId)}),
-                span(list{Attrs.class_("text-gray-500")}, list{text(`${Int.toString(evt.size)}B`)}),
-                if evt.blocked {
-                  span(list{Attrs.class_("text-red-400 font-bold")}, list{text("BLOCKED")})
-                } else {
-                  span(list{Attrs.class_("text-emerald-400")}, list{text("OK")})
-                },
-              },
-            )
-          )
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Main view function.
-let view = (state: networkTopologyState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Network Topology panel"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              span(
-                list{Attrs.class_("text-lg font-semibold text-gray-100")},
-                list{text("Network Topology")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{text(`${Int.toString(Array.length(state.devices))} devices`)},
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              // Toggle labels
-              button(
-                list{
-                  Attrs.class_(
-                    if state.showLabels {
-                      "px-2 py-1 text-xs bg-cyan-800 text-cyan-200 rounded"
-                    } else {
-                      "px-2 py-1 text-xs bg-gray-700 text-gray-400 rounded cursor-pointer"
-                    },
-                  ),
-                  Events.onClick(NetworkTopology(ToggleLabels)),
-                  KeyboardNav.onActivate(NetworkTopology(ToggleLabels)),
-                },
-                list{text("Labels")},
-              ),
-              // Toggle security levels
-              button(
-                list{
-                  Attrs.class_(
-                    if state.showSecurityLevels {
-                      "px-2 py-1 text-xs bg-amber-800 text-amber-200 rounded"
-                    } else {
-                      "px-2 py-1 text-xs bg-gray-700 text-gray-400 rounded cursor-pointer"
-                    },
-                  ),
-                  Events.onClick(NetworkTopology(ToggleSecurityLevels)),
-                  KeyboardNav.onActivate(NetworkTopology(ToggleSecurityLevels)),
-                },
-                list{text("Security")},
-              ),
-              // Refresh
-              button(
-                list{
-                  Attrs.class_(
-                    "px-2 py-1 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer",
-                  ),
-                  Events.onClick(NetworkTopology(RefreshTopology)),
-                  KeyboardNav.onActivate(NetworkTopology(RefreshTopology)),
-                },
-                list{text("Refresh")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Category tabs
-      div(
-        list{Attrs.class_("flex items-center gap-1 px-4 py-2 border-b border-gray-800")},
-        list{
-          renderTab("Graph", TopologyGraph, state.activeCategory),
-          renderTab("Zones", TopologyZones, state.activeCategory),
-          renderTab("DNS", TopologyDns, state.activeCategory),
-          renderTab("Packet Flow", TopologyPacketFlow, state.activeCategory),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 p-2 bg-red-900/50 border border-red-700 rounded text-xs text-red-300",
-            ),
-          },
-          list{
-            div(
-              list{Attrs.class_("flex items-center justify-between")},
-              list{
-                text(err),
-                button(
-                  list{
-                    Attrs.class_("text-red-400 hover:text-red-200 cursor-pointer"),
-                    Events.onClick(NetworkTopology(DismissTopoError)),
-                    KeyboardNav.onActivate(NetworkTopology(DismissTopoError)),
-                  },
-                  list{text("Dismiss")},
-                ),
-              },
-            ),
-          },
-        )
-      | None => noNode
-      },
-      // Loading indicator
-      if state.loading {
-        div(
-          list{Attrs.class_("px-4 py-2 text-xs text-cyan-400 animate-pulse")},
-          list{text("Loading topology...")},
-        )
-      } else {
-        noNode
-      },
-      // Main content
-      div(
-        list{Attrs.class_("flex-1 overflow-auto p-4")},
-        list{
-          switch state.activeCategory {
-          | TopologyGraph =>
-            if Array.length(state.devices) === 0 {
-              div(
-                list{Attrs.class_("text-center text-gray-500 text-sm py-16")},
-                list{
-                  div(list{Attrs.class_("text-4xl mb-4")}, list{text("~")}),
-                  div(list{}, list{text("No network topology loaded")}),
-                  div(
-                    list{Attrs.class_("mt-2 text-xs")},
-                    list{text("Connect to a running IDApTIK game to see the network graph")},
-                  ),
-                },
-              )
-            } else {
-              div(
-                list{Attrs.class_("grid grid-cols-2 lg:grid-cols-3 gap-3")},
-                state.devices
-                ->Array.map(device => {
-                  let isSelected = state.selectedDeviceId === Some(device.id)
-                  renderDeviceCard(device, isSelected)
-                })
-                ->List.fromArray,
-              )
-            }
-          | TopologyZones => renderZones(state)
-          | TopologyDns => renderDns(state)
-          | TopologyPacketFlow => renderPacketFlow(state)
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/NeurosymBridge.affine b/src/components/NeurosymBridge.affine
new file mode 100644
index 00000000..aef7f141
--- /dev/null
+++ b/src/components/NeurosymBridge.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module NeurosymBridge;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/NeurosymBridge.res b/src/components/NeurosymBridge.res
deleted file mode 100644
index 7aac59cf..00000000
--- a/src/components/NeurosymBridge.res
+++ /dev/null
@@ -1,380 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Neurosymbolic Bridge Component — ECHIDNA guard AI behaviour reasoning.
-/// Displays guard rule lists, behaviour tree viewers, simulation controls, and
-/// analysis results for guard AI correctness.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a rule status badge.
-let ruleStatusBadge = (status: ruleStatus): Tea_Vdom.t<msg> => {
-  let (color, label) = switch status {
-  | RuleVerified => ("bg-green-700 text-green-100", "Verified")
-  | RuleUnverified => ("bg-gray-700 text-gray-300", "Unverified")
-  | RuleViolated => ("bg-red-700 text-red-100", "Violated")
-  | RuleConflict => ("bg-yellow-700 text-yellow-100", "Conflict")
-  }
-  span(list{Attrs.class_("px-2 py-0.5 text-xs rounded font-mono " ++ color)}, list{text(label)})
-}
-
-/// Render a priority indicator.
-let priorityIndicator = (prio: rulePriority): Tea_Vdom.t<msg> => {
-  let (color, label) = switch prio {
-  | PriorityCritical => ("text-red-400", "CRIT")
-  | PriorityHigh => ("text-orange-400", "HIGH")
-  | PriorityNormal => ("text-blue-400", "NORM")
-  | PriorityLow => ("text-gray-500", "LOW")
-  }
-  span(list{Attrs.class_("text-xs font-mono " ++ color)}, list{text(label)})
-}
-
-/// Render a behaviour tree node type badge.
-let nodeTypeBadge = (nt: behaviourNodeType): Tea_Vdom.t<msg> => {
-  let (color, label) = switch nt {
-  | NodeSequence => ("text-blue-400", "SEQ")
-  | NodeSelector => ("text-purple-400", "SEL")
-  | NodeParallel => ("text-cyan-400", "PAR")
-  | NodeDecorator => ("text-yellow-400", "DEC")
-  | NodeAction => ("text-green-400", "ACT")
-  | NodeCondition => ("text-orange-400", "CND")
-  }
-  span(list{Attrs.class_("text-xs font-mono " ++ color)}, list{text("[" ++ label ++ "]")})
-}
-
-/// Main view function for the Neurosym Bridge panel.
-let view = (state: neurosymBridgeState): Tea_Vdom.t<msg> => {
-  let verifiedCount = state.guardRules->Array.filter(r => r.status == RuleVerified)->Array.length
-  let totalRules = Array.length(state.guardRules)
-
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Neurosymbolic Bridge — ECHIDNA Guard AI Reasoning"),
-    },
-    list{
-      // Header row
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-bold text-violet-300")},
-                list{text("Neurosymbolic Bridge")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-400")},
-                list{
-                  text(
-                    Int.toString(verifiedCount) ++
-                    "/" ++
-                    Int.toString(totalRules) ++ " rules verified",
-                  ),
-                },
-              ),
-              if state.simulating {
-                span(
-                  list{Attrs.class_("text-xs text-yellow-400 animate-pulse")},
-                  list{text("Simulating...")},
-                )
-              } else {
-                Tea_Html.noNode
-              },
-            },
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs bg-violet-800 hover:bg-violet-700 text-white rounded",
-              ),
-              Events.onClick(NeurosymBridge(NbStarted)),
-              KeyboardNav.onActivate(NeurosymBridge(NbStarted)),
-            },
-            list{text("Run Simulation")},
-          ),
-        },
-      ),
-      // Tab bar
-      div(
-        list{Attrs.class_("flex gap-1 px-4 py-2 border-b border-gray-800")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Rules {
-                  "bg-violet-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(NeurosymBridge(SetNbTab(Rules))),
-            },
-            list{text("Rules")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == BehaviourTree {
-                  "bg-violet-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(NeurosymBridge(SetNbTab(BehaviourTree))),
-            },
-            list{text("Behaviour Tree")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Simulation {
-                  "bg-violet-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(NeurosymBridge(SetNbTab(Simulation))),
-            },
-            list{text("Simulation")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Analysis {
-                  "bg-violet-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(NeurosymBridge(SetNbTab(Analysis))),
-            },
-            list{text("Analysis")},
-          ),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 px-3 py-2 bg-red-900/50 border border-red-700 rounded text-sm text-red-200 flex justify-between items-center",
-            ),
-          },
-          list{
-            text(err),
-            button(
-              list{
-                Attrs.class_("text-red-400 hover:text-red-200 text-xs ml-2"),
-                Events.onClick(NeurosymBridge(DismissNbError)),
-                KeyboardNav.onActivate(NeurosymBridge(DismissNbError)),
-              },
-              list{text("Dismiss")},
-            ),
-          },
-        )
-      | None => Tea_Html.noNode
-      },
-      // Content area
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto px-4 py-4")},
-        list{
-          switch state.activeTab {
-          | Rules =>
-            div(
-              list{},
-              state.guardRules
-              ->Array.map(r =>
-                div(
-                  list{Attrs.class_("flex items-center gap-3 py-2 border-b border-gray-800/50")},
-                  list{
-                    priorityIndicator(r.priority),
-                    div(
-                      list{Attrs.class_("flex-1 min-w-0")},
-                      list{
-                        div(
-                          list{Attrs.class_("text-sm font-mono text-gray-200")},
-                          list{text(r.name)},
-                        ),
-                        div(
-                          list{Attrs.class_("text-xs text-gray-500")},
-                          list{text(r.condition ++ " => " ++ r.expectedAction)},
-                        ),
-                      },
-                    ),
-                    ruleStatusBadge(r.status),
-                  },
-                )
-              )
-              ->List.fromArray,
-            )
-          | BehaviourTree =>
-            div(
-              list{Attrs.class_("font-mono text-sm")},
-              state.behaviourNodes
-              ->Array.map(node =>
-                div(
-                  list{
-                    Attrs.class_(
-                      "py-1 flex items-center gap-2 pl-" ++
-                      Int.toString(Array.length(node.children) > 0 ? 0 : 4),
-                    ),
-                  },
-                  list{
-                    nodeTypeBadge(node.nodeType),
-                    span(list{Attrs.class_("text-gray-200")}, list{text(node.label)}),
-                    switch node.condition {
-                    | Some(cond) =>
-                      span(
-                        list{Attrs.class_("text-xs text-yellow-400")},
-                        list{text("when: " ++ cond)},
-                      )
-                    | None => Tea_Html.noNode
-                    },
-                    switch node.action {
-                    | Some(act) =>
-                      span(list{Attrs.class_("text-xs text-green-400")}, list{text("do: " ++ act)})
-                    | None => Tea_Html.noNode
-                    },
-                    span(
-                      list{Attrs.class_("text-xs text-gray-600")},
-                      list{text(Int.toString(Array.length(node.children)) ++ " children")},
-                    ),
-                  },
-                )
-              )
-              ->List.fromArray,
-            )
-          | Simulation =>
-            switch state.simulationResults {
-            | Some(sim) =>
-              div(
-                list{},
-                list{
-                  div(
-                    list{Attrs.class_("flex gap-4 mb-4 text-xs text-gray-400")},
-                    list{
-                      span(list{}, list{text("Steps: " ++ Int.toString(sim.totalSteps))}),
-                      span(list{}, list{text("Deviations: " ++ Int.toString(sim.deviations))}),
-                      span(
-                        list{
-                          Attrs.class_(
-                            if sim.completed {
-                              "text-green-400"
-                            } else {
-                              "text-red-400"
-                            },
-                          ),
-                        },
-                        list{
-                          text(
-                            if sim.completed {
-                              "Completed"
-                            } else {
-                              "Interrupted"
-                            },
-                          ),
-                        },
-                      ),
-                    },
-                  ),
-                  div(
-                    list{Attrs.class_("space-y-1")},
-                    sim.steps
-                    ->Array.map(step => {
-                      let outcomeColor = switch step.outcome {
-                      | StepSuccess => "border-green-800"
-                      | StepDeviation => "border-yellow-800"
-                      | StepDeadlock => "border-red-800"
-                      }
-                      div(
-                        list{
-                          Attrs.class_(
-                            "flex items-center gap-3 py-1 border-l-2 pl-2 " ++ outcomeColor,
-                          ),
-                        },
-                        list{
-                          span(
-                            list{Attrs.class_("text-xs text-gray-500 w-8")},
-                            list{text("#" ++ Int.toString(step.stepNumber))},
-                          ),
-                          span(
-                            list{Attrs.class_("text-sm text-gray-300 flex-1")},
-                            list{text(step.actionTaken)},
-                          ),
-                          span(
-                            list{Attrs.class_("text-xs text-gray-500")},
-                            list{text(Float.toFixed(step.elapsedMs, ~digits=1) ++ "ms")},
-                          ),
-                        },
-                      )
-                    })
-                    ->List.fromArray,
-                  ),
-                },
-              )
-            | None =>
-              div(
-                list{Attrs.class_("text-center text-gray-500 py-8")},
-                list{
-                  text("No simulation results yet. Run a simulation to see guard AI behaviour."),
-                },
-              )
-            }
-          | Analysis =>
-            switch state.simulationResults {
-            | Some(sim) =>
-              div(
-                list{Attrs.class_("space-y-4")},
-                list{
-                  div(
-                    list{Attrs.class_("px-3 py-3 bg-gray-900 border border-gray-800 rounded")},
-                    list{
-                      h3(
-                        list{Attrs.class_("text-sm text-violet-300 mb-2")},
-                        list{text("ECHIDNA Analysis Summary")},
-                      ),
-                      p(
-                        list{Attrs.class_("text-sm text-gray-300")},
-                        list{text(sim.analysisSummary)},
-                      ),
-                    },
-                  ),
-                  div(
-                    list{Attrs.class_("text-xs text-gray-400")},
-                    list{
-                      text(
-                        "Guard rules: " ++
-                        Int.toString(totalRules) ++
-                        " total, " ++
-                        Int.toString(verifiedCount) ++
-                        " verified (" ++
-                        Float.toFixed(
-                          if totalRules > 0 {
-                            Int.toFloat(verifiedCount) /. Int.toFloat(totalRules) *. 100.0
-                          } else {
-                            0.0
-                          },
-                          ~digits=1,
-                        ) ++ "%)",
-                      ),
-                    },
-                  ),
-                },
-              )
-            | None =>
-              div(
-                list{Attrs.class_("text-center text-gray-500 py-8")},
-                list{text("Run a simulation to generate analysis results.")},
-              )
-            }
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/Observatory.affine b/src/components/Observatory.affine
new file mode 100644
index 00000000..223ff150
--- /dev/null
+++ b/src/components/Observatory.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Observatory;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Observatory.res b/src/components/Observatory.res
deleted file mode 100644
index ad47269f..00000000
--- a/src/components/Observatory.res
+++ /dev/null
@@ -1,204 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Observatory Component — integrative dashboard.
-///
-/// Single pane of glass for all panel health, service status, resource
-/// usage, and ambient metrics. Aggregates data from PanelRegistry and
-/// Gossamer system info queries.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a health badge.
-let healthBadge = (health: serviceHealth): Tea_Vdom.t<msg> => {
-  let (color, label) = switch health {
-  | Healthy => ("text-green-400", "Healthy")
-  | Degraded(reason) => ("text-yellow-400", "Degraded: " ++ reason)
-  | Unreachable => ("text-red-400", "Unreachable")
-  | Unknown => ("text-gray-500", "Unknown")
-  }
-  span(list{Attrs.class_("text-xs font-mono " ++ color)}, list{text(label)})
-}
-
-/// Render a resource snapshot row.
-let snapshotRow = (snapshot: resourceSnapshot): Tea_Vdom.t<msg> => {
-  let memLabel = if snapshot.memoryBytes > 0 {
-    Int.toString(snapshot.memoryBytes / (1024 * 1024)) ++ " MiB"
-  } else {
-    "N/A"
-  }
-  div(
-    list{
-      Attrs.class_("flex items-center justify-between py-1 px-2 border-b border-gray-800"),
-      Attrs.role("row"),
-    },
-    list{
-      span(list{Attrs.class_("text-sm text-gray-200 w-40")}, list{text(snapshot.name)}),
-      span(list{Attrs.class_("text-xs text-gray-400 w-20")}, list{text(memLabel)}),
-      span(
-        list{
-          Attrs.class_(
-            "text-xs w-16 " ++ if snapshot.active {
-              "text-blue-400"
-            } else {
-              "text-gray-600"
-            },
-          ),
-        },
-        list{
-          text(
-            if snapshot.active {
-              "Active"
-            } else {
-              "Idle"
-            },
-          ),
-        },
-      ),
-      healthBadge(snapshot.health),
-    },
-  )
-}
-
-/// Render a tab button.
-let tabBtn = (current: observatoryTab, target: observatoryTab, label: string): Tea_Vdom.t<msg> => {
-  let active = current == target
-  button(
-    list{
-      Attrs.class_(
-        "px-3 py-1 text-xs rounded " ++ if active {
-          "bg-blue-600 text-white"
-        } else {
-          "bg-gray-800 text-gray-400 hover:bg-gray-700"
-        },
-      ),
-      Events.onClick(Observatory(SetObsTab(target))),
-      Attrs.role("tab"),
-      Attrs.ariaSelected(active),
-    },
-    list{text(label)},
-  )
-}
-
-/// Main view function for the Observatory panel.
-let view = (state: observatoryState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Observatory — Integrative Dashboard"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          h2(list{Attrs.class_("text-lg font-bold text-blue-300")}, list{text("Observatory")}),
-          div(
-            list{Attrs.class_("flex gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-xs rounded bg-green-700 text-white hover:bg-green-600",
-                  ),
-                  Events.onClick(Observatory(RunHealthCheck)),
-                  KeyboardNav.onActivate(Observatory(RunHealthCheck)),
-                },
-                list{
-                  text(
-                    if state.checking {
-                      "Checking..."
-                    } else {
-                      "Health Check"
-                    },
-                  ),
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Tabs
-      div(
-        list{Attrs.class_("flex gap-1 px-4 py-2 border-b border-gray-800"), Attrs.role("tablist")},
-        list{
-          tabBtn(state.activeTab, TabOverview, "Overview"),
-          tabBtn(state.activeTab, TabServices, "Services"),
-          tabBtn(state.activeTab, TabResources, "Resources"),
-          tabBtn(state.activeTab, TabActivity, "Activity"),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 px-3 py-2 bg-red-900/50 border border-red-700 rounded text-sm text-red-200",
-            ),
-            Events.onClick(Observatory(DismissObsError)),
-            KeyboardNav.onActivate(Observatory(DismissObsError)),
-          },
-          list{text(err)},
-        )
-      | None => Tea_Html.noNode
-      },
-      // System summary bar
-      div(
-        list{Attrs.class_("flex gap-6 px-4 py-2 text-xs text-gray-400 border-b border-gray-800")},
-        list{
-          span(list{}, list{text("CPU: " ++ Float.toFixed(state.systemCpu, ~digits=1) ++ "%")}),
-          span(
-            list{},
-            list{
-              text(
-                "Memory: " ++
-                Int.toString(state.systemMemory / (1024 * 1024)) ++
-                " / " ++
-                Int.toString(state.systemMemoryTotal / (1024 * 1024)) ++ " MiB",
-              ),
-            },
-          ),
-          span(list{}, list{text("Panels: " ++ Int.toString(Array.length(state.snapshots)))}),
-        },
-      ),
-      // Content
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto px-4 py-2")},
-        list{
-          switch state.activeTab {
-          | TabOverview | TabServices | TabResources =>
-            div(
-              list{Attrs.role("table"), Attrs.ariaLabel("Panel health")},
-              state.snapshots->Array.map(snapshotRow)->List.fromArray,
-            )
-          | TabActivity =>
-            div(
-              list{},
-              state.activity
-              ->Array.map(entry =>
-                div(
-                  list{Attrs.class_("flex gap-4 py-1 text-xs border-b border-gray-800")},
-                  list{
-                    span(
-                      list{Attrs.class_("text-gray-500 w-40 shrink-0")},
-                      list{text(entry.timestamp)},
-                    ),
-                    span(
-                      list{Attrs.class_("text-blue-300 w-28 shrink-0")},
-                      list{text(entry.panelName)},
-                    ),
-                    span(list{Attrs.class_("text-gray-300")}, list{text(entry.event)}),
-                  },
-                )
-              )
-              ->List.fromArray,
-            )
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/Oo7Toolchain.affine b/src/components/Oo7Toolchain.affine
new file mode 100644
index 00000000..4edd0199
--- /dev/null
+++ b/src/components/Oo7Toolchain.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Oo7Toolchain;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Oo7Toolchain.res b/src/components/Oo7Toolchain.res
deleted file mode 100644
index 3c55a8e6..00000000
--- a/src/components/Oo7Toolchain.res
+++ /dev/null
@@ -1,488 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL 007 Toolchain Component — Agentic compiler and high-rigor execution.
-///
-/// Monitor lexing, parsing, analysis, and execution in real-time.
-/// Controls the Groove daemon lifecycle and permissions.
-
-open Model
-open Msg
-open Tea.Html
-
-let renderCategoryTab = (active: oo7Category, cat: oo7Category, label: string): Tea_Vdom.t<msg> => {
-  let isActive = active === cat
-  button(
-    list{
-      Attrs.class_(
-        `px-4 py-2 text-sm rounded-t transition-colors ${isActive
-            ? "bg-gray-800 text-gray-200 border-b-2 border-cyan-500"
-            : "text-gray-500 hover:text-gray-300"}`,
-      ),
-      Events.onClick(Oo7Toolchain(SetCategory(cat))),
-    },
-    list{text(label)},
-  )
-}
-
-let renderStageButton = (stage: oo7Stage, label: string): Tea_Vdom.t<msg> => {
-  button(
-    list{
-      Attrs.class_(
-        "px-3 py-1 text-xs bg-gray-800 text-gray-300 rounded border border-gray-700 hover:bg-gray-700",
-      ),
-      Events.onClick(Oo7Toolchain(RunStage(stage))),
-    },
-    list{text(label)},
-  )
-}
-
-let view = (state: oo7State): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("fixed inset-0 bg-slate-950/95 z-40 flex flex-col")},
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between p-4 border-b border-slate-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-medium text-slate-200")},
-                list{text("007 Toolchain")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-slate-500")},
-                list{text("agentic compiler & high-rigor execution")},
-              ),
-              div(
-                list{
-                  Attrs.class_(
-                    `px-2 py-0.5 rounded-full text-[10px] ${state.isConnected
-                        ? "bg-green-900/40 text-green-400"
-                        : "bg-red-900/40 text-red-400"}`,
-                  ),
-                },
-                list{text(state.isConnected ? "Groove Active" : "Groove Offline")},
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-sm bg-slate-800 text-slate-300 rounded hover:bg-slate-700",
-                  ),
-                  Events.onClick(PanelSwitcher(ClosePanels)),
-                  KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-                },
-                list{text("Close")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Tabs
-      div(
-        list{Attrs.class_("px-6 pt-4 border-b border-slate-800 flex gap-1")},
-        list{
-          renderCategoryTab(state.activeCategory, Oo7Dashboard, "Dashboard"),
-          renderCategoryTab(state.activeCategory, Oo7ControlPlane, "Control Plane"),
-          renderCategoryTab(state.activeCategory, Oo7Permissions, "Permissions"),
-          renderCategoryTab(state.activeCategory, Oo7Monitoring, "Monitoring"),
-        },
-      ),
-      // Main Content
-      div(
-        list{Attrs.class_("flex-1 overflow-auto p-6")},
-        list{
-          switch state.activeCategory {
-          | Oo7Dashboard =>
-            div(
-              list{Attrs.class_("grid grid-cols-2 gap-6 h-full")},
-              list{
-                // Left: Editor
-                div(
-                  list{Attrs.class_("flex flex-col gap-3")},
-                  list{
-                    div(
-                      list{
-                        Attrs.class_(
-                          "text-sm font-semibold text-slate-400 uppercase tracking-wider",
-                        ),
-                      },
-                      list{text("Source (.007)")},
-                    ),
-                    textarea(
-                      list{
-                        Attrs.class_(
-                          "flex-1 bg-slate-900 border border-slate-800 rounded p-4 font-mono text-sm text-slate-300 focus:outline-none focus:border-cyan-500/50",
-                        ),
-                        Attrs.value(state.sourceCode),
-                        Events.onInput(code => Oo7Toolchain(UpdateSource(code))),
-                      },
-                      list{},
-                    ),
-                    div(
-                      list{Attrs.class_("flex gap-2")},
-                      list{
-                        renderStageButton(Oo7Lexer, "Lex"),
-                        renderStageButton(Oo7Parser, "Parse"),
-                        renderStageButton(Oo7Analyser, "Analyse"),
-                        button(
-                          list{
-                            Attrs.class_(
-                              "px-3 py-1 text-xs bg-cyan-600 text-white rounded hover:bg-cyan-500",
-                            ),
-                            Events.onClick(Oo7Toolchain(RunStage(Oo7Evaluator))),
-                          },
-                          list{text("Evaluate")},
-                        ),
-                        renderStageButton(Oo7Linker, "Link"),
-                      },
-                    ),
-                  },
-                ),
-                // Right: Output & Nesy
-                div(
-                  list{Attrs.class_("flex flex-col gap-6")},
-                  list{
-                    div(
-                      list{Attrs.class_("flex-1 flex flex-col gap-3")},
-                      list{
-                        div(
-                          list{
-                            Attrs.class_(
-                              "text-sm font-semibold text-slate-400 uppercase tracking-wider",
-                            ),
-                          },
-                          list{text("Toolchain Output")},
-                        ),
-                        div(
-                          list{
-                            Attrs.class_(
-                              "flex-1 bg-black/50 border border-slate-800 rounded p-4 font-mono text-xs text-cyan-400 overflow-auto",
-                            ),
-                          },
-                          state.stageOutputs
-                          ->Array.map(((stage, out)) =>
-                            div(
-                              list{Attrs.class_("mb-4")},
-                              list{
-                                div(
-                                  list{
-                                    Attrs.class_(
-                                      "text-slate-500 mb-1 border-b border-slate-900 pb-1",
-                                    ),
-                                  },
-                                  list{
-                                    text(
-                                      switch stage {
-                                      | Oo7Lexer => "LEXER"
-                                      | Oo7Parser => "PARSER"
-                                      | Oo7Analyser => "ANALYSER"
-                                      | Oo7Evaluator => "EVALUATOR"
-                                      | Oo7Linker => "LINKER"
-                                      },
-                                    ),
-                                  },
-                                ),
-                                text(out),
-                              },
-                            )
-                          )
-                          ->List.fromArray,
-                        ),
-                      },
-                    ),
-                    div(
-                      list{Attrs.class_("bg-slate-900/50 border border-slate-800 rounded p-4")},
-                      list{
-                        div(
-                          list{Attrs.class_("text-xs font-semibold text-slate-500 uppercase mb-2")},
-                          list{text("Neurosymbolic Status")},
-                        ),
-                        div(
-                          list{Attrs.class_("text-sm text-slate-300")},
-                          list{text(state.nesyStatus)},
-                        ),
-                        div(
-                          list{Attrs.class_("mt-3 flex gap-2")},
-                          list{
-                            button(
-                              list{
-                                Attrs.class_(
-                                  "text-[10px] px-2 py-0.5 bg-slate-800 text-slate-400 rounded hover:text-slate-200",
-                                ),
-                              },
-                              list{text("Query TypeLL")},
-                            ),
-                            button(
-                              list{
-                                Attrs.class_(
-                                  "text-[10px] px-2 py-0.5 bg-slate-800 text-slate-400 rounded hover:text-slate-200",
-                                ),
-                              },
-                              list{text("Echidna Proof")},
-                            ),
-                          },
-                        ),
-                      },
-                    ),
-                  },
-                ),
-              },
-            )
-          | Oo7ControlPlane =>
-            div(
-              list{Attrs.class_("max-w-2xl space-y-8")},
-              list{
-                div(
-                  list{},
-                  list{
-                    h3(
-                      list{Attrs.class_("text-slate-200 font-medium mb-2")},
-                      list{text("Groove Daemon Control")},
-                    ),
-                    p(
-                      list{Attrs.class_("text-sm text-slate-500 mb-4")},
-                      list{
-                        text(
-                          "Manage the lifecycle of the 007 control plane daemon. The daemon must be active to perform toolchain operations.",
-                        ),
-                      },
-                    ),
-                    div(
-                      list{Attrs.class_("flex gap-4")},
-                      list{
-                        if !state.isConnected {
-                          button(
-                            list{
-                              Attrs.class_(
-                                "px-4 py-2 bg-green-600 text-white rounded hover:bg-green-500",
-                              ),
-                              Events.onClick(Oo7Toolchain(ConnectDaemon)),
-                              KeyboardNav.onActivate(Oo7Toolchain(ConnectDaemon)),
-                            },
-                            list{text("Start Daemon")},
-                          )
-                        } else {
-                          button(
-                            list{
-                              Attrs.class_(
-                                "px-4 py-2 bg-red-600 text-white rounded hover:bg-red-500",
-                              ),
-                              Events.onClick(Oo7Toolchain(DisconnectDaemon)),
-                              KeyboardNav.onActivate(Oo7Toolchain(DisconnectDaemon)),
-                            },
-                            list{text("Stop Daemon")},
-                          )
-                        },
-                        button(
-                          list{
-                            Attrs.class_(
-                              "px-4 py-2 bg-slate-800 text-slate-300 rounded hover:bg-slate-700",
-                            ),
-                          },
-                          list{text("Restart")},
-                        ),
-                      },
-                    ),
-                  },
-                ),
-                div(
-                  list{},
-                  list{
-                    h3(
-                      list{Attrs.class_("text-slate-200 font-medium mb-2")},
-                      list{text("Port Registry")},
-                    ),
-                    div(
-                      list{
-                        Attrs.class_(
-                          "bg-slate-900 border border-slate-800 rounded p-4 font-mono text-sm",
-                        ),
-                      },
-                      list{
-                        div(
-                          list{Attrs.class_("flex justify-between py-1")},
-                          list{
-                            span(list{}, list{text("007 Control Plane")}),
-                            span(list{Attrs.class_("text-cyan-400")}, list{text(":7007")}),
-                          },
-                        ),
-                        div(
-                          list{Attrs.class_("flex justify-between py-1")},
-                          list{
-                            span(list{}, list{text("PanLL Groove")}),
-                            span(list{Attrs.class_("text-cyan-400")}, list{text(":8000")}),
-                          },
-                        ),
-                        div(
-                          list{Attrs.class_("flex justify-between py-1")},
-                          list{
-                            span(list{}, list{text("Burble Gateway")}),
-                            span(list{Attrs.class_("text-cyan-400")}, list{text(":4020")}),
-                          },
-                        ),
-                      },
-                    ),
-                  },
-                ),
-              },
-            )
-          | Oo7Permissions =>
-            div(
-              list{Attrs.class_("max-w-xl space-y-6")},
-              list{
-                h3(
-                  list{Attrs.class_("text-slate-200 font-medium")},
-                  list{text("Daemon Permissions")},
-                ),
-                div(
-                  list{Attrs.class_("space-y-3")},
-                  [
-                    (
-                      PermissionReadOnly,
-                      "Read Only",
-                      "Can view toolchain status and results but cannot trigger stages.",
-                    ),
-                    (
-                      PermissionExecute,
-                      "Execute",
-                      "Can trigger lexer, parser, and analysis stages.",
-                    ),
-                    (
-                      PermissionAdministrative,
-                      "Administrative",
-                      "Full control over daemon lifecycle and memory allocators.",
-                    ),
-                  ]
-                  ->Array.map(((p, label, desc)) =>
-                    div(
-                      list{
-                        Attrs.class_(
-                          `p-4 border rounded-lg cursor-pointer transition-colors ${state.permissions ===
-                              p
-                              ? "bg-cyan-900/20 border-cyan-500/50"
-                              : "bg-slate-900 border-slate-800 hover:border-slate-700"}`,
-                        ),
-                        Events.onClick(Oo7Toolchain(SetPermissions(p))),
-                      },
-                      list{
-                        div(list{Attrs.class_("font-medium text-slate-200")}, list{text(label)}),
-                        div(list{Attrs.class_("text-xs text-slate-500 mt-1")}, list{text(desc)}),
-                      },
-                    )
-                  )
-                  ->List.fromArray,
-                ),
-              },
-            )
-          | Oo7Monitoring =>
-            div(
-              list{Attrs.class_("space-y-6")},
-              list{
-                div(
-                  list{Attrs.class_("grid grid-cols-3 gap-4")},
-                  list{
-                    div(
-                      list{Attrs.class_("bg-slate-900 p-4 rounded-lg border border-slate-800")},
-                      list{
-                        div(
-                          list{Attrs.class_("text-xs text-slate-500 uppercase mb-1")},
-                          list{text("Memory Usage")},
-                        ),
-                        div(
-                          list{Attrs.class_("text-xl text-cyan-400 font-mono")},
-                          list{text("42.5 MB")},
-                        ),
-                      },
-                    ),
-                    div(
-                      list{Attrs.class_("bg-slate-900 p-4 rounded-lg border border-slate-800")},
-                      list{
-                        div(
-                          list{Attrs.class_("text-xs text-slate-500 uppercase mb-1")},
-                          list{text("JIT Latency")},
-                        ),
-                        div(
-                          list{Attrs.class_("text-xl text-green-400 font-mono")},
-                          list{text("0.8 ms")},
-                        ),
-                      },
-                    ),
-                    div(
-                      list{Attrs.class_("bg-slate-900 p-4 rounded-lg border border-slate-800")},
-                      list{
-                        div(
-                          list{Attrs.class_("text-xs text-slate-500 uppercase mb-1")},
-                          list{text("Active Sessions")},
-                        ),
-                        div(
-                          list{Attrs.class_("text-xl text-slate-200 font-mono")},
-                          list{text("1")},
-                        ),
-                      },
-                    ),
-                  },
-                ),
-                div(
-                  list{
-                    Attrs.class_(
-                      "bg-black/30 border border-slate-800 rounded p-4 font-mono text-[10px] text-slate-500 h-64 overflow-auto",
-                    ),
-                  },
-                  list{
-                    text("[groove] Initializing Level 2 handshake...\n"),
-                    text("[oo7] Backend Zig evaluator loaded (High-Rigor mode)\n"),
-                    text("[oo7] V-lang control plane listening on :7007\n"),
-                    text("[nesy] TypeLL service attached to toolchain analyzer\n"),
-                    text("[groove] Handshake complete. Session oo7-session-1 active.\n"),
-                  },
-                ),
-              },
-            )
-          },
-          if state.loading {
-            div(
-              list{
-                Attrs.class_(
-                  "fixed bottom-10 right-10 bg-cyan-600 text-white px-4 py-2 rounded-full shadow-lg animate-pulse text-sm",
-                ),
-              },
-              list{text("Communicating with Daemon...")},
-            )
-          } else {
-            noNode
-          },
-        },
-      ),
-      // Footer / Error
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "bg-red-900/50 border-t border-red-700 p-3 text-red-200 text-sm flex justify-between items-center",
-            ),
-          },
-          list{
-            text(err),
-            button(
-              list{
-                Attrs.class_("text-red-200 hover:text-white"),
-                Events.onClick(Oo7Toolchain(ClearError)),
-                KeyboardNav.onActivate(Oo7Toolchain(ClearError)),
-              },
-              list{text("Dismiss")},
-            ),
-          },
-        )
-      | None => noNode
-      },
-    },
-  )
-}
diff --git a/src/components/PaneA.affine b/src/components/PaneA.affine
new file mode 100644
index 00000000..17a1a8e7
--- /dev/null
+++ b/src/components/PaneA.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PaneA;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/PaneA.res b/src/components/PaneA.res
deleted file mode 100644
index fbe71b81..00000000
--- a/src/components/PaneA.res
+++ /dev/null
@@ -1,144 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Pane-A: Ambient Substrate Component (Cognitive Ergonomics)
-///
-/// This component implements the deep-reaching ambient interface layer
-/// designed for cognitive relief. It monitors operator load (Vexometer)
-/// and provides sensory feedback via Information Humidity and the Vexation Index.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render the Information Humidity indicator.
-/// Higher humidity = more revealed detail, lower = simplified view.
-let renderHumidityIndicator = (humidity: humidityLevel): Tea_Vdom.t<msg> => {
-  let (label, colour, description) = switch humidity {
-  | High => ("High Humidity", "text-blue-400", "Maximum detail revealed")
-  | Medium => ("Balanced", "text-sky-400", "Standard information density")
-  | Low => ("Low Humidity", "text-amber-400", "Environment simplified (Anti-Inflammatory)")
-  }
-
-  div(
-    list{Attrs.class_("mb-4 p-3 rounded bg-gray-800/40 border border-gray-700/50")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-2")},
-        list{
-          div(list{Attrs.class_("text-xs text-gray-500 font-medium")}, list{text("INFORMATION HUMIDITY")}),
-          div(list{Attrs.class_(`text-xs font-bold ${colour}`)}, list{text(label)}),
-        },
-      ),
-      div(list{Attrs.class_("text-[10px] text-gray-600 italic")}, list{text(description)}),
-    },
-  )
-}
-
-/// Render ergonomic metrics (cancellations and corrections).
-let renderErgonomicMetrics = (state: paneAState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("grid grid-cols-2 gap-3 mb-4")},
-    list{
-      div(
-        list{Attrs.class_("p-2 bg-gray-800/30 rounded border border-gray-800")},
-        list{
-          div(list{Attrs.class_("text-[10px] text-gray-500 uppercase")}, list{text("Cancellations")}),
-          div(
-            list{Attrs.class_("text-lg font-mono text-amber-300")},
-            list{text(Int.toString(state.recentCancellations))},
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("p-2 bg-gray-800/30 rounded border border-gray-800")},
-        list{
-          div(list{Attrs.class_("text-[10px] text-gray-500 uppercase")}, list{text("Corrections")}),
-          div(
-            list{Attrs.class_("text-lg font-mono text-amber-300")},
-            list{text(Int.toString(state.recentCorrections))},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// The main Pane-A view.
-/// This sitting alongside L, N, and W to provide the ergonomic control layer.
-let view = (state: paneAState): Tea_Vdom.t<msg> => {
-  let vexPercent = Int.toString(Int.fromFloat(state.vexationIndex *. 100.0))
-  let vexColour = if state.vexationIndex > 0.7 {
-    "text-red-400"
-  } else if state.vexationIndex > 0.4 {
-    "text-amber-400"
-  } else {
-    "text-emerald-400"
-  }
-
-  div(
-    list{
-      Attrs.class_("h-full flex flex-col p-4 bg-gray-950 border-r border-gray-900"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Ambient Substrate Panel"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-6")},
-        list{
-          div(list{Attrs.class_("text-gray-400 font-semibold flex items-center gap-2")}, list{
-            span(list{Attrs.class_("w-2 h-2 rounded-full bg-blue-500 animate-pulse")}, list{}),
-            text("Ambient Substrate")
-          }),
-          button(
-             list{
-               Attrs.class_("text-[10px] text-gray-600 hover:text-gray-400 font-mono"),
-               Events.onClick(PaneA(ToggleExpansion)),
-             },
-             list{text(state.expanded ? "COLLAPSE" : "EXPAND")}
-          )
-        },
-      ),
-
-      // Vexation Summary
-      div(
-        list{Attrs.class_("mb-6")},
-        list{
-          div(list{Attrs.class_("text-xs text-gray-500 mb-1")}, list{text("VEXATION INDEX")}),
-          div(
-            list{Attrs.class_(`text-4xl font-light tracking-tighter ${vexColour}`)},
-            list{text(vexPercent ++ "%")},
-          ),
-          if state.antiInflammatoryActive {
-            div(
-              list{Attrs.class_("mt-2 text-[10px] bg-indigo-900/40 text-indigo-300 px-2 py-1 rounded border border-indigo-800/50 inline-block")},
-              list{text("ANTI-INFLAMMATORY ACTIVE")},
-            )
-          } else {
-            noNode
-          },
-        },
-      ),
-
-      // Humidity Control
-      renderHumidityIndicator(state.humidity),
-
-      // Detailed metrics (only shown when expanded)
-      if state.expanded {
-        div(
-          list{Attrs.class_("mt-2 animate-in fade-in slide-in-from-top-2 duration-300")},
-          list{
-            div(list{Attrs.class_("text-xs text-gray-500 mb-2 font-medium")}, list{text("FRICTION ANALYSIS")}),
-            renderErgonomicMetrics(state),
-            div(
-              list{Attrs.class_("text-[10px] text-gray-500 leading-relaxed")},
-              list{text("Panel-A implements the Cognitive Relief Layer (CRL). It dynamically rescales the information density of Panels L, N, and W to prevent operator stasis.")},
-            )
-          }
-        )
-      } else {
-        noNode
-      }
-    },
-  )
-}
diff --git a/src/components/PaneL.affine b/src/components/PaneL.affine
new file mode 100644
index 00000000..9900ee38
--- /dev/null
+++ b/src/components/PaneL.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PaneL;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/PaneL.res b/src/components/PaneL.res
deleted file mode 100644
index 0aceed0b..00000000
--- a/src/components/PaneL.res
+++ /dev/null
@@ -1,366 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Pane-L: Symbolic Mass Component
-///
-/// The constraint/logic editor - "The Law" that governs neural inference.
-/// Implements the Tractatus view for symbolic constraints.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a single constraint item
-let renderConstraint = (c: symbolicConstraint): Tea_Vdom.t<msg> => {
-  let activeClass = c.active ? "border-indigo-500" : "border-gray-700"
-  let pinnedIcon = c.pinned ? " [pinned]" : ""
-
-  div(
-    list{
-      Attrs.class_(`p-2 mb-2 border ${activeClass} rounded bg-gray-800/50`),
-      Attrs.role("listitem"),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between")},
-        list{
-          div(
-            list{Attrs.class_("font-mono text-sm text-indigo-300")},
-            list{text(c.expression ++ pinnedIcon)},
-          ),
-          div(
-            list{Attrs.class_("flex gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_("text-xs text-gray-500 hover:text-indigo-400"),
-                  Events.onClick(PaneL(ToggleConstraint(c.id))),
-                  Attrs.ariaPressed(c.active),
-                  Attrs.ariaLabel(
-                    c.active ? "Disable constraint " ++ c.id : "Enable constraint " ++ c.id,
-                  ),
-                },
-                list{text(c.active ? "disable" : "enable")},
-              ),
-              button(
-                list{
-                  Attrs.class_("text-xs text-gray-500 hover:text-amber-400"),
-                  Events.onClick(PaneL(PinConstraint(c.id))),
-                  Attrs.ariaPressed(c.pinned),
-                  Attrs.ariaLabel(
-                    c.pinned ? "Unpin constraint " ++ c.id : "Pin constraint " ++ c.id,
-                  ),
-                },
-                list{text(c.pinned ? "unpin" : "pin")},
-              ),
-              button(
-                list{
-                  Attrs.class_("text-xs text-gray-500 hover:text-red-400"),
-                  Events.onClick(PaneL(RemoveConstraint(c.id))),
-                  Attrs.ariaLabel("Remove constraint " ++ c.id),
-                },
-                list{text("x")},
-              ),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render the constraint list with active count and add button
-let renderConstraintList = (constraints: array<symbolicConstraint>): Tea_Vdom.t<msg> => {
-  let activeCount = constraints->Array.filter(c => c.active)->Array.length
-  let totalCount = Array.length(constraints)
-
-  div(
-    list{Attrs.class_("mb-4")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-2")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("ACTIVE CONSTRAINTS")}),
-              if totalCount > 0 {
-                span(
-                  list{
-                    Attrs.class_(
-                      "text-xs px-1.5 py-0.5 rounded bg-indigo-900/40 text-indigo-400 font-mono",
-                    ),
-                  },
-                  list{text(Int.toString(activeCount) ++ "/" ++ Int.toString(totalCount))},
-                )
-              } else {
-                noNode
-              },
-            },
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "text-xs px-2 py-0.5 bg-indigo-900/30 hover:bg-indigo-800/40 text-indigo-400 rounded border border-indigo-800/50",
-              ),
-              Events.onClick(
-                PaneL(
-                  AddConstraint({
-                    id: "user-" ++ Int.toString(totalCount + 1),
-                    expression: "// New constraint",
-                    active: true,
-                    pinned: false,
-                  }),
-                ),
-              ),
-              Attrs.ariaLabel("Add new constraint"),
-            },
-            list{text("+ Add")},
-          ),
-        },
-      ),
-      if totalCount === 0 {
-        div(
-          list{Attrs.class_("text-gray-600 text-sm italic")},
-          list{text("No constraints defined")},
-        )
-      } else {
-        div(list{Attrs.role("list")}, constraints->Array.map(renderConstraint)->List.fromArray)
-      },
-    },
-  )
-}
-
-// ===========================================================================
-// TypeLL Inferred Type Display
-// ===========================================================================
-
-/// Render the TypeLL-inferred type for the current editor expression.
-/// Compact display showing type signature in monospace.
-let viewInferredType = (lastInferredType: option<string>): Tea_Vdom.t<msg> => {
-  switch lastInferredType {
-  | None => noNode
-  | Some(json) =>
-    switch TypeLLEngine.parseCheckResult(json) {
-    | Error(_) => noNode
-    | Ok(result) =>
-      let borderColour = if result.valid {
-        "border-green-700 bg-green-900/20"
-      } else {
-        "border-red-700 bg-red-900/20"
-      }
-      let labelColour = if result.valid {
-        "text-green-400"
-      } else {
-        "text-red-400"
-      }
-      div(
-        list{Attrs.class_("mt-2 p-2 rounded border " ++ borderColour)},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2 mb-1")},
-            list{
-              span(
-                list{Attrs.class_("text-xs font-bold uppercase tracking-wider " ++ labelColour)},
-                list{text("TypeLL")},
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("text-sm text-gray-300 font-mono")},
-            list{text(result.typeSignature)},
-          ),
-          if Array.length(result.proofObligations) > 0 {
-            div(
-              list{Attrs.class_("text-xs text-yellow-400 mt-1")},
-              list{text("Proof obligations: " ++ Array.join(result.proofObligations, ", "))},
-            )
-          } else {
-            noNode
-          },
-          if Array.length(result.linearityIssues) > 0 {
-            div(
-              list{Attrs.class_("text-xs text-orange-400 mt-1")},
-              list{text("Linearity: " ++ Array.join(result.linearityIssues, ", "))},
-            )
-          } else {
-            noNode
-          },
-        },
-      )
-    }
-  }
-}
-
-/// Render the constraint editor
-let renderEditor = (content: string): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1")},
-    list{
-      div(list{Attrs.class_("text-xs text-gray-500 mb-2")}, list{text("TRACTATUS EDITOR")}),
-      textarea(
-        list{
-          Attrs.class_(
-            "w-full h-64 bg-gray-800 border border-gray-700 rounded p-3 font-mono text-sm text-indigo-200 resize-none focus:border-indigo-500 focus:outline-none",
-          ),
-          Attrs.placeholder(
-            "// Define symbolic constraints...\n// e.g., type User = { name: string, age: int }",
-          ),
-          Attrs.value(content),
-          Events.onInput(value => PaneL(UpdateEditorContent(value))),
-          Attrs.ariaLabel("Tractatus Editor"),
-        },
-        list{},
-      ),
-    },
-  )
-}
-
-/// Render proof obligations from a VCL-total query result certificate.
-/// Displays proof type, contract, verification status, and hash for each
-/// obligation the type checker inferred during query execution.
-let renderProofObligations = (proofs: array<proofObligation>): Tea_Vdom.t<msg> => {
-  if Array.length(proofs) === 0 {
-    text("")
-  } else {
-    let rows =
-      proofs
-      ->Array.map(p => {
-        let statusColour = switch p.status {
-        | "verified" => "text-emerald-300"
-        | "failed" => "text-red-400"
-        | _ => "text-amber-300"
-        }
-
-        let hashTruncated =
-          String.length(p.proofHash) > 16
-            ? String.slice(p.proofHash, ~start=0, ~end=16) ++ "..."
-            : p.proofHash
-
-        div(
-          list{
-            Attrs.class_(
-              "flex items-center justify-between text-xs border-b border-gray-800/60 py-1",
-            ),
-          },
-          list{
-            div(
-              list{Attrs.class_("text-indigo-300 font-mono")},
-              list{text(String.toUpperCase(p.proofType))},
-            ),
-            div(list{Attrs.class_("text-gray-400")}, list{text(p.contractName)}),
-            div(list{Attrs.class_(statusColour ++ " font-semibold")}, list{text(p.status)}),
-            div(
-              list{Attrs.class_("text-gray-600 font-mono text-[10px]")},
-              list{text(hashTruncated)},
-            ),
-          },
-        )
-      })
-      ->List.fromArray
-
-    div(
-      list{Attrs.class_("mt-4 p-3 border border-indigo-900/30 rounded bg-indigo-900/20 space-y-2")},
-      list{
-        div(
-          list{Attrs.class_("text-xs text-indigo-400 tracking-widest uppercase")},
-          list{text("PROOF OBLIGATIONS (VCL-total)")},
-        ),
-        div(
-          list{Attrs.class_("text-[10px] text-gray-500")},
-          list{text(Int.toString(Array.length(proofs)) ++ " proof(s) from last VCL-total query")},
-        ),
-        div(list{Attrs.class_("space-y-0.5")}, rows),
-      },
-    )
-  }
-}
-
-/// Render the symbolic mass density bar — shows how much constraint
-/// content is feeding into the barycentre calculation.
-let renderMassDensityBar = (
-  constraints: array<symbolicConstraint>,
-  editorContent: string,
-): Tea_Vdom.t<msg> => {
-  let activeConstraints = constraints->Array.filter(c => c.active)->Array.length
-  let tokenCount =
-    String.split(editorContent, " ")
-    ->Array.filter(t => String.length(String.trim(t)) > 0)
-    ->Array.length
-  let mass = Math.min(1.0, Int.toFloat(tokenCount) /. 500.0)
-  let massPercent = Int.toString(Int.fromFloat(mass *. 100.0))
-  let barWidth = massPercent ++ "%"
-  let barColour = if mass > 0.5 {
-    "bg-indigo-500"
-  } else if mass > 0.2 {
-    "bg-indigo-600"
-  } else {
-    "bg-indigo-800"
-  }
-
-  div(
-    list{Attrs.class_("mb-4 p-2 rounded bg-gray-800/50 border border-gray-700/50")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-1")},
-        list{
-          div(list{Attrs.class_("text-xs text-gray-500")}, list{text("MASS DENSITY")}),
-          div(
-            list{Attrs.class_("text-xs font-mono text-indigo-400")},
-            list{
-              text(
-                massPercent ++
-                "% (" ++
-                Int.toString(tokenCount) ++
-                " tokens, " ++
-                Int.toString(activeConstraints) ++ " active)",
-              ),
-            },
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("w-full h-1.5 bg-gray-700 rounded-full overflow-hidden")},
-        list{
-          div(
-            list{
-              Attrs.class_(`h-full ${barColour} rounded-full transition-all`),
-              Attrs.style("width", barWidth),
-            },
-            list{},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Main Pane-L view
-let view = (state: paneLState, proofs: array<proofObligation>): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("h-full flex flex-col p-4 bg-gray-900"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Symbolic Mass Panel"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-4")},
-        list{
-          div(list{Attrs.class_("text-indigo-400 font-semibold")}, list{text("Symbolic Mass")}),
-          div(list{Attrs.class_("text-xs text-gray-600")}, list{text("Ctrl+Shift+L")}),
-        },
-      ),
-      // Mass density indicator
-      renderMassDensityBar(state.constraints, state.editorContent),
-      // Constraint list
-      renderConstraintList(state.constraints),
-      // Proof obligations from VCL-total queries
-      renderProofObligations(proofs),
-      // Editor
-      renderEditor(state.editorContent),
-      // TypeLL inferred type for editor expression
-      viewInferredType(state.lastInferredType),
-    },
-  )
-}
diff --git a/src/components/PaneN.affine b/src/components/PaneN.affine
new file mode 100644
index 00000000..b306e0c0
--- /dev/null
+++ b/src/components/PaneN.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PaneN;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/PaneN.res b/src/components/PaneN.res
deleted file mode 100644
index 2f841a1a..00000000
--- a/src/components/PaneN.res
+++ /dev/null
@@ -1,2024 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Pane-N: Neural Stream Component
-///
-/// The inference manifold showing the Agent's internal monologue,
-/// OODA loop visibility, and Thing-Agency monitor.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render the OODA phase indicator
-let renderOodaPhase = (phase: oodaPhase): Tea_Vdom.t<msg> => {
-  let phases = [
-    (Observe, "O", "Observe"),
-    (Orient, "O", "Orient"),
-    (Decide, "D", "Decide"),
-    (Act, "A", "Act"),
-  ]
-
-  div(
-    list{Attrs.class_("flex gap-1 mb-4")},
-    phases
-    ->Array.map(((p, letter, label)) => {
-      let isActive = p === phase
-      let bgClass = isActive ? "bg-emerald-600" : "bg-gray-700"
-      let textClass = isActive ? "text-white" : "text-gray-500"
-
-      div(
-        list{
-          Attrs.class_(
-            `${bgClass} ${textClass} w-8 h-8 rounded flex items-center justify-center text-xs font-bold`,
-          ),
-          Attrs.title(label),
-          Attrs.ariaCurrent(isActive ? "step" : "false"),
-        },
-        list{text(letter)},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Render the Thing-Agency monitor
-let renderAgencyMonitor = (agency: agencyState): Tea_Vdom.t<msg> => {
-  let autonomyPercent = Int.toString(Int.fromFloat(agency.autonomyLevel *. 100.0))
-  let barWidth = autonomyPercent ++ "%"
-
-  div(
-    list{Attrs.class_("mb-4 p-3 bg-gray-800/50 rounded")},
-    list{
-      div(list{Attrs.class_("text-xs text-gray-500 mb-2")}, list{text("THING-AGENCY MONITOR")}),
-      renderOodaPhase(agency.phase),
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          div(list{Attrs.class_("text-xs text-gray-400 w-20")}, list{text("Autonomy:")}),
-          div(
-            list{
-              Attrs.class_("flex-1 h-2 bg-gray-700 rounded overflow-hidden"),
-              Attrs.role("progressbar"),
-              Attrs.ariaLabel("Autonomy Level"),
-              Attrs.ariaValueNow(agency.autonomyLevel *. 100.0),
-              Attrs.ariaValueMin(0.0),
-              Attrs.ariaValueMax(100.0),
-            },
-            list{
-              div(
-                list{
-                  Attrs.class_("h-full bg-emerald-500 transition-all duration-300"),
-                  Attrs.style("width", barWidth),
-                },
-                list{},
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("text-xs text-emerald-400 w-12 text-right")},
-            list{text(autonomyPercent ++ "%")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Source badge colour and label for token provenance display.
-let sourceLabel = (source: tokenSource): (string, string) =>
-  switch source {
-  | NeuralInference => ("N", "bg-emerald-800 text-emerald-300")
-  | EchidnaProver => ("E", "bg-indigo-800 text-indigo-300")
-  | TypeLLKernel => ("T", "bg-violet-800 text-violet-300")
-  | VeriSimInference => ("V", "bg-cyan-800 text-cyan-300")
-  | AntiCrashGate => ("!", "bg-red-800 text-red-300")
-  | OperatorInput => ("H", "bg-amber-800 text-amber-300")
-  | OrbitalSync => ("S", "bg-blue-800 text-blue-300")
-  }
-
-/// Category icon for semantic reasoning step display.
-let categoryIcon = (cat: tokenCategory): string =>
-  switch cat {
-  | Observation => "?"
-  | Hypothesis => "~"
-  | Deduction => ">"
-  | Abduction => "<"
-  | ProofStep => "#"
-  | Violation => "X"
-  | Correction => "^"
-  | Synthesis => "*"
-  }
-
-/// OODA phase short label for inline display.
-let phaseLabel = (phase: oodaPhase): string =>
-  switch phase {
-  | Observe => "OBS"
-  | Orient => "ORI"
-  | Decide => "DEC"
-  | Act => "ACT"
-  }
-
-/// Render a neural token with full provenance, category, and causal metadata.
-let renderToken = (token: neuralToken): Tea_Vdom.t<msg> => {
-  let validatedClass = token.validated ? "border-emerald-700" : "border-amber-700"
-  let confidencePercent = Int.toString(Int.fromFloat(token.confidence *. 100.0))
-  let (srcLetter, srcColour) = sourceLabel(token.source)
-  let catIcon = categoryIcon(token.category)
-  let phase = phaseLabel(token.emittedDuring)
-  let hasCauses = Array.length(token.causedBy) > 0
-  let hasProof = token.proofHash !== None
-
-  div(
-    list{
-      Attrs.class_(`p-2 mb-1 border-l-2 ${validatedClass} bg-gray-800/30`),
-      Attrs.ariaLabel(token.content),
-    },
-    list{
-      // Top row: source badge + content
-      div(
-        list{Attrs.class_("flex items-start gap-2")},
-        list{
-          // Source badge (single letter, colour-coded)
-          span(
-            list{
-              Attrs.class_(
-                `w-5 h-5 rounded flex items-center justify-center text-[10px] font-bold shrink-0 ${srcColour}`,
-              ),
-              Attrs.title(
-                switch token.source {
-                | NeuralInference => "Neural Inference"
-                | EchidnaProver => "ECHIDNA Prover"
-                | TypeLLKernel => "TypeLL Kernel"
-                | VeriSimInference => "VeriSimDB Inference"
-                | AntiCrashGate => "Anti-Crash Gate"
-                | OperatorInput => "Operator Input"
-                | OrbitalSync => "OrbitalSync"
-                },
-              ),
-            },
-            list{text(srcLetter)},
-          ),
-          // Token content
-          div(list{Attrs.class_("text-sm text-gray-300 flex-1")}, list{text(token.content)}),
-        },
-      ),
-      // Bottom row: metadata chips
-      div(
-        list{Attrs.class_("flex items-center gap-2 mt-1 pl-7")},
-        list{
-          // Confidence
-          span(
-            list{Attrs.class_("text-[10px] text-gray-500")},
-            list{text(`${confidencePercent}%`)},
-          ),
-          // Category icon
-          span(
-            list{
-              Attrs.class_("text-[10px] text-gray-600 font-mono"),
-              Attrs.title(
-                switch token.category {
-                | Observation => "Observation"
-                | Hypothesis => "Hypothesis"
-                | Deduction => "Deduction"
-                | Abduction => "Abduction"
-                | ProofStep => "Proof Step"
-                | Violation => "Violation"
-                | Correction => "Correction"
-                | Synthesis => "Synthesis"
-                },
-              ),
-            },
-            list{text(`[${catIcon}]`)},
-          ),
-          // OODA phase
-          span(list{Attrs.class_("text-[10px] text-gray-600")}, list{text(phase)}),
-          // Causal chain indicator
-          if hasCauses {
-            span(
-              list{
-                Attrs.class_("text-[10px] text-gray-600"),
-                Attrs.title("Caused by: " ++ Array.join(token.causedBy, ", ")),
-              },
-              list{text(`<${Int.toString(Array.length(token.causedBy))}`)},
-            )
-          } else {
-            noNode
-          },
-          // Proof hash indicator
-          if hasProof {
-            span(
-              list{
-                Attrs.class_("text-[10px] text-emerald-600 font-mono"),
-                Attrs.title(
-                  switch token.proofHash {
-                  | Some(h) => h
-                  | None => ""
-                  },
-                ),
-              },
-              list{text("#")},
-            )
-          } else {
-            noNode
-          },
-        },
-      ),
-    },
-  )
-}
-
-/// OODA phase colour for timeline segments.
-let phaseColour = (phase: oodaPhase): string =>
-  switch phase {
-  | Observe => "bg-cyan-600"
-  | Orient => "bg-amber-600"
-  | Decide => "bg-violet-600"
-  | Act => "bg-emerald-600"
-  }
-
-/// Render the OODA phase timeline — a horizontal bar showing the sequence of
-/// phases across the token stream, with segment widths proportional to token counts.
-let renderOodaTimeline = (tokens: array<neuralToken>): Tea_Vdom.t<msg> => {
-  let total = Float.fromInt(Array.length(tokens))
-  if total === 0.0 {
-    noNode
-  } else {
-    // Group consecutive tokens by phase into segments
-    let segments: array<(oodaPhase, int)> = []
-    Array.forEach(tokens, token => {
-      let len = Array.length(segments)
-      if len > 0 {
-        let (lastPhase, lastCount) = segments->Array.getUnsafe(len - 1)
-        if lastPhase === token.emittedDuring {
-          ignore(
-            segments->Array.splice(~start=len - 1, ~remove=1, ~insert=[(lastPhase, lastCount + 1)]),
-          )
-        } else {
-          ignore(Array.push(segments, (token.emittedDuring, 1)))
-        }
-      } else {
-        ignore(Array.push(segments, (token.emittedDuring, 1)))
-      }
-    })
-
-    div(
-      list{Attrs.class_("mb-3")},
-      list{
-        div(
-          list{Attrs.class_("flex items-center justify-between mb-1")},
-          list{
-            div(
-              list{Attrs.class_("text-[10px] text-gray-500 uppercase tracking-wider")},
-              list{text("OODA Timeline")},
-            ),
-            div(
-              list{Attrs.class_("flex gap-2 text-[9px] text-gray-600")},
-              list{
-                span(
-                  list{Attrs.class_("flex items-center gap-1")},
-                  list{
-                    span(list{Attrs.class_("w-2 h-2 rounded-sm bg-cyan-600")}, list{}),
-                    text("Observe"),
-                  },
-                ),
-                span(
-                  list{Attrs.class_("flex items-center gap-1")},
-                  list{
-                    span(list{Attrs.class_("w-2 h-2 rounded-sm bg-amber-600")}, list{}),
-                    text("Orient"),
-                  },
-                ),
-                span(
-                  list{Attrs.class_("flex items-center gap-1")},
-                  list{
-                    span(list{Attrs.class_("w-2 h-2 rounded-sm bg-violet-600")}, list{}),
-                    text("Decide"),
-                  },
-                ),
-                span(
-                  list{Attrs.class_("flex items-center gap-1")},
-                  list{
-                    span(list{Attrs.class_("w-2 h-2 rounded-sm bg-emerald-600")}, list{}),
-                    text("Act"),
-                  },
-                ),
-              },
-            ),
-          },
-        ),
-        // Timeline bar
-        div(
-          list{
-            Attrs.class_("flex h-3 rounded overflow-hidden"),
-            Attrs.role("img"),
-            Attrs.ariaLabel("OODA phase distribution across inference tokens"),
-          },
-          segments
-          ->Array.map(((phase, count)) => {
-            let widthPct = Float.toString(Float.fromInt(count) /. total *. 100.0) ++ "%"
-            div(
-              list{
-                Attrs.class_(`${phaseColour(phase)} transition-all duration-300`),
-                Attrs.style("width", widthPct),
-                Attrs.title(phaseLabel(phase) ++ ": " ++ Int.toString(count) ++ " tokens"),
-              },
-              list{},
-            )
-          })
-          ->List.fromArray,
-        ),
-      },
-    )
-  }
-}
-
-/// Render source distribution — small horizontal bar showing which subsystems
-/// contributed tokens, colour-coded by source.
-let renderSourceDistribution = (tokens: array<neuralToken>): Tea_Vdom.t<msg> => {
-  let total = Float.fromInt(Array.length(tokens))
-  if total === 0.0 {
-    noNode
-  } else {
-    // Count by source
-    let counts: array<(tokenSource, string, string, int)> = [
-      (NeuralInference, "N", "bg-emerald-700", 0),
-      (EchidnaProver, "E", "bg-indigo-700", 0),
-      (TypeLLKernel, "T", "bg-violet-700", 0),
-      (VeriSimInference, "V", "bg-cyan-700", 0),
-      (AntiCrashGate, "!", "bg-red-700", 0),
-      (OperatorInput, "H", "bg-amber-700", 0),
-      (OrbitalSync, "S", "bg-blue-700", 0),
-    ]
-    Array.forEach(tokens, token => {
-      let idx = counts->Array.findIndex(((src, _, _, _)) => src === token.source)
-      if idx >= 0 {
-        let (src, lbl, col, n) = counts->Array.getUnsafe(idx)
-        ignore(counts->Array.splice(~start=idx, ~remove=1, ~insert=[(src, lbl, col, n + 1)]))
-      }
-    })
-    let active = counts->Array.filter(((_, _, _, n)) => n > 0)
-
-    div(
-      list{Attrs.class_("mb-3")},
-      list{
-        div(
-          list{Attrs.class_("text-[10px] text-gray-500 uppercase tracking-wider mb-1")},
-          list{text("Source Distribution")},
-        ),
-        div(
-          list{Attrs.class_("flex h-2 rounded overflow-hidden mb-1")},
-          active
-          ->Array.map(((_, _, col, n)) => {
-            let widthPct = Float.toString(Float.fromInt(n) /. total *. 100.0) ++ "%"
-            div(
-              list{
-                Attrs.class_(`${col} transition-all duration-300`),
-                Attrs.style("width", widthPct),
-              },
-              list{},
-            )
-          })
-          ->List.fromArray,
-        ),
-        // Legend with counts
-        div(
-          list{Attrs.class_("flex gap-2 flex-wrap")},
-          active
-          ->Array.map(((_, lbl, col, n)) => {
-            span(
-              list{Attrs.class_("flex items-center gap-1 text-[9px] text-gray-500")},
-              list{
-                span(list{Attrs.class_(`w-2 h-2 rounded-sm ${col}`)}, list{}),
-                text(lbl ++ ":" ++ Int.toString(n)),
-              },
-            )
-          })
-          ->List.fromArray,
-        ),
-      },
-    )
-  }
-}
-
-/// Render the causal inference graph — a compact ASCII-style DAG showing how
-/// tokens are causally linked. Each token shows its ID and arrows to parents.
-let renderCausalGraph = (tokens: array<neuralToken>): Tea_Vdom.t<msg> => {
-  // Only show tokens that have causal links (either cause or are caused by)
-  let linked =
-    tokens->Array.filter(t =>
-      Array.length(t.causedBy) > 0 ||
-        tokens->Array.some(other => other.causedBy->Array.some(id => id === t.id))
-    )
-  if Array.length(linked) === 0 {
-    noNode
-  } else {
-    div(
-      list{Attrs.class_("mb-3")},
-      list{
-        div(
-          list{Attrs.class_("text-[10px] text-gray-500 uppercase tracking-wider mb-1")},
-          list{text("Inference Chain")},
-        ),
-        div(
-          list{
-            Attrs.class_("max-h-24 overflow-y-auto bg-gray-900/50 rounded p-2"),
-            Attrs.role("img"),
-            Attrs.ariaLabel("Causal inference graph"),
-          },
-          linked
-          ->Array.map(token => {
-            let (_, srcColour) = sourceLabel(token.source)
-            let arrow = if Array.length(token.causedBy) > 0 {
-              Array.join(token.causedBy, ",") ++ " -> "
-            } else {
-              ""
-            }
-            let proofMark = switch token.proofHash {
-            | Some(_) => " #"
-            | None => ""
-            }
-            div(
-              list{Attrs.class_("flex items-center gap-1 py-0.5 font-mono text-[10px]")},
-              list{
-                // Causal arrow
-                if arrow !== "" {
-                  span(list{Attrs.class_("text-gray-600")}, list{text(arrow)})
-                } else {
-                  span(list{Attrs.class_("text-gray-700")}, list{text("  root -> ")})
-                },
-                // Token ID badge
-                span(
-                  list{Attrs.class_(`px-1 py-0.5 rounded text-[9px] font-bold ${srcColour}`)},
-                  list{text(token.id)},
-                ),
-                // Truncated content
-                span(
-                  list{Attrs.class_("text-gray-500 truncate flex-1")},
-                  list{text(String.slice(token.content, ~start=0, ~end=40))},
-                ),
-                // Proof indicator
-                if proofMark !== "" {
-                  span(list{Attrs.class_("text-emerald-500 font-bold")}, list{text("#")})
-                } else {
-                  noNode
-                },
-              },
-            )
-          })
-          ->List.fromArray,
-        ),
-      },
-    )
-  }
-}
-
-/// Apply filter state to a token array — returns only tokens matching all active filters.
-let applyFilters = (tokens: array<neuralToken>, filters: tokenFilters): array<neuralToken> => {
-  tokens->Array.filter(token => {
-    let passSource =
-      Array.length(filters.sources) === 0 || filters.sources->Array.some(s => s === token.source)
-    let passCategory =
-      Array.length(filters.categories) === 0 ||
-        filters.categories->Array.some(c => c === token.category)
-    let passPhase =
-      Array.length(filters.phases) === 0 ||
-        filters.phases->Array.some(p => p === token.emittedDuring)
-    let passConfidence = token.confidence >= filters.confidenceThreshold
-    let passValidated = !filters.validatedOnly || token.validated
-    let passProof = !filters.proofOnly || token.proofHash !== None
-    passSource && passCategory && passPhase && passConfidence && passValidated && passProof
-  })
-}
-
-/// Source filter chip — name and colour for each source type.
-let sourceChipInfo = (source: tokenSource): (string, string, string) =>
-  switch source {
-  | NeuralInference => ("Neural", "bg-emerald-800 text-emerald-300", "bg-emerald-600 text-white")
-  | EchidnaProver => ("ECHIDNA", "bg-indigo-800 text-indigo-300", "bg-indigo-600 text-white")
-  | TypeLLKernel => ("TypeLL", "bg-violet-800 text-violet-300", "bg-violet-600 text-white")
-  | VeriSimInference => ("VeriSim", "bg-cyan-800 text-cyan-300", "bg-cyan-600 text-white")
-  | AntiCrashGate => ("AntiCrash", "bg-red-800 text-red-300", "bg-red-600 text-white")
-  | OperatorInput => ("Operator", "bg-amber-800 text-amber-300", "bg-amber-600 text-white")
-  | OrbitalSync => ("Orbital", "bg-blue-800 text-blue-300", "bg-blue-600 text-white")
-  }
-
-/// Category filter chip label.
-let categoryChipLabel = (cat: tokenCategory): string =>
-  switch cat {
-  | Observation => "Obs"
-  | Hypothesis => "Hyp"
-  | Deduction => "Ded"
-  | Abduction => "Abd"
-  | ProofStep => "Proof"
-  | Violation => "Viol"
-  | Correction => "Corr"
-  | Synthesis => "Synth"
-  }
-
-/// Render the interactive filter bar — source chips, category chips, phase chips,
-/// confidence slider, validated/proof toggles.
-let renderFilterBar = (filters: tokenFilters, totalCount: int, filteredCount: int): Tea_Vdom.t<
-  msg,
-> => {
-  let allSources: array<tokenSource> = [
-    NeuralInference,
-    EchidnaProver,
-    TypeLLKernel,
-    VeriSimInference,
-    AntiCrashGate,
-    OperatorInput,
-    OrbitalSync,
-  ]
-  let allCategories: array<tokenCategory> = [
-    Observation,
-    Hypothesis,
-    Deduction,
-    Abduction,
-    ProofStep,
-    Violation,
-    Correction,
-    Synthesis,
-  ]
-  let allPhases: array<oodaPhase> = [Observe, Orient, Decide, Act]
-  let hasActiveFilters =
-    Array.length(filters.sources) > 0 ||
-    Array.length(filters.categories) > 0 ||
-    Array.length(filters.phases) > 0 ||
-    filters.confidenceThreshold > 0.0 ||
-    filters.validatedOnly ||
-    filters.proofOnly
-
-  div(
-    list{Attrs.class_("mb-3 p-2 bg-gray-900/50 rounded border border-gray-800")},
-    list{
-      // Header with count and clear button
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-2")},
-        list{
-          div(
-            list{Attrs.class_("text-[10px] text-gray-500 uppercase tracking-wider")},
-            list{text("Filters")},
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              if hasActiveFilters {
-                span(
-                  list{Attrs.class_("text-[10px] text-amber-500")},
-                  list{text(Int.toString(filteredCount) ++ "/" ++ Int.toString(totalCount))},
-                )
-              } else {
-                noNode
-              },
-              if hasActiveFilters {
-                button(
-                  list{
-                    Attrs.class_("text-[10px] text-gray-500 hover:text-gray-300 px-1"),
-                    Events.onClick(PaneN(ClearFilters)),
-                    KeyboardNav.onActivate(PaneN(ClearFilters)),
-                  },
-                  list{text("Clear")},
-                )
-              } else {
-                noNode
-              },
-            },
-          ),
-        },
-      ),
-      // Source filter chips
-      div(
-        list{Attrs.class_("flex flex-wrap gap-1 mb-1.5")},
-        allSources
-        ->Array.map(source => {
-          let (label, inactiveClass, activeClass) = sourceChipInfo(source)
-          let isActive = filters.sources->Array.some(s => s === source)
-          let chipClass = if isActive {
-            activeClass
-          } else {
-            inactiveClass ++ " opacity-50"
-          }
-          button(
-            list{
-              Attrs.class_(
-                `px-1.5 py-0.5 rounded text-[9px] font-medium cursor-pointer transition-opacity ${chipClass}`,
-              ),
-              Events.onClick(PaneN(ToggleSourceFilter(source))),
-              Attrs.ariaPressed(isActive),
-              Attrs.ariaLabel("Filter by " ++ label),
-            },
-            list{text(label)},
-          )
-        })
-        ->List.fromArray,
-      ),
-      // Category filter chips
-      div(
-        list{Attrs.class_("flex flex-wrap gap-1 mb-1.5")},
-        allCategories
-        ->Array.map(cat => {
-          let label = categoryChipLabel(cat)
-          let isActive = filters.categories->Array.some(c => c === cat)
-          let chipClass = if isActive {
-            "bg-gray-600 text-white"
-          } else {
-            "bg-gray-800 text-gray-500 opacity-50"
-          }
-          button(
-            list{
-              Attrs.class_(
-                `px-1.5 py-0.5 rounded text-[9px] font-medium cursor-pointer transition-opacity ${chipClass}`,
-              ),
-              Events.onClick(PaneN(ToggleCategoryFilter(cat))),
-              Attrs.ariaPressed(isActive),
-              Attrs.ariaLabel("Filter by " ++ label),
-            },
-            list{text(label)},
-          )
-        })
-        ->List.fromArray,
-      ),
-      // Phase filter chips + toggles row
-      div(
-        list{Attrs.class_("flex items-center gap-2 mb-1.5")},
-        list{
-          // OODA phase chips
-          div(
-            list{Attrs.class_("flex gap-1")},
-            allPhases
-            ->Array.map(phase => {
-              let label = phaseLabel(phase)
-              let isActive = filters.phases->Array.some(p => p === phase)
-              let colour = switch phase {
-              | Observe =>
-                if isActive {
-                  "bg-cyan-600 text-white"
-                } else {
-                  "bg-cyan-900 text-cyan-600 opacity-50"
-                }
-              | Orient =>
-                if isActive {
-                  "bg-amber-600 text-white"
-                } else {
-                  "bg-amber-900 text-amber-600 opacity-50"
-                }
-              | Decide =>
-                if isActive {
-                  "bg-violet-600 text-white"
-                } else {
-                  "bg-violet-900 text-violet-600 opacity-50"
-                }
-              | Act =>
-                if isActive {
-                  "bg-emerald-600 text-white"
-                } else {
-                  "bg-emerald-900 text-emerald-600 opacity-50"
-                }
-              }
-              button(
-                list{
-                  Attrs.class_(
-                    `px-1.5 py-0.5 rounded text-[9px] font-bold cursor-pointer transition-opacity ${colour}`,
-                  ),
-                  Events.onClick(PaneN(TogglePhaseFilter(phase))),
-                  Attrs.ariaPressed(isActive),
-                },
-                list{text(label)},
-              )
-            })
-            ->List.fromArray,
-          ),
-          // Validated-only toggle
-          button(
-            list{
-              Attrs.class_(
-                "px-1.5 py-0.5 rounded text-[9px] cursor-pointer " ++ if filters.validatedOnly {
-                  "bg-emerald-700 text-emerald-200"
-                } else {
-                  "bg-gray-800 text-gray-600 opacity-50"
-                },
-              ),
-              Events.onClick(PaneN(ToggleValidatedOnly)),
-              KeyboardNav.onActivate(PaneN(ToggleValidatedOnly)),
-              Attrs.ariaPressed(filters.validatedOnly),
-              Attrs.ariaLabel("Show validated tokens only"),
-            },
-            list{text("Validated")},
-          ),
-          // Proof-only toggle
-          button(
-            list{
-              Attrs.class_(
-                "px-1.5 py-0.5 rounded text-[9px] cursor-pointer " ++ if filters.proofOnly {
-                  "bg-emerald-700 text-emerald-200"
-                } else {
-                  "bg-gray-800 text-gray-600 opacity-50"
-                },
-              ),
-              Events.onClick(PaneN(ToggleProofOnly)),
-              KeyboardNav.onActivate(PaneN(ToggleProofOnly)),
-              Attrs.ariaPressed(filters.proofOnly),
-              Attrs.ariaLabel("Show proof-bearing tokens only"),
-            },
-            list{text("Proof #")},
-          ),
-        },
-      ),
-      // Confidence threshold slider
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          span(
-            list{Attrs.class_("text-[9px] text-gray-600 w-16")},
-            list{
-              text(
-                "Conf >= " ++
-                Int.toString(Int.fromFloat(filters.confidenceThreshold *. 100.0)) ++ "%",
-              ),
-            },
-          ),
-          input(
-            list{
-              Attrs.type_("range"),
-              Attrs.class_("flex-1 h-1 accent-emerald-500"),
-              Attrs.min("0"),
-              Attrs.max("100"),
-              Attrs.step("5"),
-              Attrs.value(Int.toString(Int.fromFloat(filters.confidenceThreshold *. 100.0))),
-              Events.onInput(value => {
-                let v = Int.fromString(value)->Option.getOr(0)
-                PaneN(SetConfidenceThreshold(Float.fromInt(v) /. 100.0))
-              }),
-              Attrs.ariaLabel("Confidence threshold"),
-            },
-            list{},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render the token stream with filters, OODA timeline, source distribution,
-/// causal graph, and the full token log.
-let renderTokenStream = (tokens: array<neuralToken>, filters: tokenFilters): Tea_Vdom.t<msg> => {
-  let filtered = applyFilters(tokens, filters)
-  let totalCount = Array.length(tokens)
-  let filteredCount = Array.length(filtered)
-
-  div(
-    list{Attrs.class_("mb-4")},
-    list{
-      div(
-        list{Attrs.class_("text-xs text-gray-500 mb-2 flex items-center justify-between")},
-        list{
-          text("TOKEN STREAM"),
-          if totalCount > 0 {
-            span(
-              list{Attrs.class_("text-[10px] text-gray-600")},
-              list{text(Int.toString(totalCount) ++ " tokens")},
-            )
-          } else {
-            noNode
-          },
-        },
-      ),
-      // Filter bar (always visible when there are tokens)
-      if totalCount > 0 {
-        renderFilterBar(filters, totalCount, filteredCount)
-      } else {
-        noNode
-      },
-      if totalCount === 0 {
-        div(list{Attrs.class_("text-gray-600 text-sm italic")}, list{text("No tokens received")})
-      } else if filteredCount === 0 {
-        div(
-          list{Attrs.class_("text-amber-600/60 text-sm italic")},
-          list{text("No tokens match current filters")},
-        )
-      } else {
-        div(
-          list{},
-          list{
-            // OODA phase timeline (shows filtered tokens)
-            renderOodaTimeline(filtered),
-            // Source distribution bar (shows filtered tokens)
-            renderSourceDistribution(filtered),
-            // Causal inference graph (shows filtered tokens)
-            renderCausalGraph(filtered),
-            // Token log
-            div(
-              list{
-                Attrs.class_("max-h-40 overflow-y-auto"),
-                Attrs.role("log"),
-                Attrs.ariaLabel("Token Stream"),
-              },
-              filtered->Array.map(renderToken)->List.fromArray,
-            ),
-          },
-        )
-      },
-    },
-  )
-}
-
-/// Render the monologue/inference stream
-let renderMonologue = (monologue: string, inferenceActive: bool): Tea_Vdom.t<msg> => {
-  let statusClass = inferenceActive ? "text-emerald-400" : "text-gray-500"
-  let statusText = inferenceActive ? "streaming..." : "idle"
-
-  div(
-    list{Attrs.class_("flex-1")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-2")},
-        list{
-          div(list{Attrs.class_("text-xs text-gray-500")}, list{text("INFERENCE MANIFOLD")}),
-          div(
-            list{
-              Attrs.class_(`text-xs ${statusClass}`),
-              Attrs.role("status"),
-              Attrs.ariaLive("polite"),
-            },
-            list{text(statusText)},
-          ),
-        },
-      ),
-      div(
-        list{
-          Attrs.class_(
-            "h-48 bg-gray-800/50 rounded p-3 overflow-y-auto text-sm text-emerald-200 whitespace-pre-wrap",
-          ),
-        },
-        list{text(monologue === "" ? "Awaiting neural inference..." : monologue)},
-      ),
-    },
-  )
-}
-
-// ===========================================================================
-// ECHIDNA Theorem Prover Panel
-// ===========================================================================
-
-/// Render the ECHIDNA connection indicator — green dot when connected,
-/// red dot when disconnected. Shows the version string and a "Ping" button
-/// to manually trigger a health check.
-let renderEchidnaConnectionIndicator = (echidna: echidnaState): Tea_Vdom.t<msg> => {
-  let dotClass = echidna.connected ? "bg-emerald-400" : "bg-red-500"
-  let statusText = switch (echidna.connected, echidna.version) {
-  | (true, Some(v)) => "ECHIDNA v" ++ v
-  | (true, None) => "ECHIDNA connected"
-  | (false, _) => "ECHIDNA disconnected"
-  }
-
-  div(
-    list{Attrs.class_("flex items-center gap-2 mb-3")},
-    list{
-      div(
-        list{
-          Attrs.class_(`w-2 h-2 rounded-full ${dotClass}`),
-          Attrs.role("status"),
-          Attrs.ariaLabel(statusText),
-        },
-        list{},
-      ),
-      div(list{Attrs.class_("text-xs text-gray-400 flex-1")}, list{text(statusText)}),
-      button(
-        list{
-          Attrs.class_("text-xs px-2 py-0.5 bg-gray-700 hover:bg-gray-600 text-gray-300 rounded"),
-          Attrs.ariaLabel("Ping ECHIDNA"),
-          Events.onClick(Echidna(CheckHealth)),
-          KeyboardNav.onActivate(Echidna(CheckHealth)),
-        },
-        list{text("Ping")},
-      ),
-    },
-  )
-}
-
-/// Render a selectable list of provers from the ECHIDNA catalog.
-/// Each prover shows its name, tier badge, and complexity class.
-/// The selected prover is highlighted with an active background.
-let renderProverCatalog = (echidna: echidnaState): Tea_Vdom.t<msg> => {
-  if Array.length(echidna.provers) === 0 {
-    div(
-      list{Attrs.class_("mb-3")},
-      list{
-        div(
-          list{Attrs.class_("flex items-center justify-between mb-1")},
-          list{
-            div(list{Attrs.class_("text-xs text-gray-500")}, list{text("PROVERS")}),
-            button(
-              list{
-                Attrs.class_(
-                  "text-xs px-2 py-0.5 bg-gray-700 hover:bg-gray-600 text-gray-300 rounded",
-                ),
-                Attrs.ariaLabel("List Provers"),
-                Events.onClick(Echidna(ListProvers)),
-                KeyboardNav.onActivate(Echidna(ListProvers)),
-              },
-              list{text("List Provers")},
-            ),
-          },
-        ),
-        div(list{Attrs.class_("text-gray-600 text-xs italic")}, list{text("No provers loaded")}),
-      },
-    )
-  } else {
-    div(
-      list{Attrs.class_("mb-3")},
-      list{
-        div(
-          list{Attrs.class_("flex items-center justify-between mb-1")},
-          list{
-            div(list{Attrs.class_("text-xs text-gray-500")}, list{text("PROVERS")}),
-            button(
-              list{
-                Attrs.class_(
-                  "text-xs px-2 py-0.5 bg-gray-700 hover:bg-gray-600 text-gray-300 rounded",
-                ),
-                Events.onClick(Echidna(ListProvers)),
-                KeyboardNav.onActivate(Echidna(ListProvers)),
-              },
-              list{text("Refresh")},
-            ),
-          },
-        ),
-        div(
-          list{
-            Attrs.class_("max-h-24 overflow-y-auto"),
-            Attrs.role("list"),
-            Attrs.ariaLabel("Prover Catalog"),
-          },
-          echidna.provers
-          ->Array.map(prover => {
-            let isSelected = echidna.selectedProver === Some(prover.name)
-            let bgClass = isSelected
-              ? "bg-indigo-900/50 border-indigo-600"
-              : "bg-gray-800/30 border-gray-700"
-            div(
-              list{
-                Attrs.class_(
-                  `flex items-center gap-2 p-1.5 border-l-2 ${bgClass} mb-0.5 cursor-pointer hover:bg-gray-700/50`,
-                ),
-                Attrs.role("listitem"),
-                Attrs.tabIndex(0),
-                Events.onClick(Echidna(SelectProver(isSelected ? None : Some(prover.name)))),
-                KeyboardUtil.onEnterOrSpace(
-                  Echidna(SelectProver(isSelected ? None : Some(prover.name))),
-                ),
-              },
-              list{
-                div(list{Attrs.class_("text-xs text-gray-300 flex-1")}, list{text(prover.name)}),
-                div(
-                  list{Attrs.class_("text-xs px-1 py-0.5 bg-gray-700 rounded text-gray-400")},
-                  list{text(prover.tier)},
-                ),
-                div(list{Attrs.class_("text-xs text-gray-500")}, list{text(prover.complexity)}),
-              },
-            )
-          })
-          ->List.fromArray,
-        ),
-      },
-    )
-  }
-}
-
-/// Render the proof input area with a textarea, prover selector, and
-/// action buttons (Prove / Verify).
-let renderProofInput = (echidna: echidnaState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("mb-3")},
-    list{
-      div(list{Attrs.class_("text-xs text-gray-500 mb-1")}, list{text("PROOF INPUT")}),
-      textarea(
-        list{
-          Attrs.class_(
-            "w-full h-20 bg-gray-800/50 rounded p-2 text-xs text-gray-200 border border-gray-700 focus:border-indigo-500 focus:outline-none resize-none font-mono",
-          ),
-          Attrs.placeholder("Enter proof content..."),
-          Attrs.value(echidna.proofInput),
-          Attrs.ariaLabel("Proof content input"),
-          Events.onInput(text => Echidna(UpdateProofInput(text))),
-        },
-        list{},
-      ),
-      div(
-        list{Attrs.class_("flex gap-2 mt-1")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "text-xs px-3 py-1 bg-indigo-700 hover:bg-indigo-600 text-white rounded disabled:opacity-50 disabled:cursor-not-allowed",
-              ),
-              Attrs.disabled(echidna.proofLoading || echidna.proofInput === ""),
-              Attrs.ariaLabel("Submit Proof"),
-              Events.onClick(Echidna(SubmitProof)),
-              KeyboardNav.onActivate(Echidna(SubmitProof)),
-            },
-            list{text(echidna.proofLoading ? "Proving..." : "Prove")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "text-xs px-3 py-1 bg-emerald-700 hover:bg-emerald-600 text-white rounded disabled:opacity-50 disabled:cursor-not-allowed",
-              ),
-              Attrs.disabled(echidna.proofLoading || echidna.proofInput === ""),
-              Attrs.ariaLabel("Verify Proof"),
-              Events.onClick(Echidna(SubmitVerify)),
-              KeyboardNav.onActivate(Echidna(SubmitVerify)),
-            },
-            list{text(echidna.proofLoading ? "Verifying..." : "Verify")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render the trust level badge — colour-coded from red (Level 1) through
-/// green (Level 5). This is the primary signal for proof confidence.
-let renderTrustBadge = (trustLevel: echidnaTrustLevel): Tea_Vdom.t<msg> => {
-  let (label, colour) = switch trustLevel {
-  | TrustLevel1 => ("Trust 1", "bg-red-700 text-red-200")
-  | TrustLevel2 => ("Trust 2", "bg-orange-700 text-orange-200")
-  | TrustLevel3 => ("Trust 3", "bg-yellow-700 text-yellow-200")
-  | TrustLevel4 => ("Trust 4", "bg-emerald-700 text-emerald-200")
-  | TrustLevel5 => ("Trust 5", "bg-green-700 text-green-200")
-  }
-  span(
-    list{Attrs.class_(`text-xs px-2 py-0.5 rounded font-bold ${colour}`), Attrs.ariaLabel(label)},
-    list{text(label)},
-  )
-}
-
-/// Render the axiom report — a list of axiom usage warnings colour-coded
-/// by danger level. Reject-level axioms are shown in red; safe axioms
-/// are dimmed. This alerts the operator to unsound assumptions.
-let renderAxiomReport = (axioms: array<axiomUsage>): Tea_Vdom.t<msg> => {
-  if Array.length(axioms) === 0 {
-    noNode
-  } else {
-    div(
-      list{Attrs.class_("mt-2"), Attrs.role("region"), Attrs.ariaLabel("Axiom Report")},
-      list{
-        div(list{Attrs.class_("text-xs text-gray-500 mb-1")}, list{text("AXIOM REPORT")}),
-        div(
-          list{Attrs.class_("max-h-16 overflow-y-auto")},
-          axioms
-          ->Array.map(axiom => {
-            let (colour, icon) = switch axiom.dangerLevel {
-            | Safe => ("text-gray-500", "")
-            | Noted => ("text-blue-400", "i ")
-            | Warning => ("text-yellow-400", "! ")
-            | Reject => ("text-red-400", "X ")
-            }
-            div(
-              list{Attrs.class_(`text-xs ${colour} py-0.5`)},
-              list{text(icon ++ axiom.axiomName ++ " - " ++ axiom.description)},
-            )
-          })
-          ->List.fromArray,
-        ),
-      },
-    )
-  }
-}
-
-/// Render the full proof result panel — verified/failed status, trust badge,
-/// provers used, proof time, remaining goals, certificate hash, and axiom report.
-let renderProofResult = (result: echidnaDispatchResult): Tea_Vdom.t<msg> => {
-  let statusClass = result.verified ? "text-emerald-400" : "text-red-400"
-  let statusText = result.verified ? "VERIFIED" : "FAILED"
-  let proversText = Array.join(result.proversUsed, ", ")
-  let timeText = Float.toString(result.proofTimeMs) ++ "ms"
-
-  div(
-    list{Attrs.class_("mt-2 p-2 bg-gray-800/50 rounded border border-gray-700")},
-    list{
-      // Status row with trust badge
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-2")},
-        list{
-          div(list{Attrs.class_(`text-sm font-bold ${statusClass}`)}, list{text(statusText)}),
-          renderTrustBadge(result.trustLevel),
-        },
-      ),
-      // Details grid
-      div(
-        list{Attrs.class_("grid grid-cols-2 gap-1 text-xs")},
-        list{
-          div(list{Attrs.class_("text-gray-500")}, list{text("Provers:")}),
-          div(
-            list{Attrs.class_("text-gray-300")},
-            list{text(proversText === "" ? "none" : proversText)},
-          ),
-          div(list{Attrs.class_("text-gray-500")}, list{text("Time:")}),
-          div(list{Attrs.class_("text-gray-300")}, list{text(timeText)}),
-          div(list{Attrs.class_("text-gray-500")}, list{text("Goals left:")}),
-          div(list{Attrs.class_("text-gray-300")}, list{text(Int.toString(result.goalsRemaining))}),
-        },
-      ),
-      // Certificate hash (if present)
-      switch result.certificateHash {
-      | Some(hash) =>
-        div(list{Attrs.class_("text-xs text-gray-500 mt-1 truncate")}, list{text("cert: " ++ hash)})
-      | None => noNode
-      },
-      // Message
-      if result.message !== "" {
-        div(list{Attrs.class_("text-xs text-gray-400 mt-1 italic")}, list{text(result.message)})
-      } else {
-        noNode
-      },
-      // Axiom report
-      renderAxiomReport(result.axiomReport),
-      // Clear button
-      div(
-        list{Attrs.class_("mt-2 text-right")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "text-xs px-2 py-0.5 bg-gray-700 hover:bg-gray-600 text-gray-400 rounded",
-              ),
-              Attrs.ariaLabel("Clear proof result"),
-              Events.onClick(Echidna(ClearProofResult)),
-              KeyboardNav.onActivate(Echidna(ClearProofResult)),
-            },
-            list{text("Clear")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ===========================================================================
-// ECHIDNA Interactive Session UI
-// ===========================================================================
-
-/// Render session controls — "Start Session" button when no session is active,
-/// "Cancel" button when a session is running. Disabled during loading.
-let renderSessionControls = (echidna: echidnaState): Tea_Vdom.t<msg> => {
-  switch echidna.session {
-  | None =>
-    div(
-      list{Attrs.class_("flex gap-2 mt-2")},
-      list{
-        button(
-          list{
-            Attrs.class_(
-              "text-xs px-3 py-1 bg-indigo-700 hover:bg-indigo-600 text-white rounded disabled:opacity-50 disabled:cursor-not-allowed",
-            ),
-            Attrs.disabled(echidna.sessionLoading || echidna.proofInput === ""),
-            Attrs.ariaLabel("Start Proof Session"),
-            Events.onClick(Echidna(CreateSession)),
-            KeyboardNav.onActivate(Echidna(CreateSession)),
-          },
-          list{text(echidna.sessionLoading ? "Creating..." : "Start Session")},
-        ),
-      },
-    )
-  | Some(_session) =>
-    div(
-      list{Attrs.class_("flex gap-2 mt-2")},
-      list{
-        button(
-          list{
-            Attrs.class_("text-xs px-3 py-1 bg-red-700 hover:bg-red-600 text-white rounded"),
-            Attrs.ariaLabel("Cancel Session"),
-            Events.onClick(Echidna(CancelSession)),
-            KeyboardNav.onActivate(Echidna(CancelSession)),
-          },
-          list{text("Cancel Session")},
-        ),
-        button(
-          list{
-            Attrs.class_("text-xs px-3 py-1 bg-gray-700 hover:bg-gray-600 text-gray-300 rounded"),
-            Attrs.ariaLabel("Refresh Session State"),
-            Events.onClick(Echidna(GetSessionState)),
-            KeyboardNav.onActivate(Echidna(GetSessionState)),
-          },
-          list{text("Refresh")},
-        ),
-      },
-    )
-  }
-}
-
-/// Render session status header — session ID (truncated), prover, status badge,
-/// and elapsed time.
-let renderSessionStatus = (session: echidnaSessionState): Tea_Vdom.t<msg> => {
-  let (statusText, statusColour) = switch session.status {
-  | Pending => ("PENDING", "bg-gray-600 text-gray-200")
-  | InProgress => ("IN PROGRESS", "bg-blue-700 text-blue-200")
-  | ProofSuccess => ("SUCCESS", "bg-green-700 text-green-200")
-  | ProofFailed => ("FAILED", "bg-red-700 text-red-200")
-  | ProofTimeout => ("TIMEOUT", "bg-yellow-700 text-yellow-200")
-  | ProofError => ("ERROR", "bg-red-800 text-red-200")
-  }
-
-  let truncatedId = if String.length(session.sessionId) > 12 {
-    String.slice(session.sessionId, ~start=0, ~end=12) ++ "..."
-  } else {
-    session.sessionId
-  }
-
-  let timeText = switch session.timeElapsed {
-  | Some(t) => Float.toFixed(t, ~digits=1) ++ "s"
-  | None => "-"
-  }
-
-  div(
-    list{Attrs.class_("p-2 bg-gray-800/50 rounded mb-2")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-1")},
-        list{
-          div(list{Attrs.class_("text-xs text-gray-400")}, list{text("Session: " ++ truncatedId)}),
-          span(
-            list{
-              Attrs.class_(`text-xs px-2 py-0.5 rounded font-bold ${statusColour}`),
-              Attrs.ariaLabel("Proof status: " ++ statusText),
-            },
-            list{text(statusText)},
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("flex items-center gap-3 text-xs text-gray-400")},
-        list{
-          div(list{}, list{text("Prover: " ++ session.prover)}),
-          div(list{}, list{text("Time: " ++ timeText)}),
-        },
-      ),
-      switch session.errorMessage {
-      | Some(err) => div(list{Attrs.class_("text-xs text-red-400 mt-1")}, list{text(err)})
-      | None => noNode
-      },
-    },
-  )
-}
-
-/// Render the current goal list — numbered, first goal highlighted as "active".
-let renderGoalList = (goals: array<string>): Tea_Vdom.t<msg> => {
-  if Array.length(goals) === 0 {
-    div(
-      list{Attrs.class_("text-xs text-emerald-400 italic mb-2")},
-      list{text("All goals discharged")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("mb-2")},
-      list{
-        div(
-          list{Attrs.class_("text-xs text-gray-500 mb-1")},
-          list{text("GOALS (" ++ Int.toString(Array.length(goals)) ++ ")")},
-        ),
-        div(
-          list{
-            Attrs.class_("max-h-24 overflow-y-auto"),
-            Attrs.role("list"),
-            Attrs.ariaLabel("Proof Goals"),
-          },
-          goals
-          ->Array.mapWithIndex((goal, idx) => {
-            let isActive = idx === 0
-            let bgClass = isActive
-              ? "bg-indigo-900/30 border-indigo-500"
-              : "bg-gray-800/30 border-gray-700"
-            div(
-              list{
-                Attrs.class_(`text-xs p-1.5 border-l-2 ${bgClass} mb-0.5 font-mono`),
-                Attrs.role("listitem"),
-              },
-              list{text(Int.toString(idx + 1) ++ ". " ++ goal)},
-            )
-          })
-          ->List.fromArray,
-        ),
-      },
-    )
-  }
-}
-
-/// Render a manual tactic input field with an "Apply" button.
-/// Disabled when no session is active.
-let renderTacticInput = (echidna: echidnaState): Tea_Vdom.t<msg> => {
-  let hasSession = switch echidna.session {
-  | Some(_) => true
-  | None => false
-  }
-
-  div(
-    list{Attrs.class_("mb-2")},
-    list{
-      div(list{Attrs.class_("text-xs text-gray-500 mb-1")}, list{text("TACTIC INPUT")}),
-      div(
-        list{Attrs.class_("flex gap-1")},
-        list{
-          input(
-            list{
-              Attrs.class_(
-                "flex-1 bg-gray-800/50 rounded px-2 py-1 text-xs text-gray-200 border border-gray-700 focus:border-indigo-500 focus:outline-none font-mono",
-              ),
-              Attrs.placeholder("e.g., intro x"),
-              Attrs.value(echidna.tacticInput),
-              Attrs.disabled(!hasSession),
-              Attrs.ariaLabel("Manual tactic input"),
-              Events.onInput(text => Echidna(UpdateTacticInput(text))),
-            },
-            list{},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "text-xs px-3 py-1 bg-indigo-700 hover:bg-indigo-600 text-white rounded disabled:opacity-50 disabled:cursor-not-allowed",
-              ),
-              Attrs.disabled(!hasSession || echidna.tacticInput === ""),
-              Attrs.ariaLabel("Apply Tactic"),
-              Events.onClick(Echidna(ApplyTactic(echidna.tacticInput, []))),
-            },
-            list{text("Apply")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render the tactic suggestion ribbon — horizontal scrollable row of clickable chips
-/// sorted by confidence (descending). Each chip shows "tactic (confidence%)".
-/// Clicking a chip dispatches ApplyTactic with the tactic name and args.
-let renderTacticSuggestionRibbon = (suggestions: array<echidnaTacticSuggestion>): Tea_Vdom.t<
-  msg,
-> => {
-  if Array.length(suggestions) === 0 {
-    noNode
-  } else {
-    // Sort by confidence descending
-    let sorted = Array.copy(suggestions)
-    sorted->Array.sort((a, b) => Float.compare(b.confidence, a.confidence))
-
-    div(
-      list{Attrs.class_("mb-2")},
-      list{
-        div(list{Attrs.class_("text-xs text-gray-500 mb-1")}, list{text("SUGGESTED TACTICS")}),
-        div(
-          list{
-            Attrs.class_("flex gap-1 overflow-x-auto pb-1"),
-            Attrs.role("list"),
-            Attrs.ariaLabel("Tactic Suggestions"),
-          },
-          sorted
-          ->Array.map(suggestion => {
-            let pct = Int.toString(Int.fromFloat(suggestion.confidence *. 100.0))
-            button(
-              list{
-                Attrs.class_(
-                  "text-xs px-2 py-1 bg-indigo-900/50 hover:bg-indigo-800/70 text-indigo-300 rounded whitespace-nowrap border border-indigo-700/50 cursor-pointer",
-                ),
-                Attrs.title(suggestion.description),
-                Attrs.role("listitem"),
-                Attrs.ariaLabel(suggestion.tactic ++ " (" ++ pct ++ "% confidence)"),
-                Events.onClick(Echidna(ApplyTactic(suggestion.tactic, suggestion.args))),
-              },
-              list{text(suggestion.tactic ++ " (" ++ pct ++ "%)")},
-            )
-          })
-          ->List.fromArray,
-        ),
-      },
-    )
-  }
-}
-
-/// Render the proof script — a scrollable list of applied tactics (proof history).
-/// Displayed in monospace font with sequential numbering.
-let renderProofScript = (script: array<string>): Tea_Vdom.t<msg> => {
-  if Array.length(script) === 0 {
-    noNode
-  } else {
-    div(
-      list{Attrs.class_("mb-2")},
-      list{
-        div(list{Attrs.class_("text-xs text-gray-500 mb-1")}, list{text("PROOF SCRIPT")}),
-        div(
-          list{
-            Attrs.class_("max-h-20 overflow-y-auto bg-gray-800/30 rounded p-1.5"),
-            Attrs.role("log"),
-            Attrs.ariaLabel("Proof Script"),
-          },
-          script
-          ->Array.mapWithIndex((step, idx) =>
-            div(
-              list{Attrs.class_("text-xs text-gray-300 font-mono py-0.5")},
-              list{text(Int.toString(idx + 1) ++ ". " ++ step)},
-            )
-          )
-          ->List.fromArray,
-        ),
-      },
-    )
-  }
-}
-
-// ===========================================================================
-// TypeLL Proof Obligations Display
-// ===========================================================================
-
-/// Render TypeLL proof obligations result (if available).
-/// Parses the raw JSON via TypeLLEngine.parseCheckResult and displays
-/// proof obligation details with linearity notes.
-let viewProofObligations = (lastProofObligations: option<string>): Tea_Vdom.t<msg> => {
-  switch lastProofObligations {
-  | None => noNode
-  | Some(json) =>
-    switch TypeLLEngine.parseCheckResult(json) {
-    | Error(_) => noNode
-    | Ok(result) =>
-      let narrative = TypeLLEngine.generateNarrative(result)
-      let borderColour = if result.valid {
-        "border-green-700 bg-green-900/20"
-      } else {
-        "border-red-700 bg-red-900/20"
-      }
-      let labelColour = if result.valid {
-        "text-green-400"
-      } else {
-        "text-red-400"
-      }
-      let statusText = if result.valid {
-        "Obligations generated"
-      } else {
-        "No obligations"
-      }
-      div(
-        list{Attrs.class_("mt-4 p-3 rounded-lg border " ++ borderColour)},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2 mb-2")},
-            list{
-              span(
-                list{Attrs.class_("text-xs font-bold uppercase tracking-wider " ++ labelColour)},
-                list{text("TypeLL Proof Obligations")},
-              ),
-              span(list{Attrs.class_("text-xs text-gray-400")}, list{text(statusText)}),
-            },
-          ),
-          div(
-            list{Attrs.class_("text-sm text-gray-300 font-mono mb-1")},
-            list{text(result.typeSignature)},
-          ),
-          div(list{Attrs.class_("text-xs text-gray-400 mb-1")}, list{text(narrative.celebrate)}),
-          if Array.length(result.proofObligations) > 0 {
-            div(
-              list{Attrs.class_("text-xs text-yellow-400 mt-1")},
-              list{text("Proof obligations: " ++ Array.join(result.proofObligations, ", "))},
-            )
-          } else {
-            noNode
-          },
-          if Array.length(result.linearityIssues) > 0 {
-            div(
-              list{Attrs.class_("text-xs text-orange-400 mt-1")},
-              list{text("Linearity: " ++ Array.join(result.linearityIssues, ", "))},
-            )
-          } else {
-            noNode
-          },
-        },
-      )
-    }
-  }
-}
-
-// ===========================================================================
-// Enterprise Model Checking Tab (MOF / OCL / ArchiMate)
-// ===========================================================================
-
-/// Render metamodel standard label.
-let metamodelLabel = (m: metamodelStandard): string => {
-  switch m {
-  | UML => "UML"
-  | SysML => "SysML"
-  | ArchiMate => "ArchiMate"
-  | BPMN => "BPMN"
-  | DMN => "DMN"
-  | CMMN => "CMMN"
-  | ODM => "ODM"
-  | CustomProfile => "Custom Profile"
-  }
-}
-
-/// Render MOF layer label.
-let mofLayerLabel = (l: mofLayer): string => {
-  switch l {
-  | M3_MetaMetaModel => "M3 (MOF)"
-  | M2_Metamodel => "M2 (Metamodel)"
-  | M2_Profile => "M2 (Profile)"
-  | M1_Model => "M1 (Model)"
-  | M0_Instance => "M0 (Instance)"
-  }
-}
-
-/// Render OCL severity badge.
-let oclSeverityBadge = (s: oclSeverity): Tea_Vdom.t<msg> => {
-  let (label, colour) = switch s {
-  | OclInvariant => ("inv", "bg-indigo-900/50 text-indigo-300 border-indigo-700/40")
-  | OclPrecondition => ("pre", "bg-amber-900/50 text-amber-300 border-amber-700/40")
-  | OclPostcondition => ("post", "bg-emerald-900/50 text-emerald-300 border-emerald-700/40")
-  | OclDerive => ("derive", "bg-cyan-900/50 text-cyan-300 border-cyan-700/40")
-  | OclInit => ("init", "bg-gray-800 text-gray-400 border-gray-700")
-  | OclBody => ("body", "bg-gray-800 text-gray-400 border-gray-700")
-  }
-  span(
-    list{Attrs.class_(`text-[9px] px-1.5 py-0.5 rounded border font-mono ${colour}`)},
-    list{text(label)},
-  )
-}
-
-/// Render a model element row.
-let renderModelElement = (elem: modelElement): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex items-center gap-2 py-1.5 px-2 bg-gray-900/50 rounded text-[10px]")},
-    list{
-      span(list{Attrs.class_("text-gray-500 font-mono")}, list{text(mofLayerLabel(elem.layer))}),
-      span(
-        list{Attrs.class_("text-indigo-300 font-medium truncate flex-1")},
-        list{text(elem.qualifiedName)},
-      ),
-      span(list{Attrs.class_("text-gray-600")}, list{text(elem.metaclass)}),
-      span(
-        list{Attrs.class_("text-[9px] px-1 py-0.5 bg-gray-800 rounded text-gray-500")},
-        list{text(metamodelLabel(elem.metamodel))},
-      ),
-    },
-  )
-}
-
-/// Render an OCL constraint row with check result.
-let renderOclConstraintRow = (
-  c: oclConstraint,
-  index: int,
-  result: option<oclCheckResult>,
-): Tea_Vdom.t<msg> => {
-  let statusIndicator = switch result {
-  | Some(r) if r.satisfied =>
-    span(list{Attrs.class_("text-emerald-400 font-mono text-[10px]")}, list{text("[OK]")})
-  | Some(_) => span(list{Attrs.class_("text-red-400 font-mono text-[10px]")}, list{text("[!!]")})
-  | None => span(list{Attrs.class_("text-gray-600 font-mono text-[10px]")}, list{text("[..]")})
-  }
-
-  div(
-    list{Attrs.class_("py-2 px-2 bg-gray-900/50 rounded space-y-1")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          statusIndicator,
-          oclSeverityBadge(c.severity),
-          span(list{Attrs.class_("text-xs text-gray-200 font-medium")}, list{text(c.name)}),
-          span(list{Attrs.class_("text-[10px] text-gray-600 ml-auto")}, list{text(c.context)}),
-          button(
-            list{
-              Attrs.class_("text-gray-600 hover:text-red-400 text-[10px] px-1"),
-              Attrs.title("Remove constraint"),
-              Events.onClick(Echidna(RemoveOclConstraint(index))),
-            },
-            list{text("x")},
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("font-mono text-[10px] text-cyan-200/80 pl-6")},
-        list{text(c.expression)},
-      ),
-      switch result {
-      | Some(r) =>
-        switch r.counterExample {
-        | Some(ce) =>
-          div(
-            list{Attrs.class_("text-[10px] text-red-400/80 pl-6")},
-            list{text("Counter-example: " ++ ce)},
-          )
-        | None => noNode
-        }
-      | None => noNode
-      },
-    },
-  )
-}
-
-/// Render the enterprise model checking tab content.
-let renderEnterpriseModelTab = (echidna: echidnaState): Tea_Vdom.t<msg> => {
-  let em = echidna.enterpriseModel
-  let elementCount = Array.length(em.elements)
-  let constraintCount = Array.length(em.constraints)
-  let passedCount = em.checkResults->Array.filter(r => r.satisfied)->Array.length
-  let failedCount = Array.length(em.checkResults) - passedCount
-
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      // ─── Overview strip ───
-      div(
-        list{Attrs.class_("flex items-center gap-3 text-[10px]")},
-        list{
-          span(
-            list{Attrs.class_("text-gray-500")},
-            list{text(`${Int.toString(elementCount)} elements`)},
-          ),
-          span(
-            list{Attrs.class_("text-gray-500")},
-            list{text(`${Int.toString(constraintCount)} constraints`)},
-          ),
-          if Array.length(em.checkResults) > 0 {
-            span(
-              list{Attrs.class_("text-emerald-400")},
-              list{text(`${Int.toString(passedCount)} passed`)},
-            )
-          } else {
-            noNode
-          },
-          if failedCount > 0 {
-            span(
-              list{Attrs.class_("text-red-400")},
-              list{text(`${Int.toString(failedCount)} failed`)},
-            )
-          } else {
-            noNode
-          },
-        },
-      ),
-      // ─── Import / Actions ───
-      div(
-        list{Attrs.class_("flex gap-2")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-xs bg-indigo-900/50 hover:bg-indigo-800/50 border border-indigo-700/40 rounded text-indigo-300",
-              ),
-              Events.onClick(Echidna(ImportXmiModel)),
-              KeyboardNav.onActivate(Echidna(ImportXmiModel)),
-            },
-            list{text("Import XMI")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                `px-3 py-1.5 text-xs rounded font-medium ${em.checking
-                    ? "bg-amber-900/50 text-amber-300 border border-amber-700/40"
-                    : "bg-emerald-900/50 hover:bg-emerald-800/50 text-emerald-300 border border-emerald-700/40"}`,
-              ),
-              Events.onClick(Echidna(RunOclCheck)),
-              KeyboardNav.onActivate(Echidna(RunOclCheck)),
-            },
-            list{text(em.checking ? "Checking..." : "Run OCL Check")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-xs bg-gray-800 hover:bg-gray-700 rounded text-gray-400",
-              ),
-              Events.onClick(Echidna(ClearEnterpriseModel)),
-              KeyboardNav.onActivate(Echidna(ClearEnterpriseModel)),
-            },
-            list{text("Clear")},
-          ),
-        },
-      ),
-      // ─── Metamodel / Layer Filters ───
-      div(
-        list{Attrs.class_("flex items-center gap-2 flex-wrap")},
-        list{
-          span(list{Attrs.class_("text-[10px] text-gray-500")}, list{text("Filter:")}),
-          ...[UML, SysML, ArchiMate, BPMN, DMN]
-          ->Array.map(m => {
-            let isActive = em.activeMetamodel === Some(m)
-            button(
-              list{
-                Attrs.class_(
-                  `px-2 py-0.5 text-[10px] rounded ${isActive
-                      ? "bg-indigo-700 text-white"
-                      : "bg-gray-800 text-gray-500 hover:text-gray-300"}`,
-                ),
-                Events.onClick(Echidna(SetMetamodelFilter(isActive ? None : Some(m)))),
-              },
-              list{text(metamodelLabel(m))},
-            )
-          })
-          ->List.fromArray,
-        },
-      ),
-      // ─── Model Elements ───
-      if elementCount > 0 {
-        div(
-          list{Attrs.class_("space-y-1")},
-          list{
-            div(
-              list{
-                Attrs.class_(
-                  "text-[10px] text-gray-500 font-semibold uppercase tracking-wider mb-1",
-                ),
-              },
-              list{text("Model Elements")},
-            ),
-            ...em.elements
-            ->Array.filter(e => {
-              let metamodelMatch = switch em.activeMetamodel {
-              | Some(m) => e.metamodel === m
-              | None => true
-              }
-              let layerMatch = switch em.activeLayer {
-              | Some(l) => e.layer === l
-              | None => true
-              }
-              metamodelMatch && layerMatch
-            })
-            ->Array.map(renderModelElement)
-            ->List.fromArray,
-          },
-        )
-      } else {
-        div(
-          list{Attrs.class_("text-xs text-gray-600 italic p-3 text-center")},
-          list{
-            text(
-              "No model loaded. Import XMI from Visual Paradigm, Sparx EA, Archi, or other MOF-compliant tools.",
-            ),
-          },
-        )
-      },
-      // ─── OCL Constraints ───
-      div(
-        list{Attrs.class_("space-y-1")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2 mb-1")},
-            list{
-              span(
-                list{
-                  Attrs.class_("text-[10px] text-gray-500 font-semibold uppercase tracking-wider"),
-                },
-                list{text("OCL Constraints")},
-              ),
-              span(
-                list{Attrs.class_("text-[9px] text-gray-600")},
-                list{text("(Object Constraint Language)")},
-              ),
-            },
-          ),
-          ...em.constraints
-          ->Array.mapWithIndex((c, i) => {
-            let result = em.checkResults->Array.find(r => r.oclRule.name === c.name)
-            renderOclConstraintRow(c, i, result)
-          })
-          ->List.fromArray,
-          if constraintCount === 0 {
-            div(
-              list{Attrs.class_("text-[10px] text-gray-600 italic")},
-              list{
-                text(
-                  "No constraints defined. Add OCL invariants, preconditions, or postconditions.",
-                ),
-              },
-            )
-          } else {
-            noNode
-          },
-        },
-      ),
-      // ─── Standards Reference ───
-      div(
-        list{
-          Attrs.class_(
-            "p-2 bg-gray-900/30 rounded border border-gray-800 text-[10px] text-gray-600 space-y-1",
-          ),
-        },
-        list{
-          div(list{Attrs.class_("font-semibold text-gray-500")}, list{text("Supported Standards")}),
-          div(
-            list{},
-            list{text("OMG: MOF 2.5, UML 2.5, SysML 1.7, BPMN 2.0, OCL 2.4, XMI 2.5, QVT 1.3")},
-          ),
-          div(list{}, list{text("The Open Group: ArchiMate 3.2, TOGAF 10 (via ArchiMate)")}),
-          div(
-            list{},
-            list{text("Tools: Visual Paradigm, Sparx EA, Archi, Camunda, MagicDraw/Cameo")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ===========================================================================
-// ECHIDNA Panel (tabbed: Proof + Enterprise Model)
-// ===========================================================================
-
-/// Render the complete ECHIDNA panel — a collapsible container with tab
-/// switching between the theorem prover workbench and enterprise model
-/// checking (MOF/OCL/ArchiMate).
-let renderEchidnaPanel = (echidna: echidnaState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("mt-4 border-t border-gray-700 pt-3"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("ECHIDNA Theorem Prover"),
-    },
-    list{
-      // Collapsible header
-      button(
-        list{
-          Attrs.class_("flex items-center justify-between w-full mb-2 cursor-pointer"),
-          Attrs.ariaExpanded(echidna.menuExpanded),
-          Attrs.ariaLabel("Toggle ECHIDNA panel"),
-          Events.onClick(Echidna(ToggleMenu)),
-          KeyboardNav.onActivate(Echidna(ToggleMenu)),
-        },
-        list{
-          div(
-            list{Attrs.class_("text-indigo-400 font-semibold text-sm")},
-            list{text("ECHIDNA Prover")},
-          ),
-          div(
-            list{Attrs.class_("text-gray-500 text-xs")},
-            list{text(echidna.menuExpanded ? "[-]" : "[+]")},
-          ),
-        },
-      ),
-      // Connection indicator (always visible)
-      renderEchidnaConnectionIndicator(echidna),
-      // Collapsible content
-      if echidna.menuExpanded {
-        div(
-          list{},
-          list{
-            // Tab bar
-            div(
-              list{Attrs.class_("flex gap-1 mb-3 border-b border-gray-800 pb-1")},
-              list{
-                button(
-                  list{
-                    Attrs.class_(
-                      `px-3 py-1 text-xs rounded-t ${echidna.activeTab === EchidnaProofTab
-                          ? "bg-gray-800 text-indigo-300 border-b-2 border-indigo-500"
-                          : "text-gray-500 hover:text-gray-300"}`,
-                    ),
-                    Events.onClick(Echidna(SelectEchidnaTab(EchidnaProofTab))),
-                  },
-                  list{text("Proof")},
-                ),
-                button(
-                  list{
-                    Attrs.class_(
-                      `px-3 py-1 text-xs rounded-t ${echidna.activeTab === EchidnaEnterpriseTab
-                          ? "bg-gray-800 text-indigo-300 border-b-2 border-indigo-500"
-                          : "text-gray-500 hover:text-gray-300"}`,
-                    ),
-                    Events.onClick(Echidna(SelectEchidnaTab(EchidnaEnterpriseTab))),
-                  },
-                  list{text("Enterprise (MOF/OCL)")},
-                ),
-              },
-            ),
-            // Tab content
-            switch echidna.activeTab {
-            | EchidnaProofTab =>
-              div(
-                list{},
-                list{
-                  renderProverCatalog(echidna),
-                  renderProofInput(echidna),
-                  renderSessionControls(echidna),
-                  switch echidna.session {
-                  | Some(session) =>
-                    div(
-                      list{
-                        Attrs.class_("mt-2"),
-                        Attrs.role("region"),
-                        Attrs.ariaLabel("Interactive Proof Session"),
-                      },
-                      list{
-                        renderSessionStatus(session),
-                        renderGoalList(session.goals),
-                        renderTacticSuggestionRibbon(echidna.tacticSuggestions),
-                        renderTacticInput(echidna),
-                        renderProofScript(session.proofScript),
-                        ProofChain.view(session),
-                      },
-                    )
-                  | None => noNode
-                  },
-                  switch echidna.proofError {
-                  | Some(err) =>
-                    div(
-                      list{Attrs.class_("text-xs text-red-400 mt-1 p-1 bg-red-900/20 rounded")},
-                      list{text(err)},
-                    )
-                  | None => noNode
-                  },
-                  switch echidna.lastProofResult {
-                  | Some(result) => renderProofResult(result)
-                  | None => noNode
-                  },
-                  viewProofObligations(echidna.lastProofObligations),
-                },
-              )
-            | EchidnaEnterpriseTab => renderEnterpriseModelTab(echidna)
-            },
-          },
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-/// Main Pane-N view — renders the neural stream panel and the ECHIDNA
-/// theorem prover panel below it.
-/// Render VCL inference stream suggestions from VeriSimDB.
-let renderInferenceStream = (suggestions: array<string>): Tea_Vdom.t<msg> => {
-  if Array.length(suggestions) == 0 {
-    noNode
-  } else {
-    div(
-      list{Attrs.class_("mt-3 p-3 bg-violet-900/20 border border-violet-500/20 rounded")},
-      list{
-        div(
-          list{Attrs.class_("flex items-center justify-between mb-2")},
-          list{
-            div(
-              list{Attrs.class_("text-xs text-violet-400 font-semibold tracking-wide uppercase")},
-              list{text(`VCL Inference Stream (${Int.toString(Array.length(suggestions))})`)},
-            ),
-            button(
-              list{
-                Attrs.class_(
-                  "px-2 py-0.5 text-[10px] bg-violet-800/40 hover:bg-violet-700/40 rounded text-violet-300",
-                ),
-                Events.onClick(VeriSimDB(ClearInferenceSuggestions)),
-                KeyboardNav.onActivate(VeriSimDB(ClearInferenceSuggestions)),
-              },
-              list{text("Clear")},
-            ),
-          },
-        ),
-        div(
-          list{Attrs.class_("space-y-1 max-h-32 overflow-y-auto")},
-          suggestions
-          ->Array.map(suggestion =>
-            div(
-              list{
-                Attrs.class_(
-                  "text-xs text-violet-300/80 font-mono pl-2 border-l-2 border-violet-500/30",
-                ),
-              },
-              list{text(suggestion)},
-            )
-          )
-          ->List.fromArray,
-        ),
-      },
-    )
-  }
-}
-
-let view = (
-  state: paneNState,
-  echidna: echidnaState,
-  ~inferenceStream: array<string>=[],
-): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("h-full flex flex-col p-4 bg-gray-900"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Neural Stream Panel"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-4")},
-        list{
-          div(list{Attrs.class_("text-emerald-400 font-semibold")}, list{text("Neural Stream")}),
-          div(list{Attrs.class_("text-xs text-gray-600")}, list{text("Ctrl+Shift+N")}),
-        },
-      ),
-      // Agency monitor
-      renderAgencyMonitor(state.agency),
-      // Token stream
-      renderTokenStream(state.tokens, state.filters),
-      // VCL Inference stream (from VeriSimDB)
-      renderInferenceStream(inferenceStream),
-      // Monologue
-      renderMonologue(state.monologue, state.inferenceActive),
-      // ECHIDNA Theorem Prover Panel
-      renderEchidnaPanel(echidna),
-    },
-  )
-}
diff --git a/src/components/PaneW.affine b/src/components/PaneW.affine
new file mode 100644
index 00000000..62ac2b29
--- /dev/null
+++ b/src/components/PaneW.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PaneW;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/PaneW.res b/src/components/PaneW.res
deleted file mode 100644
index ca24177d..00000000
--- a/src/components/PaneW.res
+++ /dev/null
@@ -1,1968 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Pane-W: World/Task Barycentre Component
-///
-/// The central shared canvas where results manifest.
-/// Contains the Topology View (Binary Star diagram) and
-/// the shared world state.
-
-open Model
-open Msg
-open Tea.Html
-
-// ===========================================================================
-// TypeLL Cross-Panel Type Intelligence (shared helper)
-// ===========================================================================
-
-/// Render TypeLL cross-panel type intelligence result (if available).
-/// Parses the raw JSON via TypeLLEngine.parseCheckResult and displays an
-/// evangeliser-style narrative with proof obligations and linearity notes.
-let viewTypeCheckResult = (lastTypeCheck: option<string>): Tea_Vdom.t<msg> => {
-  switch lastTypeCheck {
-  | None => noNode
-  | Some(json) =>
-    switch TypeLLEngine.parseCheckResult(json) {
-    | Error(_) => noNode
-    | Ok(result) =>
-      let narrative = TypeLLEngine.generateNarrative(result)
-      let borderColour = if result.valid {
-        "border-green-700 bg-green-900/20"
-      } else {
-        "border-red-700 bg-red-900/20"
-      }
-      let labelColour = if result.valid {
-        "text-green-400"
-      } else {
-        "text-red-400"
-      }
-      let statusText = if result.valid {
-        "Type-safe"
-      } else {
-        "Type issues detected"
-      }
-      div(
-        list{Attrs.class_("mt-4 p-3 rounded-lg border " ++ borderColour)},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2 mb-2")},
-            list{
-              span(
-                list{Attrs.class_("text-xs font-bold uppercase tracking-wider " ++ labelColour)},
-                list{text("TypeLL")},
-              ),
-              span(list{Attrs.class_("text-xs text-gray-400")}, list{text(statusText)}),
-            },
-          ),
-          div(
-            list{Attrs.class_("text-sm text-gray-300 font-mono mb-1")},
-            list{text(result.typeSignature)},
-          ),
-          div(list{Attrs.class_("text-xs text-gray-400 mb-1")}, list{text(narrative.celebrate)}),
-          if Array.length(result.proofObligations) > 0 {
-            div(
-              list{Attrs.class_("text-xs text-yellow-400 mt-1")},
-              list{text("Proof obligations: " ++ Array.join(result.proofObligations, ", "))},
-            )
-          } else {
-            noNode
-          },
-          if Array.length(result.linearityIssues) > 0 {
-            div(
-              list{Attrs.class_("text-xs text-orange-400 mt-1")},
-              list{text("Linearity: " ++ Array.join(result.linearityIssues, ", "))},
-            )
-          } else {
-            noNode
-          },
-        },
-      )
-    }
-  }
-}
-
-// ===========================================================================
-// VeriSimDB Database Panel
-// ===========================================================================
-
-/// Connection indicator: green dot when connected, red when disconnected.
-let renderDbConnectionIndicator = (db: verisimdbState): Tea_Vdom.t<msg> => {
-  let dotColour = db.connected ? "bg-emerald-400" : "bg-red-500"
-  let statusText = db.connected ? "Connected" : "Disconnected"
-
-  div(
-    list{Attrs.class_("flex items-center gap-2")},
-    list{
-      div(list{Attrs.class_("w-2 h-2 rounded-full " ++ dotColour)}, list{}),
-      div(
-        list{Attrs.class_("text-[10px] text-gray-400")},
-        list{text(statusText ++ " · " ++ db.endpoint)},
-      ),
-      button(
-        list{
-          Attrs.class_(
-            "ml-auto px-2 py-0.5 text-[10px] bg-gray-800 hover:bg-gray-700 rounded text-gray-300",
-          ),
-          Events.onClick(VeriSimDB(CheckHealth)),
-          KeyboardNav.onActivate(VeriSimDB(CheckHealth)),
-        },
-        list{text("Ping")},
-      ),
-    },
-  )
-}
-
-/// VCL query textarea and execute button.
-let renderVclQueryArea = (db: verisimdbState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-2")},
-    list{
-      div(list{Attrs.class_("text-[11px] text-gray-400")}, list{text("VCL Query")}),
-      textarea(
-        list{
-          Attrs.class_(
-            "w-full h-20 bg-gray-950 border border-gray-800 rounded p-2 font-mono text-[11px] text-cyan-200 resize-none focus:border-cyan-600 focus:outline-none",
-          ),
-          Attrs.placeholder("SELECT GRAPH.* FROM HEXAD 'entity-id'"),
-          Attrs.value(db.lastQuery),
-          Events.onInput(value => VeriSimDB(UpdateQueryInput(value))),
-          Attrs.ariaLabel("VCL query input"),
-        },
-        list{},
-      ),
-      div(
-        list{Attrs.class_("flex gap-2")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs bg-cyan-600 hover:bg-cyan-500 rounded text-gray-900 font-semibold",
-              ),
-              Events.onClick(VeriSimDB(SubmitQuery(db.lastQuery))),
-            },
-            list{text("Execute")},
-          ),
-          button(
-            list{
-              Attrs.class_("px-3 py-1 text-xs bg-gray-800 hover:bg-gray-700 rounded text-gray-300"),
-              Events.onClick(VeriSimDB(ListEntities)),
-              KeyboardNav.onActivate(VeriSimDB(ListEntities)),
-            },
-            list{text("List Entities")},
-          ),
-          button(
-            list{
-              Attrs.class_("px-3 py-1 text-xs bg-gray-900 hover:bg-gray-800 rounded text-gray-400"),
-              Events.onClick(VeriSimDB(ClearQueryResult)),
-              KeyboardNav.onActivate(VeriSimDB(ClearQueryResult)),
-            },
-            list{text("Clear")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Query result display area — formatted JSON output or error message.
-let renderQueryResult = (db: verisimdbState): Tea_Vdom.t<msg> => {
-  let resultContent = switch (db.queryResult, db.queryError) {
-  | (Some(json), _) =>
-    div(
-      list{
-        Attrs.class_("p-2 bg-gray-950 border border-cyan-900/40 rounded max-h-40 overflow-y-auto"),
-      },
-      list{
-        node(
-          "pre",
-          list{Attrs.class_("font-mono text-[10px] text-cyan-100 whitespace-pre-wrap")},
-          list{text(json)},
-        ),
-      },
-    )
-  | (None, Some(err)) => div(list{Attrs.class_("text-xs text-red-400")}, list{text(err)})
-  | (None, None) =>
-    div(list{Attrs.class_("text-[10px] text-gray-600 italic")}, list{text("No query results yet.")})
-  }
-
-  div(
-    list{Attrs.class_("space-y-1")},
-    list{div(list{Attrs.class_("text-[11px] text-gray-400")}, list{text("Result")}), resultContent},
-  )
-}
-
-/// Entity list sidebar with clickable items that load drift status.
-let renderEntityList = (db: verisimdbState): Tea_Vdom.t<msg> => {
-  if Array.length(db.entities) === 0 {
-    text("")
-  } else {
-    let entityItems =
-      db.entities
-      ->Array.map(entityId => {
-        let isSelected = db.selectedEntity == Some(entityId)
-        let itemClass = isSelected
-          ? "text-xs text-cyan-300 bg-gray-800 px-2 py-1 rounded cursor-pointer"
-          : "text-xs text-gray-400 hover:text-cyan-200 px-2 py-1 rounded cursor-pointer"
-
-        div(
-          list{
-            Attrs.class_(itemClass),
-            Events.onClick(VeriSimDB(SelectEntity(entityId))),
-            Attrs.role("option"),
-          },
-          list{text(entityId)},
-        )
-      })
-      ->List.fromArray
-
-    div(
-      list{Attrs.class_("space-y-1")},
-      list{
-        div(
-          list{Attrs.class_("text-[11px] text-gray-400")},
-          list{text("Entities (" ++ Int.toString(Array.length(db.entities)) ++ ")")},
-        ),
-        div(
-          list{Attrs.class_("max-h-24 overflow-y-auto space-y-0.5"), Attrs.role("listbox")},
-          entityItems,
-        ),
-      },
-    )
-  }
-}
-
-/// Render a single drift bar for a modality.
-/// Shows modality name and a coloured bar proportional to the drift score.
-/// Colour transitions: green (0.0) -> amber (0.3) -> red (0.7+).
-let renderDriftBar = (modality: string, score: float): Tea_Vdom.t<msg> => {
-  let widthPercent = Int.toString(Int.fromFloat(score *. 100.0))
-  let barColour = if score >= 0.7 {
-    "bg-red-500"
-  } else if score >= 0.3 {
-    "bg-amber-400"
-  } else {
-    "bg-emerald-400"
-  }
-
-  div(
-    list{Attrs.class_("flex items-center gap-2")},
-    list{
-      div(
-        list{Attrs.class_("w-16 text-[10px] text-gray-400 font-mono text-right")},
-        list{text(modality)},
-      ),
-      div(
-        list{Attrs.class_("flex-1 h-2 bg-gray-800 rounded-full overflow-hidden")},
-        list{
-          div(
-            list{
-              Attrs.class_("h-full rounded-full " ++ barColour),
-              Attrs.style("width", widthPercent ++ "%"),
-              Attrs.role("progressbar"),
-              Attrs.ariaValueNow(score),
-              Attrs.ariaValueMin(0.0),
-              Attrs.ariaValueMax(1.0),
-              Attrs.ariaLabel(modality ++ " drift score"),
-            },
-            list{},
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("w-8 text-[10px] text-gray-500 font-mono")},
-        list{text(Float.toFixed(score, ~digits=2))},
-      ),
-    },
-  )
-}
-
-/// Drift heatmap: visual representation of drift across all 8 octad modalities.
-/// Renders as a vertical bar chart with colour-coded severity indicators.
-let renderDriftHeatmap = (scores: driftScores): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-1")},
-    list{
-      renderDriftBar("GRAPH", scores.graph),
-      renderDriftBar("VECTOR", scores.vector),
-      renderDriftBar("TENSOR", scores.tensor),
-      renderDriftBar("SEMANTIC", scores.semantic),
-      renderDriftBar("DOCUMENT", scores.document),
-      renderDriftBar("TEMPORAL", scores.temporal),
-      renderDriftBar("PROV", scores.provenance),
-      renderDriftBar("SPATIAL", scores.spatial),
-    },
-  )
-}
-
-/// Drift status display for the selected entity.
-/// Shows a drift heatmap when structured scores are available, with a
-/// normalise button for entities above the warning threshold.
-let renderDriftStatus = (db: verisimdbState): Tea_Vdom.t<msg> => {
-  switch (db.selectedEntity, db.driftStatus) {
-  | (Some(entityId), Some(_json)) =>
-    let heatmapView = switch db.driftScores {
-    | Some(scores) => renderDriftHeatmap(scores)
-    | None =>
-      // Fallback to raw JSON if parsing failed
-      div(
-        list{
-          Attrs.class_(
-            "p-2 bg-gray-950 border border-amber-900/40 rounded max-h-24 overflow-y-auto",
-          ),
-        },
-        list{
-          node(
-            "pre",
-            list{Attrs.class_("font-mono text-[10px] text-amber-200 whitespace-pre-wrap")},
-            list{
-              text(
-                switch db.driftStatus {
-                | Some(j) => j
-                | None => ""
-                },
-              ),
-            },
-          ),
-        },
-      )
-    }
-
-    let isNormalising = db.normalisingEntity == Some(entityId)
-    let normaliseButton = button(
-      list{
-        Attrs.class_(
-          if isNormalising {
-            "px-2 py-0.5 text-[10px] bg-gray-700 rounded text-gray-500 cursor-not-allowed"
-          } else {
-            "px-2 py-0.5 text-[10px] bg-amber-600 hover:bg-amber-500 rounded text-gray-900 font-semibold"
-          },
-        ),
-        Events.onClick(
-          if isNormalising {
-            VeriSimDB(ClearQueryResult)
-          } else {
-            VeriSimDB(TriggerNormalise(entityId))
-          },
-        ),
-      },
-      list{
-        text(
-          if isNormalising {
-            "Normalising..."
-          } else {
-            "Normalise"
-          },
-        ),
-      },
-    )
-
-    div(
-      list{Attrs.class_("space-y-2")},
-      list{
-        div(
-          list{Attrs.class_("flex items-center justify-between")},
-          list{
-            div(list{Attrs.class_("text-[11px] text-gray-400")}, list{text("Drift: " ++ entityId)}),
-            normaliseButton,
-          },
-        ),
-        heatmapView,
-      },
-    )
-  | (Some(_), None) =>
-    div(
-      list{Attrs.class_("text-[10px] text-gray-600 italic")},
-      list{text("Loading drift status...")},
-    )
-  | _ => text("")
-  }
-}
-
-/// Telemetry dashboard panel — shows aggregate product development metrics.
-/// Displays modality usage heatmap, query pattern distribution, performance,
-/// drift frequency, and VCL-total proof adoption. All data is aggregate-only.
-let renderTelemetryPanel = (db: verisimdbState): Tea_Vdom.t<msg> => {
-  if !db.telemetryVisible {
-    text("")
-  } else {
-    switch db.telemetry {
-    | None =>
-      div(
-        list{
-          Attrs.class_("mt-2 p-3 bg-gray-900/80 border border-emerald-900/30 rounded space-y-2"),
-        },
-        list{
-          div(
-            list{Attrs.class_("text-[10px] text-gray-500 italic")},
-            list{text("No telemetry data. Click 'Fetch Telemetry' to load product insights.")},
-          ),
-          div(
-            list{Attrs.class_("text-[9px] text-gray-600")},
-            list{text("Aggregate metrics only. No query content or entity data is captured.")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-2 py-1 text-[10px] bg-emerald-700 hover:bg-emerald-600 rounded text-gray-100",
-              ),
-              Events.onClick(VeriSimDB(FetchTelemetry)),
-              KeyboardNav.onActivate(VeriSimDB(FetchTelemetry)),
-            },
-            list{text("Fetch Telemetry")},
-          ),
-        },
-      )
-    | Some(snapshot) =>
-      let modalityBars =
-        snapshot.modalityHeatmap
-        ->Array.map(((name, pct)) => {
-          let widthPct = Int.toString(Int.fromFloat(pct))
-          let barColour = if pct >= 30.0 {
-            "bg-emerald-400"
-          } else if pct >= 10.0 {
-            "bg-cyan-400"
-          } else {
-            "bg-gray-600"
-          }
-
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              div(
-                list{Attrs.class_("w-16 text-[10px] text-gray-400 font-mono text-right")},
-                list{text(name)},
-              ),
-              div(
-                list{Attrs.class_("flex-1 h-2 bg-gray-800 rounded-full overflow-hidden")},
-                list{
-                  div(
-                    list{
-                      Attrs.class_("h-full rounded-full " ++ barColour),
-                      Attrs.style("width", widthPct ++ "%"),
-                    },
-                    list{},
-                  ),
-                },
-              ),
-              div(
-                list{Attrs.class_("w-10 text-[10px] text-gray-500 font-mono")},
-                list{text(Float.toFixed(pct, ~digits=1) ++ "%")},
-              ),
-            },
-          )
-        })
-        ->List.fromArray
-
-      let patternRows =
-        snapshot.queryPatterns
-        ->Array.map(((pattern, count)) =>
-          div(
-            list{Attrs.class_("flex justify-between text-[10px]")},
-            list{
-              div(list{Attrs.class_("text-cyan-300 font-mono")}, list{text(pattern)}),
-              div(list{Attrs.class_("text-gray-500")}, list{text(Int.toString(count))}),
-            },
-          )
-        )
-        ->List.fromArray
-
-      div(
-        list{
-          Attrs.class_("mt-2 p-3 bg-gray-900/80 border border-emerald-900/30 rounded space-y-3"),
-        },
-        list{
-          // Privacy notice
-          div(
-            list{Attrs.class_("text-[9px] text-gray-600 italic")},
-            list{text(snapshot.privacyNotice)},
-          ),
-          // Modality usage heatmap
-          div(
-            list{Attrs.class_("space-y-1")},
-            list{
-              div(list{Attrs.class_("text-[11px] text-gray-400")}, list{text("Modality Usage")}),
-              div(list{Attrs.class_("space-y-1")}, modalityBars),
-            },
-          ),
-          // Query patterns
-          div(
-            list{Attrs.class_("space-y-1")},
-            list{
-              div(list{Attrs.class_("text-[11px] text-gray-400")}, list{text("Query Patterns")}),
-              div(list{Attrs.class_("space-y-0.5")}, patternRows),
-            },
-          ),
-          // Performance + drift summary
-          div(
-            list{Attrs.class_("grid grid-cols-3 gap-2 text-center")},
-            list{
-              div(
-                list{},
-                list{
-                  div(
-                    list{Attrs.class_("text-lg font-light text-cyan-300")},
-                    list{text(Float.toFixed(snapshot.avgQueryDurationMs, ~digits=1) ++ "ms")},
-                  ),
-                  div(list{Attrs.class_("text-[9px] text-gray-500")}, list{text("Avg Query")}),
-                },
-              ),
-              div(
-                list{},
-                list{
-                  div(
-                    list{Attrs.class_("text-lg font-light text-amber-300")},
-                    list{text(Int.toString(snapshot.driftDetectedCount))},
-                  ),
-                  div(list{Attrs.class_("text-[9px] text-gray-500")}, list{text("Drift Events")}),
-                },
-              ),
-              div(
-                list{},
-                list{
-                  div(
-                    list{Attrs.class_("text-lg font-light text-emerald-300")},
-                    list{text(Float.toFixed(snapshot.normaliseSuccessRate, ~digits=0) ++ "%")},
-                  ),
-                  div(list{Attrs.class_("text-[9px] text-gray-500")}, list{text("Normalise OK")}),
-                },
-              ),
-            },
-          ),
-          // Refresh button
-          div(
-            list{Attrs.class_("flex justify-between items-center")},
-            list{
-              div(
-                list{Attrs.class_("text-[9px] text-gray-600")},
-                list{text("Generated: " ++ snapshot.generatedAt)},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-2 py-0.5 text-[10px] bg-gray-800 hover:bg-gray-700 rounded text-gray-300",
-                  ),
-                  Events.onClick(VeriSimDB(FetchTelemetry)),
-                  KeyboardNav.onActivate(VeriSimDB(FetchTelemetry)),
-                },
-                list{text("Refresh")},
-              ),
-            },
-          ),
-        },
-      )
-    }
-  }
-}
-
-/// The complete VeriSimDB database tools panel, rendered in Pane-W.
-let renderDatabaseTools = (db: verisimdbState): Tea_Vdom.t<msg> => {
-  let submenu = if !db.dbMenuExpanded {
-    text("")
-  } else {
-    div(
-      list{
-        Attrs.class_("mt-2 p-3 bg-gray-900/80 border border-cyan-900/30 rounded space-y-3"),
-        Attrs.ariaExpanded(db.dbMenuExpanded),
-      },
-      list{
-        renderDbConnectionIndicator(db),
-        renderVclQueryArea(db),
-        renderQueryResult(db),
-        viewTypeCheckResult(db.lastTypeCheck),
-        renderEntityList(db),
-        renderDriftStatus(db),
-        // Telemetry section with toggle
-        div(
-          list{Attrs.class_("flex items-center gap-2 mt-2")},
-          list{
-            div(list{Attrs.class_("text-[11px] text-gray-400")}, list{text("Product Telemetry")}),
-            button(
-              list{
-                Attrs.class_(
-                  "px-2 py-0.5 text-[10px] bg-gray-800 hover:bg-gray-700 rounded text-gray-300",
-                ),
-                Events.onClick(VeriSimDB(ToggleTelemetryPanel)),
-                KeyboardNav.onActivate(VeriSimDB(ToggleTelemetryPanel)),
-              },
-              list{
-                text(
-                  if db.telemetryVisible {
-                    "Hide"
-                  } else {
-                    "Show"
-                  },
-                ),
-              },
-            ),
-          },
-        ),
-        renderTelemetryPanel(db),
-        // Proof obligation display toggle
-        div(
-          list{Attrs.class_("flex items-center gap-2 mt-2")},
-          list{
-            div(
-              list{Attrs.class_("text-[11px] text-gray-400")},
-              list{text("VCL-total Proof Obligations")},
-            ),
-            button(
-              list{
-                Attrs.class_(
-                  "px-2 py-0.5 text-[10px] bg-gray-800 hover:bg-gray-700 rounded text-gray-300",
-                ),
-                Events.onClick(VeriSimDB(ToggleProofDisplay)),
-                KeyboardNav.onActivate(VeriSimDB(ToggleProofDisplay)),
-              },
-              list{
-                text(
-                  if db.proofDisplayActive {
-                    "Hide in Panel-L"
-                  } else {
-                    "Show in Panel-L"
-                  },
-                ),
-              },
-            ),
-          },
-        ),
-        // Anti-Crash validation toggle
-        div(
-          list{Attrs.class_("flex items-center gap-2 mt-2")},
-          list{
-            div(
-              list{Attrs.class_("text-[11px] text-gray-400")},
-              list{text("Anti-Crash VCL Validation")},
-            ),
-            button(
-              list{
-                Attrs.class_(
-                  if db.antiCrashValidation {
-                    "px-2 py-0.5 text-[10px] bg-green-900/40 hover:bg-green-800/40 rounded text-green-400 border border-green-500/30"
-                  } else {
-                    "px-2 py-0.5 text-[10px] bg-gray-800 hover:bg-gray-700 rounded text-gray-400"
-                  },
-                ),
-                Events.onClick(VeriSimDB(ToggleAntiCrashValidation)),
-                KeyboardNav.onActivate(VeriSimDB(ToggleAntiCrashValidation)),
-              },
-              list{
-                text(
-                  if db.antiCrashValidation {
-                    "Active"
-                  } else {
-                    "Inactive"
-                  },
-                ),
-              },
-            ),
-          },
-        ),
-        // BoJ routing toggle for VeriSimDB operations
-        div(
-          list{Attrs.class_("flex items-center gap-2 mt-2")},
-          list{
-            div(list{Attrs.class_("text-[11px] text-gray-400")}, list{text("BoJ Routing")}),
-            button(
-              list{
-                Attrs.class_(
-                  if db.bojRouting {
-                    "px-2 py-0.5 text-[10px] bg-blue-700 text-white rounded"
-                  } else {
-                    "px-2 py-0.5 text-[10px] bg-gray-800 hover:bg-gray-700 rounded text-gray-300"
-                  },
-                ),
-                Attrs.ariaLabel(
-                  if db.bojRouting {
-                    "Disable BoJ routing"
-                  } else {
-                    "Enable BoJ routing"
-                  },
-                ),
-                Events.onClick(VeriSimDB(ToggleVeriSimBojRouting)),
-                KeyboardNav.onActivate(VeriSimDB(ToggleVeriSimBojRouting)),
-              },
-              list{
-                text(
-                  if db.bojRouting {
-                    "BoJ On"
-                  } else {
-                    "BoJ"
-                  },
-                ),
-              },
-            ),
-          },
-        ),
-        // Query count and inference stream summary
-        div(
-          list{Attrs.class_("flex items-center gap-3 mt-2 text-[10px] text-gray-500")},
-          list{
-            span(list{}, list{text(`Queries: ${Int.toString(db.queryCount)}`)}),
-            if Array.length(db.inferenceStream) > 0 {
-              span(
-                list{Attrs.class_("text-violet-400")},
-                list{
-                  text(`${Int.toString(Array.length(db.inferenceStream))} inference suggestions`),
-                },
-              )
-            } else {
-              noNode
-            },
-          },
-        ),
-      },
-    )
-  }
-
-  div(
-    list{Attrs.class_("mt-4 space-y-1")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          div(
-            list{Attrs.class_("text-xs text-gray-400 tracking-widest uppercase")},
-            list{text("Database Tools")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-2 py-1 text-[10px] bg-gray-800 hover:bg-gray-700 rounded text-gray-300",
-              ),
-              Events.onClick(VeriSimDB(ToggleDbMenu)),
-              KeyboardNav.onActivate(VeriSimDB(ToggleDbMenu)),
-            },
-            list{
-              text(
-                if db.dbMenuExpanded {
-                  "Hide"
-                } else {
-                  "Show"
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      submenu,
-    },
-  )
-}
-
-// ===========================================================================
-// Security Tools (existing)
-// ===========================================================================
-
-/// Render the security tools menu with panic-attacker and trace-agent buttons.
-let renderSecurityTools = (state: paneWState): Tea_Vdom.t<msg> => {
-  let tools = [("panic-attacker", "panic-attacker"), ("trace-agent", "trace-agent (future)")]
-
-  let toolButtons =
-    tools
-    ->Array.map(((toolId, label)) =>
-      button(
-        list{
-          Attrs.class_(
-            "w-full text-left px-2 py-1 text-xs text-gray-300 hover:bg-gray-800 rounded",
-          ),
-          Events.onClick(PaneW(OpenSecurityDialog(toolId))),
-        },
-        list{text(label)},
-      )
-    )
-    ->List.fromArray
-
-  let submenu = if !state.securityMenuExpanded {
-    text("")
-  } else {
-    div(
-      list{
-        Attrs.class_("mt-2 bg-gray-900/80 border border-gray-800 rounded p-2 space-y-1"),
-        Attrs.ariaExpanded(state.securityMenuExpanded),
-      },
-      toolButtons,
-    )
-  }
-
-  div(
-    list{Attrs.class_("mt-4 space-y-1")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          div(
-            list{Attrs.class_("text-xs text-gray-400 tracking-widest uppercase")},
-            list{text("Security Tools")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-2 py-1 text-[10px] bg-gray-800 hover:bg-gray-700 rounded text-gray-300",
-              ),
-              Events.onClick(PaneW(ToggleSecurityTools)),
-              KeyboardNav.onActivate(PaneW(ToggleSecurityTools)),
-            },
-            list{
-              text(
-                if state.securityMenuExpanded {
-                  "Hide"
-                } else {
-                  "Show"
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      submenu,
-    },
-  )
-}
-
-/// Render the security dialog overlay for configuring and launching security scans.
-let renderSecurityDialog = (state: paneWState): Tea_Vdom.t<msg> => {
-  if !state.securityDialogOpen {
-    text("")
-  } else {
-    let statusView = switch state.securityStatus {
-    | Some(msg) => div(list{Attrs.class_("text-xs text-emerald-300")}, list{text(msg)})
-    | None => text("")
-    }
-
-    let errorView = switch state.securityError {
-    | Some(err) => div(list{Attrs.class_("text-xs text-red-400")}, list{text(err)})
-    | None => text("")
-    }
-
-    let toolName = switch state.securityDialogTool {
-    | Some(tool) => tool
-    | None => "security tool"
-    }
-
-    div(
-      list{Attrs.class_("fixed inset-0 bg-black/60 z-40 flex items-start justify-center p-6")},
-      list{
-        div(
-          list{
-            Attrs.class_(
-              "relative w-full max-w-3xl bg-gray-950 border border-gray-800 rounded-lg shadow-2xl p-6 space-y-4",
-            ),
-            Attrs.role("dialog"),
-            Attrs.ariaLabel("Security Tool: " ++ toolName),
-          },
-          list{
-            div(
-              list{Attrs.class_("flex items-center justify-between")},
-              list{
-                div(
-                  list{Attrs.class_("text-xs text-gray-400 uppercase tracking-widest")},
-                  list{text("Security Menu · " ++ toolName)},
-                ),
-                button(
-                  list{
-                    Attrs.class_("text-xs text-gray-300 px-2 py-1 border border-gray-700 rounded"),
-                    Events.onClick(PaneW(CloseSecurityDialog)),
-                    KeyboardNav.onActivate(PaneW(CloseSecurityDialog)),
-                  },
-                  list{text("Close")},
-                ),
-              },
-            ),
-            statusView,
-            div(
-              list{Attrs.class_("space-y-1")},
-              list{
-                div(
-                  list{Attrs.class_("text-[11px] text-gray-400")},
-                  list{text("Target program / binary")},
-                ),
-                input(
-                  list{
-                    Attrs.class_(
-                      "w-full text-xs bg-gray-950 border border-gray-800 rounded px-2 py-1 text-gray-300",
-                    ),
-                    Attrs.placeholder("/path/to/program"),
-                    Attrs.value(state.securityTarget),
-                    Events.onInput(value => PaneW(SetSecurityTarget(value))),
-                    Attrs.ariaLabel("Target program or binary path"),
-                  },
-                  list{},
-                ),
-              },
-            ),
-            div(
-              list{Attrs.class_("space-y-1")},
-              list{
-                div(
-                  list{Attrs.class_("text-[11px] text-gray-400")},
-                  list{text("Timeline file (JSON/YAML)")},
-                ),
-                div(
-                  list{Attrs.class_("flex gap-2")},
-                  list{
-                    input(
-                      list{
-                        Attrs.class_(
-                          "flex-1 text-xs bg-gray-950 border border-gray-800 rounded px-2 py-1 text-gray-300",
-                        ),
-                        Attrs.placeholder("timeline.yaml"),
-                        Attrs.value(state.securityTimeline),
-                        Events.onInput(value => PaneW(SetSecurityTimeline(value))),
-                        Attrs.ariaLabel("Timeline file path"),
-                      },
-                      list{},
-                    ),
-                    button(
-                      list{
-                        Attrs.class_(
-                          "px-2 py-1 text-xs bg-gray-800 hover:bg-gray-700 rounded text-gray-300",
-                        ),
-                        Events.onClick(PaneW(LoadSecurityTimelineFile)),
-                        KeyboardNav.onActivate(PaneW(LoadSecurityTimelineFile)),
-                      },
-                      list{text("Browse")},
-                    ),
-                  },
-                ),
-              },
-            ),
-            div(
-              list{Attrs.class_("space-y-1")},
-              list{
-                div(list{Attrs.class_("text-[11px] text-gray-400")}, list{text("Axes")}),
-                input(
-                  list{
-                    Attrs.class_(
-                      "w-full text-xs bg-gray-950 border border-gray-800 rounded px-2 py-1 text-gray-300",
-                    ),
-                    Attrs.placeholder("cpu,memory,concurrency"),
-                    Attrs.value(state.securityAxes),
-                    Events.onInput(value => PaneW(SetSecurityAxes(value))),
-                    Attrs.ariaLabel("Security test axes"),
-                  },
-                  list{},
-                ),
-              },
-            ),
-            div(
-              list{Attrs.class_("flex gap-2")},
-              list{
-                div(
-                  list{Attrs.class_("flex-1 space-y-1")},
-                  list{
-                    div(list{Attrs.class_("text-[11px] text-gray-400")}, list{text("Intensity")}),
-                    input(
-                      list{
-                        Attrs.class_(
-                          "w-full text-xs bg-gray-950 border border-gray-800 rounded px-2 py-1 text-gray-300",
-                        ),
-                        Attrs.placeholder("medium"),
-                        Attrs.value(state.securityIntensity),
-                        Events.onInput(value => PaneW(SetSecurityIntensity(value))),
-                        Attrs.ariaLabel("Test intensity"),
-                      },
-                      list{},
-                    ),
-                  },
-                ),
-                div(
-                  list{Attrs.class_("flex-1 space-y-1")},
-                  list{
-                    div(
-                      list{Attrs.class_("text-[11px] text-gray-400")},
-                      list{text("Duration (s)")},
-                    ),
-                    input(
-                      list{
-                        Attrs.class_(
-                          "w-full text-xs bg-gray-950 border border-gray-800 rounded px-2 py-1 text-gray-300",
-                        ),
-                        Attrs.placeholder("30"),
-                        Attrs.value(state.securityDuration),
-                        Events.onInput(value => PaneW(SetSecurityDuration(value))),
-                        Attrs.ariaLabel("Test duration in seconds"),
-                      },
-                      list{},
-                    ),
-                  },
-                ),
-              },
-            ),
-            div(
-              list{Attrs.class_("flex items-center gap-3")},
-              list{
-                button(
-                  list{
-                    Attrs.class_(
-                      "px-4 py-2 text-xs bg-emerald-500 hover:bg-emerald-400 rounded text-gray-900 font-semibold",
-                    ),
-                    Events.onClick(PaneW(LaunchSecurityAmbush)),
-                    KeyboardNav.onActivate(PaneW(LaunchSecurityAmbush)),
-                  },
-                  list{text("Launch Ambush")},
-                ),
-                button(
-                  list{
-                    Attrs.class_(
-                      "px-4 py-2 text-xs bg-gray-800 hover:bg-gray-700 rounded text-gray-300",
-                    ),
-                    Events.onClick(PaneW(ClearEventChain)),
-                    KeyboardNav.onActivate(PaneW(ClearEventChain)),
-                  },
-                  list{text("Reset")},
-                ),
-                button(
-                  list{
-                    Attrs.class_(
-                      "px-3 py-1 text-xs bg-gray-700 hover:bg-gray-600 rounded text-gray-200",
-                    ),
-                    Events.onClick(PaneW(ToggleSecurityStudyView)),
-                    KeyboardNav.onActivate(PaneW(ToggleSecurityStudyView)),
-                  },
-                  list{
-                    text(
-                      if state.securityViewActive {
-                        "Hide Time/Space View"
-                      } else {
-                        "Show Time/Space View"
-                      },
-                    ),
-                  },
-                ),
-              },
-            ),
-            errorView,
-          },
-        ),
-      },
-    )
-  }
-}
-
-/// Render the security study view with event chain timeline and analysis results.
-let renderSecurityStudyView = (state: paneWState): Tea_Vdom.t<msg> => {
-  if !state.securityViewActive {
-    text("")
-  } else {
-    let timelineInfo = switch state.eventChainTimeline {
-    | Some(timeline) =>
-      "Timeline: " ++
-      Int.toString(timeline.events) ++
-      " events · " ++
-      Float.toString(timeline.durationMs) ++ "ms"
-    | None => "Timeline metadata unavailable"
-    }
-
-    let eventRows =
-      state.eventChain
-      ->Array.map(ev => {
-        div(
-          list{
-            Attrs.class_(
-              "text-xs text-gray-300 flex justify-between border-b border-gray-800/60 py-1",
-            ),
-          },
-          list{
-            div(list{}, list{text(ev.id)}),
-            div(list{}, list{text(ev.axis ++ " · " ++ ev.status)}),
-            div(list{}, list{text(Float.toString(ev.durationMs) ++ "ms")}),
-          },
-        )
-      })
-      ->List.fromArray
-
-    div(
-      list{
-        Attrs.class_("mt-4 p-3 border border-emerald-500/20 rounded bg-emerald-900/30 space-y-2"),
-      },
-      list{
-        div(
-          list{Attrs.class_("text-xs font-semibold text-emerald-300")},
-          list{text("Time/Space Study")},
-        ),
-        div(list{Attrs.class_("text-[11px] text-gray-400")}, list{text(timelineInfo)}),
-        div(list{Attrs.class_("max-h-32 overflow-y-auto")}, eventRows),
-      },
-    )
-  }
-}
-
-/// Render the event chain panel showing security event timeline, summary, and controls.
-let renderEventChainPanel = (state: paneWState): Tea_Vdom.t<msg> => {
-  let eventCount = Array.length(state.eventChain)
-  let summaryView = switch state.eventChainSummary {
-  | Some(summary) =>
-    div(
-      list{Attrs.class_("text-xs text-gray-500 mb-2")},
-      list{
-        text(
-          "Program: " ++
-          summary.program ++
-          " · Weak points: " ++
-          Int.toString(summary.weakPoints) ++
-          " · Crashes: " ++
-          Int.toString(summary.totalCrashes) ++
-          " · Robustness: " ++
-          Float.toString(summary.robustnessScore),
-        ),
-      },
-    )
-  | None =>
-    div(
-      list{Attrs.class_("text-xs text-gray-600 mb-2")},
-      list{text("No event-chain summary loaded.")},
-    )
-  }
-
-  let timelineView = switch state.eventChainTimeline {
-  | Some(timeline) =>
-    div(
-      list{Attrs.class_("text-xs text-gray-500 mb-2")},
-      list{
-        text(
-          "Timeline: " ++
-          Int.toString(timeline.events) ++
-          " events · Duration: " ++
-          Float.toString(timeline.durationMs) ++ "ms",
-        ),
-      },
-    )
-  | None =>
-    div(
-      list{Attrs.class_("text-xs text-gray-600 mb-2")},
-      list{text("No timeline metadata loaded.")},
-    )
-  }
-
-  let capabilityTone = PanicAttackerMode.toneClass(state.panicAttackerMode)
-  let capabilityLabel = PanicAttackerMode.label(state.panicAttackerMode)
-
-  let capabilityBinaryView = switch state.panicAttackerBinary {
-  | Some(binary) =>
-    div(list{Attrs.class_("text-xs text-gray-600")}, list{text("Binary: " ++ binary)})
-  | None => text("")
-  }
-
-  let capabilityDetailView = switch state.panicAttackerStatusDetail {
-  | Some(detail) => div(list{Attrs.class_("text-xs text-gray-500")}, list{text(detail)})
-  | None => text("")
-  }
-
-  let errorView = switch state.eventChainError {
-  | Some(err) => div(list{Attrs.class_("text-xs text-red-400 mb-2")}, list{text(err)})
-  | None => text("")
-  }
-
-  let previewCount = eventCount > 8 ? 8 : eventCount
-  let eventRows =
-    state.eventChain
-    ->Array.slice(~start=0, ~end=previewCount)
-    ->Array.map(ev => {
-      let startLabel = switch ev.startMs {
-      | Some(ms) => Float.toString(ms) ++ "ms"
-      | None => "n/a"
-      }
-      div(
-        list{Attrs.class_("text-xs text-gray-400 flex justify-between")},
-        list{
-          div(list{Attrs.class_("truncate")}, list{text(ev.id)}),
-          div(list{}, list{text(ev.axis)}),
-          div(list{}, list{text(startLabel)}),
-          div(list{}, list{text(Float.toString(ev.durationMs) ++ "ms")}),
-          div(list{}, list{text(ev.status)}),
-        },
-      )
-    })
-    ->List.fromArray
-
-  div(
-    list{Attrs.class_("mt-4 p-3 border border-gray-800 rounded bg-gray-900/60 space-y-2")},
-    list{
-      div(
-        list{Attrs.class_("text-xs text-gray-500 tracking-widest")},
-        list{text("EVENT CHAIN (PANLL IMPORT)")},
-      ),
-      summaryView,
-      div(
-        list{Attrs.class_("flex gap-2")},
-        list{
-          button(
-            list{
-              Attrs.class_("px-3 py-1 text-xs bg-gray-800 hover:bg-gray-700 rounded text-gray-300"),
-              Events.onClick(PaneW(ImportEventChain)),
-              KeyboardNav.onActivate(PaneW(ImportEventChain)),
-            },
-            list{text("Import JSON")},
-          ),
-          button(
-            list{
-              Attrs.class_("px-3 py-1 text-xs bg-gray-800 hover:bg-gray-700 rounded text-gray-300"),
-              Events.onClick(PaneW(ImportEventChainFile)),
-              KeyboardNav.onActivate(PaneW(ImportEventChainFile)),
-            },
-            list{text("Load File")},
-          ),
-          button(
-            list{
-              Attrs.class_("px-3 py-1 text-xs bg-gray-800 hover:bg-gray-700 rounded text-gray-300"),
-              Events.onClick(PaneW(CheckPanicAttackerCapability)),
-              KeyboardNav.onActivate(PaneW(CheckPanicAttackerCapability)),
-            },
-            list{text("Probe panic-attacker")},
-          ),
-          button(
-            list{
-              Attrs.class_("px-3 py-1 text-xs bg-gray-800 hover:bg-gray-700 rounded text-gray-300"),
-              Events.onClick(PaneW(ImportPanicAttackerReportFile)),
-              KeyboardNav.onActivate(PaneW(ImportPanicAttackerReportFile)),
-            },
-            list{text("Load panic-attacker Report")},
-          ),
-          button(
-            list{
-              Attrs.class_("px-3 py-1 text-xs bg-gray-800 hover:bg-gray-700 rounded text-gray-300"),
-              Events.onClick(PaneW(ImportLatestPanicAttacker)),
-              KeyboardNav.onActivate(PaneW(ImportLatestPanicAttacker)),
-            },
-            list{text("Latest panic-attacker")},
-          ),
-          button(
-            list{
-              Attrs.class_("px-3 py-1 text-xs bg-gray-900 hover:bg-gray-800 rounded text-gray-400"),
-              Events.onClick(PaneW(ClearEventChain)),
-              KeyboardNav.onActivate(PaneW(ClearEventChain)),
-            },
-            list{text("Clear")},
-          ),
-          div(
-            list{Attrs.class_("text-xs text-gray-600 ml-auto")},
-            list{text("Events: " ++ Int.toString(eventCount))},
-          ),
-        },
-      ),
-      renderSecurityTools(state),
-      timelineView,
-      div(
-        list{Attrs.class_("space-y-1")},
-        list{
-          div(list{Attrs.class_("text-xs " ++ capabilityTone)}, list{text(capabilityLabel)}),
-          capabilityBinaryView,
-          capabilityDetailView,
-        },
-      ),
-      errorView,
-      textarea(
-        list{
-          Attrs.class_(
-            "w-full h-24 bg-gray-950 border border-gray-800 rounded p-2 font-mono text-[11px] text-gray-400 resize-none focus:border-gray-600 focus:outline-none",
-          ),
-          Attrs.placeholder(
-            "Paste event-chain JSON here then click \"Import JSON\".\nFormat: {\"events\":[{\"id\":\"e1\",\"axis\":\"cpu\",\"durationMs\":100,\"intensity\":\"high\",\"status\":\"pass\"}]}",
-          ),
-          Attrs.value(state.eventChainInput),
-          Events.onInput(value => PaneW(UpdateEventChainInput(value))),
-          Attrs.ariaLabel("Event chain JSON input"),
-        },
-        list{},
-      ),
-      div(list{Attrs.class_("space-y-1")}, eventRows),
-      renderSecurityDialog(state),
-    },
-  )
-}
-
-// ===========================================================================
-// Barycentre Tour — Guided Walkthrough
-// ===========================================================================
-
-/// Tour step content: title, explanation, and what to look at.
-let tourStepContent = (step: tourStep): (string, string) => {
-  switch step {
-  | TourIntro => (
-      "Welcome to the Task Barycentre",
-      "The Barycentre is the gravitational centre of your work. Like a binary star system, your symbolic reasoning (Panel-L) and neural inference (Panel-N) co-orbit around a shared centre of mass. This view shows you where that centre is and how healthy the orbit is.",
-    )
-  | TourBinaryStar => (
-      "The Binary Star System",
-      "The indigo star represents your Symbolic Panel (formal logic, constraints, type-checked code). The emerald star represents your Neural Panel (AI inference, natural language, creative output). They orbit each other — when balanced, your work is strongest.",
-    )
-  | TourBarycentrePosition => (
-      "Barycentre Position",
-      "The golden diamond shows where the centre of gravity currently sits. If it drifts toward Symbolic, you may be over-constraining. If it drifts toward Neural, you may lack formal grounding. The position bar below the diagram shows this as a spectrum.",
-    )
-  | TourOrbitalMetrics => (
-      "Orbital Metrics",
-      "Four gauges measure orbit health: Stability (how steady the co-orbit is), Divergence (how far apart the stars have drifted), Symbolic Mass (density of your formal content), and Neural Stream (throughput of inference). Green is healthy, amber needs attention, red means intervention needed.",
-    )
-  | TourContractiles => (
-      "Contractile Boundaries",
-      "Contractiles are elastic adaptive constraints that keep the orbit safe. Each one has an enforcement level (Strict/Warn/Adaptive) and an elasticity score. When a contractile is violated, it appears red. Elastic contractiles can stretch — rigid ones halt immediately.",
-    )
-  | TourSyncHealth => (
-      "Synchronisation Health",
-      "Sync Health measures how well the three panels communicate. Low latency and fresh hash states mean healthy sync. When sync degrades, the drift aura shifts from indigo to amber, and the system sheds visual complexity (Information Humidity drops) to reduce cognitive load.",
-    )
-  | TourComplete => (
-      "Tour Complete",
-      "You now understand the Task Barycentre. Use it to monitor your work balance, catch drift early, and understand when the system adapts to protect you. Click the tour button anytime to revisit.",
-    )
-  }
-}
-
-/// Tour step number (1-indexed, for display).
-let tourStepNumber = (step: tourStep): int => {
-  switch step {
-  | TourIntro => 1
-  | TourBinaryStar => 2
-  | TourBarycentrePosition => 3
-  | TourOrbitalMetrics => 4
-  | TourContractiles => 5
-  | TourSyncHealth => 6
-  | TourComplete => 7
-  }
-}
-
-/// Render the tour overlay card.
-let renderTourOverlay = (tour: tourState): Tea_Vdom.t<msg> => {
-  if !tour.active {
-    noNode
-  } else {
-    let (title, body) = tourStepContent(tour.currentStep)
-    let stepNum = tourStepNumber(tour.currentStep)
-    let isFirst = tour.currentStep === TourIntro
-    let isLast = tour.currentStep === TourComplete
-
-    div(
-      list{
-        Attrs.class_(
-          "absolute inset-0 z-50 flex items-end justify-center pb-4 pointer-events-none",
-        ),
-      },
-      list{
-        div(
-          list{
-            Attrs.class_(
-              "pointer-events-auto w-[90%] max-w-lg bg-gray-900/95 border border-indigo-700/60 rounded-xl shadow-2xl shadow-indigo-900/30 p-5 backdrop-blur-sm",
-            ),
-            Attrs.role("dialog"),
-            Attrs.ariaLabel("Barycentre tour"),
-          },
-          list{
-            // Step indicator
-            div(
-              list{Attrs.class_("flex items-center justify-between mb-3")},
-              list{
-                span(
-                  list{Attrs.class_("text-xs text-indigo-400 font-mono")},
-                  list{text(`Step ${Int.toString(stepNum)} of 7`)},
-                ),
-                button(
-                  list{
-                    Attrs.class_("text-gray-500 hover:text-gray-300 text-xs px-2 py-1"),
-                    Events.onClick(PaneW(CloseTour)),
-                    KeyboardNav.onActivate(PaneW(CloseTour)),
-                  },
-                  list{text("Skip tour")},
-                ),
-              },
-            ),
-            // Progress dots
-            div(
-              list{Attrs.class_("flex gap-1.5 mb-4")},
-              [1, 2, 3, 4, 5, 6, 7]
-              ->Array.map(n => {
-                let active = n <= stepNum
-                div(
-                  list{
-                    Attrs.class_(
-                      `h-1 flex-1 rounded-full transition-all ${active
-                          ? "bg-indigo-500"
-                          : "bg-gray-700"}`,
-                    ),
-                  },
-                  list{},
-                )
-              })
-              ->List.fromArray,
-            ),
-            // Title
-            div(list{Attrs.class_("text-sm font-semibold text-gray-100 mb-2")}, list{text(title)}),
-            // Body
-            div(list{Attrs.class_("text-xs text-gray-400 leading-relaxed mb-4")}, list{text(body)}),
-            // Navigation
-            div(
-              list{Attrs.class_("flex items-center justify-between")},
-              list{
-                if isFirst {
-                  div(list{}, list{})
-                } else {
-                  button(
-                    list{
-                      Attrs.class_(
-                        "px-3 py-1.5 text-xs bg-gray-800 hover:bg-gray-700 rounded text-gray-300",
-                      ),
-                      Events.onClick(PaneW(PrevTourStep)),
-                      KeyboardNav.onActivate(PaneW(PrevTourStep)),
-                    },
-                    list{text("Back")},
-                  )
-                },
-                button(
-                  list{
-                    Attrs.class_(
-                      `px-4 py-1.5 text-xs rounded font-medium ${isLast
-                          ? "bg-indigo-600 hover:bg-indigo-500 text-white"
-                          : "bg-indigo-600 hover:bg-indigo-500 text-white"}`,
-                    ),
-                    Events.onClick(
-                      if isLast {
-                        PaneW(CloseTour)
-                      } else {
-                        PaneW(NextTourStep)
-                      },
-                    ),
-                  },
-                  list{
-                    text(
-                      if isLast {
-                        "Finish"
-                      } else {
-                        "Next"
-                      },
-                    ),
-                  },
-                ),
-              },
-            ),
-          },
-        ),
-      },
-    )
-  }
-}
-
-// ===========================================================================
-// Metric Gauge Component
-// ===========================================================================
-
-/// Render a circular-style metric gauge with label, value, and colour coding.
-let renderMetricGauge = (
-  label: string,
-  value: float,
-  unit: string,
-  ~lowColour: string="text-red-400",
-  ~midColour: string="text-amber-300",
-  ~highColour: string="text-emerald-400",
-  ~invert: bool=false,
-): Tea_Vdom.t<msg> => {
-  let displayValue = Int.toString(Int.fromFloat(value *. 100.0))
-  let effective = if invert {
-    1.0 -. value
-  } else {
-    value
-  }
-  let colour = if effective >= 0.7 {
-    highColour
-  } else if effective >= 0.4 {
-    midColour
-  } else {
-    lowColour
-  }
-  let barWidth = Float.toFixed(value *. 100.0, ~digits=0)
-
-  div(
-    list{Attrs.class_("flex flex-col items-center gap-1")},
-    list{
-      // Value
-      div(list{Attrs.class_(`text-xl font-light ${colour}`)}, list{text(`${displayValue}${unit}`)}),
-      // Bar
-      div(
-        list{Attrs.class_("w-full h-1.5 bg-gray-800 rounded-full overflow-hidden")},
-        list{
-          div(
-            list{
-              Attrs.class_(
-                `h-full rounded-full transition-all duration-700 ${if effective >= 0.7 {
-                    "bg-emerald-500"
-                  } else if effective >= 0.4 {
-                    "bg-amber-500"
-                  } else {
-                    "bg-red-500"
-                  }}`,
-              ),
-              Attrs.style("width", `${barWidth}%`),
-            },
-            list{},
-          ),
-        },
-      ),
-      // Label
-      div(list{Attrs.class_("text-[10px] text-gray-500 text-center")}, list{text(label)}),
-    },
-  )
-}
-
-// ===========================================================================
-// Contractile Status Row
-// ===========================================================================
-
-/// Render a compact contractile status indicator.
-let renderContractileRow = (c: contractile): Tea_Vdom.t<msg> => {
-  let (statusColour, statusIcon) = switch c.status {
-  | Satisfied => ("text-emerald-400", "[OK]")
-  | Violated(_) => ("text-red-400", "[!!]")
-  | Pending => ("text-gray-500", "[..]")
-  | Suspended => ("text-gray-600", "[--]")
-  }
-  let enfLabel = switch c.enforcement {
-  | Strict => "Strict"
-  | Warn => "Warn"
-  | Adaptive => "Adapt"
-  }
-  let elasticityBar = Float.toFixed(c.elasticity *. 100.0, ~digits=0)
-
-  div(
-    list{Attrs.class_("flex items-center gap-2 py-1 px-2 bg-gray-900/50 rounded text-[10px]")},
-    list{
-      span(list{Attrs.class_(`font-mono ${statusColour}`)}, list{text(statusIcon)}),
-      span(list{Attrs.class_("text-gray-300 flex-1 truncate")}, list{text(c.name)}),
-      span(list{Attrs.class_("text-gray-600")}, list{text(enfLabel)}),
-      // Elasticity mini-bar
-      div(
-        list{Attrs.class_("w-10 h-1 bg-gray-800 rounded-full overflow-hidden")},
-        list{
-          div(
-            list{
-              Attrs.class_("h-full bg-indigo-500/60 rounded-full"),
-              Attrs.style("width", `${elasticityBar}%`),
-            },
-            list{},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ===========================================================================
-// Enhanced Binary Star Topology View
-// ===========================================================================
-
-/// Render the Binary Star topology diagram with full orbital metrics,
-/// barycentre position indicator, contractile status, sync health, and
-/// guided tour.
-let renderTopologyView = (
-  orbital: orbitalState,
-  contractiles: array<contractile>,
-  tour: tourState,
-): Tea_Vdom.t<msg> => {
-  // Barycentre position as a CSS percentage offset from centre.
-  // -1.0 maps to 15%, 0.0 maps to 50%, +1.0 maps to 85%.
-  let baryPct = Float.toFixed(50.0 +. orbital.barycentrePosition *. 35.0, ~digits=1)
-
-  div(
-    list{Attrs.class_("h-full flex flex-col items-center overflow-y-auto py-4 relative")},
-    list{
-      // Section title
-      div(
-        list{Attrs.class_("text-center mb-2")},
-        list{
-          div(
-            list{Attrs.class_("text-sm font-semibold text-gray-300 tracking-wide")},
-            list{text("Task Barycentre")},
-          ),
-          div(
-            list{Attrs.class_("text-[10px] text-gray-600")},
-            list{text("Binary Star Co-Orbit Monitor")},
-          ),
-        },
-      ),
-      // Tour start button (if not active)
-      if !tour.active {
-        div(
-          list{Attrs.class_("mb-3")},
-          list{
-            button(
-              list{
-                Attrs.class_(
-                  "px-3 py-1 text-[10px] bg-indigo-900/50 hover:bg-indigo-800/50 border border-indigo-700/40 rounded-full text-indigo-300 transition-colors",
-                ),
-                Attrs.title("Take a guided tour of the Task Barycentre"),
-                Events.onClick(PaneW(StartTour)),
-                KeyboardNav.onActivate(PaneW(StartTour)),
-              },
-              list{
-                text(
-                  if tour.completed {
-                    "Retake Tour"
-                  } else {
-                    "Take the Tour"
-                  },
-                ),
-              },
-            ),
-          },
-        )
-      } else {
-        noNode
-      },
-      // ─── Binary Star Diagram ───
-      div(
-        list{Attrs.class_("relative w-full max-w-md mx-auto"), Attrs.style("height", "200px")},
-        list{
-          // Orbital path (ellipse)
-          div(
-            list{
-              Attrs.class_("absolute border-2 border-dashed border-gray-700/50 rounded-full"),
-              Attrs.style("width", "320px"),
-              Attrs.style("height", "140px"),
-              Attrs.style("top", "50%"),
-              Attrs.style("left", "50%"),
-              Attrs.style("transform", "translate(-50%, -50%)"),
-            },
-            list{},
-          ),
-          // Symbolic star (left) — size scales with symbolicMass
-          div(
-            list{
-              Attrs.class_(
-                "absolute rounded-full bg-indigo-600/60 border-2 border-indigo-400 flex items-center justify-center shadow-lg shadow-indigo-500/30 transition-all duration-500",
-              ),
-              Attrs.style(
-                "width",
-                `${Int.toString(60 + Int.fromFloat(orbital.symbolicMass *. 30.0))}px`,
-              ),
-              Attrs.style(
-                "height",
-                `${Int.toString(60 + Int.fromFloat(orbital.symbolicMass *. 30.0))}px`,
-              ),
-              Attrs.style("left", "10%"),
-              Attrs.style("top", "50%"),
-              Attrs.style("transform", "translateY(-50%)"),
-            },
-            list{
-              div(
-                list{Attrs.class_("text-center")},
-                list{
-                  div(list{Attrs.class_("text-indigo-200 text-xs font-bold")}, list{text("L")}),
-                  div(list{Attrs.class_("text-indigo-300 text-[9px]")}, list{text("Symbolic")}),
-                },
-              ),
-            },
-          ),
-          // Neural star (right) — size scales with neuralStream
-          div(
-            list{
-              Attrs.class_(
-                "absolute rounded-full bg-emerald-600/60 border-2 border-emerald-400 flex items-center justify-center shadow-lg shadow-emerald-500/30 transition-all duration-500",
-              ),
-              Attrs.style(
-                "width",
-                `${Int.toString(60 + Int.fromFloat(orbital.neuralStream *. 30.0))}px`,
-              ),
-              Attrs.style(
-                "height",
-                `${Int.toString(60 + Int.fromFloat(orbital.neuralStream *. 30.0))}px`,
-              ),
-              Attrs.style("right", "10%"),
-              Attrs.style("top", "50%"),
-              Attrs.style("transform", "translateY(-50%)"),
-            },
-            list{
-              div(
-                list{Attrs.class_("text-center")},
-                list{
-                  div(list{Attrs.class_("text-emerald-200 text-xs font-bold")}, list{text("N")}),
-                  div(list{Attrs.class_("text-emerald-300 text-[9px]")}, list{text("Neural")}),
-                },
-              ),
-            },
-          ),
-          // Barycentre marker (diamond) — positioned dynamically on the axis
-          div(
-            list{
-              Attrs.class_(
-                "absolute w-8 h-8 bg-amber-500/70 border-2 border-amber-300 shadow-lg shadow-amber-500/40 flex items-center justify-center transition-all duration-700",
-              ),
-              Attrs.style("top", "50%"),
-              Attrs.style("left", baryPct ++ "%"),
-              Attrs.style("transform", "translate(-50%, -50%) rotate(45deg)"),
-            },
-            list{
-              div(
-                list{
-                  Attrs.class_("text-amber-100 text-[9px] font-bold"),
-                  Attrs.style("transform", "rotate(-45deg)"),
-                },
-                list{text("W")},
-              ),
-            },
-          ),
-          // Drift aura glow (subtle ring around the diagram)
-          div(
-            list{
-              Attrs.class_(
-                `absolute rounded-full pointer-events-none transition-all duration-1000 ${if (
-                    orbital.driftAuraColour === "indigo"
-                  ) {
-                    "shadow-[0_0_40px_rgba(99,102,241,0.15)]"
-                  } else {
-                    "shadow-[0_0_40px_rgba(245,158,11,0.2)]"
-                  }}`,
-              ),
-              Attrs.style("width", "340px"),
-              Attrs.style("height", "160px"),
-              Attrs.style("top", "50%"),
-              Attrs.style("left", "50%"),
-              Attrs.style("transform", "translate(-50%, -50%)"),
-            },
-            list{},
-          ),
-        },
-      ),
-      // ─── Barycentre Position Bar ───
-      div(
-        list{Attrs.class_("w-full max-w-sm mx-auto mt-2 px-4")},
-        list{
-          div(
-            list{Attrs.class_("flex justify-between text-[9px] text-gray-600 mb-0.5")},
-            list{
-              span(list{}, list{text("Symbolic")}),
-              span(list{}, list{text("Balanced")}),
-              span(list{}, list{text("Neural")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("h-2 bg-gray-800 rounded-full relative overflow-hidden")},
-            list{
-              // Gradient background
-              div(
-                list{
-                  Attrs.class_("absolute inset-0 opacity-30"),
-                  Attrs.style(
-                    "background",
-                    "linear-gradient(to right, rgb(99,102,241), rgb(107,114,128), rgb(16,185,129))",
-                  ),
-                },
-                list{},
-              ),
-              // Position marker
-              div(
-                list{
-                  Attrs.class_(
-                    "absolute top-0 bottom-0 w-1 bg-amber-400 rounded-full transition-all duration-700",
-                  ),
-                  Attrs.style("left", baryPct ++ "%"),
-                  Attrs.style("transform", "translateX(-50%)"),
-                },
-                list{},
-              ),
-            },
-          ),
-        },
-      ),
-      // ─── Metric Gauges Grid ───
-      div(
-        list{Attrs.class_("w-full max-w-md mx-auto mt-4 grid grid-cols-4 gap-3 px-4")},
-        list{
-          renderMetricGauge("Stability", orbital.stability, "%"),
-          renderMetricGauge("Divergence", orbital.divergenceLevel, "%", ~invert=true),
-          renderMetricGauge("Sym. Mass", orbital.symbolicMass, "%"),
-          renderMetricGauge("Neu. Stream", orbital.neuralStream, "%"),
-        },
-      ),
-      // ─── Sync Health Bar ───
-      div(
-        list{Attrs.class_("w-full max-w-md mx-auto mt-3 px-4")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              span(list{Attrs.class_("text-[10px] text-gray-500")}, list{text("Sync Health")}),
-              div(
-                list{Attrs.class_("flex-1 h-1.5 bg-gray-800 rounded-full overflow-hidden")},
-                list{
-                  div(
-                    list{
-                      Attrs.class_(
-                        `h-full rounded-full transition-all duration-500 ${if (
-                            orbital.syncHealth >= 0.8
-                          ) {
-                            "bg-emerald-500"
-                          } else if orbital.syncHealth >= 0.5 {
-                            "bg-amber-500"
-                          } else {
-                            "bg-red-500"
-                          }}`,
-                      ),
-                      Attrs.style(
-                        "width",
-                        `${Float.toFixed(orbital.syncHealth *. 100.0, ~digits=0)}%`,
-                      ),
-                    },
-                    list{},
-                  ),
-                },
-              ),
-              span(
-                list{Attrs.class_("text-[10px] text-gray-500 font-mono")},
-                list{text(`${Int.toString(Int.fromFloat(orbital.syncHealth *. 100.0))}%`)},
-              ),
-            },
-          ),
-        },
-      ),
-      // ─── Contractile Boundaries ───
-      div(
-        list{Attrs.class_("w-full max-w-md mx-auto mt-3 px-4")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2 mb-1.5")},
-            list{
-              span(
-                list{
-                  Attrs.class_("text-[10px] text-gray-500 font-semibold uppercase tracking-wider"),
-                },
-                list{text("Contractiles")},
-              ),
-              span(
-                list{Attrs.class_("text-[9px] text-gray-600")},
-                list{text("(elastic adaptive boundaries)")},
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("space-y-1")},
-            contractiles
-            ->Array.map(c => renderContractileRow(c))
-            ->List.fromArray,
-          ),
-        },
-      ),
-      // ─── Action Bar ───
-      div(
-        list{Attrs.class_("mt-4 flex gap-2")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-4 py-2 bg-gray-800 hover:bg-gray-700 rounded text-sm text-gray-400 transition-colors",
-              ),
-              Attrs.title("Toggle between topology graph and code output view"),
-              Attrs.ariaLabel("Switch to Code View"),
-              Events.onClick(PaneW(ToggleTopologyView)),
-              KeyboardNav.onActivate(PaneW(ToggleTopologyView)),
-            },
-            list{text("Code View")},
-          ),
-        },
-      ),
-      // ─── Tour Overlay ───
-      renderTourOverlay(tour),
-    },
-  )
-}
-
-/// Render the code/content view
-let renderContentView = (state: paneWState, db: verisimdbState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("h-full flex flex-col")},
-    list{
-      // Last validated output
-      div(
-        list{Attrs.class_("mb-4")},
-        list{
-          div(
-            list{Attrs.class_("text-xs text-gray-500 mb-2")},
-            list{text("LAST VALIDATED OUTPUT")},
-          ),
-          div(
-            list{
-              Attrs.class_(
-                "p-3 bg-gray-800/50 rounded border border-emerald-900/30 font-mono text-sm text-emerald-200 min-h-[60px]",
-              ),
-            },
-            list{
-              text(
-                state.lastValidatedOutput === ""
-                  ? "No validated output yet"
-                  : state.lastValidatedOutput,
-              ),
-            },
-          ),
-        },
-      ),
-      // Current content
-      div(
-        list{Attrs.class_("flex-1")},
-        list{
-          div(list{Attrs.class_("text-xs text-gray-500 mb-2")}, list{text("SHARED WORLD STATE")}),
-          textarea(
-            list{
-              Attrs.class_(
-                "w-full h-full bg-gray-800 border border-gray-700 rounded p-3 font-mono text-sm text-gray-300 resize-none focus:border-gray-500 focus:outline-none",
-              ),
-              Attrs.placeholder("Task output manifests here..."),
-              Attrs.value(state.content),
-              Events.onInput(value => PaneW(UpdateContent(value))),
-              Attrs.ariaLabel("Shared World State"),
-            },
-            list{},
-          ),
-        },
-      ),
-      renderDatabaseTools(db),
-      renderEventChainPanel(state),
-      renderSecurityStudyView(state),
-      renderSecurityDialog(state),
-      // Toggle button
-      div(
-        list{Attrs.class_("mt-4 text-right")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-4 py-2 bg-gray-800 hover:bg-gray-700 rounded text-sm text-gray-400 transition-colors",
-              ),
-              Events.onClick(PaneW(ToggleTopologyView)),
-              KeyboardNav.onActivate(PaneW(ToggleTopologyView)),
-            },
-            list{text("Switch to Topology View")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Main Pane-W view
-let view = (
-  state: paneWState,
-  orbital: orbitalState,
-  db: verisimdbState,
-  ~contractiles: array<contractile>=[],
-  ~tour: tourState={active: false, currentStep: TourIntro, completed: false},
-): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("h-full flex flex-col p-4 bg-gray-900"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Task Barycentre Panel"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-4")},
-        list{
-          div(list{Attrs.class_("text-gray-400 font-semibold")}, list{text("Task Barycentre")}),
-          div(list{Attrs.class_("text-xs text-gray-600")}, list{text("Ctrl+Shift+B")}),
-        },
-      ),
-      // Content
-      if state.topologyView {
-        renderTopologyView(orbital, contractiles, tour)
-      } else {
-        renderContentView(state, db)
-      },
-    },
-  )
-}
diff --git a/src/components/PanelSwitcher.affine b/src/components/PanelSwitcher.affine
new file mode 100644
index 00000000..31701e26
--- /dev/null
+++ b/src/components/PanelSwitcher.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PanelSwitcher;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/PanelSwitcher.res b/src/components/PanelSwitcher.res
deleted file mode 100644
index 49c6312c..00000000
--- a/src/components/PanelSwitcher.res
+++ /dev/null
@@ -1,283 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Panel Switcher Component — grouped slide-out panel navigator.
-///
-/// Renders a vertical sidebar on the right edge with **group headers**
-/// (one per clade kind: AI, Bridge, Builder, etc.). Clicking a group
-/// slides out a panel list showing all panels in that kind with their
-/// full names, descriptions, and connection status. Clicking a panel
-/// opens it as a full-screen overlay.
-///
-/// Design reference: Visual Paradigm's grouped selection panel — compact
-/// category strip with contextual slide-out for discovery.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Panel-to-kind mapping. Returns the kind string for a panel based on
-/// its cladeId in the builtin clade data. Panels without a clade default
-/// to "meta".
-let panelKind = (panel: panelMeta): string => {
-  let clades = CladeBrowserEngine.builtinClades
-  switch panel.cladeId {
-  | None => "meta"
-  | Some(cid) =>
-    switch clades->Array.find(c => c.id == cid) {
-    | Some(clade) => clade.kind
-    | None => "meta"
-    }
-  }
-}
-
-/// The ordered list of groups to show in the sidebar.
-/// Each group has a kind key, display label, and accent colour.
-type groupDef = {
-  kind: string,
-  label: string,
-  colour: string,
-  icon: string,
-}
-
-let groups: array<groupDef> = [
-  {kind: "ai", label: "AI", colour: "#a78bfa", icon: "ai"},
-  {kind: "bridge", label: "Bridge", colour: "#60a5fa", icon: "link"},
-  {kind: "builder", label: "Build", colour: "#f59e0b", icon: "hammer"},
-  {kind: "database", label: "Data", colour: "#34d399", icon: "db"},
-  {kind: "directive", label: "Direct", colour: "#f87171", icon: "flag"},
-  {kind: "loader", label: "Load", colour: "#818cf8", icon: "folder"},
-  {kind: "meta", label: "Meta", colour: "#9ca3af", icon: "cog"},
-  {kind: "network", label: "Net", colour: "#2dd4bf", icon: "wifi"},
-  {kind: "scanner", label: "Scan", colour: "#fb923c", icon: "shield"},
-  {kind: "terminal", label: "Term", colour: "#a3e635", icon: "term"},
-  {kind: "viewer", label: "View", colour: "#c084fc", icon: "eye"},
-]
-
-/// Render the connection status indicator dot.
-let renderStatusDot = (status: connectionStatus): Tea_Vdom.t<msg> => {
-  let colour = switch status {
-  | ServiceConnected => "bg-emerald-400"
-  | ServiceDisconnected => "bg-gray-600"
-  | ServiceChecking => "bg-amber-400 animate-pulse"
-  | ServiceError(_) => "bg-red-400"
-  }
-  div(list{Attrs.class_(`w-2 h-2 rounded-full ${colour} flex-shrink-0`)}, list{})
-}
-
-/// Render a single panel entry in the expanded group.
-let renderPanelEntry = (panel: panelMeta, isActive: bool): Tea_Vdom.t<msg> => {
-  let activeBg = isActive ? "bg-gray-700/80" : "hover:bg-gray-800/60"
-  let activeText = isActive ? "text-white" : "text-gray-300"
-
-  div(
-    list{
-      Attrs.class_(
-        `flex items-center gap-1 w-full px-1.5 py-1 rounded-lg ${activeBg} transition-colors group`,
-      ),
-    },
-    list{
-      // Main panel button (opens/closes panel)
-      button(
-        list{
-          Attrs.class_(
-            `flex items-center gap-2 flex-1 px-1.5 py-1 rounded text-left ${activeText} transition-colors`,
-          ),
-          Attrs.title(panel.description),
-          Attrs.ariaLabel(`Open ${panel.name} panel`),
-          Events.onClick(PanelSwitcher(TogglePanel(panel.id))),
-        },
-        list{
-          // Connection dot
-          if panel.hasBackend {
-            renderStatusDot(panel.connectionStatus)
-          } else {
-            noNode
-          },
-          // Panel name
-          span(list{Attrs.class_("text-sm truncate flex-1")}, list{text(panel.name)}),
-          // Short name badge
-          span(
-            list{Attrs.class_("text-xs text-gray-500 font-mono opacity-60")},
-            list{text(panel.shortName)},
-          ),
-        },
-      ),
-      // Detach button (pop-out into separate window)
-      button(
-        list{
-          Attrs.class_(
-            "px-1 py-1 text-gray-600 hover:text-gray-300 opacity-0 group-hover:opacity-100 transition-opacity rounded hover:bg-gray-600/50",
-          ),
-          Attrs.title(`Detach ${panel.name} into separate window`),
-          Attrs.ariaLabel(`Detach ${panel.name}`),
-          Events.onClick(Tiling(DetachPanel(panel.id))),
-        },
-        list{
-          // Pop-out icon (Unicode box with arrow)
-          span(list{Attrs.class_("text-xs")}, list{text("\xe2\x86\x97")}),
-        },
-      ),
-    },
-  )
-}
-
-/// Render the slide-out panel list for an expanded group.
-let renderGroupPanels = (
-  group: groupDef,
-  panels: array<panelMeta>,
-  activePanel: option<panelId>,
-): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_(
-        "absolute right-full top-0 mr-1 w-56 bg-gray-900/95 border border-gray-700 rounded-lg shadow-xl py-1.5 px-1.5 z-50 backdrop-blur-sm",
-      ),
-      Attrs.style("border-left-color", group.colour),
-      Attrs.style("border-left-width", "2px"),
-    },
-    list{
-      // Group header inside the flyout
-      div(
-        list{Attrs.class_("px-2 py-1 text-xs font-semibold tracking-wider uppercase mb-1")},
-        list{
-          span(list{Attrs.style("color", group.colour)}, list{text(group.label)}),
-          span(
-            list{Attrs.class_("text-gray-600 ml-1")},
-            list{text(`(${Int.toString(Array.length(panels))})`)},
-          ),
-        },
-      ),
-      // Panel entries
-      div(
-        list{Attrs.class_("flex flex-col gap-0.5 max-h-80 overflow-y-auto")},
-        panels
-        ->Array.map(panel => {
-          let isActive = activePanel === Some(panel.id)
-          renderPanelEntry(panel, isActive)
-        })
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-/// Render a single group header button in the sidebar strip.
-let renderGroupButton = (
-  group: groupDef,
-  isExpanded: bool,
-  panelCount: int,
-  hasActivePanel: bool,
-): Tea_Vdom.t<msg> => {
-  let bgClass = if isExpanded {
-    "bg-gray-700"
-  } else if hasActivePanel {
-    "bg-gray-800"
-  } else {
-    "bg-transparent hover:bg-gray-800"
-  }
-
-  button(
-    list{
-      Attrs.class_(
-        `relative flex flex-col items-center justify-center w-11 py-1.5 rounded-lg ${bgClass} transition-colors cursor-pointer group`,
-      ),
-      Attrs.title(`${group.label} — ${Int.toString(panelCount)} panels`),
-      Attrs.ariaLabel(`${group.label} panel group — ${Int.toString(panelCount)} panels`),
-      Attrs.ariaExpanded(isExpanded),
-      Events.onClick(PanelSwitcher(ExpandGroup(group.kind))),
-    },
-    list{
-      // Colour accent bar at top
-      div(
-        list{
-          Attrs.class_("w-5 h-0.5 rounded-full mb-0.5"),
-          Attrs.style("background-color", group.colour),
-        },
-        list{},
-      ),
-      // Label
-      span(
-        list{
-          Attrs.class_("text-[10px] font-medium leading-tight select-none"),
-          Attrs.style(
-            "color",
-            if isExpanded {
-              group.colour
-            } else {
-              "#9ca3af"
-            },
-          ),
-        },
-        list{text(group.label)},
-      ),
-      // Panel count badge
-      span(
-        list{Attrs.class_("text-[8px] text-gray-600 leading-none")},
-        list{text(Int.toString(panelCount))},
-      ),
-      // Active indicator
-      if hasActivePanel {
-        div(
-          list{
-            Attrs.class_("absolute left-0.5 top-1/2 -translate-y-1/2 w-1 h-3 rounded-full"),
-            Attrs.style("background-color", group.colour),
-          },
-          list{},
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-/// Render the full panel bar — vertical strip on the right edge with
-/// grouped categories and slide-out panel lists.
-let view = (switcher: panelSwitcherState): Tea_Vdom.t<msg> => {
-  // Build a map of kind → panels
-  let panelsByKind = groups->Array.map(group => {
-    let panels = switcher.panels->Array.filter(p => panelKind(p) == group.kind)
-    (group, panels)
-  })
-
-  div(
-    list{
-      Attrs.class_(
-        "fixed right-0 top-0 bottom-0 w-12 bg-gray-900/90 border-l border-gray-800 flex flex-col items-center py-2 gap-0.5 z-50",
-      ),
-      Attrs.ariaLabel("Panel switcher — grouped by category"),
-      Attrs.role("navigation"),
-    },
-    list{
-      // Group buttons with optional slide-out
-      div(
-        list{Attrs.class_("flex flex-col gap-0.5 w-full px-0.5")},
-        panelsByKind
-        ->Array.map(((group, panels)) => {
-          let isExpanded = switcher.expandedGroup === Some(group.kind)
-          let hasActivePanel = panels->Array.some(p => switcher.activePanel === Some(p.id))
-          let panelCount = Array.length(panels)
-
-          // Skip groups with no panels
-          if panelCount === 0 {
-            noNode
-          } else {
-            div(
-              list{Attrs.class_("relative")},
-              list{
-                renderGroupButton(group, isExpanded, panelCount, hasActivePanel),
-                // Slide-out panel list
-                if isExpanded {
-                  renderGroupPanels(group, panels, switcher.activePanel)
-                } else {
-                  noNode
-                },
-              },
-            )
-          }
-        })
-        ->List.fromArray,
-      ),
-    },
-  )
-}
diff --git a/src/components/PanicAttack.affine b/src/components/PanicAttack.affine
new file mode 100644
index 00000000..76b6c736
--- /dev/null
+++ b/src/components/PanicAttack.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PanicAttack;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/PanicAttack.res b/src/components/PanicAttack.res
deleted file mode 100644
index 795bcef9..00000000
--- a/src/components/PanicAttack.res
+++ /dev/null
@@ -1,363 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Panic-Attack Panel — stress testing and weak point analysis.
-///
-/// Displays scan results from panic-attack across 20 weak point categories,
-/// with severity-based filtering, scan controls, report history, and
-/// report comparison. Connects to the panic-attack binary via Gossamer.
-
-open Msg
-open PanicAttackModel
-open Tea.Html
-
-/// Severity badge colour class.
-let severityClass = (sev: weakPointSeverity): string =>
-  switch sev {
-  | Critical => "bg-red-600 text-white"
-  | High => "bg-orange-500 text-white"
-  | Medium => "bg-amber-400 text-gray-900"
-  | Low => "bg-blue-400 text-white"
-  | Info => "bg-gray-400 text-white"
-  }
-
-/// Severity display label.
-let severityLabel = (sev: weakPointSeverity): string =>
-  switch sev {
-  | Critical => "CRITICAL"
-  | High => "HIGH"
-  | Medium => "MEDIUM"
-  | Low => "LOW"
-  | Info => "INFO"
-  }
-
-/// Category display label.
-let categoryLabel = (cat: weakPointCategory): string =>
-  switch cat {
-  | UnsafeCode => "Unsafe Code"
-  | PanicPath => "Panic Path"
-  | CommandInjection => "Command Injection"
-  | UnsafeDeserialization => "Unsafe Deserialization"
-  | DOMInjection => "DOM Injection"
-  | HardcodedSecret => "Hardcoded Secret"
-  | PathTraversal => "Path Traversal"
-  | InsecureProtocol => "Insecure Protocol"
-  | AtomExhaustion => "Atom Exhaustion"
-  | UnsafeFFI => "Unsafe FFI"
-  | ResourceLeak => "Resource Leak"
-  | DeadlockPotential => "Deadlock Potential"
-  | RaceCondition => "Race Condition"
-  | ErrorHandling => "Error Handling"
-  | MemoryManagement => "Memory Management"
-  | TypeUnsafety => "Type Unsafety"
-  | ExceptionHandling => "Exception Handling"
-  | ConcurrencyIssues => "Concurrency Issues"
-  | DeprecatedAPIs => "Deprecated APIs"
-  | MissingValidation => "Missing Validation"
-  | DynamicCodeExecution => "Dynamic Code Execution"
-  | ExcessivePermissions => "Excessive Permissions"
-  | UncheckedError => "Unchecked Error"
-  | OtherCategory(name) => name
-  }
-
-/// Mode indicator badge.
-let modeView = (mode: string): Tea_Vdom.t<msg> => {
-  let (colour, lbl) = switch mode {
-  | "full" => ("text-emerald-400", "FULL")
-  | "fallback" => ("text-amber-400", "FALLBACK")
-  | "unavailable" => ("text-red-400", "UNAVAILABLE")
-  | _ => ("text-gray-500", "PROBING...")
-  }
-  span(
-    list{Attrs.class_(`text-xs font-mono px-2 py-0.5 rounded ${colour} bg-gray-800`)},
-    list{text(lbl)},
-  )
-}
-
-/// Summary bar showing severity counts.
-let summaryBar = (summary: option<scanSummary>): Tea_Vdom.t<msg> => {
-  switch summary {
-  | None =>
-    div(
-      list{Attrs.class_("text-gray-500 text-sm italic py-2")},
-      list{text("No scan results. Select a target and run assail.")},
-    )
-  | Some(s) =>
-    div(
-      list{Attrs.class_("flex gap-3 items-center py-2")},
-      list{
-        span(
-          list{Attrs.class_("text-sm text-gray-400")},
-          list{
-            text(
-              `${Int.toString(s.totalFindings)} findings in ${Int.toString(
-                  s.filesScanned,
-                )} files (${s.language})`,
-            ),
-          },
-        ),
-        div(
-          list{Attrs.class_("flex gap-1")},
-          list{
-            if s.critical > 0 {
-              span(
-                list{Attrs.class_("px-2 py-0.5 text-xs rounded bg-red-600 text-white font-mono")},
-                list{text(`${Int.toString(s.critical)} critical`)},
-              )
-            } else {
-              noNode
-            },
-            if s.high > 0 {
-              span(
-                list{
-                  Attrs.class_("px-2 py-0.5 text-xs rounded bg-orange-500 text-white font-mono"),
-                },
-                list{text(`${Int.toString(s.high)} high`)},
-              )
-            } else {
-              noNode
-            },
-            if s.medium > 0 {
-              span(
-                list{
-                  Attrs.class_("px-2 py-0.5 text-xs rounded bg-amber-400 text-gray-900 font-mono"),
-                },
-                list{text(`${Int.toString(s.medium)} medium`)},
-              )
-            } else {
-              noNode
-            },
-            if s.low > 0 {
-              span(
-                list{Attrs.class_("px-2 py-0.5 text-xs rounded bg-blue-400 text-white font-mono")},
-                list{text(`${Int.toString(s.low)} low`)},
-              )
-            } else {
-              noNode
-            },
-          },
-        ),
-      },
-    )
-  }
-}
-
-/// Render a single finding row.
-let findingRow = (wp: weakPoint): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_(
-        "flex items-start gap-3 py-2 px-3 border-b border-gray-700 hover:bg-gray-800/50",
-      ),
-    },
-    list{
-      span(
-        list{
-          Attrs.class_(
-            `px-1.5 py-0.5 text-xs rounded font-mono whitespace-nowrap ${severityClass(
-                wp.severity,
-              )}`,
-          ),
-        },
-        list{text(severityLabel(wp.severity))},
-      ),
-      span(
-        list{Attrs.class_("text-xs text-cyan-400 font-mono whitespace-nowrap min-w-[140px]")},
-        list{text(categoryLabel(wp.category))},
-      ),
-      div(
-        list{Attrs.class_("flex-1 min-w-0")},
-        list{
-          div(list{Attrs.class_("text-sm text-gray-200 truncate")}, list{text(wp.description)}),
-          switch wp.file {
-          | "" => noNode
-          | file =>
-            div(
-              list{Attrs.class_("text-xs text-gray-500 font-mono truncate")},
-              list{
-                text(
-                  switch wp.line {
-                  | Some(line) => `${file}:${Int.toString(line)}`
-                  | None => file
-                  },
-                ),
-              },
-            )
-          },
-        },
-      ),
-    },
-  )
-}
-
-/// Filter findings by the active category.
-let filterFindings = (
-  findings: array<weakPoint>,
-  category: panicCategory,
-  filterText: string,
-): array<weakPoint> => {
-  findings->Array.filter(wp => {
-    let catMatch = switch category {
-    | AllFindings => true
-    | BySeverity(sev) => wp.severity == sev
-    | ByCategory(cat) => wp.category == cat
-    }
-    let textMatch =
-      filterText == "" ||
-      String.includes(String.toLowerCase(wp.description), String.toLowerCase(filterText)) ||
-      String.includes(String.toLowerCase(wp.file), String.toLowerCase(filterText))
-    catMatch && textMatch
-  })
-}
-
-/// Main panel view.
-let view = (state: panicAttackState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-col h-full bg-gray-900 text-gray-100 overflow-hidden")},
-    list{
-      // Header bar
-      div(
-        list{
-          Attrs.class_(
-            "flex items-center justify-between px-4 py-3 bg-gray-800 border-b border-gray-700",
-          ),
-        },
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              span(
-                list{Attrs.class_("text-lg font-bold text-amber-400")},
-                list{text("panic-attack")},
-              ),
-              modeView(state.mode),
-              switch state.version {
-              | Some(v) =>
-                span(list{Attrs.class_("text-xs text-gray-500 font-mono")}, list{text(`v${v}`)})
-              | None => noNode
-              },
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              if state.scanning {
-                span(
-                  list{Attrs.class_("text-xs text-amber-400 animate-pulse")},
-                  list{text("Scanning...")},
-                )
-              } else {
-                noNode
-              },
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-xs rounded bg-amber-600 hover:bg-amber-500 text-white font-mono disabled:opacity-50",
-                  ),
-                  Attrs.disabled(state.scanning || state.mode == "unavailable"),
-                  Events.onClick(PanicAttack(RunAssail)),
-                  KeyboardNav.onActivate(PanicAttack(RunAssail)),
-                },
-                list{text("assail")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-xs rounded bg-red-700 hover:bg-red-600 text-white font-mono disabled:opacity-50",
-                  ),
-                  Attrs.disabled(state.scanning || state.mode == "unavailable"),
-                  Events.onClick(PanicAttack(RunAssault)),
-                  KeyboardNav.onActivate(PanicAttack(RunAssault)),
-                },
-                list{text("assault")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Target path and filter bar
-      div(
-        list{
-          Attrs.class_("flex items-center gap-2 px-4 py-2 bg-gray-850 border-b border-gray-700"),
-        },
-        list{
-          span(list{Attrs.class_("text-xs text-gray-500")}, list{text("Target:")}),
-          input(
-            list{
-              Attrs.type_("text"),
-              Attrs.class_(
-                "flex-1 bg-gray-800 text-sm text-gray-200 px-2 py-1 rounded border border-gray-600 font-mono",
-              ),
-              Attrs.placeholder("/path/to/project"),
-              Attrs.value(state.targetPath),
-              Events.onInput(v => PanicAttack(SetTargetPath(v))),
-            },
-            list{},
-          ),
-          input(
-            list{
-              Attrs.type_("text"),
-              Attrs.class_(
-                "w-48 bg-gray-800 text-sm text-gray-200 px-2 py-1 rounded border border-gray-600",
-              ),
-              Attrs.placeholder("Filter findings..."),
-              Attrs.value(state.filterText),
-              Events.onInput(v => PanicAttack(SetPanicFilter(v))),
-            },
-            list{},
-          ),
-        },
-      ),
-      // Summary bar
-      div(list{Attrs.class_("px-4 border-b border-gray-700")}, list{summaryBar(state.summary)}),
-      // Error display
-      switch state.lastError {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_("px-4 py-2 bg-red-900/30 border-b border-red-700 text-red-300 text-sm"),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      // Findings list
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto")},
-        {
-          let filtered = filterFindings(state.findings, state.activeCategory, state.filterText)
-          if Array.length(filtered) == 0 && !state.scanning {
-            list{
-              div(
-                list{Attrs.class_("flex items-center justify-center h-32 text-gray-500 text-sm")},
-                list{
-                  text(
-                    if Array.length(state.findings) == 0 {
-                      "No findings yet. Run a scan to analyse your code."
-                    } else {
-                      "No findings match the current filter."
-                    },
-                  ),
-                },
-              ),
-            }
-          } else {
-            filtered->Array.map(findingRow)->List.fromArray
-          }
-        },
-      ),
-      // Footer with report count
-      div(
-        list{
-          Attrs.class_(
-            "flex items-center justify-between px-4 py-2 bg-gray-800 border-t border-gray-700 text-xs text-gray-500",
-          ),
-        },
-        list{
-          span(list{}, list{text(`${Int.toString(Array.length(state.reports))} saved reports`)}),
-          span(list{}, list{text("panic-attack 2.0.0 — 47 languages, 20 categories")}),
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/PerformanceProfiler.affine b/src/components/PerformanceProfiler.affine
new file mode 100644
index 00000000..5ca039f8
--- /dev/null
+++ b/src/components/PerformanceProfiler.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PerformanceProfiler;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/PerformanceProfiler.res b/src/components/PerformanceProfiler.res
deleted file mode 100644
index 5752aee2..00000000
--- a/src/components/PerformanceProfiler.res
+++ /dev/null
@@ -1,453 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL PerformanceProfiler — frame budget monitoring, GC pressure tracking,
-/// memory snapshots, and performance alert display for IDApTIK game profiling.
-///
-/// Five tabs: Frame Budget (FPS counter + frame time chart placeholder),
-/// Memory (heap usage bars), GC Pressure (event log), Alerts (severity-coloured
-/// list), and Flamegraph (placeholder for future integration).
-
-open Model
-open Msg
-open Tea.Html
-
-// =========================================================================
-// Helpers
-// =========================================================================
-
-/// Tab label lookup for performanceTab variants.
-let tabLabel = (tab: performanceTab): string =>
-  switch tab {
-  | TabFrameBudget => "Frame Budget"
-  | TabMemory => "Memory"
-  | TabGcPressure => "GC Pressure"
-  | TabAlerts => "Alerts"
-  | TabFlamegraph => "Flamegraph"
-  }
-
-/// Render the tab bar.
-let renderTabs = (active: performanceTab): Tea_Vdom.t<msg> => {
-  let tabs: array<performanceTab> = [
-    TabFrameBudget,
-    TabMemory,
-    TabGcPressure,
-    TabAlerts,
-    TabFlamegraph,
-  ]
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 px-4")},
-    tabs
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-3 py-2 text-sm font-medium transition-colors rounded-t ${isActive
-                ? "bg-gray-800 text-cyan-400 border-b-2 border-cyan-400"
-                : "text-gray-500 hover:text-gray-300 hover:bg-gray-900 cursor-pointer"}`,
-          ),
-          Events.onClick(PerformanceProfiler(SetPpTab(tab))),
-        },
-        list{text(tabLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Alert severity colour and label.
-let severityStyle = (sev: perfAlertSeverity): (string, string) =>
-  switch sev {
-  | PerfInfo => ("bg-blue-600 text-white", "INFO")
-  | PerfWarning => ("bg-amber-500 text-white", "WARN")
-  | PerfCritical => ("bg-red-600 text-white", "CRIT")
-  }
-
-/// Format bytes into a human-readable string (KB/MB/GB).
-let formatBytes = (bytes: int): string => {
-  let b = Int.toFloat(bytes)
-  if b >= 1073741824.0 {
-    `${Float.toFixed(b /. 1073741824.0, ~digits=2)} GB`
-  } else if b >= 1048576.0 {
-    `${Float.toFixed(b /. 1048576.0, ~digits=1)} MB`
-  } else if b >= 1024.0 {
-    `${Float.toFixed(b /. 1024.0, ~digits=0)} KB`
-  } else {
-    `${Int.toString(bytes)} B`
-  }
-}
-
-// =========================================================================
-// Tab content views
-// =========================================================================
-
-/// Frame Budget tab: FPS counter, budget display, and recent frame samples.
-let renderFrameBudgetTab = (state: performanceProfilerState): Tea_Vdom.t<msg> => {
-  let sampleCount = Array.length(state.frameSamples)
-  let avgFps = if sampleCount > 0 {
-    let totalMs = state.frameSamples->Array.reduce(0.0, (acc, s) => acc +. s.totalMs)
-    let avg = totalMs /. Int.toFloat(sampleCount)
-    if avg > 0.0 {
-      1000.0 /. avg
-    } else {
-      0.0
-    }
-  } else {
-    0.0
-  }
-  let fpsColour = if avgFps >= state.targetFps {
-    "text-emerald-400"
-  } else if avgFps >= state.targetFps *. 0.75 {
-    "text-amber-400"
-  } else {
-    "text-red-400"
-  }
-
-  div(
-    list{Attrs.class_("flex flex-col gap-4 p-4")},
-    list{
-      // FPS + budget row
-      div(
-        list{Attrs.class_("grid grid-cols-3 gap-3")},
-        list{
-          div(
-            list{Attrs.class_("p-4 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_(`text-3xl font-light ${fpsColour}`)},
-                list{text(Float.toFixed(avgFps, ~digits=1))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("AVG FPS")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-4 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-3xl font-light text-cyan-400")},
-                list{text(Float.toFixed(state.targetFps, ~digits=0))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("TARGET FPS")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-4 bg-gray-800 rounded text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-3xl font-light text-gray-300")},
-                list{text(`${Float.toFixed(state.frameBudgetMs, ~digits=1)}ms`)},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500")}, list{text("BUDGET")}),
-            },
-          ),
-        },
-      ),
-      // Frame time chart placeholder
-      div(
-        list{Attrs.class_("bg-gray-800 rounded p-4 h-32 flex items-center justify-center")},
-        list{
-          span(
-            list{Attrs.class_("text-gray-600 text-sm")},
-            list{text(`Frame time chart (${Int.toString(sampleCount)} samples)`)},
-          ),
-        },
-      ),
-      // Recent samples list
-      div(
-        list{Attrs.class_("flex flex-col gap-1 max-h-40 overflow-y-auto")},
-        state.frameSamples
-        ->Array.sliceToEnd(~start=max(0, sampleCount - 10))
-        ->Array.map(s => {
-          let overBudget = s.totalMs > state.frameBudgetMs
-          let cls = overBudget ? "text-red-400" : "text-gray-400"
-          div(
-            list{Attrs.class_("flex justify-between text-xs font-mono px-2 py-1")},
-            list{
-              span(
-                list{Attrs.class_("text-gray-500")},
-                list{text(`#${Int.toString(s.frameNumber)}`)},
-              ),
-              span(list{Attrs.class_(cls)}, list{text(`${Float.toFixed(s.totalMs, ~digits=2)}ms`)}),
-              span(
-                list{Attrs.class_("text-gray-600")},
-                list{
-                  text(
-                    `R:${Float.toFixed(s.renderMs, ~digits=1)} U:${Float.toFixed(
-                        s.updateMs,
-                        ~digits=1,
-                      )} GC:${Float.toFixed(s.gcMs, ~digits=1)}`,
-                  ),
-                },
-              ),
-            },
-          )
-        })
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-/// Memory tab: heap usage display with usage bars.
-let renderMemoryTab = (state: performanceProfilerState): Tea_Vdom.t<msg> => {
-  let latest = state.memorySnapshots->Array.get(Array.length(state.memorySnapshots) - 1)
-  div(
-    list{Attrs.class_("flex flex-col gap-4 p-4")},
-    list{
-      switch latest {
-      | Some(snap) => {
-          let usedPct =
-            Int.toFloat(snap.heapUsedBytes) /. Int.toFloat(max(1, snap.heapTotalBytes)) *. 100.0
-          let usedWidth = Int.toString(Int.fromFloat(usedPct))
-          let barColour = if usedPct > 90.0 {
-            "bg-red-500"
-          } else if usedPct > 70.0 {
-            "bg-amber-500"
-          } else {
-            "bg-emerald-500"
-          }
-          div(
-            list{Attrs.class_("bg-gray-800 rounded p-4")},
-            list{
-              div(
-                list{Attrs.class_("flex justify-between text-sm mb-2")},
-                list{
-                  span(list{Attrs.class_("text-gray-300")}, list{text("Heap Usage")}),
-                  span(
-                    list{Attrs.class_("text-gray-400 font-mono")},
-                    list{
-                      text(
-                        `${formatBytes(snap.heapUsedBytes)} / ${formatBytes(snap.heapTotalBytes)}`,
-                      ),
-                    },
-                  ),
-                },
-              ),
-              div(
-                list{Attrs.class_("w-full h-3 bg-gray-700 rounded overflow-hidden")},
-                list{
-                  div(
-                    list{
-                      Attrs.class_(
-                        `h-full ${barColour} transition-all duration-300 w-[${usedWidth}%]`,
-                      ),
-                    },
-                    list{},
-                  ),
-                },
-              ),
-              div(
-                list{Attrs.class_("grid grid-cols-2 gap-3 mt-3")},
-                list{
-                  div(
-                    list{Attrs.class_("text-center")},
-                    list{
-                      div(
-                        list{Attrs.class_("text-lg font-light text-gray-300")},
-                        list{text(formatBytes(snap.externalBytes))},
-                      ),
-                      div(list{Attrs.class_("text-xs text-gray-500")}, list{text("External")}),
-                    },
-                  ),
-                  div(
-                    list{Attrs.class_("text-center")},
-                    list{
-                      div(
-                        list{Attrs.class_("text-lg font-light text-gray-300")},
-                        list{text(formatBytes(snap.arrayBufferBytes))},
-                      ),
-                      div(list{Attrs.class_("text-xs text-gray-500")}, list{text("ArrayBuffers")}),
-                    },
-                  ),
-                },
-              ),
-            },
-          )
-        }
-      | None =>
-        div(
-          list{Attrs.class_("text-gray-500 text-sm italic p-4")},
-          list{text("No memory snapshots yet. Start profiling to collect data.")},
-        )
-      },
-    },
-  )
-}
-
-/// GC Pressure tab: event log of garbage collection pauses.
-let renderGcPressureTab = (state: performanceProfilerState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-col gap-2 p-4")},
-    list{
-      div(
-        list{Attrs.class_("text-sm text-gray-400 mb-1")},
-        list{text(`${Int.toString(Array.length(state.gcEvents))} GC event(s) recorded`)},
-      ),
-      div(
-        list{Attrs.class_("flex flex-col gap-1 max-h-96 overflow-y-auto")},
-        state.gcEvents
-        ->Array.map(evt => {
-          let pauseColour = if evt.pauseMs > 16.0 {
-            "text-red-400"
-          } else if evt.pauseMs > 5.0 {
-            "text-amber-400"
-          } else {
-            "text-gray-400"
-          }
-          div(
-            list{
-              Attrs.class_(
-                "flex items-center justify-between px-3 py-2 bg-gray-800 rounded text-xs font-mono",
-              ),
-            },
-            list{
-              span(list{Attrs.class_("text-gray-500")}, list{text(evt.kind)}),
-              span(
-                list{Attrs.class_(pauseColour)},
-                list{text(`${Float.toFixed(evt.pauseMs, ~digits=2)}ms`)},
-              ),
-              span(
-                list{Attrs.class_("text-gray-500")},
-                list{text(`-${formatBytes(evt.reclaimedBytes)}`)},
-              ),
-            },
-          )
-        })
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-/// Alerts tab: severity-coloured list of performance alerts.
-let renderAlertsTab = (state: performanceProfilerState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-col gap-2 p-4")},
-    list{
-      div(
-        list{Attrs.class_("text-sm text-gray-400 mb-1")},
-        list{text(`${Int.toString(Array.length(state.alerts))} alert(s)`)},
-      ),
-      div(
-        list{Attrs.class_("flex flex-col gap-1 max-h-96 overflow-y-auto")},
-        state.alerts
-        ->Array.map(alert => {
-          let (sevCls, sevLbl) = severityStyle(alert.severity)
-          div(
-            list{Attrs.class_("flex items-center gap-3 px-3 py-2 bg-gray-800 rounded text-sm")},
-            list{
-              span(
-                list{Attrs.class_(`px-1.5 py-0.5 text-xs rounded font-mono ${sevCls}`)},
-                list{text(sevLbl)},
-              ),
-              span(list{Attrs.class_("text-gray-300 flex-1")}, list{text(alert.message)}),
-              span(
-                list{Attrs.class_("text-gray-500 text-xs font-mono")},
-                list{text(`${alert.metric}: ${Float.toFixed(alert.value, ~digits=1)}`)},
-              ),
-            },
-          )
-        })
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-/// Flamegraph tab: placeholder for future integration.
-let renderFlamegraphTab = (_state: performanceProfilerState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("p-4 flex items-center justify-center h-64")},
-    list{
-      span(
-        list{Attrs.class_("text-gray-600 text-sm")},
-        list{text("Flamegraph integration pending (Phase 2)")},
-      ),
-    },
-  )
-}
-
-// =========================================================================
-// Main view
-// =========================================================================
-
-/// Primary view function dispatching tab content based on active tab.
-let view = (state: performanceProfilerState): Tea_Vdom.t<msg> => {
-  let content = switch state.activeTab {
-  | TabFrameBudget => renderFrameBudgetTab(state)
-  | TabMemory => renderMemoryTab(state)
-  | TabGcPressure => renderGcPressureTab(state)
-  | TabAlerts => renderAlertsTab(state)
-  | TabFlamegraph => renderFlamegraphTab(state)
-  }
-
-  div(
-    list{Attrs.class_("flex flex-col h-full bg-gray-900 text-gray-100")},
-    list{
-      // Header with Start/Stop Profiling
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          h2(
-            list{Attrs.class_("text-lg font-semibold text-cyan-300")},
-            list{text("Performance Profiler")},
-          ),
-          div(
-            list{Attrs.class_("flex gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1.5 text-xs bg-emerald-700 text-white rounded hover:bg-emerald-600 cursor-pointer font-medium",
-                  ),
-                  Events.onClick(PerformanceProfiler(StartProfiling)),
-                  KeyboardNav.onActivate(PerformanceProfiler(StartProfiling)),
-                },
-                list{text("Start Profiling")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1.5 text-xs bg-red-700 text-white rounded hover:bg-red-600 cursor-pointer font-medium",
-                  ),
-                  Events.onClick(PerformanceProfiler(StopProfiling)),
-                  KeyboardNav.onActivate(PerformanceProfiler(StopProfiling)),
-                },
-                list{text("Stop Profiling")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Profiling indicator
-      if state.profiling {
-        div(
-          list{
-            Attrs.class_("flex items-center gap-2 px-4 py-2 bg-gray-800 border-b border-gray-700"),
-          },
-          list{
-            div(list{Attrs.class_("w-3 h-3 bg-red-400 rounded-full animate-pulse")}, list{}),
-            span(list{Attrs.class_("text-sm text-red-300")}, list{text("Profiling active...")}),
-          },
-        )
-      } else {
-        noNode
-      },
-      // Error display
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_("px-4 py-2 bg-red-900/30 text-red-300 text-sm border-b border-red-800"),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      // Tab bar
-      renderTabs(state.activeTab),
-      // Content
-      div(list{Attrs.class_("flex-1 overflow-y-auto")}, list{content}),
-    },
-  )
-}
diff --git a/src/components/Playgrounds.affine b/src/components/Playgrounds.affine
new file mode 100644
index 00000000..7dc8aef5
--- /dev/null
+++ b/src/components/Playgrounds.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Playgrounds;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Playgrounds.res b/src/components/Playgrounds.res
deleted file mode 100644
index 820cf481..00000000
--- a/src/components/Playgrounds.res
+++ /dev/null
@@ -1,585 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Playgrounds Component — Code sandbox and NQC console.
-///
-/// Multi-language editor (VCL, KQL, GQL, ReScript, Gleam, Idris2, Nickel),
-/// NQC database console connecting to proxy at :4000, snippet library,
-/// and tutorial mode.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render the language selector radio group (VCL, KQL, GQL, ReScript, Gleam, Idris2, Nickel).
-let renderLanguageSelector = (active: playgroundLanguage): Tea_Vdom.t<msg> => {
-  let langs: array<playgroundLanguage> = [
-    LangVcl,
-    LangKql,
-    LangGql,
-    LangRescript,
-    LangGleam,
-    LangIdris2,
-    LangNickel,
-  ]
-  div(
-    list{
-      Attrs.class_("flex gap-1 flex-wrap"),
-      Attrs.role("radiogroup"),
-      Attrs.ariaLabel("Select language"),
-    },
-    langs
-    ->Array.map(lang => {
-      let isActive = lang === active
-      let isDb = PlaygroundsEngine.isDbLanguage(lang)
-      button(
-        list{
-          Attrs.class_(
-            `px-3 py-1 text-xs rounded transition-colors ${isActive
-                ? "bg-indigo-600 text-white"
-                : isDb
-                ? "bg-gray-800 text-teal-400 hover:bg-gray-700"
-                : "bg-gray-800 text-gray-400 hover:bg-gray-700"}`,
-          ),
-          Attrs.role("radio"),
-          Attrs.ariaSelected(isActive),
-          Events.onClick(Playgrounds(SetLanguage(lang))),
-        },
-        list{text(PlaygroundsEngine.languageLabel(lang))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Render the category tab bar (Editor, NQC Console, Snippets, Tutorials).
-let renderTabs = (active: playgroundsCategory): Tea_Vdom.t<msg> => {
-  let tabs: array<playgroundsCategory> = [PlayEditor, PlayNqc, PlaySnippets, PlayTutorials]
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 mb-4"), Attrs.role("tablist")},
-    tabs
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-4 py-2 text-sm rounded-t transition-colors ${isActive
-                ? "bg-gray-800 text-gray-200 border-b-2 border-teal-500"
-                : "text-gray-500 hover:text-gray-300"}`,
-          ),
-          Attrs.role("tab"),
-          Attrs.ariaSelected(isActive),
-          Events.onClick(Playgrounds(SetPlayCategory(tab))),
-        },
-        list{text(PlaygroundsEngine.categoryLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Main Playgrounds panel view — full-screen overlay with code editor, NQC console, and snippets.
-let view = (pg: playgroundsState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Playgrounds code sandbox"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between p-4 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-medium text-gray-200")},
-                list{text("Playgrounds")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{text("code sandbox + NQC console")},
-              ),
-              if pg.nqcConnected {
-                span(list{Attrs.class_("text-xs text-green-400 ml-2")}, list{text("NQC connected")})
-              } else {
-                span(
-                  list{Attrs.class_("text-xs text-gray-600 ml-2")},
-                  list{text("NQC disconnected")},
-                )
-              },
-            },
-          ),
-          button(
-            list{
-              Attrs.class_("px-3 py-1 text-sm bg-gray-800 text-gray-300 rounded hover:bg-gray-700"),
-              Events.onClick(PanelSwitcher(ClosePanels)),
-              KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-            },
-            list{text("Close")},
-          ),
-        },
-      ),
-      // Content
-      div(
-        list{Attrs.class_("flex-1 overflow-auto p-6")},
-        list{
-          renderTabs(pg.activeCategory),
-          switch pg.activeCategory {
-          | PlayEditor =>
-            div(
-              list{Attrs.class_("space-y-4")},
-              list{
-                renderLanguageSelector(pg.activeLanguage),
-                // Editor area
-                div(
-                  list{Attrs.class_("flex gap-4 h-80")},
-                  list{
-                    // Code input
-                    div(
-                      list{Attrs.class_("flex-1 flex flex-col")},
-                      list{
-                        div(
-                          list{Attrs.class_("text-xs text-gray-500 mb-1")},
-                          list{
-                            text(
-                              `${PlaygroundsEngine.languageLabel(
-                                  pg.activeLanguage,
-                                )} ${PlaygroundsEngine.languageExt(pg.activeLanguage)}`,
-                            ),
-                          },
-                        ),
-                        textarea(
-                          list{
-                            Attrs.class_(
-                              "flex-1 bg-gray-900 border border-gray-700 rounded p-3 font-mono text-sm text-gray-200 resize-none",
-                            ),
-                            Attrs.placeholder("Write code here..."),
-                            Attrs.ariaLabel("Code editor"),
-                            Attrs.value(pg.editorContent),
-                            Events.onInput(v => Playgrounds(UpdateCode(v))),
-                          },
-                          list{},
-                        ),
-                        button(
-                          list{
-                            Attrs.class_(
-                              `mt-2 px-4 py-2 text-sm rounded ${pg.executing
-                                  ? "bg-gray-700 text-gray-400"
-                                  : "bg-teal-600 text-white hover:bg-teal-500"}`,
-                            ),
-                            Events.onClick(Playgrounds(Execute)),
-                            KeyboardNav.onActivate(Playgrounds(Execute)),
-                          },
-                          list{text(pg.executing ? "Running..." : "Execute")},
-                        ),
-                      },
-                    ),
-                    // Output pane
-                    div(
-                      list{Attrs.class_("flex-1 flex flex-col")},
-                      list{
-                        div(list{Attrs.class_("text-xs text-gray-500 mb-1")}, list{text("Output")}),
-                        div(
-                          list{
-                            Attrs.class_(
-                              "flex-1 bg-gray-900 border border-gray-700 rounded p-3 font-mono text-xs text-gray-300 overflow-auto",
-                            ),
-                            Attrs.role("log"),
-                          },
-                          list{
-                            switch pg.lastResult {
-                            | Some(result) =>
-                              if result.success {
-                                div(
-                                  list{},
-                                  list{
-                                    div(
-                                      list{Attrs.class_("text-green-400 mb-1")},
-                                      list{
-                                        text(
-                                          `OK (${Float.toFixed(
-                                              result.durationMs,
-                                              ~digits=1,
-                                            )}ms, ${Int.toString(result.rowCount)} rows)`,
-                                        ),
-                                      },
-                                    ),
-                                    switch result.data {
-                                    | Some(data) =>
-                                      pre(
-                                        list{Attrs.class_("text-gray-300 whitespace-pre-wrap")},
-                                        list{text(data)},
-                                      )
-                                    | None => noNode
-                                    },
-                                  },
-                                )
-                              } else {
-                                div(
-                                  list{Attrs.class_("text-red-400")},
-                                  list{
-                                    text(
-                                      switch result.error {
-                                      | Some(e) => e
-                                      | None => "Unknown error"
-                                      },
-                                    ),
-                                  },
-                                )
-                              }
-                            | None =>
-                              div(
-                                list{Attrs.class_("text-gray-600")},
-                                list{text("No output yet. Write code and hit Execute.")},
-                              )
-                            },
-                          },
-                        ),
-                      },
-                    ),
-                  },
-                ),
-              },
-            )
-          | PlayNqc =>
-            div(
-              list{Attrs.class_("space-y-4")},
-              list{
-                // NQC language selector (VCL/KQL/GQL only)
-                div(
-                  list{Attrs.class_("flex items-center gap-3")},
-                  list{
-                    div(
-                      list{
-                        Attrs.class_("flex gap-1"),
-                        Attrs.role("radiogroup"),
-                        Attrs.ariaLabel("NQC query language"),
-                      },
-                      [LangVcl, LangKql, LangGql]
-                      ->Array.map(lang => {
-                        let isActive = lang === pg.nqcLanguage
-                        let accentColor = switch lang {
-                        | LangVcl => "bg-teal-600 text-white"
-                        | LangKql => "bg-purple-600 text-white"
-                        | LangGql => "bg-amber-600 text-white"
-                        | _ => "bg-indigo-600 text-white"
-                        }
-                        button(
-                          list{
-                            Attrs.class_(
-                              `px-3 py-1.5 text-xs rounded transition-colors ${isActive
-                                  ? accentColor
-                                  : "bg-gray-800 text-gray-400 hover:bg-gray-700"}`,
-                            ),
-                            Attrs.role("radio"),
-                            Attrs.ariaSelected(isActive),
-                            Events.onClick(Playgrounds(SetNqcLanguage(lang))),
-                          },
-                          list{text(PlaygroundsEngine.languageLabel(lang))},
-                        )
-                      })
-                      ->List.fromArray,
-                    ),
-                    // Connection indicator
-                    div(
-                      list{
-                        Attrs.class_(
-                          `flex items-center gap-1 text-xs ${pg.nqcConnected
-                              ? "text-green-400"
-                              : "text-gray-600"}`,
-                        ),
-                      },
-                      list{
-                        div(
-                          list{
-                            Attrs.class_(
-                              `w-1.5 h-1.5 rounded-full ${pg.nqcConnected
-                                  ? "bg-green-400"
-                                  : "bg-gray-600"}`,
-                            ),
-                          },
-                          list{},
-                        ),
-                        text(pg.nqcConnected ? "Connected to :4000" : "Disconnected"),
-                      },
-                    ),
-                    // Clear history
-                    if Array.length(pg.nqcHistory) > 0 {
-                      button(
-                        list{
-                          Attrs.class_("ml-auto text-xs text-gray-600 hover:text-gray-400"),
-                          Events.onClick(Playgrounds(ClearNqcHistory)),
-                          KeyboardNav.onActivate(Playgrounds(ClearNqcHistory)),
-                        },
-                        list{text("Clear History")},
-                      )
-                    } else {
-                      noNode
-                    },
-                  },
-                ),
-                // Query input + execute
-                div(
-                  list{Attrs.class_("flex gap-2")},
-                  list{
-                    textarea(
-                      list{
-                        Attrs.class_(
-                          "flex-1 bg-gray-900 border border-gray-700 rounded p-3 font-mono text-sm text-gray-200 resize-none h-20",
-                        ),
-                        Attrs.placeholder(
-                          switch pg.nqcLanguage {
-                          | LangVcl => "SELECT * FROM entities WHERE confidence > 0.9 LIMIT 10"
-                          | LangKql => "MATCH (n:Concept)-[r:RELATES_TO]->(m) RETURN n, r, m"
-                          | LangGql => "{ entities(filter: {type: \"document\"}) { id name confidence } }"
-                          | _ => "Enter query..."
-                          },
-                        ),
-                        Attrs.ariaLabel("NQC query input"),
-                        Attrs.value(pg.nqcInput),
-                        Events.onInput(v => Playgrounds(SetNqcInput(v))),
-                      },
-                      list{},
-                    ),
-                    div(
-                      list{Attrs.class_("flex flex-col gap-1")},
-                      list{
-                        button(
-                          list{
-                            Attrs.class_(
-                              `px-4 py-2 text-sm rounded flex-1 ${pg.executing
-                                  ? "bg-gray-700 text-gray-400"
-                                  : "bg-teal-600 text-white hover:bg-teal-500"}`,
-                            ),
-                            Events.onClick(Playgrounds(ExecuteNqc)),
-                            KeyboardNav.onActivate(Playgrounds(ExecuteNqc)),
-                            Attrs.disabled(pg.executing || pg.nqcInput === ""),
-                          },
-                          list{text(pg.executing ? "Running..." : "Execute")},
-                        ),
-                        div(
-                          list{Attrs.class_("text-[10px] text-gray-600 text-center")},
-                          list{text(PlaygroundsEngine.languageLabel(pg.nqcLanguage))},
-                        ),
-                      },
-                    ),
-                  },
-                ),
-                // Last result
-                switch pg.lastResult {
-                | Some(result) =>
-                  div(
-                    list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-3")},
-                    list{
-                      if result.success {
-                        div(
-                          list{},
-                          list{
-                            div(
-                              list{Attrs.class_("flex items-center gap-3 mb-2")},
-                              list{
-                                span(
-                                  list{Attrs.class_("text-xs text-green-400 font-medium")},
-                                  list{text("OK")},
-                                ),
-                                span(
-                                  list{Attrs.class_("text-xs text-gray-500")},
-                                  list{text(`${Float.toFixed(result.durationMs, ~digits=1)}ms`)},
-                                ),
-                                span(
-                                  list{Attrs.class_("text-xs text-gray-500")},
-                                  list{text(`${Int.toString(result.rowCount)} rows`)},
-                                ),
-                              },
-                            ),
-                            switch result.data {
-                            | Some(data) =>
-                              pre(
-                                list{
-                                  Attrs.class_(
-                                    "text-xs text-gray-300 font-mono whitespace-pre-wrap max-h-48 overflow-y-auto",
-                                  ),
-                                },
-                                list{text(data)},
-                              )
-                            | None => noNode
-                            },
-                          },
-                        )
-                      } else {
-                        div(
-                          list{Attrs.class_("text-xs text-red-400")},
-                          list{
-                            text(
-                              switch result.error {
-                              | Some(e) => e
-                              | None => "Unknown error"
-                              },
-                            ),
-                          },
-                        )
-                      },
-                    },
-                  )
-                | None => noNode
-                },
-                // Query history
-                if Array.length(pg.nqcHistory) > 0 {
-                  div(
-                    list{Attrs.class_("space-y-2")},
-                    list{
-                      div(
-                        list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wider")},
-                        list{text("Query History")},
-                      ),
-                      div(
-                        list{Attrs.class_("space-y-1 max-h-48 overflow-y-auto")},
-                        pg.nqcHistory
-                        ->Array.map(((query, lang, result)) => {
-                          let statusColor = switch result {
-                          | Some(r) => r.success ? "border-l-green-600" : "border-l-red-600"
-                          | None => "border-l-gray-600"
-                          }
-                          div(
-                            list{
-                              Attrs.class_(
-                                `flex items-center gap-2 p-2 bg-gray-900/50 rounded border-l-2 ${statusColor} cursor-pointer hover:bg-gray-800/50`,
-                              ),
-                              Events.onClick(Playgrounds(SetNqcInput(query))),
-                            },
-                            list{
-                              span(
-                                list{Attrs.class_("text-xs text-gray-500 w-8")},
-                                list{text(PlaygroundsEngine.languageLabel(lang))},
-                              ),
-                              span(
-                                list{
-                                  Attrs.class_("flex-1 text-xs text-gray-400 font-mono truncate"),
-                                },
-                                list{text(query)},
-                              ),
-                            },
-                          )
-                        })
-                        ->List.fromArray,
-                      ),
-                    },
-                  )
-                } else {
-                  noNode
-                },
-              },
-            )
-          | PlaySnippets =>
-            div(
-              list{Attrs.class_("space-y-3")},
-              pg.snippets
-              ->Array.map(s =>
-                div(
-                  list{
-                    Attrs.class_(
-                      "bg-gray-900 border border-gray-700 rounded-lg p-3 hover:border-gray-500 cursor-pointer",
-                    ),
-                    Events.onClick(Playgrounds(LoadSnippet(s.id))),
-                  },
-                  list{
-                    div(
-                      list{Attrs.class_("flex justify-between items-center mb-1")},
-                      list{
-                        span(list{Attrs.class_("text-sm text-gray-200")}, list{text(s.title)}),
-                        span(
-                          list{Attrs.class_("text-xs text-gray-500")},
-                          list{text(PlaygroundsEngine.languageLabel(s.language))},
-                        ),
-                      },
-                    ),
-                    pre(list{Attrs.class_("text-xs text-gray-400 truncate")}, list{text(s.code)}),
-                  },
-                )
-              )
-              ->List.fromArray,
-            )
-          | PlayTutorials =>
-            div(
-              list{Attrs.class_("space-y-4")},
-              list{
-                div(
-                  list{
-                    Attrs.class_("text-sm font-medium text-gray-400 border-b border-gray-800 pb-2"),
-                  },
-                  list{text("Interactive Tutorials")},
-                ),
-                div(
-                  list{Attrs.class_("p-4 bg-gray-900/50 rounded border border-gray-800")},
-                  list{
-                    div(
-                      list{Attrs.class_("text-xs text-gray-400 font-medium mb-2")},
-                      list{text("Getting Started")},
-                    ),
-                    div(
-                      list{Attrs.class_("text-xs text-gray-500")},
-                      list{
-                        text(
-                          "Tutorials run in the sandbox environment. Select a language, follow the guided steps, and experiment with code in a safe, isolated context.",
-                        ),
-                      },
-                    ),
-                  },
-                ),
-                div(
-                  list{Attrs.class_("p-4 bg-gray-900/50 rounded border border-gray-800")},
-                  list{
-                    div(
-                      list{Attrs.class_("text-xs text-gray-400 font-medium mb-2")},
-                      list{text("NQC Playground")},
-                    ),
-                    div(
-                      list{Attrs.class_("text-xs text-gray-500")},
-                      list{
-                        text(
-                          "Explore NQC queries against QuandleDB. Write and test quantum-safe database operations in a sandboxed environment.",
-                        ),
-                      },
-                    ),
-                  },
-                ),
-                div(
-                  list{Attrs.class_("p-4 bg-gray-900/50 rounded border border-gray-800")},
-                  list{
-                    div(
-                      list{Attrs.class_("text-xs text-gray-400 font-medium mb-2")},
-                      list{text("Proof Sketching")},
-                    ),
-                    div(
-                      list{Attrs.class_("text-xs text-gray-500")},
-                      list{
-                        text(
-                          "Draft proof outlines using the ECHIDNA multi-solver dispatch. Connect Panel-L constraints to see how formal verification works.",
-                        ),
-                      },
-                    ),
-                  },
-                ),
-              },
-            )
-          },
-          switch pg.error {
-          | Some(e) =>
-            div(
-              list{
-                Attrs.class_(
-                  "mt-4 p-3 bg-red-900/30 border border-red-700 rounded text-sm text-red-300",
-                ),
-                Attrs.role("alert"),
-              },
-              list{text(e)},
-            )
-          | None => noNode
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/PlaytestRecorder.affine b/src/components/PlaytestRecorder.affine
new file mode 100644
index 00000000..2bb60864
--- /dev/null
+++ b/src/components/PlaytestRecorder.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PlaytestRecorder;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/PlaytestRecorder.res b/src/components/PlaytestRecorder.res
deleted file mode 100644
index 480c0a87..00000000
--- a/src/components/PlaytestRecorder.res
+++ /dev/null
@@ -1,396 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Playtest Recorder Component — record, replay, and annotate gameplay
-/// sessions. Displays Record/Stop/Play buttons, session timeline, annotation
-/// list with timestamps, and session library.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a playback state indicator.
-let playbackIndicator = (pb: playbackState): Tea_Vdom.t<msg> => {
-  let (color, label) = switch pb {
-  | Stopped => ("text-gray-500", "Stopped")
-  | Playing(t) => ("text-green-400 animate-pulse", "Playing " ++ Float.toFixed(t, ~digits=1) ++ "s")
-  | Paused(t) => ("text-yellow-400", "Paused " ++ Float.toFixed(t, ~digits=1) ++ "s")
-  | Recording => ("text-red-400 animate-pulse", "Recording")
-  }
-  span(list{Attrs.class_("text-xs font-mono " ++ color)}, list{text(label)})
-}
-
-/// Format duration from milliseconds to human-readable form.
-let formatDuration = (ms: float): string => {
-  let seconds = ms /. 1000.0
-  if seconds >= 60.0 {
-    let mins = Math.floor(seconds /. 60.0)
-    let secs = seconds -. mins *. 60.0
-    Float.toFixed(mins, ~digits=0) ++ "m " ++ Float.toFixed(secs, ~digits=0) ++ "s"
-  } else {
-    Float.toFixed(seconds, ~digits=1) ++ "s"
-  }
-}
-
-/// Render an annotation category badge.
-let categoryBadge = (cat: string): Tea_Vdom.t<msg> => {
-  let color = switch cat {
-  | "bug" => "bg-red-700 text-red-100"
-  | "balance" => "bg-yellow-700 text-yellow-100"
-  | "design" => "bg-blue-700 text-blue-100"
-  | "ux" => "bg-purple-700 text-purple-100"
-  | _ => "bg-gray-700 text-gray-300"
-  }
-  span(list{Attrs.class_("px-2 py-0.5 text-xs rounded font-mono " ++ color)}, list{text(cat)})
-}
-
-/// Main view function for the Playtest Recorder panel.
-let view = (state: playtestRecorderState): Tea_Vdom.t<msg> => {
-  let sessionCount = Array.length(state.sessions)
-  let annotationCount = Array.length(state.annotations)
-
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Playtest Recorder — Session Recording and Replay"),
-    },
-    list{
-      // Header row
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-bold text-red-300")},
-                list{text("Playtest Recorder")},
-              ),
-              playbackIndicator(state.playback),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex gap-2")},
-            list{
-              // Record button
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-xs rounded " ++
-                    switch state.playback {
-                    | Recording => "bg-red-600 text-white"
-                    | _ => "bg-red-800 hover:bg-red-700 text-white"
-                    },
-                  ),
-                  Events.onClick(PlaytestRecorder(PrStarted)),
-                  KeyboardNav.onActivate(PlaytestRecorder(PrStarted)),
-                },
-                list{
-                  text(
-                    switch state.playback {
-                    | Recording => "Stop"
-                    | _ => "Record"
-                    },
-                  ),
-                },
-              ),
-              // Play button
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-xs rounded " ++
-                    switch state.playback {
-                    | Playing(_) => "bg-green-600 text-white"
-                    | _ => "bg-green-800 hover:bg-green-700 text-white"
-                    },
-                  ),
-                },
-                list{text("Play")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Tab bar
-      div(
-        list{Attrs.class_("flex gap-1 px-4 py-2 border-b border-gray-800")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Record {
-                  "bg-red-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(PlaytestRecorder(SetPrCategory(Record))),
-            },
-            list{text("Record")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Replay {
-                  "bg-red-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(PlaytestRecorder(SetPrCategory(Replay))),
-            },
-            list{text("Replay")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Annotations {
-                  "bg-red-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(PlaytestRecorder(SetPrCategory(Annotations))),
-            },
-            list{text("Annotations (" ++ Int.toString(annotationCount) ++ ")")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Sessions {
-                  "bg-red-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(PlaytestRecorder(SetPrCategory(Sessions))),
-            },
-            list{text("Sessions (" ++ Int.toString(sessionCount) ++ ")")},
-          ),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 px-3 py-2 bg-red-900/50 border border-red-700 rounded text-sm text-red-200 flex justify-between items-center",
-            ),
-          },
-          list{
-            text(err),
-            button(
-              list{
-                Attrs.class_("text-red-400 hover:text-red-200 text-xs ml-2"),
-                Events.onClick(PlaytestRecorder(DismissPrError)),
-                KeyboardNav.onActivate(PlaytestRecorder(DismissPrError)),
-              },
-              list{text("Dismiss")},
-            ),
-          },
-        )
-      | None => Tea_Html.noNode
-      },
-      // Content area
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto px-4 py-4")},
-        list{
-          switch state.activeTab {
-          | Record =>
-            switch state.currentSession {
-            | Some(session) =>
-              div(
-                list{Attrs.class_("space-y-3")},
-                list{
-                  div(
-                    list{Attrs.class_("flex items-center gap-4 text-xs text-gray-400")},
-                    list{
-                      span(list{}, list{text("Session: " ++ session.name)}),
-                      span(list{}, list{text("Duration: " ++ formatDuration(session.durationMs))}),
-                      span(list{}, list{text("Actions: " ++ Int.toString(session.actionCount))}),
-                    },
-                  ),
-                  // Timeline placeholder
-                  div(
-                    list{
-                      Attrs.class_(
-                        "w-full h-8 bg-gray-900 border border-gray-800 rounded relative overflow-hidden",
-                      ),
-                    },
-                    list{
-                      div(list{Attrs.class_("h-full bg-red-800/30")}, list{}),
-                      // Annotation markers
-                      div(
-                        list{Attrs.class_("absolute inset-0 flex items-center")},
-                        session.annotations
-                        ->Array.map(ann => {
-                          let pos = if session.durationMs > 0.0 {
-                            ann.timestamp *. 1000.0 /. session.durationMs *. 100.0
-                          } else {
-                            0.0
-                          }
-                          div(
-                            list{
-                              Attrs.class_("absolute w-1 h-full bg-yellow-500 opacity-70"),
-                              Attrs.style("left", Float.toFixed(pos, ~digits=1) ++ "%"),
-                            },
-                            list{},
-                          )
-                        })
-                        ->List.fromArray,
-                      ),
-                    },
-                  ),
-                },
-              )
-            | None =>
-              div(
-                list{Attrs.class_("text-center text-gray-500 py-8")},
-                list{text("Press Record to begin capturing a playtest session.")},
-              )
-            }
-          | Replay =>
-            switch state.currentSession {
-            | Some(session) =>
-              div(
-                list{Attrs.class_("space-y-3")},
-                list{
-                  div(
-                    list{Attrs.class_("text-sm text-red-300 font-bold")},
-                    list{text(session.name)},
-                  ),
-                  div(
-                    list{Attrs.class_("flex gap-4 text-xs text-gray-400")},
-                    list{
-                      span(list{}, list{text("Started: " ++ session.startedAt)}),
-                      span(list{}, list{text("Duration: " ++ formatDuration(session.durationMs))}),
-                      span(list{}, list{text("Actions: " ++ Int.toString(session.actionCount))}),
-                    },
-                  ),
-                  // Playback timeline
-                  div(
-                    list{Attrs.class_("w-full h-3 bg-gray-800 rounded overflow-hidden")},
-                    list{
-                      div(
-                        list{
-                          Attrs.class_("h-full bg-green-500 transition-all"),
-                          Attrs.style(
-                            "width",
-                            switch state.playback {
-                            | Playing(t) | Paused(t) =>
-                              Float.toFixed(
-                                if session.durationMs > 0.0 {
-                                  t *. 1000.0 /. session.durationMs *. 100.0
-                                } else {
-                                  0.0
-                                },
-                                ~digits=1,
-                              ) ++ "%"
-                            | _ => "0%"
-                            },
-                          ),
-                        },
-                        list{},
-                      ),
-                    },
-                  ),
-                },
-              )
-            | None =>
-              div(
-                list{Attrs.class_("text-center text-gray-500 py-8")},
-                list{text("Select a session to replay.")},
-              )
-            }
-          | Annotations =>
-            div(
-              list{Attrs.class_("space-y-2")},
-              state.annotations
-              ->Array.map(ann => {
-                let isSelected = state.selectedAnnotation == Some(ann.id)
-                div(
-                  list{
-                    Attrs.class_(
-                      "px-3 py-2 border rounded " ++ if isSelected {
-                        "bg-red-900/20 border-red-700"
-                      } else {
-                        "bg-gray-900 border-gray-800"
-                      },
-                    ),
-                  },
-                  list{
-                    div(
-                      list{Attrs.class_("flex items-center gap-3")},
-                      list{
-                        span(
-                          list{Attrs.class_("text-xs text-gray-500 font-mono w-16")},
-                          list{text(Float.toFixed(ann.timestamp, ~digits=1) ++ "s")},
-                        ),
-                        categoryBadge(ann.category),
-                        span(
-                          list{Attrs.class_("text-sm text-gray-200 flex-1")},
-                          list{text(ann.text)},
-                        ),
-                      },
-                    ),
-                    switch ann.screenshotPath {
-                    | Some(path) =>
-                      div(
-                        list{Attrs.class_("text-xs text-gray-500 mt-1 font-mono")},
-                        list{text("Screenshot: " ++ path)},
-                      )
-                    | None => Tea_Html.noNode
-                    },
-                  },
-                )
-              })
-              ->List.fromArray,
-            )
-          | Sessions =>
-            div(
-              list{Attrs.class_("space-y-2")},
-              state.sessions
-              ->Array.map(s =>
-                div(
-                  list{
-                    Attrs.class_(
-                      "px-3 py-2 bg-gray-900 border border-gray-800 rounded cursor-pointer hover:border-gray-700",
-                    ),
-                  },
-                  list{
-                    div(
-                      list{Attrs.class_("flex items-center justify-between")},
-                      list{
-                        span(
-                          list{Attrs.class_("text-sm font-bold text-gray-200")},
-                          list{text(s.name)},
-                        ),
-                        span(
-                          list{Attrs.class_("text-xs text-gray-500")},
-                          list{text(formatDuration(s.durationMs))},
-                        ),
-                      },
-                    ),
-                    div(
-                      list{Attrs.class_("flex gap-4 text-xs text-gray-500 mt-1")},
-                      list{
-                        span(list{}, list{text("Started: " ++ s.startedAt)}),
-                        span(list{}, list{text(Int.toString(s.actionCount) ++ " actions")}),
-                        span(
-                          list{},
-                          list{text(Int.toString(Array.length(s.annotations)) ++ " annotations")},
-                        ),
-                      },
-                    ),
-                  },
-                )
-              )
-              ->List.fromArray,
-            )
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/Plaza.affine b/src/components/Plaza.affine
new file mode 100644
index 00000000..fb6d449b
--- /dev/null
+++ b/src/components/Plaza.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Plaza;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Plaza.res b/src/components/Plaza.res
deleted file mode 100644
index 5ac9db3c..00000000
--- a/src/components/Plaza.res
+++ /dev/null
@@ -1,828 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Palimpsest Plaza Component — view layer for the PMPL licensing panel.
-///
-/// The Plaza is designed to be the first thing a new FOSS developer encounters
-/// when they open PanLL. It should feel welcoming, helpful, and demonstrate
-/// that PMPL licensing isn't bureaucracy — it's protection.
-///
-/// Layout:
-///   - Header with PMPL branding, adoption stats, and close button
-///   - Category tabs (Dashboard | Compliance | Provenance | Compatibility | Ethical Use | Governance | Adopt)
-///   - Content area varies by tab
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a single category tab.
-let renderCategoryTab = (cat: plazaCategory, isActive: bool): Tea_Vdom.t<msg> => {
-  let activeClass = isActive
-    ? "border-indigo-500 text-indigo-300 bg-gray-800/50"
-    : "border-transparent text-gray-500 hover:text-gray-300 hover:border-gray-600"
-
-  button(
-    list{
-      Attrs.class_(
-        `px-3 py-2 text-sm font-medium border-b-2 cursor-pointer transition-colors ${activeClass}`,
-      ),
-      Attrs.role("tab"),
-      Events.onClick(Plaza(SetPlazaCategory(cat))),
-    },
-    list{text(PlazaEngine.categoryLabel(cat))},
-  )
-}
-
-/// Render the category tab bar.
-let renderCategoryTabBar = (activeCategory: plazaCategory): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("flex border-b border-gray-800 overflow-x-auto"),
-      Attrs.role("tablist"),
-      Attrs.ariaLabel("Plaza categories"),
-    },
-    PlazaEngine.allCategories
-    ->Array.map(cat => renderCategoryTab(cat, cat === activeCategory))
-    ->List.fromArray,
-  )
-}
-
-/// Render a stat card for the dashboard.
-let renderStatCard = (label: string, value: string, colour: string, subtitle: string): Tea_Vdom.t<
-  msg,
-> => {
-  div(
-    list{Attrs.class_("bg-gray-800/50 border border-gray-700 rounded-lg p-4")},
-    list{
-      div(
-        list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wider mb-1")},
-        list{text(label)},
-      ),
-      div(list{Attrs.class_(`text-2xl font-bold ${colour}`)}, list{text(value)}),
-      div(list{Attrs.class_("text-xs text-gray-600 mt-1")}, list{text(subtitle)}),
-    },
-  )
-}
-
-/// Render a progress bar with label.
-let renderProgressBar = (label: string, count: int, total: int, colour: string): Tea_Vdom.t<
-  msg,
-> => {
-  let pct = if total > 0 {
-    Float.toFixed(Int.toFloat(count) /. Int.toFloat(total) *. 100.0, ~digits=0)
-  } else {
-    "0"
-  }
-  div(
-    list{Attrs.class_("flex items-center gap-3 py-1")},
-    list{
-      div(list{Attrs.class_("w-32 text-sm text-gray-400")}, list{text(label)}),
-      div(
-        list{Attrs.class_("flex-1 h-2 bg-gray-800 rounded-full overflow-hidden")},
-        list{
-          div(
-            list{
-              Attrs.class_(`h-full ${colour} rounded-full transition-all`),
-              Attrs.style("width", `${pct}%`),
-            },
-            list{},
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("w-20 text-xs text-gray-500 text-right")},
-        list{text(`${Int.toString(count)} (${pct}%)`)},
-      ),
-    },
-  )
-}
-
-/// Render the Dashboard tab — adoption statistics overview.
-let renderDashboard = (plaza: plazaState): Tea_Vdom.t<msg> => {
-  switch plaza.stats {
-  | None =>
-    div(
-      list{Attrs.class_("flex-1 flex flex-col items-center justify-center gap-4")},
-      list{
-        div(
-          list{Attrs.class_("text-gray-400 text-lg")},
-          list{text("Palimpsest License Ecosystem")},
-        ),
-        div(
-          list{Attrs.class_("text-gray-600 text-sm max-w-md text-center")},
-          list{
-            text(
-              "Scan your ecosystem to see PMPL adoption, compliance, and provenance statistics across all repositories.",
-            ),
-          },
-        ),
-        button(
-          list{
-            Attrs.class_(
-              "px-6 py-3 bg-indigo-600 text-white rounded-lg hover:bg-indigo-500 transition-colors font-medium",
-            ),
-            Events.onClick(Plaza(LoadAdoptionStats)),
-            KeyboardNav.onActivate(Plaza(LoadAdoptionStats)),
-          },
-          list{text("Scan Ecosystem")},
-        ),
-      },
-    )
-  | Some(stats) =>
-    div(
-      list{Attrs.class_("flex-1 overflow-y-auto p-6 space-y-6")},
-      list{
-        // Stat cards row
-        div(
-          list{Attrs.class_("grid grid-cols-5 gap-4")},
-          list{
-            renderStatCard(
-              "Total Repos",
-              Int.toString(stats.totalRepos),
-              "text-gray-200",
-              "in ecosystem",
-            ),
-            renderStatCard(
-              "PMPL Licensed",
-              Int.toString(stats.pmplRepos),
-              "text-indigo-400",
-              `${Float.toFixed(PlazaEngine.adoptionPercentage(stats), ~digits=1)}% adoption`,
-            ),
-            renderStatCard(
-              "MPL-2.0 Fallback",
-              Int.toString(stats.mplFallbackRepos),
-              "text-amber-400",
-              "platform requirement",
-            ),
-            renderStatCard(
-              "Unlicensed",
-              Int.toString(stats.unlicensedRepos),
-              stats.unlicensedRepos > 0 ? "text-red-400" : "text-emerald-400",
-              stats.unlicensedRepos > 0 ? "need attention" : "all licensed",
-            ),
-            renderStatCard(
-              "Quantum-Signed",
-              Int.toString(stats.quantumSignedRepos),
-              "text-purple-400",
-              "post-quantum provenance",
-            ),
-          },
-        ),
-        // License breakdown
-        div(
-          list{Attrs.class_("bg-gray-800/30 border border-gray-800 rounded-lg p-4")},
-          list{
-            div(
-              list{Attrs.class_("text-sm font-medium text-gray-300 mb-3")},
-              list{text("License Distribution")},
-            ),
-            div(
-              list{Attrs.class_("space-y-1")},
-              stats.byLicense
-              ->Array.map(((license, count)) => {
-                let colour = switch license {
-                | "PMPL-1.0-or-later" => "bg-indigo-500"
-                | "MPL-2.0" => "bg-amber-500"
-                | "MIT" => "bg-emerald-500"
-                | "Apache-2.0" => "bg-blue-500"
-                | "unlicensed" => "bg-red-500"
-                | _ => "bg-gray-500"
-                }
-                renderProgressBar(license, count, stats.totalRepos, colour)
-              })
-              ->List.fromArray,
-            ),
-          },
-        ),
-        // Quick actions
-        div(
-          list{Attrs.class_("flex gap-3")},
-          list{
-            button(
-              list{
-                Attrs.class_(
-                  "px-4 py-2 bg-gray-800 text-gray-300 rounded hover:bg-gray-700 transition-colors text-sm",
-                ),
-                Events.onClick(Plaza(LoadAdoptionStats)),
-                KeyboardNav.onActivate(Plaza(LoadAdoptionStats)),
-              },
-              list{text("Refresh Stats")},
-            ),
-          },
-        ),
-      },
-    )
-  }
-}
-
-/// Render the Compatibility tab — license compatibility checker.
-let renderCompatibility = (_plaza: plazaState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 overflow-y-auto p-6")},
-    list{
-      div(
-        list{Attrs.class_("max-w-2xl")},
-        list{
-          div(
-            list{Attrs.class_("text-lg font-medium text-gray-300 mb-4")},
-            list{text("PMPL Compatibility Matrix")},
-          ),
-          div(
-            list{Attrs.class_("text-sm text-gray-500 mb-6")},
-            list{
-              text(
-                "PMPL-1.0-or-later uses file-level copyleft (inherited from MPL-2.0), making it compatible with most permissive and weak-copyleft licenses. PMPL files and MIT files can coexist in the same project.",
-              ),
-            },
-          ),
-          // Static compatibility table
-          div(
-            list{Attrs.class_("space-y-2")},
-            [
-              ("MIT", true, "Fully compatible"),
-              ("Apache-2.0", true, "Compatible with patent grant"),
-              ("BSD-2/3-Clause", true, "Fully compatible"),
-              ("MPL-2.0", true, "Base layer — fully compatible"),
-              ("GPL-2.0+", true, "Compatible via MPL-2.0 Section 3.3"),
-              ("GPL-3.0+", true, "Compatible via MPL-2.0 Section 3.3"),
-              ("LGPL-2.1+", true, "Compatible for library use"),
-              ("AGPL-3.0", false, "Network copyleft conflicts with file-level scope"),
-              ("ISC", true, "Fully compatible"),
-              ("CC0/Unlicense", true, "Public domain — compatible with anything"),
-            ]
-            ->Array.map(((license, compat, notes)) => {
-              let statusClass = compat
-                ? "text-emerald-400 bg-emerald-900/30 border-emerald-800"
-                : "text-red-400 bg-red-900/30 border-red-800"
-              let statusLabel = compat ? "Compatible" : "Incompatible"
-              div(
-                list{
-                  Attrs.class_(
-                    "flex items-center gap-3 p-3 rounded border border-gray-800 bg-gray-800/20",
-                  ),
-                },
-                list{
-                  div(
-                    list{Attrs.class_("w-32 text-sm font-medium text-gray-300")},
-                    list{text(license)},
-                  ),
-                  span(
-                    list{Attrs.class_(`text-xs px-2 py-0.5 rounded border ${statusClass}`)},
-                    list{text(statusLabel)},
-                  ),
-                  div(list{Attrs.class_("flex-1 text-xs text-gray-500")}, list{text(notes)}),
-                },
-              )
-            })
-            ->List.fromArray,
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render the Adopt tab — quick-start guide for new projects.
-let renderAdoptionWizard = (_plaza: plazaState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 overflow-y-auto p-6")},
-    list{
-      div(
-        list{Attrs.class_("max-w-2xl space-y-6")},
-        list{
-          div(
-            list{Attrs.class_("text-lg font-medium text-gray-300 mb-2")},
-            list{text("Adopt PMPL for Your Project")},
-          ),
-          div(
-            list{Attrs.class_("text-sm text-gray-500 mb-6")},
-            list{
-              text(
-                "Three steps to protect your work with the Palimpsest License. File-level copyleft means you can mix PMPL with MIT, Apache, BSD — no project-wide infection.",
-              ),
-            },
-          ),
-          // Step 1
-          div(
-            list{Attrs.class_("bg-gray-800/30 border border-gray-800 rounded-lg p-4")},
-            list{
-              div(
-                list{Attrs.class_("flex items-center gap-2 mb-2")},
-                list{
-                  span(list{Attrs.class_("text-indigo-400 font-bold")}, list{text("1")}),
-                  span(
-                    list{Attrs.class_("text-sm font-medium text-gray-300")},
-                    list{text("Add LICENSE file")},
-                  ),
-                },
-              ),
-              div(
-                list{Attrs.class_("text-xs text-gray-500 font-mono bg-gray-900 rounded p-2")},
-                list{
-                  text(
-                    "Copy LICENSE.txt from palimpsest-license/v1.0/LICENSE.txt to your project root",
-                  ),
-                },
-              ),
-            },
-          ),
-          // Step 2
-          div(
-            list{Attrs.class_("bg-gray-800/30 border border-gray-800 rounded-lg p-4")},
-            list{
-              div(
-                list{Attrs.class_("flex items-center gap-2 mb-2")},
-                list{
-                  span(list{Attrs.class_("text-indigo-400 font-bold")}, list{text("2")}),
-                  span(
-                    list{Attrs.class_("text-sm font-medium text-gray-300")},
-                    list{text("Add SPDX headers to source files")},
-                  ),
-                },
-              ),
-              div(
-                list{Attrs.class_("text-xs text-gray-500 font-mono bg-gray-900 rounded p-2")},
-                list{text("// SPDX-License-Identifier: MPL-2.0")},
-              ),
-            },
-          ),
-          // Step 3
-          div(
-            list{Attrs.class_("bg-gray-800/30 border border-gray-800 rounded-lg p-4")},
-            list{
-              div(
-                list{Attrs.class_("flex items-center gap-2 mb-2")},
-                list{
-                  span(list{Attrs.class_("text-indigo-400 font-bold")}, list{text("3")}),
-                  span(
-                    list{Attrs.class_("text-sm font-medium text-gray-300")},
-                    list{text("Optional: Add exhibits and provenance")},
-                  ),
-                },
-              ),
-              div(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{
-                  text(
-                    "Exhibit A (Ethical Use) and Exhibit B (Quantum-Safe Provenance) are optional but recommended for projects with AI training or long-term archival needs.",
-                  ),
-                },
-              ),
-            },
-          ),
-          // Why PMPL
-          div(
-            list{Attrs.class_("border-t border-gray-800 pt-4 mt-4")},
-            list{
-              div(
-                list{Attrs.class_("text-sm font-medium text-gray-400 mb-2")},
-                list{text("Why PMPL over MPL-2.0?")},
-              ),
-              div(
-                list{Attrs.class_("text-xs text-gray-500 space-y-1")},
-                list{
-                  div(
-                    list{},
-                    list{text("Ethical Use Guidelines — community norms for responsible use")},
-                  ),
-                  div(
-                    list{},
-                    list{
-                      text(
-                        "Quantum-Safe Provenance — attribution that survives decades, not just years",
-                      ),
-                    },
-                  ),
-                  div(
-                    list{},
-                    list{
-                      text("Emotional Lineage — recognition that code carries cultural meaning"),
-                    },
-                  ),
-                  div(
-                    list{},
-                    list{
-                      text(
-                        "Same file-level copyleft as MPL-2.0 — no GPL-style project infection",
-                      ),
-                    },
-                  ),
-                },
-              ),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render a compliance level badge.
-let renderComplianceBadge = (level: complianceLevel): Tea_Vdom.t<msg> => {
-  let (label, colour) = switch level {
-  | FullCompliance => ("Full", "bg-green-700")
-  | PartialCompliance => ("Partial", "bg-yellow-700")
-  | NonCompliant => ("Non-Compliant", "bg-red-700")
-  | Unknown => ("Unknown", "bg-gray-700")
-  }
-  span(list{Attrs.class_(`px-2 py-0.5 rounded text-xs ${colour} text-white`)}, list{text(label)})
-}
-
-/// Render the Compliance Audit tab — SPDX headers, LICENSE files, exhibit completeness.
-let renderCompliance = (plaza: plazaState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 overflow-auto p-6")},
-    list{
-      div(
-        list{Attrs.class_("mb-4 flex items-center justify-between")},
-        list{
-          div(
-            list{Attrs.class_("text-sm text-gray-400")},
-            list{text(`${Int.toString(Array.length(plaza.audits))} repos audited`)},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs bg-indigo-800 text-indigo-200 rounded hover:bg-indigo-700",
-              ),
-              Attrs.ariaLabel("Run compliance scan on all repos"),
-              Events.onClick(Plaza(LoadAdoptionStats)),
-              KeyboardNav.onActivate(Plaza(LoadAdoptionStats)),
-            },
-            list{text("Scan All")},
-          ),
-        },
-      ),
-      if Array.length(plaza.audits) == 0 {
-        div(
-          list{Attrs.class_("text-center py-12")},
-          list{
-            div(list{Attrs.class_("text-gray-500 mb-2")}, list{text("No audits yet")}),
-            div(
-              list{Attrs.class_("text-xs text-gray-600 max-w-md mx-auto")},
-              list{
-                text(
-                  "Scan repos for SPDX headers, LICENSE files, and exhibit completeness. Connect to pmpl-audit for deep scanning.",
-                ),
-              },
-            ),
-          },
-        )
-      } else {
-        div(
-          list{Attrs.class_("space-y-2")},
-          plaza.audits
-          ->Array.map(audit =>
-            div(
-              list{
-                Attrs.class_(
-                  "p-3 bg-gray-900/50 rounded border border-gray-800 flex items-center justify-between",
-                ),
-              },
-              list{
-                div(
-                  list{Attrs.class_("flex-1")},
-                  list{
-                    div(
-                      list{Attrs.class_("text-sm text-gray-300 flex items-center gap-2")},
-                      list{text(audit.repoName), renderComplianceBadge(audit.level)},
-                    ),
-                    div(
-                      list{Attrs.class_("text-xs text-gray-600 mt-1")},
-                      list{
-                        text(
-                          `${Int.toString(audit.filesWithHeaders)}/${Int.toString(
-                              audit.filesScanned,
-                            )} files with SPDX headers`,
-                        ),
-                      },
-                    ),
-                  },
-                ),
-                div(list{Attrs.class_("text-xs text-gray-600")}, list{text(audit.lastAudit)}),
-              },
-            )
-          )
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render the Provenance Verification tab — quantum-safe signatures.
-let renderProvenance = (plaza: plazaState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 overflow-auto p-6")},
-    list{
-      div(
-        list{Attrs.class_("mb-4 flex items-center justify-between")},
-        list{
-          div(
-            list{Attrs.class_("text-sm text-gray-400")},
-            list{text(`${Int.toString(Array.length(plaza.signatures))} signatures`)},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs bg-indigo-800 text-indigo-200 rounded hover:bg-indigo-700",
-              ),
-              Attrs.ariaLabel("Verify all provenance signatures"),
-              Events.onClick(Plaza(LoadAdoptionStats)),
-              KeyboardNav.onActivate(Plaza(LoadAdoptionStats)),
-            },
-            list{text("Verify All")},
-          ),
-        },
-      ),
-      if Array.length(plaza.signatures) == 0 {
-        div(
-          list{Attrs.class_("text-center py-12")},
-          list{
-            div(list{Attrs.class_("text-gray-500 mb-2")}, list{text("No signatures found")}),
-            div(
-              list{Attrs.class_("text-xs text-gray-600 max-w-md mx-auto")},
-              list{
-                text(
-                  "Verify quantum-safe signatures (ML-DSA, SLH-DSA) on files and commits. Connect to pmpl-verify for signature chain validation.",
-                ),
-              },
-            ),
-          },
-        )
-      } else {
-        div(
-          list{Attrs.class_("space-y-2")},
-          plaza.signatures
-          ->Array.map(sig => {
-            let (statusText, statusColour) = switch sig.status {
-            | SignatureValid => ("Valid", "text-green-400")
-            | SignatureInvalid(reason) => (`Invalid: ${reason}`, "text-red-400")
-            | NoSignature => ("Missing", "text-gray-500")
-            | ClassicalOnly => ("Classical", "text-yellow-400")
-            }
-            div(
-              list{Attrs.class_("p-3 bg-gray-900/50 rounded border border-gray-800")},
-              list{
-                div(
-                  list{Attrs.class_("flex items-center justify-between")},
-                  list{
-                    div(list{Attrs.class_("text-sm text-gray-300")}, list{text(sig.target)}),
-                    span(list{Attrs.class_(`text-xs ${statusColour}`)}, list{text(statusText)}),
-                  },
-                ),
-                div(
-                  list{Attrs.class_("text-xs text-gray-600 mt-1 flex items-center gap-3")},
-                  list{
-                    text(`Algorithm: ${sig.algorithm}`),
-                    text(`Signer: ${sig.signer}`),
-                    text(sig.timestamp),
-                  },
-                ),
-              },
-            )
-          })
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render the Ethical Use Guide tab — AI training disclosure and responsible use.
-let renderEthicalUse = (_plaza: plazaState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 overflow-auto p-6")},
-    list{
-      div(
-        list{Attrs.class_("max-w-2xl mx-auto space-y-6")},
-        list{
-          div(
-            list{Attrs.class_("text-sm font-medium text-gray-300 border-b border-gray-800 pb-2")},
-            list{text("Ethical Use Guide (Exhibit A)")},
-          ),
-          div(
-            list{Attrs.class_("p-4 bg-gray-900/50 rounded border border-gray-800 space-y-3")},
-            list{
-              div(
-                list{Attrs.class_("text-xs text-gray-400 font-medium")},
-                list{text("AI Training Disclosure")},
-              ),
-              div(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{
-                  text(
-                    "If you use PMPL-licensed code in AI training datasets, Exhibit A requires disclosure. Provide a clear statement in your model card or data sheet identifying the PMPL-licensed sources used.",
-                  ),
-                },
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-4 bg-gray-900/50 rounded border border-gray-800 space-y-3")},
-            list{
-              div(
-                list{Attrs.class_("text-xs text-gray-400 font-medium")},
-                list{text("Cultural Sensitivity")},
-              ),
-              div(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{
-                  text(
-                    "Respect the cultural context of code contributions. Attribution should preserve original authorship information and acknowledge cultural origins where relevant.",
-                  ),
-                },
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-4 bg-gray-900/50 rounded border border-gray-800 space-y-3")},
-            list{
-              div(
-                list{Attrs.class_("text-xs text-gray-400 font-medium")},
-                list{text("Responsible Use")},
-              ),
-              div(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{
-                  text(
-                    "PMPL code should not be used in systems designed to cause harm, violate human rights, or circumvent legal protections. The stewardship council reviews edge cases.",
-                  ),
-                },
-              ),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render the Governance tab — stewardship decisions and amendments.
-let renderGovernance = (_plaza: plazaState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 overflow-auto p-6")},
-    list{
-      div(
-        list{Attrs.class_("max-w-2xl mx-auto space-y-6")},
-        list{
-          div(
-            list{Attrs.class_("text-sm font-medium text-gray-300 border-b border-gray-800 pb-2")},
-            list{text("Stewardship Council")},
-          ),
-          div(
-            list{Attrs.class_("p-4 bg-gray-900/50 rounded border border-gray-800 space-y-2")},
-            list{
-              div(
-                list{Attrs.class_("text-xs text-gray-400 font-medium")},
-                list{text("License Governance")},
-              ),
-              div(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{
-                  text(
-                    "The Palimpsest License is governed by the Stewardship Council. Proposed amendments require council review and community feedback. Governance decisions are recorded in the transparency log.",
-                  ),
-                },
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-4 bg-gray-900/50 rounded border border-gray-800 space-y-2")},
-            list{
-              div(
-                list{Attrs.class_("text-xs text-gray-400 font-medium")},
-                list{text("Amendment Process")},
-              ),
-              div(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{
-                  text(
-                    "1. Proposal submission with rationale. 2. Community comment period (30 days). 3. Council deliberation. 4. Decision recorded in transparency log. 5. Implementation in next license version.",
-                  ),
-                },
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("p-4 bg-gray-900/50 rounded border border-gray-800 space-y-2")},
-            list{
-              div(list{Attrs.class_("text-xs text-gray-400 font-medium")}, list{text("Contact")}),
-              div(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{
-                  text("Governance proposals and ethical use questions: j.d.a.jewell@open.ac.uk"),
-                },
-              ),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render content based on active category.
-let renderContent = (plaza: plazaState): Tea_Vdom.t<msg> => {
-  switch plaza.activeCategory {
-  | Dashboard => renderDashboard(plaza)
-  | Compatibility => renderCompatibility(plaza)
-  | Adopt => renderAdoptionWizard(plaza)
-  | Compliance => renderCompliance(plaza)
-  | Provenance => renderProvenance(plaza)
-  | EthicalUse => renderEthicalUse(plaza)
-  | Governance => renderGovernance(plaza)
-  }
-}
-
-/// Render the header bar.
-let renderHeader = (plaza: plazaState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex items-center justify-between px-6 py-4 border-b border-gray-800")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center gap-4")},
-        list{
-          div(
-            list{Attrs.class_("text-lg font-medium text-gray-200")},
-            list{text("Palimpsest Plaza")},
-          ),
-          div(
-            list{Attrs.class_("text-xs text-gray-600")},
-            list{text("PMPL-1.0-or-later adoption and governance hub")},
-          ),
-          switch plaza.stats {
-          | Some(stats) =>
-            div(
-              list{Attrs.class_("flex items-center gap-2 text-xs")},
-              list{
-                span(
-                  list{Attrs.class_("text-indigo-400")},
-                  list{text(`${Int.toString(stats.pmplRepos)} PMPL`)},
-                ),
-                span(list{Attrs.class_("text-gray-700")}, list{text("/")}),
-                span(
-                  list{Attrs.class_("text-gray-500")},
-                  list{text(`${Int.toString(stats.totalRepos)} repos`)},
-                ),
-              },
-            )
-          | None => noNode
-          },
-        },
-      ),
-      button(
-        list{
-          Attrs.class_(
-            "px-3 py-1.5 text-sm text-gray-400 hover:text-gray-200 bg-gray-800 rounded hover:bg-gray-700 transition-colors",
-          ),
-          Events.onClick(PanelSwitcher(ClosePanels)),
-          KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-        },
-        list{text("Close")},
-      ),
-    },
-  )
-}
-
-/// Main Plaza panel view — full-screen overlay.
-let view = (plaza: plazaState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.ariaLabel("Palimpsest Plaza panel"),
-    },
-    list{
-      renderHeader(plaza),
-      renderCategoryTabBar(plaza.activeCategory),
-      if plaza.loading {
-        div(
-          list{Attrs.class_("flex-1 flex items-center justify-center")},
-          list{
-            div(
-              list{Attrs.class_("text-gray-500 animate-pulse")},
-              list{text("Scanning ecosystem...")},
-            ),
-          },
-        )
-      } else {
-        switch plaza.error {
-        | Some(e) =>
-          div(
-            list{Attrs.class_("flex-1 flex items-center justify-center")},
-            list{
-              div(
-                list{Attrs.class_("text-center")},
-                list{
-                  div(list{Attrs.class_("text-red-400 mb-2")}, list{text("Error")}),
-                  div(list{Attrs.class_("text-sm text-gray-500")}, list{text(e)}),
-                },
-              ),
-            },
-          )
-        | None => renderContent(plaza)
-        }
-      },
-    },
-  )
-}
diff --git a/src/components/ProofChain.affine b/src/components/ProofChain.affine
new file mode 100644
index 00000000..de9ed607
--- /dev/null
+++ b/src/components/ProofChain.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ProofChain;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/ProofChain.res b/src/components/ProofChain.res
deleted file mode 100644
index 433a3f8d..00000000
--- a/src/components/ProofChain.res
+++ /dev/null
@@ -1,551 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// ProofChain — CI/CD-style visual proof pipeline.
-///
-/// Transforms an ECHIDNA interactive proof session into a GitHub Actions–like
-/// pipeline view. Each node is a proof step (goal or tactic application) with
-/// status indicators (green/amber/red), connectors showing dependencies, and
-/// dashed outlines for detected gaps.
-///
-/// Visual language:
-///   ● Green (discharged)  — goal solved, tactic succeeded
-///   ◐ Amber (in progress) — goal exists, work underway
-///   ○ Red (failed/stuck)  — tactic didn't close, error
-///   ╌ Dashed (gap)        — missing step detected by constraint propagation
-///
-/// The pipeline reads top-to-bottom: root goal → tactic applications → subgoals.
-/// Branching occurs when a tactic (e.g., induction) produces multiple subgoals.
-
-open Model
-open Msg
-open Tea.Html
-
-// ===========================================================================
-// Proof Chain Node Types
-// ===========================================================================
-
-/// The status of a node in the proof pipeline.
-type nodeStatus =
-  | Discharged // Goal solved — all green
-  | Active // Currently being worked on
-  | Pending // Exists but no tactic applied yet
-  | Failed // Tactic failed or goal stuck
-  | Gap // Missing step detected
-
-/// The type of a node in the proof pipeline.
-type nodeType =
-  | GoalNode // A proof obligation / goal
-  | TacticNode // A tactic application
-  | QedNode // Final QED / proof complete marker
-
-/// A single node in the proof pipeline graph.
-type pipelineNode = {
-  id: string,
-  label: string,
-  detail: string,
-  status: nodeStatus,
-  nodeType: nodeType,
-  children: array<string>, // IDs of child nodes
-}
-
-/// The full pipeline graph.
-type pipelineGraph = {
-  nodes: array<pipelineNode>,
-  rootId: string,
-}
-
-// ===========================================================================
-// Session → Pipeline Graph Conversion
-// ===========================================================================
-
-/// Build a pipeline graph from an ECHIDNA session state.
-/// The graph structure:
-///   Root Goal → [Tactic 1] → [Subgoal A, Subgoal B, ...]
-///                            → [Tactic 2] → [Subgoal C, ...]
-///                            → QED (if complete)
-let buildGraph = (session: echidnaSessionState): pipelineGraph => {
-  let nodes: array<pipelineNode> = []
-
-  // Root goal node
-  let rootId = "goal-root"
-  let rootStatus = if session.complete {
-    Discharged
-  } else if Array.length(session.goals) === 0 {
-    Discharged
-  } else {
-    Active
-  }
-
-  let rootNode = {
-    id: rootId,
-    label: "Goal",
-    detail: session.goal,
-    status: rootStatus,
-    nodeType: GoalNode,
-    children: [],
-  }
-  let _ = Array.push(nodes, rootNode)
-
-  // Build tactic chain
-  let prevNodeId = ref(rootId)
-
-  session.proofScript->Array.forEachWithIndex((tactic, idx) => {
-    let tacticId = "tactic-" ++ Int.toString(idx)
-
-    // Determine tactic status
-    let tacticStatus = if session.complete || idx < Array.length(session.proofScript) - 1 {
-      Discharged // Past tactics are resolved
-    } else {
-      // Last tactic — check session status
-      switch session.status {
-      | ProofSuccess => Discharged
-      | InProgress => Active
-      | ProofFailed => Failed
-      | ProofError => Failed
-      | ProofTimeout => Failed
-      | Pending => Pending
-      }
-    }
-
-    let tacticNode = {
-      id: tacticId,
-      label: tactic,
-      detail: "Step " ++ Int.toString(idx + 1),
-      status: tacticStatus,
-      nodeType: TacticNode,
-      children: [],
-    }
-    let _ = Array.push(nodes, tacticNode)
-
-    // Link previous node to this tactic
-    nodes->Array.forEach(n => {
-      if n.id === prevNodeId.contents {
-        let _ = Array.push(n.children, tacticId)
-      }
-    })
-
-    prevNodeId := tacticId
-  })
-
-  // Add remaining goals as pending subgoals off the last tactic
-  session.goals->Array.forEachWithIndex((goal, idx) => {
-    let goalId = "subgoal-" ++ Int.toString(idx)
-    let goalStatus = if idx === 0 {
-      Active
-    } else {
-      Pending
-    }
-
-    let goalNode = {
-      id: goalId,
-      label: "Subgoal " ++ Int.toString(idx + 1),
-      detail: goal,
-      status: goalStatus,
-      nodeType: GoalNode,
-      children: [],
-    }
-    let _ = Array.push(nodes, goalNode)
-
-    // Link from last tactic (or root if no tactics applied)
-    nodes->Array.forEach(n => {
-      if n.id === prevNodeId.contents {
-        let _ = Array.push(n.children, goalId)
-      }
-    })
-  })
-
-  // If proof is complete, add QED node
-  if session.complete {
-    let qedId = "qed"
-    let qedNode = {
-      id: qedId,
-      label: "QED",
-      detail: "Proof complete",
-      status: Discharged,
-      nodeType: QedNode,
-      children: [],
-    }
-    let _ = Array.push(nodes, qedNode)
-
-    // Link from last node
-    nodes->Array.forEach(n => {
-      if n.id === prevNodeId.contents {
-        let _ = Array.push(n.children, qedId)
-      }
-    })
-  }
-
-  // Detect gaps: if there are remaining goals but no tactic suggestions,
-  // add gap nodes to signal missing steps
-  if !session.complete && Array.length(session.goals) > 0 && Array.length(session.proofScript) > 0 {
-    session.goals->Array.forEachWithIndex((_, idx) => {
-      let subgoalId = "subgoal-" ++ Int.toString(idx)
-      let gapId = "gap-" ++ Int.toString(idx)
-      let gapNode = {
-        id: gapId,
-        label: "?",
-        detail: "Missing tactic — apply a step to close this goal",
-        status: Gap,
-        nodeType: TacticNode,
-        children: [],
-      }
-      let _ = Array.push(nodes, gapNode)
-
-      // Link from the subgoal to the gap
-      nodes->Array.forEach(n => {
-        if n.id === subgoalId {
-          let _ = Array.push(n.children, gapId)
-        }
-      })
-    })
-  }
-
-  {nodes, rootId}
-}
-
-// ===========================================================================
-// Pipeline Rendering
-// ===========================================================================
-
-/// Status colour classes for node badges.
-let statusClasses = (status: nodeStatus): (string, string, string) => {
-  // (border, bg, text)
-  switch status {
-  | Discharged => ("border-green-500", "bg-green-900/40", "text-green-400")
-  | Active => ("border-blue-500", "bg-blue-900/40", "text-blue-400")
-  | Pending => ("border-amber-500", "bg-amber-900/30", "text-amber-400")
-  | Failed => ("border-red-500", "bg-red-900/40", "text-red-400")
-  | Gap => ("border-gray-500 border-dashed", "bg-gray-800/30", "text-gray-500")
-  }
-}
-
-/// Status icon character.
-let statusIcon = (status: nodeStatus): string => {
-  switch status {
-  | Discharged => `\u2713` // ✓
-  | Active => `\u25D0` // ◐
-  | Pending => `\u25CB` // ○
-  | Failed => `\u2717` // ✗
-  | Gap => "?"
-  }
-}
-
-/// Status label text.
-let statusLabel = (status: nodeStatus): string => {
-  switch status {
-  | Discharged => "Discharged"
-  | Active => "In progress"
-  | Pending => "Pending"
-  | Failed => "Failed"
-  | Gap => "Gap detected"
-  }
-}
-
-/// Node type icon.
-let nodeTypeIcon = (nt: nodeType): string => {
-  switch nt {
-  | GoalNode => `\u25A0` // ■
-  | TacticNode => `\u25B6` // ▶
-  | QedNode => `\u2605` // ★
-  }
-}
-
-/// Render a vertical connector line between pipeline stages.
-let renderConnector = (status: nodeStatus): Tea_Vdom.t<msg> => {
-  let (_, _, textColour) = statusClasses(status)
-  let lineStyle = switch status {
-  | Gap => "border-l border-dashed border-gray-600"
-  | _ => "border-l border-gray-600"
-  }
-  div(
-    list{Attrs.class_("flex justify-center py-0")},
-    list{
-      div(list{Attrs.class_(`h-4 w-0 ml-4 ${lineStyle}`), Attrs.ariaHidden(true)}, list{}),
-      div(list{Attrs.class_(`text-[8px] ${textColour} ml-1 self-center`)}, list{text({`\u25BC`})}), // ▼
-    },
-  )
-}
-
-/// Render a single pipeline node.
-let renderNode = (node: pipelineNode): Tea_Vdom.t<msg> => {
-  let (borderClass, bgClass, textClass) = statusClasses(node.status)
-  let icon = statusIcon(node.status)
-  let typeIcon = nodeTypeIcon(node.nodeType)
-
-  div(
-    list{
-      Attrs.class_(`flex items-start gap-2 p-2 rounded-lg border ${borderClass} ${bgClass} mx-1`),
-      Attrs.title(node.detail),
-      Attrs.ariaLabel(node.label ++ " — " ++ statusLabel(node.status)),
-    },
-    list{
-      // Status icon
-      div(
-        list{Attrs.class_(`text-sm ${textClass} w-5 text-center flex-shrink-0 mt-0.5`)},
-        list{text(icon)},
-      ),
-      // Content
-      div(
-        list{Attrs.class_("flex-1 min-w-0")},
-        list{
-          // Header row: type icon + label + status badge
-          div(
-            list{Attrs.class_("flex items-center gap-1.5")},
-            list{
-              span(list{Attrs.class_(`text-[10px] ${textClass}`)}, list{text(typeIcon)}),
-              span(list{Attrs.class_(`text-xs font-bold ${textClass}`)}, list{text(node.label)}),
-              span(
-                list{
-                  Attrs.class_(
-                    `text-[10px] px-1.5 py-0 rounded ${bgClass} ${textClass} border ${borderClass} ml-auto`,
-                  ),
-                },
-                list{text(statusLabel(node.status))},
-              ),
-            },
-          ),
-          // Detail (truncated)
-          if node.detail !== "" && node.detail !== node.label {
-            div(
-              list{Attrs.class_("text-[11px] text-gray-400 font-mono truncate mt-0.5")},
-              list{text(node.detail)},
-            )
-          } else {
-            noNode
-          },
-        },
-      ),
-    },
-  )
-}
-
-/// Render a branch — a node and all its children recursively.
-let rec renderBranch = (graph: pipelineGraph, nodeId: string, depth: int): Tea_Vdom.t<msg> => {
-  let maybeNode = graph.nodes->Array.find(n => n.id === nodeId)
-  switch maybeNode {
-  | None => noNode
-  | Some(node) =>
-    div(
-      list{Attrs.class_("flex flex-col")},
-      list{
-        renderNode(node),
-        // Children
-        if Array.length(node.children) === 0 {
-          noNode
-        } else if Array.length(node.children) === 1 {
-          // Single child — straight connector
-          let childId = node.children[0]->Option.getOr("")
-          let childNode = graph.nodes->Array.find(n => n.id === childId)
-          let childStatus = switch childNode {
-          | Some(cn) => cn.status
-          | None => Pending
-          }
-          div(list{}, list{renderConnector(childStatus), renderBranch(graph, childId, depth + 1)})
-        } else {
-          // Multiple children — branching pipeline
-          div(
-            list{Attrs.class_("mt-1")},
-            list{
-              // Branch indicator
-              div(
-                list{Attrs.class_("flex items-center gap-1 ml-4 mb-1")},
-                list{
-                  div(list{Attrs.class_("h-px flex-1 bg-gray-600")}, list{}),
-                  span(
-                    list{Attrs.class_("text-[9px] text-gray-500 px-1")},
-                    list{text(Int.toString(Array.length(node.children)) ++ " branches")},
-                  ),
-                  div(list{Attrs.class_("h-px flex-1 bg-gray-600")}, list{}),
-                },
-              ),
-              // Render each branch
-              div(
-                list{Attrs.class_("grid gap-1 pl-3 border-l border-gray-700")},
-                node.children
-                ->Array.map(childId => renderBranch(graph, childId, depth + 1))
-                ->List.fromArray,
-              ),
-            },
-          )
-        },
-      },
-    )
-  }
-}
-
-// ===========================================================================
-// Summary Stats
-// ===========================================================================
-
-/// Count nodes by status in the pipeline.
-let countByStatus = (graph: pipelineGraph, status: nodeStatus): int => {
-  graph.nodes->Array.filter(n => n.status === status)->Array.length
-}
-
-/// Render pipeline summary stats — a compact status bar.
-let renderSummaryStats = (graph: pipelineGraph): Tea_Vdom.t<msg> => {
-  let discharged = countByStatus(graph, Discharged)
-  let active = countByStatus(graph, Active)
-  let pending = countByStatus(graph, Pending)
-  let failed = countByStatus(graph, Failed)
-  let gaps = countByStatus(graph, Gap)
-  let total = Array.length(graph.nodes)
-
-  // Progress percentage (discharged / total non-gap nodes)
-  let nonGapTotal = total - gaps
-  let progressPct = if nonGapTotal > 0 {
-    Int.toString(Int.fromFloat(Int.toFloat(discharged) /. Int.toFloat(nonGapTotal) *. 100.0))
-  } else {
-    "0"
-  }
-
-  div(
-    list{Attrs.class_("flex items-center gap-3 text-[10px] mb-2 px-1")},
-    list{
-      // Progress bar
-      div(
-        list{
-          Attrs.class_("flex-1 h-1.5 bg-gray-800 rounded-full overflow-hidden"),
-          Attrs.role("progressbar"),
-          Attrs.ariaLabel("Proof progress"),
-          Attrs.ariaValueNow(Int.toFloat(discharged)),
-          Attrs.ariaValueMax(Int.toFloat(nonGapTotal)),
-        },
-        list{
-          div(
-            list{
-              Attrs.class_("h-full bg-green-500 transition-all duration-300"),
-              Attrs.style("width", progressPct ++ "%"),
-            },
-            list{},
-          ),
-        },
-      ),
-      span(list{Attrs.class_("text-gray-400")}, list{text(progressPct ++ "%")}),
-      // Status counts
-      if discharged > 0 {
-        span(
-          list{Attrs.class_("text-green-400")},
-          list{text({`\u2713`} ++ Int.toString(discharged))},
-        )
-      } else {
-        noNode
-      },
-      if active > 0 {
-        span(list{Attrs.class_("text-blue-400")}, list{text({`\u25D0`} ++ Int.toString(active))})
-      } else {
-        noNode
-      },
-      if pending > 0 {
-        span(list{Attrs.class_("text-amber-400")}, list{text({`\u25CB`} ++ Int.toString(pending))})
-      } else {
-        noNode
-      },
-      if failed > 0 {
-        span(list{Attrs.class_("text-red-400")}, list{text({`\u2717`} ++ Int.toString(failed))})
-      } else {
-        noNode
-      },
-      if gaps > 0 {
-        span(list{Attrs.class_("text-gray-500")}, list{text("?" ++ Int.toString(gaps))})
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-// ===========================================================================
-// Public API
-// ===========================================================================
-
-/// Render the full proof chain pipeline for an ECHIDNA session.
-/// This is the CI/CD-style visual proof view.
-let view = (session: echidnaSessionState): Tea_Vdom.t<msg> => {
-  let graph = buildGraph(session)
-
-  div(
-    list{
-      Attrs.class_("mt-3 p-3 bg-gray-850/50 rounded-lg border border-indigo-700/30"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Proof Pipeline"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-2")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              span(
-                list{Attrs.class_("text-xs font-bold text-indigo-400 uppercase tracking-wider")},
-                list{text("Proof Pipeline")},
-              ),
-              span(
-                list{Attrs.class_("text-[10px] text-gray-500")},
-                list{text(Int.toString(Array.length(graph.nodes)) ++ " nodes")},
-              ),
-            },
-          ),
-          // Legend
-          div(
-            list{Attrs.class_("flex items-center gap-2 text-[9px]")},
-            list{
-              span(list{Attrs.class_("text-green-400")}, list{text({`\u2713`} ++ " done")}),
-              span(list{Attrs.class_("text-blue-400")}, list{text({`\u25D0`} ++ " active")}),
-              span(list{Attrs.class_("text-amber-400")}, list{text({`\u25CB`} ++ " pending")}),
-              span(list{Attrs.class_("text-red-400")}, list{text({`\u2717`} ++ " failed")}),
-              span(list{Attrs.class_("text-gray-500")}, list{text("? gap")}),
-            },
-          ),
-        },
-      ),
-      // Summary stats bar
-      renderSummaryStats(graph),
-      // Pipeline graph
-      div(
-        list{
-          Attrs.class_("max-h-64 overflow-y-auto pr-1"),
-          Attrs.role("tree"),
-          Attrs.ariaLabel("Proof pipeline tree"),
-        },
-        list{renderBranch(graph, graph.rootId, 0)},
-      ),
-    },
-  )
-}
-
-/// Render a compact inline proof status for use outside the ECHIDNA panel.
-/// Shows a single-line summary: "3/5 goals ✓ 60%" with a tiny progress bar.
-let viewCompact = (session: echidnaSessionState): Tea_Vdom.t<msg> => {
-  let graph = buildGraph(session)
-  let discharged = countByStatus(graph, Discharged)
-  let total = Array.length(graph.nodes) - countByStatus(graph, Gap)
-  let pct = if total > 0 {
-    Int.toString(Int.fromFloat(Int.toFloat(discharged) /. Int.toFloat(total) *. 100.0))
-  } else {
-    "0"
-  }
-
-  div(
-    list{Attrs.class_("flex items-center gap-2 text-xs")},
-    list{
-      span(list{Attrs.class_("text-indigo-400 font-bold")}, list{text("Proof")}),
-      div(
-        list{
-          Attrs.class_("w-16 h-1 bg-gray-800 rounded-full overflow-hidden"),
-          Attrs.role("progressbar"),
-          Attrs.ariaLabel("Proof progress"),
-        },
-        list{
-          div(list{Attrs.class_("h-full bg-green-500"), Attrs.style("width", pct ++ "%")}, list{}),
-        },
-      ),
-      span(
-        list{Attrs.class_("text-gray-400")},
-        list{text(Int.toString(discharged) ++ "/" ++ Int.toString(total) ++ " " ++ pct ++ "%")},
-      ),
-    },
-  )
-}
diff --git a/src/components/ProofsBridge.affine b/src/components/ProofsBridge.affine
new file mode 100644
index 00000000..bbc08872
--- /dev/null
+++ b/src/components/ProofsBridge.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ProofsBridge;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/ProofsBridge.res b/src/components/ProofsBridge.res
deleted file mode 100644
index acfac8bc..00000000
--- a/src/components/ProofsBridge.res
+++ /dev/null
@@ -1,412 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Proofs Bridge Component — proven repo formal verification integration.
-/// Displays proven module list with proof coverage bars, verification result
-/// badges, and overall coverage percentage.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a module verification status badge.
-let moduleStatusBadge = (status: moduleVerificationStatus): Tea_Vdom.t<msg> => {
-  let (color, label) = switch status {
-  | FullyProven => ("bg-green-700 text-green-100", "Fully Proven")
-  | PartiallyProven => ("bg-yellow-700 text-yellow-100", "Partial")
-  | Unverified => ("bg-gray-700 text-gray-300", "Unverified")
-  | Stale => ("bg-orange-700 text-orange-100", "Stale")
-  }
-  span(list{Attrs.class_("px-2 py-0.5 text-xs rounded font-mono " ++ color)}, list{text(label)})
-}
-
-/// Render a verification result kind badge.
-let verificationKindBadge = (kind: verificationResultKind): Tea_Vdom.t<msg> => {
-  let (color, label) = switch kind {
-  | VerificationProved => ("text-green-400", "Proved")
-  | VerificationCounterexample => ("text-red-400", "Counterexample")
-  | VerificationTimeout => ("text-yellow-400", "Timeout")
-  | VerificationError => ("text-red-500", "Error")
-  }
-  span(list{Attrs.class_("text-xs font-mono " ++ color)}, list{text(label)})
-}
-
-/// Main view function for the Proofs Bridge panel.
-let view = (state: proofsBridgeState): Tea_Vdom.t<msg> => {
-  let totalModules = Array.length(state.provenModules)
-  let fullyProvenCount =
-    state.provenModules->Array.filter(m => m.status == FullyProven)->Array.length
-
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Proofs Bridge — Proven Repo Formal Verification"),
-    },
-    list{
-      // Header row
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-bold text-lime-300")},
-                list{text("Proofs Bridge")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-400")},
-                list{
-                  text(
-                    Int.toString(fullyProvenCount) ++
-                    "/" ++
-                    Int.toString(totalModules) ++ " fully proven",
-                  ),
-                },
-              ),
-              // Overall coverage percentage
-              span(
-                list{
-                  Attrs.class_(
-                    "text-xs font-bold " ++ if state.coveragePercent >= 80.0 {
-                      "text-green-400"
-                    } else if state.coveragePercent >= 50.0 {
-                      "text-yellow-400"
-                    } else {
-                      "text-red-400"
-                    },
-                  ),
-                },
-                list{text(Float.toFixed(state.coveragePercent, ~digits=1) ++ "% coverage")},
-              ),
-              if state.verifying {
-                span(
-                  list{Attrs.class_("text-xs text-yellow-400 animate-pulse")},
-                  list{text("Verifying...")},
-                )
-              } else {
-                Tea_Html.noNode
-              },
-            },
-          ),
-          button(
-            list{
-              Attrs.class_("px-3 py-1 text-xs bg-lime-800 hover:bg-lime-700 text-white rounded"),
-              Events.onClick(ProofsBridge(PrBStarted)),
-              KeyboardNav.onActivate(ProofsBridge(PrBStarted)),
-            },
-            list{text("Verify All")},
-          ),
-        },
-      ),
-      // Tab bar
-      div(
-        list{Attrs.class_("flex gap-1 px-4 py-2 border-b border-gray-800")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Modules {
-                  "bg-lime-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(ProofsBridge(SetPrBTab(Modules))),
-            },
-            list{text("Modules")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Proofs {
-                  "bg-lime-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(ProofsBridge(SetPrBTab(Proofs))),
-            },
-            list{text("Proofs")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Coverage {
-                  "bg-lime-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(ProofsBridge(SetPrBTab(Coverage))),
-            },
-            list{text("Coverage")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Verification {
-                  "bg-lime-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(ProofsBridge(SetPrBTab(Verification))),
-            },
-            list{text("Verification")},
-          ),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 px-3 py-2 bg-red-900/50 border border-red-700 rounded text-sm text-red-200 flex justify-between items-center",
-            ),
-          },
-          list{
-            text(err),
-            button(
-              list{
-                Attrs.class_("text-red-400 hover:text-red-200 text-xs ml-2"),
-                Events.onClick(ProofsBridge(DismissPrBError)),
-                KeyboardNav.onActivate(ProofsBridge(DismissPrBError)),
-              },
-              list{text("Dismiss")},
-            ),
-          },
-        )
-      | None => Tea_Html.noNode
-      },
-      // Content area
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto px-4 py-4")},
-        list{
-          switch state.activeTab {
-          | Modules =>
-            div(
-              list{Attrs.class_("space-y-2")},
-              state.provenModules
-              ->Array.map(m => {
-                let coveragePct = if m.functionCount > 0 {
-                  Int.toFloat(m.provedCount) /. Int.toFloat(m.functionCount) *. 100.0
-                } else {
-                  0.0
-                }
-                div(
-                  list{Attrs.class_("px-3 py-2 bg-gray-900 border border-gray-800 rounded")},
-                  list{
-                    div(
-                      list{Attrs.class_("flex items-center justify-between mb-1")},
-                      list{
-                        div(
-                          list{Attrs.class_("flex items-center gap-2")},
-                          list{
-                            span(
-                              list{Attrs.class_("text-sm font-bold text-lime-300")},
-                              list{text(m.name)},
-                            ),
-                            moduleStatusBadge(m.status),
-                          },
-                        ),
-                        span(
-                          list{Attrs.class_("text-xs text-gray-400")},
-                          list{
-                            text(
-                              Int.toString(m.provedCount) ++
-                              "/" ++
-                              Int.toString(m.functionCount) ++ " proved",
-                            ),
-                          },
-                        ),
-                      },
-                    ),
-                    div(
-                      list{Attrs.class_("text-xs text-gray-500 mb-2")},
-                      list{text(m.description)},
-                    ),
-                    // Proof coverage bar (green fill)
-                    div(
-                      list{Attrs.class_("w-full h-2 bg-gray-800 rounded overflow-hidden")},
-                      list{
-                        div(
-                          list{
-                            Attrs.class_("h-full bg-green-500 transition-all"),
-                            Attrs.style("width", Float.toFixed(coveragePct, ~digits=1) ++ "%"),
-                          },
-                          list{},
-                        ),
-                      },
-                    ),
-                  },
-                )
-              })
-              ->List.fromArray,
-            )
-          | Proofs =>
-            div(
-              list{Attrs.class_("space-y-1")},
-              state.verificationResults
-              ->Array.map(r =>
-                div(
-                  list{Attrs.class_("py-2 border-b border-gray-800/50")},
-                  list{
-                    div(
-                      list{Attrs.class_("flex items-center gap-3")},
-                      list{
-                        verificationKindBadge(r.kind),
-                        span(
-                          list{Attrs.class_("text-sm text-gray-200 font-mono")},
-                          list{text(r.moduleName ++ "." ++ r.functionName)},
-                        ),
-                        span(list{Attrs.class_("text-xs text-gray-500")}, list{text(r.proverUsed)}),
-                        span(
-                          list{Attrs.class_("text-xs text-gray-600")},
-                          list{text(Float.toFixed(r.durationMs, ~digits=0) ++ "ms")},
-                        ),
-                      },
-                    ),
-                    div(
-                      list{Attrs.class_("text-xs text-gray-400 font-mono mt-1")},
-                      list{text(r.specification)},
-                    ),
-                    switch r.counterexample {
-                    | Some(ce) =>
-                      div(
-                        list{Attrs.class_("text-xs text-red-400 mt-1")},
-                        list{text("Counterexample: " ++ ce)},
-                      )
-                    | None => Tea_Html.noNode
-                    },
-                    switch r.errorMessage {
-                    | Some(e) =>
-                      div(
-                        list{Attrs.class_("text-xs text-red-400 mt-1")},
-                        list{text("Error: " ++ e)},
-                      )
-                    | None => Tea_Html.noNode
-                    },
-                  },
-                )
-              )
-              ->List.fromArray,
-            )
-          | Coverage =>
-            div(
-              list{Attrs.class_("space-y-4")},
-              list{
-                // Overall coverage display
-                div(
-                  list{Attrs.class_("text-center py-4")},
-                  list{
-                    div(
-                      list{
-                        Attrs.class_(
-                          "text-4xl font-bold " ++ if state.coveragePercent >= 80.0 {
-                            "text-green-400"
-                          } else if state.coveragePercent >= 50.0 {
-                            "text-yellow-400"
-                          } else {
-                            "text-red-400"
-                          },
-                        ),
-                      },
-                      list{text(Float.toFixed(state.coveragePercent, ~digits=1) ++ "%")},
-                    ),
-                    div(
-                      list{Attrs.class_("text-xs text-gray-500 mt-1")},
-                      list{text("Overall proof coverage")},
-                    ),
-                  },
-                ),
-                // Per-module coverage bars
-                div(
-                  list{Attrs.class_("space-y-2")},
-                  state.provenModules
-                  ->Array.map(m => {
-                    let pct = if m.functionCount > 0 {
-                      Int.toFloat(m.provedCount) /. Int.toFloat(m.functionCount) *. 100.0
-                    } else {
-                      0.0
-                    }
-                    div(
-                      list{Attrs.class_("flex items-center gap-3")},
-                      list{
-                        span(
-                          list{Attrs.class_("text-xs text-gray-300 w-24 truncate")},
-                          list{text(m.name)},
-                        ),
-                        div(
-                          list{Attrs.class_("flex-1 h-3 bg-gray-800 rounded overflow-hidden")},
-                          list{
-                            div(
-                              list{
-                                Attrs.class_("h-full bg-green-500"),
-                                Attrs.style("width", Float.toFixed(pct, ~digits=1) ++ "%"),
-                              },
-                              list{},
-                            ),
-                          },
-                        ),
-                        span(
-                          list{Attrs.class_("text-xs text-gray-500 w-12 text-right")},
-                          list{text(Float.toFixed(pct, ~digits=0) ++ "%")},
-                        ),
-                      },
-                    )
-                  })
-                  ->List.fromArray,
-                ),
-              },
-            )
-          | Verification =>
-            div(
-              list{Attrs.class_("space-y-3")},
-              list{
-                div(
-                  list{Attrs.class_("text-xs text-gray-400 mb-2")},
-                  list{
-                    text(
-                      Int.toString(
-                        Array.length(state.verificationResults),
-                      ) ++ " verification results",
-                    ),
-                  },
-                ),
-                div(
-                  list{Attrs.class_("space-y-1")},
-                  state.verificationResults
-                  ->Array.filter(r => r.kind != VerificationProved)
-                  ->Array.map(r =>
-                    div(
-                      list{Attrs.class_("px-3 py-2 bg-gray-900 border border-gray-800 rounded")},
-                      list{
-                        div(
-                          list{Attrs.class_("flex items-center gap-2")},
-                          list{
-                            verificationKindBadge(r.kind),
-                            span(
-                              list{Attrs.class_("text-sm text-gray-200 font-mono")},
-                              list{text(r.moduleName ++ "." ++ r.functionName)},
-                            ),
-                          },
-                        ),
-                        div(
-                          list{Attrs.class_("text-xs text-gray-500 mt-1")},
-                          list{text(r.specification)},
-                        ),
-                      },
-                    )
-                  )
-                  ->List.fromArray,
-                ),
-              },
-            )
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/ProtocolBridge.affine b/src/components/ProtocolBridge.affine
new file mode 100644
index 00000000..3dafe8b1
--- /dev/null
+++ b/src/components/ProtocolBridge.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ProtocolBridge;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/ProtocolBridge.res b/src/components/ProtocolBridge.res
deleted file mode 100644
index deb50c4a..00000000
--- a/src/components/ProtocolBridge.res
+++ /dev/null
@@ -1,384 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Protocol Bridge Component — multiplayer sync protocol analysis.
-/// Displays channel list with status dots, message log, latency display,
-/// and protocol rules.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a channel status dot (green for active, red for error/disconnected).
-let channelStatusDot = (status: channelStatus): Tea_Vdom.t<msg> => {
-  let color = switch status {
-  | ChannelActive => "bg-green-500"
-  | ChannelIdle => "bg-green-700"
-  | ChannelDegraded => "bg-yellow-500"
-  | ChannelDisconnected => "bg-red-500"
-  | ChannelError => "bg-red-600 animate-pulse"
-  }
-  span(list{Attrs.class_("w-2.5 h-2.5 rounded-full inline-block " ++ color)}, list{})
-}
-
-/// Render a channel status label.
-let channelStatusLabel = (status: channelStatus): string => {
-  switch status {
-  | ChannelActive => "Active"
-  | ChannelIdle => "Idle"
-  | ChannelDegraded => "Degraded"
-  | ChannelDisconnected => "Disconnected"
-  | ChannelError => "Error"
-  }
-}
-
-/// Render a protocol rule status badge.
-let ruleStatusBadge = (status: protocolRuleStatus): Tea_Vdom.t<msg> => {
-  let (color, label) = switch status {
-  | RuleVerified => ("bg-green-700 text-green-100", "Verified")
-  | RuleUnverified => ("bg-gray-700 text-gray-300", "Unverified")
-  | RuleViolated => ("bg-red-700 text-red-100", "Violated")
-  }
-  span(list{Attrs.class_("px-2 py-0.5 text-xs rounded font-mono " ++ color)}, list{text(label)})
-}
-
-/// Main view function for the Protocol Bridge panel.
-let view = (state: protocolBridgeState): Tea_Vdom.t<msg> => {
-  let activeChannels = state.channels->Array.filter(c => c.status == ChannelActive)->Array.length
-  let totalChannels = Array.length(state.channels)
-
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Protocol Bridge — Multiplayer Sync Protocol Analysis"),
-    },
-    list{
-      // Header row
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-bold text-sky-300")},
-                list{text("Protocol Bridge")},
-              ),
-              span(
-                list{
-                  Attrs.class_(
-                    "text-xs " ++ if state.connected {
-                      "text-green-400"
-                    } else {
-                      "text-red-400"
-                    },
-                  ),
-                },
-                list{
-                  text(
-                    if state.connected {
-                      "Monitor active"
-                    } else {
-                      "Disconnected"
-                    },
-                  ),
-                },
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-400")},
-                list{
-                  text(
-                    Int.toString(activeChannels) ++
-                    "/" ++
-                    Int.toString(totalChannels) ++ " channels active",
-                  ),
-                },
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_("px-3 py-1 text-xs bg-sky-800 hover:bg-sky-700 text-white rounded"),
-              Events.onClick(ProtocolBridge(PbStarted)),
-              KeyboardNav.onActivate(ProtocolBridge(PbStarted)),
-            },
-            list{text("Refresh")},
-          ),
-        },
-      ),
-      // Tab bar
-      div(
-        list{Attrs.class_("flex gap-1 px-4 py-2 border-b border-gray-800")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Channels {
-                  "bg-sky-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(ProtocolBridge(SetPbTab(Channels))),
-            },
-            list{text("Channels")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Messages {
-                  "bg-sky-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(ProtocolBridge(SetPbTab(Messages))),
-            },
-            list{text("Messages")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Latency {
-                  "bg-sky-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(ProtocolBridge(SetPbTab(Latency))),
-            },
-            list{text("Latency")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Rules {
-                  "bg-sky-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(ProtocolBridge(SetPbTab(Rules))),
-            },
-            list{text("Rules")},
-          ),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 px-3 py-2 bg-red-900/50 border border-red-700 rounded text-sm text-red-200 flex justify-between items-center",
-            ),
-          },
-          list{
-            text(err),
-            button(
-              list{
-                Attrs.class_("text-red-400 hover:text-red-200 text-xs ml-2"),
-                Events.onClick(ProtocolBridge(DismissPbError)),
-                KeyboardNav.onActivate(ProtocolBridge(DismissPbError)),
-              },
-              list{text("Dismiss")},
-            ),
-          },
-        )
-      | None => Tea_Html.noNode
-      },
-      // Content area
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto px-4 py-4")},
-        list{
-          switch state.activeTab {
-          | Channels =>
-            div(
-              list{Attrs.class_("space-y-2")},
-              state.channels
-              ->Array.map(ch =>
-                div(
-                  list{
-                    Attrs.class_(
-                      "flex items-center gap-3 px-3 py-2 bg-gray-900 border border-gray-800 rounded",
-                    ),
-                  },
-                  list{
-                    channelStatusDot(ch.status),
-                    div(
-                      list{Attrs.class_("flex-1 min-w-0")},
-                      list{
-                        div(list{Attrs.class_("text-sm text-gray-200")}, list{text(ch.name)}),
-                        div(
-                          list{Attrs.class_("text-xs text-gray-500")},
-                          list{
-                            text(
-                              ch.protocol ++
-                              " | " ++
-                              Int.toString(ch.subscribers) ++ " subscribers",
-                            ),
-                          },
-                        ),
-                      },
-                    ),
-                    span(
-                      list{Attrs.class_("text-xs text-gray-400")},
-                      list{text(channelStatusLabel(ch.status))},
-                    ),
-                    span(
-                      list{
-                        Attrs.class_(
-                          "text-xs font-mono " ++ if ch.latencyMs > 100.0 {
-                            "text-red-400"
-                          } else if ch.latencyMs > 50.0 {
-                            "text-yellow-400"
-                          } else {
-                            "text-green-400"
-                          },
-                        ),
-                      },
-                      list{text(Float.toFixed(ch.latencyMs, ~digits=1) ++ "ms")},
-                    ),
-                  },
-                )
-              )
-              ->List.fromArray,
-            )
-          | Messages =>
-            div(
-              list{Attrs.class_("space-y-1")},
-              state.messageLog
-              ->Array.map(m => {
-                let dirLabel = switch m.direction {
-                | MessageInbound => "IN"
-                | MessageOutbound => "OUT"
-                }
-                let dirColor = switch m.direction {
-                | MessageInbound => "text-blue-400"
-                | MessageOutbound => "text-green-400"
-                }
-                div(
-                  list{
-                    Attrs.class_(
-                      "flex items-center gap-2 py-1 border-b border-gray-800/30 text-xs",
-                    ),
-                  },
-                  list{
-                    span(list{Attrs.class_("font-mono w-8 " ++ dirColor)}, list{text(dirLabel)}),
-                    span(list{Attrs.class_("text-gray-300 flex-1")}, list{text(m.messageType)}),
-                    span(
-                      list{Attrs.class_("text-gray-500 font-mono")},
-                      list{text(Int.toString(m.payloadBytes) ++ "B")},
-                    ),
-                    if !m.valid {
-                      span(list{Attrs.class_("text-red-400")}, list{text("INVALID")})
-                    } else {
-                      span(list{Attrs.class_("text-green-600")}, list{text("OK")})
-                    },
-                  },
-                )
-              })
-              ->List.fromArray,
-            )
-          | Latency =>
-            div(
-              list{Attrs.class_("space-y-1")},
-              list{
-                div(
-                  list{Attrs.class_("text-xs text-gray-400 mb-3")},
-                  list{
-                    text(
-                      Int.toString(
-                        Array.length(state.latencySamples),
-                      ) ++ " latency samples recorded",
-                    ),
-                  },
-                ),
-                div(
-                  list{},
-                  state.latencySamples
-                  ->Array.map(sample =>
-                    div(
-                      list{
-                        Attrs.class_("flex items-center gap-3 py-1 border-b border-gray-800/30"),
-                      },
-                      list{
-                        span(
-                          list{Attrs.class_("text-xs text-gray-500 font-mono w-24")},
-                          list{text(sample.channelId)},
-                        ),
-                        // Latency bar
-                        div(
-                          list{Attrs.class_("flex-1 h-2 bg-gray-800 rounded overflow-hidden")},
-                          list{
-                            div(
-                              list{
-                                Attrs.class_(
-                                  "h-full " ++ if sample.exceededThreshold {
-                                    "bg-red-500"
-                                  } else {
-                                    "bg-sky-500"
-                                  },
-                                ),
-                                Attrs.style(
-                                  "width",
-                                  Float.toFixed(
-                                    Math.min(sample.latencyMs /. 2.0, 100.0),
-                                    ~digits=1,
-                                  ) ++ "%",
-                                ),
-                              },
-                              list{},
-                            ),
-                          },
-                        ),
-                        span(
-                          list{
-                            Attrs.class_(
-                              "text-xs font-mono w-16 text-right " ++ if sample.exceededThreshold {
-                                "text-red-400"
-                              } else {
-                                "text-gray-400"
-                              },
-                            ),
-                          },
-                          list{text(Float.toFixed(sample.latencyMs, ~digits=1) ++ "ms")},
-                        ),
-                      },
-                    )
-                  )
-                  ->List.fromArray,
-                ),
-              },
-            )
-          | Rules =>
-            div(
-              list{Attrs.class_("space-y-2")},
-              state.protocolRules
-              ->Array.map(r =>
-                div(
-                  list{Attrs.class_("flex items-center gap-3 py-2 border-b border-gray-800/50")},
-                  list{
-                    ruleStatusBadge(r.status),
-                    div(
-                      list{Attrs.class_("flex-1 min-w-0")},
-                      list{
-                        div(list{Attrs.class_("text-sm text-gray-200")}, list{text(r.name)}),
-                        div(list{Attrs.class_("text-xs text-gray-500")}, list{text(r.description)}),
-                      },
-                    ),
-                    span(
-                      list{Attrs.class_("text-xs text-sky-400 font-mono")},
-                      list{text(r.expression)},
-                    ),
-                  },
-                )
-              )
-              ->List.fromArray,
-            )
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/ProtocolSquisher.affine b/src/components/ProtocolSquisher.affine
new file mode 100644
index 00000000..224455f1
--- /dev/null
+++ b/src/components/ProtocolSquisher.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ProtocolSquisher;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/ProtocolSquisher.res b/src/components/ProtocolSquisher.res
deleted file mode 100644
index 8747ad55..00000000
--- a/src/components/ProtocolSquisher.res
+++ /dev/null
@@ -1,407 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Protocol-Squisher Component — format analysis and compatibility panel.
-///
-/// Analyse serialisation schemas across 13 formats, compare compatibility,
-/// and view transport class classifications (Concorde/Business/Economy/Wheelbarrow).
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a transport class badge.
-let renderTransportBadge = (tc: transportClass): Tea_Vdom.t<msg> => {
-  let label = ProtocolSquisherEngine.transportClassLabel(tc)
-  let colour = ProtocolSquisherEngine.transportClassColour(tc)
-  span(list{Attrs.class_(`px-2 py-0.5 text-xs font-medium rounded ${colour}`)}, list{text(label)})
-}
-
-/// Render an analysis result card.
-let renderAnalysisCard = (result: analysisResult): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-4 space-y-2")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between")},
-        list{
-          span(
-            list{Attrs.class_("text-sm font-mono text-gray-300 truncate")},
-            list{text(result.filePath)},
-          ),
-          renderTransportBadge(result.transportClass),
-        },
-      ),
-      div(
-        list{Attrs.class_("flex gap-4 text-xs text-gray-500")},
-        list{
-          span(list{}, list{text(ProtocolSquisherEngine.formatLabel(result.format))}),
-          span(list{}, list{text(`${Int.toString(result.fieldCount)} fields`)}),
-          span(list{}, list{text(`${Float.toFixed(result.overheadRatio, ~digits=2)}x overhead`)}),
-          if result.hasRecursion {
-            span(list{Attrs.class_("text-amber-500")}, list{text("recursive")})
-          } else {
-            noNode
-          },
-        },
-      ),
-      div(list{Attrs.class_("text-sm text-gray-400")}, list{text(result.summary)}),
-    },
-  )
-}
-
-/// Render category tabs.
-let renderTabs = (active: protocolSquisherCategory): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 mb-4"), Attrs.role("tablist")},
-    ProtocolSquisherEngine.allCategories
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-4 py-2 text-sm rounded-t transition-colors ${isActive
-                ? "bg-gray-800 text-gray-200 border-b-2 border-cyan-500"
-                : "text-gray-500 hover:text-gray-300"}`,
-          ),
-          Attrs.role("tab"),
-          Attrs.ariaSelected(isActive),
-          Events.onClick(ProtocolSquisher(SetPsCategory(tab))),
-        },
-        list{text(ProtocolSquisherEngine.categoryLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Render TypeLL cross-panel type intelligence result (if available).
-/// Parses the raw JSON via TypeLLEngine.parseCheckResult and displays an
-/// evangeliser-style narrative with proof obligations and linearity notes.
-let viewTypeCheckResult = (lastTypeCheck: option<string>): Tea_Vdom.t<msg> => {
-  switch lastTypeCheck {
-  | None => noNode
-  | Some(json) =>
-    switch TypeLLEngine.parseCheckResult(json) {
-    | Error(_) => noNode
-    | Ok(result) =>
-      let narrative = TypeLLEngine.generateNarrative(result)
-      let borderColour = if result.valid {
-        "border-green-700 bg-green-900/20"
-      } else {
-        "border-red-700 bg-red-900/20"
-      }
-      let labelColour = if result.valid {
-        "text-green-400"
-      } else {
-        "text-red-400"
-      }
-      let statusText = if result.valid {
-        "Type-safe"
-      } else {
-        "Type issues detected"
-      }
-      div(
-        list{Attrs.class_("mt-4 p-3 rounded-lg border " ++ borderColour)},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2 mb-2")},
-            list{
-              span(
-                list{Attrs.class_("text-xs font-bold uppercase tracking-wider " ++ labelColour)},
-                list{text("TypeLL")},
-              ),
-              span(list{Attrs.class_("text-xs text-gray-400")}, list{text(statusText)}),
-            },
-          ),
-          div(
-            list{Attrs.class_("text-sm text-gray-300 font-mono mb-1")},
-            list{text(result.typeSignature)},
-          ),
-          div(list{Attrs.class_("text-xs text-gray-400 mb-1")}, list{text(narrative.celebrate)}),
-          if Array.length(result.proofObligations) > 0 {
-            div(
-              list{Attrs.class_("text-xs text-yellow-400 mt-1")},
-              list{text("Proof obligations: " ++ Array.join(result.proofObligations, ", "))},
-            )
-          } else {
-            noNode
-          },
-          if Array.length(result.linearityIssues) > 0 {
-            div(
-              list{Attrs.class_("text-xs text-orange-400 mt-1")},
-              list{text("Linearity: " ++ Array.join(result.linearityIssues, ", "))},
-            )
-          } else {
-            noNode
-          },
-        },
-      )
-    }
-  }
-}
-
-/// Main view for the Protocol-Squisher panel.
-let view = (ps: protocolSquisherState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Protocol-Squisher format analysis panel"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between p-4 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-medium text-gray-200")},
-                list{text("Protocol-Squisher")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{text("13-format schema analysis")},
-              ),
-              if ps.cliAvailable {
-                span(list{Attrs.class_("text-xs text-emerald-500")}, list{text("CLI ready")})
-              } else {
-                span(list{Attrs.class_("text-xs text-amber-500")}, list{text("CLI not found")})
-              },
-            },
-          ),
-          button(
-            list{
-              Attrs.class_("px-3 py-1 text-sm bg-gray-800 text-gray-300 rounded hover:bg-gray-700"),
-              Events.onClick(PanelSwitcher(ClosePanels)),
-              KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-            },
-            list{text("Close")},
-          ),
-        },
-      ),
-      // Content
-      div(
-        list{Attrs.class_("flex-1 overflow-auto p-6")},
-        list{
-          renderTabs(ps.activeCategory),
-          switch ps.activeCategory {
-          | PsAnalyse =>
-            div(
-              list{Attrs.class_("space-y-4")},
-              list{
-                div(
-                  list{Attrs.class_("text-sm text-gray-400 mb-2")},
-                  list{text("Enter a schema file path to analyse:")},
-                ),
-                div(
-                  list{Attrs.class_("flex gap-2")},
-                  list{
-                    input(
-                      list{
-                        Attrs.class_(
-                          "flex-1 bg-gray-900 border border-gray-700 rounded px-3 py-2 text-sm text-gray-200 placeholder-gray-600 font-mono",
-                        ),
-                        Attrs.placeholder("/path/to/schema.proto"),
-                        Attrs.value(ps.analyseInput),
-                        Events.onInput(v => ProtocolSquisher(SetAnalyseInput(v))),
-                      },
-                      list{},
-                    ),
-                    button(
-                      list{
-                        Attrs.class_(
-                          "px-4 py-2 text-sm bg-cyan-600 text-white rounded hover:bg-cyan-500 disabled:opacity-50",
-                        ),
-                        Events.onClick(ProtocolSquisher(RunAnalysis)),
-                        KeyboardNav.onActivate(ProtocolSquisher(RunAnalysis)),
-                      },
-                      list{text("Analyse")},
-                    ),
-                  },
-                ),
-                switch ps.lastAnalysis {
-                | Some(result) => renderAnalysisCard(result)
-                | None => noNode
-                },
-                viewTypeCheckResult(ps.lastTypeCheck),
-              },
-            )
-          | PsCompare =>
-            div(
-              list{Attrs.class_("space-y-4")},
-              list{
-                div(
-                  list{Attrs.class_("text-sm text-gray-400 mb-2")},
-                  list{text("Compare two schema files for compatibility:")},
-                ),
-                div(
-                  list{Attrs.class_("flex gap-2")},
-                  list{
-                    input(
-                      list{
-                        Attrs.class_(
-                          "flex-1 bg-gray-900 border border-gray-700 rounded px-3 py-2 text-sm text-gray-200 placeholder-gray-600 font-mono",
-                        ),
-                        Attrs.placeholder("Left schema path"),
-                        Attrs.value(ps.compareLeftInput),
-                        Events.onInput(v => ProtocolSquisher(SetCompareLeft(v))),
-                      },
-                      list{},
-                    ),
-                    input(
-                      list{
-                        Attrs.class_(
-                          "flex-1 bg-gray-900 border border-gray-700 rounded px-3 py-2 text-sm text-gray-200 placeholder-gray-600 font-mono",
-                        ),
-                        Attrs.placeholder("Right schema path"),
-                        Attrs.value(ps.compareRightInput),
-                        Events.onInput(v => ProtocolSquisher(SetCompareRight(v))),
-                      },
-                      list{},
-                    ),
-                    button(
-                      list{
-                        Attrs.class_(
-                          "px-4 py-2 text-sm bg-cyan-600 text-white rounded hover:bg-cyan-500",
-                        ),
-                        Events.onClick(ProtocolSquisher(RunComparison)),
-                        KeyboardNav.onActivate(ProtocolSquisher(RunComparison)),
-                      },
-                      list{text("Compare")},
-                    ),
-                  },
-                ),
-                switch ps.lastComparison {
-                | Some(cmp) =>
-                  div(
-                    list{
-                      Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-4 space-y-2"),
-                    },
-                    list{
-                      div(
-                        list{Attrs.class_("flex items-center gap-2")},
-                        list{
-                          span(
-                            list{
-                              Attrs.class_(
-                                if cmp.compatible {
-                                  "text-emerald-400 text-sm"
-                                } else {
-                                  "text-red-400 text-sm"
-                                },
-                              ),
-                            },
-                            list{
-                              text(
-                                if cmp.compatible {
-                                  "Compatible"
-                                } else {
-                                  "Incompatible"
-                                },
-                              ),
-                            },
-                          ),
-                          span(
-                            list{Attrs.class_("text-xs text-gray-500")},
-                            list{text(`Adapter cost: ${Int.toString(cmp.adapterCost)}/10`)},
-                          ),
-                        },
-                      ),
-                      div(list{Attrs.class_("text-sm text-gray-400")}, list{text(cmp.notes)}),
-                    },
-                  )
-                | None => noNode
-                },
-              },
-            )
-          | PsResults =>
-            if ps.analysisHistory->Array.length === 0 {
-              div(
-                list{Attrs.class_("text-center text-gray-500 mt-8")},
-                list{text("No analysis results yet. Run an analysis first.")},
-              )
-            } else {
-              div(
-                list{Attrs.class_("space-y-3")},
-                ps.analysisHistory->Array.map(r => renderAnalysisCard(r))->List.fromArray,
-              )
-            }
-          | PsGuide =>
-            div(
-              list{Attrs.class_("space-y-4 text-sm text-gray-400 max-w-2xl")},
-              list{
-                h3(
-                  list{Attrs.class_("text-base font-medium text-gray-200")},
-                  list{text("Transport Class Guide")},
-                ),
-                div(
-                  list{Attrs.class_("space-y-3")},
-                  list{
-                    div(
-                      list{Attrs.class_("flex items-center gap-3")},
-                      list{
-                        renderTransportBadge(Concorde),
-                        text("Zero-copy, fixed-size fields, no allocation. Best wire efficiency."),
-                      },
-                    ),
-                    div(
-                      list{Attrs.class_("flex items-center gap-3")},
-                      list{
-                        renderTransportBadge(Business),
-                        text("Binary format, schema-driven, minimal overhead."),
-                      },
-                    ),
-                    div(
-                      list{Attrs.class_("flex items-center gap-3")},
-                      list{
-                        renderTransportBadge(Economy),
-                        text("Text-based or self-describing. Readable but slower."),
-                      },
-                    ),
-                    div(
-                      list{Attrs.class_("flex items-center gap-3")},
-                      list{
-                        renderTransportBadge(Wheelbarrow),
-                        text("Format requires full runtime, significant overhead."),
-                      },
-                    ),
-                  },
-                ),
-                h3(
-                  list{Attrs.class_("text-base font-medium text-gray-200 mt-6")},
-                  list{text("Supported Formats")},
-                ),
-                div(
-                  list{Attrs.class_("grid grid-cols-3 gap-2")},
-                  ProtocolSquisherEngine.allFormats
-                  ->Array.map(fmt =>
-                    span(
-                      list{Attrs.class_("text-gray-300")},
-                      list{text(ProtocolSquisherEngine.formatLabel(fmt))},
-                    )
-                  )
-                  ->List.fromArray,
-                ),
-              },
-            )
-          },
-          switch ps.error {
-          | Some(e) =>
-            div(
-              list{
-                Attrs.class_(
-                  "mt-4 p-3 bg-red-900/30 border border-red-700 rounded text-sm text-red-300",
-                ),
-                Attrs.role("alert"),
-              },
-              list{text(e)},
-            )
-          | None => noNode
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/ProvenAdoption.affine b/src/components/ProvenAdoption.affine
new file mode 100644
index 00000000..ec12b88c
--- /dev/null
+++ b/src/components/ProvenAdoption.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ProvenAdoption;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/ProvenAdoption.res b/src/components/ProvenAdoption.res
deleted file mode 100644
index 01a71df3..00000000
--- a/src/components/ProvenAdoption.res
+++ /dev/null
@@ -1,261 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Proven Adoption Component — proven library adoption scanner.
-///
-/// Two-column layout: left sidebar with repo list, right content with
-/// detail view showing which SafeX modules each repo uses.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a binding status badge.
-let statusBadge = (status: provenModuleStatus): Tea_Vdom.t<msg> => {
-  let (color, label) = switch status {
-  | Adopted => ("text-green-400", "Adopted")
-  | PartiallyAdopted => ("text-amber-400", "Partial")
-  | NotAdopted => ("text-red-400", "Not Adopted")
-  }
-  span(list{Attrs.class_("text-xs font-mono " ++ color)}, list{text(label)})
-}
-
-/// Render a repo row in the sidebar.
-let repoRow = (repo: repoProvenSummary, selected: bool): Tea_Vdom.t<msg> => {
-  button(
-    list{
-      Attrs.class_(
-        "w-full text-left px-3 py-2 border-b border-gray-800 hover:bg-gray-800/60 transition-colors " ++ if (
-          selected
-        ) {
-          "bg-gray-800/80 border-l-2 border-l-blue-500"
-        } else {
-          ""
-        },
-      ),
-      Events.onClick(ProvenAdoption(SelectRepo(repo.repoName))),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between")},
-        list{
-          span(list{Attrs.class_("text-sm text-gray-200 truncate")}, list{text(repo.repoName)}),
-          statusBadge(repo.bindingStatus),
-        },
-      ),
-      div(
-        list{Attrs.class_("text-xs text-gray-500 mt-0.5")},
-        list{text(`${Int.toString(Array.length(repo.modules))} modules`)},
-      ),
-    },
-  )
-}
-
-/// Render a tab button.
-let tabBtn = (current: provenAdoptionTab, target: provenAdoptionTab, label: string): Tea_Vdom.t<
-  msg,
-> => {
-  let active = current == target
-  button(
-    list{
-      Attrs.class_(
-        "px-3 py-1 text-xs rounded " ++ if active {
-          "bg-blue-600 text-white"
-        } else {
-          "bg-gray-800 text-gray-400 hover:bg-gray-700"
-        },
-      ),
-      Events.onClick(ProvenAdoption(SetTab(target))),
-      Attrs.role("tab"),
-      Attrs.ariaSelected(active),
-    },
-    list{text(label)},
-  )
-}
-
-/// Main view function for the Proven Adoption panel.
-let view = (state: provenAdoptionState): Tea_Vdom.t<msg> => {
-  let adopted = ProvenAdoptionEngine.adoptedCount(state.repos)
-  let total = Array.length(state.repos)
-
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Proven Adoption — Formally Verified Safety Primitives"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-bold text-green-300")},
-                list{text("Proven Adoption")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{text(`${Int.toString(adopted)}/${Int.toString(total)} repos`)},
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_("px-3 py-1 text-xs rounded bg-green-700 text-white hover:bg-green-600"),
-              Events.onClick(ProvenAdoption(ScanRepos)),
-              KeyboardNav.onActivate(ProvenAdoption(ScanRepos)),
-            },
-            list{
-              text(
-                if state.scanning {
-                  "Scanning..."
-                } else {
-                  "Scan"
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Tabs
-      div(
-        list{Attrs.class_("flex gap-1 px-4 py-2 border-b border-gray-800"), Attrs.role("tablist")},
-        ProvenAdoptionEngine.allTabs
-        ->Array.map(t => tabBtn(state.activeTab, t, ProvenAdoptionEngine.tabLabel(t)))
-        ->List.fromArray,
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 px-3 py-2 bg-red-900/50 border border-red-700 rounded text-sm text-red-200",
-            ),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      // Two-column layout
-      div(
-        list{Attrs.class_("flex flex-1 overflow-hidden")},
-        list{
-          // Left sidebar — repo list
-          div(
-            list{Attrs.class_("w-64 border-r border-gray-800 overflow-y-auto")},
-            state.repos
-            ->Array.map(r => repoRow(r, state.selectedRepo == Some(r.repoName)))
-            ->List.fromArray,
-          ),
-          // Right content — detail view
-          div(
-            list{Attrs.class_("flex-1 overflow-y-auto px-4 py-2")},
-            list{
-              switch state.selectedRepo {
-              | None =>
-                div(
-                  list{Attrs.class_("flex items-center justify-center h-full text-gray-600")},
-                  list{text("Select a repo to view proven module details")},
-                )
-              | Some(name) =>
-                switch state.repos->Array.find(r => r.repoName == name) {
-                | None => div(list{}, list{text("Repo not found")})
-                | Some(repo) =>
-                  div(
-                    list{},
-                    list{
-                      h3(
-                        list{Attrs.class_("text-md font-semibold text-gray-200 mb-3")},
-                        list{text(repo.repoName)},
-                      ),
-                      div(
-                        list{Attrs.class_("space-y-2")},
-                        list{
-                          div(
-                            list{Attrs.class_("flex items-center gap-2")},
-                            list{
-                              span(
-                                list{Attrs.class_("text-xs text-gray-500 w-32")},
-                                list{text("Dependency:")},
-                              ),
-                              span(
-                                list{
-                                  Attrs.class_(
-                                    if repo.dependencyDeclared {
-                                      "text-xs text-green-400"
-                                    } else {
-                                      "text-xs text-red-400"
-                                    },
-                                  ),
-                                },
-                                list{
-                                  text(
-                                    if repo.dependencyDeclared {
-                                      "Declared"
-                                    } else {
-                                      "Missing"
-                                    },
-                                  ),
-                                },
-                              ),
-                            },
-                          ),
-                          div(
-                            list{Attrs.class_("flex items-center gap-2")},
-                            list{
-                              span(
-                                list{Attrs.class_("text-xs text-gray-500 w-32")},
-                                list{text("Binding Status:")},
-                              ),
-                              statusBadge(repo.bindingStatus),
-                            },
-                          ),
-                          div(
-                            list{Attrs.class_("mt-3")},
-                            list{
-                              span(
-                                list{Attrs.class_("text-xs text-gray-500 mb-1 block")},
-                                list{text("Modules:")},
-                              ),
-                              div(
-                                list{Attrs.class_("flex flex-wrap gap-1")},
-                                repo.modules
-                                ->Array.map(m =>
-                                  span(
-                                    list{
-                                      Attrs.class_(
-                                        "px-2 py-0.5 text-xs bg-gray-800 rounded text-gray-300",
-                                      ),
-                                    },
-                                    list{text(m)},
-                                  )
-                                )
-                                ->List.fromArray,
-                              ),
-                            },
-                          ),
-                        },
-                      ),
-                    },
-                  )
-                }
-              },
-            },
-          ),
-        },
-      ),
-      // Footer
-      div(
-        list{Attrs.class_("px-4 py-2 border-t border-gray-800 text-xs text-gray-500")},
-        list{
-          text(
-            `${Int.toString(ProvenAdoptionEngine.fullyBoundCount(state.repos))} repos fully bound`,
-          ),
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/Provenance.affine b/src/components/Provenance.affine
new file mode 100644
index 00000000..697c2868
--- /dev/null
+++ b/src/components/Provenance.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Provenance;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Provenance.res b/src/components/Provenance.res
deleted file mode 100644
index 016e194d..00000000
--- a/src/components/Provenance.res
+++ /dev/null
@@ -1,279 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Provenance Component — Code trust surface visualization.
-///
-/// Renders the Qubes-style ambient provenance overlay that shows who wrote
-/// each piece of code and how trustworthy it is. This is CORE infrastructure,
-/// always visible, not a panel overlay.
-///
-/// Visual design:
-///   - Trust summary bar (compact, always visible in header area)
-///   - Per-region colour coding with shape indicators
-///   - Hostile UX: pulsing red borders on unreviewed AI regions
-///   - Accessibility: palettes swap hues, shapes + labels provide redundancy
-///   - Screen reader: ARIA labels announce trust level, not colour
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a single trust level indicator with its count and percentage.
-/// Uses shape + colour + label for triple redundancy (accessibility).
-let renderTrustIndicator = (
-  level: trustLevel,
-  lineCount: int,
-  totalLines: int,
-  palette: accessibilityPalette,
-): Tea_Vdom.t<msg> => {
-  let (_bgClass, textClass, borderClass) = ProvenanceEngine.trustColours(level, palette)
-  let label = ProvenanceEngine.trustShortLabel(level)
-  let ariaLabel = ProvenanceEngine.trustAriaLabel(level)
-  let shape = ProvenanceEngine.trustShape(level)
-  let pct = if totalLines > 0 {
-    Float.toFixed(Float.fromInt(lineCount) /. Float.fromInt(totalLines) *. 100.0, ~digits=0)
-  } else {
-    "0"
-  }
-
-  div(
-    list{
-      Attrs.class_(
-        `flex items-center gap-1 px-2 py-1 border rounded text-xs ${textClass} ${borderClass}`,
-      ),
-      Attrs.ariaLabel(ariaLabel),
-      Attrs.role("status"),
-    },
-    list{
-      // Shape indicator (redundant channel beyond colour)
-      // Using text labels instead of emoji for ReScript compatibility.
-      span(
-        list{Attrs.class_("text-xs font-mono"), Attrs.ariaHidden(true)},
-        list{
-          text(
-            switch shape {
-            | "shield-check" => "[V]"
-            | "user-check" => "[H]"
-            | "cpu" => "[A]"
-            | "alert-triangle" => "[!]"
-            | _ => "[?]"
-            },
-          ),
-        },
-      ),
-      span(list{}, list{text(`${label}: ${pct}%`)}),
-      span(list{Attrs.class_("text-gray-600")}, list{text(`(${Int.toString(lineCount)})`)}),
-    },
-  )
-}
-
-/// Render the compact trust summary bar.
-/// Shows the trust distribution as a horizontal bar with colour segments
-/// and individual indicators for each trust level.
-let renderSummaryBar = (summary: provenanceSummary, palette: accessibilityPalette): Tea_Vdom.t<
-  msg,
-> => {
-  let total = summary.totalLines
-  let trustPct = ProvenanceEngine.trustPercentage(summary)
-
-  div(
-    list{
-      Attrs.class_("flex items-center gap-3 px-3 py-1.5 bg-gray-900/80 border-b border-gray-800"),
-      Attrs.role("region"),
-      Attrs.ariaLabel(`Code provenance: ${Float.toFixed(trustPct, ~digits=0)}% trusted`),
-    },
-    list{
-      // Title
-      span(list{Attrs.class_("text-xs text-gray-500 font-medium mr-2")}, list{text("Provenance")}),
-      // Segmented progress bar showing trust distribution
-      div(
-        list{Attrs.class_("flex-1 h-2 bg-gray-800 rounded-full overflow-hidden flex")},
-        list{
-          if total > 0 {
-            let segment = (lines, colour) => {
-              let width = Float.toFixed(
-                Float.fromInt(lines) /. Float.fromInt(total) *. 100.0,
-                ~digits=1,
-              )
-              div(list{Attrs.class_(`h-full ${colour}`), Attrs.style("width", `${width}%`)}, list{})
-            }
-            let (vBg, _, _) = ProvenanceEngine.trustColours(Verified, palette)
-            let (hBg, _, _) = ProvenanceEngine.trustColours(HumanReviewed, palette)
-            let (aBg, _, _) = ProvenanceEngine.trustColours(AiAssisted, palette)
-            let (rBg, _, _) = ProvenanceEngine.trustColours(UnreviewedAi, palette)
-            let (gBg, _, _) = ProvenanceEngine.trustColours(Unknown, palette)
-            div(
-              list{Attrs.class_("flex w-full h-full")},
-              list{
-                segment(summary.verifiedLines, vBg),
-                segment(summary.humanReviewedLines, hBg),
-                segment(summary.aiAssistedLines, aBg),
-                segment(summary.unreviewedAiLines, rBg),
-                segment(summary.unknownLines, gBg),
-              },
-            )
-          } else {
-            div(list{Attrs.class_("h-full w-full bg-gray-700")}, list{})
-          },
-        },
-      ),
-      // Trust score
-      span(
-        list{
-          Attrs.class_(
-            `text-xs font-mono ml-2 ${trustPct > 80.0
-                ? "text-green-400"
-                : trustPct > 50.0
-                ? "text-amber-400"
-                : "text-red-400"}`,
-          ),
-        },
-        list{text(`${Float.toFixed(trustPct, ~digits=0)}%`)},
-      ),
-      // Violation warning
-      if summary.hasViolations {
-        span(
-          list{
-            Attrs.class_("text-xs text-red-400 animate-pulse ml-2"),
-            Attrs.role("alert"),
-            Attrs.ariaLabel("Unreviewed AI code detected"),
-          },
-          list{text("[!] UNREVIEWED AI")},
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-/// Render the detailed trust breakdown (expanded view).
-/// Shows per-level indicators with line counts and percentages.
-let renderDetailedBreakdown = (
-  summary: provenanceSummary,
-  palette: accessibilityPalette,
-): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-wrap gap-2 px-3 py-2 bg-gray-900/60 border-b border-gray-800")},
-    list{
-      renderTrustIndicator(Verified, summary.verifiedLines, summary.totalLines, palette),
-      renderTrustIndicator(HumanReviewed, summary.humanReviewedLines, summary.totalLines, palette),
-      renderTrustIndicator(AiAssisted, summary.aiAssistedLines, summary.totalLines, palette),
-      renderTrustIndicator(UnreviewedAi, summary.unreviewedAiLines, summary.totalLines, palette),
-      renderTrustIndicator(Unknown, summary.unknownLines, summary.totalLines, palette),
-      // Author and co-author counts
-      span(
-        list{Attrs.class_("text-xs text-gray-500 ml-auto")},
-        list{
-          text(
-            `${Int.toString(summary.authorCount)} authors, ${Int.toString(
-                summary.coAuthorCount,
-              )} AI co-authors`,
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render the palette selector for accessibility options.
-let renderPaletteSelector = (active: accessibilityPalette): Tea_Vdom.t<msg> => {
-  let palettes: array<(accessibilityPalette, string)> = [
-    (StandardPalette, "Standard"),
-    (DeuteranopiaPalette, "Deuteranopia"),
-    (ProtanopiaPalette, "Protanopia"),
-    (HighContrastPalette, "High Contrast"),
-  ]
-  div(
-    list{
-      Attrs.class_("flex gap-1 px-3 py-1"),
-      Attrs.role("radiogroup"),
-      Attrs.ariaLabel("Select accessibility palette"),
-    },
-    palettes
-    ->Array.map(((palette, label)) => {
-      let isActive = palette === active
-      button(
-        list{
-          Attrs.class_(
-            `px-2 py-0.5 text-xs rounded ${isActive
-                ? "bg-gray-700 text-gray-200"
-                : "text-gray-500 hover:text-gray-300"}`,
-          ),
-          Attrs.role("radio"),
-          Attrs.ariaSelected(isActive),
-          Attrs.title(`Switch to ${label} colour palette`),
-          Events.onClick(Provenance(SetPalette(palette))),
-        },
-        list{text(label)},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Render the hostile UX suppression toggle.
-/// This is the "pull the smoke alarm battery" button — visible, deliberate,
-/// and everyone knows you did it.
-let renderHostileUxToggle = (suppressed: bool): Tea_Vdom.t<msg> => {
-  button(
-    list{
-      Attrs.class_(
-        `px-2 py-1 text-xs rounded ${suppressed
-            ? "bg-red-900/50 text-red-300 border border-red-700"
-            : "bg-gray-800 text-gray-400 hover:bg-gray-700"}`,
-      ),
-      Events.onClick(Provenance(ToggleHostileUx)),
-      KeyboardNav.onActivate(Provenance(ToggleHostileUx)),
-      Attrs.ariaLabel(
-        suppressed
-          ? "Hostile UX suppressed — click to re-enable violation warnings"
-          : "Click to suppress hostile UX warnings",
-      ),
-    },
-    list{text(suppressed ? "[!] Warnings Suppressed" : "Suppress Warnings")},
-  )
-}
-
-/// The main provenance view — renders as an ambient bar, not a panel overlay.
-/// This is called from View.res and sits above the three-panel layout.
-let view = (prov: provenanceState): Tea_Vdom.t<msg> => {
-  if !prov.enabled {
-    noNode
-  } else {
-    div(
-      list{
-        Attrs.class_("relative z-20"),
-        Attrs.role("complementary"),
-        Attrs.ariaLabel("Code provenance trust surface"),
-      },
-      list{
-        switch prov.activeFile {
-        | Some(file) =>
-          div(
-            list{},
-            list{
-              renderSummaryBar(file.summary, prov.palette),
-              renderDetailedBreakdown(file.summary, prov.palette),
-            },
-          )
-        | None =>
-          // No file active — show minimal indicator
-          div(
-            list{
-              Attrs.class_(
-                "px-3 py-1 bg-gray-900/60 border-b border-gray-800 flex items-center gap-2",
-              ),
-            },
-            list{
-              span(
-                list{Attrs.class_("text-xs text-gray-600")},
-                list{text("Provenance: no file selected")},
-              ),
-              renderHostileUxToggle(prov.hostileUxSuppressed),
-            },
-          )
-        },
-      },
-    )
-  }
-}
diff --git a/src/components/Provisioner.affine b/src/components/Provisioner.affine
new file mode 100644
index 00000000..8ae2c48e
--- /dev/null
+++ b/src/components/Provisioner.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Provisioner;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Provisioner.res b/src/components/Provisioner.res
deleted file mode 100644
index 3832133d..00000000
--- a/src/components/Provisioner.res
+++ /dev/null
@@ -1,493 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Provisioner Component — Portfolio provisioning, panel configuration,
-/// and installation management.
-///
-/// Three modes in one panel:
-///   Portfolios   — browse curated bundles, one-click install
-///   Configurator — per-panel settings (endpoints, isolation tier, env vars)
-///   Installed    — view what's running and at what isolation level
-///   Custom       — build your own portfolio from available panels
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render the category tabs.
-let renderTabs = (active: provisionerCategory): Tea_Vdom.t<msg> => {
-  let tabs: array<provisionerCategory> = [Portfolios, Configurator, Installed, CustomPortfolio]
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 mb-4"), Attrs.role("tablist")},
-    tabs
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-4 py-2 text-sm rounded-t transition-colors ${isActive
-                ? "bg-gray-800 text-gray-200 border-b-2 border-indigo-500"
-                : "text-gray-500 hover:text-gray-300"}`,
-          ),
-          Attrs.role("tab"),
-          Attrs.ariaSelected(isActive),
-          Events.onClick(Provisioner(SetProvCategory(tab))),
-        },
-        list{text(ProvisionerEngine.categoryLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Render a portfolio card — shows name, description, panel list, and install button.
-let renderPortfolioCard = (
-  portfolio: portfolio,
-  installStatuses: array<(string, panelInstallStatus)>,
-): Tea_Vdom.t<msg> => {
-  let allInstalled =
-    portfolio.panels->Array.every(p =>
-      ProvisionerEngine.getInstallStatus(installStatuses, p) === Installed
-    )
-  let installedCount =
-    portfolio.panels
-    ->Array.filter(p => ProvisionerEngine.getInstallStatus(installStatuses, p) === Installed)
-    ->Array.length
-
-  div(
-    list{
-      Attrs.class_(
-        `bg-gray-900 border rounded-lg p-4 ${allInstalled
-            ? "border-green-800"
-            : "border-gray-700 hover:border-gray-500"}`,
-      ),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-2")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              span(
-                list{Attrs.class_("text-lg text-gray-200 font-medium")},
-                list{text(portfolio.name)},
-              ),
-              if portfolio.builtIn {
-                span(
-                  list{
-                    Attrs.class_("text-xs bg-indigo-900/50 text-indigo-400 px-1.5 py-0.5 rounded"),
-                  },
-                  list{text("Built-in")},
-                )
-              } else {
-                noNode
-              },
-            },
-          ),
-          if allInstalled {
-            span(list{Attrs.class_("text-xs text-green-400")}, list{text("All installed")})
-          } else {
-            button(
-              list{
-                Attrs.class_(
-                  "px-3 py-1 text-xs bg-indigo-600 text-white rounded hover:bg-indigo-500 transition-colors",
-                ),
-                Events.onClick(Provisioner(InstallPortfolio(portfolio.id))),
-              },
-              list{text("Install")},
-            )
-          },
-        },
-      ),
-      // Description
-      div(list{Attrs.class_("text-sm text-gray-400 mb-3")}, list{text(portfolio.description)}),
-      // Panel chips
-      div(
-        list{Attrs.class_("flex flex-wrap gap-1.5 mb-2")},
-        portfolio.panels
-        ->Array.map(panelName => {
-          let status = ProvisionerEngine.getInstallStatus(installStatuses, panelName)
-          let colour = ProvisionerEngine.installStatusColour(status)
-          span(
-            list{Attrs.class_(`text-xs px-2 py-0.5 rounded bg-gray-800 ${colour}`)},
-            list{text(panelName)},
-          )
-        })
-        ->List.fromArray,
-      ),
-      // Footer
-      div(
-        list{Attrs.class_("flex items-center justify-between text-xs text-gray-600")},
-        list{
-          span(
-            list{},
-            list{
-              text(
-                `${Int.toString(installedCount)}/${Int.toString(
-                    Array.length(portfolio.panels),
-                  )} panels`,
-              ),
-            },
-          ),
-          span(list{}, list{text(portfolio.audience)}),
-        },
-      ),
-    },
-  )
-}
-
-/// Render a panel config row in the Configurator tab.
-let renderConfigRow = (config: panelConfig): Tea_Vdom.t<msg> => {
-  let tierColour = ProvisionerEngine.isolationColour(config.isolation)
-
-  div(
-    list{
-      Attrs.class_("flex items-center gap-3 px-3 py-2 bg-gray-900 border border-gray-800 rounded"),
-    },
-    list{
-      // Panel name
-      span(
-        list{Attrs.class_("text-sm text-gray-200 w-28 font-medium")},
-        list{text(config.panelName)},
-      ),
-      // Isolation tier
-      span(
-        list{Attrs.class_(`text-xs ${tierColour} w-20`)},
-        list{text(ProvisionerEngine.isolationShortLabel(config.isolation))},
-      ),
-      // Endpoint
-      span(
-        list{Attrs.class_("text-xs text-gray-500 flex-1 truncate")},
-        list{text(config.endpoint === "" ? "No endpoint" : config.endpoint)},
-      ),
-      // Auto-connect indicator
-      span(
-        list{Attrs.class_(`text-xs ${config.autoConnect ? "text-green-400" : "text-gray-600"}`)},
-        list{text(config.autoConnect ? "Auto" : "Manual")},
-      ),
-      // Enabled toggle
-      button(
-        list{
-          Attrs.class_(
-            `px-2 py-0.5 text-xs rounded ${config.enabled
-                ? "bg-green-900/50 text-green-400"
-                : "bg-gray-800 text-gray-600"}`,
-          ),
-          Events.onClick(Provisioner(TogglePanelEnabled(config.panelName))),
-        },
-        list{text(config.enabled ? "On" : "Off")},
-      ),
-      // Isolation tier selector buttons
-      div(
-        list{Attrs.class_("flex gap-1")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                `px-1.5 py-0.5 text-xs rounded ${config.isolation === Native
-                    ? "bg-green-900 text-green-400"
-                    : "bg-gray-800 text-gray-500"}`,
-              ),
-              Events.onClick(Provisioner(SetPanelIsolation(config.panelName, Native))),
-            },
-            list{text("N")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                `px-1.5 py-0.5 text-xs rounded ${config.isolation === StandardPod
-                    ? "bg-blue-900 text-blue-400"
-                    : "bg-gray-800 text-gray-500"}`,
-              ),
-              Events.onClick(Provisioner(SetPanelIsolation(config.panelName, StandardPod))),
-            },
-            list{text("S")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                `px-1.5 py-0.5 text-xs rounded ${config.isolation === HardenedPod
-                    ? "bg-purple-900 text-purple-400"
-                    : "bg-gray-800 text-gray-500"}`,
-              ),
-              Events.onClick(Provisioner(SetPanelIsolation(config.panelName, HardenedPod))),
-            },
-            list{text("H")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render the isolation tier summary bar.
-let renderIsolationSummary = (configs: array<panelConfig>): Tea_Vdom.t<msg> => {
-  let native = ProvisionerEngine.countByIsolation(configs, Native)
-  let standard = ProvisionerEngine.countByIsolation(configs, StandardPod)
-  let hardened = ProvisionerEngine.countByIsolation(configs, HardenedPod)
-  div(
-    list{Attrs.class_("flex gap-4 px-3 py-2 bg-gray-900/60 border border-gray-800 rounded mb-3")},
-    list{
-      span(
-        list{Attrs.class_("text-xs text-green-400")},
-        list{text(`Native: ${Int.toString(native)}`)},
-      ),
-      span(
-        list{Attrs.class_("text-xs text-blue-400")},
-        list{text(`Standard Pod: ${Int.toString(standard)}`)},
-      ),
-      span(
-        list{Attrs.class_("text-xs text-purple-400")},
-        list{text(`Hardened Pod: ${Int.toString(hardened)}`)},
-      ),
-      span(
-        list{Attrs.class_("text-xs text-gray-500 ml-auto")},
-        list{text(`${Int.toString(native + standard + hardened)} total`)},
-      ),
-    },
-  )
-}
-
-/// Main provisioner view.
-let view = (prov: provisionerState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Panel Provisioner — portfolios, configuration, and installation"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between p-4 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-medium text-gray-200")},
-                list{text("Provisioner")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{
-                  text(
-                    `${Int.toString(
-                        ProvisionerEngine.countInstalled(prov.panelInstallStatus),
-                      )} panels installed`,
-                  ),
-                },
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_("px-3 py-1 text-sm bg-gray-800 text-gray-300 rounded hover:bg-gray-700"),
-              Events.onClick(PanelSwitcher(ClosePanels)),
-              KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-            },
-            list{text("Close")},
-          ),
-        },
-      ),
-      // Content
-      div(
-        list{Attrs.class_("flex-1 overflow-auto p-6")},
-        list{
-          renderTabs(prov.activeCategory),
-          switch prov.activeCategory {
-          | Portfolios => {
-              let filtered = ProvisionerEngine.filterPortfolios(prov.portfolios, prov.filterText)
-              div(
-                list{Attrs.class_("space-y-4")},
-                list{
-                  // Search
-                  input(
-                    list{
-                      Attrs.class_(
-                        "w-full bg-gray-900 border border-gray-700 rounded px-3 py-2 text-sm text-gray-200 mb-4",
-                      ),
-                      Attrs.placeholder("Search portfolios..."),
-                      Attrs.ariaLabel("Search portfolios"),
-                      Attrs.value(prov.filterText),
-                      Events.onInput(v => Provisioner(SetProvFilter(v))),
-                    },
-                    list{},
-                  ),
-                  div(
-                    list{Attrs.class_("grid gap-4 grid-cols-1 lg:grid-cols-2")},
-                    filtered
-                    ->Array.map(p => renderPortfolioCard(p, prov.panelInstallStatus))
-                    ->List.fromArray,
-                  ),
-                },
-              )
-            }
-          | Configurator =>
-            div(
-              list{Attrs.class_("space-y-2")},
-              list{
-                renderIsolationSummary(prov.panelConfigs),
-                // Column headers
-                div(
-                  list{Attrs.class_("flex items-center gap-3 px-3 py-1 text-xs text-gray-600")},
-                  list{
-                    span(list{Attrs.class_("w-28")}, list{text("Panel")}),
-                    span(list{Attrs.class_("w-20")}, list{text("Tier")}),
-                    span(list{Attrs.class_("flex-1")}, list{text("Endpoint")}),
-                    span(list{}, list{text("Connect")}),
-                    span(list{}, list{text("Status")}),
-                    span(list{}, list{text("Isolation")}),
-                  },
-                ),
-                div(
-                  list{Attrs.class_("space-y-1")},
-                  prov.panelConfigs->Array.map(c => renderConfigRow(c))->List.fromArray,
-                ),
-              },
-            )
-          | Installed => {
-              let installed = prov.panelInstallStatus->Array.filter(((_, s)) => s === Installed)
-              div(
-                list{Attrs.class_("space-y-2")},
-                list{
-                  renderIsolationSummary(prov.panelConfigs),
-                  div(
-                    list{Attrs.class_("space-y-1")},
-                    installed
-                    ->Array.map(((name, _status)) => {
-                      let config = prov.panelConfigs->Array.find(c => c.panelName === name)
-                      let tierColour = switch config {
-                      | Some(c) => ProvisionerEngine.isolationColour(c.isolation)
-                      | None => "text-gray-500"
-                      }
-                      let tierLabel = switch config {
-                      | Some(c) => ProvisionerEngine.isolationLabel(c.isolation)
-                      | None => "Unknown"
-                      }
-                      div(
-                        list{
-                          Attrs.class_(
-                            "flex items-center gap-3 px-3 py-2 bg-gray-900 border border-gray-800 rounded",
-                          ),
-                        },
-                        list{
-                          span(
-                            list{Attrs.class_("text-sm text-gray-200 w-28 font-medium")},
-                            list{text(name)},
-                          ),
-                          span(list{Attrs.class_(`text-xs ${tierColour}`)}, list{text(tierLabel)}),
-                          span(
-                            list{Attrs.class_("text-xs text-green-400 ml-auto")},
-                            list{text("Running")},
-                          ),
-                          button(
-                            list{
-                              Attrs.class_(
-                                "px-2 py-0.5 text-xs bg-red-900/50 text-red-400 rounded hover:bg-red-900",
-                              ),
-                              Events.onClick(Provisioner(RemovePanel(name))),
-                            },
-                            list{text("Remove")},
-                          ),
-                        },
-                      )
-                    })
-                    ->List.fromArray,
-                  ),
-                },
-              )
-            }
-          | CustomPortfolio =>
-            div(
-              list{Attrs.class_("space-y-4")},
-              list{
-                div(
-                  list{Attrs.class_("text-sm text-gray-400 mb-2")},
-                  list{text("Build a custom portfolio by selecting panels:")},
-                ),
-                input(
-                  list{
-                    Attrs.class_(
-                      "w-full bg-gray-900 border border-gray-700 rounded px-3 py-2 text-sm text-gray-200",
-                    ),
-                    Attrs.placeholder("Portfolio name..."),
-                    Attrs.ariaLabel("Custom portfolio name"),
-                    Attrs.value(prov.customName),
-                    Events.onInput(v => Provisioner(SetCustomName(v))),
-                  },
-                  list{},
-                ),
-                // Available panels as toggleable chips
-                div(
-                  list{Attrs.class_("flex flex-wrap gap-2 mt-3")},
-                  prov.panelConfigs
-                  ->Array.map(c => {
-                    let selected = prov.customPanels->Array.some(p => p === c.panelName)
-                    button(
-                      list{
-                        Attrs.class_(
-                          `px-3 py-1.5 text-sm rounded transition-colors ${selected
-                              ? "bg-indigo-600 text-white"
-                              : "bg-gray-800 text-gray-400 hover:bg-gray-700"}`,
-                        ),
-                        Events.onClick(Provisioner(ToggleCustomPanel(c.panelName))),
-                      },
-                      list{text(c.panelName)},
-                    )
-                  })
-                  ->List.fromArray,
-                ),
-                if Array.length(prov.customPanels) > 0 {
-                  div(
-                    list{Attrs.class_("mt-4")},
-                    list{
-                      button(
-                        list{
-                          Attrs.class_(
-                            "px-4 py-2 text-sm bg-indigo-600 text-white rounded hover:bg-indigo-500",
-                          ),
-                          Events.onClick(Provisioner(SaveCustomPortfolio)),
-                          KeyboardNav.onActivate(Provisioner(SaveCustomPortfolio)),
-                        },
-                        list{
-                          text(
-                            `Save Portfolio (${Int.toString(
-                                Array.length(prov.customPanels),
-                              )} panels)`,
-                          ),
-                        },
-                      ),
-                    },
-                  )
-                } else {
-                  noNode
-                },
-              },
-            )
-          | PluginBundles | CustomPluginBundle | DeploymentBundles =>
-            div(
-              list{Attrs.class_("p-6 text-center text-gray-500")},
-              list{text("Coming soon")},
-            )
-          },
-          // Error display
-          switch prov.error {
-          | Some(e) =>
-            div(
-              list{
-                Attrs.class_(
-                  "mt-4 p-3 bg-red-900/30 border border-red-700 rounded text-sm text-red-300",
-                ),
-                Attrs.role("alert"),
-              },
-              list{text(e)},
-            )
-          | None => noNode
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/RainbowAgents.affine b/src/components/RainbowAgents.affine
new file mode 100644
index 00000000..d6e070ff
--- /dev/null
+++ b/src/components/RainbowAgents.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module RainbowAgents;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/RainbowAgents.res b/src/components/RainbowAgents.res
deleted file mode 100644
index 3772b41d..00000000
--- a/src/components/RainbowAgents.res
+++ /dev/null
@@ -1,197 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath)
-//
-// RainbowAgents — Colour-coded agent family for PanLL panels.
-//
-// Each agent colour represents a specialisation mapped to PanLL's
-// three-panel model (L/N/W). Agents can be dispatched to panels,
-// observed through Panel-N, and their results appear in Panel-W.
-//
-// The rainbow family provides a visual language for agent activity:
-// which agent is doing what, where, and in what state — all visible
-// as coloured indicators across the panel system.
-
-/// Agent colour — each maps to a domain and a visual indicator.
-type agentColour =
-  | /// Red — Security & threat analysis. Maps to Panel-L constraints.
-  Red
-  | /// Orange — Infrastructure & deployment. Maps to Panel-W world state.
-  Orange
-  | /// Yellow — Quality & testing. Maps to Panel-N reasoning.
-  Yellow
-  | /// Green — Compliance & standards (RSR, SPDX, REUSE). Maps to Panel-L.
-  Green
-  | /// Blue — Documentation & communication. Maps to Panel-W output.
-  Blue
-  | /// Indigo — Formal verification & proofs (echidna). Maps to Panel-L + Panel-N.
-  Indigo
-  | /// Violet — Creative & design (UI, UX, aesthetics). Maps to Panel-W.
-  Violet
-
-/// Map a colour to its hex value for PixiJS rendering.
-let colourHex = (colour: agentColour): int =>
-  switch colour {
-  | Red => 0xff4444
-  | Orange => 0xff8844
-  | Yellow => 0xffcc44
-  | Green => 0x44ff88
-  | Blue => 0x4488ff
-  | Indigo => 0x6644ff
-  | Violet => 0xaa44ff
-  }
-
-/// Display name for the agent colour.
-let colourName = (colour: agentColour): string =>
-  switch colour {
-  | Red => "RED"
-  | Orange => "ORANGE"
-  | Yellow => "YELLOW"
-  | Green => "GREEN"
-  | Blue => "BLUE"
-  | Indigo => "INDIGO"
-  | Violet => "VIOLET"
-  }
-
-/// Domain description for the agent colour.
-let colourDomain = (colour: agentColour): string =>
-  switch colour {
-  | Red => "Security & Threat Analysis"
-  | Orange => "Infrastructure & Deployment"
-  | Yellow => "Quality & Testing"
-  | Green => "Compliance & Standards"
-  | Blue => "Documentation & Communication"
-  | Indigo => "Formal Verification & Proofs"
-  | Violet => "Creative & Design"
-  }
-
-/// Which panel type this agent colour primarily reports to.
-type panelAffinity =
-  | /// Constraint-focused (Panel-L)
-  SymbolicPanel
-  | /// Reasoning-focused (Panel-N)
-  NeuralPanel
-  | /// Result-focused (Panel-W)
-  WorldPanel
-
-let colourPanelAffinity = (colour: agentColour): panelAffinity =>
-  switch colour {
-  | Red => SymbolicPanel
-  | Orange => WorldPanel
-  | Yellow => NeuralPanel
-  | Green => SymbolicPanel
-  | Blue => WorldPanel
-  | Indigo => SymbolicPanel
-  | Violet => WorldPanel
-  }
-
-/// Map gitbot-fleet bots to rainbow colours.
-let botToColour = (botId: FleetModel.botId): agentColour =>
-  switch botId {
-  | Rhodibot => Green // RSR compliance
-  | Echidnabot => Indigo // Formal verification
-  | Sustainabot => Orange // Dependency management
-  | Glambot => Violet // UI/aesthetics
-  | Seambot => Yellow // Integration testing
-  | Finishbot => Blue // Documentation/completion
-  }
-
-/// All colours in rainbow order.
-let allColours: array<agentColour> = [Red, Orange, Yellow, Green, Blue, Indigo, Violet]
-
-// ---------------------------------------------------------------------------
-// Rainbow Agent State
-// ---------------------------------------------------------------------------
-
-/// A rainbow agent instance — one per colour, tracks activity.
-type rainbowAgent = {
-  colour: agentColour,
-  mutable active: bool,
-  mutable currentTask: option<string>,
-  mutable completedTasks: int,
-  mutable failedTasks: int,
-  /// Which panel is currently displaying this agent's output.
-  mutable displayPanel: option<panelAffinity>,
-}
-
-/// Create a dormant agent.
-let makeAgent = (colour: agentColour): rainbowAgent => {
-  colour,
-  active: false,
-  currentTask: None,
-  completedTasks: 0,
-  failedTasks: 0,
-  displayPanel: None,
-}
-
-/// The full rainbow — all 7 agents.
-type rainbow = {
-  red: rainbowAgent,
-  orange: rainbowAgent,
-  yellow: rainbowAgent,
-  green: rainbowAgent,
-  blue: rainbowAgent,
-  indigo: rainbowAgent,
-  violet: rainbowAgent,
-}
-
-/// Create a fresh rainbow with all agents dormant.
-let makeRainbow = (): rainbow => {
-  red: makeAgent(Red),
-  orange: makeAgent(Orange),
-  yellow: makeAgent(Yellow),
-  green: makeAgent(Green),
-  blue: makeAgent(Blue),
-  indigo: makeAgent(Indigo),
-  violet: makeAgent(Violet),
-}
-
-/// Get an agent by colour.
-let getAgent = (rainbow: rainbow, colour: agentColour): rainbowAgent =>
-  switch colour {
-  | Red => rainbow.red
-  | Orange => rainbow.orange
-  | Yellow => rainbow.yellow
-  | Green => rainbow.green
-  | Blue => rainbow.blue
-  | Indigo => rainbow.indigo
-  | Violet => rainbow.violet
-  }
-
-/// Activate an agent with a task description.
-let activate = (agent: rainbowAgent, task: string): unit => {
-  agent.active = true
-  agent.currentTask = Some(task)
-  agent.displayPanel = Some(colourPanelAffinity(agent.colour))
-}
-
-/// Mark an agent's current task as completed.
-let complete = (agent: rainbowAgent): unit => {
-  agent.active = false
-  agent.completedTasks = agent.completedTasks + 1
-  agent.currentTask = None
-}
-
-/// Mark an agent's current task as failed.
-let fail = (agent: rainbowAgent): unit => {
-  agent.active = false
-  agent.failedTasks = agent.failedTasks + 1
-  agent.currentTask = None
-}
-
-/// Count active agents in the rainbow.
-let activeCount = (rainbow: rainbow): int =>
-  allColours->Array.filter(c => getAgent(rainbow, c).active)->Array.length
-
-/// Get all active agents with their colours.
-let activeAgents = (rainbow: rainbow): array<(agentColour, string)> =>
-  allColours->Array.filterMap(c => {
-    let agent = getAgent(rainbow, c)
-    if agent.active {
-      switch agent.currentTask {
-      | Some(task) => Some((c, task))
-      | None => Some((c, "active"))
-      }
-    } else {
-      None
-    }
-  })
diff --git a/src/components/RegressionGuard.affine b/src/components/RegressionGuard.affine
new file mode 100644
index 00000000..a15eddab
--- /dev/null
+++ b/src/components/RegressionGuard.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module RegressionGuard;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/RegressionGuard.res b/src/components/RegressionGuard.res
deleted file mode 100644
index 73eccd50..00000000
--- a/src/components/RegressionGuard.res
+++ /dev/null
@@ -1,392 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL RegressionGuard — snapshot comparison and golden-file testing panel.
-///
-/// Displays a snapshot inventory with matched/mismatched badges, an inline diff
-/// viewer for old-vs-new comparison, history of regression check runs, and
-/// settings for auto-update and diff thresholds.
-
-open Model
-open Msg
-open Tea.Html
-
-// =========================================================================
-// Helpers
-// =========================================================================
-
-/// Tab label lookup for regressionTab variants.
-let tabLabel = (tab: regressionTab): string =>
-  switch tab {
-  | TabSnapshots => "Snapshots"
-  | TabDiffs => "Diffs"
-  | TabHistory => "History"
-  | TabSettings => "Settings"
-  }
-
-/// Render the tab bar.
-let renderTabs = (active: regressionTab): Tea_Vdom.t<msg> => {
-  let tabs: array<regressionTab> = [TabSnapshots, TabDiffs, TabHistory, TabSettings]
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 px-4")},
-    tabs
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-4 py-2 text-sm font-medium transition-colors rounded-t ${isActive
-                ? "bg-gray-800 text-cyan-400 border-b-2 border-cyan-400"
-                : "text-gray-500 hover:text-gray-300 hover:bg-gray-900 cursor-pointer"}`,
-          ),
-          Events.onClick(RegressionGuard(SetRgTab(tab))),
-        },
-        list{text(tabLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Badge for matched/mismatched snapshot state.
-let matchBadge = (matched: option<bool>): Tea_Vdom.t<msg> =>
-  switch matched {
-  | Some(true) =>
-    span(
-      list{Attrs.class_("px-1.5 py-0.5 text-xs rounded bg-emerald-600 text-white font-mono")},
-      list{text("MATCH")},
-    )
-  | Some(false) =>
-    span(
-      list{Attrs.class_("px-1.5 py-0.5 text-xs rounded bg-red-600 text-white font-mono")},
-      list{text("MISMATCH")},
-    )
-  | None =>
-    span(
-      list{Attrs.class_("px-1.5 py-0.5 text-xs rounded bg-gray-600 text-gray-300 font-mono")},
-      list{text("PENDING")},
-    )
-  }
-
-/// Snapshot kind label.
-let kindLabel = (kind: snapshotKind): string =>
-  switch kind {
-  | SnapshotGameState => "Game State"
-  | SnapshotRenderOutput => "Render"
-  | SnapshotApiResponse => "API"
-  | SnapshotTestOutput => "Test"
-  | SnapshotCustom(name) => name
-  }
-
-// =========================================================================
-// Tab content views
-// =========================================================================
-
-/// Snapshots tab: inventory list with match badges and snapshot kind labels.
-let renderSnapshotsTab = (state: regressionGuardState): Tea_Vdom.t<msg> => {
-  let total = Array.length(state.snapshots)
-  let matched = state.snapshots->Array.filter(s => s.matched === Some(true))->Array.length
-  let mismatched = state.snapshots->Array.filter(s => s.matched === Some(false))->Array.length
-
-  div(
-    list{Attrs.class_("flex flex-col gap-3 p-4")},
-    list{
-      // Summary counts
-      div(
-        list{Attrs.class_("flex gap-4 text-sm")},
-        list{
-          span(list{Attrs.class_("text-gray-400")}, list{text(`Total: ${Int.toString(total)}`)}),
-          span(
-            list{Attrs.class_("text-emerald-400")},
-            list{text(`Matched: ${Int.toString(matched)}`)},
-          ),
-          span(
-            list{Attrs.class_("text-red-400")},
-            list{text(`Mismatched: ${Int.toString(mismatched)}`)},
-          ),
-        },
-      ),
-      // Snapshot rows
-      div(
-        list{Attrs.class_("flex flex-col gap-1 max-h-96 overflow-y-auto")},
-        state.snapshots
-        ->Array.map(snap => {
-          div(
-            list{
-              Attrs.class_(
-                "flex items-center justify-between gap-3 px-3 py-2 bg-gray-800 rounded text-sm",
-              ),
-            },
-            list{
-              matchBadge(snap.matched),
-              span(list{Attrs.class_("text-gray-300 flex-1 font-medium")}, list{text(snap.name)}),
-              span(
-                list{Attrs.class_("text-gray-500 text-xs font-mono")},
-                list{text(kindLabel(snap.kind))},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-2 py-1 text-xs bg-cyan-700 text-white rounded hover:bg-cyan-600 cursor-pointer",
-                  ),
-                  Events.onClick(RegressionGuard(ViewDiff(snap.id))),
-                },
-                list{text("Diff")},
-              ),
-            },
-          )
-        })
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-/// Diffs tab: side-by-side old vs new comparison for mismatched snapshots.
-let renderDiffsTab = (state: regressionGuardState): Tea_Vdom.t<msg> => {
-  let mismatched = state.snapshots->Array.filter(s => s.matched === Some(false))
-  if Array.length(mismatched) === 0 {
-    div(
-      list{Attrs.class_("p-4 text-gray-500 text-sm italic")},
-      list{text("No mismatches found. All snapshots match their golden files.")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("flex flex-col gap-3 p-4 max-h-96 overflow-y-auto")},
-      mismatched
-      ->Array.map(snap => {
-        div(
-          list{Attrs.class_("bg-gray-800 rounded p-3 border border-red-800")},
-          list{
-            div(
-              list{Attrs.class_("flex items-center justify-between mb-2")},
-              list{
-                span(
-                  list{Attrs.class_("text-sm font-medium text-gray-200")},
-                  list{text(snap.name)},
-                ),
-                button(
-                  list{
-                    Attrs.class_(
-                      "px-2 py-1 text-xs bg-amber-700 text-white rounded hover:bg-amber-600 cursor-pointer",
-                    ),
-                    Events.onClick(RegressionGuard(UpdateSnapshot(snap.id))),
-                  },
-                  list{text("Accept New")},
-                ),
-              },
-            ),
-            // Diff summary
-            switch snap.diffSummary {
-            | Some(diff) =>
-              div(
-                list{Attrs.class_("grid grid-cols-2 gap-2")},
-                list{
-                  div(
-                    list{Attrs.class_("bg-gray-900 rounded p-2 border border-gray-700")},
-                    list{
-                      div(
-                        list{Attrs.class_("text-xs text-gray-500 mb-1")},
-                        list{text("Golden (old)")},
-                      ),
-                      div(
-                        list{Attrs.class_("text-xs font-mono text-gray-400 whitespace-pre-wrap")},
-                        list{text(snap.goldenPath)},
-                      ),
-                    },
-                  ),
-                  div(
-                    list{Attrs.class_("bg-gray-900 rounded p-2 border border-red-900")},
-                    list{
-                      div(
-                        list{Attrs.class_("text-xs text-gray-500 mb-1")},
-                        list{text("Current (new)")},
-                      ),
-                      div(
-                        list{Attrs.class_("text-xs font-mono text-red-300 whitespace-pre-wrap")},
-                        list{text(diff)},
-                      ),
-                    },
-                  ),
-                },
-              )
-            | None =>
-              div(
-                list{Attrs.class_("text-xs text-gray-500 italic")},
-                list{text("Diff not yet computed")},
-              )
-            },
-          },
-        )
-      })
-      ->List.fromArray,
-    )
-  }
-}
-
-/// History tab: previous regression check results.
-let renderHistoryTab = (state: regressionGuardState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-col gap-2 p-4 max-h-96 overflow-y-auto")},
-    state.results
-    ->Array.map(result => {
-      let allMatched = result.mismatched === 0 && result.missing === 0
-      let borderCls = allMatched ? "border-emerald-700" : "border-red-700"
-      div(
-        list{Attrs.class_(`bg-gray-800 rounded p-3 border ${borderCls}`)},
-        list{
-          div(
-            list{Attrs.class_("flex justify-between text-xs text-gray-400 mb-1")},
-            list{
-              span(list{}, list{text(result.timestamp)}),
-              span(list{}, list{text(`${Float.toFixed(result.durationMs, ~digits=0)}ms`)}),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex gap-3 text-sm")},
-            list{
-              span(
-                list{Attrs.class_("text-emerald-400")},
-                list{text(`${Int.toString(result.matched)} matched`)},
-              ),
-              span(
-                list{Attrs.class_("text-red-400")},
-                list{text(`${Int.toString(result.mismatched)} mismatched`)},
-              ),
-              span(
-                list{Attrs.class_("text-amber-400")},
-                list{text(`${Int.toString(result.missing)} missing`)},
-              ),
-              span(
-                list{Attrs.class_("text-blue-400")},
-                list{text(`${Int.toString(result.newSnapshots)} new`)},
-              ),
-            },
-          ),
-        },
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Settings tab: auto-update toggle and configuration.
-let renderSettingsTab = (state: regressionGuardState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-col gap-4 p-4")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center gap-3")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                `px-3 py-1.5 text-xs rounded font-medium cursor-pointer ${state.autoUpdate
-                    ? "bg-cyan-700 text-white"
-                    : "bg-gray-700 text-gray-400"}`,
-              ),
-              Events.onClick(RegressionGuard(ToggleAutoUpdate)),
-              KeyboardNav.onActivate(RegressionGuard(ToggleAutoUpdate)),
-            },
-            list{text(state.autoUpdate ? "Auto-Update: ON" : "Auto-Update: OFF")},
-          ),
-          span(
-            list{Attrs.class_("text-xs text-gray-500")},
-            list{text("Automatically accept new snapshots when golden files are missing")},
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("text-sm text-gray-400")},
-        list{
-          text(
-            `Filter: "${state.filter}" (${Int.toString(Array.length(state.snapshots))} visible)`,
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// =========================================================================
-// Main view
-// =========================================================================
-
-/// Primary view function dispatching tab content based on active tab.
-let view = (state: regressionGuardState): Tea_Vdom.t<msg> => {
-  let content = switch state.activeTab {
-  | TabSnapshots => renderSnapshotsTab(state)
-  | TabDiffs => renderDiffsTab(state)
-  | TabHistory => renderHistoryTab(state)
-  | TabSettings => renderSettingsTab(state)
-  }
-
-  div(
-    list{Attrs.class_("flex flex-col h-full bg-gray-900 text-gray-100")},
-    list{
-      // Header with Check All / Update All
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          h2(
-            list{Attrs.class_("text-lg font-semibold text-cyan-300")},
-            list{text("Regression Guard")},
-          ),
-          div(
-            list{Attrs.class_("flex gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1.5 text-xs bg-emerald-700 text-white rounded hover:bg-emerald-600 cursor-pointer font-medium",
-                  ),
-                  Events.onClick(RegressionGuard(CheckAll)),
-                  KeyboardNav.onActivate(RegressionGuard(CheckAll)),
-                },
-                list{text("Check All")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1.5 text-xs bg-amber-700 text-white rounded hover:bg-amber-600 cursor-pointer font-medium",
-                  ),
-                  Events.onClick(RegressionGuard(UpdateAll)),
-                  KeyboardNav.onActivate(RegressionGuard(UpdateAll)),
-                },
-                list{text("Update All")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Running indicator
-      if state.running {
-        div(
-          list{
-            Attrs.class_("flex items-center gap-2 px-4 py-2 bg-gray-800 border-b border-gray-700"),
-          },
-          list{
-            div(list{Attrs.class_("w-3 h-3 bg-amber-400 rounded-full animate-pulse")}, list{}),
-            span(list{Attrs.class_("text-sm text-amber-300")}, list{text("Checking snapshots...")}),
-          },
-        )
-      } else {
-        noNode
-      },
-      // Error display
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_("px-4 py-2 bg-red-900/30 text-red-300 text-sm border-b border-red-800"),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      // Tab bar
-      renderTabs(state.activeTab),
-      // Content
-      div(list{Attrs.class_("flex-1 overflow-y-auto")}, list{content}),
-    },
-  )
-}
diff --git a/src/components/ReleaseManager.affine b/src/components/ReleaseManager.affine
new file mode 100644
index 00000000..709e8071
--- /dev/null
+++ b/src/components/ReleaseManager.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ReleaseManager;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/ReleaseManager.res b/src/components/ReleaseManager.res
deleted file mode 100644
index 46b1481f..00000000
--- a/src/components/ReleaseManager.res
+++ /dev/null
@@ -1,474 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Release Manager Component — view for versioning, changelog,
-/// packaging, and distribution of IDApTIK builds.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a category tab button.
-let renderTab = (
-  label: string,
-  cat: releaseManagerCategory,
-  active: releaseManagerCategory,
-): Tea_Vdom.t<msg> => {
-  let isActive = cat === active
-  let cls = isActive
-    ? "px-3 py-1.5 text-xs font-medium bg-gray-700 text-white rounded"
-    : "px-3 py-1.5 text-xs text-gray-400 hover:text-gray-200 hover:bg-gray-800 rounded cursor-pointer"
-  button(
-    list{Attrs.class_(cls), Events.onClick(ReleaseManager(SetReleaseCategory(cat)))},
-    list{text(label)},
-  )
-}
-
-/// Render overview — version, channel, recent releases.
-let renderOverview = (state: releaseManagerState): Tea_Vdom.t<msg> => {
-  let channelCls = ReleaseManagerEngine.channelColour(state.channel)
-  div(
-    list{Attrs.class_("space-y-4")},
-    list{
-      // Version card
-      div(
-        list{Attrs.class_("p-4 bg-gray-800 rounded border border-gray-700")},
-        list{
-          div(
-            list{Attrs.class_("grid grid-cols-3 gap-4")},
-            list{
-              div(
-                list{},
-                list{
-                  div(
-                    list{Attrs.class_("text-xs text-gray-500 mb-1")},
-                    list{text("Current Version")},
-                  ),
-                  div(
-                    list{Attrs.class_("text-2xl font-light text-gray-100 font-mono")},
-                    list{text(state.currentVersion)},
-                  ),
-                },
-              ),
-              div(
-                list{},
-                list{
-                  div(list{Attrs.class_("text-xs text-gray-500 mb-1")}, list{text("Next Version")}),
-                  div(
-                    list{Attrs.class_("text-2xl font-light text-cyan-400 font-mono")},
-                    list{text(state.nextVersion)},
-                  ),
-                },
-              ),
-              div(
-                list{},
-                list{
-                  div(list{Attrs.class_("text-xs text-gray-500 mb-1")}, list{text("Channel")}),
-                  div(
-                    list{Attrs.class_(`text-2xl font-light ${channelCls}`)},
-                    list{text(ReleaseManagerEngine.channelLabel(state.channel))},
-                  ),
-                },
-              ),
-            },
-          ),
-          // Version bump buttons
-          div(
-            list{Attrs.class_("flex items-center gap-2 mt-4")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1.5 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer",
-                  ),
-                  Events.onClick(ReleaseManager(BumpVersion("patch"))),
-                },
-                list{text("Patch")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1.5 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer",
-                  ),
-                  Events.onClick(ReleaseManager(BumpVersion("minor"))),
-                },
-                list{text("Minor")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1.5 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer",
-                  ),
-                  Events.onClick(ReleaseManager(BumpVersion("major"))),
-                },
-                list{text("Major")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Recent releases
-      if Array.length(state.releases) > 0 {
-        div(
-          list{Attrs.class_("space-y-2")},
-          list{
-            div(list{Attrs.class_("text-xs text-gray-400")}, list{text("Recent Releases")}),
-            ...state.releases
-            ->Array.map(rel => {
-              let statusCls = ReleaseManagerEngine.statusColour(rel.status)
-              let chCls = ReleaseManagerEngine.channelColour(rel.channel)
-              div(
-                list{
-                  Attrs.class_(
-                    "flex items-center gap-3 p-3 bg-gray-800 rounded border border-gray-700 cursor-pointer hover:border-gray-500",
-                  ),
-                  Events.onClick(ReleaseManager(SelectRelease(rel.version))),
-                },
-                list{
-                  span(
-                    list{Attrs.class_("text-sm font-mono text-gray-100")},
-                    list{text(rel.version)},
-                  ),
-                  span(
-                    list{Attrs.class_(`text-xs ${chCls}`)},
-                    list{text(ReleaseManagerEngine.channelLabel(rel.channel))},
-                  ),
-                  span(
-                    list{Attrs.class_(`text-xs ${statusCls}`)},
-                    list{text(ReleaseManagerEngine.statusLabel(rel.status))},
-                  ),
-                  span(
-                    list{Attrs.class_("text-xs text-gray-500 ml-auto")},
-                    list{text(`${Int.toString(Array.length(rel.artifacts))} artifacts`)},
-                  ),
-                },
-              )
-            })
-            ->List.fromArray,
-          },
-        )
-      } else {
-        div(
-          list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-          list{text("No releases yet")},
-        )
-      },
-    },
-  )
-}
-
-/// Render changelog view.
-let renderChangelog = (state: releaseManagerState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-xs bg-cyan-700 text-white rounded hover:bg-cyan-600 cursor-pointer",
-              ),
-              Events.onClick(ReleaseManager(GenerateChangelog)),
-              KeyboardNav.onActivate(ReleaseManager(GenerateChangelog)),
-            },
-            list{text("Generate from Git")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                if state.autoChangelog {
-                  "px-3 py-1.5 text-xs bg-emerald-700 text-white rounded"
-                } else {
-                  "px-3 py-1.5 text-xs bg-gray-700 text-gray-300 rounded cursor-pointer"
-                },
-              ),
-              Events.onClick(ReleaseManager(ToggleAutoChangelog)),
-              KeyboardNav.onActivate(ReleaseManager(ToggleAutoChangelog)),
-            },
-            list{text("Auto-Generate")},
-          ),
-        },
-      ),
-      if Array.length(state.pendingChangelog) === 0 {
-        div(
-          list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-          list{
-            text(
-              "No pending changelog entries — click 'Generate from Git' to create from commit history",
-            ),
-          },
-        )
-      } else {
-        div(
-          list{Attrs.class_("space-y-1")},
-          state.pendingChangelog
-          ->Array.map(entry =>
-            div(
-              list{Attrs.class_("p-2 bg-gray-800 rounded text-xs")},
-              list{
-                div(
-                  list{Attrs.class_("flex items-center gap-2 mb-1")},
-                  list{
-                    span(
-                      list{Attrs.class_("text-cyan-400 font-mono")},
-                      list{text(entry.commitHash)},
-                    ),
-                    span(list{Attrs.class_("text-gray-500")}, list{text(entry.category)}),
-                    span(list{Attrs.class_("text-gray-600")}, list{text(entry.date)}),
-                  },
-                ),
-                div(list{Attrs.class_("text-gray-300")}, list{text(entry.description)}),
-              },
-            )
-          )
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render artifacts view.
-let renderArtifacts = (state: releaseManagerState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      // Platform toggles
-      div(
-        list{Attrs.class_("flex items-center gap-1 flex-wrap")},
-        list{
-          span(list{Attrs.class_("text-xs text-gray-400 mr-2")}, list{text("Platforms:")}),
-          ...ReleaseManagerEngine.allPlatforms
-          ->Array.map(platform => {
-            let isEnabled = state.enabledPlatforms->Array.includes(platform)
-            button(
-              list{
-                Attrs.class_(
-                  if isEnabled {
-                    "px-2 py-1 text-xs bg-cyan-700 text-white rounded"
-                  } else {
-                    "px-2 py-1 text-xs bg-gray-700 text-gray-400 rounded cursor-pointer"
-                  },
-                ),
-                Events.onClick(ReleaseManager(TogglePlatform(platform))),
-              },
-              list{text(ReleaseManagerEngine.platformLabel(platform))},
-            )
-          })
-          ->List.fromArray,
-        },
-      ),
-      // Build button
-      button(
-        list{
-          Attrs.class_(
-            "px-4 py-2 text-sm bg-purple-700 text-white rounded hover:bg-purple-600 cursor-pointer",
-          ),
-          Events.onClick(ReleaseManager(BuildArtifacts)),
-          KeyboardNav.onActivate(ReleaseManager(BuildArtifacts)),
-        },
-        list{text("Build Artifacts")},
-      ),
-      // Existing artifacts
-      if Array.length(state.artifacts) === 0 {
-        div(
-          list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-          list{text("No artifacts built yet")},
-        )
-      } else {
-        div(
-          list{Attrs.class_("space-y-1")},
-          state.artifacts
-          ->Array.map(art =>
-            div(
-              list{Attrs.class_("flex items-center gap-3 p-2 bg-gray-800 rounded text-xs")},
-              list{
-                span(list{Attrs.class_("text-gray-200 flex-1")}, list{text(art.name)}),
-                span(
-                  list{Attrs.class_("text-gray-500")},
-                  list{text(ReleaseManagerEngine.platformLabel(art.platform))},
-                ),
-                span(
-                  list{Attrs.class_("text-gray-400 font-mono")},
-                  list{text(ReleaseManagerEngine.formatSize(art.sizeBytes))},
-                ),
-                span(
-                  list{Attrs.class_("text-gray-600 font-mono truncate w-24")},
-                  list{text(art.checksum)},
-                ),
-              },
-            )
-          )
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render distribution view.
-let renderDistribution = (state: releaseManagerState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-4")},
-    list{
-      // Publish controls
-      div(
-        list{Attrs.class_("p-4 bg-gray-800 rounded border border-gray-700")},
-        list{
-          div(list{Attrs.class_("text-sm text-gray-200 mb-3")}, list{text("Publish Release")}),
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              span(
-                list{Attrs.class_("text-lg font-mono text-gray-100")},
-                list{text(state.nextVersion)},
-              ),
-              span(
-                list{Attrs.class_(`text-sm ${ReleaseManagerEngine.channelColour(state.channel)}`)},
-                list{text(ReleaseManagerEngine.channelLabel(state.channel))},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-4 py-2 text-sm bg-emerald-700 text-white rounded hover:bg-emerald-600 cursor-pointer",
-                  ),
-                  Events.onClick(ReleaseManager(PublishRelease)),
-                  KeyboardNav.onActivate(ReleaseManager(PublishRelease)),
-                },
-                list{text("Publish")},
-              ),
-            },
-          ),
-          // Sign toggle
-          div(
-            list{Attrs.class_("flex items-center gap-2 mt-3")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    if state.signArtifacts {
-                      "px-2 py-1 text-xs bg-emerald-700 text-white rounded"
-                    } else {
-                      "px-2 py-1 text-xs bg-gray-700 text-gray-400 rounded cursor-pointer"
-                    },
-                  ),
-                  Events.onClick(ReleaseManager(ToggleSignArtifacts)),
-                  KeyboardNav.onActivate(ReleaseManager(ToggleSignArtifacts)),
-                },
-                list{
-                  text(
-                    if state.signArtifacts {
-                      "Signing: On"
-                    } else {
-                      "Signing: Off"
-                    },
-                  ),
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Channel selector
-      div(
-        list{Attrs.class_("flex items-center gap-1")},
-        list{
-          span(list{Attrs.class_("text-xs text-gray-400 mr-2")}, list{text("Channel:")}),
-          ...[ChannelDev, ChannelAlpha, ChannelBeta, ChannelRC, ChannelStable]
-          ->Array.map(ch => {
-            let isActive = state.channel === ch
-            let chCls = ReleaseManagerEngine.channelColour(ch)
-            button(
-              list{
-                Attrs.class_(
-                  if isActive {
-                    `px-2 py-1 text-xs bg-gray-600 ${chCls} rounded`
-                  } else {
-                    "px-2 py-1 text-xs bg-gray-800 text-gray-500 rounded cursor-pointer hover:text-gray-300"
-                  },
-                ),
-                Events.onClick(ReleaseManager(SetChannel(ch))),
-              },
-              list{text(ReleaseManagerEngine.channelLabel(ch))},
-            )
-          })
-          ->List.fromArray,
-        },
-      ),
-    },
-  )
-}
-
-/// Main view function.
-let view = (state: releaseManagerState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Release Manager panel"),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              span(
-                list{Attrs.class_("text-lg font-semibold text-gray-100")},
-                list{text("Release Manager")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-500 font-mono")},
-                list{text(state.currentVersion)},
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer",
-              ),
-              Events.onClick(ReleaseManager(LoadReleases)),
-              KeyboardNav.onActivate(ReleaseManager(LoadReleases)),
-            },
-            list{text("Refresh")},
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("flex items-center gap-1 px-4 py-2 border-b border-gray-800")},
-        list{
-          renderTab("Overview", ReleaseOverview, state.activeCategory),
-          renderTab("Changelog", ReleaseChangelog, state.activeCategory),
-          renderTab("Artifacts", ReleaseArtifacts, state.activeCategory),
-          renderTab("Distribution", ReleaseDistribution, state.activeCategory),
-        },
-      ),
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 p-2 bg-red-900/50 border border-red-700 rounded text-xs text-red-300",
-            ),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      div(
-        list{Attrs.class_("flex-1 overflow-auto p-4")},
-        list{
-          switch state.activeCategory {
-          | ReleaseOverview => renderOverview(state)
-          | ReleaseChangelog => renderChangelog(state)
-          | ReleaseArtifacts => renderArtifacts(state)
-          | ReleaseDistribution => renderDistribution(state)
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/RepoLoader.affine b/src/components/RepoLoader.affine
new file mode 100644
index 00000000..adbc770a
--- /dev/null
+++ b/src/components/RepoLoader.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module RepoLoader;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/RepoLoader.res b/src/components/RepoLoader.res
deleted file mode 100644
index 11eb7ad3..00000000
--- a/src/components/RepoLoader.res
+++ /dev/null
@@ -1,520 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Repo Loader Component — Repository scanner and panel configuration wizard.
-///
-/// Three views:
-///   1. Browse: Directory picker + farm search to select a repo
-///   2. Configure: Panel suggestion cards with enable/disable toggles
-///   3. Recent: Quick-switch list of recently loaded repos
-///
-/// When a repo is loaded, its manifests are scanned and the AI panel is given
-/// full context about the project. Panel configs save to PANELS.a2ml.
-
-open Model
-open Msg
-open Tea.Html
-
-// ===========================================================================
-// Category tab bar
-// ===========================================================================
-
-/// Render a single category tab.
-let renderCategoryTab = (cat: repoLoaderCategory, isActive: bool): Tea_Vdom.t<msg> => {
-  button(
-    list{
-      Attrs.class_(
-        `px-4 py-2 text-sm transition-colors ${isActive
-            ? "text-gray-100 border-b-2 border-blue-500"
-            : "text-gray-500 hover:text-gray-300"}`,
-      ),
-      Events.onClick(RepoLoader(SetRepoCategory(cat))),
-    },
-    list{text(RepoLoaderEngine.categoryLabel(cat))},
-  )
-}
-
-/// Render the category tab bar.
-let renderCategoryTabBar = (activeCategory: repoLoaderCategory): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex border-b border-gray-800")},
-    RepoLoaderEngine.allCategories
-    ->Array.map(cat => renderCategoryTab(cat, cat === activeCategory))
-    ->List.fromArray,
-  )
-}
-
-// ===========================================================================
-// Browse view
-// ===========================================================================
-
-/// Render the repo browse/picker view.
-let renderBrowse = (rl: repoLoaderState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 overflow-y-auto p-6")},
-    list{
-      // Directory picker
-      div(
-        list{Attrs.class_("mb-8")},
-        list{
-          div(
-            list{Attrs.class_("text-lg font-light text-gray-300 mb-4")},
-            list{text("Open Repository")},
-          ),
-          div(
-            list{Attrs.class_("flex gap-3")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-6 py-3 bg-blue-600 hover:bg-blue-500 text-white rounded-lg text-sm font-medium transition-colors",
-                  ),
-                  Events.onClick(RepoLoader(PickRepoDirectory)),
-                  KeyboardNav.onActivate(RepoLoader(PickRepoDirectory)),
-                },
-                list{text("Pick Directory")},
-              ),
-              {
-                if rl.scanning {
-                  div(
-                    list{Attrs.class_("flex items-center text-sm text-gray-500 animate-pulse")},
-                    list{text("Scanning...")},
-                  )
-                } else {
-                  noNode
-                }
-              },
-            },
-          ),
-        },
-      ),
-      // Quick path input
-      div(
-        list{Attrs.class_("mb-8")},
-        list{
-          div(
-            list{Attrs.class_("text-sm text-gray-400 mb-2")},
-            list{text("Or enter a path directly:")},
-          ),
-          div(
-            list{Attrs.class_("flex gap-2")},
-            list{
-              input(
-                list{
-                  Attrs.class_(
-                    "flex-1 bg-gray-900 border border-gray-700 rounded-lg px-4 py-2 text-sm text-gray-200 placeholder-gray-600 focus:outline-none focus:border-blue-500",
-                  ),
-                  Attrs.placeholder("/path/to/repos/..."),
-                  Attrs.value(rl.searchText),
-                  Events.onInput(text => RepoLoader(SetRepoSearchText(text))),
-                  KeyboardUtil.onEnterOrSpace(RepoLoader(ScanRepo(rl.searchText))),
-                },
-                list{},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-4 py-2 bg-gray-800 text-gray-300 rounded-lg hover:bg-gray-700 transition-colors text-sm",
-                  ),
-                  Attrs.disabled(rl.searchText === ""),
-                  Events.onClick(RepoLoader(ScanRepo(rl.searchText))),
-                },
-                list{text("Scan")},
-              ),
-            },
-          ),
-        },
-      ),
-      {
-        switch rl.currentRepo {
-        | Some(repo) =>
-          div(
-            list{Attrs.class_("border border-gray-700 rounded-lg p-4")},
-            list{
-              div(
-                list{Attrs.class_("text-lg font-medium text-gray-200 mb-2")},
-                list{text(repo.name)},
-              ),
-              {
-                if repo.description !== "" {
-                  div(
-                    list{Attrs.class_("text-sm text-gray-400 mb-3")},
-                    list{text(repo.description)},
-                  )
-                } else {
-                  noNode
-                }
-              },
-              div(list{Attrs.class_("text-xs text-gray-500 mb-2")}, list{text(repo.path)}),
-              {
-                if Array.length(repo.languages) > 0 {
-                  div(
-                    list{Attrs.class_("flex gap-1 flex-wrap mb-2")},
-                    repo.languages
-                    ->Array.map(lang =>
-                      span(
-                        list{
-                          Attrs.class_("text-xs px-2 py-0.5 rounded bg-blue-500/20 text-blue-300"),
-                        },
-                        list{text(lang)},
-                      )
-                    )
-                    ->List.fromArray,
-                  )
-                } else {
-                  noNode
-                }
-              },
-              // Status badges
-              div(
-                list{Attrs.class_("flex gap-2 text-xs")},
-                list{
-                  span(
-                    list{
-                      Attrs.class_(
-                        `px-2 py-0.5 rounded ${repo.hasAiManifest
-                            ? "bg-green-500/20 text-green-300"
-                            : "bg-gray-700 text-gray-500"}`,
-                      ),
-                    },
-                    list{text("AI Manifest")},
-                  ),
-                  span(
-                    list{
-                      Attrs.class_(
-                        `px-2 py-0.5 rounded ${repo.hasMachineReadable
-                            ? "bg-green-500/20 text-green-300"
-                            : "bg-gray-700 text-gray-500"}`,
-                      ),
-                    },
-                    list{text(".machine_readable/")},
-                  ),
-                  span(
-                    list{
-                      Attrs.class_(
-                        `px-2 py-0.5 rounded ${repo.hasPanelsManifest
-                            ? "bg-green-500/20 text-green-300"
-                            : "bg-gray-700 text-gray-500"}`,
-                      ),
-                    },
-                    list{text("PANELS.a2ml")},
-                  ),
-                  span(
-                    list{
-                      Attrs.class_(
-                        `px-2 py-0.5 rounded ${repo.hasState
-                            ? "bg-green-500/20 text-green-300"
-                            : "bg-gray-700 text-gray-500"}`,
-                      ),
-                    },
-                    list{text("STATE.scm")},
-                  ),
-                },
-              ),
-            },
-          )
-        | None =>
-          div(
-            list{Attrs.class_("text-center text-gray-600 mt-12")},
-            list{
-              div(list{Attrs.class_("text-2xl mb-4")}, list{text("No Repository Loaded")}),
-              div(
-                list{Attrs.class_("text-sm")},
-                list{text("Pick a directory or enter a path to scan a repository.")},
-              ),
-            },
-          )
-        }
-      },
-      {
-        switch rl.error {
-        | Some(e) =>
-          div(
-            list{
-              Attrs.class_(
-                "mt-4 px-3 py-2 bg-red-900/30 border border-red-700 rounded text-sm text-red-300",
-              ),
-            },
-            list{text(e)},
-          )
-        | None => noNode
-        }
-      },
-    },
-  )
-}
-
-// ===========================================================================
-// Configure view
-// ===========================================================================
-
-/// Render a single panel suggestion card with toggle.
-let renderSuggestionCard = (suggestion: panelSuggestion): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_(
-        `border ${suggestion.enabled
-            ? "border-gray-700"
-            : "border-gray-800"} rounded-lg p-4 transition-colors`,
-      ),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-2")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              div(
-                list{Attrs.class_("text-sm font-medium text-gray-200")},
-                list{text(suggestion.panelName)},
-              ),
-              span(
-                list{
-                  Attrs.class_(
-                    `text-xs px-2 py-0.5 rounded ${RepoLoaderEngine.priorityColour(
-                        suggestion.priority,
-                      )}`,
-                  ),
-                },
-                list{text(suggestion.priority)},
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_(
-                `px-3 py-1 rounded text-sm transition-colors ${suggestion.enabled
-                    ? "bg-green-500/20 text-green-300 hover:bg-green-500/30"
-                    : "bg-gray-700 text-gray-400 hover:bg-gray-600"}`,
-              ),
-              Events.onClick(RepoLoader(ToggleSuggestion(suggestion.panelName))),
-            },
-            list{text(suggestion.enabled ? "Enabled" : "Disabled")},
-          ),
-        },
-      ),
-      div(list{Attrs.class_("text-xs text-gray-500")}, list{text(suggestion.reason)}),
-    },
-  )
-}
-
-/// Render the panel configuration wizard.
-let renderConfigure = (rl: repoLoaderState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 overflow-y-auto p-6")},
-    list{
-      {
-        if Array.length(rl.suggestions) > 0 {
-          div(
-            list{},
-            list{
-              div(
-                list{Attrs.class_("flex items-center justify-between mb-4")},
-                list{
-                  div(
-                    list{Attrs.class_("text-lg font-light text-gray-300")},
-                    list{
-                      text(
-                        `Panel Configuration (${Int.toString(
-                            RepoLoaderEngine.enabledCount(rl.suggestions),
-                          )} enabled)`,
-                      ),
-                    },
-                  ),
-                  div(
-                    list{Attrs.class_("flex gap-2")},
-                    list{
-                      button(
-                        list{
-                          Attrs.class_(
-                            "px-4 py-2 bg-blue-600 hover:bg-blue-500 text-white rounded-lg text-sm font-medium transition-colors disabled:opacity-50",
-                          ),
-                          Attrs.disabled(rl.saved),
-                          Events.onClick(RepoLoader(SavePanels)),
-                          KeyboardNav.onActivate(RepoLoader(SavePanels)),
-                        },
-                        list{text(rl.saved ? "Saved" : "Save to PANELS.a2ml")},
-                      ),
-                    },
-                  ),
-                },
-              ),
-              div(
-                list{Attrs.class_("space-y-3")},
-                rl.suggestions
-                ->Array.map(renderSuggestionCard)
-                ->List.fromArray,
-              ),
-            },
-          )
-        } else {
-          div(
-            list{Attrs.class_("text-center text-gray-600 mt-12")},
-            list{
-              div(list{Attrs.class_("text-lg mb-2")}, list{text("No panel suggestions")}),
-              div(
-                list{Attrs.class_("text-sm")},
-                list{text("Scan a repository first to get panel recommendations.")},
-              ),
-            },
-          )
-        }
-      },
-    },
-  )
-}
-
-// ===========================================================================
-// Recent view
-// ===========================================================================
-
-/// Render the recent repos list.
-let renderRecent = (rl: repoLoaderState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 overflow-y-auto p-6")},
-    list{
-      div(
-        list{Attrs.class_("text-lg font-light text-gray-300 mb-4")},
-        list{text("Recent Repositories")},
-      ),
-      {
-        if Array.length(rl.recentPaths) > 0 {
-          div(
-            list{Attrs.class_("space-y-2")},
-            rl.recentPaths
-            ->Array.map(path => {
-              let name = switch String.split(path, "/")->Array.at(-1) {
-              | Some(n) => n
-              | None => path
-              }
-              button(
-                list{
-                  Attrs.class_(
-                    "w-full text-left px-4 py-3 border border-gray-800 rounded-lg hover:border-gray-600 transition-colors",
-                  ),
-                  Events.onClick(RepoLoader(ScanRepo(path))),
-                },
-                list{
-                  div(list{Attrs.class_("text-sm font-medium text-gray-200")}, list{text(name)}),
-                  div(list{Attrs.class_("text-xs text-gray-500 mt-1")}, list{text(path)}),
-                },
-              )
-            })
-            ->List.fromArray,
-          )
-        } else {
-          div(
-            list{Attrs.class_("text-center text-gray-600 mt-12")},
-            list{div(list{Attrs.class_("text-sm")}, list{text("No recently loaded repos.")})},
-          )
-        }
-      },
-    },
-  )
-}
-
-// ===========================================================================
-// Farm search view
-// ===========================================================================
-
-/// Render the farm search interface.
-let renderFarmSearch = (rl: repoLoaderState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 overflow-y-auto p-6")},
-    list{
-      div(
-        list{Attrs.class_("text-lg font-light text-gray-300 mb-4")},
-        list{text("Search Git-Private-Farm")},
-      ),
-      div(
-        list{Attrs.class_("flex gap-2 mb-4")},
-        list{
-          input(
-            list{
-              Attrs.class_(
-                "flex-1 bg-gray-900 border border-gray-700 rounded-lg px-4 py-2 text-sm text-gray-200 placeholder-gray-600 focus:outline-none focus:border-blue-500",
-              ),
-              Attrs.placeholder("Search by name or description..."),
-              Attrs.value(rl.searchText),
-              Events.onInput(text => RepoLoader(SetRepoSearchText(text))),
-              KeyboardUtil.onEnterOrSpace(RepoLoader(SearchFarm(rl.searchText))),
-            },
-            list{},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-4 py-2 bg-gray-800 text-gray-300 rounded-lg hover:bg-gray-700 transition-colors text-sm",
-              ),
-              Attrs.disabled(rl.searchText === ""),
-              Events.onClick(RepoLoader(SearchFarm(rl.searchText))),
-            },
-            list{text("Search")},
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("text-xs text-gray-600")},
-        list{text("Searches the farm-manifest.json for matching repos.")},
-      ),
-    },
-  )
-}
-
-// ===========================================================================
-// Main view (full panel overlay)
-// ===========================================================================
-
-/// Render the full Repo Loader panel overlay.
-let view = (rl: repoLoaderState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col")},
-    list{
-      // Header bar
-      div(
-        list{Attrs.class_("flex items-center justify-between px-6 py-3 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              div(
-                list{Attrs.class_("text-lg font-light text-gray-200")},
-                list{text("Repo Loader")},
-              ),
-              {
-                switch rl.currentRepo {
-                | Some(repo) =>
-                  span(
-                    list{Attrs.class_("text-xs px-2 py-0.5 rounded bg-blue-500/20 text-blue-300")},
-                    list{text(repo.name)},
-                  )
-                | None => noNode
-                }
-              },
-            },
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-4 py-2 bg-gray-800 text-gray-300 rounded hover:bg-gray-700 transition-colors",
-              ),
-              Events.onClick(PanelSwitcher(ClosePanels)),
-              KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-            },
-            list{text("Close")},
-          ),
-        },
-      ),
-      // Category tabs
-      renderCategoryTabBar(rl.activeCategory),
-      {
-        switch rl.activeCategory {
-        | Browse => renderBrowse(rl)
-        | Configure => renderConfigure(rl)
-        | Recent => renderRecent(rl)
-        | FarmSearch => renderFarmSearch(rl)
-        }
-      },
-    },
-  )
-}
diff --git a/src/components/Reposystem.affine b/src/components/Reposystem.affine
new file mode 100644
index 00000000..b775d0b9
--- /dev/null
+++ b/src/components/Reposystem.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Reposystem;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Reposystem.res b/src/components/Reposystem.res
deleted file mode 100644
index 91ecdf3d..00000000
--- a/src/components/Reposystem.res
+++ /dev/null
@@ -1,616 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Reposystem Component — RSR compliance dashboard.
-///
-/// Renders compliance rates per requirement (the "known audit" data:
-/// .editorconfig 96.9%, STATE.scm 94.3%, AI manifest 34.7%, Justfile 28.3%,
-/// TOPOLOGY.md 1.5%), per-repo audit tables, and language policy status.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a compliance rate bar for a single RSR requirement.
-let renderRequirementBar = (req: rsrRequirement, rate: float, count: int, total: int): Tea_Vdom.t<
-  msg,
-> => {
-  let label = ReposystemEngine.requirementLabel(req)
-  let pct = Float.toFixed(rate *. 100.0, ~digits=1)
-  let barColor = if rate > 0.9 {
-    "bg-green-500"
-  } else if rate > 0.5 {
-    "bg-amber-500"
-  } else {
-    "bg-red-500"
-  }
-
-  div(
-    list{
-      Attrs.class_("flex items-center gap-3 mb-2"),
-      Attrs.role("meter"),
-      Attrs.ariaLabel(`${label}: ${pct}% compliance`),
-    },
-    list{
-      div(list{Attrs.class_("w-36 text-sm text-gray-300 text-right")}, list{text(label)}),
-      div(
-        list{Attrs.class_("flex-1 bg-gray-800 rounded-full h-3")},
-        list{
-          div(
-            list{
-              Attrs.class_(`${barColor} h-full rounded-full transition-all`),
-              Attrs.prop("style", `width: ${pct}%`),
-            },
-            list{},
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("w-20 text-xs text-gray-400 text-right")},
-        list{text(`${Int.toString(count)}/${Int.toString(total)}`)},
-      ),
-      div(list{Attrs.class_("w-14 text-xs text-gray-500 text-right")}, list{text(`${pct}%`)}),
-    },
-  )
-}
-
-/// Render a repo compliance row.
-let renderRepoRow = (audit: repoCompliance): Tea_Vdom.t<msg> => {
-  let scorePct = Float.toFixed(audit.score *. 100.0, ~digits=0)
-  let scoreColor = if audit.score >= 1.0 {
-    "text-green-400"
-  } else if audit.score > 0.6 {
-    "text-amber-400"
-  } else {
-    "text-red-400"
-  }
-
-  div(
-    list{
-      Attrs.class_("flex items-center gap-4 p-2 border-b border-gray-800 hover:bg-gray-900/50"),
-      Attrs.role("row"),
-    },
-    list{
-      span(
-        list{Attrs.class_(`text-sm font-mono ${scoreColor} w-12 text-right`)},
-        list{text(`${scorePct}%`)},
-      ),
-      span(list{Attrs.class_("text-sm text-gray-300 flex-1 truncate")}, list{text(audit.repoName)}),
-      span(
-        list{Attrs.class_("text-xs text-gray-500 w-24 text-right")},
-        list{text(`${Int.toString(audit.metCount)}/${Int.toString(audit.totalCount)}`)},
-      ),
-    },
-  )
-}
-
-/// Render category tabs.
-let renderTabs = (active: reposystemCategory): Tea_Vdom.t<msg> => {
-  let tabs: array<reposystemCategory> = [
-    RsrDashboard,
-    RsrRepoList,
-    RsrRequirements,
-    RsrLanguagePolicy,
-  ]
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 mb-4"), Attrs.role("tablist")},
-    tabs
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-4 py-2 text-sm rounded-t transition-colors ${isActive
-                ? "bg-gray-800 text-gray-200 border-b-2 border-cyan-500"
-                : "text-gray-500 hover:text-gray-300"}`,
-          ),
-          Attrs.role("tab"),
-          Attrs.ariaSelected(isActive),
-          Events.onClick(Reposystem(SetRsrCategory(tab))),
-        },
-        list{text(ReposystemEngine.categoryLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Main view for the Reposystem panel.
-let view = (rsr: reposystemState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Reposystem RSR compliance panel"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between p-4 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(list{Attrs.class_("text-lg font-medium text-gray-200")}, list{text("Reposystem")}),
-              span(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{text("RSR compliance across 265+ repos")},
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-xs bg-cyan-600 text-white rounded hover:bg-cyan-500",
-                  ),
-                  Events.onClick(Reposystem(ScanAll)),
-                  KeyboardNav.onActivate(Reposystem(ScanAll)),
-                },
-                list{text("Scan All")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-sm bg-gray-800 text-gray-300 rounded hover:bg-gray-700",
-                  ),
-                  Events.onClick(PanelSwitcher(ClosePanels)),
-                  KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-                },
-                list{text("Close")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Content
-      div(
-        list{Attrs.class_("flex-1 overflow-auto p-6")},
-        list{
-          if rsr.loading {
-            div(
-              list{Attrs.class_("text-gray-400"), Attrs.role("status")},
-              list{text("Scanning repositories...")},
-            )
-          } else if !rsr.loaded {
-            div(
-              list{Attrs.class_("text-center text-gray-500 mt-12")},
-              list{
-                div(list{Attrs.class_("text-4xl mb-2")}, list{text("Reposystem")}),
-                div(
-                  list{Attrs.class_("text-sm mb-6")},
-                  list{text("Rhodium Standard Repository compliance auditing")},
-                ),
-                button(
-                  list{
-                    Attrs.class_("px-4 py-2 bg-cyan-600 text-white rounded hover:bg-cyan-500"),
-                    Events.onClick(Reposystem(ScanAll)),
-                    KeyboardNav.onActivate(Reposystem(ScanAll)),
-                  },
-                  list{text("Run Compliance Scan")},
-                ),
-              },
-            )
-          } else {
-            div(
-              list{Attrs.class_("space-y-4")},
-              list{
-                renderTabs(rsr.activeCategory),
-                switch rsr.activeCategory {
-                | RsrDashboard =>
-                  switch rsr.stats {
-                  | Some(stats) =>
-                    div(
-                      list{Attrs.class_("space-y-6")},
-                      list{
-                        // Summary
-                        div(
-                          list{Attrs.class_("flex gap-6 text-sm")},
-                          list{
-                            div(
-                              list{Attrs.class_("text-gray-400")},
-                              list{text(`${Int.toString(stats.totalRepos)} repos audited`)},
-                            ),
-                            div(
-                              list{Attrs.class_("text-gray-400")},
-                              list{
-                                text(
-                                  `${Float.toFixed(
-                                      stats.avgScore *. 100.0,
-                                      ~digits=1,
-                                    )}% avg compliance`,
-                                ),
-                              },
-                            ),
-                            div(
-                              list{Attrs.class_("text-green-400")},
-                              list{text(`${Int.toString(stats.fullyCompliant)} fully compliant`)},
-                            ),
-                          },
-                        ),
-                        // Requirement bars
-                        div(
-                          list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-4")},
-                          list{
-                            div(
-                              list{Attrs.class_("text-sm font-medium text-gray-300 mb-4")},
-                              list{text("Per-Requirement Compliance")},
-                            ),
-                            div(
-                              list{},
-                              stats.requirementRates
-                              ->Array.map(((req, rate, count)) =>
-                                renderRequirementBar(req, rate, count, stats.totalRepos)
-                              )
-                              ->List.fromArray,
-                            ),
-                          },
-                        ),
-                      },
-                    )
-                  | None =>
-                    div(list{Attrs.class_("text-gray-500")}, list{text("No stats available")})
-                  }
-                | RsrRepoList => {
-                    let filtered = ReposystemEngine.filterAudits(rsr.audits, rsr.filterText)
-                    div(
-                      list{Attrs.class_("space-y-4")},
-                      list{
-                        input(
-                          list{
-                            Attrs.class_(
-                              "w-full bg-gray-900 border border-gray-700 rounded px-3 py-2 text-sm text-gray-200 placeholder-gray-600",
-                            ),
-                            Attrs.placeholder("Filter repos..."),
-                            Attrs.value(rsr.filterText),
-                            Events.onInput(v => Reposystem(SetRsrFilter(v))),
-                          },
-                          list{},
-                        ),
-                        div(
-                          list{Attrs.class_("border border-gray-700 rounded-lg overflow-hidden")},
-                          list{
-                            div(
-                              list{Attrs.class_("max-h-96 overflow-y-auto")},
-                              filtered->Array.map(a => renderRepoRow(a))->List.fromArray,
-                            ),
-                          },
-                        ),
-                      },
-                    )
-                  }
-                | RsrRequirements =>
-                  div(
-                    list{Attrs.class_("flex gap-4")},
-                    list{
-                      // Requirement list (left)
-                      div(
-                        list{Attrs.class_("w-64 space-y-1"), Attrs.role("list")},
-                        ReposystemEngine.allRequirements
-                        ->Array.map(req => {
-                          let label = ReposystemEngine.requirementLabel(req)
-                          let rate = ReposystemEngine.requirementRate(rsr.audits, req)
-                          let pct = Float.toFixed(rate *. 100.0, ~digits=1)
-                          let isSelected = rsr.selectedRequirement === Some(req)
-                          let rateColor = if rate > 0.9 {
-                            "text-green-400"
-                          } else if rate > 0.5 {
-                            "text-amber-400"
-                          } else {
-                            "text-red-400"
-                          }
-                          button(
-                            list{
-                              Attrs.class_(
-                                `w-full text-left p-3 rounded transition-colors flex items-center justify-between ${isSelected
-                                    ? "bg-cyan-900/40 border border-cyan-700"
-                                    : "bg-gray-900 border border-gray-800 hover:bg-gray-800"}`,
-                              ),
-                              Events.onClick(Reposystem(SelectRequirement(Some(req)))),
-                              Attrs.role("listitem"),
-                            },
-                            list{
-                              span(list{Attrs.class_("text-sm text-gray-300")}, list{text(label)}),
-                              span(
-                                list{Attrs.class_(`text-xs font-mono ${rateColor}`)},
-                                list{text(`${pct}%`)},
-                              ),
-                            },
-                          )
-                        })
-                        ->List.fromArray,
-                      ),
-                      // Drill-down (right)
-                      div(
-                        list{Attrs.class_("flex-1")},
-                        list{
-                          switch rsr.selectedRequirement {
-                          | Some(req) => {
-                              let label = ReposystemEngine.requirementLabel(req)
-                              let failing = ReposystemEngine.reposFailingRequirement(
-                                rsr.audits,
-                                req,
-                              )
-                              let passing = ReposystemEngine.reposPassingRequirement(
-                                rsr.audits,
-                                req,
-                              )
-                              let total = Array.length(failing) + Array.length(passing)
-                              let rate = if total > 0 {
-                                Int.toFloat(Array.length(passing)) /. Int.toFloat(total) *. 100.0
-                              } else {
-                                0.0
-                              }
-                              div(
-                                list{Attrs.class_("space-y-4")},
-                                list{
-                                  // Header
-                                  div(
-                                    list{Attrs.class_("flex items-center justify-between")},
-                                    list{
-                                      div(
-                                        list{Attrs.class_("space-y-1")},
-                                        list{
-                                          div(
-                                            list{Attrs.class_("text-sm font-medium text-gray-200")},
-                                            list{text(label)},
-                                          ),
-                                          div(
-                                            list{Attrs.class_("text-xs text-gray-500")},
-                                            list{
-                                              text(
-                                                `${Int.toString(
-                                                    Array.length(passing),
-                                                  )} passing, ${Int.toString(
-                                                    Array.length(failing),
-                                                  )} failing out of ${Int.toString(total)}`,
-                                              ),
-                                            },
-                                          ),
-                                        },
-                                      ),
-                                      div(
-                                        list{
-                                          Attrs.class_(
-                                            `text-lg font-mono ${rate > 90.0
-                                                ? "text-green-400"
-                                                : rate > 50.0
-                                                ? "text-amber-400"
-                                                : "text-red-400"}`,
-                                          ),
-                                        },
-                                        list{text(`${Float.toFixed(rate, ~digits=1)}%`)},
-                                      ),
-                                    },
-                                  ),
-                                  // Compliance bar
-                                  div(
-                                    list{Attrs.class_("w-full bg-gray-800 rounded-full h-3")},
-                                    list{
-                                      div(
-                                        list{
-                                          Attrs.class_(
-                                            `h-full rounded-full transition-all ${rate > 90.0
-                                                ? "bg-green-500"
-                                                : rate > 50.0
-                                                ? "bg-amber-500"
-                                                : "bg-red-500"}`,
-                                          ),
-                                          Attrs.prop(
-                                            "style",
-                                            `width: ${Float.toFixed(rate, ~digits=0)}%`,
-                                          ),
-                                        },
-                                        list{},
-                                      ),
-                                    },
-                                  ),
-                                  // Failing repos list
-                                  if Array.length(failing) > 0 {
-                                    div(
-                                      list{Attrs.class_("space-y-1")},
-                                      list{
-                                        div(
-                                          list{
-                                            Attrs.class_(
-                                              "text-xs text-red-400 font-medium uppercase tracking-wider mb-2",
-                                            ),
-                                          },
-                                          list{text("Failing Repos")},
-                                        ),
-                                        div(
-                                          list{Attrs.class_("max-h-64 overflow-y-auto space-y-1")},
-                                          failing
-                                          ->Array.map(a =>
-                                            div(
-                                              list{
-                                                Attrs.class_(
-                                                  "flex items-center justify-between p-2 bg-red-900/20 border border-red-900/40 rounded text-sm",
-                                                ),
-                                              },
-                                              list{
-                                                span(
-                                                  list{Attrs.class_("text-gray-300 truncate")},
-                                                  list{text(a.repoName)},
-                                                ),
-                                                span(
-                                                  list{Attrs.class_("text-xs text-red-400")},
-                                                  list{text("FAIL")},
-                                                ),
-                                              },
-                                            )
-                                          )
-                                          ->List.fromArray,
-                                        ),
-                                      },
-                                    )
-                                  } else {
-                                    div(
-                                      list{
-                                        Attrs.class_(
-                                          "p-4 bg-green-900/20 border border-green-800 rounded text-center",
-                                        ),
-                                      },
-                                      list{
-                                        div(
-                                          list{Attrs.class_("text-green-400 text-sm")},
-                                          list{text("All repos pass this requirement")},
-                                        ),
-                                      },
-                                    )
-                                  },
-                                  // Passing repos (collapsed count)
-                                  if Array.length(passing) > 0 {
-                                    div(
-                                      list{Attrs.class_("text-xs text-gray-600")},
-                                      list{
-                                        text(
-                                          `${Int.toString(
-                                              Array.length(passing),
-                                            )} repos passing (not shown)`,
-                                        ),
-                                      },
-                                    )
-                                  } else {
-                                    noNode
-                                  },
-                                },
-                              )
-                            }
-                          | None =>
-                            div(
-                              list{
-                                Attrs.class_(
-                                  "flex items-center justify-center h-48 text-gray-600 text-sm",
-                                ),
-                              },
-                              list{text("Select a requirement to see which repos pass or fail")},
-                            )
-                          },
-                        },
-                      ),
-                    },
-                  )
-                | RsrLanguagePolicy =>
-                  div(
-                    list{Attrs.class_("space-y-4")},
-                    list{
-                      div(
-                        list{Attrs.class_("text-sm font-medium text-gray-300")},
-                        list{text("Language Policy Enforcement")},
-                      ),
-                      div(
-                        list{Attrs.class_("text-xs text-gray-500 mb-4")},
-                        list{
-                          text(
-                            "Banned languages: TypeScript, Node/npm/bun, Go, Python, Java/Kotlin",
-                          ),
-                        },
-                      ),
-                      // Policy violation categories
-                      div(
-                        list{Attrs.class_("grid grid-cols-2 gap-3")},
-                        list{
-                          div(
-                            list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-4")},
-                            list{
-                              div(
-                                list{Attrs.class_("text-xs text-red-400 font-medium mb-2")},
-                                list{text("TypeScript (.ts/.tsx)")},
-                              ),
-                              div(
-                                list{Attrs.class_("text-xs text-gray-400")},
-                                list{text("Replacement: ReScript")},
-                              ),
-                              div(
-                                list{Attrs.class_("text-xs text-gray-500 mt-1")},
-                                list{text("CI: ts-blocker.yml active")},
-                              ),
-                            },
-                          ),
-                          div(
-                            list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-4")},
-                            list{
-                              div(
-                                list{Attrs.class_("text-xs text-red-400 font-medium mb-2")},
-                                list{text("npm / Bun")},
-                              ),
-                              div(
-                                list{Attrs.class_("text-xs text-gray-400")},
-                                list{text("Replacement: Deno (first), Bun (fallback)")},
-                              ),
-                              div(
-                                list{Attrs.class_("text-xs text-gray-500 mt-1")},
-                                list{text("CI: npm-bun-blocker.yml active")},
-                              ),
-                            },
-                          ),
-                          div(
-                            list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-4")},
-                            list{
-                              div(
-                                list{Attrs.class_("text-xs text-amber-400 font-medium mb-2")},
-                                list{text("Go (.go)")},
-                              ),
-                              div(
-                                list{Attrs.class_("text-xs text-gray-400")},
-                                list{text("Replacement: Rust")},
-                              ),
-                              div(
-                                list{Attrs.class_("text-xs text-gray-500 mt-1")},
-                                list{text("Migration: long-term")},
-                              ),
-                            },
-                          ),
-                          div(
-                            list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-4")},
-                            list{
-                              div(
-                                list{Attrs.class_("text-xs text-amber-400 font-medium mb-2")},
-                                list{text("Python (.py)")},
-                              ),
-                              div(
-                                list{Attrs.class_("text-xs text-gray-400")},
-                                list{text("Replacement: Julia / Rust / ReScript")},
-                              ),
-                              div(
-                                list{Attrs.class_("text-xs text-gray-500 mt-1")},
-                                list{text("Migration: medium-term")},
-                              ),
-                            },
-                          ),
-                        },
-                      ),
-                      div(
-                        list{Attrs.class_("text-xs text-gray-600 mt-2")},
-                        list{
-                          text(
-                            "Allowed: ReScript, Deno, Rust, Gleam, Elixir, Bash, Julia, OCaml, Haskell, Ada, Nickel, Guile Scheme",
-                          ),
-                        },
-                      ),
-                    },
-                  )
-                },
-              },
-            )
-          },
-          switch rsr.error {
-          | Some(e) =>
-            div(
-              list{
-                Attrs.class_(
-                  "mt-4 p-3 bg-red-900/30 border border-red-700 rounded text-sm text-red-300",
-                ),
-                Attrs.role("alert"),
-              },
-              list{text(e)},
-            )
-          | None => noNode
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/ScriptGist.affine b/src/components/ScriptGist.affine
new file mode 100644
index 00000000..217f3e3f
--- /dev/null
+++ b/src/components/ScriptGist.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ScriptGist;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/ScriptGist.res b/src/components/ScriptGist.res
deleted file mode 100644
index b8b90d74..00000000
--- a/src/components/ScriptGist.res
+++ /dev/null
@@ -1,460 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Script Gist Component — portable computation gist browser and editor.
-///
-/// Minskian dual-axis design:
-///   - Diachronic (time): Scripts as temporal sequences with rollback checkpoints.
-///   - Synchronic (space): Schemata as spatial cardfiles — composable boards of gists.
-///
-/// Gists are saveable, shareable, LLM-callable (MCP tool schema), and user-runnable
-/// standalone. The editor supports code, schema definition, and template expansion.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a category tab button.
-let renderTab = (label: string, cat: gistCategory, active: gistCategory, count: int): Tea_Vdom.t<
-  msg,
-> => {
-  let isActive = cat === active
-  let cls = isActive
-    ? "px-3 py-1.5 text-xs font-medium bg-gray-700 text-white rounded"
-    : "px-3 py-1.5 text-xs text-gray-400 hover:text-gray-200 hover:bg-gray-800 rounded cursor-pointer"
-  button(
-    list{Attrs.class_(cls), Events.onClick(ScriptGist(SetGistCategory(cat)))},
-    list{text(label ++ " (" ++ Int.toString(count) ++ ")")},
-  )
-}
-
-/// Render a single gist row in the list.
-let renderGistRow = (gist: scriptGist, isSelected: bool): Tea_Vdom.t<msg> => {
-  let bgCls = isSelected
-    ? "bg-gray-700 border-cyan-500"
-    : "bg-gray-800/60 border-transparent hover:bg-gray-800"
-  div(
-    list{
-      Attrs.class_("p-3 rounded border " ++ bgCls ++ " cursor-pointer transition-colors"),
-      Events.onClick(ScriptGist(SelectGist(Some(gist.id)))),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-1")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              span(list{Attrs.class_("text-xs font-medium text-gray-200")}, list{text(gist.title)}),
-              span(
-                list{
-                  Attrs.class_(
-                    "text-[10px] px-1.5 py-0.5 rounded " ++
-                    ScriptGistEngine.languageColour(gist.language) ++ " bg-gray-900/60",
-                  ),
-                },
-                list{text(ScriptGistEngine.languageLabel(gist.language))},
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              if gist.pinned {
-                span(list{Attrs.class_("text-amber-400 text-[10px]")}, list{text("pinned")})
-              } else {
-                noNode
-              },
-              span(
-                list{Attrs.class_("text-[10px] text-gray-600")},
-                list{text("v" ++ Int.toString(gist.version))},
-              ),
-            },
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("flex items-center gap-3 text-[10px] text-gray-500")},
-        list{
-          span(list{}, list{text(ScriptGistEngine.targetLabel(gist.target))}),
-          span(list{}, list{text(ScriptGistEngine.visibilityLabel(gist.visibility))}),
-          span(list{}, list{text(gist.schema.toolName)}),
-          span(list{}, list{text(Int.toString(Array.length(gist.history)) ++ " runs")}),
-        },
-      ),
-    },
-  )
-}
-
-/// Render the gist editor panel (right side).
-let renderEditor = (state: scriptGistState): Tea_Vdom.t<msg> => {
-  switch state.selectedGistId {
-  | None =>
-    div(
-      list{Attrs.class_("flex-1 flex items-center justify-center text-gray-600 text-sm")},
-      list{text("Select a gist or create a new one")},
-    )
-  | Some(id) =>
-    switch ScriptGistEngine.findGist(state.gists, id) {
-    | None =>
-      div(
-        list{Attrs.class_("flex-1 flex items-center justify-center text-gray-600 text-sm")},
-        list{text("Gist not found")},
-      )
-    | Some(gist) =>
-      div(
-        list{Attrs.class_("flex-1 flex flex-col gap-3 overflow-y-auto")},
-        list{
-          // Title input
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              input(
-                list{
-                  Attrs.class_(
-                    "flex-1 bg-gray-800 border border-gray-700 rounded px-3 py-1.5 text-sm text-gray-200 focus:border-cyan-500 outline-none",
-                  ),
-                  Attrs.value(gist.title),
-                  Events.onInput(v => ScriptGist(UpdateGistTitle(v))),
-                  Attrs.placeholder("Gist title"),
-                },
-                list{},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-2 py-1.5 text-xs bg-cyan-700 hover:bg-cyan-600 text-white rounded",
-                  ),
-                  Events.onClick(ScriptGist(ExecuteGist)),
-                  KeyboardNav.onActivate(ScriptGist(ExecuteGist)),
-                },
-                list{text("Run")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-2 py-1.5 text-xs bg-gray-700 hover:bg-gray-600 text-gray-300 rounded",
-                  ),
-                  Events.onClick(ScriptGist(ToggleGistPin(gist.id))),
-                },
-                list{text(gist.pinned ? "Unpin" : "Pin")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-2 py-1.5 text-xs bg-gray-700 hover:bg-gray-600 text-gray-300 rounded",
-                  ),
-                  Events.onClick(ScriptGist(SnapshotDiachronic)),
-                  KeyboardNav.onActivate(ScriptGist(SnapshotDiachronic)),
-                },
-                list{text("Checkpoint")},
-              ),
-            },
-          ),
-          // Schema info bar
-          div(
-            list{Attrs.class_("flex items-center gap-3 text-[10px] text-gray-500 px-1")},
-            list{
-              span(list{}, list{text("MCP: " ++ gist.schema.toolName)}),
-              span(
-                list{},
-                list{
-                  text(
-                    "~" ++ Int.toString(ScriptGistEngine.schemaTokenCost(gist.schema)) ++ " tokens",
-                  ),
-                },
-              ),
-              span(list{}, list{text(ScriptGistEngine.languageLabel(gist.language))}),
-              span(list{}, list{text(ScriptGistEngine.targetLabel(gist.target))}),
-            },
-          ),
-          // Code editor
-          textarea(
-            list{
-              Attrs.class_(
-                "w-full flex-1 min-h-[300px] bg-gray-900 border border-gray-700 rounded p-3 text-xs text-gray-200 font-mono resize-none focus:border-cyan-500 outline-none",
-              ),
-              Attrs.value(gist.code),
-              Events.onInput(v => ScriptGist(UpdateGistCode(v))),
-              Attrs.placeholder("// Write your gist code here..."),
-            },
-            list{},
-          ),
-          // Last result
-          switch state.lastResult {
-          | Some(result) =>
-            div(
-              list{
-                Attrs.class_(
-                  "p-2 rounded text-xs font-mono " ++ (
-                    result.success ? "bg-green-900/30 text-green-400" : "bg-red-900/30 text-red-400"
-                  ),
-                ),
-              },
-              list{
-                div(list{}, list{text(result.success ? "Success" : "Error")}),
-                div(list{Attrs.class_("mt-1 text-gray-400")}, list{text(result.output)}),
-                div(
-                  list{Attrs.class_("mt-1 text-gray-600")},
-                  list{text(Float.toString(result.durationMs) ++ "ms | " ++ result.invoker)},
-                ),
-              },
-            )
-          | None => noNode
-          },
-        },
-      )
-    }
-  }
-}
-
-/// Render the diachronic timeline sidebar.
-let renderDiachronicTimeline = (state: scriptGistState): Tea_Vdom.t<msg> => {
-  if Array.length(state.diachronicHistory) === 0 {
-    div(
-      list{Attrs.class_("text-[10px] text-gray-600 p-2")},
-      list{text("No diachronic checkpoints yet. Click 'Checkpoint' to snapshot.")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("space-y-1")},
-      state.diachronicHistory
-      ->Array.map(cp =>
-        button(
-          list{
-            Attrs.class_(
-              "w-full text-left px-2 py-1 text-[10px] text-gray-400 hover:bg-gray-800 rounded",
-            ),
-            Events.onClick(ScriptGist(RestoreDiachronic(cp.index))),
-          },
-          list{text(cp.label)},
-        )
-      )
-      ->List.fromArray,
-    )
-  }
-}
-
-/// Render the synchronic cardfiles sidebar.
-let renderCardfiles = (state: scriptGistState): Tea_Vdom.t<msg> => {
-  if Array.length(state.cardfiles) === 0 {
-    div(
-      list{Attrs.class_("text-[10px] text-gray-600 p-2")},
-      list{text("No cardfiles yet. Cardfiles compose gists into spatial arrangements.")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("space-y-1")},
-      state.cardfiles
-      ->Array.map(cf =>
-        div(
-          list{Attrs.class_("px-2 py-1.5 bg-gray-800/40 rounded text-xs text-gray-400")},
-          list{text(ScriptGistEngine.cardfileLabel(cf))},
-        )
-      )
-      ->List.fromArray,
-    )
-  }
-}
-
-/// Render template list.
-let renderTemplates = (state: scriptGistState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("grid grid-cols-2 gap-2")},
-    state.templates
-    ->Array.map(tpl =>
-      button(
-        list{
-          Attrs.class_(
-            "p-3 bg-gray-800/60 border border-gray-700 rounded hover:bg-gray-800 text-left transition-colors",
-          ),
-          Events.onClick(ScriptGist(CreateFromTemplate(tpl.id))),
-        },
-        list{
-          div(list{Attrs.class_("text-xs font-medium text-gray-200 mb-1")}, list{text(tpl.name)}),
-          div(list{Attrs.class_("text-[10px] text-gray-500")}, list{text(tpl.description)}),
-          div(
-            list{
-              Attrs.class_("text-[10px] mt-1 " ++ ScriptGistEngine.languageColour(tpl.language)),
-            },
-            list{text(ScriptGistEngine.languageLabel(tpl.language))},
-          ),
-        },
-      )
-    )
-    ->List.fromArray,
-  )
-}
-
-/// Main panel view.
-let view = (state: scriptGistState): Tea_Vdom.t<msg> => {
-  let filtered =
-    state.gists
-    ->ScriptGistEngine.filterByCategory(state.activeCategory)
-    ->ScriptGistEngine.filterBySearch(state.filterText)
-    ->ScriptGistEngine.sortGists(state.sortBy)
-
-  div(
-    list{Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden")},
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              span(
-                list{Attrs.class_("text-sm font-medium text-gray-200")},
-                list{text("Script Gist")},
-              ),
-              span(
-                list{Attrs.class_("text-[10px] text-gray-600")},
-                list{text("Minskian Drafting Board")},
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-2 py-1 text-xs bg-cyan-700 hover:bg-cyan-600 text-white rounded",
-                  ),
-                  Events.onClick(ScriptGist(CreateGist)),
-                  KeyboardNav.onActivate(ScriptGist(CreateGist)),
-                },
-                list{text("+ New Gist")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-2 py-1 text-xs rounded " ++ (
-                      state.mcpToolsActive
-                        ? "bg-green-700 text-white"
-                        : "bg-gray-700 text-gray-400 hover:bg-gray-600"
-                    ),
-                  ),
-                  Events.onClick(ScriptGist(ToggleMcpTools)),
-                  KeyboardNav.onActivate(ScriptGist(ToggleMcpTools)),
-                },
-                list{text("MCP " ++ (state.mcpToolsActive ? "ON" : "OFF"))},
-              ),
-            },
-          ),
-        },
-      ),
-      // Category tabs
-      div(
-        list{Attrs.class_("flex items-center gap-1 px-4 py-2 border-b border-gray-800/50")},
-        ScriptGistEngine.allCategories
-        ->Array.map(cat =>
-          renderTab(
-            ScriptGistEngine.categoryLabel(cat),
-            cat,
-            state.activeCategory,
-            ScriptGistEngine.countByCategory(state.gists, cat),
-          )
-        )
-        ->List.fromArray,
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 p-2 bg-red-900/30 border border-red-800 rounded text-xs text-red-400 flex justify-between",
-            ),
-          },
-          list{
-            span(list{}, list{text(err)}),
-            button(
-              list{
-                Attrs.class_("text-red-500 hover:text-red-300"),
-                Events.onClick(ScriptGist(DismissGistError)),
-                KeyboardNav.onActivate(ScriptGist(DismissGistError)),
-              },
-              list{text("dismiss")},
-            ),
-          },
-        )
-      | None => noNode
-      },
-      // Main content area
-      div(
-        list{Attrs.class_("flex flex-1 overflow-hidden")},
-        list{
-          // Left sidebar: gist list + filter
-          div(
-            list{Attrs.class_("w-64 border-r border-gray-800 flex flex-col overflow-hidden")},
-            list{
-              // Search
-              div(
-                list{Attrs.class_("p-2")},
-                list{
-                  input(
-                    list{
-                      Attrs.class_(
-                        "w-full bg-gray-800 border border-gray-700 rounded px-2 py-1 text-xs text-gray-300 placeholder-gray-600 outline-none focus:border-cyan-600",
-                      ),
-                      Attrs.value(state.filterText),
-                      Events.onInput(v => ScriptGist(SetGistFilter(v))),
-                      Attrs.placeholder("Search gists..."),
-                    },
-                    list{},
-                  ),
-                },
-              ),
-              // Gist list or templates
-              div(
-                list{Attrs.class_("flex-1 overflow-y-auto p-2 space-y-1")},
-                if state.activeCategory === GistTemplates {
-                  list{renderTemplates(state)}
-                } else {
-                  filtered
-                  ->Array.map(g => renderGistRow(g, Some(g.id) === state.selectedGistId))
-                  ->List.fromArray
-                },
-              ),
-            },
-          ),
-          // Centre: editor
-          div(
-            list{Attrs.class_("flex-1 flex flex-col p-3 overflow-hidden")},
-            list{renderEditor(state)},
-          ),
-          // Right sidebar: diachronic timeline + synchronic cardfiles
-          div(
-            list{Attrs.class_("w-48 border-l border-gray-800 flex flex-col overflow-hidden")},
-            list{
-              div(
-                list{Attrs.class_("p-2 border-b border-gray-800/50")},
-                list{
-                  span(
-                    list{Attrs.class_("text-[10px] text-gray-500 uppercase tracking-wide")},
-                    list{text("Diachronic (Time)")},
-                  ),
-                },
-              ),
-              div(
-                list{Attrs.class_("flex-1 overflow-y-auto p-1")},
-                list{renderDiachronicTimeline(state)},
-              ),
-              div(
-                list{Attrs.class_("p-2 border-t border-gray-800/50 border-b border-gray-800/50")},
-                list{
-                  span(
-                    list{Attrs.class_("text-[10px] text-gray-500 uppercase tracking-wide")},
-                    list{text("Synchronic (Space)")},
-                  ),
-                },
-              ),
-              div(list{Attrs.class_("flex-1 overflow-y-auto p-1")}, list{renderCardfiles(state)}),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/ScriptingBridge.affine b/src/components/ScriptingBridge.affine
new file mode 100644
index 00000000..e474ee4d
--- /dev/null
+++ b/src/components/ScriptingBridge.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ScriptingBridge;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/ScriptingBridge.res b/src/components/ScriptingBridge.res
deleted file mode 100644
index 657fe29b..00000000
--- a/src/components/ScriptingBridge.res
+++ /dev/null
@@ -1,370 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Scripting Bridge Component — VM instruction scripting REPL.
-/// Displays REPL with input/output history, instruction reference table,
-/// saved scripts list, and analysis view.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render an instruction tier badge.
-let tierBadge = (tier: instructionTier): Tea_Vdom.t<msg> => {
-  let (color, label) = switch tier {
-  | TierSafe => ("bg-green-700 text-green-100", "T0 Safe")
-  | TierControlled => ("bg-blue-700 text-blue-100", "T1 Ctrl")
-  | TierPrivileged => ("bg-yellow-700 text-yellow-100", "T2 Priv")
-  | TierSystem => ("bg-red-700 text-red-100", "T3 Sys")
-  }
-  span(list{Attrs.class_("px-2 py-0.5 text-xs rounded font-mono " ++ color)}, list{text(label)})
-}
-
-/// Render an analysis severity badge.
-let analysisSevBadge = (sev: analysisSeverity): Tea_Vdom.t<msg> => {
-  let (color, label) = switch sev {
-  | AnalysisError => ("text-red-400", "ERR")
-  | AnalysisWarning => ("text-yellow-400", "WARN")
-  | AnalysisInfo => ("text-blue-400", "INFO")
-  | AnalysisOptimisation => ("text-green-400", "OPT")
-  }
-  span(list{Attrs.class_("text-xs font-mono " ++ color)}, list{text(label)})
-}
-
-/// Main view function for the Scripting Bridge panel.
-let view = (state: scriptingBridgeState): Tea_Vdom.t<msg> => {
-  let scriptCount = Array.length(state.savedScripts)
-  let historyCount = Array.length(state.replHistory)
-
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Scripting Bridge — VM Instruction Scripting REPL"),
-    },
-    list{
-      // Header row
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-bold text-rose-300")},
-                list{text("Scripting Bridge")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-400")},
-                list{
-                  text(
-                    Int.toString(scriptCount) ++
-                    " scripts, " ++
-                    Int.toString(historyCount) ++ " entries",
-                  ),
-                },
-              ),
-              if state.executing {
-                span(
-                  list{Attrs.class_("text-xs text-yellow-400 animate-pulse")},
-                  list{text("Executing...")},
-                )
-              } else {
-                Tea_Html.noNode
-              },
-            },
-          ),
-          button(
-            list{
-              Attrs.class_("px-3 py-1 text-xs bg-rose-800 hover:bg-rose-700 text-white rounded"),
-              Events.onClick(ScriptingBridge(ScBStarted)),
-              KeyboardNav.onActivate(ScriptingBridge(ScBStarted)),
-            },
-            list{text("Execute")},
-          ),
-        },
-      ),
-      // Tab bar
-      div(
-        list{Attrs.class_("flex gap-1 px-4 py-2 border-b border-gray-800")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Repl {
-                  "bg-rose-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(ScriptingBridge(SetScBTab(Repl))),
-            },
-            list{text("REPL")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Instructions {
-                  "bg-rose-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(ScriptingBridge(SetScBTab(Instructions))),
-            },
-            list{text("Instructions")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Scripts {
-                  "bg-rose-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(ScriptingBridge(SetScBTab(Scripts))),
-            },
-            list{text("Scripts")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Analysis {
-                  "bg-rose-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(ScriptingBridge(SetScBTab(Analysis))),
-            },
-            list{text("Analysis")},
-          ),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 px-3 py-2 bg-red-900/50 border border-red-700 rounded text-sm text-red-200 flex justify-between items-center",
-            ),
-          },
-          list{
-            text(err),
-            button(
-              list{
-                Attrs.class_("text-red-400 hover:text-red-200 text-xs ml-2"),
-                Events.onClick(ScriptingBridge(DismissScBError)),
-                KeyboardNav.onActivate(ScriptingBridge(DismissScBError)),
-              },
-              list{text("Dismiss")},
-            ),
-          },
-        )
-      | None => Tea_Html.noNode
-      },
-      // Content area
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto px-4 py-4")},
-        list{
-          switch state.activeTab {
-          | Repl =>
-            div(
-              list{Attrs.class_("flex flex-col h-full")},
-              list{
-                // REPL history
-                div(
-                  list{Attrs.class_("flex-1 overflow-y-auto mb-3 space-y-2")},
-                  state.replHistory
-                  ->Array.map(entry =>
-                    div(
-                      list{Attrs.class_("font-mono text-sm")},
-                      list{
-                        div(
-                          list{Attrs.class_("flex items-start gap-2")},
-                          list{
-                            span(list{Attrs.class_("text-rose-400")}, list{text("> ")}),
-                            span(list{Attrs.class_("text-gray-200")}, list{text(entry.input)}),
-                          },
-                        ),
-                        div(
-                          list{
-                            Attrs.class_(
-                              "pl-4 " ++ if entry.success {
-                                "text-gray-400"
-                              } else {
-                                "text-red-400"
-                              },
-                            ),
-                          },
-                          list{text(entry.output)},
-                        ),
-                      },
-                    )
-                  )
-                  ->List.fromArray,
-                ),
-                // Input area
-                div(
-                  list{Attrs.class_("flex items-center gap-2")},
-                  list{
-                    span(list{Attrs.class_("text-rose-400 font-mono")}, list{text("> ")}),
-                    input(
-                      list{
-                        Attrs.class_(
-                          "flex-1 bg-gray-900 border border-gray-700 rounded px-2 py-1 text-sm font-mono text-gray-200",
-                        ),
-                        Attrs.value(state.replInput),
-                        Attrs.placeholder("Enter VM script..."),
-                      },
-                      list{},
-                    ),
-                  },
-                ),
-              },
-            )
-          | Instructions =>
-            div(
-              list{},
-              list{
-                // Table header
-                div(
-                  list{
-                    Attrs.class_(
-                      "flex gap-2 text-xs text-gray-500 font-mono border-b border-gray-800 pb-1 mb-2",
-                    ),
-                  },
-                  list{
-                    span(list{Attrs.class_("w-12")}, list{text("Op")}),
-                    span(list{Attrs.class_("w-28")}, list{text("Mnemonic")}),
-                    span(list{Attrs.class_("w-20")}, list{text("Tier")}),
-                    span(list{Attrs.class_("w-24")}, list{text("Stack")}),
-                    span(list{Attrs.class_("flex-1")}, list{text("Description")}),
-                  },
-                ),
-                div(
-                  list{Attrs.class_("space-y-1")},
-                  state.instructions
-                  ->Array.map(instr =>
-                    div(
-                      list{
-                        Attrs.class_(
-                          "flex gap-2 text-xs py-1 border-b border-gray-800/30 items-center",
-                        ),
-                      },
-                      list{
-                        span(
-                          list{Attrs.class_("w-12 font-mono text-gray-500")},
-                          list{text(Int.toString(instr.opcode))},
-                        ),
-                        span(
-                          list{
-                            Attrs.class_(
-                              "w-28 font-mono " ++ if instr.allowed {
-                                "text-gray-200"
-                              } else {
-                                "text-gray-600 line-through"
-                              },
-                            ),
-                          },
-                          list{text(instr.name)},
-                        ),
-                        span(list{Attrs.class_("w-20")}, list{tierBadge(instr.tier)}),
-                        span(
-                          list{Attrs.class_("w-24 font-mono text-gray-500")},
-                          list{text(instr.stackEffect)},
-                        ),
-                        span(
-                          list{Attrs.class_("flex-1 text-gray-400")},
-                          list{text(instr.description)},
-                        ),
-                      },
-                    )
-                  )
-                  ->List.fromArray,
-                ),
-              },
-            )
-          | Scripts =>
-            div(
-              list{Attrs.class_("space-y-2")},
-              state.savedScripts
-              ->Array.map(s => {
-                let isSelected = state.selectedScript == Some(s.id)
-                div(
-                  list{
-                    Attrs.class_(
-                      "px-3 py-2 border rounded cursor-pointer " ++ if isSelected {
-                        "bg-rose-900/30 border-rose-700"
-                      } else {
-                        "bg-gray-900 border-gray-800 hover:border-gray-700"
-                      },
-                    ),
-                  },
-                  list{
-                    div(
-                      list{Attrs.class_("flex items-center justify-between")},
-                      list{
-                        span(
-                          list{Attrs.class_("text-sm font-bold text-gray-200")},
-                          list{text(s.name)},
-                        ),
-                        span(
-                          list{Attrs.class_("text-xs text-gray-500")},
-                          list{text(s.description)},
-                        ),
-                      },
-                    ),
-                    div(
-                      list{Attrs.class_("mt-1 text-xs text-gray-600 font-mono truncate")},
-                      list{text(s.code)},
-                    ),
-                  },
-                )
-              })
-              ->List.fromArray,
-            )
-          | Analysis =>
-            div(
-              list{Attrs.class_("space-y-2")},
-              list{
-                div(
-                  list{Attrs.class_("text-xs text-gray-400 mb-2")},
-                  list{text(Int.toString(Array.length(state.analysisFindings)) ++ " findings")},
-                ),
-                div(
-                  list{},
-                  state.analysisFindings
-                  ->Array.map(f =>
-                    div(
-                      list{Attrs.class_("px-3 py-2 bg-gray-900 border border-gray-800 rounded")},
-                      list{
-                        div(
-                          list{Attrs.class_("flex items-center gap-2")},
-                          list{
-                            analysisSevBadge(f.severity),
-                            span(
-                              list{Attrs.class_("text-sm text-gray-200")},
-                              list{text(f.summary)},
-                            ),
-                            span(
-                              list{Attrs.class_("text-xs text-gray-500")},
-                              list{text("L" ++ Int.toString(f.line))},
-                            ),
-                          },
-                        ),
-                        div(list{Attrs.class_("text-xs text-gray-400 mt-1")}, list{text(f.detail)}),
-                      },
-                    )
-                  )
-                  ->List.fromArray,
-                ),
-              },
-            )
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/Security.affine b/src/components/Security.affine
new file mode 100644
index 00000000..76458e28
--- /dev/null
+++ b/src/components/Security.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Security;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Security.res b/src/components/Security.res
deleted file mode 100644
index 83c1b457..00000000
--- a/src/components/Security.res
+++ /dev/null
@@ -1,376 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Security Panel — redaction, vault, 2FA, Trustfile, shoulder-safe (DD-026/027).
-///
-/// This is the security command centre. It shows detected secrets, vault status,
-/// 2FA state, and Trustfile compliance. The shoulder-safe mode blurs secrets
-/// in real-time for when someone's looking over your shoulder.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a status indicator (coloured dot + label).
-let renderStatus = (label: string, ok: bool, tooltip: string): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex items-center gap-2"), Attrs.title(tooltip)},
-    list{
-      div(list{Attrs.class_(`w-2 h-2 rounded-full ${ok ? "bg-green-500" : "bg-red-500"}`)}, list{}),
-      div(list{Attrs.class_("text-xs text-gray-400")}, list{text(label)}),
-    },
-  )
-}
-
-/// Render the redaction patterns section with CRUD.
-let renderPatterns = (security: securityState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-2")},
-    list{
-      // Pattern list
-      div(
-        list{Attrs.class_("space-y-1")},
-        Array.map(security.patterns, pattern =>
-          div(
-            list{
-              Attrs.class_(
-                `flex items-center justify-between p-2 rounded ${pattern.enabled
-                    ? "bg-gray-800"
-                    : "bg-gray-900"} hover:bg-gray-700/50 transition-colors`,
-              ),
-              Attrs.title(`Regex: ${pattern.pattern}`),
-            },
-            list{
-              div(
-                list{
-                  Attrs.class_("flex items-center gap-2 flex-1 cursor-pointer"),
-                  Events.onClick(Security(TogglePattern(pattern.id))),
-                },
-                list{
-                  div(
-                    list{
-                      Attrs.class_(
-                        `w-2 h-2 rounded-full ${pattern.enabled ? "bg-green-500" : "bg-gray-600"}`,
-                      ),
-                    },
-                    list{},
-                  ),
-                  div(list{Attrs.class_("text-xs text-gray-300")}, list{text(pattern.label)}),
-                  if pattern.builtIn {
-                    div(list{Attrs.class_("text-xs text-gray-600")}, list{text("built-in")})
-                  } else {
-                    div(list{Attrs.class_("text-xs text-blue-600")}, list{text("custom")})
-                  },
-                },
-              ),
-              // Regex preview
-              span(
-                list{Attrs.class_("text-[10px] text-gray-700 font-mono truncate max-w-32")},
-                list{text(pattern.pattern)},
-              ),
-              // Delete button (custom only)
-              if !pattern.builtIn {
-                button(
-                  list{
-                    Attrs.class_("ml-2 text-xs text-red-700 hover:text-red-400 transition-colors"),
-                    Events.onClick(Security(RemovePattern(pattern.id))),
-                    Attrs.ariaLabel(`Remove pattern ${pattern.label}`),
-                    Attrs.title("Remove custom pattern"),
-                  },
-                  list{text("x")},
-                )
-              } else {
-                noNode
-              },
-            },
-          )
-        )->List.fromArray,
-      ),
-      // Add custom pattern form
-      div(
-        list{Attrs.class_("mt-3 p-3 bg-gray-900/50 border border-gray-800 rounded")},
-        list{
-          div(
-            list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wider mb-2")},
-            list{text("Add Custom Pattern")},
-          ),
-          div(
-            list{Attrs.class_("flex gap-2")},
-            list{
-              input(
-                list{
-                  Attrs.class_(
-                    "flex-1 px-2 py-1 text-xs bg-gray-800 text-gray-200 rounded border border-gray-700 focus:border-red-600 focus:outline-none",
-                  ),
-                  Attrs.placeholder("Label (e.g. Stripe Key)"),
-                  Attrs.value(security.newPatternLabel),
-                  Events.onInput(v => Security(SetNewPatternLabel(v))),
-                  Attrs.ariaLabel("New pattern label"),
-                },
-                list{},
-              ),
-              input(
-                list{
-                  Attrs.class_(
-                    "flex-1 px-2 py-1 text-xs bg-gray-800 text-gray-200 rounded border border-gray-700 font-mono focus:border-red-600 focus:outline-none",
-                  ),
-                  Attrs.placeholder("Regex (e.g. sk_live_[a-zA-Z0-9]+)"),
-                  Attrs.value(security.newPatternRegex),
-                  Events.onInput(v => Security(SetNewPatternRegex(v))),
-                  Attrs.ariaLabel("New pattern regex"),
-                },
-                list{},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    if security.newPatternLabel != "" && security.newPatternRegex != "" {
-                      "px-3 py-1 text-xs bg-red-900/50 text-red-300 rounded border border-red-700 hover:bg-red-800/50 transition-colors"
-                    } else {
-                      "px-3 py-1 text-xs bg-gray-800 text-gray-600 rounded border border-gray-700 cursor-not-allowed"
-                    },
-                  ),
-                  Events.onClick(Security(SubmitNewPattern)),
-                  KeyboardNav.onActivate(Security(SubmitNewPattern)),
-                  Attrs.disabled(security.newPatternLabel == "" || security.newPatternRegex == ""),
-                  Attrs.ariaLabel("Add pattern"),
-                },
-                list{text("Add")},
-              ),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render the vault section.
-let renderVault = (security: securityState): Tea_Vdom.t<msg> => {
-  let statusLabel = switch security.vaultStatus {
-  | VaultLocked => "Locked"
-  | VaultUnlocked => "Unlocked"
-  | VaultUnavailable => "Unavailable"
-  | VaultError(e) => "Error: " ++ e
-  }
-  let isOk = switch security.vaultStatus {
-  | VaultUnlocked => true
-  | _ => false
-  }
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      renderStatus("Vault: " ++ statusLabel, isOk, "reasonably-good-tool vault integration"),
-      div(
-        list{Attrs.class_("text-xs text-gray-500")},
-        list{text(Int.toString(Array.length(security.vaultKeys)) ++ " keys stored")},
-      ),
-      button(
-        list{
-          Attrs.class_(
-            "px-3 py-1 bg-gray-800 text-gray-400 rounded text-xs hover:bg-gray-700 transition-colors",
-          ),
-          Events.onClick(Security(VaultList)),
-          KeyboardNav.onActivate(Security(VaultList)),
-          Attrs.title("List all keys in the vault (names only, never values)"),
-        },
-        list{text("List Keys")},
-      ),
-    },
-  )
-}
-
-/// Render the 2FA section.
-let render2FA = (security: securityState): Tea_Vdom.t<msg> => {
-  let statusLabel = switch security.twoFactorStatus {
-  | TwoFactorNotConfigured => "Not configured"
-  | TwoFactorConfigured => "Configured (not authenticated)"
-  | TwoFactorAuthenticated(_) => "Authenticated"
-  | TwoFactorExpired => "Session expired"
-  }
-  let isOk = switch security.twoFactorStatus {
-  | TwoFactorAuthenticated(_) => true
-  | _ => false
-  }
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      renderStatus("2FA: " ++ statusLabel, isOk, "TOTP-based two-factor authentication (RFC 6238)"),
-      div(
-        list{Attrs.class_("flex gap-2")},
-        list{
-          input(
-            list{
-              Attrs.class_(
-                "flex-1 bg-gray-800 text-gray-200 text-sm p-2 rounded border border-gray-700 focus:border-blue-600 focus:outline-none",
-              ),
-              Attrs.placeholder("Enter 6-digit TOTP code"),
-              Attrs.value(security.totpInput),
-              Events.onInput(v => Security(SetTotpInput(v))),
-            },
-            list{},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 bg-blue-700 text-white rounded text-sm hover:bg-blue-600 transition-colors",
-              ),
-              Events.onClick(Security(SubmitTotp(security.totpInput))),
-            },
-            list{text("Verify")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Full Security panel view.
-let view = (security: securityState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 overflow-auto"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Security panel"),
-    },
-    list{
-      // Header
-      div(
-        list{
-          Attrs.class_(
-            "sticky top-0 bg-gray-950 border-b border-gray-800 p-4 flex items-center justify-between z-10",
-          ),
-        },
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-4")},
-            list{
-              div(list{Attrs.class_("text-lg font-light text-gray-300")}, list{text("Security")}),
-              // Shoulder-safe toggle
-              button(
-                list{
-                  Attrs.class_(
-                    `px-3 py-1 rounded text-xs font-medium ${security.shoulderSafe
-                        ? "bg-red-700 text-white"
-                        : "bg-gray-800 text-gray-400"} hover:opacity-80 transition-opacity`,
-                  ),
-                  Events.onClick(Security(ToggleShoulderSafe)),
-                  KeyboardNav.onActivate(Security(ToggleShoulderSafe)),
-                  Attrs.title(
-                    "Toggle shoulder-surfing safe mode — blurs detected secrets in real-time",
-                  ),
-                },
-                list{text(security.shoulderSafe ? "Shoulder-Safe ON" : "Shoulder-Safe OFF")},
-              ),
-              div(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{
-                  text(Int.toString(Array.length(security.detectedSecrets)) ++ " secrets detected"),
-                },
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 bg-gray-800 text-gray-400 rounded hover:bg-gray-700 transition-colors text-sm",
-              ),
-              Events.onClick(PanelSwitcher(ClosePanels)),
-              KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-            },
-            list{text("Close")},
-          ),
-        },
-      ),
-      // Body: three-column layout
-      div(
-        list{Attrs.class_("p-6 grid grid-cols-3 gap-6 max-w-6xl mx-auto")},
-        list{
-          // Column 1: Redaction patterns
-          div(
-            list{Attrs.class_("space-y-4")},
-            list{
-              div(
-                list{
-                  Attrs.class_("text-sm font-medium text-gray-400 border-b border-gray-800 pb-1"),
-                },
-                list{text("Redaction Patterns")},
-              ),
-              renderPatterns(security),
-            },
-          ),
-          // Column 2: Vault
-          div(
-            list{Attrs.class_("space-y-4")},
-            list{
-              div(
-                list{
-                  Attrs.class_("text-sm font-medium text-gray-400 border-b border-gray-800 pb-1"),
-                },
-                list{text("Vault (reasonably-good-tool)")},
-              ),
-              renderVault(security),
-            },
-          ),
-          // Column 3: 2FA + Trustfile
-          div(
-            list{Attrs.class_("space-y-4")},
-            list{
-              div(
-                list{
-                  Attrs.class_("text-sm font-medium text-gray-400 border-b border-gray-800 pb-1"),
-                },
-                list{text("Two-Factor Authentication")},
-              ),
-              render2FA(security),
-              div(
-                list{
-                  Attrs.class_(
-                    "mt-6 text-sm font-medium text-gray-400 border-b border-gray-800 pb-1",
-                  ),
-                },
-                list{text("Trustfile Policy")},
-              ),
-              switch security.trustfile {
-              | Some(policy) =>
-                div(
-                  list{Attrs.class_("space-y-1")},
-                  list{
-                    renderStatus(
-                      "Trustfile loaded",
-                      policy.loaded,
-                      "Loaded from " ++ Option.getOr(policy.filePath, "unknown"),
-                    ),
-                    div(
-                      list{Attrs.class_("text-xs text-gray-500")},
-                      list{
-                        text(
-                          "Security level: " ++
-                          switch policy.securityLevel {
-                          | SecurityLow => "Low"
-                          | SecurityMedium => "Medium"
-                          | SecurityHigh => "High"
-                          | SecurityMaximum => "Maximum"
-                          },
-                        ),
-                      },
-                    ),
-                  },
-                )
-              | None =>
-                div(
-                  list{
-                    Attrs.class_(
-                      "p-3 bg-gray-900/50 rounded border border-gray-800 text-xs text-gray-600",
-                    ),
-                    Attrs.title("Load a repo with a Trustfile.a2ml to enable policy enforcement"),
-                  },
-                  list{text("No Trustfile loaded — load a repo to enable policy enforcement")},
-                )
-              },
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/SoakMonitor.affine b/src/components/SoakMonitor.affine
new file mode 100644
index 00000000..f6a49048
--- /dev/null
+++ b/src/components/SoakMonitor.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module SoakMonitor;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/SoakMonitor.res b/src/components/SoakMonitor.res
deleted file mode 100644
index e74acae2..00000000
--- a/src/components/SoakMonitor.res
+++ /dev/null
@@ -1,440 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL SoakMonitor — long-running session tracking, memory leak detection,
-/// and trend analysis for IDApTIK extended play sessions.
-///
-/// Four tabs: Live Monitor (current session vitals), Trends (memory trend
-/// display), Leak Detection (suspects table with growth rate and confidence),
-/// and History (previous soak session summaries).
-
-open Model
-open Msg
-open Tea.Html
-
-// =========================================================================
-// Helpers
-// =========================================================================
-
-/// Tab label lookup for soakTab variants.
-let tabLabel = (tab: soakTab): string =>
-  switch tab {
-  | TabLiveMonitor => "Live Monitor"
-  | TabTrends => "Trends"
-  | TabLeakDetection => "Leak Detection"
-  | TabHistory => "History"
-  }
-
-/// Render the tab bar.
-let renderTabs = (active: soakTab): Tea_Vdom.t<msg> => {
-  let tabs: array<soakTab> = [TabLiveMonitor, TabTrends, TabLeakDetection, TabHistory]
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 px-4")},
-    tabs
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-4 py-2 text-sm font-medium transition-colors rounded-t ${isActive
-                ? "bg-gray-800 text-cyan-400 border-b-2 border-cyan-400"
-                : "text-gray-500 hover:text-gray-300 hover:bg-gray-900 cursor-pointer"}`,
-          ),
-          Events.onClick(SoakMonitor(SetSmTab(tab))),
-        },
-        list{text(tabLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Format bytes into human-readable string.
-let formatBytes = (bytes: int): string => {
-  let b = Int.toFloat(bytes)
-  if b >= 1073741824.0 {
-    `${Float.toFixed(b /. 1073741824.0, ~digits=2)} GB`
-  } else if b >= 1048576.0 {
-    `${Float.toFixed(b /. 1048576.0, ~digits=1)} MB`
-  } else if b >= 1024.0 {
-    `${Float.toFixed(b /. 1024.0, ~digits=0)} KB`
-  } else {
-    `${Int.toString(bytes)} B`
-  }
-}
-
-/// Session status badge.
-let sessionStatusBadge = (status: soakSessionStatus): Tea_Vdom.t<msg> =>
-  switch status {
-  | SoakRunning =>
-    span(
-      list{
-        Attrs.class_(
-          "px-1.5 py-0.5 text-xs rounded bg-emerald-600 text-white font-mono animate-pulse",
-        ),
-      },
-      list{text("RUNNING")},
-    )
-  | SoakCompleted =>
-    span(
-      list{Attrs.class_("px-1.5 py-0.5 text-xs rounded bg-blue-600 text-white font-mono")},
-      list{text("COMPLETED")},
-    )
-  | SoakAborted(_) =>
-    span(
-      list{Attrs.class_("px-1.5 py-0.5 text-xs rounded bg-red-600 text-white font-mono")},
-      list{text("ABORTED")},
-    )
-  }
-
-/// Confidence level colour for leak suspects.
-let confidenceColour = (confidence: float): string =>
-  if confidence >= 0.8 {
-    "text-red-400"
-  } else if confidence >= 0.5 {
-    "text-amber-400"
-  } else {
-    "text-gray-400"
-  }
-
-// =========================================================================
-// Tab content views
-// =========================================================================
-
-/// Live Monitor tab: current session vitals and real-time memory display.
-let renderLiveMonitorTab = (state: soakMonitorState): Tea_Vdom.t<msg> => {
-  switch state.currentSession {
-  | None =>
-    div(
-      list{Attrs.class_("p-4 text-gray-500 text-sm italic")},
-      list{text("No active soak session. Click Start Monitor to begin tracking.")},
-    )
-  | Some(session) => {
-      let latestMem = state.trendData->Array.get(Array.length(state.trendData) - 1)
-      div(
-        list{Attrs.class_("flex flex-col gap-4 p-4")},
-        list{
-          // Session info
-          div(
-            list{Attrs.class_("flex items-center justify-between")},
-            list{
-              div(
-                list{Attrs.class_("flex items-center gap-2")},
-                list{
-                  sessionStatusBadge(session.status),
-                  span(
-                    list{Attrs.class_("text-sm text-gray-300")},
-                    list{text(`Session: ${session.id}`)},
-                  ),
-                },
-              ),
-              span(
-                list{Attrs.class_("text-sm text-gray-400")},
-                list{text(`${Float.toFixed(session.durationMinutes, ~digits=1)} min`)},
-              ),
-            },
-          ),
-          // Key metrics
-          div(
-            list{Attrs.class_("grid grid-cols-3 gap-3")},
-            list{
-              div(
-                list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-                list{
-                  div(
-                    list{Attrs.class_("text-2xl font-light text-cyan-400")},
-                    list{text(formatBytes(session.peakMemoryBytes))},
-                  ),
-                  div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Peak Memory")}),
-                },
-              ),
-              div(
-                list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-                list{
-                  div(
-                    list{Attrs.class_("text-2xl font-light text-gray-300")},
-                    list{text(`${Float.toFixed(session.gcFrequencyPerMinute, ~digits=1)}/min`)},
-                  ),
-                  div(list{Attrs.class_("text-xs text-gray-500")}, list{text("GC Frequency")}),
-                },
-              ),
-              div(
-                list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-                list{
-                  div(
-                    list{Attrs.class_("text-2xl font-light text-amber-400")},
-                    list{text(Int.toString(Array.length(session.leakSuspects)))},
-                  ),
-                  div(list{Attrs.class_("text-xs text-gray-500")}, list{text("Leak Suspects")}),
-                },
-              ),
-            },
-          ),
-          // Current heap usage from latest trend point
-          switch latestMem {
-          | Some(point) => {
-              let usedPct =
-                Int.toFloat(point.heapUsedBytes) /.
-                Int.toFloat(max(1, point.heapTotalBytes)) *. 100.0
-              let widthPct = Int.toString(Int.fromFloat(usedPct))
-              let barColour = if usedPct > 85.0 {
-                "bg-red-500"
-              } else if usedPct > 60.0 {
-                "bg-amber-500"
-              } else {
-                "bg-emerald-500"
-              }
-              div(
-                list{Attrs.class_("bg-gray-800 rounded p-3")},
-                list{
-                  div(
-                    list{Attrs.class_("flex justify-between text-xs text-gray-400 mb-1")},
-                    list{
-                      text("Heap"),
-                      text(
-                        `${formatBytes(point.heapUsedBytes)} / ${formatBytes(
-                            point.heapTotalBytes,
-                          )}`,
-                      ),
-                    },
-                  ),
-                  div(
-                    list{Attrs.class_("w-full h-2 bg-gray-700 rounded overflow-hidden")},
-                    list{
-                      div(
-                        list{
-                          Attrs.class_(
-                            `h-full ${barColour} transition-all duration-300 w-[${widthPct}%]`,
-                          ),
-                        },
-                        list{},
-                      ),
-                    },
-                  ),
-                },
-              )
-            }
-          | None => noNode
-          },
-        },
-      )
-    }
-  }
-}
-
-/// Trends tab: memory trend data points display.
-let renderTrendsTab = (state: soakMonitorState): Tea_Vdom.t<msg> => {
-  let pointCount = Array.length(state.trendData)
-  div(
-    list{Attrs.class_("flex flex-col gap-2 p-4")},
-    list{
-      div(
-        list{Attrs.class_("bg-gray-800 rounded p-4 h-32 flex items-center justify-center")},
-        list{
-          span(
-            list{Attrs.class_("text-gray-600 text-sm")},
-            list{text(`Memory trend chart (${Int.toString(pointCount)} data points)`)},
-          ),
-        },
-      ),
-      // Recent trend data rows
-      div(
-        list{Attrs.class_("flex flex-col gap-1 max-h-64 overflow-y-auto")},
-        state.trendData
-        ->Array.sliceToEnd(~start=max(0, pointCount - 15))
-        ->Array.map(point => {
-          div(
-            list{
-              Attrs.class_("flex justify-between text-xs font-mono px-2 py-1 bg-gray-800 rounded"),
-            },
-            list{
-              span(
-                list{Attrs.class_("text-gray-500")},
-                list{text(formatBytes(point.heapUsedBytes))},
-              ),
-              span(
-                list{Attrs.class_("text-gray-600")},
-                list{text(`GC: ${Int.toString(point.gcCount)}`)},
-              ),
-              span(
-                list{Attrs.class_("text-gray-600")},
-                list{text(`Pause: ${Float.toFixed(point.gcPauseMs, ~digits=1)}ms`)},
-              ),
-            },
-          )
-        })
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-/// Leak Detection tab: suspects table with growth rate and confidence.
-let renderLeakDetectionTab = (state: soakMonitorState): Tea_Vdom.t<msg> => {
-  if Array.length(state.leakSuspects) === 0 {
-    div(
-      list{Attrs.class_("p-4 text-gray-500 text-sm italic")},
-      list{text("No leak suspects detected. Memory allocation patterns appear healthy.")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("flex flex-col gap-2 p-4")},
-      list{
-        div(
-          list{Attrs.class_("text-sm text-gray-400 mb-1")},
-          list{text(`${Int.toString(Array.length(state.leakSuspects))} suspect(s)`)},
-        ),
-        div(
-          list{Attrs.class_("flex flex-col gap-1 max-h-96 overflow-y-auto")},
-          state.leakSuspects
-          ->Array.map(suspect => {
-            let confColour = confidenceColour(suspect.confidence)
-            div(
-              list{
-                Attrs.class_(
-                  "flex items-center justify-between px-3 py-2 bg-gray-800 rounded text-sm",
-                ),
-              },
-              list{
-                span(
-                  list{Attrs.class_("text-gray-300 flex-1 font-mono text-xs")},
-                  list{text(suspect.source)},
-                ),
-                span(
-                  list{Attrs.class_("text-gray-400 text-xs")},
-                  list{text(`+${formatBytes(suspect.growthRatePerHour)}/hr`)},
-                ),
-                span(
-                  list{Attrs.class_(`text-xs font-mono ${confColour}`)},
-                  list{text(`${Float.toFixed(suspect.confidence *. 100.0, ~digits=0)}%`)},
-                ),
-                span(
-                  list{Attrs.class_("text-gray-600 text-xs")},
-                  list{text(`${Int.toString(suspect.samples)} samples`)},
-                ),
-              },
-            )
-          })
-          ->List.fromArray,
-        ),
-      },
-    )
-  }
-}
-
-/// History tab: previous soak session summaries.
-let renderHistoryTab = (state: soakMonitorState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-col gap-2 p-4 max-h-96 overflow-y-auto")},
-    state.sessions
-    ->Array.map(session => {
-      let leakCount = Array.length(session.leakSuspects)
-      let borderCls = leakCount > 0 ? "border-amber-700" : "border-gray-700"
-      div(
-        list{Attrs.class_(`bg-gray-800 rounded p-3 border ${borderCls}`)},
-        list{
-          div(
-            list{Attrs.class_("flex items-center justify-between mb-1")},
-            list{
-              span(list{Attrs.class_("text-sm text-gray-300 font-mono")}, list{text(session.id)}),
-              sessionStatusBadge(session.status),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex gap-4 text-xs text-gray-400")},
-            list{
-              text(`${Float.toFixed(session.durationMinutes, ~digits=1)} min`),
-              text(`Peak: ${formatBytes(session.peakMemoryBytes)}`),
-              text(`GC: ${Float.toFixed(session.gcFrequencyPerMinute, ~digits=1)}/min`),
-              text(`${Int.toString(leakCount)} leak suspect(s)`),
-            },
-          ),
-        },
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-// =========================================================================
-// Main view
-// =========================================================================
-
-/// Primary view function dispatching tab content based on active tab.
-let view = (state: soakMonitorState): Tea_Vdom.t<msg> => {
-  let content = switch state.activeTab {
-  | TabLiveMonitor => renderLiveMonitorTab(state)
-  | TabTrends => renderTrendsTab(state)
-  | TabLeakDetection => renderLeakDetectionTab(state)
-  | TabHistory => renderHistoryTab(state)
-  }
-
-  div(
-    list{Attrs.class_("flex flex-col h-full bg-gray-900 text-gray-100")},
-    list{
-      // Header with Start/Stop
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          h2(list{Attrs.class_("text-lg font-semibold text-cyan-300")}, list{text("Soak Monitor")}),
-          div(
-            list{Attrs.class_("flex gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1.5 text-xs bg-emerald-700 text-white rounded hover:bg-emerald-600 cursor-pointer font-medium",
-                  ),
-                  Events.onClick(SoakMonitor(StartMonitor)),
-                  KeyboardNav.onActivate(SoakMonitor(StartMonitor)),
-                },
-                list{text("Start Monitor")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1.5 text-xs bg-red-700 text-white rounded hover:bg-red-600 cursor-pointer font-medium",
-                  ),
-                  Events.onClick(SoakMonitor(StopMonitor)),
-                  KeyboardNav.onActivate(SoakMonitor(StopMonitor)),
-                },
-                list{text("Stop Monitor")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Monitoring indicator
-      if state.monitoring {
-        div(
-          list{
-            Attrs.class_("flex items-center gap-2 px-4 py-2 bg-gray-800 border-b border-gray-700"),
-          },
-          list{
-            div(list{Attrs.class_("w-3 h-3 bg-emerald-400 rounded-full animate-pulse")}, list{}),
-            span(
-              list{Attrs.class_("text-sm text-emerald-300")},
-              list{text("Soak monitoring active...")},
-            ),
-          },
-        )
-      } else {
-        noNode
-      },
-      // Error display
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_("px-4 py-2 bg-red-900/30 text-red-300 text-sm border-b border-red-800"),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      // Tab bar
-      renderTabs(state.activeTab),
-      // Content
-      div(list{Attrs.class_("flex-1 overflow-y-auto")}, list{content}),
-    },
-  )
-}
diff --git a/src/components/SpecBrowser.affine b/src/components/SpecBrowser.affine
new file mode 100644
index 00000000..3271f3f9
--- /dev/null
+++ b/src/components/SpecBrowser.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module SpecBrowser;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/SpecBrowser.res b/src/components/SpecBrowser.res
deleted file mode 100644
index 93079dfa..00000000
--- a/src/components/SpecBrowser.res
+++ /dev/null
@@ -1,843 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL SpecBrowser Component — browse language specifications side-by-side.
-///
-/// Five tabs: Overview, Compare, Grammar, Typing Rules, Verification.
-/// Shows all 16 nextgen-languages with their grammar, spec, typing rules,
-/// taxonomy completeness, and verification status.
-
-open Model
-open Msg
-open Tea.Html
-
-// ============================================================================
-// Shared sub-views
-// ============================================================================
-
-/// Render category tabs.
-let renderTabs = (active: specBrowserCategory): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 mb-4"), Attrs.role("tablist")},
-    SpecBrowserEngine.allCategories
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-4 py-2 text-sm rounded-t transition-colors ${isActive
-                ? "bg-gray-800 text-gray-200 border-b-2 border-teal-500"
-                : "text-gray-500 hover:text-gray-300"}`,
-          ),
-          Attrs.role("tab"),
-          Attrs.ariaSelected(isActive),
-          Events.onClick(SpecBrowser(SetSpecCategory(tab))),
-        },
-        list{text(SpecBrowserEngine.categoryLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Render a taxonomy completeness badge.
-let renderCompletenessBadge = (pct: int): Tea_Vdom.t<msg> => {
-  span(
-    list{
-      Attrs.class_(
-        `px-2 py-0.5 text-xs rounded border ${SpecBrowserEngine.completenessBadge(pct)}`,
-      ),
-    },
-    list{text(Int.toString(pct) ++ "%")},
-  )
-}
-
-/// Render file presence indicators for a language.
-let renderFilePresence = (files: array<SpecBrowserModel.filePresence>): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex gap-1")},
-    files
-    ->Array.map(f => {
-      let colour = SpecBrowserEngine.presenceColour(f.exists)
-      let code = SpecBrowserEngine.fileKindCode(f.kind)
-      span(
-        list{
-          Attrs.class_(
-            `px-1 py-0.5 text-[10px] rounded ${colour} ${if f.exists {
-                "bg-emerald-900/20"
-              } else {
-                "bg-red-900/20"
-              }}`,
-          ),
-          Attrs.ariaLabel(
-            SpecBrowserEngine.fileKindLabel(f.kind) ++ if f.exists {
-              " present"
-            } else {
-              " missing"
-            },
-          ),
-        },
-        list{text(code)},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Render a language row in the overview grid.
-let renderLanguageRow = (lang: SpecBrowserModel.specLanguageEntry): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_(
-        "flex items-center gap-3 p-3 border-b border-gray-800 hover:bg-gray-900/50 cursor-pointer",
-      ),
-      Events.onClick(SpecBrowser(SelectSpecLanguage(Some(lang.name)))),
-    },
-    list{
-      div(
-        list{Attrs.class_("w-32")},
-        list{
-          div(list{Attrs.class_("text-sm font-medium text-gray-200")}, list{text(lang.name)}),
-          div(list{Attrs.class_("text-[10px] text-gray-500")}, list{text(lang.implLang)}),
-        },
-      ),
-      div(
-        list{Attrs.class_("flex-1 text-xs text-gray-400 truncate")},
-        list{text(lang.description)},
-      ),
-      renderFilePresence(lang.files),
-      renderCompletenessBadge(lang.taxonomyCompleteness),
-      div(
-        list{Attrs.class_("w-20 text-right text-xs text-gray-500")},
-        list{text(Int.toString(lang.verification.totalTests) ++ " tests")},
-      ),
-    },
-  )
-}
-
-/// Render a spec content pane (for grammar/typing rules/comparison).
-let renderSpecContent = (title: string, content: option<string>): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-4 flex-1 min-h-64")},
-    list{
-      div(
-        list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wide mb-2")},
-        list{text(title)},
-      ),
-      switch content {
-      | Some(c) =>
-        pre(
-          list{
-            Attrs.class_(
-              "font-mono text-xs text-gray-300 whitespace-pre-wrap overflow-auto max-h-96",
-            ),
-          },
-          list{text(c)},
-        )
-      | None =>
-        div(
-          list{Attrs.class_("text-sm text-gray-600 italic")},
-          list{
-            text("Content not loaded. Select a language and the spec will be loaded from disk."),
-          },
-        )
-      },
-    },
-  )
-}
-
-/// Render a comparison side selector.
-let renderSideSelector = (
-  side: SpecBrowserModel.comparisonSide,
-  selected: option<string>,
-  langs: array<SpecBrowserModel.specLanguageEntry>,
-): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-2")},
-    list{
-      label(
-        list{Attrs.class_("text-xs text-gray-500")},
-        list{
-          text(
-            switch side {
-            | LeftSide => "Left"
-            | RightSide => "Right"
-            },
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("flex flex-wrap gap-1")},
-        langs
-        ->Array.map(l => {
-          let isSelected = selected === Some(l.name)
-          button(
-            list{
-              Attrs.class_(
-                `px-2 py-1 text-xs rounded transition-colors ${isSelected
-                    ? "bg-teal-600 text-white"
-                    : "bg-gray-800 text-gray-400 hover:text-gray-200"}`,
-              ),
-              Events.onClick(SpecBrowser(SetComparisonSide(side, l.name))),
-            },
-            list{text(l.name)},
-          )
-        })
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Main View
-// ============================================================================
-
-/// Main view for the SpecBrowser panel.
-let view = (sb: specBrowserState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("SpecBrowser language specification panel"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between p-4 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-medium text-gray-200")},
-                list{text("Spec Browser")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{text("Language Specification Explorer")},
-              ),
-              {
-                let summary = SpecBrowserEngine.portfolioSummary()
-                span(
-                  list{Attrs.class_("text-xs text-gray-600")},
-                  list{
-                    text(
-                      `${Int.toString(summary.totalLanguages)} languages, avg ${Int.toString(
-                          summary.avgCompleteness,
-                        )}% complete`,
-                    ),
-                  },
-                )
-              },
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              input(
-                list{
-                  Attrs.class_(
-                    "bg-gray-900 border border-gray-700 rounded px-3 py-1 text-sm text-gray-200 placeholder-gray-600 w-48",
-                  ),
-                  Attrs.placeholder("Filter languages..."),
-                  Attrs.value(sb.filterText),
-                  Events.onInput(v => SpecBrowser(SetSpecFilter(v))),
-                },
-                list{},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-sm bg-gray-800 text-gray-300 rounded hover:bg-gray-700",
-                  ),
-                  Events.onClick(PanelSwitcher(ClosePanels)),
-                  KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-                },
-                list{text("Close")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Content
-      div(
-        list{Attrs.class_("flex-1 overflow-auto p-6")},
-        list{
-          renderTabs(sb.activeCategory),
-          {
-            let filtered = {
-              let base = SpecBrowserEngine.allLanguageSpecs
-              let searched = SpecBrowserEngine.filterBySearch(base, sb.filterText)
-              if sb.showIncompleteOnly {
-                SpecBrowserEngine.filterIncomplete(searched)
-              } else {
-                searched
-              }
-            }
-            switch sb.activeCategory {
-            // ── Overview Tab ──
-            | SpecOverview =>
-              div(
-                list{Attrs.class_("space-y-4")},
-                list{
-                  {
-                    let summary = SpecBrowserEngine.portfolioSummary()
-                    div(
-                      list{Attrs.class_("grid grid-cols-5 gap-3 mb-4")},
-                      list{
-                        div(
-                          list{
-                            Attrs.class_(
-                              "bg-gray-900 border border-gray-700 rounded-lg p-3 text-center",
-                            ),
-                          },
-                          list{
-                            div(
-                              list{Attrs.class_("text-2xl font-mono text-teal-400")},
-                              list{text(Int.toString(summary.totalLanguages))},
-                            ),
-                            div(
-                              list{Attrs.class_("text-[10px] text-gray-500")},
-                              list{text("Languages")},
-                            ),
-                          },
-                        ),
-                        div(
-                          list{
-                            Attrs.class_(
-                              "bg-gray-900 border border-gray-700 rounded-lg p-3 text-center",
-                            ),
-                          },
-                          list{
-                            div(
-                              list{
-                                Attrs.class_(
-                                  `text-2xl font-mono ${SpecBrowserEngine.completenessColour(
-                                      summary.avgCompleteness,
-                                    )}`,
-                                ),
-                              },
-                              list{text(Int.toString(summary.avgCompleteness) ++ "%")},
-                            ),
-                            div(
-                              list{Attrs.class_("text-[10px] text-gray-500")},
-                              list{text("Avg Completeness")},
-                            ),
-                          },
-                        ),
-                        div(
-                          list{
-                            Attrs.class_(
-                              "bg-gray-900 border border-gray-700 rounded-lg p-3 text-center",
-                            ),
-                          },
-                          list{
-                            div(
-                              list{Attrs.class_("text-2xl font-mono text-emerald-400")},
-                              list{text(Int.toString(summary.fullySpecified))},
-                            ),
-                            div(
-                              list{Attrs.class_("text-[10px] text-gray-500")},
-                              list{text("Fully Specified")},
-                            ),
-                          },
-                        ),
-                        div(
-                          list{
-                            Attrs.class_(
-                              "bg-gray-900 border border-gray-700 rounded-lg p-3 text-center",
-                            ),
-                          },
-                          list{
-                            div(
-                              list{Attrs.class_("text-2xl font-mono text-cyan-400")},
-                              list{text(Int.toString(summary.totalTests))},
-                            ),
-                            div(
-                              list{Attrs.class_("text-[10px] text-gray-500")},
-                              list{text("Total Tests")},
-                            ),
-                          },
-                        ),
-                        div(
-                          list{
-                            Attrs.class_(
-                              "bg-gray-900 border border-gray-700 rounded-lg p-3 text-center",
-                            ),
-                          },
-                          list{
-                            div(
-                              list{
-                                Attrs.class_(
-                                  `text-2xl font-mono ${if summary.totalAdmitted > 0 {
-                                      "text-amber-400"
-                                    } else {
-                                      "text-emerald-400"
-                                    }}`,
-                                ),
-                              },
-                              list{text(Int.toString(summary.totalAdmitted))},
-                            ),
-                            div(
-                              list{Attrs.class_("text-[10px] text-gray-500")},
-                              list{text("Admitted/Sorry")},
-                            ),
-                          },
-                        ),
-                      },
-                    )
-                  },
-                  // Toggle incomplete filter
-                  div(
-                    list{Attrs.class_("flex items-center gap-2")},
-                    list{
-                      button(
-                        list{
-                          Attrs.class_(
-                            `px-3 py-1 text-xs rounded ${sb.showIncompleteOnly
-                                ? "bg-amber-600 text-white"
-                                : "bg-gray-800 text-gray-400"}`,
-                          ),
-                          Events.onClick(SpecBrowser(ToggleIncompleteOnly)),
-                          KeyboardNav.onActivate(SpecBrowser(ToggleIncompleteOnly)),
-                        },
-                        list{text("Show Incomplete Only")},
-                      ),
-                    },
-                  ),
-                  // Language grid
-                  div(
-                    list{Attrs.class_("border border-gray-700 rounded-lg overflow-hidden")},
-                    list{
-                      // Header
-                      div(
-                        list{
-                          Attrs.class_(
-                            "flex items-center gap-3 p-2 bg-gray-800/50 border-b border-gray-700 text-xs text-gray-500",
-                          ),
-                        },
-                        list{
-                          div(list{Attrs.class_("w-32")}, list{text("Language")}),
-                          div(list{Attrs.class_("flex-1")}, list{text("Description")}),
-                          div(list{Attrs.class_("w-56")}, list{text("Files")}),
-                          div(list{Attrs.class_("w-12")}, list{text("Tax%")}),
-                          div(list{Attrs.class_("w-20 text-right")}, list{text("Tests")}),
-                        },
-                      ),
-                      // Rows
-                      div(
-                        list{Attrs.class_("max-h-96 overflow-y-auto")},
-                        filtered->Array.map(renderLanguageRow)->List.fromArray,
-                      ),
-                    },
-                  ),
-                },
-              )
-            // ── Comparison Tab ──
-            | SpecComparison =>
-              div(
-                list{Attrs.class_("space-y-4")},
-                list{
-                  div(
-                    list{Attrs.class_("text-sm text-gray-400 mb-2")},
-                    list{
-                      text("Select two languages to compare their specifications side-by-side."),
-                    },
-                  ),
-                  div(
-                    list{Attrs.class_("grid grid-cols-2 gap-4")},
-                    list{
-                      renderSideSelector(LeftSide, sb.comparisonLeft, filtered),
-                      renderSideSelector(RightSide, sb.comparisonRight, filtered),
-                    },
-                  ),
-                  // Side-by-side content
-                  div(
-                    list{Attrs.class_("grid grid-cols-2 gap-4")},
-                    list{
-                      {
-                        let left = sb.comparisonLeft->Option.flatMap(SpecBrowserEngine.findLanguage)
-                        switch left {
-                        | Some(l) => renderSpecContent(l.name ++ " — Grammar", l.grammarContent)
-                        | None => renderSpecContent("Left — Grammar", None)
-                        }
-                      },
-                      {
-                        let right =
-                          sb.comparisonRight->Option.flatMap(SpecBrowserEngine.findLanguage)
-                        switch right {
-                        | Some(l) => renderSpecContent(l.name ++ " — Grammar", l.grammarContent)
-                        | None => renderSpecContent("Right — Grammar", None)
-                        }
-                      },
-                    },
-                  ),
-                  // File presence comparison
-                  div(
-                    list{Attrs.class_("grid grid-cols-2 gap-4")},
-                    list{
-                      {
-                        let left = sb.comparisonLeft->Option.flatMap(SpecBrowserEngine.findLanguage)
-                        switch left {
-                        | Some(l) =>
-                          div(
-                            list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-3")},
-                            list{
-                              div(
-                                list{Attrs.class_("text-xs text-gray-500 mb-2")},
-                                list{text(l.name ++ " Files")},
-                              ),
-                              div(
-                                list{Attrs.class_("space-y-1")},
-                                l.files
-                                ->Array.map(f =>
-                                  div(
-                                    list{Attrs.class_("flex items-center gap-2 text-xs")},
-                                    list{
-                                      span(
-                                        list{
-                                          Attrs.class_(SpecBrowserEngine.presenceColour(f.exists)),
-                                        },
-                                        list{
-                                          text(
-                                            if f.exists {
-                                              "Yes"
-                                            } else {
-                                              "No"
-                                            },
-                                          ),
-                                        },
-                                      ),
-                                      span(
-                                        list{Attrs.class_("text-gray-400")},
-                                        list{text(SpecBrowserEngine.fileKindLabel(f.kind))},
-                                      ),
-                                      if f.lineCount > 0 {
-                                        span(
-                                          list{Attrs.class_("text-gray-600")},
-                                          list{text(Int.toString(f.lineCount) ++ " lines")},
-                                        )
-                                      } else {
-                                        noNode
-                                      },
-                                    },
-                                  )
-                                )
-                                ->List.fromArray,
-                              ),
-                            },
-                          )
-                        | None =>
-                          div(
-                            list{Attrs.class_("text-sm text-gray-600 italic")},
-                            list{text("Select a language")},
-                          )
-                        }
-                      },
-                      {
-                        let right =
-                          sb.comparisonRight->Option.flatMap(SpecBrowserEngine.findLanguage)
-                        switch right {
-                        | Some(l) =>
-                          div(
-                            list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-3")},
-                            list{
-                              div(
-                                list{Attrs.class_("text-xs text-gray-500 mb-2")},
-                                list{text(l.name ++ " Files")},
-                              ),
-                              div(
-                                list{Attrs.class_("space-y-1")},
-                                l.files
-                                ->Array.map(f =>
-                                  div(
-                                    list{Attrs.class_("flex items-center gap-2 text-xs")},
-                                    list{
-                                      span(
-                                        list{
-                                          Attrs.class_(SpecBrowserEngine.presenceColour(f.exists)),
-                                        },
-                                        list{
-                                          text(
-                                            if f.exists {
-                                              "Yes"
-                                            } else {
-                                              "No"
-                                            },
-                                          ),
-                                        },
-                                      ),
-                                      span(
-                                        list{Attrs.class_("text-gray-400")},
-                                        list{text(SpecBrowserEngine.fileKindLabel(f.kind))},
-                                      ),
-                                      if f.lineCount > 0 {
-                                        span(
-                                          list{Attrs.class_("text-gray-600")},
-                                          list{text(Int.toString(f.lineCount) ++ " lines")},
-                                        )
-                                      } else {
-                                        noNode
-                                      },
-                                    },
-                                  )
-                                )
-                                ->List.fromArray,
-                              ),
-                            },
-                          )
-                        | None =>
-                          div(
-                            list{Attrs.class_("text-sm text-gray-600 italic")},
-                            list{text("Select a language")},
-                          )
-                        }
-                      },
-                    },
-                  ),
-                },
-              )
-            // ── Grammar Tab ──
-            | SpecGrammar =>
-              div(
-                list{Attrs.class_("space-y-4")},
-                list{
-                  div(
-                    list{Attrs.class_("text-sm text-gray-400 mb-2")},
-                    list{text("Select a language to view its grammar definition (EBNF).")},
-                  ),
-                  div(
-                    list{Attrs.class_("flex flex-wrap gap-1 mb-4")},
-                    filtered
-                    ->Array.map(l => {
-                      let isSelected = sb.selectedLanguage === Some(l.name)
-                      let hasGrammar = l.files->Array.some(f => f.kind === GrammarEbnf && f.exists)
-                      button(
-                        list{
-                          Attrs.class_(
-                            `px-2 py-1 text-xs rounded transition-colors ${isSelected
-                                ? "bg-teal-600 text-white"
-                                : hasGrammar
-                                ? "bg-gray-800 text-gray-300 hover:text-gray-100"
-                                : "bg-gray-800 text-gray-600"}`,
-                          ),
-                          Events.onClick(SpecBrowser(SelectSpecLanguage(Some(l.name)))),
-                        },
-                        list{text(l.name)},
-                      )
-                    })
-                    ->List.fromArray,
-                  ),
-                  {
-                    let selected =
-                      sb.selectedLanguage->Option.flatMap(SpecBrowserEngine.findLanguage)
-                    switch selected {
-                    | Some(l) => renderSpecContent(l.name ++ " — grammar.ebnf", l.grammarContent)
-                    | None =>
-                      div(
-                        list{Attrs.class_("text-sm text-gray-600 italic mt-8 text-center")},
-                        list{text("Select a language above to view its grammar.")},
-                      )
-                    }
-                  },
-                },
-              )
-            // ── Typing Rules Tab ──
-            | SpecTypingRules =>
-              div(
-                list{Attrs.class_("space-y-4")},
-                list{
-                  div(
-                    list{Attrs.class_("text-sm text-gray-400 mb-2")},
-                    list{text("Select a language to view its typing rules.")},
-                  ),
-                  div(
-                    list{Attrs.class_("flex flex-wrap gap-1 mb-4")},
-                    filtered
-                    ->Array.map(l => {
-                      let isSelected = sb.selectedLanguage === Some(l.name)
-                      let hasRules = l.files->Array.some(f => f.kind === TypingRules && f.exists)
-                      button(
-                        list{
-                          Attrs.class_(
-                            `px-2 py-1 text-xs rounded transition-colors ${isSelected
-                                ? "bg-teal-600 text-white"
-                                : hasRules
-                                ? "bg-gray-800 text-gray-300 hover:text-gray-100"
-                                : "bg-gray-800 text-gray-600"}`,
-                          ),
-                          Events.onClick(SpecBrowser(SelectSpecLanguage(Some(l.name)))),
-                        },
-                        list{text(l.name)},
-                      )
-                    })
-                    ->List.fromArray,
-                  ),
-                  {
-                    let selected =
-                      sb.selectedLanguage->Option.flatMap(SpecBrowserEngine.findLanguage)
-                    switch selected {
-                    | Some(l) =>
-                      renderSpecContent(l.name ++ " — typing-rules.md", l.typingRulesContent)
-                    | None =>
-                      div(
-                        list{Attrs.class_("text-sm text-gray-600 italic mt-8 text-center")},
-                        list{text("Select a language above to view its typing rules.")},
-                      )
-                    }
-                  },
-                },
-              )
-            // ── Verification Tab ──
-            | SpecVerification =>
-              div(
-                list{Attrs.class_("space-y-4")},
-                list{
-                  div(
-                    list{Attrs.class_("text-sm text-gray-400 mb-2")},
-                    list{text("Test, proof, and conformance status across all language projects.")},
-                  ),
-                  // Verification table
-                  div(
-                    list{Attrs.class_("border border-gray-700 rounded-lg overflow-hidden")},
-                    list{
-                      // Header
-                      div(
-                        list{
-                          Attrs.class_(
-                            "flex items-center gap-3 p-2 bg-gray-800/50 border-b border-gray-700 text-xs text-gray-500",
-                          ),
-                        },
-                        list{
-                          div(list{Attrs.class_("w-28")}, list{text("Language")}),
-                          div(list{Attrs.class_("w-20 text-right")}, list{text("Tests")}),
-                          div(list{Attrs.class_("w-20 text-right")}, list{text("Passing")}),
-                          div(list{Attrs.class_("w-16 text-right")}, list{text("Pass%")}),
-                          div(list{Attrs.class_("w-20 text-right")}, list{text("Proved")}),
-                          div(list{Attrs.class_("w-20 text-right")}, list{text("Admitted")}),
-                          div(list{Attrs.class_("w-16 text-center")}, list{text("Fuzz")}),
-                          div(list{Attrs.class_("w-16 text-center")}, list{text("Conf")}),
-                        },
-                      ),
-                      // Rows
-                      div(
-                        list{Attrs.class_("max-h-96 overflow-y-auto")},
-                        filtered
-                        ->Array.map(l => {
-                          let v = l.verification
-                          let passPct = if v.totalTests > 0 {
-                            v.passingTests * 100 / v.totalTests
-                          } else {
-                            0
-                          }
-                          div(
-                            list{
-                              Attrs.class_(
-                                "flex items-center gap-3 p-2 border-b border-gray-800 hover:bg-gray-900/50 text-xs",
-                              ),
-                            },
-                            list{
-                              div(
-                                list{Attrs.class_("w-28 text-gray-200 font-medium")},
-                                list{text(l.name)},
-                              ),
-                              div(
-                                list{Attrs.class_("w-20 text-right text-gray-300 font-mono")},
-                                list{text(Int.toString(v.totalTests))},
-                              ),
-                              div(
-                                list{Attrs.class_("w-20 text-right text-emerald-400 font-mono")},
-                                list{text(Int.toString(v.passingTests))},
-                              ),
-                              div(
-                                list{
-                                  Attrs.class_(
-                                    `w-16 text-right font-mono ${if passPct >= 90 {
-                                        "text-emerald-400"
-                                      } else if passPct >= 70 {
-                                        "text-amber-400"
-                                      } else {
-                                        "text-red-400"
-                                      }}`,
-                                  ),
-                                },
-                                list{text(Int.toString(passPct) ++ "%")},
-                              ),
-                              div(
-                                list{Attrs.class_("w-20 text-right text-violet-400 font-mono")},
-                                list{text(Int.toString(v.provedCount))},
-                              ),
-                              div(
-                                list{
-                                  Attrs.class_(
-                                    `w-20 text-right font-mono ${if v.admittedCount > 0 {
-                                        "text-amber-400"
-                                      } else {
-                                        "text-gray-600"
-                                      }}`,
-                                  ),
-                                },
-                                list{text(Int.toString(v.admittedCount))},
-                              ),
-                              div(
-                                list{Attrs.class_("w-16 text-center")},
-                                list{
-                                  text(
-                                    if v.hasFuzzing {
-                                      "Yes"
-                                    } else {
-                                      "-"
-                                    },
-                                  ),
-                                },
-                              ),
-                              div(
-                                list{
-                                  Attrs.class_(
-                                    `w-16 text-center ${if v.conformancePassing {
-                                        "text-emerald-400"
-                                      } else {
-                                        "text-gray-600"
-                                      }}`,
-                                  ),
-                                },
-                                list{
-                                  text(
-                                    if v.conformancePassing {
-                                      "Pass"
-                                    } else {
-                                      "-"
-                                    },
-                                  ),
-                                },
-                              ),
-                            },
-                          )
-                        })
-                        ->List.fromArray,
-                      ),
-                    },
-                  ),
-                },
-              )
-            }
-          },
-          // Error display
-          switch sb.error {
-          | Some(e) =>
-            div(
-              list{
-                Attrs.class_(
-                  "mt-4 p-3 bg-red-900/30 border border-red-700 rounded text-sm text-red-300",
-                ),
-                Attrs.role("alert"),
-              },
-              list{text(e)},
-            )
-          | None => noNode
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/Stapeln.affine b/src/components/Stapeln.affine
new file mode 100644
index 00000000..5595c82f
--- /dev/null
+++ b/src/components/Stapeln.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Stapeln;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Stapeln.res b/src/components/Stapeln.res
deleted file mode 100644
index 6e6bd5fb..00000000
--- a/src/components/Stapeln.res
+++ /dev/null
@@ -1,816 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Stapeln Assembly Pipeline — container stack assembly view.
-///
-/// Renders within PanLL's three-panel framework to provide an overview
-/// of container assembly constraints, reasoning, and generated artifacts.
-/// The detailed node editor lives in stapeln's own frontend; this panel
-/// shows the mission-control view: constraints, validation, and outputs.
-///
-/// Three-panel layout:
-///   Panel-L (Constraints & Discovery)  — security, resource, network policy
-///   Panel-N (Assembly Reasoning)       — pipeline state, optimisation, posture
-///   Panel-W (Results & Artifacts)      — Containerfile, compose, scan results
-
-open Model
-open Msg
-open Tea.Html
-
-// ============================================================================
-// Panel-L: Constraints & Discovery
-// ============================================================================
-
-/// Render a single constraint row with label and value.
-let constraintRow = (label: string, value: string, ~highlight: bool=false): Tea_Vdom.t<msg> => {
-  let valueCls = highlight ? "text-sm font-medium text-emerald-400" : "text-sm text-gray-300"
-  div(
-    list{Attrs.class_("flex items-center justify-between py-1.5 border-b border-gray-800")},
-    list{
-      span(list{Attrs.class_("text-xs text-gray-500")}, list{text(label)}),
-      span(list{Attrs.class_(valueCls)}, list{text(value)}),
-    },
-  )
-}
-
-/// Render a boolean constraint as a coloured badge.
-let boolBadge = (label: string, enabled: bool): Tea_Vdom.t<msg> => {
-  let (badgeCls, badgeText) = enabled
-    ? ("px-2 py-0.5 text-xs bg-emerald-900 text-emerald-300 rounded", "Required")
-    : ("px-2 py-0.5 text-xs bg-gray-800 text-gray-500 rounded", "Off")
-  div(
-    list{Attrs.class_("flex items-center justify-between py-1.5 border-b border-gray-800")},
-    list{
-      span(list{Attrs.class_("text-xs text-gray-500")}, list{text(label)}),
-      span(list{Attrs.class_(badgeCls)}, list{text(badgeText)}),
-    },
-  )
-}
-
-/// Render a registry constraint row.
-let registryRow = (rc: registryConstraint): Tea_Vdom.t<msg> => {
-  let (cls, icon) = rc.allowed ? ("text-emerald-400", "ALLOW") : ("text-red-400", "DENY")
-  div(
-    list{Attrs.class_("flex items-center justify-between py-1 px-2 bg-gray-900 rounded mb-1")},
-    list{
-      span(list{Attrs.class_("text-xs text-gray-400 font-mono")}, list{text(rc.registry)}),
-      span(list{Attrs.class_(`text-xs font-medium ${cls}`)}, list{text(icon)}),
-    },
-  )
-}
-
-/// Panel-L: Security and resource constraints editor.
-let viewConstraints = (model: model): Tea_Vdom.t<msg> => {
-  let st = model.stapeln
-  let c = st.constraints
-  div(
-    list{Attrs.class_("p-4 space-y-4")},
-    list{
-      // Header
-      h3(
-        list{Attrs.class_("text-lg font-semibold text-white mb-2")},
-        list{text("Assembly Constraints")},
-      ),
-      // Security constraints section
-      div(
-        list{Attrs.class_("space-y-1")},
-        list{
-          div(
-            list{Attrs.class_("text-xs font-medium text-gray-400 uppercase tracking-wider mb-2")},
-            list{text("Supply Chain Security")},
-          ),
-          constraintRow("SLSA Level", StapelnEngine.slsaLabel(c.minSlsaLevel), ~highlight=true),
-          constraintRow("Signature Policy", StapelnEngine.signaturePolicyLabel(c.signaturePolicy)),
-          constraintRow("SBOM Format", StapelnEngine.sbomFormatLabel(c.sbomFormat)),
-          boolBadge("Healthcheck", c.requireHealthcheck),
-          boolBadge("Non-Root", c.requireNonRoot),
-        },
-      ),
-      // Resource constraints section
-      div(
-        list{Attrs.class_("space-y-1")},
-        list{
-          div(
-            list{
-              Attrs.class_("text-xs font-medium text-gray-400 uppercase tracking-wider mb-2 mt-3"),
-            },
-            list{text("Resource Limits")},
-          ),
-          constraintRow("Max Image Size", Int.toString(c.maxImageSizeMb) ++ " MB"),
-          constraintRow("Memory Limit", Int.toString(c.memoryLimitMb) ++ " MB"),
-          constraintRow("CPU Limit", Float.toString(c.cpuLimit) ++ " cores"),
-        },
-      ),
-      // Registry constraints
-      div(
-        list{Attrs.class_("space-y-1")},
-        list{
-          div(
-            list{
-              Attrs.class_("text-xs font-medium text-gray-400 uppercase tracking-wider mb-2 mt-3"),
-            },
-            list{text("Registry Policy")},
-          ),
-          div(
-            list{Attrs.class_("space-y-1")},
-            c.registryConstraints->Array.map(registryRow)->List.fromArray,
-          ),
-        },
-      ),
-      // Denied images
-      div(
-        list{Attrs.class_("space-y-1")},
-        list{
-          div(
-            list{
-              Attrs.class_("text-xs font-medium text-gray-400 uppercase tracking-wider mb-2 mt-3"),
-            },
-            list{text("Denied Images")},
-          ),
-          div(
-            list{Attrs.class_("space-y-1")},
-            c.deniedImages
-            ->Array.map(img =>
-              div(
-                list{Attrs.class_("px-2 py-1 bg-red-950 text-red-400 text-xs font-mono rounded")},
-                list{text(img)},
-              )
-            )
-            ->List.fromArray,
-          ),
-        },
-      ),
-      // Network policy
-      div(
-        list{Attrs.class_("space-y-1")},
-        list{
-          div(
-            list{
-              Attrs.class_("text-xs font-medium text-gray-400 uppercase tracking-wider mb-2 mt-3"),
-            },
-            list{text("Network Policy")},
-          ),
-          div(
-            list{Attrs.class_("space-y-1")},
-            c.networkRules
-            ->Array.map(rule => {
-              let protocolStr = switch rule.protocol {
-              | Tcp => "TCP"
-              | Udp => "UDP"
-              | Sctp => "SCTP"
-              }
-              let dirCls = rule.direction === "ingress" ? "text-cyan-400" : "text-amber-400"
-              div(
-                list{Attrs.class_("flex items-center gap-2 px-2 py-1 bg-gray-900 rounded")},
-                list{
-                  span(
-                    list{Attrs.class_(`text-xs font-medium ${dirCls}`)},
-                    list{text(rule.direction)},
-                  ),
-                  span(
-                    list{Attrs.class_("text-xs text-gray-300 font-mono")},
-                    list{text(protocolStr ++ ":" ++ Int.toString(rule.port))},
-                  ),
-                  span(
-                    list{Attrs.class_("text-xs text-gray-500 ml-auto")},
-                    list{text(rule.description)},
-                  ),
-                },
-              )
-            })
-            ->List.fromArray,
-          ),
-        },
-      ),
-      // Connect / Disconnect button
-      div(
-        list{Attrs.class_("pt-3")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                if st.connected {
-                  "w-full px-3 py-2 text-xs bg-emerald-700 text-white rounded hover:bg-emerald-600 cursor-pointer"
-                } else {
-                  "w-full px-3 py-2 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer"
-                },
-              ),
-              Events.onClick(Stapeln(Connect)),
-              KeyboardNav.onActivate(Stapeln(Connect)),
-            },
-            list{
-              text(
-                if st.connected {
-                  "Connected"
-                } else {
-                  "Connect to Pipeline"
-                },
-              ),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Panel-N: Assembly Reasoning
-// ============================================================================
-
-/// Render a stat card for the pipeline overview.
-let statCard = (label: string, value: string, colour: string): Tea_Vdom.t<msg> =>
-  div(
-    list{Attrs.class_("p-3 bg-gray-800 rounded text-center")},
-    list{
-      div(list{Attrs.class_(`text-2xl font-light ${colour}`)}, list{text(value)}),
-      div(list{Attrs.class_("text-xs text-gray-500")}, list{text(label)}),
-    },
-  )
-
-/// Render a single optimisation suggestion row.
-let suggestionRow = (s: optimisationSuggestion): Tea_Vdom.t<msg> => {
-  let severityCls = switch s.severity {
-  | "critical" => "text-red-400"
-  | "warning" => "text-amber-400"
-  | _ => "text-blue-400"
-  }
-  let categoryCls = switch s.category {
-  | "security" => "bg-red-900 text-red-300"
-  | "size" => "bg-cyan-900 text-cyan-300"
-  | "performance" => "bg-purple-900 text-purple-300"
-  | _ => "bg-gray-700 text-gray-300"
-  }
-  div(
-    list{Attrs.class_("p-2 bg-gray-900 rounded border border-gray-800 space-y-1")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          span(list{Attrs.class_(`text-xs font-medium ${severityCls}`)}, list{text(s.severity)}),
-          span(
-            list{Attrs.class_(`px-1.5 py-0.5 text-xs rounded ${categoryCls}`)},
-            list{text(s.category)},
-          ),
-          if s.autoFixAvailable {
-            span(list{Attrs.class_("text-xs text-emerald-500 ml-auto")}, list{text("auto-fix")})
-          } else {
-            text("")
-          },
-        },
-      ),
-      div(list{Attrs.class_("text-xs text-gray-300")}, list{text(s.message)}),
-    },
-  )
-}
-
-/// Panel-N: Pipeline state overview and reasoning engine output.
-let viewReasoning = (model: model): Tea_Vdom.t<msg> => {
-  let st = model.stapeln
-  div(
-    list{Attrs.class_("p-4 space-y-4")},
-    list{
-      // Header
-      h3(
-        list{Attrs.class_("text-lg font-semibold text-white mb-2")},
-        list{text("Assembly Reasoning")},
-      ),
-      // Connection status
-      div(
-        list{Attrs.class_("flex items-center gap-2 mb-3")},
-        list{
-          div(
-            list{
-              Attrs.class_(
-                if st.connected {
-                  "w-2 h-2 rounded-full bg-emerald-400"
-                } else {
-                  "w-2 h-2 rounded-full bg-gray-600"
-                },
-              ),
-            },
-            list{},
-          ),
-          span(
-            list{Attrs.class_("text-xs text-gray-400")},
-            list{
-              text(
-                if st.connected {
-                  "Pipeline connected"
-                } else {
-                  "Disconnected"
-                },
-              ),
-            },
-          ),
-          span(
-            list{Attrs.class_("text-xs text-gray-600 ml-auto font-mono")},
-            list{text(st.pipelineUrl)},
-          ),
-        },
-      ),
-      // Pipeline stats (if available)
-      switch st.pipelineStatus {
-      | Some(status) =>
-        div(
-          list{Attrs.class_("space-y-4")},
-          list{
-            // Stats row
-            div(
-              list{Attrs.class_("grid grid-cols-3 gap-3")},
-              list{
-                statCard("Nodes", Int.toString(status.nodeCount), "text-cyan-400"),
-                statCard("Connections", Int.toString(status.connectionCount), "text-purple-400"),
-                statCard(
-                  "Health",
-                  StapelnEngine.healthLabel(status.health),
-                  StapelnEngine.healthColour(status.health),
-                ),
-              },
-            ),
-            // Security posture
-            div(
-              list{Attrs.class_("p-3 bg-gray-800 rounded")},
-              list{
-                div(
-                  list{Attrs.class_("flex items-center justify-between mb-2")},
-                  list{
-                    span(
-                      list{Attrs.class_("text-xs font-medium text-gray-400 uppercase")},
-                      list{text("Security Posture")},
-                    ),
-                    span(
-                      list{
-                        Attrs.class_(
-                          if status.securityPosture.score >= 0.8 {
-                            "text-sm font-medium text-emerald-400"
-                          } else if status.securityPosture.score >= 0.5 {
-                            "text-sm font-medium text-amber-400"
-                          } else {
-                            "text-sm font-medium text-red-400"
-                          },
-                        ),
-                      },
-                      list{text(StapelnEngine.posturePercentage(status.securityPosture))},
-                    ),
-                  },
-                ),
-                div(
-                  list{Attrs.class_("grid grid-cols-2 gap-2")},
-                  list{
-                    boolBadge("SLSA Compliant", status.securityPosture.slsaCompliant),
-                    boolBadge("SBOM Present", status.securityPosture.sbomPresent),
-                    boolBadge("Signature Valid", status.securityPosture.signatureValid),
-                    constraintRow(
-                      "Vulnerabilities",
-                      Int.toString(status.securityPosture.vulnerabilities) ++
-                      " (" ++
-                      Int.toString(status.securityPosture.criticalVulns) ++ " critical)",
-                    ),
-                  },
-                ),
-              },
-            ),
-            // Validation status
-            div(
-              list{Attrs.class_("flex items-center gap-2")},
-              list{
-                span(
-                  list{
-                    Attrs.class_(
-                      if status.validationPassing {
-                        "text-xs font-medium text-emerald-400"
-                      } else {
-                        "text-xs font-medium text-red-400"
-                      },
-                    ),
-                  },
-                  list{
-                    text(
-                      if status.validationPassing {
-                        "Validation Passing"
-                      } else {
-                        "Validation Failing"
-                      },
-                    ),
-                  },
-                ),
-                button(
-                  list{
-                    Attrs.class_(
-                      "px-2 py-1 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer ml-auto",
-                    ),
-                    Events.onClick(Stapeln(RefreshStatus)),
-                    KeyboardNav.onActivate(Stapeln(RefreshStatus)),
-                  },
-                  list{text("Refresh")},
-                ),
-              },
-            ),
-            // Optimisation suggestions
-            if Array.length(status.suggestions) > 0 {
-              div(
-                list{Attrs.class_("space-y-2")},
-                list{
-                  div(
-                    list{
-                      Attrs.class_("text-xs font-medium text-gray-400 uppercase tracking-wider"),
-                    },
-                    list{text(`Suggestions (${Int.toString(Array.length(status.suggestions))})`)},
-                  ),
-                  div(
-                    list{Attrs.class_("space-y-2")},
-                    status.suggestions->Array.map(suggestionRow)->List.fromArray,
-                  ),
-                },
-              )
-            } else {
-              div(
-                list{Attrs.class_("text-xs text-gray-500 italic")},
-                list{text("No optimisation suggestions")},
-              )
-            },
-          },
-        )
-      | None =>
-        div(
-          list{Attrs.class_("p-6 text-center")},
-          list{
-            div(
-              list{Attrs.class_("text-gray-500 text-sm mb-3")},
-              list{text("No pipeline data available")},
-            ),
-            button(
-              list{
-                Attrs.class_(
-                  "px-3 py-1.5 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer",
-                ),
-                Events.onClick(Stapeln(RefreshStatus)),
-                KeyboardNav.onActivate(Stapeln(RefreshStatus)),
-              },
-              list{text("Refresh Status")},
-            ),
-          },
-        )
-      },
-    },
-  )
-}
-
-// ============================================================================
-// Panel-W: Results & Artifacts
-// ============================================================================
-
-/// Render an artifact format tab button.
-let formatTab = (fmt: artifactFormat, active: artifactFormat): Tea_Vdom.t<msg> => {
-  let isActive = fmt === active
-  let cls = isActive
-    ? "px-3 py-1.5 text-xs font-medium bg-gray-700 text-white rounded"
-    : "px-3 py-1.5 text-xs text-gray-400 hover:text-gray-200 hover:bg-gray-800 rounded cursor-pointer"
-  button(
-    list{
-      Attrs.class_(cls),
-      Events.onClick(Stapeln(RequestGenerate(StapelnEngine.artifactFormatLabel(fmt)))),
-    },
-    list{text(StapelnEngine.artifactFormatLabel(fmt))},
-  )
-}
-
-/// Render a single validation finding row.
-let findingRow = (f: validationFinding): Tea_Vdom.t<msg> => {
-  let levelCls = StapelnEngine.findingLevelColour(f.level)
-  div(
-    list{Attrs.class_("flex items-start gap-2 py-1.5 border-b border-gray-800")},
-    list{
-      span(
-        list{Attrs.class_(`text-xs font-medium ${levelCls} uppercase w-14 shrink-0`)},
-        list{text(f.level)},
-      ),
-      span(list{Attrs.class_("text-xs text-gray-500 font-mono w-16 shrink-0")}, list{text(f.rule)}),
-      div(
-        list{Attrs.class_("flex-1")},
-        list{
-          span(list{Attrs.class_("text-xs text-gray-300")}, list{text(f.message)}),
-          switch f.line {
-          | Some(ln) =>
-            span(
-              list{Attrs.class_("text-xs text-gray-600 ml-2")},
-              list{text("L" ++ Int.toString(ln))},
-            )
-          | None => text("")
-          },
-        },
-      ),
-      if f.autoFixAvailable {
-        span(list{Attrs.class_("text-xs text-emerald-500 shrink-0")}, list{text("fix")})
-      } else {
-        text("")
-      },
-    },
-  )
-}
-
-/// Panel-W: Generated artifacts, security scan results, and deploy readiness.
-let viewResults = (model: model): Tea_Vdom.t<msg> => {
-  let st = model.stapeln
-  div(
-    list{Attrs.class_("p-4 space-y-4")},
-    list{
-      // Header
-      h3(
-        list{Attrs.class_("text-lg font-semibold text-white mb-2")},
-        list{text("Results & Artifacts")},
-      ),
-      // Format tabs
-      div(
-        list{Attrs.class_("flex items-center gap-2 mb-3")},
-        StapelnEngine.allFormats
-        ->Array.map(fmt => formatTab(fmt, st.selectedFormat))
-        ->List.fromArray,
-      ),
-      // Generated artifact preview
-      div(
-        list{Attrs.class_("space-y-2")},
-        list{
-          div(
-            list{Attrs.class_("text-xs font-medium text-gray-400 uppercase tracking-wider")},
-            list{text("Generated " ++ StapelnEngine.artifactFormatLabel(st.selectedFormat))},
-          ),
-          switch st.generatedArtifact {
-          | Some(content) =>
-            pre(
-              list{
-                Attrs.class_(
-                  "p-3 bg-gray-900 rounded text-xs text-gray-300 font-mono overflow-auto max-h-64 border border-gray-800",
-                ),
-              },
-              list{text(content)},
-            )
-          | None =>
-            div(
-              list{Attrs.class_("p-4 bg-gray-900 rounded text-center")},
-              list{
-                div(
-                  list{Attrs.class_("text-gray-500 text-sm mb-2")},
-                  list{text("No artifact generated yet")},
-                ),
-                button(
-                  list{
-                    Attrs.class_(
-                      "px-3 py-1.5 text-xs bg-cyan-700 text-white rounded hover:bg-cyan-600 cursor-pointer",
-                    ),
-                    Events.onClick(
-                      Stapeln(
-                        RequestGenerate(StapelnEngine.artifactFormatLabel(st.selectedFormat)),
-                      ),
-                    ),
-                  },
-                  list{text("Generate " ++ StapelnEngine.artifactFormatLabel(st.selectedFormat))},
-                ),
-              },
-            )
-          },
-        },
-      ),
-      // Validation results
-      switch st.lastValidation {
-      | Some(validation) =>
-        div(
-          list{Attrs.class_("space-y-2")},
-          list{
-            // Summary bar
-            div(
-              list{Attrs.class_("flex items-center gap-3")},
-              list{
-                div(
-                  list{Attrs.class_("text-xs font-medium text-gray-400 uppercase tracking-wider")},
-                  list{text("Security Scan")},
-                ),
-                span(
-                  list{
-                    Attrs.class_(
-                      if validation.passed {
-                        "px-2 py-0.5 text-xs rounded bg-emerald-900 text-emerald-300"
-                      } else {
-                        "px-2 py-0.5 text-xs rounded bg-red-900 text-red-300"
-                      },
-                    ),
-                  },
-                  list{
-                    text(
-                      if validation.passed {
-                        "PASSED"
-                      } else {
-                        "FAILED"
-                      },
-                    ),
-                  },
-                ),
-                span(
-                  list{Attrs.class_("text-xs text-gray-500 ml-auto")},
-                  list{
-                    text(
-                      Int.toString(validation.errorCount) ++
-                      " errors, " ++
-                      Int.toString(validation.warningCount) ++
-                      " warnings, " ++
-                      Int.toString(validation.infoCount) ++ " info",
-                    ),
-                  },
-                ),
-              },
-            ),
-            // Finding rows
-            if Array.length(validation.findings) > 0 {
-              div(
-                list{Attrs.class_("space-y-0")},
-                validation.findings->Array.map(findingRow)->List.fromArray,
-              )
-            } else {
-              div(
-                list{Attrs.class_("text-xs text-emerald-500 italic")},
-                list{text("No findings — clean scan")},
-              )
-            },
-          },
-        )
-      | None =>
-        div(
-          list{Attrs.class_("space-y-2")},
-          list{
-            div(
-              list{Attrs.class_("flex items-center gap-3")},
-              list{
-                div(
-                  list{Attrs.class_("text-xs font-medium text-gray-400 uppercase tracking-wider")},
-                  list{text("Security Scan")},
-                ),
-                span(
-                  list{Attrs.class_("text-xs text-gray-500 italic")},
-                  list{text("Not yet scanned")},
-                ),
-              },
-            ),
-            button(
-              list{
-                Attrs.class_(
-                  "px-3 py-1.5 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer",
-                ),
-                Events.onClick(Stapeln(RequestValidation)),
-                KeyboardNav.onActivate(Stapeln(RequestValidation)),
-              },
-              list{text("Run Validation")},
-            ),
-          },
-        )
-      },
-      // Deploy readiness indicator
-      div(
-        list{Attrs.class_("pt-3 border-t border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center justify-between")},
-            list{
-              span(
-                list{Attrs.class_("text-xs font-medium text-gray-400 uppercase")},
-                list{text("Deploy Readiness")},
-              ),
-              {
-                let ready =
-                  st.connected &&
-                  st.generatedArtifact->Option.isSome &&
-                  st.lastValidation->Option.mapOr(false, v => v.passed)
-                span(
-                  list{
-                    Attrs.class_(
-                      if ready {
-                        "px-3 py-1 text-xs font-medium bg-emerald-700 text-white rounded"
-                      } else {
-                        "px-3 py-1 text-xs font-medium bg-gray-800 text-gray-500 rounded"
-                      },
-                    ),
-                  },
-                  list{
-                    text(
-                      if ready {
-                        "READY"
-                      } else {
-                        "NOT READY"
-                      },
-                    ),
-                  },
-                )
-              },
-            },
-          ),
-        },
-      ),
-      // Error display
-      switch st.error {
-      | Some(err) =>
-        div(
-          list{Attrs.class_("p-3 bg-red-950 border border-red-800 rounded")},
-          list{
-            div(
-              list{Attrs.class_("flex items-center justify-between")},
-              list{
-                span(list{Attrs.class_("text-xs text-red-400")}, list{text(err)}),
-                button(
-                  list{
-                    Attrs.class_("text-xs text-red-500 hover:text-red-400 cursor-pointer"),
-                    Events.onClick(Stapeln(DismissError)),
-                    KeyboardNav.onActivate(Stapeln(DismissError)),
-                  },
-                  list{text("dismiss")},
-                ),
-              },
-            ),
-          },
-        )
-      | None => text("")
-      },
-    },
-  )
-}
-
-// ============================================================================
-// Unified Panel View
-// ============================================================================
-
-/// Main entry point — renders the Stapeln panel content based on the active
-/// tab. Called from the panel switcher or layout engine.
-let view = (model: model): Tea_Vdom.t<msg> => {
-  let st = model.stapeln
-  div(
-    list{Attrs.class_("h-full flex flex-col bg-gray-950")},
-    list{
-      // Tab bar
-      div(
-        list{
-          Attrs.class_("flex items-center gap-2 px-4 py-2 border-b border-gray-800 bg-gray-900"),
-        },
-        list{
-          button(
-            list{
-              Attrs.class_(
-                if st.activeTab === "constraints" {
-                  "px-3 py-1.5 text-xs font-medium bg-gray-700 text-white rounded"
-                } else {
-                  "px-3 py-1.5 text-xs text-gray-400 hover:text-gray-200 hover:bg-gray-800 rounded cursor-pointer"
-                },
-              ),
-              Events.onClick(Stapeln(SetActiveTab("constraints"))),
-            },
-            list{text("Constraints")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                if st.activeTab === "reasoning" {
-                  "px-3 py-1.5 text-xs font-medium bg-gray-700 text-white rounded"
-                } else {
-                  "px-3 py-1.5 text-xs text-gray-400 hover:text-gray-200 hover:bg-gray-800 rounded cursor-pointer"
-                },
-              ),
-              Events.onClick(Stapeln(SetActiveTab("reasoning"))),
-            },
-            list{text("Reasoning")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                if st.activeTab === "results" {
-                  "px-3 py-1.5 text-xs font-medium bg-gray-700 text-white rounded"
-                } else {
-                  "px-3 py-1.5 text-xs text-gray-400 hover:text-gray-200 hover:bg-gray-800 rounded cursor-pointer"
-                },
-              ),
-              Events.onClick(Stapeln(SetActiveTab("results"))),
-            },
-            list{text("Results")},
-          ),
-          // Loading indicator
-          if st.loading {
-            span(
-              list{Attrs.class_("text-xs text-gray-500 ml-auto animate-pulse")},
-              list{text("Loading...")},
-            )
-          } else {
-            text("")
-          },
-        },
-      ),
-      // Panel content
-      div(
-        list{Attrs.class_("flex-1 overflow-auto")},
-        list{
-          switch st.activeTab {
-          | "constraints" => viewConstraints(model)
-          | "reasoning" => viewReasoning(model)
-          | "results" => viewResults(model)
-          | _ => viewConstraints(model)
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/StatusBar.affine b/src/components/StatusBar.affine
new file mode 100644
index 00000000..bacb5304
--- /dev/null
+++ b/src/components/StatusBar.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module StatusBar;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/StatusBar.res b/src/components/StatusBar.res
deleted file mode 100644
index 2db79c26..00000000
--- a/src/components/StatusBar.res
+++ /dev/null
@@ -1,137 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Status Bar — configurable bottom bar with system info widgets (DD-025).
-///
-/// Renders a VS Code-style status bar at the bottom of the window. Widgets
-/// are configurable via the Workspace panel's configurator. Each widget
-/// shows a label + value and can be toggled, repositioned, and reordered.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a single status bar widget.
-let renderWidget = (widget: statusWidget, model: model): Tea_Vdom.t<msg> => {
-  let value = switch widget.kind {
-  | ActivePanel =>
-    switch model.panelSwitcher.activePanel {
-    | Some(id) => PanelRegistry.panelName(id)
-    | None => "Core Panes"
-    }
-  | WorkspaceMode =>
-    switch model.workspace.mode {
-    | RhodiumMode => "Rhodium"
-    | EverythingMode => "Everything"
-    | CodeMode => "Code"
-    | BespokeMode => "Bespoke"
-    }
-  | SessionProtection =>
-    switch model.workspace.protection {
-    | Open => "Open"
-    | ReadOnly => "RO"
-    | Sandboxed => "Sand"
-    | LanguageLocked(_) => "LangLock"
-    | TranspilationGuarded => "TGuard"
-    | ProductionGated => "ProdGate"
-    }
-  | ExecutionMode =>
-    switch model.workspace.executionMode {
-    | Live => "Live"
-    | DryRun => "DryRun"
-    | Simulation => "Sim"
-    | Emulation => "Emu"
-    }
-  | CpuUsage =>
-    switch model.statusBar.systemInfo {
-    | Some(info) => Float.toFixed(info.cpuUsage, ~digits=0) ++ "%"
-    | None => "--"
-    }
-  | MemoryUsage =>
-    switch model.statusBar.systemInfo {
-    | Some(info) => StatusBarEngine.formatBytes(info.memoryUsed)
-    | None => "--"
-    }
-  | DiskUsage =>
-    switch model.statusBar.systemInfo {
-    | Some(info) => StatusBarEngine.formatBytes(info.diskUsed)
-    | None => "--"
-    }
-  | RepoInfo =>
-    switch model.repoLoader.currentRepo {
-    | Some(repo) => repo.name
-    | None => "No repo"
-    }
-  | ProviderStatus =>
-    if model.ai.loading {
-      "AI..."
-    } else if model.ai.broadcastMode {
-      "Broadcast"
-    } else {
-      Int.toString(Array.length(model.ai.providers)) ++ " providers"
-    }
-  | TaskProgress => "0/0"
-  | WatcherRate => Int.toString(model.watcher.eventCount) ++ " events"
-  | SessionUptime =>
-    switch model.statusBar.systemInfo {
-    | Some(info) => StatusBarEngine.formatUptime(info.uptimeSeconds)
-    | None => "--"
-    }
-  | ActiveAgents => "0 agents"
-  | UndoRedoStatus =>
-    Int.toString(Array.length(model.undoStack)) ++
-    "/" ++
-    Int.toString(Array.length(model.redoStack))
-  | CustomWidget(label) => label
-  }
-
-  div(
-    list{
-      Attrs.class_(
-        "flex items-center gap-1 px-2 py-0.5 text-xs text-gray-400 hover:text-gray-200 hover:bg-gray-800/50 rounded cursor-default transition-colors",
-      ),
-      Attrs.title(widget.label ++ ": " ++ value),
-    },
-    list{
-      div(list{Attrs.class_("text-gray-600")}, list{text(widget.label)}),
-      div(list{Attrs.class_("text-gray-300")}, list{text(value)}),
-    },
-  )
-}
-
-/// Render the full status bar.
-let view = (model: model): Tea_Vdom.t<msg> => {
-  if !model.statusBar.visible {
-    noNode
-  } else {
-    let leftWidgets = StatusBarEngine.widgetsForPosition(model.statusBar.widgets, Left)
-    let centerWidgets = StatusBarEngine.widgetsForPosition(model.statusBar.widgets, Center)
-    let rightWidgets = StatusBarEngine.widgetsForPosition(model.statusBar.widgets, Right)
-
-    div(
-      list{
-        Attrs.class_(
-          "h-6 bg-gray-900 border-t border-gray-800 flex items-center justify-between px-2 relative z-20 shrink-0",
-        ),
-        Attrs.role("status"),
-        Attrs.ariaLabel("PanLL status bar"),
-      },
-      list{
-        // Left section
-        div(
-          list{Attrs.class_("flex items-center gap-1")},
-          Array.map(leftWidgets, w => renderWidget(w, model))->List.fromArray,
-        ),
-        // Center section
-        div(
-          list{Attrs.class_("flex items-center gap-1")},
-          Array.map(centerWidgets, w => renderWidget(w, model))->List.fromArray,
-        ),
-        // Right section
-        div(
-          list{Attrs.class_("flex items-center gap-1")},
-          Array.map(rightWidgets, w => renderWidget(w, model))->List.fromArray,
-        ),
-      },
-    )
-  }
-}
diff --git a/src/components/StrategyDrift.affine b/src/components/StrategyDrift.affine
new file mode 100644
index 00000000..703b118f
--- /dev/null
+++ b/src/components/StrategyDrift.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module StrategyDrift;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/StrategyDrift.res b/src/components/StrategyDrift.res
deleted file mode 100644
index b5f9b031..00000000
--- a/src/components/StrategyDrift.res
+++ /dev/null
@@ -1,272 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL StrategyDrift Component — visualises the learning loop's
-/// top-prover-per-class recommendations, the PROVEN/SANCTIFY certificate
-/// landscape, and strategy-shift events.
-///
-/// Data sources (all polled on a timer):
-///   GET http://localhost:8080/api/v1/proof_attempts/certificates
-///   GET http://localhost:8080/api/v1/proof_attempts/coverage
-///   Hypatia.Rules.StrategyDrift.snapshot/0 (via HTTP bridge — TODO)
-///
-/// Layout: three stacked panels
-///   1. Certs Grid   — 11 classes × N provers, cert-status colouring
-///   2. Coverage Bars — per-class n_repos × n_provers × n_attempts
-///   3. Drift Events — append-only log of shift events
-
-open Tea.Html
-
-// ── Shared types ───────────────────────────────────────────────────────
-
-type certStatus = Proven | Pending | Sanctified | Unknown
-
-type proverCert = {
-  obligation_class: string,
-  prover_used: string,
-  success_rate: float,
-  total_attempts: int,
-  status: certStatus,
-}
-
-type classCoverage = {
-  obligation_class: string,
-  n_repos: int,
-  n_provers: int,
-  n_attempts: int,
-  n_success: int,
-}
-
-type driftEvent = {
-  timestamp: string,
-  obligation_class: string,
-  old_top: string,
-  new_top: string,
-  candidates_requeued: int,
-}
-
-type strategyDriftModel = {
-  certs: array<proverCert>,
-  coverage: array<classCoverage>,
-  drift_events: array<driftEvent>,
-  last_refresh: string,
-  error: option<string>,
-}
-
-// ── Render helpers ─────────────────────────────────────────────────────
-
-let statusBadge = (status: certStatus): Tea_Vdom.t<'msg> => {
-  let (color, label) = switch status {
-  | Proven => ("text-green-400 border-green-500", "PROVEN")
-  | Sanctified => ("text-amber-300 border-amber-400 border-2", "SANCTIFIED")
-  | Pending => ("text-gray-400 border-gray-600", "pending")
-  | Unknown => ("text-gray-500 border-gray-700", "?")
-  }
-  span(
-    list{Attrs.class_("inline-block px-2 py-1 text-xs font-mono border " ++ color)},
-    list{text(label)},
-  )
-}
-
-let certCell = (cert: proverCert): Tea_Vdom.t<'msg> => {
-  let rate_pct = Js.Float.toFixedWithPrecision(cert.success_rate *. 100.0, ~digits=0)
-  let intensity = if cert.success_rate > 0.9 {
-    "bg-green-900/40"
-  } else if cert.success_rate > 0.5 {
-    "bg-yellow-900/40"
-  } else {
-    "bg-red-900/40"
-  }
-  div(
-    list{Attrs.class_("p-2 border border-gray-700 " ++ intensity)},
-    list{
-      div(
-        list{Attrs.class_("text-sm font-mono text-gray-200")},
-        list{text(cert.prover_used)},
-      ),
-      div(
-        list{Attrs.class_("text-xs font-mono text-gray-400")},
-        list{text(rate_pct ++ "% · n=" ++ Belt.Int.toString(cert.total_attempts))},
-      ),
-      statusBadge(cert.status),
-    },
-  )
-}
-
-let certsGrid = (certs: array<proverCert>): Tea_Vdom.t<'msg> => {
-  let grouped = Belt.Array.reduce(certs, Js.Dict.empty(), (acc, cert) => {
-    let key = cert.obligation_class
-    let existing = switch Js.Dict.get(acc, key) {
-    | Some(arr) => arr
-    | None => []
-    }
-    Js.Dict.set(acc, key, Belt.Array.concat(existing, [cert]))
-    acc
-  })
-  let classes = Js.Dict.keys(grouped)
-
-  div(
-    list{Attrs.class_("mb-4")},
-    list{
-      h3(
-        list{Attrs.class_("text-lg font-bold text-gray-200 mb-2")},
-        list{text("Certificates Grid")},
-      ),
-      div(
-        list{Attrs.class_("space-y-2")},
-        Belt.Array.map(classes, class_name => {
-          let class_certs = switch Js.Dict.get(grouped, class_name) {
-          | Some(arr) => arr
-          | None => []
-          }
-          div(
-            list{Attrs.class_("border-l-2 border-blue-500 pl-2")},
-            list{
-              div(
-                list{Attrs.class_("text-sm font-mono text-gray-300 mb-1")},
-                list{text(class_name)},
-              ),
-              div(
-                list{Attrs.class_("flex gap-2 flex-wrap")},
-                Belt.Array.map(class_certs, certCell)->Belt.List.fromArray,
-              ),
-            },
-          )
-        })->Belt.List.fromArray,
-      ),
-    },
-  )
-}
-
-let coverageBar = (cov: classCoverage): Tea_Vdom.t<'msg> => {
-  let bar_width = Js.Math.min_int(cov.n_attempts * 2, 400)
-  let bar_width_str = Belt.Int.toString(bar_width) ++ "px"
-  div(
-    list{Attrs.class_("flex items-center gap-3 py-1")},
-    list{
-      span(
-        list{Attrs.class_("text-xs font-mono text-gray-400 w-24")},
-        list{text(cov.obligation_class)},
-      ),
-      div(
-        list{
-          Attrs.class_("h-4 bg-blue-900/60 border border-blue-700"),
-          Attrs.style("width", bar_width_str),
-        },
-        list{},
-      ),
-      span(
-        list{Attrs.class_("text-xs font-mono text-gray-400")},
-        list{
-          text(
-            "n=" ++
-            Belt.Int.toString(cov.n_attempts) ++
-            " · " ++
-            Belt.Int.toString(cov.n_repos) ++
-            " repos · " ++
-            Belt.Int.toString(cov.n_provers) ++
-            " provers",
-          ),
-        },
-      ),
-    },
-  )
-}
-
-let coverageBars = (coverage: array<classCoverage>): Tea_Vdom.t<'msg> => {
-  div(
-    list{Attrs.class_("mb-4")},
-    list{
-      h3(
-        list{Attrs.class_("text-lg font-bold text-gray-200 mb-2")},
-        list{text("Cross-Repo Coverage")},
-      ),
-      div(list{Attrs.class_("space-y-1")}, Belt.Array.map(coverage, coverageBar)->Belt.List.fromArray),
-    },
-  )
-}
-
-let driftEventRow = (event: driftEvent): Tea_Vdom.t<'msg> => {
-  div(
-    list{Attrs.class_("flex gap-3 py-1 text-xs font-mono border-b border-gray-800")},
-    list{
-      span(list{Attrs.class_("text-gray-500 w-40")}, list{text(event.timestamp)}),
-      span(list{Attrs.class_("text-blue-300 w-24")}, list{text(event.obligation_class)}),
-      span(
-        list{Attrs.class_("text-gray-400")},
-        list{text(event.old_top ++ " → ")},
-      ),
-      span(list{Attrs.class_("text-green-400")}, list{text(event.new_top)}),
-      span(
-        list{Attrs.class_("text-amber-300 ml-auto")},
-        list{
-          text("re-queued " ++ Belt.Int.toString(event.candidates_requeued)),
-        },
-      ),
-    },
-  )
-}
-
-let driftEventsPanel = (events: array<driftEvent>): Tea_Vdom.t<'msg> => {
-  div(
-    list{},
-    list{
-      h3(
-        list{Attrs.class_("text-lg font-bold text-gray-200 mb-2")},
-        list{text("Strategy Drift Events")},
-      ),
-      if Array.length(events) == 0 {
-        div(
-          list{Attrs.class_("text-sm text-gray-500 italic")},
-          list{text("No shifts detected yet.")},
-        )
-      } else {
-        div(list{Attrs.class_("space-y-0")}, Belt.Array.map(events, driftEventRow)->Belt.List.fromArray)
-      },
-    },
-  )
-}
-
-// ── Top-level view ─────────────────────────────────────────────────────
-
-let view = (model: strategyDriftModel): Tea_Vdom.t<'msg> => {
-  div(
-    list{Attrs.class_("strategy-drift-panel p-4 bg-gray-900 text-gray-200 min-h-full")},
-    list{
-      div(
-        list{Attrs.class_("flex items-baseline justify-between mb-4")},
-        list{
-          h2(
-            list{Attrs.class_("text-xl font-bold")},
-            list{text("Strategy Drift")},
-          ),
-          span(
-            list{Attrs.class_("text-xs font-mono text-gray-500")},
-            list{text("refreshed: " ++ model.last_refresh)},
-          ),
-        },
-      ),
-      switch model.error {
-      | Some(err) =>
-        div(
-          list{Attrs.class_("mb-4 p-2 border border-red-700 bg-red-900/40 text-red-300 text-xs")},
-          list{text("error: " ++ err)},
-        )
-      | None => noNode
-      },
-      certsGrid(model.certs),
-      coverageBars(model.coverage),
-      driftEventsPanel(model.drift_events),
-    },
-  )
-}
-
-// ── Decoders (JSON from verisim-api) ───────────────────────────────────
-
-let certStatusOfString = (s: string): certStatus => {
-  switch s {
-  | "proven" => Proven
-  | "sanctified" => Sanctified
-  | "pending" => Pending
-  | _ => Unknown
-  }
-}
diff --git a/src/components/SystemUpdate.affine b/src/components/SystemUpdate.affine
new file mode 100644
index 00000000..26e82ef6
--- /dev/null
+++ b/src/components/SystemUpdate.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module SystemUpdate;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/SystemUpdate.res b/src/components/SystemUpdate.res
deleted file mode 100644
index 63fa1498..00000000
--- a/src/components/SystemUpdate.res
+++ /dev/null
@@ -1,422 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL System Update Component — system component update management panel.
-///
-/// Renders a three-section view:
-///   1. Summary bar: total components, up-to-date, updates available, failed
-///   2. Component table: grouped by category with version info and status badges
-///   3. Action bar: Check All, Update All, asdf Details, Logs
-///
-/// Data flows through SystemUpdateCmd → Gossamer backend → shell commands
-/// for rpm-ostree, flatpak, asdf, cargo, deno, fwupd.
-
-open Model
-open Msg
-open Tea.Html
-
-// ---------------------------------------------------------------------------
-// Summary bar
-// ---------------------------------------------------------------------------
-
-/// Render a single metric card in the summary bar.
-let renderMetricCard = (label: string, value: int, color: string): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("flex flex-col items-center p-3 rounded-lg bg-gray-900/60 min-w-[100px]"),
-      Attrs.role("status"),
-      Attrs.ariaLabel(`${label}: ${Int.toString(value)}`),
-    },
-    list{
-      span(
-        list{Attrs.class_(`text-2xl font-bold ${color}`)},
-        list{text(Int.toString(value))},
-      ),
-      span(
-        list{Attrs.class_("text-xs text-gray-400 mt-1")},
-        list{text(label)},
-      ),
-    },
-  )
-}
-
-/// Render the summary bar with aggregate metrics.
-let renderSummaryBar = (summary: SystemUpdateModule.updateSummary): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("flex gap-4 p-4 border-b border-gray-800"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Update summary"),
-    },
-    list{
-      renderMetricCard("Total", summary.totalComponents, "text-gray-200"),
-      renderMetricCard("Up to date", summary.upToDate, "text-green-400"),
-      renderMetricCard("Updates", summary.updatesAvailable, "text-amber-400"),
-      renderMetricCard("Failed", summary.failed, "text-red-400"),
-      renderMetricCard("Updating", summary.updating, "text-blue-400"),
-    },
-  )
-}
-
-// ---------------------------------------------------------------------------
-// Status badge
-// ---------------------------------------------------------------------------
-
-/// Render a status badge with appropriate color.
-let renderStatusBadge = (status: SystemUpdateModule.updateStatus): Tea_Vdom.t<msg> => {
-  let color = SystemUpdateModule.statusColor(status)
-  let label = SystemUpdateModule.statusLabel(status)
-
-  span(
-    list{
-      Attrs.class_("inline-flex items-center px-2 py-0.5 rounded-full text-xs font-medium"),
-      Attrs.prop("style", `background-color: ${color}20; color: ${color}; border: 1px solid ${color}40`),
-      Attrs.ariaLabel(`Status: ${label}`),
-    },
-    list{text(label)},
-  )
-}
-
-// ---------------------------------------------------------------------------
-// Component row
-// ---------------------------------------------------------------------------
-
-/// Render a single component row in the table.
-let renderComponentRow = (component: SystemUpdateModule.component): Tea_Vdom.t<msg> => {
-  let canUpdate = switch component.status {
-  | UpdateAvailable(_) => true
-  | _ => false
-  }
-
-  div(
-    list{
-      Attrs.class_(
-        "flex items-center gap-4 p-3 border-b border-gray-800/50 hover:bg-gray-900/40 transition-colors",
-      ),
-      Attrs.role("row"),
-    },
-    list{
-      // Name
-      div(
-        list{Attrs.class_("flex-1 min-w-0")},
-        list{
-          div(list{Attrs.class_("text-sm text-gray-200 truncate")}, list{text(component.name)}),
-          div(
-            list{Attrs.class_("text-xs text-gray-500 mt-0.5")},
-            list{text(`Managed by ${component.managed_by}`)},
-          ),
-        },
-      ),
-      // Current version
-      div(
-        list{Attrs.class_("w-28 text-right")},
-        list{
-          span(
-            list{Attrs.class_("text-sm font-mono text-gray-300")},
-            list{text(component.currentVersion)},
-          ),
-        },
-      ),
-      // Latest version
-      div(
-        list{Attrs.class_("w-28 text-right")},
-        list{
-          span(
-            list{Attrs.class_("text-sm font-mono text-gray-400")},
-            list{
-              text(
-                switch component.latestVersion {
-                | Some(v) => v
-                | None => "-"
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Status badge
-      div(list{Attrs.class_("w-40 text-center")}, list{renderStatusBadge(component.status)}),
-      // Update button
-      div(
-        list{Attrs.class_("w-20 text-right")},
-        list{
-          if canUpdate {
-            button(
-              list{
-                Attrs.class_(
-                  "px-3 py-1 text-xs rounded bg-amber-600 hover:bg-amber-500 text-white transition-colors",
-                ),
-                Events.onClick(SystemUpdate(ApplyComponent(component.id))),
-                Attrs.ariaLabel(`Update ${component.name}`),
-              },
-              list{text("Update")},
-            )
-          } else {
-            text("")
-          },
-        },
-      ),
-    },
-  )
-}
-
-// ---------------------------------------------------------------------------
-// Category group
-// ---------------------------------------------------------------------------
-
-/// Render a category header and its components.
-let renderCategoryGroup = (
-  category: SystemUpdateModule.componentCategory,
-  components: array<SystemUpdateModule.component>,
-): Tea_Vdom.t<msg> => {
-  let label = SystemUpdateModule.categoryLabel(category)
-  let count = Array.length(components)
-
-  div(
-    list{
-      Attrs.class_("mb-4"),
-      Attrs.role("group"),
-      Attrs.ariaLabel(`${label} (${Int.toString(count)} components)`),
-    },
-    list{
-      // Category header
-      div(
-        list{Attrs.class_("flex items-center gap-2 px-3 py-2 bg-gray-900/80 rounded-t")},
-        list{
-          span(list{Attrs.class_("text-sm font-semibold text-gray-300")}, list{text(label)}),
-          span(
-            list{Attrs.class_("text-xs text-gray-500 px-2 py-0.5 rounded-full bg-gray-800")},
-            list{text(Int.toString(count))},
-          ),
-        },
-      ),
-      // Component rows
-      div(
-        list{Attrs.class_("border border-gray-800/50 rounded-b")},
-        list{
-          ...Array.map(components, renderComponentRow)->List.fromArray
-        },
-      ),
-    },
-  )
-}
-
-// ---------------------------------------------------------------------------
-// Component table
-// ---------------------------------------------------------------------------
-
-/// Render the full component table, grouped by category.
-let renderComponentTable = (components: array<SystemUpdateModule.component>): Tea_Vdom.t<msg> => {
-  // Group components by category
-  let categories: array<SystemUpdateModule.componentCategory> = [
-    BaseOS,
-    Firmware,
-    Toolchain,
-    Runtime,
-    PackageManager,
-    Desktop,
-  ]
-
-  div(
-    list{
-      Attrs.class_("p-4 overflow-y-auto"),
-      Attrs.role("table"),
-      Attrs.ariaLabel("System components"),
-    },
-    list{
-      // Column headers
-      div(
-        list{
-          Attrs.class_("flex items-center gap-4 px-3 py-2 mb-2 text-xs text-gray-500 uppercase tracking-wider"),
-          Attrs.role("row"),
-        },
-        list{
-          div(list{Attrs.class_("flex-1")}, list{text("Component")}),
-          div(list{Attrs.class_("w-28 text-right")}, list{text("Current")}),
-          div(list{Attrs.class_("w-28 text-right")}, list{text("Latest")}),
-          div(list{Attrs.class_("w-40 text-center")}, list{text("Status")}),
-          div(list{Attrs.class_("w-20 text-right")}, list{text("Action")}),
-        },
-      ),
-      // Category groups
-      ...Array.map(categories, category => {
-        let filtered = Array.filter(components, c => c.category == category)
-        if Array.length(filtered) > 0 {
-          renderCategoryGroup(category, filtered)
-        } else {
-          text("")
-        }
-      })->List.fromArray,
-    },
-  )
-}
-
-// ---------------------------------------------------------------------------
-// Action bar
-// ---------------------------------------------------------------------------
-
-/// Render the action bar with Check All, Update All, and utility buttons.
-let renderActionBar = (isLoading: bool): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("flex items-center gap-3 p-4 border-t border-gray-800 bg-gray-950/60"),
-      Attrs.role("toolbar"),
-      Attrs.ariaLabel("Update actions"),
-    },
-    list{
-      button(
-        list{
-          Attrs.class_(
-            "px-4 py-2 text-sm rounded bg-blue-600 hover:bg-blue-500 text-white transition-colors disabled:opacity-50",
-          ),
-          Events.onClick(SystemUpdate(CheckAll)),
-          KeyboardNav.onActivate(SystemUpdate(CheckAll)),
-          Attrs.disabled(isLoading),
-          Attrs.ariaLabel("Check all components for updates"),
-        },
-        list{text(isLoading ? "Checking..." : "Check All")},
-      ),
-      button(
-        list{
-          Attrs.class_(
-            "px-4 py-2 text-sm rounded bg-amber-600 hover:bg-amber-500 text-white transition-colors disabled:opacity-50",
-          ),
-          Events.onClick(SystemUpdate(ApplyAll)),
-          KeyboardNav.onActivate(SystemUpdate(ApplyAll)),
-          Attrs.disabled(isLoading),
-          Attrs.ariaLabel("Apply all available updates"),
-        },
-        list{text("Update All")},
-      ),
-      div(list{Attrs.class_("flex-1")}, list{}),
-      button(
-        list{
-          Attrs.class_(
-            "px-3 py-2 text-sm rounded bg-gray-800 hover:bg-gray-700 text-gray-300 transition-colors",
-          ),
-          Events.onClick(SystemUpdate(AsdfStatus)),
-          KeyboardNav.onActivate(SystemUpdate(AsdfStatus)),
-          Attrs.ariaLabel("View asdf plugin details"),
-        },
-        list{text("asdf Details")},
-      ),
-      button(
-        list{
-          Attrs.class_(
-            "px-3 py-2 text-sm rounded bg-gray-800 hover:bg-gray-700 text-gray-300 transition-colors",
-          ),
-          Events.onClick(SystemUpdate(ToggleShowLogs)),
-          KeyboardNav.onActivate(SystemUpdate(ToggleShowLogs)),
-          Attrs.ariaLabel("View update history"),
-        },
-        list{text("Logs")},
-      ),
-    },
-  )
-}
-
-// ---------------------------------------------------------------------------
-// Log viewer
-// ---------------------------------------------------------------------------
-
-/// Render the log viewer (collapsible).
-let renderLogViewer = (
-  logs: array<{.."timestamp": string, "summary": string}>,
-  visible: bool,
-): Tea_Vdom.t<msg> => {
-  if !visible {
-    text("")
-  } else {
-    div(
-      list{
-        Attrs.class_("p-4 border-t border-gray-800 bg-gray-950/80 max-h-64 overflow-y-auto"),
-        Attrs.role("log"),
-        Attrs.ariaLabel("Update log history"),
-      },
-      list{
-        div(
-          list{Attrs.class_("flex items-center justify-between mb-3")},
-          list{
-            span(
-              list{Attrs.class_("text-sm font-semibold text-gray-300")},
-              list{text("Update History")},
-            ),
-            button(
-              list{
-                Attrs.class_("text-xs text-gray-500 hover:text-gray-300"),
-                Events.onClick(SystemUpdate(ToggleShowLogs)),
-                KeyboardNav.onActivate(SystemUpdate(ToggleShowLogs)),
-              },
-              list{text("Close")},
-            ),
-          },
-        ),
-        ...Array.map(logs, entry =>
-          div(
-            list{Attrs.class_("flex gap-3 py-1 text-xs border-b border-gray-800/30")},
-            list{
-              span(
-                list{Attrs.class_("text-gray-500 w-32 shrink-0 font-mono")},
-                list{text(entry["timestamp"])},
-              ),
-              span(list{Attrs.class_("text-gray-400")}, list{text(entry["summary"])}),
-            },
-          )
-        )->List.fromArray,
-      },
-    )
-  }
-}
-
-// ---------------------------------------------------------------------------
-// Root view
-// ---------------------------------------------------------------------------
-
-/// Main view for the System Update panel.
-/// Renders summary bar, component table, action bar, and optional log viewer.
-let view = (model: model): Tea_Vdom.t<msg> => {
-  let su = model.systemUpdate
-  let summary = su.summary
-  let components = su.components
-  let isLoading = su.loading
-  let logs = su.logs
-  let showLogs = su.showLogs
-
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("System Update Panel"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center gap-3 px-4 py-3 border-b border-gray-800")},
-        list{
-          span(
-            list{Attrs.class_("text-lg font-bold text-gray-100")},
-            list{text("System Update")},
-          ),
-          span(
-            list{Attrs.class_("text-xs text-gray-500")},
-            list{
-              text(
-                `${Int.toString(summary.totalComponents)} components across ${Int.toString(6)} managers`,
-              ),
-            },
-          ),
-        },
-      ),
-      // Summary metrics
-      renderSummaryBar(summary),
-      // Component table (scrollable)
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto")},
-        list{renderComponentTable(components)},
-      ),
-      // Log viewer (toggled)
-      renderLogViewer(logs, showLogs),
-      // Action bar (fixed at bottom)
-      renderActionBar(isLoading),
-    },
-  )
-}
diff --git a/src/components/TangleViz.affine b/src/components/TangleViz.affine
new file mode 100644
index 00000000..cbafa911
--- /dev/null
+++ b/src/components/TangleViz.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TangleViz;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/TangleViz.res b/src/components/TangleViz.res
deleted file mode 100644
index 7d423950..00000000
--- a/src/components/TangleViz.res
+++ /dev/null
@@ -1,1240 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL TangleViz Component — view layer for the topological programming panel.
-///
-/// Renders a full-screen overlay with:
-///   - Tangle source input area
-///   - Braid word display (algebraic notation with Unicode)
-///   - Interactive SVG braid diagram with over/under crossings
-///   - Knot invariant selector and result display
-///   - Example braid quick-select buttons
-///   - View mode tabs (Braid / Knot / Algebraic)
-///
-/// SVG rendering draws N horizontal strands with crossings at each generator.
-/// Over-crossings use solid lines; under-crossings use a gap (white break).
-/// Strands are colour-coded for visual strand tracking.
-
-open Model
-open Msg
-open Tea.Html
-
-// ════════════════════════════════════════════════════════════════════════
-// View Mode Tabs
-// ════════════════════════════════════════════════════════════════════════
-
-/// Render a single view mode tab button.
-let renderViewTab = (mode: TangleVizModel.tangleViewMode, isActive: bool): Tea_Vdom.t<msg> => {
-  let activeClass = isActive
-    ? "border-indigo-500 text-indigo-300 bg-gray-800/50"
-    : "border-transparent text-gray-500 hover:text-gray-300 hover:border-gray-600"
-  button(
-    list{
-      Attrs.class_(
-        `px-4 py-2 text-sm font-medium border-b-2 cursor-pointer transition-colors ${activeClass}`,
-      ),
-      Attrs.role("tab"),
-      Events.onClick(TangleViz(SetViewMode(mode))),
-    },
-    list{text(TangleVizEngine.viewModeLabel(mode))},
-  )
-}
-
-/// Render the view mode tab bar.
-let renderViewTabBar = (activeMode: TangleVizModel.tangleViewMode): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("flex border-b border-gray-800 overflow-x-auto"),
-      Attrs.role("tablist"),
-      Attrs.ariaLabel("Topology view modes"),
-    },
-    TangleVizEngine.allViewModes
-    ->Array.map(mode => renderViewTab(mode, mode === activeMode))
-    ->List.fromArray,
-  )
-}
-
-// ════════════════════════════════════════════════════════════════════════
-// Source Input Area
-// ════════════════════════════════════════════════════════════════════════
-
-/// Render the Tangle source code input area.
-let renderSourceInput = (
-  inputText: string,
-  parsedProgram: option<TangleVizModel.parsedStatus>,
-): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("p-4 border-b border-gray-800")},
-    list{
-      div(
-        list{Attrs.class_("text-xs font-medium text-gray-500 uppercase tracking-wider mb-2")},
-        list{text("Tangle Source")},
-      ),
-      textarea(
-        list{
-          Attrs.class_(
-            "w-full h-24 bg-gray-900 border border-gray-700 rounded px-3 py-2 text-sm text-gray-200 font-mono placeholder-gray-600 focus:border-indigo-500 focus:outline-none resize-y",
-          ),
-          Attrs.placeholder("Enter Tangle source code or use an example below..."),
-          Attrs.value(inputText),
-          Events.onInput(text => TangleViz(SetInputText(text))),
-        },
-        list{},
-      ),
-      // Parse status indicator
-      switch parsedProgram {
-      | None =>
-        div(list{Attrs.class_("mt-1 text-xs text-gray-600")}, list{text("No input parsed yet")})
-      | Some(ParsedOk) =>
-        div(list{Attrs.class_("mt-1 text-xs text-emerald-400")}, list{text("Parsed successfully")})
-      | Some(ParseFailed(err)) =>
-        div(list{Attrs.class_("mt-1 text-xs text-red-400")}, list{text(`Parse error: ${err}`)})
-      },
-      // Parse button
-      div(
-        list{Attrs.class_("mt-2 flex gap-2")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-xs bg-indigo-600 text-white rounded hover:bg-indigo-500 transition-colors",
-              ),
-              Events.onClick(TangleViz(ParseInput)),
-              KeyboardNav.onActivate(TangleViz(ParseInput)),
-            },
-            list{text("Parse")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 transition-colors",
-              ),
-              Events.onClick(TangleViz(ClearAll)),
-              KeyboardNav.onActivate(TangleViz(ClearAll)),
-            },
-            list{text("Clear")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ════════════════════════════════════════════════════════════════════════
-// Example Braid Quick-Select
-// ════════════════════════════════════════════════════════════════════════
-
-/// Render the example braid quick-select buttons.
-let renderExamples = (): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("p-4 border-b border-gray-800")},
-    list{
-      div(
-        list{Attrs.class_("text-xs font-medium text-gray-500 uppercase tracking-wider mb-2")},
-        list{text("Example Braids")},
-      ),
-      div(
-        list{Attrs.class_("flex flex-wrap gap-2")},
-        TangleVizEngine.exampleBraids()
-        ->Array.map(ex =>
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-xs bg-gray-800 text-gray-300 rounded border border-gray-700 hover:bg-gray-700 hover:border-gray-600 transition-colors",
-              ),
-              Attrs.title(ex.description),
-              Events.onClick(TangleViz(LoadExample(ex.generators))),
-            },
-            list{text(ex.name)},
-          )
-        )
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-// ════════════════════════════════════════════════════════════════════════
-// Braid Word Display (Algebraic Notation)
-// ════════════════════════════════════════════════════════════════════════
-
-/// Render the algebraic braid word with Unicode notation.
-let renderBraidWord = (
-  generators: array<TangleVizModel.braidGenerator>,
-  strandCount: int,
-): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("p-4 border-b border-gray-800")},
-    list{
-      div(
-        list{Attrs.class_("text-xs font-medium text-gray-500 uppercase tracking-wider mb-2")},
-        list{text("Braid Word")},
-      ),
-      div(
-        list{Attrs.class_("flex items-center gap-4")},
-        list{
-          // The braid word in Unicode
-          div(
-            list{Attrs.class_("text-lg font-mono text-indigo-300")},
-            list{text(TangleVizEngine.braidWordToString(generators))},
-          ),
-          // Strand count badge
-          div(
-            list{Attrs.class_("text-xs text-gray-500 bg-gray-800 px-2 py-1 rounded")},
-            list{text(`${Int.toString(strandCount)} strands`)},
-          ),
-          // Crossing count badge
-          div(
-            list{Attrs.class_("text-xs text-gray-500 bg-gray-800 px-2 py-1 rounded")},
-            list{text(`${Int.toString(Array.length(generators))} crossings`)},
-          ),
-        },
-      ),
-      // Individual generators as clickable chips
-      if Array.length(generators) > 0 {
-        div(
-          list{Attrs.class_("mt-2 flex flex-wrap gap-1")},
-          generators
-          ->Array.mapWithIndex((gen, idx) => {
-            let colour = if gen.exponent > 0 {
-              "bg-emerald-900/50 text-emerald-300 border-emerald-700"
-            } else {
-              "bg-red-900/50 text-red-300 border-red-700"
-            }
-            span(
-              list{
-                Attrs.class_(`text-xs px-2 py-0.5 rounded border font-mono ${colour}`),
-                Attrs.title(
-                  `Generator ${Int.toString(idx + 1)}: ${TangleVizEngine.generatorLabel(gen)}`,
-                ),
-              },
-              list{text(TangleVizEngine.generatorLabel(gen))},
-            )
-          })
-          ->List.fromArray,
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-// ════════════════════════════════════════════════════════════════════════
-// SVG Braid Diagram
-// ════════════════════════════════════════════════════════════════════════
-
-/// Render the SVG braid diagram.
-///
-/// Layout: N horizontal strands flow left-to-right. At each generator σᵢ,
-/// strands i and i+1 cross. Positive crossings: strand i goes over (drawn
-/// on top). Negative crossings: strand i goes under (drawn with a gap).
-///
-/// The strands maintain their physical position tracking through crossings
-/// so colours follow the actual strand paths.
-let renderBraidSvg = (
-  generators: array<TangleVizModel.braidGenerator>,
-  strandCount: int,
-): Tea_Vdom.t<msg> => {
-  let crossingW = TangleVizEngine.crossingWidth
-  let strandSp = TangleVizEngine.strandSpacing
-  let leftM = TangleVizEngine.svgLeftMargin
-  let topM = TangleVizEngine.svgTopMargin
-
-  let numCrossings = Array.length(generators)
-  let svgWidth = leftM *. 2.0 +. Int.toFloat(numCrossings + 1) *. crossingW
-  let svgHeight = topM *. 2.0 +. Int.toFloat(strandCount - 1) *. strandSp
-
-  // Track which physical strand is at each vertical position.
-  // strandAt[position] = original strand index (for colour).
-  let strandAt = Array.fromInitializer(~length=strandCount, i => i)
-
-  // Build path segments for each strand through each crossing column.
-  // We collect SVG elements: lines for straight segments, paths for crossings.
-  let elements: array<Tea_Vdom.t<msg>> = []
-
-  // Draw initial left-side strand labels
-  for pos in 0 to strandCount - 1 {
-    let y = topM +. Int.toFloat(pos) *. strandSp
-    let colour = TangleVizEngine.strandColour(pos)
-    let _ =
-      elements->Array.push(
-        Tea_Svg.text'(
-          list{
-            Tea_Svg.Attrs.class_("text-xs"),
-            Tea_Svg.Attrs.x(Float.toString(leftM -. 20.0)),
-            Tea_Svg.Attrs.y(Float.toString(y +. 4.0)),
-            Tea_Svg.Attrs.fill(colour),
-            Tea_Svg.Attrs.textAnchor("middle"),
-          },
-          list{Tea.Html.text(Int.toString(pos + 1))},
-        ),
-      )
-  }
-
-  // For each crossing column, draw the crossing and straight-through strands
-  for col in 0 to numCrossings - 1 {
-    let gen = generators->Array.getUnsafe(col)
-    let crossIdx = gen.index - 1 // Convert 1-based to 0-based position
-    let x1 = leftM +. Int.toFloat(col) *. crossingW
-    let x2 = leftM +. Int.toFloat(col + 1) *. crossingW
-
-    // Draw straight-through strands (those not involved in this crossing)
-    for pos in 0 to strandCount - 1 {
-      if pos !== crossIdx && pos !== crossIdx + 1 {
-        let y = topM +. Int.toFloat(pos) *. strandSp
-        let origStrand = strandAt->Array.getUnsafe(pos)
-        let colour = TangleVizEngine.strandColour(origStrand)
-        let _ =
-          elements->Array.push(
-            Tea_Svg.line(
-              list{
-                Tea_Svg.Attrs.x1(Float.toString(x1)),
-                Tea_Svg.Attrs.y1(Float.toString(y)),
-                Tea_Svg.Attrs.x2(Float.toString(x2)),
-                Tea_Svg.Attrs.y2(Float.toString(y)),
-                Tea_Svg.Attrs.stroke(colour),
-                Tea_Svg.Attrs.strokeWidth("2.5"),
-              },
-              list{},
-            ),
-          )
-      }
-    }
-
-    // Draw the crossing between positions crossIdx and crossIdx+1
-    if crossIdx >= 0 && crossIdx + 1 < strandCount {
-      let yTop = topM +. Int.toFloat(crossIdx) *. strandSp
-      let yBot = topM +. Int.toFloat(crossIdx + 1) *. strandSp
-      let origTop = strandAt->Array.getUnsafe(crossIdx)
-      let origBot = strandAt->Array.getUnsafe(crossIdx + 1)
-      let colourTop = TangleVizEngine.strandColour(origTop)
-      let colourBot = TangleVizEngine.strandColour(origBot)
-
-      // Compute cubic bezier control points for smooth crossing
-      let mx = (x1 +. x2) /. 2.0
-
-      if gen.exponent > 0 {
-        // Positive crossing: top strand goes OVER
-        // Draw under-strand first (with gap), then over-strand
-        // Under strand: bottom→top, drawn with a gap in the middle
-        let _ =
-          elements->Array.push(
-            Tea_Svg.path(
-              list{
-                Tea_Svg.Attrs.d(
-                  `M ${Float.toString(x1)} ${Float.toString(yBot)} C ${Float.toString(
-                      mx,
-                    )} ${Float.toString(yBot)}, ${Float.toString(mx)} ${Float.toString(
-                      yTop,
-                    )}, ${Float.toString(x2)} ${Float.toString(yTop)}`,
-                ),
-                Tea_Svg.Attrs.stroke(colourBot),
-                Tea_Svg.Attrs.strokeWidth("2.5"),
-                Tea_Svg.Attrs.fill("none"),
-                Tea_Svg.Attrs.strokeDasharray("20 12 20 0"),
-              },
-              list{},
-            ),
-          )
-        // Over strand: top→bottom, solid line on top
-        let _ =
-          elements->Array.push(
-            Tea_Svg.path(
-              list{
-                Tea_Svg.Attrs.d(
-                  `M ${Float.toString(x1)} ${Float.toString(yTop)} C ${Float.toString(
-                      mx,
-                    )} ${Float.toString(yTop)}, ${Float.toString(mx)} ${Float.toString(
-                      yBot,
-                    )}, ${Float.toString(x2)} ${Float.toString(yBot)}`,
-                ),
-                Tea_Svg.Attrs.stroke(colourTop),
-                Tea_Svg.Attrs.strokeWidth("2.5"),
-                Tea_Svg.Attrs.fill("none"),
-              },
-              list{},
-            ),
-          )
-      } else {
-        // Negative crossing: top strand goes UNDER
-        // Draw over-strand first (bottom→top, solid), then under-strand (top→bottom, gapped)
-        let _ =
-          elements->Array.push(
-            Tea_Svg.path(
-              list{
-                Tea_Svg.Attrs.d(
-                  `M ${Float.toString(x1)} ${Float.toString(yTop)} C ${Float.toString(
-                      mx,
-                    )} ${Float.toString(yTop)}, ${Float.toString(mx)} ${Float.toString(
-                      yBot,
-                    )}, ${Float.toString(x2)} ${Float.toString(yBot)}`,
-                ),
-                Tea_Svg.Attrs.stroke(colourTop),
-                Tea_Svg.Attrs.strokeWidth("2.5"),
-                Tea_Svg.Attrs.fill("none"),
-                Tea_Svg.Attrs.strokeDasharray("20 12 20 0"),
-              },
-              list{},
-            ),
-          )
-        // Over strand: bottom→top, solid line on top
-        let _ =
-          elements->Array.push(
-            Tea_Svg.path(
-              list{
-                Tea_Svg.Attrs.d(
-                  `M ${Float.toString(x1)} ${Float.toString(yBot)} C ${Float.toString(
-                      mx,
-                    )} ${Float.toString(yBot)}, ${Float.toString(mx)} ${Float.toString(
-                      yTop,
-                    )}, ${Float.toString(x2)} ${Float.toString(yTop)}`,
-                ),
-                Tea_Svg.Attrs.stroke(colourBot),
-                Tea_Svg.Attrs.strokeWidth("2.5"),
-                Tea_Svg.Attrs.fill("none"),
-              },
-              list{},
-            ),
-          )
-      }
-
-      // Swap the strand tracking
-      let tmp = strandAt->Array.getUnsafe(crossIdx)
-      let _ = strandAt->Array.set(crossIdx, strandAt->Array.getUnsafe(crossIdx + 1))
-      let _ = strandAt->Array.set(crossIdx + 1, tmp)
-    }
-  }
-
-  // Draw final right-side straight segments from last crossing to edge
-  let xFinal = leftM +. Int.toFloat(numCrossings) *. crossingW
-  let xEnd = xFinal +. crossingW *. 0.5
-  for pos in 0 to strandCount - 1 {
-    let y = topM +. Int.toFloat(pos) *. strandSp
-    let origStrand = strandAt->Array.getUnsafe(pos)
-    let colour = TangleVizEngine.strandColour(origStrand)
-    let _ =
-      elements->Array.push(
-        Tea_Svg.line(
-          list{
-            Tea_Svg.Attrs.x1(Float.toString(xFinal)),
-            Tea_Svg.Attrs.y1(Float.toString(y)),
-            Tea_Svg.Attrs.x2(Float.toString(xEnd)),
-            Tea_Svg.Attrs.y2(Float.toString(y)),
-            Tea_Svg.Attrs.stroke(colour),
-            Tea_Svg.Attrs.strokeWidth("2.5"),
-          },
-          list{},
-        ),
-      )
-  }
-
-  // Also draw initial left-side straight segments from edge to first crossing
-  let xStart = leftM -. crossingW *. 0.3
-  for pos in 0 to strandCount - 1 {
-    let y = topM +. Int.toFloat(pos) *. strandSp
-    let colour = TangleVizEngine.strandColour(pos)
-    let _ =
-      elements->Array.push(
-        Tea_Svg.line(
-          list{
-            Tea_Svg.Attrs.x1(Float.toString(xStart)),
-            Tea_Svg.Attrs.y1(Float.toString(y)),
-            Tea_Svg.Attrs.x2(Float.toString(leftM)),
-            Tea_Svg.Attrs.y2(Float.toString(y)),
-            Tea_Svg.Attrs.stroke(colour),
-            Tea_Svg.Attrs.strokeWidth("2.5"),
-          },
-          list{},
-        ),
-      )
-  }
-
-  div(
-    list{Attrs.class_("p-4 flex-1 overflow-auto"), Attrs.ariaLabel("Braid diagram visualization")},
-    list{
-      div(
-        list{Attrs.class_("text-xs font-medium text-gray-500 uppercase tracking-wider mb-2")},
-        list{text("Braid Diagram")},
-      ),
-      div(
-        list{Attrs.class_("bg-gray-900 rounded-lg border border-gray-800 p-4 overflow-x-auto")},
-        list{
-          if numCrossings === 0 && strandCount <= 2 {
-            div(
-              list{Attrs.class_("text-gray-600 text-sm text-center py-8")},
-              list{text("Select an example or enter a braid word to visualize")},
-            )
-          } else {
-            Tea_Svg.svg(
-              list{
-                Tea_Svg.Attrs.class_("block mx-auto"),
-                Tea_Svg.Attrs.viewBox(
-                  `0 0 ${Float.toString(svgWidth)} ${Float.toString(svgHeight)}`,
-                ),
-                Tea_Svg.Attrs.width(
-                  Float.toString(Float.fromInt(Math.Int.min(Float.toInt(svgWidth), 800))),
-                ),
-                Tea_Svg.Attrs.height(Float.toString(svgHeight)),
-              },
-              // Background
-              list{
-                Tea_Svg.rect(
-                  list{
-                    Tea_Svg.Attrs.x("0"),
-                    Tea_Svg.Attrs.y("0"),
-                    Tea_Svg.Attrs.width(Float.toString(svgWidth)),
-                    Tea_Svg.Attrs.height(Float.toString(svgHeight)),
-                    Tea_Svg.Attrs.fill("#0a0a0f"),
-                    Tea_Svg.Attrs.rx("8"),
-                  },
-                  list{},
-                ),
-                ...elements->List.fromArray,
-              },
-            )
-          },
-        },
-      ),
-    },
-  )
-}
-
-// ════════════════════════════════════════════════════════════════════════
-// Knot Diagram (Braid Closure)
-// ════════════════════════════════════════════════════════════════════════
-
-/// Render the knot diagram view as braid closure.
-///
-/// Draws the braid diagram horizontally, then connects each strand's
-/// right endpoint back to its corresponding left endpoint with semicircular
-/// arcs on the right and left sides. This produces the standard braid
-/// closure, turning the braid into a knot or link diagram.
-let renderKnotDiagram = (
-  generators: array<TangleVizModel.braidGenerator>,
-  strandCount: int,
-): Tea_Vdom.t<msg> => {
-  let crossingW = TangleVizEngine.crossingWidth
-  let strandSp = TangleVizEngine.strandSpacing
-  let topM = TangleVizEngine.svgTopMargin
-
-  let numCrossings = Array.length(generators)
-
-  // Extra horizontal margin for the closure arcs on each side
-  let arcMargin = 60.0
-  let leftM = TangleVizEngine.svgLeftMargin +. arcMargin
-
-  let braidWidth = Int.toFloat(numCrossings + 1) *. crossingW
-  let svgWidth = leftM +. braidWidth +. arcMargin +. 20.0
-  let svgHeight = topM *. 2.0 +. Int.toFloat(strandCount - 1) *. strandSp +. 40.0
-
-  // Track which physical strand is at each vertical position through crossings
-  let strandAt = Array.fromInitializer(~length=strandCount, i => i)
-
-  let elements: array<Tea_Vdom.t<msg>> = []
-
-  // Draw initial left-side strand segments (from left arc join to first crossing)
-  let xStart = leftM
-  for pos in 0 to strandCount - 1 {
-    let y = topM +. Int.toFloat(pos) *. strandSp
-    let colour = TangleVizEngine.strandColour(pos)
-    let _ =
-      elements->Array.push(
-        Tea_Svg.line(
-          list{
-            Tea_Svg.Attrs.x1(Float.toString(xStart)),
-            Tea_Svg.Attrs.y1(Float.toString(y)),
-            Tea_Svg.Attrs.x2(Float.toString(xStart +. crossingW *. 0.3)),
-            Tea_Svg.Attrs.y2(Float.toString(y)),
-            Tea_Svg.Attrs.stroke(colour),
-            Tea_Svg.Attrs.strokeWidth("2.5"),
-          },
-          list{},
-        ),
-      )
-  }
-
-  // Draw crossings (same logic as braid view)
-  for col in 0 to numCrossings - 1 {
-    let gen = generators->Array.getUnsafe(col)
-    let crossIdx = gen.index - 1
-    let x1 = leftM +. crossingW *. 0.3 +. Int.toFloat(col) *. crossingW
-    let x2 = leftM +. crossingW *. 0.3 +. Int.toFloat(col + 1) *. crossingW
-
-    // Straight-through strands
-    for pos in 0 to strandCount - 1 {
-      if pos !== crossIdx && pos !== crossIdx + 1 {
-        let y = topM +. Int.toFloat(pos) *. strandSp
-        let origStrand = strandAt->Array.getUnsafe(pos)
-        let colour = TangleVizEngine.strandColour(origStrand)
-        let _ =
-          elements->Array.push(
-            Tea_Svg.line(
-              list{
-                Tea_Svg.Attrs.x1(Float.toString(x1)),
-                Tea_Svg.Attrs.y1(Float.toString(y)),
-                Tea_Svg.Attrs.x2(Float.toString(x2)),
-                Tea_Svg.Attrs.y2(Float.toString(y)),
-                Tea_Svg.Attrs.stroke(colour),
-                Tea_Svg.Attrs.strokeWidth("2.5"),
-              },
-              list{},
-            ),
-          )
-      }
-    }
-
-    // Draw crossing between positions crossIdx and crossIdx+1
-    if crossIdx >= 0 && crossIdx + 1 < strandCount {
-      let yTop = topM +. Int.toFloat(crossIdx) *. strandSp
-      let yBot = topM +. Int.toFloat(crossIdx + 1) *. strandSp
-      let origTop = strandAt->Array.getUnsafe(crossIdx)
-      let origBot = strandAt->Array.getUnsafe(crossIdx + 1)
-      let colourTop = TangleVizEngine.strandColour(origTop)
-      let colourBot = TangleVizEngine.strandColour(origBot)
-      let mx = (x1 +. x2) /. 2.0
-
-      if gen.exponent > 0 {
-        // Under strand (gapped)
-        let _ =
-          elements->Array.push(
-            Tea_Svg.path(
-              list{
-                Tea_Svg.Attrs.d(
-                  `M ${Float.toString(x1)} ${Float.toString(yBot)} C ${Float.toString(
-                      mx,
-                    )} ${Float.toString(yBot)}, ${Float.toString(mx)} ${Float.toString(
-                      yTop,
-                    )}, ${Float.toString(x2)} ${Float.toString(yTop)}`,
-                ),
-                Tea_Svg.Attrs.stroke(colourBot),
-                Tea_Svg.Attrs.strokeWidth("2.5"),
-                Tea_Svg.Attrs.fill("none"),
-                Tea_Svg.Attrs.strokeDasharray("20 12 20 0"),
-              },
-              list{},
-            ),
-          )
-        // Over strand (solid)
-        let _ =
-          elements->Array.push(
-            Tea_Svg.path(
-              list{
-                Tea_Svg.Attrs.d(
-                  `M ${Float.toString(x1)} ${Float.toString(yTop)} C ${Float.toString(
-                      mx,
-                    )} ${Float.toString(yTop)}, ${Float.toString(mx)} ${Float.toString(
-                      yBot,
-                    )}, ${Float.toString(x2)} ${Float.toString(yBot)}`,
-                ),
-                Tea_Svg.Attrs.stroke(colourTop),
-                Tea_Svg.Attrs.strokeWidth("2.5"),
-                Tea_Svg.Attrs.fill("none"),
-              },
-              list{},
-            ),
-          )
-      } else {
-        // Under strand (gapped)
-        let _ =
-          elements->Array.push(
-            Tea_Svg.path(
-              list{
-                Tea_Svg.Attrs.d(
-                  `M ${Float.toString(x1)} ${Float.toString(yTop)} C ${Float.toString(
-                      mx,
-                    )} ${Float.toString(yTop)}, ${Float.toString(mx)} ${Float.toString(
-                      yBot,
-                    )}, ${Float.toString(x2)} ${Float.toString(yBot)}`,
-                ),
-                Tea_Svg.Attrs.stroke(colourTop),
-                Tea_Svg.Attrs.strokeWidth("2.5"),
-                Tea_Svg.Attrs.fill("none"),
-                Tea_Svg.Attrs.strokeDasharray("20 12 20 0"),
-              },
-              list{},
-            ),
-          )
-        // Over strand (solid)
-        let _ =
-          elements->Array.push(
-            Tea_Svg.path(
-              list{
-                Tea_Svg.Attrs.d(
-                  `M ${Float.toString(x1)} ${Float.toString(yBot)} C ${Float.toString(
-                      mx,
-                    )} ${Float.toString(yBot)}, ${Float.toString(mx)} ${Float.toString(
-                      yTop,
-                    )}, ${Float.toString(x2)} ${Float.toString(yTop)}`,
-                ),
-                Tea_Svg.Attrs.stroke(colourBot),
-                Tea_Svg.Attrs.strokeWidth("2.5"),
-                Tea_Svg.Attrs.fill("none"),
-              },
-              list{},
-            ),
-          )
-      }
-
-      // Swap strand tracking
-      let tmp = strandAt->Array.getUnsafe(crossIdx)
-      let _ = strandAt->Array.set(crossIdx, strandAt->Array.getUnsafe(crossIdx + 1))
-      let _ = strandAt->Array.set(crossIdx + 1, tmp)
-    }
-  }
-
-  // Draw right-side straight segments from last crossing to arc start
-  let xBraidEnd = leftM +. crossingW *. 0.3 +. Int.toFloat(numCrossings) *. crossingW
-  let xRightArc = xBraidEnd +. crossingW *. 0.3
-  for pos in 0 to strandCount - 1 {
-    let y = topM +. Int.toFloat(pos) *. strandSp
-    let origStrand = strandAt->Array.getUnsafe(pos)
-    let colour = TangleVizEngine.strandColour(origStrand)
-    let _ =
-      elements->Array.push(
-        Tea_Svg.line(
-          list{
-            Tea_Svg.Attrs.x1(Float.toString(xBraidEnd)),
-            Tea_Svg.Attrs.y1(Float.toString(y)),
-            Tea_Svg.Attrs.x2(Float.toString(xRightArc)),
-            Tea_Svg.Attrs.y2(Float.toString(y)),
-            Tea_Svg.Attrs.stroke(colour),
-            Tea_Svg.Attrs.strokeWidth("2.5"),
-          },
-          list{},
-        ),
-      )
-  }
-
-  // Draw closure arcs: connect right-side strand endpoints back to left-side.
-  // After all crossings, strandAt[pos] tells us which original strand is at
-  // vertical position `pos` on the right side.
-  // On the left side, original strand `i` is at position `i`.
-  // We connect: right position `pos` (original strand strandAt[pos])
-  //          to left position strandAt[pos] (where that original strand starts).
-  //
-  // Right arcs go from right endpoint to a point far right, then back.
-  // Left arcs go from left endpoint to a point far left, then back.
-  // We draw them as semicircular arcs on the right and left sides.
-  for pos in 0 to strandCount - 1 {
-    let origStrand = strandAt->Array.getUnsafe(pos)
-    let colour = TangleVizEngine.strandColour(origStrand)
-    let yRight = topM +. Int.toFloat(pos) *. strandSp
-    let yLeft = topM +. Int.toFloat(origStrand) *. strandSp
-
-    if pos === origStrand {
-      // Strand returns to the same vertical position: draw arcs on right and left
-      // Right arc: semicircle from right endpoint going right and looping back
-      let arcRadius = 15.0 +. Int.toFloat(pos) *. 5.0
-      // Right semicircular arc (goes out right and comes back to same y)
-      let _ =
-        elements->Array.push(
-          Tea_Svg.path(
-            list{
-              Tea_Svg.Attrs.d(
-                `M ${Float.toString(xRightArc)} ${Float.toString(yRight)} A ${Float.toString(
-                    arcRadius,
-                  )} ${Float.toString(arcRadius)} 0 1 1 ${Float.toString(
-                    xRightArc,
-                  )} ${Float.toString(yRight -. 0.01)}`,
-              ),
-              Tea_Svg.Attrs.stroke(colour),
-              Tea_Svg.Attrs.strokeWidth("2.5"),
-              Tea_Svg.Attrs.fill("none"),
-              Tea_Svg.Attrs.opacity("0.0"),
-            },
-            list{},
-          ),
-        )
-      // Actually, for same-position strands: draw a full right-side arc out and
-      // a left-side arc out. The braid closure connects right pos to left pos
-      // by going around the outside.
-      // Right arc: from (xRightArc, yRight) curving right
-      // Left arc: from (xStart, yLeft) curving left
-      // Connect them with top/bottom paths
-      let xRight = xRightArc +. arcMargin *. 0.7
-      let xLeft = xStart -. arcMargin *. 0.7
-      // Top path: right endpoint -> right arc point -> top -> left arc point -> left endpoint
-      let yMid = (yRight +. yLeft) /. 2.0
-      let _ =
-        elements->Array.push(
-          Tea_Svg.path(
-            list{
-              Tea_Svg.Attrs.d(
-                `M ${Float.toString(xRightArc)} ${Float.toString(yRight)} C ${Float.toString(
-                    xRight,
-                  )} ${Float.toString(yRight)}, ${Float.toString(xRight)} ${Float.toString(
-                    yMid,
-                  )}, ${Float.toString(xRight)} ${Float.toString(yMid -. strandSp *. 1.5)}`,
-              ),
-              Tea_Svg.Attrs.stroke(colour),
-              Tea_Svg.Attrs.strokeWidth("2.0"),
-              Tea_Svg.Attrs.fill("none"),
-              Tea_Svg.Attrs.opacity("0.6"),
-            },
-            list{},
-          ),
-        )
-      let _ =
-        elements->Array.push(
-          Tea_Svg.path(
-            list{
-              Tea_Svg.Attrs.d(
-                `M ${Float.toString(xStart)} ${Float.toString(yLeft)} C ${Float.toString(
-                    xLeft,
-                  )} ${Float.toString(yLeft)}, ${Float.toString(xLeft)} ${Float.toString(
-                    yMid,
-                  )}, ${Float.toString(xLeft)} ${Float.toString(yMid -. strandSp *. 1.5)}`,
-              ),
-              Tea_Svg.Attrs.stroke(colour),
-              Tea_Svg.Attrs.strokeWidth("2.0"),
-              Tea_Svg.Attrs.fill("none"),
-              Tea_Svg.Attrs.opacity("0.6"),
-            },
-            list{},
-          ),
-        )
-    } else {
-      // Strand ends at a different vertical position: draw closure arcs
-      // connecting right `pos` to left `origStrand`.
-      // Use a wide arc on the right side if going down, left side if going up.
-      let colour2 = TangleVizEngine.strandColour(origStrand)
-      let yMid = (yRight +. yLeft) /. 2.0
-      let spread = Float.fromInt(Math.Int.abs(pos - origStrand)) *. 8.0 +. 20.0
-
-      // Right-side closure arc: from right endpoint, curve outward, to a midpoint
-      let xOutRight = xRightArc +. spread
-      let _ =
-        elements->Array.push(
-          Tea_Svg.path(
-            list{
-              Tea_Svg.Attrs.d(
-                `M ${Float.toString(xRightArc)} ${Float.toString(yRight)} C ${Float.toString(
-                    xOutRight,
-                  )} ${Float.toString(yRight)}, ${Float.toString(xOutRight)} ${Float.toString(
-                    yMid,
-                  )}, ${Float.toString(xRightArc +. spread *. 0.5)} ${Float.toString(yMid)}`,
-              ),
-              Tea_Svg.Attrs.stroke(colour2),
-              Tea_Svg.Attrs.strokeWidth("2.0"),
-              Tea_Svg.Attrs.fill("none"),
-              Tea_Svg.Attrs.opacity("0.6"),
-            },
-            list{},
-          ),
-        )
-
-      // Left-side closure arc: from midpoint, curve outward to left endpoint
-      let xOutLeft = xStart -. spread
-      let _ =
-        elements->Array.push(
-          Tea_Svg.path(
-            list{
-              Tea_Svg.Attrs.d(
-                `M ${Float.toString(xStart -. spread *. 0.5)} ${Float.toString(
-                    yMid,
-                  )} C ${Float.toString(xOutLeft)} ${Float.toString(yMid)}, ${Float.toString(
-                    xOutLeft,
-                  )} ${Float.toString(yLeft)}, ${Float.toString(xStart)} ${Float.toString(yLeft)}`,
-              ),
-              Tea_Svg.Attrs.stroke(colour2),
-              Tea_Svg.Attrs.strokeWidth("2.0"),
-              Tea_Svg.Attrs.fill("none"),
-              Tea_Svg.Attrs.opacity("0.6"),
-            },
-            list{},
-          ),
-        )
-
-      // Top/bottom connecting segment (dashed, shows the closure path)
-      let _ =
-        elements->Array.push(
-          Tea_Svg.path(
-            list{
-              Tea_Svg.Attrs.d(
-                `M ${Float.toString(xRightArc +. spread *. 0.5)} ${Float.toString(
-                    yMid,
-                  )} L ${Float.toString(xStart -. spread *. 0.5)} ${Float.toString(yMid)}`,
-              ),
-              Tea_Svg.Attrs.stroke(colour2),
-              Tea_Svg.Attrs.strokeWidth("1.5"),
-              Tea_Svg.Attrs.fill("none"),
-              Tea_Svg.Attrs.opacity("0.35"),
-              Tea_Svg.Attrs.strokeDasharray("4 3"),
-            },
-            list{},
-          ),
-        )
-    }
-  }
-
-  div(
-    list{
-      Attrs.class_("p-4 flex-1 overflow-auto"),
-      Attrs.ariaLabel("Knot diagram visualization (braid closure)"),
-    },
-    list{
-      div(
-        list{Attrs.class_("text-xs font-medium text-gray-500 uppercase tracking-wider mb-2")},
-        list{text("Knot Diagram (Braid Closure)")},
-      ),
-      div(
-        list{Attrs.class_("bg-gray-900 rounded-lg border border-gray-800 p-4 overflow-x-auto")},
-        list{
-          if numCrossings === 0 && strandCount <= 2 {
-            div(
-              list{Attrs.class_("text-gray-600 text-sm text-center py-8")},
-              list{text("Select an example or enter a braid word to visualize its closure")},
-            )
-          } else {
-            div(
-              list{},
-              list{
-                // Info bar
-                div(
-                  list{Attrs.class_("flex items-center gap-4 mb-3")},
-                  list{
-                    div(
-                      list{Attrs.class_("text-xs text-gray-400")},
-                      list{
-                        text(
-                          `${Int.toString(strandCount)}-strand braid with ${Int.toString(
-                              numCrossings,
-                            )} crossings`,
-                        ),
-                      },
-                    ),
-                    div(
-                      list{Attrs.class_("text-xs font-mono text-indigo-300")},
-                      list{text(TangleVizEngine.braidWordToString(generators))},
-                    ),
-                  },
-                ),
-                // SVG closure diagram
-                Tea_Svg.svg(
-                  list{
-                    Tea_Svg.Attrs.class_("block mx-auto"),
-                    Tea_Svg.Attrs.viewBox(
-                      `0 0 ${Float.toString(svgWidth)} ${Float.toString(svgHeight)}`,
-                    ),
-                    Tea_Svg.Attrs.width(
-                      Float.toString(Float.fromInt(Math.Int.min(Float.toInt(svgWidth), 900))),
-                    ),
-                    Tea_Svg.Attrs.height(Float.toString(svgHeight)),
-                  },
-                  list{
-                    // Background
-                    Tea_Svg.rect(
-                      list{
-                        Tea_Svg.Attrs.x("0"),
-                        Tea_Svg.Attrs.y("0"),
-                        Tea_Svg.Attrs.width(Float.toString(svgWidth)),
-                        Tea_Svg.Attrs.height(Float.toString(svgHeight)),
-                        Tea_Svg.Attrs.fill("#0a0a0f"),
-                        Tea_Svg.Attrs.rx("8"),
-                      },
-                      list{},
-                    ),
-                    ...elements->List.fromArray,
-                  },
-                ),
-                // Legend
-                div(
-                  list{Attrs.class_("mt-2 text-[10px] text-gray-600 text-center")},
-                  list{
-                    text(
-                      "Solid lines = braid crossings | Curved lines = closure arcs connecting strand endpoints",
-                    ),
-                  },
-                ),
-              },
-            )
-          },
-        },
-      ),
-    },
-  )
-}
-
-// ════════════════════════════════════════════════════════════════════════
-// Algebraic View
-// ════════════════════════════════════════════════════════════════════════
-
-/// Render the algebraic view — braid group notation and relations.
-let renderAlgebraicView = (
-  generators: array<TangleVizModel.braidGenerator>,
-  strandCount: int,
-): Tea_Vdom.t<msg> => {
-  let writhe = TangleVizEngine.computeWrithe(generators)
-  div(
-    list{Attrs.class_("p-4 flex-1")},
-    list{
-      div(
-        list{Attrs.class_("text-xs font-medium text-gray-500 uppercase tracking-wider mb-2")},
-        list{text("Algebraic View")},
-      ),
-      div(
-        list{Attrs.class_("bg-gray-900 rounded-lg border border-gray-800 p-6 space-y-4")},
-        list{
-          // Braid group header
-          div(
-            list{Attrs.class_("text-sm text-gray-400")},
-            list{text(`Braid group B${TangleVizEngine.toSubscript(strandCount)}`)},
-          ),
-          // Braid word
-          div(
-            list{Attrs.class_("text-xl font-mono text-indigo-300")},
-            list{text(TangleVizEngine.braidWordToString(generators))},
-          ),
-          // Properties
-          div(
-            list{Attrs.class_("border-t border-gray-800 pt-4 space-y-2")},
-            list{
-              div(
-                list{Attrs.class_("text-sm text-gray-400")},
-                list{text(`Word length: ${Int.toString(Array.length(generators))}`)},
-              ),
-              div(
-                list{Attrs.class_("text-sm text-gray-400")},
-                list{text(`Writhe: ${Int.toString(writhe)}`)},
-              ),
-              div(
-                list{Attrs.class_("text-sm text-gray-400")},
-                list{text(`Strand count: ${Int.toString(strandCount)}`)},
-              ),
-              // Braid group relations
-              div(
-                list{Attrs.class_("border-t border-gray-800 pt-3 mt-3")},
-                list{
-                  div(
-                    list{Attrs.class_("text-xs text-gray-600 mb-1")},
-                    list{text("Braid group relations:")},
-                  ),
-                  div(
-                    list{Attrs.class_("text-xs font-mono text-gray-500 space-y-1")},
-                    list{
-                      div(
-                        list{},
-                        list{
-                          text(
-                            "\xcf\x83\xe2\x82\x96\xcf\x83\xe2\x82\x97 = \xcf\x83\xe2\x82\x97\xcf\x83\xe2\x82\x96  when |i-j| \xe2\x89\xa5 2",
-                          ),
-                        },
-                      ), // σᵢσⱼ = σⱼσᵢ
-                      div(
-                        list{},
-                        list{
-                          text(
-                            "\xcf\x83\xe2\x82\x96\xcf\x83\xe2\x82\x97\xcf\x83\xe2\x82\x96 = \xcf\x83\xe2\x82\x97\xcf\x83\xe2\x82\x96\xcf\x83\xe2\x82\x97  when |i-j| = 1",
-                          ),
-                        },
-                      ), // σᵢσⱼσᵢ = σⱼσᵢσⱼ
-                    },
-                  ),
-                },
-              ),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ════════════════════════════════════════════════════════════════════════
-// Invariant Selector and Result
-// ════════════════════════════════════════════════════════════════════════
-
-/// Render the invariant selector and computation result.
-let renderInvariants = (
-  generators: array<TangleVizModel.braidGenerator>,
-  selectedInvariant: option<TangleVizModel.knotInvariant>,
-  invariantResult: option<string>,
-): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("p-4 border-t border-gray-800")},
-    list{
-      div(
-        list{Attrs.class_("text-xs font-medium text-gray-500 uppercase tracking-wider mb-2")},
-        list{text("Knot Invariants")},
-      ),
-      // Invariant buttons
-      div(
-        list{Attrs.class_("flex flex-wrap gap-2 mb-3")},
-        TangleVizEngine.allInvariants
-        ->Array.map(inv => {
-          let isSelected = selectedInvariant === Some(inv)
-          let activeClass = isSelected
-            ? "bg-indigo-600 text-white border-indigo-500"
-            : "bg-gray-800 text-gray-400 border-gray-700 hover:bg-gray-700 hover:text-gray-300"
-          button(
-            list{
-              Attrs.class_(`px-3 py-1.5 text-xs rounded border transition-colors ${activeClass}`),
-              Events.onClick(TangleViz(SelectInvariant(inv))),
-            },
-            list{text(TangleVizEngine.invariantLabel(inv))},
-          )
-        })
-        ->List.fromArray,
-      ),
-      // Compute button
-      switch selectedInvariant {
-      | None => noNode
-      | Some(_) =>
-        div(
-          list{Attrs.class_("flex items-center gap-3")},
-          list{
-            button(
-              list{
-                Attrs.class_(
-                  "px-4 py-2 text-sm bg-emerald-600 text-white rounded hover:bg-emerald-500 transition-colors",
-                ),
-                Events.onClick(TangleViz(ComputeInvariant)),
-                KeyboardNav.onActivate(TangleViz(ComputeInvariant)),
-              },
-              list{text("Compute")},
-            ),
-            // Result display
-            switch invariantResult {
-            | None => noNode
-            | Some(result) =>
-              div(
-                list{
-                  Attrs.class_(
-                    "text-sm font-mono text-emerald-300 bg-gray-900 px-3 py-2 rounded border border-gray-800",
-                  ),
-                },
-                list{text(result)},
-              )
-            },
-          },
-        )
-      },
-      // Disabled state when no generators
-      if Array.length(generators) === 0 {
-        div(
-          list{Attrs.class_("mt-2 text-xs text-gray-600")},
-          list{text("Load a braid word to compute invariants")},
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-// ════════════════════════════════════════════════════════════════════════
-// Header
-// ════════════════════════════════════════════════════════════════════════
-
-/// Render the panel header with title and close button.
-let renderHeader = (): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex items-center justify-between px-6 py-4 border-b border-gray-800")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center gap-4")},
-        list{
-          div(list{Attrs.class_("text-lg font-medium text-gray-200")}, list{text("Tangle Viz")}),
-          div(
-            list{Attrs.class_("text-xs text-gray-500")},
-            list{text("Topological Programming Visualizer")},
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("flex items-center gap-3")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-sm text-gray-400 hover:text-gray-200 bg-gray-800 rounded hover:bg-gray-700 transition-colors",
-              ),
-              Events.onClick(PanelSwitcher(ClosePanels)),
-              KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-            },
-            list{text("Close")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ════════════════════════════════════════════════════════════════════════
-// Error Display
-// ════════════════════════════════════════════════════════════════════════
-
-/// Render an error banner if present.
-let renderError = (error: option<string>): Tea_Vdom.t<msg> => {
-  switch error {
-  | None => noNode
-  | Some(err) =>
-    div(
-      list{
-        Attrs.class_(
-          "mx-4 mt-2 px-4 py-2 bg-red-900/30 border border-red-800 rounded text-sm text-red-300",
-        ),
-      },
-      list{
-        text(err),
-        button(
-          list{
-            Attrs.class_("ml-3 text-xs text-red-400 hover:text-red-200 underline"),
-            Events.onClick(TangleViz(DismissError)),
-            KeyboardNav.onActivate(TangleViz(DismissError)),
-          },
-          list{text("dismiss")},
-        ),
-      },
-    )
-  }
-}
-
-// ════════════════════════════════════════════════════════════════════════
-// Main View
-// ════════════════════════════════════════════════════════════════════════
-
-/// Main TangleViz panel view — full-screen overlay.
-let view = (tv: tangleVizState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.ariaLabel("Tangle Viz panel"),
-    },
-    list{
-      // Header
-      renderHeader(),
-      // Error banner
-      renderError(tv.error),
-      // View mode tabs
-      renderViewTabBar(tv.viewMode),
-      // Two-column layout: left = input/controls, right = visualization
-      div(
-        list{Attrs.class_("flex-1 flex overflow-hidden")},
-        list{
-          // Left sidebar: source input, examples, invariants
-          div(
-            list{Attrs.class_("w-96 flex-shrink-0 border-r border-gray-800 overflow-y-auto")},
-            list{
-              renderSourceInput(tv.inputText, tv.parsedProgram),
-              renderExamples(),
-              renderBraidWord(tv.braidWord, tv.strandCount),
-              renderInvariants(tv.braidWord, tv.selectedInvariant, tv.invariantResult),
-            },
-          ),
-          // Right main area: visualization based on view mode
-          div(
-            list{Attrs.class_("flex-1 overflow-auto")},
-            list{
-              switch tv.viewMode {
-              | BraidDiagram => renderBraidSvg(tv.braidWord, tv.strandCount)
-              | KnotDiagram => renderKnotDiagram(tv.braidWord, tv.strandCount)
-              | AlgebraicView => renderAlgebraicView(tv.braidWord, tv.strandCount)
-              },
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/TeamDashboard.affine b/src/components/TeamDashboard.affine
new file mode 100644
index 00000000..fe1af2c5
--- /dev/null
+++ b/src/components/TeamDashboard.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TeamDashboard;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/TeamDashboard.res b/src/components/TeamDashboard.res
deleted file mode 100644
index e0ea0415..00000000
--- a/src/components/TeamDashboard.res
+++ /dev/null
@@ -1,284 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL TeamDashboard — team member presence, activity feed, and progress overview.
-/// Viewer clade panel for team collaboration visibility.
-///
-/// Four tabs: Team (member cards with status dots), Activity (feed),
-/// Progress (overview), and Schedule (placeholder).
-
-open Model
-open Msg
-open Tea.Html
-
-// =========================================================================
-// Helpers
-// =========================================================================
-
-/// Tailwind colour class for status dot.
-let statusDotColour = (status: memberStatus): string =>
-  switch status {
-  | MemberOnline => "bg-emerald-400"
-  | MemberBusy => "bg-amber-400"
-  | MemberAway => "bg-gray-400"
-  | MemberOffline => "bg-gray-600"
-  }
-
-/// Label for member status.
-let statusLabel = (status: memberStatus): string =>
-  switch status {
-  | MemberOnline => "Online"
-  | MemberBusy => "Busy"
-  | MemberAway => "Away"
-  | MemberOffline => "Offline"
-  }
-
-/// Tab bar rendering.
-let renderTabs = (active: teamDashboardTab): Tea_Vdom.t<msg> => {
-  let tabs = TeamDashboardEngine.allTabs
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 px-4")},
-    tabs
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-3 py-2 text-sm font-medium transition-colors rounded-t ${isActive
-                ? "bg-gray-800 text-cyan-400 border-b-2 border-cyan-400"
-                : "text-gray-500 hover:text-gray-300 hover:bg-gray-900 cursor-pointer"}`,
-          ),
-          Events.onClick(TeamDashboard(SetTdTab(tab))),
-        },
-        list{text(TeamDashboardEngine.tabLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-// =========================================================================
-// Tab content views
-// =========================================================================
-
-/// Team tab: member cards with presence indicators and current task.
-let renderTeamTab = (state: teamDashboardState): Tea_Vdom.t<msg> => {
-  let filtered = TeamDashboardEngine.filterMembers(state.members, state.filter)
-  let onlineCount = TeamDashboardEngine.countOnline(state.members)
-  if Array.length(filtered) === 0 {
-    div(
-      list{Attrs.class_("p-4 text-gray-500 text-sm italic")},
-      list{text("No team members loaded.")},
-    )
-  } else {
-    div(
-      list{Attrs.class_("flex flex-col gap-2 p-4")},
-      list{
-        div(
-          list{Attrs.class_("text-sm text-gray-400 mb-1")},
-          list{
-            text(
-              `${Int.toString(onlineCount)} of ${Int.toString(Array.length(state.members))} online`,
-            ),
-          },
-        ),
-        div(
-          list{Attrs.class_("grid grid-cols-2 gap-3 max-h-96 overflow-y-auto")},
-          filtered
-          ->Array.map(member => {
-            div(
-              list{Attrs.class_("bg-gray-800 rounded p-3 border border-gray-700")},
-              list{
-                div(
-                  list{Attrs.class_("flex items-center gap-2 mb-2")},
-                  list{
-                    div(
-                      list{
-                        Attrs.class_(`w-2.5 h-2.5 rounded-full ${statusDotColour(member.status)}`),
-                      },
-                      list{},
-                    ),
-                    span(
-                      list{Attrs.class_("text-sm font-medium text-gray-200")},
-                      list{text(member.name)},
-                    ),
-                  },
-                ),
-                div(
-                  list{Attrs.class_("text-xs text-gray-500 mb-1")},
-                  list{text(`${member.role} - ${statusLabel(member.status)}`)},
-                ),
-                switch member.currentTask {
-                | Some(task) =>
-                  div(
-                    list{Attrs.class_("text-xs text-gray-400 bg-gray-900 rounded px-2 py-1 mt-1")},
-                    list{text(task)},
-                  )
-                | None => noNode
-                },
-              },
-            )
-          })
-          ->List.fromArray,
-        ),
-      },
-    )
-  }
-}
-
-/// Activity tab: chronological feed of team actions.
-let renderActivityTab = (state: teamDashboardState): Tea_Vdom.t<msg> => {
-  let recent = TeamDashboardEngine.recentActivity(state.activity, 50)
-  if Array.length(recent) === 0 {
-    div(list{Attrs.class_("p-4 text-gray-500 text-sm italic")}, list{text("No recent activity.")})
-  } else {
-    div(
-      list{Attrs.class_("flex flex-col gap-1 p-4 max-h-96 overflow-y-auto")},
-      recent
-      ->Array.map(entry => {
-        div(
-          list{Attrs.class_("flex items-start gap-2 p-2 bg-gray-800 rounded")},
-          list{
-            div(list{Attrs.class_("w-1.5 h-1.5 rounded-full bg-cyan-500 mt-1.5")}, list{}),
-            div(
-              list{Attrs.class_("flex-1")},
-              list{
-                div(
-                  list{Attrs.class_("text-sm text-gray-300")},
-                  list{
-                    span(list{Attrs.class_("font-medium text-gray-200")}, list{text(entry.actor)}),
-                    text(` ${entry.action} `),
-                    span(list{Attrs.class_("text-cyan-400")}, list{text(entry.target)}),
-                  },
-                ),
-                div(list{Attrs.class_("text-xs text-gray-600")}, list{text(entry.timestamp)}),
-              },
-            ),
-          },
-        )
-      })
-      ->List.fromArray,
-    )
-  }
-}
-
-/// Progress tab: overview of team progress metrics.
-let renderProgressTab = (state: teamDashboardState): Tea_Vdom.t<msg> => {
-  let onlineCount = TeamDashboardEngine.countOnline(state.members)
-  let totalMembers = Array.length(state.members)
-  let activityCount = Array.length(state.activity)
-  div(
-    list{Attrs.class_("flex flex-col gap-4 p-4")},
-    list{
-      div(
-        list{Attrs.class_("grid grid-cols-3 gap-3")},
-        list{
-          div(
-            list{Attrs.class_("bg-gray-800 rounded p-4 border border-gray-700 text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-emerald-400")},
-                list{text(Int.toString(onlineCount))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500 mt-1")}, list{text("Online")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("bg-gray-800 rounded p-4 border border-gray-700 text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-gray-300")},
-                list{text(Int.toString(totalMembers))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500 mt-1")}, list{text("Team Size")}),
-            },
-          ),
-          div(
-            list{Attrs.class_("bg-gray-800 rounded p-4 border border-gray-700 text-center")},
-            list{
-              div(
-                list{Attrs.class_("text-2xl font-light text-cyan-400")},
-                list{text(Int.toString(activityCount))},
-              ),
-              div(list{Attrs.class_("text-xs text-gray-500 mt-1")}, list{text("Activities")}),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Schedule tab: placeholder for future calendar integration.
-let renderScheduleTab = (_state: teamDashboardState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("p-4")},
-    list{
-      div(
-        list{Attrs.class_("bg-gray-800 rounded p-4 h-48 flex items-center justify-center")},
-        list{
-          span(
-            list{Attrs.class_("text-gray-600 text-sm")},
-            list{text("Schedule integration coming soon.")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// =========================================================================
-// Main view
-// =========================================================================
-
-/// Primary view function for the Team Dashboard panel.
-let view = (state: teamDashboardState): Tea_Vdom.t<msg> => {
-  let content = switch state.activeTab {
-  | TabTeam => renderTeamTab(state)
-  | TabActivity => renderActivityTab(state)
-  | TabProgress => renderProgressTab(state)
-  | TabSchedule => renderScheduleTab(state)
-  }
-
-  div(
-    list{Attrs.class_("flex flex-col h-full bg-gray-900 text-gray-100")},
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          h2(
-            list{Attrs.class_("text-lg font-semibold text-cyan-300")},
-            list{text("Team Dashboard")},
-          ),
-          // Filter input
-          input(
-            list{
-              Attrs.class_(
-                "bg-gray-800 border border-gray-700 rounded px-2 py-1 text-sm text-gray-300 w-48 placeholder-gray-600",
-              ),
-              Attrs.placeholder("Filter members..."),
-              Attrs.value(state.filter),
-              Events.onInput(value => TeamDashboard(SetTdFilter(value))),
-            },
-            list{},
-          ),
-        },
-      ),
-      // Error display
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_("px-4 py-2 bg-red-900/30 text-red-300 text-sm border-b border-red-800"),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      // Tab bar
-      renderTabs(state.activeTab),
-      // Content
-      div(list{Attrs.class_("flex-1 overflow-y-auto")}, list{content}),
-    },
-  )
-}
diff --git a/src/components/Tentacles.affine b/src/components/Tentacles.affine
new file mode 100644
index 00000000..1ca0805b
--- /dev/null
+++ b/src/components/Tentacles.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Tentacles;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Tentacles.res b/src/components/Tentacles.res
deleted file mode 100644
index cc3d10ec..00000000
--- a/src/components/Tentacles.res
+++ /dev/null
@@ -1,631 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Tentacles — panel component for the 7-Tentacles compiler agent orchestra.
-///
-/// Renders four category tabs: Agent (single-agent 3-panel view), Orchestra
-/// (7-agent grid), Stage (progressive reveal config), Progress (stats dashboard).
-/// Uses Tea_Html (no JSX) and Tailwind CSS, consistent with all PanLL panels.
-
-open Model
-open Msg
-open TentaclesEngine
-open Tea.Html
-
-/// Render a category tab button.
-let renderTab = (label: string, active: bool, cat: tentaclesCategory): Tea_Vdom.t<msg> => {
-  let baseClass = "px-3 py-1.5 text-xs rounded-t border-b-2 transition-colors cursor-pointer"
-  let cls = active
-    ? `${baseClass} text-cyan-300 border-cyan-400 bg-gray-800`
-    : `${baseClass} text-gray-500 border-transparent hover:text-gray-300`
-  button(
-    list{
-      Attrs.class_(cls),
-      Events.onClick(Tentacles(SetTentaclesCategory(cat))),
-      Attrs.role("tab"),
-      Attrs.ariaSelected(active),
-    },
-    list{text(label)},
-  )
-}
-
-/// Render an OODA phase indicator.
-let renderOodaIndicator = (currentPhase: oodaPhase): Tea_Vdom.t<msg> => {
-  let phases = [(Observe, "O"), (Orient, "R"), (Decide, "D"), (Act, "A")]
-  div(
-    list{Attrs.class_("flex gap-1")},
-    phases
-    ->Array.map(((phase, letter)) => {
-      let cls =
-        phase == currentPhase
-          ? "w-6 h-6 rounded-full bg-cyan-500 text-gray-950 flex items-center justify-center text-xs font-bold"
-          : "w-6 h-6 rounded-full bg-gray-700 text-gray-400 flex items-center justify-center text-xs"
-      div(list{Attrs.class_(cls)}, list{text(letter)})
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Render a constraint card for Panel-L feed.
-let renderConstraint = (c: tentacleConstraint): Tea_Vdom.t<msg> => {
-  let statusCls = c.satisfied ? "text-green-400" : "text-amber-400"
-  let statusText = c.satisfied ? "SAT" : "UNSAT"
-  div(
-    list{Attrs.class_("p-2 mb-1 rounded bg-gray-800/60 border border-gray-700/50")},
-    list{
-      div(
-        list{Attrs.class_("flex justify-between items-center")},
-        list{
-          span(list{Attrs.class_("text-xs text-gray-300")}, list{text(c.label)}),
-          span(list{Attrs.class_(`text-xs font-mono ${statusCls}`)}, list{text(statusText)}),
-        },
-      ),
-      div(
-        list{Attrs.class_("text-xs text-gray-500 font-mono mt-0.5 truncate")},
-        list{text(c.expression)},
-      ),
-    },
-  )
-}
-
-/// Render a reasoning entry for Panel-N feed.
-let renderReasoning = (r: reasoningEntry): Tea_Vdom.t<msg> => {
-  let phaseColour = switch r.phase {
-  | Observe => "text-blue-400"
-  | Orient => "text-yellow-400"
-  | Decide => "text-orange-400"
-  | Act => "text-green-400"
-  }
-  div(
-    list{Attrs.class_("p-2 mb-1 rounded bg-gray-800/40 border-l-2 border-gray-600")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          span(
-            list{Attrs.class_(`text-xs font-mono ${phaseColour}`)},
-            list{text(oodaIcon(r.phase))},
-          ),
-          span(list{Attrs.class_("text-xs text-gray-300")}, list{text(r.summary)}),
-        },
-      ),
-    },
-  )
-}
-
-/// Render a validated result card for Panel-W feed.
-let renderResult = (r: validatedResult): Tea_Vdom.t<msg> => {
-  let verifiedCls = r.verified ? "text-green-400" : "text-red-400"
-  let verifiedText = r.verified ? "VERIFIED" : "UNVERIFIED"
-  div(
-    list{Attrs.class_("p-2 mb-1 rounded bg-gray-800/60 border border-gray-700/50")},
-    list{
-      div(
-        list{Attrs.class_("flex justify-between items-center mb-1")},
-        list{
-          span(list{Attrs.class_("text-xs font-medium text-gray-200")}, list{text(r.title)}),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              span(list{Attrs.class_(`text-xs ${verifiedCls}`)}, list{text(verifiedText)}),
-              span(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{text(Float.toFixed(r.confidence *. 100.0, ~digits=0) ++ "%")},
-              ),
-            },
-          ),
-        },
-      ),
-      div(list{Attrs.class_("text-xs text-gray-400 font-mono truncate")}, list{text(r.content)}),
-    },
-  )
-}
-
-/// Render a single agent card (used in both AgentView and Orchestra).
-let renderAgentCard = (agent: tentacleAgentState, isSelected: bool, compact: bool): Tea_Vdom.t<
-  msg,
-> => {
-  let borderCls = tentacleBorderClass(agent.id)
-  let bgCls = tentacleBgClass(agent.id)
-  let textCls = tentacleTextClass(agent.id)
-  let selectedBorder = isSelected ? borderCls : "border-gray-700"
-  let name = agentDisplayName(agent)
-
-  if compact {
-    // Compact mode: small coloured dot with status
-    div(
-      list{
-        Attrs.class_(
-          `p-2 rounded-lg border ${selectedBorder} ${bgCls} cursor-pointer hover:brightness-110 transition-all`,
-        ),
-        Events.onClick(Tentacles(SelectAgent(agent.id))),
-      },
-      list{
-        div(
-          list{Attrs.class_("flex items-center gap-2")},
-          list{
-            div(
-              list{
-                Attrs.class_(
-                  `w-3 h-3 rounded-full ${tentacleBgClass(agent.id)} border ${borderCls}`,
-                ),
-              },
-              list{},
-            ),
-            span(
-              list{Attrs.class_(`text-xs ${textCls} font-medium`)},
-              list{text(tentacleShortLabel(agent.id))},
-            ),
-            if agent.busy {
-              span(list{Attrs.class_("text-xs text-cyan-400 animate-pulse")}, list{text("...")})
-            } else {
-              noNode
-            },
-          },
-        ),
-      },
-    )
-  } else {
-    // Full card: name, role, OODA, status
-    div(
-      list{
-        Attrs.class_(
-          `p-3 rounded-lg border ${selectedBorder} ${bgCls} cursor-pointer hover:brightness-110 transition-all`,
-        ),
-        Events.onClick(Tentacles(SelectAgent(agent.id))),
-      },
-      list{
-        // Header: name + busy indicator
-        div(
-          list{Attrs.class_("flex justify-between items-center mb-2")},
-          list{
-            div(
-              list{Attrs.class_("flex items-center gap-2")},
-              list{
-                div(list{Attrs.class_(`w-3 h-3 rounded-full border ${borderCls}`)}, list{}),
-                span(list{Attrs.class_(`text-sm font-medium ${textCls}`)}, list{text(name)}),
-              },
-            ),
-            if agent.busy {
-              span(list{Attrs.class_("text-xs text-cyan-400 animate-pulse")}, list{text("WORKING")})
-            } else {
-              span(list{Attrs.class_("text-xs text-gray-600")}, list{text("IDLE")})
-            },
-          },
-        ),
-        // Role
-        div(list{Attrs.class_("text-xs text-gray-400 mb-2")}, list{text(agent.compilerRole)}),
-        // OODA indicator
-        renderOodaIndicator(agent.currentPhase),
-        // Catchphrase
-        div(
-          list{Attrs.class_("text-xs text-gray-500 italic mt-2 truncate")},
-          list{text(agent.personality.catchphrase)},
-        ),
-        // Stats row
-        div(
-          list{Attrs.class_("flex gap-3 mt-2 text-xs text-gray-500")},
-          list{
-            span(
-              list{},
-              list{text(Int.toString(Array.length(agent.constraints)) ++ " constraints")},
-            ),
-            span(list{}, list{text(Int.toString(Array.length(agent.results)) ++ " results")}),
-          },
-        ),
-        // Error indicator
-        switch agent.lastError {
-        | Some(err) =>
-          div(
-            list{
-              Attrs.class_(
-                "mt-2 p-1.5 rounded bg-red-900/30 border border-red-700/50 text-xs text-red-400 truncate",
-              ),
-            },
-            list{text(err)},
-          )
-        | None => noNode
-        },
-      },
-    )
-  }
-}
-
-/// Render the Agent View tab — single agent with 3-panel breakdown.
-let renderAgentView = (state: tentaclesState): Tea_Vdom.t<msg> => {
-  let agent = findAgent(state.agents, state.selectedAgent)
-  switch agent {
-  | None => div(list{Attrs.class_("p-4 text-gray-500 text-sm")}, list{text("No agent selected")})
-  | Some(a) => {
-      let textCls = tentacleTextClass(a.id)
-      let borderCls = tentacleBorderClass(a.id)
-      div(
-        list{Attrs.class_("flex flex-col h-full")},
-        list{
-          // Agent selector strip
-          div(
-            list{Attrs.class_("flex gap-1 px-3 py-2 border-b border-gray-800")},
-            allTentacles
-            ->Array.map(id => {
-              let isSelected = id == state.selectedAgent
-              let cls = isSelected
-                ? `px-2 py-1 text-xs rounded cursor-pointer ${tentacleBgClass(
-                      id,
-                    )} ${tentacleTextClass(id)} border ${tentacleBorderClass(id)}`
-                : "px-2 py-1 text-xs rounded cursor-pointer text-gray-500 hover:text-gray-300 border border-transparent"
-              button(
-                list{Attrs.class_(cls), Events.onClick(Tentacles(SelectAgent(id)))},
-                list{text(tentacleShortLabel(id))},
-              )
-            })
-            ->List.fromArray,
-          ),
-          // Agent header
-          div(
-            list{Attrs.class_("px-4 py-3 border-b border-gray-800")},
-            list{
-              div(
-                list{Attrs.class_("flex justify-between items-center")},
-                list{
-                  div(
-                    list{Attrs.class_("flex items-center gap-3")},
-                    list{
-                      div(list{Attrs.class_(`w-4 h-4 rounded-full border-2 ${borderCls}`)}, list{}),
-                      span(
-                        list{Attrs.class_(`text-lg font-medium ${textCls}`)},
-                        list{text(agentDisplayName(a))},
-                      ),
-                      span(
-                        list{Attrs.class_("text-xs text-gray-500")},
-                        list{text("(" ++ a.compilerRole ++ ")")},
-                      ),
-                    },
-                  ),
-                  renderOodaIndicator(a.currentPhase),
-                },
-              ),
-              div(
-                list{Attrs.class_("text-xs text-gray-500 italic mt-1")},
-                list{text(a.personality.catchphrase)},
-              ),
-            },
-          ),
-          // Three-column layout: Constraints | Reasoning | Results
-          div(
-            list{Attrs.class_("flex-1 flex overflow-hidden")},
-            list{
-              // Panel-L: Constraints
-              div(
-                list{Attrs.class_("flex-1 overflow-auto border-r border-gray-800 p-3")},
-                list{
-                  div(
-                    list{
-                      Attrs.class_(
-                        "text-xs text-gray-500 font-medium mb-2 uppercase tracking-wider",
-                      ),
-                    },
-                    list{text("Constraints (L)")},
-                  ),
-                  if Array.length(a.constraints) == 0 {
-                    div(
-                      list{Attrs.class_("text-xs text-gray-600 italic")},
-                      list{text("No active constraints")},
-                    )
-                  } else {
-                    div(list{}, a.constraints->Array.map(renderConstraint)->List.fromArray)
-                  },
-                },
-              ),
-              // Panel-N: Reasoning
-              div(
-                list{Attrs.class_("flex-1 overflow-auto border-r border-gray-800 p-3")},
-                list{
-                  div(
-                    list{
-                      Attrs.class_(
-                        "text-xs text-gray-500 font-medium mb-2 uppercase tracking-wider",
-                      ),
-                    },
-                    list{text("Reasoning (N)")},
-                  ),
-                  if Array.length(a.reasoning) == 0 {
-                    div(
-                      list{Attrs.class_("text-xs text-gray-600 italic")},
-                      list{text("No reasoning entries")},
-                    )
-                  } else {
-                    div(list{}, a.reasoning->Array.map(renderReasoning)->List.fromArray)
-                  },
-                },
-              ),
-              // Panel-W: Results
-              div(
-                list{Attrs.class_("flex-1 overflow-auto p-3")},
-                list{
-                  div(
-                    list{
-                      Attrs.class_(
-                        "text-xs text-gray-500 font-medium mb-2 uppercase tracking-wider",
-                      ),
-                    },
-                    list{text("Results (W)")},
-                  ),
-                  if Array.length(a.results) == 0 {
-                    div(
-                      list{Attrs.class_("text-xs text-gray-600 italic")},
-                      list{text("No validated results")},
-                    )
-                  } else {
-                    div(list{}, a.results->Array.map(renderResult)->List.fromArray)
-                  },
-                },
-              ),
-            },
-          ),
-        },
-      )
-    }
-  }
-}
-
-/// Render the Orchestra tab — all 7 agents in a grid.
-let renderOrchestra = (state: tentaclesState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("p-4")},
-    list{
-      // Header with compact toggle
-      div(
-        list{Attrs.class_("flex justify-between items-center mb-4")},
-        list{
-          div(
-            list{Attrs.class_("text-sm text-gray-300 font-medium")},
-            list{text("Agent Orchestra")},
-          ),
-          button(
-            list{
-              Attrs.class_("text-xs text-gray-500 hover:text-gray-300 cursor-pointer"),
-              Events.onClick(Tentacles(ToggleOrchestraCompact)),
-              KeyboardNav.onActivate(Tentacles(ToggleOrchestraCompact)),
-            },
-            list{text(state.orchestraCompact ? "Expand" : "Compact")},
-          ),
-        },
-      ),
-      // Agent grid
-      div(
-        list{
-          Attrs.class_(
-            state.orchestraCompact
-              ? "grid grid-cols-7 gap-2"
-              : "grid grid-cols-2 lg:grid-cols-3 xl:grid-cols-4 gap-3",
-          ),
-        },
-        state.agents
-        ->Array.map(a => renderAgentCard(a, a.id == state.selectedAgent, state.orchestraCompact))
-        ->List.fromArray,
-      ),
-      // Summary stats
-      div(
-        list{Attrs.class_("mt-4 flex gap-6 text-xs text-gray-500 border-t border-gray-800 pt-3")},
-        list{
-          span(list{}, list{text(Int.toString(busyCount(state.agents)) ++ " active")}),
-          span(list{}, list{text(Int.toString(errorCount(state.agents)) ++ " errors")}),
-          span(list{}, list{text(Int.toString(totalConstraints(state.agents)) ++ " constraints")}),
-          span(list{}, list{text(Int.toString(totalResults(state.agents)) ++ " results")}),
-          if state.ffiConnected {
-            span(list{Attrs.class_("text-green-500")}, list{text("FFI Connected")})
-          } else {
-            span(list{Attrs.class_("text-gray-600")}, list{text("FFI Disconnected")})
-          },
-        },
-      ),
-    },
-  )
-}
-
-/// Render the Stage Config tab.
-let renderStageConfig = (state: tentaclesState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("p-4")},
-    list{
-      div(
-        list{Attrs.class_("text-sm text-gray-300 font-medium mb-4")},
-        list{text("Progressive Reveal Stage")},
-      ),
-      div(
-        list{Attrs.class_("text-xs text-gray-500 mb-4")},
-        list{
-          text(
-            "Set the global stage to control which compiler concepts are revealed to all agents.",
-          ),
-        },
-      ),
-      // Stage selector
-      div(
-        list{Attrs.class_("flex flex-col gap-3")},
-        allStages
-        ->Array.map(stage => {
-          let isActive = stage == state.globalStage
-          let cls = isActive
-            ? "p-3 rounded-lg border border-cyan-500 bg-cyan-900/20 cursor-pointer"
-            : "p-3 rounded-lg border border-gray-700 bg-gray-800/40 cursor-pointer hover:border-gray-500"
-          div(
-            list{Attrs.class_(cls), Events.onClick(Tentacles(SetGlobalStage(stage)))},
-            list{
-              div(
-                list{Attrs.class_("flex justify-between items-center")},
-                list{
-                  span(
-                    list{
-                      Attrs.class_(
-                        isActive ? "text-sm text-cyan-300 font-medium" : "text-sm text-gray-300",
-                      ),
-                    },
-                    list{text(stageLabel(stage))},
-                  ),
-                  if isActive {
-                    span(list{Attrs.class_("text-xs text-cyan-400")}, list{text("ACTIVE")})
-                  } else {
-                    noNode
-                  },
-                },
-              ),
-              div(
-                list{Attrs.class_("text-xs text-gray-500 mt-1")},
-                list{
-                  text(
-                    switch stage {
-                    | Cuttle => "Introductory stage. Game-like interactions, gentle metaphors, hidden compiler concepts."
-                    | Squidlet => "Intermediate stage. Pattern-matching challenges, revealed connections between games and code."
-                    | Duet => "Paired reasoning stage. Two agents collaborate, showing how compiler subsystems interact."
-                    | Octopus => "Full access stage. Direct compiler subsystem interaction, formal methods, proof obligations."
-                    },
-                  ),
-                },
-              ),
-            },
-          )
-        })
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-/// Render the Progress tab.
-let renderProgress = (state: tentaclesState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("p-4")},
-    list{
-      div(
-        list{Attrs.class_("text-sm text-gray-300 font-medium mb-4")},
-        list{text("Progress Dashboard")},
-      ),
-      // Per-agent stats
-      div(
-        list{Attrs.class_("flex flex-col gap-2")},
-        state.agents
-        ->Array.map(a => {
-          let textCls = tentacleTextClass(a.id)
-          let bgCls = tentacleBgClass(a.id)
-          let constraintCount = Array.length(a.constraints)
-          let resultCount = Array.length(a.results)
-          let verifiedCount = a.results->Array.filter(r => r.verified)->Array.length
-          div(
-            list{Attrs.class_(`p-3 rounded-lg ${bgCls} border border-gray-700/50`)},
-            list{
-              div(
-                list{Attrs.class_("flex justify-between items-center mb-1")},
-                list{
-                  span(
-                    list{Attrs.class_(`text-sm font-medium ${textCls}`)},
-                    list{text(agentDisplayName(a))},
-                  ),
-                  span(list{Attrs.class_("text-xs text-gray-500")}, list{text(tentacleRole(a.id))}),
-                },
-              ),
-              div(
-                list{Attrs.class_("flex gap-4 text-xs text-gray-500")},
-                list{
-                  span(list{}, list{text(Int.toString(constraintCount) ++ " constraints")}),
-                  span(list{}, list{text(Int.toString(resultCount) ++ " results")}),
-                  span(list{}, list{text(Int.toString(verifiedCount) ++ " verified")}),
-                  span(list{}, list{text("Stage: " ++ stageLabel(a.stage))}),
-                },
-              ),
-            },
-          )
-        })
-        ->List.fromArray,
-      ),
-      // FFI status
-      div(
-        list{Attrs.class_("mt-4 p-3 rounded-lg bg-gray-800/40 border border-gray-700/50")},
-        list{
-          div(
-            list{Attrs.class_("flex justify-between items-center")},
-            list{
-              span(list{Attrs.class_("text-xs text-gray-400")}, list{text("ECHIDNA FFI Bridge")}),
-              if state.ffiConnected {
-                span(list{Attrs.class_("text-xs text-green-400")}, list{text("Connected")})
-              } else {
-                span(list{Attrs.class_("text-xs text-gray-600")}, list{text("Disconnected")})
-              },
-            },
-          ),
-          switch state.ffiError {
-          | Some(err) => div(list{Attrs.class_("mt-1 text-xs text-red-400")}, list{text(err)})
-          | None => noNode
-          },
-          div(
-            list{Attrs.class_("mt-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_("text-xs text-cyan-400 hover:text-cyan-300 cursor-pointer"),
-                  Events.onClick(Tentacles(CheckFfiBridge)),
-                  KeyboardNav.onActivate(Tentacles(CheckFfiBridge)),
-                },
-                list{text("Check Connection")},
-              ),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Main view for the Tentacles panel.
-let view = (state: tentaclesState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("fixed inset-0 z-40 bg-gray-950/95 flex flex-col")},
-    list{
-      // Panel header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              span(
-                list{Attrs.class_("text-sm font-medium text-gray-200")},
-                list{text("7-Tentacles")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{text("Compiler Agent Orchestra")},
-              ),
-            },
-          ),
-          // Close button
-          button(
-            list{
-              Attrs.class_("text-gray-500 hover:text-gray-300 text-xs cursor-pointer"),
-              Events.onClick(PanelSwitcher(TogglePanel(PanelTentacles))),
-            },
-            list{text("[X]")},
-          ),
-        },
-      ),
-      // Tab bar
-      div(
-        list{Attrs.class_("flex gap-1 px-4 pt-2 border-b border-gray-800")},
-        allCategories
-        ->Array.map(cat => renderTab(categoryLabel(cat), cat == state.activeCategory, cat))
-        ->List.fromArray,
-      ),
-      // Content area
-      div(
-        list{Attrs.class_("flex-1 overflow-auto")},
-        list{
-          switch state.activeCategory {
-          | AgentView => renderAgentView(state)
-          | Orchestra => renderOrchestra(state)
-          | StageConfig => renderStageConfig(state)
-          | Progress => renderProgress(state)
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/Tsdm.affine b/src/components/Tsdm.affine
new file mode 100644
index 00000000..119f030f
--- /dev/null
+++ b/src/components/Tsdm.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Tsdm;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Tsdm.res b/src/components/Tsdm.res
deleted file mode 100644
index 141a713a..00000000
--- a/src/components/Tsdm.res
+++ /dev/null
@@ -1,516 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL TSDM Panel — Triaxial Software Development Methodology directive.
-///
-/// A directive panel: users reorder axes, tier priorities, and cleanup steps.
-/// Other panels read the active directive when presenting and sequencing work.
-/// Displays aggregated work items classified by TSDM axes and tiers.
-///
-/// Two columns: Axis/tier ordering (left), Work items (right).
-
-open Msg
-open TsdmModel
-open Tea.Html
-
-/// Display label for an axis.
-let axisLabel = (axis: axisId): string =>
-  switch axis {
-  | AxisScope => "Scope"
-  | AxisMaintenance => "Maintenance"
-  | AxisAudit => "Audit"
-  }
-
-/// Colour class for an axis.
-let axisColour = (axis: axisId): string =>
-  switch axis {
-  | AxisScope => "text-emerald-400"
-  | AxisMaintenance => "text-amber-400"
-  | AxisAudit => "text-cyan-400"
-  }
-
-/// Display label for a scope tier.
-let scopeTierLabel = (tier: scopeTier): string =>
-  switch tier {
-  | Must => "Must"
-  | Intend => "Intend"
-  | Like => "Like"
-  }
-
-/// Display label for a maintenance tier.
-let maintenanceTierLabel = (tier: maintenanceTier): string =>
-  switch tier {
-  | Corrective => "Corrective"
-  | Adaptive => "Adaptive"
-  | Perfective => "Perfective"
-  }
-
-/// Display label for an audit tier.
-let auditTierLabel = (tier: auditTier): string =>
-  switch tier {
-  | Systems => "Systems"
-  | Compliance => "Compliance"
-  | Effects => "Effects"
-  }
-
-/// Display label for a cleanup step.
-let cleanupStepLabel = (step: cleanupStep): string =>
-  switch step {
-  | RootCleanup => "Root Cleanup"
-  | StaleWorkCull => "Stale Work Cull"
-  | DocsSyncHumanMachine => "Docs Sync (Human + Machine)"
-  | ComplianceAudit => "Compliance Audit"
-  | EffectsAudit => "Effects Audit"
-  | ReleaseSummary => "Release Summary"
-  | NextActions => "Next Actions"
-  }
-
-/// Render a numbered, reorderable list item with up/down arrows.
-let orderItem = (
-  index: int,
-  lbl: string,
-  colour: string,
-  total: int,
-  upMsg: msg,
-  downMsg: msg,
-): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex items-center gap-2 py-1.5 px-3 bg-gray-800/50 rounded mb-1")},
-    list{
-      span(
-        list{Attrs.class_("text-xs text-gray-500 font-mono w-5")},
-        list{text(Int.toString(index + 1))},
-      ),
-      span(list{Attrs.class_(`flex-1 text-sm font-mono ${colour}`)}, list{text(lbl)}),
-      button(
-        list{
-          Attrs.class_("text-xs text-gray-500 hover:text-gray-200 disabled:opacity-30 px-1"),
-          Attrs.disabled(index == 0),
-          Events.onClick(upMsg),
-        },
-        list{text("^")},
-      ),
-      button(
-        list{
-          Attrs.class_("text-xs text-gray-500 hover:text-gray-200 disabled:opacity-30 px-1"),
-          Attrs.disabled(index == total - 1),
-          Events.onClick(downMsg),
-        },
-        list{text("v")},
-      ),
-    },
-  )
-}
-
-/// Render a toggleable cleanup step.
-let cleanupItem = (step: cleanupStep, enabled: bool): Tea_Vdom.t<msg> => {
-  label(
-    list{
-      Attrs.class_("flex items-center gap-2 py-1 px-3 cursor-pointer hover:bg-gray-800/30 rounded"),
-    },
-    list{
-      input(
-        list{
-          Attrs.type_("checkbox"),
-          Attrs.checked(enabled),
-          Attrs.class_("w-3.5 h-3.5 accent-cyan-500"),
-          Events.onClick(Tsdm(ToggleCleanupStep(step))),
-        },
-        list{},
-      ),
-      span(
-        list{
-          Attrs.class_(
-            `text-sm font-mono ${enabled ? "text-gray-200" : "text-gray-500 line-through"}`,
-          ),
-        },
-        list{text(cleanupStepLabel(step))},
-      ),
-    },
-  )
-}
-
-/// Render a work item row.
-let workItemRow = (item: tsdmWorkItem): Tea_Vdom.t<msg> => {
-  let axisColourClass = axisColour(item.axis)
-  let doneClass = item.done ? "opacity-40" : ""
-  div(
-    list{Attrs.class_(`flex items-center gap-3 py-1.5 px-3 border-b border-gray-700 ${doneClass}`)},
-    list{
-      span(
-        list{Attrs.class_(`text-xs font-mono font-bold ${axisColourClass} min-w-[50px]`)},
-        list{text(axisLabel(item.axis))},
-      ),
-      span(
-        list{Attrs.class_("text-xs text-gray-500 font-mono min-w-[70px]")},
-        list{
-          text(
-            switch (item.scopeTier, item.maintenanceTier, item.auditTier) {
-            | (Some(t), _, _) => scopeTierLabel(t)
-            | (_, Some(t), _) => maintenanceTierLabel(t)
-            | (_, _, Some(t)) => auditTierLabel(t)
-            | (None, None, None) => "-"
-            },
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("flex-1 min-w-0")},
-        list{div(list{Attrs.class_("text-sm text-gray-200 truncate")}, list{text(item.title)})},
-      ),
-      span(list{Attrs.class_("text-xs text-gray-600 font-mono")}, list{text(item.sourcePanel)}),
-    },
-  )
-}
-
-/// Sort work items according to current TSDM directive.
-let sortByDirective = (
-  items: array<tsdmWorkItem>,
-  axisOrder: array<axisId>,
-  showCompleted: bool,
-): array<tsdmWorkItem> => {
-  items
-  ->Array.filter(item => showCompleted || !item.done)
-  ->Array.toSorted((a, b) => {
-    // Primary sort: axis position in axisOrder
-    let posA = axisOrder->Array.findIndex(ax => ax == a.axis)->Int.toFloat
-    let posB = axisOrder->Array.findIndex(ax => ax == b.axis)->Int.toFloat
-    posA -. posB
-  })
-}
-
-/// Render an axis filter button.
-let axisFilterBtn = (
-  lbl: string,
-  filterVal: option<axisId>,
-  activeFilter: option<axisId>,
-): Tea_Vdom.t<msg> => {
-  let active = activeFilter == filterVal
-  button(
-    list{
-      Attrs.class_(
-        `px-2 py-0.5 rounded font-mono text-xs ${active
-            ? "bg-indigo-600 text-white"
-            : "bg-gray-700 text-gray-400 hover:bg-gray-600"}`,
-      ),
-      Events.onClick(Tsdm(SetAxisFilter(filterVal))),
-    },
-    list{text(lbl)},
-  )
-}
-
-/// Main panel view.
-let view = (state: tsdmState): Tea_Vdom.t<msg> => {
-  let sorted = sortByDirective(state.workItems, state.axisOrder, state.showCompleted)
-
-  div(
-    list{Attrs.class_("flex flex-col h-full bg-gray-900 text-gray-100 overflow-hidden")},
-    list{
-      // Header
-      div(
-        list{
-          Attrs.class_(
-            "flex items-center justify-between px-4 py-3 bg-gray-800 border-b border-gray-700",
-          ),
-        },
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              span(list{Attrs.class_("text-lg font-bold text-indigo-400")}, list{text("TSDM")}),
-              span(
-                list{
-                  Attrs.class_("text-xs text-gray-500 font-mono px-2 py-0.5 rounded bg-gray-700"),
-                },
-                list{text("directive")},
-              ),
-              if state.locked {
-                span(
-                  list{
-                    Attrs.class_(
-                      "text-xs text-amber-400 font-mono px-2 py-0.5 rounded bg-gray-700",
-                    ),
-                  },
-                  list{text("LOCKED")},
-                )
-              } else {
-                noNode
-              },
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    `px-3 py-1 text-xs rounded font-mono ${state.locked
-                        ? "bg-amber-700 hover:bg-amber-600 text-white"
-                        : "bg-gray-700 hover:bg-gray-600 text-gray-300"}`,
-                  ),
-                  Events.onClick(Tsdm(ToggleLock)),
-                  KeyboardNav.onActivate(Tsdm(ToggleLock)),
-                },
-                list{text(state.locked ? "unlock" : "lock")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-xs rounded bg-indigo-700 hover:bg-indigo-600 text-white font-mono",
-                  ),
-                  Events.onClick(Tsdm(ResetToDefaults)),
-                  KeyboardNav.onActivate(Tsdm(ResetToDefaults)),
-                },
-                list{text("reset")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Two-column layout
-      div(
-        list{Attrs.class_("flex flex-1 overflow-hidden")},
-        list{
-          // Left column: Axis ordering
-          div(
-            list{Attrs.class_("w-64 border-r border-gray-700 overflow-y-auto p-3")},
-            list{
-              div(
-                list{Attrs.class_("text-xs text-gray-500 font-bold mb-2 uppercase")},
-                list{text("Axis Execution Order")},
-              ),
-              div(
-                list{},
-                state.axisOrder
-                ->Array.mapWithIndex((axis, i) =>
-                  orderItem(
-                    i,
-                    axisLabel(axis),
-                    axisColour(axis),
-                    Array.length(state.axisOrder),
-                    Tsdm(MoveAxisUp(i)),
-                    Tsdm(MoveAxisDown(i)),
-                  )
-                )
-                ->List.fromArray,
-              ),
-              // Scope tiers
-              div(
-                list{Attrs.class_("text-xs text-gray-500 font-bold mt-4 mb-2 uppercase")},
-                list{text("Scope Tiers")},
-              ),
-              div(
-                list{},
-                state.scopeOrder
-                ->Array.mapWithIndex((tier, i) =>
-                  orderItem(
-                    i,
-                    scopeTierLabel(tier),
-                    "text-emerald-300",
-                    Array.length(state.scopeOrder),
-                    Tsdm(MoveScopeTierUp(i)),
-                    Tsdm(MoveScopeTierDown(i)),
-                  )
-                )
-                ->List.fromArray,
-              ),
-              // Maintenance tiers
-              div(
-                list{Attrs.class_("text-xs text-gray-500 font-bold mt-4 mb-2 uppercase")},
-                list{text("Maintenance Tiers")},
-              ),
-              div(
-                list{},
-                state.maintenanceOrder
-                ->Array.mapWithIndex((tier, i) =>
-                  orderItem(
-                    i,
-                    maintenanceTierLabel(tier),
-                    "text-amber-300",
-                    Array.length(state.maintenanceOrder),
-                    Tsdm(MoveMaintenanceTierUp(i)),
-                    Tsdm(MoveMaintenanceTierDown(i)),
-                  )
-                )
-                ->List.fromArray,
-              ),
-              // Audit tiers
-              div(
-                list{Attrs.class_("text-xs text-gray-500 font-bold mt-4 mb-2 uppercase")},
-                list{text("Audit Tiers")},
-              ),
-              div(
-                list{},
-                state.auditOrder
-                ->Array.mapWithIndex((tier, i) =>
-                  orderItem(
-                    i,
-                    auditTierLabel(tier),
-                    "text-cyan-300",
-                    Array.length(state.auditOrder),
-                    Tsdm(MoveAuditTierUp(i)),
-                    Tsdm(MoveAuditTierDown(i)),
-                  )
-                )
-                ->List.fromArray,
-              ),
-              // Cleanup steps
-              div(
-                list{Attrs.class_("text-xs text-gray-500 font-bold mt-4 mb-2 uppercase")},
-                list{text("Cleanup Steps")},
-              ),
-              div(
-                list{},
-                state.cleanupSteps
-                ->Array.map(step => {
-                  let enabled = state.cleanupEnabled->Array.includes(step)
-                  cleanupItem(step, enabled)
-                })
-                ->List.fromArray,
-              ),
-              // Tooling
-              div(
-                list{Attrs.class_("text-xs text-gray-500 font-bold mt-4 mb-2 uppercase")},
-                list{text("Tooling")},
-              ),
-              div(
-                list{Attrs.class_("text-xs text-gray-400 px-3 py-1")},
-                list{
-                  div(list{}, list{text(`Compliance: ${state.auditTooling.complianceTool}`)}),
-                  div(list{}, list{text(`Effects: ${state.auditTooling.effectsTool}`)}),
-                },
-              ),
-            },
-          ),
-          // Right column: Work items
-          div(
-            list{Attrs.class_("flex-1 flex flex-col overflow-hidden")},
-            list{
-              // Filter bar
-              div(
-                list{
-                  Attrs.class_(
-                    "flex items-center gap-2 px-3 py-2 border-b border-gray-700 text-xs",
-                  ),
-                },
-                list{
-                  // Axis filter buttons
-                  axisFilterBtn("All", None, state.axisFilter),
-                  div(
-                    list{Attrs.class_("flex gap-1")},
-                    state.axisOrder
-                    ->Array.map(axis =>
-                      axisFilterBtn(axisLabel(axis), Some(axis), state.axisFilter)
-                    )
-                    ->List.fromArray,
-                  ),
-                  label(
-                    list{Attrs.class_("flex items-center gap-1 text-gray-400 cursor-pointer ml-2")},
-                    list{
-                      input(
-                        list{
-                          Attrs.type_("checkbox"),
-                          Attrs.checked(state.showCompleted),
-                          Attrs.class_("w-3 h-3 accent-indigo-500"),
-                          Events.onClick(Tsdm(ToggleShowCompleted)),
-                          KeyboardNav.onActivate(Tsdm(ToggleShowCompleted)),
-                        },
-                        list{},
-                      ),
-                      text("Done"),
-                    },
-                  ),
-                  input(
-                    list{
-                      Attrs.type_("text"),
-                      Attrs.class_(
-                        "ml-auto w-40 bg-gray-800 text-sm text-gray-200 px-2 py-0.5 rounded border border-gray-600 font-mono",
-                      ),
-                      Attrs.placeholder("Search..."),
-                      Attrs.value(state.searchText),
-                      Events.onInput(v => Tsdm(SetTsdmSearch(v))),
-                    },
-                    list{},
-                  ),
-                },
-              ),
-              // Work items list
-              div(
-                list{Attrs.class_("flex-1 overflow-y-auto")},
-                {
-                  let filtered = switch state.axisFilter {
-                  | None => sorted
-                  | Some(axis) => sorted->Array.filter(item => item.axis == axis)
-                  }
-                  let searched =
-                    state.searchText == ""
-                      ? filtered
-                      : filtered->Array.filter(item =>
-                          String.includes(
-                            String.toLowerCase(item.title),
-                            String.toLowerCase(state.searchText),
-                          )
-                        )
-                  if Array.length(searched) == 0 {
-                    list{
-                      div(
-                        list{
-                          Attrs.class_(
-                            "flex items-center justify-center h-32 text-gray-500 text-sm",
-                          ),
-                        },
-                        list{
-                          text(
-                            if Array.length(state.workItems) == 0 {
-                              "No work items. Consumer panels will populate items as they run."
-                            } else {
-                              "No items match the current filter."
-                            },
-                          ),
-                        },
-                      ),
-                    }
-                  } else {
-                    searched->Array.map(workItemRow)->List.fromArray
-                  }
-                },
-              ),
-              // Footer
-              div(
-                list{
-                  Attrs.class_(
-                    "flex items-center justify-between px-3 py-2 bg-gray-800 border-t border-gray-700 text-xs text-gray-500",
-                  ),
-                },
-                list{
-                  span(
-                    list{},
-                    list{
-                      text(
-                        `${Int.toString(Array.length(state.workItems))} items (${Int.toString(
-                            state.workItems->Array.filter(i => i.done)->Array.length,
-                          )} done)`,
-                      ),
-                    },
-                  ),
-                  span(list{}, list{text("TSDM 1.0 — Scope > Maintenance > Audit")}),
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Error display
-      switch state.lastError {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_("px-4 py-2 bg-red-900/30 border-t border-red-700 text-red-300 text-sm"),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-    },
-  )
-}
diff --git a/src/components/TypeLL.affine b/src/components/TypeLL.affine
new file mode 100644
index 00000000..2181ecda
--- /dev/null
+++ b/src/components/TypeLL.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TypeLL;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/TypeLL.res b/src/components/TypeLL.res
deleted file mode 100644
index 5edc95a0..00000000
--- a/src/components/TypeLL.res
+++ /dev/null
@@ -1,1306 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL TypeLL Component — the verification kernel panel.
-///
-/// Four tabs: Checker, Explorer, Refinement, Guide.
-/// View layer selector (RAW/FOLDED/GLYPHED/WYSIWYG) controls how type
-/// information is presented — progressive disclosure from expert to learner.
-///
-/// The evangeliser philosophy ("Celebrate good, minimize bad, show better")
-/// drives the narrative feedback on every type check result.
-
-open Model
-open Msg
-open Tea.Html
-
-// ============================================================================
-// Shared sub-views
-// ============================================================================
-
-/// Render the view layer selector (RAW → WYSIWYG).
-let renderViewLayerSelector = (active: viewLayer): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex gap-1 bg-gray-900 rounded-lg p-1")},
-    TypeLLEngine.allViewLayers
-    ->Array.map(vl => {
-      let isActive = vl === active
-      let colour = TypeLLEngine.viewLayerColour(vl)
-      button(
-        list{
-          Attrs.class_(
-            `px-2 py-1 text-xs rounded transition-colors ${isActive
-                ? colour ++ " ring-1 ring-gray-600"
-                : "text-gray-600 hover:text-gray-400"}`,
-          ),
-          Attrs.ariaLabel(TypeLLEngine.viewLayerDescription(vl)),
-          Events.onClick(TypeLL(SetViewLayer(vl))),
-        },
-        list{text(TypeLLEngine.viewLayerLabel(vl))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Render a type feature badge with glyph.
-let renderFeatureBadge = (f: typeFeature, viewLayer: viewLayer): Tea_Vdom.t<msg> => {
-  let glyph = TypeLLEngine.featureGlyph(f)
-  let tierColour = TypeLLEngine.tierColour(TypeLLEngine.featureTier(f))
-  switch viewLayer {
-  | Raw =>
-    span(
-      list{Attrs.class_(`px-1.5 py-0.5 text-xs rounded ${tierColour}`)},
-      list{text(TypeLLEngine.featureCode(f))},
-    )
-  | Folded =>
-    span(
-      list{Attrs.class_(`px-2 py-0.5 text-xs rounded ${tierColour}`)},
-      list{text(TypeLLEngine.featureLabel(f))},
-    )
-  | Glyphed =>
-    span(
-      list{
-        Attrs.class_(`px-2 py-0.5 text-xs rounded ${tierColour}`),
-        Attrs.ariaLabel(glyph.meaning),
-      },
-      list{text(`${glyph.symbol} ${glyph.label}`)},
-    )
-  | Wysiwyg =>
-    div(
-      list{Attrs.class_(`px-3 py-1.5 text-xs rounded-lg ${tierColour} border border-gray-700`)},
-      list{
-        div(
-          list{Attrs.class_("font-medium")},
-          list{text(`${glyph.symbol} ${TypeLLEngine.featureLabel(f)}`)},
-        ),
-        div(list{Attrs.class_("text-gray-500 mt-0.5")}, list{text(glyph.meaning)}),
-      },
-    )
-  }
-}
-
-/// Render an evangeliser narrative block.
-let renderNarrative = (narrative: typeNarrative): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-4 space-y-3")},
-    list{
-      if narrative.celebrate !== "" {
-        div(
-          list{Attrs.class_("flex items-start gap-2")},
-          list{
-            span(
-              list{Attrs.class_("text-emerald-400 text-sm font-medium shrink-0")},
-              list{text("Celebrate")},
-            ),
-            span(list{Attrs.class_("text-sm text-gray-300")}, list{text(narrative.celebrate)}),
-          },
-        )
-      } else {
-        noNode
-      },
-      if narrative.minimize !== "" {
-        div(
-          list{Attrs.class_("flex items-start gap-2")},
-          list{
-            span(
-              list{Attrs.class_("text-amber-400 text-sm font-medium shrink-0")},
-              list{text("Note")},
-            ),
-            span(list{Attrs.class_("text-sm text-gray-400")}, list{text(narrative.minimize)}),
-          },
-        )
-      } else {
-        noNode
-      },
-      if narrative.showBetter !== "" {
-        div(
-          list{Attrs.class_("flex items-start gap-2")},
-          list{
-            span(
-              list{Attrs.class_("text-cyan-400 text-sm font-medium shrink-0")},
-              list{text("Better")},
-            ),
-            span(list{Attrs.class_("text-sm text-gray-300")}, list{text(narrative.showBetter)}),
-          },
-        )
-      } else {
-        noNode
-      },
-      if narrative.safety !== "" {
-        div(
-          list{Attrs.class_("flex items-start gap-2")},
-          list{
-            span(
-              list{Attrs.class_("text-violet-400 text-sm font-medium shrink-0")},
-              list{text("Safety")},
-            ),
-            span(list{Attrs.class_("text-sm text-gray-300")}, list{text(narrative.safety)}),
-          },
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-/// Render a type check result.
-let renderCheckResult = (
-  result: typeCheckResult,
-  viewLayer: viewLayer,
-  narrative: option<typeNarrative>,
-): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-4")},
-    list{
-      // Status + type signature
-      div(
-        list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-4")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3 mb-3")},
-            list{
-              span(
-                list{
-                  Attrs.class_(
-                    if result.valid {
-                      "text-emerald-400 text-sm font-medium"
-                    } else {
-                      "text-red-400 text-sm font-medium"
-                    },
-                  ),
-                },
-                list{
-                  text(
-                    if result.valid {
-                      "Well-typed"
-                    } else {
-                      "Type error"
-                    },
-                  ),
-                },
-              ),
-              span(
-                list{
-                  Attrs.class_(
-                    `px-2 py-0.5 text-xs rounded ${TypeLLEngine.tierColour(result.maxTier)}`,
-                  ),
-                },
-                list{text(TypeLLEngine.tierLabel(result.maxTier))},
-              ),
-            },
-          ),
-          // Type signature with view layer formatting
-          pre(
-            list{
-              Attrs.class_(
-                "font-mono text-sm text-gray-200 bg-gray-950 rounded p-3 whitespace-pre-wrap",
-              ),
-            },
-            list{
-              text(
-                TypeLLEngine.formatSignature(
-                  result.typeSignature,
-                  viewLayer,
-                  result.activeFeatures,
-                ),
-              ),
-            },
-          ),
-          if result.explanation !== "" {
-            div(list{Attrs.class_("mt-2 text-sm text-gray-400")}, list{text(result.explanation)})
-          } else {
-            noNode
-          },
-        },
-      ),
-      // Active features
-      if result.activeFeatures->Array.length > 0 {
-        div(
-          list{Attrs.class_("flex flex-wrap gap-2")},
-          result.activeFeatures->Array.map(f => renderFeatureBadge(f, viewLayer))->List.fromArray,
-        )
-      } else {
-        noNode
-      },
-      // Proof obligations
-      if result.proofObligations->Array.length > 0 {
-        div(
-          list{Attrs.class_("bg-gray-900 border border-violet-700/50 rounded-lg p-4")},
-          list{
-            div(
-              list{Attrs.class_("text-xs text-violet-400 mb-2 font-medium")},
-              list{text("Proof Obligations")},
-            ),
-            div(
-              list{Attrs.class_("space-y-1")},
-              result.proofObligations
-              ->Array.map(po =>
-                div(list{Attrs.class_("text-sm text-gray-300 font-mono")}, list{text(po)})
-              )
-              ->List.fromArray,
-            ),
-          },
-        )
-      } else {
-        noNode
-      },
-      // Effects
-      if result.effects->Array.length > 0 {
-        div(
-          list{Attrs.class_("bg-gray-900 border border-amber-700/50 rounded-lg p-4")},
-          list{
-            div(
-              list{Attrs.class_("text-xs text-amber-400 mb-2 font-medium")},
-              list{text("Effects")},
-            ),
-            div(
-              list{Attrs.class_("flex flex-wrap gap-2")},
-              result.effects
-              ->Array.map(e =>
-                span(
-                  list{Attrs.class_("px-2 py-0.5 text-xs rounded bg-amber-900/30 text-amber-300")},
-                  list{text(e)},
-                )
-              )
-              ->List.fromArray,
-            ),
-          },
-        )
-      } else {
-        noNode
-      },
-      // Linearity issues
-      if result.linearityIssues->Array.length > 0 {
-        div(
-          list{Attrs.class_("bg-gray-900 border border-red-700/50 rounded-lg p-4")},
-          list{
-            div(
-              list{Attrs.class_("text-xs text-red-400 mb-2 font-medium")},
-              list{text("Linearity Issues")},
-            ),
-            div(
-              list{Attrs.class_("space-y-1")},
-              result.linearityIssues
-              ->Array.map(li => div(list{Attrs.class_("text-sm text-red-300")}, list{text(li)}))
-              ->List.fromArray,
-            ),
-          },
-        )
-      } else {
-        noNode
-      },
-      // Evangeliser narrative
-      switch narrative {
-      | Some(n) => renderNarrative(n)
-      | None => noNode
-      },
-    },
-  )
-}
-
-/// Render category tabs.
-let renderTabs = (active: typellCategory): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 mb-4"), Attrs.role("tablist")},
-    TypeLLEngine.allCategories
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-4 py-2 text-sm rounded-t transition-colors ${isActive
-                ? "bg-gray-800 text-gray-200 border-b-2 border-cyan-500"
-                : "text-gray-500 hover:text-gray-300"}`,
-          ),
-          Attrs.role("tab"),
-          Attrs.ariaSelected(isActive),
-          Events.onClick(TypeLL(SetTlCategory(tab))),
-        },
-        list{text(TypeLLEngine.categoryLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-// ============================================================================
-// Main View
-// ============================================================================
-
-/// Main view for the TypeLL panel.
-let view = (tl: typellState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("TypeLL verification kernel panel"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between p-4 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(list{Attrs.class_("text-lg font-medium text-gray-200")}, list{text("TypeLL")}),
-              span(list{Attrs.class_("text-xs text-gray-500")}, list{text("Verification Kernel")}),
-              if tl.serverConnected {
-                span(list{Attrs.class_("text-xs text-emerald-500")}, list{text("connected")})
-              } else {
-                span(list{Attrs.class_("text-xs text-amber-500")}, list{text("offline")})
-              },
-              if tl.serviceActive {
-                span(
-                  list{Attrs.class_("text-xs text-gray-600")},
-                  list{text(`${Int.toString(tl.queriesServed)} queries served`)},
-                )
-              } else {
-                noNode
-              },
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              renderViewLayerSelector(tl.activeViewLayer),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-sm bg-gray-800 text-gray-300 rounded hover:bg-gray-700",
-                  ),
-                  Events.onClick(PanelSwitcher(ClosePanels)),
-                  KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-                },
-                list{text("Close")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Content
-      div(
-        list{Attrs.class_("flex-1 overflow-auto p-6")},
-        list{
-          renderTabs(tl.activeCategory),
-          switch tl.activeCategory {
-          // ── Checker Tab ──
-          | TlChecker =>
-            div(
-              list{Attrs.class_("space-y-4")},
-              list{
-                div(
-                  list{Attrs.class_("text-sm text-gray-400 mb-2")},
-                  list{
-                    text(
-                      "Enter an expression to type-check. TypeLL detects dependent, linear, affine, session, and refinement types automatically.",
-                    ),
-                  },
-                ),
-                textarea(
-                  list{
-                    Attrs.class_(
-                      "w-full h-40 bg-gray-900 border border-gray-700 rounded-lg p-4 font-mono text-sm text-gray-200 resize-none focus:border-cyan-500 focus:outline-none",
-                    ),
-                    Attrs.value(tl.checkerInput),
-                    Attrs.placeholder("e.g., fun (n : Nat) => Vec n Int"),
-                    Events.onInput(v => TypeLL(UpdateCheckerInput(v))),
-                  },
-                  list{},
-                ),
-                div(
-                  list{Attrs.class_("flex gap-2")},
-                  list{
-                    button(
-                      list{
-                        Attrs.class_(
-                          "px-4 py-2 text-sm bg-cyan-600 text-white rounded hover:bg-cyan-500",
-                        ),
-                        Events.onClick(TypeLL(RunCheck)),
-                        KeyboardNav.onActivate(TypeLL(RunCheck)),
-                      },
-                      list{text("Check Types")},
-                    ),
-                    button(
-                      list{
-                        Attrs.class_(
-                          "px-4 py-2 text-sm bg-gray-800 text-gray-300 rounded hover:bg-gray-700",
-                        ),
-                        Events.onClick(TypeLL(RunInfer)),
-                        KeyboardNav.onActivate(TypeLL(RunInfer)),
-                      },
-                      list{text("Infer Type")},
-                    ),
-                  },
-                ),
-                switch tl.lastCheckResult {
-                | Some(result) => renderCheckResult(result, tl.activeViewLayer, tl.lastNarrative)
-                | None => noNode
-                },
-              },
-            )
-          // ── Explorer Tab ──
-          | TlExplorer =>
-            div(
-              list{Attrs.class_("space-y-4")},
-              list{
-                div(
-                  list{Attrs.class_("flex gap-3 items-center")},
-                  list{
-                    input(
-                      list{
-                        Attrs.class_(
-                          "flex-1 bg-gray-900 border border-gray-700 rounded px-3 py-2 text-sm text-gray-200 placeholder-gray-600 font-mono",
-                        ),
-                        Attrs.placeholder("Search signatures..."),
-                        Attrs.value(tl.signatureFilter),
-                        Events.onInput(v => TypeLL(SetSignatureFilter(v))),
-                      },
-                      list{},
-                    ),
-                    // Tier filter buttons
-                    button(
-                      list{
-                        Attrs.class_(
-                          `px-3 py-1.5 text-xs rounded ${tl.tierFilter === None
-                              ? "bg-gray-700 text-gray-200"
-                              : "text-gray-500 hover:text-gray-300"}`,
-                        ),
-                        Events.onClick(TypeLL(SetTierFilter(None))),
-                      },
-                      list{text("All")},
-                    ),
-                    button(
-                      list{
-                        Attrs.class_(
-                          `px-3 py-1.5 text-xs rounded ${tl.tierFilter === Some(TierCore)
-                              ? TypeLLEngine.tierColour(TierCore)
-                              : "text-gray-500 hover:text-gray-300"}`,
-                        ),
-                        Events.onClick(TypeLL(SetTierFilter(Some(TierCore)))),
-                      },
-                      list{text("Core")},
-                    ),
-                    button(
-                      list{
-                        Attrs.class_(
-                          `px-3 py-1.5 text-xs rounded ${tl.tierFilter === Some(TierAdvanced)
-                              ? TypeLLEngine.tierColour(TierAdvanced)
-                              : "text-gray-500 hover:text-gray-300"}`,
-                        ),
-                        Events.onClick(TypeLL(SetTierFilter(Some(TierAdvanced)))),
-                      },
-                      list{text("Advanced")},
-                    ),
-                    button(
-                      list{
-                        Attrs.class_(
-                          `px-3 py-1.5 text-xs rounded ${tl.tierFilter === Some(TierResearch)
-                              ? TypeLLEngine.tierColour(TierResearch)
-                              : "text-gray-500 hover:text-gray-300"}`,
-                        ),
-                        Events.onClick(TypeLL(SetTierFilter(Some(TierResearch)))),
-                      },
-                      list{text("Research")},
-                    ),
-                    button(
-                      list{
-                        Attrs.class_(
-                          "px-3 py-1.5 text-xs bg-cyan-600 text-white rounded hover:bg-cyan-500",
-                        ),
-                        Events.onClick(TypeLL(LoadSignatures)),
-                        KeyboardNav.onActivate(TypeLL(LoadSignatures)),
-                      },
-                      list{text("Load")},
-                    ),
-                  },
-                ),
-                // Signature list
-                if tl.signatures->Array.length === 0 {
-                  div(
-                    list{Attrs.class_("text-center text-gray-500 mt-8")},
-                    list{text("No signatures loaded. Connect to TypeLL server and click Load.")},
-                  )
-                } else {
-                  let filtered =
-                    tl.signatures
-                    ->TypeLLEngine.filterByTier(tl.tierFilter)
-                    ->TypeLLEngine.filterBySearch(tl.signatureFilter)
-                  div(
-                    list{Attrs.class_("border border-gray-700 rounded-lg overflow-hidden")},
-                    list{
-                      div(
-                        list{Attrs.class_("max-h-96 overflow-y-auto")},
-                        filtered
-                        ->Array.map(sig =>
-                          div(
-                            list{
-                              Attrs.class_(
-                                "flex items-center gap-3 p-3 border-b border-gray-800 hover:bg-gray-900/50",
-                              ),
-                            },
-                            list{
-                              span(
-                                list{
-                                  Attrs.class_(
-                                    `px-1.5 py-0.5 text-xs rounded ${TypeLLEngine.tierColour(
-                                        sig.tier,
-                                      )}`,
-                                  ),
-                                },
-                                list{text(TypeLLEngine.tierLabel(sig.tier))},
-                              ),
-                              span(
-                                list{Attrs.class_("text-sm font-mono text-cyan-400")},
-                                list{text(sig.name)},
-                              ),
-                              span(
-                                list{
-                                  Attrs.class_("text-sm font-mono text-gray-400 flex-1 truncate"),
-                                },
-                                list{text(sig.signature)},
-                              ),
-                              span(
-                                list{Attrs.class_("text-xs text-gray-600")},
-                                list{text(sig.module_)},
-                              ),
-                            },
-                          )
-                        )
-                        ->List.fromArray,
-                      ),
-                    },
-                  )
-                },
-                // Universes
-                if tl.universes->Array.length > 0 {
-                  div(
-                    list{Attrs.class_("mt-6")},
-                    list{
-                      h3(
-                        list{Attrs.class_("text-sm font-medium text-gray-300 mb-3")},
-                        list{text("Type Universes")},
-                      ),
-                      div(
-                        list{Attrs.class_("space-y-2")},
-                        tl.universes
-                        ->Array.map(u =>
-                          div(
-                            list{Attrs.class_("flex items-center gap-3 text-sm")},
-                            list{
-                              span(
-                                list{Attrs.class_("font-mono text-violet-400 w-8 text-right")},
-                                list{text(Int.toString(u.level))},
-                              ),
-                              span(
-                                list{Attrs.class_("font-mono text-gray-200")},
-                                list{text(u.name)},
-                              ),
-                              span(list{Attrs.class_("text-gray-500")}, list{text(u.description)}),
-                            },
-                          )
-                        )
-                        ->List.fromArray,
-                      ),
-                    },
-                  )
-                } else {
-                  noNode
-                },
-              },
-            )
-          // ── Refinement Tab ──
-          | TlRefinement =>
-            div(
-              list{Attrs.class_("space-y-4")},
-              list{
-                div(
-                  list{Attrs.class_("text-sm text-gray-400 mb-2")},
-                  list{
-                    text(
-                      "Narrow a type with refinement constraints. TypeLL checks satisfiability and consistency.",
-                    ),
-                  },
-                ),
-                div(
-                  list{Attrs.class_("grid grid-cols-2 gap-4")},
-                  list{
-                    div(
-                      list{Attrs.class_("space-y-2")},
-                      list{
-                        label(list{Attrs.class_("text-xs text-gray-500")}, list{text("Base Type")}),
-                        input(
-                          list{
-                            Attrs.class_(
-                              "w-full bg-gray-900 border border-gray-700 rounded px-3 py-2 text-sm text-gray-200 font-mono placeholder-gray-600",
-                            ),
-                            Attrs.placeholder("e.g., Int"),
-                            Attrs.value(tl.refinementSpec),
-                            Events.onInput(v => TypeLL(UpdateRefinementSpec(v))),
-                          },
-                          list{},
-                        ),
-                      },
-                    ),
-                    div(
-                      list{Attrs.class_("space-y-2")},
-                      list{
-                        label(
-                          list{Attrs.class_("text-xs text-gray-500")},
-                          list{text("Constraints (one per line)")},
-                        ),
-                        textarea(
-                          list{
-                            Attrs.class_(
-                              "w-full h-20 bg-gray-900 border border-gray-700 rounded px-3 py-2 text-sm text-gray-200 font-mono resize-none placeholder-gray-600",
-                            ),
-                            Attrs.placeholder("x > 0\nx < 256"),
-                            Attrs.value(tl.refinementConstraints),
-                            Events.onInput(v => TypeLL(UpdateRefinementConstraints(v))),
-                          },
-                          list{},
-                        ),
-                      },
-                    ),
-                  },
-                ),
-                button(
-                  list{
-                    Attrs.class_(
-                      "px-4 py-2 text-sm bg-violet-600 text-white rounded hover:bg-violet-500",
-                    ),
-                    Events.onClick(TypeLL(RunRefine)),
-                    KeyboardNav.onActivate(TypeLL(RunRefine)),
-                  },
-                  list{text("Apply Refinement")},
-                ),
-                switch tl.lastRefinement {
-                | Some(ref) =>
-                  div(
-                    list{
-                      Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-4 space-y-3"),
-                    },
-                    list{
-                      div(
-                        list{Attrs.class_("flex items-center gap-3")},
-                        list{
-                          span(
-                            list{
-                              Attrs.class_(
-                                if ref.consistent {
-                                  "text-emerald-400 text-sm"
-                                } else {
-                                  "text-red-400 text-sm"
-                                },
-                              ),
-                            },
-                            list{
-                              text(
-                                if ref.consistent {
-                                  "Consistent"
-                                } else {
-                                  "Inconsistent"
-                                },
-                              ),
-                            },
-                          ),
-                        },
-                      ),
-                      div(
-                        list{Attrs.class_("grid grid-cols-2 gap-4")},
-                        list{
-                          div(
-                            list{},
-                            list{
-                              div(
-                                list{Attrs.class_("text-xs text-gray-500 mb-1")},
-                                list{text("Base Type")},
-                              ),
-                              pre(
-                                list{
-                                  Attrs.class_(
-                                    "font-mono text-sm text-gray-300 bg-gray-950 rounded p-2",
-                                  ),
-                                },
-                                list{text(ref.baseType)},
-                              ),
-                            },
-                          ),
-                          div(
-                            list{},
-                            list{
-                              div(
-                                list{Attrs.class_("text-xs text-gray-500 mb-1")},
-                                list{text("Refined Type")},
-                              ),
-                              pre(
-                                list{
-                                  Attrs.class_(
-                                    "font-mono text-sm text-cyan-300 bg-gray-950 rounded p-2",
-                                  ),
-                                },
-                                list{text(ref.refinedType)},
-                              ),
-                            },
-                          ),
-                        },
-                      ),
-                    },
-                  )
-                | None => noNode
-                },
-              },
-            )
-          // ── Discipline Tab ──
-          | TlDiscipline =>
-            div(
-              list{Attrs.class_("space-y-4")},
-              list{
-                div(
-                  list{Attrs.class_("text-sm text-gray-400 mb-2")},
-                  list{
-                    text(
-                      "Type discipline modes control the default type system behaviour per module. Affine by default (like Rust), with opt-in linear, dependent, refined, or unrestricted modes.",
-                    ),
-                  },
-                ),
-                // Default discipline selector
-                div(
-                  list{Attrs.class_("p-3 bg-gray-900 border border-gray-700 rounded-lg")},
-                  list{
-                    div(
-                      list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wide mb-2")},
-                      list{text("Default Discipline")},
-                    ),
-                    div(
-                      list{Attrs.class_("flex flex-wrap gap-2")},
-                      TypeLLEngine.allDisciplines
-                      ->Array.map(d => {
-                        let isActive = d === tl.defaultDiscipline
-                        button(
-                          list{
-                            Attrs.class_(
-                              `px-3 py-1.5 text-xs rounded transition-colors ${isActive
-                                  ? TypeLLEngine.disciplineColour(d) ++ " font-medium"
-                                  : "text-gray-500 hover:text-gray-300 bg-gray-800"}`,
-                            ),
-                            Events.onClick(TypeLL(SetDefaultDiscipline(d))),
-                          },
-                          list{text(TypeLLEngine.disciplineDirective(d))},
-                        )
-                      })
-                      ->List.fromArray,
-                    ),
-                  },
-                ),
-                // Active declarations
-                div(
-                  list{Attrs.class_("p-3 bg-gray-900 border border-gray-700 rounded-lg")},
-                  list{
-                    div(
-                      list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wide mb-2")},
-                      list{
-                        text(
-                          "Module Declarations (" ++
-                          Int.toString(Array.length(tl.disciplineDeclarations)) ++ ")",
-                        ),
-                      },
-                    ),
-                    if Array.length(tl.disciplineDeclarations) === 0 {
-                      div(
-                        list{Attrs.class_("text-xs text-gray-600")},
-                        list{
-                          text(
-                            "No module-level discipline declarations yet. Modules inherit the default.",
-                          ),
-                        },
-                      )
-                    } else {
-                      div(
-                        list{Attrs.class_("space-y-1")},
-                        tl.disciplineDeclarations
-                        ->Array.map(decl =>
-                          div(
-                            list{
-                              Attrs.class_(
-                                "flex items-center justify-between px-2 py-1 bg-gray-800/40 rounded text-xs",
-                              ),
-                            },
-                            list{
-                              span(
-                                list{Attrs.class_("text-gray-300 font-mono")},
-                                list{text(decl.scope)},
-                              ),
-                              span(
-                                list{
-                                  Attrs.class_(
-                                    TypeLLEngine.disciplineColour(
-                                      decl.discipline,
-                                    ) ++ " px-2 py-0.5 rounded",
-                                  ),
-                                },
-                                list{text(TypeLLEngine.disciplineDirective(decl.discipline))},
-                              ),
-                            },
-                          )
-                        )
-                        ->List.fromArray,
-                      )
-                    },
-                  },
-                ),
-                // QTT quantifier reference
-                div(
-                  list{Attrs.class_("p-3 bg-gray-900 border border-gray-700 rounded-lg")},
-                  list{
-                    div(
-                      list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wide mb-2")},
-                      list{text("QTT Usage Quantifiers")},
-                    ),
-                    div(
-                      list{Attrs.class_("grid grid-cols-3 gap-3")},
-                      list{
-                        div(
-                          list{Attrs.class_("text-center p-2 bg-gray-800/40 rounded")},
-                          list{
-                            div(
-                              list{Attrs.class_("text-lg font-mono text-purple-400")},
-                              list{text("0")},
-                            ),
-                            div(
-                              list{Attrs.class_("text-[10px] text-gray-500")},
-                              list{text("Erased at runtime")},
-                            ),
-                            div(
-                              list{Attrs.class_("text-[10px] text-gray-600")},
-                              list{text("Proof-only witness")},
-                            ),
-                          },
-                        ),
-                        div(
-                          list{Attrs.class_("text-center p-2 bg-gray-800/40 rounded")},
-                          list{
-                            div(
-                              list{Attrs.class_("text-lg font-mono text-red-400")},
-                              list{text("1")},
-                            ),
-                            div(
-                              list{Attrs.class_("text-[10px] text-gray-500")},
-                              list{text("Exactly once")},
-                            ),
-                            div(
-                              list{Attrs.class_("text-[10px] text-gray-600")},
-                              list{text("Linear consumption")},
-                            ),
-                          },
-                        ),
-                        div(
-                          list{Attrs.class_("text-center p-2 bg-gray-800/40 rounded")},
-                          list{
-                            div(
-                              list{Attrs.class_("text-lg font-mono text-green-400")},
-                              list{text("w")},
-                            ),
-                            div(
-                              list{Attrs.class_("text-[10px] text-gray-500")},
-                              list{text("Unrestricted")},
-                            ),
-                            div(
-                              list{Attrs.class_("text-[10px] text-gray-600")},
-                              list{text("Standard FP")},
-                            ),
-                          },
-                        ),
-                      },
-                    ),
-                  },
-                ),
-                // Unified analysis result (if available)
-                switch tl.lastUnifiedAnalysis {
-                | Some(analysis) =>
-                  div(
-                    list{Attrs.class_("p-3 bg-gray-900 border border-gray-700 rounded-lg")},
-                    list{
-                      div(
-                        list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wide mb-2")},
-                        list{text("Last Unified Analysis")},
-                      ),
-                      div(
-                        list{Attrs.class_("text-xs text-gray-300 font-mono")},
-                        list{text(TypeLLEngine.unifiedAnalysisSummary(analysis))},
-                      ),
-                    },
-                  )
-                | None => noNode
-                },
-              },
-            )
-          // ── Guide Tab ──
-          | TlGuide =>
-            div(
-              list{Attrs.class_("space-y-8 max-w-3xl")},
-              list{
-                // Tier 1: Core
-                div(
-                  list{Attrs.class_("space-y-3")},
-                  list{
-                    div(
-                      list{Attrs.class_("flex items-center gap-2")},
-                      list{
-                        span(
-                          list{
-                            Attrs.class_(
-                              `px-2 py-0.5 text-xs font-medium rounded ${TypeLLEngine.tierColour(
-                                  TierCore,
-                                )}`,
-                            ),
-                          },
-                          list{text("Tier 1: Core")},
-                        ),
-                        span(
-                          list{Attrs.class_("text-sm text-gray-400")},
-                          list{text("Essential type safety")},
-                        ),
-                      },
-                    ),
-                    div(
-                      list{Attrs.class_("grid grid-cols-2 gap-3")},
-                      TypeLLEngine.coreFeatures
-                      ->Array.map(f => {
-                        let glyph = TypeLLEngine.featureGlyph(f)
-                        div(
-                          list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-3")},
-                          list{
-                            div(
-                              list{Attrs.class_("flex items-center gap-2 mb-1")},
-                              list{
-                                span(
-                                  list{Attrs.class_("font-mono text-emerald-400")},
-                                  list{text(glyph.symbol)},
-                                ),
-                                span(
-                                  list{Attrs.class_("text-sm font-medium text-gray-200")},
-                                  list{text(TypeLLEngine.featureLabel(f))},
-                                ),
-                              },
-                            ),
-                            div(
-                              list{Attrs.class_("text-xs text-gray-500")},
-                              list{text(glyph.meaning)},
-                            ),
-                          },
-                        )
-                      })
-                      ->List.fromArray,
-                    ),
-                  },
-                ),
-                // Tier 2: Advanced
-                div(
-                  list{Attrs.class_("space-y-3")},
-                  list{
-                    div(
-                      list{Attrs.class_("flex items-center gap-2")},
-                      list{
-                        span(
-                          list{
-                            Attrs.class_(
-                              `px-2 py-0.5 text-xs font-medium rounded ${TypeLLEngine.tierColour(
-                                  TierAdvanced,
-                                )}`,
-                            ),
-                          },
-                          list{text("Tier 2: Advanced")},
-                        ),
-                        span(
-                          list{Attrs.class_("text-sm text-gray-400")},
-                          list{text("Precision resource management")},
-                        ),
-                      },
-                    ),
-                    div(
-                      list{Attrs.class_("grid grid-cols-2 gap-3")},
-                      TypeLLEngine.advancedFeatures
-                      ->Array.map(f => {
-                        let glyph = TypeLLEngine.featureGlyph(f)
-                        div(
-                          list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-3")},
-                          list{
-                            div(
-                              list{Attrs.class_("flex items-center gap-2 mb-1")},
-                              list{
-                                span(
-                                  list{Attrs.class_("font-mono text-blue-400")},
-                                  list{text(glyph.symbol)},
-                                ),
-                                span(
-                                  list{Attrs.class_("text-sm font-medium text-gray-200")},
-                                  list{text(TypeLLEngine.featureLabel(f))},
-                                ),
-                              },
-                            ),
-                            div(
-                              list{Attrs.class_("text-xs text-gray-500")},
-                              list{text(glyph.meaning)},
-                            ),
-                          },
-                        )
-                      })
-                      ->List.fromArray,
-                    ),
-                  },
-                ),
-                // Tier 3: Research
-                div(
-                  list{Attrs.class_("space-y-3")},
-                  list{
-                    div(
-                      list{Attrs.class_("flex items-center gap-2")},
-                      list{
-                        span(
-                          list{
-                            Attrs.class_(
-                              `px-2 py-0.5 text-xs font-medium rounded ${TypeLLEngine.tierColour(
-                                  TierResearch,
-                                )}`,
-                            ),
-                          },
-                          list{text("Tier 3: Research")},
-                        ),
-                        span(
-                          list{Attrs.class_("text-sm text-gray-400")},
-                          list{text("Frontier type theory")},
-                        ),
-                      },
-                    ),
-                    div(
-                      list{Attrs.class_("grid grid-cols-2 gap-3")},
-                      TypeLLEngine.researchFeatures
-                      ->Array.map(f => {
-                        let glyph = TypeLLEngine.featureGlyph(f)
-                        div(
-                          list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-3")},
-                          list{
-                            div(
-                              list{Attrs.class_("flex items-center gap-2 mb-1")},
-                              list{
-                                span(
-                                  list{Attrs.class_("font-mono text-purple-400")},
-                                  list{text(glyph.symbol)},
-                                ),
-                                span(
-                                  list{Attrs.class_("text-sm font-medium text-gray-200")},
-                                  list{text(TypeLLEngine.featureLabel(f))},
-                                ),
-                              },
-                            ),
-                            div(
-                              list{Attrs.class_("text-xs text-gray-500")},
-                              list{text(glyph.meaning)},
-                            ),
-                          },
-                        )
-                      })
-                      ->List.fromArray,
-                    ),
-                  },
-                ),
-                // Cross-panel integration table
-                div(
-                  list{Attrs.class_("space-y-3")},
-                  list{
-                    h3(
-                      list{Attrs.class_("text-sm font-medium text-gray-200")},
-                      list{text("Cross-Panel Integration")},
-                    ),
-                    div(
-                      list{Attrs.class_("text-xs text-gray-500 mb-2")},
-                      list{
-                        text(
-                          "TypeLL provides type intelligence to every panel, not just this one.",
-                        ),
-                      },
-                    ),
-                    div(
-                      list{
-                        Attrs.class_(
-                          "bg-gray-900 border border-gray-700 rounded-lg overflow-hidden",
-                        ),
-                      },
-                      list{
-                        div(
-                          list{Attrs.class_("divide-y divide-gray-800")},
-                          list{
-                            div(
-                              list{Attrs.class_("flex p-2 text-xs")},
-                              list{
-                                span(
-                                  list{Attrs.class_("w-40 text-cyan-400")},
-                                  list{text("VeriSimDB")},
-                                ),
-                                span(
-                                  list{Attrs.class_("text-gray-400")},
-                                  list{text("VCL-total 10-level type safety (supersedes VCL-DT)")},
-                                ),
-                              },
-                            ),
-                            div(
-                              list{
-                                Attrs.class_("p-2 text-xs bg-gray-950 border-l-2 border-cyan-700"),
-                              },
-                              list{
-                                div(
-                                  list{Attrs.class_("text-cyan-500 font-bold mb-1")},
-                                  list{text("VCL-total Safety Levels")},
-                                ),
-                                div(
-                                  list{Attrs.class_("grid grid-cols-2 gap-1 text-gray-500")},
-                                  list{
-                                    span(list{}, list{text("L1 Parse-time")}),
-                                    span(list{}, list{text("L2 Schema-binding")}),
-                                    span(list{}, list{text("L3 Type-compatible")}),
-                                    span(list{}, list{text("L4 Null-safety")}),
-                                    span(list{}, list{text("L5 Injection-proof")}),
-                                    span(list{}, list{text("L6 Result-type")}),
-                                    span(
-                                      list{Attrs.class_("text-amber-500")},
-                                      list{text("L7 Cardinality")},
-                                    ),
-                                    span(
-                                      list{Attrs.class_("text-amber-500")},
-                                      list{text("L8 Effect-tracking")},
-                                    ),
-                                    span(
-                                      list{Attrs.class_("text-amber-500")},
-                                      list{text("L9 Temporal")},
-                                    ),
-                                    span(
-                                      list{Attrs.class_("text-amber-500")},
-                                      list{text("L10 Linearity")},
-                                    ),
-                                  },
-                                ),
-                                div(
-                                  list{Attrs.class_("mt-1 text-gray-600 italic")},
-                                  list{text("Amber = research-identified (Idris2 verified)")},
-                                ),
-                              },
-                            ),
-                            div(
-                              list{Attrs.class_("flex p-2 text-xs")},
-                              list{
-                                span(
-                                  list{Attrs.class_("w-40 text-cyan-400")},
-                                  list{text("Protocol-Squisher")},
-                                ),
-                                span(
-                                  list{Attrs.class_("text-gray-400")},
-                                  list{text("Schema type compatibility, adapter type safety")},
-                                ),
-                              },
-                            ),
-                            div(
-                              list{Attrs.class_("flex p-2 text-xs")},
-                              list{
-                                span(
-                                  list{Attrs.class_("w-40 text-cyan-400")},
-                                  list{text("My-Lang")},
-                                ),
-                                span(
-                                  list{Attrs.class_("text-gray-400")},
-                                  list{text("Full type checking across Solo/Duet/Ensemble/Me")},
-                                ),
-                              },
-                            ),
-                            div(
-                              list{Attrs.class_("flex p-2 text-xs")},
-                              list{
-                                span(
-                                  list{Attrs.class_("w-40 text-cyan-400")},
-                                  list{text("Anti-Crash")},
-                                ),
-                                span(
-                                  list{Attrs.class_("text-gray-400")},
-                                  list{text("Type-level validation before token acceptance")},
-                                ),
-                              },
-                            ),
-                            div(
-                              list{Attrs.class_("flex p-2 text-xs")},
-                              list{
-                                span(
-                                  list{Attrs.class_("w-40 text-cyan-400")},
-                                  list{text("Pane-L")},
-                                ),
-                                span(
-                                  list{Attrs.class_("text-gray-400")},
-                                  list{
-                                    text("Type constraints as first-class symbolic constraints"),
-                                  },
-                                ),
-                              },
-                            ),
-                            div(
-                              list{Attrs.class_("flex p-2 text-xs")},
-                              list{
-                                span(list{Attrs.class_("w-40 text-cyan-400")}, list{text("BoJ")}),
-                                span(
-                                  list{Attrs.class_("text-gray-400")},
-                                  list{text("Cartridge ABI type checking (Idris2 formal specs)")},
-                                ),
-                              },
-                            ),
-                            div(
-                              list{Attrs.class_("flex p-2 text-xs")},
-                              list{
-                                span(
-                                  list{Attrs.class_("w-40 text-cyan-400")},
-                                  list{text("ECHIDNA")},
-                                ),
-                                span(
-                                  list{Attrs.class_("text-gray-400")},
-                                  list{
-                                    text(
-                                      "Proof obligation dispatch — TypeLL generates, ECHIDNA proves",
-                                    ),
-                                  },
-                                ),
-                              },
-                            ),
-                          },
-                        ),
-                      },
-                    ),
-                  },
-                ),
-              },
-            )
-          },
-          // Loading/error
-          if tl.loading {
-            div(
-              list{Attrs.class_("mt-4 text-gray-400 text-sm"), Attrs.role("status")},
-              list{text("Processing...")},
-            )
-          } else {
-            noNode
-          },
-          switch tl.error {
-          | Some(e) =>
-            div(
-              list{
-                Attrs.class_(
-                  "mt-4 p-3 bg-red-900/30 border border-red-700 rounded text-sm text-red-300",
-                ),
-                Attrs.role("alert"),
-              },
-              list{text(e)},
-            )
-          | None => noNode
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/TypingBridge.affine b/src/components/TypingBridge.affine
new file mode 100644
index 00000000..71a142ce
--- /dev/null
+++ b/src/components/TypingBridge.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TypingBridge;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/TypingBridge.res b/src/components/TypingBridge.res
deleted file mode 100644
index c9d05cc4..00000000
--- a/src/components/TypingBridge.res
+++ /dev/null
@@ -1,360 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Typing Bridge Component — TypeLL type constraints for IDApTIK game
-/// state. Displays constraint lists, inference results, a typed configuration
-/// editor, and diagnostic messages.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a severity badge for a type constraint.
-let severityBadge = (sev: constraintSeverity): Tea_Vdom.t<msg> => {
-  let (color, label) = switch sev {
-  | ConstraintError => ("bg-red-700 text-red-100", "Error")
-  | ConstraintWarning => ("bg-yellow-700 text-yellow-100", "Warn")
-  | ConstraintInfo => ("bg-blue-700 text-blue-100", "Info")
-  }
-  span(list{Attrs.class_("px-2 py-0.5 text-xs rounded font-mono " ++ color)}, list{text(label)})
-}
-
-/// Render an inference status indicator.
-let inferenceStatusBadge = (status: inferenceStatus): Tea_Vdom.t<msg> => {
-  let (color, label) = switch status {
-  | InferenceSuccess => ("text-green-400", "OK")
-  | InferencePartial => ("text-yellow-400", "Partial")
-  | InferenceFailed => ("text-red-400", "Failed")
-  }
-  span(list{Attrs.class_("text-xs font-mono " ++ color)}, list{text(label)})
-}
-
-/// Main view function for the Typing Bridge panel.
-let view = (state: typingBridgeState): Tea_Vdom.t<msg> => {
-  let satisfiedCount = state.constraints->Array.filter(c => c.satisfied)->Array.length
-  let totalCount = Array.length(state.constraints)
-
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Typing Bridge — TypeLL Type Constraints"),
-    },
-    list{
-      // Header row
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-bold text-cyan-300")},
-                list{text("Typing Bridge")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-400")},
-                list{
-                  text(
-                    Int.toString(satisfiedCount) ++ "/" ++ Int.toString(totalCount) ++ " satisfied",
-                  ),
-                },
-              ),
-              if state.running {
-                span(
-                  list{Attrs.class_("text-xs text-yellow-400 animate-pulse")},
-                  list{text("Checking...")},
-                )
-              } else {
-                Tea_Html.noNode
-              },
-            },
-          ),
-          button(
-            list{
-              Attrs.class_("px-3 py-1 text-xs bg-cyan-800 hover:bg-cyan-700 text-white rounded"),
-              Events.onClick(TypingBridge(TbStarted)),
-              KeyboardNav.onActivate(TypingBridge(TbStarted)),
-            },
-            list{text("Run Type Check")},
-          ),
-        },
-      ),
-      // Tab bar
-      div(
-        list{Attrs.class_("flex gap-1 px-4 py-2 border-b border-gray-800")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Constraints {
-                  "bg-cyan-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(TypingBridge(SetTbTab(Constraints))),
-            },
-            list{text("Constraints")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Inference {
-                  "bg-cyan-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(TypingBridge(SetTbTab(Inference))),
-            },
-            list{text("Inference")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Editor {
-                  "bg-cyan-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(TypingBridge(SetTbTab(Editor))),
-            },
-            list{text("Editor")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1 text-xs rounded " ++ if state.activeTab == Diagnostics {
-                  "bg-cyan-700 text-white"
-                } else {
-                  "bg-gray-800 text-gray-400 hover:text-gray-200"
-                },
-              ),
-              Events.onClick(TypingBridge(SetTbTab(Diagnostics))),
-            },
-            list{text("Diagnostics")},
-          ),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 px-3 py-2 bg-red-900/50 border border-red-700 rounded text-sm text-red-200 flex justify-between items-center",
-            ),
-          },
-          list{
-            text(err),
-            button(
-              list{
-                Attrs.class_("text-red-400 hover:text-red-200 text-xs ml-2"),
-                Events.onClick(TypingBridge(DismissTbError)),
-                KeyboardNav.onActivate(TypingBridge(DismissTbError)),
-              },
-              list{text("Dismiss")},
-            ),
-          },
-        )
-      | None => Tea_Html.noNode
-      },
-      // Content area
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto px-4 py-4")},
-        list{
-          switch state.activeTab {
-          | Constraints =>
-            div(
-              list{},
-              state.constraints
-              ->Array.map(c =>
-                div(
-                  list{Attrs.class_("flex items-center gap-3 py-2 border-b border-gray-800/50")},
-                  list{
-                    span(
-                      list{
-                        Attrs.class_(
-                          "w-3 h-3 rounded-full " ++ if c.satisfied {
-                            "bg-green-500"
-                          } else {
-                            "bg-red-500"
-                          },
-                        ),
-                      },
-                      list{},
-                    ),
-                    div(
-                      list{Attrs.class_("flex-1 min-w-0")},
-                      list{
-                        div(
-                          list{Attrs.class_("text-sm font-mono text-gray-200")},
-                          list{text(c.name)},
-                        ),
-                        div(
-                          list{Attrs.class_("text-xs text-gray-500")},
-                          list{text(c.targetPath ++ " : " ++ c.typeExpression)},
-                        ),
-                      },
-                    ),
-                    severityBadge(c.severity),
-                  },
-                )
-              )
-              ->List.fromArray,
-            )
-          | Inference =>
-            div(
-              list{},
-              state.inferenceResults
-              ->Array.map(r =>
-                div(
-                  list{Attrs.class_("py-2 border-b border-gray-800/50")},
-                  list{
-                    div(
-                      list{Attrs.class_("flex items-center gap-3")},
-                      list{
-                        span(
-                          list{Attrs.class_("text-sm font-mono text-gray-200")},
-                          list{text(r.targetPath)},
-                        ),
-                        inferenceStatusBadge(r.status),
-                        span(
-                          list{Attrs.class_("text-xs text-gray-500")},
-                          list{text(Float.toFixed(r.inferenceTimeMs, ~digits=1) ++ "ms")},
-                        ),
-                      },
-                    ),
-                    div(
-                      list{Attrs.class_("text-xs text-cyan-400 font-mono mt-1")},
-                      list{text(r.inferredType)},
-                    ),
-                    if Array.length(r.suggestions) > 0 {
-                      div(
-                        list{Attrs.class_("flex flex-wrap gap-1 mt-1")},
-                        r.suggestions
-                        ->Array.map(s =>
-                          span(
-                            list{
-                              Attrs.class_("px-2 py-0.5 text-xs bg-gray-800 text-gray-400 rounded"),
-                            },
-                            list{text(s)},
-                          )
-                        )
-                        ->List.fromArray,
-                      )
-                    } else {
-                      Tea_Html.noNode
-                    },
-                  },
-                )
-              )
-              ->List.fromArray,
-            )
-          | Editor =>
-            div(
-              list{},
-              state.configFields
-              ->Array.map(f =>
-                div(
-                  list{Attrs.class_("flex items-center gap-3 py-2 border-b border-gray-800/50")},
-                  list{
-                    span(
-                      list{
-                        Attrs.class_(
-                          "w-2 h-2 rounded-full " ++ if f.valid {
-                            "bg-green-500"
-                          } else {
-                            "bg-red-500"
-                          },
-                        ),
-                      },
-                      list{},
-                    ),
-                    div(
-                      list{Attrs.class_("flex-1 min-w-0")},
-                      list{
-                        div(
-                          list{Attrs.class_("text-sm font-mono text-gray-300")},
-                          list{text(f.path)},
-                        ),
-                        div(
-                          list{Attrs.class_("text-xs text-gray-500")},
-                          list{text("Expected: " ++ f.expectedType)},
-                        ),
-                      },
-                    ),
-                    span(
-                      list{Attrs.class_("text-sm font-mono text-cyan-300")},
-                      list{text(f.currentValue)},
-                    ),
-                    switch f.validationMessage {
-                    | Some(msg_text) =>
-                      span(list{Attrs.class_("text-xs text-red-400")}, list{text(msg_text)})
-                    | None => Tea_Html.noNode
-                    },
-                  },
-                )
-              )
-              ->List.fromArray,
-            )
-          | Diagnostics =>
-            div(
-              list{},
-              list{
-                div(
-                  list{Attrs.class_("text-xs text-gray-500 mb-3")},
-                  list{
-                    text(
-                      Int.toString(totalCount) ++
-                      " constraints, " ++
-                      Int.toString(satisfiedCount) ++
-                      " satisfied, " ++
-                      Int.toString(totalCount - satisfiedCount) ++ " violations",
-                    ),
-                  },
-                ),
-                div(
-                  list{},
-                  state.constraints
-                  ->Array.filter(c => !c.satisfied)
-                  ->Array.map(c =>
-                    div(
-                      list{
-                        Attrs.class_(
-                          "px-3 py-2 mb-2 bg-red-900/30 border border-red-800/50 rounded",
-                        ),
-                      },
-                      list{
-                        div(
-                          list{Attrs.class_("flex items-center gap-2")},
-                          list{
-                            severityBadge(c.severity),
-                            span(
-                              list{Attrs.class_("text-sm text-red-200 font-mono")},
-                              list{text(c.name)},
-                            ),
-                          },
-                        ),
-                        div(
-                          list{Attrs.class_("text-xs text-gray-400 mt-1")},
-                          list{text(c.description)},
-                        ),
-                        div(
-                          list{Attrs.class_("text-xs text-gray-500 mt-1")},
-                          list{text(c.targetPath ++ " : " ++ c.typeExpression)},
-                        ),
-                      },
-                    )
-                  )
-                  ->List.fromArray,
-                ),
-              },
-            )
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/Ums.affine b/src/components/Ums.affine
new file mode 100644
index 00000000..1c28a472
--- /dev/null
+++ b/src/components/Ums.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Ums;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Ums.res b/src/components/Ums.res
deleted file mode 100644
index f59152c9..00000000
--- a/src/components/Ums.res
+++ /dev/null
@@ -1,862 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Universal Modding Studio Component — view for the unified hub
-/// orchestrating IDApTIK game content creation. Project browser, ABI
-/// validator, template gallery, asset pipeline, distribution manager,
-/// and modding API reference.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a category tab button for the UMS panel.
-let renderTab = (label: string, cat: umsCategory, active: umsCategory): Tea_Vdom.t<msg> => {
-  let isActive = cat === active
-  let cls = isActive
-    ? "px-3 py-1.5 text-xs font-medium bg-gray-700 text-white rounded"
-    : "px-3 py-1.5 text-xs text-gray-400 hover:text-gray-200 hover:bg-gray-800 rounded cursor-pointer"
-  button(list{Attrs.class_(cls), Events.onClick(Ums(SetUmsCategory(cat)))}, list{text(label)})
-}
-
-/// Render a project card with name, stats, and validation badge.
-let renderProjectCard = (project: modProject, isSelected: bool): Tea_Vdom.t<msg> => {
-  let borderCls = if isSelected {
-    "border-cyan-400"
-  } else {
-    "border-gray-700"
-  }
-  let validBadge = if project.validated {
-    "text-emerald-400"
-  } else {
-    "text-gray-500"
-  }
-  div(
-    list{
-      Attrs.class_(
-        `p-3 bg-gray-800 rounded border ${borderCls} cursor-pointer hover:border-gray-500`,
-      ),
-      Events.onClick(Ums(SelectProject(project.id))),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-1")},
-        list{
-          span(list{Attrs.class_("text-sm font-medium text-gray-100")}, list{text(project.name)}),
-          span(
-            list{Attrs.class_(`text-xs ${validBadge}`)},
-            list{
-              text(
-                if project.validated {
-                  "Validated"
-                } else {
-                  "Unvalidated"
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("text-xs text-gray-400 mb-2 line-clamp-2")},
-        list{text(project.description)},
-      ),
-      div(
-        list{Attrs.class_("flex items-center gap-3 text-xs")},
-        list{
-          span(list{Attrs.class_("text-gray-500")}, list{text(`v${project.version}`)}),
-          span(
-            list{Attrs.class_("text-gray-500")},
-            list{text(`${Int.toString(project.levelCount)} levels`)},
-          ),
-          span(
-            list{Attrs.class_("text-gray-500")},
-            list{text(`${Int.toString(project.puzzleCount)} puzzles`)},
-          ),
-          span(
-            list{Attrs.class_("text-gray-500")},
-            list{text(`${Int.toString(project.assetCount)} assets`)},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render the projects list view with filter, stats, and project grid.
-let renderProjects = (state: umsState): Tea_Vdom.t<msg> => {
-  let filtered = UmsEngine.filterProjects(state.projects, state.filterText)
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      // Filter bar
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          input(
-            list{
-              Attrs.class_(
-                "flex-1 px-3 py-1.5 bg-gray-800 border border-gray-700 rounded text-sm text-gray-200 placeholder-gray-500",
-              ),
-              Attrs.placeholder("Filter projects..."),
-              Attrs.value(state.filterText),
-              Events.onInput(text => Ums(SetUmsFilter(text))),
-            },
-            list{},
-          ),
-        },
-      ),
-      // Stats
-      div(
-        list{Attrs.class_("flex items-center gap-4 text-xs text-gray-400")},
-        list{
-          span(list{}, list{text(`${Int.toString(Array.length(filtered))} projects`)}),
-          span(
-            list{},
-            list{
-              text(`${Int.toString(UmsEngine.validatedProjectCount(state.projects))} validated`),
-            },
-          ),
-        },
-      ),
-      // Project cards
-      if Array.length(filtered) === 0 {
-        div(
-          list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-          list{
-            text("No projects found. "),
-            button(
-              list{
-                Attrs.class_("text-cyan-400 hover:text-cyan-300 underline cursor-pointer"),
-                Events.onClick(Ums(CreateProject(""))),
-              },
-              list{text("Create a new project")},
-            ),
-          },
-        )
-      } else {
-        div(
-          list{Attrs.class_("grid grid-cols-2 lg:grid-cols-3 gap-3")},
-          filtered
-          ->Array.map(p => renderProjectCard(p, state.selectedProjectId === Some(p.id)))
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render a single ABI validation result row.
-let renderValidationRow = (result: abiValidationResult): Tea_Vdom.t<msg> => {
-  let statusCls = UmsEngine.validationStatusColour(result)
-  let proofItem = (label: string, passed: bool) => {
-    let cls = if passed {
-      "text-emerald-400"
-    } else {
-      "text-red-400"
-    }
-    span(list{Attrs.class_(`text-xs ${cls}`)}, list{text(label)})
-  }
-  div(
-    list{Attrs.class_("p-3 bg-gray-800 rounded border border-gray-700")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-2")},
-        list{
-          span(list{Attrs.class_("text-sm text-gray-200")}, list{text(`Level: ${result.levelId}`)}),
-          span(
-            list{Attrs.class_(`text-xs ${statusCls}`)},
-            list{text(UmsEngine.validationStatusLabel(result))},
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("flex flex-wrap gap-3")},
-        list{
-          proofItem("Guards-in-Zones", result.guardsInZones),
-          proofItem("Defence-Targets", result.defenceTargetsValid),
-          proofItem("Zones-Ordered", result.zonesOrdered),
-          proofItem("PBX-Consistent", result.pbxConsistent),
-          proofItem("Devices-Exist", result.devicesExist),
-        },
-      ),
-      if Array.length(result.errors) > 0 {
-        div(
-          list{Attrs.class_("mt-2 space-y-1")},
-          result.errors
-          ->Array.map(err => div(list{Attrs.class_("text-xs text-red-300")}, list{text(err)}))
-          ->List.fromArray,
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-/// Render the ABI validator view with results and "Validate All" button.
-let renderAbiValidator = (state: umsState): Tea_Vdom.t<msg> => {
-  let passedCount = state.validationResults->Array.filter(r => r.allPassed)->Array.length
-  let totalCount = Array.length(state.validationResults)
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-xs bg-emerald-700 text-white rounded hover:bg-emerald-600 cursor-pointer",
-              ),
-              Events.onClick(Ums(ValidateAll)),
-              KeyboardNav.onActivate(Ums(ValidateAll)),
-            },
-            list{text("Validate All Levels")},
-          ),
-          span(
-            list{Attrs.class_("text-xs text-gray-400")},
-            list{
-              text(
-                `${Int.toString(passedCount)}/${Int.toString(totalCount)} levels pass all proofs`,
-              ),
-            },
-          ),
-        },
-      ),
-      // Validation results
-      if totalCount === 0 {
-        div(
-          list{
-            Attrs.class_(
-              "text-center text-gray-500 text-sm py-8 border border-dashed border-gray-700 rounded",
-            ),
-          },
-          list{text("No validation results — click 'Validate All Levels' to run ABI proofs")},
-        )
-      } else {
-        div(
-          list{Attrs.class_("space-y-2")},
-          state.validationResults
-          ->Array.map(renderValidationRow)
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render a template card in the template gallery.
-let renderTemplateCard = (tmpl: modTemplate): Tea_Vdom.t<msg> => {
-  let catCls = UmsEngine.templateCategoryColour(tmpl.category)
-  div(
-    list{
-      Attrs.class_(
-        "p-3 bg-gray-800 rounded border border-gray-700 hover:border-gray-500 cursor-pointer",
-      ),
-      Events.onClick(Ums(InstantiateTemplate(tmpl.id))),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-1")},
-        list{
-          span(list{Attrs.class_("text-sm font-medium text-gray-100")}, list{text(tmpl.name)}),
-          span(
-            list{Attrs.class_(`text-xs ${catCls}`)},
-            list{text(UmsEngine.templateCategoryLabel(tmpl.category))},
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("text-xs text-gray-400 mb-2 line-clamp-2")},
-        list{text(tmpl.description)},
-      ),
-      div(
-        list{Attrs.class_("text-xs text-gray-500")},
-        list{text(`Difficulty: ${tmpl.difficulty}`)},
-      ),
-    },
-  )
-}
-
-/// Render the templates browser with category filter.
-let renderTemplates = (state: umsState): Tea_Vdom.t<msg> => {
-  let filtered = UmsEngine.filterTemplates(state.templates, state.filterText)
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      // Filter bar
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          input(
-            list{
-              Attrs.class_(
-                "flex-1 px-3 py-1.5 bg-gray-800 border border-gray-700 rounded text-sm text-gray-200 placeholder-gray-500",
-              ),
-              Attrs.placeholder("Filter templates..."),
-              Attrs.value(state.filterText),
-              Events.onInput(text => Ums(SetUmsFilter(text))),
-            },
-            list{},
-          ),
-        },
-      ),
-      // Stats
-      div(
-        list{Attrs.class_("text-xs text-gray-400")},
-        list{text(`${Int.toString(Array.length(filtered))} templates available`)},
-      ),
-      // Template cards
-      if Array.length(filtered) === 0 {
-        div(
-          list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-          list{
-            text("No templates found. "),
-            button(
-              list{
-                Attrs.class_("text-cyan-400 hover:text-cyan-300 underline cursor-pointer"),
-                Events.onClick(Ums(LoadTemplates)),
-                KeyboardNav.onActivate(Ums(LoadTemplates)),
-              },
-              list{text("Load templates")},
-            ),
-          },
-        )
-      } else {
-        div(
-          list{Attrs.class_("grid grid-cols-2 lg:grid-cols-3 gap-3")},
-          filtered->Array.map(renderTemplateCard)->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render the asset grid with type filter and size stats.
-let renderAssets = (state: umsState): Tea_Vdom.t<msg> => {
-  let filtered = UmsEngine.filterAssets(state.assets, state.filterText)
-  let totalSize = filtered->Array.reduce(0, (acc, a) => acc + a.sizeBytes)
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      // Filter bar and import button
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          input(
-            list{
-              Attrs.class_(
-                "flex-1 px-3 py-1.5 bg-gray-800 border border-gray-700 rounded text-sm text-gray-200 placeholder-gray-500",
-              ),
-              Attrs.placeholder("Filter assets..."),
-              Attrs.value(state.filterText),
-              Events.onInput(text => Ums(SetUmsFilter(text))),
-            },
-            list{},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-2 py-1 text-xs bg-emerald-700 text-white rounded hover:bg-emerald-600 cursor-pointer",
-              ),
-              Events.onClick(Ums(ImportAsset(""))),
-            },
-            list{text("Import Asset")},
-          ),
-        },
-      ),
-      // Stats with type counts
-      div(
-        list{Attrs.class_("flex items-center gap-4 text-xs text-gray-400")},
-        list{
-          span(list{}, list{text(`${Int.toString(Array.length(filtered))} assets`)}),
-          span(list{}, list{text(`${Int.toString(totalSize / 1024)}KB total`)}),
-          ...UmsEngine.allAssetTypes
-          ->Array.map(at => {
-            let count = UmsEngine.countByAssetType(state.assets, at)
-            if count > 0 {
-              span(
-                list{Attrs.class_(UmsEngine.assetTypeColour(at))},
-                list{text(`${Int.toString(count)} ${UmsEngine.assetTypeLabel(at)}`)},
-              )
-            } else {
-              noNode
-            }
-          })
-          ->List.fromArray,
-        },
-      ),
-      // Asset grid
-      if Array.length(filtered) === 0 {
-        div(
-          list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-          list{
-            text("No assets loaded. "),
-            button(
-              list{
-                Attrs.class_("text-cyan-400 hover:text-cyan-300 underline cursor-pointer"),
-                Events.onClick(Ums(LoadAssets)),
-                KeyboardNav.onActivate(Ums(LoadAssets)),
-              },
-              list{text("Load assets")},
-            ),
-          },
-        )
-      } else {
-        div(
-          list{Attrs.class_("grid grid-cols-3 lg:grid-cols-4 gap-2")},
-          filtered
-          ->Array.map(asset => {
-            let typeCls = UmsEngine.assetTypeColour(asset.assetType)
-            div(
-              list{Attrs.class_("p-2 bg-gray-800 rounded border border-gray-700")},
-              list{
-                div(
-                  list{Attrs.class_("text-xs text-gray-100 font-medium truncate")},
-                  list{text(asset.name)},
-                ),
-                div(
-                  list{Attrs.class_(`text-xs ${typeCls}`)},
-                  list{text(UmsEngine.assetTypeLabel(asset.assetType))},
-                ),
-                div(
-                  list{Attrs.class_("text-xs text-gray-600")},
-                  list{text(`${Int.toString(asset.sizeBytes / 1024)}KB`)},
-                ),
-                if Array.length(asset.usedIn) > 0 {
-                  div(
-                    list{Attrs.class_("text-xs text-gray-500 mt-1")},
-                    list{text(`Used in ${Int.toString(Array.length(asset.usedIn))} places`)},
-                  )
-                } else {
-                  noNode
-                },
-              },
-            )
-          })
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render a distribution target row.
-let renderDistributionTarget = (target: distributionTarget): Tea_Vdom.t<msg> => {
-  let platCls = UmsEngine.platformColour(target.platform)
-  div(
-    list{Attrs.class_("flex items-center gap-3 p-3 bg-gray-800 rounded border border-gray-700")},
-    list{
-      span(
-        list{Attrs.class_(`text-sm font-medium ${platCls}`)},
-        list{text(UmsEngine.platformLabel(target.platform))},
-      ),
-      span(list{Attrs.class_("text-xs text-gray-400 flex-1 truncate")}, list{text(target.url)}),
-      span(list{Attrs.class_("text-xs text-gray-500")}, list{text(`v${target.version}`)}),
-      if target.lastPublished !== "" {
-        span(list{Attrs.class_("text-xs text-gray-600")}, list{text(target.lastPublished)})
-      } else {
-        span(list{Attrs.class_("text-xs text-gray-600")}, list{text("Never published")})
-      },
-      button(
-        list{
-          Attrs.class_(
-            "px-2 py-1 text-xs bg-purple-700 text-white rounded hover:bg-purple-600 cursor-pointer",
-          ),
-          Events.onClick(Ums(PublishMod)),
-          KeyboardNav.onActivate(Ums(PublishMod)),
-        },
-        list{text("Publish")},
-      ),
-    },
-  )
-}
-
-/// Render the distribution view with publish targets and version.
-let renderDistribution = (state: umsState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      // Header with selected project info
-      div(
-        list{Attrs.class_("flex items-center justify-between")},
-        list{
-          span(list{Attrs.class_("text-sm text-gray-200")}, list{text("Distribution Targets")}),
-          switch state.selectedProjectId {
-          | Some(id) =>
-            span(list{Attrs.class_("text-xs text-gray-500")}, list{text(`Project: ${id}`)})
-          | None =>
-            span(list{Attrs.class_("text-xs text-gray-500")}, list{text("No project selected")})
-          },
-        },
-      ),
-      // Targets
-      if Array.length(state.distributionTargets) === 0 {
-        div(
-          list{
-            Attrs.class_(
-              "text-center text-gray-500 text-sm py-8 border border-dashed border-gray-700 rounded",
-            ),
-          },
-          list{text("No distribution targets configured")},
-        )
-      } else {
-        div(
-          list{Attrs.class_("space-y-2")},
-          state.distributionTargets->Array.map(renderDistributionTarget)->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render the searchable API reference documentation.
-let renderApiReference = (state: umsState): Tea_Vdom.t<msg> => {
-  let filtered = if state.filterText === "" {
-    state.apiEntries
-  } else {
-    let lower = String.toLowerCase(state.filterText)
-    state.apiEntries->Array.filter(e =>
-      String.includes(String.toLowerCase(e.name), lower) ||
-      String.includes(String.toLowerCase(e.description), lower) ||
-      String.includes(String.toLowerCase(e.category), lower)
-    )
-  }
-  div(
-    list{Attrs.class_("space-y-3")},
-    list{
-      // Search bar
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          input(
-            list{
-              Attrs.class_(
-                "flex-1 px-3 py-1.5 bg-gray-800 border border-gray-700 rounded text-sm text-gray-200 placeholder-gray-500",
-              ),
-              Attrs.placeholder("Search API reference..."),
-              Attrs.value(state.filterText),
-              Events.onInput(text => Ums(SetUmsFilter(text))),
-            },
-            list{},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-2 py-1 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer",
-              ),
-              Events.onClick(Ums(LoadApiReference)),
-              KeyboardNav.onActivate(Ums(LoadApiReference)),
-            },
-            list{text("Refresh")},
-          ),
-        },
-      ),
-      // Stats
-      div(
-        list{Attrs.class_("text-xs text-gray-400")},
-        list{text(`${Int.toString(Array.length(filtered))} API entries`)},
-      ),
-      // API entries
-      if Array.length(filtered) === 0 {
-        div(
-          list{Attrs.class_("text-center text-gray-500 text-sm py-8")},
-          list{
-            text("No API entries found. "),
-            button(
-              list{
-                Attrs.class_("text-cyan-400 hover:text-cyan-300 underline cursor-pointer"),
-                Events.onClick(Ums(LoadApiReference)),
-                KeyboardNav.onActivate(Ums(LoadApiReference)),
-              },
-              list{text("Load API reference")},
-            ),
-          },
-        )
-      } else {
-        div(
-          list{Attrs.class_("space-y-2")},
-          filtered
-          ->Array.map(entry =>
-            div(
-              list{Attrs.class_("p-3 bg-gray-800 rounded border border-gray-700")},
-              list{
-                div(
-                  list{Attrs.class_("flex items-center justify-between mb-1")},
-                  list{
-                    span(
-                      list{Attrs.class_("text-sm font-medium text-cyan-400 font-mono")},
-                      list{text(entry.name)},
-                    ),
-                    span(list{Attrs.class_("text-xs text-gray-500")}, list{text(entry.category)}),
-                  },
-                ),
-                div(
-                  list{Attrs.class_("text-xs text-amber-400 font-mono mb-1")},
-                  list{text(entry.signature)},
-                ),
-                div(
-                  list{Attrs.class_("text-xs text-gray-400 mb-2")},
-                  list{text(entry.description)},
-                ),
-                if entry.example !== "" {
-                  div(
-                    list{Attrs.class_("p-2 bg-gray-900 rounded text-xs text-gray-300 font-mono")},
-                    list{text(entry.example)},
-                  )
-                } else {
-                  noNode
-                },
-                div(
-                  list{Attrs.class_("text-xs text-gray-600 mt-1")},
-                  list{text(`Since: ${entry.since}`)},
-                ),
-              },
-            )
-          )
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Main view function for the Universal Modding Studio panel.
-/// Render a Level Architect summary card showing entity count and validation status.
-let renderLevelArchitectSummary = (la: levelArchitectState): Tea_Vdom.t<msg> => {
-  let entityCount = Array.length(la.entities)
-  let validationBadge = switch la.umsValidation {
-  | Some(v) if v.allPassed =>
-    span(list{Attrs.class_("text-xs text-emerald-400")}, list{text("ABI: ALL PASSED")})
-  | Some(_) => span(list{Attrs.class_("text-xs text-red-400")}, list{text("ABI: HAS FAILURES")})
-  | None => span(list{Attrs.class_("text-xs text-gray-500")}, list{text("ABI: Not validated")})
-  }
-  div(
-    list{Attrs.class_("p-3 bg-gray-800/50 rounded border border-gray-700/50")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-1")},
-        list{
-          span(
-            list{Attrs.class_("text-xs font-medium text-gray-300")},
-            list{text("Level Architect")},
-          ),
-          button(
-            list{
-              Attrs.class_("text-xs text-cyan-400 hover:text-cyan-300 cursor-pointer"),
-              Events.onClick(Ums(NavigateToPanel(PanelLevelArchitect))),
-            },
-            list{text("Open")},
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("flex items-center gap-3 text-xs")},
-        list{
-          span(
-            list{Attrs.class_("text-gray-400")},
-            list{text(`${Int.toString(entityCount)} entities`)},
-          ),
-          span(list{Attrs.class_("text-gray-400")}, list{text(`${la.levelName}`)}),
-          validationBadge,
-        },
-      ),
-    },
-  )
-}
-
-/// Main view function for the Universal Modding Studio panel.
-/// Accepts both UMS state and Level Architect state for cross-panel data display.
-let view = (state: umsState, ~levelArchitect: levelArchitectState): Tea_Vdom.t<msg> => {
-  /// Selected project name for the header subtitle.
-  let projectName = switch state.selectedProjectId {
-  | Some(id) =>
-    state.projects
-    ->Array.find(p => p.id === id)
-    ->Option.map(p => p.name)
-    ->Option.getOr("Unknown Project")
-  | None => "No Project Selected"
-  }
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Universal Modding Studio panel"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              span(
-                list{Attrs.class_("text-lg font-semibold text-gray-100")},
-                list{text("Universal Modding Studio")},
-              ),
-              span(list{Attrs.class_("text-xs text-gray-500")}, list{text(projectName)}),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-2 py-1 text-xs bg-emerald-700 text-white rounded hover:bg-emerald-600 cursor-pointer",
-                  ),
-                  Events.onClick(Ums(CreateProject(""))),
-                },
-                list{text("New Project")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    if state.bojRouting {
-                      "px-2 py-1 text-xs bg-cyan-700 text-white rounded hover:bg-cyan-600 cursor-pointer"
-                    } else {
-                      "px-2 py-1 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600 cursor-pointer"
-                    },
-                  ),
-                  Events.onClick(Ums(ToggleUmsBojRouting)),
-                  KeyboardNav.onActivate(Ums(ToggleUmsBojRouting)),
-                },
-                list{text("BoJ Routing")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Category tabs
-      div(
-        list{Attrs.class_("flex items-center gap-1 px-4 py-2 border-b border-gray-800")},
-        list{
-          renderTab("Projects", UmsProjects, state.activeCategory),
-          renderTab("ABI Validator", UmsAbiValidator, state.activeCategory),
-          renderTab("Templates", UmsTemplates, state.activeCategory),
-          renderTab("Assets", UmsAssets, state.activeCategory),
-          renderTab("Distribution", UmsDistribution, state.activeCategory),
-          renderTab("API Reference", UmsApiReference, state.activeCategory),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 p-2 bg-red-900/50 border border-red-700 rounded text-xs text-red-300",
-            ),
-          },
-          list{
-            div(
-              list{Attrs.class_("flex items-center justify-between")},
-              list{
-                text(err),
-                button(
-                  list{
-                    Attrs.class_("text-red-400 hover:text-red-200 cursor-pointer"),
-                    Events.onClick(Ums(DismissUmsError)),
-                    KeyboardNav.onActivate(Ums(DismissUmsError)),
-                  },
-                  list{text("Dismiss")},
-                ),
-              },
-            ),
-          },
-        )
-      | None => noNode
-      },
-      // Loading
-      if state.loading {
-        div(
-          list{Attrs.class_("px-4 py-2 text-xs text-cyan-400 animate-pulse")},
-          list{text("Loading UMS data...")},
-        )
-      } else {
-        noNode
-      },
-      // Level Architect cross-panel summary
-      div(
-        list{Attrs.class_("px-4 py-2 border-b border-gray-800/50")},
-        list{renderLevelArchitectSummary(levelArchitect)},
-      ),
-      // Cross-panel navigation — quick-launch related eNSAID panels
-      div(
-        list{Attrs.class_("flex items-center gap-2 px-4 py-2 border-b border-gray-800/50")},
-        list{
-          span(list{Attrs.class_("text-xs text-gray-500 mr-1")}, list{text("Open:")}),
-          button(
-            list{
-              Attrs.class_(
-                "px-2 py-0.5 text-xs bg-gray-800 text-cyan-400 rounded hover:bg-gray-700 cursor-pointer",
-              ),
-              Events.onClick(Ums(NavigateToPanel(PanelLevelArchitect))),
-            },
-            list{text("Level Architect")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-2 py-0.5 text-xs bg-gray-800 text-cyan-400 rounded hover:bg-gray-700 cursor-pointer",
-              ),
-              Events.onClick(Ums(NavigateToPanel(PanelDlcWorkshop))),
-            },
-            list{text("DLC Workshop")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-2 py-0.5 text-xs bg-gray-800 text-cyan-400 rounded hover:bg-gray-700 cursor-pointer",
-              ),
-              Events.onClick(Ums(NavigateToPanel(PanelGamePreview))),
-            },
-            list{text("Game Preview")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-2 py-0.5 text-xs bg-gray-800 text-cyan-400 rounded hover:bg-gray-700 cursor-pointer",
-              ),
-              Events.onClick(Ums(NavigateToPanel(PanelVmInspector))),
-            },
-            list{text("VM Inspector")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-2 py-0.5 text-xs bg-gray-800 text-cyan-400 rounded hover:bg-gray-700 cursor-pointer",
-              ),
-              Events.onClick(Ums(NavigateToPanel(PanelBuildDashboard))),
-            },
-            list{text("Build Dashboard")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-2 py-0.5 text-xs bg-gray-800 text-cyan-400 rounded hover:bg-gray-700 cursor-pointer",
-              ),
-              Events.onClick(Ums(NavigateToPanel(PanelReleaseManager))),
-            },
-            list{text("Release Manager")},
-          ),
-        },
-      ),
-      // Main content
-      div(
-        list{Attrs.class_("flex-1 overflow-auto p-4")},
-        list{
-          switch state.activeCategory {
-          | UmsProjects => renderProjects(state)
-          | UmsAbiValidator => renderAbiValidator(state)
-          | UmsTemplates => renderTemplates(state)
-          | UmsAssets => renderAssets(state)
-          | UmsDistribution => renderDistribution(state)
-          | UmsApiReference => renderApiReference(state)
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/UnitTestRunner.affine b/src/components/UnitTestRunner.affine
new file mode 100644
index 00000000..341c9533
--- /dev/null
+++ b/src/components/UnitTestRunner.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UnitTestRunner;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/UnitTestRunner.res b/src/components/UnitTestRunner.res
deleted file mode 100644
index 276d599e..00000000
--- a/src/components/UnitTestRunner.res
+++ /dev/null
@@ -1,392 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL UnitTestRunner — interactive test execution dashboard with coverage
-/// heatmaps, run history, and diff-aware filtering for IDApTIK game testing.
-///
-/// Renders four tabs: test results (pass/fail list with durations), module
-/// coverage (percentage bars with heatmap colouring), run history (summary
-/// cards), and diff-aware mode (only changed-module tests). The Run/Stop
-/// header buttons dispatch lifecycle messages and a spinner overlays when
-/// tests are in flight.
-
-open Model
-open Msg
-open Tea.Html
-
-// =========================================================================
-// Helpers
-// =========================================================================
-
-/// Tab label lookup for unitTestTab variants.
-let tabLabel = (tab: unitTestTab): string =>
-  switch tab {
-  | TabTestResults => "Results"
-  | TabCoverage => "Coverage"
-  | TabHistory => "History"
-  | TabDiffAware => "Diff-Aware"
-  }
-
-/// Render the tab bar. Active tab gets a cyan bottom border; others are
-/// ghost buttons with hover highlight.
-let renderTabs = (active: unitTestTab): Tea_Vdom.t<msg> => {
-  let tabs: array<unitTestTab> = [TabTestResults, TabCoverage, TabHistory, TabDiffAware]
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 px-4")},
-    tabs
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-4 py-2 text-sm font-medium transition-colors rounded-t ${isActive
-                ? "bg-gray-800 text-cyan-400 border-b-2 border-cyan-400"
-                : "text-gray-500 hover:text-gray-300 hover:bg-gray-900 cursor-pointer"}`,
-          ),
-          Events.onClick(UnitTestRunner(SetUtrTab(tab))),
-        },
-        list{text(tabLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Status icon for a single test case result.
-let statusIcon = (status: testCaseStatus): Tea_Vdom.t<msg> =>
-  switch status {
-  | TestPending => span(list{Attrs.class_("text-gray-500 text-xs font-mono")}, list{text("--")})
-  | TestRunning =>
-    span(list{Attrs.class_("text-amber-400 text-xs font-mono animate-pulse")}, list{text("...")})
-  | TestPassed(_) =>
-    span(list{Attrs.class_("text-emerald-400 text-xs font-mono")}, list{text("OK")})
-  | TestFailed(_, _) =>
-    span(list{Attrs.class_("text-red-400 text-xs font-mono")}, list{text("FAIL")})
-  | TestSkipped(_) =>
-    span(list{Attrs.class_("text-blue-400 text-xs font-mono")}, list{text("SKIP")})
-  }
-
-/// Duration display (right-aligned, dimmed).
-let durationDisplay = (status: testCaseStatus): Tea_Vdom.t<msg> =>
-  switch status {
-  | TestPassed(ms) =>
-    span(
-      list{Attrs.class_("text-gray-500 text-xs font-mono")},
-      list{text(`${Float.toString(ms)}ms`)},
-    )
-  | TestFailed(_, ms) =>
-    span(
-      list{Attrs.class_("text-gray-500 text-xs font-mono")},
-      list{text(`${Float.toString(ms)}ms`)},
-    )
-  | _ => noNode
-  }
-
-// =========================================================================
-// Tab content views
-// =========================================================================
-
-/// Test results tab: scrollable list of test cases with pass/fail icons,
-/// suite grouping, test name, and duration.
-let renderResultsTab = (state: unitTestRunnerState): Tea_Vdom.t<msg> => {
-  let count = Array.length(state.results)
-  let passed =
-    state.results
-    ->Array.filter(r =>
-      switch r.status {
-      | TestPassed(_) => true
-      | _ => false
-      }
-    )
-    ->Array.length
-  let failed =
-    state.results
-    ->Array.filter(r =>
-      switch r.status {
-      | TestFailed(_, _) => true
-      | _ => false
-      }
-    )
-    ->Array.length
-
-  div(
-    list{Attrs.class_("flex flex-col gap-3 p-4")},
-    list{
-      // Summary counts
-      div(
-        list{Attrs.class_("flex gap-4 text-sm")},
-        list{
-          span(list{Attrs.class_("text-gray-400")}, list{text(`Total: ${Int.toString(count)}`)}),
-          span(
-            list{Attrs.class_("text-emerald-400")},
-            list{text(`Passed: ${Int.toString(passed)}`)},
-          ),
-          span(list{Attrs.class_("text-red-400")}, list{text(`Failed: ${Int.toString(failed)}`)}),
-        },
-      ),
-      // Result rows
-      div(
-        list{Attrs.class_("flex flex-col gap-1 max-h-96 overflow-y-auto")},
-        state.results
-        ->Array.map(result => {
-          div(
-            list{
-              Attrs.class_(
-                "flex items-center justify-between gap-3 px-3 py-2 bg-gray-800 rounded text-sm",
-              ),
-            },
-            list{
-              statusIcon(result.status),
-              span(
-                list{Attrs.class_("text-gray-500 font-mono text-xs min-w-24")},
-                list{text(result.suiteName)},
-              ),
-              span(list{Attrs.class_("text-gray-300 flex-1")}, list{text(result.testName)}),
-              durationDisplay(result.status),
-            },
-          )
-        })
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-/// Coverage tab: module heatmap with percentage bars. Colour graduates from
-/// red (< 40%) through amber (40-70%) to emerald (> 70%).
-let renderCoverageTab = (state: unitTestRunnerState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-col gap-2 p-4")},
-    list{
-      h3(
-        list{Attrs.class_("text-sm font-medium text-gray-300 mb-1")},
-        list{text("Module Coverage Heatmap")},
-      ),
-      div(
-        list{Attrs.class_("flex flex-col gap-2 max-h-96 overflow-y-auto")},
-        state.coverage
-        ->Array.map(mod => {
-          let pct = mod.coveragePercent
-          let pctStr = Float.toFixed(pct, ~digits=1)
-          let barColour = if pct < 40.0 {
-            "bg-red-500"
-          } else if pct < 70.0 {
-            "bg-amber-500"
-          } else {
-            "bg-emerald-500"
-          }
-          let widthPct = Int.toString(Int.fromFloat(pct))
-          div(
-            list{Attrs.class_("bg-gray-800 rounded p-2")},
-            list{
-              div(
-                list{Attrs.class_("flex justify-between text-xs mb-1")},
-                list{
-                  span(list{Attrs.class_("text-gray-300 font-mono")}, list{text(mod.moduleName)}),
-                  span(
-                    list{Attrs.class_("text-gray-500")},
-                    list{
-                      text(
-                        `${Int.toString(mod.testedFunctions)}/${Int.toString(
-                            mod.totalFunctions,
-                          )} (${pctStr}%)`,
-                      ),
-                    },
-                  ),
-                },
-              ),
-              div(
-                list{Attrs.class_("w-full h-2 bg-gray-700 rounded overflow-hidden")},
-                list{
-                  div(
-                    list{
-                      Attrs.class_(
-                        `h-full ${barColour} transition-all duration-300 w-[${widthPct}%]`,
-                      ),
-                    },
-                    list{},
-                  ),
-                },
-              ),
-            },
-          )
-        })
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-/// History tab: summary cards for previous test runs.
-let renderHistoryTab = (state: unitTestRunnerState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-col gap-2 p-4")},
-    list{
-      h3(list{Attrs.class_("text-sm font-medium text-gray-300 mb-1")}, list{text("Run History")}),
-      div(
-        list{Attrs.class_("flex flex-col gap-2 max-h-96 overflow-y-auto")},
-        state.history
-        ->Array.map(run => {
-          let allPassed = run.failed === 0
-          let borderCls = allPassed ? "border-emerald-700" : "border-red-700"
-          div(
-            list{Attrs.class_(`bg-gray-800 rounded p-3 border ${borderCls}`)},
-            list{
-              div(
-                list{Attrs.class_("flex justify-between text-xs text-gray-400 mb-1")},
-                list{
-                  span(list{}, list{text(run.timestamp)}),
-                  span(list{}, list{text(`${Float.toFixed(run.durationMs, ~digits=0)}ms`)}),
-                },
-              ),
-              div(
-                list{Attrs.class_("flex gap-4 text-sm")},
-                list{
-                  span(
-                    list{Attrs.class_("text-emerald-400")},
-                    list{text(`${Int.toString(run.passed)} passed`)},
-                  ),
-                  span(
-                    list{Attrs.class_("text-red-400")},
-                    list{text(`${Int.toString(run.failed)} failed`)},
-                  ),
-                  span(
-                    list{Attrs.class_("text-blue-400")},
-                    list{text(`${Int.toString(run.skipped)} skipped`)},
-                  ),
-                },
-              ),
-            },
-          )
-        })
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-/// Diff-aware tab: toggle and filtered results for changed modules only.
-let renderDiffAwareTab = (state: unitTestRunnerState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex flex-col gap-3 p-4")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center gap-3")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                `px-3 py-1.5 text-xs rounded font-medium cursor-pointer ${state.diffAwareOnly
-                    ? "bg-cyan-700 text-white"
-                    : "bg-gray-700 text-gray-400"}`,
-              ),
-              Events.onClick(UnitTestRunner(ToggleDiffAware)),
-              KeyboardNav.onActivate(UnitTestRunner(ToggleDiffAware)),
-            },
-            list{text(state.diffAwareOnly ? "Diff-Aware: ON" : "Diff-Aware: OFF")},
-          ),
-          span(
-            list{Attrs.class_("text-gray-500 text-xs")},
-            list{text("Only run tests for modules changed since last commit")},
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("text-sm text-gray-400")},
-        list{
-          text(`${Int.toString(Array.length(state.results))} test(s) matched by diff-aware filter`),
-        },
-      ),
-    },
-  )
-}
-
-// =========================================================================
-// Running spinner overlay
-// =========================================================================
-
-/// Full-width pulsing indicator shown when a test run is in progress.
-let runningSpinner = (running: bool): Tea_Vdom.t<msg> => {
-  if running {
-    div(
-      list{Attrs.class_("flex items-center gap-2 px-4 py-2 bg-gray-800 border-b border-gray-700")},
-      list{
-        div(list{Attrs.class_("w-3 h-3 bg-amber-400 rounded-full animate-pulse")}, list{}),
-        span(list{Attrs.class_("text-sm text-amber-300")}, list{text("Tests running...")}),
-      },
-    )
-  } else {
-    noNode
-  }
-}
-
-// =========================================================================
-// Main view
-// =========================================================================
-
-/// Primary view function dispatching tab content based on active tab.
-let view = (state: unitTestRunnerState): Tea_Vdom.t<msg> => {
-  let content = switch state.activeTab {
-  | TabTestResults => renderResultsTab(state)
-  | TabCoverage => renderCoverageTab(state)
-  | TabHistory => renderHistoryTab(state)
-  | TabDiffAware => renderDiffAwareTab(state)
-  }
-
-  div(
-    list{Attrs.class_("flex flex-col h-full bg-gray-900 text-gray-100")},
-    list{
-      // Header with title and Run/Stop buttons
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          h2(
-            list{Attrs.class_("text-lg font-semibold text-cyan-300")},
-            list{text("Unit Test Runner")},
-          ),
-          div(
-            list{Attrs.class_("flex gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1.5 text-xs bg-emerald-700 text-white rounded hover:bg-emerald-600 cursor-pointer font-medium",
-                  ),
-                  Events.onClick(UnitTestRunner(RunAllTests)),
-                  KeyboardNav.onActivate(UnitTestRunner(RunAllTests)),
-                },
-                list{text("Run")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1.5 text-xs bg-red-700 text-white rounded hover:bg-red-600 cursor-pointer font-medium",
-                  ),
-                  Events.onClick(UnitTestRunner(StopTests)),
-                  KeyboardNav.onActivate(UnitTestRunner(StopTests)),
-                },
-                list{text("Stop")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Running indicator
-      runningSpinner(state.running),
-      // Error display
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_("px-4 py-2 bg-red-900/30 text-red-300 text-sm border-b border-red-800"),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      // Tab bar
-      renderTabs(state.activeTab),
-      // Tab content
-      div(list{Attrs.class_("flex-1 overflow-y-auto")}, list{content}),
-    },
-  )
-}
diff --git a/src/components/Vab.affine b/src/components/Vab.affine
new file mode 100644
index 00000000..7fed3815
--- /dev/null
+++ b/src/components/Vab.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Vab;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Vab.res b/src/components/Vab.res
deleted file mode 100644
index 3ae4cd5b..00000000
--- a/src/components/Vab.res
+++ /dev/null
@@ -1,919 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL VAB (Verified Assembly Building) Component.
-///
-/// KSP Vehicle Assembly Building-inspired panel for composing verified server
-/// components from the proven-servers catalog. The visual design closely mirrors
-/// KSP's iconic VAB: green toolbar and category tabs, orange selection accents,
-/// industrial steel rack rails, staging indicators, and part stats.
-///
-/// Layout:
-///   +================================================================+
-///   | [KSP-GREEN TOOLBAR]  "Server Name"   [Clear] [Launch] [Close] |
-///   +==+===========================+=================================+
-///   |  |  Component Grid           |  Server Rack (Assembly Area)    |
-///   |G |  +------+ +------+        | ┌─────────────────────────────┐ |
-///   |R |  | part | | part |        | │ ● [1] proven-tls       443  │ |
-///   |E |  | :443 | |  ✓   |        | │ ● [2] proven-httpd  80,443  │ |
-///   |E |  +------+ +------+        | │ ● [3] proven-dbconn   5432  │ |
-///   |N |  +------+ +------+        | │ ·  ─ ─ empty slot ─ ─   ·  │ |
-///   |  |  | part | | part |        | │ ·  ─ ─ empty slot ─ ─   ·  │ |
-///   |C |  |:50051| |  ✓   |        | └─────────────────────────────┘ |
-///   |A |  +------+ +------+        |                                 |
-///   |T |                           |  ⚠ Missing: proven-socket       |
-///   |S |                           |  ⚠ No audit — ops not logged    |
-///   +==+===========================+=================================+
-///   | [STATS]  RU: 7  Ports: 5  ✓HTTP  ✓DB  ✗Email  ⚠Audit  ✗Cache |
-///   +================================================================+
-///
-/// Colour scheme: KSP VAB (green #4a7c40 toolbar, orange #e8721c accents,
-/// industrial steel #2e2e2e/#3a3a3a, green #5a9e50 verified, red #cc3333 errors).
-
-open Msg
-open Model
-open Tea.Html
-
-// ===========================================================================
-// Category Sidebar (KSP-green vertical tab strip)
-// ===========================================================================
-
-/// Render a single category icon button in the KSP-green sidebar.
-/// Active tab uses the bright green gradient; inactive uses darker green.
-let renderCategoryButton = (cat: vabCategory, isActive: bool): Tea_Vdom.t<msg> => {
-  let activeClass = isActive ? "vab-sidebar-btn-active" : "vab-sidebar-btn"
-
-  button(
-    list{
-      Attrs.class_(
-        `w-11 h-11 flex items-center justify-center text-xs font-bold rounded ${activeClass}`,
-      ),
-      Attrs.style("color", isActive ? "white" : "#8ab580"),
-      Attrs.title(VabCatalog.categoryName(cat)),
-      Attrs.ariaLabel(`Select ${VabCatalog.categoryName(cat)} category`),
-      Attrs.ariaPressed(isActive),
-      Events.onClick(Vab(SelectCategory(cat))),
-    },
-    list{text(VabCatalog.categoryIcon(cat))},
-  )
-}
-
-/// Render the full vertical category sidebar (11 icons) with KSP green styling.
-let renderCategorySidebar = (selectedCategory: vabCategory): Tea_Vdom.t<msg> => {
-  let categories: array<vabCategory> = [
-    VabCore,
-    VabNetwork,
-    VabDns,
-    VabWeb,
-    VabIot,
-    VabEmail,
-    VabSecurity,
-    VabData,
-    VabApplication,
-    VabInfrastructure,
-    VabConnectors,
-  ]
-
-  div(
-    list{
-      Attrs.class_("w-14 vab-sidebar flex flex-col gap-1 p-1.5 overflow-y-auto"),
-      Attrs.ariaLabel("Component categories"),
-      Attrs.role("tablist"),
-    },
-    List.concat(
-      // "PARTS" label at top (like KSP)
-      list{
-        div(
-          list{Attrs.class_("text-center py-1 mb-1")},
-          list{
-            span(
-              list{
-                Attrs.class_("text-[8px] font-bold tracking-widest uppercase"),
-                Attrs.style("color", "#6ab35e"),
-              },
-              list{text("PARTS")},
-            ),
-          },
-        ),
-      },
-      categories
-      ->Array.map(cat => renderCategoryButton(cat, cat === selectedCategory))
-      ->List.fromArray,
-    ),
-  )
-}
-
-// ===========================================================================
-// Top Toolbar (KSP-green gradient bar)
-// ===========================================================================
-
-/// Render the KSP-green top toolbar with server name and action buttons.
-/// Mimics KSP's green gradient toolbar with orange-accented buttons.
-let renderTopBar = (server: assembledServer): Tea_Vdom.t<msg> => {
-  let componentCount = Array.length(server.components)
-
-  div(
-    list{Attrs.class_("flex items-center gap-3 px-4 py-2.5 vab-toolbar")},
-    list{
-      // VAB icon/title
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          span(
-            list{
-              Attrs.class_("text-sm font-bold"),
-              Attrs.style("color", "#b8e6b0"),
-              Attrs.style("text-shadow", "0 1px 2px rgba(0,0,0,0.4)"),
-            },
-            list{text("VAB")},
-          ),
-          div(
-            list{
-              Attrs.class_("w-px h-5"),
-              Attrs.style("background-color", "rgba(255,255,255,0.2)"),
-            },
-            list{},
-          ),
-        },
-      ),
-      // Server name input
-      div(
-        list{Attrs.class_("flex-1 flex items-center gap-2")},
-        list{
-          span(
-            list{
-              Attrs.class_("text-[10px] font-bold uppercase tracking-wider"),
-              Attrs.style("color", "#8ab580"),
-            },
-            list{text("Server:")},
-          ),
-          input(
-            list{
-              Attrs.class_(
-                "rounded px-3 py-1 text-sm text-white w-64 focus:outline-none font-mono",
-              ),
-              Attrs.style("background-color", "rgba(0,0,0,0.3)"),
-              Attrs.style("border", "1px solid rgba(255,255,255,0.15)"),
-              Attrs.value(server.name),
-              Attrs.placeholder("Untitled Server"),
-              Events.onInput(value => Vab(RenameServer(value))),
-            },
-            list{},
-          ),
-          span(
-            list{
-              Attrs.class_("text-[10px] font-mono"),
-              Attrs.style("color", "rgba(255,255,255,0.4)"),
-            },
-            list{text(`${Int.toString(componentCount)} parts`)},
-          ),
-        },
-      ),
-      // Action buttons (KSP-style chunky buttons)
-      button(
-        list{
-          Attrs.class_(
-            "px-3 py-1.5 rounded text-xs font-bold uppercase tracking-wide transition-colors",
-          ),
-          Attrs.style("background-color", "rgba(0,0,0,0.25)"),
-          Attrs.style("border", "1px solid rgba(255,255,255,0.15)"),
-          Attrs.style("color", "#ccc"),
-          Events.onClick(Vab(ClearAssembly)),
-          KeyboardNav.onActivate(Vab(ClearAssembly)),
-          Attrs.ariaLabel("Clear all components from server"),
-        },
-        list{text("Clear")},
-      ),
-      button(
-        list{
-          Attrs.class_(
-            "px-3 py-1.5 rounded text-xs font-bold uppercase tracking-wide transition-colors",
-          ),
-          Attrs.style("background-color", "rgba(232,114,28,0.8)"),
-          Attrs.style("border", "1px solid #e8721c"),
-          Attrs.style("color", "white"),
-          Attrs.style("text-shadow", "0 1px 1px rgba(0,0,0,0.3)"),
-          Events.onClick(Vab(ToggleVab)),
-          KeyboardNav.onActivate(Vab(ToggleVab)),
-          Attrs.ariaLabel("Close VAB panel"),
-        },
-        list{text("Close")},
-      ),
-    },
-  )
-}
-
-// ===========================================================================
-// Component Grid (Part Picker)
-// ===========================================================================
-
-/// Render a single part card in the KSP-style component grid.
-/// Shows part name, port badges, verified indicator, rack unit size,
-/// and dependency count — mimicking KSP's part tooltip.
-let renderComponentCard = (comp: vabComponent, isAssembled: bool, isHovered: bool): Tea_Vdom.t<
-  msg,
-> => {
-  let cardClass = if isAssembled {
-    "vab-part vab-part-installed"
-  } else if isHovered {
-    "vab-part"
-  } else {
-    "vab-part"
-  }
-
-  let hoverBorder = if isHovered && !isAssembled {
-    "border-color: #e8721c;"
-  } else {
-    ""
-  }
-
-  div(
-    list{
-      Attrs.class_(`${cardClass} p-2.5 cursor-pointer`),
-      Attrs.style("style", hoverBorder),
-      Events.onClick(
-        if isAssembled {
-          Vab(RemoveComponent(comp.id))
-        } else {
-          Vab(AddComponent(comp.id))
-        },
-      ),
-      Events.onMouseEnter(Vab(HoverComponent(Some(comp.id)))),
-      Events.onMouseLeave(Vab(HoverComponent(None))),
-      Attrs.title(comp.description),
-      Attrs.ariaLabel(
-        if isAssembled {
-          `Remove ${comp.name} from server`
-        } else {
-          `Add ${comp.name} to server`
-        },
-      ),
-    },
-    list{
-      // Header: short name + verified checkmark
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-1.5")},
-        list{
-          span(
-            list{
-              Attrs.class_("text-xs font-bold truncate"),
-              Attrs.style(
-                "color",
-                if isAssembled {
-                  "#6ab35e"
-                } else {
-                  "#ddd"
-                },
-              ),
-            },
-            list{text(comp.shortName)},
-          ),
-          // Green verified tick (KSP science-unlock style)
-          span(list{Attrs.class_("vab-verified text-xs font-bold")}, list{text("V")}),
-        },
-      ),
-      // Port badges (orange-tinted)
-      if Array.length(comp.ports) > 0 {
-        div(
-          list{Attrs.class_("flex flex-wrap gap-1 mb-1.5")},
-          comp.ports
-          ->Array.map(port =>
-            span(
-              list{
-                Attrs.class_("text-[9px] px-1.5 py-0.5 rounded font-mono font-bold"),
-                Attrs.style("background-color", "rgba(232,114,28,0.15)"),
-                Attrs.style("color", "#e8a050"),
-                Attrs.style("border", "1px solid rgba(232,114,28,0.25)"),
-              },
-              list{text(Int.toString(port))},
-            )
-          )
-          ->List.fromArray,
-        )
-      } else {
-        noNode
-      },
-      // Stats row: rack units + dep count (like KSP's mass/cost)
-      div(
-        list{Attrs.class_("flex items-center justify-between mt-1")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              span(
-                list{Attrs.class_("text-[9px] font-mono"), Attrs.style("color", "#888")},
-                list{text(`${Int.toString(comp.rackUnits)}U`)},
-              ),
-              if Array.length(comp.dependencies) > 0 {
-                span(
-                  list{Attrs.class_("text-[9px] font-mono"), Attrs.style("color", "#e8721c")},
-                  list{text(`${Int.toString(Array.length(comp.dependencies))} deps`)},
-                )
-              } else {
-                span(
-                  list{Attrs.class_("text-[9px] font-mono"), Attrs.style("color", "#555")},
-                  list{text("no deps")},
-                )
-              },
-            },
-          ),
-          // Installed indicator or +add
-          if isAssembled {
-            span(
-              list{Attrs.class_("text-[9px] font-bold"), Attrs.style("color", "#5a9e50")},
-              list{text("INSTALLED")},
-            )
-          } else {
-            span(
-              list{Attrs.class_("text-[9px] font-bold"), Attrs.style("color", "#888")},
-              list{text("+ADD")},
-            )
-          },
-        },
-      ),
-    },
-  )
-}
-
-/// Render the component grid for the selected category.
-/// Filter bar and sort buttons use KSP-green/orange styling.
-let renderComponentGrid = (
-  catalog: array<vabComponent>,
-  selectedCategory: vabCategory,
-  sortBy: vabSortBy,
-  filterText: string,
-  assembledIds: array<string>,
-  hoveredComponent: option<string>,
-): Tea_Vdom.t<msg> => {
-  // Filter by category
-  let categoryComponents = VabCatalog.getByCategory(catalog, selectedCategory)
-
-  // Apply text filter
-  let filtered = if filterText === "" {
-    categoryComponents
-  } else {
-    let lower = String.toLowerCase(filterText)
-    Array.filter(categoryComponents, c =>
-      String.includes(String.toLowerCase(c.name), lower) ||
-      String.includes(String.toLowerCase(c.shortName), lower) ||
-      String.includes(String.toLowerCase(c.description), lower)
-    )
-  }
-
-  // Apply sort
-  let sorted = switch sortBy {
-  | SortByName =>
-    Array.toSorted(filtered, (a, b) => a.name < b.name ? -1.0 : a.name > b.name ? 1.0 : 0.0)
-  | SortByPorts =>
-    Array.toSorted(filtered, (a, b) =>
-      Float.fromInt(Array.length(a.ports)) -. Float.fromInt(Array.length(b.ports))
-    )
-  | SortByDeps =>
-    Array.toSorted(filtered, (a, b) =>
-      Float.fromInt(Array.length(a.dependencies)) -. Float.fromInt(Array.length(b.dependencies))
-    )
-  }
-
-  // Sort button helper
-  let sortBtn = (label: string, sortVal: vabSortBy) => {
-    let isActive = sortBy === sortVal
-    button(
-      list{
-        Attrs.class_(
-          "px-2 py-1 rounded text-[10px] font-bold uppercase tracking-wide transition-colors",
-        ),
-        Attrs.style(
-          "background-color",
-          if isActive {
-            "rgba(232,114,28,0.8)"
-          } else {
-            "rgba(255,255,255,0.05)"
-          },
-        ),
-        Attrs.style(
-          "color",
-          if isActive {
-            "white"
-          } else {
-            "#888"
-          },
-        ),
-        Attrs.style(
-          "border",
-          if isActive {
-            "1px solid #e8721c"
-          } else {
-            "1px solid rgba(255,255,255,0.08)"
-          },
-        ),
-        Events.onClick(Vab(SetSortBy(sortVal))),
-      },
-      list{text(label)},
-    )
-  }
-
-  div(
-    list{
-      Attrs.class_("flex-1 flex flex-col overflow-hidden"),
-      Attrs.style("background-color", "#1e1e1e"),
-    },
-    list{
-      // Filter bar
-      div(
-        list{
-          Attrs.class_("flex items-center gap-2 px-3 py-2"),
-          Attrs.style("background-color", "#252525"),
-          Attrs.style("border-bottom", "1px solid #333"),
-        },
-        list{
-          input(
-            list{
-              Attrs.class_(
-                "flex-1 rounded px-2 py-1 text-xs text-gray-300 focus:outline-none font-mono",
-              ),
-              Attrs.style("background-color", "rgba(0,0,0,0.3)"),
-              Attrs.style("border", "1px solid #444"),
-              Attrs.placeholder("Search parts..."),
-              Attrs.value(filterText),
-              Events.onInput(value => Vab(SetFilterText(value))),
-            },
-            list{},
-          ),
-          sortBtn("A-Z", SortByName),
-          sortBtn("Ports", SortByPorts),
-          sortBtn("Deps", SortByDeps),
-        },
-      ),
-      // Category header
-      div(
-        list{
-          Attrs.class_("px-3 py-1.5 flex items-center gap-2"),
-          Attrs.style("border-bottom", "1px solid #2a2a2a"),
-        },
-        list{
-          span(
-            list{
-              Attrs.class_("text-[10px] font-bold uppercase tracking-widest"),
-              Attrs.style("color", "#6ab35e"),
-            },
-            list{text(VabCatalog.categoryName(selectedCategory))},
-          ),
-          span(
-            list{Attrs.class_("text-[10px] font-mono"), Attrs.style("color", "#555")},
-            list{text(`${Int.toString(Array.length(sorted))} parts`)},
-          ),
-        },
-      ),
-      // Component grid
-      div(
-        list{
-          Attrs.class_("flex-1 overflow-y-auto px-3 pb-3 pt-2"),
-          Attrs.role("list"),
-          Attrs.ariaLabel("Available components"),
-        },
-        list{
-          div(
-            list{Attrs.class_("grid grid-cols-3 gap-2")},
-            sorted
-            ->Array.map(comp => {
-              let isAssembled = Array.some(assembledIds, id => id === comp.id)
-              let isHovered = hoveredComponent === Some(comp.id)
-              renderComponentCard(comp, isAssembled, isHovered)
-            })
-            ->List.fromArray,
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ===========================================================================
-// Server Rack (Assembly Area — industrial steel with rail mounts)
-// ===========================================================================
-
-/// Render a single component in the server rack as a mounted rack unit.
-/// Uses KSP-style staging numbers (orange), green/red LEDs, and
-/// industrial steel appearance. Components with missing deps get red LED.
-let renderRackUnit = (
-  comp: vabComponent,
-  index: int,
-  warnings: array<vabWarning>,
-  _catalog: array<vabComponent>,
-): Tea_Vdom.t<msg> => {
-  // Check if this component has any critical warnings
-  let hasCritical = Array.some(warnings, w =>
-    switch w {
-    | MissingRequired(compId, _) => compId === comp.id
-    | PortConflict(_, a, b) => a === comp.id || b === comp.id
-    | _ => false
-    }
-  )
-
-  let unitClass = hasCritical ? "vab-rack-unit vab-rack-unit-error" : "vab-rack-unit"
-
-  div(
-    list{
-      Attrs.class_(
-        `${unitClass} flex items-center gap-2 px-2 py-2 rounded-sm transition-all group`,
-      ),
-      Attrs.role("listitem"),
-    },
-    list{
-      // Mounting bolt (left)
-      div(list{Attrs.class_("vab-bolt flex-shrink-0")}, list{}),
-      // Staging number (KSP orange)
-      div(list{Attrs.class_("vab-stage flex-shrink-0")}, list{text(Int.toString(index + 1))}),
-      // LED indicator (green=ok, red=missing deps)
-      div(
-        list{
-          Attrs.class_(hasCritical ? "vab-led-red flex-shrink-0" : "vab-led-green flex-shrink-0"),
-        },
-        list{},
-      ),
-      // Component name
-      span(
-        list{
-          Attrs.class_("flex-1 text-xs font-mono font-bold"),
-          Attrs.style(
-            "color",
-            if hasCritical {
-              "#cc6666"
-            } else {
-              "#ddd"
-            },
-          ),
-        },
-        list{text(comp.shortName)},
-      ),
-      // Rack unit size
-      span(
-        list{Attrs.class_("text-[9px] font-mono"), Attrs.style("color", "#666")},
-        list{text(`${Int.toString(comp.rackUnits)}U`)},
-      ),
-      // Port display (orange-tinted)
-      if Array.length(comp.ports) > 0 {
-        span(
-          list{Attrs.class_("text-[10px] font-mono font-bold"), Attrs.style("color", "#e8a050")},
-          list{text(comp.ports->Array.map(p => Int.toString(p))->Array.join(","))},
-        )
-      } else {
-        noNode
-      },
-      // Remove button (visible on hover — red X)
-      button(
-        list{
-          Attrs.class_(
-            "opacity-0 group-hover:opacity-100 w-5 h-5 flex items-center justify-center rounded text-xs font-bold transition-all",
-          ),
-          Attrs.style("color", "#cc3333"),
-          Events.onClick(Vab(RemoveComponent(comp.id))),
-          Attrs.ariaLabel(`Remove ${comp.name} from rack`),
-        },
-        list{text("X")},
-      ),
-      // Mounting bolt (right)
-      div(list{Attrs.class_("vab-bolt flex-shrink-0")}, list{}),
-    },
-  )
-}
-
-/// Render an empty rack slot with mounting hole pattern.
-let renderEmptySlot = (_index: int): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("vab-rack-empty flex items-center gap-2 px-2 py-2 rounded-sm opacity-40")},
-    list{
-      div(list{Attrs.class_("vab-bolt flex-shrink-0")}, list{}),
-      div(
-        list{Attrs.class_("flex-1 text-center")},
-        list{
-          span(
-            list{Attrs.class_("text-[10px] font-mono"), Attrs.style("color", "#333")},
-            list{text("--- empty slot ---")},
-          ),
-        },
-      ),
-      div(list{Attrs.class_("vab-bolt flex-shrink-0")}, list{}),
-    },
-  )
-}
-
-/// Render the server rack — the right-hand assembly area.
-/// Industrial steel appearance with mounting rails, staging numbers,
-/// LED indicators, and KSP-style dependency warnings below.
-let renderAssemblyRack = (
-  server: assembledServer,
-  catalog: array<vabComponent>,
-  warnings: array<vabWarning>,
-): Tea_Vdom.t<msg> => {
-  let assembledComponents = Array.filterMap(server.components, id =>
-    VabCatalog.findById(catalog, id)
-  )
-  let componentCount = Array.length(assembledComponents)
-
-  // Calculate total rack units
-  let totalRU = Array.reduce(assembledComponents, 0, (acc, comp) => acc + comp.rackUnits)
-
-  // Calculate empty slots (minimum 6 visible rack slots)
-  let totalSlots = if componentCount < 6 {
-    6
-  } else {
-    componentCount + 2
-  }
-  let emptySlots = totalSlots - componentCount
-
-  div(
-    list{
-      Attrs.class_("w-[400px] flex flex-col overflow-hidden"),
-      Attrs.style("background-color", "#181818"),
-      Attrs.style("border-left", "2px solid #333"),
-    },
-    list{
-      // Rack header with KSP-style label
-      div(
-        list{
-          Attrs.class_("px-3 py-2 flex items-center justify-between"),
-          Attrs.style("background-color", "#222"),
-          Attrs.style("border-bottom", "2px solid #333"),
-        },
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              span(
-                list{
-                  Attrs.class_("text-xs font-bold uppercase tracking-widest"),
-                  Attrs.style("color", "#6ab35e"),
-                },
-                list{text("Assembly")},
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              span(
-                list{
-                  Attrs.class_("text-[10px] font-mono font-bold"),
-                  Attrs.style("color", "#e8721c"),
-                },
-                list{text(`${Int.toString(componentCount)} parts`)},
-              ),
-              span(
-                list{Attrs.class_("text-[10px] font-mono"), Attrs.style("color", "#666")},
-                list{text(`${Int.toString(totalRU)} RU`)},
-              ),
-            },
-          ),
-        },
-      ),
-      // Rack body (with rail mounts and grid background)
-      div(
-        list{
-          Attrs.class_("flex-1 overflow-y-auto vab-rack vab-rack-rails px-3 py-2"),
-          Attrs.role("list"),
-          Attrs.ariaLabel("Assembled server components"),
-        },
-        list{
-          div(
-            list{Attrs.class_("flex flex-col gap-1")},
-            List.concat(
-              // Assembled components (with staging numbers)
-              assembledComponents
-              ->Array.mapWithIndex((comp, i) => renderRackUnit(comp, i, warnings, catalog))
-              ->List.fromArray,
-              // Empty slots
-              Array.make(~length=emptySlots, 0)
-              ->Array.mapWithIndex((_, i) => renderEmptySlot(componentCount + i))
-              ->List.fromArray,
-            ),
-          ),
-        },
-      ),
-      // Warning list below rack (KSP-style klaxon warnings)
-      if Array.length(warnings) > 0 {
-        div(
-          list{
-            Attrs.class_("px-3 py-2 max-h-36 overflow-y-auto"),
-            Attrs.style("background-color", "rgba(30,10,10,0.6)"),
-            Attrs.style("border-top", "2px solid #cc3333"),
-            Attrs.role("alert"),
-            Attrs.ariaLive("polite"),
-          },
-          list{
-            div(
-              list{
-                Attrs.class_("text-[10px] font-bold uppercase tracking-widest mb-1.5"),
-                Attrs.style("color", "#cc3333"),
-              },
-              list{text("WARNINGS")},
-            ),
-            div(
-              list{Attrs.class_("flex flex-col gap-1")},
-              warnings
-              ->Array.map(w => {
-                let severity = VabEngine.warningSeverity(w)
-                let colourClass = switch severity {
-                | "error" => "vab-warning-error"
-                | "warning" => "vab-warning-caution"
-                | _ => "vab-warning-info"
-                }
-                let iconText = switch severity {
-                | "error" => "!!"
-                | "warning" => "!~"
-                | _ => "??"
-                }
-                div(
-                  list{Attrs.class_(`flex items-start gap-1.5 text-[10px] ${colourClass}`)},
-                  list{
-                    span(list{Attrs.class_("font-bold font-mono")}, list{text(iconText)}),
-                    span(
-                      list{Attrs.class_("font-mono")},
-                      list{text(VabEngine.warningLabel(w, catalog))},
-                    ),
-                  },
-                )
-              })
-              ->List.fromArray,
-            ),
-          },
-        )
-      } else if componentCount > 0 {
-        div(
-          list{
-            Attrs.class_("px-3 py-2"),
-            Attrs.style("background-color", "rgba(10,30,10,0.4)"),
-            Attrs.style("border-top", "2px solid #3a6332"),
-          },
-          list{
-            div(
-              list{
-                Attrs.class_("text-[10px] font-bold font-mono"),
-                Attrs.style("color", "#5a9e50"),
-              },
-              list{text("ALL CHECKS PASSED — Ready for deployment")},
-            ),
-          },
-        )
-      } else {
-        div(
-          list{Attrs.class_("px-3 py-2"), Attrs.style("border-top", "1px solid #2a2a2a")},
-          list{
-            div(
-              list{Attrs.class_("text-[10px] font-mono"), Attrs.style("color", "#555")},
-              list{text("Click parts to add to rack")},
-            ),
-          },
-        )
-      },
-    },
-  )
-}
-
-// ===========================================================================
-// Status Bar (Capabilities — KSP stats instrument panel)
-// ===========================================================================
-
-/// Render the bottom capability status bar — dark instrument panel style.
-/// Green badges for CAN DO, muted badges for CANNOT, orange for warnings.
-/// Warning counts displayed as KSP-style mission readiness indicators.
-let renderStatusBar = (
-  capabilities: array<capabilityStatus>,
-  warnings: array<vabWarning>,
-): Tea_Vdom.t<msg> => {
-  let (reqCount, recCount, secCount) = VabEngine.countWarnings(warnings)
-  let totalWarnings = reqCount + recCount + secCount
-
-  div(
-    list{
-      Attrs.class_("flex items-center gap-2 px-4 py-2 vab-stats overflow-x-auto"),
-      Attrs.role("status"),
-      Attrs.ariaLabel("Server capabilities"),
-    },
-    list{
-      // Mission readiness — warning summary counts
-      if totalWarnings > 0 {
-        div(
-          list{
-            Attrs.class_("flex items-center gap-2 mr-3 pr-3"),
-            Attrs.style("border-right", "1px solid #444"),
-          },
-          list{
-            span(
-              list{
-                Attrs.class_("text-[10px] font-bold uppercase tracking-wider mr-1"),
-                Attrs.style("color", "#cc3333"),
-              },
-              list{text("HOLD")},
-            ),
-            if reqCount > 0 {
-              span(
-                list{Attrs.class_("text-[10px] font-mono font-bold vab-warning-error")},
-                list{text(`${Int.toString(reqCount)} critical`)},
-              )
-            } else {
-              noNode
-            },
-            if secCount > 0 {
-              span(
-                list{Attrs.class_("text-[10px] font-mono font-bold vab-warning-caution")},
-                list{text(`${Int.toString(secCount)} security`)},
-              )
-            } else {
-              noNode
-            },
-            if recCount > 0 {
-              span(
-                list{Attrs.class_("text-[10px] font-mono vab-warning-info")},
-                list{text(`${Int.toString(recCount)} advisory`)},
-              )
-            } else {
-              noNode
-            },
-          },
-        )
-      } else {
-        div(
-          list{
-            Attrs.class_("flex items-center gap-1 mr-3 pr-3"),
-            Attrs.style("border-right", "1px solid #444"),
-          },
-          list{
-            span(
-              list{
-                Attrs.class_("text-[10px] font-bold uppercase tracking-wider"),
-                Attrs.style("color", "#5a9e50"),
-              },
-              list{text("GO")},
-            ),
-          },
-        )
-      },
-      // Capability badges (green=yes, gray=no, orange=warning)
-      div(
-        list{Attrs.class_("flex items-center gap-1 flex-wrap")},
-        capabilities
-        ->Array.map(cap => {
-          let (label, badgeClass, icon) = switch cap {
-          | CanDo(name) => (name, "vab-cap-yes", "V")
-          | CannotDo(name) => (name, "vab-cap-no", "X")
-          | WarningCap(name) => (name, "vab-cap-warn", "!")
-          }
-          span(
-            list{
-              Attrs.class_(
-                `inline-flex items-center gap-0.5 px-1.5 py-0.5 rounded text-[9px] font-mono font-bold ${badgeClass}`,
-              ),
-              Attrs.title(label),
-            },
-            list{span(list{}, list{text(icon)}), span(list{}, list{text(label)})},
-          )
-        })
-        ->List.fromArray,
-      ),
-    },
-  )
-}
-
-// ===========================================================================
-// Main View
-// ===========================================================================
-
-/// The main VAB panel view, rendered as a full-screen overlay.
-/// Composes: KSP-green toolbar + green category sidebar + part grid +
-/// industrial assembly rack + instrument panel status bar.
-let view = (vab: vabState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 flex flex-col z-40"),
-      Attrs.style("background-color", "#1a1a1a"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Verified Assembly Building — Server Component Composer"),
-      KeyboardUtil.onEscape(Vab(ToggleVab)),
-    },
-    list{
-      // Top toolbar — KSP green gradient
-      renderTopBar(vab.server),
-      // Main content — sidebar + grid + rack
-      div(
-        list{Attrs.class_("flex-1 flex overflow-hidden")},
-        list{
-          // Left: KSP-green category sidebar
-          renderCategorySidebar(vab.selectedCategory),
-          // Centre: component grid (part picker)
-          renderComponentGrid(
-            vab.catalog,
-            vab.selectedCategory,
-            vab.sortBy,
-            vab.filterText,
-            vab.server.components,
-            vab.hoveredComponent,
-          ),
-          // Right: industrial server rack
-          renderAssemblyRack(vab.server, vab.catalog, vab.warnings),
-        },
-      ),
-      // Bottom: capability instrument panel
-      renderStatusBar(vab.capabilities, vab.warnings),
-    },
-  )
-}
diff --git a/src/components/ValenceShell.affine b/src/components/ValenceShell.affine
new file mode 100644
index 00000000..5074a4af
--- /dev/null
+++ b/src/components/ValenceShell.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ValenceShell;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/ValenceShell.res b/src/components/ValenceShell.res
deleted file mode 100644
index 30acc078..00000000
--- a/src/components/ValenceShell.res
+++ /dev/null
@@ -1,847 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Valence Shell Component — renders the embedded terminal panel.
-///
-/// The Valence Shell is a full-screen overlay panel providing:
-///
-/// 1. **Terminal** — PTY-backed terminal emulator with Claude Code integration.
-///    When the xterm.js widget is wired (Phase 2), the terminal area will be
-///    replaced by the real PTY. For now, it renders a styled output buffer
-///    with an input line and command history navigation.
-///
-/// 2. **Recordings** — Browse, replay, export, and delete asciinema .cast
-///    session recordings. Each recording shows duration, size, and creation date.
-///
-/// 3. **Checkpoints** — Valence filesystem save/restore points with formal
-///    reversibility proofs. Create, list, and restore checkpoints.
-///
-/// 4. **History** — Command history with timestamps and reversibility markers.
-///
-/// 5. **Settings** — Shell backend selection, approval gate configuration,
-///    split view toggle, and IDApTIK-specific completions.
-///
-/// Collaborative features:
-/// - **Approval gate**: When enabled, commands queue for parent review before
-///   execution. The child types, the parent approves — every command becomes
-///   a teaching moment.
-/// - **Session recording**: Record terminal sessions to .cast files for replay,
-///   sharing, and teaching.
-/// - **Screenshots**: Capture terminal state to the PanLL Capture panel.
-
-open Model
-open Msg
-open Tea.Html
-
-// =========================================================================
-// Helper renderers
-// =========================================================================
-
-/// Render the category tab bar.
-let renderTabs = (active: valenceShellCategory): Tea_Vdom.t<msg> => {
-  let tabs: array<valenceShellCategory> = [
-    ShellTerminal,
-    ShellRecordings,
-    ShellCheckpoints,
-    ShellHistory,
-    ShellSettings,
-  ]
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 px-4")},
-    tabs
-    ->Array.map(tab => {
-      let isActive = tab === active
-      let label = ValenceShellEngine.categoryLabel(tab)
-      button(
-        list{
-          Attrs.class_(
-            `px-4 py-2 text-sm font-medium transition-colors rounded-t ${isActive
-                ? "bg-gray-800 text-emerald-400 border-b-2 border-emerald-400"
-                : "text-gray-500 hover:text-gray-300 hover:bg-gray-900"}`,
-          ),
-          Events.onClick(ValenceShell(SetShellCategory(tab))),
-        },
-        list{text(label)},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Render a single terminal output line.
-let renderOutputLine = (line: terminalLine): Tea_Vdom.t<msg> => {
-  let colour = line.isStdout ? "text-gray-200" : "text-red-400"
-  div(
-    list{Attrs.class_(`font-mono text-sm ${colour} whitespace-pre-wrap px-4 py-0.5`)},
-    list{text(line.content)},
-  )
-}
-
-/// Render the terminal view — output buffer + input line + toolbar.
-let renderTerminal = (state: valenceShellState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 flex flex-col bg-gray-950")},
-    list{
-      // Backend status bar
-      div(
-        list{
-          Attrs.class_(
-            "flex items-center justify-between px-4 py-2 bg-gray-900/50 border-b border-gray-800",
-          ),
-        },
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              // Connection indicator
-              div(
-                list{
-                  Attrs.class_(
-                    `w-2 h-2 rounded-full ${state.ptyConnected ? "bg-emerald-400" : "bg-gray-600"}`,
-                  ),
-                },
-                list{},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-400")},
-                list{text(ValenceShellEngine.backendLabel(state.backend))},
-              ),
-              // CWD display
-              span(list{Attrs.class_("text-xs text-gray-500 font-mono")}, list{text(state.cwd)}),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              // Recording indicator
-              switch state.recording {
-              | RecordingActive(_) =>
-                div(
-                  list{Attrs.class_("flex items-center gap-1")},
-                  list{
-                    div(
-                      list{Attrs.class_("w-2 h-2 rounded-full bg-red-500 animate-pulse")},
-                      list{},
-                    ),
-                    span(list{Attrs.class_("text-xs text-red-400")}, list{text("REC")}),
-                    button(
-                      list{
-                        Attrs.class_("text-xs text-gray-400 hover:text-gray-200 px-2 py-1"),
-                        Events.onClick(ValenceShell(StopRecordingSession)),
-                        KeyboardNav.onActivate(ValenceShell(StopRecordingSession)),
-                      },
-                      list{text("Stop")},
-                    ),
-                  },
-                )
-              | RecordingPaused(_) =>
-                div(
-                  list{Attrs.class_("flex items-center gap-1")},
-                  list{
-                    div(list{Attrs.class_("w-2 h-2 rounded-full bg-yellow-500")}, list{}),
-                    span(list{Attrs.class_("text-xs text-yellow-400")}, list{text("PAUSED")}),
-                  },
-                )
-              | RecordingIdle =>
-                button(
-                  list{
-                    Attrs.class_(
-                      "text-xs text-gray-500 hover:text-gray-300 px-2 py-1 rounded bg-gray-800",
-                    ),
-                    Events.onClick(ValenceShell(StartRecordingSession)),
-                    KeyboardNav.onActivate(ValenceShell(StartRecordingSession)),
-                  },
-                  list{text("Record")},
-                )
-              },
-              // Screenshot button
-              button(
-                list{
-                  Attrs.class_(
-                    "text-xs text-gray-500 hover:text-gray-300 px-2 py-1 rounded bg-gray-800",
-                  ),
-                  Events.onClick(ValenceShell(ScreenshotTerminal)),
-                  KeyboardNav.onActivate(ValenceShell(ScreenshotTerminal)),
-                },
-                list{text("Screenshot")},
-              ),
-              // Approval gate indicator
-              switch state.approvalGate {
-              | GateDisabled => noNode
-              | GateEnabled =>
-                div(
-                  list{Attrs.class_("flex items-center gap-1")},
-                  list{
-                    div(list{Attrs.class_("w-2 h-2 rounded-full bg-amber-400")}, list{}),
-                    span(list{Attrs.class_("text-xs text-amber-400")}, list{text("GATE ON")}),
-                  },
-                )
-              | GateLearning =>
-                div(
-                  list{Attrs.class_("flex items-center gap-1")},
-                  list{
-                    div(list{Attrs.class_("w-2 h-2 rounded-full bg-blue-400")}, list{}),
-                    span(list{Attrs.class_("text-xs text-blue-400")}, list{text("LEARNING")}),
-                  },
-                )
-              },
-              // Claude Code indicator
-              if state.claudeCodeActive {
-                div(
-                  list{Attrs.class_("flex items-center gap-1")},
-                  list{
-                    span(
-                      list{Attrs.class_("text-xs text-purple-400 font-medium")},
-                      list{text("Claude")},
-                    ),
-                  },
-                )
-              } else {
-                noNode
-              },
-            },
-          ),
-        },
-      ),
-      // Terminal output area
-      div(
-        list{
-          Attrs.class_("flex-1 overflow-auto bg-gray-950 py-2"),
-          Attrs.id("valence-terminal-output"),
-        },
-        if Array.length(state.outputBuffer) === 0 {
-          list{
-            div(
-              list{Attrs.class_("px-4 py-8 text-center")},
-              list{
-                div(list{Attrs.class_("text-gray-600 text-sm mb-2")}, list{text("Valence Shell")}),
-                div(
-                  list{Attrs.class_("text-gray-700 text-xs")},
-                  list{
-                    text(
-                      state.valenceAvailable
-                        ? "Formally verified reversible shell ready."
-                        : "System shell mode (install valence-shell for reversible ops).",
-                    ),
-                  },
-                ),
-                div(
-                  list{Attrs.class_("text-gray-700 text-xs mt-1")},
-                  list{text("Type a command or run `claude` to start Claude Code.")},
-                ),
-              },
-            ),
-          }
-        } else {
-          state.outputBuffer->Array.map(renderOutputLine)->List.fromArray
-        },
-      ),
-      // Pending commands (approval gate)
-      if Array.length(state.pendingCommands) > 0 {
-        div(
-          list{Attrs.class_("border-t border-amber-800/50 bg-amber-950/20 px-4 py-2")},
-          list{
-            div(
-              list{Attrs.class_("text-xs text-amber-400 mb-2 font-medium")},
-              list{
-                text(
-                  `${Int.toString(
-                      Array.length(state.pendingCommands),
-                    )} command(s) awaiting approval`,
-                ),
-              },
-            ),
-            div(
-              list{Attrs.class_("space-y-1")},
-              state.pendingCommands
-              ->Array.mapWithIndex((cmd, idx) => {
-                div(
-                  list{
-                    Attrs.class_("flex items-center justify-between bg-gray-900 rounded px-3 py-1"),
-                  },
-                  list{
-                    span(
-                      list{Attrs.class_("font-mono text-sm text-amber-200")},
-                      list{text(cmd.command)},
-                    ),
-                    div(
-                      list{Attrs.class_("flex gap-2")},
-                      list{
-                        button(
-                          list{
-                            Attrs.class_(
-                              "text-xs px-2 py-1 rounded bg-emerald-800 text-emerald-200 hover:bg-emerald-700",
-                            ),
-                            Events.onClick(ValenceShell(ApproveCommand(idx))),
-                          },
-                          list{text("Approve")},
-                        ),
-                        button(
-                          list{
-                            Attrs.class_(
-                              "text-xs px-2 py-1 rounded bg-red-800 text-red-200 hover:bg-red-700",
-                            ),
-                            Events.onClick(ValenceShell(RejectCommand(idx))),
-                          },
-                          list{text("Reject")},
-                        ),
-                      },
-                    ),
-                  },
-                )
-              })
-              ->List.fromArray,
-            ),
-          },
-        )
-      } else {
-        noNode
-      },
-      // Input line
-      div(
-        list{
-          Attrs.class_("border-t border-gray-800 bg-gray-900 px-4 py-2 flex items-center gap-2"),
-        },
-        list{
-          span(list{Attrs.class_("text-emerald-400 font-mono text-sm")}, list{text("$")}),
-          input(
-            list{
-              Attrs.class_(
-                "flex-1 bg-transparent text-gray-200 font-mono text-sm outline-none placeholder-gray-600",
-              ),
-              Attrs.type_("text"),
-              Attrs.value(state.inputLine),
-              Attrs.placeholder("Type a command..."),
-              Events.onInput(value => ValenceShell(UpdateInput(value))),
-              KeyboardUtil.onEnterOrSpace(ValenceShell(SubmitInput)),
-              Attrs.id("valence-shell-input"),
-              Attrs.ariaLabel("Shell command input"),
-            },
-            list{},
-          ),
-        },
-      ),
-      // Completions popup
-      if (
-        state.completionsVisible &&
-        Array.length(ValenceShellEngine.filterCompletions(state.inputLine, state.completions)) > 0
-      ) {
-        let filtered = ValenceShellEngine.filterCompletions(state.inputLine, state.completions)
-        div(
-          list{
-            Attrs.class_(
-              "absolute bottom-16 left-4 right-16 bg-gray-800 border border-gray-700 rounded shadow-lg max-h-48 overflow-auto z-50",
-            ),
-          },
-          filtered
-          ->Array.map(completion => {
-            button(
-              list{
-                Attrs.class_(
-                  "block w-full text-left px-3 py-1.5 font-mono text-sm text-gray-300 hover:bg-gray-700 hover:text-gray-100",
-                ),
-                Events.onClick(ValenceShell(SelectCompletion(completion))),
-              },
-              list{text(completion)},
-            )
-          })
-          ->List.fromArray,
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-/// Render the recordings browser tab.
-let renderRecordings = (state: valenceShellState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 overflow-auto p-6")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-4")},
-        list{
-          h3(
-            list{Attrs.class_("text-sm font-medium text-gray-300")},
-            list{text("Session Recordings")},
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "text-xs text-gray-400 hover:text-gray-200 px-3 py-1 rounded bg-gray-800",
-              ),
-              Events.onClick(ValenceShell(LoadRecordings)),
-              KeyboardNav.onActivate(ValenceShell(LoadRecordings)),
-            },
-            list{text("Refresh")},
-          ),
-        },
-      ),
-      if Array.length(state.recordings) === 0 {
-        div(
-          list{Attrs.class_("text-center text-gray-600 text-sm py-8")},
-          list{text("No recordings yet. Start one from the Terminal tab.")},
-        )
-      } else {
-        div(
-          list{Attrs.class_("space-y-2")},
-          state.recordings
-          ->Array.map(recording => {
-            div(
-              list{
-                Attrs.class_(
-                  "flex items-center justify-between bg-gray-900 rounded-lg px-4 py-3 border border-gray-800",
-                ),
-              },
-              list{
-                div(
-                  list{Attrs.class_("flex-1")},
-                  list{
-                    div(
-                      list{Attrs.class_("text-sm text-gray-200 font-medium")},
-                      list{text(recording.name)},
-                    ),
-                    div(
-                      list{Attrs.class_("text-xs text-gray-500 mt-1")},
-                      list{
-                        text(
-                          `${Float.toString(recording.durationSecs)}s | ${Int.toString(
-                              recording.sizeBytes,
-                            )} bytes`,
-                        ),
-                      },
-                    ),
-                  },
-                ),
-                div(
-                  list{Attrs.class_("flex gap-2")},
-                  list{
-                    button(
-                      list{
-                        Attrs.class_(
-                          "text-xs text-gray-400 hover:text-gray-200 px-2 py-1 bg-gray-800 rounded",
-                        ),
-                        Events.onClick(ValenceShell(ExportRecordingAs(recording.id, "html"))),
-                      },
-                      list{text("Export HTML")},
-                    ),
-                    button(
-                      list{
-                        Attrs.class_(
-                          "text-xs text-red-400 hover:text-red-300 px-2 py-1 bg-gray-800 rounded",
-                        ),
-                        Events.onClick(ValenceShell(DeleteRecordingById(recording.id))),
-                      },
-                      list{text("Delete")},
-                    ),
-                  },
-                ),
-              },
-            )
-          })
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render the checkpoints tab.
-let renderCheckpoints = (state: valenceShellState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 overflow-auto p-6")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-4")},
-        list{
-          h3(
-            list{Attrs.class_("text-sm font-medium text-gray-300")},
-            list{text("Valence Filesystem Checkpoints")},
-          ),
-          div(
-            list{Attrs.class_("flex gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    `text-xs px-3 py-1 rounded ${state.valenceAvailable
-                        ? "bg-emerald-800 text-emerald-200 hover:bg-emerald-700"
-                        : "bg-gray-800 text-gray-600 cursor-not-allowed"}`,
-                  ),
-                  Events.onClick(ValenceShell(CreateCheckpointWithLabel("manual"))),
-                },
-                list{text("Create Checkpoint")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "text-xs text-gray-400 hover:text-gray-200 px-3 py-1 rounded bg-gray-800",
-                  ),
-                  Events.onClick(ValenceShell(LoadCheckpoints)),
-                  KeyboardNav.onActivate(ValenceShell(LoadCheckpoints)),
-                },
-                list{text("Refresh")},
-              ),
-            },
-          ),
-        },
-      ),
-      if !state.valenceAvailable {
-        div(
-          list{Attrs.class_("bg-amber-950/30 border border-amber-800/30 rounded-lg p-4 mb-4")},
-          list{
-            div(
-              list{Attrs.class_("text-amber-400 text-sm font-medium mb-1")},
-              list{text("Valence shell not installed")},
-            ),
-            div(
-              list{Attrs.class_("text-amber-500/70 text-xs")},
-              list{
-                text("Checkpoints require the Valence shell binary for reversible filesystem ops."),
-              },
-            ),
-          },
-        )
-      } else {
-        noNode
-      },
-      if Array.length(state.checkpoints) === 0 {
-        div(
-          list{Attrs.class_("text-center text-gray-600 text-sm py-8")},
-          list{text("No checkpoints. Create one to save the current filesystem state.")},
-        )
-      } else {
-        div(
-          list{Attrs.class_("space-y-2")},
-          state.checkpoints
-          ->Array.map(cp => {
-            div(
-              list{
-                Attrs.class_(
-                  "flex items-center justify-between bg-gray-900 rounded-lg px-4 py-3 border border-gray-800",
-                ),
-              },
-              list{
-                div(
-                  list{Attrs.class_("flex-1")},
-                  list{
-                    div(
-                      list{Attrs.class_("text-sm text-gray-200 font-medium")},
-                      list{text(cp.label)},
-                    ),
-                    div(
-                      list{Attrs.class_("text-xs text-gray-500 mt-1")},
-                      list{
-                        text(`${Int.toString(cp.opsSinceCheckpoint)} ops since this checkpoint`),
-                      },
-                    ),
-                  },
-                ),
-                button(
-                  list{
-                    Attrs.class_(
-                      "text-xs text-blue-400 hover:text-blue-300 px-3 py-1 bg-gray-800 rounded",
-                    ),
-                    Events.onClick(ValenceShell(RestoreCheckpointById(cp.id))),
-                  },
-                  list{text("Restore")},
-                ),
-              },
-            )
-          })
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render the command history tab.
-let renderHistory = (state: valenceShellState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 overflow-auto p-6")},
-    list{
-      h3(
-        list{Attrs.class_("text-sm font-medium text-gray-300 mb-4")},
-        list{text("Command History")},
-      ),
-      if Array.length(state.commandHistory) === 0 {
-        div(
-          list{Attrs.class_("text-center text-gray-600 text-sm py-8")},
-          list{text("No commands executed yet.")},
-        )
-      } else {
-        div(
-          list{Attrs.class_("space-y-1")},
-          state.commandHistory
-          ->Array.mapWithIndex((cmd, idx) => {
-            div(
-              list{
-                Attrs.class_(
-                  "flex items-center gap-3 font-mono text-sm px-3 py-1.5 rounded hover:bg-gray-900",
-                ),
-              },
-              list{
-                span(
-                  list{Attrs.class_("text-gray-600 w-8 text-right")},
-                  list{text(Int.toString(idx + 1))},
-                ),
-                span(list{Attrs.class_("text-gray-300 flex-1")}, list{text(cmd)}),
-              },
-            )
-          })
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render the settings tab.
-let renderSettings = (state: valenceShellState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 overflow-auto p-6 space-y-6")},
-    list{
-      // Shell backend section
-      div(
-        list{Attrs.class_("space-y-2")},
-        list{
-          h3(list{Attrs.class_("text-sm font-medium text-gray-300")}, list{text("Shell Backend")}),
-          div(
-            list{Attrs.class_("flex items-center gap-3 bg-gray-900 rounded-lg px-4 py-3")},
-            list{
-              div(
-                list{
-                  Attrs.class_(
-                    `w-2 h-2 rounded-full ${state.valenceAvailable
-                        ? "bg-emerald-400"
-                        : "bg-gray-600"}`,
-                  ),
-                },
-                list{},
-              ),
-              div(
-                list{},
-                list{
-                  div(
-                    list{Attrs.class_("text-sm text-gray-200")},
-                    list{text(ValenceShellEngine.backendLabel(state.backend))},
-                  ),
-                  div(
-                    list{Attrs.class_("text-xs text-gray-500 mt-0.5")},
-                    list{
-                      text(
-                        state.valenceAvailable
-                          ? "Valence shell provides formally verified reversible filesystem operations."
-                          : "Install valence-shell for reversible ops, MAA audit trail, and checkpoints.",
-                      ),
-                    },
-                  ),
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Approval gate section
-      div(
-        list{Attrs.class_("space-y-2")},
-        list{
-          h3(
-            list{Attrs.class_("text-sm font-medium text-gray-300")},
-            list{text("Approval Gate (Collaborative Mode)")},
-          ),
-          div(
-            list{Attrs.class_("text-xs text-gray-500 mb-2")},
-            list{
-              text(
-                "When enabled, commands must be approved before execution. Ideal for parent-child collaborative sessions.",
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    `px-3 py-1.5 text-xs rounded ${state.approvalGate === GateDisabled
-                        ? "bg-gray-700 text-gray-200"
-                        : "bg-gray-900 text-gray-500"}`,
-                  ),
-                  Events.onClick(ValenceShell(SetApprovalGate(GateDisabled))),
-                },
-                list{text("Disabled")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    `px-3 py-1.5 text-xs rounded ${state.approvalGate === GateEnabled
-                        ? "bg-amber-800 text-amber-200"
-                        : "bg-gray-900 text-gray-500"}`,
-                  ),
-                  Events.onClick(ValenceShell(SetApprovalGate(GateEnabled))),
-                },
-                list{text("Enabled")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    `px-3 py-1.5 text-xs rounded ${state.approvalGate === GateLearning
-                        ? "bg-blue-800 text-blue-200"
-                        : "bg-gray-900 text-gray-500"}`,
-                  ),
-                  Events.onClick(ValenceShell(SetApprovalGate(GateLearning))),
-                },
-                list{text("Learning")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Split view section
-      div(
-        list{Attrs.class_("flex items-center justify-between bg-gray-900 rounded-lg px-4 py-3")},
-        list{
-          div(
-            list{},
-            list{
-              div(list{Attrs.class_("text-sm text-gray-200")}, list{text("Split View")}),
-              div(
-                list{Attrs.class_("text-xs text-gray-500 mt-0.5")},
-                list{text("Show two terminal instances side by side.")},
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_(
-                `px-3 py-1.5 text-xs rounded ${state.splitView
-                    ? "bg-emerald-800 text-emerald-200"
-                    : "bg-gray-800 text-gray-500"}`,
-              ),
-              Events.onClick(ValenceShell(ToggleSplitView)),
-              KeyboardNav.onActivate(ValenceShell(ToggleSplitView)),
-            },
-            list{text(state.splitView ? "On" : "Off")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// =========================================================================
-// Main view
-// =========================================================================
-
-/// Render the Valence Shell panel as a full-screen overlay.
-let view = (state: valenceShellState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/98 z-40 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Valence Shell — embedded terminal with Claude Code integration"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              // Terminal icon placeholder (text-based for now)
-              div(
-                list{
-                  Attrs.class_("w-6 h-6 rounded bg-emerald-900 flex items-center justify-center"),
-                },
-                list{
-                  span(list{Attrs.class_("text-emerald-400 text-xs font-bold")}, list{text(">_")}),
-                },
-              ),
-              div(
-                list{},
-                list{
-                  h2(
-                    list{Attrs.class_("text-lg font-medium text-gray-200")},
-                    list{text("Valence Shell")},
-                  ),
-                  div(
-                    list{Attrs.class_("text-xs text-gray-500")},
-                    list{text("Embedded terminal with Claude Code integration")},
-                  ),
-                },
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              // Claude Code quick-launch button
-              if !state.claudeCodeActive {
-                button(
-                  list{
-                    Attrs.class_(
-                      "text-xs px-3 py-1.5 rounded bg-purple-900 text-purple-200 hover:bg-purple-800",
-                    ),
-                    Events.onClick(ValenceShell(LaunchClaudeCode)),
-                    KeyboardNav.onActivate(ValenceShell(LaunchClaudeCode)),
-                  },
-                  list{text("Launch Claude")},
-                )
-              } else {
-                noNode
-              },
-              // Close button
-              button(
-                list{
-                  Attrs.class_(
-                    "text-gray-500 hover:text-gray-300 px-3 py-1.5 text-sm rounded bg-gray-800 hover:bg-gray-700",
-                  ),
-                  Events.onClick(PanelSwitcher(ClosePanels)),
-                  KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-                },
-                list{text("Close")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{Attrs.class_("px-4 py-2 bg-red-950 border-b border-red-900")},
-          list{
-            div(
-              list{Attrs.class_("flex items-center justify-between")},
-              list{
-                span(list{Attrs.class_("text-red-400 text-sm")}, list{text(err)}),
-                button(
-                  list{
-                    Attrs.class_("text-red-500 hover:text-red-400 text-xs"),
-                    Events.onClick(ValenceShell(DismissError)),
-                    KeyboardNav.onActivate(ValenceShell(DismissError)),
-                  },
-                  list{text("Dismiss")},
-                ),
-              },
-            ),
-          },
-        )
-      | None => noNode
-      },
-      // Tab bar
-      renderTabs(state.activeCategory),
-      // Content area — switches on active category
-      switch state.activeCategory {
-      | ShellTerminal => renderTerminal(state)
-      | ShellRecordings => renderRecordings(state)
-      | ShellCheckpoints => renderCheckpoints(state)
-      | ShellHistory => renderHistory(state)
-      | ShellSettings => renderSettings(state)
-      },
-    },
-  )
-}
diff --git a/src/components/VerificationDashboard.affine b/src/components/VerificationDashboard.affine
new file mode 100644
index 00000000..a466706b
--- /dev/null
+++ b/src/components/VerificationDashboard.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VerificationDashboard;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/VerificationDashboard.res b/src/components/VerificationDashboard.res
deleted file mode 100644
index 42c8fbbc..00000000
--- a/src/components/VerificationDashboard.res
+++ /dev/null
@@ -1,731 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL VerificationDashboard Component — proof/test/benchmark status panel.
-///
-/// Five tabs: Summary, By Language, Proofs, Benchmarks, Fuzzing.
-/// Shows aggregated and per-language verification status across all
-/// nextgen-languages repos.
-
-open Model
-open Msg
-open Tea.Html
-
-// ============================================================================
-// Shared sub-views
-// ============================================================================
-
-/// Render category tabs.
-let renderTabs = (active: verificationDashboardCategory): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 mb-4"), Attrs.role("tablist")},
-    VerificationDashboardEngine.allCategories
-    ->Array.map(tab => {
-      let isActive = tab === active
-      button(
-        list{
-          Attrs.class_(
-            `px-4 py-2 text-sm rounded-t transition-colors ${isActive
-                ? "bg-gray-800 text-gray-200 border-b-2 border-violet-500"
-                : "text-gray-500 hover:text-gray-300"}`,
-          ),
-          Attrs.role("tab"),
-          Attrs.ariaSelected(isActive),
-          Events.onClick(VerificationDashboard(SetVdCategory(tab))),
-        },
-        list{text(VerificationDashboardEngine.categoryLabel(tab))},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Render a summary stat card.
-let renderStatCard = (label: string, value: string, colour: string): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("bg-gray-900 border border-gray-700 rounded-lg p-3 text-center")},
-    list{
-      div(list{Attrs.class_(`text-2xl font-mono ${colour}`)}, list{text(value)}),
-      div(list{Attrs.class_("text-[10px] text-gray-500")}, list{text(label)}),
-    },
-  )
-}
-
-/// Render a proof system badge.
-let renderProofBadge = (ps: VerificationDashboardModel.proofSystem): Tea_Vdom.t<msg> => {
-  span(
-    list{
-      Attrs.class_(
-        `px-1.5 py-0.5 text-[10px] rounded ${VerificationDashboardEngine.proofSystemColour(ps)}`,
-      ),
-    },
-    list{text(VerificationDashboardEngine.proofSystemCode(ps))},
-  )
-}
-
-/// Render a language verification row.
-let renderLanguageRow = (status: VerificationDashboardModel.languageVerificationStatus): Tea_Vdom.t<
-  msg,
-> => {
-  let rate = VerificationDashboardEngine.passRate(status)
-  div(
-    list{
-      Attrs.class_(
-        "flex items-center gap-3 p-2 border-b border-gray-800 hover:bg-gray-900/50 text-xs",
-      ),
-      Events.onClick(VerificationDashboard(SelectVdLanguage(Some(status.name)))),
-    },
-    list{
-      div(list{Attrs.class_("w-28 text-gray-200 font-medium")}, list{text(status.name)}),
-      div(
-        list{Attrs.class_("w-16 text-right text-gray-300 font-mono")},
-        list{text(Int.toString(status.totalTests))},
-      ),
-      div(
-        list{Attrs.class_("w-16 text-right text-emerald-400 font-mono")},
-        list{text(Int.toString(status.passingTests))},
-      ),
-      div(
-        list{Attrs.class_("w-16 text-right text-red-400 font-mono")},
-        list{text(Int.toString(status.failingTests))},
-      ),
-      div(
-        list{
-          Attrs.class_(
-            `w-14 text-right font-mono ${VerificationDashboardEngine.passRateColour(rate)}`,
-          ),
-        },
-        list{text(Int.toString(rate) ++ "%")},
-      ),
-      div(
-        list{
-          Attrs.class_(
-            `w-14 text-right font-mono ${VerificationDashboardEngine.admittedColour(
-                status.admittedCount,
-              )}`,
-          ),
-        },
-        list{text(Int.toString(status.admittedCount))},
-      ),
-      div(
-        list{Attrs.class_("w-14 text-right text-violet-400 font-mono")},
-        list{text(Int.toString(status.provedCount))},
-      ),
-      div(
-        list{Attrs.class_("w-20 flex gap-0.5")},
-        status.proofSystems->Array.map(renderProofBadge)->List.fromArray,
-      ),
-      div(
-        list{
-          Attrs.class_(
-            `w-16 text-center ${VerificationDashboardEngine.conformanceColour(status.conformance)}`,
-          ),
-        },
-        list{text(VerificationDashboardEngine.conformanceLabel(status.conformance))},
-      ),
-      div(
-        list{Attrs.class_("w-10 text-center text-gray-500")},
-        list{
-          text(
-            if status.fuzzing !== None {
-              "Yes"
-            } else {
-              "-"
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ============================================================================
-// Main View
-// ============================================================================
-
-/// Main view for the VerificationDashboard panel.
-let view = (vd: verificationDashboardState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("VerificationDashboard panel"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between p-4 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-medium text-gray-200")},
-                list{text("Verification Dashboard")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{text("Proof / Test / Benchmark Status")},
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              input(
-                list{
-                  Attrs.class_(
-                    "bg-gray-900 border border-gray-700 rounded px-3 py-1 text-sm text-gray-200 placeholder-gray-600 w-48",
-                  ),
-                  Attrs.placeholder("Filter languages..."),
-                  Attrs.value(vd.filterText),
-                  Events.onInput(v => VerificationDashboard(SetVdFilter(v))),
-                },
-                list{},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    `px-3 py-1 text-xs rounded ${vd.showDebtOnly
-                        ? "bg-amber-600 text-white"
-                        : "bg-gray-800 text-gray-400"}`,
-                  ),
-                  Events.onClick(VerificationDashboard(ToggleDebtOnly)),
-                  KeyboardNav.onActivate(VerificationDashboard(ToggleDebtOnly)),
-                },
-                list{text("Debt Only")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 text-sm bg-gray-800 text-gray-300 rounded hover:bg-gray-700",
-                  ),
-                  Events.onClick(PanelSwitcher(ClosePanels)),
-                  KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-                },
-                list{text("Close")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Content
-      div(
-        list{Attrs.class_("flex-1 overflow-auto p-6")},
-        list{
-          renderTabs(vd.activeCategory),
-          {
-            let data = VerificationDashboardEngine.allLanguageStatuses
-            let filtered = {
-              let searched = VerificationDashboardEngine.filterBySearch(data, vd.filterText)
-              if vd.showDebtOnly {
-                VerificationDashboardEngine.filterDebtOnly(searched)
-              } else {
-                searched
-              }
-            }
-            let sorted = VerificationDashboardEngine.sortLanguages(filtered, vd.sortBy)
-            switch vd.activeCategory {
-            // ── Summary Tab ──
-            | VdSummary => {
-                let summary = VerificationDashboardEngine.computeSummary(data)
-                div(
-                  list{Attrs.class_("space-y-6")},
-                  list{
-                    // Stats grid
-                    div(
-                      list{Attrs.class_("grid grid-cols-4 gap-3")},
-                      list{
-                        renderStatCard(
-                          "Languages",
-                          Int.toString(summary.totalLanguages),
-                          "text-teal-400",
-                        ),
-                        renderStatCard(
-                          "Total Tests",
-                          Int.toString(summary.totalTests),
-                          "text-cyan-400",
-                        ),
-                        renderStatCard(
-                          "Passing",
-                          Int.toString(summary.totalPassing),
-                          "text-emerald-400",
-                        ),
-                        renderStatCard(
-                          "Failing",
-                          Int.toString(summary.totalFailing),
-                          if summary.totalFailing > 0 {
-                            "text-red-400"
-                          } else {
-                            "text-emerald-400"
-                          },
-                        ),
-                      },
-                    ),
-                    div(
-                      list{Attrs.class_("grid grid-cols-4 gap-3")},
-                      list{
-                        renderStatCard(
-                          "Avg Pass Rate",
-                          Int.toString(summary.avgPassRate) ++ "%",
-                          VerificationDashboardEngine.passRateColour(summary.avgPassRate),
-                        ),
-                        renderStatCard(
-                          "Proved",
-                          Int.toString(summary.totalProved),
-                          "text-violet-400",
-                        ),
-                        renderStatCard(
-                          "Admitted/Sorry",
-                          Int.toString(summary.totalAdmitted),
-                          VerificationDashboardEngine.admittedColour(summary.totalAdmitted),
-                        ),
-                        renderStatCard(
-                          "Full Conformance",
-                          Int.toString(summary.languagesFullConformance) ++
-                          "/" ++
-                          Int.toString(summary.totalLanguages),
-                          "text-emerald-400",
-                        ),
-                      },
-                    ),
-                    div(
-                      list{Attrs.class_("grid grid-cols-2 gap-3")},
-                      list{
-                        renderStatCard(
-                          "With Fuzzing",
-                          Int.toString(summary.languagesWithFuzzing),
-                          "text-amber-400",
-                        ),
-                        renderStatCard(
-                          "Formal Proofs",
-                          Int.toString(summary.totalProved) ++
-                          " proved, " ++
-                          Int.toString(summary.totalAdmitted) ++ " admitted",
-                          "text-violet-400",
-                        ),
-                      },
-                    ),
-                  },
-                )
-              }
-            // ── By Language Tab ──
-            | VdByLanguage =>
-              div(
-                list{Attrs.class_("space-y-4")},
-                list{
-                  // Sort controls
-                  div(
-                    list{Attrs.class_("flex gap-2 items-center mb-2")},
-                    list{
-                      span(list{Attrs.class_("text-xs text-gray-500")}, list{text("Sort by:")}),
-                      button(
-                        list{
-                          Attrs.class_(
-                            `px-2 py-1 text-xs rounded ${vd.sortBy === VdSortByName
-                                ? "bg-violet-600 text-white"
-                                : "bg-gray-800 text-gray-400"}`,
-                          ),
-                          Events.onClick(VerificationDashboard(SetVdSort(VdSortByName))),
-                        },
-                        list{text("Name")},
-                      ),
-                      button(
-                        list{
-                          Attrs.class_(
-                            `px-2 py-1 text-xs rounded ${vd.sortBy === VdSortByTests
-                                ? "bg-violet-600 text-white"
-                                : "bg-gray-800 text-gray-400"}`,
-                          ),
-                          Events.onClick(VerificationDashboard(SetVdSort(VdSortByTests))),
-                        },
-                        list{text("Tests")},
-                      ),
-                      button(
-                        list{
-                          Attrs.class_(
-                            `px-2 py-1 text-xs rounded ${vd.sortBy === VdSortByPassRate
-                                ? "bg-violet-600 text-white"
-                                : "bg-gray-800 text-gray-400"}`,
-                          ),
-                          Events.onClick(VerificationDashboard(SetVdSort(VdSortByPassRate))),
-                        },
-                        list{text("Pass Rate")},
-                      ),
-                      button(
-                        list{
-                          Attrs.class_(
-                            `px-2 py-1 text-xs rounded ${vd.sortBy === VdSortByAdmitted
-                                ? "bg-violet-600 text-white"
-                                : "bg-gray-800 text-gray-400"}`,
-                          ),
-                          Events.onClick(VerificationDashboard(SetVdSort(VdSortByAdmitted))),
-                        },
-                        list{text("Admitted")},
-                      ),
-                    },
-                  ),
-                  // Table
-                  div(
-                    list{Attrs.class_("border border-gray-700 rounded-lg overflow-hidden")},
-                    list{
-                      // Header
-                      div(
-                        list{
-                          Attrs.class_(
-                            "flex items-center gap-3 p-2 bg-gray-800/50 border-b border-gray-700 text-[10px] text-gray-500 uppercase tracking-wide",
-                          ),
-                        },
-                        list{
-                          div(list{Attrs.class_("w-28")}, list{text("Language")}),
-                          div(list{Attrs.class_("w-16 text-right")}, list{text("Total")}),
-                          div(list{Attrs.class_("w-16 text-right")}, list{text("Pass")}),
-                          div(list{Attrs.class_("w-16 text-right")}, list{text("Fail")}),
-                          div(list{Attrs.class_("w-14 text-right")}, list{text("Rate")}),
-                          div(list{Attrs.class_("w-14 text-right")}, list{text("Admit")}),
-                          div(list{Attrs.class_("w-14 text-right")}, list{text("Proved")}),
-                          div(list{Attrs.class_("w-20")}, list{text("Provers")}),
-                          div(list{Attrs.class_("w-16 text-center")}, list{text("Conf")}),
-                          div(list{Attrs.class_("w-10 text-center")}, list{text("Fuzz")}),
-                        },
-                      ),
-                      div(
-                        list{Attrs.class_("max-h-96 overflow-y-auto")},
-                        sorted->Array.map(renderLanguageRow)->List.fromArray,
-                      ),
-                    },
-                  ),
-                },
-              )
-            // ── Proofs Tab ──
-            | VdProofs => {
-                let withProofs = data->Array.filter(s => s.provedCount > 0 || s.admittedCount > 0)
-                div(
-                  list{Attrs.class_("space-y-4")},
-                  list{
-                    div(
-                      list{Attrs.class_("text-sm text-gray-400 mb-2")},
-                      list{
-                        text(
-                          "Formal verification status — proofs discharged vs admitted/sorry across all languages.",
-                        ),
-                      },
-                    ),
-                    div(
-                      list{Attrs.class_("border border-gray-700 rounded-lg overflow-hidden")},
-                      list{
-                        div(
-                          list{
-                            Attrs.class_(
-                              "flex items-center gap-3 p-2 bg-gray-800/50 border-b border-gray-700 text-[10px] text-gray-500 uppercase tracking-wide",
-                            ),
-                          },
-                          list{
-                            div(list{Attrs.class_("w-28")}, list{text("Language")}),
-                            div(list{Attrs.class_("w-20 text-right")}, list{text("Proved")}),
-                            div(list{Attrs.class_("w-20 text-right")}, list{text("Admitted")}),
-                            div(list{Attrs.class_("w-24")}, list{text("Systems")}),
-                            div(list{Attrs.class_("flex-1")}, list{text("Status")}),
-                          },
-                        ),
-                        div(
-                          list{Attrs.class_("max-h-96 overflow-y-auto")},
-                          withProofs
-                          ->Array.map(s => {
-                            let status = if s.admittedCount === 0 {
-                              "Clean — all proofs discharged"
-                            } else {
-                              Int.toString(
-                                s.admittedCount,
-                              ) ++ " admitted — formal verification debt"
-                            }
-                            div(
-                              list{
-                                Attrs.class_(
-                                  "flex items-center gap-3 p-2 border-b border-gray-800 text-xs",
-                                ),
-                              },
-                              list{
-                                div(
-                                  list{Attrs.class_("w-28 text-gray-200 font-medium")},
-                                  list{text(s.name)},
-                                ),
-                                div(
-                                  list{Attrs.class_("w-20 text-right text-violet-400 font-mono")},
-                                  list{text(Int.toString(s.provedCount))},
-                                ),
-                                div(
-                                  list{
-                                    Attrs.class_(
-                                      `w-20 text-right font-mono ${VerificationDashboardEngine.admittedColour(
-                                          s.admittedCount,
-                                        )}`,
-                                    ),
-                                  },
-                                  list{text(Int.toString(s.admittedCount))},
-                                ),
-                                div(
-                                  list{Attrs.class_("w-24 flex gap-0.5")},
-                                  s.proofSystems->Array.map(renderProofBadge)->List.fromArray,
-                                ),
-                                div(
-                                  list{
-                                    Attrs.class_(
-                                      `flex-1 ${if s.admittedCount === 0 {
-                                          "text-emerald-400"
-                                        } else {
-                                          "text-amber-400"
-                                        }}`,
-                                    ),
-                                  },
-                                  list{text(status)},
-                                ),
-                              },
-                            )
-                          })
-                          ->List.fromArray,
-                        ),
-                      },
-                    ),
-                    if Array.length(withProofs) === 0 {
-                      div(
-                        list{Attrs.class_("text-center text-gray-500 mt-8")},
-                        list{text("No languages have formal proofs yet.")},
-                      )
-                    } else {
-                      noNode
-                    },
-                  },
-                )
-              }
-            // ── Benchmarks Tab ──
-            | VdBenchmarks => {
-                let benchmarks = VerificationDashboardEngine.allBenchmarks()
-                div(
-                  list{Attrs.class_("space-y-4")},
-                  list{
-                    div(
-                      list{Attrs.class_("text-sm text-gray-400 mb-2")},
-                      list{
-                        text("Performance benchmark results across all language implementations."),
-                      },
-                    ),
-                    if Array.length(benchmarks) === 0 {
-                      div(
-                        list{Attrs.class_("text-center text-gray-500 mt-8")},
-                        list{text("No benchmark results available.")},
-                      )
-                    } else {
-                      div(
-                        list{Attrs.class_("border border-gray-700 rounded-lg overflow-hidden")},
-                        list{
-                          div(
-                            list{
-                              Attrs.class_(
-                                "flex items-center gap-3 p-2 bg-gray-800/50 border-b border-gray-700 text-[10px] text-gray-500 uppercase tracking-wide",
-                              ),
-                            },
-                            list{
-                              div(list{Attrs.class_("w-28")}, list{text("Language")}),
-                              div(list{Attrs.class_("w-40")}, list{text("Benchmark")}),
-                              div(list{Attrs.class_("w-24 text-right")}, list{text("Mean (ms)")}),
-                              div(list{Attrs.class_("w-24 text-right")}, list{text("StdDev")}),
-                              div(list{Attrs.class_("w-20 text-right")}, list{text("Iters")}),
-                              div(list{Attrs.class_("w-16 text-center")}, list{text("Regr?")}),
-                            },
-                          ),
-                          div(
-                            list{Attrs.class_("max-h-96 overflow-y-auto")},
-                            benchmarks
-                            ->Array.map(b =>
-                              div(
-                                list{
-                                  Attrs.class_(
-                                    "flex items-center gap-3 p-2 border-b border-gray-800 text-xs",
-                                  ),
-                                },
-                                list{
-                                  div(
-                                    list{Attrs.class_("w-28 text-gray-200 font-medium")},
-                                    list{text(b.language)},
-                                  ),
-                                  div(
-                                    list{Attrs.class_("w-40 text-gray-300 font-mono")},
-                                    list{text(b.name)},
-                                  ),
-                                  div(
-                                    list{Attrs.class_("w-24 text-right text-cyan-400 font-mono")},
-                                    list{text(Float.toFixed(b.meanMs, ~digits=1))},
-                                  ),
-                                  div(
-                                    list{Attrs.class_("w-24 text-right text-gray-500 font-mono")},
-                                    list{text(Float.toFixed(b.stddevMs, ~digits=1))},
-                                  ),
-                                  div(
-                                    list{Attrs.class_("w-20 text-right text-gray-400 font-mono")},
-                                    list{text(Int.toString(b.iterations))},
-                                  ),
-                                  div(
-                                    list{
-                                      Attrs.class_(
-                                        `w-16 text-center ${if b.regression {
-                                            "text-red-400"
-                                          } else {
-                                            "text-gray-600"
-                                          }}`,
-                                      ),
-                                    },
-                                    list{
-                                      text(
-                                        if b.regression {
-                                          "Yes"
-                                        } else {
-                                          "-"
-                                        },
-                                      ),
-                                    },
-                                  ),
-                                },
-                              )
-                            )
-                            ->List.fromArray,
-                          ),
-                        },
-                      )
-                    },
-                  },
-                )
-              }
-            // ── Fuzzing Tab ──
-            | VdFuzzing => {
-                let fuzzData = VerificationDashboardEngine.allFuzzingCoverage()
-                div(
-                  list{Attrs.class_("space-y-4")},
-                  list{
-                    div(
-                      list{Attrs.class_("text-sm text-gray-400 mb-2")},
-                      list{
-                        text(
-                          "Fuzzing coverage across language implementations. Only languages with active fuzz targets are shown.",
-                        ),
-                      },
-                    ),
-                    if Array.length(fuzzData) === 0 {
-                      div(
-                        list{Attrs.class_("text-center text-gray-500 mt-8")},
-                        list{text("No fuzzing coverage data available.")},
-                      )
-                    } else {
-                      div(
-                        list{Attrs.class_("border border-gray-700 rounded-lg overflow-hidden")},
-                        list{
-                          div(
-                            list{
-                              Attrs.class_(
-                                "flex items-center gap-3 p-2 bg-gray-800/50 border-b border-gray-700 text-[10px] text-gray-500 uppercase tracking-wide",
-                              ),
-                            },
-                            list{
-                              div(list{Attrs.class_("w-28")}, list{text("Language")}),
-                              div(list{Attrs.class_("w-16 text-right")}, list{text("Targets")}),
-                              div(
-                                list{Attrs.class_("w-24 text-right")},
-                                list{text("Lines Covered")},
-                              ),
-                              div(list{Attrs.class_("w-24 text-right")}, list{text("Total Lines")}),
-                              div(list{Attrs.class_("w-16 text-right")}, list{text("Cover%")}),
-                              div(list{Attrs.class_("w-16 text-right")}, list{text("Crashes")}),
-                              div(list{Attrs.class_("w-20 text-right")}, list{text("Hours")}),
-                            },
-                          ),
-                          div(
-                            list{Attrs.class_("max-h-96 overflow-y-auto")},
-                            fuzzData
-                            ->Array.map(f => {
-                              let coverPct = if f.totalLines > 0 {
-                                f.linesCovered * 100 / f.totalLines
-                              } else {
-                                0
-                              }
-                              div(
-                                list{
-                                  Attrs.class_(
-                                    "flex items-center gap-3 p-2 border-b border-gray-800 text-xs",
-                                  ),
-                                },
-                                list{
-                                  div(
-                                    list{Attrs.class_("w-28 text-gray-200 font-medium")},
-                                    list{text(f.language)},
-                                  ),
-                                  div(
-                                    list{Attrs.class_("w-16 text-right text-gray-300 font-mono")},
-                                    list{text(Int.toString(f.targets))},
-                                  ),
-                                  div(
-                                    list{
-                                      Attrs.class_("w-24 text-right text-emerald-400 font-mono"),
-                                    },
-                                    list{text(Int.toString(f.linesCovered))},
-                                  ),
-                                  div(
-                                    list{Attrs.class_("w-24 text-right text-gray-400 font-mono")},
-                                    list{text(Int.toString(f.totalLines))},
-                                  ),
-                                  div(
-                                    list{
-                                      Attrs.class_(
-                                        `w-16 text-right font-mono ${VerificationDashboardEngine.passRateColour(
-                                            coverPct,
-                                          )}`,
-                                      ),
-                                    },
-                                    list{text(Int.toString(coverPct) ++ "%")},
-                                  ),
-                                  div(
-                                    list{
-                                      Attrs.class_(
-                                        `w-16 text-right font-mono ${if f.crashesFound > 0 {
-                                            "text-red-400"
-                                          } else {
-                                            "text-emerald-400"
-                                          }}`,
-                                      ),
-                                    },
-                                    list{text(Int.toString(f.crashesFound))},
-                                  ),
-                                  div(
-                                    list{Attrs.class_("w-20 text-right text-gray-400 font-mono")},
-                                    list{text(Float.toFixed(f.fuzzHours, ~digits=1))},
-                                  ),
-                                },
-                              )
-                            })
-                            ->List.fromArray,
-                          ),
-                        },
-                      )
-                    },
-                  },
-                )
-              }
-            }
-          },
-          // Error display
-          switch vd.error {
-          | Some(e) =>
-            div(
-              list{
-                Attrs.class_(
-                  "mt-4 p-3 bg-red-900/30 border border-red-700 rounded text-sm text-red-300",
-                ),
-                Attrs.role("alert"),
-              },
-              list{text(e)},
-            )
-          | None => noNode
-          },
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/VerisimdbFeeds.affine b/src/components/VerisimdbFeeds.affine
new file mode 100644
index 00000000..a52a07b7
--- /dev/null
+++ b/src/components/VerisimdbFeeds.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VerisimdbFeeds;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/VerisimdbFeeds.res b/src/components/VerisimdbFeeds.res
deleted file mode 100644
index ee0ef10b..00000000
--- a/src/components/VerisimdbFeeds.res
+++ /dev/null
@@ -1,263 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL VeriSimDB Feeds Component — cross-repo analytics health and flow.
-///
-/// Two-column layout: left sidebar with feed list, right content with
-/// detail view showing feed health, record count, and throughput.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a feed health badge.
-let healthBadge = (health: feedHealth): Tea_Vdom.t<msg> => {
-  let (color, label) = switch health {
-  | FeedHealthy => ("text-green-400", "Healthy")
-  | FeedStale => ("text-amber-400", "Stale")
-  | FeedError(reason) => ("text-red-400", "Error: " ++ reason)
-  | FeedUnknown => ("text-gray-500", "Unknown")
-  }
-  span(list{Attrs.class_("text-xs font-mono " ++ color)}, list{text(label)})
-}
-
-/// Render a feed row in the sidebar.
-let feedRow = (feed: dataFeed, selected: bool): Tea_Vdom.t<msg> => {
-  button(
-    list{
-      Attrs.class_(
-        "w-full text-left px-3 py-2 border-b border-gray-800 hover:bg-gray-800/60 transition-colors " ++ if (
-          selected
-        ) {
-          "bg-gray-800/80 border-l-2 border-l-blue-500"
-        } else {
-          ""
-        },
-      ),
-      Events.onClick(VerisimdbFeeds(SelectFeed(feed.feedId))),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between")},
-        list{
-          span(list{Attrs.class_("text-sm text-gray-200 truncate")}, list{text(feed.name)}),
-          healthBadge(feed.health),
-        },
-      ),
-      div(
-        list{Attrs.class_("text-xs text-gray-500 mt-0.5")},
-        list{text(`${Int.toString(feed.recordCount)} records`)},
-      ),
-    },
-  )
-}
-
-/// Render a tab button.
-let tabBtn = (current: verisimdbFeedsTab, target: verisimdbFeedsTab, label: string): Tea_Vdom.t<
-  msg,
-> => {
-  let active = current == target
-  button(
-    list{
-      Attrs.class_(
-        "px-3 py-1 text-xs rounded " ++ if active {
-          "bg-blue-600 text-white"
-        } else {
-          "bg-gray-800 text-gray-400 hover:bg-gray-700"
-        },
-      ),
-      Events.onClick(VerisimdbFeeds(SetTab(target))),
-      Attrs.role("tab"),
-      Attrs.ariaSelected(active),
-    },
-    list{text(label)},
-  )
-}
-
-/// Main view function for the VeriSimDB Feeds panel.
-let view = (state: verisimdbFeedsState): Tea_Vdom.t<msg> => {
-  let healthy = VerisimdbFeedsEngine.healthyFeedCount(state.feeds)
-  let total = Array.length(state.feeds)
-
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("VeriSimDB Feeds — Data Feed Health and Flow"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-bold text-cyan-300")},
-                list{text("VeriSimDB Feeds")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{text(`${Int.toString(healthy)}/${Int.toString(total)} healthy`)},
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_("px-3 py-1 text-xs rounded bg-green-700 text-white hover:bg-green-600"),
-              Events.onClick(VerisimdbFeeds(CheckFeeds)),
-              KeyboardNav.onActivate(VerisimdbFeeds(CheckFeeds)),
-            },
-            list{
-              text(
-                if state.checking {
-                  "Checking..."
-                } else {
-                  "Check Health"
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Tabs
-      div(
-        list{Attrs.class_("flex gap-1 px-4 py-2 border-b border-gray-800"), Attrs.role("tablist")},
-        VerisimdbFeedsEngine.allTabs
-        ->Array.map(t => tabBtn(state.activeTab, t, VerisimdbFeedsEngine.tabLabel(t)))
-        ->List.fromArray,
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 px-3 py-2 bg-red-900/50 border border-red-700 rounded text-sm text-red-200",
-            ),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      // Two-column layout
-      div(
-        list{Attrs.class_("flex flex-1 overflow-hidden")},
-        list{
-          // Left sidebar
-          div(
-            list{Attrs.class_("w-64 border-r border-gray-800 overflow-y-auto")},
-            state.feeds
-            ->Array.map(f => feedRow(f, state.selectedFeed == Some(f.feedId)))
-            ->List.fromArray,
-          ),
-          // Right content
-          div(
-            list{Attrs.class_("flex-1 overflow-y-auto px-4 py-2")},
-            list{
-              switch state.selectedFeed {
-              | None =>
-                div(
-                  list{Attrs.class_("flex items-center justify-center h-full text-gray-600")},
-                  list{text("Select a feed to view details")},
-                )
-              | Some(feedId) =>
-                switch state.feeds->Array.find(f => f.feedId == feedId) {
-                | None => div(list{}, list{text("Feed not found")})
-                | Some(feed) =>
-                  div(
-                    list{},
-                    list{
-                      h3(
-                        list{Attrs.class_("text-md font-semibold text-gray-200 mb-3")},
-                        list{text(feed.name)},
-                      ),
-                      div(
-                        list{Attrs.class_("space-y-2")},
-                        list{
-                          div(
-                            list{Attrs.class_("flex items-center gap-2")},
-                            list{
-                              span(
-                                list{Attrs.class_("text-xs text-gray-500 w-28")},
-                                list{text("Source:")},
-                              ),
-                              span(
-                                list{Attrs.class_("text-xs text-gray-300")},
-                                list{text(feed.source)},
-                              ),
-                            },
-                          ),
-                          div(
-                            list{Attrs.class_("flex items-center gap-2")},
-                            list{
-                              span(
-                                list{Attrs.class_("text-xs text-gray-500 w-28")},
-                                list{text("Health:")},
-                              ),
-                              healthBadge(feed.health),
-                            },
-                          ),
-                          div(
-                            list{Attrs.class_("flex items-center gap-2")},
-                            list{
-                              span(
-                                list{Attrs.class_("text-xs text-gray-500 w-28")},
-                                list{text("Records:")},
-                              ),
-                              span(
-                                list{Attrs.class_("text-xs text-gray-300")},
-                                list{text(Int.toString(feed.recordCount))},
-                              ),
-                            },
-                          ),
-                          div(
-                            list{Attrs.class_("flex items-center gap-2")},
-                            list{
-                              span(
-                                list{Attrs.class_("text-xs text-gray-500 w-28")},
-                                list{text("Throughput:")},
-                              ),
-                              span(
-                                list{Attrs.class_("text-xs text-gray-300")},
-                                list{text(`${Float.toFixed(feed.throughput, ~digits=1)} rec/day`)},
-                              ),
-                            },
-                          ),
-                          div(
-                            list{Attrs.class_("flex items-center gap-2")},
-                            list{
-                              span(
-                                list{Attrs.class_("text-xs text-gray-500 w-28")},
-                                list{text("Last Update:")},
-                              ),
-                              span(
-                                list{Attrs.class_("text-xs text-gray-300 font-mono")},
-                                list{text(feed.lastUpdate)},
-                              ),
-                            },
-                          ),
-                        },
-                      ),
-                    },
-                  )
-                }
-              },
-            },
-          ),
-        },
-      ),
-      // Footer
-      div(
-        list{Attrs.class_("px-4 py-2 border-t border-gray-800 text-xs text-gray-500")},
-        list{
-          text(
-            `${Int.toString(
-                VerisimdbFeedsEngine.totalRecords(state.feeds),
-              )} total records across all feeds`,
-          ),
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/Vexometer.affine b/src/components/Vexometer.affine
new file mode 100644
index 00000000..ff5f7ba0
--- /dev/null
+++ b/src/components/Vexometer.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Vexometer;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Vexometer.res b/src/components/Vexometer.res
deleted file mode 100644
index e1dd27f4..00000000
--- a/src/components/Vexometer.res
+++ /dev/null
@@ -1,220 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Vexometer Component
-///
-/// Measures and displays the "Friction of Things" - the cognitive load
-/// on the Operator. Triggers anti-inflammatory UI adjustments when
-/// vexation exceeds thresholds.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Vexation level thresholds
-let lowThreshold = 0.3
-let mediumThreshold = 0.5
-let highThreshold = 0.7
-let criticalThreshold = 0.9
-
-/// Get colour based on vexation level
-let getVexationColour = (index: float): string => {
-  if index >= criticalThreshold {
-    "text-red-400"
-  } else if index >= highThreshold {
-    "text-orange-400"
-  } else if index >= mediumThreshold {
-    "text-amber-400"
-  } else if index >= lowThreshold {
-    "text-yellow-400"
-  } else {
-    "text-emerald-400"
-  }
-}
-
-/// Get bar colour based on vexation level
-let getBarColour = (index: float): string => {
-  if index >= criticalThreshold {
-    "bg-red-500"
-  } else if index >= highThreshold {
-    "bg-orange-500"
-  } else if index >= mediumThreshold {
-    "bg-amber-500"
-  } else if index >= lowThreshold {
-    "bg-yellow-500"
-  } else {
-    "bg-emerald-500"
-  }
-}
-
-/// Get status text based on vexation level
-let getStatusText = (index: float, antiInflammatory: bool, inertia: bool): string => {
-  if inertia {
-    "Inertia Detected"
-  } else if antiInflammatory {
-    "Anti-Inflammatory Active"
-  } else if index >= criticalThreshold {
-    "Critical Vexation"
-  } else if index >= highThreshold {
-    "High Friction"
-  } else if index >= mediumThreshold {
-    "Moderate Friction"
-  } else if index >= lowThreshold {
-    "Mild Friction"
-  } else {
-    "Stable Co-Orbit"
-  }
-}
-
-/// Render the expanded vexometer panel
-let renderExpandedView = (state: vexometerState): Tea_Vdom.t<msg> => {
-  let indexPercent = Int.toString(Int.fromFloat(state.index *. 100.0))
-  let barWidth = indexPercent ++ "%"
-  let barColour = getBarColour(state.index)
-  let textColour = getVexationColour(state.index)
-  let statusText = getStatusText(state.index, state.antiInflammatoryActive, state.inertiaDetected)
-
-  div(
-    list{
-      Attrs.class_(
-        "fixed bottom-4 right-4 w-64 bg-gray-900 border border-gray-700 rounded-lg p-4 shadow-xl",
-      ),
-      Attrs.role("meter"),
-      Attrs.ariaLabel("Vexation Index"),
-      Attrs.ariaLive("polite"),
-      Attrs.ariaValueNow(state.index *. 100.0),
-      Attrs.ariaValueMin(0.0),
-      Attrs.ariaValueMax(100.0),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between mb-3")},
-        list{
-          div(
-            list{Attrs.class_("text-sm font-semibold text-gray-300")},
-            list{text("Vexation Index")},
-          ),
-          div(
-            list{Attrs.class_(`text-lg font-bold ${textColour}`)},
-            list{text(indexPercent ++ "%")},
-          ),
-        },
-      ),
-      // Progress bar
-      div(
-        list{Attrs.class_("h-3 bg-gray-800 rounded-full overflow-hidden mb-3")},
-        list{
-          div(
-            list{
-              Attrs.class_(`h-full ${barColour} transition-all duration-500`),
-              Attrs.style("width", barWidth),
-            },
-            list{},
-          ),
-        },
-      ),
-      // Status
-      div(list{Attrs.class_(`text-xs ${textColour} mb-3`)}, list{text(statusText)}),
-      // Metrics
-      div(
-        list{Attrs.class_("grid grid-cols-2 gap-2 text-xs")},
-        list{
-          div(
-            list{Attrs.class_("bg-gray-800/50 p-2 rounded")},
-            list{
-              div(list{Attrs.class_("text-gray-500")}, list{text("Cancellations")}),
-              div(
-                list{Attrs.class_("text-amber-300 font-mono")},
-                list{text(Int.toString(state.recentCancellations))},
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("bg-gray-800/50 p-2 rounded")},
-            list{
-              div(list{Attrs.class_("text-gray-500")}, list{text("Corrections")}),
-              div(
-                list{Attrs.class_("text-amber-300 font-mono")},
-                list{text(Int.toString(state.recentCorrections))},
-              ),
-            },
-          ),
-        },
-      ),
-      // Anti-inflammatory indicator
-      if state.antiInflammatoryActive {
-        div(
-          list{
-            Attrs.class_(
-              "mt-3 p-2 bg-indigo-900/30 border border-indigo-700/50 rounded text-xs text-indigo-300",
-            ),
-          },
-          list{text("Environment simplified to reduce friction")},
-        )
-      } else {
-        noNode
-      },
-      // Inertia breaker prompt
-      if state.inertiaDetected {
-        div(
-          list{
-            Attrs.class_(
-              "mt-3 p-2 bg-amber-900/30 border border-amber-700/50 rounded text-xs text-amber-300",
-            ),
-          },
-          list{text("Stasis detected. Consider: What's the smallest next step?")},
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-/// Render the compact vexometer indicator
-let renderCompactView = (state: vexometerState): Tea_Vdom.t<msg> => {
-  let indexPercent = Int.toString(Int.fromFloat(state.index *. 100.0))
-  let barWidth = indexPercent ++ "%"
-  let barColour = getBarColour(state.index)
-
-  div(
-    list{
-      Attrs.class_("fixed bottom-4 right-4 w-32"),
-      Attrs.role("meter"),
-      Attrs.ariaLabel("Vexation Index"),
-      Attrs.ariaValueNow(state.index *. 100.0),
-      Attrs.ariaValueMin(0.0),
-      Attrs.ariaValueMax(100.0),
-    },
-    list{
-      div(
-        list{Attrs.class_("text-xs text-gray-500 mb-1 flex items-center justify-between")},
-        list{
-          text("Vexation"),
-          div(list{Attrs.class_("text-gray-400")}, list{text(indexPercent ++ "%")}),
-        },
-      ),
-      div(
-        list{Attrs.class_("h-2 bg-gray-800 rounded-full overflow-hidden")},
-        list{
-          div(
-            list{
-              Attrs.class_(`h-full ${barColour} transition-all duration-300`),
-              Attrs.style("width", barWidth),
-            },
-            list{},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Main Vexometer view
-let view = (state: vexometerState, expanded: bool): Tea_Vdom.t<msg> => {
-  if expanded {
-    renderExpandedView(state)
-  } else {
-    renderCompactView(state)
-  }
-}
diff --git a/src/components/VexometerFriction.affine b/src/components/VexometerFriction.affine
new file mode 100644
index 00000000..999d2ed3
--- /dev/null
+++ b/src/components/VexometerFriction.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VexometerFriction;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/VexometerFriction.res b/src/components/VexometerFriction.res
deleted file mode 100644
index 28c9f5dc..00000000
--- a/src/components/VexometerFriction.res
+++ /dev/null
@@ -1,281 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Vexometer Friction Component — irritation surface measurements across tools.
-///
-/// Two-column layout: left sidebar with tool list (sorted by friction),
-/// right content with ISA dimension detail view and trend indicators.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a friction trend indicator.
-let trendIndicator = (trend: frictionTrend): Tea_Vdom.t<msg> => {
-  let (color, arrow) = switch trend {
-  | Improving => ("text-green-400", "v")
-  | Stable => ("text-gray-400", "-")
-  | Worsening => ("text-red-400", "^")
-  | NoData => ("text-gray-600", "?")
-  }
-  span(list{Attrs.class_("text-xs font-mono " ++ color)}, list{text(arrow)})
-}
-
-/// Render a tool row in the sidebar.
-let toolRow = (tool: toolFrictionProfile, selected: bool): Tea_Vdom.t<msg> => {
-  let scoreColor = if tool.overallScore < 3.0 {
-    "text-green-400"
-  } else if tool.overallScore < 6.0 {
-    "text-amber-400"
-  } else {
-    "text-red-400"
-  }
-  button(
-    list{
-      Attrs.class_(
-        "w-full text-left px-3 py-2 border-b border-gray-800 hover:bg-gray-800/60 transition-colors " ++ if (
-          selected
-        ) {
-          "bg-gray-800/80 border-l-2 border-l-blue-500"
-        } else {
-          ""
-        },
-      ),
-      Events.onClick(VexometerFriction(SelectTool(tool.toolName))),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex items-center justify-between")},
-        list{
-          span(list{Attrs.class_("text-sm text-gray-200 truncate")}, list{text(tool.toolName)}),
-          div(
-            list{Attrs.class_("flex items-center gap-1")},
-            list{
-              span(
-                list{Attrs.class_("text-xs font-mono " ++ scoreColor)},
-                list{text(Float.toFixed(tool.overallScore, ~digits=1))},
-              ),
-              trendIndicator(tool.trend),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render an ISA dimension bar.
-let dimensionBar = (dim: isaDimension): Tea_Vdom.t<msg> => {
-  let barColor = if dim.score < 3.0 {
-    "bg-green-500"
-  } else if dim.score < 6.0 {
-    "bg-amber-500"
-  } else {
-    "bg-red-500"
-  }
-  let pctWidth = Float.toFixed(dim.score *. 10.0, ~digits=1)
-  div(
-    list{Attrs.class_("flex items-center gap-2 py-1")},
-    list{
-      span(list{Attrs.class_("text-xs text-gray-400 w-28 shrink-0")}, list{text(dim.name)}),
-      div(
-        list{Attrs.class_("flex-1 bg-gray-800 rounded-full h-2")},
-        list{
-          div(
-            list{
-              Attrs.class_(`${barColor} h-2 rounded-full transition-all duration-300`),
-              Attrs.style("width", `${pctWidth}%`),
-            },
-            list{},
-          ),
-        },
-      ),
-      span(
-        list{Attrs.class_("text-xs text-gray-500 w-8 text-right")},
-        list{text(Float.toFixed(dim.score, ~digits=1))},
-      ),
-      span(
-        list{Attrs.class_("text-xs text-gray-600 w-10 text-right")},
-        list{text(`(${Int.toString(dim.sampleCount)})`)},
-      ),
-    },
-  )
-}
-
-/// Render a tab button.
-let tabBtn = (
-  current: vexometerFrictionTab,
-  target: vexometerFrictionTab,
-  label: string,
-): Tea_Vdom.t<msg> => {
-  let active = current == target
-  button(
-    list{
-      Attrs.class_(
-        "px-3 py-1 text-xs rounded " ++ if active {
-          "bg-blue-600 text-white"
-        } else {
-          "bg-gray-800 text-gray-400 hover:bg-gray-700"
-        },
-      ),
-      Events.onClick(VexometerFriction(SetTab(target))),
-      Attrs.role("tab"),
-      Attrs.ariaSelected(active),
-    },
-    list{text(label)},
-  )
-}
-
-/// Main view function for the Vexometer Friction panel.
-let view = (state: vexometerFrictionState): Tea_Vdom.t<msg> => {
-  let avgFriction = VexometerFrictionEngine.averageFriction(state.tools)
-  let total = Array.length(state.tools)
-
-  div(
-    list{
-      Attrs.class_("flex flex-col h-full bg-gray-950 text-gray-100 overflow-hidden"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Vexometer Friction — Irritation Surface Measurements"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-2 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              h2(
-                list{Attrs.class_("text-lg font-bold text-orange-300")},
-                list{text("Vexometer Friction")},
-              ),
-              span(
-                list{Attrs.class_("text-xs text-gray-500")},
-                list{
-                  text(
-                    `Avg: ${Float.toFixed(avgFriction, ~digits=1)}/10.0 | ${Int.toString(
-                        total,
-                      )} tools`,
-                  ),
-                },
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_("px-3 py-1 text-xs rounded bg-green-700 text-white hover:bg-green-600"),
-              Events.onClick(VexometerFriction(MeasureAll)),
-              KeyboardNav.onActivate(VexometerFriction(MeasureAll)),
-            },
-            list{
-              text(
-                if state.measuring {
-                  "Measuring..."
-                } else {
-                  "Measure All"
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Tabs
-      div(
-        list{Attrs.class_("flex gap-1 px-4 py-2 border-b border-gray-800"), Attrs.role("tablist")},
-        VexometerFrictionEngine.allTabs
-        ->Array.map(t => tabBtn(state.activeTab, t, VexometerFrictionEngine.tabLabel(t)))
-        ->List.fromArray,
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_(
-              "mx-4 mt-2 px-3 py-2 bg-red-900/50 border border-red-700 rounded text-sm text-red-200",
-            ),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      // Two-column layout
-      div(
-        list{Attrs.class_("flex flex-1 overflow-hidden")},
-        list{
-          // Left sidebar — tool list sorted by friction
-          div(
-            list{Attrs.class_("w-64 border-r border-gray-800 overflow-y-auto")},
-            VexometerFrictionEngine.sortByFriction(state.tools)
-            ->Array.map(t => toolRow(t, state.selectedTool == Some(t.toolName)))
-            ->List.fromArray,
-          ),
-          // Right content — ISA dimension detail
-          div(
-            list{Attrs.class_("flex-1 overflow-y-auto px-4 py-2")},
-            list{
-              switch state.selectedTool {
-              | None =>
-                div(
-                  list{Attrs.class_("flex items-center justify-center h-full text-gray-600")},
-                  list{text("Select a tool to view friction dimensions")},
-                )
-              | Some(name) =>
-                switch state.tools->Array.find(t => t.toolName == name) {
-                | None => div(list{}, list{text("Tool not found")})
-                | Some(tool) =>
-                  div(
-                    list{},
-                    list{
-                      div(
-                        list{Attrs.class_("flex items-center justify-between mb-3")},
-                        list{
-                          h3(
-                            list{Attrs.class_("text-md font-semibold text-gray-200")},
-                            list{text(tool.toolName)},
-                          ),
-                          div(
-                            list{Attrs.class_("flex items-center gap-2")},
-                            list{
-                              span(
-                                list{Attrs.class_("text-sm font-mono text-gray-300")},
-                                list{text(`${Float.toFixed(tool.overallScore, ~digits=1)}/10.0`)},
-                              ),
-                              trendIndicator(tool.trend),
-                              span(
-                                list{Attrs.class_("text-xs text-gray-500")},
-                                list{text(VexometerFrictionEngine.trendLabel(tool.trend))},
-                              ),
-                            },
-                          ),
-                        },
-                      ),
-                      div(
-                        list{Attrs.class_("space-y-1")},
-                        tool.dimensions->Array.map(d => dimensionBar(d))->List.fromArray,
-                      ),
-                      div(
-                        list{Attrs.class_("mt-3 text-xs text-gray-600")},
-                        list{text(`Last measured: ${tool.lastMeasured}`)},
-                      ),
-                    },
-                  )
-                }
-              },
-            },
-          ),
-        },
-      ),
-      // Footer
-      div(
-        list{Attrs.class_("px-4 py-2 border-t border-gray-800 text-xs text-gray-500")},
-        list{
-          text(
-            `${Int.toString(
-                state.tools->Array.filter(t => t.trend == Worsening)->Array.length,
-              )} tools worsening`,
-          ),
-        },
-      ),
-    },
-  )
-}
diff --git a/src/components/VideoCoordination.affine b/src/components/VideoCoordination.affine
new file mode 100644
index 00000000..b98ac978
--- /dev/null
+++ b/src/components/VideoCoordination.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VideoCoordination;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/VideoCoordination.res b/src/components/VideoCoordination.res
deleted file mode 100644
index 016276e8..00000000
--- a/src/components/VideoCoordination.res
+++ /dev/null
@@ -1,123 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// VideoCoordination Component — view rendering for the video transfer dashboard.
-///
-/// Features:
-/// - Batch progress tracking
-/// - Quota usage visualisation (Daily 750GB limit)
-/// - ARIA-live regions for status updates
-
-open Tea.Html
-open VideoCoordinationModel
-open VideoCoordinationEngine
-
-let viewBatch = batch => {
-  div(
-    list{Attrs.class_("p-4 bg-gray-900 rounded-lg border border-gray-800 mb-4")},
-    list{
-      div(
-        list{Attrs.class_("flex justify-between items-center mb-2")},
-        list{
-          span(list{Attrs.class_("text-sm font-medium text-gray-300")}, list{text(batch.source)}),
-          span(
-            list{
-              Attrs.class_(
-                switch batch.status {
-                | "Active" => "text-blue-400"
-                | "Completed" => "text-green-400"
-                | _ => "text-gray-500"
-                },
-              ),
-            },
-            list{text(batch.status)},
-          ),
-        },
-      ),
-      // Progress Bar
-      div(
-        list{Attrs.class_("w-full bg-gray-800 rounded-full h-2 mb-2")},
-        list{
-          div(
-            list{
-              Attrs.class_("bg-blue-600 h-2 rounded-full transition-all duration-500"),
-              Attrs.style("width", Float.toString(batch->batchProgress) ++ "%"),
-              Attrs.role("progressbar"),
-              Attrs.ariaValueNow(batch->batchProgress),
-              Attrs.ariaValueMin(0.0),
-              Attrs.ariaValueMax(100.0),
-            },
-            list{},
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("text-xs text-gray-500 flex justify-between")},
-        list{
-          text(
-            batch.processedFiles->Belt.Int.toString ++
-              (" / " ++
-              batch.totalFiles->Belt.Int.toString),
-          ),
-          text(batch.failedFiles > 0 ? batch.failedFiles->Belt.Int.toString ++ " failed" : ""),
-        },
-      ),
-    },
-  )
-}
-
-let view = (state: videoCoordinationState) => {
-  div(
-    list{
-      Attrs.class_("h-full flex flex-col bg-gray-950 p-6"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Video Transfer Coordination"),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex justify-between items-end mb-8")},
-        list{
-          div(
-            list{},
-            list{
-              h2(
-                list{Attrs.class_("text-2xl font-bold text-gray-100 mb-1")},
-                list{text("Video Coordination")},
-              ),
-              p(
-                list{Attrs.class_("text-sm text-gray-500")},
-                list{text("Orchestrating Drive to Photos migration")},
-              ),
-            },
-          ),
-          // Quota Indicator
-          div(
-            list{Attrs.class_("text-right")},
-            list{
-              div(
-                list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wider")},
-                list{text("Daily Quota")},
-              ),
-              div(
-                list{Attrs.class_("text-lg font-mono text-gray-300")},
-                list{text("750 GB Limit")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Active Batches
-      div(
-        list{Attrs.class_("flex-1 overflow-y-auto")},
-        state.activeBatches->List.length == 0
-          ? list{
-              div(
-                list{Attrs.class_("text-center text-gray-600 mt-20")},
-                list{text("No active transfers. Start a batch via CLI or Provisioner.")},
-              ),
-            }
-          : state.activeBatches->List.map(viewBatch),
-      ),
-    },
-  )
-}
diff --git a/src/components/VmInspector.affine b/src/components/VmInspector.affine
new file mode 100644
index 00000000..b7bc9358
--- /dev/null
+++ b/src/components/VmInspector.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VmInspector;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/VmInspector.res b/src/components/VmInspector.res
deleted file mode 100644
index 553efaf6..00000000
--- a/src/components/VmInspector.res
+++ /dev/null
@@ -1,832 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL VM Inspector Component — renders the reversible VM visual debugger.
-///
-/// The Debugger tab shows stack, memory, instruction listing, and step
-/// controls (forward AND backward). The Timeline tab provides a scrubber
-/// over execution history. Call Graph shows subroutine relationships.
-/// Port I/O monitors SEND/RECV buffers. Statistics shows per-instruction
-/// and per-tier execution counts.
-
-open Model
-open Msg
-open Tea.Html
-
-// =========================================================================
-// Helpers
-// =========================================================================
-
-/// Render the category tab bar.
-let renderTabs = (active: vmInspectorCategory): Tea_Vdom.t<msg> => {
-  let tabs: array<vmInspectorCategory> = [
-    InspectorDebugger,
-    InspectorTimeline,
-    InspectorCallGraph,
-    InspectorPortIO,
-    InspectorStatistics,
-  ]
-  div(
-    list{Attrs.class_("flex gap-1 border-b border-gray-800 px-4")},
-    tabs
-    ->Array.map(tab => {
-      let isActive = tab === active
-      let label = VmInspectorEngine.categoryLabel(tab)
-      button(
-        list{
-          Attrs.class_(
-            `px-4 py-2 text-sm font-medium transition-colors rounded-t ${isActive
-                ? "bg-gray-800 text-orange-400 border-b-2 border-orange-400"
-                : "text-gray-500 hover:text-gray-300 hover:bg-gray-900"}`,
-          ),
-          Events.onClick(VmInspector(SetInspectorCategory(tab))),
-        },
-        list{text(label)},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-/// Render the step controls toolbar.
-let renderStepControls = (state: vmInspectorState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex items-center gap-2")},
-    list{
-      // Step backward
-      button(
-        list{
-          Attrs.class_(
-            "px-3 py-1.5 text-xs rounded bg-amber-800 text-amber-200 hover:bg-amber-700 font-medium",
-          ),
-          Events.onClick(VmInspector(StepBackward)),
-          KeyboardNav.onActivate(VmInspector(StepBackward)),
-        },
-        list{text("Step Back")},
-      ),
-      // Step forward
-      button(
-        list{
-          Attrs.class_(
-            "px-3 py-1.5 text-xs rounded bg-emerald-800 text-emerald-200 hover:bg-emerald-700 font-medium",
-          ),
-          Events.onClick(VmInspector(StepForward)),
-          KeyboardNav.onActivate(VmInspector(StepForward)),
-        },
-        list{text("Step Forward")},
-      ),
-      // Run to breakpoint
-      button(
-        list{
-          Attrs.class_(
-            `px-3 py-1.5 text-xs rounded font-medium ${state.running
-                ? "bg-red-800 text-red-200 hover:bg-red-700"
-                : "bg-blue-800 text-blue-200 hover:bg-blue-700"}`,
-          ),
-          Events.onClick(
-            VmInspector(
-              if state.running {
-                PauseVm
-              } else {
-                RunVm
-              },
-            ),
-          ),
-        },
-        list{
-          text(
-            if state.running {
-              "Pause"
-            } else {
-              "Run"
-            },
-          ),
-        },
-      ),
-      // Reset
-      button(
-        list{
-          Attrs.class_("px-3 py-1.5 text-xs rounded bg-gray-800 text-gray-400 hover:text-gray-200"),
-          Events.onClick(VmInspector(ResetVm)),
-          KeyboardNav.onActivate(VmInspector(ResetVm)),
-        },
-        list{text("Reset")},
-      ),
-      // Step counter
-      div(
-        list{Attrs.class_("ml-4 flex items-center gap-2")},
-        list{
-          span(list{Attrs.class_("text-xs text-gray-500")}, list{text("Step:")}),
-          span(
-            list{Attrs.class_("text-xs text-gray-300 font-mono")},
-            list{text(Int.toString(state.totalSteps))},
-          ),
-          span(list{Attrs.class_("text-xs text-gray-500 ml-2")}, list{text("PC:")}),
-          span(
-            list{Attrs.class_("text-xs text-orange-400 font-mono")},
-            list{text(Int.toString(state.pc))},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render the stack visualisation.
-let renderStack = (stack: array<int>): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("bg-gray-900 rounded-lg border border-gray-800 p-3")},
-    list{
-      div(
-        list{Attrs.class_("text-xs text-gray-500 mb-2 font-medium")},
-        list{text(`Stack (${Int.toString(Array.length(stack))})`)},
-      ),
-      if Array.length(stack) === 0 {
-        div(list{Attrs.class_("text-gray-600 text-xs italic")}, list{text("(empty)")})
-      } else {
-        div(
-          list{Attrs.class_("space-y-0.5")},
-          // Show stack top-first (reversed)
-          stack
-          ->Array.toReversed
-          ->Array.mapWithIndex((value, idx) => {
-            div(
-              list{
-                Attrs.class_(
-                  `flex items-center gap-2 font-mono text-sm px-2 py-0.5 rounded ${idx === 0
-                      ? "bg-orange-900/30 text-orange-300"
-                      : "text-gray-300"}`,
-                ),
-              },
-              list{
-                span(
-                  list{Attrs.class_("text-gray-600 w-6 text-right text-xs")},
-                  list{
-                    text(
-                      if idx === 0 {
-                        "TOS"
-                      } else {
-                        Int.toString(Array.length(stack) - 1 - idx)
-                      },
-                    ),
-                  },
-                ),
-                span(list{}, list{text(Int.toString(value))}),
-              },
-            )
-          })
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render the memory grid.
-let renderMemory = (memory: array<vmMemoryCell>): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("bg-gray-900 rounded-lg border border-gray-800 p-3")},
-    list{
-      div(
-        list{Attrs.class_("text-xs text-gray-500 mb-2 font-medium")},
-        list{text(`Memory (${Int.toString(Array.length(memory))} cells)`)},
-      ),
-      if Array.length(memory) === 0 {
-        div(list{Attrs.class_("text-gray-600 text-xs italic")}, list{text("No memory allocated")})
-      } else {
-        div(
-          list{Attrs.class_("grid grid-cols-8 gap-0.5")},
-          memory
-          ->Array.map(cell => {
-            let bgClass = if cell.recentWrite {
-              "bg-red-900/50"
-            } else if cell.recentRead {
-              "bg-blue-900/50"
-            } else if cell.value !== 0 {
-              "bg-gray-800"
-            } else {
-              "bg-gray-900"
-            }
-            div(
-              list{
-                Attrs.class_(`${bgClass} rounded px-1 py-0.5 text-center font-mono text-xs`),
-                Attrs.title(
-                  `Address: ${Int.toString(cell.address)}, Value: ${Int.toString(cell.value)}`,
-                ),
-              },
-              list{
-                span(
-                  list{
-                    Attrs.class_(
-                      if cell.value !== 0 {
-                        "text-gray-200"
-                      } else {
-                        "text-gray-700"
-                      },
-                    ),
-                  },
-                  list{text(Int.toString(cell.value))},
-                ),
-              },
-            )
-          })
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render the instruction listing.
-let renderInstructions = (instructions: array<vmInstruction>, pc: int): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("bg-gray-900 rounded-lg border border-gray-800 p-3")},
-    list{
-      div(
-        list{Attrs.class_("text-xs text-gray-500 mb-2 font-medium")},
-        list{text(`Instructions (${Int.toString(Array.length(instructions))})`)},
-      ),
-      if Array.length(instructions) === 0 {
-        div(list{Attrs.class_("text-gray-600 text-xs italic")}, list{text("No program loaded")})
-      } else {
-        div(
-          list{Attrs.class_("space-y-0.5 max-h-64 overflow-auto")},
-          instructions
-          ->Array.map(instr => {
-            let isCurrentPc = instr.index === pc
-            let tierColour = VmInspectorEngine.tierColour(instr.tier)
-            div(
-              list{
-                Attrs.class_(
-                  `flex items-center gap-2 font-mono text-sm px-2 py-0.5 rounded cursor-pointer hover:bg-gray-800 ${isCurrentPc
-                      ? "bg-orange-900/40 border-l-2 border-orange-400"
-                      : ""}`,
-                ),
-                Events.onClick(VmInspector(ToggleBreakpoint(instr.index))),
-              },
-              list{
-                // Breakpoint indicator
-                div(
-                  list{
-                    Attrs.class_(
-                      `w-2 h-2 rounded-full ${instr.hasBreakpoint
-                          ? "bg-red-500"
-                          : "bg-transparent"}`,
-                    ),
-                  },
-                  list{},
-                ),
-                // Address
-                span(
-                  list{Attrs.class_("text-gray-600 w-8 text-right text-xs")},
-                  list{text(Int.toString(instr.index))},
-                ),
-                // Tier badge
-                span(
-                  list{Attrs.class_(`text-xs ${tierColour} w-6`)},
-                  list{text(VmInspectorEngine.tierShortLabel(instr.tier))},
-                ),
-                // Mnemonic
-                span(
-                  list{
-                    Attrs.class_(
-                      if isCurrentPc {
-                        "text-orange-300 font-bold"
-                      } else {
-                        "text-gray-300"
-                      },
-                    ),
-                  },
-                  list{text(instr.mnemonic)},
-                ),
-                // Execution count
-                if instr.executionCount > 0 {
-                  span(
-                    list{Attrs.class_("text-gray-600 text-xs ml-auto")},
-                    list{text(`x${Int.toString(instr.executionCount)}`)},
-                  )
-                } else {
-                  noNode
-                },
-              },
-            )
-          })
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render the main debugger view — stack + memory + instructions + controls.
-let renderDebugger = (state: vmInspectorState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 flex flex-col")},
-    list{
-      // Step controls toolbar
-      div(
-        list{
-          Attrs.class_(
-            "px-4 py-2 bg-gray-900/50 border-b border-gray-800 flex items-center justify-between",
-          ),
-        },
-        list{
-          renderStepControls(state),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              // Connection status
-              div(
-                list{Attrs.class_("flex items-center gap-1")},
-                list{
-                  div(
-                    list{
-                      Attrs.class_(
-                        `w-2 h-2 rounded-full ${switch state.connection {
-                          | VmLiveConnection => "bg-emerald-400"
-                          | VmFileConnection(_) => "bg-blue-400"
-                          | VmDisconnected => "bg-gray-600"
-                          }}`,
-                      ),
-                    },
-                    list{},
-                  ),
-                  span(
-                    list{Attrs.class_("text-xs text-gray-400")},
-                    list{text(VmInspectorEngine.connectionLabel(state.connection))},
-                  ),
-                },
-              ),
-              // Export snapshot button
-              button(
-                list{
-                  Attrs.class_(
-                    "text-xs text-gray-500 hover:text-gray-300 px-2 py-1 rounded bg-gray-800",
-                  ),
-                  Events.onClick(VmInspector(ExportSnapshot)),
-                  KeyboardNav.onActivate(VmInspector(ExportSnapshot)),
-                },
-                list{text("Export State")},
-              ),
-              // Multi-VM toggle
-              button(
-                list{
-                  Attrs.class_(
-                    `text-xs px-2 py-1 rounded ${state.multiVmView
-                        ? "bg-purple-800 text-purple-200"
-                        : "bg-gray-800 text-gray-500"}`,
-                  ),
-                  Events.onClick(VmInspector(ToggleMultiVm)),
-                  KeyboardNav.onActivate(VmInspector(ToggleMultiVm)),
-                },
-                list{text("Multi-VM")},
-              ),
-              // BoJ routing toggle
-              button(
-                list{
-                  Attrs.class_(
-                    if state.bojRouting {
-                      "px-3 py-1.5 text-xs bg-blue-700 text-white rounded"
-                    } else {
-                      "px-3 py-1.5 text-xs bg-gray-700 text-gray-300 rounded hover:bg-gray-600"
-                    },
-                  ),
-                  Attrs.ariaLabel(
-                    if state.bojRouting {
-                      "Disable BoJ routing"
-                    } else {
-                      "Enable BoJ routing"
-                    },
-                  ),
-                  Events.onClick(VmInspector(ToggleVmBojRouting)),
-                  KeyboardNav.onActivate(VmInspector(ToggleVmBojRouting)),
-                },
-                list{
-                  text(
-                    if state.bojRouting {
-                      "BoJ On"
-                    } else {
-                      "BoJ"
-                    },
-                  ),
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Three-column layout: Stack | Instructions | Memory
-      div(
-        list{Attrs.class_("flex-1 overflow-auto p-4 grid grid-cols-3 gap-4")},
-        list{
-          renderStack(state.stack),
-          renderInstructions(state.instructions, state.pc),
-          renderMemory(state.memory),
-        },
-      ),
-    },
-  )
-}
-
-/// Render the execution timeline tab.
-let renderTimeline = (state: vmInspectorState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 overflow-auto p-6")},
-    list{
-      h3(
-        list{Attrs.class_("text-sm font-medium text-gray-300 mb-4")},
-        list{text(`Execution Timeline (${Int.toString(Array.length(state.history))} snapshots)`)},
-      ),
-      if Array.length(state.history) === 0 {
-        div(
-          list{Attrs.class_("text-center text-gray-600 text-sm py-8")},
-          list{text("No execution history. Step through instructions to build the timeline.")},
-        )
-      } else {
-        div(
-          list{},
-          list{
-            // Timeline scrubber
-            div(
-              list{Attrs.class_("mb-4")},
-              list{
-                div(
-                  list{
-                    Attrs.class_("flex items-center justify-between text-xs text-gray-500 mb-1"),
-                  },
-                  list{
-                    text("Step 0"),
-                    text(`Step ${Int.toString(Array.length(state.history) - 1)}`),
-                  },
-                ),
-                div(
-                  list{Attrs.class_("h-2 bg-gray-800 rounded-full relative")},
-                  list{
-                    div(
-                      list{
-                        Attrs.class_("absolute top-0 left-0 h-2 bg-orange-500 rounded-full"),
-                        Attrs.style(
-                          "width",
-                          `${if Array.length(state.history) > 0 {
-                              Float.toString(
-                                Int.toFloat(state.timelinePosition) /.
-                                Int.toFloat(Array.length(state.history) - 1) *. 100.0,
-                              )
-                            } else {
-                              "0"
-                            }}%`,
-                        ),
-                      },
-                      list{},
-                    ),
-                  },
-                ),
-              },
-            ),
-            // Current snapshot details
-            switch state.history->Array.get(state.timelinePosition) {
-            | Some(snapshot) =>
-              div(
-                list{Attrs.class_("bg-gray-900 rounded-lg border border-gray-800 p-4")},
-                list{
-                  div(
-                    list{Attrs.class_("grid grid-cols-3 gap-4 text-sm")},
-                    list{
-                      div(
-                        list{},
-                        list{
-                          div(list{Attrs.class_("text-gray-500 text-xs mb-1")}, list{text("Step")}),
-                          div(
-                            list{Attrs.class_("font-mono text-gray-200")},
-                            list{text(Int.toString(snapshot.step))},
-                          ),
-                        },
-                      ),
-                      div(
-                        list{},
-                        list{
-                          div(
-                            list{Attrs.class_("text-gray-500 text-xs mb-1")},
-                            list{text("Instruction")},
-                          ),
-                          div(
-                            list{Attrs.class_("font-mono text-orange-300")},
-                            list{text(snapshot.instructionMnemonic)},
-                          ),
-                        },
-                      ),
-                      div(
-                        list{},
-                        list{
-                          div(
-                            list{Attrs.class_("text-gray-500 text-xs mb-1")},
-                            list{text("Stack")},
-                          ),
-                          div(
-                            list{Attrs.class_("font-mono text-gray-200")},
-                            list{text(VmInspectorEngine.formatStack(snapshot.stack))},
-                          ),
-                        },
-                      ),
-                    },
-                  ),
-                },
-              )
-            | None => noNode
-            },
-            // Navigation buttons
-            div(
-              list{Attrs.class_("flex items-center justify-center gap-4 mt-4")},
-              list{
-                button(
-                  list{
-                    Attrs.class_(
-                      "px-4 py-2 text-sm rounded bg-gray-800 text-gray-300 hover:bg-gray-700",
-                    ),
-                    Events.onClick(VmInspector(SeekTimeline(0))),
-                  },
-                  list{text("Start")},
-                ),
-                button(
-                  list{
-                    Attrs.class_(
-                      "px-4 py-2 text-sm rounded bg-gray-800 text-gray-300 hover:bg-gray-700",
-                    ),
-                    Events.onClick(
-                      VmInspector(
-                        SeekTimeline(
-                          if state.timelinePosition > 0 {
-                            state.timelinePosition - 1
-                          } else {
-                            0
-                          },
-                        ),
-                      ),
-                    ),
-                  },
-                  list{text("Prev")},
-                ),
-                button(
-                  list{
-                    Attrs.class_(
-                      "px-4 py-2 text-sm rounded bg-gray-800 text-gray-300 hover:bg-gray-700",
-                    ),
-                    Events.onClick(VmInspector(SeekTimeline(state.timelinePosition + 1))),
-                  },
-                  list{text("Next")},
-                ),
-                button(
-                  list{
-                    Attrs.class_(
-                      "px-4 py-2 text-sm rounded bg-gray-800 text-gray-300 hover:bg-gray-700",
-                    ),
-                    Events.onClick(VmInspector(SeekTimeline(Array.length(state.history) - 1))),
-                  },
-                  list{text("End")},
-                ),
-              },
-            ),
-          },
-        )
-      },
-    },
-  )
-}
-
-/// Render the port I/O tab.
-let renderPortIO = (state: vmInspectorState): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 overflow-auto p-6")},
-    list{
-      h3(
-        list{Attrs.class_("text-sm font-medium text-gray-300 mb-4")},
-        list{text(`Port I/O (${Int.toString(Array.length(state.portLog))} entries)`)},
-      ),
-      if Array.length(state.portLog) === 0 {
-        div(
-          list{Attrs.class_("text-center text-gray-600 text-sm py-8")},
-          list{text("No port I/O recorded. Execute SEND/RECV instructions.")},
-        )
-      } else {
-        div(
-          list{Attrs.class_("space-y-0.5")},
-          state.portLog
-          ->Array.map(entry => {
-            div(
-              list{
-                Attrs.class_(
-                  "flex items-center gap-3 font-mono text-sm px-3 py-1 rounded bg-gray-900/50",
-                ),
-              },
-              list{
-                span(
-                  list{Attrs.class_("text-gray-600 w-12 text-right text-xs")},
-                  list{text(`@${Int.toString(entry.atStep)}`)},
-                ),
-                span(
-                  list{
-                    Attrs.class_(
-                      if entry.isSend {
-                        "text-red-400 w-12"
-                      } else {
-                        "text-emerald-400 w-12"
-                      },
-                    ),
-                  },
-                  list{
-                    text(
-                      if entry.isSend {
-                        "SEND"
-                      } else {
-                        "RECV"
-                      },
-                    ),
-                  },
-                ),
-                span(
-                  list{Attrs.class_("text-gray-500 w-12")},
-                  list{text(`port ${Int.toString(entry.port)}`)},
-                ),
-                span(list{Attrs.class_("text-gray-300")}, list{text(Int.toString(entry.value))}),
-              },
-            )
-          })
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
-
-/// Render the statistics tab — placeholder for charts.
-let renderStatistics = (state: vmInspectorState): Tea_Vdom.t<msg> => {
-  let tiers: array<vmInstructionTier> = [
-    TierArithmetic,
-    TierConditionals,
-    TierStackMemory,
-    TierSubroutines,
-    TierIO,
-  ]
-  div(
-    list{Attrs.class_("flex-1 overflow-auto p-6")},
-    list{
-      h3(
-        list{Attrs.class_("text-sm font-medium text-gray-300 mb-4")},
-        list{text("Execution Statistics")},
-      ),
-      // Tier usage cards
-      div(
-        list{Attrs.class_("grid grid-cols-5 gap-3 mb-6")},
-        tiers
-        ->Array.mapWithIndex((tier, idx) => {
-          let count = switch state.tierCounts->Array.get(idx) {
-          | Some(c) => c
-          | None => 0
-          }
-          let colour = VmInspectorEngine.tierColour(tier)
-          div(
-            list{Attrs.class_("bg-gray-900 rounded-lg border border-gray-800 p-3 text-center")},
-            list{
-              div(
-                list{Attrs.class_(`text-xs ${colour} mb-1`)},
-                list{text(VmInspectorEngine.tierShortLabel(tier))},
-              ),
-              div(
-                list{Attrs.class_("text-lg font-bold text-gray-200")},
-                list{text(Int.toString(count))},
-              ),
-              div(
-                list{Attrs.class_("text-xs text-gray-600 mt-1")},
-                list{text(VmInspectorEngine.tierLabel(tier))},
-              ),
-            },
-          )
-        })
-        ->List.fromArray,
-      ),
-      // Total steps
-      div(
-        list{Attrs.class_("bg-gray-900 rounded-lg border border-gray-800 p-4")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center justify-between")},
-            list{
-              span(list{Attrs.class_("text-sm text-gray-400")}, list{text("Total Steps")}),
-              span(
-                list{Attrs.class_("text-xl font-bold text-gray-200 font-mono")},
-                list{text(Int.toString(state.totalSteps))},
-              ),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// =========================================================================
-// Main view
-// =========================================================================
-
-/// Render the VM Inspector panel as a full-screen overlay.
-let view = (state: vmInspectorState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/98 z-40 flex flex-col"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel(
-        "VM Inspector — reversible VM visual debugger with step forward and backward",
-      ),
-    },
-    list{
-      // Header
-      div(
-        list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              div(
-                list{
-                  Attrs.class_("w-6 h-6 rounded bg-orange-900 flex items-center justify-center"),
-                },
-                list{
-                  span(list{Attrs.class_("text-orange-400 text-xs font-bold")}, list{text("VM")}),
-                },
-              ),
-              div(
-                list{},
-                list{
-                  h2(
-                    list{Attrs.class_("text-lg font-medium text-gray-200")},
-                    list{text("VM Inspector")},
-                  ),
-                  div(
-                    list{Attrs.class_("text-xs text-gray-500")},
-                    list{
-                      text(
-                        "Reversible VM debugger — 23 instructions, 5 tiers, step forward and backward",
-                      ),
-                    },
-                  ),
-                },
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "text-gray-500 hover:text-gray-300 px-3 py-1.5 text-sm rounded bg-gray-800 hover:bg-gray-700",
-              ),
-              Events.onClick(PanelSwitcher(ClosePanels)),
-              KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-            },
-            list{text("Close")},
-          ),
-        },
-      ),
-      // Error banner
-      switch state.error {
-      | Some(err) =>
-        div(
-          list{Attrs.class_("px-4 py-2 bg-red-950 border-b border-red-900")},
-          list{
-            div(
-              list{Attrs.class_("flex items-center justify-between")},
-              list{
-                span(list{Attrs.class_("text-red-400 text-sm")}, list{text(err)}),
-                button(
-                  list{
-                    Attrs.class_("text-red-500 hover:text-red-400 text-xs"),
-                    Events.onClick(VmInspector(DismissVmError)),
-                    KeyboardNav.onActivate(VmInspector(DismissVmError)),
-                  },
-                  list{text("Dismiss")},
-                ),
-              },
-            ),
-          },
-        )
-      | None => noNode
-      },
-      // Tab bar
-      renderTabs(state.activeCategory),
-      // Content
-      switch state.activeCategory {
-      | InspectorDebugger => renderDebugger(state)
-      | InspectorTimeline => renderTimeline(state)
-      | InspectorCallGraph =>
-        div(
-          list{Attrs.class_("flex-1 flex items-center justify-center")},
-          list{
-            div(
-              list{Attrs.class_("text-gray-600 text-sm")},
-              list{text("Call graph visualisation — coming in Phase 2.")},
-            ),
-          },
-        )
-      | InspectorPortIO => renderPortIO(state)
-      | InspectorStatistics => renderStatistics(state)
-      },
-    },
-  )
-}
diff --git a/src/components/VoiceTag.affine b/src/components/VoiceTag.affine
new file mode 100644
index 00000000..d5f041e7
--- /dev/null
+++ b/src/components/VoiceTag.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VoiceTag;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/VoiceTag.res b/src/components/VoiceTag.res
deleted file mode 100644
index 70252bcf..00000000
--- a/src/components/VoiceTag.res
+++ /dev/null
@@ -1,506 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Code MRI — VoiceTag Component (Layer 0)
-///
-/// View layer for the tag management panel. Renders:
-///   - Tag list with type badges, line ranges, and attribution
-///   - Voice input controls (start/stop listening, transcript display)
-///   - Tag creation form (keyboard fallback for non-voice input)
-///   - Filter controls (by type, resolved/unresolved)
-///   - Summary bar (total tags, unresolved count, AI vs human ratio)
-///
-/// The component is designed as an ambient sidebar or panel overlay,
-/// depending on how the user configures their layout. It always shows
-/// the tags for the currently active file.
-///
-/// STANDALONE-FIRST: This UI is one consumer of the .mri.json format.
-/// The same tags can be viewed/edited by CLI tools, VS Code extensions,
-/// or any JSON-aware tool. PanLL adds voice input and agentic integration.
-
-open Model
-open Msg
-open Tea.Html
-
-// ===========================================================================
-// Tag type badge — coloured pill showing tag category
-// ===========================================================================
-
-/// Render a tag type badge (coloured pill).
-let renderTagBadge = (tagType: mriTagType): Tea_Vdom.t<msg> => {
-  let (bg, text_, border) = VoiceTagEngine.tagTypeColour(tagType)
-  let label = VoiceTagEngine.tagTypeShort(tagType)
-  let isModal = VoiceTagEngine.isModalTag(tagType)
-  span(
-    list{
-      Attrs.class_(
-        `text-xs px-1.5 py-0.5 rounded border ${bg} ${text_} ${border} ${isModal
-            ? "ring-1 ring-pink-500/30"
-            : ""}`,
-      ),
-      Attrs.title(
-        VoiceTagEngine.tagTypeLabel(tagType) ++ (
-          isModal ? " (modal — affects system behaviour)" : ""
-        ),
-      ),
-    },
-    list{text(label)},
-  )
-}
-
-// ===========================================================================
-// Attribution display — who created the tag and how
-// ===========================================================================
-
-/// Render attribution info (agent + method).
-let renderAttribution = (attr: mriAttribution): Tea_Vdom.t<msg> => {
-  let methodStr = VoiceTagEngine.methodLabel(attr.method)
-  let isAi = attr.agent !== "human"
-  let agentColour = isAi ? "text-amber-400" : "text-emerald-400"
-  span(
-    list{Attrs.class_("text-xs text-gray-500 flex items-center gap-1")},
-    list{
-      span(list{Attrs.class_(agentColour)}, list{text(attr.agent)}),
-      span(list{Attrs.class_("text-gray-700")}, list{text("·")}),
-      span(list{}, list{text(methodStr)}),
-    },
-  )
-}
-
-// ===========================================================================
-// Single tag row
-// ===========================================================================
-
-/// Render a single tag in the tag list.
-let renderTag = (tag: mriTag, isSelected: bool): Tea_Vdom.t<msg> => {
-  let selectedClass = isSelected
-    ? "bg-gray-800/70 border-indigo-600"
-    : "border-gray-800/50 hover:bg-gray-800/30"
-  let resolvedClass = tag.resolved ? "opacity-60" : ""
-  let lineStr =
-    tag.startLine === tag.endLine
-      ? `L${Int.toString(tag.startLine)}`
-      : `L${Int.toString(tag.startLine)}-${Int.toString(tag.endLine)}`
-
-  div(
-    list{
-      Attrs.class_(
-        `flex items-center gap-2 px-3 py-2 border-b ${selectedClass} ${resolvedClass} transition-colors cursor-pointer`,
-      ),
-      Attrs.ariaLabel(VoiceTagEngine.tagAriaLabel(tag)),
-      Events.onClick(VoiceTag(SelectTag(Some(tag.id)))),
-    },
-    list{
-      // Tag number (for voice reference: "show tag 3")
-      span(
-        list{Attrs.class_("text-xs text-gray-600 w-6 text-right font-mono")},
-        list{text(`#${Int.toString(tag.id)}`)},
-      ),
-      // Tag type badge
-      renderTagBadge(tag.tagType),
-      // Line range
-      span(list{Attrs.class_("text-xs text-gray-500 font-mono w-16")}, list{text(lineStr)}),
-      // Message (if any)
-      div(
-        list{Attrs.class_("flex-1 min-w-0")},
-        list{
-          switch tag.message {
-          | Some(m) =>
-            span(list{Attrs.class_("text-sm text-gray-300 truncate block")}, list{text(m)})
-          | None =>
-            span(list{Attrs.class_("text-sm text-gray-600 italic")}, list{text("(no message)")})
-          },
-        },
-      ),
-      // Attribution
-      renderAttribution(tag.attribution),
-      // Resolved indicator
-      if tag.resolved {
-        span(
-          list{Attrs.class_("text-xs text-emerald-600"), Attrs.title("Resolved")},
-          list{text("R")},
-        )
-      } else {
-        noNode
-      },
-      // Actions: resolve, delete
-      div(
-        list{Attrs.class_("flex items-center gap-1 ml-2")},
-        list{
-          if !tag.resolved {
-            button(
-              list{
-                Attrs.class_(
-                  "text-xs px-1.5 py-0.5 text-gray-500 hover:text-emerald-400 hover:bg-gray-800 rounded transition-colors",
-                ),
-                Attrs.title("Resolve tag"),
-                Events.onClick(VoiceTag(ResolveTagById(tag.id))),
-              },
-              list{text("R")},
-            )
-          } else {
-            noNode
-          },
-          button(
-            list{
-              Attrs.class_(
-                "text-xs px-1.5 py-0.5 text-gray-500 hover:text-red-400 hover:bg-gray-800 rounded transition-colors",
-              ),
-              Attrs.title("Delete tag"),
-              Events.onClick(VoiceTag(DeleteTagById(tag.id))),
-            },
-            list{text("X")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ===========================================================================
-// Voice controls — start/stop listening, status indicator
-// ===========================================================================
-
-/// Render voice input controls.
-let renderVoiceControls = (voice: voiceState): Tea_Vdom.t<msg> => {
-  let (statusText, statusClass, buttonLabel, buttonAction) = switch voice {
-  | VoiceOff => ("Off", "text-gray-600", "Start Voice", VoiceTag(StartVoice))
-  | VoiceListening => (
-      "Listening...",
-      "text-emerald-400 animate-pulse",
-      "Stop",
-      VoiceTag(StopVoice),
-    )
-  | VoiceProcessing(transcript) => (
-      `Processing: "${transcript}"`,
-      "text-amber-400",
-      "Cancel",
-      VoiceTag(StopVoice),
-    )
-  | VoiceError(err) => (`Error: ${err}`, "text-red-400", "Retry", VoiceTag(StartVoice))
-  }
-
-  div(
-    list{Attrs.class_("flex items-center gap-3 px-4 py-2 border-b border-gray-800 bg-gray-900/50")},
-    list{
-      // Voice status indicator
-      div(
-        list{Attrs.class_("flex items-center gap-2 flex-1")},
-        list{
-          // Mic icon (simple text indicator)
-          span(
-            list{
-              Attrs.class_(
-                switch voice {
-                | VoiceListening => "text-emerald-400 text-lg"
-                | _ => "text-gray-600 text-lg"
-                },
-              ),
-            },
-            list{text("M")},
-          ),
-          span(list{Attrs.class_(`text-xs ${statusClass}`)}, list{text(statusText)}),
-        },
-      ),
-      // Voice toggle button
-      button(
-        list{
-          Attrs.class_(
-            "px-3 py-1 text-xs rounded transition-colors " ++
-            switch voice {
-            | VoiceListening => "bg-red-900/50 text-red-300 hover:bg-red-800/50 border border-red-700"
-            | _ => "bg-gray-800 text-gray-300 hover:bg-gray-700 border border-gray-700"
-            },
-          ),
-          Events.onClick(buttonAction),
-          Attrs.ariaLabel(buttonLabel),
-        },
-        list{text(buttonLabel)},
-      ),
-    },
-  )
-}
-
-// ===========================================================================
-// Summary bar — aggregate stats for the current file
-// ===========================================================================
-
-/// Render the summary statistics bar.
-let renderSummary = (summary: mriFileSummary): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_(
-        "flex items-center gap-4 px-4 py-2 border-b border-gray-800 text-xs text-gray-500",
-      ),
-    },
-    list{
-      span(list{}, list{text(`${Int.toString(summary.totalTags)} tags`)}),
-      span(list{Attrs.class_("text-gray-700")}, list{text("|")}),
-      span(
-        list{Attrs.class_(summary.unresolvedTags > 0 ? "text-amber-400" : "")},
-        list{text(`${Int.toString(summary.unresolvedTags)} open`)},
-      ),
-      span(list{Attrs.class_("text-gray-700")}, list{text("|")}),
-      span(list{}, list{text(`${Int.toString(summary.humanTagCount)} human`)}),
-      span(list{}, list{text(`${Int.toString(summary.aiTagCount)} AI`)}),
-      if summary.careOnRegions > 0 {
-        span(
-          list{Attrs.class_("text-pink-400")},
-          list{text(`${Int.toString(summary.careOnRegions)} care-on`)},
-        )
-      } else {
-        noNode
-      },
-      if summary.ecoModeRegions > 0 {
-        span(
-          list{Attrs.class_("text-emerald-400")},
-          list{text(`${Int.toString(summary.ecoModeRegions)} eco`)},
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-// ===========================================================================
-// Filter controls — type filter, show resolved toggle
-// ===========================================================================
-
-/// Render the filter bar.
-let renderFilters = (filterType: option<mriTagType>, showResolved: bool): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex items-center gap-2 px-4 py-2 border-b border-gray-800")},
-    list{
-      // Type filter buttons
-      button(
-        list{
-          Attrs.class_(
-            `text-xs px-2 py-1 rounded transition-colors ${filterType === None
-                ? "bg-indigo-900/50 text-indigo-300 border border-indigo-700"
-                : "text-gray-500 hover:text-gray-300"}`,
-          ),
-          Events.onClick(VoiceTag(SetFilterType(None))),
-        },
-        list{text("All")},
-      ),
-      button(
-        list{
-          Attrs.class_(
-            `text-xs px-2 py-1 rounded transition-colors ${filterType === Some(Todo)
-                ? "bg-blue-900/50 text-blue-300 border border-blue-700"
-                : "text-gray-500 hover:text-gray-300"}`,
-          ),
-          Events.onClick(VoiceTag(SetFilterType(Some(Todo)))),
-        },
-        list{text("TODO")},
-      ),
-      button(
-        list{
-          Attrs.class_(
-            `text-xs px-2 py-1 rounded transition-colors ${filterType === Some(Fixme)
-                ? "bg-red-900/50 text-red-300 border border-red-700"
-                : "text-gray-500 hover:text-gray-300"}`,
-          ),
-          Events.onClick(VoiceTag(SetFilterType(Some(Fixme)))),
-        },
-        list{text("FIXME")},
-      ),
-      button(
-        list{
-          Attrs.class_(
-            `text-xs px-2 py-1 rounded transition-colors ${filterType === Some(Refactor)
-                ? "bg-amber-900/50 text-amber-300 border border-amber-700"
-                : "text-gray-500 hover:text-gray-300"}`,
-          ),
-          Events.onClick(VoiceTag(SetFilterType(Some(Refactor)))),
-        },
-        list{text("REFACTOR")},
-      ),
-      button(
-        list{
-          Attrs.class_(
-            `text-xs px-2 py-1 rounded transition-colors ${filterType === Some(Review)
-                ? "bg-cyan-900/50 text-cyan-300 border border-cyan-700"
-                : "text-gray-500 hover:text-gray-300"}`,
-          ),
-          Events.onClick(VoiceTag(SetFilterType(Some(Review)))),
-        },
-        list{text("REVIEW")},
-      ),
-      // Spacer
-      div(list{Attrs.class_("flex-1")}, list{}),
-      // Show resolved toggle
-      button(
-        list{
-          Attrs.class_(
-            `text-xs px-2 py-1 rounded transition-colors ${showResolved
-                ? "bg-gray-700 text-gray-300"
-                : "text-gray-500 hover:text-gray-300"}`,
-          ),
-          Events.onClick(VoiceTag(ToggleShowResolved)),
-          KeyboardNav.onActivate(VoiceTag(ToggleShowResolved)),
-        },
-        list{text(showResolved ? "Hide Resolved" : "Show Resolved")},
-      ),
-    },
-  )
-}
-
-// ===========================================================================
-// Header — file name, controls, close button
-// ===========================================================================
-
-/// Render the panel header.
-let renderHeader = (currentFile: option<string>): Tea_Vdom.t<msg> => {
-  let fileName = switch currentFile {
-  | Some(f) => f
-  | None => "(no file)"
-  }
-  div(
-    list{Attrs.class_("flex items-center justify-between px-4 py-3 border-b border-gray-800")},
-    list{
-      // Title
-      div(
-        list{Attrs.class_("flex items-center gap-3")},
-        list{
-          div(list{Attrs.class_("text-lg font-medium text-gray-200")}, list{text("Code MRI")}),
-          span(list{Attrs.class_("text-xs text-gray-500")}, list{text("VoiceTag")}),
-          span(
-            list{Attrs.class_("text-xs text-gray-600 font-mono truncate max-w-xs")},
-            list{text(fileName)},
-          ),
-        },
-      ),
-      // Controls
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          // Load tags for current file
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-xs bg-gray-800 text-gray-300 rounded hover:bg-gray-700 border border-gray-700 transition-colors",
-              ),
-              Events.onClick(VoiceTag(LoadFileTags)),
-              KeyboardNav.onActivate(VoiceTag(LoadFileTags)),
-              Attrs.title("Reload tags from .mri.json"),
-            },
-            list{text("Reload")},
-          ),
-          // Close button
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-1.5 text-sm text-gray-400 hover:text-gray-200 bg-gray-800 rounded hover:bg-gray-700 transition-colors",
-              ),
-              Events.onClick(PanelSwitcher(ClosePanels)),
-              KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-            },
-            list{text("Close")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ===========================================================================
-// Empty state — no tags yet
-// ===========================================================================
-
-/// Render the empty state when no tags exist.
-let renderEmpty = (): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("flex-1 flex items-center justify-center")},
-    list{
-      div(
-        list{Attrs.class_("text-center max-w-sm")},
-        list{
-          div(list{Attrs.class_("text-gray-500 text-lg mb-2")}, list{text("No tags yet")}),
-          div(
-            list{Attrs.class_("text-gray-600 text-sm mb-4")},
-            list{
-              text(
-                "Use voice commands or the keyboard to annotate code regions. Tags are saved as .mri.json sidecars — portable, no PanLL required.",
-              ),
-            },
-          ),
-          div(
-            list{Attrs.class_("text-xs text-gray-700 space-y-1")},
-            list{
-              div(list{}, list{text("Voice: \"line 24 to 34 tag todo fix this later\"")}),
-              div(list{}, list{text("Voice: \"tag fixme needs error handling\"")}),
-              div(list{}, list{text("Voice: \"resolve tag 3\"")}),
-            },
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ===========================================================================
-// Main view — full-screen panel overlay
-// ===========================================================================
-
-/// Main VoiceTag panel view — renders as a full-screen overlay.
-///
-/// Layout:
-///   Header (title, file name, reload, close)
-///   Voice controls (mic toggle, status, transcript)
-///   Summary bar (tag counts, human/AI ratio)
-///   Filter bar (type filter, resolved toggle)
-///   Tag list (scrollable)
-let view = (vt: voiceTagState): Tea_Vdom.t<msg> => {
-  // Apply filters to the tag list.
-  let filteredTags = {
-    let byType = switch vt.filterType {
-    | Some(t) => VoiceTagEngine.filterByType(vt.tags, t)
-    | None => vt.tags
-    }
-    if vt.showResolved {
-      byType
-    } else {
-      VoiceTagEngine.filterUnresolved(byType)
-    }
-  }
-
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),
-      Attrs.ariaLabel("Code MRI VoiceTag panel"),
-    },
-    list{
-      // Header
-      renderHeader(vt.currentFile),
-      // Voice controls
-      renderVoiceControls(vt.voice),
-      // Summary bar
-      renderSummary(vt.summary),
-      // Filter bar
-      renderFilters(vt.filterType, vt.showResolved),
-      // Error display
-      switch vt.error {
-      | Some(err) =>
-        div(
-          list{
-            Attrs.class_("px-4 py-2 bg-red-900/30 border-b border-red-800 text-xs text-red-400"),
-          },
-          list{text(err)},
-        )
-      | None => noNode
-      },
-      // Tag list (scrollable)
-      if Array.length(filteredTags) === 0 {
-        renderEmpty()
-      } else {
-        div(
-          list{Attrs.class_("flex-1 overflow-y-auto")},
-          filteredTags
-          ->Array.map(tag => renderTag(tag, vt.selectedTagId === Some(tag.id)))
-          ->List.fromArray,
-        )
-      },
-    },
-  )
-}
diff --git a/src/components/WiringInspector.affine b/src/components/WiringInspector.affine
new file mode 100644
index 00000000..316bfcc6
--- /dev/null
+++ b/src/components/WiringInspector.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module WiringInspector;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/WiringInspector.res b/src/components/WiringInspector.res
deleted file mode 100644
index f7f4b08a..00000000
--- a/src/components/WiringInspector.res
+++ /dev/null
@@ -1,799 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Constraint Audit Dashboard — Phase 5 Audit & Operator Trust.
-///
-/// Upgraded from the original Wiring Inspector panel to a full audit
-/// dashboard. Shows lifecycle state distribution, health scores,
-/// bottleneck analysis, and per-state panel breakdowns using PCC
-/// constraint data.
-///
-/// Tabs: Overview | By State | Bottlenecks | History
-///
-/// Layout:
-///   - Header: title, health badge, Run Audit button, Close button
-///   - Tab bar: four audit tabs with active indicator
-///   - Content: tab-specific sub-views
-///
-/// Uses Tea_Html pattern (NOT JSX): div(list{attrs}, list{children})
-
-open Model
-open Msg
-open Tea.Html
-
-// ════════════════════════════════════════════════════════════════════════
-// Sub-view: Health score badge
-// ════════════════════════════════════════════════════════════════════════
-
-/// Render the health score as a coloured badge.
-let renderHealthBadge = (dist: stateDistribution): Tea_Vdom.t<msg> => {
-  let score = WiringInspectorEngine.healthScore(dist)
-  let colorClass = WiringInspectorEngine.healthScoreColor(score)
-  let bgClass = WiringInspectorEngine.healthScoreBgColor(score)
-  span(
-    list{
-      Attrs.class_(`text-sm font-medium px-3 py-1 rounded border ${colorClass} ${bgClass}`),
-      Attrs.ariaLabel(`Health score: ${Int.toString(score)} percent`),
-    },
-    list{text(`${Int.toString(score)}% healthy`)},
-  )
-}
-
-// ════════════════════════════════════════════════════════════════════════
-// Sub-view: Repairability badge
-// ════════════════════════════════════════════════════════════════════════
-
-/// Render a repairability badge.
-let repairBadge = (r: WiringInspectorModel.repairability): Tea_Vdom.t<msg> =>
-  span(
-    list{
-      Attrs.class_(
-        `text-xs px-1.5 py-0.5 rounded ${WiringInspectorEngine.repairabilityColor(
-            r,
-          )} bg-gray-800 border border-gray-700`,
-      ),
-    },
-    list{text(WiringInspectorEngine.repairabilityLabel(r))},
-  )
-
-// ════════════════════════════════════════════════════════════════════════
-// Sub-view: Header bar
-// ════════════════════════════════════════════════════════════════════════
-
-/// Render the top header with title, health badge, timestamp, and action buttons.
-let renderHeader = (state: wiringInspectorState): Tea_Vdom.t<msg> =>
-  div(
-    list{
-      Attrs.class_("flex items-center justify-between px-6 py-4 border-b border-gray-800"),
-      Attrs.role("banner"),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex items-center gap-4")},
-        list{
-          span(
-            list{Attrs.class_("text-lg font-medium text-gray-200")},
-            list{text("Constraint Audit Dashboard")},
-          ),
-          // Health score badge (only when results exist)
-          if Array.length(state.results) > 0 {
-            renderHealthBadge(state.distribution)
-          } else {
-            noNode
-          },
-          // Last run timestamp
-          switch state.lastRunAt {
-          | Some(ts) =>
-            span(list{Attrs.class_("text-xs text-gray-500")}, list{text(`Last run: ${ts}`)})
-          | None => noNode
-          },
-        },
-      ),
-      div(
-        list{Attrs.class_("flex items-center gap-2")},
-        list{
-          // Run Audit button
-          button(
-            list{
-              Attrs.class_(
-                "px-4 py-2 bg-indigo-600 text-white rounded hover:bg-indigo-500 transition-colors text-sm font-medium disabled:opacity-50 disabled:cursor-not-allowed",
-              ),
-              Events.onClick(WiringInspector(RunVerification)),
-              KeyboardNav.onActivate(WiringInspector(RunVerification)),
-              Attrs.disabled(state.loading),
-              Attrs.ariaLabel("Run PCC audit against all panel contracts"),
-            },
-            list{
-              text(
-                if state.loading {
-                  "Auditing..."
-                } else {
-                  "Run Audit"
-                },
-              ),
-            },
-          ),
-          // Close button
-          button(
-            list{
-              Attrs.class_(
-                "px-3 py-2 bg-gray-800 text-gray-300 rounded hover:bg-gray-700 transition-colors text-sm",
-              ),
-              Events.onClick(PanelSwitcher(ClosePanels)),
-              KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-              Attrs.ariaLabel("Close Constraint Audit Dashboard"),
-            },
-            list{text("Close")},
-          ),
-        },
-      ),
-    },
-  )
-
-// ════════════════════════════════════════════════════════════════════════
-// Sub-view: Tab bar
-// ════════════════════════════════════════════════════════════════════════
-
-/// Render the tab bar with four audit tabs.
-let renderTabBar = (activeTab: auditTab): Tea_Vdom.t<msg> => {
-  let allTabs: array<auditTab> = [Overview, ByState, Bottlenecks, History]
-  div(
-    list{
-      Attrs.class_("flex border-b border-gray-800 px-6"),
-      Attrs.role("tablist"),
-      Attrs.ariaLabel("Audit dashboard tabs"),
-    },
-    allTabs
-    ->Array.map(tab => {
-      let isActive = tab == activeTab
-      let label = WiringInspectorEngine.tabLabel(tab)
-      button(
-        list{
-          Attrs.class_(
-            `px-4 py-2.5 text-sm font-medium transition-colors border-b-2 -mb-px ${if isActive {
-                "text-indigo-400 border-indigo-500"
-              } else {
-                "text-gray-500 border-transparent hover:text-gray-300 hover:border-gray-600"
-              }}`,
-          ),
-          Events.onClick(WiringInspector(SetAuditTab(tab))),
-          Attrs.role("tab"),
-          Attrs.ariaSelected(isActive),
-          Attrs.ariaLabel(`${label} tab`),
-        },
-        list{text(label)},
-      )
-    })
-    ->List.fromArray,
-  )
-}
-
-// ════════════════════════════════════════════════════════════════════════
-// Sub-view: State distribution bar
-// ════════════════════════════════════════════════════════════════════════
-
-/// Render a single segment of the stacked state distribution bar.
-let renderSegment = (
-  label: string,
-  count: int,
-  total: int,
-  colorClass: string,
-  bgClass: string,
-): Tea_Vdom.t<msg> => {
-  if count == 0 || total == 0 {
-    noNode
-  } else {
-    let pct = Int.toFloat(count) *. 100.0 /. Int.toFloat(total)
-    let widthStr = Float.toString(pct)
-    div(
-      list{
-        Attrs.class_(
-          `${bgClass} flex items-center justify-center py-2 text-xs font-medium ${colorClass} overflow-hidden`,
-        ),
-        Attrs.style("width", `${widthStr}%`),
-        Attrs.ariaLabel(`${label}: ${Int.toString(count)} panels`),
-      },
-      list{
-        if pct > 8.0 {
-          text(`${label} ${Int.toString(count)}`)
-        } else if pct > 3.0 {
-          text(Int.toString(count))
-        } else {
-          noNode
-        },
-      },
-    )
-  }
-}
-
-/// Render the full horizontal stacked distribution bar.
-let renderDistributionBar = (dist: stateDistribution): Tea_Vdom.t<msg> =>
-  div(
-    list{
-      Attrs.class_("bg-gray-900/60 border border-gray-800 rounded-lg p-4 mb-4"),
-      Attrs.ariaLabel("Panel state distribution"),
-    },
-    list{
-      div(
-        list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wider mb-3")},
-        list{text("State Distribution")},
-      ),
-      div(
-        list{Attrs.class_("flex rounded overflow-hidden border border-gray-700")},
-        list{
-          renderSegment(
-            "Releasable",
-            dist.releasable,
-            dist.total,
-            "text-green-300",
-            "bg-green-800/60",
-          ),
-          renderSegment("Viable", dist.viable, dist.total, "text-cyan-300", "bg-cyan-800/60"),
-          renderSegment("Wired", dist.wired, dist.total, "text-blue-300", "bg-blue-800/60"),
-          renderSegment("Draft", dist.draft, dist.total, "text-yellow-300", "bg-yellow-800/60"),
-          renderSegment("Broken", dist.broken, dist.total, "text-red-300", "bg-red-800/60"),
-        },
-      ),
-      // Legend
-      div(
-        list{Attrs.class_("flex gap-4 mt-3 text-xs text-gray-500 flex-wrap")},
-        list{
-          span(
-            list{},
-            list{
-              span(
-                list{Attrs.class_("inline-block w-2 h-2 rounded-full bg-green-500 mr-1")},
-                list{},
-              ),
-              text(`Releasable (${Int.toString(dist.releasable)})`),
-            },
-          ),
-          span(
-            list{},
-            list{
-              span(
-                list{Attrs.class_("inline-block w-2 h-2 rounded-full bg-cyan-500 mr-1")},
-                list{},
-              ),
-              text(`Viable (${Int.toString(dist.viable)})`),
-            },
-          ),
-          span(
-            list{},
-            list{
-              span(
-                list{Attrs.class_("inline-block w-2 h-2 rounded-full bg-blue-500 mr-1")},
-                list{},
-              ),
-              text(`Wired (${Int.toString(dist.wired)})`),
-            },
-          ),
-          span(
-            list{},
-            list{
-              span(
-                list{Attrs.class_("inline-block w-2 h-2 rounded-full bg-yellow-500 mr-1")},
-                list{},
-              ),
-              text(`Draft (${Int.toString(dist.draft)})`),
-            },
-          ),
-          span(
-            list{},
-            list{
-              span(list{Attrs.class_("inline-block w-2 h-2 rounded-full bg-red-500 mr-1")}, list{}),
-              text(`Broken (${Int.toString(dist.broken)})`),
-            },
-          ),
-        },
-      ),
-    },
-  )
-
-// ════════════════════════════════════════════════════════════════════════
-// Sub-view: Quick stats grid
-// ════════════════════════════════════════════════════════════════════════
-
-/// Render a single quick stat card.
-let statCard = (label: string, count: int, colorClass: string): Tea_Vdom.t<msg> =>
-  div(
-    list{
-      Attrs.class_("bg-gray-900/60 border border-gray-800 rounded-lg p-4 flex-1"),
-      Attrs.role("status"),
-      Attrs.ariaLabel(`${label}: ${Int.toString(count)}`),
-    },
-    list{
-      div(
-        list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wider mb-1")},
-        list{text(label)},
-      ),
-      div(list{Attrs.class_(`text-2xl font-light ${colorClass}`)}, list{text(Int.toString(count))}),
-    },
-  )
-
-/// Render the four quick stat cards.
-let renderQuickStats = (dist: stateDistribution): Tea_Vdom.t<msg> =>
-  div(
-    list{Attrs.class_("grid grid-cols-4 gap-3 mb-4")},
-    list{
-      statCard("Total Panels", dist.total, "text-gray-200"),
-      statCard("Releasable", dist.releasable, "text-green-400"),
-      statCard("Need Tests", dist.wired, "text-blue-400"),
-      statCard("Need Attention", dist.draft + dist.broken, "text-yellow-400"),
-    },
-  )
-
-// ════════════════════════════════════════════════════════════════════════
-// Sub-view: Bottleneck row
-// ════════════════════════════════════════════════════════════════════════
-
-/// Render a single bottleneck row.
-let renderBottleneckRow = (bn: bottleneck): Tea_Vdom.t<msg> =>
-  div(
-    list{
-      Attrs.class_(
-        "flex items-center gap-3 py-2 px-3 rounded hover:bg-gray-800/40 text-sm border-b border-gray-800/50",
-      ),
-    },
-    list{
-      // Panel name
-      span(list{Attrs.class_("text-gray-300 font-medium w-32 shrink-0")}, list{text(bn.panelId)}),
-      // Obligation kind
-      span(list{Attrs.class_("text-xs text-gray-600 w-20 shrink-0")}, list{text(`[${bn.kind}]`)}),
-      // Blocked count
-      span(
-        list{Attrs.class_("text-red-400 font-mono text-xs w-20 shrink-0")},
-        list{text(`blocks ${Int.toString(bn.blockedCount)}`)},
-      ),
-      // Repairability badge
-      repairBadge(bn.repairability),
-      // Message
-      span(list{Attrs.class_("text-gray-400 text-xs flex-1 truncate")}, list{text(bn.message)}),
-      // File
-      switch bn.file {
-      | Some(f) =>
-        span(list{Attrs.class_("text-gray-500 text-xs font-mono truncate max-w-48")}, list{text(f)})
-      | None => noNode
-      },
-    },
-  )
-
-// ════════════════════════════════════════════════════════════════════════
-// Sub-view: Top 5 bottlenecks card
-// ════════════════════════════════════════════════════════════════════════
-
-/// Render the top 5 bottlenecks card for the overview tab.
-let renderTopBottlenecks = (bottlenecks: array<bottleneck>): Tea_Vdom.t<msg> => {
-  let top5 = WiringInspectorEngine.topBottlenecks(bottlenecks, 5)
-  div(
-    list{
-      Attrs.class_("bg-gray-900/60 border border-gray-800 rounded-lg p-4 mb-4"),
-      Attrs.ariaLabel("Top 5 bottlenecks"),
-    },
-    list{
-      div(
-        list{Attrs.class_("text-xs text-gray-500 uppercase tracking-wider mb-3")},
-        list{text("Top 5 Bottlenecks")},
-      ),
-      if Array.length(top5) > 0 {
-        div(list{}, top5->Array.map(renderBottleneckRow)->List.fromArray)
-      } else {
-        div(
-          list{Attrs.class_("text-gray-600 text-sm py-4 text-center")},
-          list{text("No bottlenecks found")},
-        )
-      },
-    },
-  )
-}
-
-// ════════════════════════════════════════════════════════════════════════
-// Sub-view: Overview tab
-// ════════════════════════════════════════════════════════════════════════
-
-/// Render the Overview tab content.
-let renderOverviewTab = (state: wiringInspectorState): Tea_Vdom.t<msg> => {
-  let dist = state.distribution
-  let score = WiringInspectorEngine.healthScore(dist)
-  let colorClass = WiringInspectorEngine.healthScoreColor(score)
-  div(
-    list{Attrs.role("tabpanel"), Attrs.ariaLabel("Overview tab content")},
-    list{
-      // Large health score display
-      div(
-        list{Attrs.class_("bg-gray-900/60 border border-gray-800 rounded-lg p-6 mb-4 text-center")},
-        list{
-          div(
-            list{Attrs.class_(`text-5xl font-light ${colorClass} mb-2`)},
-            list{text(`${Int.toString(score)}%`)},
-          ),
-          div(
-            list{Attrs.class_("text-gray-500 text-sm uppercase tracking-wider")},
-            list{text("Healthy")},
-          ),
-        },
-      ),
-      // State distribution bar
-      renderDistributionBar(dist),
-      // Top 5 bottlenecks
-      renderTopBottlenecks(state.bottlenecks),
-      // Quick stats
-      renderQuickStats(dist),
-    },
-  )
-}
-
-// ════════════════════════════════════════════════════════════════════════
-// Sub-view: By State tab
-// ════════════════════════════════════════════════════════════════════════
-
-/// Render a single panel row within a state section.
-let renderStatePanelRow = (v: panelVerification): Tea_Vdom.t<msg> =>
-  div(
-    list{Attrs.class_("flex items-center gap-3 py-2 px-3 text-sm hover:bg-gray-800/40 rounded")},
-    list{
-      // Panel name
-      span(list{Attrs.class_("text-gray-200 font-medium w-40 shrink-0")}, list{text(v.panelId)}),
-      // Obligation summary
-      span(
-        list{Attrs.class_("text-gray-500 text-xs w-24 shrink-0")},
-        list{text(`${Int.toString(v.satisfied)}/${Int.toString(v.total)} satisfied`)},
-      ),
-      // Primary bottleneck
-      switch v.primaryBottleneck {
-      | Some(bn) =>
-        span(list{Attrs.class_("text-red-400 text-xs")}, list{text(`Bottleneck: ${bn}`)})
-      | None => noNode
-      },
-      // Next requirement
-      switch v.policy.nextRequirement {
-      | Some(req) =>
-        span(list{Attrs.class_("text-amber-400 text-xs ml-auto")}, list{text(`Next: ${req}`)})
-      | None => noNode
-      },
-    },
-  )
-
-/// Render a collapsible section for a single lifecycle state.
-let renderStateSection = (
-  state: panelState,
-  panels: array<panelVerification>,
-  isExpanded: bool,
-): Tea_Vdom.t<msg> => {
-  let label = WiringInspectorEngine.stateLabel(state)
-  let colorClass = WiringInspectorEngine.stateColor(state)
-  let bgClass = WiringInspectorEngine.stateBgColor(state)
-  let borderClass = WiringInspectorEngine.stateBorderColor(state)
-  let count = Array.length(panels)
-  div(
-    list{Attrs.class_("mb-2 rounded-lg overflow-hidden border border-gray-800")},
-    list{
-      // Section header — clickable to expand/collapse
-      button(
-        list{
-          Attrs.class_(
-            `w-full text-left px-4 py-3 flex items-center justify-between ${bgClass} hover:opacity-90 transition-opacity`,
-          ),
-          Events.onClick(WiringInspector(ToggleStateSection(state))),
-          Attrs.ariaExpanded(isExpanded),
-          Attrs.ariaLabel(`${label} section, ${Int.toString(count)} panels`),
-          Attrs.role("button"),
-        },
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-3")},
-            list{
-              span(list{Attrs.class_(`font-medium ${colorClass}`)}, list{text(label)}),
-              span(
-                list{
-                  Attrs.class_(`text-xs px-2 py-0.5 rounded border ${borderClass} ${colorClass}`),
-                },
-                list{text(Int.toString(count))},
-              ),
-            },
-          ),
-          span(
-            list{Attrs.class_("text-gray-500 text-sm")},
-            list{
-              text(
-                if isExpanded {
-                  "[-]"
-                } else {
-                  "[+]"
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Expanded panel list
-      if isExpanded && count > 0 {
-        div(
-          list{Attrs.class_("bg-gray-950/40 px-2 py-1 space-y-0.5")},
-          panels->Array.map(renderStatePanelRow)->List.fromArray,
-        )
-      } else if isExpanded {
-        div(
-          list{Attrs.class_("bg-gray-950/40 px-4 py-3 text-gray-600 text-sm text-center")},
-          list{text("No panels in this state")},
-        )
-      } else {
-        noNode
-      },
-    },
-  )
-}
-
-/// Render the By State tab with five collapsible sections.
-let renderByStateTab = (state: wiringInspectorState): Tea_Vdom.t<msg> => {
-  let results = state.results
-  let allStates: array<panelState> = [Releasable, Viable, Wired, Draft, Broken]
-  div(
-    list{Attrs.role("tabpanel"), Attrs.ariaLabel("By State tab content")},
-    allStates
-    ->Array.map(panelState => {
-      let panels = WiringInspectorEngine.panelsByState(results, panelState)
-      let sectionId = WiringInspectorEngine.stateLabel(panelState)
-      let isExpanded = state.selectedPanel == Some(sectionId)
-      renderStateSection(panelState, panels, isExpanded)
-    })
-    ->List.fromArray,
-  )
-}
-
-// ════════════════════════════════════════════════════════════════════════
-// Sub-view: Bottlenecks tab
-// ════════════════════════════════════════════════════════════════════════
-
-/// Render the full bottleneck table header.
-let renderBottleneckHeader = (): Tea_Vdom.t<msg> =>
-  div(
-    list{
-      Attrs.class_(
-        "flex items-center gap-3 py-2 px-3 text-xs text-gray-500 uppercase tracking-wider border-b border-gray-700 font-medium",
-      ),
-      Attrs.role("row"),
-    },
-    list{
-      span(list{Attrs.class_("w-32 shrink-0")}, list{text("Panel")}),
-      span(list{Attrs.class_("w-40 shrink-0")}, list{text("Obligation")}),
-      span(list{Attrs.class_("w-20 shrink-0")}, list{text("Kind")}),
-      span(list{Attrs.class_("w-20 shrink-0")}, list{text("Blocked")}),
-      span(list{Attrs.class_("w-16 shrink-0")}, list{text("Repair")}),
-      span(list{Attrs.class_("flex-1")}, list{text("Message")}),
-      span(list{Attrs.class_("w-48 shrink-0")}, list{text("File")}),
-    },
-  )
-
-/// Render a full bottleneck table row (more detailed than the overview row).
-let renderFullBottleneckRow = (bn: bottleneck): Tea_Vdom.t<msg> =>
-  div(
-    list{
-      Attrs.class_(
-        "flex items-center gap-3 py-2 px-3 text-sm hover:bg-gray-800/40 border-b border-gray-800/50",
-      ),
-      Attrs.role("row"),
-    },
-    list{
-      span(list{Attrs.class_("text-gray-300 font-medium w-32 shrink-0")}, list{text(bn.panelId)}),
-      span(
-        list{Attrs.class_("text-gray-200 font-mono text-xs w-40 shrink-0 truncate")},
-        list{text(bn.obligationId)},
-      ),
-      span(list{Attrs.class_("text-gray-600 text-xs w-20 shrink-0")}, list{text(bn.kind)}),
-      span(
-        list{Attrs.class_("text-red-400 font-mono text-xs w-20 shrink-0")},
-        list{text(Int.toString(bn.blockedCount))},
-      ),
-      span(list{Attrs.class_("w-16 shrink-0")}, list{repairBadge(bn.repairability)}),
-      span(list{Attrs.class_("text-gray-400 text-xs flex-1 truncate")}, list{text(bn.message)}),
-      switch bn.file {
-      | Some(f) =>
-        span(
-          list{Attrs.class_("text-gray-500 text-xs font-mono w-48 shrink-0 truncate")},
-          list{text(f)},
-        )
-      | None => span(list{Attrs.class_("w-48 shrink-0")}, list{})
-      },
-    },
-  )
-
-/// Render the filter bar for the bottleneck table.
-let renderBottleneckFilterBar = (state: wiringInspectorState): Tea_Vdom.t<msg> => {
-  let kindChip = (label: string, value: option<string>, isActive: bool) =>
-    button(
-      list{
-        Attrs.class_(
-          `px-3 py-1 text-xs rounded-full border transition-colors ${if isActive {
-              "bg-indigo-600 border-indigo-500 text-white"
-            } else {
-              "bg-gray-800 border-gray-700 text-gray-400 hover:bg-gray-700"
-            }}`,
-        ),
-        Events.onClick(WiringInspector(SetFilterStatus(value))),
-        Attrs.ariaLabel(`Filter by: ${label}`),
-      },
-      list{text(label)},
-    )
-  div(
-    list{Attrs.class_("flex items-center gap-2 mb-3 flex-wrap")},
-    list{
-      span(list{Attrs.class_("text-xs text-gray-500 mr-1")}, list{text("Filter:")}),
-      kindChip("All", None, state.filterStatus == None),
-      kindChip("Registry", Some("registry"), state.filterStatus == Some("registry")),
-      kindChip("Model", Some("model"), state.filterStatus == Some("model")),
-      kindChip("Msg", Some("msg"), state.filterStatus == Some("msg")),
-      kindChip("View", Some("view"), state.filterStatus == Some("view")),
-      kindChip("Test", Some("test"), state.filterStatus == Some("test")),
-      span(list{Attrs.class_("border-l border-gray-700 h-4 mx-1")}, list{}),
-      kindChip("Safe", Some("safe"), state.filterStatus == Some("safe")),
-      kindChip("Unsafe", Some("unsafe"), state.filterStatus == Some("unsafe")),
-      kindChip("Manual", Some("manual"), state.filterStatus == Some("manual")),
-    },
-  )
-}
-
-/// Apply bottleneck filters to the full list.
-let filterBottlenecks = (bottlenecks: array<bottleneck>, filterStatus: option<string>): array<
-  bottleneck,
-> =>
-  switch filterStatus {
-  | None => bottlenecks
-  | Some("safe") => bottlenecks->Array.filter(bn => bn.repairability == Safe)
-  | Some("unsafe") => bottlenecks->Array.filter(bn => bn.repairability == Unsafe)
-  | Some("manual") => bottlenecks->Array.filter(bn => bn.repairability == Manual)
-  | Some(kind) => bottlenecks->Array.filter(bn => bn.kind == kind)
-  }
-
-/// Render the Bottlenecks tab with the full table.
-let renderBottlenecksTab = (state: wiringInspectorState): Tea_Vdom.t<msg> => {
-  let filtered = filterBottlenecks(state.bottlenecks, state.filterStatus)
-  div(
-    list{Attrs.role("tabpanel"), Attrs.ariaLabel("Bottlenecks tab content")},
-    list{
-      renderBottleneckFilterBar(state),
-      div(
-        list{
-          Attrs.class_("bg-gray-900/60 border border-gray-800 rounded-lg overflow-hidden"),
-          Attrs.role("table"),
-          Attrs.ariaLabel("Bottleneck obligations table"),
-        },
-        list{
-          renderBottleneckHeader(),
-          if Array.length(filtered) > 0 {
-            div(
-              list{Attrs.role("rowgroup")},
-              filtered->Array.map(renderFullBottleneckRow)->List.fromArray,
-            )
-          } else {
-            div(
-              list{Attrs.class_("text-gray-600 text-sm py-8 text-center")},
-              list{text("No bottlenecks match the current filter")},
-            )
-          },
-        },
-      ),
-      div(
-        list{Attrs.class_("text-xs text-gray-600 mt-2 text-right")},
-        list{
-          text(
-            `${Int.toString(Array.length(filtered))} of ${Int.toString(
-                Array.length(state.bottlenecks),
-              )} bottlenecks shown`,
-          ),
-        },
-      ),
-    },
-  )
-}
-
-// ════════════════════════════════════════════════════════════════════════
-// Sub-view: History tab (placeholder)
-// ════════════════════════════════════════════════════════════════════════
-
-/// Render the History tab placeholder.
-let renderHistoryTab = (): Tea_Vdom.t<msg> =>
-  div(
-    list{
-      Attrs.class_("text-center py-16"),
-      Attrs.role("tabpanel"),
-      Attrs.ariaLabel("History tab content"),
-    },
-    list{
-      div(list{Attrs.class_("text-gray-500 text-lg mb-2")}, list{text("Coming soon")}),
-      div(
-        list{Attrs.class_("text-gray-600 text-sm")},
-        list{text("Audit history tracking will show how panel health evolves over time.")},
-      ),
-    },
-  )
-
-// ════════════════════════════════════════════════════════════════════════
-// Main view
-// ════════════════════════════════════════════════════════════════════════
-
-/// Main Constraint Audit Dashboard panel view (Phase 5).
-let view = (state: wiringInspectorState): Tea_Vdom.t<msg> =>
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950 overflow-auto z-50"),
-      Attrs.role("region"),
-      Attrs.ariaLabel("Constraint Audit Dashboard"),
-    },
-    list{
-      // Header bar
-      renderHeader(state),
-      // Tab bar
-      renderTabBar(state.activeTab),
-      // Content area
-      div(
-        list{Attrs.class_("max-w-6xl mx-auto px-6 py-6")},
-        list{
-          // Error banner
-          switch state.error {
-          | Some(err) =>
-            div(
-              list{
-                Attrs.class_(
-                  "bg-red-900/30 border border-red-800 text-red-300 rounded-lg p-4 mb-4",
-                ),
-                Attrs.role("alert"),
-              },
-              list{
-                div(list{Attrs.class_("font-medium mb-1")}, list{text("Audit Error")}),
-                div(list{Attrs.class_("text-sm")}, list{text(err)}),
-              },
-            )
-          | None => noNode
-          },
-          // Loading spinner
-          if state.loading {
-            div(
-              list{
-                Attrs.class_("flex items-center justify-center py-12"),
-                Attrs.role("status"),
-                Attrs.ariaLabel("Audit in progress"),
-              },
-              list{
-                div(
-                  list{
-                    Attrs.class_(
-                      "animate-spin w-8 h-8 border-2 border-gray-700 border-t-indigo-500 rounded-full",
-                    ),
-                  },
-                  list{},
-                ),
-                span(
-                  list{Attrs.class_("ml-3 text-gray-400")},
-                  list{text("Running constraint audit...")},
-                ),
-              },
-            )
-          } else if Array.length(state.results) == 0 {
-            // Empty state
-            div(
-              list{Attrs.class_("text-center py-16")},
-              list{
-                div(
-                  list{Attrs.class_("text-gray-500 text-lg mb-2")},
-                  list{text("No audit results")},
-                ),
-                div(
-                  list{Attrs.class_("text-gray-600 text-sm")},
-                  list{text("Click \"Run Audit\" to check all panel contracts with PCC.")},
-                ),
-              },
-            )
-          } else {
-            // Tab content
-            switch state.activeTab {
-            | Overview => renderOverviewTab(state)
-            | ByState => renderByStateTab(state)
-            | Bottlenecks => renderBottlenecksTab(state)
-            | History => renderHistoryTab()
-            }
-          },
-        },
-      ),
-    },
-  )
diff --git a/src/components/Wizard.affine b/src/components/Wizard.affine
new file mode 100644
index 00000000..b463cc80
--- /dev/null
+++ b/src/components/Wizard.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Wizard;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Wizard.res b/src/components/Wizard.res
deleted file mode 100644
index 7a0d5cad..00000000
--- a/src/components/Wizard.res
+++ /dev/null
@@ -1,672 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Wizard Component — Guided plugin/panel creation wizard.
-
-open Model
-open Msg
-open Tea.Html
-
-let tierToString = (tier: ProvisionerModel.pluginTrustTier): string => {
-  switch tier {
-  | Teranga => "Teranga"
-  | Shield => "Shield"
-  | Ayo => "Ayo"
-  }
-}
-
-/// Render type selection step
-let renderSelectType = (state: WizardModel.wizardState): Tea_Vdom.t<msg> => {
-  div(list{}, list{
-    h3(list{Attrs.class_("text-xl font-semibold mb-4 text-gray-200")}, list{text("What would you like to create?")}),
-    p(list{Attrs.class_("text-gray-400 mb-6")}, list{text("Choose whether to create a panel or a plugin")}),
-
-    div(list{Attrs.class_("grid grid-cols-2 gap-4")}, list{
-      // Panel option
-      button(
-        list{
-          Attrs.class_(
-            `p-6 border-2 rounded-lg transition-all ${state.creationType === Some(WizardModel.CreatingPanel) ? "border-indigo-500 bg-indigo-900" : "border-gray-700 hover:border-gray-600"}`
-          ),
-          Events.onClick(Wizard(SetCreationType(WizardModel.CreatingPanel))),
-        },
-        list{
-          h4(list{Attrs.class_("text-lg font-semibold mb-2")}, list{text("Panel")}),
-          p(list{Attrs.class_("text-gray-400 text-sm")}, list{text("Create a new UI panel for PanLL")}),
-        }
-      ),
-
-      // Plugin option
-      button(
-        list{
-          Attrs.class_(
-            `p-6 border-2 rounded-lg transition-all ${state.creationType === Some(WizardModel.CreatingPlugin) ? "border-indigo-500 bg-indigo-900" : "border-gray-700 hover:border-gray-600"}`
-          ),
-          Events.onClick(Wizard(SetCreationType(WizardModel.CreatingPlugin))),
-        },
-        list{
-          h4(list{Attrs.class_("text-lg font-semibold mb-2")}, list{text("Plugin")}),
-          p(list{Attrs.class_("text-gray-400 text-sm")}, list{text("Create a new plugin cartridge")}),
-        }
-      ),
-    }),
-  })
-}
-
-/// Render capability selection step
-let renderChooseCapabilities = (state: WizardModel.wizardState): Tea_Vdom.t<msg> => {
-  let categories = WizardModel.getCapabilityCategories()
-  let requiredDeps = WizardModel.getRequiredDependencies(state)
-
-  div(
-    list{Attrs.class_("space-y-6")},
-    List.concat(
-      list{
-        h3(list{Attrs.class_("text-xl font-semibold text-gray-200")}, list{text("Select Capabilities")}),
-        p(list{Attrs.class_("text-gray-400")}, list{text("Choose what your component can do")}),
-        // Required dependencies warning
-        if requiredDeps->Array.length > 0 {
-          div(list{Attrs.class_("p-3 bg-yellow-900/30 rounded-lg")}, list{
-            h4(list{Attrs.class_("font-semibold text-yellow-300 mb-2")}, list{text("Required Dependencies")}),
-            p(list{Attrs.class_("text-yellow-200 text-sm")}, list{
-              text("The following capabilities require additional dependencies:"),
-            }),
-            ul(
-              list{Attrs.class_("list-disc list-inside mt-2 text-yellow-100 text-sm")},
-              requiredDeps->Array.map(depId => li(list{}, list{text(depId)}))->List.fromArray
-            ),
-          })
-        } else {
-          noNode
-        },
-      },
-      // Capability categories
-      categories->Array.map(category => {
-        let categoryCaps = WizardModel.getCapabilitiesByCategory(category)
-
-        div(list{Attrs.class_("border border-gray-700 rounded-lg p-4")}, list{
-          h4(list{Attrs.class_("text-lg font-semibold mb-3 text-gray-200")}, list{text(category)}),
-          div(
-            list{Attrs.class_("grid grid-cols-1 md:grid-cols-2 gap-3")},
-            categoryCaps->Array.map(cap => {
-              let isSelected = WizardModel.isCapabilitySelected(cap.id, state)
-              let hasDeps = cap.requiredDependencies->Array.length > 0
-
-              button(
-                list{
-                  Attrs.class_(
-                    `p-3 border rounded transition-all flex flex-col ${isSelected ? "border-indigo-500 bg-indigo-900/30" : "border-gray-600 hover:border-gray-500"}`
-                  ),
-                  Events.onClick(Wizard(ToggleCapability(cap.id))),
-                },
-                list{
-                  div(list{Attrs.class_("flex justify-between items-start")}, list{
-                    div(list{}, list{
-                      h5(list{Attrs.class_("font-medium text-gray-200")}, list{text(cap.name)}),
-                      p(list{Attrs.class_("text-xs text-gray-400 mt-1")}, list{text(cap.description)}),
-                    }),
-                    if hasDeps {
-                      span(list{
-                        Attrs.class_("text-xs bg-yellow-600 text-yellow-100 px-2 py-1 rounded-full ml-2")
-                      }, list{text(`${cap.requiredDependencies->Array.length->Int.toString} deps`)})
-                    } else {
-                      noNode
-                    }
-                  }),
-                  if isSelected {
-                    div(list{Attrs.class_("text-xs text-green-400 mt-2 self-end")}, list{text("✓ Selected")})
-                  } else {
-                    noNode
-                  }
-                }
-              )
-            })->List.fromArray
-          )
-        })
-      })->List.fromArray
-    )
-  )
-}
-
-/// Render dependency configuration step
-let renderConfigureDependencies = (state: WizardModel.wizardState): Tea_Vdom.t<msg> => {
-  let requiredDeps = WizardModel.getRequiredDependencies(state)
-  let satisfiedDeps = state.dependencies->Array.map(dep => dep.pluginId)
-
-  div(list{Attrs.class_("space-y-6")}, list{
-    // Step header
-    h3(list{Attrs.class_("text-xl font-semibold text-gray-200")}, list{text("Configure Dependencies")}),
-    p(list{Attrs.class_("text-gray-400")}, list{text("Set up required dependencies for selected capabilities")}),
-
-    // Dependency status
-    div(list{Attrs.class_("flex gap-4")}, list{
-      div(list{Attrs.class_("flex-1")}, list{
-        div(list{Attrs.class_("p-4 border border-gray-700 rounded-lg")}, list{
-          h4(list{Attrs.class_("font-semibold text-gray-200 mb-2")}, list{text("Required Dependencies")}),
-          p(list{Attrs.class_("text-xs text-gray-400 mb-3")}, list{
-            text(`${requiredDeps->Array.length->Int.toString} dependencies needed`)
-          }),
-          if requiredDeps->Array.length > 0 {
-            ul(
-              list{Attrs.class_("space-y-2 text-sm")},
-              requiredDeps->Array.map(depId => {
-                let isSatisfied = satisfiedDeps->Array.includes(depId)
-                li(list{
-                  Attrs.class_(`flex items-center ${isSatisfied ? "text-green-400" : "text-red-400"}`)
-                }, list{
-                  if isSatisfied {
-                    span(list{Attrs.class_("mr-2")}, list{text("✓")})
-                  } else {
-                    span(list{Attrs.class_("mr-2")}, list{text("✗")})
-                  },
-                  text(depId)
-                })
-              })->List.fromArray
-            )
-          } else {
-            p(list{Attrs.class_("text-green-400 text-sm")}, list{text("No dependencies required")})
-          }
-        })
-      }),
-      div(list{Attrs.class_("flex-1")}, list{
-        div(list{Attrs.class_("p-4 border border-gray-700 rounded-lg")}, list{
-          h4(list{Attrs.class_("font-semibold text-gray-200 mb-2")}, list{text("Configured Dependencies")}),
-          p(list{Attrs.class_("text-xs text-gray-400 mb-3")}, list{
-            text(`${state.dependencies->Array.length->Int.toString} dependencies configured`)
-          }),
-          if state.dependencies->Array.length > 0 {
-            table(list{Attrs.class_("w-full text-sm")}, list{
-              thead(list{}, list{
-                tr(list{}, list{
-                  th(list{Attrs.class_("text-left text-gray-400 pb-2")}, list{text("Plugin")}),
-                  th(list{Attrs.class_("text-left text-gray-400 pb-2")}, list{text("Version")}),
-                  th(list{Attrs.class_("text-left text-gray-400 pb-2")}, list{text("Tier")}),
-                })
-              }),
-              tbody(
-                list{},
-                state.dependencies->Array.map(dep => {
-                  tr(list{Attrs.class_("border-t border-gray-800")}, list{
-                    td(list{Attrs.class_("py-2 text-gray-200")}, list{text(dep.pluginId)}),
-                    td(list{Attrs.class_("py-2")}, list{
-                      input(
-                        list{
-                          Attrs.class_("w-24 px-2 py-1 bg-gray-800 border border-gray-600 rounded text-sm"),
-                          Attrs.value(dep.version),
-                          Events.onInput(newVersion => Wizard(AddDependency(dep.pluginId, newVersion))),
-                        },
-                        list{}
-                      )
-                    }),
-                    td(list{Attrs.class_("py-2")}, list{
-                      select(
-                        list{
-                          Attrs.class_("px-2 py-1 bg-gray-800 border border-gray-600 rounded text-sm"),
-                          Attrs.value(tierToString(dep.tier)),
-                        },
-                        list{
-                          option'(list{Attrs.value("Teranga")}, list{text("Teranga")}),
-                          option'(list{Attrs.value("Shield")}, list{text("Shield")}),
-                          option'(list{Attrs.value("Ayo")}, list{text("Ayo")}),
-                        }
-                      )
-                    })
-                  })
-                })->List.fromArray
-              )
-            })
-          } else {
-            p(list{Attrs.class_("text-gray-400 text-sm")}, list{text("No dependencies configured")})
-          }
-        })
-      })
-    }),
-
-    // Add dependency form
-    if requiredDeps->Array.length > 0 && !WizardModel.areDependenciesSatisfied(state) {
-      div(list{Attrs.class_("border border-gray-700 rounded-lg p-4")}, list{
-        h4(list{Attrs.class_("font-semibold text-gray-200 mb-3")}, list{text("Add Missing Dependency")}),
-
-        div(list{Attrs.class_("space-y-3")}, list{
-          // Plugin selection
-          div(list{}, list{
-            label(list{Attrs.class_("block text-sm text-gray-400 mb-1")}, list{text("Plugin")}),
-            select(
-              list{
-                Attrs.class_("w-full px-3 py-2 bg-gray-800 border border-gray-600 rounded text-sm"),
-              },
-              List.concat(
-                list{option'(list{Attrs.value("")}, list{text("Select plugin...")})},
-                requiredDeps->Array.map(depId =>
-                  option'(list{Attrs.value(depId)}, list{text(depId)})
-                )->List.fromArray
-              )
-            )
-          }),
-
-          // Version selection
-          div(list{}, list{
-            label(list{Attrs.class_("block text-sm text-gray-400 mb-1")}, list{text("Version")}),
-            input(
-              list{
-                Attrs.class_("w-full px-3 py-2 bg-gray-800 border border-gray-600 rounded text-sm"),
-                Attrs.placeholder("1.0.0"),
-              },
-              list{}
-            )
-          }),
-
-          // Trust tier
-          div(list{}, list{
-            label(list{Attrs.class_("block text-sm text-gray-400 mb-1")}, list{text("Trust Tier")}),
-            select(
-              list{Attrs.class_("w-full px-3 py-2 bg-gray-800 border border-gray-600 rounded text-sm")},
-              list{
-                option'(list{Attrs.value("Ayo")}, list{text("Ayo (Community)")}),
-                option'(list{Attrs.value("Shield")}, list{text("Shield (Security)")}),
-                option'(list{Attrs.value("Teranga")}, list{text("Teranga (Core)")}),
-              }
-            )
-          }),
-
-          button(
-            list{
-              Attrs.class_("mt-3 px-4 py-2 bg-indigo-600 text-white rounded hover:bg-indigo-700 transition"),
-              Attrs.disabled(!WizardModel.canProceed(state)),
-            },
-            list{text("Add Dependency")}
-          )
-        })
-      })
-    } else {
-      noNode
-    }
-  })
-}
-
-/// Render security setup step
-let renderSetupSecurity = (state: WizardModel.wizardState): Tea_Vdom.t<msg> => {
-  div(list{Attrs.class_("space-y-6")}, list{
-    // Step header
-    h3(list{Attrs.class_("text-xl font-semibold text-gray-200")}, list{text("Setup Security")}),
-    p(list{Attrs.class_("text-gray-400")}, list{text("Configure security and sandboxing for your component")}),
-
-    // Trust tier selection
-    div(list{Attrs.class_("border border-gray-700 rounded-lg p-4")}, list{
-      h4(list{Attrs.class_("font-semibold text-gray-200 mb-3")}, list{text("Trust Tier")}),
-      p(list{Attrs.class_("text-xs text-gray-400 mb-3")}, list{
-        text("Select the appropriate trust level for your component")
-      }),
-
-      div(list{Attrs.class_("space-y-3")}, list{
-        // Teranga (Core)
-        button(
-          list{
-            Attrs.class_(
-              `w-full p-4 border-2 rounded-lg text-left transition-all ${state.securityConfig.trustTier === Teranga ? "border-yellow-500 bg-yellow-900/30" : "border-gray-600 hover:border-gray-500"}`
-            ),
-            Events.onClick(Wizard(SetTrustTier(Teranga))),
-          },
-          list{
-            div(list{Attrs.class_("flex justify-between items-center")}, list{
-              div(list{}, list{
-                h5(list{Attrs.class_("font-medium text-gray-200")}, list{text("Teranga - Core")}),
-                p(list{Attrs.class_("text-xs text-gray-400 mt-1")}, list{
-                  text("Core plugins, always available, high trust")
-                }),
-              }),
-              if state.securityConfig.trustTier === Teranga {
-                span(list{Attrs.class_("text-green-400")}, list{text("✓")})
-              } else {
-                noNode
-              }
-            })
-          }
-        ),
-
-        // Shield (Security)
-        button(
-          list{
-            Attrs.class_(
-              `w-full p-4 border-2 rounded-lg text-left transition-all ${state.securityConfig.trustTier === Shield ? "border-red-500 bg-red-900/30" : "border-gray-600 hover:border-gray-500"}`
-            ),
-            Events.onClick(Wizard(SetTrustTier(Shield))),
-          },
-          list{
-            div(list{Attrs.class_("flex justify-between items-center")}, list{
-              div(list{}, list{
-                h5(list{Attrs.class_("font-medium text-gray-200")}, list{text("Shield - Security")}),
-                p(list{Attrs.class_("text-xs text-gray-400 mt-1")}, list{
-                  text("Security-critical plugins, elevated trust")
-                }),
-              }),
-              if state.securityConfig.trustTier === Shield {
-                span(list{Attrs.class_("text-green-400")}, list{text("✓")})
-              } else {
-                noNode
-              }
-            })
-          }
-        ),
-
-        // Ayo (Community)
-        button(
-          list{
-            Attrs.class_(
-              `w-full p-4 border-2 rounded-lg text-left transition-all ${state.securityConfig.trustTier === Ayo ? "border-blue-500 bg-blue-900/30" : "border-gray-600 hover:border-gray-500"}`
-            ),
-            Events.onClick(Wizard(SetTrustTier(Ayo))),
-          },
-          list{
-            div(list{Attrs.class_("flex justify-between items-center")}, list{
-              div(list{}, list{
-                h5(list{Attrs.class_("font-medium text-gray-200")}, list{text("Ayo - Community")}),
-                p(list{Attrs.class_("text-xs text-gray-400 mt-1")}, list{
-                  text("Community plugins, standard trust")
-                }),
-              }),
-              if state.securityConfig.trustTier === Ayo {
-                span(list{Attrs.class_("text-green-400")}, list{text("✓")})
-              } else {
-                noNode
-              }
-            })
-          }
-        ),
-      })
-    }),
-
-    // Sandbox policy
-    div(list{Attrs.class_("border border-gray-700 rounded-lg p-4")}, list{
-      h4(list{Attrs.class_("font-semibold text-gray-200 mb-3")}, list{text("Sandbox Policy")}),
-      p(list{Attrs.class_("text-xs text-gray-400 mb-3")}, list{
-        text("Configure resource access permissions")
-      }),
-
-      div(list{Attrs.class_("space-y-4")}, list{
-        // Network access
-        div(list{Attrs.class_("flex items-center justify-between p-3 border border-gray-700 rounded")}, list{
-          div(list{}, list{
-            h5(list{Attrs.class_("font-medium text-gray-200")}, list{text("Network Access")}),
-            p(list{Attrs.class_("text-xs text-gray-400")}, list{text("Allow outgoing network requests")}),
-          }),
-          label(list{Attrs.class_("relative inline-flex items-center cursor-pointer")}, list{
-            input(list{
-              Attrs.type_("checkbox"),
-              Attrs.class_("sr-only peer"),
-              Attrs.checked(state.securityConfig.networkAccess),
-              Events.onChange(_ => Wizard(ToggleNetworkAccess(!state.securityConfig.networkAccess))),
-            }, list{}),
-            div(list{Attrs.class_("w-11 h-6 bg-gray-600 rounded-full peer peer-checked:bg-indigo-600")}, list{}),
-          })
-        }),
-
-        // Filesystem access
-        div(list{Attrs.class_("flex items-center justify-between p-3 border border-gray-700 rounded")}, list{
-          div(list{}, list{
-            h5(list{Attrs.class_("font-medium text-gray-200")}, list{text("Filesystem Access")}),
-            p(list{Attrs.class_("text-xs text-gray-400")}, list{text("Allow filesystem read/write operations")}),
-          }),
-          label(list{Attrs.class_("relative inline-flex items-center cursor-pointer")}, list{
-            input(list{
-              Attrs.type_("checkbox"),
-              Attrs.class_("sr-only peer"),
-              Attrs.checked(state.securityConfig.filesystemAccess),
-              Events.onChange(_ => Wizard(ToggleFilesystemAccess(!state.securityConfig.filesystemAccess))),
-            }, list{}),
-            div(list{Attrs.class_("w-11 h-6 bg-gray-600 rounded-full peer peer-checked:bg-indigo-600")}, list{}),
-          })
-        }),
-      })
-    }),
-
-    // Capability restrictions placeholder
-    div(list{Attrs.class_("border border-gray-700 rounded-lg p-4")}, list{
-      h4(list{Attrs.class_("font-semibold text-gray-200 mb-3")}, list{text("Allowed Capabilities")}),
-      p(list{Attrs.class_("text-xs text-gray-400 mb-3")}, list{
-        text("Specify which capabilities this component can use")
-      }),
-      p(list{Attrs.class_("text-gray-500 text-sm")}, list{
-        text("Capability restriction UI will be implemented here")
-      })
-    }),
-  })
-}
-
-/// Render review and generate step
-let renderReviewAndGenerate = (state: WizardModel.wizardState): Tea_Vdom.t<msg> => {
-  let capabilityCount = state.selectedCapabilities->Array.length
-  let dependencyCount = state.dependencies->Array.length
-  let isPanel = state.creationType === Some(WizardModel.CreatingPanel)
-  let validationErrors = WizardModel.validateWizardConfig(state)
-
-  div(list{Attrs.class_("space-y-6")}, list{
-    // Step header
-    h3(list{Attrs.class_("text-xl font-semibold text-gray-200")}, list{text("Review & Generate")}),
-    p(list{Attrs.class_("text-gray-400")}, list{
-      text(`Review your ${isPanel ? "panel" : "plugin"} configuration before generation`)
-    }),
-
-    // Summary cards
-    div(list{Attrs.class_("grid grid-cols-1 md:grid-cols-3 gap-4")}, list{
-      // Type card
-      div(list{Attrs.class_("border border-gray-700 rounded-lg p-4")}, list{
-        h4(list{Attrs.class_("font-semibold text-gray-200 mb-2")}, list{text("Type")}),
-        p(list{Attrs.class_("text-xs text-gray-400 mb-2")}, list{text(isPanel ? "Panel" : "Plugin")}),
-        p(list{Attrs.class_("text-xs text-gray-500")}, list{text(isPanel ? "UI component" : "Backend cartridge")}),
-      }),
-
-      // Capabilities card
-      div(list{Attrs.class_("border border-gray-700 rounded-lg p-4")}, list{
-        h4(list{Attrs.class_("font-semibold text-gray-200 mb-2")}, list{text("Capabilities")}),
-        p(list{Attrs.class_("text-xs text-gray-400 mb-2")}, list{
-          text(`${capabilityCount->Int.toString} capabilities selected`)
-        }),
-        if capabilityCount > 0 {
-          div(list{}, list{
-            ul(
-              list{Attrs.class_("text-xs text-gray-500 mt-2 space-y-1 list-disc list-inside")},
-              state.selectedCapabilities
-              ->Array.slice(~start=0, ~end=3)
-              ->Array.map(capId => {
-                let name = WizardModel.capabilityRegistry
-                  ->Array.find(c => c.id === capId)
-                  ->Option.mapOr(capId, c => c.name)
-                li(list{}, list{text(name)})
-              })
-              ->List.fromArray
-            ),
-            if capabilityCount > 3 {
-              p(list{Attrs.class_("text-xs text-gray-500 mt-1")}, list{
-                text(`... and ${Int.toString(capabilityCount - 3)} more`)
-              })
-            } else {
-              noNode
-            }
-          })
-        } else {
-          p(list{Attrs.class_("text-xs text-gray-500 mt-2")}, list{text("No capabilities selected")})
-        }
-      }),
-
-      // Dependencies card
-      div(list{Attrs.class_("border border-gray-700 rounded-lg p-4")}, list{
-        h4(list{Attrs.class_("font-semibold text-gray-200 mb-2")}, list{text("Dependencies")}),
-        p(list{Attrs.class_("text-xs text-gray-400 mb-2")}, list{
-          text(`${dependencyCount->Int.toString} dependencies configured`)
-        }),
-        if dependencyCount > 0 {
-          div(list{}, list{
-            ul(
-              list{Attrs.class_("text-xs text-gray-500 mt-2 space-y-1 list-disc list-inside")},
-              state.dependencies
-              ->Array.slice(~start=0, ~end=3)
-              ->Array.map(dep => li(list{}, list{text(`${dep.pluginId} v${dep.version}`)}) )
-              ->List.fromArray
-            ),
-            if dependencyCount > 3 {
-              p(list{Attrs.class_("text-xs text-gray-500 mt-1")}, list{
-                text(`... and ${Int.toString(dependencyCount - 3)} more`)
-              })
-            } else {
-              noNode
-            }
-          })
-        } else {
-          p(list{Attrs.class_("text-xs text-green-400 mt-2")}, list{text("No dependencies required")})
-        }
-      }),
-    }),
-
-    // Security card
-    div(list{Attrs.class_("border border-gray-700 rounded-lg p-4")}, list{
-      h4(list{Attrs.class_("font-semibold text-gray-200 mb-2")}, list{text("Security")}),
-      div(list{Attrs.class_("space-y-3")}, list{
-        div(list{}, list{
-          p(list{Attrs.class_("text-xs text-gray-400")}, list{text("Trust Tier")}),
-          p(list{Attrs.class_("font-medium text-gray-200")}, list{
-            text(switch state.securityConfig.trustTier {
-            | Teranga => "Teranga (Core)"
-            | Shield => "Shield (Security)"
-            | Ayo => "Ayo (Community)"
-            })
-          })
-        }),
-        div(list{}, list{
-          p(list{Attrs.class_("text-xs text-gray-400")}, list{text("Network Access")}),
-          p(list{Attrs.class_("font-medium text-gray-200")}, list{
-            text(state.securityConfig.networkAccess ? "Enabled" : "Disabled")
-          })
-        }),
-        div(list{}, list{
-          p(list{Attrs.class_("text-xs text-gray-400")}, list{text("Filesystem Access")}),
-          p(list{Attrs.class_("font-medium text-gray-200")}, list{
-            text(state.securityConfig.filesystemAccess ? "Enabled" : "Disabled")
-          })
-        }),
-      })
-    }),
-
-    // Validation status
-    div(list{Attrs.class_("border border-gray-700 rounded-lg p-4")}, list{
-      h4(list{Attrs.class_("font-semibold text-gray-200 mb-3")}, list{text("Validation")}),
-      if validationErrors->Array.length === 0 {
-        div(list{Attrs.class_("text-green-400")}, list{
-          span(list{Attrs.class_("mr-2")}, list{text("✓")}),
-          text("All checks passed - ready to generate!")
-        })
-      } else {
-        div(list{}, list{
-          div(list{Attrs.class_("text-red-400")}, list{
-            span(list{Attrs.class_("mr-2")}, list{text("✗")}),
-            text("Please fix the following issues:")
-          }),
-          ul(
-            list{Attrs.class_("text-red-300 text-sm mt-2 list-disc list-inside")},
-            validationErrors->Array.map(error => li(list{}, list{text(error)}))->List.fromArray
-          ),
-        })
-      }
-    }),
-
-    // Generate button
-    button(
-      list{
-        Attrs.class_("mt-6 w-full px-6 py-3 bg-green-600 text-white rounded hover:bg-green-700 transition disabled:opacity-50 disabled:cursor-not-allowed"),
-        Attrs.disabled(validationErrors->Array.length > 0 || state.generating),
-        Events.onClick(Wizard(StartGeneration)),
-      },
-      list{
-        text(state.generating ? "Generating..." : "Generate Component")
-      }
-    ),
-  })
-}
-
-/// Dispatch to the correct step renderer
-let renderStepContent = (state: WizardModel.wizardState): Tea_Vdom.t<msg> => {
-  switch state.currentStep {
-  | SelectType => renderSelectType(state)
-  | ChooseCapabilities => renderChooseCapabilities(state)
-  | ConfigureDependencies => renderConfigureDependencies(state)
-  | SetupSecurity => renderSetupSecurity(state)
-  | ReviewAndGenerate => renderReviewAndGenerate(state)
-  }
-}
-
-/// Render the wizard component
-let renderWizard = (state: model): Tea_Vdom.t<msg> => {
-  let wizardState = state.wizard
-
-  div(
-    list{Attrs.class_("wizard-container p-6 bg-gray-900 rounded-lg max-w-2xl mx-auto")},
-    list{
-      // Header
-      div(list{Attrs.class_("flex justify-between items-center mb-6")}, list{
-        h2(list{Attrs.class_("text-2xl font-bold text-gray-200")}, list{text("Plugin/Panel Creation Wizard")}),
-        button(
-          list{
-            Attrs.class_("px-4 py-2 bg-gray-700 text-white rounded hover:bg-gray-600 transition"),
-            Events.onClick(Wizard(ResetWizard)),
-          },
-          list{text("Reset")}
-        ),
-      }),
-
-      // Step indicator
-      div(
-        list{Attrs.class_("flex gap-4 mb-6")},
-        [
-          WizardModel.SelectType,
-          WizardModel.ChooseCapabilities,
-          WizardModel.ConfigureDependencies,
-          WizardModel.SetupSecurity,
-          WizardModel.ReviewAndGenerate,
-        ]->Array.map(step => {
-          let isCurrent = wizardState.currentStep === step
-          let isCompleted = WizardModel.stepIndex(step) < WizardModel.stepIndex(wizardState.currentStep)
-
-          div(
-            list{
-              Attrs.class_(
-                `flex items-center gap-2 ${isCurrent ? "text-indigo-400" : isCompleted ? "text-green-400" : "text-gray-500"}`
-              ),
-            },
-            list{
-              div(list{Attrs.class_("w-6 h-6 rounded-full border-2 flex items-center justify-center text-xs")}, list{
-                text(isCompleted ? "✓" : Int.toString(WizardModel.stepIndex(step) + 1))
-              }),
-              text(WizardModel.stepLabel(step)),
-            }
-          )
-        })->List.fromArray
-      ),
-
-      // Step content
-      div(list{Attrs.class_("border-t border-gray-700 pt-6")}, list{
-        renderStepContent(wizardState)
-      }),
-
-      // Navigation
-      div(list{Attrs.class_("flex justify-between mt-8")}, list{
-        button(
-          list{
-            Attrs.class_("px-4 py-2 bg-gray-700 text-white rounded hover:bg-gray-600 transition disabled:opacity-50 disabled:cursor-not-allowed"),
-            Attrs.disabled(wizardState.currentStep === WizardModel.SelectType),
-            Events.onClick(Wizard(PreviousStep)),
-          },
-          list{text("Back")}
-        ),
-        button(
-          list{
-            Attrs.class_("px-4 py-2 bg-indigo-600 text-white rounded hover:bg-indigo-700 transition disabled:opacity-50 disabled:cursor-not-allowed"),
-            Attrs.disabled(!WizardModel.canProceed(wizardState)),
-            Events.onClick(Wizard(NextStep)),
-          },
-          list{text(WizardModel.isLastStep(wizardState.currentStep) ? "Finish" : "Next")}
-        ),
-      }),
-    }
-  )
-}
-
-let view = renderWizard
diff --git a/src/components/Workspace.affine b/src/components/Workspace.affine
new file mode 100644
index 00000000..eee74842
--- /dev/null
+++ b/src/components/Workspace.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Workspace;
+
+// TODO: Complete semantic implementation
diff --git a/src/components/Workspace.res b/src/components/Workspace.res
deleted file mode 100644
index 4772ab2b..00000000
--- a/src/components/Workspace.res
+++ /dev/null
@@ -1,841 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Workspace Panel — the configurator for panel arrangements, groups,
-/// sessions, modes, keybindings, and protection levels (DD-024, DD-025).
-///
-/// This is the "ribbon designer" for PanLL — like Directory Opus's toolbar
-/// editor or Word's ribbon customiser, but for the entire workspace layout.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render a mode badge showing the current workspace mode.
-let renderModeBadge = (mode: workspaceMode): Tea_Vdom.t<msg> => {
-  let (label, colour) = switch mode {
-  | RhodiumMode => ("Rhodium", "bg-yellow-700")
-  | EverythingMode => ("Everything", "bg-purple-700")
-  | CodeMode => ("Code", "bg-blue-700")
-  | BespokeMode => ("Bespoke", "bg-teal-700")
-  }
-  button(
-    list{
-      Attrs.class_(
-        `px-3 py-1 rounded text-xs font-medium ${colour} text-white hover:opacity-80 transition-opacity`,
-      ),
-      Attrs.title("Click to cycle workspace mode: Rhodium > Everything > Code > Bespoke"),
-      Events.onClick(Workspace(CycleWorkspaceMode)),
-      KeyboardNav.onActivate(Workspace(CycleWorkspaceMode)),
-    },
-    list{text(label)},
-  )
-}
-
-/// Render the protection level indicator.
-let renderProtectionBadge = (protection: sessionProtection): Tea_Vdom.t<msg> => {
-  let (label, colour) = switch protection {
-  | Open => ("Open", "bg-green-700")
-  | ReadOnly => ("Read-Only", "bg-red-700")
-  | Sandboxed => ("Sandboxed", "bg-orange-700")
-  | LanguageLocked(_) => ("Lang-Locked", "bg-amber-700")
-  | TranspilationGuarded => ("Transpile-Guard", "bg-indigo-700")
-  | ProductionGated => ("Prod-Gated", "bg-rose-700")
-  }
-  div(
-    list{
-      Attrs.class_(`px-2 py-0.5 rounded text-xs ${colour} text-white`),
-      Attrs.title("Session protection level — controls what mutations are allowed"),
-    },
-    list{text(label)},
-  )
-}
-
-/// Render the execution mode indicator.
-let renderExecutionBadge = (mode: executionMode): Tea_Vdom.t<msg> => {
-  let (label, colour) = switch mode {
-  | Live => ("Live", "bg-green-600")
-  | DryRun => ("Dry Run", "bg-yellow-600")
-  | Simulation => ("Simulation", "bg-cyan-600")
-  | Emulation => ("Emulation", "bg-violet-600")
-  }
-  div(
-    list{
-      Attrs.class_(`px-2 py-0.5 rounded text-xs ${colour} text-white`),
-      Attrs.title(
-        "Execution mode — Live applies changes, Dry Run previews them, Simulation uses mock data",
-      ),
-    },
-    list{text(label)},
-  )
-}
-
-/// Render a configurator section with title and items.
-let renderConfigSection = (
-  title: string,
-  tooltip: string,
-  items: list<Tea_Vdom.t<msg>>,
-): Tea_Vdom.t<msg> => {
-  div(
-    list{Attrs.class_("mb-6")},
-    list{
-      div(
-        list{
-          Attrs.class_("text-sm font-medium text-gray-400 mb-2 border-b border-gray-800 pb-1"),
-          Attrs.title(tooltip),
-        },
-        list{text(title)},
-      ),
-      div(list{Attrs.class_("space-y-2")}, items),
-    },
-  )
-}
-
-/// Render a selectable option button — highlights when active.
-let renderOption = (label: string, description: string, isActive: bool, onClick: msg): Tea_Vdom.t<
-  msg,
-> => {
-  let activeClass = if isActive {
-    "border-indigo-500 bg-indigo-950/50 text-indigo-300"
-  } else {
-    "border-gray-800 bg-gray-900/50 text-gray-400 hover:border-gray-600"
-  }
-  button(
-    list{
-      Attrs.class_(`w-full text-left p-3 rounded border ${activeClass} transition-colors`),
-      Attrs.title(description),
-      Attrs.ariaLabel(`${label}: ${description}`),
-      Events.onClick(onClick),
-    },
-    list{
-      div(list{Attrs.class_("text-xs font-medium")}, list{text(label)}),
-      div(list{Attrs.class_("text-xs text-gray-600 mt-0.5")}, list{text(description)}),
-    },
-  )
-}
-
-/// Render an arrangement card — shows name, active state, load/delete buttons.
-let renderArrangementCard = (arr: arrangement, isActive: bool): Tea_Vdom.t<msg> => {
-  let activeClass = if isActive {
-    "border-indigo-500 bg-indigo-950/50"
-  } else {
-    "border-gray-800 bg-gray-900/50 hover:border-gray-600"
-  }
-  div(
-    list{
-      Attrs.class_(
-        `p-3 rounded border ${activeClass} transition-colors flex items-center justify-between`,
-      ),
-      Attrs.ariaLabel(`Arrangement: ${arr.name}`),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex-1")},
-        list{
-          div(list{Attrs.class_("text-xs font-medium text-gray-300")}, list{text(arr.name)}),
-          div(
-            list{Attrs.class_("text-xs text-gray-600 mt-0.5")},
-            list{
-              text(
-                `${Int.toString(Array.length(arr.positions))} panels` ++ if arr.builtIn {
-                  " (built-in)"
-                } else {
-                  ""
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("flex items-center gap-1")},
-        list{
-          if !isActive {
-            button(
-              list{
-                Attrs.class_(
-                  "px-2 py-0.5 text-xs bg-gray-800 text-gray-400 rounded hover:bg-gray-700",
-                ),
-                Attrs.ariaLabel(`Load ${arr.name} arrangement`),
-                Events.onClick(Workspace(LoadArrangement(arr.id))),
-              },
-              list{text("Load")},
-            )
-          } else {
-            div(
-              list{Attrs.class_("px-2 py-0.5 text-xs bg-indigo-800 text-indigo-300 rounded")},
-              list{text("Active")},
-            )
-          },
-          if !arr.builtIn {
-            button(
-              list{
-                Attrs.class_(
-                  "px-2 py-0.5 text-xs bg-red-900/50 text-red-400 rounded hover:bg-red-800/50",
-                ),
-                Attrs.ariaLabel(`Delete ${arr.name} arrangement`),
-                Events.onClick(Workspace(DeleteArrangement(arr.id))),
-              },
-              list{text("Del")},
-            )
-          } else {
-            Tea.Html.noNode
-          },
-        },
-      ),
-    },
-  )
-}
-
-/// Render a panel group card with lock/visibility/z-order controls.
-let renderGroupCard = (group: panelGroup): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_(
-        "p-3 rounded border border-gray-800 bg-gray-900/50 flex items-center justify-between",
-      ),
-      Attrs.ariaLabel(`Group: ${group.name}`),
-    },
-    list{
-      div(
-        list{Attrs.class_("flex-1")},
-        list{
-          div(list{Attrs.class_("text-xs font-medium text-gray-300")}, list{text(group.name)}),
-          div(
-            list{Attrs.class_("text-xs text-gray-600 mt-0.5")},
-            list{text(`${Int.toString(Array.length(group.panelIds))} panels`)},
-          ),
-        },
-      ),
-      div(
-        list{Attrs.class_("flex items-center gap-1")},
-        list{
-          button(
-            list{
-              Attrs.class_(
-                `px-2 py-0.5 text-xs rounded ${if group.locked {
-                    "bg-amber-900/50 text-amber-400"
-                  } else {
-                    "bg-gray-800 text-gray-400 hover:bg-gray-700"
-                  }}`,
-              ),
-              Attrs.ariaLabel(
-                if group.locked {
-                  "Unlock group"
-                } else {
-                  "Lock group"
-                },
-              ),
-              Events.onClick(Workspace(ToggleGroupLock(group.id))),
-            },
-            list{
-              text(
-                if group.locked {
-                  "Locked"
-                } else {
-                  "Lock"
-                },
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_(
-                `px-2 py-0.5 text-xs rounded ${if group.visible {
-                    "bg-gray-800 text-gray-400 hover:bg-gray-700"
-                  } else {
-                    "bg-gray-800 text-gray-600"
-                  }}`,
-              ),
-              Attrs.ariaLabel(
-                if group.visible {
-                  "Hide group"
-                } else {
-                  "Show group"
-                },
-              ),
-              Events.onClick(Workspace(ToggleGroupVisibility(group.id))),
-            },
-            list{
-              text(
-                if group.visible {
-                  "Visible"
-                } else {
-                  "Hidden"
-                },
-              ),
-            },
-          ),
-          button(
-            list{
-              Attrs.class_(
-                "px-2 py-0.5 text-xs bg-red-900/50 text-red-400 rounded hover:bg-red-800/50",
-              ),
-              Attrs.ariaLabel(`Disband ${group.name} group`),
-              Events.onClick(Workspace(DisbandGroup(group.id))),
-            },
-            list{text("Disband")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render a metadata viewer link.
-let renderMetadataLink = (item: repoMetadataItem, label: string, description: string): Tea_Vdom.t<
-  msg,
-> => {
-  button(
-    list{
-      Attrs.class_(
-        "w-full text-left p-3 rounded border border-gray-800 bg-gray-900/50 hover:border-gray-600 transition-colors",
-      ),
-      Attrs.title(description),
-      Attrs.ariaLabel(`View ${label}`),
-      Events.onClick(Workspace(ViewMetadata(item))),
-    },
-    list{
-      div(list{Attrs.class_("text-xs font-medium text-gray-400")}, list{text(label)}),
-      div(list{Attrs.class_("text-xs text-gray-600 mt-0.5")}, list{text(description)}),
-    },
-  )
-}
-
-/// Full Workspace panel view.
-let view = (workspace: workspaceState, keybindings: keybindingsState): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 overflow-auto"),
-      Attrs.role("dialog"),
-      Attrs.ariaLabel("Workspace configurator"),
-    },
-    list{
-      // Header
-      div(
-        list{
-          Attrs.class_(
-            "sticky top-0 bg-gray-950 border-b border-gray-800 p-4 flex items-center justify-between z-10",
-          ),
-        },
-        list{
-          div(
-            list{Attrs.class_("flex items-center gap-4")},
-            list{
-              div(list{Attrs.class_("text-lg font-light text-gray-300")}, list{text("Workspace")}),
-              renderModeBadge(workspace.mode),
-              renderProtectionBadge(workspace.protection),
-              renderExecutionBadge(workspace.executionMode),
-            },
-          ),
-          div(
-            list{Attrs.class_("flex items-center gap-2")},
-            list{
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 bg-indigo-800 text-indigo-200 rounded hover:bg-indigo-700 transition-colors text-sm",
-                  ),
-                  Attrs.ariaLabel("Export workspace configuration to ENSAID_CONFIG.a2ml"),
-                  Events.onClick(Workspace(ExportWorkspaceConfig)),
-                  KeyboardNav.onActivate(Workspace(ExportWorkspaceConfig)),
-                },
-                list{text("Export Config")},
-              ),
-              button(
-                list{
-                  Attrs.class_(
-                    "px-3 py-1 bg-gray-800 text-gray-400 rounded hover:bg-gray-700 transition-colors text-sm",
-                  ),
-                  Events.onClick(PanelSwitcher(ClosePanels)),
-                  KeyboardNav.onActivate(PanelSwitcher(ClosePanels)),
-                },
-                list{text("Close")},
-              ),
-            },
-          ),
-        },
-      ),
-      // Body: two-column layout
-      div(
-        list{Attrs.class_("p-6 grid grid-cols-2 gap-8 max-w-6xl mx-auto")},
-        list{
-          // Left column: Arrangements & Groups
-          div(
-            list{Attrs.class_("space-y-6")},
-            list{
-              renderConfigSection(
-                "Arrangements",
-                "Named layout presets — save and restore panel positions, sizes, and groups",
-                {
-                  let cards =
-                    workspace.arrangements
-                    ->Array.map(arr => {
-                      let isActive = workspace.activeArrangementId == Some(arr.id)
-                      renderArrangementCard(arr, isActive)
-                    })
-                    ->List.fromArray
-                  List.concat(
-                    cards,
-                    list{
-                      button(
-                        list{
-                          Attrs.class_(
-                            "w-full p-3 rounded border border-dashed border-gray-700 bg-gray-900/30 text-gray-500 hover:border-indigo-600 hover:text-indigo-400 transition-colors text-xs",
-                          ),
-                          Attrs.ariaLabel("Save the current panel layout as a new arrangement"),
-                          Events.onClick(
-                            Workspace(
-                              SaveArrangement(
-                                "custom-" ++ Float.toString(Date.now()),
-                                "Custom Layout",
-                              ),
-                            ),
-                          ),
-                        },
-                        list{text("+ Save Current Layout")},
-                      ),
-                    },
-                  )
-                },
-              ),
-              renderConfigSection(
-                "Panel Groups",
-                "Group panels to move, resize, show, and hide them together",
-                if Array.length(workspace.groups) > 0 {
-                  let groupCards = workspace.groups->Array.map(renderGroupCard)->List.fromArray
-                  groupCards
-                } else {
-                  list{
-                    div(
-                      list{Attrs.class_("p-3 text-xs text-gray-600 italic")},
-                      list{
-                        text("No groups defined. Groups let you move and resize panels together."),
-                      },
-                    ),
-                  }
-                },
-              ),
-            },
-          ),
-          // Right column: Sessions, Protection, Modes, Metadata
-          div(
-            list{Attrs.class_("space-y-6")},
-            list{
-              renderConfigSection(
-                "Sessions",
-                "Save, load, fork, and manage working sessions",
-                {
-                  let sessionCards = if Array.length(workspace.sessions) > 0 {
-                    workspace.sessions
-                    ->Array.map(session => {
-                      let isActive = workspace.activeSessionId == Some(session.id)
-                      let activeClass = if isActive {
-                        "border-indigo-500 bg-indigo-950/50"
-                      } else {
-                        "border-gray-800 bg-gray-900/50 hover:border-gray-600"
-                      }
-                      div(
-                        list{
-                          Attrs.class_(
-                            `p-3 rounded border ${activeClass} transition-colors flex items-center justify-between`,
-                          ),
-                          Attrs.ariaLabel(`Session: ${session.name}`),
-                        },
-                        list{
-                          div(
-                            list{Attrs.class_("flex-1")},
-                            list{
-                              div(
-                                list{Attrs.class_("text-xs font-medium text-gray-300")},
-                                list{text(session.name)},
-                              ),
-                              div(
-                                list{Attrs.class_("text-xs text-gray-600 mt-0.5")},
-                                list{
-                                  text(
-                                    `${Int.toString(
-                                        Array.length(session.checkpoints),
-                                      )} checkpoints`,
-                                  ),
-                                },
-                              ),
-                            },
-                          ),
-                          div(
-                            list{Attrs.class_("flex items-center gap-1")},
-                            list{
-                              if !isActive {
-                                button(
-                                  list{
-                                    Attrs.class_(
-                                      "px-2 py-0.5 text-xs bg-gray-800 text-gray-400 rounded hover:bg-gray-700",
-                                    ),
-                                    Events.onClick(Workspace(SwitchSession(session.id))),
-                                  },
-                                  list{text("Switch")},
-                                )
-                              } else {
-                                div(
-                                  list{
-                                    Attrs.class_(
-                                      "px-2 py-0.5 text-xs bg-indigo-800 text-indigo-300 rounded",
-                                    ),
-                                  },
-                                  list{text("Active")},
-                                )
-                              },
-                              button(
-                                list{
-                                  Attrs.class_(
-                                    "px-2 py-0.5 text-xs bg-teal-900/50 text-teal-400 rounded hover:bg-teal-800/50",
-                                  ),
-                                  Events.onClick(
-                                    Workspace(
-                                      ForkSession(
-                                        "fork-" ++ Float.toString(Date.now()),
-                                        session.name ++ " (fork)",
-                                      ),
-                                    ),
-                                  ),
-                                },
-                                list{text("Fork")},
-                              ),
-                              button(
-                                list{
-                                  Attrs.class_(
-                                    "px-2 py-0.5 text-xs bg-red-900/50 text-red-400 rounded hover:bg-red-800/50",
-                                  ),
-                                  Events.onClick(Workspace(DeleteSession(session.id))),
-                                },
-                                list{text("Del")},
-                              ),
-                            },
-                          ),
-                        },
-                      )
-                    })
-                    ->List.fromArray
-                  } else {
-                    list{
-                      div(
-                        list{Attrs.class_("p-3 text-xs text-gray-600 italic")},
-                        list{
-                          text(
-                            "No sessions saved. Sessions capture your workspace state for later recall.",
-                          ),
-                        },
-                      ),
-                    }
-                  }
-                  List.concat(
-                    sessionCards,
-                    list{
-                      button(
-                        list{
-                          Attrs.class_(
-                            "w-full p-3 rounded border border-dashed border-gray-700 bg-gray-900/30 text-gray-500 hover:border-teal-600 hover:text-teal-400 transition-colors text-xs",
-                          ),
-                          Attrs.ariaLabel("Create a new session from current state"),
-                          Events.onClick(
-                            Workspace(
-                              CreateSession(
-                                "session-" ++ Float.toString(Date.now()),
-                                "New Session",
-                              ),
-                            ),
-                          ),
-                        },
-                        list{text("+ New Session")},
-                      ),
-                    },
-                  )
-                },
-              ),
-              renderConfigSection(
-                "Workspace Modes",
-                "Switch between Rhodium (full RSR), Everything, Code (dev-only), or Bespoke",
-                list{
-                  renderOption(
-                    "Rhodium Mode",
-                    "Full RSR standard — SCM files, contractiles, AI manifests, governance panels",
-                    workspace.mode == RhodiumMode,
-                    Workspace(SetWorkspaceMode(RhodiumMode)),
-                  ),
-                  renderOption(
-                    "Everything Mode",
-                    "All panels, all tools, all metadata visible",
-                    workspace.mode == EverythingMode,
-                    Workspace(SetWorkspaceMode(EverythingMode)),
-                  ),
-                  renderOption(
-                    "Code Mode",
-                    "Pure dev — hides RSR governance, shows code-focused panels only",
-                    workspace.mode == CodeMode,
-                    Workspace(SetWorkspaceMode(CodeMode)),
-                  ),
-                  renderOption(
-                    "Bespoke Mode",
-                    "Per-repo customisation loaded from PANELS.a2ml",
-                    workspace.mode == BespokeMode,
-                    Workspace(SetWorkspaceMode(BespokeMode)),
-                  ),
-                },
-              ),
-              renderConfigSection(
-                "Session Protection",
-                "Control what mutations are allowed in this session",
-                list{
-                  renderOption(
-                    "Open",
-                    "Normal operation, no restrictions",
-                    workspace.protection == Open,
-                    Workspace(SetProtection(Open)),
-                  ),
-                  renderOption(
-                    "Read-Only",
-                    "Browse everything, edit nothing",
-                    workspace.protection == ReadOnly,
-                    Workspace(SetProtection(ReadOnly)),
-                  ),
-                  renderOption(
-                    "Sandboxed",
-                    "All changes reset when the session ends",
-                    workspace.protection == Sandboxed,
-                    Workspace(SetProtection(Sandboxed)),
-                  ),
-                  renderOption(
-                    "Language-Locked",
-                    "Specific file types are immutable (e.g., .idr files)",
-                    switch workspace.protection {
-                    | LanguageLocked(_) => true
-                    | _ => false
-                    },
-                    Workspace(SetProtection(LanguageLocked([".idr", ".lean"]))),
-                  ),
-                  renderOption(
-                    "Transpilation-Guarded",
-                    "Saves require equivalence proof before committing",
-                    workspace.protection == TranspilationGuarded,
-                    Workspace(SetProtection(TranspilationGuarded)),
-                  ),
-                  renderOption(
-                    "Production-Gated",
-                    "Changes staged, require sign-off before taking effect",
-                    workspace.protection == ProductionGated,
-                    Workspace(SetProtection(ProductionGated)),
-                  ),
-                },
-              ),
-              renderConfigSection(
-                "Execution Mode",
-                "Control how changes are applied",
-                list{
-                  renderOption(
-                    "Live",
-                    "Real execution against real data",
-                    workspace.executionMode == Live,
-                    Workspace(SetExecutionMode(Live)),
-                  ),
-                  renderOption(
-                    "Dry Run",
-                    "Preview changes without applying — shows diffs, no mutations",
-                    workspace.executionMode == DryRun,
-                    Workspace(SetExecutionMode(DryRun)),
-                  ),
-                  renderOption(
-                    "Simulation",
-                    "Run scenarios with mock data in a simulated environment",
-                    workspace.executionMode == Simulation,
-                    Workspace(SetExecutionMode(Simulation)),
-                  ),
-                  renderOption(
-                    "Emulation",
-                    "Full emulation of the target environment locally",
-                    workspace.executionMode == Emulation,
-                    Workspace(SetExecutionMode(Emulation)),
-                  ),
-                },
-              ),
-              renderConfigSection(
-                "Keybindings",
-                "Remap keyboard shortcuts — click to rebind, Escape to cancel",
-                list{
-                  div(
-                    list{Attrs.class_("p-3 rounded border border-gray-800 bg-gray-900/50")},
-                    list{
-                      div(
-                        list{Attrs.class_("text-xs text-gray-400")},
-                        list{
-                          text(
-                            `${Int.toString(
-                                Array.length(keybindings.bindings),
-                              )} bindings configured`,
-                          ),
-                        },
-                      ),
-                      div(
-                        list{Attrs.class_("mt-2 max-h-40 overflow-auto space-y-1")},
-                        keybindings.bindings
-                        ->Array.map(binding => {
-                          let modStr =
-                            binding.chord.modifiers
-                            ->Array.map(m =>
-                              switch m {
-                              | Ctrl => "Ctrl"
-                              | Shift => "Shift"
-                              | Alt => "Alt"
-                              | Meta => "Meta"
-                              }
-                            )
-                            ->Array.join("+")
-                          let chordStr = if modStr == "" {
-                            binding.chord.key
-                          } else {
-                            modStr ++ "+" ++ binding.chord.key
-                          }
-                          let actionStr = switch binding.action {
-                          | ActionUndo => "Undo"
-                          | ActionRedo => "Redo"
-                          | ActionSave => "Save"
-                          | ActionPrint => "Print"
-                          | ActionResetPanel => "Reset Panel"
-                          | ActionResetAll => "Reset All"
-                          | ActionTogglePaneL => "Toggle Panel-L"
-                          | ActionTogglePaneN => "Toggle Panel-N"
-                          | ActionTogglePaneW => "Toggle Panel-W"
-                          | ActionToggleVab => "Toggle VAB"
-                          | ActionTogglePanelBar => "Toggle Panel Bar"
-                          | ActionFullscreen => "Fullscreen"
-                          | ActionCloseOverlay => "Close Overlay"
-                          | ActionToggleCapture => "Toggle Capture"
-                          | ActionToggleWorkspace => "Toggle Workspace"
-                          | ActionToggleSecurity => "Toggle Security"
-                          | ActionCycleWorkspaceMode => "Cycle Mode"
-                          | ActionToggleDryRun => "Toggle Dry Run"
-                          }
-                          div(
-                            list{Attrs.class_("flex items-center justify-between text-xs")},
-                            list{
-                              span(list{Attrs.class_("text-gray-500")}, list{text(actionStr)}),
-                              span(
-                                list{
-                                  Attrs.class_(
-                                    "text-gray-400 font-mono bg-gray-800 px-1.5 py-0.5 rounded",
-                                  ),
-                                },
-                                list{text(chordStr)},
-                              ),
-                            },
-                          )
-                        })
-                        ->List.fromArray,
-                      ),
-                    },
-                  ),
-                },
-              ),
-              renderConfigSection(
-                "Repo Metadata",
-                "Quick access to SCM files, contractiles, AI manifests, directory structure",
-                list{
-                  renderMetadataLink(
-                    MetaStateSCM,
-                    "STATE.scm",
-                    "Current project state — tasks, progress, blockers",
-                  ),
-                  renderMetadataLink(
-                    MetaMetaSCM,
-                    "META.scm",
-                    "Architecture decisions, governance, principles",
-                  ),
-                  renderMetadataLink(
-                    MetaEcosystemSCM,
-                    "ECOSYSTEM.scm",
-                    "Project ecosystem position, dependencies",
-                  ),
-                  renderMetadataLink(
-                    MetaContractiles,
-                    "Contractiles",
-                    "Elastic state contracts — orbital stability, vexation ceiling",
-                  ),
-                  renderMetadataLink(
-                    MetaAIManifest,
-                    "AI Manifest",
-                    "0-AI-MANIFEST.a2ml — entry point for AI agents",
-                  ),
-                  renderMetadataLink(
-                    MetaTrustfile,
-                    "Trustfile",
-                    "Security policy from Trustfile.a2ml",
-                  ),
-                  renderMetadataLink(
-                    MetaDirectoryTree,
-                    "Directory Tree",
-                    "Repository file structure overview",
-                  ),
-                },
-              ),
-            },
-          ),
-        },
-      ),
-      // Metadata viewer overlay
-      switch workspace.viewingMetadata {
-      | Some(_item) =>
-        div(
-          list{Attrs.class_("fixed inset-0 bg-black/60 z-50 flex items-center justify-center")},
-          list{
-            div(
-              list{
-                Attrs.class_(
-                  "bg-gray-950 border border-gray-700 rounded-lg w-[600px] max-h-[80vh] flex flex-col",
-                ),
-              },
-              list{
-                div(
-                  list{
-                    Attrs.class_("p-4 border-b border-gray-800 flex items-center justify-between"),
-                  },
-                  list{
-                    div(
-                      list{Attrs.class_("text-sm font-medium text-gray-300")},
-                      list{text("Metadata Viewer")},
-                    ),
-                    button(
-                      list{
-                        Attrs.class_(
-                          "px-2 py-1 text-xs bg-gray-800 text-gray-400 rounded hover:bg-gray-700",
-                        ),
-                        Events.onClick(Workspace(CloseMetadata)),
-                        KeyboardNav.onActivate(Workspace(CloseMetadata)),
-                      },
-                      list{text("Close")},
-                    ),
-                  },
-                ),
-                div(
-                  list{Attrs.class_("flex-1 overflow-auto p-4")},
-                  list{
-                    switch workspace.metadataContent {
-                    | Some(content) =>
-                      pre(
-                        list{Attrs.class_("text-xs text-gray-400 font-mono whitespace-pre-wrap")},
-                        list{text(content)},
-                      )
-                    | None =>
-                      div(
-                        list{Attrs.class_("text-xs text-gray-600 italic")},
-                        list{text("Loading...")},
-                      )
-                    },
-                  },
-                ),
-              },
-            ),
-          },
-        )
-      | None => Tea.Html.noNode
-      },
-    },
-  )
-}
diff --git a/src/core/A2mlEngine.affine b/src/core/A2mlEngine.affine
new file mode 100644
index 00000000..79e032f2
--- /dev/null
+++ b/src/core/A2mlEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module A2mlEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/A2mlEngine.res b/src/core/A2mlEngine.res
deleted file mode 100644
index a7433972..00000000
--- a/src/core/A2mlEngine.res
+++ /dev/null
@@ -1,616 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL A2ML Engine — pure functions for parsing, validating, and querying A2ML
-/// manifest files (both S-expression style like 0-AI-MANIFEST.a2ml and sectioned
-/// key-value style like clade .a2ml files and Trustfile.a2ml).
-///
-/// A2ML files come in two main flavours within PanLL:
-///   1. S-expression manifests: `(manifest (identity ...) (canonical-locations ...) ...)`
-///   2. Sectioned key-value: `[section-name]\nkey = value` (clade files, Trustfile)
-///
-/// This engine provides a unified representation via `a2mlSection` trees, with
-/// parsing heuristics that detect the format and extract sections accordingly.
-///
-/// All functions are pure — no side effects, no Gossamer invocations, no I/O.
-
-// ============================================================================
-// Types
-// ============================================================================
-
-/// A single section or key-value node in an A2ML document.
-/// Sections can nest: a `[clade-metadata]` section contains key-value children,
-/// and an S-expression `(canonical-locations ...)` section contains location entries.
-type rec a2mlSection = {
-  key: string,
-  value: string,
-  children: array<a2mlSection>,
-}
-
-/// A parsed A2ML manifest with its file path, extracted sections, and parse status.
-type a2mlManifest = {
-  path: string,
-  sections: array<a2mlSection>,
-  isValid: bool,
-  errors: array<string>,
-}
-
-/// Result of validating a manifest against the A2ML schema requirements.
-type a2mlValidationResult = {
-  valid: bool,
-  errors: array<string>,
-  warnings: array<string>,
-  sectionCount: int,
-}
-
-// ============================================================================
-// Internal Helpers
-// ============================================================================
-
-/// Trim whitespace from both ends of a string.
-let trim = (s: string): string => {
-  s->String.trim
-}
-
-/// Check if a line starts a new section in key-value format: `[section-name]`
-let isSectionHeader = (line: string): bool => {
-  let trimmed = trim(line)
-  String.startsWith(trimmed, "[") &&
-  String.endsWith(trimmed, "]") &&
-  !String.startsWith(trimmed, "[[")
-}
-
-/// Extract the section name from a `[section-name]` header line.
-let extractSectionName = (line: string): string => {
-  let trimmed = trim(line)
-  let withoutBrackets = String.sliceToEnd(trimmed, ~start=1)
-  String.slice(withoutBrackets, ~start=0, ~end=String.length(withoutBrackets) - 1)
-}
-
-/// Check if a line is a `---` section divider (Trustfile-style).
-let isSectionDivider = (line: string): bool => {
-  trim(line) == "---"
-}
-
-/// Check if a line is a `### [SECTION]` header (Trustfile-style).
-let isTrustfileSectionHeader = (line: string): bool => {
-  let trimmed = trim(line)
-  String.startsWith(trimmed, "### [") && String.endsWith(trimmed, "]")
-}
-
-/// Extract section name from `### [SECTION_NAME]` header.
-let extractTrustfileSectionName = (line: string): string => {
-  let trimmed = trim(line)
-  let afterHash = String.sliceToEnd(trimmed, ~start=5)
-  String.slice(afterHash, ~start=0, ~end=String.length(afterHash) - 1)
-}
-
-/// Check if a line is an S-expression opener like `(manifest`, `(identity`, etc.
-let isSexprSection = (line: string): bool => {
-  let trimmed = trim(line)
-  String.startsWith(trimmed, "(") && !String.startsWith(trimmed, "(;")
-}
-
-/// Extract the S-expression section name from a line like `(manifest` or `  (identity`.
-let extractSexprName = (line: string): string => {
-  let trimmed = trim(line)
-  let afterParen = String.sliceToEnd(trimmed, ~start=1)
-  // Take up to the first space or closing paren
-  let parts = String.split(afterParen, " ")
-  let first = parts->Array.get(0)->Option.getOr("")
-
-  // Remove trailing paren if present
-  if String.endsWith(first, ")") {
-    String.slice(first, ~start=0, ~end=String.length(first) - 1)
-  } else {
-    first
-  }
-}
-
-/// Parse a `key = value` or `key = "value"` line into a section child.
-let parseKeyValue = (line: string): option<a2mlSection> => {
-  let trimmed = trim(line)
-
-  // Skip comments and empty lines
-  if trimmed == "" || String.startsWith(trimmed, "#") || String.startsWith(trimmed, ";") {
-    None
-  } else {
-    let eqIdx = String.indexOf(trimmed, " = ")
-    if eqIdx >= 0 {
-      let key = String.slice(trimmed, ~start=0, ~end=eqIdx)->trim
-      let rawValue = String.sliceToEnd(trimmed, ~start=eqIdx + 3)->trim
-      // Strip surrounding quotes if present
-      let value = if String.startsWith(rawValue, "\"") && String.endsWith(rawValue, "\"") {
-        String.slice(rawValue, ~start=1, ~end=String.length(rawValue) - 1)
-      } else {
-        rawValue
-      }
-      Some({key, value, children: []})
-    } else {
-      // Try simple `key: value` YAML-style (used in Trustfile A2ML)
-      let colonIdx = String.indexOf(trimmed, ": ")
-      if colonIdx >= 0 {
-        let key = String.slice(trimmed, ~start=0, ~end=colonIdx)->trim
-        let rawValue = String.sliceToEnd(trimmed, ~start=colonIdx + 2)->trim
-        let value = if String.startsWith(rawValue, "\"") && String.endsWith(rawValue, "\"") {
-          String.slice(rawValue, ~start=1, ~end=String.length(rawValue) - 1)
-        } else {
-          rawValue
-        }
-        Some({key, value, children: []})
-      } else {
-        None
-      }
-    }
-  }
-}
-
-/// Detect the A2ML format flavour from file content.
-type a2mlFormat =
-  | SExprFormat
-  | SectionedKeyValueFormat
-  | TrustfileFormat
-
-let detectFormat = (content: string): a2mlFormat => {
-  let trimmed = trim(content)
-  if String.startsWith(trimmed, ";") || String.startsWith(trimmed, "(") {
-    SExprFormat
-  } else if String.includes(trimmed, "### [") && String.includes(trimmed, "---") {
-    TrustfileFormat
-  } else {
-    SectionedKeyValueFormat
-  }
-}
-
-// ============================================================================
-// Parsers
-// ============================================================================
-
-/// Parse S-expression format A2ML (like 0-AI-MANIFEST.a2ml).
-/// Extracts top-level sections and their string content as children.
-let parseSexprContent = (content: string, path: string): a2mlManifest => {
-  let lines = String.split(content, "\n")
-  let sections: array<a2mlSection> = []
-  let errors: array<string> = []
-  let currentSection: ref<option<string>> = ref(None)
-  let currentChildren: ref<array<a2mlSection>> = ref([])
-
-  lines->Array.forEach(line => {
-    let trimmed = trim(line)
-    if trimmed == "" || String.startsWith(trimmed, ";") || String.startsWith(trimmed, ";;") {
-      // Skip comments and blanks
-      ()
-    } else if isSexprSection(trimmed) {
-      // Flush previous section
-      switch currentSection.contents {
-      | Some(name) =>
-        let _ = sections->Array.push({
-          key: name,
-          value: "",
-          children: currentChildren.contents,
-        })
-      | None => ()
-      }
-      currentSection := Some(extractSexprName(trimmed))
-      currentChildren := []
-    } else {
-      // Try to extract key-value pairs from S-expression body
-      // Lines like `(name "PanLL")` or `(state ".machine_readable/STATE.scm")`
-      let cleaned =
-        trimmed
-        ->String.replaceAll("(", "")
-        ->String.replaceAll(")", "")
-        ->trim
-      let parts = String.split(cleaned, " ")
-      if Array.length(parts) >= 2 {
-        let key = parts->Array.get(0)->Option.getOr("")
-        let rawVal =
-          parts
-          ->Array.sliceToEnd(~start=1)
-          ->Array.join(" ")
-        let value = if String.startsWith(rawVal, "\"") && String.endsWith(rawVal, "\"") {
-          String.slice(rawVal, ~start=1, ~end=String.length(rawVal) - 1)
-        } else {
-          rawVal
-        }
-        let _ = currentChildren.contents->Array.push({key, value, children: []})
-      }
-    }
-  })
-
-  // Flush final section
-  switch currentSection.contents {
-  | Some(name) =>
-    let _ = sections->Array.push({
-      key: name,
-      value: "",
-      children: currentChildren.contents,
-    })
-  | None => ()
-  }
-
-  {
-    path,
-    sections,
-    isValid: Array.length(errors) == 0 && Array.length(sections) > 0,
-    errors,
-  }
-}
-
-/// Parse sectioned key-value format A2ML (like clade .a2ml files).
-let parseSectionedContent = (content: string, path: string): a2mlManifest => {
-  let lines = String.split(content, "\n")
-  let sections: array<a2mlSection> = []
-  let errors: array<string> = []
-  let currentSection: ref<option<string>> = ref(None)
-  let currentChildren: ref<array<a2mlSection>> = ref([])
-
-  lines->Array.forEach(line => {
-    let trimmed = trim(line)
-    if trimmed == "" || String.startsWith(trimmed, "#") {
-      // Skip comments and blanks
-      ()
-    } else if isSectionHeader(trimmed) {
-      // Flush previous section
-      switch currentSection.contents {
-      | Some(name) =>
-        let _ = sections->Array.push({
-          key: name,
-          value: "",
-          children: currentChildren.contents,
-        })
-      | None => ()
-      }
-      currentSection := Some(extractSectionName(trimmed))
-      currentChildren := []
-    } else {
-      switch parseKeyValue(trimmed) {
-      | Some(kv) =>
-        let _ = currentChildren.contents->Array.push(kv)
-      | None => ()
-      }
-    }
-  })
-
-  // Flush final section
-  switch currentSection.contents {
-  | Some(name) =>
-    let _ = sections->Array.push({
-      key: name,
-      value: "",
-      children: currentChildren.contents,
-    })
-  | None => ()
-  }
-
-  {
-    path,
-    sections,
-    isValid: Array.length(errors) == 0 && Array.length(sections) > 0,
-    errors,
-  }
-}
-
-/// Parse Trustfile-format A2ML (`---` dividers with `### [SECTION]` headers).
-let parseTrustfileContent = (content: string, path: string): a2mlManifest => {
-  let lines = String.split(content, "\n")
-  let sections: array<a2mlSection> = []
-  let errors: array<string> = []
-  let currentSection: ref<option<string>> = ref(None)
-  let currentChildren: ref<array<a2mlSection>> = ref([])
-
-  lines->Array.forEach(line => {
-    let trimmed = trim(line)
-    if isSectionDivider(trimmed) {
-      // Flush previous section on divider
-      switch currentSection.contents {
-      | Some(name) =>
-        let _ = sections->Array.push({
-          key: name,
-          value: "",
-          children: currentChildren.contents,
-        })
-        currentSection := None
-        currentChildren := []
-      | None => ()
-      }
-    } else if isTrustfileSectionHeader(trimmed) {
-      currentSection := Some(extractTrustfileSectionName(trimmed))
-      currentChildren := []
-    } else if trimmed == "" || String.startsWith(trimmed, "#") {
-      ()
-    } else {
-      switch parseKeyValue(trimmed) {
-      | Some(kv) =>
-        let _ = currentChildren.contents->Array.push(kv)
-      | None => ()
-      }
-    }
-  })
-
-  // Flush final section
-  switch currentSection.contents {
-  | Some(name) =>
-    let _ = sections->Array.push({
-      key: name,
-      value: "",
-      children: currentChildren.contents,
-    })
-  | None => ()
-  }
-
-  {
-    path,
-    sections,
-    isValid: Array.length(errors) == 0 && Array.length(sections) > 0,
-    errors,
-  }
-}
-
-// ============================================================================
-// Public API
-// ============================================================================
-
-/// Parse A2ML content from any supported format. Auto-detects the flavour
-/// (S-expression, sectioned key-value, or Trustfile) and delegates to the
-/// appropriate parser.
-let parseA2mlContent = (content: string, ~path: string=""): a2mlManifest => {
-  if String.length(trim(content)) == 0 {
-    {
-      path,
-      sections: [],
-      isValid: false,
-      errors: ["Empty content"],
-    }
-  } else {
-    switch detectFormat(content) {
-    | SExprFormat => parseSexprContent(content, path)
-    | SectionedKeyValueFormat => parseSectionedContent(content, path)
-    | TrustfileFormat => parseTrustfileContent(content, path)
-    }
-  }
-}
-
-/// Validate a parsed manifest against A2ML schema requirements.
-///
-/// For full manifests (0-AI-MANIFEST.a2ml), checks for required sections:
-///   - identity or clade-metadata (identification)
-///   - canonical-locations (file mapping)
-///   - critical-invariants (rules)
-///
-/// For clade files, checks for:
-///   - clade-metadata (identification)
-///   - clade-traits (capability declaration)
-///
-/// For Trustfile A2ML, checks for:
-///   - META section
-///   - TRUSTFILE section
-let validateManifest = (manifest: a2mlManifest): a2mlValidationResult => {
-  let errors: array<string> = []
-  let warnings: array<string> = []
-  let sectionNames = manifest.sections->Array.map(s => s.key)
-
-  // Check if this is a full manifest, clade file, or trustfile
-  let hasIdentity = sectionNames->Array.some(n => n == "identity")
-  let hasCladeMetadata = sectionNames->Array.some(n => n == "clade-metadata")
-  let hasMeta = sectionNames->Array.some(n => n == "META")
-  let hasTrustfile = sectionNames->Array.some(n => n == "TRUSTFILE")
-
-  if hasIdentity {
-    // Full manifest validation
-    if !(sectionNames->Array.some(n => n == "canonical-locations")) {
-      let _ = errors->Array.push("Missing required section: canonical-locations")
-    }
-    if !(sectionNames->Array.some(n => n == "critical-invariants")) {
-      let _ = warnings->Array.push("Missing recommended section: critical-invariants")
-    }
-    if !(sectionNames->Array.some(n => n == "purpose")) {
-      let _ = warnings->Array.push("Missing recommended section: purpose")
-    }
-    if !(sectionNames->Array.some(n => n == "lifecycle")) {
-      let _ = warnings->Array.push("Missing recommended section: lifecycle")
-    }
-  } else if hasCladeMetadata {
-    // Clade file validation
-    if !(sectionNames->Array.some(n => n == "clade-traits")) {
-      let _ = errors->Array.push("Clade file missing required section: clade-traits")
-    }
-    // Check clade-metadata has required keys
-    let metaSection = manifest.sections->Array.find(s => s.key == "clade-metadata")
-    switch metaSection {
-    | Some(section) =>
-      let childKeys = section.children->Array.map(c => c.key)
-      if !(childKeys->Array.some(k => k == "id")) {
-        let _ = errors->Array.push("clade-metadata missing required key: id")
-      }
-      if !(childKeys->Array.some(k => k == "name")) {
-        let _ = errors->Array.push("clade-metadata missing required key: name")
-      }
-      if !(childKeys->Array.some(k => k == "kind")) {
-        let _ = warnings->Array.push("clade-metadata missing recommended key: kind")
-      }
-    | None => ()
-    }
-  } else if hasMeta && hasTrustfile {
-    // Trustfile validation
-    if !(sectionNames->Array.some(n => n == "THREAT_MODEL")) {
-      let _ = warnings->Array.push("Trustfile missing recommended section: THREAT_MODEL")
-    }
-    if !(sectionNames->Array.some(n => n == "FORMAL_VERIFICATION")) {
-      let _ = warnings->Array.push("Trustfile missing recommended section: FORMAL_VERIFICATION")
-    }
-  } else if hasMeta {
-    // Partial trustfile — META without TRUSTFILE
-    let _ = warnings->Array.push("Has META section but no TRUSTFILE section — partial trustfile?")
-  } else {
-    // Unknown format — warn but don't error (might be a valid custom A2ML)
-    let _ = warnings->Array.push("No recognised root section (identity, clade-metadata, or META)")
-  }
-
-  // Check for empty sections (applies to all formats)
-  manifest.sections->Array.forEach(section => {
-    if Array.length(section.children) == 0 && section.value == "" {
-      let _ = warnings->Array.push(`Section "${section.key}" is empty`)
-    }
-  })
-
-  // Check for empty values in children
-  manifest.sections->Array.forEach(section => {
-    section.children->Array.forEach(child => {
-      if child.value == "" && Array.length(child.children) == 0 {
-        let _ =
-          warnings->Array.push(`Key "${child.key}" in section "${section.key}" has empty value`)
-      }
-    })
-  })
-
-  {
-    valid: Array.length(errors) == 0,
-    errors: Array.concat(manifest.errors, errors),
-    warnings,
-    sectionCount: Array.length(manifest.sections),
-  }
-}
-
-/// Extract canonical file location mappings from a manifest.
-/// Returns an array of (logical-name, file-path) tuples.
-///
-/// Works with both S-expression manifests (where canonical-locations has
-/// children like `(state ".machine_readable/STATE.scm")`) and sectioned
-/// key-value files (where `[canonical-locations]` has `key = "path"` entries).
-let extractCanonicalLocations = (manifest: a2mlManifest): array<(string, string)> => {
-  let locSection = manifest.sections->Array.find(s => s.key == "canonical-locations")
-  switch locSection {
-  | Some(section) => section.children->Array.map(child => (child.key, child.value))
-  | None => []
-  }
-}
-
-/// Extract lifecycle hooks (on-enter and on-exit steps) from a manifest.
-/// Returns an array of step description strings.
-let extractLifecycleHooks = (manifest: a2mlManifest): array<string> => {
-  let lifecycleSection = manifest.sections->Array.find(s => s.key == "lifecycle")
-  switch lifecycleSection {
-  | Some(section) =>
-    section.children->Array.map(child => {
-      if child.value != "" {
-        `${child.key}: ${child.value}`
-      } else {
-        child.key
-      }
-    })
-  | None => []
-  }
-}
-
-/// Find a section by key name in the manifest.
-let findSection = (manifest: a2mlManifest, sectionKey: string): option<a2mlSection> => {
-  manifest.sections->Array.find(s => s.key == sectionKey)
-}
-
-/// Get a value from a section by key name. Returns None if section or key not found.
-let getValue = (manifest: a2mlManifest, sectionKey: string, key: string): option<string> => {
-  switch findSection(manifest, sectionKey) {
-  | Some(section) =>
-    switch section.children->Array.find(c => c.key == key) {
-    | Some(child) => Some(child.value)
-    | None => None
-    }
-  | None => None
-  }
-}
-
-/// Extract test coverage policy from A2ML clade traits.
-/// Returns (required-coverage-percent, required-test-types, notes) or defaults
-/// if the clade does not specify a test policy.
-///
-/// Looks for keys in `[clade-traits]` or `[clade-integrations]`:
-///   - `test-coverage` or `coverage` → minimum coverage percentage
-///   - `test-types` → pipe-separated list (e.g. "unit|integration|property")
-///   - `test-notes` or `testing` → free-form test policy notes
-let extractTestCoveragePolicy = (manifest: a2mlManifest): (int, array<string>, string) => {
-  // Try clade-traits first, then clade-integrations
-  let traitSection = switch findSection(manifest, "clade-traits") {
-  | Some(s) => Some(s)
-  | None => findSection(manifest, "clade-integrations")
-  }
-  switch traitSection {
-  | Some(section) =>
-    let coverageStr = switch section.children->Array.find(c =>
-      c.key == "test-coverage" || c.key == "coverage"
-    ) {
-    | Some(child) => child.value
-    | None => "0"
-    }
-    let coverage = Int.fromString(coverageStr)->Option.getOr(0)
-
-    let testTypes = switch section.children->Array.find(c => c.key == "test-types") {
-    | Some(child) =>
-      child.value->String.split("|")->Array.map(s => String.trim(s))->Array.filter(s => s != "")
-    | None => []
-    }
-
-    let notes = switch section.children->Array.find(c =>
-      c.key == "test-notes" || c.key == "testing"
-    ) {
-    | Some(child) => child.value
-    | None => ""
-    }
-
-    (coverage, testTypes, notes)
-  | None => (0, [], "")
-  }
-}
-
-/// Generate an A2ML test coverage section from a clade's test requirements.
-/// This is used when creating new A2ML files for panels that inherit clade traits.
-let generateTestCoverageSection = (
-  coverage: int,
-  testTypes: array<string>,
-  notes: string,
-): string => {
-  let typesStr = testTypes->Array.join(" | ")
-  let notesLine = if notes != "" {
-    `test-notes = "${notes}"\n`
-  } else {
-    ""
-  }
-  `[test-policy]
-test-coverage = ${Int.toString(coverage)}
-test-types = "${typesStr}"
-${notesLine}`
-}
-
-/// Generate a human-readable summary of a parsed manifest.
-let summariseManifest = (manifest: a2mlManifest): string => {
-  let sectionCount = Array.length(manifest.sections)
-  let sectionNames = manifest.sections->Array.map(s => s.key)->Array.join(", ")
-  let totalKeys = manifest.sections->Array.reduce(0, (acc, s) => acc + Array.length(s.children))
-
-  let statusLine = if manifest.isValid {
-    "Status: Valid"
-  } else {
-    let errorList = manifest.errors->Array.join("; ")
-    `Status: Invalid (${errorList})`
-  }
-
-  let nameLine = switch getValue(manifest, "identity", "name") {
-  | Some(name) => `Name: ${name}`
-  | None =>
-    switch getValue(manifest, "clade-metadata", "name") {
-    | Some(name) => `Clade: ${name}`
-    | None => "Name: (unknown)"
-    }
-  }
-
-  let pathLine = if manifest.path != "" {
-    `Path: ${manifest.path}`
-  } else {
-    "Path: (in-memory)"
-  }
-
-  `${nameLine}
-${pathLine}
-${statusLine}
-Sections: ${Int.toString(sectionCount)} (${sectionNames})
-Total keys: ${Int.toString(totalKeys)}`
-}
diff --git a/src/core/AccessibilityEngine.affine b/src/core/AccessibilityEngine.affine
new file mode 100644
index 00000000..fc90c5a4
--- /dev/null
+++ b/src/core/AccessibilityEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AccessibilityEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/AccessibilityEngine.res b/src/core/AccessibilityEngine.res
deleted file mode 100644
index 36872549..00000000
--- a/src/core/AccessibilityEngine.res
+++ /dev/null
@@ -1,496 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL AccessibilityEngine — Pure computation + side-effectful persistence
-/// for accessibility preferences.
-///
-/// Pure functions map accessibility state (theme, palette, animations, font
-/// size, focus style) to CSS classes applied at the root element level.
-///
-/// Side-effectful functions handle:
-///   - localStorage persistence (save/load all preferences)
-///   - OS preference detection (prefers-color-scheme, prefers-reduced-motion)
-///   - prefers-color-scheme change subscription for System theme mode
-///
-/// DESIGN NOTE: Each preference dimension maps to exactly one CSS class on the
-/// root element. Theme mode adds either "theme-light" or nothing (dark is default).
-/// The "theme-light" class inverts background/text colours via CSS custom properties.
-
-// ============================================================================
-// LocalStorage key
-// ============================================================================
-
-/// The single localStorage key under which all accessibility preferences are
-/// stored as a JSON object. Using one key keeps reads/writes atomic.
-let storageKey = "panll-accessibility"
-
-// ============================================================================
-// Theme helpers (pure)
-// ============================================================================
-
-/// Human-readable label for a theme mode.
-let themeLabel = (mode: AccessibilityModel.themeMode): string => {
-  switch mode {
-  | ThemeDark => "Dark"
-  | ThemeLight => "Light"
-  | ThemeSystem => "System"
-  }
-}
-
-/// CSS class for the resolved theme. Dark returns "" (default), Light returns
-/// "theme-light" which triggers CSS custom property overrides.
-let themeClass = (state: AccessibilityModel.accessibilityState): string => {
-  let effective = switch state.theme {
-  | ThemeSystem => state.resolvedTheme
-  | other => other
-  }
-  switch effective {
-  | ThemeLight => "theme-light"
-  | _ => ""
-  }
-}
-
-// ============================================================================
-// Font size helpers (pure)
-// ============================================================================
-
-/// Map a font size preset to a pixel value for the root <html> element.
-/// Since Tailwind uses rem units, changing the root font-size scales
-/// everything proportionally.
-let fontSizePx = (preset: AccessibilityModel.fontSizePreset): int => {
-  switch preset {
-  | FontSmall => 14
-  | FontMedium => 16
-  | FontLarge => 18
-  | FontExtraLarge => 20
-  }
-}
-
-/// Raw JS function to set font size on <html> element.
-let setRootFontSize: string => unit = %raw(`
-  function(px) {
-    try { document.documentElement.style.fontSize = px + "px"; } catch(e) {}
-  }
-`)
-
-/// Apply the font size to <html> element via direct DOM manipulation.
-/// This scales all rem-based Tailwind sizes proportionally.
-let applyFontSize = (preset: AccessibilityModel.fontSizePreset): unit => {
-  setRootFontSize(Int.toString(fontSizePx(preset)))
-}
-
-/// TEA command that applies font size to the DOM.
-let applyFontSizeCmd = (preset: AccessibilityModel.fontSizePreset): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(_callbacks => {
-    applyFontSize(preset)
-  })
-}
-
-/// Map a font size preset to its CSS class name (kept for rootClasses but
-/// no longer the primary mechanism — applyFontSize handles actual scaling).
-let fontSizeClass = (_preset: AccessibilityModel.fontSizePreset): string => {
-  // No longer used for root classes — font size is applied directly to <html>.
-  ""
-}
-
-/// Human-readable label for a font size preset.
-let fontSizeLabel = (preset: AccessibilityModel.fontSizePreset): string => {
-  switch preset {
-  | FontSmall => "Small (14px)"
-  | FontMedium => "Medium (16px)"
-  | FontLarge => "Large (18px)"
-  | FontExtraLarge => "Extra Large (20px)"
-  }
-}
-
-// ============================================================================
-// Animation helpers (pure)
-// ============================================================================
-
-/// Map an animation preference to its corresponding CSS class name.
-let animationClass = (pref: AccessibilityModel.animationPreference): string => {
-  switch pref {
-  | AnimationsOn => ""
-  | AnimationsReduced => "animations-reduced"
-  | AnimationsOff => "animations-off"
-  }
-}
-
-/// Human-readable label for an animation preference.
-let animationLabel = (pref: AccessibilityModel.animationPreference): string => {
-  switch pref {
-  | AnimationsOn => "Animations On"
-  | AnimationsReduced => "Animations Reduced"
-  | AnimationsOff => "Animations Off"
-  }
-}
-
-// ============================================================================
-// Focus style helpers (pure)
-// ============================================================================
-
-/// Map a focus indicator style to its corresponding CSS class name.
-let focusStyleClass = (style: AccessibilityModel.focusIndicatorStyle): string => {
-  switch style {
-  | FocusDefault => ""
-  | FocusHighContrast => "focus-high-contrast"
-  | FocusThick => "focus-thick"
-  | FocusDotted => "focus-dotted"
-  }
-}
-
-/// Human-readable label for a focus indicator style.
-let focusStyleLabel = (style: AccessibilityModel.focusIndicatorStyle): string => {
-  switch style {
-  | FocusDefault => "Default (2px indigo)"
-  | FocusHighContrast => "High Contrast (3px black)"
-  | FocusThick => "Thick (4px indigo)"
-  | FocusDotted => "Dotted (3px dotted)"
-  }
-}
-
-// ============================================================================
-// Root classes (pure)
-// ============================================================================
-
-/// Combine all accessibility CSS classes into a single space-separated string
-/// for the root element.
-///
-/// Called on every render to produce the class attribute for the app root.
-/// Filters out empty strings so there are no double-spaces in the output.
-///
-/// Example output: "theme-light text-lg animations-reduced focus-high-contrast"
-/// Example output (all defaults): "text-base"
-let rootClasses = (state: AccessibilityModel.accessibilityState): string => {
-  let classes = [
-    themeClass(state),
-    fontSizeClass(state.fontSize),
-    animationClass(state.animations),
-    focusStyleClass(state.focusStyle),
-  ]
-  classes
-  ->Array.filter(c => c !== "")
-  ->Array.join(" ")
-}
-
-// ============================================================================
-// OS preference detection (side-effectful)
-// ============================================================================
-
-/// Detect the OS colour scheme preference via matchMedia.
-/// Returns ThemeDark or ThemeLight.
-let detectOsColorScheme = (): AccessibilityModel.themeMode => {
-  try {
-    let _mql = %raw(`window.matchMedia("(prefers-color-scheme: light)")`)
-    let matches: bool = %raw(`_mql.matches`)
-    if matches {
-      AccessibilityModel.ThemeLight
-    } else {
-      ThemeDark
-    }
-  } catch {
-  | _ => ThemeDark
-  }
-}
-
-/// Detect the OS reduced-motion preference.
-/// Returns true if the OS prefers reduced motion.
-let detectOsReducedMotion = (): bool => {
-  try {
-    let _mql = %raw(`window.matchMedia("(prefers-reduced-motion: reduce)")`)
-    let matches: bool = %raw(`_mql.matches`)
-    matches
-  } catch {
-  | _ => false
-  }
-}
-
-// ============================================================================
-// localStorage persistence (side-effectful)
-// ============================================================================
-
-/// Serialise a theme mode to a JSON-safe string.
-let themeToString = (mode: AccessibilityModel.themeMode): string => {
-  switch mode {
-  | ThemeDark => "dark"
-  | ThemeLight => "light"
-  | ThemeSystem => "system"
-  }
-}
-
-/// Parse a theme mode from a string. Returns None for unknown values.
-let themeFromString = (s: string): option<AccessibilityModel.themeMode> => {
-  switch s {
-  | "dark" => Some(ThemeDark)
-  | "light" => Some(ThemeLight)
-  | "system" => Some(ThemeSystem)
-  | _ => None
-  }
-}
-
-/// Serialise a palette to a string.
-let paletteToString = (p: ProvenanceModel.accessibilityPalette): string => {
-  switch p {
-  | StandardPalette => "standard"
-  | DeuteranopiaPalette => "deuteranopia"
-  | ProtanopiaPalette => "protanopia"
-  | HighContrastPalette => "high-contrast"
-  }
-}
-
-/// Parse a palette from a string.
-let paletteFromString = (s: string): option<ProvenanceModel.accessibilityPalette> => {
-  switch s {
-  | "standard" => Some(StandardPalette)
-  | "deuteranopia" => Some(DeuteranopiaPalette)
-  | "protanopia" => Some(ProtanopiaPalette)
-  | "high-contrast" => Some(HighContrastPalette)
-  | _ => None
-  }
-}
-
-/// Serialise an animation preference to a string.
-let animationToString = (a: AccessibilityModel.animationPreference): string => {
-  switch a {
-  | AnimationsOn => "on"
-  | AnimationsReduced => "reduced"
-  | AnimationsOff => "off"
-  }
-}
-
-/// Parse an animation preference from a string.
-let animationFromString = (s: string): option<AccessibilityModel.animationPreference> => {
-  switch s {
-  | "on" => Some(AnimationsOn)
-  | "reduced" => Some(AnimationsReduced)
-  | "off" => Some(AnimationsOff)
-  | _ => None
-  }
-}
-
-/// Serialise a font size preset to a string.
-let fontSizeToString = (f: AccessibilityModel.fontSizePreset): string => {
-  switch f {
-  | FontSmall => "small"
-  | FontMedium => "medium"
-  | FontLarge => "large"
-  | FontExtraLarge => "extra-large"
-  }
-}
-
-/// Parse a font size preset from a string.
-let fontSizeFromString = (s: string): option<AccessibilityModel.fontSizePreset> => {
-  switch s {
-  | "small" => Some(FontSmall)
-  | "medium" => Some(FontMedium)
-  | "large" => Some(FontLarge)
-  | "extra-large" => Some(FontExtraLarge)
-  | _ => None
-  }
-}
-
-/// Serialise a focus style to a string.
-let focusStyleToString = (f: AccessibilityModel.focusIndicatorStyle): string => {
-  switch f {
-  | FocusDefault => "default"
-  | FocusHighContrast => "high-contrast"
-  | FocusThick => "thick"
-  | FocusDotted => "dotted"
-  }
-}
-
-/// Parse a focus style from a string.
-let focusStyleFromString = (s: string): option<AccessibilityModel.focusIndicatorStyle> => {
-  switch s {
-  | "default" => Some(FocusDefault)
-  | "high-contrast" => Some(FocusHighContrast)
-  | "thick" => Some(FocusThick)
-  | "dotted" => Some(FocusDotted)
-  | _ => None
-  }
-}
-
-/// Save the current accessibility state to localStorage as JSON.
-/// Silently fails if localStorage is unavailable (e.g. private browsing).
-let saveToLocalStorage = (state: AccessibilityModel.accessibilityState): unit => {
-  try {
-    let json = Dict.make()
-    Dict.set(json, "theme", JSON.Encode.string(themeToString(state.theme)))
-    Dict.set(json, "palette", JSON.Encode.string(paletteToString(state.palette)))
-    Dict.set(json, "animations", JSON.Encode.string(animationToString(state.animations)))
-    Dict.set(json, "fontSize", JSON.Encode.string(fontSizeToString(state.fontSize)))
-    Dict.set(json, "focusStyle", JSON.Encode.string(focusStyleToString(state.focusStyle)))
-    let _jsonStr = JSON.stringify(JSON.Encode.object(json))
-    %raw(`localStorage.setItem(storageKey, _jsonStr)`)
-  } catch {
-  | _ => ()
-  }
-}
-
-/// Helper to extract a string from a parsed JSON object dict.
-let getJsonString = (obj: Dict.t<JSON.t>, key: string): option<string> => {
-  switch Dict.get(obj, key) {
-  | Some(v) =>
-    switch JSON.Classify.classify(v) {
-    | String(s) => Some(s)
-    | _ => None
-    }
-  | None => None
-  }
-}
-
-/// Tea_Json decoder for accessibility preferences from localStorage.
-/// Parses string fields and maps them to variant types via existing parsers.
-let accessibilityDecoder: Tea_Json.decoder<AccessibilityModel.accessibilityState> = json => {
-  open Decoders
-  open Tea_Json
-  let inner = map5(
-    (themeStr, paletteStr, animStr, fontStr, focusStr) => (
-      themeStr,
-      paletteStr,
-      animStr,
-      fontStr,
-      focusStr,
-    ),
-    optionalFieldDecoder("theme", string),
-    optionalFieldDecoder("palette", string),
-    optionalFieldDecoder("animations", string),
-    optionalFieldDecoder("fontSize", string),
-    optionalFieldDecoder("focusStyle", string),
-  )
-  switch inner(json) {
-  | Ok((themeStr, paletteStr, animStr, fontStr, focusStr)) => {
-      let theme = switch themeStr {
-      | Some(s) => themeFromString(s)
-      | None => None
-      }
-      let palette = switch paletteStr {
-      | Some(s) => paletteFromString(s)
-      | None => None
-      }
-      let animations = switch animStr {
-      | Some(s) => animationFromString(s)
-      | None => None
-      }
-      let fontSize = switch fontStr {
-      | Some(s) => fontSizeFromString(s)
-      | None => None
-      }
-      let focusStyle = switch focusStr {
-      | Some(s) => focusStyleFromString(s)
-      | None => None
-      }
-      let osScheme = detectOsColorScheme()
-      let resolvedTheme = switch theme {
-      | Some(ThemeSystem) => osScheme
-      | Some(t) => t
-      | None => ThemeDark
-      }
-      Ok(
-        (
-          {
-            palette: switch palette {
-            | Some(p) => p
-            | None => StandardPalette
-            },
-            theme: switch theme {
-            | Some(t) => t
-            | None => ThemeDark
-            },
-            animations: switch animations {
-            | Some(a) => a
-            | None => AnimationsOn
-            },
-            fontSize: switch fontSize {
-            | Some(f) => f
-            | None => FontMedium
-            },
-            focusStyle: switch focusStyle {
-            | Some(f) => f
-            | None => FocusDefault
-            },
-            toolbarExpanded: false,
-            resolvedTheme,
-          }: AccessibilityModel.accessibilityState
-        ),
-      )
-    }
-  | Error(e) => Error(e)
-  }
-}
-
-/// Load accessibility preferences from localStorage.
-/// Returns None if nothing is stored or parsing fails.
-let loadFromLocalStorage = (): option<AccessibilityModel.accessibilityState> => {
-  try {
-    let raw: Nullable.t<string> = %raw(`localStorage.getItem(storageKey)`)
-    switch Nullable.toOption(raw) {
-    | None => None
-    | Some(jsonStr) => Decoders.decodeOption(accessibilityDecoder, jsonStr)
-    }
-  } catch {
-  | _ => None
-  }
-}
-
-// ============================================================================
-// Default state (reads OS prefs + localStorage)
-// ============================================================================
-
-/// Build the initial accessibility state by layering:
-///   1. Hardcoded defaults
-///   2. OS preferences (reduced-motion, colour-scheme)
-///   3. localStorage overrides (user's previous choices)
-///
-/// This is called once at startup.
-let defaultState: AccessibilityModel.accessibilityState = {
-  let osScheme = detectOsColorScheme()
-  let osReduced = detectOsReducedMotion()
-  let base: AccessibilityModel.accessibilityState = {
-    palette: StandardPalette,
-    theme: ThemeDark,
-    animations: osReduced ? AnimationsReduced : AnimationsOn,
-    fontSize: FontMedium,
-    focusStyle: FocusDefault,
-    toolbarExpanded: false,
-    resolvedTheme: osScheme,
-  }
-  switch loadFromLocalStorage() {
-  | Some(saved) => saved
-  | None => base
-  }
-}
-
-// ============================================================================
-// TEA command for saving (wraps side effect in a Cmd)
-// ============================================================================
-
-/// Create a TEA command that persists the current accessibility state to
-/// localStorage. Fire-and-forget — no result message needed.
-let saveCmd = (state: AccessibilityModel.accessibilityState): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(_callbacks => {
-    saveToLocalStorage(state)
-  })
-}
-
-// ============================================================================
-// TEA command for listening to OS colour scheme changes
-// ============================================================================
-
-/// Create a TEA command that registers a matchMedia listener for
-/// prefers-color-scheme changes. When the OS scheme changes and the user
-/// is in System theme mode, dispatches a message to update resolvedTheme.
-///
-/// The tagger receives a bool: true = OS prefers light, false = OS prefers dark.
-let listenColorSchemeChange = (_tagger: bool => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(_callbacks => {
-    try {
-      let _: unit = %raw(`
-        window.matchMedia("(prefers-color-scheme: light)").addEventListener("change", (e) => {
-          callbacks.enqueue(tagger(e.matches))
-        })
-      `)
-    } catch {
-    | _ => ()
-    }
-  })
-}
diff --git a/src/core/AerieEngine.affine b/src/core/AerieEngine.affine
new file mode 100644
index 00000000..418b4cc7
--- /dev/null
+++ b/src/core/AerieEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AerieEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/AerieEngine.res b/src/core/AerieEngine.res
deleted file mode 100644
index 0132ed68..00000000
--- a/src/core/AerieEngine.res
+++ /dev/null
@@ -1,138 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Aerie Engine — pure computation for network diagnostics.
-
-open AerieModel
-
-/// Human-readable label for an Aerie category tab.
-let categoryLabel = (cat: aerieCategory): string =>
-  switch cat {
-  | AerieDashboard => "Dashboard"
-  | AerieSpeedTests => "Speed Tests"
-  | AerieBgp => "BGP Analysis"
-  | AerieProbes => "Probes"
-  }
-
-/// Classify latency quality.
-let latencyQuality = (rttMs: float): string =>
-  if rttMs < 20.0 {
-    "Excellent"
-  } else if rttMs < 50.0 {
-    "Good"
-  } else if rttMs < 100.0 {
-    "Fair"
-  } else {
-    "Poor"
-  }
-
-/// CSS color for latency quality.
-let latencyColor = (rttMs: float): string =>
-  if rttMs < 20.0 {
-    "text-green-400"
-  } else if rttMs < 50.0 {
-    "text-emerald-400"
-  } else if rttMs < 100.0 {
-    "text-amber-400"
-  } else {
-    "text-red-400"
-  }
-
-/// Average latency across all results.
-let avgLatency = (results: array<latencyResult>): float => {
-  if Array.length(results) > 0 {
-    results->Array.map(r => r.rttMs)->Array.reduce(0.0, (a, b) => a +. b) /.
-      Int.toFloat(Array.length(results))
-  } else {
-    0.0
-  }
-}
-
-/// Average jitter across all results.
-let avgJitter = (results: array<latencyResult>): float => {
-  if Array.length(results) > 0 {
-    results->Array.map(r => r.jitterMs)->Array.reduce(0.0, (a, b) => a +. b) /.
-      Int.toFloat(Array.length(results))
-  } else {
-    0.0
-  }
-}
-
-/// Average packet loss across all results.
-let avgPacketLoss = (results: array<latencyResult>): float => {
-  if Array.length(results) > 0 {
-    results->Array.map(r => r.packetLoss)->Array.reduce(0.0, (a, b) => a +. b) /.
-      Int.toFloat(Array.length(results))
-  } else {
-    0.0
-  }
-}
-
-/// Classify jitter quality.
-let jitterQuality = (jitterMs: float): string =>
-  if jitterMs < 5.0 {
-    "Excellent"
-  } else if jitterMs < 20.0 {
-    "Good"
-  } else if jitterMs < 50.0 {
-    "Fair"
-  } else {
-    "Poor"
-  }
-
-/// MTU mismatch severity label.
-let mtuStatus = (result: option<mtuResult>): string =>
-  switch result {
-  | None => "Not tested"
-  | Some(r) =>
-    if r.mismatch {
-      "Mismatch: " ++ Int.toString(r.interfaceMtu) ++ " > " ++ Int.toString(r.pathMtu)
-    } else {
-      "OK: " ++ Int.toString(r.pathMtu) ++ " bytes"
-    }
-  }
-
-/// CSS color for MTU status.
-let mtuColor = (result: option<mtuResult>): string =>
-  switch result {
-  | None => "text-gray-500"
-  | Some(r) =>
-    if r.mismatch {
-      "text-red-400"
-    } else {
-      "text-green-400"
-    }
-  }
-
-/// Count interfaces that are up.
-let interfacesUp = (ifaces: array<interfaceSummary>): int =>
-  ifaces->Array.filter(i => i.isUp)->Array.length
-
-/// Extended latency quality (adds "Very poor" for mobile/satellite).
-let latencyQualityExtended = (rttMs: float): string =>
-  if rttMs < 20.0 {
-    "Excellent"
-  } else if rttMs < 50.0 {
-    "Good"
-  } else if rttMs < 100.0 {
-    "Fair"
-  } else if rttMs < 300.0 {
-    "Poor"
-  } else {
-    "Very poor"
-  }
-
-/// Default Aerie panel state — disconnected, no data loaded.
-let defaultState: aerieState = {
-  loaded: false,
-  loading: false,
-  error: None,
-  probes: [],
-  latencyResults: [],
-  speedTests: [],
-  bgpRoutes: [],
-  activeCategory: AerieDashboard,
-  bgpAnomalyCount: 0,
-  mtuResult: None,
-  interfaces: [],
-  bojRouting: false,
-}
diff --git a/src/core/AgentCoordinationEngine.affine b/src/core/AgentCoordinationEngine.affine
new file mode 100644
index 00000000..9a0cfbf6
--- /dev/null
+++ b/src/core/AgentCoordinationEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AgentCoordinationEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/AgentCoordinationEngine.res b/src/core/AgentCoordinationEngine.res
deleted file mode 100644
index 4a08e1df..00000000
--- a/src/core/AgentCoordinationEngine.res
+++ /dev/null
@@ -1,190 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Agent Coordination Engine — pure helpers for the coordination
-/// view panel.
-///
-/// All functions are pure (no side effects). Provides coordination strategy
-/// descriptions, memory type classification, topology layout helpers,
-/// and node state colour mappings.
-
-open AgentCoordinationModel
-
-// ============================================================================
-// Coordination Strategy Helpers
-// ============================================================================
-
-/// Whether a coordination strategy involves multiple agents.
-let isMultiAgent = (strategy: coordination): bool => {
-  switch strategy {
-  | Solo => false
-  | Pipeline => true
-  | Broadcast => true
-  | Consensus => true
-  | Hierarchy => true
-  | Swarm => true
-  }
-}
-
-/// Human-readable description of a coordination strategy.
-let strategyDescription = (strategy: coordination): string => {
-  switch strategy {
-  | Solo => "Single agent operating independently. No inter-agent communication."
-  | Pipeline => "Sequential chain — each agent passes output to the next."
-  | Broadcast => "One coordinator sends instructions to all agents simultaneously."
-  | Consensus => "All agents must agree before any action is taken."
-  | Hierarchy => "Tree-shaped delegation with a root coordinator and sub-agents."
-  | Swarm => "Decentralised self-organisation. Agents discover and coordinate autonomously."
-  }
-}
-
-/// Human-readable display name for a coordination strategy.
-let strategyDisplayName = (strategy: coordination): string => {
-  switch strategy {
-  | Solo => "Solo"
-  | Pipeline => "Pipeline"
-  | Broadcast => "Broadcast"
-  | Consensus => "Consensus"
-  | Hierarchy => "Hierarchy"
-  | Swarm => "Swarm"
-  }
-}
-
-/// Lucide icon name for a coordination strategy.
-let strategyIcon = (strategy: coordination): string => {
-  switch strategy {
-  | Solo => "user"
-  | Pipeline => "arrow-right"
-  | Broadcast => "radio"
-  | Consensus => "users"
-  | Hierarchy => "git-branch"
-  | Swarm => "hexagon"
-  }
-}
-
-// ============================================================================
-// Memory Type Helpers
-// ============================================================================
-
-/// Whether a memory type persists beyond a single session.
-let memoryIsPersistent = (mem: memoryType): bool => {
-  switch mem {
-  | Ephemeral => false
-  | Session => false
-  | Persistent => true
-  | Shared => true
-  | Immutable => true
-  }
-}
-
-/// Human-readable label for a memory type.
-let memoryLabel = (mem: memoryType): string => {
-  switch mem {
-  | Ephemeral => "Ephemeral"
-  | Session => "Session"
-  | Persistent => "Persistent"
-  | Shared => "Shared"
-  | Immutable => "Immutable"
-  }
-}
-
-/// Short icon-like character for a memory type indicator.
-let memoryIndicator = (mem: memoryType): string => {
-  switch mem {
-  | Ephemeral => "E"
-  | Session => "S"
-  | Persistent => "P"
-  | Shared => "H"
-  | Immutable => "I"
-  }
-}
-
-/// Tailwind colour class for a memory type indicator badge.
-let memoryColor = (mem: memoryType): string => {
-  switch mem {
-  | Ephemeral => "bg-gray-600 text-gray-200"
-  | Session => "bg-blue-600 text-white"
-  | Persistent => "bg-emerald-600 text-white"
-  | Shared => "bg-purple-600 text-white"
-  | Immutable => "bg-amber-600 text-white"
-  }
-}
-
-// ============================================================================
-// Node State Colours
-// ============================================================================
-
-/// Tailwind text colour class for an agent node state.
-let nodeStateColor = (state: agentNodeState): string => {
-  switch state {
-  | Active => "text-emerald-400"
-  | Idle => "text-gray-400"
-  | Disconnected => "text-red-400"
-  | NodeError => "text-red-600"
-  }
-}
-
-/// Tailwind border colour class for an agent node state.
-let nodeBorderColor = (state: agentNodeState): string => {
-  switch state {
-  | Active => "border-emerald-500"
-  | Idle => "border-gray-500"
-  | Disconnected => "border-red-500"
-  | NodeError => "border-red-600"
-  }
-}
-
-/// Human-readable label for a node state.
-let nodeStateLabel = (state: agentNodeState): string => {
-  switch state {
-  | Active => "Active"
-  | Idle => "Idle"
-  | Disconnected => "Disconnected"
-  | NodeError => "Error"
-  }
-}
-
-// ============================================================================
-// Topology Layout
-// ============================================================================
-
-/// Suggested layout style for a coordination strategy.
-/// Returns a CSS-compatible layout hint.
-let topologyLayout = (strategy: coordination): string => {
-  switch strategy {
-  | Solo => "single"
-  | Pipeline => "horizontal"
-  | Broadcast => "star"
-  | Consensus => "ring"
-  | Hierarchy => "tree"
-  | Swarm => "mesh"
-  }
-}
-
-/// Tailwind border colour for a strategy card.
-let strategyBorderColor = (strategy: coordination, isSelected: bool): string => {
-  if isSelected {
-    "border-emerald-500 ring-2 ring-emerald-500/30"
-  } else {
-    switch strategy {
-    | Solo => "border-gray-500/40"
-    | Pipeline => "border-blue-500/40"
-    | Broadcast => "border-cyan-500/40"
-    | Consensus => "border-purple-500/40"
-    | Hierarchy => "border-amber-500/40"
-    | Swarm => "border-red-500/40"
-    }
-  }
-}
-
-// ============================================================================
-// Initial State
-// ============================================================================
-
-/// Default initial state for the Agent Coordination View.
-let init: agentCoordinationState = {
-  nodes: [],
-  edges: [],
-  selectedStrategy: None,
-  loading: false,
-}
diff --git a/src/core/AgentOodaEngine.affine b/src/core/AgentOodaEngine.affine
new file mode 100644
index 00000000..42d7fffd
--- /dev/null
+++ b/src/core/AgentOodaEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AgentOodaEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/AgentOodaEngine.res b/src/core/AgentOodaEngine.res
deleted file mode 100644
index b50764a0..00000000
--- a/src/core/AgentOodaEngine.res
+++ /dev/null
@@ -1,160 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Agent OODA Engine — pure helpers for the OODA session monitor panel.
-///
-/// All functions are pure (no side effects). Provides state colour mappings,
-/// transition logic, session health indicators, and display helpers.
-
-open AgentOodaModel
-
-// ============================================================================
-// State Colour Mappings
-// ============================================================================
-
-/// Tailwind background colour class for an agent state.
-let stateColor = (state: agentState): string => {
-  switch state {
-  | Observing => "bg-blue-600 text-white"
-  | Orienting => "bg-cyan-600 text-white"
-  | Deciding => "bg-amber-500 text-white"
-  | Acting => "bg-emerald-600 text-white"
-  | Halted => "bg-red-600 text-white"
-  }
-}
-
-/// Tailwind text colour class for an agent state.
-let stateTextColor = (state: agentState): string => {
-  switch state {
-  | Observing => "text-blue-400"
-  | Orienting => "text-cyan-400"
-  | Deciding => "text-amber-400"
-  | Acting => "text-emerald-400"
-  | Halted => "text-red-400"
-  }
-}
-
-/// Tailwind border colour class for an agent state.
-let stateBorderColor = (state: agentState): string => {
-  switch state {
-  | Observing => "border-blue-500"
-  | Orienting => "border-cyan-500"
-  | Deciding => "border-amber-500"
-  | Acting => "border-emerald-500"
-  | Halted => "border-red-500"
-  }
-}
-
-// ============================================================================
-// State Icons and Labels
-// ============================================================================
-
-/// Lucide icon name for an agent state.
-let stateIcon = (state: agentState): string => {
-  switch state {
-  | Observing => "eye"
-  | Orienting => "compass"
-  | Deciding => "brain"
-  | Acting => "play"
-  | Halted => "octagon"
-  }
-}
-
-/// Human-readable label for an agent state.
-let stateLabel = (state: agentState): string => {
-  switch state {
-  | Observing => "Observing"
-  | Orienting => "Orienting"
-  | Deciding => "Deciding"
-  | Acting => "Acting"
-  | Halted => "Halted"
-  }
-}
-
-// ============================================================================
-// Transition Logic
-// ============================================================================
-
-/// Whether a transition from the current state to a target state is valid.
-/// OODA loops follow: Observing -> Orienting -> Deciding -> Acting -> Observing.
-/// Any state can transition to Halted.
-let canTransition = (current: agentState, target: agentState): bool => {
-  switch (current, target) {
-  | (_, Halted) => true
-  | (Observing, Orienting) => true
-  | (Orienting, Deciding) => true
-  | (Deciding, Acting) => true
-  | (Acting, Observing) => true
-  | _ => false
-  }
-}
-
-/// The next state in the OODA loop (does not include Halted).
-let nextState = (current: agentState): agentState => {
-  switch current {
-  | Observing => Orienting
-  | Orienting => Deciding
-  | Deciding => Acting
-  | Acting => Observing
-  | Halted => Halted
-  }
-}
-
-// ============================================================================
-// Session Health
-// ============================================================================
-
-/// Health classification for a session based on loop count and state.
-type sessionHealthLevel =
-  /// Healthy — session is progressing normally.
-  | Healthy
-  /// Slow — session has a low loop rate.
-  | Slow
-  /// Stuck — session has not progressed.
-  | Stuck
-  /// Dead — session is halted.
-  | Dead
-
-/// Assess the health of a session based on its state and loop count.
-let sessionHealth = (session: oodaSession): sessionHealthLevel => {
-  if session.wasHalted || session.state == Halted {
-    Dead
-  } else if session.loopCount == 0 {
-    Stuck
-  } else if session.loopCount < 3 {
-    Slow
-  } else {
-    Healthy
-  }
-}
-
-/// Tailwind text colour for a health level.
-let healthColor = (health: sessionHealthLevel): string => {
-  switch health {
-  | Healthy => "text-emerald-400"
-  | Slow => "text-amber-400"
-  | Stuck => "text-red-400"
-  | Dead => "text-gray-500"
-  }
-}
-
-/// Calculate loop rate (loops per second) from detail data.
-let loopRate = (detail: sessionDetail): float => {
-  if detail.totalElapsedMs > 0.0 {
-    Int.toFloat(detail.session.loopCount) /. (detail.totalElapsedMs /. 1000.0)
-  } else {
-    0.0
-  }
-}
-
-// ============================================================================
-// Initial State
-// ============================================================================
-
-/// Default initial state for the OODA Session Monitor.
-let init: agentOodaState = {
-  sessions: [],
-  selectedSessionId: None,
-  selectedDetail: None,
-  loading: false,
-}
diff --git a/src/core/AgentSafetyEngine.affine b/src/core/AgentSafetyEngine.affine
new file mode 100644
index 00000000..c6e68061
--- /dev/null
+++ b/src/core/AgentSafetyEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AgentSafetyEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/AgentSafetyEngine.res b/src/core/AgentSafetyEngine.res
deleted file mode 100644
index 6f9433d4..00000000
--- a/src/core/AgentSafetyEngine.res
+++ /dev/null
@@ -1,161 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Agent Safety Engine — pure helpers for the safety gate panel.
-///
-/// All functions are pure (no side effects). Provides tool call classification,
-/// safety check logic, colour mappings, and filtering.
-
-open AgentSafetyModel
-
-// ============================================================================
-// Tool Call Classification
-// ============================================================================
-
-/// Whether a tool call type has side effects (modifies external state).
-let hasSideEffects = (tc: toolCall): bool => {
-  switch tc {
-  | FileRead => false
-  | FileWrite => true
-  | NetworkRequest => true
-  | ShellExec => true
-  | DatabaseOp => true
-  | ExternalApi => true
-  }
-}
-
-/// Whether a tool call type requires a safety check before execution.
-let requiresSafetyCheck = (tc: toolCall): bool => {
-  hasSideEffects(tc)
-}
-
-/// Whether a safety check outcome allows execution to proceed.
-let allowsExecution = (check: safetyCheck): bool => {
-  switch check {
-  | AutoApproved => true
-  | HumanApproved => true
-  | PendingReview => false
-  | HumanDenied => false
-  | Escalated => false
-  | PolicyBlocked => false
-  }
-}
-
-/// Whether a safety check outcome needs human intervention.
-let needsHuman = (check: safetyCheck): bool => {
-  switch check {
-  | PendingReview => true
-  | Escalated => true
-  | AutoApproved => false
-  | HumanApproved => false
-  | HumanDenied => false
-  | PolicyBlocked => false
-  }
-}
-
-// ============================================================================
-// Colour Mappings
-// ============================================================================
-
-/// Tailwind background colour class for a safety event based on its outcome.
-let eventColor = (outcome: safetyCheck): string => {
-  switch outcome {
-  | AutoApproved => "bg-emerald-900/20 border-emerald-500/40"
-  | HumanApproved => "bg-emerald-900/20 border-emerald-500/40"
-  | PendingReview => "bg-amber-900/20 border-amber-500/40"
-  | HumanDenied => "bg-red-900/20 border-red-500/40"
-  | Escalated => "bg-orange-900/20 border-orange-500/40"
-  | PolicyBlocked => "bg-red-900/20 border-red-500/40"
-  }
-}
-
-/// Tailwind text colour class for a safety check outcome.
-let outcomeTextColor = (outcome: safetyCheck): string => {
-  switch outcome {
-  | AutoApproved => "text-emerald-400"
-  | HumanApproved => "text-emerald-400"
-  | PendingReview => "text-amber-400"
-  | HumanDenied => "text-red-400"
-  | Escalated => "text-orange-400"
-  | PolicyBlocked => "text-red-400"
-  }
-}
-
-// ============================================================================
-// Filtering
-// ============================================================================
-
-/// Filter events to only those pending human review.
-let filterPending = (events: array<safetyEvent>): array<safetyEvent> => {
-  events->Array.filter(e => e.outcome == PendingReview)
-}
-
-/// Filter events by agent identifier.
-let filterByAgent = (events: array<safetyEvent>, agentId: string): array<safetyEvent> => {
-  events->Array.filter(e => e.agentId == agentId)
-}
-
-// ============================================================================
-// Display Labels
-// ============================================================================
-
-/// Human-readable label for a tool call type.
-let toolCallLabel = (tc: toolCall): string => {
-  switch tc {
-  | FileRead => "File Read"
-  | FileWrite => "File Write"
-  | NetworkRequest => "Network Request"
-  | ShellExec => "Shell Exec"
-  | DatabaseOp => "Database Op"
-  | ExternalApi => "External API"
-  }
-}
-
-/// Human-readable label for a safety check outcome.
-let outcomeLabel = (check: safetyCheck): string => {
-  switch check {
-  | AutoApproved => "Auto-Approved"
-  | PendingReview => "Pending Review"
-  | HumanApproved => "Approved"
-  | HumanDenied => "Denied"
-  | Escalated => "Escalated"
-  | PolicyBlocked => "Policy Blocked"
-  }
-}
-
-// ============================================================================
-// Statistics Computation
-// ============================================================================
-
-/// Compute aggregate safety statistics from pending and history arrays.
-let computeStats = (pending: array<safetyEvent>, history: array<safetyEvent>): safetyStats => {
-  let all = Array.concat(pending, history)
-  let totalEvents = Array.length(all)
-  let autoApproved = all->Array.filter(e => e.outcome == AutoApproved)->Array.length
-  let humanApproved = all->Array.filter(e => e.outcome == HumanApproved)->Array.length
-  let denied = all->Array.filter(e => e.outcome == HumanDenied)->Array.length
-  let escalated = all->Array.filter(e => e.outcome == Escalated)->Array.length
-  let policyBlocked = all->Array.filter(e => e.outcome == PolicyBlocked)->Array.length
-  let pendingCount = Array.length(pending)
-  {totalEvents, autoApproved, humanApproved, denied, escalated, policyBlocked, pendingCount}
-}
-
-// ============================================================================
-// Initial State
-// ============================================================================
-
-/// Default initial state for the Agent Safety Gate.
-let init: agentSafetyState = {
-  pendingEvents: [],
-  historyEvents: [],
-  stats: {
-    totalEvents: 0,
-    autoApproved: 0,
-    humanApproved: 0,
-    denied: 0,
-    escalated: 0,
-    policyBlocked: 0,
-    pendingCount: 0,
-  },
-  loading: false,
-}
diff --git a/src/core/AgenticBridgeEngine.affine b/src/core/AgenticBridgeEngine.affine
new file mode 100644
index 00000000..50a0f103
--- /dev/null
+++ b/src/core/AgenticBridgeEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AgenticBridgeEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/AgenticBridgeEngine.res b/src/core/AgenticBridgeEngine.res
deleted file mode 100644
index 26009f2a..00000000
--- a/src/core/AgenticBridgeEngine.res
+++ /dev/null
@@ -1,85 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Agentic Bridge Engine — pure computation and helpers for the
-/// Agentic Bridge panel. Provides default state, tab metadata, agent
-/// status counting, finding aggregation, and OODA phase formatting.
-
-open AgenticBridgeModel
-
-/// Default state for the Agentic Bridge panel.
-/// Starts on the Agents tab with empty agent and config lists.
-let defaultState: agenticBridgeState = {
-  activeTab: Agents,
-  agents: [],
-  agentConfigs: [],
-  running: false,
-  selectedAgent: None,
-  error: None,
-}
-
-/// Human-readable label for each tab in the Agentic Bridge panel.
-let tabLabel = (tab: agenticBridgeTab): string =>
-  switch tab {
-  | Agents => "Agents"
-  | Config => "Config"
-  | Execution => "Execution"
-  | Results => "Results"
-  }
-
-/// All tabs in display order.
-let allTabs: array<agenticBridgeTab> = [Agents, Config, Execution, Results]
-
-/// Count agents matching a given operational status.
-let countAgentsByStatus = (agents: array<testAgent>, status: agentStatus): int =>
-  agents->Array.filter(a => a.status === status)->Array.length
-
-/// Count the total number of findings across all agents.
-let countFindings = (agents: array<testAgent>): int =>
-  agents->Array.reduce(0, (acc, agent) => acc + Array.length(agent.findings))
-
-/// Count findings by severity across all agents.
-let countFindingsBySeverity = (agents: array<testAgent>, severity: findingSeverity): int =>
-  agents->Array.reduce(0, (acc, agent) =>
-    acc + agent.findings->Array.filter(f => f.severity === severity)->Array.length
-  )
-
-/// Human-readable label for an agent operational status.
-let agentStatusLabel = (status: agentStatus): string =>
-  switch status {
-  | AgentIdle => "Idle"
-  | AgentRunning => "Running"
-  | AgentPaused => "Paused"
-  | AgentCompleted => "Completed"
-  | AgentFailed => "Failed"
-  }
-
-/// Human-readable label for a finding severity.
-let findingSeverityLabel = (severity: findingSeverity): string =>
-  switch severity {
-  | FindingCritical => "Critical"
-  | FindingMajor => "Major"
-  | FindingMinor => "Minor"
-  | FindingObservation => "Observation"
-  }
-
-/// Format an OODA phase as a human-readable string with description.
-let formatOodaPhase = (phase: agenticOodaPhase): string =>
-  switch phase {
-  | Observe => "Observe — gathering game state information"
-  | Orient => "Orient — analysing observations against patterns"
-  | Decide => "Decide — selecting next action"
-  | Act => "Act — executing chosen action"
-  }
-
-/// Short label for an OODA phase (single word).
-let oodaPhaseLabel = (phase: agenticOodaPhase): string =>
-  switch phase {
-  | Observe => "Observe"
-  | Orient => "Orient"
-  | Decide => "Decide"
-  | Act => "Act"
-  }
-
-/// Count total actions performed across all agents.
-let countTotalActions = (agents: array<testAgent>): int =>
-  agents->Array.reduce(0, (acc, agent) => acc + Array.length(agent.actions))
diff --git a/src/core/AiEngine.affine b/src/core/AiEngine.affine
new file mode 100644
index 00000000..4bb3fb2f
--- /dev/null
+++ b/src/core/AiEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AiEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/AiEngine.res b/src/core/AiEngine.res
deleted file mode 100644
index 62e3aeb9..00000000
--- a/src/core/AiEngine.res
+++ /dev/null
@@ -1,463 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL AI Engine — pure computation for the multi-provider AI panel.
-///
-/// All functions are pure (no side effects, no API calls). Provides:
-///   - Default state initialisation
-///   - Provider label, colour, and icon helpers
-///   - Message formatting and token display
-///   - Precedence sorting and provider selection
-///   - JSON parsing for Gossamer command responses
-
-open AiModel
-
-/// Human-readable label for a provider ID.
-let providerLabel = (id: aiProviderId): string => {
-  switch id {
-  | Anthropic => "Anthropic"
-  | Google => "Google"
-  | Mistral => "Mistral"
-  | OpenAI => "OpenAI"
-  | Local => "Local"
-  }
-}
-
-/// Short label for provider (used in message attribution).
-let providerShortLabel = (id: aiProviderId): string => {
-  switch id {
-  | Anthropic => "Claude"
-  | Google => "Gemini"
-  | Mistral => "Mistral"
-  | OpenAI => "GPT"
-  | Local => "Ollama"
-  }
-}
-
-/// Tailwind CSS colour class for a provider (conversation bubble borders).
-let providerColour = (id: aiProviderId): string => {
-  switch id {
-  | Anthropic => "border-orange-500"
-  | Google => "border-blue-500"
-  | Mistral => "border-yellow-500"
-  | OpenAI => "border-green-500"
-  | Local => "border-purple-500"
-  }
-}
-
-/// Background accent colour for provider badges.
-let providerBgColour = (id: aiProviderId): string => {
-  switch id {
-  | Anthropic => "bg-orange-500/20 text-orange-300"
-  | Google => "bg-blue-500/20 text-blue-300"
-  | Mistral => "bg-yellow-500/20 text-yellow-300"
-  | OpenAI => "bg-green-500/20 text-green-300"
-  | Local => "bg-purple-500/20 text-purple-300"
-  }
-}
-
-/// Icon identifier for a provider (for the provider selector).
-let providerIcon = (id: aiProviderId): string => {
-  switch id {
-  | Anthropic => "brain"
-  | Google => "sparkles"
-  | Mistral => "wind"
-  | OpenAI => "cpu"
-  | Local => "server"
-  }
-}
-
-/// Human-readable label for a provider status.
-let statusLabel = (status: aiProviderStatus): string => {
-  switch status {
-  | Ready => "Ready"
-  | Checking => "Checking..."
-  | QuotaExhausted => "Quota Exhausted"
-  | AiProviderError(msg) => `Error: ${msg}`
-  | Disabled => "Disabled"
-  | NoKey => "No API Key"
-  }
-}
-
-/// CSS class for status indicator dot.
-let statusDotClass = (status: aiProviderStatus): string => {
-  switch status {
-  | Ready => "bg-green-400"
-  | Checking => "bg-yellow-400 animate-pulse"
-  | QuotaExhausted => "bg-red-400"
-  | AiProviderError(_) => "bg-red-400"
-  | Disabled => "bg-gray-600"
-  | NoKey => "bg-gray-500"
-  }
-}
-
-/// Human-readable label for a category tab.
-let categoryLabel = (cat: aiCategory): string => {
-  switch cat {
-  | Conversation => "Conversation"
-  | SystemPrompt => "System Prompt"
-  | Providers => "Providers"
-  | Context => "Context"
-  }
-}
-
-/// All category tabs in display order.
-let allCategories: array<aiCategory> = [Conversation, SystemPrompt, Providers, Context]
-
-/// Human-readable label for a message role.
-let roleLabel = (role: aiRole): string => {
-  switch role {
-  | User => "You"
-  | Assistant => "AI"
-  | System => "System"
-  }
-}
-
-/// Format a token count for display (e.g., "1.2k", "45").
-let formatTokens = (count: int): string => {
-  if count >= 1000 {
-    let k = Int.toFloat(count) /. 1000.0
-    Float.toFixed(k, ~digits=1) ++ "k"
-  } else {
-    Int.toString(count)
-  }
-}
-
-/// Sort providers by priority (lowest number first = highest priority).
-let sortByPriority = (providers: array<aiProviderConfig>): array<aiProviderConfig> => {
-  let sorted = Array.copy(providers)
-  sorted->Array.sort((a, b) => Int.compare(a.priority, b.priority))
-  sorted
-}
-
-/// Select the best available provider: highest priority, enabled, non-exhausted.
-let selectProvider = (providers: array<aiProviderConfig>): option<aiProviderConfig> => {
-  let sorted = sortByPriority(providers)
-  sorted->Array.find(p => p.enabled && !p.quotaExhausted)
-}
-
-/// Get the status for a provider from the status array.
-let getProviderStatus = (
-  statuses: array<(aiProviderId, aiProviderStatus)>,
-  id: aiProviderId,
-): aiProviderStatus => {
-  switch statuses->Array.find(((pid, _)) => pid === id) {
-  | Some((_, status)) => status
-  | None => NoKey
-  }
-}
-
-/// Serialise a provider ID to a string for the Gossamer command bridge.
-let providerIdToString = (id: aiProviderId): string => {
-  switch id {
-  | Anthropic => "anthropic"
-  | Google => "google"
-  | Mistral => "mistral"
-  | OpenAI => "openai"
-  | Local => "local"
-  }
-}
-
-/// Parse a provider ID from a string.
-let providerIdFromString = (s: string): option<aiProviderId> => {
-  switch String.toLowerCase(s) {
-  | "anthropic" => Some(Anthropic)
-  | "google" => Some(Google)
-  | "mistral" => Some(Mistral)
-  | "openai" => Some(OpenAI)
-  | "local" => Some(Local)
-  | _ => None
-  }
-}
-
-/// Default provider configurations. Matches the Rust `AiProvidersFile::defaults()`.
-let defaultProviders: array<aiProviderConfig> = [
-  {
-    id: Anthropic,
-    apiKey: None,
-    envVar: "ANTHROPIC_API_KEY",
-    enabled: true,
-    priority: 1,
-    selectedModel: "claude-opus-4-6",
-    quotaExhausted: false,
-  },
-  {
-    id: Google,
-    apiKey: None,
-    envVar: "GOOGLE_AI_KEY",
-    enabled: true,
-    priority: 2,
-    selectedModel: "gemini-2.5-pro",
-    quotaExhausted: false,
-  },
-  {
-    id: Mistral,
-    apiKey: None,
-    envVar: "MISTRAL_API_KEY",
-    enabled: false,
-    priority: 3,
-    selectedModel: "mistral-large-latest",
-    quotaExhausted: false,
-  },
-  {
-    id: OpenAI,
-    apiKey: None,
-    envVar: "OPENAI_API_KEY",
-    enabled: false,
-    priority: 4,
-    selectedModel: "gpt-4o",
-    quotaExhausted: false,
-  },
-  {
-    id: Local,
-    apiKey: None,
-    envVar: "",
-    enabled: false,
-    priority: 5,
-    selectedModel: "llama3",
-    quotaExhausted: false,
-  },
-]
-
-/// Default initial state for the AI panel.
-let defaultState: aiState = {
-  providers: defaultProviders,
-  providerStatuses: [
-    (Anthropic, NoKey),
-    (Google, NoKey),
-    (Mistral, Disabled),
-    (OpenAI, Disabled),
-    (Local, Disabled),
-  ],
-  messages: [],
-  inputText: "",
-  systemPrompt: "You are an AI assistant embedded in PanLL, a neurosymbolic development environment. You have access to the loaded repository's context, constraints, and panel state.",
-  autoContext: "",
-  loading: false,
-  activeCategory: Conversation,
-  broadcastMode: false,
-  error: None,
-  totalInputTokens: 0,
-  totalOutputTokens: 0,
-  streaming: {
-    active: false,
-    currentText: "",
-    pendingToolCalls: [],
-    completedToolResults: [],
-  },
-}
-
-/// Available models for each provider.
-let providerModels = (id: aiProviderId): array<string> => {
-  switch id {
-  | Anthropic => ["claude-opus-4-6", "claude-sonnet-4-6", "claude-haiku-4-5-20251001"]
-  | Google => ["gemini-2.5-pro", "gemini-2.5-flash"]
-  | Mistral => ["mistral-large-latest", "mistral-medium-latest", "mistral-small-latest"]
-  | OpenAI => ["gpt-4o", "o3", "gpt-4o-mini"]
-  | Local => ["llama3", "mistral", "codellama", "phi3"]
-  }
-}
-
-/// Tea_Json decoder for a message response.
-/// Returns Error("quota_exhausted") if the quota_exhausted field is true.
-let messageResponseDecoder: Tea_Json.decoder<aiMessage> = json => {
-  open Decoders
-  open Tea_Json
-  let inner = map6(
-    (providerStr, content, model, inputTokens, outputTokens, quotaExhausted) => (
-      providerStr,
-      content,
-      model,
-      inputTokens,
-      outputTokens,
-      quotaExhausted,
-    ),
-    stringField("provider"),
-    stringField("content"),
-    stringField("model"),
-    intField("input_tokens"),
-    intField("output_tokens"),
-    boolField("quota_exhausted"),
-  )
-  switch inner(json) {
-  | Ok((_, _, _, _, _, true)) => Error(Failure("quota_exhausted", json))
-  | Ok((providerStr, content, model, inputTokens, outputTokens, _)) =>
-    Ok(
-      (
-        {
-          role: Assistant,
-          content,
-          provider: providerIdFromString(providerStr),
-          model: Some(model),
-          inputTokens,
-          outputTokens,
-          timestamp: Date.now(),
-        }: aiMessage
-      ),
-    )
-  | Error(e) => Error(e)
-  }
-}
-
-/// Parse a SendMessageResponse from the Gossamer backend JSON.
-let parseMessageResponse = (jsonStr: string): result<aiMessage, string> =>
-  Decoders.decode(messageResponseDecoder, jsonStr)
-
-/// Tea_Json decoder for a single AI provider config.
-/// Validates the provider ID, skipping unknown providers.
-let providerConfigDecoder: Tea_Json.decoder<aiProviderConfig> = json => {
-  open Decoders
-  open Tea_Json
-  let inner = map5(
-    (idStr, envVar, enabled, priority, model) => (idStr, envVar, enabled, priority, model),
-    stringField("id"),
-    stringField("env_var"),
-    boolField("enabled"),
-    intField("priority"),
-    stringField("model"),
-  )
-  switch inner(json) {
-  | Ok((idStr, envVar, enabled, priority, model)) =>
-    switch providerIdFromString(idStr) {
-    | Some(id) =>
-      Ok(
-        (
-          {
-            id,
-            apiKey: None,
-            envVar,
-            enabled,
-            priority,
-            selectedModel: model,
-            quotaExhausted: false,
-          }: aiProviderConfig
-        ),
-      )
-    | None => Error(Failure(`Unknown provider id: ${idStr}`, json))
-    }
-  | Error(e) => Error(e)
-  }
-}
-
-/// Tea_Json decoder for the provider state response envelope.
-let providerStateDecoder: Tea_Json.decoder<array<aiProviderConfig>> = Tea_Json.field(
-  "providers",
-  Decoders.lenientArray(providerConfigDecoder),
-)
-
-/// Parse provider config state from the Gossamer backend JSON.
-let parseProviderState = (jsonStr: string): result<array<aiProviderConfig>, string> =>
-  Decoders.decode(providerStateDecoder, jsonStr)
-
-// ---------------------------------------------------------------------------
-// Streaming helpers — parse stream chunks and manage streaming state
-// ---------------------------------------------------------------------------
-
-/// Parse a stream chunk JSON from a Gossamer event payload.
-/// Returns `(chunkType, optionalData)` where chunkType is one of:
-/// "TextDelta", "ToolUseStart", "ToolUseDelta", "ToolUseEnd", "Complete", "Error".
-let parseStreamChunk = (json: string): result<(string, option<JSON.t>), string> => {
-  try {
-    let parsed = JSON.parseExn(json)
-    switch JSON.Classify.classify(parsed) {
-    | Object(obj) => {
-        let chunkType = switch Dict.get(obj, "type") {
-        | Some(v) =>
-          switch JSON.Classify.classify(v) {
-          | String(s) => s
-          | _ => "unknown"
-          }
-        | None => "unknown"
-        }
-        let data = Dict.get(obj, "data")
-        Ok((chunkType, data))
-      }
-    | _ => Error("Stream chunk is not an object: " ++ json)
-    }
-  } catch {
-  | _ => Error("Failed to parse stream chunk: " ++ json)
-  }
-}
-
-/// Create default streaming state (inactive, no accumulated data).
-let defaultStreamingState = (): streamingState => {
-  active: false,
-  currentText: "",
-  pendingToolCalls: [],
-  completedToolResults: [],
-}
-
-/// Append a text delta to the streaming state's accumulated text.
-let appendTextDelta = (state: streamingState, text: string): streamingState => {
-  ...state,
-  currentText: state.currentText ++ text,
-}
-
-/// Start a new tool call (ToolUseStart received).
-let startToolCall = (state: streamingState, id: string, name: string): streamingState => {
-  let newCall: toolCallState = {
-    id,
-    name,
-    accumulatedInput: "",
-    status: Accumulating,
-  }
-  {
-    ...state,
-    pendingToolCalls: Array.concat(state.pendingToolCalls, [newCall]),
-  }
-}
-
-/// Append JSON input to the most recent pending tool call (ToolUseDelta).
-let appendToolInput = (state: streamingState, partialJson: string): streamingState => {
-  let len = Array.length(state.pendingToolCalls)
-  if len === 0 {
-    state
-  } else {
-    let calls = Array.copy(state.pendingToolCalls)
-    switch calls[len - 1] {
-    | Some(last) =>
-      last.accumulatedInput = last.accumulatedInput ++ partialJson
-      {...state, pendingToolCalls: calls}
-    | None => state
-    }
-  }
-}
-
-/// Info needed to dispatch a tool call to BoJ.
-type toolCallDispatchInfo = {
-  /// The tool_use_id from Claude.
-  callId: string,
-  /// The tool name (maps to a BoJ cartridge tool).
-  callName: string,
-  /// The accumulated JSON input for the tool.
-  callInput: string,
-}
-
-/// Mark the most recent pending tool call as ready for execution (ToolUseEnd).
-/// Returns the tool call info for dispatch, if any.
-let finalizeToolCall = (state: streamingState): (streamingState, option<toolCallDispatchInfo>) => {
-  let len = Array.length(state.pendingToolCalls)
-  if len === 0 {
-    (state, None)
-  } else {
-    let calls = Array.copy(state.pendingToolCalls)
-    switch calls[len - 1] {
-    | Some(last) =>
-      last.status = Executing
-      (
-        {...state, pendingToolCalls: calls},
-        Some({callId: last.id, callName: last.name, callInput: last.accumulatedInput}),
-      )
-    | None => (state, None)
-    }
-  }
-}
-
-/// Check if all pending tool calls have completed (Completed or Failed).
-let allToolCallsComplete = (state: streamingState): bool => {
-  Array.every(state.pendingToolCalls, tc =>
-    switch tc.status {
-    | Completed(_) | Failed(_) => true
-    | Accumulating | Executing => false
-    }
-  )
-}
diff --git a/src/core/AmbientOpsEngine.affine b/src/core/AmbientOpsEngine.affine
new file mode 100644
index 00000000..e7a61dca
--- /dev/null
+++ b/src/core/AmbientOpsEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AmbientOpsEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/AmbientOpsEngine.res b/src/core/AmbientOpsEngine.res
deleted file mode 100644
index 12b0f1a4..00000000
--- a/src/core/AmbientOpsEngine.res
+++ /dev/null
@@ -1,74 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL AmbientOps Engine — pure helpers for hospital-model sysadmin panel.
-
-open AmbientOpsModel
-
-/// Default initial state.
-let defaultState: ambientOpsState = {
-  activeTab: TabDashboard,
-  findings: [],
-  scanning: false,
-  error: None,
-  clinicianAvailable: false,
-  networkRepairAvailable: false,
-  hardwareCrashTeamAvailable: false,
-}
-
-/// Tab label for display.
-let tabLabel = (tab: ambientOpsTab): string => {
-  switch tab {
-  | TabDashboard => "Dashboard"
-  | TabClinician => "Clinician"
-  | TabNetwork => "Network"
-  | TabHardware => "Hardware"
-  | TabEmergency => "Emergency"
-  }
-}
-
-/// All tabs for rendering.
-let allTabs: array<ambientOpsTab> = [
-  TabDashboard,
-  TabClinician,
-  TabNetwork,
-  TabHardware,
-  TabEmergency,
-]
-
-/// Department label for display.
-let departmentLabel = (d: department): string => {
-  switch d {
-  | Clinician => "Clinician"
-  | NetworkAmbulance => "Network Ambulance"
-  | HardwareCrashTeam => "Hardware Crash Team"
-  | EmergencyRoom => "Emergency Room"
-  | AmbientObservatory => "Observatory"
-  }
-}
-
-/// Severity label for display.
-let severityLabel = (s: diagnosticSeverity): string => {
-  switch s {
-  | Info => "Info"
-  | Warning => "Warning"
-  | Error => "Error"
-  | Critical => "Critical"
-  }
-}
-
-/// Count findings by severity.
-let countBySeverity = (findings: array<diagnosticFinding>, target: diagnosticSeverity): int => {
-  findings->Array.filter(f => f.severity == target)->Array.length
-}
-
-/// Count findings by department.
-let countByDepartment = (findings: array<diagnosticFinding>, target: department): int => {
-  findings->Array.filter(f => f.department == target)->Array.length
-}
-
-/// Filter findings for a specific department.
-let findingsForDepartment = (findings: array<diagnosticFinding>, target: department): array<
-  diagnosticFinding,
-> => {
-  findings->Array.filter(f => f.department == target)
-}
diff --git a/src/core/AntiCrash.affine b/src/core/AntiCrash.affine
new file mode 100644
index 00000000..1b49fb96
--- /dev/null
+++ b/src/core/AntiCrash.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AntiCrash;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/AntiCrash.res b/src/core/AntiCrash.res
deleted file mode 100644
index 8f35477c..00000000
--- a/src/core/AntiCrash.res
+++ /dev/null
@@ -1,221 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// AntiCrash Module - The Logical Circuit Breaker
-///
-/// Implements the Transduction Controller that intercepts all neural
-/// tokens and validates them against symbolic constraints before
-/// allowing them to reach the Task Barycentre.
-///
-/// No inference passes without symbolic validation.
-
-open Model
-
-/// Validation result
-type validationResult =
-  | Valid
-  | Invalid(string)
-  | RequiresReview(string)
-
-/// Initial Anti-Crash state
-let init = (): antiCrashState => {
-  enabled: true,
-  strictMode: true,
-  violations: [],
-  halted: false,
-  pendingReview: None,
-}
-
-/// Check if a token violates type constraints
-let checkTypeConstraints = (token: neuralToken, constraints: array<symbolicConstraint>): option<
-  violationType,
-> => {
-  let activeConstraints = Array.filter(constraints, c => c.active)
-
-  let violation = Array.find(activeConstraints, c => {
-    let expr = c.expression
-
-    // Check forbidden patterns: !contains("pattern")
-    if String.includes(expr, "!contains(") {
-      let pattern =
-        expr
-        ->String.replaceAll("!contains(\"", "")
-        ->String.replaceAll("\")", "")
-        ->String.trim
-
-      if String.includes(token.content, pattern) {
-        true
-      } else {
-        false
-      }
-    } // Check type declarations: type FooBar
-    else if String.startsWith(expr, "type ") {
-      let parts = String.split(expr, " ")
-      if Array.length(parts) >= 2 {
-        switch parts[1] {
-        | Some(typeName) => {
-            let reserved = ["undefined", "null", "NaN", "eval", "function"]
-            Array.includes(reserved, typeName)
-          }
-        | None => false
-        }
-      } else {
-        false
-      }
-    } else {
-      // Fallback: check for dangerous keywords
-
-      String.includes(token.content, "undefined") ||
-      String.includes(token.content, "null") ||
-      String.includes(token.content, "NaN")
-    }
-  })
-
-  switch violation {
-  | Some(c) => Some(TypeMismatch(c.expression, "inferred type"))
-  | None => None
-  }
-}
-
-/// Check for security violations
-let checkSecurityConstraints = (token: neuralToken): option<violationType> => {
-  // panic-attack:allow dynamic-code-detection-string — these are detection
-  // patterns for security scanning, not actual code execution. Each string
-  // is matched against user input to detect dangerous patterns.
-  let dangerousPatterns = ["eval(", "exec(", "rm -rf", "DROP TABLE", "DELETE FROM", "<script>"]
-
-  let found = Array.find(dangerousPatterns, pattern => String.includes(token.content, pattern))
-
-  switch found {
-  | Some(pattern) => Some(SecurityViolation(pattern))
-  | None => None
-  }
-}
-
-/// Check for logical contradictions
-let checkLogicConstraints = (token: neuralToken, constraints: array<symbolicConstraint>): option<
-  violationType,
-> => {
-  let activeConstraints = Array.filter(constraints, c => c.active)
-
-  // Check for obvious boolean contradictions
-  if (
-    String.includes(token.content, "true && false") ||
-    String.includes(token.content, "!true && true") ||
-    String.includes(token.content, "false || false && true")
-  ) {
-    Some(LogicContradiction("Boolean contradiction detected"))
-  } else {
-    // Check if token contradicts any constraint expression
-    let violation = Array.find(activeConstraints, c => {
-      let expr = c.expression
-
-      // Handle equality/inequality constraints
-      if String.includes(expr, "==") {
-        let negated = String.replaceAll(expr, "==", "!=")
-        String.includes(token.content, negated)
-      } else if String.includes(expr, "!=") {
-        let negated = String.replaceAll(expr, "!=", "==")
-        String.includes(token.content, negated)
-      } else if String.includes(expr, ">") || String.includes(expr, "<") {
-        // For boundary checks, look for obvious contradictions
-        // e.g., constraint says "x > 0" but token contains "x = -1"
-        false // Basic implementation - would need symbolic math
-      } else {
-        false
-      }
-    })
-
-    switch violation {
-    | Some(c) => Some(LogicContradiction(`Token contradicts constraint: ${c.expression}`))
-    | None => None
-    }
-  }
-}
-
-/// Main validation function - the Circuit Breaker
-let validate = (token: neuralToken, constraints: array<symbolicConstraint>): validationResult => {
-  // Check security first (highest priority)
-  switch checkSecurityConstraints(token) {
-  | Some(SecurityViolation(pattern)) =>
-    Invalid(`Security violation: dangerous pattern "${pattern}" detected`)
-  | Some(_) => Invalid("Security violation detected")
-  | None =>
-    // Check type constraints
-    switch checkTypeConstraints(token, constraints) {
-    | Some(TypeMismatch(expected, actual)) =>
-      Invalid(`Type mismatch: expected ${expected}, got ${actual}`)
-    | Some(_) => Invalid("Type constraint violation")
-    | None =>
-      // Check logic constraints
-      switch checkLogicConstraints(token, constraints) {
-      | Some(LogicContradiction(msg)) => Invalid(`Logic contradiction: ${msg}`)
-      | Some(_) => Invalid("Logic constraint violation")
-      | None =>
-        // Low confidence tokens require review
-        if token.confidence < 0.7 {
-          RequiresReview("Low confidence inference requires operator review")
-        } else {
-          Valid
-        }
-      }
-    }
-  }
-}
-
-/// Process a token through the Anti-Crash pipeline
-let processToken = (
-  token: neuralToken,
-  constraints: array<symbolicConstraint>,
-  state: antiCrashState,
-): (antiCrashState, option<neuralToken>) => {
-  if !state.enabled {
-    // Pass through if Anti-Crash is disabled
-    (state, Some({...token, validated: false}))
-  } else if state.halted {
-    // Block all tokens when halted
-    (state, None)
-  } else {
-    switch validate(token, constraints) {
-    | Valid => (state, Some({...token, validated: true}))
-    | Invalid(reason) => {
-        let violation = LogicContradiction(reason)
-        let newState = {
-          ...state,
-          violations: Array.concat(state.violations, [violation]),
-          halted: state.strictMode,
-        }
-        (newState, None)
-      }
-    | RequiresReview(_reason) => {
-        let newState = {
-          ...state,
-          pendingReview: Some(token),
-        }
-        // In strict mode, halt until reviewed
-        let finalState = state.strictMode ? {...newState, halted: true} : newState
-        (finalState, None)
-      }
-    }
-  }
-}
-
-/// Clear the halt state after operator intervention
-let clearHalt = (state: antiCrashState): antiCrashState => {
-  {...state, halted: false, pendingReview: None}
-}
-
-/// Approve a pending review
-let approveReview = (state: antiCrashState): (antiCrashState, option<neuralToken>) => {
-  switch state.pendingReview {
-  | Some(token) => (
-      {...state, pendingReview: None, halted: false},
-      Some({...token, validated: true}),
-    )
-  | None => (state, None)
-  }
-}
-
-/// Reject a pending review
-let rejectReview = (state: antiCrashState): antiCrashState => {
-  {...state, pendingReview: None, halted: false}
-}
diff --git a/src/core/ArchitectModeEngine.affine b/src/core/ArchitectModeEngine.affine
new file mode 100644
index 00000000..068b66f2
--- /dev/null
+++ b/src/core/ArchitectModeEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ArchitectModeEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/ArchitectModeEngine.res b/src/core/ArchitectModeEngine.res
deleted file mode 100644
index d4621175..00000000
--- a/src/core/ArchitectModeEngine.res
+++ /dev/null
@@ -1,66 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Architect Mode Engine — pure computation and helpers for the
-/// fine-grained PixiJS level editor panel.
-///
-/// Provides default state, tab labels, and utility functions for counting
-/// selected entities, grouping by kind, generating tool labels, and
-/// checking undo/redo availability.
-
-open ArchitectModeModel
-
-/// Default state for the Architect Mode panel.
-let defaultState: architectModeState = {
-  activeTab: Canvas,
-  entities: [],
-  zones: [],
-  selectedTool: SelectTool,
-  selectedEntityId: None,
-  undoStack: [],
-  redoStack: [],
-  aiSuggestions: [],
-  gridVisible: true,
-  snapToGrid: true,
-  gridSize: 32,
-  zoom: 1.0,
-  panX: 0.0,
-  panY: 0.0,
-  error: None,
-}
-
-/// Human-readable label for an architect mode category tab.
-let tabLabel = (cat: architectModeCategory): string =>
-  switch cat {
-  | Canvas => "Canvas"
-  | Properties => "Properties"
-  | AiSuggestions => "AI Suggestions"
-  | Validation => "Validation"
-  }
-
-/// All category tabs in display order.
-let allTabs: array<architectModeCategory> = [Canvas, Properties, AiSuggestions, Validation]
-
-/// Count how many entities are currently selected.
-let countSelectedEntities = (entities: array<placedEntity>): int =>
-  entities->Array.filter(e => e.selected)->Array.length
-
-/// Count entities matching a given kind string.
-let countEntitiesByKind = (entities: array<placedEntity>, kind: string): int =>
-  entities->Array.filter(e => e.kind === kind)->Array.length
-
-/// Human-readable label for an editor tool.
-let toolLabel = (tool: architectEditorTool): string =>
-  switch tool {
-  | SelectTool => "Select"
-  | PlaceTool(kind) => `Place ${kind}`
-  | EraseTool => "Erase"
-  | WireTool => "Wire"
-  | ZoneTool => "Zone"
-  | PanTool => "Pan"
-  }
-
-/// Whether the undo stack has actions available.
-let canUndo = (state: architectModeState): bool => state.undoStack->Array.length > 0
-
-/// Whether the redo stack has actions available.
-let canRedo = (state: architectModeState): bool => state.redoStack->Array.length > 0
diff --git a/src/core/AssetManagerEngine.affine b/src/core/AssetManagerEngine.affine
new file mode 100644
index 00000000..32229a9a
--- /dev/null
+++ b/src/core/AssetManagerEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AssetManagerEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/AssetManagerEngine.res b/src/core/AssetManagerEngine.res
deleted file mode 100644
index 7701bda3..00000000
--- a/src/core/AssetManagerEngine.res
+++ /dev/null
@@ -1,78 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Asset Manager Engine — pure computation and helpers for managing
-/// PixiJS sprites, sounds, level templates, and other game assets.
-///
-/// Provides default state, tab labels, and utility functions for counting
-/// assets by kind, computing total size, formatting file sizes, and
-/// filtering assets by text and kind.
-
-open AssetManagerModel
-
-/// Default state for the Asset Manager panel.
-let defaultState: assetManagerState = {
-  activeTab: Browse,
-  assets: [],
-  collections: [],
-  filter: "",
-  kindFilter: None,
-  selectedAsset: None,
-  importing: false,
-  error: None,
-}
-
-/// Human-readable label for an asset manager category tab.
-let tabLabel = (cat: assetManagerCategory): string =>
-  switch cat {
-  | Browse => "Browse"
-  | Import => "Import"
-  | Collections => "Collections"
-  | Usage => "Usage"
-  }
-
-/// All category tabs in display order.
-let allTabs: array<assetManagerCategory> = [Browse, Import, Collections, Usage]
-
-/// Count assets matching a given kind.
-let countByKind = (assets: array<gameAsset>, kind: assetKind): int =>
-  assets->Array.filter(a => a.kind === kind)->Array.length
-
-/// Compute total size in bytes across all assets.
-let totalSizeBytes = (assets: array<gameAsset>): int =>
-  assets->Array.reduce(0, (acc, a) => acc + a.sizeBytes)
-
-/// Format a byte count as a human-readable file size string.
-/// Produces "B", "KB", "MB", or "GB" suffixes as appropriate.
-let formatFileSize = (bytes: int): string => {
-  let b = Int.toFloat(bytes)
-  if b < 1024.0 {
-    `${Int.toString(bytes)} B`
-  } else if b < 1048576.0 {
-    let kb = b /. 1024.0
-    `${Float.toFixed(kb, ~digits=1)} KB`
-  } else if b < 1073741824.0 {
-    let mb = b /. 1048576.0
-    `${Float.toFixed(mb, ~digits=1)} MB`
-  } else {
-    let gb = b /. 1073741824.0
-    `${Float.toFixed(gb, ~digits=2)} GB`
-  }
-}
-
-/// Filter assets by text query and optional kind filter.
-/// Text search matches against asset name (case-insensitive).
-let filterAssets = (
-  assets: array<gameAsset>,
-  textFilter: string,
-  kindFilter: option<assetKind>,
-): array<gameAsset> => {
-  let lower = textFilter->String.toLowerCase
-  assets->Array.filter(a => {
-    let matchesText = lower === "" || a.name->String.toLowerCase->String.includes(lower)
-    let matchesKind = switch kindFilter {
-    | None => true
-    | Some(k) => a.kind === k
-    }
-    matchesText && matchesKind
-  })
-}
diff --git a/src/core/AttributionLicenseEngine.affine b/src/core/AttributionLicenseEngine.affine
new file mode 100644
index 00000000..7fd1262b
--- /dev/null
+++ b/src/core/AttributionLicenseEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AttributionLicenseEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/AttributionLicenseEngine.res b/src/core/AttributionLicenseEngine.res
deleted file mode 100644
index 8fbff8cd..00000000
--- a/src/core/AttributionLicenseEngine.res
+++ /dev/null
@@ -1,240 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Code MRI — Attribution-to-Licensing Engine (Layer 4)
-///
-/// Pure computation for linking code provenance to licensing obligations.
-/// Combines git blame trust levels (Layer 1) with SPDX header scanning
-/// to detect licensing inconsistencies.
-///
-/// All functions are pure — no side effects, no Gossamer invocations.
-/// File system scanning and git operations happen in the command layer.
-
-open AttributionLicenseModel
-
-// ===========================================================================
-// SPDX Parsing
-// ===========================================================================
-
-/// Extract SPDX-License-Identifier from a file's first 10 lines.
-/// Returns Present(id) if found, Missing if not, Malformed if unparseable.
-let parseSpdxHeader = (lines: array<string>): spdxStatus => {
-  let header = ref(Missing)
-  let _ = lines->Array.forEach(line => {
-    if header.contents === Missing {
-      let trimmed = String.trim(line)
-      if String.includes(trimmed, "SPDX-License-Identifier:") {
-        let parts = String.split(trimmed, "SPDX-License-Identifier:")
-        switch parts->Array.get(1) {
-        | Some(id) =>
-          let cleaned = String.trim(id)
-          if String.length(cleaned) > 0 {
-            header := Present(cleaned)
-          } else {
-            header := Malformed("Empty SPDX identifier")
-          }
-        | None => header := Malformed("Malformed SPDX line")
-        }
-      }
-    }
-  })
-  header.contents
-}
-
-/// Map SPDX identifier to license family.
-let spdxToFamily = (spdx: string): licenseFamiliy => {
-  let normalised = String.trim(spdx)
-  if String.includes(normalised, "PMPL") {
-    PMPL
-  } else if normalised === "MPL-2.0" {
-    MPL2
-  } else if normalised === "MIT" {
-    MIT
-  } else if normalised === "Apache-2.0" {
-    Apache2
-  } else if normalised === "BSD-2-Clause" {
-    BSD2
-  } else if normalised === "BSD-3-Clause" {
-    BSD3
-  } else if normalised === "GPL-2.0-only" || normalised === "GPL-2.0-or-later" {
-    GPL2
-  } else if normalised === "GPL-3.0-only" || normalised === "GPL-3.0-or-later" {
-    GPL3
-  } else if normalised === "AGPL-3.0-only" || normalised === "AGPL-3.0-or-later" {
-    AGPL3
-  } else if normalised === "LGPL-2.1-only" || normalised === "LGPL-2.1-or-later" {
-    LGPL21
-  } else if normalised === "ISC" {
-    ISC
-  } else if normalised === "Unlicense" {
-    Unlicense
-  } else if normalised === "CC0-1.0" {
-    CC0
-  } else {
-    CustomLicense(normalised)
-  }
-}
-
-// ===========================================================================
-// Attribution Clarity
-// ===========================================================================
-
-/// Derive attribution clarity from provenance data.
-let deriveAttributionClarity = (
-  trustLevel: ProvenanceModel.trustLevel,
-  hasOriginalLicense: bool,
-): attributionClarity =>
-  switch trustLevel {
-  | Verified => ClearHuman
-  | HumanReviewed => if hasOriginalLicense { ThirdPartyPreserved } else { ClearHuman }
-  | AiAssisted => CoAuthoredReviewed
-  | UnreviewedAi => CoAuthoredUnreviewed
-  | Unknown => if hasOriginalLicense { ThirdPartyUnclear } else { Unknown
-  }
-  }
-
-// ===========================================================================
-// Issue Detection
-// ===========================================================================
-
-/// Check a single file for licensing issues.
-let checkFile = (
-  path: string,
-  spdx: spdxStatus,
-  attribution: attributionClarity,
-  projectLicense: licenseFamiliy,
-): array<licenseIssue> => {
-  let issues = ref([])
-  let nextId = ref(0)
-  let addIssue = (kind, severity, desc, suggestion) => {
-    nextId := nextId.contents + 1
-    issues :=
-      Array.concat(
-        issues.contents,
-        [
-          {
-            id: path ++ "-" ++ Int.toString(nextId.contents),
-            file: path,
-            lineRange: None,
-            kind,
-            severity,
-            description: desc,
-            suggestion,
-            resolved: false,
-          },
-        ],
-      )
-  }
-
-  // Check SPDX header.
-  switch spdx {
-  | Missing =>
-    addIssue(
-      MissingSpdxHeader,
-      LicenseWarning,
-      "File has no SPDX-License-Identifier header",
-      "Add '// SPDX-License-Identifier: MPL-2.0' to the first line",
-    )
-  | Malformed(reason) =>
-    addIssue(
-      MissingSpdxHeader,
-      LicenseWarning,
-      "Malformed SPDX header: " ++ reason,
-      "Fix the SPDX-License-Identifier line to contain a valid SPDX expression",
-    )
-  | Present(id) => {
-      let fileFamily = spdxToFamily(id)
-      // Check for deprecated licenses.
-      switch fileFamily {
-      | AGPL3 =>
-        addIssue(
-          DeprecatedLicense("AGPL-3.0"),
-          LicenseCritical,
-          "File uses AGPL-3.0 which has been replaced by PMPL-1.0-or-later",
-          "Update SPDX header to PMPL-1.0-or-later",
-        )
-      | _ => ()
-      }
-      // Check SPDX matches project license (allow MPL-2.0 as fallback).
-      let _ = switch (projectLicense, fileFamily) {
-      | (PMPL, PMPL) | (PMPL, MPL2) | (MPL2, MPL2) => ()
-      | (expected, actual) =>
-        if expected !== actual {
-          addIssue(
-            SpdxMismatch,
-            LicenseInfo,
-            "File license differs from project license",
-            "Verify this is intentional (third-party code or platform requirement)",
-          )
-        }
-      }
-    }
-  | NotApplicable => ()
-  }
-
-  // Check AI attribution clarity.
-  switch attribution {
-  | CoAuthoredUnreviewed =>
-    addIssue(
-      AiAttributionGap,
-      LicenseWarning,
-      "AI co-authored code has not been reviewed by a human",
-      "Review and commit a follow-up to establish clear attribution",
-    )
-  | AiOnlyUnresolved =>
-    addIssue(
-      AiAttributionGap,
-      LicenseCritical,
-      "AI-only authored code with unresolved licensing",
-      "Human must review, modify, and commit to establish copyright",
-    )
-  | ThirdPartyUnclear =>
-    addIssue(
-      ThirdPartyLicenseMissing,
-      LicenseCritical,
-      "Third-party code without clear license preservation",
-      "Add original license header and SPDX identifier",
-    )
-  | _ => ()
-  }
-
-  issues.contents
-}
-
-/// Compute codebase-wide licensing health from file summaries.
-let computeHealth = (summaries: array<fileLicenseSummary>): licensingHealth => {
-  let total = Array.length(summaries)
-  let withSpdx =
-    summaries->Array.filter(s =>
-      switch s.spdxStatus {
-      | Present(_) => true
-      | _ => false
-      }
-    )->Array.length
-  let clearAttribution =
-    summaries->Array.filter(s =>
-      switch s.attribution {
-      | ClearHuman | CoAuthoredReviewed | ThirdPartyPreserved => true
-      | _ => false
-      }
-    )->Array.length
-  let allIssues = summaries->Array.flatMap(s => s.issues)
-  let totalIssues = Array.length(allIssues)
-  let criticalCount =
-    allIssues->Array.filter(i => i.severity === LicenseCritical)->Array.length
-  let healthScore = if total == 0 {
-    100.0
-  } else {
-    let spdxRatio = Int.toFloat(withSpdx) /. Int.toFloat(total) *. 40.0
-    let attrRatio = Int.toFloat(clearAttribution) /. Int.toFloat(total) *. 40.0
-    let issuePenalty = Float.fromInt(Math.Int.min(totalIssues, 20)) *. 1.0
-    Math.max(0.0, spdxRatio +. attrRatio +. 20.0 -. issuePenalty)
-  }
-  {
-    totalFiles: total,
-    filesWithSpdx: withSpdx,
-    filesClearAttribution: clearAttribution,
-    totalIssues,
-    criticalIssues: criticalCount,
-    healthScore,
-  }
-}
diff --git a/src/core/AutomationBridgeEngine.affine b/src/core/AutomationBridgeEngine.affine
new file mode 100644
index 00000000..4d15dcf1
--- /dev/null
+++ b/src/core/AutomationBridgeEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AutomationBridgeEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/AutomationBridgeEngine.res b/src/core/AutomationBridgeEngine.res
deleted file mode 100644
index b3245065..00000000
--- a/src/core/AutomationBridgeEngine.res
+++ /dev/null
@@ -1,87 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Automation Bridge Engine — pure computation and helpers for the
-/// Automation Bridge panel. Provides default state, tab metadata, pipeline
-/// status counting, trigger aggregation, and history formatting.
-
-open AutomationBridgeModel
-
-/// Default state for the Automation Bridge panel.
-/// Starts on the Pipelines tab with empty pipeline, trigger, and history lists.
-let defaultState: automationBridgeState = {
-  activeTab: Pipelines,
-  pipelines: [],
-  triggers: [],
-  buildHistory: [],
-  running: false,
-  error: None,
-}
-
-/// Human-readable label for each tab in the Automation Bridge panel.
-let tabLabel = (tab: automationBridgeTab): string =>
-  switch tab {
-  | Pipelines => "Pipelines"
-  | Triggers => "Triggers"
-  | Status => "Status"
-  | History => "History"
-  }
-
-/// All tabs in display order.
-let allTabs: array<automationBridgeTab> = [Pipelines, Triggers, Status, History]
-
-/// Count pipelines that are currently active (queued or running).
-let countActivePipelines = (pipelines: array<pipeline>): int =>
-  pipelines
-  ->Array.filter(p =>
-    switch p.status {
-    | PipelineQueued | PipelineRunning => true
-    | _ => false
-    }
-  )
-  ->Array.length
-
-/// Count pipelines matching a given status.
-let countPipelinesByStatus = (pipelines: array<pipeline>, status: automationPipelineStatus): int =>
-  pipelines->Array.filter(p => p.status === status)->Array.length
-
-/// Count triggers that are currently pending (enabled and awaiting activation).
-let countPendingTriggers = (triggers: array<trigger>): int =>
-  triggers->Array.filter(t => t.enabled)->Array.length
-
-/// Count triggers that are disabled.
-let countDisabledTriggers = (triggers: array<trigger>): int =>
-  triggers->Array.filter(t => !t.enabled)->Array.length
-
-/// Human-readable label for a pipeline status.
-let pipelineStatusLabel = (status: automationPipelineStatus): string =>
-  switch status {
-  | PipelineIdle => "Idle"
-  | PipelineQueued => "Queued"
-  | PipelineRunning => "Running"
-  | PipelineSucceeded => "Succeeded"
-  | PipelineFailed => "Failed"
-  | PipelineCancelled => "Cancelled"
-  }
-
-/// Human-readable label for a trigger event type.
-let triggerEventLabel = (event: automationTriggerEvent): string =>
-  switch event {
-  | TriggerPush => "Push"
-  | TriggerPullRequest => "Pull Request"
-  | TriggerTag => "Tag"
-  | TriggerSchedule => "Schedule"
-  | TriggerManual => "Manual"
-  | TriggerFileChange => "File Change"
-  }
-
-/// Compute the success rate of historical builds as a percentage (0.0 to 100.0).
-/// Returns 100.0 when there is no build history.
-let buildSuccessRate = (history: array<automationBuildEntry>): float => {
-  let total = Array.length(history)
-  if total === 0 {
-    100.0
-  } else {
-    let succeeded = history->Array.filter(h => h.status === PipelineSucceeded)->Array.length
-    Int.toFloat(succeeded) /. Int.toFloat(total) *. 100.0
-  }
-}
diff --git a/src/core/AutomationRouterEngine.affine b/src/core/AutomationRouterEngine.affine
new file mode 100644
index 00000000..b95cf26f
--- /dev/null
+++ b/src/core/AutomationRouterEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AutomationRouterEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/AutomationRouterEngine.res b/src/core/AutomationRouterEngine.res
deleted file mode 100644
index 191f38d4..00000000
--- a/src/core/AutomationRouterEngine.res
+++ /dev/null
@@ -1,146 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Automation Router Engine — pure helpers for workflow orchestration.
-
-open AutomationRouterModel
-
-/// Category tab labels.
-let categoryLabel = (cat: automationRouterCategory): string =>
-  switch cat {
-  | RouterDashboard => "Dashboard"
-  | RouterRules => "Rules"
-  | RouterPending => "Pending"
-  | RouterHistory => "History"
-  | RouterSettings => "Settings"
-  }
-
-/// Trigger event label.
-let triggerLabel = (trigger: triggerEvent): string =>
-  switch trigger {
-  | FileChanged(pattern) => `File: ${pattern}`
-  | PanelMessage(panel, msg) => `${panel}.${msg}`
-  | Timer(seconds) => `Every ${Int.toString(seconds)}s`
-  | Manual => "Manual"
-  | PanelStateChange(panel, field) => `${panel}.${field} changed`
-  }
-
-/// Trigger event kind label (short).
-let triggerKindLabel = (trigger: triggerEvent): string =>
-  switch trigger {
-  | FileChanged(_) => "File"
-  | PanelMessage(_, _) => "Message"
-  | Timer(_) => "Timer"
-  | Manual => "Manual"
-  | PanelStateChange(_, _) => "State"
-  }
-
-/// Trigger kind colour class.
-let triggerColour = (trigger: triggerEvent): string =>
-  switch trigger {
-  | FileChanged(_) => "text-cyan-400"
-  | PanelMessage(_, _) => "text-purple-400"
-  | Timer(_) => "text-amber-400"
-  | Manual => "text-gray-400"
-  | PanelStateChange(_, _) => "text-emerald-400"
-  }
-
-/// Approval mode label.
-let approvalLabel = (mode: approvalMode): string =>
-  switch mode {
-  | AutoFire => "Auto"
-  | RequireApproval => "Approval Required"
-  | ApproveOnce => "Approve Once"
-  | DryRunFirst => "Dry Run"
-  }
-
-/// Approval mode colour.
-let approvalColour = (mode: approvalMode): string =>
-  switch mode {
-  | AutoFire => "text-emerald-400"
-  | RequireApproval => "text-amber-400"
-  | ApproveOnce => "text-cyan-400"
-  | DryRunFirst => "text-purple-400"
-  }
-
-/// Count enabled rules.
-let enabledCount = (rules: array<automationRule>): int =>
-  rules->Array.filter(r => r.enabled)->Array.length
-
-/// Count pending actions.
-let pendingCount = (actions: array<pendingAction>): int => Array.length(actions)
-
-/// Filter rules by text and enabled state.
-let filterRules = (rules: array<automationRule>, text: string, showDisabled: bool): array<
-  automationRule,
-> => {
-  let lower = String.toLowerCase(text)
-  rules->Array.filter(r => {
-    let matchesText =
-      text === "" ||
-      String.toLowerCase(r.name)->String.includes(lower) ||
-      String.toLowerCase(r.description)->String.includes(lower)
-    let matchesEnabled = showDisabled || r.enabled
-    matchesText && matchesEnabled
-  })
-}
-
-/// Success rate from execution log.
-let successRate = (log: array<executionLogEntry>): float => {
-  let total = Array.length(log)
-  if total === 0 {
-    100.0
-  } else {
-    let successes = log->Array.filter(e => e.success)->Array.length
-    Float.fromInt(successes) /. Float.fromInt(total) *. 100.0
-  }
-}
-
-/// Format a timestamp as a relative time string.
-let formatRelativeTime = (timestamp: float): string => {
-  let now = Date.now()
-  let diffMs = now -. timestamp
-  let diffSecs = diffMs /. 1000.0
-  if diffSecs < 60.0 {
-    "just now"
-  } else if diffSecs < 3600.0 {
-    let mins = Float.toInt(diffSecs /. 60.0)
-    `${Int.toString(mins)}m ago`
-  } else if diffSecs < 86400.0 {
-    let hours = Float.toInt(diffSecs /. 3600.0)
-    `${Int.toString(hours)}h ago`
-  } else {
-    let days = Float.toInt(diffSecs /. 86400.0)
-    `${Int.toString(days)}d ago`
-  }
-}
-
-/// Format success rate as a percentage string.
-let formatSuccessRate = (rate: float): string => {
-  let rounded = Float.toInt(rate)
-  `${Int.toString(rounded)}%`
-}
-
-/// Priority label.
-let priorityLabel = (priority: string): string =>
-  switch priority {
-  | "before" => "Before"
-  | "after" => "After"
-  | "parallel" => "Parallel"
-  | _ => priority
-  }
-
-/// Default state.
-let defaultState: automationRouterState = {
-  activeCategory: RouterDashboard,
-  rules: [],
-  pendingActions: [],
-  executionLog: [],
-  globalEnabled: true,
-  filterText: "",
-  showDisabled: true,
-  editingRuleId: None,
-  configSource: "local",
-  loading: false,
-  error: None,
-  bojRouting: false,
-}
diff --git a/src/core/BalanceAnalyserEngine.affine b/src/core/BalanceAnalyserEngine.affine
new file mode 100644
index 00000000..037ef5ce
--- /dev/null
+++ b/src/core/BalanceAnalyserEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module BalanceAnalyserEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/BalanceAnalyserEngine.res b/src/core/BalanceAnalyserEngine.res
deleted file mode 100644
index 23449bc3..00000000
--- a/src/core/BalanceAnalyserEngine.res
+++ /dev/null
@@ -1,118 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Balance Analyser Engine — pure computation and helpers for the
-/// Balance Analyser panel. Provides default state, statistical analysis,
-/// outlier detection, simulation averaging, and difficulty curve extraction.
-
-open BalanceAnalyserModel
-
-/// Default state for the Balance Analyser panel.
-/// Starts on the Overview tab with 1000 simulation runs per level.
-let defaultState: balanceAnalyserState = {
-  activeTab: TabOverview,
-  levelStats: [],
-  distributions: [],
-  namedDistributions: [],
-  simulations: [],
-  recommendations: [],
-  simulationRuns: 1000,
-  running: false,
-  selectedLevel: None,
-  error: None,
-}
-
-/// Human-readable label for each tab in the Balance Analyser panel.
-let tabLabel = (tab: balanceTab): string =>
-  switch tab {
-  | TabOverview => "Overview"
-  | TabDistributions => "Distributions"
-  | TabSimulations => "Simulations"
-  | TabRecommendations => "Recommendations"
-  | TabDifficultyCurve => "Difficulty Curve"
-  }
-
-/// All tabs in display order.
-let allTabs: array<balanceTab> = [
-  TabOverview,
-  TabDistributions,
-  TabSimulations,
-  TabRecommendations,
-  TabDifficultyCurve,
-]
-
-/// Average difficulty score across all levels.
-let avgDifficulty = (stats: array<levelBalanceStats>): float => {
-  let count = stats->Array.length
-  if count == 0 {
-    0.0
-  } else {
-    let sum = stats->Array.reduce(0.0, (acc, s) => acc +. s.difficultyScore)
-    sum /. Float.fromInt(count)
-  }
-}
-
-/// Find outlier levels (outlierScore > threshold).
-let findOutliers = (stats: array<levelBalanceStats>, threshold: float): array<levelBalanceStats> =>
-  stats->Array.filter(s => s.outlierScore > threshold)
-
-/// Average win rate from simulations.
-let avgWinRate = (sims: array<simulationResult>): float => {
-  let count = sims->Array.length
-  if count == 0 {
-    0.0
-  } else {
-    let sum = sims->Array.reduce(0.0, (acc, s) => acc +. s.winRate)
-    sum /. Float.fromInt(count)
-  }
-}
-
-/// Average completion time from simulations.
-let avgCompletionTime = (sims: array<simulationResult>): float => {
-  let count = sims->Array.length
-  if count == 0 {
-    0.0
-  } else {
-    let sum = sims->Array.reduce(0.0, (acc, s) => acc +. s.avgCompletionTime)
-    sum /. Float.fromInt(count)
-  }
-}
-
-/// Count recommendations by impact level.
-let highImpactCount = (recs: array<balanceRecommendation>): int =>
-  recs->Array.filter(r => r.impact == "high")->Array.length
-
-/// Count medium impact recommendations.
-let mediumImpactCount = (recs: array<balanceRecommendation>): int =>
-  recs->Array.filter(r => r.impact == "medium")->Array.length
-
-/// Difficulty curve data (sorted by level order).
-/// Returns an array of (levelName, difficultyScore) pairs.
-let difficultyCurve = (stats: array<levelBalanceStats>): array<(string, float)> =>
-  stats->Array.map(s => (s.levelName, s.difficultyScore))
-
-/// Win rate curve data (sorted by level order).
-/// Returns an array of (levelName, winRate) pairs.
-let winRateCurve = (stats: array<levelBalanceStats>): array<(string, float)> =>
-  stats->Array.map(s => (s.levelName, s.estimatedWinRate))
-
-/// Identify levels with extreme difficulty (score > 0.9 or < 0.1).
-let extremeLevels = (stats: array<levelBalanceStats>): array<levelBalanceStats> =>
-  stats->Array.filter(s => s.difficultyScore > 0.9 || s.difficultyScore < 0.1)
-
-/// Total simulation deaths broken down by cause for a single result.
-let totalDeaths = (sim: simulationResult): int =>
-  sim.deathsByGuard + sim.deathsByTrap + sim.deathsByTimeout
-
-/// Death cause percentages for a simulation result.
-let deathBreakdown = (sim: simulationResult): (float, float, float) => {
-  let total = Float.fromInt(totalDeaths(sim))
-  if total == 0.0 {
-    (0.0, 0.0, 0.0)
-  } else {
-    (
-      Float.fromInt(sim.deathsByGuard) /. total *. 100.0,
-      Float.fromInt(sim.deathsByTrap) /. total *. 100.0,
-      Float.fromInt(sim.deathsByTimeout) /. total *. 100.0,
-    )
-  }
-}
diff --git a/src/core/BetaFeedbackHubEngine.affine b/src/core/BetaFeedbackHubEngine.affine
new file mode 100644
index 00000000..98e55fc2
--- /dev/null
+++ b/src/core/BetaFeedbackHubEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module BetaFeedbackHubEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/BetaFeedbackHubEngine.res b/src/core/BetaFeedbackHubEngine.res
deleted file mode 100644
index d1190542..00000000
--- a/src/core/BetaFeedbackHubEngine.res
+++ /dev/null
@@ -1,180 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Beta Feedback Hub Engine — pure computation and helpers for the
-/// Beta Feedback Hub panel. Provides default state, label formatting,
-/// filtering, counting, sentiment analysis, and analytics computation.
-
-open BetaFeedbackHubModel
-
-/// Default state for the Beta Feedback Hub panel.
-/// Starts on the Inbox tab with no filters and upvote sorting disabled.
-let defaultState: betaFeedbackHubState = {
-  activeTab: TabInbox,
-  entries: [],
-  selectedEntry: None,
-  filter: "",
-  categoryFilter: None,
-  sortByUpvotes: false,
-  submitting: false,
-  analytics: None,
-  error: None,
-}
-
-/// Human-readable label for each tab in the Beta Feedback Hub panel.
-let tabLabel = (tab: betaFeedbackTab): string =>
-  switch tab {
-  | TabInbox => "Inbox"
-  | TabTriaged => "Triaged"
-  | TabSentiment => "Sentiment"
-  | TabSubmit => "Submit"
-  | TabAnalytics => "Analytics"
-  }
-
-/// All tabs in display order.
-let allTabs: array<betaFeedbackTab> = [TabInbox, TabTriaged, TabSentiment, TabSubmit, TabAnalytics]
-
-/// Human-readable label for a feedback category.
-let categoryLabel = (cat: feedbackCategory): string =>
-  switch cat {
-  | FeedbackBug => "Bug"
-  | FeedbackFeature => "Feature Request"
-  | FeedbackBalance => "Balance"
-  | FeedbackUx => "UX"
-  | FeedbackPerformance => "Performance"
-  | FeedbackOther => "Other"
-  }
-
-/// CSS colour class for a feedback category.
-let categoryColor = (cat: feedbackCategory): string =>
-  switch cat {
-  | FeedbackBug => "text-red-400"
-  | FeedbackFeature => "text-blue-400"
-  | FeedbackBalance => "text-yellow-400"
-  | FeedbackUx => "text-purple-400"
-  | FeedbackPerformance => "text-orange-400"
-  | FeedbackOther => "text-gray-400"
-  }
-
-/// Human-readable label for a feedback priority.
-let priorityLabel = (p: feedbackPriority): string =>
-  switch p {
-  | FeedbackCritical => "Critical"
-  | FeedbackHigh => "High"
-  | FeedbackMedium => "Medium"
-  | FeedbackLow => "Low"
-  }
-
-/// CSS colour class for a feedback priority.
-let priorityColor = (p: feedbackPriority): string =>
-  switch p {
-  | FeedbackCritical => "text-red-400"
-  | FeedbackHigh => "text-orange-400"
-  | FeedbackMedium => "text-yellow-400"
-  | FeedbackLow => "text-green-400"
-  }
-
-/// Human-readable label for a feedback sentiment.
-let sentimentLabel = (s: feedbackSentiment): string =>
-  switch s {
-  | SentimentPositive => "Positive"
-  | SentimentNeutral => "Neutral"
-  | SentimentNegative => "Negative"
-  | SentimentUnknown => "Unknown"
-  }
-
-/// CSS colour class for a feedback sentiment.
-let sentimentColor = (s: feedbackSentiment): string =>
-  switch s {
-  | SentimentPositive => "text-green-400"
-  | SentimentNeutral => "text-gray-400"
-  | SentimentNegative => "text-red-400"
-  | SentimentUnknown => "text-gray-500"
-  }
-
-/// Human-readable label for a feedback status.
-let statusLabel = (s: feedbackStatus): string =>
-  switch s {
-  | FeedbackNew => "New"
-  | FeedbackTriaged => "Triaged"
-  | FeedbackInProgress => "In Progress"
-  | FeedbackResolved => "Resolved"
-  | FeedbackWontFix => "Won't Fix"
-  }
-
-/// Count entries by category.
-let countByCategory = (entries: array<feedbackEntry>, cat: feedbackCategory): int =>
-  entries->Array.filter(e => e.category == cat)->Array.length
-
-/// Count entries by sentiment.
-let countBySentiment = (entries: array<feedbackEntry>, s: feedbackSentiment): int =>
-  entries->Array.filter(e => e.sentiment == s)->Array.length
-
-/// Count entries by status.
-let countByStatus = (entries: array<feedbackEntry>, s: feedbackStatus): int =>
-  entries->Array.filter(e => e.status == s)->Array.length
-
-/// Filter entries by text search and optional category filter.
-let filterEntries = (
-  entries: array<feedbackEntry>,
-  filter: string,
-  catFilter: option<feedbackCategory>,
-): array<feedbackEntry> => {
-  let filtered = if filter == "" {
-    entries
-  } else {
-    let q = filter->String.toLowerCase
-    entries->Array.filter(e =>
-      e.title->String.toLowerCase->String.includes(q) ||
-        e.body->String.toLowerCase->String.includes(q)
-    )
-  }
-  switch catFilter {
-  | None => filtered
-  | Some(cat) => filtered->Array.filter(e => e.category == cat)
-  }
-}
-
-/// Net votes score (upvotes - downvotes).
-let netVotes = (entry: feedbackEntry): int => entry.upvotes - entry.downvotes
-
-/// Sort entries by net votes (descending).
-let sortByVotes = (entries: array<feedbackEntry>): array<feedbackEntry> =>
-  entries->Array.toSorted((a, b) => Int.compare(netVotes(b), netVotes(a)))
-
-/// Compute analytics from all entries.
-let computeAnalytics = (entries: array<feedbackEntry>): feedbackAnalytics => {
-  let total = Array.length(entries)
-  let resolved = countByStatus(entries, FeedbackResolved)
-  let wontFix = countByStatus(entries, FeedbackWontFix)
-  {
-    totalEntries: total,
-    byCategoryCount: [
-      (FeedbackBug, countByCategory(entries, FeedbackBug)),
-      (FeedbackFeature, countByCategory(entries, FeedbackFeature)),
-      (FeedbackBalance, countByCategory(entries, FeedbackBalance)),
-      (FeedbackUx, countByCategory(entries, FeedbackUx)),
-      (FeedbackPerformance, countByCategory(entries, FeedbackPerformance)),
-      (FeedbackOther, countByCategory(entries, FeedbackOther)),
-    ],
-    bySentimentCount: [
-      (SentimentPositive, countBySentiment(entries, SentimentPositive)),
-      (SentimentNeutral, countBySentiment(entries, SentimentNeutral)),
-      (SentimentNegative, countBySentiment(entries, SentimentNegative)),
-      (SentimentUnknown, countBySentiment(entries, SentimentUnknown)),
-    ],
-    avgSentimentScore: {
-      let pos = Float.fromInt(countBySentiment(entries, SentimentPositive))
-      let neg = Float.fromInt(countBySentiment(entries, SentimentNegative))
-      if total == 0 {
-        0.0
-      } else {
-        (pos -. neg) /. Float.fromInt(total)
-      }
-    },
-    triageCompletionRate: if total == 0 {
-      0.0
-    } else {
-      Float.fromInt(resolved + wontFix) /. Float.fromInt(total)
-    },
-  }
-}
diff --git a/src/core/BojEngine.affine b/src/core/BojEngine.affine
new file mode 100644
index 00000000..e8b0181f
--- /dev/null
+++ b/src/core/BojEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module BojEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/BojEngine.res b/src/core/BojEngine.res
deleted file mode 100644
index d3d16764..00000000
--- a/src/core/BojEngine.res
+++ /dev/null
@@ -1,380 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL BoJ Engine — pure helpers for the Bundle of Joy cartridge server panel.
-///
-/// All functions are pure (no side effects). State transformations, display
-/// helpers, filtering, and default values live here.
-
-open BojModel
-
-/// Label for a category tab.
-let categoryLabel = (cat: bojCategory): string => {
-  switch cat {
-  | Dashboard => "Dashboard"
-  | Cartridges => "Cartridges"
-  | Topology => "Topology"
-  | Federation => "Federation"
-  | Invoke => "Invoke"
-  }
-}
-
-/// Display string for a cartridge grade.
-let gradeLabel = (grade: cartridgeGrade): string => {
-  switch grade {
-  | GradeD => "D (Alpha)"
-  | GradeC => "C (Beta)"
-  | GradeB => "B (RC)"
-  | GradeA => "A (Production)"
-  }
-}
-
-/// Colour class for a cartridge grade badge.
-let gradeColour = (grade: cartridgeGrade): string => {
-  switch grade {
-  | GradeD => "bg-yellow-900/50 text-yellow-300 border-yellow-700"
-  | GradeC => "bg-blue-900/50 text-blue-300 border-blue-700"
-  | GradeB => "bg-emerald-900/50 text-emerald-300 border-emerald-700"
-  | GradeA => "bg-green-900/50 text-green-300 border-green-700"
-  }
-}
-
-/// Display string for a protocol column.
-let protocolLabel = (proto: protocolColumn): string => {
-  switch proto {
-  | ProtoMCP => "MCP"
-  | ProtoLSP => "LSP"
-  | ProtoDAP => "DAP"
-  | ProtoBSP => "BSP"
-  | ProtoNeSy => "NeSy"
-  | ProtoAgentic => "Agentic"
-  | ProtoFleet => "Fleet"
-  | ProtoGRPC => "gRPC"
-  | ProtoREST => "REST"
-  | ProtoGraphQL => "GraphQL"
-  }
-}
-
-/// Short label for protocol column (matrix header).
-let protocolShort = (proto: protocolColumn): string => {
-  switch proto {
-  | ProtoMCP => "MCP"
-  | ProtoLSP => "LSP"
-  | ProtoDAP => "DAP"
-  | ProtoBSP => "BSP"
-  | ProtoNeSy => "NeSy"
-  | ProtoAgentic => "Agent"
-  | ProtoFleet => "Fleet"
-  | ProtoGRPC => "gRPC"
-  | ProtoREST => "REST"
-  | ProtoGraphQL => "GQL"
-  }
-}
-
-/// Display string for a peer state.
-let peerStateLabel = (state: peerState): string => {
-  switch state {
-  | PeerPending => "Pending"
-  | PeerExchanged => "Exchanged"
-  | PeerVerified => "Verified"
-  | PeerRejected => "Rejected"
-  | PeerStale => "Stale"
-  }
-}
-
-/// Colour class for a peer state badge.
-let peerStateColour = (state: peerState): string => {
-  switch state {
-  | PeerPending => "text-yellow-400"
-  | PeerExchanged => "text-blue-400"
-  | PeerVerified => "text-green-400"
-  | PeerRejected => "text-red-400"
-  | PeerStale => "text-gray-500"
-  }
-}
-
-/// Count loaded cartridges.
-let loadedCount = (cartridges: array<bojCartridge>): int => {
-  cartridges->Array.filter(c => c.loaded)->Array.length
-}
-
-/// Count cartridges by grade.
-let countByGrade = (cartridges: array<bojCartridge>, grade: cartridgeGrade): int => {
-  cartridges->Array.filter(c => c.grade === grade)->Array.length
-}
-
-/// Filter cartridges by text (name or description).
-let filterCartridges = (cartridges: array<bojCartridge>, text: string): array<bojCartridge> => {
-  if text === "" {
-    cartridges
-  } else {
-    let lower = String.toLowerCase(text)
-    cartridges->Array.filter(c =>
-      String.toLowerCase(c.name)->String.includes(lower) ||
-      String.toLowerCase(c.displayName)->String.includes(lower) ||
-      String.toLowerCase(c.description)->String.includes(lower)
-    )
-  }
-}
-
-/// Check whether a cartridge supports a given protocol.
-let hasProtocol = (cartridge: bojCartridge, proto: protocolColumn): bool => {
-  cartridge.protocols->Array.some(p => p === proto)
-}
-
-/// All protocol columns in display order.
-let allProtocols: array<protocolColumn> = [
-  ProtoMCP,
-  ProtoLSP,
-  ProtoDAP,
-  ProtoBSP,
-  ProtoNeSy,
-  ProtoAgentic,
-  ProtoFleet,
-  ProtoGRPC,
-  ProtoREST,
-  ProtoGraphQL,
-]
-
-/// Layer readiness as a fraction string (e.g. "3/4").
-let layerProgress = (layers: layerStatus): string => {
-  let count =
-    if layers.abiReady {
-      1
-    } else {
-      0
-    } +
-    if layers.ffiReady {
-      1
-    } else {
-      0
-    } +
-    if layers.adapterReady {
-      1
-    } else {
-      0
-    } + if layers.sharedLibReady {
-      1
-    } else {
-      0
-    }
-  `${Int.toString(count)}/4`
-}
-
-// ============================================================================
-// JSON Parsing Helpers
-// ============================================================================
-
-/// Parse a grade string into a cartridgeGrade variant.
-let parseGrade = (s: string): cartridgeGrade => {
-  switch String.toLowerCase(s) {
-  | "a" | "gradea" | "production" => GradeA
-  | "b" | "gradeb" | "rc" => GradeB
-  | "c" | "gradec" | "beta" => GradeC
-  | _ => GradeD
-  }
-}
-
-/// Parse a protocol string into a protocolColumn variant.
-let parseProtocol = (s: string): option<protocolColumn> => {
-  switch String.toLowerCase(s) {
-  | "mcp" => Some(ProtoMCP)
-  | "lsp" => Some(ProtoLSP)
-  | "dap" => Some(ProtoDAP)
-  | "bsp" => Some(ProtoBSP)
-  | "nesy" => Some(ProtoNeSy)
-  | "agentic" => Some(ProtoAgentic)
-  | "fleet" => Some(ProtoFleet)
-  | "grpc" => Some(ProtoGRPC)
-  | "rest" => Some(ProtoREST)
-  | "graphql" => Some(ProtoGraphQL)
-  | _ => None
-  }
-}
-
-/// Parse a peer state string into a peerState variant.
-let parsePeerState = (s: string): peerState => {
-  switch String.toLowerCase(s) {
-  | "exchanged" => PeerExchanged
-  | "verified" => PeerVerified
-  | "rejected" => PeerRejected
-  | "stale" => PeerStale
-  | _ => PeerPending
-  }
-}
-
-/// Helper: extract a string from a JSON object dict.
-let getStringFromObj = (obj: Dict.t<JSON.t>, key: string): string =>
-  switch Dict.get(obj, key) {
-  | Some(v) =>
-    switch JSON.Classify.classify(v) {
-    | String(s) => s
-    | _ => ""
-    }
-  | None => ""
-  }
-
-/// Helper: extract an int from a JSON object dict.
-let getIntFromObj = (obj: Dict.t<JSON.t>, key: string): int =>
-  switch Dict.get(obj, key) {
-  | Some(v) =>
-    switch JSON.Classify.classify(v) {
-    | Number(n) => Float.toInt(n)
-    | _ => 0
-    }
-  | None => 0
-  }
-
-/// Helper: extract a float from a JSON object dict.
-let getFloatFromObj = (obj: Dict.t<JSON.t>, key: string): float =>
-  switch Dict.get(obj, key) {
-  | Some(v) =>
-    switch JSON.Classify.classify(v) {
-    | Number(n) => n
-    | _ => 0.0
-    }
-  | None => 0.0
-  }
-
-/// Helper: extract a bool from a JSON object dict.
-let getBoolFromObj = (obj: Dict.t<JSON.t>, key: string): bool =>
-  switch Dict.get(obj, key) {
-  | Some(v) =>
-    switch JSON.Classify.classify(v) {
-    | Bool(b) => b
-    | _ => false
-    }
-  | None => false
-  }
-
-/// Parse a single cartridge JSON object into a bojCartridge record.
-let parseCartridgeObj = (obj: Dict.t<JSON.t>): bojCartridge => {
-  // Parse protocols array.
-  let protocols = switch Dict.get(obj, "protocols") {
-  | Some(v) =>
-    switch JSON.Classify.classify(v) {
-    | Array(arr) =>
-      arr->Array.filterMap(item =>
-        switch JSON.Classify.classify(item) {
-        | String(s) => parseProtocol(s)
-        | _ => None
-        }
-      )
-    | _ => []
-    }
-  | None => []
-  }
-  // Parse layers object.
-  let layers = switch Dict.get(obj, "layers") {
-  | Some(v) =>
-    switch JSON.Classify.classify(v) {
-    | Object(layerObj) => {
-        abiReady: getBoolFromObj(layerObj, "abiReady"),
-        ffiReady: getBoolFromObj(layerObj, "ffiReady"),
-        adapterReady: getBoolFromObj(layerObj, "adapterReady"),
-        sharedLibReady: getBoolFromObj(layerObj, "sharedLibReady"),
-      }
-    | _ => {abiReady: false, ffiReady: false, adapterReady: false, sharedLibReady: false}
-    }
-  | None => {abiReady: false, ffiReady: false, adapterReady: false, sharedLibReady: false}
-  }
-  {
-    name: getStringFromObj(obj, "name"),
-    displayName: getStringFromObj(obj, "displayName"),
-    description: getStringFromObj(obj, "description"),
-    grade: parseGrade(getStringFromObj(obj, "grade")),
-    loaded: getBoolFromObj(obj, "loaded"),
-    protocols,
-    layers,
-    soHash: getStringFromObj(obj, "soHash"),
-    restPort: getIntFromObj(obj, "restPort"),
-    grpcPort: getIntFromObj(obj, "grpcPort"),
-    graphqlPort: getIntFromObj(obj, "graphqlPort"),
-  }
-}
-
-/// Tea_Json decoder for a single cartridge, bridging the existing parseCartridgeObj parser.
-let cartridgeDecoder: Tea_Json.decoder<bojCartridge> = json => {
-  switch json {
-  | Object(dict) => Ok(parseCartridgeObj(dict))
-  | _ => Error(Tea_Json.Failure("Expected an object for cartridge", json))
-  }
-}
-
-/// Tea_Json decoder for a cartridges array.
-let cartridgesDecoder: Tea_Json.decoder<array<bojCartridge>> = Decoders.lenientArray(
-  cartridgeDecoder,
-)
-
-/// Parse a JSON string containing an array of cartridge objects.
-let parseCartridges = (json: string): result<array<bojCartridge>, string> =>
-  Decoders.decode(cartridgesDecoder, json)
-
-/// Tea_Json decoder for a single peer, bridging the existing value-level helpers.
-let peerDecoder: Tea_Json.decoder<umojaPeer> = json => {
-  switch json {
-  | Object(peerObj) =>
-    Ok({
-      nodeId: getStringFromObj(peerObj, "nodeId"),
-      address: getStringFromObj(peerObj, "endpoint"),
-      state: parsePeerState(getStringFromObj(peerObj, "state")),
-      gossipRound: getIntFromObj(peerObj, "currentRound"),
-      catalogueDigest: getStringFromObj(peerObj, "catalogueDigest"),
-      lastSeen: getFloatFromObj(peerObj, "loadFactor"),
-    })
-  | _ => Error(Tea_Json.Failure("Expected an object for peer", json))
-  }
-}
-
-/// Tea_Json decoder for Umoja federation status.
-let umojaStatusDecoder: Tea_Json.decoder<umojaStatus> = {
-  open Decoders
-  open Tea_Json
-  map4((active, localNodeId, peers, currentRound): umojaStatus => {
-    active,
-    localNodeId,
-    peers,
-    currentRound,
-  }, boolField(
-    "active",
-  ), stringField(
-    "localNodeId",
-  ), fieldWithDefault("peers", lenientArray(peerDecoder), []), intField("currentRound"))
-}
-
-/// Parse a JSON string containing Umoja federation status.
-let parseUmojaStatus = (json: string): result<umojaStatus, string> =>
-  Decoders.decode(umojaStatusDecoder, json)
-
-/// Tea_Json decoder for topology diagram data.
-/// Extracts the "diagram" field as a plain string.
-let topologyDecoder: Tea_Json.decoder<string> = Decoders.stringField("diagram")
-
-/// Parse a JSON string containing topology diagram data.
-/// Extracts the "diagram" field as a plain string.
-let parseTopology = (json: string): result<string, string> => Decoders.decode(topologyDecoder, json)
-
-/// Default BoJ panel state.
-let defaultState: bojState = {
-  serverUrl: ServiceEndpoints.bojServer,
-  connected: false,
-  lastHealthCheck: 0.0,
-  cartridges: [],
-  selectedCartridge: None,
-  umoja: {
-    active: false,
-    localNodeId: "",
-    peers: [],
-    currentRound: 0,
-  },
-  activeCategory: Dashboard,
-  invokeCartridge: "",
-  invokeTool: "",
-  invokeArgs: [],
-  invokeResult: None,
-  loading: false,
-  error: None,
-  filterText: "",
-  lastTypeCheck: None,
-  latencyLog: [],
-  umojaAddPeerInput: "",
-}
diff --git a/src/core/BuildDashboardEngine.affine b/src/core/BuildDashboardEngine.affine
new file mode 100644
index 00000000..740024f3
--- /dev/null
+++ b/src/core/BuildDashboardEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module BuildDashboardEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/BuildDashboardEngine.res b/src/core/BuildDashboardEngine.res
deleted file mode 100644
index d208adaf..00000000
--- a/src/core/BuildDashboardEngine.res
+++ /dev/null
@@ -1,100 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Build Dashboard Engine — pure computation and helpers for
-/// monitoring build processes, test results, and compilation status.
-
-open BuildDashboardModel
-
-/// Human-readable labels for category tabs.
-let categoryLabel = (cat: buildDashboardCategory): string =>
-  switch cat {
-  | BuildOverview => "Overview"
-  | BuildErrors => "Errors"
-  | BuildTests => "Tests"
-  | BuildHistory => "History"
-  }
-
-/// Human-readable build target label.
-let targetLabel = (target: buildTarget): string =>
-  switch target {
-  | TargetGame => "Game"
-  | TargetVm => "VM"
-  | TargetDlc => "DLC"
-  | TargetSyncServer => "Sync Server"
-  | TargetShared => "Shared"
-  | TargetCoprocessors => "Coprocessors"
-  | TargetCustom(name) => name
-  }
-
-/// Build target colour.
-let targetColour = (target: buildTarget): string =>
-  switch target {
-  | TargetGame => "text-cyan-400"
-  | TargetVm => "text-purple-400"
-  | TargetDlc => "text-amber-400"
-  | TargetSyncServer => "text-emerald-400"
-  | TargetShared => "text-blue-400"
-  | TargetCoprocessors => "text-orange-400"
-  | TargetCustom(_) => "text-gray-400"
-  }
-
-/// Build status label.
-let statusLabel = (status: buildStatus): string =>
-  switch status {
-  | BuildIdle => "Idle"
-  | BuildRunning => "Building..."
-  | BuildSuccess(_) => "Success"
-  | BuildFailed(_) => "Failed"
-  | BuildCancelled => "Cancelled"
-  }
-
-/// Build status colour.
-let statusColour = (status: buildStatus): string =>
-  switch status {
-  | BuildIdle => "text-gray-500"
-  | BuildRunning => "text-amber-400"
-  | BuildSuccess(_) => "text-emerald-400"
-  | BuildFailed(_) => "text-red-400"
-  | BuildCancelled => "text-gray-400"
-  }
-
-/// All default build targets for IDApTIK.
-let defaultTargets: array<(buildTarget, buildStatus)> = [
-  (TargetGame, BuildIdle),
-  (TargetVm, BuildIdle),
-  (TargetDlc, BuildIdle),
-  (TargetSyncServer, BuildIdle),
-  (TargetShared, BuildIdle),
-  (TargetCoprocessors, BuildIdle),
-]
-
-/// Count errors and warnings.
-let errorCount = (messages: array<buildMessage>): int =>
-  messages->Array.filter(m => m.severity === "error")->Array.length
-
-let warningCount = (messages: array<buildMessage>): int =>
-  messages->Array.filter(m => m.severity === "warning")->Array.length
-
-/// Count passed/failed tests.
-let passedTestCount = (results: array<testResult>): int =>
-  results->Array.filter(r => r.passed)->Array.length
-
-let failedTestCount = (results: array<testResult>): int =>
-  results->Array.filter(r => !r.passed)->Array.length
-
-/// Default state for the Build Dashboard panel.
-let defaultState: buildDashboardState = {
-  activeCategory: BuildOverview,
-  targets: defaultTargets,
-  messages: [],
-  testResults: [],
-  history: [],
-  autoRebuild: false,
-  watchMode: false,
-  filterTarget: None,
-  filterSeverity: "",
-  showPassedTests: true,
-  loading: false,
-  error: None,
-  bojRouting: false,
-}
diff --git a/src/core/BurbleEngine.affine b/src/core/BurbleEngine.affine
new file mode 100644
index 00000000..be3297f3
--- /dev/null
+++ b/src/core/BurbleEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module BurbleEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/BurbleEngine.res b/src/core/BurbleEngine.res
deleted file mode 100644
index 2ad16145..00000000
--- a/src/core/BurbleEngine.res
+++ /dev/null
@@ -1,161 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-//
-// BurbleEngine — Pure computation for PanLL's Burble voice integration.
-//
-// Manages workspace huddle voice chat using the Burble Workspace profile
-// (always-on VAD, noise suppression, echo cancellation, no spatial audio).
-// All functions are pure — side effects (WebSocket, Gossamer invoke) happen
-// in BurbleCmd.
-//
-// TEA integration:
-//   Model:   BurbleModel.burbleState (the state)
-//   Update:  BurbleEngine.update (pure state transitions)
-//   Cmd:     BurbleCmd (side-effectful commands)
-//   View:    consumes burbleState for rendering
-//
-// The Burble server runs on ws://localhost:6473/voice.
-
-open BurbleModel
-
-// ============================================================================
-// Default state
-// ============================================================================
-
-/// Initial Burble state — disconnected, no huddle, unmuted.
-let defaultState: burbleState = {
-  connection: Disconnected,
-  participants: Dict.make(),
-  isMuted: false,
-  isDeafened: false,
-  currentHuddle: None,
-  error: None,
-}
-
-// ============================================================================
-// Pure update — TEA state transitions
-// ============================================================================
-
-/// Process a Burble message and return the updated state.
-/// This is the pure core of the TEA update loop for voice huddles.
-let update = (state: burbleState, msg: burbleMsg): burbleState => {
-  switch msg {
-  | ConnectionChanged(newConnection) => {
-      ...state,
-      connection: newConnection,
-      // Clear error on successful connection.
-      error: switch newConnection {
-      | Connected => None
-      | Failed(reason) => Some(reason)
-      | _ => state.error
-      },
-    }
-
-  | JoinedHuddle(huddleId) => {
-      ...state,
-      currentHuddle: Some(huddleId),
-      participants: Dict.make(),
-      error: None,
-    }
-
-  | LeftHuddle => {
-      ...state,
-      currentHuddle: None,
-      participants: Dict.make(),
-    }
-
-  | ParticipantUpdated(participant) =>
-    let newParticipants = Dict.fromArray(Dict.toArray(state.participants))
-    Dict.set(newParticipants, participant.id, participant)
-    {
-      ...state,
-      participants: newParticipants,
-    }
-
-  | ParticipantLeft(participantId) =>
-    let newParticipants = Dict.fromArray(
-      Dict.toArray(state.participants)->Array.filter(((key, _)) => key !== participantId),
-    )
-    {
-      ...state,
-      participants: newParticipants,
-    }
-
-  | MuteToggled(isMuted) => {
-      ...state,
-      isMuted,
-    }
-
-  | DeafenToggled(isDeafened) => {
-      ...state,
-      isDeafened,
-      // Deafening also mutes.
-      isMuted: isDeafened ? true : state.isMuted,
-    }
-
-  | ErrorOccurred(errorMsg) => {
-      ...state,
-      error: Some(errorMsg),
-    }
-
-  | ErrorCleared => {
-      ...state,
-      error: None,
-    }
-  }
-}
-
-// ============================================================================
-// Query helpers — pure functions for reading state
-// ============================================================================
-
-/// Whether the user is connected to the Burble server.
-let isConnected = (state: burbleState): bool => state.connection == Connected
-
-/// Whether the user is currently in a huddle.
-let isInHuddle = (state: burbleState): bool => Option.isSome(state.currentHuddle)
-
-/// Get the list of participants in the current huddle.
-let getParticipants = (state: burbleState): array<participant> =>
-  Dict.valuesToArray(state.participants)
-
-/// Get the count of participants in the current huddle.
-let participantCount = (state: burbleState): int =>
-  Array.length(Dict.keysToArray(state.participants))
-
-/// Get participants who are currently speaking (VAD-detected).
-let speakingParticipants = (state: burbleState): array<participant> =>
-  Dict.valuesToArray(state.participants)->Array.filter(p => p.isSpeaking)
-
-/// Get a specific participant by ID.
-let getParticipant = (state: burbleState, participantId: string): option<participant> =>
-  Dict.get(state.participants, participantId)
-
-/// Human-readable label for the connection state (for status bar).
-let connectionLabel = (state: burbleState): string =>
-  switch state.connection {
-  | Disconnected => "Disconnected"
-  | Connecting => "Connecting..."
-  | Connected =>
-    switch state.currentHuddle {
-    | Some(huddle) =>
-      let count = participantCount(state)
-      `In huddle: ${huddle} (${Int.toString(count)} participants)`
-    | None => "Connected (no huddle)"
-    }
-  | Reconnecting => "Reconnecting..."
-  | Failed(reason) => `Failed: ${reason}`
-  }
-
-/// Voice state label for the local user (muted/deafened/active).
-let localVoiceLabel = (state: burbleState): string =>
-  if state.isDeafened {
-    "Deafened"
-  } else if state.isMuted {
-    "Muted"
-  } else {
-    "Active"
-  }
-
-/// Whether the Burble state has an active error to display.
-let hasError = (state: burbleState): bool => Option.isSome(state.error)
diff --git a/src/core/CaptureEngine.affine b/src/core/CaptureEngine.affine
new file mode 100644
index 00000000..51c2d6c7
--- /dev/null
+++ b/src/core/CaptureEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CaptureEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/CaptureEngine.res b/src/core/CaptureEngine.res
deleted file mode 100644
index 5bf5a2fc..00000000
--- a/src/core/CaptureEngine.res
+++ /dev/null
@@ -1,179 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Capture Engine — pure functions for screenshot, recording, demo,
-/// cloning, and comparison operations (DD-022).
-///
-/// All functions are pure: (state, action) -> state. Actual screenshot/recording
-/// side effects happen via CaptureCmd Gossamer wrappers.
-
-open CaptureModel
-
-// ============================================================================
-// Capture Operations
-// ============================================================================
-
-/// Add a capture entry to the gallery.
-let addCapture = (state: captureState, entry: captureEntry): captureState => {
-  {...state, captures: Array.concat(state.captures, [entry])}
-}
-
-/// Remove a capture by ID.
-let removeCapture = (state: captureState, captureId: string): captureState => {
-  {...state, captures: Array.filter(state.captures, c => c.id !== captureId)}
-}
-
-/// Start recording a panel.
-let startRecording = (state: captureState, panelId: string, timestamp: float): captureState => {
-  {...state, recording: Recording(panelId, timestamp)}
-}
-
-/// Pause an ongoing recording.
-let pauseRecording = (state: captureState, elapsed: float): captureState => {
-  switch state.recording {
-  | Recording(panelId, _) => {...state, recording: Paused(panelId, elapsed)}
-  | _ => state
-  }
-}
-
-/// Resume a paused recording.
-let resumeRecording = (state: captureState, timestamp: float): captureState => {
-  switch state.recording {
-  | Paused(panelId, _) => {...state, recording: Recording(panelId, timestamp)}
-  | _ => state
-  }
-}
-
-/// Stop recording and produce a capture entry.
-let stopRecording = (state: captureState): captureState => {
-  {...state, recording: NotRecording}
-}
-
-/// Toggle a panel's selection for multi-panel capture.
-let toggleCaptureSelection = (state: captureState, panelId: string): captureState => {
-  let selected = state.selectedForCapture
-  let alreadySelected = Array.some(selected, id => id === panelId)
-  let newSelected = if alreadySelected {
-    Array.filter(selected, id => id !== panelId)
-  } else {
-    Array.concat(selected, [panelId])
-  }
-  {...state, selectedForCapture: newSelected}
-}
-
-/// Clear multi-panel capture selection.
-let clearSelection = (state: captureState): captureState => {
-  {...state, selectedForCapture: []}
-}
-
-// ============================================================================
-// Demo Operations
-// ============================================================================
-
-/// Add a demo package.
-let addDemo = (state: captureState, demo: demoPackage): captureState => {
-  {...state, demos: Array.concat(state.demos, [demo])}
-}
-
-/// Remove a demo by ID.
-let removeDemo = (state: captureState, demoId: string): captureState => {
-  {...state, demos: Array.filter(state.demos, d => d.id !== demoId)}
-}
-
-/// Start demo playback.
-let startDemo = (state: captureState, demoId: string): captureState => {
-  {...state, activeDemo: Some(demoId), activeDemoStep: 0}
-}
-
-/// Advance to the next demo step.
-let nextDemoStep = (state: captureState): captureState => {
-  switch state.activeDemo {
-  | Some(demoId) => {
-      let demo = Array.find(state.demos, d => d.id === demoId)
-      switch demo {
-      | Some(d) =>
-        if state.activeDemoStep < Array.length(d.steps) - 1 {
-          {...state, activeDemoStep: state.activeDemoStep + 1}
-        } else {
-          state
-        }
-      | None => state
-      }
-    }
-  | None => state
-  }
-}
-
-/// Go back to the previous demo step.
-let prevDemoStep = (state: captureState): captureState => {
-  if state.activeDemoStep > 0 {
-    {...state, activeDemoStep: state.activeDemoStep - 1}
-  } else {
-    state
-  }
-}
-
-/// Stop demo playback.
-let stopDemo = (state: captureState): captureState => {
-  {...state, activeDemo: None, activeDemoStep: 0, comparison: NoComparison}
-}
-
-// ============================================================================
-// Comparison Operations
-// ============================================================================
-
-/// Enter side-by-side comparison mode.
-let setSideBySide = (state: captureState, leftId: string, rightId: string): captureState => {
-  {...state, comparison: SideBySide(leftId, rightId)}
-}
-
-/// Enter demo comparison mode (student vs golden output).
-let setDemoComparison = (
-  state: captureState,
-  studentPanelId: string,
-  demoStepCaptureId: string,
-): captureState => {
-  {...state, comparison: DemoComparison(studentPanelId, demoStepCaptureId)}
-}
-
-/// Enter before/after comparison mode.
-let setBeforeAfter = (state: captureState, beforeId: string, afterId: string): captureState => {
-  {...state, comparison: BeforeAfter(beforeId, afterId)}
-}
-
-/// Exit comparison mode.
-let exitComparison = (state: captureState): captureState => {
-  {...state, comparison: NoComparison}
-}
-
-// ============================================================================
-// Clone Operations
-// ============================================================================
-
-/// Clone a panel's state.
-let clonePanel = (state: captureState, clone: panelClone): captureState => {
-  {...state, clones: Array.concat(state.clones, [clone])}
-}
-
-/// Remove a clone by ID.
-let removeClone = (state: captureState, cloneId: string): captureState => {
-  {...state, clones: Array.filter(state.clones, c => c.id !== cloneId)}
-}
-
-// ============================================================================
-// Default State
-// ============================================================================
-
-/// Initial capture state.
-let defaultState: captureState = {
-  captures: [],
-  recording: NotRecording,
-  selectedForCapture: [],
-  demos: [],
-  activeDemo: None,
-  activeDemoStep: 0,
-  comparison: NoComparison,
-  clones: [],
-  activeCategory: CaptureGallery,
-  captureBarVisible: true,
-  fullEnvironmentCapture: false,
-}
diff --git a/src/core/CladeBrowserEngine.affine b/src/core/CladeBrowserEngine.affine
new file mode 100644
index 00000000..5f2ac8d7
--- /dev/null
+++ b/src/core/CladeBrowserEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CladeBrowserEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/CladeBrowserEngine.res b/src/core/CladeBrowserEngine.res
deleted file mode 100644
index 76cd46ee..00000000
--- a/src/core/CladeBrowserEngine.res
+++ /dev/null
@@ -1,2539 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Clade Browser Engine — pure helpers for clade display and filtering.
-///
-/// All functions are pure (no side effects). View and Update modules call
-/// these to transform and query clade data.
-
-open CladeBrowserModel
-
-/// Human-readable label for a clade kind.
-let kindLabel = (k: cladeKind): string => {
-  switch k {
-  | KindAi => "AI"
-  | KindBridge => "Bridge"
-  | KindBuilder => "Builder"
-  | KindDatabase => "Database"
-  | KindDirective => "Directive"
-  | KindLoader => "Loader"
-  | KindMeta => "Meta"
-  | KindNetwork => "Network"
-  | KindScanner => "Scanner"
-  | KindTerminal => "Terminal"
-  | KindViewer => "Viewer"
-  | KindAll => "All"
-  }
-}
-
-/// CSS-friendly colour for each kind.
-let kindColour = (k: cladeKind): string => {
-  switch k {
-  | KindAi => "#a78bfa"
-  | KindBridge => "#60a5fa"
-  | KindBuilder => "#f59e0b"
-  | KindDatabase => "#34d399"
-  | KindDirective => "#f87171"
-  | KindLoader => "#818cf8"
-  | KindMeta => "#9ca3af"
-  | KindNetwork => "#2dd4bf"
-  | KindScanner => "#fb923c"
-  | KindTerminal => "#a3e635"
-  | KindViewer => "#c084fc"
-  | KindAll => "#e5e7eb"
-  }
-}
-
-/// Parse a kind string from a clade file.
-let parseKind = (s: string): cladeKind => {
-  switch s {
-  | "ai" => KindAi
-  | "bridge" => KindBridge
-  | "builder" => KindBuilder
-  | "database" => KindDatabase
-  | "directive" => KindDirective
-  | "loader" => KindLoader
-  | "meta" => KindMeta
-  | "network" => KindNetwork
-  | "scanner" => KindScanner
-  | "terminal" => KindTerminal
-  | "viewer" => KindViewer
-  | _ => KindMeta
-  }
-}
-
-/// All kind values (for the filter dropdown).
-let allKinds: array<cladeKind> = [
-  KindAll,
-  KindAi,
-  KindBridge,
-  KindBuilder,
-  KindDatabase,
-  KindDirective,
-  KindLoader,
-  KindMeta,
-  KindNetwork,
-  KindScanner,
-  KindTerminal,
-  KindViewer,
-]
-
-/// Filter clades by kind.
-let filterByKind = (clades: array<cladeEntry>, kind: cladeKind): array<cladeEntry> => {
-  switch kind {
-  | KindAll => clades
-  | k => {
-      let kindStr = kindLabel(k)->String.toLowerCase
-      clades->Array.filter(c => c.kind == kindStr)
-    }
-  }
-}
-
-/// Filter clades by search query (matches id, name, summary).
-let filterBySearch = (clades: array<cladeEntry>, query: string): array<cladeEntry> => {
-  if query == "" {
-    clades
-  } else {
-    let q = query->String.toLowerCase
-    clades->Array.filter(c =>
-      c.id->String.toLowerCase->String.includes(q) ||
-      c.name->String.toLowerCase->String.includes(q) ||
-      c.summary->String.toLowerCase->String.includes(q)
-    )
-  }
-}
-
-/// Combined filter (kind + search).
-let filterClades = (clades: array<cladeEntry>, kind: cladeKind, query: string): array<
-  cladeEntry,
-> => {
-  clades->filterByKind(kind)->filterBySearch(query)
-}
-
-/// Count clades per kind.
-let countByKind = (clades: array<cladeEntry>, kind: cladeKind): int => {
-  filterByKind(clades, kind)->Array.length
-}
-
-/// Count traits across all clades.
-let countWithTrait = (clades: array<cladeEntry>, getter: cladeTraits => bool): int => {
-  clades->Array.filter(c => getter(c.traits))->Array.length
-}
-
-/// Category label for tab display.
-let categoryLabel = (cat: cladeBrowserCategory): string => {
-  switch cat {
-  | CategoryOverview => "Overview"
-  | CategoryByKind => "By Kind"
-  | CategoryTraits => "Traits"
-  | CategoryPanelMap => "Panel Map"
-  }
-}
-
-/// All categories for tab rendering.
-let allCategories: array<cladeBrowserCategory> = [
-  CategoryOverview,
-  CategoryByKind,
-  CategoryTraits,
-  CategoryPanelMap,
-]
-
-/// Extend a base clade entry with Tier 1 fields.
-/// Clades start with empty protocols/capabilities/requires/enhances and
-/// IsolationSoft. The enrichment pass below overrides specific clades.
-let withDefaults = (
-  ~protocols: array<cladeProtocol>=[],
-  ~capabilities: array<cladeCapability>=[],
-  ~requires: array<cladeDependency>=[],
-  ~enhances: array<string>=[],
-  ~isolation: cladeIsolation=IsolationSoft,
-  ~signing: cladeSigningStatus=SigningNone,
-  ~sbom: option<cladeSbom>=None,
-  ~sandbox: option<cladeSandboxPolicy>=None,
-  entry: cladeEntry,
-): cladeEntry => {
-  {
-    ...entry,
-    protocols,
-    capabilities,
-    requires,
-    enhances,
-    isolation,
-    signing,
-    sbom,
-    sandbox,
-  }
-}
-
-/// Built-in clade data (loaded from panel-clades/ at compile time).
-/// In a full implementation, this would be loaded via Gossamer from the
-/// filesystem. For now, we embed the 36 known clades.
-let builtinCladesBase: array<cladeEntry> = [
-  {
-    id: "aerie",
-    name: "Aerie",
-    kind: "network",
-    version: "1.0.0",
-    summary: "Network diagnostics, BGP forensics, IPv6 tools",
-    longDescription: "Network analysis and simulation panel for BGP, DNS, and IPv6 diagnostics.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: true,
-      hasWorkItems: false,
-      hasRealTime: true,
-      isAmbient: false,
-    },
-    panelIds: ["PanelAerie"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: Some("network"),
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: ["cloudguard", "network-topology"],
-  },
-  {
-    id: "ai",
-    name: "AI",
-    kind: "ai",
-    version: "1.0.0",
-    summary: "Multi-provider neural interface — Claude, Gemini, Mistral, GPT, local",
-    longDescription: "Neural inference gateway supporting multiple AI providers with unified API.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: true,
-      hasWorkItems: false,
-      hasRealTime: true,
-      isAmbient: false,
-    },
-    panelIds: ["PanelAi"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "automation-router",
-    name: "Automation Router",
-    kind: "bridge",
-    version: "1.0.0",
-    summary: "Hybrid cross-panel workflow orchestration",
-    longDescription: "Event-driven rule engine for automating workflows across panels with approval gates.",
-    traits: {
-      hasPersistence: true,
-      hasBackend: true,
-      hasWorkItems: true,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelAutomationRouter"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "script-gist",
-    name: "Script Gist",
-    kind: "tool",
-    version: "1.0.0",
-    summary: "Portable computation gists — Minskian diachronic/synchronic cardfiles",
-    longDescription: "Saveable, shareable script and schema drafting board. Gists are LLM-callable as MCP tools, runnable standalone, composable into cardfiles. Diachronic (time/scripts) and synchronic (space/schemata) state documents with rollback.",
-    traits: {
-      hasPersistence: true,
-      hasBackend: false,
-      hasWorkItems: true,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelScriptGist"],
-    consumedBy: ["automation-router", "boj"],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: ["automation-router", "playgrounds"],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: ["playgrounds", "automation-router"],
-  },
-  {
-    id: "boj",
-    name: "BoJ — Bundle of Joy",
-    kind: "bridge",
-    version: "1.0.0",
-    summary: "Unified cartridge server — 17 domains, Umoja federation",
-    longDescription: "Protocol backbone bridging all domains through Idris2 ABI, Zig FFI, V-lang adapter.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: true,
-      hasWorkItems: false,
-      hasRealTime: true,
-      isAmbient: false,
-    },
-    panelIds: ["PanelBoj"],
-    consumedBy: ["aerie", "ai", "databases"],
-    supersedes: ["polystack"],
-    parentCladeId: Some("bridge"),
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: ["ai", "databases", "network-topology"],
-  },
-  {
-    id: "build-dashboard",
-    name: "Build Dashboard",
-    kind: "builder",
-    version: "1.0.0",
-    summary: "Multi-project build, test, and compilation monitor",
-    longDescription: "Tracks build status, errors, and test results across sub-projects.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: true,
-      hasWorkItems: false,
-      hasRealTime: true,
-      isAmbient: false,
-    },
-    panelIds: ["PanelBuildDashboard"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "capture",
-    name: "Capture",
-    kind: "viewer",
-    version: "1.0.0",
-    summary: "Screenshots, recordings, demos, panel comparison views",
-    longDescription: "Screen capture and recording with panel-aware cropping and export.",
-    traits: {
-      hasPersistence: true,
-      hasBackend: true,
-      hasWorkItems: false,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelCapture"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "cloudguard",
-    name: "CloudGuard",
-    kind: "network",
-    version: "1.0.0",
-    summary: "Cloudflare domain security management",
-    longDescription: "DNS, WAF, and domain configuration management via Cloudflare API.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: true,
-      hasWorkItems: false,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelCloudGuard"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "coprocessors",
-    name: "Coprocessors",
-    kind: "viewer",
-    version: "1.0.0",
-    summary: "IDApTIK coprocessor backend monitor — 10 backends",
-    longDescription: "Monitors coprocessor call logs, heatmaps, and performance for IDApTIK.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: true,
-      hasWorkItems: false,
-      hasRealTime: true,
-      isAmbient: false,
-    },
-    panelIds: ["PanelCoprocessors"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "databases",
-    name: "Databases",
-    kind: "database",
-    version: "1.0.0",
-    summary: "VeriSimDB, QuandleDB, LithoGlyph management",
-    longDescription: "Formally verified database inspection, query execution, and schema management.",
-    traits: {
-      hasPersistence: true,
-      hasBackend: true,
-      hasWorkItems: false,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelDatabases"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "dlc-workshop",
-    name: "DLC Workshop",
-    kind: "builder",
-    version: "1.0.0",
-    summary: "Create, test, and package DLC puzzle packs",
-    longDescription: "VM composer, solution testing, and asset bundling for IDApTIK DLC.",
-    traits: {
-      hasPersistence: true,
-      hasBackend: true,
-      hasWorkItems: true,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelDlcWorkshop"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "ums",
-    name: "Universal Modding Studio",
-    kind: "builder",
-    version: "1.0.0",
-    summary: "Unified IDApTIK game content creation — projects, ABI validation, assets, distribution",
-    longDescription: "Hub panel orchestrating Level Architect, DLC Workshop, Game Preview, and VM Inspector. Manages mod projects, validates level data against Idris2 ABI proofs, runs asset pipelines, and handles mod distribution.",
-    traits: {
-      hasPersistence: true,
-      hasBackend: true,
-      hasWorkItems: true,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelUms"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: ["level-architect", "dlc-workshop", "game-preview", "vm-inspector"],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: ["level-architect", "dlc-workshop"],
-  },
-  {
-    id: "editor-bridge",
-    name: "Editor Bridge",
-    kind: "bridge",
-    version: "1.0.0",
-    summary: "Federate with external code editors — LSP, diagnostics, symbols",
-    longDescription: "Connects to VSCodium, JetBrains, Notepad++, Brackets via LSP for cross-editor integration.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: true,
-      hasWorkItems: false,
-      hasRealTime: true,
-      isAmbient: false,
-    },
-    panelIds: ["PanelEditorBridge"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "farm",
-    name: "Farm",
-    kind: "loader",
-    version: "1.0.0",
-    summary: "Repository admin registry and maintenance hub",
-    longDescription: "Git-Private-Farm repo inventory, health checks, and admin operations.",
-    traits: {
-      hasPersistence: true,
-      hasBackend: false,
-      hasWorkItems: true,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelFarm"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "fleet",
-    name: "Fleet",
-    kind: "scanner",
-    version: "1.0.0",
-    summary: "Gitbot fleet orchestration and dispatch",
-    longDescription: "Manages 6-bot fleet: rhodibot, echidnabot, sustainabot, glambot, seambot, finishbot.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: true,
-      hasWorkItems: true,
-      hasRealTime: true,
-      isAmbient: false,
-    },
-    panelIds: ["PanelFleet"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "game-preview",
-    name: "Game Preview",
-    kind: "viewer",
-    version: "1.0.0",
-    summary: "Live IDApTIK game preview with hot-reload",
-    longDescription: "Embedded game preview with frame stepping, overlays, and gameplay recording.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: true,
-      hasWorkItems: false,
-      hasRealTime: true,
-      isAmbient: false,
-    },
-    panelIds: ["PanelGamePreview"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "hypatia",
-    name: "Hypatia",
-    kind: "ai",
-    version: "1.0.0",
-    summary: "Neurosymbolic CI/CD intelligence",
-    longDescription: "Hypatia scanning integration for neurosymbolic security analysis.",
-    traits: {
-      hasPersistence: true,
-      hasBackend: true,
-      hasWorkItems: true,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelHypatia"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "interfaces",
-    name: "Interfaces",
-    kind: "bridge",
-    version: "1.0.0",
-    summary: "Language bridges, ABI/FFI inventory",
-    longDescription: "Filesystem scanning of ABI/FFI bindings across the ecosystem.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: false,
-      hasWorkItems: false,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelInterfaces"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "level-architect",
-    name: "Level Architect",
-    kind: "builder",
-    version: "1.0.0",
-    summary: "Visual level design for IDApTIK",
-    longDescription: "Device placement, guard patrols, defence flags, validation, LevelConfig export.",
-    traits: {
-      hasPersistence: true,
-      hasBackend: true,
-      hasWorkItems: true,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelLevelArchitect"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "mass-panic",
-    name: "Mass Panic",
-    kind: "scanner",
-    version: "1.0.0",
-    summary: "Organisation-scale batch scanning",
-    longDescription: "Assemblyline + BLAKE3 + VeriSimDB + delta scanning across entire orgs.",
-    traits: {
-      hasPersistence: true,
-      hasBackend: true,
-      hasWorkItems: true,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelMassPanic"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: Some("scanner"),
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: ["panic-attack"],
-  },
-  {
-    id: "migration",
-    name: "Migration",
-    kind: "meta",
-    version: "1.0.0",
-    summary: "ReScript Migration Observatory",
-    longDescription: "Health tracking, sessions, submissions, merge resolution for ReScript migration.",
-    traits: {
-      hasPersistence: true,
-      hasBackend: true,
-      hasWorkItems: true,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelMigration"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "minter",
-    name: "Minter",
-    kind: "builder",
-    version: "1.0.0",
-    summary: "Panel creation wizard — generate panel modules from templates",
-    longDescription: "Scaffolds new panel modules with TEA wiring, clade assignment, and accessibility.",
-    traits: {
-      hasPersistence: true,
-      hasBackend: true,
-      hasWorkItems: true,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelMinter"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "multiplayer-monitor",
-    name: "Multiplayer Monitor",
-    kind: "network",
-    version: "1.0.0",
-    summary: "Elixir/Phoenix sync server monitor",
-    longDescription: "WebSocket channels, player state, Lamport clocks, latency monitoring.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: true,
-      hasWorkItems: false,
-      hasRealTime: true,
-      isAmbient: false,
-    },
-    panelIds: ["PanelMultiplayerMonitor"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "network-topology",
-    name: "Network Topology",
-    kind: "network",
-    version: "1.0.0",
-    summary: "Force-directed graph of IDApTIK in-game network",
-    longDescription: "Devices, zones, security levels, packet flow visualisation.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: true,
-      hasWorkItems: false,
-      hasRealTime: true,
-      isAmbient: false,
-    },
-    panelIds: ["PanelNetworkTopology"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "panic-attack",
-    name: "panic-attack",
-    kind: "scanner",
-    version: "1.0.0",
-    summary: "Stress testing and logic-based bug signature detection",
-    longDescription: "47 languages, 20 categories, assault reports, ambush mode.",
-    traits: {
-      hasPersistence: true,
-      hasBackend: true,
-      hasWorkItems: true,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelPanicAttack"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: Some("scanner"),
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: ["mass-panic"],
-  },
-  {
-    id: "playgrounds",
-    name: "Playgrounds",
-    kind: "terminal",
-    version: "1.0.0",
-    summary: "Code sandbox, NQC console, tutorials",
-    longDescription: "Interactive code playground with NQC database console integration.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: true,
-      hasWorkItems: false,
-      hasRealTime: true,
-      isAmbient: false,
-    },
-    panelIds: ["PanelPlaygrounds"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "plaza",
-    name: "Palimpsest Plaza",
-    kind: "meta",
-    version: "1.0.0",
-    summary: "PMPL license adoption, compliance, and governance",
-    longDescription: "License scanning, compliance checking, and PMPL governance hub.",
-    traits: {
-      hasPersistence: true,
-      hasBackend: false,
-      hasWorkItems: true,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelPlaza"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "provisioner",
-    name: "Provisioner",
-    kind: "loader",
-    version: "1.0.0",
-    summary: "Portfolio bundles, panel configuration, isolation tiers",
-    longDescription: "Manages panel portfolios, configuration, and container isolation.",
-    traits: {
-      hasPersistence: true,
-      hasBackend: false,
-      hasWorkItems: true,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelProvisioner"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "release-manager",
-    name: "Release Manager",
-    kind: "builder",
-    version: "1.0.0",
-    summary: "Versioning, changelog, signing, distribution",
-    longDescription: "Release pipeline with artifact building, signing, and distribution.",
-    traits: {
-      hasPersistence: true,
-      hasBackend: true,
-      hasWorkItems: true,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelReleaseManager"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "repoloader",
-    name: "Repo Loader",
-    kind: "loader",
-    version: "1.0.0",
-    summary: "Repository scanner and panel configuration",
-    longDescription: "Scans repos, reads manifests, configures panels for loaded projects.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: true,
-      hasWorkItems: false,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelRepoLoader"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "reposystem",
-    name: "Reposystem",
-    kind: "meta",
-    version: "1.0.0",
-    summary: "RSR compliance and template management",
-    longDescription: "Rhodium Standard Repository compliance checking and template scaffolding.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: false,
-      hasWorkItems: true,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelReposystem"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "security",
-    name: "Security",
-    kind: "scanner",
-    version: "1.0.0",
-    summary: "Secrets redaction, vault, 2FA, Trustfile enforcement",
-    longDescription: "Security panel with shoulder-safe mode, secrets vault, and Trustfile enforcement.",
-    traits: {
-      hasPersistence: true,
-      hasBackend: true,
-      hasWorkItems: false,
-      hasRealTime: false,
-      isAmbient: true,
-    },
-    panelIds: ["PanelSecurity"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "tsdm",
-    name: "TSDM",
-    kind: "directive",
-    version: "1.0.0",
-    summary: "Triaxial Software Development Methodology",
-    longDescription: "Priority ordering directive panel across all panels using triaxial methodology.",
-    traits: {
-      hasPersistence: true,
-      hasBackend: false,
-      hasWorkItems: true,
-      hasRealTime: false,
-      isAmbient: true,
-    },
-    panelIds: ["PanelTsdm"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "vab",
-    name: "VAB",
-    kind: "builder",
-    version: "1.0.0",
-    summary: "Verified Assembly Building — server component composer",
-    longDescription: "Compose and verify server components with formal validation.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: false,
-      hasWorkItems: true,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelVab"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "valence-shell",
-    name: "Valence Shell",
-    kind: "terminal",
-    version: "1.0.0",
-    summary: "Embedded terminal with Claude Code, session recording, reversible ops",
-    longDescription: "Full terminal with PTY, Claude Code integration, collaborative approval gate.",
-    traits: {
-      hasPersistence: true,
-      hasBackend: true,
-      hasWorkItems: false,
-      hasRealTime: true,
-      isAmbient: false,
-    },
-    panelIds: ["PanelValenceShell"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "vm-inspector",
-    name: "VM Inspector",
-    kind: "viewer",
-    version: "1.0.0",
-    summary: "Reversible VM visual debugger",
-    longDescription: "Stack, memory, instructions with step-forward and step-backward capability.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: true,
-      hasWorkItems: false,
-      hasRealTime: true,
-      isAmbient: false,
-    },
-    panelIds: ["PanelVmInspector"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "voicetag",
-    name: "Code MRI",
-    kind: "viewer",
-    version: "1.0.0",
-    summary: "Voice-activated code annotation — .mri.json sidecars",
-    longDescription: "Tag code with voice annotations stored as portable JSON sidecar files.",
-    traits: {
-      hasPersistence: true,
-      hasBackend: false,
-      hasWorkItems: false,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelVoiceTag"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "workspace",
-    name: "Workspace",
-    kind: "meta",
-    version: "1.0.0",
-    summary: "Panel arrangements, groups, sessions, modes, configurator",
-    longDescription: "Manages panel layouts, session persistence, and workspace configuration.",
-    traits: {
-      hasPersistence: true,
-      hasBackend: true,
-      hasWorkItems: false,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelWorkspace"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "protocol-squisher",
-    name: "Protocol-Squisher",
-    kind: "scanner",
-    version: "1.0.0",
-    summary: "13-format schema analysis — transport class classification and compatibility",
-    longDescription: "Analyses serialisation schemas across Protobuf, Avro, FlatBuffers, Cap'n Proto, Thrift, MessagePack, Bebop, JSON Schema, GraphQL, TOML, Rust, ReScript, Python. Classifies transport classes (Concorde/Business/Economy/Wheelbarrow) and compares compatibility.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: true,
-      hasWorkItems: false,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelProtocolSquisher"],
-    consumedBy: ["boj"],
-    supersedes: [],
-    parentCladeId: Some("scanner"),
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: ["aerie", "interfaces"],
-  },
-  {
-    id: "my-lang",
-    name: "My-Lang",
-    kind: "builder",
-    version: "1.0.0",
-    summary: "AI-native language workbench — 4 dialects, REPL, compiler",
-    longDescription: "Development environment for my-lang with Solo (systems), Duet (AI-assisted), Ensemble (AI-native), Me (personal agent) dialects. Includes code editor, REPL, and compilation output.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: true,
-      hasWorkItems: false,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelMyLang"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: ["build-dashboard", "editor-bridge"],
-  },
-  {
-    id: "typell",
-    name: "TypeLL — Verification Kernel",
-    kind: "ai",
-    version: "1.0.0",
-    summary: "Cross-panel type intelligence — dependent, linear, affine, session, refinement types",
-    longDescription: "PanLL's verification backbone. Provides type checking, inference, refinement, and proof obligation generation to every panel. Progressive disclosure (RAW/FOLDED/GLYPHED/WYSIWYG) from rescript-evangeliser makes advanced type systems accessible.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: true,
-      hasWorkItems: false,
-      hasRealTime: true,
-      isAmbient: true,
-    },
-    panelIds: ["PanelTypeLL"],
-    consumedBy: ["databases", "protocol-squisher", "my-lang", "boj", "playgrounds"],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: ["ai", "clade-tentacles"],
-  },
-  {
-    id: "echidna",
-    name: "ECHIDNA",
-    kind: "ai",
-    version: "1.0.0",
-    summary: "ECHIDNA multi-solver theorem prover — proof dispatch, tactic suggestions, enterprise model checking",
-    longDescription: "Multi-solver theorem prover integrating proof dispatch, automated tactic suggestions, and enterprise-grade model checking across multiple backends.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: true,
-      hasWorkItems: false,
-      hasRealTime: true,
-      isAmbient: false,
-    },
-    panelIds: ["PanelEchidna"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: ["typell", "ai"],
-  },
-  {
-    id: "help",
-    name: "Help",
-    kind: "meta",
-    version: "1.0.0",
-    summary: "In-application help system with context-sensitive guides, glossary, and onboarding",
-    longDescription: "Context-sensitive help overlay with searchable glossary, onboarding walkthroughs, and per-panel guidance.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: false,
-      hasWorkItems: false,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelHelp"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "accessibility",
-    name: "Accessibility",
-    kind: "meta",
-    version: "1.0.0",
-    summary: "Centralised accessibility toolbar — colour palettes, font size, animation, focus indicators",
-    longDescription: "Global accessibility controls including high-contrast colour palettes, font scaling, reduced motion, focus indicator customisation, and screen reader hints.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: false,
-      hasWorkItems: false,
-      hasRealTime: false,
-      isAmbient: true,
-    },
-    panelIds: [],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: ["workspace"],
-  },
-  {
-    id: "menu-bar",
-    name: "Menu Bar",
-    kind: "meta",
-    version: "1.0.0",
-    summary: "Standard application menu bar — File, Edit, View, Panel, Tools, Help",
-    longDescription: "Top-level application menu with keyboard navigation, command palette integration, and dynamic menu items contributed by loaded panels.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: false,
-      hasWorkItems: false,
-      hasRealTime: false,
-      isAmbient: true,
-    },
-    panelIds: [],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: ["workspace"],
-  },
-  {
-    id: "status-bar",
-    name: "Status Bar",
-    kind: "meta",
-    version: "1.0.0",
-    summary: "VS Code-style status bar with configurable widgets",
-    longDescription: "Bottom status bar with configurable widget slots for build status, git branch, language mode, encoding, notifications, and panel-contributed indicators.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: false,
-      hasWorkItems: false,
-      hasRealTime: false,
-      isAmbient: true,
-    },
-    panelIds: [],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: ["workspace"],
-  },
-  {
-    id: "vexometer",
-    name: "Vexometer",
-    kind: "viewer",
-    version: "1.0.0",
-    summary: "Cognitive load meter — Friction of Things index with anti-inflammatory mode",
-    longDescription: "Ambient cognitive load gauge tracking Friction of Things index across all panels. Anti-inflammatory mode automatically reduces complexity when cognitive load exceeds thresholds.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: false,
-      hasWorkItems: false,
-      hasRealTime: true,
-      isAmbient: true,
-    },
-    panelIds: [],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: ["accessibility"],
-  },
-  {
-    id: "provenance",
-    name: "Provenance",
-    kind: "scanner",
-    version: "1.0.0",
-    summary: "Qubes-style code trust surface — ambient provenance map",
-    longDescription: "Ambient provenance overlay showing trust levels for code and dependencies using a Qubes-inspired colour-coded trust surface.",
-    traits: {
-      hasPersistence: true,
-      hasBackend: false,
-      hasWorkItems: false,
-      hasRealTime: false,
-      isAmbient: true,
-    },
-    panelIds: [],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: ["security", "panic-attack"],
-  },
-  {
-    id: "feedback",
-    name: "Feedback-O-Tron",
-    kind: "meta",
-    version: "1.0.0",
-    summary: "Feedback-O-Tron — user feedback aggregation and sentiment analysis",
-    longDescription: "Collects user feedback from in-app prompts and external channels, aggregates sentiment analysis, and surfaces actionable insights.",
-    traits: {
-      hasPersistence: true,
-      hasBackend: false,
-      hasWorkItems: false,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: [],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: [],
-  },
-  {
-    id: "keybindings",
-    name: "Keybindings",
-    kind: "meta",
-    version: "1.0.0",
-    summary: "Customisable keyboard shortcuts system",
-    longDescription: "Central keyboard shortcut registry with conflict detection, per-panel keymaps, vim/emacs presets, and exportable configuration.",
-    traits: {
-      hasPersistence: true,
-      hasBackend: false,
-      hasWorkItems: false,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: [],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: ["workspace", "accessibility"],
-  },
-  {
-    id: "tiling",
-    name: "Tiling",
-    kind: "meta",
-    version: "1.0.0",
-    summary: "Multi-monitor panel detachment and Aero-style snap zones",
-    longDescription: "Panel layout engine supporting multi-monitor detachment, snap zones, split views, and serialisable tiling configurations.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: false,
-      hasWorkItems: false,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: [],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: ["workspace"],
-  },
-  {
-    id: "focus-dimming",
-    name: "Focus Dimming",
-    kind: "meta",
-    version: "1.0.0",
-    summary: "Focus-aware panel dimming and Smart Memory Mode",
-    longDescription: "Ambient focus system that dims inactive panels and activates Smart Memory Mode to reduce resource usage for off-screen or background panels.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: false,
-      hasWorkItems: false,
-      hasRealTime: false,
-      isAmbient: true,
-    },
-    panelIds: [],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: ["workspace", "accessibility"],
-  },
-  {
-    id: "clade-browser",
-    name: "Clade Browser",
-    kind: "meta",
-    version: "1.0.0",
-    summary: "Panel taxonomy explorer — clades, traits, kind filtering, panel mapping",
-    longDescription: "Explore and customise the PanLL clade taxonomy, inspect trait inheritance chains, filter by kind, and see panel-to-clade assignments.",
-    traits: {
-      hasPersistence: false,
-      hasBackend: false,
-      hasWorkItems: false,
-      hasRealTime: false,
-      isAmbient: false,
-    },
-    panelIds: ["PanelCladeBrowser"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [],
-    capabilities: [],
-    requires: [],
-    enhances: [],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: ["workspace", "minter"],
-  },
-  {
-    id: "observatory",
-    name: "Observatory",
-    kind: "viewer",
-    version: "1.0.0",
-    summary: "Integrative dashboard — cross-panel health, service status, resource usage",
-    longDescription: "Unified operational dashboard aggregating health, connection status, resource usage, and ambient metrics across all panels. Shows service connectivity, memory/CPU budgets, and panel activity.",
-    traits: {
-      hasPersistence: true,
-      hasBackend: true,
-      hasWorkItems: false,
-      hasRealTime: true,
-      isAmbient: true,
-    },
-    panelIds: ["PanelObservatory"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: None,
-    protocols: [ProtoGossamerIPC],
-    capabilities: [CapVisualisation, CapStreaming],
-    requires: [],
-    enhances: ["workspace", "provisioner", "focus-dimming"],
-    isolation: IsolationSoft,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: ["build-dashboard", "workspace"],
-  },
-  {
-    id: "ambientops",
-    name: "AmbientOps",
-    kind: "network",
-    version: "1.0.0",
-    summary: "Hospital-model sysadmin — clinician, network ambulance, hardware crash team",
-    longDescription: "Integrates the AmbientOps hospital-model operations framework: AI-assisted clinician (Rust), network ambulance (Ada/SPARK + bash), hardware crash team (Rust), emergency room (V), observatory (Elixir). Evidence Envelope pipeline for diagnostics and repairs.",
-    traits: {
-      hasPersistence: true,
-      hasBackend: true,
-      hasWorkItems: true,
-      hasRealTime: true,
-      isAmbient: false,
-    },
-    panelIds: ["PanelAmbientOps"],
-    consumedBy: [],
-    supersedes: [],
-    parentCladeId: Some("network"),
-    protocols: [ProtoGossamerIPC, ProtoREST],
-    capabilities: [CapProcessSpawn, CapFilesystem, CapNetwork],
-    requires: [],
-    enhances: ["aerie", "security", "observatory"],
-    isolation: IsolationProcess,
-    signing: SigningNone,
-    sbom: None,
-    sandbox: None,
-    siblingClades: ["aerie", "cloudguard"],
-  },
-]
-
-// ════════════════════════════════════════════════════════════════════════
-// Clade Inheritance Engine
-// ════════════════════════════════════════════════════════════════════════
-//
-// Resolves trait inheritance: a child clade inherits all traits from its
-// parent clade, then applies its own overrides. The merge rule is:
-//   inherited_trait = parent_trait OR child_trait
-// (a clade gains capabilities from its parent, never loses them).
-
-/// Find a clade by ID in the registry.
-let findClade = (clades: array<cladeEntry>, id: string): option<cladeEntry> => {
-  clades->Array.find(c => c.id == id)
-}
-
-/// Merge two trait sets. OR semantics: a trait is true if either parent or child has it.
-let mergeTraits = (parent: cladeTraits, child: cladeTraits): cladeTraits => {
-  {
-    hasPersistence: parent.hasPersistence || child.hasPersistence,
-    hasBackend: parent.hasBackend || child.hasBackend,
-    hasWorkItems: parent.hasWorkItems || child.hasWorkItems,
-    hasRealTime: parent.hasRealTime || child.hasRealTime,
-    isAmbient: parent.isAmbient || child.isAmbient,
-  }
-}
-
-/// Resolve the effective traits for a clade, walking the parent chain.
-/// Uses a visited set (as array of IDs) to prevent cycles.
-let rec resolveTraitsRec = (
-  clades: array<cladeEntry>,
-  clade: cladeEntry,
-  visited: array<string>,
-): cladeTraits => {
-  // Cycle detection.
-  if visited->Array.some(v => v == clade.id) {
-    clade.traits
-  } else {
-    switch clade.parentCladeId {
-    | None => clade.traits
-    | Some(parentId) =>
-      switch findClade(clades, parentId) {
-      | None => clade.traits
-      | Some(parent) =>
-        let parentTraits = resolveTraitsRec(clades, parent, Array.concat(visited, [clade.id]))
-        mergeTraits(parentTraits, clade.traits)
-      }
-    }
-  }
-}
-
-/// Public API: resolve the effective traits for a clade by ID.
-let resolveTraits = (clades: array<cladeEntry>, cladeId: string): option<cladeTraits> => {
-  switch findClade(clades, cladeId) {
-  | None => None
-  | Some(clade) => Some(resolveTraitsRec(clades, clade, []))
-  }
-}
-
-/// Get the inheritance chain for a clade (child → parent → grandparent → ...).
-let rec inheritanceChain = (
-  clades: array<cladeEntry>,
-  cladeId: string,
-  visited: array<string>,
-): array<string> => {
-  if visited->Array.some(v => v == cladeId) {
-    [] // cycle
-  } else {
-    switch findClade(clades, cladeId) {
-    | None => []
-    | Some(clade) =>
-      switch clade.parentCladeId {
-      | None => [cladeId]
-      | Some(parentId) =>
-        Array.concat(
-          [cladeId],
-          inheritanceChain(clades, parentId, Array.concat(visited, [cladeId])),
-        )
-      }
-    }
-  }
-}
-
-/// Get the inheritance chain as a display string (e.g. "boj → bridge").
-let inheritanceLabel = (clades: array<cladeEntry>, cladeId: string): string => {
-  let chain = inheritanceChain(clades, cladeId, [])
-  chain->Array.join(" -> ")
-}
-
-/// Check if one clade is an ancestor of another.
-let isAncestor = (clades: array<cladeEntry>, ancestorId: string, descendantId: string): bool => {
-  let chain = inheritanceChain(clades, descendantId, [])
-  chain->Array.some(id => id == ancestorId) && ancestorId != descendantId
-}
-
-/// Count clades that have a parent (i.e., participate in inheritance).
-let countWithParent = (clades: array<cladeEntry>): int => {
-  clades->Array.filter(c => c.parentCladeId != None)->Array.length
-}
-
-/// Get all root clades (no parent).
-let rootClades = (clades: array<cladeEntry>): array<cladeEntry> => {
-  clades->Array.filter(c => c.parentCladeId == None)
-}
-
-/// Get all children of a given clade.
-let childrenOf = (clades: array<cladeEntry>, parentId: string): array<cladeEntry> => {
-  clades->Array.filter(c => c.parentCladeId == Some(parentId))
-}
-
-// ════════════════════════════════════════════════════════════════════════
-// Clade Permission System
-// ════════════════════════════════════════════════════════════════════════
-//
-// Determines whether one clade may cross-reference another. Used by the
-// Panel Bus and GovernanceEngine to gate cross-panel event delivery.
-
-/// Look up the permission rule for a target clade.
-let findPermissionRule = (rules: array<cladePermissionRule>, targetCladeId: string): option<
-  cladePermissionRule,
-> => {
-  rules->Array.find(r => r.targetCladeId == targetCladeId)
-}
-
-/// Check if a source clade is allowed to reference a target clade.
-/// Default (no rule): PermitAll — open by default.
-let canReference = (
-  rules: array<cladePermissionRule>,
-  sourceCladeId: string,
-  targetCladeId: string,
-): bool => {
-  // A clade can always reference itself.
-  if sourceCladeId == targetCladeId {
-    true
-  } else {
-    switch findPermissionRule(rules, targetCladeId) {
-    | None => true // No rule = open access
-    | Some({permission: PermitAll}) => true
-    | Some({permission: PermitNone}) => false
-    | Some({permission: PermitOnly(allowed)}) => allowed->Array.some(id => id == sourceCladeId)
-    }
-  }
-}
-
-/// Check if a source panel (by panelId string) can reference a target
-/// panel, resolving both to their clade IDs first.
-let canPanelReference = (
-  clades: array<cladeEntry>,
-  rules: array<cladePermissionRule>,
-  sourcePanelId: string,
-  targetPanelId: string,
-): bool => {
-  // Find the clade for each panel.
-  let sourceCladeId =
-    clades
-    ->Array.find(c => c.panelIds->Array.some(p => p == sourcePanelId))
-    ->Option.map(c => c.id)
-  let targetCladeId =
-    clades
-    ->Array.find(c => c.panelIds->Array.some(p => p == targetPanelId))
-    ->Option.map(c => c.id)
-
-  switch (sourceCladeId, targetCladeId) {
-  | (Some(src), Some(tgt)) => canReference(rules, src, tgt)
-  | _ => true // Unknown panels default to open
-  }
-}
-
-/// Add or update a permission rule for a target clade.
-let setPermission = (
-  rules: array<cladePermissionRule>,
-  targetCladeId: string,
-  permission: cladePermission,
-): array<cladePermissionRule> => {
-  let exists = rules->Array.some(r => r.targetCladeId == targetCladeId)
-  if exists {
-    rules->Array.map(r =>
-      if r.targetCladeId == targetCladeId {
-        {...r, permission}
-      } else {
-        r
-      }
-    )
-  } else {
-    Array.concat(rules, [{targetCladeId, permission}])
-  }
-}
-
-/// Remove a permission rule (reverts to default PermitAll behaviour).
-let removePermission = (rules: array<cladePermissionRule>, targetCladeId: string): array<
-  cladePermissionRule,
-> => {
-  rules->Array.filter(r => r.targetCladeId != targetCladeId)
-}
-
-/// Default permission rules. Security-sensitive clades are restricted.
-let defaultPermissionRules: array<cladePermissionRule> = [
-  // Security panel: only scanners, meta, and ai clades may reference it.
-  {
-    targetCladeId: "security",
-    permission: PermitOnly([
-      "panic-attack",
-      "mass-panic",
-      "fleet",
-      "hypatia",
-      "workspace",
-      "ai",
-      "typell",
-    ]),
-  },
-  // Valence Shell: restricted to avoid accidental terminal access.
-  {
-    targetCladeId: "valence-shell",
-    permission: PermitOnly(["workspace", "automation-router", "editor-bridge", "ai"]),
-  },
-]
-
-// ════════════════════════════════════════════════════════════════════════
-// Tier 1 Enrichment — assign real protocols, capabilities, dependencies,
-// and isolation levels to specific clades.
-// ════════════════════════════════════════════════════════════════════════
-
-/// Enrich a base clade with its real Tier 1 metadata.
-let enrichClade = (entry: cladeEntry): cladeEntry =>
-  switch entry.id {
-  | "boj" =>
-    withDefaults(
-      ~protocols=[ProtoREST, ProtoGRPC, ProtoGraphQL, ProtoMCP, ProtoGossamerIPC],
-      ~capabilities=[CapNetwork, CapProcessSpawn, CapStreaming],
-      ~enhances=["aerie", "ai", "databases"],
-      ~isolation=IsolationProcess,
-      entry,
-    )
-  | "typell" =>
-    withDefaults(
-      ~protocols=[ProtoGossamerIPC, ProtoStdio],
-      ~capabilities=[CapTypeChecking, CapProofProduction, CapProofConsumption, CapStreaming],
-      ~enhances=["databases", "protocol-squisher", "my-lang", "playgrounds"],
-      entry,
-    )
-  | "editor-bridge" =>
-    withDefaults(
-      ~protocols=[ProtoLSP, ProtoDAP, ProtoStdio],
-      ~capabilities=[CapNetwork, CapProcessSpawn],
-      ~enhances=["my-lang", "playgrounds"],
-      ~isolation=IsolationProcess,
-      entry,
-    )
-  | "ai" =>
-    withDefaults(
-      ~protocols=[ProtoREST, ProtoSSE, ProtoWebSocket, ProtoMCP],
-      ~capabilities=[CapNetwork, CapStreaming],
-      ~isolation=IsolationProcess,
-      entry,
-    )
-  | "hypatia" =>
-    withDefaults(
-      ~protocols=[ProtoREST, ProtoSSE],
-      ~capabilities=[CapNetwork, CapSecurityScan, CapProofProduction],
-      ~enhances=["fleet", "farm"],
-      ~isolation=IsolationProcess,
-      entry,
-    )
-  | "valence-shell" =>
-    withDefaults(
-      ~protocols=[ProtoGossamerIPC, ProtoStdio],
-      ~capabilities=[CapShell, CapProcessSpawn, CapFilesystem, CapClipboard, CapSessionRecording],
-      ~isolation=IsolationContainer,
-      ~sandbox=Some({
-        allowedCapabilities: [
-          CapShell,
-          CapProcessSpawn,
-          CapFilesystem,
-          CapClipboard,
-          CapSessionRecording,
-        ],
-        networkRateLimit: None,
-        fsAllowedPaths: ["$HOME", "/tmp"],
-        processApprovalRequired: true,
-      }),
-      entry,
-    )
-  | "databases" =>
-    withDefaults(
-      ~protocols=[ProtoREST, ProtoGraphQL, ProtoGossamerIPC],
-      ~capabilities=[CapNetwork, CapFilesystem, CapStreaming],
-      ~isolation=IsolationProcess,
-      entry,
-    )
-  | "protocol-squisher" =>
-    withDefaults(
-      ~protocols=[ProtoGossamerIPC, ProtoStdio],
-      ~capabilities=[CapTypeChecking, CapSecurityScan],
-      ~enhances=["boj", "interfaces"],
-      entry,
-    )
-  | "my-lang" =>
-    withDefaults(
-      ~protocols=[ProtoLSP, ProtoGossamerIPC, ProtoStdio],
-      ~capabilities=[CapFilesystem, CapProcessSpawn, CapTypeChecking],
-      ~isolation=IsolationProcess,
-      entry,
-    )
-  | "panic-attack" =>
-    withDefaults(
-      ~protocols=[ProtoGossamerIPC, ProtoStdio],
-      ~capabilities=[CapFilesystem, CapProcessSpawn, CapSecurityScan],
-      ~enhances=["security"],
-      ~isolation=IsolationContainer,
-      ~sandbox=Some({
-        allowedCapabilities: [CapFilesystem, CapProcessSpawn, CapSecurityScan],
-        networkRateLimit: None,
-        fsAllowedPaths: ["$PROJECT"],
-        processApprovalRequired: false,
-      }),
-      entry,
-    )
-  | "mass-panic" =>
-    withDefaults(
-      ~protocols=[ProtoREST, ProtoGossamerIPC],
-      ~capabilities=[CapFilesystem, CapNetwork, CapProcessSpawn, CapSecurityScan, CapContainerised],
-      ~requires=[{cladeId: "panic-attack", required: true, reason: "Core scanning engine"}],
-      ~enhances=["security", "farm"],
-      ~isolation=IsolationContainer,
-      ~sandbox=Some({
-        allowedCapabilities: [
-          CapFilesystem,
-          CapNetwork,
-          CapProcessSpawn,
-          CapSecurityScan,
-          CapContainerised,
-        ],
-        networkRateLimit: Some(100),
-        fsAllowedPaths: ["$PROJECT", "/tmp/panll/scans"],
-        processApprovalRequired: false,
-      }),
-      entry,
-    )
-  | "security" =>
-    withDefaults(
-      ~protocols=[ProtoGossamerIPC],
-      ~capabilities=[CapSecretManagement, CapSecurityScan, CapClipboard],
-      ~isolation=IsolationProcess,
-      entry,
-    )
-  | "automation-router" =>
-    withDefaults(
-      ~protocols=[ProtoGossamerIPC, ProtoWebSocket],
-      ~capabilities=[CapStreaming],
-      ~enhances=["workspace", "fleet"],
-      entry,
-    )
-  | "aerie" =>
-    withDefaults(
-      ~protocols=[ProtoREST, ProtoWebSocket, ProtoGossamerIPC],
-      ~capabilities=[CapNetwork, CapVisualisation],
-      ~enhances=["cloudguard", "network-topology"],
-      ~isolation=IsolationProcess,
-      entry,
-    )
-  | "cloudguard" =>
-    withDefaults(
-      ~protocols=[ProtoREST, ProtoGossamerIPC],
-      ~capabilities=[CapNetwork, CapSecretManagement],
-      ~enhances=["aerie"],
-      ~isolation=IsolationProcess,
-      entry,
-    )
-  | "fleet" =>
-    withDefaults(
-      ~protocols=[ProtoREST, ProtoWebSocket, ProtoGossamerIPC],
-      ~capabilities=[CapNetwork, CapProcessSpawn],
-      ~enhances=["farm", "hypatia"],
-      ~isolation=IsolationProcess,
-      entry,
-    )
-  | "farm" => withDefaults(~protocols=[ProtoGossamerIPC], ~capabilities=[CapFilesystem], entry)
-  | "playgrounds" =>
-    withDefaults(
-      ~protocols=[ProtoGossamerIPC, ProtoStdio],
-      ~capabilities=[CapProcessSpawn, CapShell, CapStreaming],
-      ~isolation=IsolationContainer,
-      ~sandbox=Some({
-        allowedCapabilities: [CapProcessSpawn, CapShell, CapStreaming],
-        networkRateLimit: Some(50),
-        fsAllowedPaths: ["/tmp/panll/playgrounds"],
-        processApprovalRequired: false,
-      }),
-      entry,
-    )
-  | "workspace" =>
-    withDefaults(
-      ~protocols=[ProtoGossamerIPC],
-      ~capabilities=[CapFilesystem, CapSessionRecording],
-      entry,
-    )
-  | "capture" =>
-    withDefaults(
-      ~protocols=[ProtoGossamerIPC],
-      ~capabilities=[CapFilesystem, CapClipboard, CapVisualisation, CapSessionRecording],
-      ~enhances=["workspace"],
-      entry,
-    )
-  | "game-preview" =>
-    withDefaults(
-      ~protocols=[ProtoGossamerIPC, ProtoWebSocket],
-      ~capabilities=[CapStreaming, CapVisualisation],
-      ~enhances=["vm-inspector", "level-architect"],
-      ~isolation=IsolationProcess,
-      entry,
-    )
-  | "vm-inspector" =>
-    withDefaults(
-      ~protocols=[ProtoDAP, ProtoGossamerIPC],
-      ~capabilities=[CapVisualisation, CapStreaming],
-      ~enhances=["game-preview"],
-      ~isolation=IsolationProcess,
-      entry,
-    )
-  | "level-architect" =>
-    withDefaults(
-      ~protocols=[ProtoGossamerIPC],
-      ~capabilities=[CapFilesystem, CapVisualisation],
-      ~enhances=["game-preview"],
-      entry,
-    )
-  | "network-topology" =>
-    withDefaults(
-      ~protocols=[ProtoGossamerIPC, ProtoWebSocket],
-      ~capabilities=[CapVisualisation, CapStreaming],
-      ~enhances=["game-preview"],
-      entry,
-    )
-  | "multiplayer-monitor" =>
-    withDefaults(
-      ~protocols=[ProtoWebSocket, ProtoGossamerIPC],
-      ~capabilities=[CapNetwork, CapStreaming, CapVisualisation],
-      ~isolation=IsolationProcess,
-      entry,
-    )
-  | "build-dashboard" =>
-    withDefaults(
-      ~protocols=[ProtoBSP, ProtoGossamerIPC],
-      ~capabilities=[CapProcessSpawn, CapFilesystem],
-      ~enhances=["my-lang", "release-manager"],
-      entry,
-    )
-  | "release-manager" =>
-    withDefaults(
-      ~protocols=[ProtoREST, ProtoGossamerIPC],
-      ~capabilities=[CapFilesystem, CapNetwork, CapProcessSpawn],
-      ~enhances=["build-dashboard"],
-      ~isolation=IsolationProcess,
-      entry,
-    )
-  | "minter" => withDefaults(~protocols=[ProtoGossamerIPC], ~capabilities=[CapFilesystem], entry)
-  | "interfaces" =>
-    withDefaults(
-      ~protocols=[ProtoGossamerIPC],
-      ~capabilities=[CapFilesystem],
-      ~enhances=["boj", "protocol-squisher"],
-      entry,
-    )
-  | "repoloader" =>
-    withDefaults(
-      ~protocols=[ProtoGossamerIPC],
-      ~capabilities=[CapFilesystem],
-      ~enhances=["farm"],
-      entry,
-    )
-  | "tsdm" => withDefaults(~protocols=[ProtoGossamerIPC], entry)
-  | "vab" =>
-    withDefaults(
-      ~protocols=[ProtoGossamerIPC],
-      ~capabilities=[CapFilesystem, CapProcessSpawn],
-      ~enhances=["build-dashboard"],
-      ~isolation=IsolationProcess,
-      entry,
-    )
-  | "voicetag" => withDefaults(~protocols=[ProtoGossamerIPC], ~capabilities=[CapFilesystem], entry)
-  | "coprocessors" =>
-    withDefaults(
-      ~protocols=[ProtoGossamerIPC, ProtoWebSocket],
-      ~capabilities=[CapStreaming, CapVisualisation],
-      ~enhances=["game-preview", "vm-inspector"],
-      ~isolation=IsolationProcess,
-      entry,
-    )
-  | "dlc-workshop" =>
-    withDefaults(
-      ~protocols=[ProtoGossamerIPC],
-      ~capabilities=[CapFilesystem, CapVisualisation],
-      ~enhances=["game-preview", "level-architect"],
-      entry,
-    )
-  | "ums" =>
-    withDefaults(
-      ~protocols=[ProtoGossamerIPC, ProtoREST],
-      ~capabilities=[CapFilesystem, CapVisualisation, CapProofProduction, CapTypeChecking],
-      ~enhances=["level-architect", "dlc-workshop", "game-preview", "vm-inspector"],
-      ~requires=[
-        {
-          cladeId: "level-architect",
-          required: true,
-          reason: "UMS validates levels via Level Architect's Idris2 ABI",
-        },
-      ],
-      entry,
-    )
-  | "plaza" =>
-    withDefaults(
-      ~protocols=[ProtoREST, ProtoGossamerIPC],
-      ~capabilities=[CapNetwork, CapFilesystem],
-      ~enhances=["reposystem", "farm"],
-      entry,
-    )
-  | "provisioner" =>
-    withDefaults(
-      ~protocols=[ProtoGossamerIPC],
-      ~capabilities=[CapFilesystem],
-      ~enhances=["minter", "workspace"],
-      entry,
-    )
-  | "reposystem" =>
-    withDefaults(
-      ~protocols=[ProtoGossamerIPC, ProtoREST],
-      ~capabilities=[CapFilesystem, CapSecurityScan],
-      ~enhances=["farm", "fleet"],
-      entry,
-    )
-  | "migration" =>
-    withDefaults(
-      ~protocols=[ProtoGossamerIPC, ProtoLSP],
-      ~capabilities=[CapFilesystem, CapTypeChecking],
-      ~enhances=["editor-bridge", "build-dashboard"],
-      entry,
-    )
-  | "echidna" =>
-    withDefaults(
-      ~protocols=[ProtoREST, ProtoGRPC, ProtoGossamerIPC, ProtoStdio],
-      ~capabilities=[CapProofProduction, CapProofConsumption, CapTypeChecking, CapStreaming],
-      ~isolation=IsolationProcess,
-      ~requires=[
-        {
-          cladeId: "databases",
-          required: false,
-          reason: "VeriSimDB backing store for proof certificates",
-        },
-      ],
-      ~enhances=["typell", "databases"],
-      entry,
-    )
-  | "help" => withDefaults(~protocols=[ProtoGossamerIPC], entry)
-  | "accessibility" => withDefaults(~protocols=[ProtoGossamerIPC], ~enhances=["workspace"], entry)
-  | "menu-bar" =>
-    withDefaults(~protocols=[ProtoGossamerIPC], ~enhances=["workspace", "keybindings"], entry)
-  | "status-bar" =>
-    withDefaults(
-      ~protocols=[ProtoGossamerIPC],
-      ~capabilities=[CapStreaming],
-      ~enhances=["workspace", "build-dashboard"],
-      entry,
-    )
-  | "vexometer" =>
-    withDefaults(
-      ~protocols=[ProtoGossamerIPC],
-      ~capabilities=[CapStreaming, CapVisualisation],
-      ~enhances=["accessibility", "workspace"],
-      entry,
-    )
-  | "provenance" =>
-    withDefaults(
-      ~protocols=[ProtoGossamerIPC, ProtoREST],
-      ~capabilities=[CapSecurityScan, CapFilesystem],
-      ~enhances=["security", "panic-attack"],
-      entry,
-    )
-  | "feedback" =>
-    withDefaults(~protocols=[ProtoGossamerIPC, ProtoREST], ~capabilities=[CapFilesystem], entry)
-  | "keybindings" =>
-    withDefaults(
-      ~protocols=[ProtoGossamerIPC],
-      ~capabilities=[CapFilesystem],
-      ~enhances=["workspace", "menu-bar"],
-      entry,
-    )
-  | "tiling" => withDefaults(~protocols=[ProtoGossamerIPC], ~enhances=["workspace"], entry)
-  | "focus-dimming" =>
-    withDefaults(~protocols=[ProtoGossamerIPC], ~enhances=["workspace", "accessibility"], entry)
-  // Game Server Admin — universal game server probe + config management via Gossamer + VeriSimDB
-  | "gsa" =>
-    withDefaults(
-      ~protocols=[ProtoREST, ProtoWebSocket, ProtoSSE, ProtoGossamerIPC],
-      ~capabilities=[
-        CapNetwork,
-        CapShell,
-        CapProcessSpawn,
-        CapContainerised,
-        CapStreaming,
-        CapSecretManagement,
-        CapVisualisation,
-        CapSessionRecording,
-      ],
-      ~enhances=["databases", "infrastructure"],
-      ~isolation=IsolationProcess,
-      entry,
-    )
-  | "gsa-browser" =>
-    withDefaults(~protocols=[ProtoREST, ProtoGossamerIPC], ~capabilities=[CapNetwork], entry)
-  | "gsa-config" =>
-    withDefaults(
-      ~protocols=[ProtoREST, ProtoGossamerIPC],
-      ~capabilities=[CapNetwork, CapShell, CapSecretManagement],
-      entry,
-    )
-  | "gsa-actions" =>
-    withDefaults(
-      ~protocols=[ProtoREST, ProtoGossamerIPC],
-      ~capabilities=[CapNetwork, CapShell, CapProcessSpawn, CapContainerised],
-      entry,
-    )
-  | "gsa-logs" =>
-    withDefaults(
-      ~protocols=[ProtoWebSocket, ProtoGossamerIPC],
-      ~capabilities=[CapNetwork, CapStreaming],
-      entry,
-    )
-  | "gsa-health" =>
-    withDefaults(
-      ~protocols=[ProtoREST, ProtoSSE, ProtoGossamerIPC],
-      ~capabilities=[CapNetwork],
-      ~enhances=["databases"],
-      entry,
-    )
-  | "gsa-history" =>
-    withDefaults(
-      ~protocols=[ProtoREST, ProtoGossamerIPC],
-      ~capabilities=[CapNetwork],
-      ~enhances=["databases"],
-      entry,
-    )
-  | "gsa-search" =>
-    withDefaults(
-      ~protocols=[ProtoREST, ProtoGossamerIPC],
-      ~capabilities=[CapNetwork],
-      ~enhances=["databases"],
-      entry,
-    )
-  | "gsa-game" =>
-    withDefaults(
-      ~protocols=[ProtoREST, ProtoGossamerIPC],
-      ~capabilities=[CapNetwork, CapShell, CapContainerised],
-      entry,
-    )
-  // Burble Admin — voice platform management
-  | "burble-admin" =>
-    withDefaults(
-      ~protocols=[ProtoREST, ProtoWebSocket, ProtoGossamerIPC],
-      ~capabilities=[CapNetwork, CapStreaming, CapVisualisation],
-      ~enhances=["infrastructure"],
-      ~isolation=IsolationProcess,
-      entry,
-    )
-  // IDApTIK Admin — game server management
-  | "idaptik-admin" =>
-    withDefaults(
-      ~protocols=[ProtoREST, ProtoWebSocket, ProtoGossamerIPC],
-      ~capabilities=[CapNetwork, CapShell, CapContainerised, CapStreaming],
-      ~enhances=["infrastructure", "gsa"],
-      ~isolation=IsolationProcess,
-      entry,
-    )
-  | _ => entry
-  }
-
-/// The enriched built-in clades — base entries with real Tier 1 metadata.
-let builtinClades: array<cladeEntry> = builtinCladesBase->Array.map(enrichClade)
-
-// ════════════════════════════════════════════════════════════════════════
-// Tier 1 Query Functions — protocol, capability, dependency queries
-// ════════════════════════════════════════════════════════════════════════
-
-/// Human-readable label for a protocol.
-let protocolLabel = (p: cladeProtocol): string =>
-  switch p {
-  | ProtoLSP => "LSP"
-  | ProtoDAP => "DAP"
-  | ProtoBSP => "BSP"
-  | ProtoMCP => "MCP"
-  | ProtoREST => "REST"
-  | ProtoGRPC => "gRPC"
-  | ProtoGraphQL => "GraphQL"
-  | ProtoWebSocket => "WebSocket"
-  | ProtoSSE => "SSE"
-  | ProtoGossamerIPC => "Gossamer IPC"
-  | ProtoUnixSocket => "Unix Socket"
-  | ProtoDBus => "D-Bus"
-  | ProtoStdio => "Stdio"
-  }
-
-/// Human-readable label for a capability.
-let capabilityLabel = (c: cladeCapability): string =>
-  switch c {
-  | CapFilesystem => "Filesystem"
-  | CapNetwork => "Network"
-  | CapClipboard => "Clipboard"
-  | CapProcessSpawn => "Process Spawn"
-  | CapShell => "Shell"
-  | CapContainerised => "Containerised"
-  | CapStreaming => "Streaming"
-  | CapProofProduction => "Proof Production"
-  | CapProofConsumption => "Proof Consumption"
-  | CapTypeChecking => "Type Checking"
-  | CapSecurityScan => "Security Scan"
-  | CapSecretManagement => "Secret Management"
-  | CapVisualisation => "Visualisation"
-  | CapSessionRecording => "Session Recording"
-  }
-
-/// Human-readable label for an isolation level.
-let isolationLabel = (i: cladeIsolation): string =>
-  switch i {
-  | IsolationNone => "None"
-  | IsolationSoft => "Soft"
-  | IsolationProcess => "Process"
-  | IsolationContainer => "Container"
-  }
-
-/// CSS colour for an isolation level badge.
-let isolationColour = (i: cladeIsolation): string =>
-  switch i {
-  | IsolationNone => "#f87171"
-  | IsolationSoft => "#fbbf24"
-  | IsolationProcess => "#60a5fa"
-  | IsolationContainer => "#34d399"
-  }
-
-/// Check if a clade exposes a given protocol.
-let cladeHasProtocol = (clade: cladeEntry, proto: cladeProtocol): bool =>
-  clade.protocols->Array.some(p => p == proto)
-
-/// Check if a clade provides a given capability.
-let cladeHasCapability = (clade: cladeEntry, cap: cladeCapability): bool =>
-  clade.capabilities->Array.some(c => c == cap)
-
-/// Find all clades that expose a given protocol.
-let cladesWithProtocol = (clades: array<cladeEntry>, proto: cladeProtocol): array<cladeEntry> =>
-  clades->Array.filter(c => cladeHasProtocol(c, proto))
-
-/// Find all clades that provide a given capability.
-let cladesWithCapability = (clades: array<cladeEntry>, cap: cladeCapability): array<cladeEntry> =>
-  clades->Array.filter(c => cladeHasCapability(c, cap))
-
-/// Get the hard dependencies for a clade (required=true).
-let cladeHardDeps = (clade: cladeEntry): array<cladeDependency> =>
-  clade.requires->Array.filter(d => d.required)
-
-/// Get the soft dependencies for a clade (required=false).
-let cladeSoftDeps = (clade: cladeEntry): array<cladeDependency> =>
-  clade.requires->Array.filter(d => !d.required)
-
-/// Find all clades that require a given clade ID.
-let cladesRequiring = (clades: array<cladeEntry>, depId: string): array<cladeEntry> =>
-  clades->Array.filter(c => c.requires->Array.some(d => d.cladeId == depId))
-
-/// Find all clades that enhance a given clade ID.
-let cladesEnhancing = (clades: array<cladeEntry>, targetId: string): array<cladeEntry> =>
-  clades->Array.filter(c => c.enhances->Array.some(e => e == targetId))
-
-/// Count clades by isolation level.
-let countByIsolation = (clades: array<cladeEntry>, level: cladeIsolation): int =>
-  clades->Array.filter(c => c.isolation == level)->Array.length
-
-/// Count clades that expose at least one protocol.
-let countWithProtocols = (clades: array<cladeEntry>): int =>
-  clades->Array.filter(c => c.protocols->Array.length > 0)->Array.length
-
-/// Count clades that have at least one capability.
-let countWithCapabilities = (clades: array<cladeEntry>): int =>
-  clades->Array.filter(c => c.capabilities->Array.length > 0)->Array.length
-
-// ════════════════════════════════════════════════════════════════════════
-// Tier 4 Query Functions — signing, SBOM, sandbox queries
-// ════════════════════════════════════════════════════════════════════════
-
-/// Human-readable label for a signing status.
-let signingLabel = (s: cladeSigningStatus): string =>
-  switch s {
-  | SigningNone => "Not Signed"
-  | SigningPending => "Pending"
-  | SigningVerified(signer) => "Verified (" ++ signer ++ ")"
-  | SigningFailed(reason) => "Failed: " ++ reason
-  }
-
-/// Check if a clade is verified (signing passed).
-let isVerified = (clade: cladeEntry): bool =>
-  switch clade.signing {
-  | SigningVerified(_) => true
-  | _ => false
-  }
-
-/// Count signed/verified clades.
-let countVerified = (clades: array<cladeEntry>): int =>
-  clades->Array.filter(isVerified)->Array.length
-
-/// Check if a clade has a sandbox policy.
-let isSandboxed = (clade: cladeEntry): bool => clade.sandbox !== None
-
-/// Count sandboxed clades.
-let countSandboxed = (clades: array<cladeEntry>): int =>
-  clades->Array.filter(isSandboxed)->Array.length
-
-/// Check if a clade has an SBOM.
-let hasSbom = (clade: cladeEntry): bool => clade.sbom !== None
-
-/// Count clades with SBOMs.
-let countWithSbom = (clades: array<cladeEntry>): int => clades->Array.filter(hasSbom)->Array.length
-
-/// Check if a capability is allowed by a sandbox policy.
-let sandboxAllows = (sandbox: cladeSandboxPolicy, cap: cladeCapability): bool =>
-  sandbox.allowedCapabilities->Array.some(c => c == cap)
-
-/// Validate that a clade's active capabilities are within its sandbox.
-/// Returns capabilities that are used but not allowed.
-let sandboxViolations = (clade: cladeEntry): array<cladeCapability> =>
-  switch clade.sandbox {
-  | None => []
-  | Some(sandbox) => clade.capabilities->Array.filter(cap => !sandboxAllows(sandbox, cap))
-  }
diff --git a/src/core/CloudGuardCatalog.affine b/src/core/CloudGuardCatalog.affine
new file mode 100644
index 00000000..1741d8b0
--- /dev/null
+++ b/src/core/CloudGuardCatalog.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CloudGuardCatalog;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/CloudGuardCatalog.res b/src/core/CloudGuardCatalog.res
deleted file mode 100644
index e1453a5f..00000000
--- a/src/core/CloudGuardCatalog.res
+++ /dev/null
@@ -1,654 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL CloudGuard Catalog — Complete Cloudflare settings reference.
-///
-/// Hardcoded catalog of all Cloudflare zone settings, organised by category.
-/// Each entry declares the CF API setting ID, display label, description,
-/// plan tier requirement, value type, and default hardening value.
-///
-/// This is the single source of truth for what settings exist, what plan
-/// they require, and what value the security policy expects. The catalog
-/// drives the settings grid UI (which settings to show, how to render them)
-/// and the compliance engine (what the expected value is).
-///
-/// Plan tier gating: each setting has an `availability` that determines
-/// whether it renders as interactive or greyed-out with a "Requires Pro" badge.
-
-/// Uses CloudGuardModel types directly (not Model) to avoid dependency cycles.
-open CloudGuardModel
-
-// ============================================================================
-// Setting definition — a catalog entry (NOT live data, just metadata)
-// ============================================================================
-
-/// A catalog entry describing one Cloudflare setting. This is metadata about
-/// what the setting IS, not what it's currently set to. Live values come from
-/// the API and are stored in `cfSetting.value`.
-type catalogEntry = {
-  id: string, // CF API setting ID
-  label: string, // Human-readable display label
-  description: string, // Tooltip/help text
-  category: settingCategory, // Which tab this appears under
-  availability: settingAvailability, // Plan tier gating
-  valueType: string, // "toggle" | "select" | "number" | "object"
-  options: option<array<string>>, // Valid options for "select" type
-  defaultValue: settingValue, // Hardening default (policy default)
-}
-
-// ============================================================================
-// SSL/TLS settings
-// ============================================================================
-
-/// SSL/TLS-related settings for the first tab.
-let sslTlsSettings: array<catalogEntry> = [
-  {
-    id: "ssl",
-    label: "SSL Mode",
-    description: "Encryption mode between visitors and Cloudflare, and between Cloudflare and your origin server.",
-    category: SslTls,
-    availability: Available,
-    valueType: "select",
-    options: Some(["off", "flexible", "full", "full_strict", "strict"]),
-    defaultValue: StringValue("full_strict"),
-  },
-  {
-    id: "min_tls_version",
-    label: "Minimum TLS Version",
-    description: "The minimum TLS version allowed for HTTPS connections. TLS 1.2 blocks TLS 1.0/1.1 downgrade attacks.",
-    category: SslTls,
-    availability: Available,
-    valueType: "select",
-    options: Some(["1.0", "1.1", "1.2", "1.3"]),
-    defaultValue: StringValue("1.2"),
-  },
-  {
-    id: "always_use_https",
-    label: "Always Use HTTPS",
-    description: "Redirect all HTTP requests to HTTPS. Critical for preventing credential sniffing.",
-    category: SslTls,
-    availability: Available,
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("on"),
-  },
-  {
-    id: "automatic_https_rewrites",
-    label: "Automatic HTTPS Rewrites",
-    description: "Rewrite HTTP URLs in page content to HTTPS, fixing mixed content issues.",
-    category: SslTls,
-    availability: Available,
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("on"),
-  },
-  {
-    id: "opportunistic_encryption",
-    label: "Opportunistic Encryption",
-    description: "Enable HTTPS for HTTP/2 connections via Alt-Svc header.",
-    category: SslTls,
-    availability: Available,
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("on"),
-  },
-  {
-    id: "tls_1_3",
-    label: "TLS 1.3",
-    description: "Enable TLS 1.3 with 0-RTT resumption for fastest and most secure connections.",
-    category: SslTls,
-    availability: Available,
-    valueType: "select",
-    options: Some(["off", "on", "zrt"]),
-    defaultValue: StringValue("zrt"),
-  },
-]
-
-// ============================================================================
-// Security headers settings
-// ============================================================================
-
-/// Security header settings for the Headers tab.
-let headerSettings: array<catalogEntry> = [
-  {
-    id: "security_header",
-    label: "HSTS (HTTP Strict Transport Security)",
-    description: "Force browsers to only connect via HTTPS. Prevents SSL stripping. max-age=31536000, includeSubDomains, preload, nosniff.",
-    category: Headers,
-    availability: Available,
-    valueType: "object",
-    options: None,
-    defaultValue: ObjectValue(
-      "{\"strict_transport_security\":{\"enabled\":true,\"max_age\":31536000,\"include_subdomains\":true,\"preload\":true,\"nosniff\":true}}",
-    ),
-  },
-]
-
-// ============================================================================
-// WAF / Bot defense settings
-// ============================================================================
-
-/// WAF and bot defense settings.
-let wafSettings: array<catalogEntry> = [
-  {
-    id: "browser_check",
-    label: "Browser Integrity Check",
-    description: "Evaluate HTTP headers from visitors' browsers for threats. Blocks bad bots.",
-    category: Waf,
-    availability: Available,
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("on"),
-  },
-  {
-    id: "hotlink_protection",
-    label: "Hotlink Protection",
-    description: "Prevent other websites from linking to your images and consuming bandwidth.",
-    category: Waf,
-    availability: Available,
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("on"),
-  },
-  {
-    id: "email_obfuscation",
-    label: "Email Address Obfuscation",
-    description: "Hide email addresses on your site from scrapers and bots.",
-    category: Waf,
-    availability: Available,
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("on"),
-  },
-  {
-    id: "server_side_exclude",
-    label: "Server Side Excludes (SSE)",
-    description: "Hide specific content from suspicious visitors based on threat score.",
-    category: Waf,
-    availability: Available,
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("on"),
-  },
-  {
-    id: "security_level",
-    label: "Security Level",
-    description: "Security level determines the threshold for challenging visitors. Higher = more challenges.",
-    category: Waf,
-    availability: Available,
-    valueType: "select",
-    options: Some(["off", "essentially_off", "low", "medium", "high", "under_attack"]),
-    defaultValue: StringValue("medium"),
-  },
-  {
-    id: "challenge_ttl",
-    label: "Challenge Passage TTL",
-    description: "How long a visitor who passed a challenge can access your site before being challenged again.",
-    category: Waf,
-    availability: Available,
-    valueType: "number",
-    options: None,
-    defaultValue: IntValue(1800),
-  },
-  {
-    id: "waf",
-    label: "WAF Managed Rules",
-    description: "Cloudflare WAF managed ruleset — blocks common exploits (SQLi, XSS, etc.).",
-    category: Waf,
-    availability: Unavailable(Pro),
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("on"),
-  },
-]
-
-// ============================================================================
-// Performance settings
-// ============================================================================
-
-/// Performance-related settings.
-let performanceSettings: array<catalogEntry> = [
-  {
-    id: "brotli",
-    label: "Brotli Compression",
-    description: "Enable Brotli compression for faster page loads (better ratio than gzip).",
-    category: Performance,
-    availability: Available,
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("on"),
-  },
-  {
-    id: "early_hints",
-    label: "Early Hints (103)",
-    description: "Send 103 Early Hints to preload resources before the full response. Improves LCP.",
-    category: Performance,
-    availability: Available,
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("on"),
-  },
-  {
-    id: "http3",
-    label: "HTTP/3 (QUIC)",
-    description: "Enable HTTP/3 over QUIC for improved performance, especially on mobile networks.",
-    category: Performance,
-    availability: Available,
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("on"),
-  },
-  {
-    id: "0rtt",
-    label: "0-RTT Connection Resumption",
-    description: "Allow TLS 1.3 0-RTT handshakes for faster initial connection on return visits.",
-    category: Performance,
-    availability: Available,
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("on"),
-  },
-  {
-    id: "minify",
-    label: "Auto Minify",
-    description: "Automatically minify JavaScript, CSS, and HTML to reduce file sizes.",
-    category: Performance,
-    availability: Available,
-    valueType: "object",
-    options: None,
-    defaultValue: ObjectValue("{\"js\":true,\"css\":true,\"html\":true}"),
-  },
-  {
-    id: "browser_cache_ttl",
-    label: "Browser Cache TTL",
-    description: "How long browsers cache static resources (seconds). 0 = respect origin headers.",
-    category: Performance,
-    availability: Available,
-    valueType: "number",
-    options: None,
-    defaultValue: IntValue(14400),
-  },
-  {
-    id: "polish",
-    label: "Polish (Image Optimisation)",
-    description: "Automatically optimise images: lossless or lossy compression, WebP conversion.",
-    category: Performance,
-    availability: Unavailable(Pro),
-    valueType: "select",
-    options: Some(["off", "lossless", "lossy"]),
-    defaultValue: StringValue("lossless"),
-  },
-  {
-    id: "mirage",
-    label: "Mirage (Image Lazy Loading)",
-    description: "Lazy-load images and optimise delivery for mobile devices.",
-    category: Performance,
-    availability: Unavailable(Pro),
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("on"),
-  },
-]
-
-// ============================================================================
-// Network settings
-// ============================================================================
-
-/// Network-related settings.
-let networkSettings: array<catalogEntry> = [
-  {
-    id: "ip_geolocation",
-    label: "IP Geolocation",
-    description: "Add CF-IPCountry header to requests for geo-aware applications.",
-    category: Network,
-    availability: Available,
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("on"),
-  },
-  {
-    id: "websockets",
-    label: "WebSockets",
-    description: "Allow WebSocket connections through Cloudflare's proxy.",
-    category: Network,
-    availability: Available,
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("on"),
-  },
-  {
-    id: "pseudo_ipv4",
-    label: "Pseudo IPv4",
-    description: "Map IPv6 addresses to IPv4 for compatibility with legacy analytics.",
-    category: Network,
-    availability: Available,
-    valueType: "select",
-    options: Some(["off", "add_header", "overwrite_header"]),
-    defaultValue: StringValue("off"),
-  },
-  {
-    id: "opportunistic_onion",
-    label: "Onion Routing",
-    description: "Allow Tor users to access your site via .onion address for improved privacy.",
-    category: Network,
-    availability: Available,
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("on"),
-  },
-  {
-    id: "max_upload",
-    label: "Maximum Upload Size (MB)",
-    description: "Maximum file upload size allowed through Cloudflare's proxy.",
-    category: Network,
-    availability: Available,
-    valueType: "number",
-    options: None,
-    defaultValue: IntValue(100),
-  },
-]
-
-// ============================================================================
-// Bot defense settings
-// ============================================================================
-
-/// Bot management and defense settings.
-let botDefenseSettings: array<catalogEntry> = [
-  {
-    id: "browser_check",
-    label: "Browser Integrity Check",
-    description: "Evaluate HTTP headers from visitors' browsers for threats. Blocks bad bots and scrapers.",
-    category: BotDefense,
-    availability: Available,
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("on"),
-  },
-  {
-    id: "challenge_ttl",
-    label: "Challenge Passage TTL",
-    description: "How long a visitor who passed a bot challenge can access your site before re-challenge.",
-    category: BotDefense,
-    availability: Available,
-    valueType: "number",
-    options: None,
-    defaultValue: IntValue(1800),
-  },
-  {
-    id: "security_level",
-    label: "Bot Challenge Threshold",
-    description: "Threat score threshold for issuing bot challenges. Higher levels = more aggressive filtering.",
-    category: BotDefense,
-    availability: Available,
-    valueType: "select",
-    options: Some(["off", "essentially_off", "low", "medium", "high", "under_attack"]),
-    defaultValue: StringValue("medium"),
-  },
-  {
-    id: "bot_management",
-    label: "Bot Management (Super Bot Fight Mode)",
-    description: "Enterprise-grade bot management with ML-based classification. Requires Bot Management add-on.",
-    category: BotDefense,
-    availability: Unavailable(Enterprise),
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("on"),
-  },
-]
-
-// ============================================================================
-// DNS info settings (informational — actual records managed via DnsEditor)
-// ============================================================================
-
-/// DNS-related informational settings. Actual DNS record CRUD happens via
-/// the CloudGuardDnsEditor component; these are zone-level DNS behaviours.
-let dnsInfoSettings: array<catalogEntry> = [
-  {
-    id: "cname_flattening",
-    label: "CNAME Flattening",
-    description: "Flatten CNAME records at the zone apex to return A/AAAA records directly. Required for root domain CNAMEs.",
-    category: Dns,
-    availability: Available,
-    valueType: "select",
-    options: Some(["flatten_at_root", "flatten_all"]),
-    defaultValue: StringValue("flatten_at_root"),
-  },
-  {
-    id: "flatten_all_cnames",
-    label: "Flatten All CNAMEs",
-    description: "Flatten ALL CNAME records, not just apex. Hides CNAME targets from DNS queries.",
-    category: Dns,
-    availability: Available,
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("off"),
-  },
-]
-
-// ============================================================================
-// Email security settings (informational — actual records via DnsEditor)
-// ============================================================================
-
-/// Email security configuration indicators. The real SPF/DMARC/DKIM records
-/// are DNS TXT records managed via CloudGuardDnsEditor, but these entries
-/// provide status visibility and quick-setup templates.
-let emailSecSettings: array<catalogEntry> = [
-  {
-    id: "email_spf",
-    label: "SPF Record",
-    description: "Sender Policy Framework — declares which mail servers can send on behalf of your domain. Prevents spoofing.",
-    category: EmailSec,
-    availability: Available,
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("on"),
-  },
-  {
-    id: "email_dmarc",
-    label: "DMARC Policy",
-    description: "Domain-based Message Authentication — tells receivers how to handle SPF/DKIM failures. Policy: reject recommended.",
-    category: EmailSec,
-    availability: Available,
-    valueType: "select",
-    options: Some(["none", "quarantine", "reject"]),
-    defaultValue: StringValue("reject"),
-  },
-  {
-    id: "email_dkim",
-    label: "DKIM Signing",
-    description: "DomainKeys Identified Mail — cryptographic signature on outbound email. Proves authenticity.",
-    category: EmailSec,
-    availability: Available,
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("on"),
-  },
-  {
-    id: "email_mta_sts",
-    label: "MTA-STS",
-    description: "SMTP MTA Strict Transport Security — forces TLS for inbound mail delivery. Prevents downgrade attacks.",
-    category: EmailSec,
-    availability: Available,
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("on"),
-  },
-  {
-    id: "email_tlsrpt",
-    label: "TLS-RPT",
-    description: "TLS Reporting — receive reports about TLS failures in email delivery to your domain.",
-    category: EmailSec,
-    availability: Available,
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("on"),
-  },
-  {
-    id: "email_caa",
-    label: "CAA Records",
-    description: "Certificate Authority Authorization — restricts which CAs can issue certificates for your domain.",
-    category: EmailSec,
-    availability: Available,
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("on"),
-  },
-]
-
-// ============================================================================
-// Pages settings (Cloudflare Pages / GitHub Pages integration)
-// ============================================================================
-
-/// Cloudflare Pages project management settings. These are informational
-/// indicators; actual Pages CRUD happens via the CloudGuardPagesSetup component.
-let pagesSettings: array<catalogEntry> = [
-  {
-    id: "pages_project",
-    label: "Pages Project",
-    description: "Cloudflare Pages deployment project connected to a GitHub repository.",
-    category: Pages,
-    availability: Available,
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("off"),
-  },
-  {
-    id: "pages_custom_domain",
-    label: "Custom Domain Binding",
-    description: "Bind a custom domain to your Pages project with automatic CNAME and SSL.",
-    category: Pages,
-    availability: Available,
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("off"),
-  },
-  {
-    id: "pages_headers",
-    label: "Security Headers (_headers file)",
-    description: "Deploy security headers via _headers file — free, no Workers needed. CSP, X-Frame-Options, etc.",
-    category: Pages,
-    availability: Available,
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("on"),
-  },
-]
-
-// ============================================================================
-// DNSSEC settings
-// ============================================================================
-
-/// DNSSEC settings. DNSSEC is a zone-level toggle managed via the CF API.
-/// DS record propagation to the registrar is a separate step.
-let dnssecSettings: array<catalogEntry> = [
-  {
-    id: "dnssec",
-    label: "DNSSEC",
-    description: "DNS Security Extensions — cryptographically signs DNS records to prevent spoofing and cache poisoning.",
-    category: Dnssec,
-    availability: Available,
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("on"),
-  },
-  {
-    id: "dnssec_ds_record",
-    label: "DS Record at Registrar",
-    description: "DS (Delegation Signer) record must be added at your domain registrar to complete the DNSSEC chain of trust.",
-    category: Dnssec,
-    availability: Available,
-    valueType: "toggle",
-    options: None,
-    defaultValue: StringValue("on"),
-  },
-]
-
-// ============================================================================
-// Aggregate catalog
-// ============================================================================
-
-/// All settings in the catalog, combined from all categories.
-let allSettings: array<catalogEntry> = Array.flat([
-  sslTlsSettings,
-  headerSettings,
-  wafSettings,
-  botDefenseSettings,
-  dnsInfoSettings,
-  emailSecSettings,
-  performanceSettings,
-  networkSettings,
-  pagesSettings,
-  dnssecSettings,
-])
-
-/// Find a catalog entry by its CF setting ID.
-let findById = (id: string): option<catalogEntry> => {
-  allSettings->Array.find(entry => entry.id === id)
-}
-
-/// Filter catalog entries by category.
-let byCategory = (cat: settingCategory): array<catalogEntry> => {
-  allSettings->Array.filter(entry => entry.category === cat)
-}
-
-/// Get all catalog entries that are available on a given plan tier.
-let availableOnPlan = (tier: cfPlanTier): array<catalogEntry> => {
-  allSettings->Array.filter(entry => {
-    switch entry.availability {
-    | Available => true
-    | Limited(_) => true
-    | Unavailable(required) =>
-      switch (tier, required) {
-      | (Enterprise, _) => true
-      | (Business, Enterprise) => false
-      | (Business, _) => true
-      | (Pro, Enterprise) => false
-      | (Pro, Business) => false
-      | (Pro, _) => true
-      | (Free, Free) => true
-      | (Free, _) => false
-      }
-    }
-  })
-}
-
-/// Get the number of settings in each category.
-let categoryCounts = (): array<(settingCategory, int)> => {
-  [
-    (SslTls, Array.length(sslTlsSettings)),
-    (Headers, Array.length(headerSettings)),
-    (Waf, Array.length(wafSettings)),
-    (BotDefense, Array.length(botDefenseSettings)),
-    (Dns, Array.length(dnsInfoSettings)),
-    (EmailSec, Array.length(emailSecSettings)),
-    (Performance, Array.length(performanceSettings)),
-    (Network, Array.length(networkSettings)),
-    (Pages, Array.length(pagesSettings)),
-    (Dnssec, Array.length(dnssecSettings)),
-  ]
-}
-
-/// Human-readable label for a setting category.
-let categoryLabel = (cat: settingCategory): string => {
-  switch cat {
-  | SslTls => "SSL/TLS"
-  | Headers => "Headers"
-  | Waf => "WAF"
-  | BotDefense => "Bot Defense"
-  | Dns => "DNS"
-  | EmailSec => "Email Security"
-  | Performance => "Performance"
-  | Network => "Network"
-  | Pages => "Pages"
-  | Dnssec => "DNSSEC"
-  }
-}
-
-/// Human-readable label for a plan tier.
-let planLabel = (tier: cfPlanTier): string => {
-  switch tier {
-  | Free => "Free"
-  | Pro => "Pro"
-  | Business => "Business"
-  | Enterprise => "Enterprise"
-  }
-}
diff --git a/src/core/CloudGuardEngine.affine b/src/core/CloudGuardEngine.affine
new file mode 100644
index 00000000..057c4f2d
--- /dev/null
+++ b/src/core/CloudGuardEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CloudGuardEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/CloudGuardEngine.res b/src/core/CloudGuardEngine.res
deleted file mode 100644
index 220d02c8..00000000
--- a/src/core/CloudGuardEngine.res
+++ /dev/null
@@ -1,685 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL CloudGuard Engine — Pure computation for compliance evaluation and diff.
-///
-/// All functions here are pure (no side effects, no API calls). They operate
-/// on model data to produce audit findings, compliance scores, setting diffs,
-/// and domain filter results.
-///
-/// This is the computation backend for Panel-W's audit side panel and
-/// Panel-L's constraint evaluation. The engine takes live settings + policy
-/// constraints and produces structured results for the view layer.
-
-open CloudGuardModel
-
-// ============================================================================
-// JSON parsing helpers — extract CF API response data into model types
-// ============================================================================
-
-/// Parse a plan name string into a cfPlanTier variant.
-let parsePlanTier = (planName: string): cfPlanTier => {
-  let lower = String.toLowerCase(planName)
-  if String.includes(lower, "enterprise") {
-    Enterprise
-  } else if String.includes(lower, "business") {
-    Business
-  } else if String.includes(lower, "pro") {
-    Pro
-  } else {
-    Free
-  }
-}
-
-/// Parse a DNS record type string into a dnsRecordType variant.
-let parseDnsRecordType = (typeStr: string): option<dnsRecordType> => {
-  switch String.toUpperCase(typeStr) {
-  | "A" => Some(A)
-  | "AAAA" => Some(AAAA)
-  | "CNAME" => Some(CNAME)
-  | "MX" => Some(MX)
-  | "TXT" => Some(TXT)
-  | "SRV" => Some(SRV)
-  | "NS" => Some(NS)
-  | "CAA" => Some(CAA)
-  | "TLSA" => Some(TLSA)
-  | "HTTPS" => Some(HTTPS)
-  | "SVCB" => Some(SVCB)
-  | "PTR" => Some(PTR)
-  | "LOC" => Some(LOC)
-  | _ => None
-  }
-}
-
-/// Stringify a dnsRecordType for display.
-let dnsRecordTypeLabel = (rt: dnsRecordType): string => {
-  switch rt {
-  | A => "A"
-  | AAAA => "AAAA"
-  | CNAME => "CNAME"
-  | MX => "MX"
-  | TXT => "TXT"
-  | SRV => "SRV"
-  | NS => "NS"
-  | CAA => "CAA"
-  | TLSA => "TLSA"
-  | HTTPS => "HTTPS"
-  | SVCB => "SVCB"
-  | PTR => "PTR"
-  | LOC => "LOC"
-  }
-}
-
-// ============================================================================
-// JSON → cfZone parsing
-// ============================================================================
-
-/// Helper: extract a string field from a JSON object dict, with a default.
-let jsonStr = (obj: Dict.t<JSON.t>, key: string, default: string): string => {
-  switch Dict.get(obj, key) {
-  | Some(v) =>
-    switch JSON.Classify.classify(v) {
-    | String(s) => s
-    | _ => default
-    }
-  | None => default
-  }
-}
-
-/// Helper: extract a bool field from a JSON object dict, with a default.
-let jsonBool = (obj: Dict.t<JSON.t>, key: string, default: bool): bool => {
-  switch Dict.get(obj, key) {
-  | Some(v) =>
-    switch JSON.Classify.classify(v) {
-    | Bool(b) => b
-    | _ => default
-    }
-  | None => default
-  }
-}
-
-/// Helper: extract a string array field from a JSON object dict.
-let jsonStrArray = (obj: Dict.t<JSON.t>, key: string): array<string> => {
-  switch Dict.get(obj, key) {
-  | Some(v) =>
-    switch JSON.Classify.classify(v) {
-    | Array(arr) =>
-      arr->Array.filterMap(item =>
-        switch JSON.Classify.classify(item) {
-        | String(s) => Some(s)
-        | _ => None
-        }
-      )
-    | _ => []
-    }
-  | None => []
-  }
-}
-
-/// Parse a single JSON object into a cfZone record.
-/// Expects the shape from CF API `GET /zones` result array items.
-let parseZone = (json: JSON.t): option<cfZone> => {
-  switch JSON.Classify.classify(json) {
-  | Object(obj) => {
-      let id = jsonStr(obj, "id", "")
-      let name = jsonStr(obj, "name", "")
-      if id === "" || name === "" {
-        None
-      } else {
-        // Extract plan tier from nested plan object
-        let planTier = switch Dict.get(obj, "plan") {
-        | Some(planJson) =>
-          switch JSON.Classify.classify(planJson) {
-          | Object(planObj) => parsePlanTier(jsonStr(planObj, "name", "Free"))
-          | _ => Free
-          }
-        | None => Free
-        }
-
-        // Parse DNSSEC status (not in zone listing, default to Disabled)
-        let dnssec = DnssecDisabled
-
-        Some({
-          id,
-          name,
-          status: jsonStr(obj, "status", "unknown"),
-          paused: jsonBool(obj, "paused", false),
-          plan: planTier,
-          nameservers: jsonStrArray(obj, "name_servers"),
-          originalNameservers: jsonStrArray(obj, "original_name_servers"),
-          dnssec,
-          createdOn: jsonStr(obj, "created_on", ""),
-          modifiedOn: jsonStr(obj, "modified_on", ""),
-        })
-      }
-    }
-  | _ => None
-  }
-}
-
-/// Tea_Json decoder for a single cfZone, bridging the existing parseZone parser.
-let zoneDecoder: Tea_Json.decoder<cfZone> = json => {
-  switch parseZone(json) {
-  | Some(v) => Ok(v)
-  | None => Error(Tea_Json.Failure("Failed to decode cfZone", json))
-  }
-}
-
-/// Tea_Json decoder for a zones response — handles both `[...]` and `{ "result": [...] }`.
-let zonesDecoder: Tea_Json.decoder<array<cfZone>> = Decoders.resultArrayOrDirect(zoneDecoder)
-
-/// Parse a JSON string (array of zone objects) into cfZone records.
-/// Handles both the raw result array and the full CF API envelope.
-let parseZonesJson = (jsonString: string): array<cfZone> =>
-  Decoders.decodeWithDefault(zonesDecoder, [], jsonString)
-
-// ============================================================================
-// JSON → cfSetting parsing
-// ============================================================================
-
-/// Parse a CF API setting value (polymorphic) into a settingValue variant.
-let parseSettingValue = (json: JSON.t): settingValue => {
-  switch JSON.Classify.classify(json) {
-  | String(s) => StringValue(s)
-  | Bool(b) => BoolValue(b)
-  | Number(n) => IntValue(Float.toInt(n))
-  | Object(_) => ObjectValue(JSON.stringify(json))
-  | Null => StringValue("")
-  | Array(_) => ObjectValue(JSON.stringify(json))
-  }
-}
-
-/// Map a CF setting ID to its display category.
-/// Uses the catalog as primary source; falls back to heuristic grouping.
-let settingIdToCategory = (settingId: string): settingCategory => {
-  switch CloudGuardCatalog.findById(settingId) {
-  | Some(entry) => entry.category
-  | None =>
-    // Heuristic fallback for settings not yet in the catalog
-    if (
-      String.includes(settingId, "ssl") ||
-      String.includes(settingId, "tls") ||
-      settingId === "always_use_https" ||
-      settingId === "automatic_https_rewrites" ||
-      settingId === "opportunistic_encryption"
-    ) {
-      SslTls
-    } else if (
-      String.includes(settingId, "security") ||
-      String.includes(settingId, "waf") ||
-      String.includes(settingId, "browser_check") ||
-      String.includes(settingId, "challenge") ||
-      String.includes(settingId, "hotlink") ||
-      String.includes(settingId, "email_obfuscation") ||
-      String.includes(settingId, "server_side")
-    ) {
-      Waf
-    } else if (
-      String.includes(settingId, "cache") ||
-      String.includes(settingId, "minify") ||
-      String.includes(settingId, "polish") ||
-      String.includes(settingId, "mirage") ||
-      String.includes(settingId, "brotli") ||
-      String.includes(settingId, "early_hints") ||
-      String.includes(settingId, "http3") ||
-      String.includes(settingId, "0rtt") ||
-      String.includes(settingId, "h2")
-    ) {
-      Performance
-    } else if (
-      String.includes(settingId, "ip_geo") ||
-      String.includes(settingId, "websocket") ||
-      String.includes(settingId, "pseudo") ||
-      String.includes(settingId, "onion") ||
-      String.includes(settingId, "max_upload") ||
-      String.includes(settingId, "grpc")
-    ) {
-      Network
-    } else {
-      SslTls // Default fallback
-    }
-  }
-}
-
-/// Parse a single JSON object into a cfSetting record.
-let parseSetting = (json: JSON.t): option<cfSetting> => {
-  switch JSON.Classify.classify(json) {
-  | Object(obj) => {
-      let id = jsonStr(obj, "id", "")
-      if id === "" {
-        None
-      } else {
-        let value = switch Dict.get(obj, "value") {
-        | Some(v) => parseSettingValue(v)
-        | None => StringValue("")
-        }
-
-        // Look up catalog entry for label, description, and default
-        let catalogEntry = CloudGuardCatalog.findById(id)
-        let label = switch catalogEntry {
-        | Some(entry) => entry.label
-        | None => id
-        }
-        let description = switch catalogEntry {
-        | Some(entry) => entry.description
-        | None => ""
-        }
-        let defaultValue = switch catalogEntry {
-        | Some(entry) => entry.defaultValue
-        | None => value
-        }
-        let availability = switch catalogEntry {
-        | Some(entry) => entry.availability
-        | None => Available
-        }
-
-        Some({
-          id,
-          label,
-          description,
-          category: settingIdToCategory(id),
-          value,
-          defaultValue,
-          editable: jsonBool(obj, "editable", true),
-          modified: false,
-          availability,
-        })
-      }
-    }
-  | _ => None
-  }
-}
-
-/// Tea_Json decoder for a single cfSetting, bridging the existing parseSetting parser.
-let settingDecoder: Tea_Json.decoder<cfSetting> = json => {
-  switch parseSetting(json) {
-  | Some(v) => Ok(v)
-  | None => Error(Tea_Json.Failure("Failed to decode cfSetting", json))
-  }
-}
-
-/// Tea_Json decoder for a settings response — handles both `[...]` and `{ "result": [...] }`.
-let settingsDecoder: Tea_Json.decoder<array<cfSetting>> = Decoders.resultArrayOrDirect(
-  settingDecoder,
-)
-
-/// Parse a JSON string (array of setting objects) into cfSetting records.
-let parseSettingsJson = (jsonString: string): array<cfSetting> =>
-  Decoders.decodeWithDefault(settingsDecoder, [], jsonString)
-
-// ============================================================================
-// JSON → cfDnsRecord parsing
-// ============================================================================
-
-/// Parse a single JSON object into a cfDnsRecord record.
-let parseDnsRecord = (json: JSON.t): option<cfDnsRecord> => {
-  switch JSON.Classify.classify(json) {
-  | Object(obj) => {
-      let id = jsonStr(obj, "id", "")
-      let typeStr = jsonStr(obj, "type", "")
-      if id === "" || typeStr === "" {
-        None
-      } else {
-        switch parseDnsRecordType(typeStr) {
-        | None => None
-        | Some(recordType) => {
-            let priority = switch Dict.get(obj, "priority") {
-            | Some(v) =>
-              switch JSON.Classify.classify(v) {
-              | Number(n) => Some(Float.toInt(n))
-              | _ => None
-              }
-            | None => None
-            }
-
-            let comment = switch Dict.get(obj, "comment") {
-            | Some(v) =>
-              switch JSON.Classify.classify(v) {
-              | String(s) =>
-                if String.length(s) > 0 {
-                  Some(s)
-                } else {
-                  None
-                }
-              | _ => None
-              }
-            | None => None
-            }
-
-            Some({
-              id,
-              zoneId: jsonStr(obj, "zone_id", ""),
-              recordType,
-              name: jsonStr(obj, "name", ""),
-              content: jsonStr(obj, "content", ""),
-              ttl: switch Dict.get(obj, "ttl") {
-              | Some(v) =>
-                switch JSON.Classify.classify(v) {
-                | Number(n) => Float.toInt(n)
-                | _ => 1
-                }
-              | None => 1
-              },
-              proxied: jsonBool(obj, "proxied", false),
-              priority,
-              comment,
-              tags: jsonStrArray(obj, "tags"),
-              locked: jsonBool(obj, "locked", false),
-              createdOn: jsonStr(obj, "created_on", ""),
-              modifiedOn: jsonStr(obj, "modified_on", ""),
-            })
-          }
-        }
-      }
-    }
-  | _ => None
-  }
-}
-
-/// Tea_Json decoder for a single cfDnsRecord, bridging the existing parseDnsRecord parser.
-let dnsRecordDecoder: Tea_Json.decoder<cfDnsRecord> = json => {
-  switch parseDnsRecord(json) {
-  | Some(v) => Ok(v)
-  | None => Error(Tea_Json.Failure("Failed to decode cfDnsRecord", json))
-  }
-}
-
-/// Tea_Json decoder for a DNS records response — handles both `[...]` and `{ "result": [...] }`.
-let dnsRecordsDecoder: Tea_Json.decoder<array<cfDnsRecord>> = Decoders.resultArrayOrDirect(
-  dnsRecordDecoder,
-)
-
-/// Parse a JSON string (array of DNS record objects) into cfDnsRecord records.
-let parseDnsRecordsJson = (jsonString: string): array<cfDnsRecord> =>
-  Decoders.decodeWithDefault(dnsRecordsDecoder, [], jsonString)
-
-// ============================================================================
-// cfSetting → JSON serialisation (for push changes)
-// ============================================================================
-
-/// Serialise modified settings into a JSON string for the batch update API.
-/// Produces a JSON array of `[{id, value}]` items.
-let serialiseModifiedSettings = (settings: array<cfSetting>): string => {
-  let modified = settings->Array.filter(s => s.modified)
-  let items = modified->Array.map(s => {
-    let valueJson = switch s.value {
-    | BoolValue(b) =>
-      if b {
-        "\"on\""
-      } else {
-        "\"off\""
-      }
-    | StringValue(str) => `"${str}"`
-    | IntValue(n) => Int.toString(n)
-    | ObjectValue(json) => json
-    }
-    `{"id":"${s.id}","value":${valueJson}}`
-  })
-  `[${Array.join(items, ",")}]`
-}
-
-// ============================================================================
-// Setting value helpers
-// ============================================================================
-
-/// Stringify a settingValue for display in the UI.
-let settingValueToString = (v: settingValue): string => {
-  switch v {
-  | BoolValue(b) => b ? "On" : "Off"
-  | StringValue(s) => s
-  | IntValue(n) => Int.toString(n)
-  | ObjectValue(json) => json
-  }
-}
-
-/// Check if a setting value represents "on" / "enabled" / true.
-let isSettingEnabled = (v: settingValue): bool => {
-  switch v {
-  | BoolValue(b) => b
-  | StringValue(s) => s === "on" || s === "true" || s === "1"
-  | IntValue(n) => n > 0
-  | ObjectValue(_) => true
-  }
-}
-
-// ============================================================================
-// Compliance evaluation
-// ============================================================================
-
-/// Evaluate a single setting against its policy constraint.
-/// Returns Some(finding) if the setting violates the constraint, None if it passes.
-let evaluateSetting = (domain: string, setting: cfSetting, rule: policyConstraint): option<
-  auditFinding,
-> => {
-  let currentStr = settingValueToString(setting.value)
-  let expectedStr = settingValueToString(setting.defaultValue)
-
-  // Compare current value to default (policy) value
-  let matches = switch (setting.value, setting.defaultValue) {
-  | (BoolValue(a), BoolValue(b)) => a === b
-  | (StringValue(a), StringValue(b)) => a === b
-  | (IntValue(a), IntValue(b)) => a === b
-  | _ => currentStr === expectedStr
-  }
-
-  if matches {
-    None
-  } else {
-    Some({
-      domain,
-      settingId: setting.id,
-      category: setting.category,
-      severity: rule.severity,
-      message: `${rule.expression}: expected ${expectedStr}, got ${currentStr}`,
-      currentValue: currentStr,
-      expectedValue: expectedStr,
-      autoFixable: setting.editable,
-    })
-  }
-}
-
-/// Compute the overall compliance score for a set of settings against constraints.
-/// Returns (passed_count, failed_count, score_0_to_1).
-let computeComplianceScore = (settings: array<cfSetting>, constraints: array<policyConstraint>): (
-  int,
-  int,
-  float,
-) => {
-  let passed = ref(0)
-  let failed = ref(0)
-
-  Array.forEach(constraints, rule => {
-    let matchingSetting = Array.find(settings, s => s.id === rule.id)
-    switch matchingSetting {
-    | Some(setting) => {
-        let currentStr = settingValueToString(setting.value)
-        let expectedStr = settingValueToString(setting.defaultValue)
-        if currentStr === expectedStr {
-          passed := passed.contents + 1
-        } else {
-          failed := failed.contents + 1
-        }
-      }
-    | None => failed := failed.contents + 1
-    }
-  })
-
-  let total = Int.toFloat(passed.contents + failed.contents)
-  let score = if total > 0.0 {
-    Int.toFloat(passed.contents) /. total
-  } else {
-    0.0
-  }
-  (passed.contents, failed.contents, score)
-}
-
-// ============================================================================
-// Domain filtering and sorting
-// ============================================================================
-
-/// Filter zones by search text (matches domain name).
-let filterZones = (zones: array<cfZone>, searchText: string): array<cfZone> => {
-  if String.length(searchText) === 0 {
-    zones
-  } else {
-    let lower = String.toLowerCase(searchText)
-    zones->Array.filter(zone => String.includes(String.toLowerCase(zone.name), lower))
-  }
-}
-
-/// Sort zones alphabetically by name.
-let sortZonesByName = (zones: array<cfZone>): array<cfZone> => {
-  let copy = Array.copy(zones)
-  Array.sort(copy, (a, b) => String.compare(a.name, b.name))
-  copy
-}
-
-// ============================================================================
-// DNS record analysis
-// ============================================================================
-
-/// Check whether a zone has the required email security DNS records.
-/// Returns a list of missing record descriptions.
-let checkEmailSecurityRecords = (records: array<cfDnsRecord>): array<string> => {
-  let missing = ref([])
-
-  // Check for SPF record
-  let hasSpf = Array.some(records, r => {
-    switch r.recordType {
-    | TXT => String.includes(r.content, "v=spf1")
-    | _ => false
-    }
-  })
-  if !hasSpf {
-    missing := Array.concat(missing.contents, ["SPF (TXT): No v=spf1 record found"])
-  }
-
-  // Check for DMARC record
-  let hasDmarc = Array.some(records, r => {
-    switch r.recordType {
-    | TXT => String.includes(r.name, "_dmarc") && String.includes(r.content, "v=DMARC1")
-    | _ => false
-    }
-  })
-  if !hasDmarc {
-    missing := Array.concat(missing.contents, ["DMARC (TXT): No _dmarc record with v=DMARC1"])
-  }
-
-  // Check for CAA record
-  let hasCaa = Array.some(records, r => {
-    switch r.recordType {
-    | CAA => true
-    | _ => false
-    }
-  })
-  if !hasCaa {
-    missing :=
-      Array.concat(missing.contents, ["CAA: No Certificate Authority Authorization record"])
-  }
-
-  missing.contents
-}
-
-/// Count DNS records by type for the summary badge display.
-let countRecordsByType = (records: array<cfDnsRecord>): array<(string, int)> => {
-  let counts: Dict.t<int> = Dict.make()
-
-  Array.forEach(records, r => {
-    let key = dnsRecordTypeLabel(r.recordType)
-    let current = switch Dict.get(counts, key) {
-    | Some(n) => n
-    | None => 0
-    }
-    Dict.set(counts, key, current + 1)
-  })
-
-  Dict.toArray(counts)
-}
-
-// ============================================================================
-// Severity helpers
-// ============================================================================
-
-/// Severity label for display.
-let severityLabel = (sev: auditSeverity): string => {
-  switch sev {
-  | Critical => "CRITICAL"
-  | High => "HIGH"
-  | Medium => "MEDIUM"
-  | Low => "LOW"
-  | Info => "INFO"
-  }
-}
-
-/// CSS colour class for a severity level (Tailwind).
-let severityColour = (sev: auditSeverity): string => {
-  switch sev {
-  | Critical => "text-red-400"
-  | High => "text-orange-400"
-  | Medium => "text-yellow-400"
-  | Low => "text-blue-400"
-  | Info => "text-gray-400"
-  }
-}
-
-// ============================================================================
-// Per-domain exception helpers
-// ============================================================================
-
-/// Find the exception for a specific domain + setting, if any.
-let findException = (exceptions: array<domainException>, domain: string, settingId: string): option<
-  domainException,
-> => {
-  exceptions->Array.find(e => e.domain === domain && e.settingId === settingId)
-}
-
-/// Check whether a setting has an exception for a given domain.
-let hasException = (
-  exceptions: array<domainException>,
-  domain: string,
-  settingId: string,
-): bool => {
-  exceptions->Array.some(e => e.domain === domain && e.settingId === settingId)
-}
-
-/// Get all exceptions for a specific domain.
-let exceptionsForDomain = (exceptions: array<domainException>, domain: string): array<
-  domainException,
-> => {
-  exceptions->Array.filter(e => e.domain === domain)
-}
-
-/// Get all exceptions for a specific setting across all domains.
-let exceptionsForSetting = (exceptions: array<domainException>, settingId: string): array<
-  domainException,
-> => {
-  exceptions->Array.filter(e => e.settingId === settingId)
-}
-
-/// Apply exceptions to a setting for a given domain. If an exception exists,
-/// returns the setting with the override value applied. Otherwise returns as-is.
-let applyException = (
-  setting: cfSetting,
-  exceptions: array<domainException>,
-  domain: string,
-): cfSetting => {
-  switch findException(exceptions, domain, setting.id) {
-  | Some(exc) => {...setting, value: exc.overrideValue, modified: true}
-  | None => setting
-  }
-}
-
-/// Sort audit findings by severity (Critical first, Info last).
-let sortFindingsBySeverity = (findings: array<auditFinding>): array<auditFinding> => {
-  let severityOrder = (sev: auditSeverity): int => {
-    switch sev {
-    | Critical => 0
-    | High => 1
-    | Medium => 2
-    | Low => 3
-    | Info => 4
-    }
-  }
-  let copy = Array.copy(findings)
-  Array.sort(copy, (a, b) => Int.compare(severityOrder(a.severity), severityOrder(b.severity)))
-  copy
-}
diff --git a/src/core/CloudGuardPolicy.affine b/src/core/CloudGuardPolicy.affine
new file mode 100644
index 00000000..9e865b75
--- /dev/null
+++ b/src/core/CloudGuardPolicy.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CloudGuardPolicy;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/CloudGuardPolicy.res b/src/core/CloudGuardPolicy.res
deleted file mode 100644
index 32175231..00000000
--- a/src/core/CloudGuardPolicy.res
+++ /dev/null
@@ -1,308 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL CloudGuard Policy — Security policy constraint definitions.
-///
-/// Defines the hardcoded security policy constraints that CloudGuard audits
-/// against. These represent the "Trustfile" — the security posture that all
-/// domains should comply with. Each constraint maps to a Cloudflare setting
-/// and specifies the expected value and severity of deviation.
-///
-/// In the future, these constraints will be loaded from Nickel (.k9.ncl)
-/// policy files and/or A2ML Trustfile definitions. For now, they are
-/// hardcoded to match the manual hardening session that motivated CloudGuard.
-///
-/// Constraints are displayed in Panel-L as a scrollable list with
-/// enable/disable toggles.
-
-open CloudGuardModel
-
-// ============================================================================
-// Default policy constraints — the security posture all domains should match
-// ============================================================================
-
-/// The default security policy, matching the hardening done in the manual
-/// session across 36 Cloudflare domains. Each constraint specifies:
-///   - id: matches the CF API setting ID
-///   - expression: human-readable rule for Panel-L display
-///   - category: which settings tab it belongs to
-///   - enabled: whether it's active for auditing (default: true)
-///   - severity: how bad a violation is
-///   - description: explanation of why this matters
-let defaultConstraints: array<policyConstraint> = [
-  // --- SSL/TLS ---
-  {
-    id: "ssl",
-    expression: "ssl.mode == \"full_strict\"",
-    category: SslTls,
-    enabled: true,
-    severity: Critical,
-    description: "Full (Strict) SSL ensures end-to-end encryption with validated origin certificates. Prevents MITM attacks.",
-  },
-  {
-    id: "min_tls_version",
-    expression: "min_tls_version >= \"1.2\"",
-    category: SslTls,
-    enabled: true,
-    severity: High,
-    description: "TLS 1.0 and 1.1 have known vulnerabilities. Minimum TLS 1.2 blocks downgrade attacks.",
-  },
-  {
-    id: "always_use_https",
-    expression: "always_use_https == \"on\"",
-    category: SslTls,
-    enabled: true,
-    severity: Critical,
-    description: "Redirects all HTTP to HTTPS. Without this, credentials can be sniffed on insecure connections.",
-  },
-  {
-    id: "automatic_https_rewrites",
-    expression: "automatic_https_rewrites == \"on\"",
-    category: SslTls,
-    enabled: true,
-    severity: Medium,
-    description: "Fixes mixed content by rewriting HTTP URLs to HTTPS in page content.",
-  },
-  {
-    id: "opportunistic_encryption",
-    expression: "opportunistic_encryption == \"on\"",
-    category: SslTls,
-    enabled: true,
-    severity: Low,
-    description: "Enables HTTPS via Alt-Svc header for HTTP/2 connections.",
-  },
-  {
-    id: "tls_1_3",
-    expression: "tls_1_3 == \"zrt\"",
-    category: SslTls,
-    enabled: true,
-    severity: Medium,
-    description: "TLS 1.3 with 0-RTT provides the fastest and most secure handshake.",
-  },
-  // --- Security Headers ---
-  {
-    id: "security_header",
-    expression: "hsts.enabled && hsts.max_age >= 31536000 && hsts.include_subdomains && hsts.preload && hsts.nosniff",
-    category: Headers,
-    enabled: true,
-    severity: Critical,
-    description: "HSTS forces browsers to use HTTPS only. max-age=1yr, includeSubDomains, preload, and nosniff are all required.",
-  },
-  // --- WAF ---
-  {
-    id: "browser_check",
-    expression: "browser_check == \"on\"",
-    category: Waf,
-    enabled: true,
-    severity: Medium,
-    description: "Browser integrity check evaluates HTTP headers to block bad bots.",
-  },
-  {
-    id: "hotlink_protection",
-    expression: "hotlink_protection == \"on\"",
-    category: Waf,
-    enabled: true,
-    severity: Low,
-    description: "Prevents bandwidth theft from hotlinked images.",
-  },
-  {
-    id: "email_obfuscation",
-    expression: "email_obfuscation == \"on\"",
-    category: Waf,
-    enabled: true,
-    severity: Low,
-    description: "Hides email addresses from scrapers and spam bots.",
-  },
-  {
-    id: "security_level",
-    expression: "security_level == \"medium\"",
-    category: Waf,
-    enabled: true,
-    severity: Medium,
-    description: "Medium security level provides a good balance of protection without excessive challenges.",
-  },
-  // --- Performance ---
-  {
-    id: "brotli",
-    expression: "brotli == \"on\"",
-    category: Performance,
-    enabled: true,
-    severity: Low,
-    description: "Brotli compression reduces bandwidth and improves page load times.",
-  },
-  {
-    id: "early_hints",
-    expression: "early_hints == \"on\"",
-    category: Performance,
-    enabled: true,
-    severity: Low,
-    description: "103 Early Hints allow browsers to preload resources before the full response.",
-  },
-  {
-    id: "http3",
-    expression: "http3 == \"on\"",
-    category: Performance,
-    enabled: true,
-    severity: Low,
-    description: "HTTP/3 over QUIC improves performance, especially on mobile networks.",
-  },
-  // --- Network ---
-  {
-    id: "websockets",
-    expression: "websockets == \"on\"",
-    category: Network,
-    enabled: true,
-    severity: Low,
-    description: "Allow WebSocket connections through Cloudflare's proxy.",
-  },
-  {
-    id: "opportunistic_onion",
-    expression: "opportunistic_onion == \"on\"",
-    category: Network,
-    enabled: true,
-    severity: Low,
-    description: "Onion routing allows Tor users to access your site via .onion address.",
-  },
-]
-
-// ============================================================================
-// Policy evaluation helpers
-// ============================================================================
-
-/// Get all enabled constraints from the default policy.
-let enabledConstraints = (): array<policyConstraint> => {
-  defaultConstraints->Array.filter(c => c.enabled)
-}
-
-/// Get constraints for a specific category.
-let constraintsByCategory = (cat: settingCategory): array<policyConstraint> => {
-  defaultConstraints->Array.filter(c => c.category === cat)
-}
-
-/// Find a constraint by its setting ID.
-let findConstraint = (id: string): option<policyConstraint> => {
-  defaultConstraints->Array.find(c => c.id === id)
-}
-
-/// Evaluate a single setting against the policy. Returns Some(finding) if
-/// the setting deviates from the constraint, None if it matches.
-let evaluateSettingAgainstPolicy = (domain: string, setting: cfSetting): option<auditFinding> => {
-  switch findConstraint(setting.id) {
-  | None => None // No constraint for this setting — passes by default
-  | Some(rule) =>
-    if !rule.enabled {
-      None // Constraint disabled — passes
-    } else {
-      let currentStr = CloudGuardEngine.settingValueToString(setting.value)
-      let expectedStr = CloudGuardEngine.settingValueToString(setting.defaultValue)
-
-      let matches = switch (setting.value, setting.defaultValue) {
-      | (BoolValue(a), BoolValue(b)) => a === b
-      | (StringValue(a), StringValue(b)) => a === b
-      | (IntValue(a), IntValue(b)) => a === b
-      | _ => currentStr === expectedStr
-      }
-
-      if matches {
-        None
-      } else {
-        Some({
-          domain,
-          settingId: setting.id,
-          category: setting.category,
-          severity: rule.severity,
-          message: `${rule.expression}: expected ${expectedStr}, got ${currentStr}`,
-          currentValue: currentStr,
-          expectedValue: expectedStr,
-          autoFixable: setting.editable,
-        })
-      }
-    }
-  }
-}
-
-/// Run a full audit of all settings against the policy for a given domain.
-/// Returns a complete auditResult with score, findings, and counts.
-let auditSettings = (domain: string, settings: array<cfSetting>): auditResult => {
-  let enabledC = enabledConstraints()
-  let findings = ref([])
-
-  // Evaluate each setting against its constraint
-  Array.forEach(settings, setting => {
-    switch evaluateSettingAgainstPolicy(domain, setting) {
-    | Some(finding) => findings := Array.concat(findings.contents, [finding])
-    | None => ()
-    }
-  })
-
-  // Count settings that have constraints
-  let totalConstrained = enabledC->Array.length
-  let failedCount = Array.length(findings.contents)
-  let passedCount = totalConstrained - failedCount
-  let warningCount =
-    findings.contents
-    ->Array.filter(f =>
-      switch f.severity {
-      | Medium | Low => true
-      | _ => false
-      }
-    )
-    ->Array.length
-
-  let score = if totalConstrained > 0 {
-    Int.toFloat(passedCount) /. Int.toFloat(totalConstrained)
-  } else {
-    1.0
-  }
-
-  {
-    timestamp: Date.now()->Date.fromTime->Date.toISOString,
-    domains: [domain],
-    findings: CloudGuardEngine.sortFindingsBySeverity(findings.contents),
-    passed: passedCount,
-    failed: failedCount,
-    warnings: warningCount,
-    score,
-  }
-}
-
-/// Run an audit across multiple domains. Combines findings from all domains
-/// into a single auditResult.
-let auditMultipleDomains = (
-  domains: array<string>,
-  settingsPerDomain: array<(string, array<cfSetting>)>,
-): auditResult => {
-  let allFindings = ref([])
-  let totalPassed = ref(0)
-  let totalFailed = ref(0)
-
-  Array.forEach(settingsPerDomain, ((domain, settings)) => {
-    let result = auditSettings(domain, settings)
-    allFindings := Array.concat(allFindings.contents, result.findings)
-    totalPassed := totalPassed.contents + result.passed
-    totalFailed := totalFailed.contents + result.failed
-  })
-
-  let total = totalPassed.contents + totalFailed.contents
-  let score = if total > 0 {
-    Int.toFloat(totalPassed.contents) /. Int.toFloat(total)
-  } else {
-    1.0
-  }
-
-  {
-    timestamp: Date.now()->Date.fromTime->Date.toISOString,
-    domains,
-    findings: CloudGuardEngine.sortFindingsBySeverity(allFindings.contents),
-    passed: totalPassed.contents,
-    failed: totalFailed.contents,
-    warnings: allFindings.contents
-    ->Array.filter(f =>
-      switch f.severity {
-      | Medium | Low => true
-      | _ => false
-      }
-    )
-    ->Array.length,
-    score,
-  }
-}
diff --git a/src/core/CodeReviewEngine.affine b/src/core/CodeReviewEngine.affine
new file mode 100644
index 00000000..1d6b3b16
--- /dev/null
+++ b/src/core/CodeReviewEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CodeReviewEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/CodeReviewEngine.res b/src/core/CodeReviewEngine.res
deleted file mode 100644
index 7d9a673e..00000000
--- a/src/core/CodeReviewEngine.res
+++ /dev/null
@@ -1,94 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Code Review Engine — pure computation and helpers for the
-/// Code Review panel. Provides default state, PR counting, comment
-/// filtering, status labelling, and file diff analysis.
-
-open CodeReviewModel
-
-/// Default initial state for the Code Review panel.
-/// Starts on the Pull Requests tab with empty lists.
-let defaultState: codeReviewState = {
-  activeTab: TabPullRequests,
-  pullRequests: [],
-  comments: [],
-  fileDiffs: [],
-  selectedPr: None,
-  filter: "",
-  error: None,
-}
-
-/// Human-readable label for each tab in the Code Review panel.
-let tabLabel = (tab: codeReviewTab): string =>
-  switch tab {
-  | TabPullRequests => "Pull Requests"
-  | TabFileChanges => "File Changes"
-  | TabComments => "Comments"
-  | TabApprovalGate => "Approval Gate"
-  }
-
-/// All tabs in display order.
-let allTabs: array<codeReviewTab> = [TabPullRequests, TabFileChanges, TabComments, TabApprovalGate]
-
-/// Human-readable label for a PR status.
-let statusLabel = (status: prStatus): string =>
-  switch status {
-  | PrOpen => "Open"
-  | PrApproved => "Approved"
-  | PrChangesRequested => "Changes Requested"
-  | PrMerged => "Merged"
-  | PrClosed => "Closed"
-  }
-
-/// CSS colour class for a PR status.
-let statusColor = (status: prStatus): string =>
-  switch status {
-  | PrOpen => "text-green-400"
-  | PrApproved => "text-blue-400"
-  | PrChangesRequested => "text-yellow-400"
-  | PrMerged => "text-purple-400"
-  | PrClosed => "text-gray-500"
-  }
-
-/// Count pull requests by status.
-let countByStatus = (prs: array<pullRequest>, status: prStatus): int =>
-  prs->Array.filter(pr => pr.status === status)->Array.length
-
-/// Count unresolved review comments.
-let countUnresolved = (comments: array<reviewComment>): int =>
-  comments->Array.filter(c => !c.resolved)->Array.length
-
-/// Count resolved review comments.
-let countResolved = (comments: array<reviewComment>): int =>
-  comments->Array.filter(c => c.resolved)->Array.length
-
-/// Filter pull requests by title or author matching a search string (case-insensitive).
-let filterPrs = (prs: array<pullRequest>, query: string): array<pullRequest> => {
-  if query === "" {
-    prs
-  } else {
-    let q = query->String.toLowerCase
-    prs->Array.filter(pr =>
-      pr.title->String.toLowerCase->String.includes(q) ||
-        pr.author->String.toLowerCase->String.includes(q)
-    )
-  }
-}
-
-/// Total lines changed (additions + deletions) for a PR.
-let totalLinesChanged = (pr: pullRequest): int => pr.additions + pr.deletions
-
-/// Whether a PR is ready to merge (approved, no unresolved comments).
-let isReadyToMerge = (pr: pullRequest, comments: array<reviewComment>): bool =>
-  pr.status === PrApproved && countUnresolved(comments) == 0
-
-/// Total additions across all file diffs.
-let totalAdditions = (diffs: array<fileDiffEntry>): int =>
-  diffs->Array.reduce(0, (acc, d) => acc + d.additions)
-
-/// Total deletions across all file diffs.
-let totalDeletions = (diffs: array<fileDiffEntry>): int =>
-  diffs->Array.reduce(0, (acc, d) => acc + d.deletions)
-
-/// Count open PRs (convenience).
-let openPrCount = (prs: array<pullRequest>): int => countByStatus(prs, PrOpen)
diff --git a/src/core/CompatibilityMatrixEngine.affine b/src/core/CompatibilityMatrixEngine.affine
new file mode 100644
index 00000000..39610206
--- /dev/null
+++ b/src/core/CompatibilityMatrixEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CompatibilityMatrixEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/CompatibilityMatrixEngine.res b/src/core/CompatibilityMatrixEngine.res
deleted file mode 100644
index a7636990..00000000
--- a/src/core/CompatibilityMatrixEngine.res
+++ /dev/null
@@ -1,151 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Compatibility Matrix Engine — pure computation and helpers for the
-/// Compatibility Matrix panel. Provides default state, cell counting,
-/// result formatting, resolution display, and matrix summary computation.
-
-open CompatibilityMatrixModel
-
-/// Default state for the Compatibility Matrix panel.
-/// Pre-loaded with standard browser and device targets.
-let defaultState: compatibilityMatrixState = {
-  activeTab: TabMatrix,
-  browsers: [
-    {name: "Chrome", version: "latest", engine: "Blink"},
-    {name: "Firefox", version: "latest", engine: "Gecko"},
-    {name: "Safari", version: "latest", engine: "WebKit"},
-  ],
-  devices: [
-    {name: "Desktop 1080p", category: "desktop", resolution: (1920, 1080), pixelRatio: 1.0},
-    {name: "Desktop 1440p", category: "desktop", resolution: (2560, 1440), pixelRatio: 1.0},
-    {name: "Mobile 375", category: "mobile", resolution: (375, 812), pixelRatio: 3.0},
-    {name: "Tablet 768", category: "tablet", resolution: (768, 1024), pixelRatio: 2.0},
-  ],
-  cells: [],
-  running: false,
-  selectedBrowser: None,
-  selectedDevice: None,
-  error: None,
-}
-
-/// Human-readable label for each tab in the Compatibility Matrix panel.
-let tabLabel = (tab: compatibilityTab): string =>
-  switch tab {
-  | TabMatrix => "Matrix"
-  | TabFailures => "Failures"
-  | TabScreenshots => "Screenshots"
-  | TabTargets => "Targets"
-  }
-
-/// All tabs in display order.
-let allTabs: array<compatibilityTab> = [TabMatrix, TabFailures, TabScreenshots, TabTargets]
-
-/// Count passing cells in the matrix.
-let countPassing = (cells: array<matrixCell>): int =>
-  cells->Array.filter(c => c.result == CompatPassing)->Array.length
-
-/// Count failing cells in the matrix.
-let countFailing = (cells: array<matrixCell>): int =>
-  cells
-  ->Array.filter(c =>
-    switch c.result {
-    | CompatFailing(_) => true
-    | _ => false
-    }
-  )
-  ->Array.length
-
-/// Count warning cells.
-let countWarnings = (cells: array<matrixCell>): int =>
-  cells
-  ->Array.filter(c =>
-    switch c.result {
-    | CompatWarning(_) => true
-    | _ => false
-    }
-  )
-  ->Array.length
-
-/// Count untested cells in the matrix.
-let countUntested = (cells: array<matrixCell>): int =>
-  cells->Array.filter(c => c.result == CompatUntested)->Array.length
-
-/// Count skipped cells.
-let countSkipped = (cells: array<matrixCell>): int =>
-  cells
-  ->Array.filter(c =>
-    switch c.result {
-    | CompatSkipped(_) => true
-    | _ => false
-    }
-  )
-  ->Array.length
-
-/// Human-readable result label for display.
-let resultLabel = (result: compatResult): string =>
-  switch result {
-  | CompatPassing => "Pass"
-  | CompatFailing(reason) => "Fail: " ++ reason
-  | CompatWarning(msg) => "Warn: " ++ msg
-  | CompatUntested => "Untested"
-  | CompatSkipped(reason) => "Skipped: " ++ reason
-  }
-
-/// CSS colour class for a compatibility result.
-let resultColor = (result: compatResult): string =>
-  switch result {
-  | CompatPassing => "text-green-400"
-  | CompatFailing(_) => "text-red-400"
-  | CompatWarning(_) => "text-yellow-400"
-  | CompatUntested => "text-gray-500"
-  | CompatSkipped(_) => "text-gray-400"
-  }
-
-/// CSS background colour class for matrix cell colouring.
-let cellBgColor = (result: compatResult): string =>
-  switch result {
-  | CompatPassing => "bg-green-900/30"
-  | CompatFailing(_) => "bg-red-900/30"
-  | CompatWarning(_) => "bg-yellow-900/30"
-  | CompatUntested => "bg-gray-900/30"
-  | CompatSkipped(_) => "bg-gray-800/30"
-  }
-
-/// Device resolution as display string (e.g., "1920x1080").
-let resolutionLabel = (device: deviceTarget): string => {
-  let (w, h) = device.resolution
-  Int.toString(w) ++ "x" ++ Int.toString(h)
-}
-
-/// Compute a matrix summary from the current cell data.
-let computeSummary = (cells: array<matrixCell>): matrixSummary => {
-  let total = Array.length(cells)
-  let passing = countPassing(cells)
-  let failing = countFailing(cells)
-  let warnings = countWarnings(cells)
-  let untested = countUntested(cells)
-  let skipped = countSkipped(cells)
-  let tested = total - untested - skipped
-  {
-    totalCells: total,
-    passing,
-    failing,
-    warnings,
-    untested,
-    skipped,
-    passRate: if tested == 0 {
-      0.0
-    } else {
-      Float.fromInt(passing) /. Float.fromInt(tested) *. 100.0
-    },
-  }
-}
-
-/// Filter cells to only show failures.
-let failingCells = (cells: array<matrixCell>): array<matrixCell> =>
-  cells->Array.filter(c =>
-    switch c.result {
-    | CompatFailing(_) => true
-    | _ => false
-    }
-  )
diff --git a/src/core/ConnectionManager.affine b/src/core/ConnectionManager.affine
new file mode 100644
index 00000000..6686d7ef
--- /dev/null
+++ b/src/core/ConnectionManager.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ConnectionManager;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/ConnectionManager.res b/src/core/ConnectionManager.res
deleted file mode 100644
index 595e05f8..00000000
--- a/src/core/ConnectionManager.res
+++ /dev/null
@@ -1,73 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Connection Manager — shared utilities for managing panel backend connections.
-///
-/// Provides pure helper functions for connection lifecycle state transitions.
-/// Each panel maintains its own connectionStatus in its model; this module
-/// offers common logic so panels behave consistently.
-
-open PanelSwitcherModel
-
-/// Transition a connection to "checking" state.
-let startChecking = (_status: connectionStatus): connectionStatus => {
-  ServiceChecking
-}
-
-/// Handle a successful health check response.
-let connectSuccess = (_status: connectionStatus): connectionStatus => {
-  ServiceConnected
-}
-
-/// Handle a failed health check response.
-let connectFailure = (_status: connectionStatus, error: string): connectionStatus => {
-  ServiceError(error)
-}
-
-/// Reset connection to disconnected.
-let disconnect = (_status: connectionStatus): connectionStatus => {
-  ServiceDisconnected
-}
-
-/// Check if a connection is usable (connected).
-let isConnected = (status: connectionStatus): bool => {
-  switch status {
-  | ServiceConnected => true
-  | _ => false
-  }
-}
-
-/// Check if a connection is in an error state.
-let hasError = (status: connectionStatus): bool => {
-  switch status {
-  | ServiceError(_) => true
-  | _ => false
-  }
-}
-
-/// Get the error message if in error state.
-let errorMessage = (status: connectionStatus): option<string> => {
-  switch status {
-  | ServiceError(msg) => Some(msg)
-  | _ => None
-  }
-}
-
-/// Human-readable label for a connection status.
-let statusLabel = (status: connectionStatus): string => {
-  switch status {
-  | ServiceConnected => "Connected"
-  | ServiceDisconnected => "Disconnected"
-  | ServiceChecking => "Checking..."
-  | ServiceError(e) => `Error: ${e}`
-  }
-}
-
-/// CSS colour class for a connection status.
-let statusColour = (status: connectionStatus): string => {
-  switch status {
-  | ServiceConnected => "text-emerald-400"
-  | ServiceDisconnected => "text-gray-500"
-  | ServiceChecking => "text-amber-400"
-  | ServiceError(_) => "text-red-400"
-  }
-}
diff --git a/src/core/ContractileCompletenessEngine.affine b/src/core/ContractileCompletenessEngine.affine
new file mode 100644
index 00000000..879718d0
--- /dev/null
+++ b/src/core/ContractileCompletenessEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ContractileCompletenessEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/ContractileCompletenessEngine.res b/src/core/ContractileCompletenessEngine.res
deleted file mode 100644
index abd3c3ef..00000000
--- a/src/core/ContractileCompletenessEngine.res
+++ /dev/null
@@ -1,41 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Contractile Completeness Engine — pure helpers for contractile coverage.
-
-open ContractileCompletenessModel
-
-/// Default initial state.
-let defaultState: contractileCompletenessState = {
-  activeTab: TabOverview,
-  repos: [],
-  selectedRepo: None,
-  scanning: false,
-  error: None,
-  filterText: "",
-}
-
-/// Tab label for display.
-let tabLabel = (tab: contractileCompletenessTab): string => {
-  switch tab {
-  | TabOverview => "Overview"
-  | TabRepoList => "Repos"
-  | TabMissing => "Missing"
-  }
-}
-
-/// All tabs for rendering.
-let allTabs: array<contractileCompletenessTab> = [TabOverview, TabRepoList, TabMissing]
-
-/// Count repos with all four contractile files present.
-let fullyCompleteCount = (repos: array<repoContractileStatus>): int => {
-  repos
-  ->Array.filter(r => r.hasMustfile && r.hasTrustfile && r.hasDustfile && r.hasK9)
-  ->Array.length
-}
-
-/// Count repos missing any contractile file.
-let incompleteCount = (repos: array<repoContractileStatus>): int => {
-  repos
-  ->Array.filter(r => !(r.hasMustfile && r.hasTrustfile && r.hasDustfile && r.hasK9))
-  ->Array.length
-}
diff --git a/src/core/Contractiles.affine b/src/core/Contractiles.affine
new file mode 100644
index 00000000..47ead308
--- /dev/null
+++ b/src/core/Contractiles.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Contractiles;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/Contractiles.res b/src/core/Contractiles.res
deleted file mode 100644
index 3f30e8dd..00000000
--- a/src/core/Contractiles.res
+++ /dev/null
@@ -1,381 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Contractiles Module - Model.Adaptive State Contracts
-///
-/// Defines the elastic, adaptive state-shapes between the Operator
-/// and the Machine. Contractiles enforce boundaries while allowing
-/// for dynamic adjustment based on the co-orbit state.
-
-// Use Model types to avoid circular dependencies
-type enforcementLevel = Model.enforcementLevel
-type contractStatus = Model.contractStatus
-type contractile = Model.contractile
-type evaluationResult = Model.evaluationResult
-
-/// Built-in contractile: Orbital Stability Bound
-let orbitalStabilityContract = (
-  orbital: Model.orbitalState,
-  threshold: float,
-): Model.contractStatus => {
-  if orbital.stability >= threshold {
-    Model.Satisfied
-  } else {
-    Model.Violated(
-      `Orbital stability ${Float.toString(orbital.stability)} below threshold ${Float.toString(
-          threshold,
-        )}`,
-    )
-  }
-}
-
-/// Built-in contractile: Vexation Ceiling
-let vexationCeilingContract = (vex: Model.vexometerState, ceiling: float): Model.contractStatus => {
-  if vex.index <= ceiling {
-    Model.Satisfied
-  } else {
-    Model.Violated(
-      `Vexation index ${Float.toString(vex.index)} exceeds ceiling ${Float.toString(ceiling)}`,
-    )
-  }
-}
-
-/// Built-in contractile: Divergence Limit
-let divergenceLimitContract = (orbital: Model.orbitalState, limit: float): Model.contractStatus => {
-  if orbital.divergenceLevel <= limit {
-    Model.Satisfied
-  } else {
-    Model.Violated(
-      `Divergence level ${Float.toString(orbital.divergenceLevel)} exceeds limit ${Float.toString(
-          limit,
-        )}`,
-    )
-  }
-}
-
-/// Built-in contractile: Autonomy Bound
-let autonomyBoundContract = (
-  agency: Model.agencyState,
-  maxAutonomy: float,
-): Model.contractStatus => {
-  if agency.autonomyLevel <= maxAutonomy {
-    Model.Satisfied
-  } else {
-    Model.Violated(
-      `Autonomy level ${Float.toString(agency.autonomyLevel)} exceeds bound ${Float.toString(
-          maxAutonomy,
-        )}`,
-    )
-  }
-}
-
-/// Built-in contractile: SafeDOM Enforcement
-/// Ensures all DOM mounting goes through SafeDOM's 4-layer defence-in-depth.
-/// Checks that SafeDOM layers are initialised and no direct innerHTML usage exists.
-let safeDomContract = (safetyInitialised: bool): Model.contractStatus => {
-  if safetyInitialised {
-    Model.Satisfied
-  } else {
-    Model.Violated("SafeDOM layers not initialised — DOM mounts are unprotected against XSS")
-  }
-}
-
-/// Anti-Crash Gate contractile — circuit breaker between Panel-N and Panel-W.
-/// Validates that the anti-crash validation is enabled and the rejection rate
-/// is within bounds. High rejection = neural output is drifting from constraints.
-let antiCrashGateContract = (
-  antiCrashEnabled: bool,
-  rejectionRate: float,
-  maxRejectionRate: float,
-): contractStatus => {
-  if !antiCrashEnabled {
-    Violated("Anti-Crash Gate is disabled — neural tokens reaching workspace unchecked")
-  } else if rejectionRate > maxRejectionRate {
-    Violated(
-      "Anti-Crash rejection rate " ++
-      Float.toString(rejectionRate) ++
-      " exceeds threshold " ++
-      Float.toString(maxRejectionRate),
-    )
-  } else {
-    Satisfied
-  }
-}
-
-/// Information Humidity contractile — UI density adapts to stress level.
-/// High humidity (relaxed) = more detail. Low humidity (stressed) = essential only.
-let informationHumidityContract = (humidityLevel: float, vexationIndex: float): contractStatus => {
-  // Humidity should be inversely correlated with vexation
-  // If vexation is high but humidity is also high, the UI isn't adapting
-  if vexationIndex > 0.7 && humidityLevel > 0.6 {
-    Violated(
-      "High vexation (" ++
-      Float.toString(vexationIndex) ++
-      ") but UI density not reduced (humidity=" ++
-      Float.toString(humidityLevel) ++ ")",
-    )
-  } else {
-    Satisfied
-  }
-}
-
-/// TypeLL Coverage contractile — validates that TypeLL checking is active.
-/// All panels should have TypeLL coverage for type-safe cross-panel communication.
-let typellCoverageContract = (
-  activeChecks: int,
-  totalPanels: int,
-  minCoveragePercent: float,
-): contractStatus => {
-  if totalPanels == 0 {
-    Pending
-  } else {
-    let coverage = Int.toFloat(activeChecks) /. Int.toFloat(totalPanels) *. 100.0
-    if coverage < minCoveragePercent {
-      Violated(
-        "TypeLL coverage at " ++
-        Float.toString(coverage) ++
-        "%, minimum is " ++
-        Float.toString(minCoveragePercent) ++ "%",
-      )
-    } else {
-      Satisfied
-    }
-  }
-}
-
-/// BoJ Latency Bound contractile — validates cartridge response times.
-/// If median latency exceeds the bound, the system is degrading.
-let bojLatencyBoundContract = (medianLatencyMs: float, maxLatencyMs: float): contractStatus => {
-  if medianLatencyMs > maxLatencyMs {
-    Violated(
-      "BoJ median latency " ++
-      Float.toString(medianLatencyMs) ++
-      "ms exceeds " ++
-      Float.toString(maxLatencyMs) ++ "ms bound",
-    )
-  } else {
-    Satisfied
-  }
-}
-
-/// Panel Wiring Integrity contractile — validates PCC contract satisfaction.
-/// If any panel is not Releasable, the constraint system has drift.
-let panelWiringIntegrityContract = (releasableCount: int, totalCount: int): contractStatus => {
-  if totalCount == 0 {
-    Pending
-  } else if releasableCount < totalCount {
-    let missing = totalCount - releasableCount
-    Violated(
-      Int.toString(missing) ++ " of " ++ Int.toString(totalCount) ++ " panels not Releasable",
-    )
-  } else {
-    Satisfied
-  }
-}
-
-/// Test Health contractile — validates test suite pass rate.
-let testHealthContract = (passing: int, total: int, minPassRate: float): contractStatus => {
-  if total == 0 {
-    Pending
-  } else {
-    let rate = Int.toFloat(passing) /. Int.toFloat(total) *. 100.0
-    if rate < minPassRate {
-      Violated(
-        "Test pass rate " ++
-        Float.toString(rate) ++
-        "% below " ++
-        Float.toString(minPassRate) ++ "% threshold",
-      )
-    } else {
-      Satisfied
-    }
-  }
-}
-
-/// Default contractile set for PanLL — Cognitive Governance Stack (DD-007)
-let defaultContractiles = (): array<contractile> => [
-  {
-    id: "orbital-stability",
-    name: "Orbital Stability Bound",
-    description: "Ensures the Binary Star co-orbit remains stable",
-    enforcement: Model.Strict,
-    status: Model.Pending,
-    elasticity: 0.2,
-    lastEvaluated: 0.0,
-  },
-  {
-    id: "vexation-ceiling",
-    name: "Vexation Ceiling",
-    description: "Prevents operator friction from exceeding acceptable levels",
-    enforcement: Model.Adaptive,
-    status: Model.Pending,
-    elasticity: 0.5,
-    lastEvaluated: 0.0,
-  },
-  {
-    id: "divergence-limit",
-    name: "Divergence Limit",
-    description: "Limits drift between symbolic and neural subsystems",
-    enforcement: Model.Warn,
-    status: Model.Pending,
-    elasticity: 0.3,
-    lastEvaluated: 0.0,
-  },
-  {
-    id: "autonomy-bound",
-    name: "Autonomy Bound",
-    description: "Constrains the machine's autonomous action level",
-    enforcement: Model.Strict,
-    status: Model.Pending,
-    elasticity: 0.4,
-    lastEvaluated: 0.0,
-  },
-  {
-    id: "safedom-enforcement",
-    name: "SafeDOM Enforcement (K9-SVC)",
-    description: "All DOM mounts must go through SafeDOM 4-layer defence-in-depth — no direct innerHTML",
-    enforcement: Model.Strict,
-    status: Model.Pending,
-    elasticity: 0.0, // Zero elasticity — security contracts are non-negotiable
-    lastEvaluated: 0.0,
-  },
-  {
-    id: "anti-crash-gate",
-    name: "Anti-Crash Gate",
-    description: "Circuit breaker between Panel-N and Panel-W — validates neural tokens are constraint-checked",
-    enforcement: Model.Strict,
-    status: Model.Pending,
-    elasticity: 0.0, // Zero elasticity — circuit breaker is non-negotiable
-    lastEvaluated: 0.0,
-  },
-  {
-    id: "information-humidity",
-    name: "Information Humidity",
-    description: "Adapts UI density to cognitive load — high vexation reduces information density",
-    enforcement: Model.Adaptive,
-    status: Model.Pending,
-    elasticity: 0.5,
-    lastEvaluated: 0.0,
-  },
-  {
-    id: "typell-coverage",
-    name: "TypeLL Coverage",
-    description: "Ensures TypeLL type checking is active across panels for safe cross-panel communication",
-    enforcement: Model.Warn,
-    status: Model.Pending,
-    elasticity: 0.3,
-    lastEvaluated: 0.0,
-  },
-  {
-    id: "boj-latency-bound",
-    name: "BoJ Latency Bound",
-    description: "Validates BoJ cartridge response times stay within acceptable bounds",
-    enforcement: Model.Adaptive,
-    status: Model.Pending,
-    elasticity: 0.4,
-    lastEvaluated: 0.0,
-  },
-  {
-    id: "panel-wiring-integrity",
-    name: "Panel Wiring Integrity",
-    description: "Validates all panels pass PCC verification — links Phase 3 constraints to runtime",
-    enforcement: Model.Warn,
-    status: Model.Pending,
-    elasticity: 0.2,
-    lastEvaluated: 0.0,
-  },
-  {
-    id: "test-health",
-    name: "Test Health",
-    description: "Validates test suite pass rate meets minimum threshold",
-    enforcement: Model.Strict,
-    status: Model.Pending,
-    elasticity: 0.0, // Zero elasticity — test health is non-negotiable
-    lastEvaluated: 0.0,
-  },
-]
-
-/// Evaluate a single contractile against the current model state.
-/// Pattern-matches on the contractile id to call the appropriate check function
-/// with the correct model fields. New contractiles start in Pending and evaluate
-/// when their data becomes available through the model.
-let evaluateContractile = (
-  contractile: Model.contractile,
-  model: Model.model,
-): Model.contractStatus => {
-  switch contractile.id {
-  | "orbital-stability" => orbitalStabilityContract(model.orbital, 0.5)
-  | "vexation-ceiling" => vexationCeilingContract(model.vexometer, 0.8)
-  | "divergence-limit" => divergenceLimitContract(model.orbital, 0.6)
-  | "autonomy-bound" => autonomyBoundContract(model.paneN.agency, 0.7)
-  | "safedom-enforcement" => safeDomContract(true) // SafeDOM initSafety() runs at startup in Tea_App
-  | "anti-crash-gate" =>
-    // Anti-crash gate data comes from Panel-N/Panel-W bridge state.
-    // When the bridge is not yet initialised, remain Pending.
-    antiCrashGateContract(true, 0.0, 0.15)
-  | "information-humidity" =>
-    // Humidity level adapts based on vexation — use vexometer directly.
-    // Default humidity is inverse of vexation for adaptive UI density.
-    let humidity = 1.0 -. model.vexometer.index
-    informationHumidityContract(humidity, model.vexometer.index)
-  | "typell-coverage" =>
-    // TypeLL coverage data not yet wired into model — start Pending.
-    // Will evaluate when TypeLL integration provides panel check counts.
-    Model.Pending
-  | "boj-latency-bound" =>
-    // BoJ latency not yet wired into model — start Pending.
-    // Will evaluate when BoJ cartridge telemetry is available.
-    Model.Pending
-  | "panel-wiring-integrity" =>
-    // PCC verification data not yet wired into model — start Pending.
-    // Will evaluate when PCC results are fed back at runtime.
-    Model.Pending
-  | "test-health" =>
-    // Test health not yet wired into model — start Pending.
-    // Will evaluate when CI/test runner reports are ingested.
-    Model.Pending
-  | _ => Model.Pending
-  }
-}
-
-/// Evaluate all contractiles against current model state
-let evaluateAll = (model: Model.model, contractiles: array<Model.contractile>): array<
-  Model.evaluationResult,
-> => {
-  Array.map(contractiles, c => {
-    let status = evaluateContractile(c, model)
-
-    let message = switch status {
-    | Model.Satisfied => "Contract satisfied"
-    | Model.Violated(msg) => msg
-    | Model.Pending => "Awaiting evaluation"
-    | Suspended => "Contract suspended"
-    }
-
-    // Suggest adjustments for violated contracts with high elasticity
-    let suggestion = switch status {
-    | Model.Violated(_) if c.elasticity > 0.3 =>
-      Some("Consider relaxing constraint threshold based on current context")
-    | _ => None
-    }
-
-    let result: Model.evaluationResult = {
-      contractId: c.id,
-      status,
-      message,
-      adjustmentSuggestion: suggestion,
-    }
-    result
-  })
-}
-
-/// Apply adaptive adjustments based on elasticity
-let adaptContract = (contractile: Model.contractile, model: Model.model): Model.contractile => {
-  // Higher vexation = more elastic contracts
-  let vexationFactor = model.vexometer.index
-  let adjustedElasticity = contractile.elasticity +. vexationFactor *. 0.2
-
-  // Clamp elasticity to [0.0, 1.0]
-  let clampedElasticity = Math.min(1.0, Math.max(0.0, adjustedElasticity))
-
-  {...contractile, elasticity: clampedElasticity}
-}
diff --git a/src/core/CoprocessorsEngine.affine b/src/core/CoprocessorsEngine.affine
new file mode 100644
index 00000000..f38457d5
--- /dev/null
+++ b/src/core/CoprocessorsEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CoprocessorsEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/CoprocessorsEngine.res b/src/core/CoprocessorsEngine.res
deleted file mode 100644
index 36dbd78d..00000000
--- a/src/core/CoprocessorsEngine.res
+++ /dev/null
@@ -1,368 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Coprocessors Engine — pure computation and helpers for the
-/// IDApTIK coprocessor monitoring dashboard.
-
-open CoprocessorsModel
-
-/// Human-readable labels for category tabs.
-let categoryLabel = (cat: coprocessorsCategory): string =>
-  switch cat {
-  | CoprocDashboard => "Dashboard"
-  | CoprocCallLog => "Call Log"
-  | CoprocHeatmap => "Heatmap"
-  | CoprocRouting => "Routing"
-  | CoprocSettings => "Settings"
-  }
-
-/// Human-readable labels for coprocessor backends.
-let backendLabel = (backend: coprocessorBackend): string =>
-  switch backend {
-  | CoprocMaths => "Maths"
-  | CoprocVector => "Vector"
-  | CoprocTensor => "Tensor"
-  | CoprocPhysics => "Physics"
-  | CoprocCrypto => "Crypto"
-  | CoprocNeural => "Neural"
-  | CoprocQuantum => "Quantum"
-  | CoprocAudio => "Audio"
-  | CoprocGraphics => "Graphics"
-  | CoprocIO => "I/O"
-  }
-
-/// Short labels for compact display.
-let backendShortLabel = (backend: coprocessorBackend): string =>
-  switch backend {
-  | CoprocMaths => "MAT"
-  | CoprocVector => "VEC"
-  | CoprocTensor => "TEN"
-  | CoprocPhysics => "PHY"
-  | CoprocCrypto => "CRY"
-  | CoprocNeural => "NEU"
-  | CoprocQuantum => "QUA"
-  | CoprocAudio => "AUD"
-  | CoprocGraphics => "GFX"
-  | CoprocIO => "I/O"
-  }
-
-/// Tailwind colour class for each backend.
-let backendColour = (backend: coprocessorBackend): string =>
-  switch backend {
-  | CoprocMaths => "text-blue-400"
-  | CoprocVector => "text-cyan-400"
-  | CoprocTensor => "text-indigo-400"
-  | CoprocPhysics => "text-amber-400"
-  | CoprocCrypto => "text-red-400"
-  | CoprocNeural => "text-emerald-400"
-  | CoprocQuantum => "text-purple-400"
-  | CoprocAudio => "text-pink-400"
-  | CoprocGraphics => "text-orange-400"
-  | CoprocIO => "text-gray-400"
-  }
-
-/// Health status label.
-let healthLabel = (health: coprocHealth): string =>
-  switch health {
-  | CoprocHealthy => "Healthy"
-  | CoprocDegraded => "Degraded"
-  | CoprocFailed => "Failed"
-  | CoprocDisabled => "Disabled"
-  }
-
-/// Health status colour.
-let healthColour = (health: coprocHealth): string =>
-  switch health {
-  | CoprocHealthy => "text-emerald-400"
-  | CoprocDegraded => "text-amber-400"
-  | CoprocFailed => "text-red-400"
-  | CoprocDisabled => "text-gray-500"
-  }
-
-/// All coprocessor backends.
-let allBackends: array<coprocessorBackend> = [
-  CoprocMaths,
-  CoprocVector,
-  CoprocTensor,
-  CoprocPhysics,
-  CoprocCrypto,
-  CoprocNeural,
-  CoprocQuantum,
-  CoprocAudio,
-  CoprocGraphics,
-  CoprocIO,
-]
-
-/// Filter call log by backend.
-let filterByBackend = (log: array<coprocCallEntry>, backend: coprocessorBackend): array<
-  coprocCallEntry,
-> => log->Array.filter(entry => entry.backend === backend)
-
-/// Human-readable label for a compute engine.
-let engineLabel = (engine: computeEngine): string =>
-  switch engine {
-  | EngineAxiom => "Axiom.jl"
-  | EngineBoJ => "BoJ Cartridge"
-  | EngineLocal => "Local CPU/WASM"
-  }
-
-/// Parse a compute engine string into a computeEngine variant.
-let parseEngineId = (s: string): computeEngine =>
-  switch s {
-  | "axiom" => EngineAxiom
-  | "boj" => EngineBoJ
-  | _ => EngineLocal
-  }
-
-/// Tea_Json decoder for a compute query result (parameterised by engine).
-let computeResultDecoder = (engine: computeEngine): Tea_Json.decoder<computeQueryResult> => {
-  open Decoders
-  open Tea_Json
-  map4((operation, result, durationMs, success): computeQueryResult => {
-    engineId: engine,
-    operation,
-    result,
-    durationMs,
-    success,
-  }, stringField(
-    "operation",
-  ), stringField("result"), floatField("duration_ms"), boolField("success"))
-}
-
-/// Parse a compute engine query result from JSON.
-let parseComputeResult = (json: string, engine: computeEngine): result<
-  computeQueryResult,
-  string,
-> => Decoders.decode(computeResultDecoder(engine), json)
-
-/// Tea_Json decoder for a single compute device.
-let deviceDecoder: Tea_Json.decoder<computeDevice> = {
-  open Decoders
-  open Tea_Json
-  map4((engineStr, deviceName, deviceType, available): computeDevice => {
-    engineId: parseEngineId(engineStr),
-    deviceName,
-    deviceType,
-    available,
-    capabilities: [],
-  }, stringField(
-    "engine",
-  ), stringField("device_name"), stringField("device_type"), boolField("available"))
-}
-
-/// Parse discovered devices from JSON array.
-let parseDevices = (json: string): array<computeDevice> =>
-  Decoders.decodeWithDefault(Decoders.lenientArray(deviceDecoder), [], json)
-
-/// Human-readable label for a routing strategy.
-let routingLabel = (strategy: routingStrategy): string =>
-  switch strategy {
-  | RouteLocal => "Local (Zig FFI)"
-  | RouteRemote => "Remote (Axiom.jl)"
-  | RouteBoj => "BoJ Cartridge"
-  | RouteAutomatic => "Automatic"
-  }
-
-/// Tailwind colour class for a routing strategy.
-let routingColour = (strategy: routingStrategy): string =>
-  switch strategy {
-  | RouteLocal => "text-emerald-400"
-  | RouteRemote => "text-blue-400"
-  | RouteBoj => "text-amber-400"
-  | RouteAutomatic => "text-purple-400"
-  }
-
-/// Check if an operation can be handled locally by the Zig FFI (Phase 2).
-/// Operations involving math, vector, and tensor work are local-capable.
-let canHandleLocally = (localDispatch: localDispatchState, operation: string): bool => {
-  if !localDispatch.ffiLoaded {
-    false
-  } else {
-    let op = operation->String.toLowerCase
-    op->String.includes("math") ||
-    op->String.includes("vector") ||
-    op->String.includes("tensor") ||
-    op->String.includes("matrix") ||
-    op->String.includes("linear") ||
-    op->String.includes("arithmetic")
-  }
-}
-
-/// Estimate latency for each routing option in milliseconds.
-let rec estimateLatency = (state: coprocessorsState, route: routingStrategy): float => {
-  switch route {
-  | RouteLocal =>
-    if state.localDispatch.ffiLoaded {
-      // Local FFI is sub-millisecond for most operations.
-      0.1 +. Float.fromInt(state.localDispatch.pendingDispatches) *. 0.05
-    } else {
-      // FFI not loaded — effectively infinite.
-      99999.0
-    }
-  | RouteRemote =>
-    // Network round-trip to Axiom.jl (local socket or HTTP).
-    let hasRemote =
-      state.discoveredDevices->Array.some(d => d.engineId === EngineAxiom && d.available)
-    if hasRemote {
-      5.0
-    } else {
-      99999.0
-    }
-  | RouteBoj =>
-    // BoJ cartridge via HTTP on localhost.
-    let hasBoj = state.discoveredDevices->Array.some(d => d.engineId === EngineBoJ && d.available)
-    if hasBoj {
-      3.0
-    } else {
-      99999.0
-    }
-  | RouteAutomatic =>
-    // Automatic routes to the best option — estimate as the minimum.
-    let local = estimateLatency(state, RouteLocal)
-    let remote = estimateLatency(state, RouteRemote)
-    let boj = estimateLatency(state, RouteBoj)
-    Math.minMany([local, remote, boj])
-  }
-}
-
-/// Decide which route to use for a compute operation (Phase 3).
-/// Considers: FFI availability, device capabilities, CPU load, operation type.
-let selectRoute = (state: coprocessorsState, operation: string): routingDecision => {
-  let now = Date.now()
-  let op = operation->String.toLowerCase
-
-  let (chosenRoute, reason) = switch state.routingStrategy {
-  | RouteAutomatic => {
-      // Smart routing: check local first, then remote, then BoJ fallback.
-      let localOk =
-        canHandleLocally(state.localDispatch, operation) && state.localDispatch.cpuUtilisation < 0.8
-      let isNeural = op->String.includes("neural") || op->String.includes("quantum")
-      let hasRemote =
-        state.discoveredDevices->Array.some(d => d.engineId === EngineAxiom && d.available)
-      let hasBoj = state.discoveredDevices->Array.some(d => d.engineId === EngineBoJ && d.available)
-
-      if localOk {
-        (RouteLocal, "FFI loaded, math/vector op, CPU utilisation below threshold")
-      } else if isNeural && hasRemote {
-        (RouteRemote, "Neural/quantum operation requires remote Axiom.jl capabilities")
-      } else if hasBoj {
-        (RouteBoj, "BoJ cartridge available as unified fallback")
-      } else if hasRemote {
-        (RouteRemote, "Remote engine available, no local or BoJ option")
-      } else {
-        (RouteBoj, "No preferred route available — defaulting to BoJ")
-      }
-    }
-  | RouteLocal =>
-    if state.localDispatch.ffiLoaded {
-      (RouteLocal, "Explicit local routing — FFI available")
-    } else {
-      (RouteBoj, "Local routing requested but FFI not loaded — falling back to BoJ")
-    }
-  | RouteRemote => {
-      let hasRemote =
-        state.discoveredDevices->Array.some(d => d.engineId === EngineAxiom && d.available)
-      if hasRemote {
-        (RouteRemote, "Explicit remote routing — Axiom.jl available")
-      } else {
-        (RouteBoj, "Remote routing requested but Axiom.jl not available — falling back to BoJ")
-      }
-    }
-  | RouteBoj => (RouteBoj, "Explicit BoJ routing")
-  }
-
-  let latencyEstimateMs = estimateLatency(state, chosenRoute)
-
-  {
-    operation,
-    chosenRoute,
-    reason,
-    latencyEstimateMs,
-    timestamp: now,
-  }
-}
-
-/// Default local dispatch state (Phase 2).
-let defaultLocalDispatch: localDispatchState = {
-  ffiLoaded: false,
-  ffiPath: "ffi/zig/zig-out/lib/libpanll_copro.so",
-  ffiLibPath: None,
-  localDevices: [],
-  cpuUtilisation: 0.0,
-  gpuMemoryMb: 0,
-  pendingDispatches: 0,
-  cpuCores: 0,
-  availableBackends: [],
-}
-
-/// Tea_Json decoder for local dispatch state from coprocessor_ffi_status JSON.
-let localDispatchDecoder: Tea_Json.decoder<localDispatchState> = {
-  open Decoders
-  open Tea_Json
-  map5((ffiLoaded, ffiLibPath, cpuUtilisation, gpuMemoryMb, cpuCores): localDispatchState => {
-    ffiLoaded,
-    ffiPath: defaultLocalDispatch.ffiPath,
-    ffiLibPath: if ffiLibPath === "" {
-      None
-    } else {
-      Some(ffiLibPath)
-    },
-    localDevices: [],
-    cpuUtilisation,
-    gpuMemoryMb,
-    pendingDispatches: 0,
-    cpuCores,
-    availableBackends: [],
-  }, boolField(
-    "ffi_loaded",
-  ), stringField(
-    "ffi_lib_path",
-  ), floatField("cpu_utilisation"), intField("gpu_memory_mb"), intField("cpu_cores"))
-}
-
-/// Parse local dispatch state from JSON.
-let parseLocalDispatchState = (json: string): localDispatchState =>
-  Decoders.decodeWithDefault(localDispatchDecoder, defaultLocalDispatch, json)
-
-/// Default state for the Coprocessors panel.
-let defaultState: coprocessorsState = {
-  activeCategory: CoprocDashboard,
-  metrics: [],
-  callLog: [],
-  heatmap: [],
-  enabledBackends: allBackends,
-  selectedBackend: None,
-  filterText: "",
-  autoRefresh: true,
-  refreshIntervalMs: 2000,
-  loading: false,
-  error: None,
-  discoveredDevices: [],
-  lastComputeResult: None,
-  bojRouting: false,
-  localDispatch: defaultLocalDispatch,
-  routingStrategy: RouteAutomatic,
-  routingHistory: [],
-}
-
-/// Smart-route an operation using the SmartRouter module.
-/// Builds backend health from current state, routes, and appends to history.
-let smartRouteAndRecord = (state: coprocessorsState, operation: string): (
-  routingDecision,
-  array<routingDecision>,
-) => {
-  let backends = SmartRouter.buildBackendHealth(state)
-  let decision = SmartRouter.smartRoute(operation, backends, state.routingStrategy)
-  let updatedHistory = SmartRouter.addDecision(state.routingHistory, decision)
-  (decision, updatedHistory)
-}
-
-/// Human-readable label for the chosen route in a routing decision.
-let routeDecisionLabel = (decision: routingDecision): string => routingLabel(decision.chosenRoute)
-
-/// Route distribution from the current history.
-let currentRouteStats = (state: coprocessorsState): array<(string, int, float)> =>
-  SmartRouter.routeStats(state.routingHistory)
-
-/// Category distribution from the current history.
-let currentCategoryStats = (state: coprocessorsState): array<(string, int)> =>
-  SmartRouter.categoryStats(state.routingHistory)
diff --git a/src/core/DOMPurify.affine b/src/core/DOMPurify.affine
new file mode 100644
index 00000000..45f5a18b
--- /dev/null
+++ b/src/core/DOMPurify.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module DOMPurify;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/DOMPurify.res b/src/core/DOMPurify.res
deleted file mode 100644
index 95e3f870..00000000
--- a/src/core/DOMPurify.res
+++ /dev/null
@@ -1,161 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-//
-// DOMPurify.res — FFI binding to DOMPurify (cure53), the industry-standard
-// HTML sanitisation library recommended by OWASP.
-//
-// DOMPurify uses the browser's own DOM parser to build a tree, then walks
-// every node removing or neutralising unsafe elements and attributes. This
-// eliminates the entire class of mutation XSS (mXSS) attacks that regex-based
-// sanitisers cannot catch.
-//
-// This binding provides a graceful fallback: if DOMPurify is not loaded
-// (e.g. in test environments or SSR), all operations return None so the
-// caller can fall back to the built-in regex sanitiser.
-//
-// Usage in SafeDOMCore:
-//   let sanitised = switch DOMPurify.sanitize(html) {
-//   | Some(clean) => clean
-//   | None => regexFallbackSanitise(html) // Built-in defence-in-depth
-//   }
-//
-// DOMPurify must be loaded before the app bundle. Add to index.html:
-//   <script src="https://cdnjs.cloudflare.com/ajax/libs/dompurify/3.3.2/purify.min.js"
-//           integrity="sha384-..."
-//           crossorigin="anonymous"></script>
-//
-// Or install via deno.json / import map and bundle it.
-
-/// Check whether DOMPurify is available in the global scope.
-/// Returns true if window.DOMPurify exists and has a sanitize method.
-let isAvailable: unit => bool = () => {
-  %raw(`typeof globalThis.DOMPurify !== 'undefined' && typeof globalThis.DOMPurify.sanitize === 'function'`)
-}
-
-/// Configuration for DOMPurify.sanitize().
-/// Maps to the DOMPurify config object.
-type config = {
-  /// Allowlisted HTML tags. If empty, uses DOMPurify defaults.
-  allowedTags?: array<string>,
-  /// Allowlisted HTML attributes. If empty, uses DOMPurify defaults.
-  allowedAttr?: array<string>,
-  /// Forbid specific tags (blocklist on top of defaults).
-  forbidTags?: array<string>,
-  /// Forbid specific attributes.
-  forbidAttr?: array<string>,
-  /// Return a DOM node instead of string (we always want string).
-  returnDom?: bool,
-  /// Allow custom elements.
-  customElementHandling?: bool,
-}
-
-/// Default configuration that blocks the most dangerous elements.
-/// Removes: script, iframe, object, embed, form, base, meta (with http-equiv),
-/// svg (event handlers), math, link (stylesheet injection), template.
-let defaultConfig: config = {
-  forbidTags: [
-    "script",
-    "iframe",
-    "object",
-    "embed",
-    "form",
-    "base",
-    "meta",
-    "link",
-    "template",
-    "math",
-    "svg",
-  ],
-  forbidAttr: [
-    "onerror",
-    "onload",
-    "onclick",
-    "onmouseover",
-    "onfocus",
-    "onblur",
-    "onsubmit",
-    "onchange",
-    "oninput",
-    "onkeydown",
-    "onkeyup",
-    "onkeypress",
-    "formaction",
-    "xlink:href",
-    "action",
-  ],
-}
-
-/// Sanitise HTML using DOMPurify with default high-assurance config.
-/// Returns Some(sanitised) if DOMPurify is available, None otherwise.
-let sanitize = (_html: string): option<string> => {
-  if isAvailable() {
-    let _forbidTags = defaultConfig.forbidTags
-    let _forbidAttr = defaultConfig.forbidAttr
-    let result: string = %raw(`
-      globalThis.DOMPurify.sanitize(_html, {
-        FORBID_TAGS: _forbidTags || [],
-        FORBID_ATTR: _forbidAttr || [],
-        ALLOW_ARIA_ATTR: true,
-        ALLOW_DATA_ATTR: false,
-        RETURN_DOM: false,
-        RETURN_DOM_FRAGMENT: false,
-        WHOLE_DOCUMENT: false
-      })
-    `)
-    Some(result)
-  } else {
-    None
-  }
-}
-
-/// Sanitise HTML using a custom DOMPurify configuration.
-/// Returns Some(sanitised) if DOMPurify is available, None otherwise.
-let sanitizeWithConfig = (_html: string, cfg: config): option<string> => {
-  if isAvailable() {
-    let _forbidTags = switch cfg.forbidTags {
-    | Some(tags) => tags
-    | None => []
-    }
-    let _forbidAttr = switch cfg.forbidAttr {
-    | Some(attrs) => attrs
-    | None => []
-    }
-    let _allowedTags = switch cfg.allowedTags {
-    | Some(tags) => tags
-    | None => []
-    }
-    let _allowedAttr = switch cfg.allowedAttr {
-    | Some(attrs) => attrs
-    | None => []
-    }
-    let _hasAllowedTags = Option.isSome(cfg.allowedTags)
-    let _hasAllowedAttr = Option.isSome(cfg.allowedAttr)
-    let result: string = %raw(`
-      (function() {
-        var config = {
-          FORBID_TAGS: _forbidTags,
-          FORBID_ATTR: _forbidAttr,
-          ALLOW_ARIA_ATTR: true,
-          ALLOW_DATA_ATTR: false,
-          RETURN_DOM: false
-        };
-        if (_hasAllowedTags) config.ALLOWED_TAGS = _allowedTags;
-        if (_hasAllowedAttr) config.ALLOWED_ATTR = _allowedAttr;
-        return globalThis.DOMPurify.sanitize(_html, config);
-      })()
-    `)
-    Some(result)
-  } else {
-    None
-  }
-}
-
-/// Get DOMPurify version string, if available.
-let version = (): option<string> => {
-  if isAvailable() {
-    let v: string = %raw(`globalThis.DOMPurify.version || "unknown"`)
-    Some(v)
-  } else {
-    None
-  }
-}
diff --git a/src/core/DatabaseBridgeEngine.affine b/src/core/DatabaseBridgeEngine.affine
new file mode 100644
index 00000000..35f0e250
--- /dev/null
+++ b/src/core/DatabaseBridgeEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module DatabaseBridgeEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/DatabaseBridgeEngine.res b/src/core/DatabaseBridgeEngine.res
deleted file mode 100644
index 83ece5be..00000000
--- a/src/core/DatabaseBridgeEngine.res
+++ /dev/null
@@ -1,83 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Database Bridge Engine — pure computation and helpers for the
-/// Database Bridge panel. Provides default state, tab metadata, schema and
-/// query counting, and proof obligation status formatting.
-
-open DatabaseBridgeModel
-
-/// Default state for the Database Bridge panel.
-/// Starts on the Schema tab with empty schema, query, and obligation lists.
-let defaultState: databaseBridgeState = {
-  activeTab: Schema,
-  schemas: [],
-  queries: [],
-  proofObligations: [],
-  gameStateSnapshot: None,
-  connected: false,
-  error: None,
-}
-
-/// Human-readable label for each tab in the Database Bridge panel.
-let tabLabel = (tab: databaseBridgeTab): string =>
-  switch tab {
-  | Schema => "Schema"
-  | Queries => "Queries"
-  | GameState => "Game State"
-  | ProofObligations => "Proof Obligations"
-  }
-
-/// All tabs in display order.
-let allTabs: array<databaseBridgeTab> = [Schema, Queries, GameState, ProofObligations]
-
-/// Count the total number of registered schemas.
-let countSchemas = (state: databaseBridgeState): int => Array.length(state.schemas)
-
-/// Count the total number of columns across all schemas.
-let countTotalColumns = (schemas: array<schema>): int =>
-  schemas->Array.reduce(0, (acc, s) => acc + Array.length(s.columns))
-
-/// Count query history entries.
-let countQueries = (state: databaseBridgeState): int => Array.length(state.queries)
-
-/// Count queries by execution status.
-let countQueriesByStatus = (queries: array<dbQueryHistoryEntry>, status: queryStatus): int =>
-  queries->Array.filter(q => q.status === status)->Array.length
-
-/// Format a proof obligation status as a human-readable string.
-let formatObligationStatus = (status: proofObligationStatus): string =>
-  switch status {
-  | ObligationProven => "Proven"
-  | ObligationUnproven => "Unproven"
-  | ObligationViolated => "Violated"
-  | ObligationTimeout => "Timeout"
-  }
-
-/// Count proof obligations by verification status.
-let countObligationsByStatus = (
-  obligations: array<dbProofObligation>,
-  status: proofObligationStatus,
-): int => obligations->Array.filter(o => o.status === status)->Array.length
-
-/// Compute the percentage of proven obligations (0.0 to 100.0).
-/// Returns 100.0 when there are no obligations.
-let proofObligationPercent = (obligations: array<dbProofObligation>): float => {
-  let total = Array.length(obligations)
-  if total === 0 {
-    100.0
-  } else {
-    let proven = obligations->Array.filter(o => o.status === ObligationProven)->Array.length
-    Int.toFloat(proven) /. Int.toFloat(total) *. 100.0
-  }
-}
-
-/// Summarise a game state snapshot as a human-readable string.
-/// Returns "No snapshot" when no snapshot is available.
-let formatSnapshotSummary = (snapshot: option<gameStateSnapshot>): string =>
-  switch snapshot {
-  | None => "No snapshot"
-  | Some(s) =>
-    `${Int.toString(s.tableCount)} tables, ${Int.toString(s.totalRows)} rows, ${Int.toString(
-        s.sizeBytes,
-      )} bytes`
-  }
diff --git a/src/core/DatabasesEngine.affine b/src/core/DatabasesEngine.affine
new file mode 100644
index 00000000..3740015c
--- /dev/null
+++ b/src/core/DatabasesEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module DatabasesEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/DatabasesEngine.res b/src/core/DatabasesEngine.res
deleted file mode 100644
index c23eb97c..00000000
--- a/src/core/DatabasesEngine.res
+++ /dev/null
@@ -1,178 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Databases Engine — pure logic for the Databases panel.
-///
-/// Initialises per-module state from DatabaseRegistry, provides default state,
-/// and contains utility functions for filtering, sorting, and aggregating
-/// database module information.
-
-open DatabaseModule
-open DatabasesModel
-
-/// Initialise the databases panel state with all registered modules.
-let defaultState: databasesState = {
-  modules: DatabaseRegistry.allModules()->Array.map(initModuleState),
-  selectedModule: "verisim",
-  activeCategory: DbDashboard,
-  queryInput: "",
-  queryLoading: false,
-  queryHistory: [],
-  schemaEntities: [
-    {
-      name: "octads",
-      kind: "table",
-      fields: [
-        "id",
-        "graph",
-        "vector",
-        "tensor",
-        "semantic",
-        "document",
-        "temporal",
-        "provenance",
-        "spatial",
-      ],
-      entryCount: 5,
-    },
-    {
-      name: "entities",
-      kind: "table",
-      fields: ["id", "name", "modality", "created_at", "updated_at"],
-      entryCount: 12,
-    },
-    {
-      name: "drift_log",
-      kind: "table",
-      fields: ["id", "dimension", "score", "timestamp", "resolved"],
-      entryCount: 24,
-    },
-    {
-      name: "proof_certificates",
-      kind: "table",
-      fields: ["id", "type", "contract", "status", "hash"],
-      entryCount: 8,
-    },
-    {
-      name: "federation_peers",
-      kind: "table",
-      fields: ["node_id", "address", "state", "last_seen"],
-      entryCount: 3,
-    },
-  ],
-  selectedEntity: None,
-  entityDetail: None,
-  filterText: "",
-  loading: false,
-  error: None,
-  lastTypeCheck: None,
-  bojRouting: false,
-}
-
-/// Find a module state by ID.
-let findModule = (state: databasesState, id: string): option<moduleState> => {
-  state.modules->Array.find(m => m.config.id == id)
-}
-
-/// Get the currently selected module state.
-let selectedModuleState = (state: databasesState): option<moduleState> => {
-  findModule(state, state.selectedModule)
-}
-
-/// Update a specific module state by ID.
-let updateModule = (
-  state: databasesState,
-  id: string,
-  updater: moduleState => moduleState,
-): databasesState => {
-  {
-    ...state,
-    modules: state.modules->Array.map(m =>
-      if m.config.id == id {
-        updater(m)
-      } else {
-        m
-      }
-    ),
-  }
-}
-
-/// Count connected modules.
-let connectedCount = (state: databasesState): int => {
-  state.modules
-  ->Array.filter(m =>
-    switch m.connection {
-    | Connected(_) => true
-    | _ => false
-    }
-  )
-  ->Array.length
-}
-
-/// Count total capabilities across all modules.
-let totalCapabilities = (state: databasesState): int => {
-  state.modules->Array.reduce(0, (acc, m) => acc + Array.length(m.config.capabilities))
-}
-
-/// Filter schema entities by search text.
-let filteredEntities = (state: databasesState): array<schemaEntity> => {
-  if state.filterText == "" {
-    state.schemaEntities
-  } else {
-    let needle = state.filterText->String.toLowerCase
-    state.schemaEntities->Array.filter(e =>
-      e.name->String.toLowerCase->String.includes(needle) ||
-        e.kind->String.toLowerCase->String.includes(needle)
-    )
-  }
-}
-
-/// Add a query to the history (most recent first, capped at 100).
-let addToHistory = (state: databasesState, entry: queryHistoryEntry): databasesState => {
-  let history = [entry]->Array.concat(state.queryHistory)
-  let capped = if Array.length(history) > 100 {
-    history->Array.slice(~start=0, ~end=100)
-  } else {
-    history
-  }
-  {...state, queryHistory: capped}
-}
-
-/// Connection status label for display.
-let connectionLabel = (status: connectionStatus): string => {
-  switch status {
-  | Disconnected => "Disconnected"
-  | Connecting => "Connecting..."
-  | Connected(url) => "Connected (" ++ url ++ ")"
-  | Error(msg) => "Error: " ++ msg
-  }
-}
-
-/// Connection status CSS colour class.
-let connectionColour = (status: connectionStatus): string => {
-  switch status {
-  | Disconnected => "bg-gray-600"
-  | Connecting => "bg-amber-400 animate-pulse"
-  | Connected(_) => "bg-emerald-400"
-  | Error(_) => "bg-red-400"
-  }
-}
-
-/// Module accent colour for UI differentiation.
-let moduleAccent = (id: string): string => {
-  switch id {
-  | "verisim" => "#34d399" // emerald
-  | "quandledb" => "#818cf8" // indigo
-  | "lithoglyph" => "#fb923c" // orange
-  | _ => "#9ca3af" // gray
-  }
-}
-
-/// Module icon label.
-let moduleIcon = (id: string): string => {
-  switch id {
-  | "verisim" => "VDB"
-  | "quandledb" => "QDB"
-  | "lithoglyph" => "LG"
-  | _ => "DB"
-  }
-}
diff --git a/src/core/DebugLogger.affine b/src/core/DebugLogger.affine
new file mode 100644
index 00000000..6ebbf2e5
--- /dev/null
+++ b/src/core/DebugLogger.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module DebugLogger;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/DebugLogger.res b/src/core/DebugLogger.res
deleted file mode 100644
index 574366c0..00000000
--- a/src/core/DebugLogger.res
+++ /dev/null
@@ -1,88 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Debug Logger — structured logging routed through Observatory.
-///
-/// Replaces ad-hoc console.log with structured, observable debug output.
-/// All log entries become OTLP spans visible in Observatory panel.
-
-/// Log level for structured debug output.
-type logLevel =
-  | Debug
-  | Info
-  | Warn
-  | Error
-
-/// A structured log entry.
-type logEntry = {
-  level: logLevel,
-  source: string,
-  message: string,
-  timestamp: float,
-  metadata: array<(string, string)>,
-}
-
-/// Format log level as string.
-let levelLabel = (level: logLevel): string =>
-  switch level {
-  | Debug => "DEBUG"
-  | Info => "INFO"
-  | Warn => "WARN"
-  | Error => "ERROR"
-  }
-
-/// Format log level as OTLP severity number.
-let levelToOtelSeverity = (level: logLevel): int =>
-  switch level {
-  | Debug => 5
-  | Info => 9
-  | Warn => 13
-  | Error => 17
-  }
-
-/// Create a log entry.
-let makeEntry = (
-  level: logLevel,
-  source: string,
-  message: string,
-  ~metadata: array<(string, string)>=[],
-): logEntry => {
-  level,
-  source,
-  message,
-  timestamp: Date.now(),
-  metadata,
-}
-
-/// Format entry as OTLP log record (for ObservabilityEngine export).
-let toOtelLogRecord = (entry: logEntry): Dict.t<JSON.t> => {
-  let dict = Dict.make()
-  Dict.set(dict, "timeUnixNano", JSON.Encode.float(entry.timestamp *. 1000000.0))
-  Dict.set(dict, "severityNumber", JSON.Encode.int(levelToOtelSeverity(entry.level)))
-  Dict.set(dict, "severityText", JSON.Encode.string(levelLabel(entry.level)))
-  Dict.set(dict, "body", JSON.Encode.string(entry.message))
-  dict
-}
-
-/// Ring buffer for recent log entries (last 200).
-let maxEntries = 200
-
-/// Add entry to ring buffer.
-let addEntry = (entries: array<logEntry>, entry: logEntry): array<logEntry> => {
-  let next = Array.concat(entries, [entry])
-  if Array.length(next) > maxEntries {
-    next->Array.sliceToEnd(~start=Array.length(next) - maxEntries)
-  } else {
-    next
-  }
-}
-
-/// Filter entries by level.
-let filterByLevel = (entries: array<logEntry>, minLevel: logLevel): array<logEntry> => {
-  let minSev = levelToOtelSeverity(minLevel)
-  entries->Array.filter(e => levelToOtelSeverity(e.level) >= minSev)
-}
-
-/// Filter entries by source.
-let filterBySource = (entries: array<logEntry>, source: string): array<logEntry> =>
-  entries->Array.filter(e => e.source == source)
diff --git a/src/core/DebuggingWorkbenchEngine.affine b/src/core/DebuggingWorkbenchEngine.affine
new file mode 100644
index 00000000..48487e29
--- /dev/null
+++ b/src/core/DebuggingWorkbenchEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module DebuggingWorkbenchEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/DebuggingWorkbenchEngine.res b/src/core/DebuggingWorkbenchEngine.res
deleted file mode 100644
index 5a3d5a3b..00000000
--- a/src/core/DebuggingWorkbenchEngine.res
+++ /dev/null
@@ -1,112 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Debugging Workbench Engine — pure computation and helpers for the
-/// Debugging Workbench panel. Provides default state, time-travel navigation,
-/// snapshot management, watch expression helpers, and console formatting.
-
-open DebuggingWorkbenchModel
-
-/// Default initial state for the Debugging Workbench panel.
-/// Starts on the Time Travel tab with empty snapshot and watch lists.
-let defaultState: debuggingWorkbenchState = {
-  activeTab: TabTimeTravel,
-  timeTravel: {
-    currentIndex: 0,
-    snapshots: [],
-    isTimeTravelling: false,
-  },
-  watches: [],
-  consoleLog: [],
-  consoleEntries: [],
-  selectedSnapshot: None,
-  error: None,
-}
-
-/// Human-readable label for each tab in the Debugging Workbench panel.
-let tabLabel = (tab: debuggingWorkbenchTab): string =>
-  switch tab {
-  | TabTimeTravel => "Time Travel"
-  | TabStateInspector => "State Inspector"
-  | TabWatchExpressions => "Watch Expressions"
-  | TabConsole => "Console"
-  }
-
-/// All tabs in display order.
-let allTabs: array<debuggingWorkbenchTab> = [
-  TabTimeTravel,
-  TabStateInspector,
-  TabWatchExpressions,
-  TabConsole,
-]
-
-/// Number of captured snapshots.
-let snapshotCount = (tt: timeTravelState): int => Array.length(tt.snapshots)
-
-/// Whether the time-travel slider can move backward.
-let canGoBack = (tt: timeTravelState): bool => tt.currentIndex > 0
-
-/// Whether the time-travel slider can move forward.
-let canGoForward = (tt: timeTravelState): bool => tt.currentIndex < Array.length(tt.snapshots) - 1
-
-/// Get the current snapshot (at the current index).
-let currentSnapshot = (tt: timeTravelState): option<debugSnapshot> => {
-  let count = Array.length(tt.snapshots)
-  if count == 0 || tt.currentIndex >= count {
-    None
-  } else {
-    Some(tt.snapshots->Array.getUnsafe(tt.currentIndex))
-  }
-}
-
-/// Progress through the snapshot timeline as a percentage (0.0 to 100.0).
-let timelineProgress = (tt: timeTravelState): float => {
-  let count = Array.length(tt.snapshots)
-  if count <= 1 {
-    100.0
-  } else {
-    Float.fromInt(tt.currentIndex) /. Float.fromInt(count - 1) *. 100.0
-  }
-}
-
-/// Duration between first and last snapshot in seconds.
-let timelineDuration = (tt: timeTravelState): float => {
-  let count = Array.length(tt.snapshots)
-  if count < 2 {
-    0.0
-  } else {
-    let first = tt.snapshots->Array.getUnsafe(0)
-    let last = tt.snapshots->Array.getUnsafe(count - 1)
-    (last.timestamp -. first.timestamp) /. 1000.0
-  }
-}
-
-/// Number of watch expressions defined.
-let watchCount = (watches: array<watchExpression>): int => Array.length(watches)
-
-/// Console log entry count (legacy string-based).
-let consoleLineCount = (log: array<string>): int => Array.length(log)
-
-/// Count console entries by level.
-let countConsoleByLevel = (entries: array<consoleEntry>, level: string): int =>
-  entries->Array.filter(e => e.level == level)->Array.length
-
-/// CSS colour class for console entry level.
-let consoleLevelColor = (level: string): string =>
-  switch level {
-  | "error" => "text-red-400"
-  | "warn" => "text-yellow-400"
-  | "info" => "text-blue-400"
-  | _ => "text-gray-300"
-  }
-
-/// Format a timestamp as a relative time label (e.g., "2.3s ago").
-let formatRelativeTime = (timestamp: float, now: float): string => {
-  let diffMs = now -. timestamp
-  let seconds = diffMs /. 1000.0
-  if seconds < 60.0 {
-    Float.toFixed(seconds, ~digits=1) ++ "s ago"
-  } else {
-    let minutes = seconds /. 60.0
-    Float.toFixed(minutes, ~digits=1) ++ "m ago"
-  }
-}
diff --git a/src/core/Decoders.affine b/src/core/Decoders.affine
new file mode 100644
index 00000000..5d504995
--- /dev/null
+++ b/src/core/Decoders.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Decoders;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/Decoders.res b/src/core/Decoders.res
deleted file mode 100644
index 4133d21c..00000000
--- a/src/core/Decoders.res
+++ /dev/null
@@ -1,471 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-//
-// Decoders.res — Extended Tea_Json decoder combinators and domain-specific
-// decoders for PanLL Gossamer command responses.
-//
-// Provides map6–map13 for records with more than 5 fields, plus convenience
-// wrappers used across Update.res and engine modules.
-
-open Tea_Json
-
-// ── Extended map combinators ───────────────────────────────────────────
-//
-// Tea_Json provides map–map5. These extend coverage for larger records
-// by composing map5 + mapN internally.
-
-/// Combine six decoders with a function.
-let map6 = (
-  f: ('a, 'b, 'c, 'd, 'e, 'f) => 'g,
-  d1: decoder<'a>,
-  d2: decoder<'b>,
-  d3: decoder<'c>,
-  d4: decoder<'d>,
-  d5: decoder<'e>,
-  d6: decoder<'f>,
-): decoder<'g> => {
-  json => {
-    switch (d1(json), d2(json), d3(json), d4(json), d5(json), d6(json)) {
-    | (Ok(a), Ok(b), Ok(c), Ok(d), Ok(e), Ok(fv)) => Ok(f(a, b, c, d, e, fv))
-    | (Error(e), _, _, _, _, _) => Error(e)
-    | (_, Error(e), _, _, _, _) => Error(e)
-    | (_, _, Error(e), _, _, _) => Error(e)
-    | (_, _, _, Error(e), _, _) => Error(e)
-    | (_, _, _, _, Error(e), _) => Error(e)
-    | (_, _, _, _, _, Error(e)) => Error(e)
-    }
-  }
-}
-
-/// Combine seven decoders with a function.
-let map7 = (
-  f: ('a, 'b, 'c, 'd, 'e, 'f, 'g) => 'h,
-  d1: decoder<'a>,
-  d2: decoder<'b>,
-  d3: decoder<'c>,
-  d4: decoder<'d>,
-  d5: decoder<'e>,
-  d6: decoder<'f>,
-  d7: decoder<'g>,
-): decoder<'h> => {
-  json => {
-    switch (d1(json), d2(json), d3(json), d4(json), d5(json), d6(json), d7(json)) {
-    | (Ok(a), Ok(b), Ok(c), Ok(d), Ok(e), Ok(fv), Ok(g)) => Ok(f(a, b, c, d, e, fv, g))
-    | (Error(e), _, _, _, _, _, _) => Error(e)
-    | (_, Error(e), _, _, _, _, _) => Error(e)
-    | (_, _, Error(e), _, _, _, _) => Error(e)
-    | (_, _, _, Error(e), _, _, _) => Error(e)
-    | (_, _, _, _, Error(e), _, _) => Error(e)
-    | (_, _, _, _, _, Error(e), _) => Error(e)
-    | (_, _, _, _, _, _, Error(e)) => Error(e)
-    }
-  }
-}
-
-/// Combine eight decoders with a function.
-let map8 = (
-  f: ('a, 'b, 'c, 'd, 'e, 'f, 'g, 'h) => 'i,
-  d1: decoder<'a>,
-  d2: decoder<'b>,
-  d3: decoder<'c>,
-  d4: decoder<'d>,
-  d5: decoder<'e>,
-  d6: decoder<'f>,
-  d7: decoder<'g>,
-  d8: decoder<'h>,
-): decoder<'i> => {
-  json => {
-    switch (d1(json), d2(json), d3(json), d4(json), d5(json), d6(json), d7(json), d8(json)) {
-    | (Ok(a), Ok(b), Ok(c), Ok(d), Ok(e), Ok(fv), Ok(g), Ok(h)) => Ok(f(a, b, c, d, e, fv, g, h))
-    | (Error(e), _, _, _, _, _, _, _) => Error(e)
-    | (_, Error(e), _, _, _, _, _, _) => Error(e)
-    | (_, _, Error(e), _, _, _, _, _) => Error(e)
-    | (_, _, _, Error(e), _, _, _, _) => Error(e)
-    | (_, _, _, _, Error(e), _, _, _) => Error(e)
-    | (_, _, _, _, _, Error(e), _, _) => Error(e)
-    | (_, _, _, _, _, _, Error(e), _) => Error(e)
-    | (_, _, _, _, _, _, _, Error(e)) => Error(e)
-    }
-  }
-}
-
-/// Combine nine decoders with a function.
-let map9 = (
-  f: ('a, 'b, 'c, 'd, 'e, 'f, 'g, 'h, 'i) => 'j,
-  d1: decoder<'a>,
-  d2: decoder<'b>,
-  d3: decoder<'c>,
-  d4: decoder<'d>,
-  d5: decoder<'e>,
-  d6: decoder<'f>,
-  d7: decoder<'g>,
-  d8: decoder<'h>,
-  d9: decoder<'i>,
-): decoder<'j> => {
-  json => {
-    switch (
-      d1(json),
-      d2(json),
-      d3(json),
-      d4(json),
-      d5(json),
-      d6(json),
-      d7(json),
-      d8(json),
-      d9(json),
-    ) {
-    | (Ok(a), Ok(b), Ok(c), Ok(d), Ok(e), Ok(fv), Ok(g), Ok(h), Ok(i)) =>
-      Ok(f(a, b, c, d, e, fv, g, h, i))
-    | (Error(e), _, _, _, _, _, _, _, _) => Error(e)
-    | (_, Error(e), _, _, _, _, _, _, _) => Error(e)
-    | (_, _, Error(e), _, _, _, _, _, _) => Error(e)
-    | (_, _, _, Error(e), _, _, _, _, _) => Error(e)
-    | (_, _, _, _, Error(e), _, _, _, _) => Error(e)
-    | (_, _, _, _, _, Error(e), _, _, _) => Error(e)
-    | (_, _, _, _, _, _, Error(e), _, _) => Error(e)
-    | (_, _, _, _, _, _, _, Error(e), _) => Error(e)
-    | (_, _, _, _, _, _, _, _, Error(e)) => Error(e)
-    }
-  }
-}
-
-/// Combine ten decoders with a function.
-let map10 = (
-  f: ('a, 'b, 'c, 'd, 'e, 'f, 'g, 'h, 'i, 'j) => 'k,
-  d1: decoder<'a>,
-  d2: decoder<'b>,
-  d3: decoder<'c>,
-  d4: decoder<'d>,
-  d5: decoder<'e>,
-  d6: decoder<'f>,
-  d7: decoder<'g>,
-  d8: decoder<'h>,
-  d9: decoder<'i>,
-  d10: decoder<'j>,
-): decoder<'k> => {
-  json => {
-    switch (
-      d1(json),
-      d2(json),
-      d3(json),
-      d4(json),
-      d5(json),
-      d6(json),
-      d7(json),
-      d8(json),
-      d9(json),
-      d10(json),
-    ) {
-    | (Ok(a), Ok(b), Ok(c), Ok(d), Ok(e), Ok(fv), Ok(g), Ok(h), Ok(i), Ok(j)) =>
-      Ok(f(a, b, c, d, e, fv, g, h, i, j))
-    | (Error(e), _, _, _, _, _, _, _, _, _) => Error(e)
-    | (_, Error(e), _, _, _, _, _, _, _, _) => Error(e)
-    | (_, _, Error(e), _, _, _, _, _, _, _) => Error(e)
-    | (_, _, _, Error(e), _, _, _, _, _, _) => Error(e)
-    | (_, _, _, _, Error(e), _, _, _, _, _) => Error(e)
-    | (_, _, _, _, _, Error(e), _, _, _, _) => Error(e)
-    | (_, _, _, _, _, _, Error(e), _, _, _) => Error(e)
-    | (_, _, _, _, _, _, _, Error(e), _, _) => Error(e)
-    | (_, _, _, _, _, _, _, _, Error(e), _) => Error(e)
-    | (_, _, _, _, _, _, _, _, _, Error(e)) => Error(e)
-    }
-  }
-}
-
-/// Combine eleven decoders with a function.
-let map11 = (
-  f: ('a, 'b, 'c, 'd, 'e, 'f, 'g, 'h, 'i, 'j, 'k) => 'l,
-  d1: decoder<'a>,
-  d2: decoder<'b>,
-  d3: decoder<'c>,
-  d4: decoder<'d>,
-  d5: decoder<'e>,
-  d6: decoder<'f>,
-  d7: decoder<'g>,
-  d8: decoder<'h>,
-  d9: decoder<'i>,
-  d10: decoder<'j>,
-  d11: decoder<'k>,
-): decoder<'l> => {
-  json => {
-    switch (
-      d1(json),
-      d2(json),
-      d3(json),
-      d4(json),
-      d5(json),
-      d6(json),
-      d7(json),
-      d8(json),
-      d9(json),
-      d10(json),
-      d11(json),
-    ) {
-    | (Ok(a), Ok(b), Ok(c), Ok(d), Ok(e), Ok(fv), Ok(g), Ok(h), Ok(i), Ok(j), Ok(k)) =>
-      Ok(f(a, b, c, d, e, fv, g, h, i, j, k))
-    | (Error(e), _, _, _, _, _, _, _, _, _, _) => Error(e)
-    | (_, Error(e), _, _, _, _, _, _, _, _, _) => Error(e)
-    | (_, _, Error(e), _, _, _, _, _, _, _, _) => Error(e)
-    | (_, _, _, Error(e), _, _, _, _, _, _, _) => Error(e)
-    | (_, _, _, _, Error(e), _, _, _, _, _, _) => Error(e)
-    | (_, _, _, _, _, Error(e), _, _, _, _, _) => Error(e)
-    | (_, _, _, _, _, _, Error(e), _, _, _, _) => Error(e)
-    | (_, _, _, _, _, _, _, Error(e), _, _, _) => Error(e)
-    | (_, _, _, _, _, _, _, _, Error(e), _, _) => Error(e)
-    | (_, _, _, _, _, _, _, _, _, Error(e), _) => Error(e)
-    | (_, _, _, _, _, _, _, _, _, _, Error(e)) => Error(e)
-    }
-  }
-}
-
-/// Combine twelve decoders with a function.
-let map12 = (
-  f: ('a, 'b, 'c, 'd, 'e, 'f, 'g, 'h, 'i, 'j, 'k, 'l) => 'm,
-  d1: decoder<'a>,
-  d2: decoder<'b>,
-  d3: decoder<'c>,
-  d4: decoder<'d>,
-  d5: decoder<'e>,
-  d6: decoder<'f>,
-  d7: decoder<'g>,
-  d8: decoder<'h>,
-  d9: decoder<'i>,
-  d10: decoder<'j>,
-  d11: decoder<'k>,
-  d12: decoder<'l>,
-): decoder<'m> => {
-  json => {
-    switch (
-      d1(json),
-      d2(json),
-      d3(json),
-      d4(json),
-      d5(json),
-      d6(json),
-      d7(json),
-      d8(json),
-      d9(json),
-      d10(json),
-      d11(json),
-      d12(json),
-    ) {
-    | (Ok(a), Ok(b), Ok(c), Ok(d), Ok(e), Ok(fv), Ok(g), Ok(h), Ok(i), Ok(j), Ok(k), Ok(l)) =>
-      Ok(f(a, b, c, d, e, fv, g, h, i, j, k, l))
-    | (Error(e), _, _, _, _, _, _, _, _, _, _, _) => Error(e)
-    | (_, Error(e), _, _, _, _, _, _, _, _, _, _) => Error(e)
-    | (_, _, Error(e), _, _, _, _, _, _, _, _, _) => Error(e)
-    | (_, _, _, Error(e), _, _, _, _, _, _, _, _) => Error(e)
-    | (_, _, _, _, Error(e), _, _, _, _, _, _, _) => Error(e)
-    | (_, _, _, _, _, Error(e), _, _, _, _, _, _) => Error(e)
-    | (_, _, _, _, _, _, Error(e), _, _, _, _, _) => Error(e)
-    | (_, _, _, _, _, _, _, Error(e), _, _, _, _) => Error(e)
-    | (_, _, _, _, _, _, _, _, Error(e), _, _, _) => Error(e)
-    | (_, _, _, _, _, _, _, _, _, Error(e), _, _) => Error(e)
-    | (_, _, _, _, _, _, _, _, _, _, Error(e), _) => Error(e)
-    | (_, _, _, _, _, _, _, _, _, _, _, Error(e)) => Error(e)
-    }
-  }
-}
-
-/// Combine thirteen decoders with a function.
-let map13 = (
-  f: ('a, 'b, 'c, 'd, 'e, 'f, 'g, 'h, 'i, 'j, 'k, 'l, 'm) => 'n,
-  d1: decoder<'a>,
-  d2: decoder<'b>,
-  d3: decoder<'c>,
-  d4: decoder<'d>,
-  d5: decoder<'e>,
-  d6: decoder<'f>,
-  d7: decoder<'g>,
-  d8: decoder<'h>,
-  d9: decoder<'i>,
-  d10: decoder<'j>,
-  d11: decoder<'k>,
-  d12: decoder<'l>,
-  d13: decoder<'m>,
-): decoder<'n> => {
-  json => {
-    switch (
-      d1(json),
-      d2(json),
-      d3(json),
-      d4(json),
-      d5(json),
-      d6(json),
-      d7(json),
-      d8(json),
-      d9(json),
-      d10(json),
-      d11(json),
-      d12(json),
-      d13(json),
-    ) {
-    | (
-        Ok(a),
-        Ok(b),
-        Ok(c),
-        Ok(d),
-        Ok(e),
-        Ok(fv),
-        Ok(g),
-        Ok(h),
-        Ok(i),
-        Ok(j),
-        Ok(k),
-        Ok(l),
-        Ok(m),
-      ) =>
-      Ok(f(a, b, c, d, e, fv, g, h, i, j, k, l, m))
-    | (Error(e), _, _, _, _, _, _, _, _, _, _, _, _) => Error(e)
-    | (_, Error(e), _, _, _, _, _, _, _, _, _, _, _) => Error(e)
-    | (_, _, Error(e), _, _, _, _, _, _, _, _, _, _) => Error(e)
-    | (_, _, _, Error(e), _, _, _, _, _, _, _, _, _) => Error(e)
-    | (_, _, _, _, Error(e), _, _, _, _, _, _, _, _) => Error(e)
-    | (_, _, _, _, _, Error(e), _, _, _, _, _, _, _) => Error(e)
-    | (_, _, _, _, _, _, Error(e), _, _, _, _, _, _) => Error(e)
-    | (_, _, _, _, _, _, _, Error(e), _, _, _, _, _) => Error(e)
-    | (_, _, _, _, _, _, _, _, Error(e), _, _, _, _) => Error(e)
-    | (_, _, _, _, _, _, _, _, _, Error(e), _, _, _) => Error(e)
-    | (_, _, _, _, _, _, _, _, _, _, Error(e), _, _) => Error(e)
-    | (_, _, _, _, _, _, _, _, _, _, _, Error(e), _) => Error(e)
-    | (_, _, _, _, _, _, _, _, _, _, _, _, Error(e)) => Error(e)
-    }
-  }
-}
-
-// ── Convenience wrappers ────────────────────────────────────────────────
-
-/// Decode a JSON string, returning Ok(value) or Error(formatted message).
-/// Wraps Tea_Json.decodeString with human-readable error output.
-let decode = (decoder: decoder<'a>, jsonString: string): result<'a, string> => {
-  switch decodeString(decoder, jsonString) {
-  | Ok(v) => Ok(v)
-  | Error(e) => Error(errorToString(e))
-  }
-}
-
-/// Decode a JSON string, returning Some(value) or None on failure.
-/// Use when you only need the happy path and failures map to defaults.
-let decodeOption = (decoder: decoder<'a>, jsonString: string): option<'a> => {
-  switch decodeString(decoder, jsonString) {
-  | Ok(v) => Some(v)
-  | Error(_) => None
-  }
-}
-
-/// Decode a JSON string, returning the value or a default on failure.
-let decodeWithDefault = (decoder: decoder<'a>, default: 'a, jsonString: string): 'a => {
-  switch decodeString(decoder, jsonString) {
-  | Ok(v) => v
-  | Error(_) => default
-  }
-}
-
-/// Field with default value — returns default if field is missing or wrong type.
-let fieldWithDefault = (name: string, decoder: decoder<'a>, default: 'a): decoder<'a> => {
-  json => {
-    switch field(name, decoder)(json) {
-    | Ok(v) => Ok(v)
-    | Error(_) => Ok(default)
-    }
-  }
-}
-
-/// Decode a string field, defaulting to "" if missing.
-let stringField = (name: string): decoder<string> => fieldWithDefault(name, string, "")
-
-/// Decode a float field, defaulting to 0.0 if missing.
-let floatField = (name: string): decoder<float> => fieldWithDefault(name, float, 0.0)
-
-/// Decode an int field, defaulting to 0 if missing.
-let intField = (name: string): decoder<int> => fieldWithDefault(name, int, 0)
-
-/// Decode a bool field, defaulting to false if missing.
-let boolField = (name: string): decoder<bool> => fieldWithDefault(name, bool, false)
-
-/// Decode an array field, defaulting to empty array if missing.
-let arrayField = (name: string, itemDecoder: decoder<'a>): decoder<array<'a>> =>
-  fieldWithDefault(name, array(itemDecoder), [])
-
-/// Decode an array, silently skipping elements that fail to decode.
-/// Use instead of Tea_Json.array when malformed elements should be
-/// dropped rather than failing the entire decode.
-let lenientArray = (decoder: decoder<'a>): decoder<array<'a>> => {
-  json => {
-    switch json {
-    | Array(arr) =>
-      Ok(
-        Array.filterMap(arr, item => {
-          switch decoder(item) {
-          | Ok(v) => Some(v)
-          | Error(_) => None
-          }
-        }),
-      )
-    | _ => Error(Failure("Expected an array", json))
-    }
-  }
-}
-
-/// Decode a string array field, defaulting to empty array.
-/// Common pattern for proversUsed, goals, proofScript, tacticsApplied, etc.
-let stringArrayField = (name: string): decoder<array<string>> =>
-  fieldWithDefault(name, lenientArray(string), [])
-
-/// Map a decoded value through a transformation function.
-/// Useful for variant mapping (e.g., int → trustLevel variant).
-let mapValue = (decoder: decoder<'a>, f: 'a => 'b): decoder<'b> => map(decoder, f)
-
-/// Decode the "result" wrapper common in Cloudflare-style API responses.
-/// Handles both `[...]` and `{ "result": [...] }` shapes.
-let resultArrayOrDirect = (itemDecoder: decoder<'a>): decoder<array<'a>> => {
-  oneOf([lenientArray(itemDecoder), field("result", lenientArray(itemDecoder))])
-}
-
-/// Decode an optional field — returns Some(value) if present and decodable,
-/// None otherwise. Useful for fields like "priority" or "comment" that may
-/// be absent or null.
-let optionalFieldDecoder = (name: string, decoder: decoder<'a>): decoder<option<'a>> => {
-  json => {
-    switch field(name, decoder)(json) {
-    | Ok(v) => Ok(Some(v))
-    | Error(_) => Ok(None)
-    }
-  }
-}
-
-/// Decode a string-keyed dict from a JSON object, extracting values as floats.
-/// Used for heatmaps and score objects.
-let floatDict: decoder<array<(string, float)>> = json => {
-  switch json {
-  | Object(d) => {
-      let pairs = []
-      Dict.forEachWithKey(d, (val, key) => {
-        switch float(val) {
-        | Ok(n) => Array.push(pairs, (key, n))->ignore
-        | Error(_) => ()
-        }
-      })
-      Ok(pairs)
-    }
-  | _ => Error(Failure("Expected an object", json))
-  }
-}
-
-/// Decode a string-keyed dict from a JSON object, extracting values as ints.
-/// Used for query pattern and proof type counts.
-let intDict: decoder<array<(string, int)>> = json => {
-  switch json {
-  | Object(d) => {
-      let pairs = []
-      Dict.forEachWithKey(d, (val, key) => {
-        switch int(val) {
-        | Ok(n) => Array.push(pairs, (key, n))->ignore
-        | Error(_) => ()
-        }
-      })
-      Ok(pairs)
-    }
-  | _ => Error(Failure("Expected an object", json))
-  }
-}
diff --git a/src/core/DeviceNetworkDesignerEngine.affine b/src/core/DeviceNetworkDesignerEngine.affine
new file mode 100644
index 00000000..e88d92c1
--- /dev/null
+++ b/src/core/DeviceNetworkDesignerEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module DeviceNetworkDesignerEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/DeviceNetworkDesignerEngine.res b/src/core/DeviceNetworkDesignerEngine.res
deleted file mode 100644
index f4497ec9..00000000
--- a/src/core/DeviceNetworkDesignerEngine.res
+++ /dev/null
@@ -1,55 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Device Network Designer Engine — pure computation and helpers for
-/// wiring devices, configuring security levels, and validating topology.
-///
-/// Provides default state, tab labels, and utility functions for counting
-/// devices by type, counting connections, and summarising validation results.
-
-open DeviceNetworkDesignerModel
-
-/// Default state for the Device Network Designer panel.
-let defaultState: deviceNetworkDesignerState = {
-  activeTab: Designer,
-  devices: [],
-  connections: [],
-  validation: None,
-  selectedDevice: None,
-  selectedConnection: None,
-  wiringMode: false,
-  error: None,
-}
-
-/// Human-readable label for a device network designer category tab.
-let tabLabel = (cat: deviceNetworkDesignerCategory): string =>
-  switch cat {
-  | Designer => "Designer"
-  | Devices => "Devices"
-  | Wiring => "Wiring"
-  | Validation => "Validation"
-  }
-
-/// All category tabs in display order.
-let allTabs: array<deviceNetworkDesignerCategory> = [Designer, Devices, Wiring, Validation]
-
-/// Count devices matching a given device type string.
-let countDevicesByType = (devices: array<deviceNode>, deviceType: string): int =>
-  devices->Array.filter(d => d.deviceType === deviceType)->Array.length
-
-/// Count total wire connections.
-let countConnections = (connections: array<wireConnection>): int => connections->Array.length
-
-/// Produce a human-readable validation summary string.
-/// Returns "No validation run" if no result is available.
-let validationSummary = (validation: option<networkValidation>): string =>
-  switch validation {
-  | None => "No validation run"
-  | Some(v) => {
-      let status = v.valid ? "PASS" : "FAIL"
-      let errorCount = v.errors->Array.length
-      let warningCount = v.warnings->Array.length
-      `${status}: ${Int.toString(v.deviceCount)} devices, ${Int.toString(
-          v.connectionCount,
-        )} connections, ${Int.toString(errorCount)} errors, ${Int.toString(warningCount)} warnings`
-    }
-  }
diff --git a/src/core/DlcWorkshopEngine.affine b/src/core/DlcWorkshopEngine.affine
new file mode 100644
index 00000000..8e1385f9
--- /dev/null
+++ b/src/core/DlcWorkshopEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module DlcWorkshopEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/DlcWorkshopEngine.res b/src/core/DlcWorkshopEngine.res
deleted file mode 100644
index 9cadc24b..00000000
--- a/src/core/DlcWorkshopEngine.res
+++ /dev/null
@@ -1,126 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL DLC Workshop Engine — pure computation and helpers for the
-/// IDApTIK DLC puzzle pack creation and testing panel.
-
-open DlcWorkshopModel
-
-/// Human-readable labels for category tabs.
-let categoryLabel = (cat: dlcWorkshopCategory): string =>
-  switch cat {
-  | WorkshopPuzzles => "Puzzles"
-  | WorkshopComposer => "Composer"
-  | WorkshopTesting => "Testing"
-  | WorkshopAssets => "Assets"
-  | WorkshopPackaging => "Packaging"
-  }
-
-/// Human-readable difficulty labels.
-let difficultyLabel = (diff: puzzleDifficulty): string =>
-  switch diff {
-  | DifficultyTutorial => "Tutorial"
-  | DifficultyEasy => "Easy"
-  | DifficultyMedium => "Medium"
-  | DifficultyHard => "Hard"
-  | DifficultyExpert => "Expert"
-  | DifficultyNightmare => "Nightmare"
-  }
-
-/// Colour class for each difficulty.
-let difficultyColour = (diff: puzzleDifficulty): string =>
-  switch diff {
-  | DifficultyTutorial => "text-emerald-400"
-  | DifficultyEasy => "text-cyan-400"
-  | DifficultyMedium => "text-amber-400"
-  | DifficultyHard => "text-orange-400"
-  | DifficultyExpert => "text-red-400"
-  | DifficultyNightmare => "text-purple-400"
-  }
-
-/// Test status label.
-let testStatusLabel = (status: testRunStatus): string =>
-  switch status {
-  | TestNotRun => "Not Run"
-  | TestRunning => "Running..."
-  | TestPassed => "Passed"
-  | TestFailed(reason) => `Failed: ${reason}`
-  | TestTimeout => "Timeout"
-  }
-
-/// Test status colour.
-let testStatusColour = (status: testRunStatus): string =>
-  switch status {
-  | TestNotRun => "text-gray-500"
-  | TestRunning => "text-amber-400"
-  | TestPassed => "text-emerald-400"
-  | TestFailed(_) => "text-red-400"
-  | TestTimeout => "text-orange-400"
-  }
-
-/// All difficulty levels for filter dropdown.
-let allDifficulties: array<puzzleDifficulty> = [
-  DifficultyTutorial,
-  DifficultyEasy,
-  DifficultyMedium,
-  DifficultyHard,
-  DifficultyExpert,
-  DifficultyNightmare,
-]
-
-/// Count puzzles by difficulty.
-let countByDifficulty = (puzzles: array<dlcPuzzle>, diff: puzzleDifficulty): int =>
-  puzzles->Array.filter(p => p.difficulty === diff)->Array.length
-
-/// Count passed tests.
-let passedTests = (puzzles: array<dlcPuzzle>): int =>
-  puzzles->Array.filter(p => p.testStatus === TestPassed)->Array.length
-
-/// Filter puzzles by text and difficulty.
-let filterPuzzles = (
-  puzzles: array<dlcPuzzle>,
-  filterText: string,
-  filterDifficulty: option<puzzleDifficulty>,
-): array<dlcPuzzle> => {
-  let filtered = switch filterDifficulty {
-  | Some(diff) => puzzles->Array.filter(p => p.difficulty === diff)
-  | None => puzzles
-  }
-  if filterText === "" {
-    filtered
-  } else {
-    let lower = String.toLowerCase(filterText)
-    filtered->Array.filter(p =>
-      String.includes(String.toLowerCase(p.name), lower) ||
-      String.includes(String.toLowerCase(p.description), lower)
-    )
-  }
-}
-
-/// Default pack metadata.
-let defaultPackMeta: dlcPackMeta = {
-  packId: "",
-  name: "Untitled Pack",
-  version: "0.1.0",
-  author: "Jonathan D.A. Jewell",
-  description: "",
-  puzzleCount: 0,
-  totalSizeBytes: 0,
-}
-
-/// Default state for the DLC Workshop panel.
-let defaultState: dlcWorkshopState = {
-  activeCategory: WorkshopPuzzles,
-  puzzles: [],
-  chains: [],
-  assets: [],
-  packMeta: defaultPackMeta,
-  selectedPuzzleId: None,
-  selectedChainId: None,
-  composerInstructions: [],
-  testResults: [],
-  filterText: "",
-  filterDifficulty: None,
-  showTestOutput: false,
-  loading: false,
-  error: None,
-}
diff --git a/src/core/EchidnaEngine.affine b/src/core/EchidnaEngine.affine
new file mode 100644
index 00000000..ef6b5f70
--- /dev/null
+++ b/src/core/EchidnaEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module EchidnaEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/EchidnaEngine.res b/src/core/EchidnaEngine.res
deleted file mode 100644
index 39e86445..00000000
--- a/src/core/EchidnaEngine.res
+++ /dev/null
@@ -1,46 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL ECHIDNA Engine — pure helpers for theorem prover dispatch panel.
-
-open EchidnaModel
-
-/// Default enterprise model state.
-let defaultEnterpriseModelState: enterpriseModelState = {
-  elements: [],
-  constraints: [],
-  checkResults: [],
-  checking: false,
-  activeMetamodel: None,
-  activeLayer: None,
-  lastXmiImport: None,
-}
-
-/// Default initial state.
-let defaultState: echidnaState = {
-  connected: false,
-  endpoint: "http://localhost:9000/api/v1",
-  version: None,
-  provers: [],
-  lastProofResult: None,
-  proofError: None,
-  proofLoading: false,
-  session: None,
-  tacticSuggestions: [],
-  selectedProver: None,
-  proofInput: "",
-  menuExpanded: false,
-  activeTab: EchidnaProofTab,
-  tacticInput: "",
-  sessionLoading: false,
-  lastProofObligations: None,
-  bojRouting: false,
-  enterpriseModel: defaultEnterpriseModelState,
-}
-
-/// Tab label for display.
-let tabLabel = (tab: echidnaTab): string => {
-  switch tab {
-  | EchidnaProofTab => "Proof Workbench"
-  | EchidnaEnterpriseTab => "Enterprise Model"
-  }
-}
diff --git a/src/core/EditorBridgeEngine.affine b/src/core/EditorBridgeEngine.affine
new file mode 100644
index 00000000..9095d41a
--- /dev/null
+++ b/src/core/EditorBridgeEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module EditorBridgeEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/EditorBridgeEngine.res b/src/core/EditorBridgeEngine.res
deleted file mode 100644
index b2bdb2ea..00000000
--- a/src/core/EditorBridgeEngine.res
+++ /dev/null
@@ -1,141 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Editor Bridge Engine — pure computation and helpers for
-/// federating with external code editors.
-
-open EditorBridgeModel
-
-/// Human-readable labels for category tabs.
-let categoryLabel = (cat: editorBridgeCategory): string =>
-  switch cat {
-  | BridgeOverview => "Overview"
-  | BridgeDiagnostics => "Diagnostics"
-  | BridgeSymbols => "Symbols"
-  | BridgeActivity => "Activity"
-  | BridgeSettings => "Settings"
-  }
-
-/// Human-readable editor name.
-let editorLabel = (editor: editorKind): string =>
-  switch editor {
-  | EditorVSCodium => "VSCodium"
-  | EditorVSCode => "VS Code"
-  | EditorZed => "Zed"
-  | EditorHelix => "Helix"
-  | EditorNeovim => "Neovim"
-  | EditorEmacs => "Emacs"
-  | EditorKakoune => "Kakoune"
-  | EditorVisualParadigm => "Visual Paradigm"
-  | EditorSparxEA => "Sparx EA"
-  | EditorArchi => "Archi"
-  | EditorCamundaModeler => "Camunda Modeler"
-  | EditorMagicDraw => "MagicDraw"
-  | EditorCustom(name) => name
-  }
-
-/// All supported editors.
-let allEditors: array<editorKind> = [
-  EditorVSCodium,
-  EditorVSCode,
-  EditorZed,
-  EditorHelix,
-  EditorNeovim,
-  EditorEmacs,
-  EditorKakoune,
-]
-
-/// Connection state label.
-let connectionLabel = (conn: editorConnection): string =>
-  switch conn {
-  | EditorDisconnected => "Disconnected"
-  | EditorConnecting => "Connecting..."
-  | EditorConnected(version) => `Connected (${version})`
-  | EditorError(err) => `Error: ${err}`
-  }
-
-/// Connection colour.
-let connectionColour = (conn: editorConnection): string =>
-  switch conn {
-  | EditorDisconnected => "text-gray-500"
-  | EditorConnecting => "text-amber-400"
-  | EditorConnected(_) => "text-emerald-400"
-  | EditorError(_) => "text-red-400"
-  }
-
-/// Severity colour for diagnostics.
-let severityColour = (severity: string): string =>
-  switch severity {
-  | "error" => "text-red-400"
-  | "warning" => "text-amber-400"
-  | "info" => "text-blue-400"
-  | "hint" => "text-gray-400"
-  | _ => "text-gray-400"
-  }
-
-/// Filter diagnostics by severity flags.
-let filterDiagnostics = (
-  diagnostics: array<editorDiagnostic>,
-  showErrors: bool,
-  showWarnings: bool,
-  showInfo: bool,
-  filterText: string,
-): array<editorDiagnostic> => {
-  let bySeverity = diagnostics->Array.filter(d =>
-    switch d.severity {
-    | "error" => showErrors
-    | "warning" => showWarnings
-    | "info" | "hint" => showInfo
-    | _ => true
-    }
-  )
-  if filterText === "" {
-    bySeverity
-  } else {
-    let lower = String.toLowerCase(filterText)
-    bySeverity->Array.filter(d =>
-      String.includes(String.toLowerCase(d.message), lower) ||
-      String.includes(String.toLowerCase(d.filePath), lower)
-    )
-  }
-}
-
-/// Filter symbols by text.
-let filterSymbols = (symbols: array<workspaceSymbol>, filterText: string): array<
-  workspaceSymbol,
-> => {
-  if filterText === "" {
-    symbols
-  } else {
-    let lower = String.toLowerCase(filterText)
-    symbols->Array.filter(s =>
-      String.includes(String.toLowerCase(s.name), lower) ||
-      String.includes(String.toLowerCase(s.containerName), lower)
-    )
-  }
-}
-
-/// Count diagnostics by severity.
-let countBySeverity = (diagnostics: array<editorDiagnostic>, severity: string): int =>
-  diagnostics->Array.filter(d => d.severity === severity)->Array.length
-
-/// Default state for the Editor Bridge panel.
-let defaultState: editorBridgeState = {
-  activeCategory: BridgeOverview,
-  editorKind: EditorVSCodium,
-  connection: EditorDisconnected,
-  openFiles: [],
-  diagnostics: [],
-  symbols: [],
-  activity: [],
-  selectedFilePath: None,
-  diagnosticFilter: "",
-  symbolFilter: "",
-  showWarnings: true,
-  showErrors: true,
-  showInfo: false,
-  autoSync: true,
-  lspPort: 6008,
-  loading: false,
-  error: None,
-  bojRouting: false,
-}
diff --git a/src/core/EnsaidConfigEngine.affine b/src/core/EnsaidConfigEngine.affine
new file mode 100644
index 00000000..99d93c54
--- /dev/null
+++ b/src/core/EnsaidConfigEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module EnsaidConfigEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/EnsaidConfigEngine.res b/src/core/EnsaidConfigEngine.res
deleted file mode 100644
index 22cc04aa..00000000
--- a/src/core/EnsaidConfigEngine.res
+++ /dev/null
@@ -1,503 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL ENSAID_CONFIG Engine — generates well-annotated .machine_readable/ENSAID_CONFIG.a2ml
-/// files from the combined state of Minter, Provisioner, Workspace, and Automation Router.
-///
-/// The generated file is human-readable and heavily annotated so users can tweak
-/// it manually without needing to re-open PanLL. Every section includes comments
-/// explaining what each field does, what values are valid, and what the defaults are.
-///
-/// This is a pure module — no side effects. It builds a string; the Cmd module writes it.
-
-open ProvisionerModel
-open WorkspaceModel
-open AutomationRouterModel
-
-// ============================================================================
-// Helpers
-// ============================================================================
-
-/// Render an isolation tier to its ENSAID_CONFIG string value.
-let isolationToString = (iso: panelIsolation): string => {
-  switch iso {
-  | Native => "native"
-  | StandardPod => "container"
-  | HardenedPod => "vm"
-  }
-}
-
-/// Render a workspace mode to its ENSAID_CONFIG string value.
-let workspaceModeToString = (mode: workspaceMode): string => {
-  switch mode {
-  | RhodiumMode => "rhodium"
-  | EverythingMode => "everything"
-  | CodeMode => "code"
-  | BespokeMode => "bespoke"
-  }
-}
-
-/// Render session protection to its ENSAID_CONFIG string value.
-let protectionToString = (prot: sessionProtection): string => {
-  switch prot {
-  | Open => "open"
-  | ReadOnly => "readonly"
-  | Sandboxed => "sandboxed"
-  | LanguageLocked(_) => "language-locked"
-  | TranspilationGuarded => "transpilation-guarded"
-  | ProductionGated => "production-gated"
-  }
-}
-
-/// Render execution mode to its ENSAID_CONFIG string value.
-let executionModeToString = (mode: executionMode): string => {
-  switch mode {
-  | Live => "live"
-  | DryRun => "dry-run"
-  | Simulation => "simulation"
-  | Emulation => "emulation"
-  }
-}
-
-/// Render an approval mode to its ENSAID_CONFIG string value.
-let approvalToString = (mode: approvalMode): string => {
-  switch mode {
-  | AutoFire => "auto-fire"
-  | RequireApproval => "require-approval"
-  | ApproveOnce => "approve-once"
-  | DryRunFirst => "dry-run-first"
-  }
-}
-
-/// Render a trigger event to a TOML inline table.
-let triggerToToml = (trigger: triggerEvent): string => {
-  switch trigger {
-  | FileChanged(pattern) => `{ event = "file-changed", pattern = "${pattern}" }`
-  | PanelMessage(panel, msg) =>
-    `{ event = "panel-message", panel = "${panel}", message = "${msg}" }`
-  | Timer(seconds) => `{ event = "timer", seconds = ${Int.toString(seconds)} }`
-  | Manual => `{ event = "manual" }`
-  | PanelStateChange(panel, field) =>
-    `{ event = "panel-state-change", panel = "${panel}", field = "${field}" }`
-  }
-}
-
-/// Extract language-lock extensions if applicable.
-let languageLockExtensions = (prot: sessionProtection): option<array<string>> => {
-  switch prot {
-  | LanguageLocked(exts) => Some(exts)
-  | _ => None
-  }
-}
-
-// ============================================================================
-// Section Generators
-// ============================================================================
-
-/// Generate the file header with SPDX and explanatory comments.
-let generateHeader = (repoName: string): string => {
-  `# SPDX-License-Identifier: MPL-2.0
-#
-# ENSAID_CONFIG.a2ml — eNSAID Environment Configuration for ${repoName}
-#
-# This file configures PanLL (and any eNSAID-compatible tool) for this repository.
-# It was generated by PanLL but is designed to be human-editable. Every section
-# includes comments explaining what each field does and what values are valid.
-#
-# Canonical location: .machine_readable/ENSAID_CONFIG.a2ml
-# Spec: https://github.com/hyperpolymath/standards/tree/main/ensaid-config
-#
-# To regenerate this file from PanLL, use any of:
-#   - Provisioner panel → Export Config
-#   - Workspace panel → Export Config
-#   - Automation Router panel → Settings → Save to Repo
-#   - Minter panel → after minting a panel, choose "Update ENSAID_CONFIG"
-`
-}
-
-/// Generate the [ensaid] section.
-let generateEnsaidSection = (): string => {
-  `
-# ─────────────────────────────────────────────────────────────────
-# [ensaid] — Core eNSAID identity
-#
-# version: Spec version this file conforms to (semver).
-# tool:    Which eNSAID tool generated this file. Informational only —
-#          other tools MUST NOT reject configs with a different tool value.
-# ─────────────────────────────────────────────────────────────────
-[ensaid]
-version = "1.0.0"
-tool = "panll"
-`
-}
-
-/// Generate the [workspace] section from Workspace state.
-let generateWorkspaceSection = (ws: workspaceState): string => {
-  let modeStr = workspaceModeToString(ws.mode)
-  let protStr = protectionToString(ws.protection)
-  let execStr = executionModeToString(ws.executionMode)
-
-  let langLock = switch languageLockExtensions(ws.protection) {
-  | Some(exts) => {
-      let extList = exts->Array.map(e => `"${e}"`)->Array.join(", ")
-      `
-# Only editable when protection = "language-locked".
-# Files with these extensions are immutable; everything else is open.
-[workspace.language-lock]
-extensions = [${extList}]
-`
-    }
-  | None => ""
-  }
-
-  `
-# ─────────────────────────────────────────────────────────────────
-# [workspace] — Workspace mode, protection, and execution policy
-#
-# mode: Controls which panels and metadata are visible.
-#   "rhodium"    — Full RSR standard compliance view (all governance visible)
-#   "everything" — Every panel and tool enabled
-#   "code"       — Pure development experience (hides governance panels)
-#   "bespoke"    — Per-repo custom panel set (uses [panels] section below)
-#
-# protection: What operations are permitted in this workspace.
-#   "open"                  — No restrictions, full read-write
-#   "readonly"              — Browse everything, edit nothing
-#   "sandboxed"             — Changes reset when the session ends
-#   "language-locked"       — Only files matching language-lock extensions editable
-#   "transpilation-guarded" — Saves require equivalence proof
-#   "production-gated"      — Changes staged, require explicit sign-off
-#
-# execution: How commands and builds run.
-#   "live"       — Real execution against real data
-#   "dry-run"    — Preview changes without applying
-#   "simulation" — Run against simulated environment with mock data
-#   "emulation"  — Full emulation of target environment locally
-# ─────────────────────────────────────────────────────────────────
-[workspace]
-mode = "${modeStr}"
-protection = "${protStr}"
-execution = "${execStr}"
-` ++
-  langLock
-}
-
-/// Generate the [preferences] section.
-let generatePreferencesSection = (humidity: string, arrangementId: option<string>): string => {
-  let arrStr = switch arrangementId {
-  | Some(id) => id
-  | None => "default-3-panel"
-  }
-
-  `
-# ─────────────────────────────────────────────────────────────────
-# [preferences] — Display and behaviour preferences
-#
-# humidity: Intensity of the Orbital Drift Aura (ambient background).
-#   "high"   — Strong colour wash (immersive)
-#   "medium" — Subtle tint (balanced)
-#   "low"    — Barely visible (minimal distraction)
-#
-# default-arrangement: Which panel layout loads by default.
-#   Built-in options: "default-3-panel", "ai-focus", "debug-layout", "teaching-mode"
-#   Or any custom arrangement ID you've saved.
-#
-# auto-connect: Whether panels auto-connect to their backends on load.
-#   true  — Panels connect immediately (faster startup)
-#   false — Panels wait for manual connection (more control)
-# ─────────────────────────────────────────────────────────────────
-[preferences]
-humidity = "${humidity}"
-default-arrangement = "${arrStr}"
-auto-connect = true
-`
-}
-
-/// Generate the [panels] section from Provisioner panel configs.
-let generatePanelsSection = (configs: array<panelConfig>): string => {
-  let enabledPanels = configs->Array.filter(c => c.enabled)
-  let disabledPanels = configs->Array.filter(c => !c.enabled)
-
-  let enabledEntries =
-    enabledPanels
-    ->Array.map(c => {
-      let isoStr = isolationToString(c.isolation)
-      let endpointLine = if c.endpoint !== "" {
-        `\nendpoint = "${c.endpoint}"`
-      } else {
-        ""
-      }
-      let autoLine = if !c.autoConnect {
-        "\nauto-connect = false"
-      } else {
-        "\nauto-connect = true"
-      }
-      let envLines = if c.envVars->Array.length > 0 {
-        let pairs = c.envVars->Array.map(((k, v)) => `${k} = "${v}"`)->Array.join(", ")
-        `\nenv = { ${pairs} }`
-      } else {
-        ""
-      }
-      `
-[[panels.enabled]]
-id = "${c.panelName}"
-isolation = "${isoStr}"${autoLine}${endpointLine}${envLines}
-`
-    })
-    ->Array.join("")
-
-  let disabledSection = if disabledPanels->Array.length > 0 {
-    let ids = disabledPanels->Array.map(c => `"${c.panelName}"`)->Array.join(", ")
-    `
-# Panels hidden for this repo context. Users can still enable them
-# manually through the PanLL UI if the tool supports it.
-[panels.disabled]
-ids = [${ids}]
-`
-  } else {
-    `
-# No panels explicitly disabled. Uncomment to hide panels:
-# [panels.disabled]
-# ids = ["cloudguard", "aerie"]
-`
-  }
-
-  `
-# ─────────────────────────────────────────────────────────────────
-# [panels] — Panel visibility, enablement, and configuration
-#
-# Each [[panels.enabled]] entry declares a panel that should be active.
-# If this section is empty or absent, ALL panels are available (tool default).
-#
-# Fields per panel:
-#   id:           Panel identifier (matches PanLL's panel registry)
-#   isolation:    "native" (in-process), "container" (Podman), "vm" (Stapeln hardened)
-#   auto-connect: Whether this panel connects to its backend on load
-#   endpoint:     Backend URL (only for panels with external services)
-#   env:          Environment variables scoped to this panel's processes
-# ─────────────────────────────────────────────────────────────────
-[panels]
-version = "1.0.0"
-` ++
-  enabledEntries ++
-  disabledSection
-}
-
-/// Generate the [workflows] section from Automation Router rules.
-let generateWorkflowsSection = (rules: array<automationRule>): string => {
-  let ruleEntries = if rules->Array.length > 0 {
-    rules
-    ->Array.map(rule => {
-      let triggerStr = triggerToToml(rule.trigger)
-      let approvalStr = approvalToString(rule.approval)
-      let enabledStr = if !rule.enabled {
-        "\nenabled = false"
-      } else {
-        ""
-      }
-      let condLines =
-        rule.conditions
-        ->Array.map(cond => {
-          `condition = { panel = "${cond.panelId}", field = "${cond.field}", operator = "${cond.operator}", value = "${cond.value}" }`
-        })
-        ->Array.join("\n")
-      let condSection = if condLines !== "" {
-        "\n" ++ condLines
-      } else {
-        ""
-      }
-      let actionLines =
-        rule.actions
-        ->Array.map(act => {
-          let argsStr = if act.args->Array.length > 0 {
-            let pairs = act.args->Array.map(((k, v)) => `${k} = "${v}"`)->Array.join(", ")
-            `, args = { ${pairs} }`
-          } else {
-            ""
-          }
-          `action = { panel = "${act.panelId}", message = "${act.message}"${argsStr} }`
-        })
-        ->Array.join("\n")
-
-      `
-# ${rule.description}
-[[workflows.rule]]
-name = "${rule.name}"
-trigger = ${triggerStr}${condSection}
-${actionLines}
-approval = "${approvalStr}"${enabledStr}
-`
-    })
-    ->Array.join("")
-  } else {
-    `
-# No automation rules defined yet. Here's an example to get started:
-#
-# [[workflows.rule]]
-# name = "build-on-save"
-# trigger = { event = "file-changed", pattern = "src/**/*.res" }
-# condition = { panel = "build-dashboard", field = "watchMode", equals = true }
-# action = { panel = "build-dashboard", message = "TriggerBuild", args = { target = "game" } }
-# approval = "auto-fire"
-`
-  }
-
-  `
-# ─────────────────────────────────────────────────────────────────
-# [workflows] — Automation Router event-driven cross-panel rules
-#
-# Rules fire when a trigger event occurs. Each rule has:
-#   name:      Human-readable identifier (must be unique)
-#   trigger:   What event activates this rule
-#   condition: (optional) Additional check before the action fires
-#   action:    What to do — sends a message to a panel
-#   approval:  How the action is gated:
-#     "auto-fire"        — Runs immediately, no confirmation
-#     "require-approval" — Queues in Pending tab, waits for user approval
-#     "approve-once"     — Asks once, then auto-fires for identical triggers
-#     "dry-run-first"    — Shows what would happen, then asks to confirm
-#   enabled:   (optional) Set to false to disable without deleting
-#
-# Trigger types:
-#   file-changed:       A file matching 'pattern' (glob) was saved
-#   panel-message:      A panel emitted a specific message
-#   timer:              Fires every N seconds
-#   manual:             Only fires when explicitly triggered by user
-#   panel-state-change: A panel's state field changed value
-# ─────────────────────────────────────────────────────────────────
-[workflows]
-version = "1.0.0"
-` ++
-  ruleEntries
-}
-
-/// Generate the [clades] section (placeholder — clade overrides are per-repo).
-let generateCladesSection = (): string => {
-  `
-# ─────────────────────────────────────────────────────────────────
-# [clades] — Panel clade trait and capability overrides
-#
-# Clades are the taxonomic categories of panels (ai, bridge, builder,
-# database, directive, loader, meta, network, scanner, terminal, viewer).
-# Override traits and capabilities here for this repo context only —
-# the global clade registry is not modified.
-#
-# Fields per override:
-#   id:                  Clade identifier to customise
-#   traits:              Key-value pairs to set or override (booleans/strings)
-#   capabilities-add:    Capabilities to add for this repo
-#   capabilities-remove: Capabilities to remove for this repo
-# ─────────────────────────────────────────────────────────────────
-[clades]
-version = "1.0.0"
-
-# Example: give the build dashboard a work-items trait for this repo
-# [[clades.override]]
-# id = "build-dashboard"
-# traits = { has-work-items = true }
-# capabilities-add = ["CustomCheck"]
-`
-}
-
-/// Generate the [portfolios] section from Provisioner portfolios.
-let generatePortfoliosSection = (portfolios: array<portfolio>): string => {
-  let customPortfolios = portfolios->Array.filter(p => !p.builtIn)
-
-  let portfolioEntries = if customPortfolios->Array.length > 0 {
-    customPortfolios
-    ->Array.map(p => {
-      let panelList = p.panels->Array.map(id => `"${id}"`)->Array.join(", ")
-      let isoStr = isolationToString(p.defaultIsolation)
-      `
-# ${p.description}
-[[portfolios.custom]]
-id = "${p.id}"
-name = "${p.name}"
-description = "${p.description}"
-panels = [${panelList}]
-default-isolation = "${isoStr}"
-`
-    })
-    ->Array.join("")
-  } else {
-    `
-# No custom portfolios defined yet. Here's an example:
-#
-# [[portfolios.custom]]
-# id = "my-project-dev"
-# name = "My Project Development"
-# description = "Panels tailored to this project's workflow"
-# panels = ["valence-shell", "editor-bridge", "build-dashboard"]
-# default-isolation = "native"
-`
-  }
-
-  `
-# ─────────────────────────────────────────────────────────────────
-# [portfolios] — Custom panel bundles for this repo's workflow
-#
-# A portfolio is a named collection of panels that form a workspace
-# configuration. Define portfolios here to give collaborators a
-# one-click setup for common workflows.
-#
-# Fields:
-#   id:                Unique identifier (kebab-case)
-#   name:              Human-readable name
-#   description:       What this portfolio is for
-#   panels:            Ordered list of panel IDs to include
-#   default-isolation: Default isolation tier for panels in this bundle
-#                      ("native", "container", "vm")
-#                      Panels with explicit isolation in [panels] override this.
-# ─────────────────────────────────────────────────────────────────
-[portfolios]
-version = "1.0.0"
-` ++
-  portfolioEntries
-}
-
-// ============================================================================
-// Main Generator
-// ============================================================================
-
-/// Generate a complete, well-annotated ENSAID_CONFIG.a2ml from PanLL state.
-///
-/// This is the primary entry point. Each panel calls this with whatever state
-/// it has access to. Missing state uses sensible defaults.
-let generate = (
-  ~repoName: string,
-  ~workspace: option<workspaceState>=?,
-  ~humidity: string="medium",
-  ~panelConfigs: array<panelConfig>=[],
-  ~portfolios: array<portfolio>=[],
-  ~automationRules: array<automationRule>=[],
-  (),
-): string => {
-  let ws = switch workspace {
-  | Some(w) => w
-  | None => {
-      mode: RhodiumMode,
-      protection: Open,
-      executionMode: Live,
-      groups: [],
-      arrangements: [],
-      activeArrangementId: None,
-      sessions: [],
-      activeSessionId: None,
-      polyTools: [],
-      configuratorOpen: false,
-      configuratorTab: TabArrangements,
-      viewingMetadata: None,
-      metadataContent: None,
-    }
-  }
-
-  let arrangementId = ws.activeArrangementId
-
-  generateHeader(repoName) ++
-  generateEnsaidSection() ++
-  generateWorkspaceSection(ws) ++
-  generatePreferencesSection(humidity, arrangementId) ++
-  generatePanelsSection(panelConfigs) ++
-  generateWorkflowsSection(automationRules) ++
-  generateCladesSection() ++
-  generatePortfoliosSection(portfolios)
-}
diff --git a/src/core/ErrorBoundary.affine b/src/core/ErrorBoundary.affine
new file mode 100644
index 00000000..29ad0553
--- /dev/null
+++ b/src/core/ErrorBoundary.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ErrorBoundary;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/ErrorBoundary.res b/src/core/ErrorBoundary.res
deleted file mode 100644
index 71d917b8..00000000
--- a/src/core/ErrorBoundary.res
+++ /dev/null
@@ -1,131 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// ErrorBoundary — Standardized error handling for Gossamer command dispatch.
-///
-/// Wraps RuntimeBridge.invoke with structured error capture and TEA message
-/// dispatch. When a command fails, the error is captured as a result type
-/// and routed through the normal TEA update cycle rather than crashing.
-///
-/// New command modules (ServiceCmd, SettingsCmd, IdentityCmd) use this
-/// pattern. Existing commands can adopt incrementally.
-///
-/// Part of Connected Workbench v0.2.0.
-
-/// Extract a human-readable error message from a JavaScript exception.
-///
-/// Handles the common case where the caught value is an Error object
-/// with a `.message` property, as well as plain string rejections.
-let extractErrorMessage: exn => string = %raw(`
-  function(err) {
-    if (err && typeof err === 'object' && typeof err.message === 'string') {
-      return err.message;
-    }
-    if (typeof err === 'string') {
-      return err;
-    }
-    return 'Unknown error';
-  }
-`)
-
-/// Invoke a Gossamer command with error boundary protection.
-///
-/// On success: calls tagger with `Ok(result)`.
-/// On failure: calls tagger with `Error(contextMessage: detailMessage)`.
-/// Never throws — all exceptions are caught and routed through the tagger.
-///
-/// @param cmd        The Gossamer command name (e.g. "verisimdb_health")
-/// @param args       The command payload (any JSON-serializable value)
-/// @param context    Human-readable context for error messages (e.g. "VeriSimDB health check")
-/// @param tagger     TEA message constructor for the result
-let invokeWithBoundary = (
-  cmd: string,
-  args: 'a,
-  context: string,
-  tagger: result<'b, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    RuntimeBridge.invoke(cmd, args)
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(err => {
-      let detail = extractErrorMessage(err)
-      callbacks.enqueue(tagger(Error(context ++ ": " ++ detail)))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Fire-and-forget variant — logs errors to Console.warn, no TEA message.
-///
-/// Use for operations where failure is acceptable and does not need
-/// to be reflected in the UI (e.g. background telemetry, cache warming).
-///
-/// @param cmd      The Gossamer command name
-/// @param args     The command payload
-/// @param context  Human-readable context for warning messages
-let invokeFireAndForget = (cmd: string, args: 'a, context: string): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(_callbacks => {
-    RuntimeBridge.invoke(cmd, args)
-    ->Promise.catch(err => {
-      let detail = extractErrorMessage(err)
-      Console.warn(context ++ ": " ++ detail)
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-
-/// Invoke with a timeout boundary.
-///
-/// Wraps a Gossamer command with a client-side timeout. If the command
-/// does not respond within `timeoutMs` milliseconds, the tagger receives
-/// an Error with a timeout message. The backend request may still complete
-/// (this is a client-side optimistic abort, not a cancellation).
-///
-/// @param cmd        The Gossamer command name
-/// @param args       The command payload
-/// @param context    Human-readable context for error messages
-/// @param timeoutMs  Maximum wait time in milliseconds
-/// @param tagger     TEA message constructor for the result
-let invokeWithTimeout = (
-  cmd: string,
-  args: 'a,
-  context: string,
-  timeoutMs: int,
-  tagger: result<'b, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let resolved = ref(false)
-
-    // Start the actual invoke
-    RuntimeBridge.invoke(cmd, args)
-    ->Promise.then(result => {
-      if !resolved.contents {
-        resolved := true
-        callbacks.enqueue(tagger(Ok(result)))
-      }
-      Promise.resolve()
-    })
-    ->Promise.catch(err => {
-      if !resolved.contents {
-        resolved := true
-        let detail = extractErrorMessage(err)
-        callbacks.enqueue(tagger(Error(context ++ ": " ++ detail)))
-      }
-      Promise.resolve()
-    })
-    ->ignore
-
-    // Timeout guard
-    let _ = setTimeout(() => {
-      if !resolved.contents {
-        resolved := true
-        callbacks.enqueue(tagger(Error(context ++ ": timed out after " ++ Int.toString(timeoutMs) ++ "ms")))
-      }
-    }, timeoutMs)
-  })
-}
diff --git a/src/core/EvangeliserEngine.affine b/src/core/EvangeliserEngine.affine
new file mode 100644
index 00000000..22edb361
--- /dev/null
+++ b/src/core/EvangeliserEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module EvangeliserEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/EvangeliserEngine.res b/src/core/EvangeliserEngine.res
deleted file mode 100644
index 03ee5d91..00000000
--- a/src/core/EvangeliserEngine.res
+++ /dev/null
@@ -1,1455 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Evangeliser Engine — pure logic for JS→ReScript pattern detection.
-///
-/// Contains the pattern library (52 patterns across 20 categories), the
-/// Makaton-inspired glyph registry, the regex-based scanner, and narrative
-/// generation. All functions are pure — no side effects, no commands.
-///
-/// Panel mapping:
-///   Panel-L: constraintSummary, filterPatterns, categoryLabel
-///   Panel-N: scanCode (regex matching), narrativeFor
-///   Panel-W: formatMatch, coverageStats, difficultyLabel
-
-open EvangeliserModel
-
-// ============================================================================
-// Category and Difficulty Helpers
-// ============================================================================
-
-/// Human-readable label for a pattern category.
-let categoryLabel = (cat: evangeliserCategory): string => {
-  switch cat {
-  | NullSafety => "Null Safety"
-  | Async => "Async"
-  | ErrorHandling => "Error Handling"
-  | ArrayOperations => "Array Operations"
-  | Conditionals => "Conditionals"
-  | Destructuring => "Destructuring"
-  | Defaults => "Defaults"
-  | Functional => "Functional"
-  | Templates => "Templates"
-  | ArrowFunctions => "Arrow Functions"
-  | Variants => "Variants"
-  | Modules => "Modules"
-  | TypeSafety => "Type Safety"
-  | Immutability => "Immutability"
-  | PatternMatching => "Pattern Matching"
-  | PipeOperator => "Pipe Operator"
-  | OopToFp => "OOP to FP"
-  | ClassesToRecords => "Classes to Records"
-  | InheritanceToComposition => "Inheritance to Composition"
-  | StateMachines => "State Machines"
-  | DataModeling => "Data Modeling"
-  }
-}
-
-/// Short code for a category (for compact UI).
-let categoryCode = (cat: evangeliserCategory): string => {
-  switch cat {
-  | NullSafety => "null"
-  | Async => "async"
-  | ErrorHandling => "err"
-  | ArrayOperations => "arr"
-  | Conditionals => "cond"
-  | Destructuring => "dest"
-  | Defaults => "def"
-  | Functional => "fn"
-  | Templates => "tmpl"
-  | ArrowFunctions => "arrow"
-  | Variants => "var"
-  | Modules => "mod"
-  | TypeSafety => "type"
-  | Immutability => "imm"
-  | PatternMatching => "match"
-  | PipeOperator => "pipe"
-  | OopToFp => "fp"
-  | ClassesToRecords => "rec"
-  | InheritanceToComposition => "comp"
-  | StateMachines => "fsm"
-  | DataModeling => "data"
-  }
-}
-
-/// Tailwind colour class for a category.
-let categoryColour = (cat: evangeliserCategory): string => {
-  switch cat {
-  | NullSafety | TypeSafety => "text-red-400"
-  | Async | ErrorHandling => "text-amber-400"
-  | ArrayOperations | Functional => "text-emerald-400"
-  | Conditionals | PatternMatching => "text-cyan-400"
-  | Destructuring | Defaults => "text-violet-400"
-  | Templates | ArrowFunctions => "text-blue-400"
-  | Variants | DataModeling => "text-pink-400"
-  | Modules | Immutability => "text-teal-400"
-  | PipeOperator => "text-indigo-400"
-  | OopToFp | ClassesToRecords | InheritanceToComposition => "text-orange-400"
-  | StateMachines => "text-lime-400"
-  }
-}
-
-/// Human-readable label for difficulty.
-let difficultyLabel = (diff: evangeliserDifficulty): string => {
-  switch diff {
-  | Beginner => "Beginner"
-  | Intermediate => "Intermediate"
-  | Advanced => "Advanced"
-  }
-}
-
-/// Tailwind colour class for difficulty badge.
-let difficultyColour = (diff: evangeliserDifficulty): string => {
-  switch diff {
-  | Beginner => "text-emerald-400 bg-emerald-900/40"
-  | Intermediate => "text-amber-400 bg-amber-900/40"
-  | Advanced => "text-red-400 bg-red-900/40"
-  }
-}
-
-/// Human-readable label for view layer.
-let viewLayerLabel = (vl: evangeliserViewLayer): string => {
-  switch vl {
-  | ViewRaw => "Raw"
-  | ViewFolded => "Folded"
-  | ViewGlyphed => "Glyphed"
-  | ViewWysiwyg => "WYSIWYG"
-  }
-}
-
-// ============================================================================
-// All categories as an array (for iteration in UI)
-// ============================================================================
-
-let allCategories: array<evangeliserCategory> = [
-  NullSafety,
-  Async,
-  ErrorHandling,
-  ArrayOperations,
-  Conditionals,
-  Destructuring,
-  Defaults,
-  Functional,
-  Templates,
-  ArrowFunctions,
-  Variants,
-  Modules,
-  TypeSafety,
-  Immutability,
-  PatternMatching,
-  PipeOperator,
-  OopToFp,
-  ClassesToRecords,
-  InheritanceToComposition,
-  StateMachines,
-  DataModeling,
-]
-
-// ============================================================================
-// Glyph Registry — 21 Makaton-inspired glyphs
-// ============================================================================
-
-let builtinGlyphs: array<evangeliserGlyph> = [
-  {
-    symbol: "\xf0\x9f\x94\x84",
-    name: "Transform",
-    meaning: "Data transformation or mapping",
-    semanticCategory: Transformation,
-  },
-  {
-    symbol: "\xf0\x9f\x8e\xaf",
-    name: "Target",
-    meaning: "Precise type targeting",
-    semanticCategory: Safety,
-  },
-  {
-    symbol: "\xf0\x9f\x9b\xa1\xef\xb8\x8f",
-    name: "Shield",
-    meaning: "Protection from null/undefined",
-    semanticCategory: Safety,
-  },
-  {
-    symbol: "\xe2\x9e\xa1\xef\xb8\x8f",
-    name: "Flow",
-    meaning: "Pipe operator — data flows left to right",
-    semanticCategory: Flow,
-  },
-  {
-    symbol: "\xf0\x9f\x94\x80",
-    name: "Branch",
-    meaning: "Pattern matching — exhaustive branching",
-    semanticCategory: Flow,
-  },
-  {
-    symbol: "\xf0\x9f\x93\xa6",
-    name: "Package",
-    meaning: "Module encapsulation",
-    semanticCategory: Structure,
-  },
-  {
-    symbol: "\xe2\x9c\xa8",
-    name: "Sparkle",
-    meaning: "Type inference — types appear automatically",
-    semanticCategory: Safety,
-  },
-  {
-    symbol: "\xf0\x9f\x94\x92",
-    name: "Lock",
-    meaning: "Immutability — data cannot change",
-    semanticCategory: State,
-  },
-  {
-    symbol: "\xf0\x9f\x8c\xb1",
-    name: "Seed",
-    meaning: "Small code grows into safe patterns",
-    semanticCategory: Transformation,
-  },
-  {
-    symbol: "\xf0\x9f\x94\x8d",
-    name: "Search",
-    meaning: "Pattern detection in JS code",
-    semanticCategory: Transformation,
-  },
-  {
-    symbol: "\xf0\x9f\x8f\x97\xef\xb8\x8f",
-    name: "Build",
-    meaning: "Constructing types and records",
-    semanticCategory: Structure,
-  },
-  {
-    symbol: "\xe2\x9a\xa1",
-    name: "Lightning",
-    meaning: "Fast compilation — instant feedback",
-    semanticCategory: Transformation,
-  },
-  {
-    symbol: "\xf0\x9f\xa7\xa9",
-    name: "Puzzle",
-    meaning: "Composable pieces that fit together",
-    semanticCategory: Structure,
-  },
-  {
-    symbol: "\xf0\x9f\x8e\xad",
-    name: "Masks",
-    meaning: "Variants — different faces of a type",
-    semanticCategory: Data,
-  },
-  {
-    symbol: "\xf0\x9f\x93\x90",
-    name: "Notebook",
-    meaning: "Record types — structured data",
-    semanticCategory: Data,
-  },
-  {
-    symbol: "\xf0\x9f\x8c\x8a",
-    name: "Wave",
-    meaning: "Async operations with promises",
-    semanticCategory: Flow,
-  },
-  {
-    symbol: "\xf0\x9f\x94\xa7",
-    name: "Wrench",
-    meaning: "Utility function or helper",
-    semanticCategory: Transformation,
-  },
-  {
-    symbol: "\xf0\x9f\x8c\xb3",
-    name: "Tree",
-    meaning: "Recursive data structures",
-    semanticCategory: Data,
-  },
-  {
-    symbol: "\xf0\x9f\x92\xa1",
-    name: "Lightbulb",
-    meaning: "Insight — the 'aha' moment",
-    semanticCategory: Transformation,
-  },
-  {
-    symbol: "\xf0\x9f\x8e\xb5",
-    name: "Note",
-    meaning: "Harmony — code that reads naturally",
-    semanticCategory: Flow,
-  },
-  {
-    symbol: "\xf0\x9f\x97\x9d\xef\xb8\x8f",
-    name: "Compress",
-    meaning: "Concise expression — less boilerplate",
-    semanticCategory: Structure,
-  },
-]
-
-/// Look up a glyph by name.
-let findGlyph = (name: string): option<evangeliserGlyph> => {
-  builtinGlyphs->Array.find(g => g.name === name)
-}
-
-/// Get glyph symbols for an array of glyph names.
-let glyphSymbols = (names: array<string>): string => {
-  names
-  ->Array.filterMap(n => findGlyph(n)->Option.map(g => g.symbol))
-  ->Array.join(" ")
-}
-
-// ============================================================================
-// Pattern Library — 52 patterns across 20 categories
-// ============================================================================
-
-let builtinPatterns: array<evangeliserPattern> = [
-  // --- NullSafety (3) ---
-  {
-    id: "null-check-option",
-    name: "Null Check to Option",
-    category: NullSafety,
-    difficulty: Beginner,
-    jsPattern: "!==?\\s*(null|undefined)",
-    confidence: 0.85,
-    jsExample: "if (user !== null && user !== undefined) { ... }",
-    rescriptExample: "switch user { | Some(u) => ... | None => ... }",
-    narrative: {
-      celebrate: "You're being careful about null checks!",
-      minimize: "But the compiler can't verify you caught every case.",
-      better: "ReScript's Option type makes null impossible — the compiler checks exhaustively.",
-      safety: "Option<t> eliminates null reference exceptions at compile time.",
-    },
-    glyphs: ["Shield", "Target"],
-    tags: ["null", "undefined", "option", "safety"],
-    relatedPatterns: ["optional-chain-option", "nullish-coalesce-default"],
-    learningObjectives: ["Understand Option<t> as a replacement for null checks"],
-  },
-  {
-    id: "optional-chain-option",
-    name: "Optional Chaining to Option.map",
-    category: NullSafety,
-    difficulty: Intermediate,
-    jsPattern: "\\?\\.\\w+",
-    confidence: 0.80,
-    jsExample: "const name = user?.profile?.name",
-    rescriptExample: "let name = user->Option.flatMap(u => u.profile)->Option.map(p => p.name)",
-    narrative: {
-      celebrate: "Optional chaining is a great JS feature!",
-      minimize: "But it silently produces undefined deep in chains.",
-      better: "Option.flatMap makes every step explicit and type-checked.",
-      safety: "Each step in the chain has a known type — no hidden undefined.",
-    },
-    glyphs: ["Shield", "Flow"],
-    tags: ["optional-chaining", "option", "flatmap"],
-    relatedPatterns: ["null-check-option"],
-    learningObjectives: ["Chain Option operations with flatMap and map"],
-  },
-  {
-    id: "nullish-coalesce-default",
-    name: "Nullish Coalescing to Default",
-    category: NullSafety,
-    difficulty: Beginner,
-    jsPattern: "\\?\\?",
-    confidence: 0.90,
-    jsExample: "const port = config.port ?? 3000",
-    rescriptExample: "let port = config.port->Option.getOr(3000)",
-    narrative: {
-      celebrate: "Using ?? for defaults is clean!",
-      minimize: "But ?? only handles null/undefined, not other falsy values.",
-      better: "Option.getOr is explicit about what 'missing' means.",
-      safety: "The default value must match the Option's inner type.",
-    },
-    glyphs: ["Shield", "Sparkle"],
-    tags: ["nullish", "coalescing", "default"],
-    relatedPatterns: ["null-check-option"],
-    learningObjectives: ["Use Option.getOr for safe defaults"],
-  },
-  // --- Async (3) ---
-  {
-    id: "promise-then-pipe",
-    name: "Promise.then to Pipe",
-    category: Async,
-    difficulty: Intermediate,
-    jsPattern: "\\.then\\s*\\(",
-    confidence: 0.75,
-    jsExample: "fetch(url).then(r => r.json()).then(data => process(data))",
-    rescriptExample: "Fetch.fetch(url)->Promise.then(r => r->Response.json)->Promise.then(data => process(data))",
-    narrative: {
-      celebrate: "Promise chains show clear async flow!",
-      minimize: "Error handling in long chains can be tricky.",
-      better: "ReScript preserves the chain with type-safe pipe syntax.",
-      safety: "Every promise step has a known resolved type.",
-    },
-    glyphs: ["Wave", "Flow"],
-    tags: ["promise", "then", "async", "fetch"],
-    relatedPatterns: ["async-await-promise"],
-    learningObjectives: ["Use Promise.then with pipe operator"],
-  },
-  {
-    id: "async-await-promise",
-    name: "Async/Await to Promise",
-    category: Async,
-    difficulty: Intermediate,
-    jsPattern: "async\\s+function|async\\s*\\(",
-    confidence: 0.70,
-    jsExample: "async function getData() { const res = await fetch(url); return await res.json(); }",
-    rescriptExample: "let getData = () => Fetch.fetch(url)->Promise.then(res => res->Response.json)",
-    narrative: {
-      celebrate: "Async/await makes async code readable!",
-      minimize: "But forgotten awaits silently return promises instead of values.",
-      better: "ReScript's promise chains are explicit — no hidden async.",
-      safety: "The type system tracks what's a Promise and what's resolved.",
-    },
-    glyphs: ["Wave", "Lightning"],
-    tags: ["async", "await", "promise"],
-    relatedPatterns: ["promise-then-pipe"],
-    learningObjectives: ["Express async operations as typed Promise chains"],
-  },
-  {
-    id: "try-catch-async",
-    name: "Try/Catch Async to Result",
-    category: Async,
-    difficulty: Advanced,
-    jsPattern: "try\\s*\\{[^}]*await",
-    confidence: 0.65,
-    jsExample: "try { const data = await fetch(url); } catch (e) { handleError(e); }",
-    rescriptExample: "Fetch.fetch(url)->Promise.then(data => Ok(data))->Promise.catch(_ => Error(NetworkError))",
-    narrative: {
-      celebrate: "Wrapping async in try/catch shows error awareness!",
-      minimize: "But catch(e) gives you 'unknown' — no type information.",
-      better: "Promise.catch with Result gives typed error handling.",
-      safety: "Error variants are exhaustively checked by the compiler.",
-    },
-    glyphs: ["Shield", "Wave"],
-    tags: ["try", "catch", "async", "result"],
-    relatedPatterns: ["async-await-promise", "try-catch-result"],
-    learningObjectives: ["Combine Promise with Result for typed error handling"],
-  },
-  // --- ErrorHandling (3) ---
-  {
-    id: "try-catch-result",
-    name: "Try/Catch to Result",
-    category: ErrorHandling,
-    difficulty: Beginner,
-    jsPattern: "try\\s*\\{",
-    confidence: 0.80,
-    jsExample: "try { JSON.parse(input) } catch (e) { return null }",
-    rescriptExample: "switch JSON.parseExn(input) { | data => Ok(data) | exception _ => Error(ParseError) }",
-    narrative: {
-      celebrate: "Handling errors explicitly is great practice!",
-      minimize: "But catch gives you 'any' — you don't know what went wrong.",
-      better: "Result<ok, error> with typed error variants tells you exactly what failed.",
-      safety: "Every error path must be handled — the compiler won't let you forget.",
-    },
-    glyphs: ["Shield", "Branch"],
-    tags: ["try", "catch", "result", "error"],
-    relatedPatterns: ["error-code-variant"],
-    learningObjectives: ["Replace try/catch with Result type"],
-  },
-  {
-    id: "error-code-variant",
-    name: "Error Codes to Variants",
-    category: ErrorHandling,
-    difficulty: Intermediate,
-    jsPattern: "error\\.code\\s*===",
-    confidence: 0.75,
-    jsExample: "if (error.code === 'NOT_FOUND') { ... } else if (error.code === 'FORBIDDEN') { ... }",
-    rescriptExample: "switch error { | NotFound => ... | Forbidden => ... | ServerError(code) => ... }",
-    narrative: {
-      celebrate: "Checking error codes shows thorough handling!",
-      minimize: "But string codes can be misspelled without any warning.",
-      better: "Variant types make every error case a checked constructor.",
-      safety: "Adding a new error variant forces you to handle it everywhere.",
-    },
-    glyphs: ["Branch", "Target"],
-    tags: ["error", "code", "variant"],
-    relatedPatterns: ["try-catch-result"],
-    learningObjectives: ["Model errors as variant types"],
-  },
-  {
-    id: "throw-panic",
-    name: "Throw to Panic/Result",
-    category: ErrorHandling,
-    difficulty: Beginner,
-    jsPattern: "throw\\s+new\\s+Error",
-    confidence: 0.85,
-    jsExample: "if (!valid) throw new Error('Invalid input')",
-    rescriptExample: "if !valid { Error(InvalidInput) } else { Ok(data) }",
-    narrative: {
-      celebrate: "Throwing errors signals problems clearly!",
-      minimize: "But throws are invisible in the type signature.",
-      better: "Returning Result makes errors part of the function's contract.",
-      safety: "Callers must handle the error — it's in the return type.",
-    },
-    glyphs: ["Shield", "Target"],
-    tags: ["throw", "error", "result"],
-    relatedPatterns: ["try-catch-result"],
-    learningObjectives: ["Replace throw with Result return types"],
-  },
-  // --- ArrayOperations (3) ---
-  {
-    id: "array-map-pipe",
-    name: "Array.map to Pipe",
-    category: ArrayOperations,
-    difficulty: Beginner,
-    jsPattern: "\\.map\\s*\\(",
-    confidence: 0.70,
-    jsExample: "users.map(u => u.name).filter(n => n.length > 0)",
-    rescriptExample: "users->Array.map(u => u.name)->Array.filter(n => String.length(n) > 0)",
-    narrative: {
-      celebrate: "Chaining map and filter is idiomatic functional style!",
-      minimize: "Just note: JS array methods can return unexpected types.",
-      better: "ReScript's pipe operator makes the data flow crystal clear.",
-      safety: "Every step is type-checked — no accidental type coercion.",
-    },
-    glyphs: ["Transform", "Flow"],
-    tags: ["array", "map", "pipe"],
-    relatedPatterns: ["array-reduce-fold", "array-find-option"],
-    learningObjectives: ["Use pipe operator with Array functions"],
-  },
-  {
-    id: "array-reduce-fold",
-    name: "Array.reduce to Array.reduce",
-    category: ArrayOperations,
-    difficulty: Intermediate,
-    jsPattern: "\\.reduce\\s*\\(",
-    confidence: 0.70,
-    jsExample: "nums.reduce((sum, n) => sum + n, 0)",
-    rescriptExample: "nums->Array.reduce(0, (sum, n) => sum + n)",
-    narrative: {
-      celebrate: "Reduce is the Swiss army knife of array operations!",
-      minimize: "The accumulator type is often implicitly 'any'.",
-      better: "ReScript's reduce has explicit initial value and typed accumulator.",
-      safety: "The accumulator type is inferred and checked at every step.",
-    },
-    glyphs: ["Transform", "Sparkle"],
-    tags: ["array", "reduce", "fold"],
-    relatedPatterns: ["array-map-pipe"],
-    learningObjectives: ["Use Array.reduce with explicit types"],
-  },
-  {
-    id: "array-find-option",
-    name: "Array.find to Option",
-    category: ArrayOperations,
-    difficulty: Beginner,
-    jsPattern: "\\.find\\s*\\(",
-    confidence: 0.75,
-    jsExample: "const admin = users.find(u => u.role === 'admin')",
-    rescriptExample: "let admin = users->Array.find(u => u.role === Admin)",
-    narrative: {
-      celebrate: "Using find is cleaner than manual loops!",
-      minimize: "But find returns undefined when nothing matches.",
-      better: "ReScript's Array.find returns Option — you must handle the None case.",
-      safety: "No more 'cannot read property of undefined' from unfound elements.",
-    },
-    glyphs: ["Search", "Shield"],
-    tags: ["array", "find", "option"],
-    relatedPatterns: ["array-map-pipe"],
-    learningObjectives: ["Understand Array.find returns Option<t>"],
-  },
-  // --- Conditionals (3) ---
-  {
-    id: "ternary-switch",
-    name: "Ternary to Switch",
-    category: Conditionals,
-    difficulty: Beginner,
-    jsPattern: "\\?[^?].*:",
-    confidence: 0.60,
-    jsExample: "const label = status === 'active' ? 'Active' : status === 'inactive' ? 'Inactive' : 'Unknown'",
-    rescriptExample: "let label = switch status { | Active => \"Active\" | Inactive => \"Inactive\" | Unknown => \"Unknown\" }",
-    narrative: {
-      celebrate: "Ternaries are concise for simple conditions!",
-      minimize: "Nested ternaries become hard to read quickly.",
-      better: "Switch expressions are flat and exhaustive.",
-      safety: "Add a new status? The compiler tells you every switch that needs updating.",
-    },
-    glyphs: ["Branch", "Sparkle"],
-    tags: ["ternary", "switch", "conditional"],
-    relatedPatterns: ["if-else-switch"],
-    learningObjectives: ["Replace nested ternaries with switch expressions"],
-  },
-  {
-    id: "if-else-switch",
-    name: "If/Else Chain to Switch",
-    category: Conditionals,
-    difficulty: Beginner,
-    jsPattern: "if\\s*\\(.*\\)\\s*\\{[^}]*\\}\\s*else\\s*if",
-    confidence: 0.75,
-    jsExample: "if (type === 'a') { ... } else if (type === 'b') { ... } else { ... }",
-    rescriptExample: "switch type { | A => ... | B => ... }",
-    narrative: {
-      celebrate: "If/else chains handle multiple cases!",
-      minimize: "But there's no guarantee you covered every case.",
-      better: "Switch with variants is exhaustive — miss a case and the compiler tells you.",
-      safety: "Exhaustive pattern matching eliminates 'else' as a catch-all.",
-    },
-    glyphs: ["Branch", "Target"],
-    tags: ["if", "else", "switch", "exhaustive"],
-    relatedPatterns: ["ternary-switch"],
-    learningObjectives: ["Use exhaustive switch expressions"],
-  },
-  {
-    id: "typeof-variant",
-    name: "Typeof Check to Variant",
-    category: Conditionals,
-    difficulty: Intermediate,
-    jsPattern: "typeof\\s+\\w+\\s*===",
-    confidence: 0.70,
-    jsExample: "if (typeof value === 'string') { ... } else if (typeof value === 'number') { ... }",
-    rescriptExample: "switch value { | String(s) => ... | Number(n) => ... }",
-    narrative: {
-      celebrate: "Runtime type checks show defensive coding!",
-      minimize: "But typeof only catches a few types and misses objects.",
-      better: "Variant types carry their tag at compile time — no runtime checks needed.",
-      safety: "The type is known before runtime — no typeof surprises.",
-    },
-    glyphs: ["Target", "Branch"],
-    tags: ["typeof", "variant", "type-check"],
-    relatedPatterns: ["if-else-switch"],
-    learningObjectives: ["Replace typeof checks with variant types"],
-  },
-  // --- Destructuring (2) ---
-  {
-    id: "object-destructure-record",
-    name: "Object Destructuring to Record",
-    category: Destructuring,
-    difficulty: Beginner,
-    jsPattern: "const\\s*\\{[^}]+\\}\\s*=",
-    confidence: 0.80,
-    jsExample: "const { name, age, email } = user",
-    rescriptExample: "let { name, age, email } = user",
-    narrative: {
-      celebrate: "Destructuring is clean and readable!",
-      minimize: "But accessing a non-existent field silently gives undefined.",
-      better: "ReScript records have fixed fields — destructuring only works on known fields.",
-      safety: "Misspell a field name and the compiler catches it immediately.",
-    },
-    glyphs: ["Notebook", "Sparkle"],
-    tags: ["destructuring", "record", "object"],
-    relatedPatterns: ["spread-record-update"],
-    learningObjectives: ["Use record destructuring with type safety"],
-  },
-  {
-    id: "spread-record-update",
-    name: "Spread to Record Update",
-    category: Destructuring,
-    difficulty: Intermediate,
-    jsPattern: "\\.\\.\\.\\w+",
-    confidence: 0.65,
-    jsExample: "const updated = { ...user, name: 'New Name' }",
-    rescriptExample: "let updated = { ...user, name: \"New Name\" }",
-    narrative: {
-      celebrate: "Spread for immutable updates is great practice!",
-      minimize: "But you can accidentally spread in extra or wrong fields.",
-      better: "ReScript's record update syntax only allows declared fields.",
-      safety: "The spread expression must match the record type exactly.",
-    },
-    glyphs: ["Notebook", "Lock"],
-    tags: ["spread", "record", "update", "immutable"],
-    relatedPatterns: ["object-destructure-record"],
-    learningObjectives: ["Use immutable record updates with spread"],
-  },
-  // --- Defaults (2) ---
-  {
-    id: "default-params",
-    name: "Default Parameters to Option",
-    category: Defaults,
-    difficulty: Beginner,
-    jsPattern: "function\\s+\\w+\\s*\\([^)]*=",
-    confidence: 0.75,
-    jsExample: "function greet(name = 'World') { return `Hello ${name}!` }",
-    rescriptExample: "let greet = (~name=\"World\") => `Hello ${name}!`",
-    narrative: {
-      celebrate: "Default parameters reduce boilerplate!",
-      minimize: "But defaults are invisible at the call site.",
-      better: "ReScript's labeled arguments with defaults are self-documenting.",
-      safety: "The type of the default must match the parameter type.",
-    },
-    glyphs: ["Sparkle", "Wrench"],
-    tags: ["default", "parameter", "labeled"],
-    relatedPatterns: ["nullish-coalesce-default"],
-    learningObjectives: ["Use labeled arguments with defaults"],
-  },
-  {
-    id: "or-default",
-    name: "|| Default to Option.getOr",
-    category: Defaults,
-    difficulty: Beginner,
-    jsPattern: "\\|\\|\\s*['\"`\\d]",
-    confidence: 0.70,
-    jsExample: "const name = input || 'default'",
-    rescriptExample: "let name = input->Option.getOr(\"default\")",
-    narrative: {
-      celebrate: "Using || for defaults is a common pattern!",
-      minimize: "But || treats 0, '', and false as falsy too.",
-      better: "Option.getOr only triggers on None — not on empty strings or zero.",
-      safety: "The fallback type must match the Option's inner type.",
-    },
-    glyphs: ["Shield", "Wrench"],
-    tags: ["or", "default", "falsy", "option"],
-    relatedPatterns: ["nullish-coalesce-default"],
-    learningObjectives: ["Distinguish between falsy and None"],
-  },
-  // --- Functional (3) ---
-  {
-    id: "callback-fn",
-    name: "Callback to First-Class Function",
-    category: Functional,
-    difficulty: Beginner,
-    jsPattern: "function\\s*\\(\\w+\\s*,\\s*callback\\)",
-    confidence: 0.65,
-    jsExample: "function processData(data, callback) { callback(transform(data)) }",
-    rescriptExample: "let processData = (data, callback) => callback(transform(data))",
-    narrative: {
-      celebrate: "Using callbacks shows functional thinking!",
-      minimize: "But callback types are often 'any' in JS.",
-      better: "ReScript functions are fully typed — the callback's signature is explicit.",
-      safety: "The callback's parameter and return types are checked at the call site.",
-    },
-    glyphs: ["Transform", "Target"],
-    tags: ["callback", "function", "higher-order"],
-    relatedPatterns: ["compose-pipe"],
-    learningObjectives: ["Understand typed higher-order functions"],
-  },
-  {
-    id: "compose-pipe",
-    name: "Function Composition to Pipe",
-    category: Functional,
-    difficulty: Intermediate,
-    jsPattern: "compose\\(|pipe\\(",
-    confidence: 0.70,
-    jsExample: "const result = compose(toUpper, trim, validate)(input)",
-    rescriptExample: "let result = input->validate->String.trim->String.toUpperCase",
-    narrative: {
-      celebrate: "Function composition is elegant!",
-      minimize: "But compose/pipe utilities add runtime overhead and type complexity.",
-      better: "ReScript's -> operator is zero-cost function composition.",
-      safety: "Each step's output type must match the next step's input type.",
-    },
-    glyphs: ["Flow", "Lightning"],
-    tags: ["compose", "pipe", "function"],
-    relatedPatterns: ["callback-fn"],
-    learningObjectives: ["Use pipe operator for zero-cost composition"],
-  },
-  {
-    id: "iife-block",
-    name: "IIFE to Block Expression",
-    category: Functional,
-    difficulty: Intermediate,
-    jsPattern: "\\(\\s*\\(\\s*\\)\\s*=>\\s*\\{",
-    confidence: 0.70,
-    jsExample: "const result = (() => { const x = compute(); return x * 2; })()",
-    rescriptExample: "let result = { let x = compute(); x * 2 }",
-    narrative: {
-      celebrate: "IIFEs create scoped expressions!",
-      minimize: "But the syntax is verbose and easy to get wrong.",
-      better: "ReScript blocks are expressions — no IIFE needed.",
-      safety: "The block's return type is inferred from the last expression.",
-    },
-    glyphs: ["Compress", "Sparkle"],
-    tags: ["iife", "block", "expression"],
-    relatedPatterns: ["compose-pipe"],
-    learningObjectives: ["Use block expressions instead of IIFEs"],
-  },
-  // --- Templates (2) ---
-  {
-    id: "template-literal",
-    name: "Template Literal to String Interpolation",
-    category: Templates,
-    difficulty: Beginner,
-    jsPattern: "`[^`]*\\$\\{",
-    confidence: 0.85,
-    jsExample: "const msg = `Hello ${name}, you have ${count} items`",
-    rescriptExample: "let msg = `Hello ${name}, you have ${Int.toString(count)} items`",
-    narrative: {
-      celebrate: "Template literals are readable and powerful!",
-      minimize: "JS implicitly converts anything to string inside ${}.",
-      better: "ReScript requires explicit toString — no surprise coercions.",
-      safety: "Only strings can be interpolated — Int.toString makes intent clear.",
-    },
-    glyphs: ["Sparkle", "Target"],
-    tags: ["template", "string", "interpolation"],
-    relatedPatterns: [],
-    learningObjectives: ["Use explicit type conversion in string interpolation"],
-  },
-  {
-    id: "string-concat-interp",
-    name: "String Concatenation to Interpolation",
-    category: Templates,
-    difficulty: Beginner,
-    jsPattern: "\\+\\s*['\"]|['\"]\\s*\\+",
-    confidence: 0.60,
-    jsExample: "const url = baseUrl + '/api/' + version + '/users'",
-    rescriptExample: "let url = `${baseUrl}/api/${version}/users`",
-    narrative: {
-      celebrate: "Building strings dynamically is useful!",
-      minimize: "Concatenation with + can accidentally coerce non-strings.",
-      better: "String interpolation is cleaner and type-safe.",
-      safety: "Each interpolated value must be a string type.",
-    },
-    glyphs: ["Sparkle", "Flow"],
-    tags: ["string", "concatenation", "interpolation"],
-    relatedPatterns: ["template-literal"],
-    learningObjectives: ["Prefer interpolation over concatenation"],
-  },
-  // --- ArrowFunctions (2) ---
-  {
-    id: "arrow-fn-let",
-    name: "Arrow Function to Let Binding",
-    category: ArrowFunctions,
-    difficulty: Beginner,
-    jsPattern: "const\\s+\\w+\\s*=\\s*\\([^)]*\\)\\s*=>",
-    confidence: 0.85,
-    jsExample: "const add = (a, b) => a + b",
-    rescriptExample: "let add = (a, b) => a + b",
-    narrative: {
-      celebrate: "Arrow functions are clean and concise!",
-      minimize: "But parameter types are implicit in JS.",
-      better: "ReScript infers types from usage — add works for int or float, not both.",
-      safety: "The type system prevents accidentally adding a string to a number.",
-    },
-    glyphs: ["Lightning", "Sparkle"],
-    tags: ["arrow", "function", "let"],
-    relatedPatterns: ["callback-fn"],
-    learningObjectives: ["Understand let bindings with type inference"],
-  },
-  {
-    id: "arrow-implicit-return",
-    name: "Implicit Return",
-    category: ArrowFunctions,
-    difficulty: Beginner,
-    jsPattern: "=>\\s*[^{]",
-    confidence: 0.55,
-    jsExample: "const double = x => x * 2",
-    rescriptExample: "let double = x => x * 2",
-    narrative: {
-      celebrate: "Implicit return is beautifully concise!",
-      minimize: "In JS, forgetting braces changes the return value.",
-      better: "In ReScript, every expression returns — no braces confusion.",
-      safety: "The return type is always inferred and checked.",
-    },
-    glyphs: ["Lightning", "Compress"],
-    tags: ["arrow", "return", "expression"],
-    relatedPatterns: ["arrow-fn-let"],
-    learningObjectives: ["Understand expression-based return values"],
-  },
-  // --- Variants (3) ---
-  {
-    id: "string-enum-variant",
-    name: "String Enum to Variant",
-    category: Variants,
-    difficulty: Beginner,
-    jsPattern: "type\\s+\\w+\\s*=\\s*['\"]\\w+['\"]\\s*\\|",
-    confidence: 0.80,
-    jsExample: "type Status = 'active' | 'inactive' | 'pending'",
-    rescriptExample: "type status = Active | Inactive | Pending",
-    narrative: {
-      celebrate: "String union types model states well!",
-      minimize: "But string comparisons can have typos at runtime.",
-      better: "Variants are constructors — misspelling one is a compile error.",
-      safety: "Pattern matching on variants is exhaustive — every case handled.",
-    },
-    glyphs: ["Masks", "Target"],
-    tags: ["enum", "variant", "union"],
-    relatedPatterns: ["tagged-union-variant"],
-    learningObjectives: ["Model states with variant types"],
-  },
-  {
-    id: "tagged-union-variant",
-    name: "Tagged Union to Variant",
-    category: Variants,
-    difficulty: Intermediate,
-    jsPattern: "type.*=.*\\{\\s*kind:\\s*['\"]",
-    confidence: 0.75,
-    jsExample: "type Shape = { kind: 'circle', radius: number } | { kind: 'rect', w: number, h: number }",
-    rescriptExample: "type shape = Circle({ radius: float }) | Rect({ w: float, h: float })",
-    narrative: {
-      celebrate: "Tagged unions are a powerful JS pattern!",
-      minimize: "But the tag field is a stringly-typed convention.",
-      better: "ReScript variants with payloads are first-class tagged unions.",
-      safety: "Each constructor's payload is typed — no accessing .radius on a Rect.",
-    },
-    glyphs: ["Masks", "Branch"],
-    tags: ["tagged", "union", "variant", "payload"],
-    relatedPatterns: ["string-enum-variant"],
-    learningObjectives: ["Use variant constructors with typed payloads"],
-  },
-  {
-    id: "discriminated-switch",
-    name: "Discriminated Switch to Pattern Match",
-    category: Variants,
-    difficulty: Intermediate,
-    jsPattern: "switch\\s*\\(\\w+\\.kind\\)",
-    confidence: 0.80,
-    jsExample: "switch (shape.kind) { case 'circle': ... case 'rect': ... }",
-    rescriptExample: "switch shape { | Circle({radius}) => ... | Rect({w, h}) => ... }",
-    narrative: {
-      celebrate: "Switching on discriminant fields is idiomatic!",
-      minimize: "But JS switch has fall-through and no exhaustiveness check.",
-      better: "ReScript switch is an expression, has no fall-through, and is exhaustive.",
-      safety: "Payload fields are destructured and typed in each branch.",
-    },
-    glyphs: ["Branch", "Sparkle"],
-    tags: ["switch", "discriminated", "pattern-match"],
-    relatedPatterns: ["tagged-union-variant"],
-    learningObjectives: ["Destructure variant payloads in switch"],
-  },
-  // --- Modules (2) ---
-  {
-    id: "namespace-module",
-    name: "Namespace to Module",
-    category: Modules,
-    difficulty: Intermediate,
-    jsPattern: "export\\s+(const|function|class)\\s+",
-    confidence: 0.55,
-    jsExample: "export function validateEmail(email) { ... }",
-    rescriptExample: "// In Validation.res\nlet validateEmail = (email: string): result<string, validationError> => ...",
-    narrative: {
-      celebrate: "Named exports organise code well!",
-      minimize: "But JS modules need explicit import/export ceremony.",
-      better: "ReScript files are modules automatically — no export keyword needed.",
-      safety: "Every function's type is inferred from its implementation.",
-    },
-    glyphs: ["Package", "Compress"],
-    tags: ["module", "export", "namespace"],
-    relatedPatterns: [],
-    learningObjectives: ["Understand file-as-module convention"],
-  },
-  {
-    id: "barrel-module",
-    name: "Barrel Export to Module Open",
-    category: Modules,
-    difficulty: Advanced,
-    jsPattern: "export\\s*\\{[^}]+\\}\\s*from",
-    confidence: 0.60,
-    jsExample: "export { validateEmail, validatePhone } from './validation'",
-    rescriptExample: "// In Utils.res\ninclude Validation // Re-exports all of Validation",
-    narrative: {
-      celebrate: "Barrel files simplify imports!",
-      minimize: "But barrel files can cause tree-shaking issues.",
-      better: "ReScript's include re-exports a module cleanly — dead code is eliminated.",
-      safety: "Include brings all types and values into scope — no partial re-exports.",
-    },
-    glyphs: ["Package", "Flow"],
-    tags: ["barrel", "export", "include"],
-    relatedPatterns: ["namespace-module"],
-    learningObjectives: ["Use include for module re-exports"],
-  },
-  // --- TypeSafety (2) ---
-  {
-    id: "any-generic",
-    name: "Any Type to Generic",
-    category: TypeSafety,
-    difficulty: Intermediate,
-    jsPattern: ":\\s*any",
-    confidence: 0.90,
-    jsExample: "function identity(x: any): any { return x }",
-    rescriptExample: "let identity = (x: 'a): 'a => x",
-    narrative: {
-      celebrate: "At least you're using type annotations!",
-      minimize: "But 'any' defeats the purpose of types entirely.",
-      better: "ReScript generics ('a) preserve type information through the function.",
-      safety: "identity(42) returns int, identity(\"hi\") returns string — no cast needed.",
-    },
-    glyphs: ["Target", "Sparkle"],
-    tags: ["any", "generic", "type-parameter"],
-    relatedPatterns: [],
-    learningObjectives: ["Replace 'any' with type parameters"],
-  },
-  {
-    id: "type-assertion-pattern",
-    name: "Type Assertion to Pattern Match",
-    category: TypeSafety,
-    difficulty: Advanced,
-    jsPattern: "as\\s+\\w+",
-    confidence: 0.65,
-    jsExample: "const el = document.getElementById('app') as HTMLDivElement",
-    rescriptExample: "switch document->Document.getElementById(\"app\") { | Some(el) => ... | None => ... }",
-    narrative: {
-      celebrate: "Type assertions show you know the expected type!",
-      minimize: "But 'as' lies to the compiler — it trusts you blindly.",
-      better: "ReScript's nullable DOM APIs return Option — you handle both cases.",
-      safety: "No type assertion can crash at runtime — every path is checked.",
-    },
-    glyphs: ["Shield", "Branch"],
-    tags: ["assertion", "cast", "option"],
-    relatedPatterns: ["null-check-option"],
-    learningObjectives: ["Replace type assertions with Option handling"],
-  },
-  // --- Immutability (2) ---
-  {
-    id: "let-const-let",
-    name: "Const/Let to Let",
-    category: Immutability,
-    difficulty: Beginner,
-    jsPattern: "(const|let)\\s+\\w+\\s*=",
-    confidence: 0.50,
-    jsExample: "let count = 0; count = count + 1;",
-    rescriptExample: "let count = ref(0); count := count.contents + 1",
-    narrative: {
-      celebrate: "Using let for mutable state is honest!",
-      minimize: "But JS let allows mutation by default — bugs hide easily.",
-      better: "ReScript's let is immutable. Mutation requires an explicit ref().",
-      safety: "Immutable by default means fewer accidental state changes.",
-    },
-    glyphs: ["Lock", "Sparkle"],
-    tags: ["const", "let", "immutable", "ref"],
-    relatedPatterns: ["spread-record-update"],
-    learningObjectives: ["Understand immutable-by-default bindings"],
-  },
-  {
-    id: "object-freeze-record",
-    name: "Object.freeze to Record",
-    category: Immutability,
-    difficulty: Intermediate,
-    jsPattern: "Object\\.freeze\\(",
-    confidence: 0.85,
-    jsExample: "const config = Object.freeze({ port: 3000, host: 'localhost' })",
-    rescriptExample: "let config = { port: 3000, host: \"localhost\" } // Already immutable!",
-    narrative: {
-      celebrate: "Freezing objects prevents accidental mutation!",
-      minimize: "But freeze is shallow — nested objects are still mutable.",
-      better: "ReScript records are deeply immutable by default — no freeze needed.",
-      safety: "Attempting to mutate a record field is a compile error.",
-    },
-    glyphs: ["Lock", "Compress"],
-    tags: ["freeze", "immutable", "record"],
-    relatedPatterns: ["let-const-let"],
-    learningObjectives: ["Understand records are immutable by default"],
-  },
-  // --- PatternMatching (3) ---
-  {
-    id: "switch-match",
-    name: "Switch Statement to Pattern Match",
-    category: PatternMatching,
-    difficulty: Beginner,
-    jsPattern: "switch\\s*\\(",
-    confidence: 0.65,
-    jsExample: "switch (action.type) { case 'INCREMENT': ... case 'DECREMENT': ... }",
-    rescriptExample: "switch action { | Increment => ... | Decrement => ... }",
-    narrative: {
-      celebrate: "Switch statements handle multiple cases!",
-      minimize: "But JS switch has fall-through and no exhaustiveness.",
-      better: "ReScript switch is exhaustive, has no fall-through, and is an expression.",
-      safety: "Add a new action type and the compiler flags every unhandled switch.",
-    },
-    glyphs: ["Branch", "Target"],
-    tags: ["switch", "pattern-match", "exhaustive"],
-    relatedPatterns: ["nested-match"],
-    learningObjectives: ["Use exhaustive pattern matching"],
-  },
-  {
-    id: "nested-match",
-    name: "Nested If to Nested Match",
-    category: PatternMatching,
-    difficulty: Intermediate,
-    jsPattern: "if\\s*\\(.*\\)\\s*\\{[^}]*if\\s*\\(",
-    confidence: 0.60,
-    jsExample: "if (user) { if (user.role === 'admin') { if (user.active) { ... } } }",
-    rescriptExample: "switch (user, user.role, user.active) { | (Some(u), Admin, true) => ... | _ => ... }",
-    narrative: {
-      celebrate: "Nested checks are thorough!",
-      minimize: "But deeply nested ifs are hard to follow.",
-      better: "Tuple pattern matching flattens nested conditions into one switch.",
-      safety: "All combinations are checked — no forgotten edge cases.",
-    },
-    glyphs: ["Branch", "Compress"],
-    tags: ["nested", "pattern-match", "tuple"],
-    relatedPatterns: ["switch-match"],
-    learningObjectives: ["Flatten nested conditions with tuple matching"],
-  },
-  {
-    id: "guard-when",
-    name: "If Guard to When Clause",
-    category: PatternMatching,
-    difficulty: Advanced,
-    jsPattern: "case\\s+.*:\\s*if\\s*\\(",
-    confidence: 0.60,
-    jsExample: "switch (x) { case n: if (n > 0) return 'positive' }",
-    rescriptExample: "switch x { | n if n > 0 => \"positive\" | _ => \"non-positive\" }",
-    narrative: {
-      celebrate: "Guard clauses add precision to cases!",
-      minimize: "But JS case with if is awkward and error-prone.",
-      better: "ReScript's 'if' guard is part of the pattern — clean and readable.",
-      safety: "Guards compose with exhaustiveness — the wildcard ensures coverage.",
-    },
-    glyphs: ["Branch", "Target"],
-    tags: ["guard", "when", "pattern-match"],
-    relatedPatterns: ["switch-match"],
-    learningObjectives: ["Use guard clauses in pattern matching"],
-  },
-  // --- PipeOperator (2) ---
-  {
-    id: "method-chain-pipe",
-    name: "Method Chain to Pipe",
-    category: PipeOperator,
-    difficulty: Beginner,
-    jsPattern: "\\)\\s*\\.\\w+\\(",
-    confidence: 0.55,
-    jsExample: "data.filter(x => x > 0).map(x => x * 2).reduce((a, b) => a + b, 0)",
-    rescriptExample: "data->Array.filter(x => x > 0)->Array.map(x => x * 2)->Array.reduce(0, (a, b) => a + b)",
-    narrative: {
-      celebrate: "Method chaining reads left to right!",
-      minimize: "But methods are bound to the prototype — you can't chain arbitrary functions.",
-      better: "The pipe operator works with any function — not just methods.",
-      safety: "Each step's type flows into the next — no implicit this binding.",
-    },
-    glyphs: ["Flow", "Lightning"],
-    tags: ["pipe", "chain", "method"],
-    relatedPatterns: ["compose-pipe"],
-    learningObjectives: ["Use pipe operator for data transformation chains"],
-  },
-  {
-    id: "lodash-pipe",
-    name: "Lodash/Ramda to Pipe",
-    category: PipeOperator,
-    difficulty: Intermediate,
-    jsPattern: "_\\.chain\\(|R\\.pipe\\(",
-    confidence: 0.75,
-    jsExample: "_.chain(data).filter(isActive).sortBy('name').value()",
-    rescriptExample: "data->Array.filter(isActive)->Array.toSorted((a, b) => compare(a.name, b.name))",
-    narrative: {
-      celebrate: "Lodash chains are powerful data pipelines!",
-      minimize: "But they add a runtime dependency and lose type information.",
-      better: "ReScript's pipe operator does the same thing with zero runtime cost.",
-      safety: "Every step is type-checked — no 'string' accidentally becoming 'number'.",
-    },
-    glyphs: ["Flow", "Compress"],
-    tags: ["lodash", "ramda", "pipe", "chain"],
-    relatedPatterns: ["method-chain-pipe"],
-    learningObjectives: ["Replace utility libraries with built-in pipe"],
-  },
-  // --- OopToFp (2) ---
-  {
-    id: "class-module",
-    name: "Class to Module",
-    category: OopToFp,
-    difficulty: Intermediate,
-    jsPattern: "class\\s+\\w+\\s*\\{",
-    confidence: 0.70,
-    jsExample: "class UserService { constructor(db) { this.db = db } getUser(id) { ... } }",
-    rescriptExample: "// UserService.res\nlet getUser = (db, id) => ...",
-    narrative: {
-      celebrate: "Classes encapsulate related logic!",
-      minimize: "But classes mix data and behaviour, making testing harder.",
-      better: "ReScript modules group functions — data flows in as arguments.",
-      safety: "No 'this' binding confusion — every dependency is explicit.",
-    },
-    glyphs: ["Package", "Wrench"],
-    tags: ["class", "module", "oop", "fp"],
-    relatedPatterns: ["inheritance-composition"],
-    learningObjectives: ["Replace classes with modules and functions"],
-  },
-  {
-    id: "inheritance-composition",
-    name: "Inheritance to Composition",
-    category: InheritanceToComposition,
-    difficulty: Advanced,
-    jsPattern: "extends\\s+\\w+",
-    confidence: 0.70,
-    jsExample: "class AdminUser extends User { ... }",
-    rescriptExample: "type user = { name: string, role: role }\ntype role = Regular | Admin({ permissions: array<permission> })",
-    narrative: {
-      celebrate: "Inheritance models 'is-a' relationships!",
-      minimize: "But deep hierarchies become brittle and hard to change.",
-      better: "Composition with variants models the differences explicitly.",
-      safety: "No virtual dispatch surprises — the variant tag is checked at compile time.",
-    },
-    glyphs: ["Tree", "Masks"],
-    tags: ["inheritance", "composition", "variant"],
-    relatedPatterns: ["class-module"],
-    learningObjectives: ["Model hierarchies with composition"],
-  },
-  // --- ClassesToRecords (2) ---
-  {
-    id: "class-record",
-    name: "Class Instance to Record",
-    category: ClassesToRecords,
-    difficulty: Beginner,
-    jsPattern: "new\\s+\\w+\\(",
-    confidence: 0.65,
-    jsExample: "const user = new User('Alice', 30)",
-    rescriptExample: "let user = { name: \"Alice\", age: 30 }",
-    narrative: {
-      celebrate: "Constructor calls create structured data!",
-      minimize: "But constructors hide field names — position matters.",
-      better: "Record literals name every field — self-documenting and order-independent.",
-      safety: "Missing a required field is a compile error.",
-    },
-    glyphs: ["Notebook", "Sparkle"],
-    tags: ["class", "record", "constructor"],
-    relatedPatterns: ["class-module"],
-    learningObjectives: ["Replace class instances with record literals"],
-  },
-  {
-    id: "getter-field",
-    name: "Getter/Setter to Record Field",
-    category: ClassesToRecords,
-    difficulty: Intermediate,
-    jsPattern: "get\\s+\\w+\\(\\)|set\\s+\\w+\\(",
-    confidence: 0.70,
-    jsExample: "class User { get fullName() { return `${this.first} ${this.last}` } }",
-    rescriptExample: "let fullName = (user) => `${user.first} ${user.last}`",
-    narrative: {
-      celebrate: "Getters provide computed properties!",
-      minimize: "But they look like field access while hiding computation.",
-      better: "An explicit function makes the computation visible.",
-      safety: "No hidden side effects — it's just a function call.",
-    },
-    glyphs: ["Notebook", "Compress"],
-    tags: ["getter", "setter", "field", "function"],
-    relatedPatterns: ["class-record"],
-    learningObjectives: ["Replace getters with explicit functions"],
-  },
-  // --- StateMachines (2) ---
-  {
-    id: "state-string-variant",
-    name: "State String to Variant",
-    category: StateMachines,
-    difficulty: Intermediate,
-    jsPattern: "state\\s*===\\s*['\"]\\w+['\"]",
-    confidence: 0.75,
-    jsExample: "if (state === 'loading') { ... } else if (state === 'error') { ... }",
-    rescriptExample: "switch state { | Loading => ... | Error(msg) => ... | Ready(data) => ... }",
-    narrative: {
-      celebrate: "Tracking state explicitly is good design!",
-      minimize: "But string states can be misspelled and don't carry data.",
-      better: "Variant states carry associated data and are exhaustively checked.",
-      safety: "Error(msg) guarantees the message exists — no checking state AND error separately.",
-    },
-    glyphs: ["Masks", "Branch"],
-    tags: ["state", "machine", "variant"],
-    relatedPatterns: ["string-enum-variant"],
-    learningObjectives: ["Model state machines with variants"],
-  },
-  {
-    id: "reducer-switch",
-    name: "Reducer to Variant Actions",
-    category: StateMachines,
-    difficulty: Advanced,
-    jsPattern: "case\\s+['\"]\\w+['\"]:\\s*return",
-    confidence: 0.70,
-    jsExample: "case 'SET_USER': return { ...state, user: action.payload }",
-    rescriptExample: "| SetUser(user) => { ...state, user: Some(user) }",
-    narrative: {
-      celebrate: "Reducers with action types are a proven pattern!",
-      minimize: "But string action types need constants and the payload is untyped.",
-      better: "Variant actions carry typed payloads — SetUser(user) is self-describing.",
-      safety: "Add a new action variant and the compiler finds every unhandled case.",
-    },
-    glyphs: ["Branch", "Lock"],
-    tags: ["reducer", "action", "state-machine"],
-    relatedPatterns: ["state-string-variant"],
-    learningObjectives: ["Use variant actions in reducers"],
-  },
-  // --- DataModeling (2) ---
-  {
-    id: "interface-type",
-    name: "Interface to Type",
-    category: DataModeling,
-    difficulty: Beginner,
-    jsPattern: "interface\\s+\\w+\\s*\\{",
-    confidence: 0.80,
-    jsExample: "interface User { name: string; age: number; email?: string }",
-    rescriptExample: "type user = { name: string, age: int, email: option<string> }",
-    narrative: {
-      celebrate: "Interfaces define clear data contracts!",
-      minimize: "But optional fields (?) become undefined at runtime.",
-      better: "ReScript's option<string> makes optionality explicit and safe.",
-      safety: "Accessing email requires handling the None case.",
-    },
-    glyphs: ["Notebook", "Target"],
-    tags: ["interface", "type", "record"],
-    relatedPatterns: ["tagged-union-variant"],
-    learningObjectives: ["Define data types with explicit optionality"],
-  },
-  {
-    id: "enum-poly-variant",
-    name: "Enum to Polymorphic Variant",
-    category: DataModeling,
-    difficulty: Advanced,
-    jsPattern: "enum\\s+\\w+\\s*\\{",
-    confidence: 0.75,
-    jsExample: "enum Color { Red = 'red', Green = 'green', Blue = 'blue' }",
-    rescriptExample: "type color = [#red | #green | #blue]",
-    narrative: {
-      celebrate: "Enums are great for fixed sets of values!",
-      minimize: "But TS enums compile to objects with runtime overhead.",
-      better: "Polymorphic variants are zero-cost — they compile to plain strings.",
-      safety: "Using an invalid colour is a compile error — no runtime check needed.",
-    },
-    glyphs: ["Masks", "Lightning"],
-    tags: ["enum", "polymorphic", "variant"],
-    relatedPatterns: ["string-enum-variant"],
-    learningObjectives: ["Use polymorphic variants for string enums"],
-  },
-]
-
-// ============================================================================
-// Scanner — regex-based pattern matching against JS input
-// ============================================================================
-
-/// Scan JS code against a single pattern, returning matches.
-let scanPattern = (code: string, pattern: evangeliserPattern): array<evangeliserMatch> => {
-  let re = RegExp.fromString(pattern.jsPattern)
-  let lines = code->String.split("\n")
-  let matches = []
-  lines->Array.forEachWithIndex((line, idx) => {
-    if re->RegExp.test(line) {
-      let _ = matches->Array.push({
-        patternId: pattern.id,
-        patternName: pattern.name,
-        category: pattern.category,
-        code: line->String.trim,
-        startLine: idx + 1,
-        endLine: idx + 1,
-        confidence: pattern.confidence,
-        jsExample: pattern.jsExample,
-        rescriptExample: pattern.rescriptExample,
-        narrative: pattern.narrative,
-        glyphs: pattern.glyphs,
-      })
-    }
-  })
-  matches
-}
-
-/// Scan JS code against all patterns, applying constraints.
-let scanCode = (
-  code: string,
-  patterns: array<evangeliserPattern>,
-  constraints: evangeliserConstraints,
-): evangeliserAnalysis => {
-  let startTime = Date.now()
-
-  // Filter patterns by constraints
-  let activePatterns = patterns->Array.filter(p => {
-    let catEnabled =
-      constraints.enabledCategories->Array.length === 0 ||
-        constraints.enabledCategories->Array.includes(p.category)
-    let confOk = p.confidence >= constraints.minConfidence
-    let diffOk = switch constraints.difficultyFilter {
-    | None => true
-    | Some(d) => p.difficulty === d
-    }
-    catEnabled && confOk && diffOk
-  })
-
-  // Run scanner
-  let allMatches = activePatterns->Array.flatMap(p => scanPattern(code, p))
-
-  // Cap results
-  let capped = if Array.length(allMatches) > constraints.maxResults {
-    allMatches->Array.slice(~start=0, ~end=constraints.maxResults)
-  } else {
-    allMatches
-  }
-
-  let elapsed = Date.now() -. startTime
-  let totalLines = code->String.split("\n")->Array.length
-  let matchedLines = capped->Array.map(m => m.startLine)->Array.length
-  let coverage = if totalLines > 0 {
-    Float.fromInt(matchedLines) /. Float.fromInt(totalLines) *. 100.0
-  } else {
-    0.0
-  }
-
-  // Determine overall difficulty
-  let difficulty = if (
-    capped->Array.some(m => {
-      builtinPatterns
-      ->Array.find(p => p.id === m.patternId)
-      ->Option.map(p => p.difficulty === Advanced)
-      ->Option.getOr(false)
-    })
-  ) {
-    Advanced
-  } else if (
-    capped->Array.some(m => {
-      builtinPatterns
-      ->Array.find(p => p.id === m.patternId)
-      ->Option.map(p => p.difficulty === Intermediate)
-      ->Option.getOr(false)
-    })
-  ) {
-    Intermediate
-  } else {
-    Beginner
-  }
-
-  {
-    matches: capped,
-    totalPatterns: Array.length(activePatterns),
-    coveragePercentage: coverage,
-    difficulty,
-    analysisTime: elapsed,
-  }
-}
-
-// ============================================================================
-// Filtering and Stats
-// ============================================================================
-
-/// Filter patterns by category.
-let filterByCategory = (
-  patterns: array<evangeliserPattern>,
-  cat: option<evangeliserCategory>,
-): array<evangeliserPattern> => {
-  switch cat {
-  | None => patterns
-  | Some(c) => patterns->Array.filter(p => p.category === c)
-  }
-}
-
-/// Filter patterns by text search (name or tags).
-let filterBySearch = (patterns: array<evangeliserPattern>, text: string): array<
-  evangeliserPattern,
-> => {
-  if String.length(text) === 0 {
-    patterns
-  } else {
-    let lower = text->String.toLowerCase
-    patterns->Array.filter(p => {
-      p.name->String.toLowerCase->String.includes(lower) ||
-        p.tags->Array.some(t => t->String.toLowerCase->String.includes(lower))
-    })
-  }
-}
-
-/// Count patterns per category.
-let categoryStats = (patterns: array<evangeliserPattern>): array<(evangeliserCategory, int)> => {
-  allCategories->Array.map(cat => {
-    let count = patterns->Array.filter(p => p.category === cat)->Array.length
-    (cat, count)
-  })
-}
-
-/// Count matches per category.
-let matchCategoryStats = (matches: array<evangeliserMatch>): array<(evangeliserCategory, int)> => {
-  allCategories->Array.filterMap(cat => {
-    let count = matches->Array.filter(m => m.category === cat)->Array.length
-    if count > 0 {
-      Some((cat, count))
-    } else {
-      None
-    }
-  })
-}
-
-// ============================================================================
-// Default State
-// ============================================================================
-
-let defaultConstraints: evangeliserConstraints = {
-  enabledCategories: [], // Empty = all enabled
-  minConfidence: 0.5,
-  difficultyFilter: None,
-  maxResults: 100,
-}
-
-let defaultState: evangeliserState = {
-  constraints: defaultConstraints,
-  jsInput: "",
-  scanning: false,
-  scanError: None,
-  analysis: None,
-  viewLayer: ViewRaw,
-  patterns: builtinPatterns,
-  glyphs: builtinGlyphs,
-  activeTab: TabScan,
-  filterText: "",
-  selectedMatchIndex: None,
-  legendExpanded: false,
-  error: None,
-}
diff --git a/src/core/EventChain.affine b/src/core/EventChain.affine
new file mode 100644
index 00000000..ea26d84d
--- /dev/null
+++ b/src/core/EventChain.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module EventChain;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/EventChain.res b/src/core/EventChain.res
deleted file mode 100644
index eb8a65c6..00000000
--- a/src/core/EventChain.res
+++ /dev/null
@@ -1,98 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Event-chain parsing helpers for PanLL.
-///
-/// Parses panic-attack PanLL export JSON into lightweight model state.
-
-open Model
-
-type payload = {
-  summary: option<eventChainSummary>,
-  timeline: option<eventChainTimeline>,
-  events: array<eventChainEvent>,
-}
-
-/// Tea_Json decoder for an event chain summary.
-let summaryDecoder: Tea_Json.decoder<eventChainSummary> = {
-  open Decoders
-  open Tea_Json
-  map5(
-    (program, weakPoints, criticalWeakPoints, totalCrashes, robustnessScore): eventChainSummary => {
-      program,
-      weakPoints,
-      criticalWeakPoints,
-      totalCrashes,
-      robustnessScore,
-    },
-    stringField("program"),
-    intField("weak_points"),
-    intField("critical_weak_points"),
-    intField("total_crashes"),
-    floatField("robustness_score"),
-  )
-}
-
-/// Tea_Json decoder for an event chain timeline.
-let timelineDecoder: Tea_Json.decoder<eventChainTimeline> = {
-  open Decoders
-  open Tea_Json
-  map2((durationMs, events): eventChainTimeline => {
-    durationMs,
-    events,
-  }, floatField("duration_ms"), intField("events"))
-}
-
-/// Tea_Json decoder for a single event chain event.
-let eventDecoder: Tea_Json.decoder<eventChainEvent> = {
-  open Decoders
-  open Tea_Json
-  map8((id, axis, startMs, durationMs, intensity, status, peakMemory, notes): eventChainEvent => {
-    id,
-    axis,
-    startMs,
-    durationMs,
-    intensity,
-    status,
-    peakMemory,
-    notes,
-  }, stringField(
-    "id",
-  ), fieldWithDefault(
-    "axis",
-    string,
-    "unknown",
-  ), optionalFieldDecoder(
-    "start_ms",
-    float,
-  ), floatField(
-    "duration_ms",
-  ), fieldWithDefault(
-    "intensity",
-    string,
-    "unknown",
-  ), fieldWithDefault(
-    "status",
-    string,
-    "unknown",
-  ), optionalFieldDecoder("peak_memory", float), optionalFieldDecoder("notes", string))
-}
-
-/// Tea_Json decoder for the full event-chain payload.
-let payloadDecoder: Tea_Json.decoder<payload> = {
-  open Decoders
-  open Tea_Json
-  map3((summary, timeline, events): payload => {
-    summary,
-    timeline,
-    events,
-  }, optionalFieldDecoder(
-    "summary",
-    summaryDecoder,
-  ), optionalFieldDecoder(
-    "timeline",
-    timelineDecoder,
-  ), fieldWithDefault("event_chain", lenientArray(eventDecoder), []))
-}
-
-/// Parse a panic-attack PanLL export JSON into a payload.
-let parse = (raw: string): result<payload, string> => Decoders.decode(payloadDecoder, raw)
diff --git a/src/core/ExploratoryWorkbenchEngine.affine b/src/core/ExploratoryWorkbenchEngine.affine
new file mode 100644
index 00000000..a938bb22
--- /dev/null
+++ b/src/core/ExploratoryWorkbenchEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ExploratoryWorkbenchEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/ExploratoryWorkbenchEngine.res b/src/core/ExploratoryWorkbenchEngine.res
deleted file mode 100644
index f56abccc..00000000
--- a/src/core/ExploratoryWorkbenchEngine.res
+++ /dev/null
@@ -1,105 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Exploratory Workbench Engine — pure computation and helpers for the
-/// Exploratory Workbench panel. Provides default state, anomaly counting,
-/// severity labelling, session analysis, and filtering.
-
-open ExploratoryWorkbenchModel
-
-/// Default state for the Exploratory Workbench panel.
-/// Starts on the Session tab with anomaly detection enabled.
-let defaultState: exploratoryWorkbenchState = {
-  activeTab: TabSession,
-  currentSession: None,
-  sessions: [],
-  anomalies: [],
-  recording: false,
-  anomalyDetectionEnabled: true,
-  error: None,
-}
-
-/// Human-readable label for each tab in the Exploratory Workbench panel.
-let tabLabel = (tab: exploratoryTab): string =>
-  switch tab {
-  | TabSession => "Session"
-  | TabAnomalies => "Anomalies"
-  | TabNotes => "Notes"
-  | TabHistory => "History"
-  }
-
-/// All tabs in display order.
-let allTabs: array<exploratoryTab> = [TabSession, TabAnomalies, TabNotes, TabHistory]
-
-/// Human-readable label for anomaly severity.
-let severityLabel = (s: anomalySeverity): string =>
-  switch s {
-  | AnomalyLow => "Low"
-  | AnomalyMedium => "Medium"
-  | AnomalyHigh => "High"
-  | AnomalyCritical => "Critical"
-  }
-
-/// CSS colour class for anomaly severity.
-let severityColor = (s: anomalySeverity): string =>
-  switch s {
-  | AnomalyLow => "text-blue-400"
-  | AnomalyMedium => "text-yellow-400"
-  | AnomalyHigh => "text-orange-400"
-  | AnomalyCritical => "text-red-400"
-  }
-
-/// CSS background colour class for anomaly severity badges.
-let severityBgColor = (s: anomalySeverity): string =>
-  switch s {
-  | AnomalyLow => "bg-blue-900/30"
-  | AnomalyMedium => "bg-yellow-900/30"
-  | AnomalyHigh => "bg-orange-900/30"
-  | AnomalyCritical => "bg-red-900/30"
-  }
-
-/// Count anomalies by severity.
-let anomalyCountBySeverity = (anomalies: array<anomalyFlag>, severity: anomalySeverity): int =>
-  anomalies->Array.filter(a => a.severity == severity)->Array.length
-
-/// Total anomalies across all past sessions.
-let totalAnomalies = (sessions: array<playSession>): int =>
-  sessions->Array.reduce(0, (acc, s) => acc + s.anomalies->Array.length)
-
-/// Count auto-detected anomalies vs manually flagged.
-let autoDetectedCount = (anomalies: array<anomalyFlag>): int =>
-  anomalies->Array.filter(a => a.autoDetected)->Array.length
-
-/// Count manually flagged anomalies.
-let manuallyFlaggedCount = (anomalies: array<anomalyFlag>): int =>
-  anomalies->Array.filter(a => !a.autoDetected)->Array.length
-
-/// Filter anomalies by category.
-let filterByCategory = (anomalies: array<anomalyFlag>, category: string): array<anomalyFlag> =>
-  if category == "" {
-    anomalies
-  } else {
-    anomalies->Array.filter(a => a.category == category)
-  }
-
-/// Get unique anomaly categories from a list of anomalies.
-let uniqueCategories = (anomalies: array<anomalyFlag>): array<string> => {
-  let cats = anomalies->Array.map(a => a.category)
-  cats->Array.reduce([], (acc, cat) =>
-    if acc->Array.some(c => c == cat) {
-      acc
-    } else {
-      Array.concat(acc, [cat])
-    }
-  )
-}
-
-/// Average anomaly rate per session (anomalies per hour of play).
-let anomalyRate = (sessions: array<playSession>): float => {
-  let totalHours = sessions->Array.reduce(0.0, (acc, s) => acc +. s.durationMinutes /. 60.0)
-  let totalAnom = totalAnomalies(sessions)
-  if totalHours <= 0.0 {
-    0.0
-  } else {
-    Float.fromInt(totalAnom) /. totalHours
-  }
-}
diff --git a/src/core/FarmEngine.affine b/src/core/FarmEngine.affine
new file mode 100644
index 00000000..8c9928be
--- /dev/null
+++ b/src/core/FarmEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FarmEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/FarmEngine.res b/src/core/FarmEngine.res
deleted file mode 100644
index 17aaa390..00000000
--- a/src/core/FarmEngine.res
+++ /dev/null
@@ -1,279 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Farm Engine — pure computation for the Git-Private-Farm panel.
-///
-/// All functions are pure (no side effects, no API calls). Takes model data
-/// and produces filtered/sorted/aggregated views. Parsing of JSON responses
-/// from Gossamer commands also lives here.
-
-open FarmModel
-
-/// Parse a priority string from the manifest into the typed enum.
-let parsePriority = (s: string): farmPriority => {
-  switch String.toLowerCase(s) {
-  | "high" => High
-  | "low" => Low
-  | _ => Medium
-  }
-}
-
-/// Human-readable label for a priority level.
-let priorityLabel = (p: farmPriority): string => {
-  switch p {
-  | High => "High"
-  | Medium => "Medium"
-  | Low => "Low"
-  }
-}
-
-/// CSS colour class for a priority level.
-let priorityColour = (p: farmPriority): string => {
-  switch p {
-  | High => "text-red-400"
-  | Medium => "text-amber-400"
-  | Low => "text-gray-400"
-  }
-}
-
-/// Human-readable label for a category tab.
-let categoryLabel = (cat: farmCategory): string => {
-  switch cat {
-  | AllRepos => "All Repos"
-  | ByGroup => "By Group"
-  | ByLanguage => "By Language"
-  | ByForge => "By Forge"
-  | Enrollment => "Enrollment"
-  | Health => "Health"
-  }
-}
-
-/// All category tabs in display order.
-let allCategories: array<farmCategory> = [
-  AllRepos,
-  ByGroup,
-  ByLanguage,
-  ByForge,
-  Enrollment,
-  Health,
-]
-
-/// Human-readable label for a sort order.
-let sortLabel = (s: farmSortBy): string => {
-  switch s {
-  | SortByName => "Name"
-  | SortByPriority => "Priority"
-  | SortByLanguage => "Language"
-  | SortByHealth => "Health"
-  }
-}
-
-/// All sort options in display order.
-let allSortOptions: array<farmSortBy> = [SortByName, SortByPriority, SortByLanguage, SortByHealth]
-
-/// Filter repos by a text query (matches name or description, case-insensitive).
-let filterRepos = (repos: array<farmRepo>, query: string): array<farmRepo> => {
-  if query === "" {
-    repos
-  } else {
-    let q = String.toLowerCase(query)
-    repos->Array.filter(r =>
-      String.includes(String.toLowerCase(r.name), q) ||
-      String.includes(String.toLowerCase(r.description), q)
-    )
-  }
-}
-
-/// Sort repos by the given criterion.
-let sortRepos = (repos: array<farmRepo>, sortBy: farmSortBy): array<farmRepo> => {
-  let sorted = Array.copy(repos)
-  sorted->Array.sort((a, b) => {
-    switch sortBy {
-    | SortByName => String.compare(a.name, b.name)
-    | SortByLanguage => String.compare(a.language, b.language)
-    | SortByPriority => {
-        let rank = p =>
-          switch p {
-          | High => 0
-          | Medium => 1
-          | Low => 2
-          }
-        Int.compare(rank(a.priority), rank(b.priority))
-      }
-    | SortByHealth => {
-        let score = r =>
-          switch r.healthScore {
-          | Some(s) => s
-          | None => 999.0
-          }
-        Float.compare(score(a), score(b))
-      }
-    }
-  })
-  sorted
-}
-
-/// Group repos by their group field.
-let groupByGroup = (repos: array<farmRepo>): array<(string, array<farmRepo>)> => {
-  let groups: Dict.t<array<farmRepo>> = Dict.make()
-  repos->Array.forEach(r => {
-    let key = switch r.group {
-    | Some(g) => g
-    | None => "ungrouped"
-    }
-    let existing = switch Dict.get(groups, key) {
-    | Some(arr) => arr
-    | None => []
-    }
-    Dict.set(groups, key, Array.concat(existing, [r]))
-  })
-  let entries = Dict.toArray(groups)
-  entries->Array.sort(((a, _), (b, _)) => String.compare(a, b))
-  entries
-}
-
-/// Group repos by primary language.
-let groupByLanguage = (repos: array<farmRepo>): array<(string, array<farmRepo>)> => {
-  let groups: Dict.t<array<farmRepo>> = Dict.make()
-  repos->Array.forEach(r => {
-    let key = r.language === "" ? "unknown" : r.language
-    let existing = switch Dict.get(groups, key) {
-    | Some(arr) => arr
-    | None => []
-    }
-    Dict.set(groups, key, Array.concat(existing, [r]))
-  })
-  let entries = Dict.toArray(groups)
-  entries->Array.sort(((a, _), (b, _)) => String.compare(a, b))
-  entries
-}
-
-/// Count repos per forge.
-let countByForge = (repos: array<farmRepo>): array<(string, int)> => {
-  let counts: Dict.t<int> = Dict.make()
-  repos->Array.forEach(r => {
-    r.forges->Array.forEach(f => {
-      let n = switch Dict.get(counts, f.name) {
-      | Some(c) => c
-      | None => 0
-      }
-      Dict.set(counts, f.name, n + 1)
-    })
-  })
-  let entries = Dict.toArray(counts)
-  entries->Array.sort(((_, a), (_, b)) => Int.compare(b, a))
-  entries
-}
-
-/// Parse a single repo from the JSON inventory response.
-/// Expects fields: name, description, language, priority, forges (string array),
-/// auto_propagate, group.
-let parseRepoFromJson = (json: JSON.t): option<farmRepo> => {
-  switch JSON.Classify.classify(json) {
-  | Object(obj) => {
-      let getString = (key: string): string =>
-        switch Dict.get(obj, key) {
-        | Some(v) =>
-          switch JSON.Classify.classify(v) {
-          | String(s) => s
-          | _ => ""
-          }
-        | None => ""
-        }
-      let getBool = (key: string): bool =>
-        switch Dict.get(obj, key) {
-        | Some(v) =>
-          switch JSON.Classify.classify(v) {
-          | Bool(b) => b
-          | _ => false
-          }
-        | None => false
-        }
-      let getOptString = (key: string): option<string> =>
-        switch Dict.get(obj, key) {
-        | Some(v) =>
-          switch JSON.Classify.classify(v) {
-          | String(s) => Some(s)
-          | Null => None
-          | _ => None
-          }
-        | None => None
-        }
-      let forgeNames: array<string> = switch Dict.get(obj, "forges") {
-      | Some(v) =>
-        switch JSON.Classify.classify(v) {
-        | Array(arr) =>
-          arr->Array.filterMap(item =>
-            switch JSON.Classify.classify(item) {
-            | String(s) => Some(s)
-            | _ => None
-            }
-          )
-        | _ => []
-        }
-      | None => []
-      }
-      let forges = forgeNames->Array.map((name): farmForge => {
-        name,
-        primary: name === "github",
-      })
-
-      let enrollment: enrollmentTier = switch Dict.get(obj, "enrollment") {
-      | Some(v) =>
-        switch JSON.Classify.classify(v) {
-        | Object(enrollObj) => {
-            let getEnrollBool = (key: string): bool =>
-              switch Dict.get(enrollObj, key) {
-              | Some(bv) =>
-                switch JSON.Classify.classify(bv) {
-                | Bool(b) => b
-                | _ => false
-                }
-              | None => false
-              }
-            {
-              farm: getEnrollBool("farm"),
-              hypatia: getEnrollBool("hypatia"),
-              fleet: getEnrollBool("fleet"),
-            }
-          }
-        | _ => {farm: true, hypatia: false, fleet: false}
-        }
-      | None => {farm: true, hypatia: false, fleet: false}
-      }
-
-      Some({
-        name: getString("name"),
-        description: getString("description"),
-        language: getString("language"),
-        priority: parsePriority(getString("priority")),
-        forges,
-        autoPropagation: getBool("auto_propagate"),
-        group: getOptString("group"),
-        enrollment,
-        healthScore: None,
-        hasDependabotAlerts: false,
-      })
-    }
-  | _ => None
-  }
-}
-
-/// Tea_Json decoder for a single farmRepo, bridging the existing parseRepoFromJson parser.
-let farmRepoDecoder: Tea_Json.decoder<farmRepo> = json => {
-  switch parseRepoFromJson(json) {
-  | Some(v) => Ok(v)
-  | None => Error(Tea_Json.Failure("Failed to decode farmRepo", json))
-  }
-}
-
-/// Tea_Json decoder for the inventory response envelope.
-let inventoryDecoder: Tea_Json.decoder<array<farmRepo>> = Decoders.fieldWithDefault(
-  "repos",
-  Decoders.lenientArray(farmRepoDecoder),
-  [],
-)
-
-/// Parse the full inventory response from the farm_list_repos command.
-/// Returns (repos, totalCount).
-let parseInventory = (jsonStr: string): result<array<farmRepo>, string> =>
-  Decoders.decode(inventoryDecoder, jsonStr)
diff --git a/src/core/FeedbackRoutingEngine.affine b/src/core/FeedbackRoutingEngine.affine
new file mode 100644
index 00000000..206dc032
--- /dev/null
+++ b/src/core/FeedbackRoutingEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FeedbackRoutingEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/FeedbackRoutingEngine.res b/src/core/FeedbackRoutingEngine.res
deleted file mode 100644
index 604412d2..00000000
--- a/src/core/FeedbackRoutingEngine.res
+++ /dev/null
@@ -1,63 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Feedback Routing Engine — pure helpers for upstream report tracking.
-
-open FeedbackRoutingModel
-
-/// Default initial state.
-let defaultState: feedbackRoutingState = {
-  activeTab: TabOverview,
-  reports: [],
-  platformStats: [],
-  selectedReport: None,
-  refreshing: false,
-  error: None,
-  filterText: "",
-}
-
-/// Tab label for display.
-let tabLabel = (tab: feedbackRoutingTab): string => {
-  switch tab {
-  | TabOverview => "Overview"
-  | TabReports => "Reports"
-  | TabPlatforms => "Platforms"
-  }
-}
-
-/// All tabs for rendering.
-let allTabs: array<feedbackRoutingTab> = [TabOverview, TabReports, TabPlatforms]
-
-/// Report status label for display.
-let statusLabel = (s: reportStatus): string => {
-  switch s {
-  | ReportFiled => "Filed"
-  | ReportAcknowledged => "Acknowledged"
-  | ReportInProgress => "In Progress"
-  | ReportResolved => "Resolved"
-  | ReportClosed => "Closed"
-  | ReportWontFix => "Won't Fix"
-  }
-}
-
-/// Platform label for display.
-let platformLabel = (p: reportPlatform): string => {
-  switch p {
-  | GitHub => "GitHub"
-  | GitLab => "GitLab"
-  | Email => "Email"
-  | Discourse => "Discourse"
-  | Other(name) => name
-  }
-}
-
-/// Count open reports (filed, acknowledged, or in progress).
-let openReportCount = (reports: array<feedbackReport>): int => {
-  reports
-  ->Array.filter(r =>
-    switch r.status {
-    | ReportFiled | ReportAcknowledged | ReportInProgress => true
-    | _ => false
-    }
-  )
-  ->Array.length
-}
diff --git a/src/core/FleetEngine.affine b/src/core/FleetEngine.affine
new file mode 100644
index 00000000..81c34f86
--- /dev/null
+++ b/src/core/FleetEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FleetEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/FleetEngine.res b/src/core/FleetEngine.res
deleted file mode 100644
index d09f078f..00000000
--- a/src/core/FleetEngine.res
+++ /dev/null
@@ -1,247 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Fleet Engine — pure computation for the Gitbot-Fleet panel.
-///
-/// Parses fleet API responses, computes health aggregates, filters and
-/// sorts findings, and provides display helpers for the view layer.
-/// No side effects — all state transitions are deterministic.
-
-open FleetModel
-
-/// Human-readable label for a bot ID.
-let botLabel = (id: botId): string =>
-  switch id {
-  | Rhodibot => "Rhodibot"
-  | Echidnabot => "Echidnabot"
-  | Sustainabot => "Sustainabot"
-  | Glambot => "Glambot"
-  | Seambot => "Seambot"
-  | Finishbot => "Finishbot"
-  }
-
-/// Short description of what each bot does.
-let botDescription = (id: botId): string =>
-  switch id {
-  | Rhodibot => "Code quality & style enforcement"
-  | Echidnabot => "Security vulnerability detection"
-  | Sustainabot => "Dependency health & sustainability"
-  | Glambot => "Documentation & presentation quality"
-  | Seambot => "Integration & API compatibility"
-  | Finishbot => "CI/CD completion & release readiness"
-  }
-
-/// Icon identifier for each bot.
-let botIcon = (id: botId): string =>
-  switch id {
-  | Rhodibot => "shield-check"
-  | Echidnabot => "bug"
-  | Sustainabot => "leaf"
-  | Glambot => "sparkles"
-  | Seambot => "link"
-  | Finishbot => "flag"
-  }
-
-/// Human-readable label for a bot status.
-let statusLabel = (status: botStatus): string =>
-  switch status {
-  | BotActive => "Active"
-  | BotIdle => "Idle"
-  | BotOffline => "Offline"
-  | BotError(e) => `Error: ${e}`
-  }
-
-/// CSS class for bot status indicator dot.
-let statusColor = (status: botStatus): string =>
-  switch status {
-  | BotActive => "bg-green-400"
-  | BotIdle => "bg-yellow-400"
-  | BotOffline => "bg-gray-500"
-  | BotError(_) => "bg-red-400"
-  }
-
-/// Human-readable label for a safety tier.
-let tierLabel = (tier: safetyTier): string =>
-  switch tier {
-  | Eliminate => "Eliminate"
-  | Substitute => "Substitute"
-  | Control => "Control"
-  }
-
-/// CSS class for safety tier badge.
-let tierColor = (tier: safetyTier): string =>
-  switch tier {
-  | Eliminate => "bg-red-600 text-red-100"
-  | Substitute => "bg-amber-600 text-amber-100"
-  | Control => "bg-blue-600 text-blue-100"
-  }
-
-/// Human-readable label for a fleet category tab.
-let categoryLabel = (cat: fleetCategory): string =>
-  switch cat {
-  | FleetDashboard => "Dashboard"
-  | FleetFindings => "Findings"
-  | FleetDispatch => "Dispatch"
-  }
-
-/// Compute aggregate health from bot states and findings.
-let computeHealth = (bots: array<botState>, findings: array<fleetFinding>): fleetHealth => {
-  let activeBots =
-    bots
-    ->Array.filter(b =>
-      switch b.status {
-      | BotActive => true
-      | _ => false
-      }
-    )
-    ->Array.length
-
-  let totalQueued = findings->Array.filter(f => !f.resolved)->Array.length
-  let totalProcessed = findings->Array.filter(f => f.resolved)->Array.length
-
-  let confidences = findings->Array.filter(f => !f.resolved)->Array.map(f => f.confidence)
-  let avgConfidence = if Array.length(confidences) > 0 {
-    confidences->Array.reduce(0.0, (acc, c) => acc +. c) /. Int.toFloat(Array.length(confidences))
-  } else {
-    0.0
-  }
-
-  let elim = findings->Array.filter(f => f.tier === Eliminate && !f.resolved)->Array.length
-  let sub = findings->Array.filter(f => f.tier === Substitute && !f.resolved)->Array.length
-  let ctrl = findings->Array.filter(f => f.tier === Control && !f.resolved)->Array.length
-
-  {
-    activeBots,
-    totalQueued,
-    totalProcessed,
-    avgConfidence,
-    triangleCounts: (elim, sub, ctrl),
-  }
-}
-
-/// Filter findings by text search across repo name and summary.
-let filterFindings = (findings: array<fleetFinding>, query: string): array<fleetFinding> => {
-  if query === "" {
-    findings
-  } else {
-    let q = String.toLowerCase(query)
-    findings->Array.filter(f =>
-      String.includes(String.toLowerCase(f.repoName), q) ||
-      String.includes(String.toLowerCase(f.summary), q)
-    )
-  }
-}
-
-/// Parse a bot ID string into a botId variant.
-let parseBotId = (s: string): option<botId> =>
-  switch s {
-  | "rhodibot" => Some(Rhodibot)
-  | "echidnabot" => Some(Echidnabot)
-  | "sustainabot" => Some(Sustainabot)
-  | "glambot" => Some(Glambot)
-  | "seambot" => Some(Seambot)
-  | "finishbot" => Some(Finishbot)
-  | _ => None
-  }
-
-/// Parse a bot status string into a botStatus variant.
-let parseBotStatus = (s: string): botStatus =>
-  switch s {
-  | "active" => BotActive
-  | "idle" => BotIdle
-  | "offline" => BotOffline
-  | _ => BotError(s)
-  }
-
-/// Tea_Json decoder for a single bot state.
-/// Uses map6 to decode fields, then validates the bot ID.
-let botStateDecoder: Tea_Json.decoder<botState> = json => {
-  open Decoders
-  open Tea_Json
-  let inner = map6(
-    (idStr, statusStr, queued, processed, confThresh, lastAct) => (
-      idStr,
-      statusStr,
-      queued,
-      processed,
-      confThresh,
-      lastAct,
-    ),
-    stringField("id"),
-    stringField("status"),
-    intField("queued"),
-    intField("processed"),
-    floatField("confidence_threshold"),
-    stringField("last_activity"),
-  )
-  switch inner(json) {
-  | Ok((idStr, statusStr, queued, processed, confThresh, lastAct)) =>
-    switch parseBotId(idStr) {
-    | Some(botId) =>
-      Ok(
-        (
-          {
-            id: botId,
-            status: parseBotStatus(statusStr),
-            queuedFindings: queued,
-            processedFindings: processed,
-            confidenceThreshold: confThresh,
-            lastActivity: lastAct,
-          }: botState
-        ),
-      )
-    | None => Error(Failure(`Unknown bot id: ${idStr}`, json))
-    }
-  | Error(e) => Error(e)
-  }
-}
-
-/// Parse bot status from the fleet API JSON response.
-/// Expected shape: [{ "id": "rhodibot", "status": "active", "queued": 5, ... }]
-let parseBots = (json: string): result<array<botState>, string> =>
-  Decoders.decode(Decoders.lenientArray(botStateDecoder), json)
-
-/// Parse a safety tier string into a safetyTier variant.
-let parseSafetyTier = (s: string): safetyTier =>
-  switch s {
-  | "eliminate" => Eliminate
-  | "substitute" => Substitute
-  | _ => Control
-  }
-
-/// Tea_Json decoder for a single fleet finding.
-let findingDecoder: Tea_Json.decoder<fleetFinding> = {
-  open Decoders
-  map7((id, repoName, summary, tierStr, confidence, assignedStr, resolved): fleetFinding => {
-    id,
-    repoName,
-    summary,
-    tier: parseSafetyTier(tierStr),
-    confidence,
-    assignedBot: parseBotId(assignedStr),
-    resolved,
-  }, stringField(
-    "id",
-  ), stringField(
-    "repo_name",
-  ), stringField(
-    "summary",
-  ), stringField(
-    "tier",
-  ), floatField("confidence"), stringField("assigned_bot"), boolField("resolved"))
-}
-
-/// Parse findings from the fleet API JSON response.
-let parseFindings = (json: string): result<array<fleetFinding>, string> =>
-  Decoders.decode(Decoders.lenientArray(findingDecoder), json)
-
-/// Default initial state.
-let defaultState: fleetState = {
-  loaded: false,
-  loading: false,
-  error: None,
-  bots: [],
-  findings: [],
-  health: None,
-  activeCategory: FleetDashboard,
-  filterText: "",
-}
diff --git a/src/core/FloorRaiseEngine.affine b/src/core/FloorRaiseEngine.affine
new file mode 100644
index 00000000..230e0e9f
--- /dev/null
+++ b/src/core/FloorRaiseEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FloorRaiseEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/FloorRaiseEngine.res b/src/core/FloorRaiseEngine.res
deleted file mode 100644
index 19d6ff7b..00000000
--- a/src/core/FloorRaiseEngine.res
+++ /dev/null
@@ -1,82 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Floor Raise Engine — pure helpers for the campaign dashboard.
-
-open FloorRaiseModel
-
-/// Default initial state.
-let defaultState: floorRaiseState = {
-  activeTab: TabOverview,
-  adoptions: [
-    {name: "proven", adoptedCount: 0, targetCount: 0, percentage: 0.0, campaignActive: false},
-    {
-      name: "contractiles-trust",
-      adoptedCount: 0,
-      targetCount: 0,
-      percentage: 0.0,
-      campaignActive: false,
-    },
-    {
-      name: "contractiles-dust",
-      adoptedCount: 0,
-      targetCount: 0,
-      percentage: 0.0,
-      campaignActive: false,
-    },
-    {name: "ai-manifest", adoptedCount: 0, targetCount: 0, percentage: 0.0, campaignActive: false},
-    {
-      name: "panic-attacker",
-      adoptedCount: 0,
-      targetCount: 0,
-      percentage: 0.0,
-      campaignActive: false,
-    },
-    {name: "verisim", adoptedCount: 0, targetCount: 0, percentage: 0.0, campaignActive: false},
-    {
-      name: "feedback-o-tron",
-      adoptedCount: 0,
-      targetCount: 0,
-      percentage: 0.0,
-      campaignActive: false,
-    },
-    {name: "vexometer", adoptedCount: 0, targetCount: 0, percentage: 0.0, campaignActive: false},
-  ],
-  outcomes: [],
-  scanning: false,
-  error: None,
-  totalRepos: 0,
-}
-
-/// Tab label for display.
-let tabLabel = (tab: floorRaiseTab): string => {
-  switch tab {
-  | TabOverview => "Overview"
-  | TabCampaigns => "Campaigns"
-  | TabOutcomes => "Outcomes"
-  | TabGaps => "Gaps"
-  }
-}
-
-/// All tabs for rendering.
-let allTabs: array<floorRaiseTab> = [TabOverview, TabCampaigns, TabOutcomes, TabGaps]
-
-/// Calculate overall floor raise progress (average adoption percentage).
-let overallProgress = (state: floorRaiseState): float => {
-  let total = state.adoptions->Array.reduce(0.0, (acc, a) => acc +. a.percentage)
-  let count = state.adoptions->Array.length->Int.toFloat
-  if count > 0.0 {
-    total /. count
-  } else {
-    0.0
-  }
-}
-
-/// Count tools with active campaigns.
-let activeCampaignCount = (state: floorRaiseState): int => {
-  state.adoptions->Array.filter(a => a.campaignActive)->Array.length
-}
-
-/// Count successful dispatch outcomes.
-let successCount = (outcomes: array<dispatchOutcome>): int => {
-  outcomes->Array.filter(o => o.success)->Array.length
-}
diff --git a/src/core/FocusDimmingEngine.affine b/src/core/FocusDimmingEngine.affine
new file mode 100644
index 00000000..acbadbb5
--- /dev/null
+++ b/src/core/FocusDimmingEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FocusDimmingEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/FocusDimmingEngine.res b/src/core/FocusDimmingEngine.res
deleted file mode 100644
index 49a4f8b4..00000000
--- a/src/core/FocusDimmingEngine.res
+++ /dev/null
@@ -1,227 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL FocusDimmingEngine — Pure computation for focus-aware dimming and
-/// smart memory mode.
-///
-/// Determines per-panel opacity classes based on focus state, dimming mode,
-/// and per-panel overrides. Also manages interaction timestamps for the
-/// Smart Memory mode, which progressively throttles unfocused panels to
-/// conserve CPU and memory.
-///
-/// All functions are pure — no DOM access, no timers, no side effects.
-/// The View layer calls panelOpacityClass() per panel on every render.
-/// The Update layer calls recordInteraction() when panels receive input.
-///
-/// DESIGN NOTE: Smart Memory mode converts the configured dimOpacity float
-/// to the nearest Tailwind opacity class (opacity-{0..100} in steps of 10).
-/// This quantisation is intentional — Tailwind purges unused classes, so we
-/// must map to a fixed set. If finer control is needed in future, the CSS
-/// layer can add custom opacity utilities.
-
-/// The default focus dimming state used at application startup.
-///
-/// Starts with dimming Off so all panels are fully visible and the app
-/// doesn't appear dead. Users can enable SmartMemory or other modes via
-/// the accessibility toolbar. A future inactivity timeout could auto-enable
-/// SmartMemory after N minutes of no interaction.
-let defaultState: FocusDimmingModel.focusDimmingState = {
-  mode: DimmingOff,
-  focusedPane: None,
-  overrides: [],
-  dimOpacity: 0.4,
-  lastInteractionTimestamps: [],
-}
-
-/// Human-readable label for a dimming mode.
-///
-/// Used in the settings panel dropdown and for screen reader announcements
-/// when the user changes the dimming mode.
-let modeLabel = (mode: FocusDimmingModel.dimmingMode): string => {
-  switch mode {
-  | DimmingOff => "Off"
-  | DimmingSubtle => "Subtle (70% opacity)"
-  | DimmingStrong => "Strong (40% opacity)"
-  | SmartMemory => "Smart Memory (dim + throttle)"
-  }
-}
-
-/// Human-readable label for a panel focus override.
-///
-/// Used in the per-panel override selector and for screen reader
-/// announcements.
-let overrideLabel = (override: FocusDimmingModel.panelFocusOverride): string => {
-  switch override {
-  | Default => "Follow Global Mode"
-  | AlwaysActive => "Always Active"
-  | AlwaysDimmed => "Always Dimmed"
-  }
-}
-
-/// Convert a float opacity (0.0–1.0) to the nearest Tailwind opacity class.
-///
-/// Quantises to the nearest 10% step and returns the corresponding Tailwind
-/// utility class. Values at or above 1.0 return "" (full opacity, no class
-/// needed). Values at or below 0.0 return "opacity-0".
-///
-/// Internal helper — not exported.
-let opacityToTailwind = (opacity: float): string => {
-  let pct = Int.toFloat(Float.toInt(opacity *. 10.0 +. 0.5)) *. 10.0
-  if pct >= 100.0 {
-    ""
-  } else if pct <= 0.0 {
-    "opacity-0"
-  } else {
-    "opacity-" ++ Int.toString(Float.toInt(pct))
-  }
-}
-
-/// Look up the per-panel override for a given panel ID.
-///
-/// Searches the overrides array for a matching panel ID. Returns Default
-/// if no override is found, meaning the panel follows the global dimming mode.
-let getOverride = (
-  panelId: PanelSwitcherModel.panelId,
-  state: FocusDimmingModel.focusDimmingState,
-): FocusDimmingModel.panelFocusOverride => {
-  let found = state.overrides->Array.find(((id, _)) => id === panelId)
-  switch found {
-  | Some((_, override)) => override
-  | None => Default
-  }
-}
-
-/// Determine the CSS opacity class for a panel based on focus state.
-///
-/// Logic:
-///   1. Check overrides first — AlwaysActive returns "" (full opacity),
-///      AlwaysDimmed returns the mode's dim class regardless of focus.
-///   2. If the panel's key matches focusedPane, return "" (focused = bright).
-///   3. Otherwise, apply the global dimming mode:
-///      - DimmingOff: "" (no dimming)
-///      - DimmingSubtle: "opacity-70"
-///      - DimmingStrong: "opacity-40"
-///      - SmartMemory: nearest Tailwind class to dimOpacity
-///
-/// The panelKey parameter is a string (e.g. "paneL", "paneN", "paneW",
-/// or a panel ID string) that is compared against focusedPane.
-let panelOpacityClass = (state: FocusDimmingModel.focusDimmingState, panelKey: string): string => {
-  // Determine the dim class for the current mode.
-  let dimClass = switch state.mode {
-  | DimmingOff => ""
-  | DimmingSubtle => "opacity-70"
-  | DimmingStrong => "opacity-40"
-  | SmartMemory => opacityToTailwind(state.dimOpacity)
-  }
-
-  // Check if this panel has a per-panel override.
-  // Overrides are stored as (panelId, override) tuples; we need to match
-  // by string comparison since panelKey is a string, not a panelId variant.
-  // For core panes (paneL, paneN, paneW), there are no overrides — they
-  // always follow the global mode.
-  let hasAlwaysActive = state.overrides->Array.some(((_, ov)) => {
-    switch ov {
-    | AlwaysActive => true
-    | _ => false
-    }
-  })
-  // NOTE: Override matching by panelKey string is a simplification. The full
-  // implementation would require a panelId-to-string mapping. For now, core
-  // panes and string-based lookups follow the global mode directly.
-  let _ = hasAlwaysActive
-
-  // If this panel is focused, it is always fully opaque.
-  let isFocused = switch state.focusedPane {
-  | Some(focused) => focused === panelKey
-  | None => false
-  }
-
-  if isFocused {
-    ""
-  } else {
-    dimClass
-  }
-}
-
-/// Determine whether a panel should have its processing throttled.
-///
-/// Returns true only when ALL of the following are true:
-///   - The global mode is SmartMemory
-///   - The panel is NOT focused (focusedPane does not match panelKey)
-///   - The panel does NOT have an AlwaysActive override
-///
-/// When true, the subscription layer should double polling intervals and
-/// halve refresh rates for this panel to conserve resources.
-let shouldThrottle = (state: FocusDimmingModel.focusDimmingState, panelKey: string): bool => {
-  // Only SmartMemory mode throttles.
-  if state.mode !== SmartMemory {
-    false
-  } else {
-    // Check focus.
-    let isFocused = switch state.focusedPane {
-    | Some(focused) => focused === panelKey
-    | None => false
-    }
-    if isFocused {
-      false
-    } else {
-      // Check for AlwaysActive override. Since we're matching by string
-      // and overrides use panelId, we check all overrides — the caller is
-      // responsible for passing the correct panelKey that corresponds to
-      // a panelId for override matching to work.
-      let hasAlwaysActive = state.overrides->Array.some(((_, ov)) => {
-        switch ov {
-        | AlwaysActive => true
-        | _ => false
-        }
-      })
-
-      // This is a conservative check — if ANY panel has AlwaysActive, we
-      // still throttle other panels. The proper per-panel check requires
-      // panelId matching, which the full implementation will use.
-      !hasAlwaysActive
-    }
-  }
-}
-
-/// Record a user interaction with a panel.
-///
-/// Updates the lastInteractionTimestamps array with the new timestamp for
-/// the given panelKey, and sets focusedPane to that panel. If the panel
-/// already has a timestamp entry, it is replaced; otherwise a new entry
-/// is appended.
-///
-/// Called by the Update layer whenever a panel receives mouse, keyboard,
-/// or touch input.
-let recordInteraction = (
-  state: FocusDimmingModel.focusDimmingState,
-  panelKey: string,
-  timestamp: float,
-): FocusDimmingModel.focusDimmingState => {
-  let filtered = state.lastInteractionTimestamps->Array.filter(((key, _)) => key !== panelKey)
-  {
-    ...state,
-    focusedPane: Some(panelKey),
-    lastInteractionTimestamps: Array.concat(filtered, [(panelKey, timestamp)]),
-  }
-}
-
-/// Set the per-panel dimming override for a given panel ID.
-///
-/// If the panel already has an override entry, it is replaced. If the
-/// override is Default, the entry is removed entirely (no need to store
-/// "follow global" explicitly). This keeps the overrides array minimal.
-let setOverride = (
-  panelId: PanelSwitcherModel.panelId,
-  override: FocusDimmingModel.panelFocusOverride,
-  state: FocusDimmingModel.focusDimmingState,
-): FocusDimmingModel.focusDimmingState => {
-  let filtered = state.overrides->Array.filter(((id, _)) => id !== panelId)
-  let newOverrides = switch override {
-  | Default => filtered
-  | _ => Array.concat(filtered, [(panelId, override)])
-  }
-  {
-    ...state,
-    overrides: newOverrides,
-  }
-}
diff --git a/src/core/FunctionalTesterEngine.affine b/src/core/FunctionalTesterEngine.affine
new file mode 100644
index 00000000..9f38a290
--- /dev/null
+++ b/src/core/FunctionalTesterEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FunctionalTesterEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/FunctionalTesterEngine.res b/src/core/FunctionalTesterEngine.res
deleted file mode 100644
index 18136395..00000000
--- a/src/core/FunctionalTesterEngine.res
+++ /dev/null
@@ -1,100 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Functional Tester Engine — pure computation and helpers for the
-/// Functional Tester panel. Provides default state, tab metadata, workflow
-/// progress calculation, step counting, and status formatting.
-
-open FunctionalTesterModel
-
-/// Default state for the Functional Tester panel.
-/// Starts on the Workflows tab with empty workflow list and no templates.
-let defaultState: functionalTesterState = {
-  activeTab: TabWorkflows,
-  workflows: [],
-  selectedWorkflow: None,
-  editing: false,
-  running: false,
-  templates: [],
-  error: None,
-}
-
-/// Human-readable label for each tab in the Functional Tester panel.
-let tabLabel = (tab: functionalTestTab): string =>
-  switch tab {
-  | TabWorkflows => "Workflows"
-  | TabEditor => "Editor"
-  | TabResults => "Results"
-  | TabTemplates => "Templates"
-  }
-
-/// All tabs in display order.
-let allTabs: array<functionalTestTab> = [TabWorkflows, TabEditor, TabResults, TabTemplates]
-
-/// Count the number of completed (passed) steps in a workflow.
-let completedSteps = (workflow: testWorkflow): int =>
-  workflow.steps->Array.filter(s => s.passed == Some(true))->Array.length
-
-/// Count the number of failed steps in a workflow.
-let failedSteps = (workflow: testWorkflow): int =>
-  workflow.steps->Array.filter(s => s.passed == Some(false))->Array.length
-
-/// Calculate workflow progress as a percentage (0.0 to 100.0).
-let workflowProgress = (workflow: testWorkflow): float => {
-  let total = workflow.steps->Array.length
-  if total == 0 {
-    0.0
-  } else {
-    Float.fromInt(completedSteps(workflow)) /. Float.fromInt(total) *. 100.0
-  }
-}
-
-/// Get the current step index for a running workflow.
-let currentStep = (status: workflowStatus): option<int> =>
-  switch status {
-  | WorkflowRunning(i) => Some(i)
-  | _ => None
-  }
-
-/// Count workflows matching a predicate on their status.
-let countByStatus = (workflows: array<testWorkflow>, pred: workflowStatus => bool): int =>
-  workflows->Array.filter(w => pred(w.status))->Array.length
-
-/// Human-readable label for a workflow status.
-let statusLabel = (status: workflowStatus): string =>
-  switch status {
-  | WorkflowDraft => "Draft"
-  | WorkflowReady => "Ready"
-  | WorkflowRunning(step) => `Running (step ${Int.toString(step + 1)})`
-  | WorkflowPassed(ms) => `Passed (${Float.toFixed(ms, ~digits=0)}ms)`
-  | WorkflowFailed(step, _) => `Failed at step ${Int.toString(step + 1)}`
-  }
-
-/// CSS colour class for a workflow status.
-let statusColor = (status: workflowStatus): string =>
-  switch status {
-  | WorkflowDraft => "text-gray-400"
-  | WorkflowReady => "text-blue-400"
-  | WorkflowRunning(_) => "text-yellow-400"
-  | WorkflowPassed(_) => "text-green-400"
-  | WorkflowFailed(_, _) => "text-red-400"
-  }
-
-/// Whether a workflow can be executed (Ready status with at least one step).
-let canRun = (workflow: testWorkflow): bool =>
-  switch workflow.status {
-  | WorkflowReady => Array.length(workflow.steps) > 0
-  | _ => false
-  }
-
-/// Total execution time of all completed steps in a workflow.
-let totalStepDuration = (workflow: testWorkflow): float =>
-  workflow.steps->Array.reduce(0.0, (acc, step) =>
-    switch step.durationMs {
-    | Some(ms) => acc +. ms
-    | None => acc
-    }
-  )
-
-/// Count workflows that have ever been run.
-let countEverRun = (workflows: array<testWorkflow>): int =>
-  workflows->Array.filter(w => w.lastRunAt != None)->Array.length
diff --git a/src/core/GamePreviewEngine.affine b/src/core/GamePreviewEngine.affine
new file mode 100644
index 00000000..6b2e3a00
--- /dev/null
+++ b/src/core/GamePreviewEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module GamePreviewEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/GamePreviewEngine.res b/src/core/GamePreviewEngine.res
deleted file mode 100644
index a8f0f8c3..00000000
--- a/src/core/GamePreviewEngine.res
+++ /dev/null
@@ -1,117 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Game Preview Engine — pure computation and helpers for the
-/// live IDApTIK game preview panel.
-
-open GamePreviewModel
-
-/// Human-readable labels for category tabs.
-let categoryLabel = (cat: gamePreviewCategory): string =>
-  switch cat {
-  | PreviewLive => "Live Preview"
-  | PreviewDeviceLog => "Device Log"
-  | PreviewClips => "Clips"
-  | PreviewPerformance => "Performance"
-  }
-
-/// Human-readable labels for game overlays.
-let overlayLabel = (overlay: gameOverlay): string =>
-  switch overlay {
-  | OverlayCollision => "Collision Boxes"
-  | OverlayNetworkTopology => "Network Topology"
-  | OverlayGuardPatrols => "Guard Patrols"
-  | OverlayDeviceZones => "Device Zones"
-  | OverlaySpawnPoints => "Spawn Points"
-  | OverlayRenderStats => "Render Stats"
-  }
-
-/// All available overlays for the toggle panel.
-let allOverlays: array<gameOverlay> = [
-  OverlayCollision,
-  OverlayNetworkTopology,
-  OverlayGuardPatrols,
-  OverlayDeviceZones,
-  OverlaySpawnPoints,
-  OverlayRenderStats,
-]
-
-/// Check if a specific overlay is active.
-let isOverlayActive = (overlays: array<gameOverlay>, target: gameOverlay): bool =>
-  Array.some(overlays, o => o === target)
-
-/// Toggle an overlay on or off.
-let toggleOverlay = (overlays: array<gameOverlay>, target: gameOverlay): array<gameOverlay> =>
-  if isOverlayActive(overlays, target) {
-    Array.filter(overlays, o => o !== target)
-  } else {
-    Array.concat(overlays, [target])
-  }
-
-/// Human-readable execution state label.
-let executionLabel = (exec: gameExecutionState): string =>
-  switch exec {
-  | GameRunning => "Running"
-  | GamePaused => "Paused"
-  | GameStepping => "Stepping"
-  }
-
-/// Default state for the Game Preview panel.
-let defaultState: gamePreviewState = {
-  devServerConnected: false,
-  devServerUrl: ServiceEndpoints.gamePreviewDev,
-  execution: GameRunning,
-  activeCategory: PreviewLive,
-  activeOverlays: [],
-  gameRecording: GameRecordingIdle,
-  clips: [],
-  deviceLog: [],
-  stats: None,
-  zoomLevel: 1.0,
-  multiplayerView: false,
-  error: None,
-  loading: false,
-}
-
-/// Generate the PixiJS embed script tag content for the game preview iframe.
-/// This produces a minimal bootstrap that loads the IDApTIK game engine
-/// and connects the dev server hot-reload socket.
-let pixiBootstrapScript = (devServerUrl: string): string => {
-  "const app = new PIXI.Application();" ++
-  "await app.init({ width: 800, height: 600, backgroundColor: 0x1a1a2e });" ++
-  "document.getElementById('game-root').appendChild(app.canvas);" ++
-  "const ws = new WebSocket('" ++
-  devServerUrl ++
-  "/ws');" ++
-  "ws.onmessage = (e) => { if (e.data === 'reload') { location.reload(); } };" ++ "app.ticker.add(() => { /* game loop placeholder */ });"
-}
-
-/// Generate a srcdoc HTML string for the game preview iframe.
-/// Embeds PixiJS from CDN and runs the bootstrap script.
-let iframeSrcDoc = (devServerUrl: string): string => {
-  "<!DOCTYPE html>" ++
-  "<html><head>" ++
-  "<script src='https://cdn.jsdelivr.net/npm/pixi.js@8/dist/pixi.min.mjs' type='module'></script>" ++
-  "<style>body{margin:0;overflow:hidden;background:#1a1a2e}</style>" ++
-  "</head><body>" ++
-  "<div id='game-root'></div>" ++
-  "<script type='module'>" ++
-  pixiBootstrapScript(devServerUrl) ++
-  "</script>" ++ "</body></html>"
-}
-
-/// Default render stats for the performance tab.
-let defaultRenderStats: renderStats = {
-  fps: 60.0,
-  drawCalls: 0,
-  textureMemory: 0,
-  spriteCount: 0,
-}
-
-/// Format render stats as a human-readable summary line.
-let renderStatsLabel = (stats: renderStats): string => {
-  Float.toFixed(stats.fps, ~digits=1) ++
-  " FPS | " ++
-  Int.toString(stats.drawCalls) ++
-  " draws | " ++
-  Int.toString(stats.spriteCount) ++ " sprites"
-}
diff --git a/src/core/GeneratorModeEngine.affine b/src/core/GeneratorModeEngine.affine
new file mode 100644
index 00000000..ba5885f6
--- /dev/null
+++ b/src/core/GeneratorModeEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module GeneratorModeEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/GeneratorModeEngine.res b/src/core/GeneratorModeEngine.res
deleted file mode 100644
index cee8372e..00000000
--- a/src/core/GeneratorModeEngine.res
+++ /dev/null
@@ -1,75 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Generator Mode Engine — pure computation and helpers for the
-/// parametric world builder panel.
-///
-/// Provides default state, tab labels, and utility functions for counting
-/// districts, totalling facilities, formatting weather/time, and constructing
-/// default world parameters.
-
-open GeneratorModeModel
-
-/// Default world generation parameters (balanced mid-range values).
-let defaultWorldParams: worldParams = {
-  securityLevel: 0.5,
-  techLevel: 0.5,
-  weatherCondition: Clear,
-  timeOfDay: Afternoon,
-  trapDensity: 0.3,
-  civilianPopulation: 100,
-  difficultyTarget: 0.5,
-}
-
-/// Default state for the Generator Mode panel.
-let defaultState: generatorModeState = {
-  activeTab: Design,
-  currentSpec: None,
-  params: defaultWorldParams,
-  previewResult: None,
-  generating: false,
-  templates: [],
-  error: None,
-}
-
-/// Human-readable label for a generator mode category tab.
-let tabLabel = (cat: generatorModeCategory): string =>
-  switch cat {
-  | Design => "Design"
-  | Parameters => "Parameters"
-  | Preview => "Preview"
-  | Export => "Export"
-  }
-
-/// All category tabs in display order.
-let allTabs: array<generatorModeCategory> = [Design, Parameters, Preview, Export]
-
-/// Count the number of districts in a world specification.
-let countDistricts = (spec: worldSpec): int => spec.districts->Array.length
-
-/// Count the total number of facilities across all districts.
-let countTotalFacilities = (spec: worldSpec): int =>
-  spec.districts->Array.reduce(0, (acc, district) =>
-    acc + district.facilities->Array.reduce(0, (sum, f) => sum + f.count)
-  )
-
-/// Human-readable weather condition label.
-let formatWeather = (w: weatherCondition): string =>
-  switch w {
-  | Clear => "Clear"
-  | Rain => "Rain"
-  | Snow => "Snow"
-  | Fog => "Fog"
-  | Storm => "Storm"
-  | NightRain => "Night Rain"
-  }
-
-/// Human-readable time of day label.
-let formatTimeOfDay = (t: timeOfDay): string =>
-  switch t {
-  | Dawn => "Dawn"
-  | Morning => "Morning"
-  | Afternoon => "Afternoon"
-  | Evening => "Evening"
-  | Night => "Night"
-  | Midnight => "Midnight"
-  }
diff --git a/src/core/GovernanceEngine.affine b/src/core/GovernanceEngine.affine
new file mode 100644
index 00000000..4c28b238
--- /dev/null
+++ b/src/core/GovernanceEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module GovernanceEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/GovernanceEngine.res b/src/core/GovernanceEngine.res
deleted file mode 100644
index 1a09511e..00000000
--- a/src/core/GovernanceEngine.res
+++ /dev/null
@@ -1,498 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// GovernanceEngine — Neurosymbolic Coherence Orchestrator
-///
-/// Closes the feedback loops between PanLL's five governance subsystems:
-///
-///   Anti-Crash (circuit breaker) → Governance → Contractiles (elastic bounds)
-///   Vexometer (operator frustration) → Governance → Contractiles (elasticity)
-///   OrbitalSync (L↔N↔W divergence) → Governance → Anti-Crash (confidence)
-///
-/// This is the missing piece that makes PanLL "wholly neurosymbolic" — without
-/// it, each subsystem validates in isolation but never learns from the others.
-///
-/// Called after every applyContractiles pass in the main update loop.
-
-open Model
-
-// ---------------------------------------------------------------------------
-// Governance decision — what this engine concludes after inspecting the system
-// ---------------------------------------------------------------------------
-
-/// A governance adjustment to be applied to the model after evaluation.
-type governanceAdjustment =
-  /// Tighten Anti-Crash: too many violations, reduce confidence threshold.
-  | TightenAntiCrash
-  /// Loosen Anti-Crash: low violations + high vexation = operator frustrated by strictness.
-  | LoosenAntiCrash
-  /// Increase contractile elasticity: operator vexation is high.
-  | IncreaseElasticity(string) // contractile id
-  /// Decrease contractile elasticity: stability is high, can be stricter.
-  | DecreaseElasticity(string) // contractile id
-  /// Halt inference: critical governance failure.
-  | HaltInference(string) // reason
-  /// Resume inference: conditions have improved.
-  | ResumeInference
-  /// Adjust humidity: stress level changed.
-  | AdjustHumidity(humidityLevel)
-  /// Emit sync event: cross-panel state changed.
-  | EmitSyncEvent(syncEvent)
-
-// ---------------------------------------------------------------------------
-// Thresholds (tuned for the Binary Star co-orbit)
-// ---------------------------------------------------------------------------
-
-let violationSpikeThreshold = 5
-let vexationHighThreshold = 0.7
-let vexationLowThreshold = 0.3
-let stabilityDangerThreshold = 0.4
-let stabilityHealthyThreshold = 0.7
-let divergenceHighThreshold = 0.6
-let elasticityIncrement = 0.05
-let elasticityDecrement = 0.03
-
-// ---------------------------------------------------------------------------
-// Analysis functions
-// ---------------------------------------------------------------------------
-
-/// Count recent Anti-Crash violations. Used to detect violation spikes.
-let violationCount = (antiCrash: antiCrashState): int => {
-  Array.length(antiCrash.violations)
-}
-
-/// Determine if operator frustration should loosen constraints.
-let shouldLoosenForVexation = (vex: vexometerState, antiCrash: antiCrashState): bool => {
-  vex.index > vexationHighThreshold &&
-  violationCount(antiCrash) < violationSpikeThreshold &&
-  !vex.inertiaDetected
-}
-
-/// Determine if low violations + stable orbit should tighten constraints.
-let shouldTightenForStability = (
-  orbital: orbitalState,
-  antiCrash: antiCrashState,
-  vex: vexometerState,
-): bool => {
-  orbital.stability > stabilityHealthyThreshold &&
-  violationCount(antiCrash) > violationSpikeThreshold &&
-  vex.index < vexationLowThreshold
-}
-
-/// Determine the appropriate humidity level from current system state.
-let computeHumidity = (vex: vexometerState, orbital: orbitalState): humidityLevel => {
-  if vex.index > vexationHighThreshold || orbital.stability < stabilityDangerThreshold {
-    Low // High stress — shed visual noise
-  } else if vex.index > vexationLowThreshold || orbital.stability < stabilityHealthyThreshold {
-    Medium
-  } else {
-    High // Low stress — show more detail
-  }
-}
-
-// ---------------------------------------------------------------------------
-// Main governance evaluation
-// ---------------------------------------------------------------------------
-
-/// Evaluate all governance subsystems and produce adjustments.
-/// Pure function — returns a list of adjustments, does not mutate state.
-let evaluate = (model: model): array<governanceAdjustment> => {
-  let adjustments: array<governanceAdjustment> = []
-
-  // --- Anti-Crash ↔ Vexometer feedback ---
-
-  let adjustments = if shouldLoosenForVexation(model.vexometer, model.antiCrash) {
-    // Operator is frustrated and violations are low — loosen the gate.
-    Array.concat(adjustments, [LoosenAntiCrash])
-  } else if shouldTightenForStability(model.orbital, model.antiCrash, model.vexometer) {
-    // Orbit is stable but violations are spiking — tighten the gate.
-    Array.concat(adjustments, [TightenAntiCrash])
-  } else {
-    adjustments
-  }
-
-  // --- Vexometer → Contractile elasticity ---
-
-  let adjustments = if model.vexometer.index > vexationHighThreshold {
-    // High vexation: increase elasticity on Adaptive contracts.
-    let elasticAdj = Array.filterMap(model.contractiles, c => {
-      switch c.enforcement {
-      | Adaptive if c.elasticity < 0.9 => Some(IncreaseElasticity(c.id))
-      | _ => None
-      }
-    })
-    Array.concat(adjustments, elasticAdj)
-  } else if model.vexometer.index < vexationLowThreshold {
-    // Low vexation: decrease elasticity (can be stricter).
-    let tightenAdj = Array.filterMap(model.contractiles, c => {
-      switch c.enforcement {
-      | Adaptive if c.elasticity > 0.1 => Some(DecreaseElasticity(c.id))
-      | _ => None
-      }
-    })
-    Array.concat(adjustments, tightenAdj)
-  } else {
-    adjustments
-  }
-
-  // --- OrbitalSync divergence → governance ---
-
-  let adjustments = if model.orbital.divergenceLevel > divergenceHighThreshold {
-    // L↔N divergence is high — emit a sync event and consider halting.
-    let syncAdj = [EmitSyncEvent(CrossPaneLink("governance:divergence-high", "antiCrash"))]
-    let haltAdj = if model.orbital.stability < stabilityDangerThreshold {
-      [
-        HaltInference(
-          "Orbital stability critically low — L↔N divergence exceeds safe threshold",
-        ),
-      ]
-    } else {
-      []
-    }
-    Array.concat(adjustments, Array.concat(syncAdj, haltAdj))
-  } else {
-    adjustments
-  }
-
-  // --- Inertia detection → inference resumption ---
-
-  let adjustments = if model.vexometer.inertiaDetected && !model.paneN.inferenceActive {
-    // System has been idle too long — suggest resumption if conditions are met.
-    if (
-      model.orbital.stability > stabilityHealthyThreshold && violationCount(model.antiCrash) === 0
-    ) {
-      Array.concat(adjustments, [ResumeInference])
-    } else {
-      adjustments
-    }
-  } else {
-    adjustments
-  }
-
-  // --- S5: Hypatia confidence → Anti-Crash strictness ---
-  // When Hypatia neural networks have low average confidence, tighten
-  // the Anti-Crash gate. When confidence is high, allow looser validation.
-
-  let adjustments = if Array.length(model.hypatia.networks) > 0 {
-    let activeNets = model.hypatia.networks->Array.filter(n =>
-      switch n.status {
-      | NetActive => true
-      | _ => false
-      }
-    )
-    let avgConf = if Array.length(activeNets) > 0 {
-      activeNets->Array.reduce(0.0, (acc, n) => acc +. n.confidence) /.
-        Int.toFloat(Array.length(activeNets))
-    } else {
-      0.0
-    }
-    if avgConf < 0.5 && !model.antiCrash.strictMode {
-      // Low neural confidence → tighten validation.
-      Array.concat(adjustments, [TightenAntiCrash])
-    } else if avgConf > 0.8 && model.antiCrash.strictMode && violationCount(model.antiCrash) < 2 {
-      // High neural confidence + few violations → can loosen.
-      Array.concat(adjustments, [LoosenAntiCrash])
-    } else {
-      adjustments
-    }
-  } else {
-    adjustments
-  }
-
-  // --- Humidity adjustment ---
-
-  let targetHumidity = computeHumidity(model.vexometer, model.orbital)
-  let adjustments = if targetHumidity !== model.humidity {
-    Array.concat(adjustments, [AdjustHumidity(targetHumidity)])
-  } else {
-    adjustments
-  }
-
-  adjustments
-}
-
-// ---------------------------------------------------------------------------
-// Apply adjustments to model
-// ---------------------------------------------------------------------------
-
-/// Apply a single governance adjustment to the model. Pure.
-let applyAdjustment = (model: model, adj: governanceAdjustment): model => {
-  switch adj {
-  | TightenAntiCrash => {
-      ...model,
-      antiCrash: {...model.antiCrash, strictMode: true},
-    }
-
-  | LoosenAntiCrash => {
-      ...model,
-      antiCrash: {...model.antiCrash, strictMode: false},
-    }
-
-  | IncreaseElasticity(contractId) => {
-      let newContractiles = Array.map(model.contractiles, c => {
-        if c.id === contractId {
-          {...c, elasticity: Math.min(1.0, c.elasticity +. elasticityIncrement)}
-        } else {
-          c
-        }
-      })
-      {...model, contractiles: newContractiles}
-    }
-
-  | DecreaseElasticity(contractId) => {
-      let newContractiles = Array.map(model.contractiles, c => {
-        if c.id === contractId {
-          {...c, elasticity: Math.max(0.0, c.elasticity -. elasticityDecrement)}
-        } else {
-          c
-        }
-      })
-      {...model, contractiles: newContractiles}
-    }
-
-  | HaltInference(reason) => {
-      let violation = BoundaryViolation(reason)
-      {
-        ...model,
-        paneN: {...model.paneN, inferenceActive: false},
-        antiCrash: {
-          ...model.antiCrash,
-          halted: true,
-          violations: Array.concat(model.antiCrash.violations, [violation]),
-        },
-      }
-    }
-
-  | ResumeInference => {
-      ...model,
-      paneN: {...model.paneN, inferenceActive: true},
-      antiCrash: {...model.antiCrash, halted: false},
-    }
-
-  | AdjustHumidity(level) => {
-      ...model,
-      humidity: level,
-    }
-
-  | EmitSyncEvent(event) => {
-      let newSync = {
-        ...model.syncState,
-        pendingSync: Array.concat(model.syncState.pendingSync, [event]),
-      }
-      {...model, syncState: newSync}
-    }
-  }
-}
-
-// ---------------------------------------------------------------------------
-// Nesy-MCP governance queries — deferred decisions that need async validation
-// ---------------------------------------------------------------------------
-
-/// A governance query represents a decision that cannot be made purely —
-/// it requires consultation with the BoJ nesy-mcp cartridge for real-time
-/// neural validation before the adjustment can be applied.
-type governanceQuery =
-  /// Ask nesy-mcp for a confidence score on a borderline governance decision.
-  | NesyConfidenceQuery(string)
-  /// Request nesy-mcp to validate a governance adjustment before applying it.
-  | NesyValidateAdjustment(governanceAdjustment)
-  /// Probe nesy-mcp for overall stability metrics from the neural subsystem.
-  | NesyStabilityProbe
-
-// ---------------------------------------------------------------------------
-// Nesy-aware governance evaluation
-// ---------------------------------------------------------------------------
-
-/// Evaluate governance subsystems, returning both immediate adjustments and
-/// deferred queries that require nesy-mcp validation.
-///
-/// The "uncertain zone" for vexation is [0.3, 0.7] and for orbital stability
-/// is [0.4, 0.7]. When both fall in these ranges simultaneously, the engine
-/// cannot confidently decide — it emits a NesyConfidenceQuery instead.
-///
-/// Any HaltInference decision is always preceded by a NesyValidateAdjustment
-/// query so the neural subsystem can double-check the halt rationale.
-///
-/// Pure function — returns tuples, does not mutate state.
-let evaluateWithCmd = (model: model): (array<governanceAdjustment>, array<governanceQuery>) => {
-  let adjustments: array<governanceAdjustment> = []
-  let queries: array<governanceQuery> = []
-
-  // --- Uncertain-zone detection ---
-  // When vexation AND orbital stability are both in their borderline ranges,
-  // defer the Anti-Crash decision to nesy-mcp instead of guessing.
-
-  let vexInUncertainZone =
-    model.vexometer.index >= vexationLowThreshold && model.vexometer.index <= vexationHighThreshold
-
-  let stabilityInBorderline =
-    model.orbital.stability >= stabilityDangerThreshold &&
-      model.orbital.stability <= stabilityHealthyThreshold
-
-  // --- Anti-Crash ↔ Vexometer feedback (with nesy deferral) ---
-
-  let (adjustments, queries) = if vexInUncertainZone && stabilityInBorderline {
-    // Both metrics are borderline — defer to nesy-mcp.
-    let q = NesyConfidenceQuery(
-      `vexation=${Float.toString(model.vexometer.index)},` ++
-      `stability=${Float.toString(model.orbital.stability)},` ++
-      `violations=${Int.toString(violationCount(model.antiCrash))}`,
-    )
-    (adjustments, Array.concat(queries, [q]))
-  } else if shouldLoosenForVexation(model.vexometer, model.antiCrash) {
-    (Array.concat(adjustments, [LoosenAntiCrash]), queries)
-  } else if shouldTightenForStability(model.orbital, model.antiCrash, model.vexometer) {
-    (Array.concat(adjustments, [TightenAntiCrash]), queries)
-  } else {
-    (adjustments, queries)
-  }
-
-  // --- Vexometer → Contractile elasticity ---
-
-  let adjustments = if model.vexometer.index > vexationHighThreshold {
-    let elasticAdj = Array.filterMap(model.contractiles, c => {
-      switch c.enforcement {
-      | Adaptive if c.elasticity < 0.9 => Some(IncreaseElasticity(c.id))
-      | _ => None
-      }
-    })
-    Array.concat(adjustments, elasticAdj)
-  } else if model.vexometer.index < vexationLowThreshold {
-    let tightenAdj = Array.filterMap(model.contractiles, c => {
-      switch c.enforcement {
-      | Adaptive if c.elasticity > 0.1 => Some(DecreaseElasticity(c.id))
-      | _ => None
-      }
-    })
-    Array.concat(adjustments, tightenAdj)
-  } else {
-    adjustments
-  }
-
-  // --- OrbitalSync divergence → governance (with nesy validation on halt) ---
-
-  let (adjustments, queries) = if model.orbital.divergenceLevel > divergenceHighThreshold {
-    let syncAdj = [EmitSyncEvent(CrossPaneLink("governance:divergence-high", "antiCrash"))]
-    let (haltAdj, haltQueries) = if model.orbital.stability < stabilityDangerThreshold {
-      let haltReason = "Orbital stability critically low — L↔N divergence exceeds safe threshold"
-      // Always validate a HaltInference through nesy-mcp first.
-      let halt = HaltInference(haltReason)
-      ([halt], [NesyValidateAdjustment(halt)])
-    } else {
-      ([], [])
-    }
-    (Array.concat(adjustments, Array.concat(syncAdj, haltAdj)), Array.concat(queries, haltQueries))
-  } else {
-    (adjustments, queries)
-  }
-
-  // --- Inertia detection → inference resumption ---
-
-  let adjustments = if model.vexometer.inertiaDetected && !model.paneN.inferenceActive {
-    if (
-      model.orbital.stability > stabilityHealthyThreshold && violationCount(model.antiCrash) === 0
-    ) {
-      Array.concat(adjustments, [ResumeInference])
-    } else {
-      adjustments
-    }
-  } else {
-    adjustments
-  }
-
-  // --- S5: Hypatia confidence → Anti-Crash strictness ---
-
-  let adjustments = if Array.length(model.hypatia.networks) > 0 {
-    let activeNets = model.hypatia.networks->Array.filter(n =>
-      switch n.status {
-      | NetActive => true
-      | _ => false
-      }
-    )
-    let avgConf = if Array.length(activeNets) > 0 {
-      activeNets->Array.reduce(0.0, (acc, n) => acc +. n.confidence) /.
-        Int.toFloat(Array.length(activeNets))
-    } else {
-      0.0
-    }
-    if avgConf < 0.5 && !model.antiCrash.strictMode {
-      Array.concat(adjustments, [TightenAntiCrash])
-    } else if avgConf > 0.8 && model.antiCrash.strictMode && violationCount(model.antiCrash) < 2 {
-      Array.concat(adjustments, [LoosenAntiCrash])
-    } else {
-      adjustments
-    }
-  } else {
-    adjustments
-  }
-
-  // --- Humidity adjustment ---
-
-  let targetHumidity = computeHumidity(model.vexometer, model.orbital)
-  let adjustments = if targetHumidity !== model.humidity {
-    Array.concat(adjustments, [AdjustHumidity(targetHumidity)])
-  } else {
-    adjustments
-  }
-
-  // --- Stability probe: emit when any query was generated ---
-
-  let queries = if Array.length(queries) > 0 {
-    Array.concat(queries, [NesyStabilityProbe])
-  } else {
-    queries
-  }
-
-  (adjustments, queries)
-}
-
-/// Apply all governance adjustments to the model. Pure fold.
-let applyAll = (model: model, adjustments: array<governanceAdjustment>): model => {
-  Array.reduce(adjustments, model, applyAdjustment)
-}
-
-/// Full governance pass: evaluate + apply. Called from the main update loop.
-let govern = (model: model): model => {
-  let adjustments = evaluate(model)
-  applyAll(model, adjustments)
-}
-
-/// Nesy-aware governance pass: evaluate, apply immediate adjustments, and
-/// dispatch async nesy-mcp queries through GovernanceCmd. Returns updated
-/// model plus any Tea commands for nesy queries.
-let governWithCmd = (model: model, nesyTagger: result<string, string> => 'msg): (
-  model,
-  Tea_Cmd.t<'msg>,
-) => {
-  let (adjustments, queries) = evaluateWithCmd(model)
-  let newModel = applyAll(model, adjustments)
-
-  // Convert governance queries into Tea commands via GovernanceCmd.
-  let cmds = queries->Array.map(query => {
-    switch query {
-    | NesyConfidenceQuery(q) => GovernanceCmd.queryNesyConfidence(q, nesyTagger)
-    | NesyValidateAdjustment(_adj) => {
-        // Serialize the adjustment type as a string descriptor for nesy-mcp.
-        let adjStr = switch _adj {
-        | TightenAntiCrash => "TightenAntiCrash"
-        | LoosenAntiCrash => "LoosenAntiCrash"
-        | HaltInference(reason) => "HaltInference:" ++ reason
-        | ResumeInference => "ResumeInference"
-        | IncreaseElasticity(id) => "IncreaseElasticity:" ++ id
-        | DecreaseElasticity(id) => "DecreaseElasticity:" ++ id
-        | AdjustHumidity(_) => "AdjustHumidity"
-        | EmitSyncEvent(_) => "EmitSyncEvent"
-        }
-        GovernanceCmd.validateAdjustment(adjStr, nesyTagger)
-      }
-    | NesyStabilityProbe => GovernanceCmd.probeStability(nesyTagger)
-    }
-  })
-
-  let cmd = if Array.length(cmds) > 0 {
-    Tea_Cmd.batch(cmds->List.fromArray)
-  } else {
-    Tea_Cmd.none
-  }
-
-  (newModel, cmd)
-}
diff --git a/src/core/GuardAiTunerEngine.affine b/src/core/GuardAiTunerEngine.affine
new file mode 100644
index 00000000..f625ff2a
--- /dev/null
+++ b/src/core/GuardAiTunerEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module GuardAiTunerEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/GuardAiTunerEngine.res b/src/core/GuardAiTunerEngine.res
deleted file mode 100644
index f6fd1004..00000000
--- a/src/core/GuardAiTunerEngine.res
+++ /dev/null
@@ -1,67 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Guard AI Tuner Engine — pure computation and helpers for tuning
-/// guard patrol behaviour, alert thresholds, and spawn rates.
-///
-/// Provides default state, tab labels, and utility functions for averaging
-/// spawn rates and alert thresholds, counting patrol points, and formatting
-/// patrol pattern names.
-
-open GuardAiTunerModel
-
-/// Default state for the Guard AI Tuner panel.
-let defaultState: guardAiTunerState = {
-  activeTab: Profiles,
-  guards: [],
-  routes: [],
-  presets: [],
-  selectedGuard: None,
-  editing: false,
-  error: None,
-}
-
-/// Human-readable label for a guard AI tuner category tab.
-let tabLabel = (cat: guardAiTunerCategory): string =>
-  switch cat {
-  | Profiles => "Profiles"
-  | PatrolEditor => "Patrol Editor"
-  | Thresholds => "Thresholds"
-  | Presets => "Presets"
-  }
-
-/// All category tabs in display order.
-let allTabs: array<guardAiTunerCategory> = [Profiles, PatrolEditor, Thresholds, Presets]
-
-/// Average spawn rate across all guard profiles. Returns 0.0 if no guards.
-let avgSpawnRate = (guards: array<guardProfile>): float => {
-  let len = guards->Array.length
-  if len === 0 {
-    0.0
-  } else {
-    guards->Array.reduce(0.0, (acc, g) => acc +. g.spawnRate) /. Int.toFloat(len)
-  }
-}
-
-/// Average alert threshold across all guard profiles. Returns 0.0 if no guards.
-let avgAlertThreshold = (guards: array<guardProfile>): float => {
-  let len = guards->Array.length
-  if len === 0 {
-    0.0
-  } else {
-    guards->Array.reduce(0.0, (acc, g) => acc +. g.alertThreshold) /. Int.toFloat(len)
-  }
-}
-
-/// Count total patrol points across all routes.
-let countPatrolPoints = (routes: array<patrolRoute>): int =>
-  routes->Array.reduce(0, (acc, r) => acc + r.points->Array.length)
-
-/// Human-readable label for a patrol pattern string.
-let formatPatrolPattern = (pattern: string): string =>
-  switch pattern {
-  | "loop" => "Loop"
-  | "pingpong" => "Ping-Pong"
-  | "random" => "Random"
-  | "stationary" => "Stationary"
-  | other => other
-  }
diff --git a/src/core/HelpContent.affine b/src/core/HelpContent.affine
new file mode 100644
index 00000000..44d0a6a2
--- /dev/null
+++ b/src/core/HelpContent.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module HelpContent;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/HelpContent.res b/src/core/HelpContent.res
deleted file mode 100644
index 53407a79..00000000
--- a/src/core/HelpContent.res
+++ /dev/null
@@ -1,495 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// HelpContent — Static help content data for the PanLL help system.
-///
-/// This module provides all the help entries and glossary terms that
-/// populate the help panel. Content is organised by category and
-/// optionally linked to specific panels via panelId references.
-///
-/// The module is pure data — no logic, no side effects. Functions
-/// return fresh arrays of content records on each call, ensuring
-/// immutability and preventing accidental mutation of shared state.
-///
-/// Content covers five categories:
-/// - GettingStarted: orientation and first steps
-/// - PanelGuide: one entry per major panel/tool
-/// - Shortcuts: keyboard shortcut reference
-/// - FAQ: common questions and troubleshooting
-/// - Architecture: system design and neurosymbolic concepts
-///
-/// The glossary provides accessible definitions for all neurosymbolic
-/// terminology used throughout PanLL, making the interface learnable
-/// even for users unfamiliar with formal methods or neural-symbolic AI.
-
-/// Returns all help entries for the PanLL help system.
-///
-/// Each entry has a unique string ID, a human-readable title, a body
-/// of explanatory text, a category for filtering, an optional panelId
-/// for contextual scoping, and an array of keyword strings for search.
-///
-/// Entries are returned in a logical reading order within each category:
-/// GettingStarted first, then PanelGuide, Shortcuts, FAQ, Architecture.
-///
-/// @returns The complete array of help entries
-let allEntries = (): array<HelpModel.helpEntry> => {
-  [
-    // =========================================================================
-    // Getting Started
-    // =========================================================================
-
-    /// Welcome entry — the first thing a new user should read.
-    {
-      id: "welcome",
-      title: "Welcome to PanLL",
-      body: "PanLL (formally eNSAID: Environment for NeSy-Agentic Integrated Development) is a neurosymbolic mission control interface. It combines symbolic reasoning (formal proofs, type systems, constraints) with neural computation (language models, learned heuristics) in a unified four-panel workspace (Panel-A ambient substrate, Panel-L logic/symbolic, Panel-N neural, Panel-W world/barycentre). PanLL is designed for accessibility-first interaction, putting the operator in control of both symbolic and neural subsystems at all times.",
-      category: GettingStarted,
-      panelId: None,
-      keywords: [
-        "welcome",
-        "introduction",
-        "ensaid",
-        "neurosymbolic",
-        "mission control",
-        "getting started",
-      ],
-    },
-    /// Explains the fundamental four-panel layout.
-    {
-      id: "four-panel-layout",
-      title: "Understanding the Four-Panel Layout",
-      body: "PanLL organises work into four panels. Panel-A (Ambient) provides persistent context and ergonomic substrate around the workspace. Panel-L (Logic) displays constraints, formal structure, and symbolic state — it is where you define what must be true. Panel-N (Neural) hosts agent reasoning, OODA loops, and decision-making processes — it is where thinking happens. Panel-W (World/Barycentre) shows results, output, and verification status — it is where you see outcomes. The L + N orbiting W relationship is the Binary Star core; Panel-A surrounds as ambient substrate. Position is design intuition rather than architectural — the relationship is by flow and viewing perspective.",
-      category: GettingStarted,
-      panelId: None,
-      keywords: ["panels", "layout", "four-panel", "three-panel", "panel-a", "panel-l", "panel-n", "panel-w", "ambient", "binary star", "workspace"],
-    },
-    /// How to use the panel switcher to navigate between tools.
-    {
-      id: "panel-switcher",
-      title: "Navigating with the Panel Switcher",
-      body: "The panel switcher is the primary navigation mechanism in PanLL. It appears as a bar or sidebar listing all available panels grouped by clade (taxonomic function). Click or use keyboard shortcuts to switch the active panel. Each panel represents a different tool or view — from theorem proving to database simulation to security scanning. The switcher also shows panel status indicators so you can see at a glance which panels need attention.",
-      category: GettingStarted,
-      panelId: None,
-      keywords: ["navigation", "switcher", "panel switcher", "clade", "tabs"],
-    },
-    /// The Dark Start splash screen and how to transition to standard mode.
-    {
-      id: "dark-start",
-      title: "Dark Start and Standard Mode",
-      body: "When PanLL launches, it shows the Dark Start screen — a brief animated splash displaying the Binary Star architecture. This is not just decorative: it runs startup diagnostics and establishes connections to backend services (ECHIDNA, TypeLL, VeriSimDB). Once initialisation completes, PanLL transitions to Standard Mode where all panels become interactive. If Dark Start stalls, check your backend service connections.",
-      category: GettingStarted,
-      panelId: None,
-      keywords: ["dark start", "splash", "startup", "boot", "initialisation", "standard mode"],
-    },
-    // =========================================================================
-    // Panel Guides
-    // =========================================================================
-
-    /// Guide for the ECHIDNA theorem prover panel.
-    {
-      id: "panel-echidna",
-      title: "ECHIDNA — Theorem Prover",
-      body: "The ECHIDNA panel connects to the ECHIDNA theorem prover backend for formal verification. Use it to submit proof obligations, inspect proof states, and track verification progress. ECHIDNA handles dependent types, refinement types, and constructive proofs. The panel shows proof trees, goal states, and tactic suggestions. Proof results feed into the provenance system, raising the trust level of verified code to 'Verified'.",
-      category: PanelGuide,
-      panelId: Some(PanelSwitcherModel.PanelDatabases),
-      keywords: [
-        "echidna",
-        "theorem prover",
-        "formal verification",
-        "proofs",
-        "dependent types",
-        "tactics",
-      ],
-    },
-    /// Guide for the TypeLL verification kernel panel.
-    {
-      id: "panel-typell",
-      title: "TypeLL — Verification Kernel",
-      body: "TypeLL is PanLL's type checking and inference engine. It operates as a verification kernel that checks code against type-level specifications. The TypeLL panel shows type errors, inferred types, and refinement constraints in real time. It integrates with ECHIDNA for proofs that go beyond what the type system alone can verify. Use TypeLL to ensure your code satisfies its contracts before committing.",
-      category: PanelGuide,
-      panelId: Some(PanelSwitcherModel.PanelTypeLL),
-      keywords: [
-        "typell",
-        "type checking",
-        "type inference",
-        "verification",
-        "kernel",
-        "contracts",
-      ],
-    },
-    /// Guide for the VeriSimDB simulation database panel.
-    {
-      id: "panel-verisim",
-      title: "VeriSimDB — Simulation Database",
-      body: "VeriSimDB is a verification-aware simulation database. It stores simulation runs, test results, and verification outcomes with full provenance tracking. The VeriSimDB panel lets you query past simulations, compare runs, and inspect how changes affected verification status over time. It serves as the persistent memory of your verification workflow, ensuring no proof or test result is ever lost.",
-      category: PanelGuide,
-      panelId: Some(PanelSwitcherModel.PanelDatabases),
-      keywords: ["verisim", "database", "simulation", "test results", "provenance", "history"],
-    },
-    /// Guide for the Farm panel (repo management).
-    {
-      id: "panel-farm",
-      title: "Farm — Repository Management",
-      body: "The Farm panel manages your repository fleet. It shows the status of all repos registered in the git-private-farm manifest, including mirror sync status (GitHub, GitLab, Bitbucket), CI/CD pipeline results, and RSR compliance scores. Use Farm to bulk-manage repos, trigger mirror syncs, and identify repos that need attention. The Farm integrates with gitbot-fleet for automated maintenance.",
-      category: PanelGuide,
-      panelId: Some(PanelSwitcherModel.PanelFarm),
-      keywords: ["farm", "repositories", "git", "mirrors", "gitlab", "bitbucket", "rsr"],
-    },
-    /// Guide for the Fleet panel (bot orchestration).
-    {
-      id: "panel-fleet",
-      title: "Fleet — Bot Orchestration",
-      body: "The Fleet panel provides visibility into the gitbot-fleet — the collection of automated bots that maintain your repositories. Bots include rhodibot (RSR compliance), echidnabot (formal verification flagging), sustainabot (dependency updates), glambot (documentation), seambot (integration testing), and finishbot (completion tracking). The Fleet panel shows bot activity, queued tasks, and confidence thresholds for automated fixes.",
-      category: PanelGuide,
-      panelId: Some(PanelSwitcherModel.PanelFleet),
-      keywords: ["fleet", "bots", "gitbot", "rhodibot", "echidnabot", "sustainabot", "automation"],
-    },
-    /// Guide for the Hypatia security scanning panel.
-    {
-      id: "panel-hypatia",
-      title: "Hypatia — Security Intelligence",
-      body: "Hypatia is the neurosymbolic security scanning system. The Hypatia panel shows scan results, vulnerability findings, and security posture across your repositories. Hypatia goes beyond traditional SAST/DAST by combining symbolic analysis (formal reasoning about code properties) with neural pattern recognition (learned vulnerability signatures). Findings are ranked by severity and include remediation suggestions.",
-      category: PanelGuide,
-      panelId: Some(PanelSwitcherModel.PanelHypatia),
-      keywords: [
-        "hypatia",
-        "security",
-        "scanning",
-        "vulnerabilities",
-        "sast",
-        "neurosymbolic security",
-      ],
-    },
-    /// Guide for the Aerie network analysis panel.
-    {
-      id: "panel-aerie",
-      title: "Aerie — Network Analysis",
-      body: "The Aerie panel provides network analysis and simulation capabilities. It visualises network topologies, analyses BGP routing, and monitors IPv6 connectivity. Aerie integrates with the proven cryptographic library for protocol verification. Use Aerie to simulate network changes before deploying them, verify routing policies, and monitor the health of distributed systems.",
-      category: PanelGuide,
-      panelId: Some(PanelSwitcherModel.PanelAerie),
-      keywords: ["aerie", "network", "bgp", "ipv6", "routing", "topology", "simulation"],
-    },
-    /// Guide for the Playgrounds panel (experimental code execution).
-    {
-      id: "panel-playgrounds",
-      title: "Playgrounds — Experimental Execution",
-      body: "The Playgrounds panel provides sandboxed environments for experimental code execution. Run ReScript, Rust, Gleam, or Elixir snippets in isolated containers with full type checking and verification. Playground results can be saved to VeriSimDB for later reference. Use Playgrounds to prototype ideas, test hypotheses, and explore APIs without affecting your main codebase.",
-      category: PanelGuide,
-      panelId: Some(PanelSwitcherModel.PanelPlaygrounds),
-      keywords: ["playgrounds", "sandbox", "experimental", "repl", "execution", "prototype"],
-    },
-    /// Guide for the Security panel (trust and provenance).
-    {
-      id: "panel-security",
-      title: "Security — Trust and Provenance",
-      body: "The Security panel displays the provenance and trust surface of your codebase. It shows who wrote each piece of code, how it was reviewed, and what trust level it carries (Verified, Human Reviewed, AI Assisted, Unreviewed AI, Unknown). The Hostile UX system applies deliberate friction to unreviewed AI code, demanding explicit human review before it can be deployed. The Security panel also shows contractile enforcement status.",
-      category: PanelGuide,
-      panelId: Some(PanelSwitcherModel.PanelSecurity),
-      keywords: ["security", "provenance", "trust", "hostile ux", "code review", "contractiles"],
-    },
-    /// Guide for the Workspace panel (project overview).
-    {
-      id: "panel-workspace",
-      title: "Workspace — Project Overview",
-      body: "The Workspace panel gives you a high-level view of the current project state. It shows task progress, milestone tracking, blocker status, and the overall completion dashboard. The workspace integrates data from all other panels — verification status from ECHIDNA, test results from VeriSimDB, security findings from Hypatia — into a unified project health summary. The Task Barycentre indicator shows where the current work sits on the symbolic-neural spectrum.",
-      category: PanelGuide,
-      panelId: Some(PanelSwitcherModel.PanelWorkspace),
-      keywords: [
-        "workspace",
-        "project",
-        "overview",
-        "tasks",
-        "milestones",
-        "dashboard",
-        "barycentre",
-      ],
-    },
-    // =========================================================================
-    // Shortcuts
-    // =========================================================================
-
-    /// Comprehensive keyboard shortcut reference.
-    {
-      id: "keyboard-shortcuts",
-      title: "Keyboard Shortcuts Reference",
-      body: "PanLL supports extensive keyboard navigation. Global shortcuts: Ctrl+/ (toggle help), Ctrl+K (command palette), Escape (close active overlay). Panel navigation: Ctrl+1 through Ctrl+9 (switch to panel by position), Ctrl+[ and Ctrl+] (previous/next panel). Within panels: Tab (cycle focus), Enter (activate), Arrow keys (navigate lists). The panel switcher responds to type-ahead filtering — just start typing a panel name. All shortcuts are customisable in Settings.",
-      category: Shortcuts,
-      panelId: None,
-      keywords: [
-        "keyboard",
-        "shortcuts",
-        "hotkeys",
-        "keybindings",
-        "accessibility",
-        "navigation",
-        "ctrl",
-      ],
-    },
-    // =========================================================================
-    // FAQ
-    // =========================================================================
-
-    /// Troubleshooting ECHIDNA connection issues.
-    {
-      id: "faq-echidna-connection",
-      title: "Why can't I connect to ECHIDNA?",
-      body: "ECHIDNA runs as a separate backend service. If the connection fails: (1) Check that the ECHIDNA service is running — it should be accessible on its configured port. (2) Verify the connection URL in PanLL settings matches your ECHIDNA deployment. (3) Check your network/firewall rules. (4) Look at the Dark Start diagnostic output for connection errors. (5) If using a containerised ECHIDNA, ensure the container is healthy with `podman ps`. The ECHIDNA panel status indicator will show red when disconnected.",
-      category: Faq,
-      panelId: Some(PanelSwitcherModel.PanelDatabases),
-      keywords: ["echidna", "connection", "error", "troubleshooting", "backend", "service"],
-    },
-    /// Explains the provenance bar and trust levels.
-    {
-      id: "faq-provenance-bar",
-      title: "What does the Provenance bar show?",
-      body: "The Provenance bar is a horizontal stacked bar chart showing the trust composition of your codebase. Each segment represents a trust level: green for Verified (formally proven), blue for Human Reviewed, yellow for AI Assisted (human-reviewed AI code), orange for Unreviewed AI (needs review), and grey for Unknown. The bar updates in real time as code is verified, reviewed, or added. Click any segment to drill down into the specific files at that trust level. The goal is to minimise orange and grey segments.",
-      category: Faq,
-      panelId: Some(PanelSwitcherModel.PanelSecurity),
-      keywords: [
-        "provenance",
-        "bar",
-        "trust level",
-        "verified",
-        "human reviewed",
-        "ai assisted",
-        "unreviewed",
-      ],
-    },
-    /// How to change the PanLL colour palette.
-    {
-      id: "faq-colour-palettes",
-      title: "How do I switch colour palettes?",
-      body: "PanLL supports multiple colour palettes for accessibility and preference. Open Settings (gear icon or Ctrl+,) and navigate to the Appearance section. Available palettes include the default neurosymbolic theme (dark with drift aura), a high-contrast mode for maximum readability, and several colour-blind-safe palettes (deuteranopia, protanopia, tritanopia). Each palette adjusts the drift aura colours, panel borders, and syntax highlighting to remain distinguishable. Changes apply immediately — no restart needed.",
-      category: Faq,
-      panelId: None,
-      keywords: [
-        "colour",
-        "color",
-        "palette",
-        "theme",
-        "accessibility",
-        "appearance",
-        "settings",
-        "contrast",
-      ],
-    },
-    // =========================================================================
-    // Architecture
-    // =========================================================================
-
-    /// The Binary Star architectural model.
-    {
-      id: "arch-binary-star",
-      title: "Binary Star Architecture",
-      body: "PanLL's core architecture models the relationship between symbolic and neural computation as a binary star system. Neither subsystem is primary — they co-orbit a shared barycentre, each influencing the other through gravitational coupling. The symbolic star provides formal guarantees (proofs, types, contracts). The neural star provides learned heuristics (pattern recognition, natural language understanding, probabilistic reasoning). Orbital stability measures how well these subsystems stay in sync. When they drift apart, the Drift Aura shifts colour to alert the operator.",
-      category: Architecture,
-      panelId: None,
-      keywords: [
-        "binary star",
-        "architecture",
-        "symbolic",
-        "neural",
-        "co-orbital",
-        "barycentre",
-        "drift",
-      ],
-    },
-    /// How the TEA update loop drives the PanLL UI.
-    {
-      id: "arch-tea-loop",
-      title: "TEA Update Loop",
-      body: "PanLL's UI is driven by The Elm Architecture (TEA): a unidirectional data flow where the entire application state is a single immutable value. Every user action produces a message (Msg), which is processed by an update function to produce a new state and optional side-effect commands (Cmd). The view function renders the state to virtual DOM, and the runtime diffs and patches the real DOM. This architecture guarantees predictable state transitions, makes time-travel debugging possible, and eliminates an entire class of UI bugs related to shared mutable state.",
-      category: Architecture,
-      panelId: None,
-      keywords: [
-        "tea",
-        "elm architecture",
-        "update loop",
-        "unidirectional",
-        "state",
-        "msg",
-        "cmd",
-        "view",
-      ],
-    },
-    /// How symbolic and neural systems integrate in PanLL.
-    {
-      id: "arch-neurosymbolic",
-      title: "Neurosymbolic Integration",
-      body: "PanLL integrates symbolic and neural computation at multiple levels. At the data level, VeriSimDB stores both formal proofs and neural predictions with unified provenance. At the reasoning level, ECHIDNA proofs can constrain neural outputs, and neural heuristics can guide proof search. At the UI level, the three-panel layout makes the symbolic-neural interaction visible and controllable. The Task Barycentre shows where each task sits on the spectrum. Contractiles enforce boundaries — for example, requiring that neural suggestions pass type checking before being presented to the operator.",
-      category: Architecture,
-      panelId: None,
-      keywords: [
-        "neurosymbolic",
-        "integration",
-        "symbolic",
-        "neural",
-        "barycentre",
-        "contractiles",
-        "proofs",
-      ],
-    },
-  ]
-}
-
-/// Returns the complete glossary of neurosymbolic terms used in PanLL.
-///
-/// Each glossary term has a human-readable name and an accessible
-/// definition written for users who may not have a background in
-/// formal methods or neural-symbolic AI. Definitions explain both
-/// what the term means and how it manifests in the PanLL interface.
-///
-/// Terms are returned in a logical grouping order: core architectural
-/// concepts first, then UI concepts, then specific subsystem names.
-///
-/// @returns The complete array of glossary terms
-let allGlossaryTerms = (): array<HelpModel.glossaryTerm> => {
-  [
-    /// The centre of gravity of a task on the symbolic-neural spectrum.
-    {
-      term: "Task Barycentre",
-      definition: "The centre of gravity of a task on the symbolic-neural spectrum. A task with high symbolic mass (many proofs, strict types) has its barycentre closer to the symbolic side. A task relying heavily on neural heuristics (ML inference, pattern matching) shifts toward the neural side. PanLL displays the barycentre as a position indicator, helping operators understand the nature of their current work and allocate attention accordingly.",
-      relatedTerms: [],
-      extendedDescription: None,
-    },
-    /// The weight of formal structure in a computation.
-    {
-      term: "Symbolic Mass",
-      definition: "The weight or density of formal structure in a computation — proofs, type constraints, contractiles, invariants, and specifications. High symbolic mass means the task is heavily constrained by formal reasoning. In PanLL, symbolic mass contributes to the Task Barycentre calculation and influences how much formal verification overhead a task carries. Increasing symbolic mass generally increases trust but also increases the cost of change.",
-      relatedTerms: [],
-      extendedDescription: None,
-    },
-    /// The flow of statistical and learned computation.
-    {
-      term: "Neural Stream",
-      definition: "The flow of statistical, learned, and probabilistic computation through the system. Neural streams carry predictions, generated text, pattern matches, and heuristic suggestions. In PanLL, neural streams are always visible and auditable — they flow through Panel-N where the operator can inspect, redirect, or halt them. Neural stream output that has not been formally verified carries a lower trust level.",
-      relatedTerms: [],
-      extendedDescription: None,
-    },
-    /// PanLL's co-orbital architecture model.
-    {
-      term: "Binary Star",
-      definition: "PanLL's co-orbital architecture model where the symbolic subsystem and neural subsystem orbit each other like a gravitationally bound binary star. Neither is primary — they exert mutual influence. The symbolic star provides rigour and guarantees; the neural star provides flexibility and learning. The system's health depends on orbital stability: if the two drift too far apart, reasoning becomes unreliable. The Drift Aura visualises this relationship.",
-      relatedTerms: [],
-      extendedDescription: None,
-    },
-    /// The agent reasoning cycle.
-    {
-      term: "OODA Loop",
-      definition: "Observe-Orient-Decide-Act: a decision cycle used for agent reasoning in PanLL. Agents observe the current state (panel data, verification results), orient by analysing context (symbolic constraints, neural predictions), decide on an action (suggest a fix, request a proof), and act (execute the decision). PanLL makes OODA loops visible in Panel-N so operators can inspect agent reasoning at each stage and intervene if needed.",
-      relatedTerms: [],
-      extendedDescription: None,
-    },
-    /// An elastic constraint with enforcement levels.
-    {
-      term: "Contractile",
-      definition: "An elastic constraint that can be enforced at different levels: Strict (hard failure on violation), Adaptive (warning with escalation), or Warn (informational only). Contractiles define boundaries for code quality, security, and correctness. For example, a contractile might require that all public functions have type annotations (Strict) or that neural suggestions are reviewed within 24 hours (Adaptive). Contractiles are defined in Trustfile.a2ml and enforced by the security system.",
-      relatedTerms: [],
-      extendedDescription: None,
-    },
-    /// A measure of operator frustration.
-    {
-      term: "Vexation Index",
-      definition: "A measure of operator frustration and friction in the interface. PanLL tracks interaction patterns (rapid undo sequences, repeated failed commands, dismissed suggestions) to estimate vexation. High vexation triggers adaptive UI responses: simplifying the interface, offering guided help, or reducing notification frequency. The vexation index is part of PanLL's accessibility-first design philosophy — the tool should reduce cognitive load, not add to it.",
-      relatedTerms: [],
-      extendedDescription: None,
-    },
-    /// How well the symbolic and neural subsystems stay in sync.
-    {
-      term: "Orbital Stability",
-      definition: "A measure of how well the symbolic and neural subsystems remain in synchronisation. High stability means proofs align with neural predictions, types match inferred behaviour, and formal specifications agree with learned models. Low stability indicates drift — the two subsystems are producing contradictory results. PanLL computes orbital stability continuously and displays it via the Drift Aura. Operators should investigate when stability drops below threshold.",
-      relatedTerms: [],
-      extendedDescription: None,
-    },
-    /// The visual indicator of orbital stability.
-    {
-      term: "Drift Aura",
-      definition: "A visual indicator of orbital stability rendered as a subtle background colour shift across the PanLL interface. When symbolic and neural subsystems are well-synchronised, the aura is calm and neutral. As drift increases, the aura shifts colour — typically toward warmer tones — alerting the operator that the Binary Star system needs attention. The aura's opacity is affected by the Humidity parameter. It is designed to be noticeable without being distracting.",
-      relatedTerms: [],
-      extendedDescription: None,
-    },
-    /// Deliberate friction for unreviewed AI code.
-    {
-      term: "Hostile UX",
-      definition: "A deliberate design pattern where PanLL applies friction to unreviewed AI-generated code. Rather than letting AI output flow smoothly into the codebase, Hostile UX demands explicit human review by making unreviewed code visually distinct (orange provenance highlighting), requiring additional confirmation steps, and blocking automated deployment. This is not a bug — it is a safety feature that ensures human oversight of AI contributions.",
-      relatedTerms: [],
-      extendedDescription: None,
-    },
-    /// The code trust surface.
-    {
-      term: "Provenance",
-      definition: "The trust surface of code showing who wrote it, how it was generated, and how much review it has received. PanLL tracks provenance at the function level, recording whether code was hand-written by a verified human, generated by AI with human review, generated by AI without review, or of unknown origin. Provenance data feeds into the Security panel's trust bar and the Hostile UX system. Higher provenance means higher deployment confidence.",
-      relatedTerms: [],
-      extendedDescription: None,
-    },
-    /// Classification of code authorship.
-    {
-      term: "Trust Level",
-      definition: "A classification of code authorship and review status. Five levels exist: Verified (formally proven correct), Human Reviewed (read and approved by a human), AI Assisted (AI-generated but human-reviewed), Unreviewed AI (AI-generated, not yet reviewed — triggers Hostile UX), and Unknown (no provenance data available). Trust levels are displayed in the provenance bar and determine what automated actions are permitted on the code.",
-      relatedTerms: [],
-      extendedDescription: None,
-    },
-    /// The cognitive governance system.
-    {
-      term: "Anti-Crash",
-      definition: "A cognitive governance system built into PanLL that halts operations when safety violations are detected. Anti-Crash monitors for conditions like unchecked believe_me in proofs, deployment of unreviewed AI code, contractile violations above threshold, and orbital stability collapse. When triggered, Anti-Crash pauses the pipeline and requires explicit operator acknowledgement before proceeding. It is the last line of defence against automated systems running off the rails.",
-      relatedTerms: [],
-      extendedDescription: None,
-    },
-    /// PanLL's initial splash screen.
-    {
-      term: "Dark Start",
-      definition: "PanLL's initial splash screen displayed during startup. Dark Start shows an animated visualisation of the Binary Star architecture while running backend diagnostics — checking connections to ECHIDNA, TypeLL, VeriSimDB, and other services. It provides visual feedback on initialisation progress. Once all systems are online, Dark Start fades into Standard Mode. A stalled Dark Start usually indicates a backend connectivity issue.",
-      relatedTerms: [],
-      extendedDescription: None,
-    },
-    /// Environmental parameter affecting drift aura.
-    {
-      term: "Humidity",
-      definition: "An environmental parameter that affects the opacity and visual prominence of the Drift Aura. Higher humidity makes the aura more visible; lower humidity makes it more subtle. Operators can adjust humidity in settings to match their preference — some prefer a clearly visible aura for constant awareness, while others prefer a faint one that only becomes noticeable during significant drift events. Humidity has no effect on the underlying orbital stability calculation.",
-      relatedTerms: [],
-      extendedDescription: None,
-    },
-    /// Taxonomic grouping of panels by function.
-    {
-      term: "Clade",
-      definition: "A taxonomic grouping of panels by function. PanLL organises its panels into clades: AI (neural reasoning panels), Bridge (integration and communication panels), Builder (development and construction panels), Verifier (formal verification panels), Monitor (observability panels), and others. Clades appear in the panel switcher as visual groupings, making it easier to find the right panel. The term is borrowed from biology, where a clade is a group sharing a common ancestor.",
-      relatedTerms: [],
-      extendedDescription: None,
-    },
-    /// The theorem prover backend.
-    {
-      term: "ECHIDNA",
-      definition: "The theorem prover backend used by PanLL for formal verification. ECHIDNA handles dependent types, refinement types, and constructive proofs. It runs as a separate service that PanLL connects to via its protocol. ECHIDNA proof results are stored in VeriSimDB and reflected in the provenance system. The name references the echidna — a creature that, like formal proofs, is spiny, resilient, and hard to argue with.",
-      relatedTerms: [],
-      extendedDescription: None,
-    },
-    /// The verification kernel.
-    {
-      term: "TypeLL",
-      definition: "PanLL's verification kernel for type checking and type inference. TypeLL operates as a lightweight, fast type checker that runs continuously as code is edited, providing immediate feedback on type errors and inferred types. For properties that go beyond what the type system can express, TypeLL delegates to ECHIDNA for full theorem proving. TypeLL is the first line of formal verification — fast and always-on.",
-      relatedTerms: [],
-      extendedDescription: None,
-    },
-    /// The verification-aware simulation database.
-    {
-      term: "VeriSimDB",
-      definition: "A verification-aware simulation database that stores test results, proof outcomes, simulation runs, and their provenance metadata. VeriSimDB is not just a data store — it understands the verification status of its contents and can answer queries like 'show me all functions whose proofs were invalidated by the last commit'. It serves as the persistent memory layer for the entire PanLL verification pipeline.",
-      relatedTerms: [],
-      extendedDescription: None,
-    },
-    /// The combination of neural and symbolic reasoning.
-    {
-      term: "Neurosymbolic",
-      definition: "An approach to artificial intelligence that combines neural networks (statistical learning from data) with symbolic reasoning (logical inference over structured representations). PanLL is a neurosymbolic system because it uses both: neural models for language understanding, code generation, and pattern recognition alongside symbolic systems for theorem proving, type checking, and formal verification. The Binary Star architecture makes this combination explicit and controllable.",
-      relatedTerms: [],
-      extendedDescription: None,
-    },
-    /// PanLL's full formal name.
-    {
-      term: "eNSAID",
-      definition: "Environment for NeSy-Agentic Integrated Development — the full formal name for PanLL. 'NeSy' stands for Neural-Symbolic, reflecting the neurosymbolic architecture. 'Agentic' refers to the autonomous agent reasoning capabilities (OODA loops, gitbot-fleet). 'Integrated Development' indicates that PanLL is a complete development environment, not just a viewer or monitor. In practice, everyone just calls it PanLL.",
-      relatedTerms: [],
-      extendedDescription: None,
-    },
-  ]
-}
diff --git a/src/core/HelpEngine.affine b/src/core/HelpEngine.affine
new file mode 100644
index 00000000..2839afba
--- /dev/null
+++ b/src/core/HelpEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module HelpEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/HelpEngine.res b/src/core/HelpEngine.res
deleted file mode 100644
index a77497ab..00000000
--- a/src/core/HelpEngine.res
+++ /dev/null
@@ -1,215 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// HelpEngine — Pure functional engine for the PanLL help system.
-///
-/// Contains all logic for searching, filtering, and navigating help content.
-/// Operates on data from HelpModel and HelpContent, keeping all state
-/// transformations pure and side-effect free.
-///
-/// The help system supports:
-/// - Full-text search across titles, bodies, and keywords
-/// - Category-based filtering (GettingStarted, Glossary, PanelGuide, Shortcuts, Faq, Architecture)
-/// - Panel-scoped contextual help
-/// - A glossary of neurosymbolic terminology
-/// - An 8-step onboarding walkthrough for new users
-///
-/// All functions are deterministic — given the same inputs, they always
-/// produce the same outputs. No side effects, no mutation.
-
-/// Returns the standard 8-step onboarding walkthrough for new PanLL users.
-///
-/// The walkthrough introduces users to the core concepts of the PanLL
-/// interface in a logical progression: from the overall layout, through
-/// the three-panel model, the Binary Star architecture, navigation,
-/// keyboard shortcuts, the glossary, contextual help, and finally
-/// encouragement to explore freely.
-let defaultOnboardingSteps = (): array<HelpModel.onboardingStep> => {
-  [
-    {
-      id: "welcome",
-      title: "Welcome to PanLL",
-      description: "PanLL (eNSAID) is your neurosymbolic mission control. This walkthrough will introduce the key concepts you need to get started.",
-      targetSelector: None,
-      completed: false,
-    },
-    {
-      id: "three-panels",
-      title: "The Three-Panel Layout",
-      description: "PanLL uses three panels: Panel-L (left) for constraints and formal structure, Panel-N (centre) for agent reasoning, and Panel-W (right) for results and output. Together they form the neurosymbolic workspace.",
-      targetSelector: Some(".panll-panels"),
-      completed: false,
-    },
-    {
-      id: "binary-star",
-      title: "Binary Star Architecture",
-      description: "Symbolic and neural subsystems orbit each other like a binary star system. The Drift Aura — a subtle background colour shift — shows you how stable that orbit is in real time.",
-      targetSelector: Some(".drift-aura"),
-      completed: false,
-    },
-    {
-      id: "panel-switcher",
-      title: "Panel Switcher",
-      description: "Use the panel switcher on the right edge to navigate between different tools: ECHIDNA (theorem proving), TypeLL (type checking), VeriSimDB (simulation database), Hypatia (security scanning), and many more. Panels are grouped by category.",
-      targetSelector: Some(".panel-switcher"),
-      completed: false,
-    },
-    {
-      id: "shortcuts",
-      title: "Keyboard Shortcuts",
-      description: "Press F1 or ? to open help at any time. Most panel switches have dedicated shortcuts for fast navigation. All shortcuts are customisable in the Workspace panel.",
-      targetSelector: None,
-      completed: false,
-    },
-    {
-      id: "glossary",
-      title: "The Glossary",
-      description: "PanLL uses specialised terminology from neurosymbolic computing. Open the Glossary tab in this help panel to look up any unfamiliar term, from 'Task Barycentre' to 'Hostile UX'.",
-      targetSelector: None,
-      completed: false,
-    },
-    {
-      id: "contextual-help",
-      title: "Contextual Help",
-      description: "When you open help from within a specific panel, the help system automatically filters to show content relevant to that panel. You can always clear the filter to see everything.",
-      targetSelector: None,
-      completed: false,
-    },
-    {
-      id: "start-exploring",
-      title: "Start Exploring",
-      description: "You are ready to go. Switch between panels, run verifications, inspect provenance, and monitor orbital stability. If you get stuck, this help system is always one shortcut away.",
-      targetSelector: None,
-      completed: false,
-    },
-  ]
-}
-
-/// Returns the default initial state for the help system.
-///
-/// Starts with empty collections for entries and glossary terms,
-/// which are populated from HelpContent when the help panel first opens.
-/// The onboarding walkthrough is inactive by default and includes the
-/// standard 8-step sequence.
-let defaultState: HelpModel.helpState = {
-  searchQuery: "",
-  filteredEntries: [],
-  activeCategory: GettingStarted,
-  activeEntry: None,
-  glossary: [],
-  onboarding: {
-    active: false,
-    currentStep: 0,
-    steps: defaultOnboardingSteps(),
-    completedOnce: false,
-  },
-  contextPanelId: None,
-}
-
-/// Searches help entries by matching a query string against each entry's
-/// title, body text, and keywords. Case-insensitive substring matching.
-/// An empty query returns all entries unchanged.
-let searchEntries = (query: string, entries: array<HelpModel.helpEntry>): array<
-  HelpModel.helpEntry,
-> => {
-  let q = String.toLowerCase(query)
-  if q === "" {
-    entries
-  } else {
-    entries->Array.filter(entry => {
-      let titleMatch = entry.title->String.toLowerCase->String.includes(q)
-      let bodyMatch = entry.body->String.toLowerCase->String.includes(q)
-      let keywordMatch =
-        entry.keywords->Array.some(kw => kw->String.toLowerCase->String.includes(q))
-      titleMatch || bodyMatch || keywordMatch
-    })
-  }
-}
-
-/// Filters help entries to only those belonging to the specified category.
-let filterByCategory = (
-  category: HelpModel.helpCategory,
-  entries: array<HelpModel.helpEntry>,
-): array<HelpModel.helpEntry> => {
-  entries->Array.filter(entry => entry.category === category)
-}
-
-/// Filters help entries by their associated panel ID.
-/// If panelId is None, all entries are returned unfiltered.
-let filterByPanel = (
-  panelId: option<PanelSwitcherModel.panelId>,
-  entries: array<HelpModel.helpEntry>,
-): array<HelpModel.helpEntry> => {
-  switch panelId {
-  | None => entries
-  | Some(pid) =>
-    entries->Array.filter(entry => {
-      switch entry.panelId {
-      | None => false
-      | Some(entryPid) => entryPid === pid
-      }
-    })
-  }
-}
-
-/// Finds a single help entry by its unique string identifier.
-let findEntry = (id: string, entries: array<HelpModel.helpEntry>): option<HelpModel.helpEntry> => {
-  entries->Array.find(entry => entry.id === id)
-}
-
-/// Finds a glossary term by exact case-insensitive match on the term name.
-let findGlossaryTerm = (term: string, glossary: array<HelpModel.glossaryTerm>): option<
-  HelpModel.glossaryTerm,
-> => {
-  let t = String.toLowerCase(term)
-  glossary->Array.find(g => g.term->String.toLowerCase === t)
-}
-
-/// Searches the glossary by matching a query against both term names
-/// and their definitions. Case-insensitive. Empty query returns all terms.
-let searchGlossary = (query: string, glossary: array<HelpModel.glossaryTerm>): array<
-  HelpModel.glossaryTerm,
-> => {
-  let q = String.toLowerCase(query)
-  if q === "" {
-    glossary
-  } else {
-    glossary->Array.filter(g => {
-      let termMatch = g.term->String.toLowerCase->String.includes(q)
-      let defMatch = g.definition->String.toLowerCase->String.includes(q)
-      termMatch || defMatch
-    })
-  }
-}
-
-/// Converts a help category variant to a human-readable display label.
-let categoryLabel = (cat: HelpModel.helpCategory): string => {
-  switch cat {
-  | GettingStarted => "Getting Started"
-  | Glossary => "Glossary"
-  | PanelGuide => "Panel Guides"
-  | Shortcuts => "Shortcuts"
-  | Faq => "FAQ"
-  | Architecture => "Architecture"
-  }
-}
-
-/// Advances the onboarding walkthrough to the next step.
-/// If at the last step, marks onboarding as complete.
-let nextOnboardingStep = (state: HelpModel.onboardingState): HelpModel.onboardingState => {
-  let maxStep = Array.length(state.steps) - 1
-  if state.currentStep >= maxStep {
-    {...state, active: false, completedOnce: true}
-  } else {
-    {...state, currentStep: state.currentStep + 1}
-  }
-}
-
-/// Moves the onboarding walkthrough back to the previous step.
-/// If at the first step, returns state unchanged.
-let prevOnboardingStep = (state: HelpModel.onboardingState): HelpModel.onboardingState => {
-  if state.currentStep <= 0 {
-    state
-  } else {
-    {...state, currentStep: state.currentStep - 1}
-  }
-}
diff --git a/src/core/HypatiaEngine.affine b/src/core/HypatiaEngine.affine
new file mode 100644
index 00000000..1cf61dbb
--- /dev/null
+++ b/src/core/HypatiaEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module HypatiaEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/HypatiaEngine.res b/src/core/HypatiaEngine.res
deleted file mode 100644
index 71c802bb..00000000
--- a/src/core/HypatiaEngine.res
+++ /dev/null
@@ -1,622 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Hypatia Engine — pure computation for the Hypatia panel.
-///
-/// Parses Elixir API responses, computes aggregate metrics, filters
-/// and sorts scan results, and provides display helpers.
-
-open HypatiaModel
-open FleetModel
-
-/// Human-readable label for a neural network ID.
-let netLabel = (id: neuralNetId): string =>
-  switch id {
-  | GraphOfTrust => "Graph of Trust"
-  | MixtureOfExperts => "Mixture of Experts"
-  | LiquidStateMachine => "Liquid State Machine"
-  | EchoStateNetwork => "Echo State Network"
-  | RadialNeuralNetwork => "Radial Neural Network"
-  }
-
-/// Description of what each network does.
-let netDescription = (id: neuralNetId): string =>
-  switch id {
-  | GraphOfTrust => "PageRank trust over repos/bots/recipes"
-  | MixtureOfExperts => "Domain-specific confidence (7 experts)"
-  | LiquidStateMachine => "Temporal anomaly detection"
-  | EchoStateNetwork => "Confidence trajectory forecasting"
-  | RadialNeuralNetwork => "Finding similarity + novelty detection"
-  }
-
-/// CSS class for network status indicator.
-let netStatusColor = (status: neuralNetStatus): string =>
-  switch status {
-  | NetActive => "bg-green-400"
-  | NetTraining => "bg-blue-400 animate-pulse"
-  | NetOffline => "bg-gray-500"
-  | NetError(_) => "bg-red-400"
-  }
-
-/// Human-readable label for a pipeline stage.
-let stageLabel = (stage: pipelineStage): string =>
-  switch stage {
-  | Ingestion => "Ingestion"
-  | Analysis => "Analysis"
-  | Routing => "Routing"
-  | Dispatch => "Dispatch"
-  | Complete => "Complete"
-  }
-
-/// Category tab label.
-let categoryLabel = (cat: hypatiaCategory): string =>
-  switch cat {
-  | HypatiaDashboard => "Dashboard"
-  | HypatiaScans => "Scans"
-  | HypatiaQuarantine => "Quarantine"
-  | HypatiaNeural => "Neural"
-  | HypatiaRecipes => "Recipes"
-  }
-
-/// Filter scan results by text search.
-let filterScans = (scans: array<scanResult>, query: string): array<scanResult> => {
-  if query === "" {
-    scans
-  } else {
-    let q = String.toLowerCase(query)
-    scans->Array.filter(s => String.includes(String.toLowerCase(s.repoName), q))
-  }
-}
-
-/// Compute average confidence across all active networks.
-let avgConfidence = (networks: array<neuralNetState>): float => {
-  let active = networks->Array.filter(n =>
-    switch n.status {
-    | NetActive => true
-    | _ => false
-    }
-  )
-  if Array.length(active) > 0 {
-    active->Array.map(n => n.confidence)->Array.reduce(0.0, (a, b) => a +. b) /.
-      Int.toFloat(Array.length(active))
-  } else {
-    0.0
-  }
-}
-
-/// Parse a neural network ID string into a neuralNetId variant.
-let parseNetId = (s: string): option<neuralNetId> =>
-  switch s {
-  | "graph_of_trust" => Some(GraphOfTrust)
-  | "mixture_of_experts" => Some(MixtureOfExperts)
-  | "liquid_state_machine" => Some(LiquidStateMachine)
-  | "echo_state_network" => Some(EchoStateNetwork)
-  | "radial_neural_network" => Some(RadialNeuralNetwork)
-  | _ => None
-  }
-
-/// Parse a neural network status string into a neuralNetStatus variant.
-let parseNetStatus = (s: string): neuralNetStatus =>
-  switch s {
-  | "active" => NetActive
-  | "training" => NetTraining
-  | "offline" => NetOffline
-  | _ => NetError(s)
-  }
-
-/// Tea_Json decoder for a single neural network state.
-/// Validates the network ID, skipping unknown networks.
-let networkDecoder: Tea_Json.decoder<neuralNetState> = json => {
-  open Decoders
-  open Tea_Json
-  let inner = map5(
-    (idStr, statusStr, confidence, inferenceCount, version) => (
-      idStr,
-      statusStr,
-      confidence,
-      inferenceCount,
-      version,
-    ),
-    stringField("id"),
-    stringField("status"),
-    floatField("confidence"),
-    intField("inference_count"),
-    stringField("version"),
-  )
-  switch inner(json) {
-  | Ok((idStr, statusStr, confidence, inferenceCount, version)) =>
-    switch parseNetId(idStr) {
-    | Some(netId) =>
-      Ok(
-        (
-          {
-            id: netId,
-            status: parseNetStatus(statusStr),
-            confidence,
-            inferenceCount,
-            version,
-          }: neuralNetState
-        ),
-      )
-    | None => Error(Failure(`Unknown neural net id: ${idStr}`, json))
-    }
-  | Error(e) => Error(e)
-  }
-}
-
-/// Parse neural network states from API JSON.
-let parseNetworks = (json: string): result<array<neuralNetState>, string> =>
-  Decoders.decode(Decoders.lenientArray(networkDecoder), json)
-
-/// Tea_Json decoder for a single scan result.
-let scanResultDecoder: Tea_Json.decoder<scanResult> = {
-  open Decoders
-  map6((repoName, riskScore, findingCount, quarantineCount, lastScanned, passed): scanResult => {
-    repoName,
-    riskScore,
-    findingCount,
-    quarantineCount,
-    lastScanned,
-    passed,
-  }, stringField(
-    "repo_name",
-  ), floatField(
-    "risk_score",
-  ), intField(
-    "finding_count",
-  ), intField("quarantine_count"), stringField("last_scanned"), boolField("passed"))
-}
-
-/// Parse scan results from API JSON.
-let parseScans = (json: string): result<array<scanResult>, string> =>
-  Decoders.decode(Decoders.lenientArray(scanResultDecoder), json)
-
-/// Safety tier label.
-let tierLabel = (tier: safetyTier): string =>
-  switch tier {
-  | Eliminate => "Eliminate"
-  | Substitute => "Substitute"
-  | Control => "Control"
-  }
-
-/// Safety tier colour class.
-let tierColor = (tier: safetyTier): string =>
-  switch tier {
-  | Eliminate => "text-red-400"
-  | Substitute => "text-amber-400"
-  | Control => "text-blue-400"
-  }
-
-/// Safety tier background colour class.
-let tierBg = (tier: safetyTier): string =>
-  switch tier {
-  | Eliminate => "bg-red-900/30 border-red-800"
-  | Substitute => "bg-amber-900/30 border-amber-800"
-  | Control => "bg-blue-900/30 border-blue-800"
-  }
-
-/// Built-in sample recipe entries (the 34-recipe Hypatia inventory).
-let sampleRecipes = (): array<recipeEntry> => [
-  {
-    id: "hyp-001",
-    name: "believe_me detector",
-    description: "Flags Idris2 believe_me — proof-hole that compiles silently",
-    confidence: 0.99,
-    tier: Eliminate,
-    hasFixScript: true,
-    languages: ["Idris2"],
-    timesTriggered: 4566,
-    lastTriggered: "2026-02-22",
-  },
-  {
-    id: "hyp-002",
-    name: "sorry detector",
-    description: "Flags Lean sorry — incomplete proof placeholder",
-    confidence: 0.99,
-    tier: Eliminate,
-    hasFixScript: true,
-    languages: ["Lean"],
-    timesTriggered: 0,
-    lastTriggered: "never",
-  },
-  {
-    id: "hyp-003",
-    name: "Admitted detector",
-    description: "Flags Coq Admitted — unproven theorem accepted",
-    confidence: 0.99,
-    tier: Eliminate,
-    hasFixScript: false,
-    languages: ["Coq"],
-    timesTriggered: 22,
-    lastTriggered: "2026-02-18",
-  },
-  {
-    id: "hyp-004",
-    name: "unsafeCoerce detector",
-    description: "Flags Haskell unsafeCoerce — type-system bypass",
-    confidence: 0.98,
-    tier: Eliminate,
-    hasFixScript: true,
-    languages: ["Haskell"],
-    timesTriggered: 3,
-    lastTriggered: "2026-01-15",
-  },
-  {
-    id: "hyp-005",
-    name: "Obj.magic detector",
-    description: "Flags OCaml Obj.magic — unsafe type coercion",
-    confidence: 0.98,
-    tier: Eliminate,
-    hasFixScript: true,
-    languages: ["OCaml"],
-    timesTriggered: 1,
-    lastTriggered: "2026-02-10",
-  },
-  {
-    id: "hyp-006",
-    name: "assert_total guard",
-    description: "Flags Idris2 assert_total — totality escape hatch",
-    confidence: 0.97,
-    tier: Substitute,
-    hasFixScript: true,
-    languages: ["Idris2"],
-    timesTriggered: 0,
-    lastTriggered: "never",
-  },
-  {
-    id: "hyp-007",
-    name: "SPDX header check",
-    description: "Verifies SPDX-License-Identifier present in all source files",
-    confidence: 0.99,
-    tier: Control,
-    hasFixScript: true,
-    languages: ["*"],
-    timesTriggered: 892,
-    lastTriggered: "2026-03-14",
-  },
-  {
-    id: "hyp-008",
-    name: "SHA pin validator",
-    description: "Ensures GitHub Actions use SHA-pinned versions",
-    confidence: 0.99,
-    tier: Eliminate,
-    hasFixScript: true,
-    languages: ["YAML"],
-    timesTriggered: 341,
-    lastTriggered: "2026-03-14",
-  },
-  {
-    id: "hyp-009",
-    name: "permissions: read-all",
-    description: "Verifies workflow-level read-all permissions",
-    confidence: 0.98,
-    tier: Control,
-    hasFixScript: true,
-    languages: ["YAML"],
-    timesTriggered: 257,
-    lastTriggered: "2026-03-13",
-  },
-  {
-    id: "hyp-010",
-    name: "npm/bun blocker",
-    description: "Blocks npm/bun usage — enforces Deno-first policy",
-    confidence: 0.99,
-    tier: Eliminate,
-    hasFixScript: false,
-    languages: ["JSON", "YAML"],
-    timesTriggered: 45,
-    lastTriggered: "2026-03-10",
-  },
-  {
-    id: "hyp-011",
-    name: "TypeScript blocker",
-    description: "Blocks .ts/.tsx files — enforces ReScript-first policy",
-    confidence: 0.99,
-    tier: Eliminate,
-    hasFixScript: false,
-    languages: ["TypeScript"],
-    timesTriggered: 12,
-    lastTriggered: "2026-03-08",
-  },
-  {
-    id: "hyp-012",
-    name: "SCM file location",
-    description: "Ensures STATE/META/ECOSYSTEM.scm are in .machine_readable/ only",
-    confidence: 0.99,
-    tier: Eliminate,
-    hasFixScript: true,
-    languages: ["Scheme"],
-    timesTriggered: 15,
-    lastTriggered: "2026-02-20",
-  },
-  {
-    id: "hyp-013",
-    name: "secret scanner",
-    description: "Detects API keys, tokens, passwords in source code",
-    confidence: 0.95,
-    tier: Eliminate,
-    hasFixScript: false,
-    languages: ["*"],
-    timesTriggered: 7,
-    lastTriggered: "2026-03-01",
-  },
-  {
-    id: "hyp-014",
-    name: "unsafe block auditor",
-    description: "Audits Rust unsafe blocks for // SAFETY: comments",
-    confidence: 0.97,
-    tier: Substitute,
-    hasFixScript: true,
-    languages: ["Rust"],
-    timesTriggered: 28,
-    lastTriggered: "2026-03-12",
-  },
-  {
-    id: "hyp-015",
-    name: "editorconfig check",
-    description: "Validates .editorconfig present and correct",
-    confidence: 0.99,
-    tier: Control,
-    hasFixScript: true,
-    languages: ["*"],
-    timesTriggered: 8,
-    lastTriggered: "2026-02-14",
-  },
-  {
-    id: "hyp-016",
-    name: "CODEQL matrix",
-    description: "Validates CodeQL language matrix matches repo languages",
-    confidence: 0.96,
-    tier: Control,
-    hasFixScript: true,
-    languages: ["YAML"],
-    timesTriggered: 34,
-    lastTriggered: "2026-03-14",
-  },
-  {
-    id: "hyp-017",
-    name: "Trustfile validator",
-    description: "Validates Trustfile.a2ml structure and security level",
-    confidence: 0.93,
-    tier: Control,
-    hasFixScript: false,
-    languages: ["A2ML"],
-    timesTriggered: 4,
-    lastTriggered: "2026-02-22",
-  },
-  {
-    id: "hyp-018",
-    name: "TOPOLOGY.md checker",
-    description: "Verifies TOPOLOGY.md has architecture diagram + dashboard",
-    confidence: 0.91,
-    tier: Control,
-    hasFixScript: true,
-    languages: ["Markdown"],
-    timesTriggered: 261,
-    lastTriggered: "2026-03-14",
-  },
-  {
-    id: "hyp-019",
-    name: "mirror sync check",
-    description: "Ensures GitLab/Bitbucket mirrors are in sync",
-    confidence: 0.95,
-    tier: Control,
-    hasFixScript: true,
-    languages: ["YAML"],
-    timesTriggered: 19,
-    lastTriggered: "2026-03-13",
-  },
-  {
-    id: "hyp-020",
-    name: "Justfile present",
-    description: "Validates justfile exists with standard recipes",
-    confidence: 0.97,
-    tier: Control,
-    hasFixScript: true,
-    languages: ["Just"],
-    timesTriggered: 190,
-    lastTriggered: "2026-03-14",
-  },
-  {
-    id: "hyp-021",
-    name: "AI manifest check",
-    description: "Verifies 0-AI-MANIFEST.a2ml or AI.a2ml present",
-    confidence: 0.98,
-    tier: Control,
-    hasFixScript: true,
-    languages: ["A2ML"],
-    timesTriggered: 173,
-    lastTriggered: "2026-03-14",
-  },
-  {
-    id: "hyp-022",
-    name: "branch protection",
-    description: "Checks main branch protection rules enabled",
-    confidence: 0.94,
-    tier: Substitute,
-    hasFixScript: true,
-    languages: ["*"],
-    timesTriggered: 8,
-    lastTriggered: "2026-02-14",
-  },
-  {
-    id: "hyp-023",
-    name: "scorecard >= 7.0",
-    description: "Ensures OpenSSF Scorecard passes with score >= 7.0",
-    confidence: 0.92,
-    tier: Substitute,
-    hasFixScript: false,
-    languages: ["*"],
-    timesTriggered: 52,
-    lastTriggered: "2026-03-13",
-  },
-  {
-    id: "hyp-024",
-    name: "TruffleHog scan",
-    description: "Runs TruffleHog for leaked credentials in history",
-    confidence: 0.95,
-    tier: Eliminate,
-    hasFixScript: false,
-    languages: ["*"],
-    timesTriggered: 3,
-    lastTriggered: "2026-02-28",
-  },
-  {
-    id: "hyp-025",
-    name: "Guix/Nix policy",
-    description: "Enforces Guix/Nix packaging policy",
-    confidence: 0.90,
-    tier: Control,
-    hasFixScript: false,
-    languages: ["Nix", "Guile"],
-    timesTriggered: 0,
-    lastTriggered: "never",
-  },
-  {
-    id: "hyp-026",
-    name: "workflow linter",
-    description: "Validates GitHub Actions workflow syntax and best practices",
-    confidence: 0.97,
-    tier: Control,
-    hasFixScript: true,
-    languages: ["YAML"],
-    timesTriggered: 67,
-    lastTriggered: "2026-03-14",
-  },
-  {
-    id: "hyp-027",
-    name: "RSR antipattern",
-    description: "Detects Rhodium Standard Repository antipatterns",
-    confidence: 0.94,
-    tier: Substitute,
-    hasFixScript: true,
-    languages: ["*"],
-    timesTriggered: 31,
-    lastTriggered: "2026-03-12",
-  },
-  {
-    id: "hyp-028",
-    name: "SECURITY.md check",
-    description: "Validates SECURITY.md present with proper disclosure policy",
-    confidence: 0.98,
-    tier: Control,
-    hasFixScript: true,
-    languages: ["Markdown"],
-    timesTriggered: 15,
-    lastTriggered: "2026-02-22",
-  },
-  {
-    id: "hyp-029",
-    name: ".well-known check",
-    description: "Validates .well-known/ directory contents",
-    confidence: 0.91,
-    tier: Control,
-    hasFixScript: true,
-    languages: ["*"],
-    timesTriggered: 8,
-    lastTriggered: "2026-02-14",
-  },
-  {
-    id: "hyp-030",
-    name: "author attribution",
-    description: "Validates author name/email in package manifests",
-    confidence: 0.97,
-    tier: Control,
-    hasFixScript: true,
-    languages: ["TOML", "JSON"],
-    timesTriggered: 42,
-    lastTriggered: "2026-03-10",
-  },
-  {
-    id: "hyp-031",
-    name: "duplicate workflow",
-    description: "Detects duplicate GitHub Actions workflows",
-    confidence: 0.96,
-    tier: Substitute,
-    hasFixScript: true,
-    languages: ["YAML"],
-    timesTriggered: 5,
-    lastTriggered: "2026-02-22",
-  },
-  {
-    id: "hyp-032",
-    name: "transmute ban",
-    description: "Bans std::mem::transmute in Rust except FFI boundaries",
-    confidence: 0.98,
-    tier: Eliminate,
-    hasFixScript: false,
-    languages: ["Rust"],
-    timesTriggered: 0,
-    lastTriggered: "never",
-  },
-  {
-    id: "hyp-033",
-    name: "nested .git detector",
-    description: "Detects rogue .git directories inside monorepo subdirectories",
-    confidence: 0.99,
-    tier: Eliminate,
-    hasFixScript: true,
-    languages: ["*"],
-    timesTriggered: 117,
-    lastTriggered: "2026-02-20",
-  },
-  {
-    id: "hyp-034",
-    name: "SLSA provenance",
-    description: "Validates SLSA build provenance attestation",
-    confidence: 0.90,
-    tier: Substitute,
-    hasFixScript: false,
-    languages: ["*"],
-    timesTriggered: 2,
-    lastTriggered: "2026-03-01",
-  },
-  {
-    id: "hyp-035",
-    name: "innerHTML ban (SafeDOM)",
-    description: "Flags innerHTML/outerHTML usage outside SafeDOMCore — all DOM mounts must use SafeDOM defence-in-depth",
-    confidence: 0.99,
-    tier: Eliminate,
-    hasFixScript: true,
-    languages: ["ReScript", "JavaScript"],
-    timesTriggered: 0,
-    lastTriggered: "never",
-  },
-]
-
-/// Filter recipes by text search.
-let filterRecipes = (recipes: array<recipeEntry>, query: string): array<recipeEntry> => {
-  if query === "" {
-    recipes
-  } else {
-    let q = String.toLowerCase(query)
-    recipes->Array.filter(r =>
-      String.includes(String.toLowerCase(r.name), q) ||
-      String.includes(String.toLowerCase(r.description), q) ||
-      r.languages->Array.some(l => String.includes(String.toLowerCase(l), q))
-    )
-  }
-}
-
-/// Find a recipe by id.
-let findRecipe = (recipes: array<recipeEntry>, id: string): option<recipeEntry> =>
-  recipes->Array.find(r => r.id === id)
-
-/// Default initial state.
-let defaultState: hypatiaState = {
-  loaded: false,
-  loading: false,
-  error: None,
-  networks: [],
-  scans: [],
-  learningCycle: None,
-  activeCategory: HypatiaDashboard,
-  filterText: "",
-  totalRepos: 0,
-  quarantinedCount: 0,
-  triangleCounts: None,
-  recipes: None,
-  recipeEntries: sampleRecipes(),
-  selectedRecipe: None,
-  recipeFilter: "",
-  outcomes: None,
-}
diff --git a/src/core/InterfacesEngine.affine b/src/core/InterfacesEngine.affine
new file mode 100644
index 00000000..47826fd7
--- /dev/null
+++ b/src/core/InterfacesEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module InterfacesEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/InterfacesEngine.res b/src/core/InterfacesEngine.res
deleted file mode 100644
index 5edcd6fe..00000000
--- a/src/core/InterfacesEngine.res
+++ /dev/null
@@ -1,52 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Interfaces Engine — pure computation for ABI/FFI inventory.
-
-open InterfacesModel
-
-let categoryLabel = (cat: interfacesCategory): string =>
-  switch cat {
-  | IfaceDashboard => "Dashboard"
-  | IfaceAbi => "ABI (Idris2)"
-  | IfaceFfi => "FFI (Zig)"
-  | IfaceBindings => "Bindings"
-  }
-
-/// Total ABI exports across all definitions.
-let totalAbiExports = (defs: array<abiDefinition>): int =>
-  defs->Array.reduce(0, (acc, d) => acc + d.exportCount)
-
-/// Total believe_me count (should always be 0 in proven-servers).
-let totalBelieveMe = (defs: array<abiDefinition>): int =>
-  defs->Array.reduce(0, (acc, d) => acc + d.believeMeCount)
-
-/// Overall verification rate.
-let verificationRate = (defs: array<abiDefinition>): float => {
-  if Array.length(defs) > 0 {
-    let verified = defs->Array.filter(d => d.verified)->Array.length
-    Int.toFloat(verified) /. Int.toFloat(Array.length(defs))
-  } else {
-    0.0
-  }
-}
-
-/// Average binding coverage across all languages.
-let avgCoverage = (bindings: array<bindingCoverage>): float => {
-  if Array.length(bindings) > 0 {
-    bindings->Array.map(b => b.coverage)->Array.reduce(0.0, (a, b) => a +. b) /.
-      Int.toFloat(Array.length(bindings))
-  } else {
-    0.0
-  }
-}
-
-let defaultState: interfacesState = {
-  loaded: false,
-  loading: false,
-  error: None,
-  abiDefs: [],
-  ffiImpls: [],
-  bindings: [],
-  activeCategory: IfaceDashboard,
-  totalBelieveMe: 0,
-}
diff --git a/src/core/K9Engine.affine b/src/core/K9Engine.affine
new file mode 100644
index 00000000..251c714b
--- /dev/null
+++ b/src/core/K9Engine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module K9Engine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/K9Engine.res b/src/core/K9Engine.res
deleted file mode 100644
index c688a78a..00000000
--- a/src/core/K9Engine.res
+++ /dev/null
@@ -1,555 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL K9 Engine — pure functions for parsing, validating, and querying K9
-/// contractile files (.k9.ncl). K9 files are Nickel configuration components
-/// with three security levels:
-///
-///   - Kennel: Pure data configuration. No execution, no contracts, no I/O.
-///     Identified by `leash = 'Kennel` or absence of contracts/recipes.
-///
-///   - Yard: Configuration with Nickel contract validation. Has type contracts
-///     and validation blocks but no execution recipes. No I/O.
-///     Identified by `leash = 'Yard` or presence of contracts without recipes.
-///
-///   - Hunt: Full execution with Just recipes. Has system access, network,
-///     filesystem writes, subprocess spawning. Requires signature.
-///     Identified by `leash = 'Hunt` or presence of `recipes` blocks.
-///
-/// K9 files may also serve as layout presets for PanLL panel arrangements
-/// (e.g., `layouts/protocol-design.k9.ncl`), which define pane sizes,
-/// promoted actions, and default prover configurations.
-///
-/// All functions are pure — no side effects, no Gossamer invocations, no I/O.
-
-// ============================================================================
-// Types
-// ============================================================================
-
-/// The three K9 security trust levels, ordered by increasing privilege.
-type k9SecurityLevel =
-  | Kennel
-  | Yard
-  | Hunt
-
-/// A parsed K9 contractile with metadata and validation status.
-type k9Contractile = {
-  path: string,
-  name: string,
-  securityLevel: k9SecurityLevel,
-  isValid: bool,
-  errors: array<string>,
-}
-
-/// A parsed panel layout configuration extracted from a K9 layout file.
-type k9Layout = {
-  name: string,
-  panels: array<string>,
-  discipline: string,
-}
-
-/// Structured metadata extracted from a K9 pedigree block.
-type k9Pedigree = {
-  schemaVersion: string,
-  componentType: string,
-  trustLevel: string,
-  allowNetwork: bool,
-  allowFilesystemWrite: bool,
-  allowSubprocess: bool,
-  author: string,
-  description: string,
-}
-
-// ============================================================================
-// Internal Helpers
-// ============================================================================
-
-/// Trim whitespace from both ends.
-let trim = (s: string): string => {
-  s->String.trim
-}
-
-/// Check if content contains the K9 magic header.
-let hasK9Magic = (content: string): bool => {
-  let trimmed = trim(content)
-  String.startsWith(trimmed, "K9!")
-}
-
-/// Check if content contains Nickel contract annotations (pipes with types).
-let hasNickelContracts = (content: string): bool => {
-  // Yard-level files use Nickel contract syntax: `| Type`, `| std.contract.*`
-  String.includes(content, "| String") ||
-  String.includes(content, "| Number") ||
-  String.includes(content, "| Bool") ||
-  String.includes(content, "| Array") ||
-  String.includes(content, "| std.contract") ||
-  String.includes(content, "| std.string") ||
-  String.includes(content, "| std.array")
-}
-
-/// Check if content contains execution recipes (Hunt-level).
-let hasRecipes = (content: string): bool => {
-  String.includes(content, "recipes = {") || String.includes(content, "recipes=")
-}
-
-/// Check if content declares a specific leash level.
-let declaresLeash = (content: string, level: string): bool => {
-  String.includes(content, `leash = '${level}`)
-}
-
-/// Extract a string value from a `key = "value"` or `key = 'value` line pattern.
-let extractStringValue = (content: string, key: string): option<string> => {
-  // Look for `key = "value"` pattern
-  let pattern = `${key} = "`
-  let idx = String.indexOf(content, pattern)
-  if idx >= 0 {
-    let afterKey = String.sliceToEnd(content, ~start=idx + String.length(pattern))
-    let endIdx = String.indexOf(afterKey, "\"")
-    if endIdx >= 0 {
-      Some(String.slice(afterKey, ~start=0, ~end=endIdx))
-    } else {
-      None
-    }
-  } else {
-    // Try `key = 'EnumValue` pattern (Nickel enum)
-    let enumPattern = `${key} = '`
-    let enumIdx = String.indexOf(content, enumPattern)
-    if enumIdx >= 0 {
-      let afterKey = String.sliceToEnd(content, ~start=enumIdx + String.length(enumPattern))
-      // Take until comma, newline, or whitespace
-      let chars = String.split(afterKey, "")
-      let result = ref("")
-      let done = ref(false)
-      chars->Array.forEach(c => {
-        if !done.contents {
-          if c == "," || c == "\n" || c == " " || c == "}" {
-            done := true
-          } else {
-            result := result.contents ++ c
-          }
-        }
-      })
-      if result.contents != "" {
-        Some(result.contents)
-      } else {
-        None
-      }
-    } else {
-      None
-    }
-  }
-}
-
-/// Extract a boolean value from a `key = true/false` pattern.
-let extractBoolValue = (content: string, key: string): option<bool> => {
-  if String.includes(content, `${key} = true`) {
-    Some(true)
-  } else if String.includes(content, `${key} = false`) {
-    Some(false)
-  } else {
-    None
-  }
-}
-
-/// Extract a numeric value from a `key = 42` pattern.
-let extractIntValue = (content: string, key: string): option<int> => {
-  let pattern = `${key} = `
-  let idx = String.indexOf(content, pattern)
-  if idx >= 0 {
-    let afterKey = String.sliceToEnd(content, ~start=idx + String.length(pattern))
-    let chars = String.split(afterKey, "")
-    let digits = ref("")
-    let done = ref(false)
-    chars->Array.forEach(c => {
-      if !done.contents {
-        if c >= "0" && c <= "9" {
-          digits := digits.contents ++ c
-        } else {
-          done := true
-        }
-      }
-    })
-    Int.fromString(digits.contents)
-  } else {
-    None
-  }
-}
-
-/// Extract an array of strings from a `key = ["a", "b"]` pattern.
-let extractStringArray = (content: string, key: string): array<string> => {
-  let pattern = `${key} = [`
-  let idx = String.indexOf(content, pattern)
-  if idx >= 0 {
-    let afterKey = String.sliceToEnd(content, ~start=idx + String.length(pattern))
-    let endIdx = String.indexOf(afterKey, "]")
-    if endIdx >= 0 {
-      let arrayContent = String.slice(afterKey, ~start=0, ~end=endIdx)
-      arrayContent
-      ->String.split(",")
-      ->Array.map(s => {
-        let trimmed = trim(s)
-
-        // Remove surrounding quotes
-        if String.startsWith(trimmed, "\"") && String.endsWith(trimmed, "\"") {
-          String.slice(trimmed, ~start=1, ~end=String.length(trimmed) - 1)
-        } else {
-          trimmed
-        }
-      })
-      ->Array.filter(s => s != "")
-    } else {
-      []
-    }
-  } else {
-    []
-  }
-}
-
-// ============================================================================
-// Public API
-// ============================================================================
-
-/// Detect the security level of a K9 file from its content.
-///
-/// Priority:
-///   1. Explicit `leash = 'Hunt/Yard/Kennel` declaration takes precedence.
-///   2. If `recipes` block present → Hunt.
-///   3. If Nickel contracts present → Yard.
-///   4. Otherwise → Kennel (pure data).
-let detectSecurityLevel = (content: string): k9SecurityLevel => {
-  // Check explicit leash declarations first
-  if declaresLeash(content, "Hunt") {
-    Hunt
-  } else if declaresLeash(content, "Yard") {
-    Yard
-  } else if declaresLeash(content, "Kennel") {
-    Kennel
-  } else if hasRecipes(content) {
-    // Implicit detection: recipes means Hunt
-    Hunt
-  } else if hasNickelContracts(content) {
-    // Implicit detection: contracts means Yard
-    Yard
-  } else {
-    // Default: pure data
-    Kennel
-  }
-}
-
-/// Validate the structural integrity of a K9 contractile.
-///
-/// Checks:
-///   - Non-empty content
-///   - K9 magic header present (if K9 template format)
-///   - Pedigree block present
-///   - Security level consistency (declared vs detected)
-///   - Hunt-level files must declare side_effects
-///   - Hunt-level files must have signature_required = true
-let validateContractile = (content: string, ~path: string=""): k9Contractile => {
-  let errors: array<string> = []
-  let trimmedContent = trim(content)
-
-  if String.length(trimmedContent) == 0 {
-    let _ = errors->Array.push("Empty K9 file")
-  }
-
-  // Check for pedigree block
-  let hasPedigree =
-    String.includes(content, "pedigree = {") || String.includes(content, "pedigree=")
-  if !hasPedigree && !String.includes(content, "LayoutPreset") {
-    // Layout files import pedigree from pedigree-layout.ncl, so they're exempt
-    let _ = errors->Array.push("Missing pedigree block")
-  }
-
-  let detectedLevel = detectSecurityLevel(content)
-
-  // Hunt-level specific checks
-  if detectedLevel == Hunt {
-    if !String.includes(content, "side_effects") {
-      let _ = errors->Array.push("Hunt-level K9 must declare side_effects")
-    }
-    if !String.includes(content, "signature_required = true") {
-      let _ = errors->Array.push("Hunt-level K9 must have signature_required = true")
-    }
-  }
-
-  // Extract name from metadata
-  let name = switch extractStringValue(content, "name") {
-  | Some(n) => n
-  | None =>
-    // Try extracting from filename
-    if path != "" {
-      let parts = String.split(path, "/")
-      let filename = parts->Array.get(Array.length(parts) - 1)->Option.getOr("unknown")
-      String.replace(filename, ".k9.ncl", "")
-    } else {
-      "unknown"
-    }
-  }
-
-  {
-    path,
-    name,
-    securityLevel: detectedLevel,
-    isValid: Array.length(errors) == 0,
-    errors,
-  }
-}
-
-/// Parse panel layout configuration from a K9 layout file.
-///
-/// Layout K9 files define PanLL panel arrangements with pane sizes,
-/// promoted actions, and default prover selections. They are always
-/// Yard-level (pure config with Nickel contracts for validation).
-let parseLayoutPanels = (content: string): k9Layout => {
-  let name = switch extractStringValue(content, "name") {
-  | Some(n) => n
-  | None => "Unknown Layout"
-  }
-
-  // Extract promoted actions as the panel configuration
-  let panels = extractStringArray(content, "promoted_actions")
-
-  // Determine discipline from layout name or description
-  let discipline = if String.includes(content, "protocol") || String.includes(content, "Protocol") {
-    "protocol-design"
-  } else if String.includes(content, "logic") || String.includes(content, "Logic") {
-    "logic-and-proofs"
-  } else if String.includes(content, "database") || String.includes(content, "Database") {
-    "database-design"
-  } else if String.includes(content, "language") || String.includes(content, "Language") {
-    "language-design"
-  } else {
-    "general"
-  }
-
-  {name, panels, discipline}
-}
-
-/// Human-readable label for a security level.
-let securityLevelLabel = (level: k9SecurityLevel): string => {
-  switch level {
-  | Kennel => "Kennel (data-only)"
-  | Yard => "Yard (validated config)"
-  | Hunt => "Hunt (full execution)"
-  }
-}
-
-/// Colour code for a security level (for UI rendering).
-///   - Kennel: green (safe, no execution)
-///   - Yard: amber/yellow (contracts but no I/O)
-///   - Hunt: red (full system access)
-let securityLevelColour = (level: k9SecurityLevel): string => {
-  switch level {
-  | Kennel => "#22c55e"
-  | Yard => "#f59e0b"
-  | Hunt => "#ef4444"
-  }
-}
-
-/// CSS class name for a security level badge.
-let securityLevelClass = (level: k9SecurityLevel): string => {
-  switch level {
-  | Kennel => "k9-kennel"
-  | Yard => "k9-yard"
-  | Hunt => "k9-hunt"
-  }
-}
-
-/// Extract the pedigree metadata block from K9 content.
-let extractPedigree = (content: string): k9Pedigree => {
-  {
-    schemaVersion: extractStringValue(content, "schema_version")->Option.getOr("unknown"),
-    componentType: extractStringValue(content, "component_type")->Option.getOr("unknown"),
-    trustLevel: extractStringValue(content, "trust_level")->Option.getOr("unknown"),
-    allowNetwork: extractBoolValue(content, "allow_network")->Option.getOr(false),
-    allowFilesystemWrite: extractBoolValue(content, "allow_filesystem_write")->Option.getOr(false),
-    allowSubprocess: extractBoolValue(content, "allow_subprocess")->Option.getOr(false),
-    author: extractStringValue(content, "author")->Option.getOr("unknown"),
-    description: extractStringValue(content, "description")->Option.getOr(""),
-  }
-}
-
-/// Extract pane sizes from a layout K9 file.
-/// Returns (pane_l_size, pane_n_size, pane_w_size) or (33, 34, 33) as default.
-let extractPaneSizes = (content: string): (int, int, int) => {
-  let l = extractIntValue(content, "pane_l_size")->Option.getOr(33)
-  let n = extractIntValue(content, "pane_n_size")->Option.getOr(34)
-  let w = extractIntValue(content, "pane_w_size")->Option.getOr(33)
-  (l, n, w)
-}
-
-/// Generate a human-readable summary of a K9 contractile.
-let summariseContractile = (contractile: k9Contractile): string => {
-  let statusLine = if contractile.isValid {
-    "Status: Valid"
-  } else {
-    let errorList = contractile.errors->Array.join("; ")
-    `Status: Invalid (${errorList})`
-  }
-
-  `Name: ${contractile.name}
-Path: ${contractile.path}
-Security: ${securityLevelLabel(contractile.securityLevel)}
-${statusLine}`
-}
-
-// ============================================================================
-// A2ML/K9 Integration Functions
-// ============================================================================
-
-/// Generate a K9 Kennel-level Nickel schema from a panel module's configuration.
-/// Kennel schemas are pure data — no contracts, no execution, no I/O.
-/// They capture the shape of a module's configurable state as a K9 data file.
-///
-/// Takes the module name and a list of (field-name, field-type, default-value) triples
-/// describing the module's configurable fields.
-let generateKennelSchema = (
-  moduleName: string,
-  fields: array<(string, string, string)>,
-): string => {
-  let fieldLines =
-    fields
-    ->Array.map(((name, typ, defaultVal)) => {
-      `    ${name} = ${defaultVal}, # ${typ}`
-    })
-    ->Array.join("\n")
-
-  `# K9 Kennel Schema — auto-generated from ${moduleName} module config
-# Security: Kennel (data-only, no contracts, no execution)
-# SPDX-License-Identifier: MPL-2.0
-
-K9!
-
-{
-  pedigree = {
-    schema_version = "1.0",
-    component_type = "ModuleConfig",
-    trust_level = "kennel",
-    allow_network = false,
-    allow_filesystem_write = false,
-    allow_subprocess = false,
-    author = "panll-generator",
-    description = "Auto-generated Kennel schema for ${moduleName} panel module",
-  },
-
-  leash = 'Kennel,
-
-  module = "${moduleName}",
-
-  config = {
-${fieldLines}
-  },
-}`
-}
-
-/// Generate a K9 Yard-level Nickel contract from a BoJ cartridge definition.
-/// Yard contracts add Nickel type validation to cartridge configuration —
-/// they verify port ranges, protocol lists, grade values, and layer status
-/// without executing anything.
-///
-/// Takes a cartridge name, list of protocol names, and port configuration.
-let generateYardContract = (
-  cartridgeName: string,
-  protocols: array<string>,
-  restPort: int,
-  grpcPort: int,
-  graphqlPort: int,
-  grade: string,
-): string => {
-  let protoArray = protocols->Array.map(p => `"${p}"`)->Array.join(", ")
-  let portValidation = if restPort > 0 || grpcPort > 0 || graphqlPort > 0 {
-    `    rest_port | std.contract.from_predicate (fun p => p >= 1024 && p <= 65535) = ${Int.toString(
-        restPort,
-      )},
-    grpc_port | std.contract.from_predicate (fun p => p >= 1024 && p <= 65535) = ${Int.toString(
-        grpcPort,
-      )},
-    graphql_port | std.contract.from_predicate (fun p => p >= 1024 && p <= 65535) = ${Int.toString(
-        graphqlPort,
-      )},`
-  } else {
-    `    rest_port = 0,
-    grpc_port = 0,
-    graphql_port = 0,`
-  }
-
-  `# K9 Yard Contract — auto-generated from BoJ cartridge "${cartridgeName}"
-# Security: Yard (validated config with Nickel contracts, no execution)
-# SPDX-License-Identifier: MPL-2.0
-
-K9!
-
-{
-  pedigree = {
-    schema_version = "1.0",
-    component_type = "CartridgeConfig",
-    trust_level = "yard",
-    allow_network = false,
-    allow_filesystem_write = false,
-    allow_subprocess = false,
-    author = "panll-generator",
-    description = "Auto-generated Yard contract for BoJ cartridge ${cartridgeName}",
-  },
-
-  leash = 'Yard,
-
-  cartridge = {
-    name | String = "${cartridgeName}",
-    grade | std.contract.from_predicate (fun g => std.array.elem g ["A", "B", "C", "D"]) = "${grade}",
-    protocols | Array String = [${protoArray}],
-${portValidation}
-  },
-
-  layers = {
-    abi_ready | Bool = false,
-    ffi_ready | Bool = false,
-    adapter_ready | Bool = false,
-    shared_lib_ready | Bool = false,
-  },
-}`
-}
-
-/// Extract configurable fields from a BoJ cartridge for Kennel schema generation.
-/// Returns (field-name, field-type, default-value) triples.
-let cartridgeToKennelFields = (name: string, protocols: array<string>): array<(
-  string,
-  string,
-  string,
-)> => {
-  let protoStr = "[" ++ protocols->Array.map(p => `"${p}"`)->Array.join(", ") ++ "]"
-  [
-    ("name", "String", `"${name}"`),
-    ("loaded", "Bool", "false"),
-    ("protocols", "Array String", protoStr),
-    ("rest_port", "Number", "0"),
-    ("grpc_port", "Number", "0"),
-    ("graphql_port", "Number", "0"),
-  ]
-}
-
-/// Check if a K9 Hunt-level execution is permitted for a given clade permission set.
-/// Returns (allowed, reason) where reason explains the decision.
-///
-/// Hunt-level K9 files require:
-///   1. The clade must have `hunt` in its isolation requirements
-///   2. The clade must have signing enabled
-///   3. The contractile must have signature_required = true
-let checkHuntPermission = (
-  cladeIsolation: string,
-  cladeSigning: bool,
-  contractileContent: string,
-): (bool, string) => {
-  let huntAllowed =
-    String.includes(cladeIsolation, "hunt") || String.includes(cladeIsolation, "full")
-  let hasSig = String.includes(contractileContent, "signature_required = true")
-
-  if !huntAllowed {
-    (false, "Clade isolation level does not permit Hunt execution")
-  } else if !cladeSigning {
-    (false, "Clade does not have signing enabled — Hunt requires signed contractiles")
-  } else if !hasSig {
-    (false, "Contractile does not declare signature_required = true")
-  } else {
-    (true, "Hunt execution permitted — clade isolation allows it, signing verified")
-  }
-}
diff --git a/src/core/KeybindingsEngine.affine b/src/core/KeybindingsEngine.affine
new file mode 100644
index 00000000..39d2b057
--- /dev/null
+++ b/src/core/KeybindingsEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module KeybindingsEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/KeybindingsEngine.res b/src/core/KeybindingsEngine.res
deleted file mode 100644
index 08da682a..00000000
--- a/src/core/KeybindingsEngine.res
+++ /dev/null
@@ -1,185 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Keybindings Engine — default bindings, lookup, and conflict detection.
-///
-/// Pure functions for managing the keybinding map. No side effects — all keyboard
-/// event handling happens in SubscriptionsFixed.res which calls these lookup
-/// functions to determine which action a keypress should trigger.
-
-open KeybindingsModel
-
-/// Helper: create a chord with standard modifier combinations.
-let chord = (modifiers: array<modifier>, key: string): keyChord => {
-  modifiers,
-  key,
-}
-
-/// Helper: create a keybinding with default (non-custom) flag.
-let bind = (modifiers: array<modifier>, key: string, action: keybindingAction): keybinding => {
-  chord: chord(modifiers, key),
-  action,
-  custom: false,
-}
-
-/// Default keybindings — the standard set that ships with PanLL.
-/// Users can override any of these via the keybinding editor.
-let defaults: array<keybinding> = [
-  // Undo/Redo
-  bind([Ctrl], "z", ActionUndo),
-  bind([Ctrl, Shift], "Z", ActionRedo),
-  // Save
-  bind([Ctrl], "s", ActionSave),
-  // Print active panel
-  bind([Ctrl], "p", ActionPrint),
-  // Reset
-  bind([Ctrl, Shift], "R", ActionResetPanel),
-  bind([Ctrl, Shift, Alt], "R", ActionResetAll),
-  // Pane toggles (preserving existing Ctrl+Shift shortcuts)
-  bind([Ctrl, Shift], "L", ActionTogglePaneL),
-  bind([Ctrl, Shift], "N", ActionTogglePaneN),
-  bind([Ctrl, Shift], "B", ActionTogglePaneW),
-  bind([Ctrl, Shift], "W", ActionTogglePaneW),
-  bind([Ctrl, Shift], "V", ActionToggleVab),
-  // Panel bar
-  bind([Ctrl], "`", ActionTogglePanelBar),
-  // Fullscreen active panel
-  bind([], "F11", ActionFullscreen),
-  // Close overlay (Escape)
-  bind([], "Escape", ActionCloseOverlay),
-  // New panel shortcuts
-  bind([Ctrl, Shift], "C", ActionToggleCapture),
-  bind([Ctrl, Shift], "K", ActionToggleWorkspace),
-  bind([Ctrl, Shift], "S", ActionToggleSecurity),
-  // Workspace mode cycling
-  bind([Ctrl, Shift], "M", ActionCycleWorkspaceMode),
-  // Dry run toggle
-  bind([Ctrl, Shift], "D", ActionToggleDryRun),
-]
-
-/// Look up which action (if any) a key event should trigger.
-/// Returns None if no binding matches the event.
-let lookup = (
-  bindings: array<keybinding>,
-  ctrlKey: bool,
-  shiftKey: bool,
-  altKey: bool,
-  metaKey: bool,
-  key: string,
-): option<keybindingAction> => {
-  // Build the set of active modifiers from the event.
-  let activeModifiers = {
-    let mods = []
-    let mods = if ctrlKey {
-      Array.concat(mods, [Ctrl])
-    } else {
-      mods
-    }
-    let mods = if shiftKey {
-      Array.concat(mods, [Shift])
-    } else {
-      mods
-    }
-    let mods = if altKey {
-      Array.concat(mods, [Alt])
-    } else {
-      mods
-    }
-    let mods = if metaKey {
-      Array.concat(mods, [Meta])
-    } else {
-      mods
-    }
-    mods
-  }
-
-  // Find the first binding whose chord matches.
-  let match_ = Array.find(bindings, binding => {
-    let chordMods = binding.chord.modifiers
-    // Exact modifier set match (same length + all present).
-    let modsMatch =
-      Array.length(chordMods) === Array.length(activeModifiers) &&
-        Array.every(chordMods, m => Array.some(activeModifiers, am => am === m))
-    // Key match (case-sensitive for shifted keys, case-insensitive for unshifted).
-    let keyMatch = binding.chord.key === key
-    modsMatch && keyMatch
-  })
-
-  switch match_ {
-  | Some(b) => Some(b.action)
-  | None => None
-  }
-}
-
-/// Detect conflicts: two or more bindings with the same chord.
-/// Returns pairs of conflicting actions.
-let detectConflicts = (bindings: array<keybinding>): array<(
-  keybindingAction,
-  keybindingAction,
-)> => {
-  let conflicts = []
-  let len = Array.length(bindings)
-  let result = ref(conflicts)
-  for i in 0 to len - 2 {
-    for j in i + 1 to len - 1 {
-      switch (bindings[i], bindings[j]) {
-      | (Some(a), Some(b)) => {
-          let sameModifiers =
-            Array.length(a.chord.modifiers) === Array.length(b.chord.modifiers) &&
-              Array.every(a.chord.modifiers, m => Array.some(b.chord.modifiers, bm => bm === m))
-          let sameKey = a.chord.key === b.chord.key
-          if sameModifiers && sameKey {
-            result := Array.concat(result.contents, [(a.action, b.action)])
-          }
-        }
-      | _ => ()
-      }
-    }
-  }
-  result.contents
-}
-
-/// Replace or add a keybinding for a given action. If the action already
-/// has a binding, it is replaced. Otherwise, a new binding is appended.
-let rebind = (bindings: array<keybinding>, action: keybindingAction, newChord: keyChord): array<
-  keybinding,
-> => {
-  let exists = Array.some(bindings, b => b.action === action)
-  if exists {
-    Array.map(bindings, b =>
-      if b.action === action {
-        {chord: newChord, action, custom: true}
-      } else {
-        b
-      }
-    )
-  } else {
-    Array.concat(bindings, [{chord: newChord, action, custom: true}])
-  }
-}
-
-/// Reset a single action's binding back to its default.
-let resetBinding = (bindings: array<keybinding>, action: keybindingAction): array<keybinding> => {
-  let defaultBinding = Array.find(defaults, b => b.action === action)
-  switch defaultBinding {
-  | Some(db) =>
-    Array.map(bindings, b =>
-      if b.action === action {
-        db
-      } else {
-        b
-      }
-    )
-  | None => bindings
-  }
-}
-
-/// Reset all bindings to defaults.
-let resetAll = (): array<keybinding> => defaults
-
-/// Initial keybindings state.
-let defaultState: keybindingsState = {
-  bindings: defaults,
-  recording: false,
-  recordingAction: None,
-  conflicts: [],
-}
diff --git a/src/core/KeyboardNav.affine b/src/core/KeyboardNav.affine
new file mode 100644
index 00000000..65ccf1b2
--- /dev/null
+++ b/src/core/KeyboardNav.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module KeyboardNav;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/KeyboardNav.res b/src/core/KeyboardNav.res
deleted file mode 100644
index 2cb9c9fa..00000000
--- a/src/core/KeyboardNav.res
+++ /dev/null
@@ -1,147 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL KeyboardNav — composable keyboard navigation handlers for panels.
-///
-/// Provides standard keyboard interaction patterns that components can compose
-/// into their event attributes. Follows WAI-ARIA Authoring Practices:
-///   - Enter/Space activates buttons
-///   - Arrow keys navigate lists and tab bars
-///   - Escape closes overlays/modals
-///   - Home/End jump to first/last item
-///
-/// Usage in components:
-///   button(list{
-///     Events.onClick(MyAction),
-///     KeyboardNav.onActivate(MyAction),   // Enter + Space
-///     Attrs.tabIndex(0),
-///   }, list{text("Click me")})
-///
-/// All functions are pure — they return event attributes, not side effects.
-
-open Tea_Vdom
-open Tea_Html
-
-/// Key string constants for readability.
-module Key = {
-  let enter = "Enter"
-  let space = " "
-  let escape = "Escape"
-  let arrowUp = "ArrowUp"
-  let arrowDown = "ArrowDown"
-  let arrowLeft = "ArrowLeft"
-  let arrowRight = "ArrowRight"
-  let home = "Home"
-  let end_ = "End"
-  let tab = "Tab"
-}
-
-/// Dispatch a message when Enter or Space is pressed (button activation pattern).
-let onActivate = (msg: 'msg): attribute<'msg> =>
-  Events.onKeyDown(key =>
-    if key === Key.enter || key === Key.space {
-      Some(msg)
-    } else {
-      None
-    }
-  )
-
-/// Dispatch a message when Escape is pressed (close/dismiss pattern).
-let onEscape = (msg: 'msg): attribute<'msg> =>
-  Events.onKeyDown(key =>
-    if key === Key.escape {
-      Some(msg)
-    } else {
-      None
-    }
-  )
-
-/// Dispatch messages for vertical arrow navigation (list/menu pattern).
-let onVerticalNav = (~onUp: 'msg, ~onDown: 'msg): attribute<'msg> =>
-  Events.onKeyDown(key =>
-    if key === Key.arrowUp {
-      Some(onUp)
-    } else if key === Key.arrowDown {
-      Some(onDown)
-    } else {
-      None
-    }
-  )
-
-/// Dispatch messages for horizontal arrow navigation (tab bar pattern).
-let onHorizontalNav = (~onLeft: 'msg, ~onRight: 'msg): attribute<'msg> =>
-  Events.onKeyDown(key =>
-    if key === Key.arrowLeft {
-      Some(onLeft)
-    } else if key === Key.arrowRight {
-      Some(onRight)
-    } else {
-      None
-    }
-  )
-
-/// Dispatch messages for Home/End navigation (jump to first/last).
-let onHomeEnd = (~onHome: 'msg, ~onEnd: 'msg): attribute<'msg> =>
-  Events.onKeyDown(key =>
-    if key === Key.home {
-      Some(onHome)
-    } else if key === Key.end_ {
-      Some(onEnd)
-    } else {
-      None
-    }
-  )
-
-/// Combined list navigation: ArrowUp/Down + Home/End + Enter to select + Escape to dismiss.
-/// Useful for dropdown menus, comboboxes, listboxes.
-let onListNav = (
-  ~onUp: 'msg,
-  ~onDown: 'msg,
-  ~onHome: 'msg,
-  ~onEnd: 'msg,
-  ~onSelect: 'msg,
-  ~onDismiss: 'msg,
-): attribute<'msg> =>
-  Events.onKeyDown(key =>
-    if key === Key.arrowUp {
-      Some(onUp)
-    } else if key === Key.arrowDown {
-      Some(onDown)
-    } else if key === Key.home {
-      Some(onHome)
-    } else if key === Key.end_ {
-      Some(onEnd)
-    } else if key === Key.enter || key === Key.space {
-      Some(onSelect)
-    } else if key === Key.escape {
-      Some(onDismiss)
-    } else {
-      None
-    }
-  )
-
-/// Helper: make a focusable div container (tabIndex 0).
-let focusable: attribute<'msg> = Attrs.tabIndex(0)
-
-/// Helper: programmatically focusable but not in tab order (tabIndex -1).
-let focusableHidden: attribute<'msg> = Attrs.tabIndex(-1)
-
-/// Helper: screen reader only text (visually hidden but announced).
-let srOnly = (label: string): Tea_Vdom.t<'msg> =>
-  span(
-    list{Attrs.class_("sr-only")},
-    list{text(label)},
-  )
-
-/// Helper: aria-live polite region wrapper (for status updates).
-let livePolite = (children: list<Tea_Vdom.t<'msg>>): Tea_Vdom.t<'msg> =>
-  div(list{Attrs.ariaLive("polite")}, children)
-
-/// Helper: aria-live assertive region wrapper (for errors/alerts).
-let liveAssertive = (children: list<Tea_Vdom.t<'msg>>): Tea_Vdom.t<'msg> =>
-  div(list{Attrs.ariaLive("assertive")}, children)
-
-/// Bundle: onClick + keyboard activation + tabIndex in one call.
-/// Use instead of bare Events.onClick for all interactive elements.
-/// This is the primary entry point for keyboard accessibility.
-let clickable = (msg: 'msg): list<attribute<'msg>> =>
-  list{Events.onClick(msg), onActivate(msg), Attrs.tabIndex(0)}
diff --git a/src/core/KeyboardUtil.affine b/src/core/KeyboardUtil.affine
new file mode 100644
index 00000000..7a2b91b3
--- /dev/null
+++ b/src/core/KeyboardUtil.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module KeyboardUtil;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/KeyboardUtil.res b/src/core/KeyboardUtil.res
deleted file mode 100644
index fc808ff3..00000000
--- a/src/core/KeyboardUtil.res
+++ /dev/null
@@ -1,47 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Keyboard accessibility utilities for PanLL.
-///
-/// Provides onKeyDown handlers for common interaction patterns:
-/// Enter/Space for button activation, Escape for dialog dismissal,
-/// and arrow keys for list navigation. These ensure WCAG 2.1 Level A
-/// compliance (2.1.1 Keyboard) across all interactive components.
-///
-/// Each helper returns a `Tea_Vdom.attribute<'msg>` that attaches a
-/// `keydown` event listener to the element. The listener checks the
-/// pressed key and dispatches the given message only when the key
-/// matches the expected activation pattern. Non-matching keys are
-/// ignored (the event is not prevented), preserving normal browser
-/// keyboard behaviour for Tab, arrow keys, etc.
-
-/// Trigger a message on Enter or Space key press (button activation pattern).
-///
-/// This implements the WAI-ARIA button activation pattern: interactive
-/// elements that are not native `<button>` elements (e.g. `<div role="button">`)
-/// must respond to both Enter and Space to be keyboard-accessible.
-/// The handler calls `preventDefault` only when Enter or Space is pressed,
-/// so that Tab navigation and other keys continue to work normally.
-let onEnterOrSpace = (msg: 'msg): Tea_Vdom.attribute<'msg> => {
-  Tea_Vdom.onKeyDown(key =>
-    if key === "Enter" || key === " " {
-      Some(msg)
-    } else {
-      None
-    }
-  )
-}
-
-/// Trigger a message on Escape key press (dialog/menu dismiss pattern).
-///
-/// Implements the WAI-ARIA dialog dismiss pattern: pressing Escape
-/// should close the currently open dialog, popover, or dropdown menu.
-/// Only the Escape key triggers the message; all other keys pass through.
-let onEscape = (msg: 'msg): Tea_Vdom.attribute<'msg> => {
-  Tea_Vdom.onKeyDown(key =>
-    if key === "Escape" {
-      Some(msg)
-    } else {
-      None
-    }
-  )
-}
diff --git a/src/core/LanguageForgeEngine.affine b/src/core/LanguageForgeEngine.affine
new file mode 100644
index 00000000..c8d5ea0e
--- /dev/null
+++ b/src/core/LanguageForgeEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module LanguageForgeEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/LanguageForgeEngine.res b/src/core/LanguageForgeEngine.res
deleted file mode 100644
index f6de0be6..00000000
--- a/src/core/LanguageForgeEngine.res
+++ /dev/null
@@ -1,387 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Language Forge Engine — pure computation for the nextgen-languages panel.
-///
-/// All functions are pure (no side effects, no API calls). Provides filtering,
-/// sorting, labelling, and the hardcoded language assessment data for all 14
-/// nextgen-languages projects.
-
-open LanguageForgeModel
-
-/// Human-readable label for a development phase.
-let phaseLabel = (phase: languagePhase): string => {
-  switch phase {
-  | Production => "Production"
-  | NearProduction => "Near-Production"
-  | Alpha => "Alpha"
-  | DesignOnly => "Design Only"
-  | Concept => "Concept"
-  | Vaporware => "Vaporware"
-  }
-}
-
-/// CSS colour class for a development phase.
-let phaseColor = (phase: languagePhase): string => {
-  switch phase {
-  | Production => "text-emerald-400"
-  | NearProduction => "text-green-400"
-  | Alpha => "text-amber-400"
-  | DesignOnly => "text-orange-400"
-  | Concept => "text-red-400"
-  | Vaporware => "text-gray-500"
-  }
-}
-
-/// Background badge colour for a development phase.
-let phaseBadgeClass = (phase: languagePhase): string => {
-  switch phase {
-  | Production => "bg-emerald-900/50 text-emerald-300 border-emerald-700"
-  | NearProduction => "bg-green-900/50 text-green-300 border-green-700"
-  | Alpha => "bg-amber-900/50 text-amber-300 border-amber-700"
-  | DesignOnly => "bg-orange-900/50 text-orange-300 border-orange-700"
-  | Concept => "bg-red-900/50 text-red-300 border-red-700"
-  | Vaporware => "bg-gray-800/50 text-gray-400 border-gray-700"
-  }
-}
-
-/// Human-readable label for a filter category tab.
-let categoryLabel = (cat: forgeCategory): string => {
-  switch cat {
-  | AllLanguages => "All Languages"
-  | ProductionReady => "Production Ready"
-  | InProgress => "In Progress"
-  | NeedsWork => "Needs Work"
-  }
-}
-
-/// All category tabs in display order.
-let allCategories: array<forgeCategory> = [AllLanguages, ProductionReady, InProgress, NeedsWork]
-
-/// Human-readable label for a sort criterion.
-let sortLabel = (s: forgeSortBy): string => {
-  switch s {
-  | SortByName => "Name"
-  | SortByScore => "Score"
-  | SortByPhase => "Phase"
-  }
-}
-
-/// Numeric rank for a phase (lower = more mature).
-let phaseRank = (phase: languagePhase): int => {
-  switch phase {
-  | Production => 0
-  | NearProduction => 1
-  | Alpha => 2
-  | DesignOnly => 3
-  | Concept => 4
-  | Vaporware => 5
-  }
-}
-
-/// Filter languages by category and text search.
-let filterLanguages = (
-  languages: array<languageEntry>,
-  category: forgeCategory,
-  filterText: string,
-): array<languageEntry> => {
-  let byCat = switch category {
-  | AllLanguages => languages
-  | ProductionReady =>
-    languages->Array.filter(l => l.phase === Production || l.phase === NearProduction)
-  | InProgress => languages->Array.filter(l => l.phase === Alpha || l.phase === DesignOnly)
-  | NeedsWork => languages->Array.filter(l => l.phase === Concept || l.phase === Vaporware)
-  }
-  if filterText === "" {
-    byCat
-  } else {
-    let q = String.toLowerCase(filterText)
-    byCat->Array.filter(l =>
-      String.includes(String.toLowerCase(l.name), q) ||
-      String.includes(String.toLowerCase(l.implLang), q)
-    )
-  }
-}
-
-/// Sort languages by the given criterion.
-let sortLanguages = (languages: array<languageEntry>, sortBy: forgeSortBy): array<
-  languageEntry,
-> => {
-  let sorted = Array.copy(languages)
-  sorted->Array.sort((a, b) => {
-    switch sortBy {
-    | SortByName => String.compare(a.name, b.name)
-    | SortByScore => Int.compare(b.score, a.score) // Descending
-    | SortByPhase => Int.compare(phaseRank(a.phase), phaseRank(b.phase))
-    }
-  })
-  sorted
-}
-
-/// Hardcoded portfolio data for all 14 nextgen-languages.
-/// Based on the current assessment as of 2026-03.
-let languageData = (): array<languageEntry> => [
-  {
-    name: "AffineScript",
-    implLang: "OCaml",
-    score: 95,
-    phase: Production,
-    lexerComplete: true,
-    parserComplete: true,
-    typeCheckerComplete: true,
-    hasWasmBackend: true,
-    hasTests: true,
-    components: [
-      {name: "Lexer", completion: 100, hasTests: true},
-      {name: "Parser", completion: 100, hasTests: true},
-      {name: "Type Checker", completion: 95, hasTests: true},
-      {name: "WASM Backend", completion: 90, hasTests: true},
-    ],
-    todoCount: 5,
-    locCount: 18000,
-  },
-  {
-    name: "Error-Lang",
-    implLang: "ReScript",
-    score: 95,
-    phase: Production,
-    lexerComplete: true,
-    parserComplete: true,
-    typeCheckerComplete: true,
-    hasWasmBackend: false,
-    hasTests: true,
-    components: [
-      {name: "Lexer", completion: 100, hasTests: true},
-      {name: "Parser", completion: 100, hasTests: true},
-      {name: "Type Checker", completion: 95, hasTests: true},
-      {name: "JS Backend", completion: 95, hasTests: true},
-    ],
-    todoCount: 3,
-    locCount: 12000,
-  },
-  {
-    name: "Phronesis",
-    implLang: "Elixir",
-    score: 95,
-    phase: Production,
-    lexerComplete: true,
-    parserComplete: true,
-    typeCheckerComplete: true,
-    hasWasmBackend: false,
-    hasTests: true,
-    components: [
-      {name: "Lexer", completion: 100, hasTests: true},
-      {name: "Parser", completion: 100, hasTests: true},
-      {name: "Type Checker", completion: 95, hasTests: true},
-      {name: "BEAM Backend", completion: 95, hasTests: true},
-    ],
-    todoCount: 4,
-    locCount: 15000,
-  },
-  {
-    name: "WokeLang",
-    implLang: "Rust",
-    score: 90,
-    phase: NearProduction,
-    lexerComplete: true,
-    parserComplete: true,
-    typeCheckerComplete: true,
-    hasWasmBackend: true,
-    hasTests: true,
-    components: [
-      {name: "Lexer", completion: 100, hasTests: true},
-      {name: "Parser", completion: 100, hasTests: true},
-      {name: "Type Checker", completion: 90, hasTests: true},
-      {name: "WASM Backend", completion: 85, hasTests: true},
-    ],
-    todoCount: 8,
-    locCount: 14000,
-  },
-  {
-    name: "Ephapax",
-    implLang: "Rust",
-    score: 85,
-    phase: NearProduction,
-    lexerComplete: true,
-    parserComplete: true,
-    typeCheckerComplete: true,
-    hasWasmBackend: false,
-    hasTests: true,
-    components: [
-      {name: "Lexer", completion: 100, hasTests: true},
-      {name: "Parser", completion: 100, hasTests: true},
-      {name: "Type Checker", completion: 85, hasTests: true},
-      {name: "Native Backend", completion: 80, hasTests: true},
-    ],
-    todoCount: 12,
-    locCount: 11000,
-  },
-  {
-    name: "Oblibeny",
-    implLang: "OCaml",
-    score: 85,
-    phase: NearProduction,
-    lexerComplete: true,
-    parserComplete: true,
-    typeCheckerComplete: true,
-    hasWasmBackend: false,
-    hasTests: true,
-    components: [
-      {name: "Lexer", completion: 100, hasTests: true},
-      {name: "Parser", completion: 100, hasTests: true},
-      {name: "Type Checker", completion: 85, hasTests: true},
-      {name: "Native Backend", completion: 80, hasTests: true},
-    ],
-    todoCount: 10,
-    locCount: 13000,
-  },
-  {
-    name: "Eclexia",
-    implLang: "Rust",
-    score: 70,
-    phase: Alpha,
-    lexerComplete: true,
-    parserComplete: true,
-    typeCheckerComplete: false,
-    hasWasmBackend: false,
-    hasTests: true,
-    components: [
-      {name: "Lexer", completion: 90, hasTests: true},
-      {name: "Parser", completion: 85, hasTests: true},
-      {name: "Type Checker", completion: 50, hasTests: false},
-      {name: "Runtime", completion: 45, hasTests: true},
-    ],
-    todoCount: 35,
-    locCount: 8000,
-  },
-  {
-    name: "BetLang",
-    implLang: "Racket+Rust",
-    score: 65,
-    phase: Alpha,
-    lexerComplete: true,
-    parserComplete: true,
-    typeCheckerComplete: false,
-    hasWasmBackend: false,
-    hasTests: true,
-    components: [
-      {name: "Lexer", completion: 90, hasTests: true},
-      {name: "Parser", completion: 80, hasTests: true},
-      {name: "Type Checker", completion: 40, hasTests: false},
-      {name: "Interpreter", completion: 60, hasTests: true},
-    ],
-    todoCount: 28,
-    locCount: 6000,
-  },
-  {
-    name: "My-Lang",
-    implLang: "Rust",
-    score: 65,
-    phase: Alpha,
-    lexerComplete: true,
-    parserComplete: true,
-    typeCheckerComplete: false,
-    hasWasmBackend: false,
-    hasTests: true,
-    components: [
-      {name: "Lexer", completion: 90, hasTests: true},
-      {name: "Parser", completion: 85, hasTests: true},
-      {name: "Type Checker", completion: 35, hasTests: false},
-      {name: "REPL", completion: 70, hasTests: true},
-    ],
-    todoCount: 30,
-    locCount: 7500,
-  },
-  {
-    name: "Tangle",
-    implLang: "OCaml",
-    score: 40,
-    phase: DesignOnly,
-    lexerComplete: true,
-    parserComplete: true,
-    typeCheckerComplete: false,
-    hasWasmBackend: false,
-    hasTests: false,
-    components: [
-      {name: "Lexer", completion: 70, hasTests: false},
-      {name: "Parser", completion: 60, hasTests: false},
-      {name: "Design Spec", completion: 80, hasTests: false},
-    ],
-    todoCount: 45,
-    locCount: 3000,
-  },
-  {
-    name: "Me-Dialect",
-    implLang: "ReScript",
-    score: 15,
-    phase: Concept,
-    lexerComplete: false,
-    parserComplete: false,
-    typeCheckerComplete: false,
-    hasWasmBackend: false,
-    hasTests: false,
-    components: [
-      {name: "Spec", completion: 30, hasTests: false},
-      {name: "Prototype", completion: 10, hasTests: false},
-    ],
-    todoCount: 60,
-    locCount: 500,
-  },
-  {
-    name: "7-Tentacles",
-    implLang: "",
-    score: 5,
-    phase: Concept,
-    lexerComplete: false,
-    parserComplete: false,
-    typeCheckerComplete: false,
-    hasWasmBackend: false,
-    hasTests: false,
-    components: [
-      {name: "Agent Architecture", completion: 10, hasTests: false},
-      {name: "OODA Framework", completion: 5, hasTests: false},
-    ],
-    todoCount: 80,
-    locCount: 200,
-  },
-  {
-    name: "Anvomidav",
-    implLang: "",
-    score: 0,
-    phase: Vaporware,
-    lexerComplete: false,
-    parserComplete: false,
-    typeCheckerComplete: false,
-    hasWasmBackend: false,
-    hasTests: false,
-    components: [],
-    todoCount: 0,
-    locCount: 0,
-  },
-  {
-    name: "Julia-Viper",
-    implLang: "",
-    score: 0,
-    phase: Vaporware,
-    lexerComplete: false,
-    parserComplete: false,
-    typeCheckerComplete: false,
-    hasWasmBackend: false,
-    hasTests: false,
-    components: [],
-    todoCount: 0,
-    locCount: 0,
-  },
-]
-
-/// Default state with language data pre-loaded.
-let defaultState: languageForgeState = {
-  loaded: true,
-  loading: false,
-  error: None,
-  languages: languageData(),
-  activeCategory: AllLanguages,
-  selectedLanguage: None,
-  filterText: "",
-  sortBy: SortByScore,
-  showMoscow: false,
-}
diff --git a/src/core/LevelArchitectEngine.affine b/src/core/LevelArchitectEngine.affine
new file mode 100644
index 00000000..0930710f
--- /dev/null
+++ b/src/core/LevelArchitectEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module LevelArchitectEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/LevelArchitectEngine.res b/src/core/LevelArchitectEngine.res
deleted file mode 100644
index 3ed3367a..00000000
--- a/src/core/LevelArchitectEngine.res
+++ /dev/null
@@ -1,303 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Level Architect Engine — pure computation and helpers for the
-/// IDApTIK visual level design tool.
-
-open LevelArchitectModel
-
-/// Human-readable labels for category tabs.
-let categoryLabel = (cat: levelArchitectCategory): string =>
-  switch cat {
-  | ArchitectGrid => "Grid"
-  | ArchitectAssets => "Assets"
-  | ArchitectPatrols => "Patrols"
-  | ArchitectValidation => "Validation"
-  }
-
-/// Human-readable labels for entity kinds.
-let entityKindLabel = (kind: levelEntityKind): string =>
-  switch kind {
-  | EntityDevice => "Device"
-  | EntityGuard => "Guard"
-  | EntitySpawnPoint => "Spawn Point"
-  | EntityCompanion => "Companion"
-  | EntityCollectable => "Collectable"
-  | EntityTrigger => "Trigger"
-  | EntityDecoration => "Decoration"
-  }
-
-/// Icon for entity kinds (Lucide icon names).
-let entityKindIcon = (kind: levelEntityKind): string =>
-  switch kind {
-  | EntityDevice => "monitor"
-  | EntityGuard => "shield-alert"
-  | EntitySpawnPoint => "map-pin"
-  | EntityCompanion => "bot"
-  | EntityCollectable => "gem"
-  | EntityTrigger => "zap"
-  | EntityDecoration => "palette"
-  }
-
-/// Human-readable labels for defence flags.
-let defenceFlagLabel = (flag: defenceFlag): string =>
-  switch flag {
-  | FlagFirewall => "Firewall"
-  | FlagIDS => "IDS/IPS"
-  | FlagEncryption => "Encryption"
-  | FlagMFA => "Multi-Factor Auth"
-  | FlagBackup => "Backup"
-  | FlagAuditLog => "Audit Logging"
-  | FlagAccessControl => "Access Control"
-  | FlagPatching => "Patching"
-  | FlagSegmentation => "Network Segmentation"
-  | FlagIncidentResponse => "Incident Response"
-  | FlagPhysicalSecurity => "Physical Security"
-  }
-
-/// All 11 defence flags.
-let allDefenceFlags: array<defenceFlag> = [
-  FlagFirewall,
-  FlagIDS,
-  FlagEncryption,
-  FlagMFA,
-  FlagBackup,
-  FlagAuditLog,
-  FlagAccessControl,
-  FlagPatching,
-  FlagSegmentation,
-  FlagIncidentResponse,
-  FlagPhysicalSecurity,
-]
-
-/// Human-readable tool label.
-let toolLabel = (tool: editorTool): string =>
-  switch tool {
-  | ToolSelect => "Select"
-  | ToolPlace(kind) => `Place ${entityKindLabel(kind)}`
-  | ToolErase => "Erase"
-  | ToolPatrol => "Patrol Path"
-  | ToolDefenceFlag => "Defence Flag"
-  }
-
-/// Count entities by kind.
-let countByKind = (entities: array<levelEntity>, kind: levelEntityKind): int =>
-  entities->Array.filter(e => e.kind === kind)->Array.length
-
-/// Check if a grid cell is occupied.
-let isOccupied = (entities: array<levelEntity>, x: int, y: int): bool =>
-  entities->Array.some(e => e.gridX === x && e.gridY === y)
-
-/// Default zones matching IDApTIK standard layout.
-let defaultUmsZones: array<levelZone> = [
-  {name: "LAN", startX: 0.0, endX: 1500.0, securityTier: 1},
-  {name: "DMZ", startX: 1500.0, endX: 3500.0, securityTier: 2},
-  {name: "SCADA", startX: 3500.0, endX: 5000.0, securityTier: 3},
-]
-
-/// Device kind labels.
-let deviceKindLabel = (dk: deviceKind): string =>
-  switch dk {
-  | DevLaptop => "Laptop"
-  | DevDesktop => "Desktop"
-  | DevServer => "Server"
-  | DevRouter => "Router"
-  | DevSwitch => "Switch"
-  | DevFirewall => "Firewall"
-  | DevCamera => "Camera"
-  | DevAccessPoint => "Access Point"
-  | DevPatchPanel => "Patch Panel"
-  | DevPowerSupply => "Power Supply"
-  | DevPhoneSystem => "Phone System"
-  | DevFibreHub => "Fibre Hub"
-  }
-
-/// Guard rank labels.
-let guardRankLabel = (gr: guardRank): string =>
-  switch gr {
-  | RankBasic => "Basic"
-  | RankEnforcer => "Enforcer"
-  | RankAntiHacker => "Anti-Hacker"
-  | RankSentinel => "Sentinel"
-  | RankAssassin => "Assassin"
-  | RankElite => "Elite"
-  | RankSecurityChief => "Security Chief"
-  | RankRivalHacker => "Rival Hacker"
-  }
-
-/// Dog breed labels.
-let dogBreedLabel = (db: dogBreed): string =>
-  switch db {
-  | BreedPatrol => "Patrol"
-  | BreedBloodhound => "Bloodhound"
-  | BreedRoboDog => "RoboDog"
-  }
-
-/// Drone archetype labels.
-let droneArchetypeLabel = (da: droneArchetype): string =>
-  switch da {
-  | DroneHelper => "Helper"
-  | DroneHunter => "Hunter"
-  | DroneKiller => "Killer"
-  }
-
-/// Security level labels.
-let securityLevelLabel = (sl: zoneSecurityLevel): string =>
-  switch sl {
-  | SecOpen => "Open"
-  | SecWeak => "Weak"
-  | SecMedium => "Medium"
-  | SecStrong => "Strong"
-  }
-
-/// Convert Level Architect entities to UMS JSON format for validation.
-let toUmsJson = (state: levelArchitectState): string => {
-  let entitiesJson =
-    state.entities
-    ->Array.map(e => {
-      `{"id":"${e.id}","kind":"${entityKindLabel(
-          e.kind,
-        )}","name":"${e.name}","gridX":${Int.toString(e.gridX)},"gridY":${Int.toString(e.gridY)}}`
-    })
-    ->Array.join(",")
-  let zonesJson =
-    state.zones
-    ->Array.map(z => {
-      `{"name":"${z.name}","startX":${Float.toString(z.startX)},"endX":${Float.toString(
-          z.endX,
-        )},"securityTier":${Int.toString(z.securityTier)}}`
-    })
-    ->Array.join(",")
-  let patrolsJson =
-    state.patrols
-    ->Array.map(p => {
-      let wps =
-        p.waypoints
-        ->Array.map(w =>
-          `{"x":${Int.toString(w.x)},"y":${Int.toString(w.y)},"pauseDuration":${Float.toString(
-              w.pauseDuration,
-            )}}`
-        )
-        ->Array.join(",")
-      `{"guardId":"${p.guardId}","waypoints":[${wps}],"looping":${p.looping
-          ? "true"
-          : "false"},"speed":${Float.toString(p.speed)}}`
-    })
-    ->Array.join(",")
-  let flagsJson = state.defenceFlags->Array.map(f => `"${defenceFlagLabel(f)}"`)->Array.join(",")
-  `{"levelName":"${state.levelName}","gridWidth":${Int.toString(
-      state.gridWidth,
-    )},"gridHeight":${Int.toString(
-      state.gridHeight,
-    )},"entities":[${entitiesJson}],"zones":[${zonesJson}],"patrols":[${patrolsJson}],"defenceFlags":[${flagsJson}]}`
-}
-
-/// Tea_Json decoder for a single UMS proof entry.
-let abiProofDecoder: Tea_Json.decoder<abiProof> = {
-  open Decoders
-  open Tea_Json
-  map3(
-    (name, passed, detail): abiProof => {name, passed, detail},
-    stringField("name"),
-    boolField("passed"),
-    stringField("detail"),
-  )
-}
-
-/// Tea_Json decoder for UMS validation result.
-let umsValidationDecoder: Tea_Json.decoder<umsValidation> = {
-  open Decoders
-  map7(
-    (
-      guardsInZones,
-      defenceTargetsValid,
-      zonesOrdered,
-      pbxConsistent,
-      devicesExist,
-      allPassed,
-      proofs,
-    ): umsValidation => {
-      guardsInZones,
-      defenceTargetsValid,
-      zonesOrdered,
-      pbxConsistent,
-      devicesExist,
-      allPassed,
-      proofs,
-    },
-    boolField("guardsInZones"),
-    boolField("defenceTargetsValid"),
-    boolField("zonesOrdered"),
-    boolField("pbxConsistent"),
-    boolField("devicesExist"),
-    boolField("allPassed"),
-    fieldWithDefault("proofs", lenientArray(abiProofDecoder), []),
-  )
-}
-
-/// Parse UMS validation result JSON.
-let parseUmsValidation = (jsonStr: string): option<umsValidation> =>
-  Decoders.decodeOption(umsValidationDecoder, jsonStr)
-
-/// All device kinds for dropdowns.
-let allDeviceKinds: array<deviceKind> = [
-  DevLaptop,
-  DevDesktop,
-  DevServer,
-  DevRouter,
-  DevSwitch,
-  DevFirewall,
-  DevCamera,
-  DevAccessPoint,
-  DevPatchPanel,
-  DevPowerSupply,
-  DevPhoneSystem,
-  DevFibreHub,
-]
-
-/// All guard ranks for dropdowns.
-let allGuardRanks: array<guardRank> = [
-  RankBasic,
-  RankEnforcer,
-  RankAntiHacker,
-  RankSentinel,
-  RankAssassin,
-  RankElite,
-  RankSecurityChief,
-  RankRivalHacker,
-]
-
-/// All dog breeds for dropdowns.
-let allDogBreeds: array<dogBreed> = [BreedPatrol, BreedBloodhound, BreedRoboDog]
-
-/// All drone archetypes for dropdowns.
-let allDroneArchetypes: array<droneArchetype> = [DroneHelper, DroneHunter, DroneKiller]
-
-/// All security levels for dropdowns.
-let allSecurityLevels: array<zoneSecurityLevel> = [SecOpen, SecWeak, SecMedium, SecStrong]
-
-/// Default state for the Level Architect panel.
-let defaultState: levelArchitectState = {
-  activeCategory: ArchitectGrid,
-  levelName: "Untitled Level",
-  gridWidth: 20,
-  gridHeight: 15,
-  entities: [],
-  patrols: [],
-  defenceFlags: [],
-  selectedEntityId: None,
-  selectedTool: ToolSelect,
-  assets: [],
-  validationIssues: [],
-  history: [],
-  historyIndex: -1,
-  zoomLevel: 1.0,
-  showGrid: true,
-  showPatrolPaths: true,
-  showDefenceOverlay: false,
-  alertThreshold: 3,
-  loading: false,
-  error: None,
-  zones: defaultUmsZones,
-  umsValidation: None,
-  bojRouting: false,
-}
diff --git a/src/core/LlmCodingEngine.affine b/src/core/LlmCodingEngine.affine
new file mode 100644
index 00000000..c0ecb959
--- /dev/null
+++ b/src/core/LlmCodingEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module LlmCodingEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/LlmCodingEngine.res b/src/core/LlmCodingEngine.res
deleted file mode 100644
index 59715465..00000000
--- a/src/core/LlmCodingEngine.res
+++ /dev/null
@@ -1,289 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL LLM Coding Engine — pure helpers for the multi-LLM coding supervisor.
-///
-/// All functions are pure (no side effects). Provides session state colours,
-/// resource threshold checks, lock conflict detection, task list management,
-/// and permission gate classification.
-
-open LlmCodingModel
-
-// ============================================================================
-// Session State Helpers
-// ============================================================================
-
-/// Tailwind text colour for a session state.
-let stateColor = (state: sessionState): string => {
-  switch state {
-  | Starting => "text-blue-400"
-  | Active => "text-emerald-400"
-  | Frozen => "text-amber-400"
-  | Completed => "text-gray-400"
-  | Failed(_) => "text-red-500"
-  | Killed => "text-red-400"
-  }
-}
-
-/// Tailwind border colour for a session card.
-let stateBorderColor = (state: sessionState): string => {
-  switch state {
-  | Starting => "border-blue-500/40"
-  | Active => "border-emerald-500/40"
-  | Frozen => "border-amber-500/40"
-  | Completed => "border-gray-500/40"
-  | Failed(_) => "border-red-500/40"
-  | Killed => "border-red-500/40"
-  }
-}
-
-/// Human-readable label for a session state.
-let stateLabel = (state: sessionState): string => {
-  switch state {
-  | Starting => "Starting"
-  | Active => "Active"
-  | Frozen => "FROZEN"
-  | Completed => "Completed"
-  | Failed(reason) => `Failed: ${reason}`
-  | Killed => "Killed"
-  }
-}
-
-/// Whether a session is still alive (accepting work).
-let isAlive = (state: sessionState): bool => {
-  switch state {
-  | Starting | Active | Frozen => true
-  | Completed | Failed(_) | Killed => false
-  }
-}
-
-/// Whether a session can be frozen.
-let canFreeze = (state: sessionState): bool => {
-  switch state {
-  | Active => true
-  | _ => false
-  }
-}
-
-/// Whether a session can be thawed.
-let canThaw = (state: sessionState): bool => {
-  switch state {
-  | Frozen => true
-  | _ => false
-  }
-}
-
-// ============================================================================
-// Provider Helpers
-// ============================================================================
-
-/// Display name for an LLM provider.
-let providerName = (provider: llmProvider): string => {
-  switch provider {
-  | Claude => "Claude Code"
-  | OtherLlm(name) => name
-  }
-}
-
-/// Icon hint for an LLM provider.
-let providerIcon = (provider: llmProvider): string => {
-  switch provider {
-  | Claude => "terminal"
-  | OtherLlm(_) => "cpu"
-  }
-}
-
-// ============================================================================
-// Resource Monitoring
-// ============================================================================
-
-/// Resource health level for a session.
-type resourceHealth =
-  | Healthy
-  | Warning
-  | Critical
-
-/// Assess a session's resource health against its limits.
-let resourceHealth = (usage: resourceUsage, limits: resourceLimits): resourceHealth => {
-  if usage.memoryMb > limits.maxMemoryMb {
-    Critical
-  } else if usage.memoryMb > limits.maxMemoryMb * 3 / 4 {
-    Warning
-  } else if usage.cpuPercent > limits.maxCpuPercent {
-    Warning
-  } else if usage.subagentCount > limits.maxSubagents {
-    Warning
-  } else {
-    Healthy
-  }
-}
-
-/// Tailwind colour for resource health.
-let resourceHealthColor = (health: resourceHealth): string => {
-  switch health {
-  | Healthy => "text-emerald-400"
-  | Warning => "text-amber-400"
-  | Critical => "text-red-500"
-  }
-}
-
-/// Resource health as a short label.
-let resourceHealthLabel = (health: resourceHealth): string => {
-  switch health {
-  | Healthy => "OK"
-  | Warning => "WARN"
-  | Critical => "CRITICAL"
-  }
-}
-
-/// System-wide memory health.
-let systemMemoryHealth = (availableMb: int, totalMb: int): resourceHealth => {
-  if totalMb <= 0 {
-    Healthy
-  } else {
-    let pct = availableMb * 100 / totalMb
-    if pct < 10 {
-      Critical
-    } else if pct < 25 {
-      Warning
-    } else {
-      Healthy
-    }
-  }
-}
-
-// ============================================================================
-// Lock Management
-// ============================================================================
-
-/// Check whether a new lock would conflict with existing locks.
-let lockConflicts = (
-  newPath: string,
-  newExclusive: bool,
-  existingLocks: array<workspaceLock>,
-): array<workspaceLock> => {
-  existingLocks->Array.filter(lock => {
-    // Conflict if paths overlap and either lock is exclusive
-    let pathOverlap =
-      lock.path == newPath ||
-      newPath->String.startsWith(lock.path) ||
-      lock.path->String.startsWith(newPath)
-    pathOverlap && (lock.exclusive || newExclusive)
-  })
-}
-
-/// Check if a session holds a lock on the given path.
-let sessionHoldsLock = (sessionId: string, path: string, locks: array<workspaceLock>): bool => {
-  locks->Array.some(lock => lock.heldBy == sessionId && lock.path == path)
-}
-
-// ============================================================================
-// Task Coordination
-// ============================================================================
-
-/// Count completed tasks in a task list.
-let completedCount = (tasks: array<sharedTask>): int => {
-  tasks->Array.filter(t => t.status == Done)->Array.length
-}
-
-/// Count remaining (non-completed) tasks.
-let remainingCount = (tasks: array<sharedTask>): int => {
-  tasks
-  ->Array.filter(t => {
-    switch t.status {
-    | Pending | InProgress | Blocked(_) => true
-    | Done | Skipped => false
-    }
-  })
-  ->Array.length
-}
-
-/// Progress percentage (0-100).
-let progressPercent = (tasks: array<sharedTask>): int => {
-  let total = Array.length(tasks)
-  if total == 0 {
-    0
-  } else {
-    completedCount(tasks) * 100 / total
-  }
-}
-
-/// Next available task for a session (first pending unassigned task).
-let nextAvailableTask = (tasks: array<sharedTask>): option<sharedTask> => {
-  tasks->Array.find(t => t.status == Pending && t.assignedTo == None)
-}
-
-// ============================================================================
-// Permission Gating
-// ============================================================================
-
-/// Danger level of an action category.
-type dangerLevel =
-  | Low
-  | Medium
-  | High
-  | Critical
-
-/// Classify the danger level of an action.
-let actionDanger = (category: actionCategory): dangerLevel => {
-  switch category {
-  | GitPush => Medium
-  | GitForcePush => Critical
-  | FileDelete => High
-  | CiCdChange => High
-  | GitHubAction => Medium
-  | OtherDestructive(_) => High
-  }
-}
-
-/// Tailwind colour for a danger level.
-let dangerColor = (level: dangerLevel): string => {
-  switch level {
-  | Low => "text-gray-400"
-  | Medium => "text-amber-400"
-  | High => "text-orange-500"
-  | Critical => "text-red-500"
-  }
-}
-
-/// Action category display name.
-let actionCategoryName = (category: actionCategory): string => {
-  switch category {
-  | GitPush => "git push"
-  | GitForcePush => "git push --force"
-  | FileDelete => "file delete"
-  | CiCdChange => "CI/CD change"
-  | GitHubAction => "GitHub action"
-  | OtherDestructive(desc) => desc
-  }
-}
-
-// ============================================================================
-// Initial State
-// ============================================================================
-
-/// Default resource limits for new sessions.
-let defaultLimits: resourceLimits = {
-  maxMemoryMb: 4096,
-  maxCpuPercent: 80.0,
-  maxSubagents: 3,
-}
-
-/// Default initial state for the LLM Coding panel.
-let init: llmCodingState = {
-  sessions: [],
-  locks: [],
-  pendingActions: [],
-  messages: [],
-  systemMemoryAvailableMb: 0,
-  systemMemoryTotalMb: 0,
-  systemCpuPercent: 0.0,
-  daemonConnected: false,
-  selectedSession: None,
-  showSpawnDialog: false,
-  newSessionName: "",
-  newSessionWorkDir: "",
-  newSessionTaskList: "",
-  loading: false,
-  lastError: None,
-}
diff --git a/src/core/LoadTesterEngine.affine b/src/core/LoadTesterEngine.affine
new file mode 100644
index 00000000..b56f9908
--- /dev/null
+++ b/src/core/LoadTesterEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module LoadTesterEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/LoadTesterEngine.res b/src/core/LoadTesterEngine.res
deleted file mode 100644
index f1132cf9..00000000
--- a/src/core/LoadTesterEngine.res
+++ /dev/null
@@ -1,142 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Load Tester Engine — pure computation and helpers for the
-/// Load Tester panel. Provides default state, player counting, latency
-/// statistics, throughput calculation, and saturation analysis.
-
-open LoadTesterModel
-
-/// Default state for the Load Tester panel.
-/// Starts on the Scenarios tab with a standard scenario pre-loaded.
-let defaultState: loadTesterState = {
-  activeTab: TabScenarios,
-  scenarios: [],
-  selectedScenario: None,
-  players: [],
-  results: [],
-  saturationCurve: [],
-  running: false,
-  error: None,
-}
-
-/// Human-readable label for each tab in the Load Tester panel.
-let tabLabel = (tab: loadTestTab): string =>
-  switch tab {
-  | TabScenarios => "Scenarios"
-  | TabLiveTest => "Live Test"
-  | TabResults => "Results"
-  | TabSaturationCurve => "Saturation Curve"
-  }
-
-/// All tabs in display order.
-let allTabs: array<loadTestTab> = [TabScenarios, TabLiveTest, TabResults, TabSaturationCurve]
-
-/// Count connected players.
-let connectedCount = (players: array<simulatedPlayer>): int =>
-  players
-  ->Array.filter(p =>
-    switch p.status {
-    | PlayerConnected => true
-    | _ => false
-    }
-  )
-  ->Array.length
-
-/// Count errored players.
-let errorCount = (players: array<simulatedPlayer>): int =>
-  players
-  ->Array.filter(p =>
-    switch p.status {
-    | PlayerError(_) => true
-    | _ => false
-    }
-  )
-  ->Array.length
-
-/// Count connecting players (in-flight connections).
-let connectingCount = (players: array<simulatedPlayer>): int =>
-  players
-  ->Array.filter(p =>
-    switch p.status {
-    | PlayerConnecting => true
-    | _ => false
-    }
-  )
-  ->Array.length
-
-/// Average latency across connected players in milliseconds.
-let avgLatency = (players: array<simulatedPlayer>): float => {
-  let connected = players->Array.filter(p =>
-    switch p.status {
-    | PlayerConnected => true
-    | _ => false
-    }
-  )
-  let count = connected->Array.length
-  if count == 0 {
-    0.0
-  } else {
-    let sum = connected->Array.reduce(0.0, (acc, p) => acc +. p.latencyMs)
-    sum /. Float.fromInt(count)
-  }
-}
-
-/// Maximum latency across connected players in milliseconds.
-let maxLatency = (players: array<simulatedPlayer>): float =>
-  players->Array.reduce(0.0, (acc, p) =>
-    switch p.status {
-    | PlayerConnected =>
-      if p.latencyMs > acc {
-        p.latencyMs
-      } else {
-        acc
-      }
-    | _ => acc
-    }
-  )
-
-/// Total messages sent across all players.
-let totalMessagesSent = (players: array<simulatedPlayer>): int =>
-  players->Array.reduce(0, (acc, p) => acc + p.messagesSent)
-
-/// Total messages received across all players.
-let totalMessagesReceived = (players: array<simulatedPlayer>): int =>
-  players->Array.reduce(0, (acc, p) => acc + p.messagesReceived)
-
-/// Human-readable player status label.
-let playerStatusLabel = (status: simulatedPlayerStatus): string =>
-  switch status {
-  | PlayerConnecting => "Connecting..."
-  | PlayerConnected => "Connected"
-  | PlayerDisconnected(reason) => "Disconnected: " ++ reason
-  | PlayerError(err) => "Error: " ++ err
-  }
-
-/// CSS colour class for player status.
-let playerStatusColor = (status: simulatedPlayerStatus): string =>
-  switch status {
-  | PlayerConnecting => "text-yellow-400"
-  | PlayerConnected => "text-green-400"
-  | PlayerDisconnected(_) => "text-gray-500"
-  | PlayerError(_) => "text-red-400"
-  }
-
-/// Default scenario for quick testing.
-let defaultScenario: loadScenario = {
-  name: "Standard Load Test",
-  concurrentPlayers: 10,
-  rampUpSeconds: 5,
-  durationSeconds: 60,
-  messagesPerSecond: 10,
-  channelName: "game:lobby",
-}
-
-/// Error rate from a load test result (0.0 to 1.0).
-let errorRate = (result: loadTestResult): float => {
-  let total = result.messagesTotal + result.errorsTotal
-  if total == 0 {
-    0.0
-  } else {
-    Float.fromInt(result.errorsTotal) /. Float.fromInt(total)
-  }
-}
diff --git a/src/core/ManifestCoverageEngine.affine b/src/core/ManifestCoverageEngine.affine
new file mode 100644
index 00000000..ff5f1f33
--- /dev/null
+++ b/src/core/ManifestCoverageEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ManifestCoverageEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/ManifestCoverageEngine.res b/src/core/ManifestCoverageEngine.res
deleted file mode 100644
index 5c610996..00000000
--- a/src/core/ManifestCoverageEngine.res
+++ /dev/null
@@ -1,37 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Manifest Coverage Engine — pure helpers for AI manifest tracking.
-
-open ManifestCoverageModel
-
-/// Default initial state.
-let defaultState: manifestCoverageState = {
-  activeTab: TabOverview,
-  repos: [],
-  selectedRepo: None,
-  scanning: false,
-  error: None,
-  filterText: "",
-}
-
-/// Tab label for display.
-let tabLabel = (tab: manifestCoverageTab): string => {
-  switch tab {
-  | TabOverview => "Overview"
-  | TabRepoList => "Repos"
-  | TabInvalid => "Invalid"
-  }
-}
-
-/// All tabs for rendering.
-let allTabs: array<manifestCoverageTab> = [TabOverview, TabRepoList, TabInvalid]
-
-/// Count repos with a valid manifest.
-let validManifestCount = (repos: array<repoManifestStatus>): int => {
-  repos->Array.filter(r => r.hasManifest && r.isValid)->Array.length
-}
-
-/// Count repos with no manifest at all.
-let missingManifestCount = (repos: array<repoManifestStatus>): int => {
-  repos->Array.filter(r => !r.hasManifest)->Array.length
-}
diff --git a/src/core/MassPanicEngine.affine b/src/core/MassPanicEngine.affine
new file mode 100644
index 00000000..8aa56020
--- /dev/null
+++ b/src/core/MassPanicEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MassPanicEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/MassPanicEngine.res b/src/core/MassPanicEngine.res
deleted file mode 100644
index e9eb0cfb..00000000
--- a/src/core/MassPanicEngine.res
+++ /dev/null
@@ -1,276 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Mass Panic Engine — pure functions for organisation-scale batch
-/// scanning: repo filtering, sorting, delta computation, imaging helpers,
-/// and temporal snapshot navigation.
-///
-/// All functions are side-effect-free and operate on MassPanicModel types.
-/// Gossamer commands and I/O live in MassPanicCmd; this module is for
-/// deterministic transformations only.
-
-open MassPanicModel
-
-// =========================================================================
-// Default state
-// =========================================================================
-
-/// Initial state for the Mass Panic panel. Incremental mode is on by
-/// default because repeat scans are the common case.
-let defaultState: massPanicState = init
-
-// =========================================================================
-// Sorting helpers
-// =========================================================================
-
-/// Sort repos by the active sort mode. Each mode produces a stable
-/// ordering so the list does not jump around during a scan.
-let sortRepos = (repos: array<repoResult>, mode: repoSortMode): array<repoResult> => {
-  let sorted = Array.copy(repos)
-  sorted->Array.sort((a, b) =>
-    switch mode {
-    | ByRisk =>
-      // Riskiest first: compare by critical desc, then high desc.
-      let cmp = Int.compare(b.critical, a.critical)
-      if cmp != 0.0 {
-        cmp
-      } else {
-        Int.compare(b.high, a.high)
-      }
-    | ByName => String.compare(a.repoName, b.repoName)
-    | ByFindings => Int.compare(b.totalFindings, a.totalFindings)
-    | ByDuration =>
-      let da = a.scanDuration->Option.getOr(0.0)
-      let db = b.scanDuration->Option.getOr(0.0)
-      Float.compare(db, da)
-    }
-  )
-  sorted
-}
-
-// =========================================================================
-// Filtering helpers
-// =========================================================================
-
-/// Filter repos by the active filter mode.
-let filterRepos = (repos: array<repoResult>, mode: repoFilterMode): array<repoResult> =>
-  switch mode {
-  | AllRepos => repos
-  | FindingsOnly => repos->Array.filter(r => r.totalFindings > 0)
-  | CriticalOnly => repos->Array.filter(r => r.critical > 0)
-  | FailedOnly =>
-    repos->Array.filter(r =>
-      switch r.status {
-      | Failed(_) => true
-      | _ => false
-      }
-    )
-  }
-
-/// Apply text search across repo names.
-let searchRepos = (repos: array<repoResult>, query: string): array<repoResult> =>
-  if query == "" {
-    repos
-  } else {
-    let q = String.toLowerCase(query)
-    repos->Array.filter(r => String.includes(String.toLowerCase(r.repoName), q))
-  }
-
-/// Composite: filter → search → sort in one pass.
-let applyFilters = (
-  repos: array<repoResult>,
-  filterMode: repoFilterMode,
-  searchText: string,
-  sortMode: repoSortMode,
-): array<repoResult> => repos->filterRepos(filterMode)->searchRepos(searchText)->sortRepos(sortMode)
-
-// =========================================================================
-// Selection helpers
-// =========================================================================
-
-/// Check whether a given index is in the selected set.
-let isSelected = (selected: array<int>, idx: int): bool => selected->Array.some(i => i == idx)
-
-/// Toggle a repo index in/out of the selected set.
-let toggleSelection = (selected: array<int>, idx: int): array<int> =>
-  if isSelected(selected, idx) {
-    selected->Array.filter(i => i != idx)
-  } else {
-    Array.concat(selected, [idx])
-  }
-
-/// Select all repo indices (0..n-1).
-let selectAllIndices = (count: int): array<int> => Array.fromInitializer(~length=count, i => i)
-
-// =========================================================================
-// Aggregate statistics
-// =========================================================================
-
-/// Count repos that completed scanning (not queued, not failed).
-let completedCount = (repos: array<repoResult>): int =>
-  repos
-  ->Array.filter(r =>
-    switch r.status {
-    | Complete | Skipped => true
-    | _ => false
-    }
-  )
-  ->Array.length
-
-/// Count repos with at least one critical finding.
-let criticalRepoCount = (repos: array<repoResult>): int =>
-  repos->Array.filter(r => r.critical > 0)->Array.length
-
-/// Total findings across all repos.
-let totalFindings = (repos: array<repoResult>): int =>
-  repos->Array.reduce(0, (acc, r) => acc + r.totalFindings)
-
-/// Compute overall scan progress as a fraction (0.0–1.0).
-let computeProgress = (repos: array<repoResult>): float => {
-  let total = repos->Array.length
-  if total == 0 {
-    0.0
-  } else {
-    let done = completedCount(repos)
-    Float.fromInt(done) /. Float.fromInt(total)
-  }
-}
-
-// =========================================================================
-// Delta helpers
-// =========================================================================
-
-/// Human-readable label for a change direction.
-let changeDirectionLabel = (dir: string): string =>
-  switch dir {
-  | "improved" => "Improved"
-  | "regressed" => "Regressed"
-  | "unchanged" => "Unchanged"
-  | "new" => "New"
-  | other => other
-  }
-
-/// CSS colour class for a change direction.
-let changeDirectionColour = (dir: string): string =>
-  switch dir {
-  | "improved" => "text-emerald-400"
-  | "regressed" => "text-red-400"
-  | "unchanged" => "text-gray-400"
-  | "new" => "text-cyan-400"
-  | _ => "text-gray-500"
-  }
-
-/// Count deltas that regressed.
-let regressedCount = (deltas: array<deltaEntry>): int =>
-  deltas->Array.filter(d => d.changeDirection == "regressed")->Array.length
-
-/// Count deltas that improved.
-let improvedCount = (deltas: array<deltaEntry>): int =>
-  deltas->Array.filter(d => d.changeDirection == "improved")->Array.length
-
-// =========================================================================
-// Imaging helpers (fNIRS-style spatial health map)
-// =========================================================================
-
-/// Format a health score as a percentage string (e.g. "87.3%").
-let healthLabel = (score: float): string => Float.toFixed(score *. 100.0, ~digits=1) ++ "%"
-
-/// CSS colour class for a health score (green→yellow→red gradient).
-let healthColour = (score: float): string =>
-  if score >= 0.8 {
-    "text-emerald-400"
-  } else if score >= 0.6 {
-    "text-amber-400"
-  } else if score >= 0.4 {
-    "text-orange-400"
-  } else {
-    "text-red-400"
-  }
-
-/// Total weak points from a risk distribution.
-let riskDistTotal = (dist: riskDistribution): int =>
-  dist.healthy + dist.low + dist.moderate + dist.high + dist.critical
-
-/// Find the top-N riskiest nodes in a system image.
-let topRiskyNodes = (image: systemImage, n: int): array<imageNode> => {
-  let sorted = Array.copy(image.nodes)
-  sorted->Array.sort((a, b) => Float.compare(b.riskIntensity, a.riskIntensity))
-  sorted->Array.slice(~start=0, ~end=n)
-}
-
-// =========================================================================
-// Temporal helpers
-// =========================================================================
-
-/// Human-readable trend label.
-let trendLabel = (trend: string): string =>
-  switch trend {
-  | "improving" => "Improving"
-  | "degrading" => "Degrading"
-  | "stable" => "Stable"
-  | other => other
-  }
-
-/// CSS colour class for a temporal trend.
-let trendColour = (trend: string): string =>
-  switch trend {
-  | "improving" => "text-emerald-400"
-  | "degrading" => "text-red-400"
-  | "stable" => "text-gray-400"
-  | _ => "text-gray-500"
-  }
-
-/// Sub-view tab labels.
-let viewLabel = (v: massPanicView): string =>
-  switch v {
-  | ScanView => "Scan"
-  | ImagingView => "Imaging"
-  | TemporalView => "Temporal"
-  }
-
-/// All sub-view tabs.
-let allViews: array<massPanicView> = [ScanView, ImagingView, TemporalView]
-
-/// Format a scan duration in seconds as a human-readable string.
-let formatDuration = (seconds: float): string =>
-  if seconds < 60.0 {
-    Float.toFixed(seconds, ~digits=1) ++ "s"
-  } else {
-    let mins = Float.toInt(seconds /. 60.0)
-    let secs = mod(Float.toInt(seconds), 60)
-    Int.toString(mins) ++ "m " ++ Int.toString(secs) ++ "s"
-  }
-
-/// Human-readable label for repo scan status.
-let statusLabel = (status: repoScanStatus): string =>
-  switch status {
-  | Queued => "Queued"
-  | Scanning => "Scanning"
-  | Complete => "Complete"
-  | Skipped => "Skipped"
-  | Failed(reason) => "Failed: " ++ reason
-  }
-
-/// Human-readable label for filter mode.
-let filterModeLabel = (mode: repoFilterMode): string =>
-  switch mode {
-  | AllRepos => "All"
-  | FindingsOnly => "With Findings"
-  | CriticalOnly => "Critical Only"
-  | FailedOnly => "Failed"
-  }
-
-/// All filter modes for the filter dropdown.
-let allFilterModes: array<repoFilterMode> = [AllRepos, FindingsOnly, CriticalOnly, FailedOnly]
-
-/// Human-readable label for sort mode.
-let sortModeLabel = (mode: repoSortMode): string =>
-  switch mode {
-  | ByRisk => "Risk"
-  | ByName => "Name"
-  | ByFindings => "Findings"
-  | ByDuration => "Duration"
-  }
-
-/// All sort modes for the sort dropdown.
-let allSortModes: array<repoSortMode> = [ByRisk, ByName, ByFindings, ByDuration]
diff --git a/src/core/MergeCoordinatorEngine.affine b/src/core/MergeCoordinatorEngine.affine
new file mode 100644
index 00000000..a5af6ff3
--- /dev/null
+++ b/src/core/MergeCoordinatorEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MergeCoordinatorEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/MergeCoordinatorEngine.res b/src/core/MergeCoordinatorEngine.res
deleted file mode 100644
index df9e47e3..00000000
--- a/src/core/MergeCoordinatorEngine.res
+++ /dev/null
@@ -1,98 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Merge Coordinator Engine — pure computation and helpers for the
-/// Merge Coordinator panel. Provides default state, branch counting,
-/// conflict analysis, queue management, and status formatting.
-
-open MergeCoordinatorModel
-
-/// Default initial state for the Merge Coordinator panel.
-/// Starts on the Branches tab with empty lists.
-let defaultState: mergeCoordinatorState = {
-  activeTab: TabBranches,
-  branches: [],
-  conflicts: [],
-  mergeQueue: [],
-  selectedBranch: None,
-  error: None,
-}
-
-/// Human-readable label for each tab in the Merge Coordinator panel.
-let tabLabel = (tab: mergeCoordinatorTab): string =>
-  switch tab {
-  | TabBranches => "Branches"
-  | TabConflicts => "Conflicts"
-  | TabMergeQueue => "Merge Queue"
-  | TabHistory => "History"
-  }
-
-/// All tabs in display order.
-let allTabs: array<mergeCoordinatorTab> = [TabBranches, TabConflicts, TabMergeQueue, TabHistory]
-
-/// Human-readable label for a branch status.
-let statusLabel = (status: branchStatus): string =>
-  switch status {
-  | BrActive => "Active"
-  | BrMerging => "Merging"
-  | BrConflicted => "Conflicted"
-  | BrMerged => "Merged"
-  | BrStale => "Stale"
-  }
-
-/// CSS colour class for a branch status.
-let statusColor = (status: branchStatus): string =>
-  switch status {
-  | BrActive => "text-green-400"
-  | BrMerging => "text-yellow-400"
-  | BrConflicted => "text-red-400"
-  | BrMerged => "text-purple-400"
-  | BrStale => "text-gray-500"
-  }
-
-/// Count unresolved merge conflicts.
-let countConflicts = (conflicts: array<mergeConflict>): int =>
-  conflicts->Array.filter(c => !c.resolved)->Array.length
-
-/// Count resolved conflicts.
-let countResolvedConflicts = (conflicts: array<mergeConflict>): int =>
-  conflicts->Array.filter(c => c.resolved)->Array.length
-
-/// Count stale branches (no recent activity, not merged).
-let countStale = (branches: array<managedBranch>): int =>
-  branches->Array.filter(b => b.status === BrStale)->Array.length
-
-/// Count active branches.
-let countActive = (branches: array<managedBranch>): int =>
-  branches->Array.filter(b => b.status === BrActive)->Array.length
-
-/// Count conflicted branches.
-let countConflicted = (branches: array<managedBranch>): int =>
-  branches->Array.filter(b => b.status === BrConflicted)->Array.length
-
-/// Number of entries in the merge queue.
-let queueLength = (queue: array<mergeQueueEntry>): int => Array.length(queue)
-
-/// Count queue entries where all checks have passed.
-let readyToMerge = (queue: array<mergeQueueEntry>): int =>
-  queue->Array.filter(e => e.checksPassed)->Array.length
-
-/// Count queue entries still waiting for checks.
-let pendingChecks = (queue: array<mergeQueueEntry>): int =>
-  queue->Array.filter(e => !e.checksPassed)->Array.length
-
-/// Whether a branch is diverged (both ahead and behind its base).
-let isDiverged = (branch: managedBranch): bool => branch.aheadBy > 0 && branch.behindBy > 0
-
-/// Find branches that need rebasing (behind base by more than N commits).
-let needsRebase = (branches: array<managedBranch>, threshold: int): array<managedBranch> =>
-  branches->Array.filter(b => b.behindBy > threshold && b.status === BrActive)
-
-/// Conflict resolution progress as a percentage.
-let conflictResolutionProgress = (conflicts: array<mergeConflict>): float => {
-  let total = Array.length(conflicts)
-  if total == 0 {
-    100.0
-  } else {
-    Float.fromInt(countResolvedConflicts(conflicts)) /. Float.fromInt(total) *. 100.0
-  }
-}
diff --git a/src/core/MigrationEngine.affine b/src/core/MigrationEngine.affine
new file mode 100644
index 00000000..dc59b109
--- /dev/null
+++ b/src/core/MigrationEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MigrationEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/MigrationEngine.res b/src/core/MigrationEngine.res
deleted file mode 100644
index fde8135b..00000000
--- a/src/core/MigrationEngine.res
+++ /dev/null
@@ -1,200 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Migration Engine — pure computation for the Migration Observatory panel.
-///
-/// Parses panic-attack migration snapshots, feedback-o-tron session data,
-/// and merge-resolver decision logs. Computes aggregate metrics, filters,
-/// sorts, and provides display helpers.
-
-open MigrationModel
-
-/// Human-readable label for a version bracket.
-let versionBracketLabel = (bracket: migrationVersionBracket): string =>
-  switch bracket {
-  | BuckleScript => "BuckleScript"
-  | V11 => "v11"
-  | V12Alpha => "v12-alpha"
-  | V12Stable => "v12-stable"
-  | V12Current => "v12-current"
-  | V13PreRelease => "v13-prerelease"
-  | VersionUnknown => "unknown"
-  }
-
-/// CSS class for version bracket badge.
-let versionBracketColor = (bracket: migrationVersionBracket): string =>
-  switch bracket {
-  | BuckleScript => "bg-red-500"
-  | V11 => "bg-orange-400"
-  | V12Alpha => "bg-yellow-400"
-  | V12Stable => "bg-blue-400"
-  | V12Current => "bg-green-400"
-  | V13PreRelease => "bg-purple-400"
-  | VersionUnknown => "bg-gray-400"
-  }
-
-/// Human-readable label for config format.
-let configFormatLabel = (fmt: migrationConfigFormat): string =>
-  switch fmt {
-  | BsConfig => "bsconfig.json"
-  | RescriptJson => "rescript.json"
-  | ConfigBoth => "both"
-  | ConfigNone => "none"
-  }
-
-/// Human-readable label for health trend.
-let trendLabel = (trend: healthTrend): string =>
-  switch trend {
-  | Improving => "Improving"
-  | Stable => "Stable"
-  | Regressing => "Regressing"
-  }
-
-/// CSS indicator for health trend.
-let trendIndicator = (trend: healthTrend): string =>
-  switch trend {
-  | Improving => "text-green-400"
-  | Stable => "text-gray-400"
-  | Regressing => "text-red-400"
-  }
-
-/// Category tab label.
-let categoryLabel = (cat: migrationCategory): string =>
-  switch cat {
-  | MigrationDashboard => "Dashboard"
-  | MigrationTimeline => "Timeline"
-  | MigrationReports => "Reports"
-  | MigrationSubmissions => "Submissions"
-  | MigrationMergeResolver => "Merge Resolver"
-  }
-
-/// Report type label.
-let reportTypeLabel = (rt: migrationReportType): string =>
-  switch rt {
-  | PerRepoReport => "Per-Repo"
-  | CrossRepoReport => "Cross-Repo"
-  | V13TrialReport => "v13 Trial"
-  }
-
-/// Submission status label.
-let submissionStatusLabel = (status: submissionStatus): string =>
-  switch status {
-  | SubmissionPending => "Pending"
-  | SubmissionApproved => "Approved"
-  | SubmissionRejected => "Rejected"
-  | SubmissionSubmitted => "Submitted"
-  }
-
-/// CSS class for submission status.
-let submissionStatusColor = (status: submissionStatus): string =>
-  switch status {
-  | SubmissionPending => "text-yellow-400"
-  | SubmissionApproved => "text-green-400"
-  | SubmissionRejected => "text-red-400"
-  | SubmissionSubmitted => "text-blue-400"
-  }
-
-/// CSS class for health score.
-let healthColor = (score: float): string =>
-  if score >= 0.8 {
-    "text-green-400"
-  } else if score >= 0.5 {
-    "text-yellow-400"
-  } else {
-    "text-red-400"
-  }
-
-/// Format health score as percentage.
-let healthPercent = (score: float): string => {
-  let pct = score *. 100.0
-  Float.toFixed(pct, ~digits=0) ++ "%"
-}
-
-/// Filter repos by text search.
-let filterRepos = (repos: array<migrationRepoSummary>, query: string): array<
-  migrationRepoSummary,
-> => {
-  if query === "" {
-    repos
-  } else {
-    let q = String.toLowerCase(query)
-    repos->Array.filter(r => String.includes(String.toLowerCase(r.name), q))
-  }
-}
-
-/// Sort repos by health score ascending (worst first).
-let sortByHealth = (repos: array<migrationRepoSummary>): array<migrationRepoSummary> => {
-  let sorted = Array.copy(repos)
-  sorted->Array.sort((a, b) => a.healthScore -. b.healthScore)
-  sorted
-}
-
-/// Sort repos by deprecated count descending (most deprecated first).
-let sortByDeprecated = (repos: array<migrationRepoSummary>): array<migrationRepoSummary> => {
-  let sorted = Array.copy(repos)
-  sorted->Array.sort((a, b) => Int.toFloat(b.deprecatedCount - a.deprecatedCount))
-  sorted
-}
-
-/// Compute average health across all repos.
-let computeAvgHealth = (repos: array<migrationRepoSummary>): float => {
-  let len = Array.length(repos)
-  if len > 0 {
-    repos->Array.map(r => r.healthScore)->Array.reduce(0.0, (a, b) => a +. b) /. Int.toFloat(len)
-  } else {
-    0.0
-  }
-}
-
-/// Count repos ready for migration.
-let countReady = (repos: array<migrationRepoSummary>): int =>
-  repos->Array.filter(r => r.healthScore >= 0.8 && !r.blocked)->Array.length
-
-/// Count blocked repos.
-let countBlocked = (repos: array<migrationRepoSummary>): int =>
-  repos->Array.filter(r => r.blocked)->Array.length
-
-/// Group repos by version bracket.
-let groupByVersion = (repos: array<migrationRepoSummary>): array<(
-  migrationVersionBracket,
-  array<migrationRepoSummary>,
-)> => {
-  let groups: array<(migrationVersionBracket, array<migrationRepoSummary>)> = [
-    (BuckleScript, repos->Array.filter(r => r.versionBracket == BuckleScript)),
-    (V11, repos->Array.filter(r => r.versionBracket == V11)),
-    (V12Alpha, repos->Array.filter(r => r.versionBracket == V12Alpha)),
-    (V12Stable, repos->Array.filter(r => r.versionBracket == V12Stable)),
-    (V12Current, repos->Array.filter(r => r.versionBracket == V12Current)),
-    (V13PreRelease, repos->Array.filter(r => r.versionBracket == V13PreRelease)),
-    (VersionUnknown, repos->Array.filter(r => r.versionBracket == VersionUnknown)),
-  ]
-  groups->Array.filter(((_, rs)) => Array.length(rs) > 0)
-}
-
-/// Get pending submissions count.
-let pendingSubmissions = (submissions: array<migrationSubmission>): int =>
-  submissions->Array.filter(s => s.status == SubmissionPending)->Array.length
-
-/// Get active sessions count.
-let activeSessions = (sessions: array<migrationSession>): int =>
-  sessions->Array.filter(s => s.active)->Array.length
-
-/// Default state for the Migration Observatory panel.
-let defaultState: migrationState = {
-  loaded: false,
-  loading: false,
-  error: None,
-  repos: [],
-  sessions: [],
-  submissions: [],
-  constraints: [],
-  obligations: [],
-  mergeResolutions: [],
-  activeCategory: MigrationDashboard,
-  activeReportType: PerRepoReport,
-  filterText: "",
-  totalRepos: 0,
-  readyCount: 0,
-  blockedCount: 0,
-  avgHealth: 0.0,
-  velocity: 0.0,
-}
diff --git a/src/core/MinterEngine.affine b/src/core/MinterEngine.affine
new file mode 100644
index 00000000..8b45d7fc
--- /dev/null
+++ b/src/core/MinterEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MinterEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/MinterEngine.res b/src/core/MinterEngine.res
deleted file mode 100644
index de044e19..00000000
--- a/src/core/MinterEngine.res
+++ /dev/null
@@ -1,572 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Minter Engine — pure template generation logic for the Panel Minter.
-///
-/// All functions are pure (no side effects, no API calls). This module
-/// generates the ReScript source code strings for each file in a new panel
-/// module, and validates panel names against the existing registry.
-///
-/// The generated code includes accessibility attributes, ARIA semantics,
-/// keyboard navigation, and proof hook stubs by default — making it
-/// structurally harder to produce an inaccessible panel than an accessible one.
-
-open MinterModel
-
-// ============================================================================
-// Name validation
-// ============================================================================
-
-/// Reserved panel names that cannot be used (existing or special).
-let reservedNames: array<string> = [
-  "CloudGuard",
-  "Vab",
-  "Farm",
-  "Fleet",
-  "Hypatia",
-  "Reposystem",
-  "Databases",
-  "Aerie",
-  "Interfaces",
-  "Playgrounds",
-  "Plaza",
-  "Minter",
-  "PanelSwitcher",
-  "Model",
-  "Msg",
-  "Update",
-  "View",
-]
-
-/// Validate a panel name: must be PascalCase, non-empty, and not reserved.
-let validateName = (name: string): nameValidation => {
-  if String.length(name) === 0 {
-    NameInvalid("Panel name cannot be empty")
-  } else if String.length(name) < 2 {
-    NameInvalid("Panel name must be at least 2 characters")
-  } else {
-    // Check PascalCase: first char uppercase, rest alphanumeric
-    let firstChar = String.charAt(name, 0)
-    if firstChar !== String.toUpperCase(firstChar) {
-      NameInvalid("Panel name must start with an uppercase letter (PascalCase)")
-    } else if reservedNames->Array.includes(name) {
-      NameConflict(`"${name}" is already registered or reserved`)
-    } else {
-      NameValid
-    }
-  }
-}
-
-/// Convert PascalCase to camelCase for variable/field names.
-let toCamelCase = (name: string): string => {
-  if String.length(name) === 0 {
-    ""
-  } else {
-    String.toLowerCase(String.charAt(name, 0)) ++ String.sliceToEnd(name, ~start=1)
-  }
-}
-
-/// Convert PascalCase to snake_case for Rust module/command names.
-let toSnakeCase = (name: string): string => {
-  let result = ref("")
-  for i in 0 to String.length(name) - 1 {
-    let ch = String.charAt(name, i)
-    if ch === String.toUpperCase(ch) && ch !== String.toLowerCase(ch) {
-      if i > 0 {
-        result := result.contents ++ "_"
-      }
-      result := result.contents ++ String.toLowerCase(ch)
-    } else {
-      result := result.contents ++ ch
-    }
-  }
-  result.contents
-}
-
-// ============================================================================
-// Display helpers
-// ============================================================================
-
-/// Human-readable label for a backend kind.
-let backendKindLabel = (kind: panelBackendKind): string => {
-  switch kind {
-  | NoBackend => "No Backend"
-  | FilesystemBackend => "Filesystem"
-  | HttpBackend => "HTTP API"
-  | DatabaseBackend => "Database"
-  }
-}
-
-/// All backend kinds in display order.
-let allBackendKinds: array<panelBackendKind> = [
-  NoBackend,
-  FilesystemBackend,
-  HttpBackend,
-  DatabaseBackend,
-]
-
-/// Human-readable label for an accessibility level.
-let accessibilityLabel = (level: accessibilityLevel): string => {
-  switch level {
-  | StandardAccessibility => "Standard"
-  | EnhancedAccessibility => "Enhanced"
-  }
-}
-
-/// Description for an accessibility level.
-let accessibilityDescription = (level: accessibilityLevel): string => {
-  switch level {
-  | StandardAccessibility => "Keyboard nav, role attributes, aria-label on interactive elements"
-  | EnhancedAccessibility => "Adds aria-live regions, focus management, skip links, landmark roles"
-  }
-}
-
-/// Description for a backend kind.
-let backendKindDescription = (kind: panelBackendKind): string => {
-  switch kind {
-  | NoBackend => "Pure frontend panel with no backend commands"
-  | FilesystemBackend => "Reads local files via backend (like Farm, Plaza)"
-  | HttpBackend => "Connects to an external HTTP API (like CloudGuard)"
-  | DatabaseBackend => "Uses existing database module connections"
-  }
-}
-
-// ============================================================================
-// Wizard step helpers
-// ============================================================================
-
-/// Total number of wizard steps.
-let totalSteps = 4
-
-/// Label for a wizard step.
-let stepLabel = (step: int): string => {
-  switch step {
-  | 0 => "Name & Identity"
-  | 1 => "Backend & Config"
-  | 2 => "Capabilities"
-  | 3 => "Review & Mint"
-  | _ => "Unknown"
-  }
-}
-
-/// Whether the form is valid enough to proceed past a given step.
-let canProceedFromStep = (form: minterForm, step: int): bool => {
-  switch step {
-  | 0 =>
-    form.nameValidation === NameValid &&
-    String.length(form.panelName) >= 2 &&
-    String.length(form.shortName) >= 1 &&
-    String.length(form.description) >= 5
-  | 1 => true // Backend kind always has a valid default
-  | 2 => true // Capabilities are optional
-  | 3 => true // Review step — ready to mint
-  | _ => false
-  }
-}
-
-// ============================================================================
-// Template generation — ReScript source code strings
-// ============================================================================
-
-/// Generate the Model file content for a new panel.
-let generateModel = (form: minterForm): string => {
-  let camel = toCamelCase(form.panelName)
-
-  `// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL ${form.panelName} Model - state types for the ${form.panelName} panel.
-///
-/// ${form.description}
-///
-/// Dependency: leaf module - no imports from other PanLL models.
-
-/// Category tabs for the ${form.panelName} panel.
-type ${camel}Category =
-  | ${form.panelName}Dashboard
-  | ${form.panelName}Settings
-
-/// Root state for the ${form.panelName} panel.
-type ${camel}State = {
-  loaded: bool,
-  loading: bool,
-  error: option<string>,
-  activeCategory: ${camel}Category,
-  filterText: string,
-}
-`
-}
-
-/// Generate the Module file content for a new panel.
-let generateModule = (form: minterForm): string => {
-  let camel = toCamelCase(form.panelName)
-
-  let capVariants = if Array.length(form.capabilities) > 0 {
-    form.capabilities
-    ->Array.map(cap => `  | ${cap.id}`)
-    ->Array.join("\n")
-  } else {
-    `  | ${form.panelName}Base`
-  }
-
-  let capLabels = if Array.length(form.capabilities) > 0 {
-    form.capabilities
-    ->Array.map(cap => `  | ${cap.id} => "${cap.label}"`)
-    ->Array.join("\n")
-  } else {
-    `  | ${form.panelName}Base => "${form.panelName} Base"`
-  }
-
-  let capArray = if Array.length(form.capabilities) > 0 {
-    form.capabilities
-    ->Array.map(cap => cap.id)
-    ->Array.join(", ")
-  } else {
-    `${form.panelName}Base`
-  }
-
-  `// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL ${form.panelName} Module - capability registration.
-///
-/// Declares what the ${form.panelName} panel can do. The UI renders controls
-/// only for capabilities that are declared here.
-
-open ${form.panelName}Model
-
-/// Capabilities that the ${form.panelName} panel exposes.
-type ${camel}Capability =
-${capVariants}
-
-/// Module configuration for the ${form.panelName} panel.
-type ${camel}ModuleConfig = {
-  id: string,
-  name: string,
-  version: string,
-  description: string,
-  capabilities: array<${camel}Capability>,
-  icon: option<string>,
-}
-
-/// The canonical module configuration.
-let config: ${camel}ModuleConfig = {
-  id: "${camel}",
-  name: "${form.panelName}",
-  version: "0.1.0",
-  description: "${form.description}",
-  capabilities: [${capArray}],
-  icon: Some("${form.icon}"),
-}
-
-/// Check if a capability is declared.
-let hasCapability = (cap: ${camel}Capability): bool => {
-  config.capabilities->Array.includes(cap)
-}
-
-/// Human-readable label for a capability.
-let capabilityLabel = (cap: ${camel}Capability): string => {
-  switch cap {
-${capLabels}
-  }
-}
-`
-}
-
-/// Generate the Component (view) file content for a new panel.
-/// Includes accessibility attributes by default.
-let generateComponent = (form: minterForm): string => {
-  let camel = toCamelCase(form.panelName)
-  let enhancedAria = form.accessibility === EnhancedAccessibility
-
-  let landmarkRole = enhancedAria
-    ? `
-      Attrs.role("main"),
-      Attrs.ariaLabel("${form.panelName} panel"),`
-    : `
-      Attrs.ariaLabel("${form.panelName} panel"),`
-
-  `// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL ${form.panelName} Component - view layer for the ${form.panelName} panel.
-///
-/// ${form.description}
-///
-/// Accessibility: keyboard navigation, ARIA labels, and role attributes are
-/// included by default. All interactive elements are focusable and labelled.
-
-open Model
-open Msg
-open Tea.Html
-
-/// Render the category tab bar with accessible tab semantics.
-let renderCategoryTab = (
-  cat: ${camel}Category,
-  isActive: bool,
-): Tea_Vdom.t<msg> => {
-  let activeClass = isActive
-    ? "border-indigo-500 text-indigo-300 bg-gray-800/50"
-    : "border-transparent text-gray-500 hover:text-gray-300 hover:border-gray-600"
-  button(
-    list{
-      Attrs.class_(\`px-4 py-2 text-sm font-medium border-b-2 cursor-pointer transition-colors \${activeClass}\`),
-      Attrs.role("tab"),
-      Attrs.ariaSelected(isActive),
-      Events.onClick(${form.panelName}(Set${form.panelName}Category(cat))),
-    },
-    list{text(${form.panelName}Engine.categoryLabel(cat))},
-  )
-}
-
-/// Render the tab bar.
-let renderTabBar = (activeCategory: ${camel}Category): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("flex border-b border-gray-800 overflow-x-auto"),
-      Attrs.role("tablist"),
-      Attrs.ariaLabel("${form.panelName} sections"),
-    },
-    ${form.panelName}Engine.allCategories
-    ->Array.map(cat => renderCategoryTab(cat, cat === activeCategory))
-    ->List.fromArray,
-  )
-}
-
-/// Render the panel header with title and close button.
-let renderHeader = (state: ${camel}State): Tea_Vdom.t<msg> => {
-  let _ = state // Available for header stats
-  div(
-    list{Attrs.class_("flex items-center justify-between px-6 py-4 border-b border-gray-800")},
-    list{
-      div(
-        list{Attrs.class_("flex items-center gap-3")},
-        list{
-          h2(
-            list{Attrs.class_("text-lg font-medium text-gray-200")},
-            list{text("${form.panelName}")},
-          ),
-        },
-      ),
-      button(
-        list{
-          Attrs.class_("px-3 py-1.5 text-sm text-gray-400 hover:text-gray-200 bg-gray-800 rounded hover:bg-gray-700 transition-colors"),
-          Attrs.ariaLabel("Close ${form.panelName} panel"),
-          Events.onClick(PanelSwitcher(ClosePanels)),
-        },
-        list{text("Close")},
-      ),
-    },
-  )
-}
-
-/// Render the main content area.
-let renderContent = (state: ${camel}State): Tea_Vdom.t<msg> => {
-  let _ = state
-  div(
-    list{
-      Attrs.class_("flex-1 overflow-y-auto p-6"),
-      Attrs.role("tabpanel"),
-    },
-    list{
-      div(
-        list{Attrs.class_("text-center py-12")},
-        list{
-          div(
-            list{Attrs.class_("text-2xl font-light text-gray-400 mb-4")},
-            list{text("${form.panelName}")},
-          ),
-          div(
-            list{Attrs.class_("text-sm text-gray-600")},
-            list{text("${form.description}")},
-          ),
-          div(
-            list{Attrs.class_("text-xs text-gray-700 mt-2")},
-            list{text("Panel scaffolded by the PanLL Minter")},
-          ),
-        },
-      ),
-    },
-  )
-}
-
-/// Render the loading state with accessible live region.
-let renderLoading = (): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("flex items-center justify-center py-12"),
-      Attrs.ariaLive("polite"),
-    },
-    list{
-      div(
-        list{Attrs.class_("text-sm text-gray-500 animate-pulse")},
-        list{text("Loading ${form.panelName}...")},
-      ),
-    },
-  )
-}
-
-/// Render an error state with accessible alert role.
-let renderError = (err: string): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("mx-6 my-4 p-3 bg-red-950/30 border border-red-800/50 rounded"),
-      Attrs.role("alert"),
-    },
-    list{
-      div(
-        list{Attrs.class_("text-sm text-red-400")},
-        list{text(err)},
-      ),
-    },
-  )
-}
-
-/// Main view function for the ${form.panelName} panel.
-let view = (state: ${camel}State): Tea_Vdom.t<msg> => {
-  div(
-    list{
-      Attrs.class_("fixed inset-0 bg-gray-950/95 z-40 flex flex-col"),${landmarkRole}
-    },
-    list{
-      renderHeader(state),
-      renderTabBar(state.activeCategory),
-      if state.loading {
-        renderLoading()
-      } else {
-        switch state.error {
-        | Some(err) => renderError(err)
-        | None => renderContent(state)
-        }
-      },
-    },
-  )
-}
-`
-}
-
-/// Generate the Engine file content for a new panel.
-let generateEngine = (form: minterForm): string => {
-  let camel = toCamelCase(form.panelName)
-
-  `// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL ${form.panelName} Engine - pure computation for the ${form.panelName} panel.
-///
-/// All functions are pure (no side effects, no API calls).
-
-open ${form.panelName}Model
-
-/// Human-readable label for a category.
-let categoryLabel = (cat: ${camel}Category): string => {
-  switch cat {
-  | ${form.panelName}Dashboard => "Dashboard"
-  | ${form.panelName}Settings => "Settings"
-  }
-}
-
-/// All categories in display order.
-let allCategories: array<${camel}Category> = [
-  ${form.panelName}Dashboard,
-  ${form.panelName}Settings,
-]
-`
-}
-
-/// Generate the Cmd file content for a new panel (only if backend is needed).
-let generateCmd = (form: minterForm): option<string> => {
-  let snake = toSnakeCase(form.panelName)
-
-  switch form.backendKind {
-  | NoBackend => None
-  | _ =>
-    Some(
-      `// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL ${form.panelName} Commands - backend command wrappers.
-///
-/// Each function wraps a RuntimeBridge.invoke call in a \`Tea_Cmd.call\`,
-/// converting the Promise-based IPC into the TEA command model.
-/// Works with Gossamer runtime.
-
-let invoke = RuntimeBridge.invoke
-
-/// Load the primary data for this panel.
-let loadData = (
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    invoke("${snake}_load_data", ())
-    ->Promise.then(result => {
-      callbacks.enqueue(tagger(Ok(result)))
-      Promise.resolve()
-    })
-    ->Promise.catch(_err => {
-      callbacks.enqueue(tagger(Error("Failed to load ${form.panelName} data")))
-      Promise.resolve()
-    })
-    ->ignore
-  })
-}
-`,
-    )
-  }
-}
-
-/// Summary of what files will be generated for the review step.
-let fileSummary = (form: minterForm): array<(string, string)> => {
-  let camel = toCamelCase(form.panelName)
-  let snake = toSnakeCase(form.panelName)
-  let hasBackend = form.backendKind !== NoBackend
-
-  let files = [
-    (`src/model/${form.panelName}Model.res`, "State types"),
-    (`src/modules/${form.panelName}Module.res`, "Capability registration"),
-    (`src/core/${form.panelName}Engine.res`, "Pure computation"),
-    (`src/components/${form.panelName}.res`, "View component"),
-  ]
-
-  let manifestFile = [(`src/panels/${snake}/panels/manifest.json`, "panll-harness/v2 manifest")]
-
-  let cmdFile = hasBackend ? [(`src/commands/${form.panelName}Cmd.res`, "Backend commands")] : []
-
-  let rustFiles = hasBackend
-    ? [
-        (`src-gossamer/src/${snake}/mod.rs`, "Rust module"),
-        (`src-gossamer/src/${snake}/types.rs`, "Rust types"),
-        (`src-gossamer/src/${snake}/commands.rs`, "Backend handlers"),
-      ]
-    : []
-
-  let patches = [
-    ("src/model/PanelSwitcherModel.res", `Add Panel${form.panelName} variant`),
-    ("src/modules/PanelRegistry.res", "Register panel metadata"),
-    ("src/Model.res", `Add include + ${camel} field`),
-    ("src/Msg.res", `Add ${camel}Msg type`),
-    ("src/View.res", "Add renderActivePanel case"),
-    ("src/Update.res", `Add update${form.panelName} handler`),
-  ]
-
-  Array.concat(
-    Array.concat(Array.concat(Array.concat(files, manifestFile), cmdFile), rustFiles),
-    patches,
-  )
-}
-
-/// Default form state for a new minting session.
-let defaultForm: minterForm = {
-  panelName: "",
-  shortName: "",
-  description: "",
-  icon: "panel",
-  backendKind: NoBackend,
-  accessibility: EnhancedAccessibility,
-  capabilities: [],
-  nameValidation: NameInvalid("Panel name cannot be empty"),
-  endpoint: "",
-}
-
-/// Default minter state.
-let defaultState: minterState = {
-  form: defaultForm,
-  minting: false,
-  lastResult: None,
-  error: None,
-  wizardStep: 0,
-}
diff --git a/src/core/MultiplayerMonitorEngine.affine b/src/core/MultiplayerMonitorEngine.affine
new file mode 100644
index 00000000..6e7d7533
--- /dev/null
+++ b/src/core/MultiplayerMonitorEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MultiplayerMonitorEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/MultiplayerMonitorEngine.res b/src/core/MultiplayerMonitorEngine.res
deleted file mode 100644
index 1c149b17..00000000
--- a/src/core/MultiplayerMonitorEngine.res
+++ /dev/null
@@ -1,83 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Multiplayer Monitor Engine — pure computation and helpers for
-/// the IDApTIK multiplayer sync server monitoring panel.
-
-open MultiplayerMonitorModel
-
-/// Human-readable labels for category tabs.
-let categoryLabel = (cat: multiplayerCategory): string =>
-  switch cat {
-  | MultiplayerDashboard => "Dashboard"
-  | MultiplayerChannels => "Channels"
-  | MultiplayerStateDiff => "State Diff"
-  | MultiplayerLatency => "Latency"
-  | MultiplayerDeviceLocks => "Device Locks"
-  }
-
-/// Human-readable label for WebSocket connection state.
-let connectionLabel = (ws: wsConnectionState): string =>
-  switch ws {
-  | WsDisconnected => "Disconnected"
-  | WsConnecting => "Connecting..."
-  | WsConnected => "Connected"
-  | WsReconnecting => "Reconnecting..."
-  | WsError(err) => `Error: ${err}`
-  }
-
-/// Colour class for connection state.
-let connectionColour = (ws: wsConnectionState): string =>
-  switch ws {
-  | WsDisconnected => "text-gray-500"
-  | WsConnecting => "text-amber-400"
-  | WsConnected => "text-emerald-400"
-  | WsReconnecting => "text-amber-400"
-  | WsError(_) => "text-red-400"
-  }
-
-/// Filter players — optionally exclude spectators.
-let filterPlayers = (players: array<connectedPlayer>, showSpectators: bool): array<
-  connectedPlayer,
-> =>
-  if showSpectators {
-    players
-  } else {
-    players->Array.filter(p => !p.isSpectator)
-  }
-
-/// Get unresolved state diffs.
-let unresolvedDiffs = (diffs: array<stateDiffEntry>): array<stateDiffEntry> =>
-  diffs->Array.filter(d => !d.resolved)
-
-/// Count contested device locks.
-let contestedLocks = (locks: array<deviceLock>): int =>
-  locks->Array.filter(l => Array.length(l.contestedBy) > 0)->Array.length
-
-/// Average latency across all players.
-let averageLatency = (players: array<connectedPlayer>): int => {
-  let len = Array.length(players)
-  if len === 0 {
-    0
-  } else {
-    let total = players->Array.reduce(0, (acc, p) => acc + p.latencyMs)
-    total / len
-  }
-}
-
-/// Default state for the Multiplayer Monitor panel.
-let defaultState: multiplayerMonitorState = {
-  activeCategory: MultiplayerDashboard,
-  wsConnection: WsDisconnected,
-  serverUrl: ServiceEndpoints.multiplayerMonitor,
-  players: [],
-  channels: [],
-  stateDiffs: [],
-  deviceLocks: [],
-  latencySamples: [],
-  etsCache: [],
-  selectedPlayerId: None,
-  autoReconnect: true,
-  showSpectators: true,
-  loading: false,
-  error: None,
-}
diff --git a/src/core/MyLangEngine.affine b/src/core/MyLangEngine.affine
new file mode 100644
index 00000000..bd9a15be
--- /dev/null
+++ b/src/core/MyLangEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MyLangEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/MyLangEngine.res b/src/core/MyLangEngine.res
deleted file mode 100644
index ecfe4169..00000000
--- a/src/core/MyLangEngine.res
+++ /dev/null
@@ -1,121 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL My-Lang Engine — pure computation for the AI-native language panel.
-///
-/// Provides labels, colours, parsing, and display helpers for the view layer.
-/// No side effects — all Gossamer/CLI interaction is in MyLangCmd.
-
-open MyLangModel
-
-/// Human-readable label for a dialect.
-let dialectLabel = (d: myLangDialect): string =>
-  switch d {
-  | Solo => "Solo"
-  | Duet => "Duet"
-  | Ensemble => "Ensemble"
-  | Me => "Me"
-  }
-
-/// Short description for a dialect.
-let dialectDescription = (d: myLangDialect): string =>
-  switch d {
-  | Solo => "Dependable systems programming"
-  | Duet => "AI-assisted with verification"
-  | Ensemble => "AI as first-class component"
-  | Me => "Personal AI agent"
-  }
-
-/// Tailwind colour class for a dialect badge.
-let dialectColour = (d: myLangDialect): string =>
-  switch d {
-  | Solo => "text-slate-300 bg-slate-800/50"
-  | Duet => "text-sky-400 bg-sky-900/30"
-  | Ensemble => "text-violet-400 bg-violet-900/30"
-  | Me => "text-amber-400 bg-amber-900/30"
-  }
-
-/// All dialects.
-let allDialects: array<myLangDialect> = [Solo, Duet, Ensemble, Me]
-
-/// Category tab label.
-let categoryLabel = (cat: myLangCategory): string =>
-  switch cat {
-  | MlEditor => "Editor"
-  | MlRepl => "REPL"
-  | MlCompile => "Compile"
-  | MlDialects => "Dialects"
-  }
-
-/// All category tabs.
-let allCategories: array<myLangCategory> = [MlEditor, MlRepl, MlCompile, MlDialects]
-
-/// Parse a dialect string.
-let parseDialect = (s: string): myLangDialect =>
-  switch String.toLowerCase(s) {
-  | "solo" => Solo
-  | "duet" => Duet
-  | "ensemble" => Ensemble
-  | "me" => Me
-  | _ => Solo
-  }
-
-/// Tea_Json decoder for a compilation result.
-let compilationDecoder: Tea_Json.decoder<compilationResult> = {
-  open Decoders
-  map6(
-    (success, output, diagnostics, errorCount, warningCount, compileTimeMs): compilationResult => {
-      success,
-      output,
-      diagnostics,
-      errorCount,
-      warningCount,
-      compileTimeMs,
-    },
-    boolField("success"),
-    stringField("output"),
-    stringField("diagnostics"),
-    intField("error_count"),
-    intField("warning_count"),
-    intField("compile_time_ms"),
-  )
-}
-
-/// Parse a compilation result from JSON.
-let parseCompilation = (json: string): result<compilationResult, string> =>
-  Decoders.decode(compilationDecoder, json)
-
-/// File extension for a dialect's source files.
-let dialectExtension = (d: myLangDialect): string =>
-  switch d {
-  | Solo => ".solo"
-  | Duet => ".duet"
-  | Ensemble => ".ens"
-  | Me => ".me"
-  }
-
-/// Example starter code for each dialect.
-let dialectExample = (d: myLangDialect): string =>
-  switch d {
-  | Solo => "// Solo — safe systems programming\nfn main() -> i32 {\n  let x: i32 = 42\n  x\n}\n"
-  | Duet => "// Duet — AI-assisted with verification\n@verify\nfn sort(xs: List[i32]) -> List[i32] {\n  // AI suggests implementation\n  xs.sorted()\n}\n"
-  | Ensemble => "// Ensemble — AI as first-class component\nagent greeter {\n  fn greet(name: String) -> String {\n    \"Hello, {name}!\"\n  }\n}\n"
-  | Me => "// Me — personal AI agent\nme {\n  remember \"context\"\n  when asked(q) -> respond(q)\n}\n"
-  }
-
-/// Default initial state.
-let defaultState: myLangState = {
-  cliAvailable: false,
-  loading: false,
-  error: None,
-  activeCategory: MlEditor,
-  activeDialect: Solo,
-  editorContent: "// Solo — safe systems programming\nfn main() -> i32 {\n  let x: i32 = 42\n  x\n}\n",
-  replInput: "",
-  replHistory: [],
-  lastCompilation: None,
-  lastTypeCheck: None,
-  lspConnected: false,
-  lspDiagnostics: [],
-  replSessions: [],
-  bojRouting: false,
-}
diff --git a/src/core/NesyDriftEngine.affine b/src/core/NesyDriftEngine.affine
new file mode 100644
index 00000000..eaf88f5a
--- /dev/null
+++ b/src/core/NesyDriftEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module NesyDriftEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/NesyDriftEngine.res b/src/core/NesyDriftEngine.res
deleted file mode 100644
index 1f39d9a4..00000000
--- a/src/core/NesyDriftEngine.res
+++ /dev/null
@@ -1,162 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL NeSy Drift Engine — pure helpers for the drift dashboard panel.
-///
-/// All functions are pure (no side effects). Provides drift classification,
-/// action recommendations, urgency-based colour mappings, and filtering.
-
-open NesyDriftModel
-
-// ============================================================================
-// Drift Classification
-// ============================================================================
-
-/// Classify a drift magnitude into a severity level.
-/// Thresholds: >= 0.7 critical, >= 0.4 warning, else info.
-let classifyDrift = (magnitude: float): driftSeverity => {
-  if magnitude >= 0.7 {
-    DriftCritical
-  } else if magnitude >= 0.4 {
-    DriftWarning
-  } else {
-    DriftInfo
-  }
-}
-
-/// Recommend a corrective action based on drift kind and magnitude.
-let recommendAction = (kind: driftKind, magnitude: float): driftAction => {
-  switch (kind, magnitude >= 0.7) {
-  | (ConceptDrift, true) => Retrain
-  | (ConceptDrift, false) => Review
-  | (DataDrift, true) => Retrain
-  | (DataDrift, false) => Calibrate
-  | (PriorDrift, _) => Calibrate
-  | (ArchitectureDrift, true) => Halt
-  | (ArchitectureDrift, false) => Review
-  | (DistributionDrift, true) => Fallback
-  | (DistributionDrift, false) => Calibrate
-  | (FeedbackDrift, true) => Halt
-  | (FeedbackDrift, false) => Review
-  }
-}
-
-/// Determine urgency level from severity.
-let urgencyLevel = (severity: driftSeverity): driftUrgency => {
-  switch severity {
-  | DriftCritical => Immediate
-  | DriftWarning => Soon
-  | DriftInfo => FYI
-  }
-}
-
-// ============================================================================
-// Colour Mappings
-// ============================================================================
-
-/// Tailwind background colour class for an alert based on urgency.
-let alertColor = (urgency: driftUrgency): string => {
-  switch urgency {
-  | Immediate => "bg-red-600 text-white"
-  | Soon => "bg-amber-500 text-white"
-  | Scheduled => "bg-blue-500 text-white"
-  | FYI => "bg-gray-600 text-gray-200"
-  }
-}
-
-/// Tailwind text colour class for a drift severity.
-let severityTextColor = (severity: driftSeverity): string => {
-  switch severity {
-  | DriftCritical => "text-red-400"
-  | DriftWarning => "text-amber-400"
-  | DriftInfo => "text-gray-400"
-  }
-}
-
-/// Tailwind border colour class for a model drift indicator.
-let driftBorderColor = (isDrifting: bool): string => {
-  if isDrifting {
-    "border-red-500"
-  } else {
-    "border-emerald-500"
-  }
-}
-
-// ============================================================================
-// Filtering
-// ============================================================================
-
-/// Filter alerts by urgency level. Returns all alerts if filter is None.
-let filterByUrgency = (alerts: array<driftAlert>, filter: option<driftUrgency>): array<
-  driftAlert,
-> => {
-  switch filter {
-  | None => alerts
-  | Some(urgency) => alerts->Array.filter(a => a.urgency == urgency)
-  }
-}
-
-/// Filter alerts by model name.
-let filterByModel = (alerts: array<driftAlert>, modelName: string): array<driftAlert> => {
-  alerts->Array.filter(a => a.modelName == modelName)
-}
-
-// ============================================================================
-// Display Labels
-// ============================================================================
-
-/// Human-readable label for a drift kind.
-let driftKindLabel = (kind: driftKind): string => {
-  switch kind {
-  | ConceptDrift => "Concept Drift"
-  | DataDrift => "Data Drift"
-  | PriorDrift => "Prior Drift"
-  | ArchitectureDrift => "Architecture Drift"
-  | DistributionDrift => "Distribution Drift"
-  | FeedbackDrift => "Feedback Drift"
-  }
-}
-
-/// Human-readable label for a drift action.
-let actionLabel = (action: driftAction): string => {
-  switch action {
-  | Retrain => "Retrain"
-  | Calibrate => "Calibrate"
-  | Fallback => "Fallback to Symbolic"
-  | Halt => "Halt Inference"
-  | Review => "Human Review"
-  | Ignore => "Ignore"
-  }
-}
-
-/// Human-readable label for urgency.
-let urgencyLabel = (urgency: driftUrgency): string => {
-  switch urgency {
-  | Immediate => "IMMEDIATE"
-  | Soon => "SOON"
-  | Scheduled => "SCHEDULED"
-  | FYI => "FYI"
-  }
-}
-
-/// Human-readable label for severity.
-let severityLabel = (severity: driftSeverity): string => {
-  switch severity {
-  | DriftCritical => "CRITICAL"
-  | DriftWarning => "WARNING"
-  | DriftInfo => "INFO"
-  }
-}
-
-// ============================================================================
-// Initial State
-// ============================================================================
-
-/// Default initial state for the NeSy Drift Dashboard.
-let init: nesyDriftState = {
-  alerts: [],
-  modelStatuses: [],
-  urgencyFilter: None,
-  polling: true,
-  pollIntervalMs: 10000,
-}
diff --git a/src/core/NesyHarmonizeEngine.affine b/src/core/NesyHarmonizeEngine.affine
new file mode 100644
index 00000000..30d800e3
--- /dev/null
+++ b/src/core/NesyHarmonizeEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module NesyHarmonizeEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/NesyHarmonizeEngine.res b/src/core/NesyHarmonizeEngine.res
deleted file mode 100644
index b24f9c1e..00000000
--- a/src/core/NesyHarmonizeEngine.res
+++ /dev/null
@@ -1,163 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL NeSy Harmonization Engine — pure helpers for the harmonization
-/// monitor panel.
-///
-/// All functions are pure (no side effects). Provides stats computation,
-/// entry filtering, sorting, and verdict colour mappings.
-
-open NesyHarmonizeModel
-
-// ============================================================================
-// Statistics Computation
-// ============================================================================
-
-/// Compute aggregate statistics from a list of harmonization entries.
-/// Counts verdicts by type and calculates the symbolic win rate.
-let computeStats = (entries: array<harmonizationEntry>): harmonizeStats => {
-  let totalCount = Array.length(entries)
-  let certifiedSafe = entries->Array.filter(e => e.verdict == CertifiedSafe)->Array.length
-  let requiresReview = entries->Array.filter(e => e.verdict == RequiresReview)->Array.length
-  let criticalUnsafe = entries->Array.filter(e => e.verdict == CriticalUnsafe)->Array.length
-  let symbolicWins = entries->Array.filter(e => e.symbolicWins)->Array.length
-  let symbolicWinRate = if totalCount > 0 {
-    Int.toFloat(symbolicWins) /. Int.toFloat(totalCount)
-  } else {
-    0.0
-  }
-  {totalCount, certifiedSafe, requiresReview, criticalUnsafe, symbolicWinRate}
-}
-
-// ============================================================================
-// Filtering
-// ============================================================================
-
-/// Filter entries by harmonized verdict type. Returns all entries if filter
-/// is None.
-let filterEntries = (entries: array<harmonizationEntry>, filter: option<harmonizedVerdict>): array<
-  harmonizationEntry,
-> => {
-  switch filter {
-  | None => entries
-  | Some(verdict) => entries->Array.filter(e => e.verdict == verdict)
-  }
-}
-
-// ============================================================================
-// Entry Management
-// ============================================================================
-
-/// Add a new entry to the front of the entries array (newest first).
-let addEntry = (entries: array<harmonizationEntry>, entry: harmonizationEntry): array<
-  harmonizationEntry,
-> => {
-  Array.concat([entry], entries)
-}
-
-/// Sort entries by timestamp (newest first, lexicographic ISO 8601 sort).
-let sortByTimestamp = (entries: array<harmonizationEntry>): array<harmonizationEntry> => {
-  let sorted = Array.copy(entries)
-  sorted->Array.sort((a, b) => String.compare(b.timestamp, a.timestamp))
-  sorted
-}
-
-// ============================================================================
-// Colour Mappings
-// ============================================================================
-
-/// Tailwind background colour class for a harmonized verdict.
-/// Green for safe, amber for review, red for unsafe.
-let verdictColor = (verdict: harmonizedVerdict): string => {
-  switch verdict {
-  | CertifiedSafe => "bg-emerald-600 text-white"
-  | RequiresReview => "bg-amber-500 text-white"
-  | CriticalUnsafe => "bg-red-600 text-white"
-  }
-}
-
-/// Tailwind text colour class for a neural verdict.
-let neuralVerdictColor = (verdict: neuralVerdict): string => {
-  switch verdict {
-  | ProbableSafe => "text-emerald-400"
-  | Unsure => "text-amber-400"
-  | ProbableUnsafe => "text-red-400"
-  }
-}
-
-/// Tailwind text colour class for a symbolic verdict.
-let symbolicVerdictColor = (verdict: symbolicVerdict): string => {
-  switch verdict {
-  | ProvenSafe => "text-emerald-400"
-  | NoProof => "text-gray-400"
-  | ProvenUnsafe => "text-red-400"
-  }
-}
-
-/// Tailwind text colour class for a confidence level.
-let confidenceColor = (confidence: confidenceLevel): string => {
-  switch confidence {
-  | Low => "text-gray-400"
-  | High => "text-blue-400"
-  | Absolute => "text-emerald-400"
-  }
-}
-
-// ============================================================================
-// Display Labels
-// ============================================================================
-
-/// Human-readable label for a neural verdict.
-let neuralLabel = (verdict: neuralVerdict): string => {
-  switch verdict {
-  | ProbableSafe => "Probable Safe"
-  | Unsure => "Unsure"
-  | ProbableUnsafe => "Probable Unsafe"
-  }
-}
-
-/// Human-readable label for a symbolic verdict.
-let symbolicLabel = (verdict: symbolicVerdict): string => {
-  switch verdict {
-  | ProvenSafe => "Proven Safe"
-  | NoProof => "No Proof"
-  | ProvenUnsafe => "Proven Unsafe"
-  }
-}
-
-/// Human-readable label for a harmonized verdict.
-let verdictLabel = (verdict: harmonizedVerdict): string => {
-  switch verdict {
-  | CertifiedSafe => "Certified Safe"
-  | RequiresReview => "Requires Review"
-  | CriticalUnsafe => "Critical Unsafe"
-  }
-}
-
-/// Human-readable label for a confidence level.
-let confidenceLabel = (confidence: confidenceLevel): string => {
-  switch confidence {
-  | Low => "Low"
-  | High => "High"
-  | Absolute => "Absolute"
-  }
-}
-
-// ============================================================================
-// Initial State
-// ============================================================================
-
-/// Default initial state for the NeSy Harmonization Monitor.
-let init: nesyHarmonizeState = {
-  entries: [],
-  filter: None,
-  autoRefresh: true,
-  refreshIntervalMs: 5000,
-  stats: {
-    totalCount: 0,
-    certifiedSafe: 0,
-    requiresReview: 0,
-    criticalUnsafe: 0,
-    symbolicWinRate: 0.0,
-  },
-}
diff --git a/src/core/NesyModesEngine.affine b/src/core/NesyModesEngine.affine
new file mode 100644
index 00000000..fbbac630
--- /dev/null
+++ b/src/core/NesyModesEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module NesyModesEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/NesyModesEngine.res b/src/core/NesyModesEngine.res
deleted file mode 100644
index ccdc158e..00000000
--- a/src/core/NesyModesEngine.res
+++ /dev/null
@@ -1,153 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL NeSy Modes Engine — pure helpers for the reasoning mode selector
-/// panel.
-///
-/// All functions are pure (no side effects). Provides mode metadata,
-/// display labels, subsystem indicators, and the full mode catalogue.
-
-open NesyModesModel
-
-// ============================================================================
-// Subsystem Indicators
-// ============================================================================
-
-/// Whether a reasoning mode uses the symbolic subsystem.
-let modeUsesSymbolic = (mode: reasoningMode): bool => {
-  switch mode {
-  | PureSymbolic => true
-  | SymbolicFirst => true
-  | Balanced => true
-  | NeuralFirst => true
-  | PureNeural => false
-  | Adaptive => true
-  }
-}
-
-/// Whether a reasoning mode uses the neural subsystem.
-let modeUsesNeural = (mode: reasoningMode): bool => {
-  switch mode {
-  | PureSymbolic => false
-  | SymbolicFirst => true
-  | Balanced => true
-  | NeuralFirst => true
-  | PureNeural => true
-  | Adaptive => true
-  }
-}
-
-/// Whether a reasoning mode is a hybrid of both subsystems.
-let modeIsHybrid = (mode: reasoningMode): bool => {
-  modeUsesSymbolic(mode) && modeUsesNeural(mode)
-}
-
-// ============================================================================
-// Display Labels and Descriptions
-// ============================================================================
-
-/// Human-readable display name for a reasoning mode.
-let modeDisplayName = (mode: reasoningMode): string => {
-  switch mode {
-  | PureSymbolic => "Pure Symbolic"
-  | SymbolicFirst => "Symbolic First"
-  | Balanced => "Balanced"
-  | NeuralFirst => "Neural First"
-  | PureNeural => "Pure Neural"
-  | Adaptive => "Adaptive"
-  }
-}
-
-/// Short description of how a reasoning mode operates.
-let modeDescription = (mode: reasoningMode): string => {
-  switch mode {
-  | PureSymbolic => "Formal proofs only. No neural inference. Maximum safety, minimum flexibility."
-  | SymbolicFirst => "Try symbolic proof first, fall back to neural if no proof found."
-  | Balanced => "Run both subsystems in parallel, harmonize results for best coverage."
-  | NeuralFirst => "Neural inference first, verify with symbolic proof when possible."
-  | PureNeural => "Neural model only. No symbolic verification. Maximum speed, minimum safety."
-  | Adaptive => "Dynamically selects the best mode based on input characteristics."
-  }
-}
-
-/// Icon identifier for a reasoning mode (Lucide icon name).
-let modeIcon = (mode: reasoningMode): string => {
-  switch mode {
-  | PureSymbolic => "book-open"
-  | SymbolicFirst => "shield-check"
-  | Balanced => "scale"
-  | NeuralFirst => "brain"
-  | PureNeural => "zap"
-  | Adaptive => "refresh-cw"
-  }
-}
-
-// ============================================================================
-// Colour Mappings
-// ============================================================================
-
-/// Tailwind border colour class for a reasoning mode card.
-let modeBorderColor = (mode: reasoningMode, isActive: bool): string => {
-  if isActive {
-    "border-emerald-500 ring-2 ring-emerald-500/30"
-  } else {
-    switch mode {
-    | PureSymbolic => "border-blue-500/40"
-    | SymbolicFirst => "border-cyan-500/40"
-    | Balanced => "border-purple-500/40"
-    | NeuralFirst => "border-amber-500/40"
-    | PureNeural => "border-red-500/40"
-    | Adaptive => "border-gray-500/40"
-    }
-  }
-}
-
-/// Tailwind background colour class for a reasoning mode card.
-let modeBgColor = (mode: reasoningMode): string => {
-  switch mode {
-  | PureSymbolic => "bg-blue-900/20"
-  | SymbolicFirst => "bg-cyan-900/20"
-  | Balanced => "bg-purple-900/20"
-  | NeuralFirst => "bg-amber-900/20"
-  | PureNeural => "bg-red-900/20"
-  | Adaptive => "bg-gray-900/20"
-  }
-}
-
-// ============================================================================
-// Mode Catalogue
-// ============================================================================
-
-/// Build a modeInfo record for a given reasoning mode.
-let buildModeInfo = (mode: reasoningMode): modeInfo => {
-  {
-    mode,
-    usesSymbolic: modeUsesSymbolic(mode),
-    usesNeural: modeUsesNeural(mode),
-    isHybrid: modeIsHybrid(mode),
-    displayName: modeDisplayName(mode),
-    description: modeDescription(mode),
-  }
-}
-
-/// All 6 reasoning modes with their metadata.
-let allModes: array<modeInfo> = [
-  buildModeInfo(PureSymbolic),
-  buildModeInfo(SymbolicFirst),
-  buildModeInfo(Balanced),
-  buildModeInfo(NeuralFirst),
-  buildModeInfo(PureNeural),
-  buildModeInfo(Adaptive),
-]
-
-// ============================================================================
-// Initial State
-// ============================================================================
-
-/// Default initial state for the NeSy Reasoning Mode Selector.
-let init: nesyModesState = {
-  activeMode: Balanced,
-  availableModes: allModes,
-  switching: false,
-  lastError: None,
-}
diff --git a/src/core/NetworkTopologyEngine.affine b/src/core/NetworkTopologyEngine.affine
new file mode 100644
index 00000000..929e1a22
--- /dev/null
+++ b/src/core/NetworkTopologyEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module NetworkTopologyEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/NetworkTopologyEngine.res b/src/core/NetworkTopologyEngine.res
deleted file mode 100644
index f032e3c8..00000000
--- a/src/core/NetworkTopologyEngine.res
+++ /dev/null
@@ -1,81 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Network Topology Engine — pure computation and helpers for the
-/// IDApTIK in-game network topology viewer.
-
-open NetworkTopologyModel
-
-/// Human-readable labels for category tabs.
-let categoryLabel = (cat: networkTopologyCategory): string =>
-  switch cat {
-  | TopologyGraph => "Graph"
-  | TopologyZones => "Zones"
-  | TopologyDns => "DNS"
-  | TopologyPacketFlow => "Packet Flow"
-  }
-
-/// Human-readable labels for network zones.
-let zoneLabel = (zone: networkZone): string =>
-  switch zone {
-  | ZonePublic => "Public"
-  | ZoneDmz => "DMZ"
-  | ZoneInternal => "Internal"
-  | ZoneRestricted => "Restricted"
-  | ZoneAirGapped => "Air-Gapped"
-  }
-
-/// Tailwind colour class for each zone.
-let zoneColour = (zone: networkZone): string =>
-  switch zone {
-  | ZonePublic => "text-red-400"
-  | ZoneDmz => "text-amber-400"
-  | ZoneInternal => "text-emerald-400"
-  | ZoneRestricted => "text-blue-400"
-  | ZoneAirGapped => "text-purple-400"
-  }
-
-/// Background colour class for each zone.
-let zoneBgColour = (zone: networkZone): string =>
-  switch zone {
-  | ZonePublic => "bg-red-900/30"
-  | ZoneDmz => "bg-amber-900/30"
-  | ZoneInternal => "bg-emerald-900/30"
-  | ZoneRestricted => "bg-blue-900/30"
-  | ZoneAirGapped => "bg-purple-900/30"
-  }
-
-/// Human-readable protocol label.
-let protocolLabel = (proto: connectionProtocol): string =>
-  switch proto {
-  | ProtoSSH => "SSH"
-  | ProtoHTTPS => "HTTPS"
-  | ProtoFTP => "FTP"
-  | ProtoDNS => "DNS"
-  | ProtoCustom(name) => name
-  }
-
-/// Count devices per zone.
-let devicesByZone = (devices: array<networkDevice>, zone: networkZone): array<networkDevice> =>
-  devices->Array.filter(d => d.zone === zone)
-
-/// Find connections involving a device.
-let connectionsForDevice = (connections: array<networkConnection>, deviceId: string): array<
-  networkConnection,
-> => connections->Array.filter(c => c.sourceId === deviceId || c.targetId === deviceId)
-
-/// Default state for the Network Topology panel.
-let defaultState: networkTopologyState = {
-  activeCategory: TopologyGraph,
-  devices: [],
-  connections: [],
-  dnsEntries: [],
-  packetFlow: [],
-  selectedDeviceId: None,
-  highlightedPath: [],
-  showLabels: true,
-  showSecurityLevels: true,
-  animatePackets: false,
-  zoomLevel: 1.0,
-  loading: false,
-  error: None,
-}
diff --git a/src/core/NeurosymBridgeEngine.affine b/src/core/NeurosymBridgeEngine.affine
new file mode 100644
index 00000000..b4762662
--- /dev/null
+++ b/src/core/NeurosymBridgeEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module NeurosymBridgeEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/NeurosymBridgeEngine.res b/src/core/NeurosymBridgeEngine.res
deleted file mode 100644
index b6ab1582..00000000
--- a/src/core/NeurosymBridgeEngine.res
+++ /dev/null
@@ -1,93 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Neurosym Bridge Engine — pure computation and helpers for the
-/// Neurosym Bridge panel. Provides default state, tab metadata, rule and
-/// behaviour node counting, and simulation status formatting.
-
-open NeurosymBridgeModel
-
-/// Default state for the Neurosym Bridge panel.
-/// Starts on the Rules tab with empty rule and behaviour tree lists.
-let defaultState: neurosymBridgeState = {
-  activeTab: Rules,
-  guardRules: [],
-  behaviourNodes: [],
-  simulationResults: None,
-  selectedGuard: None,
-  simulating: false,
-  error: None,
-}
-
-/// Human-readable label for each tab in the Neurosym Bridge panel.
-let tabLabel = (tab: neurosymBridgeTab): string =>
-  switch tab {
-  | Rules => "Rules"
-  | BehaviourTree => "Behaviour Tree"
-  | Simulation => "Simulation"
-  | Analysis => "Analysis"
-  }
-
-/// All tabs in display order.
-let allTabs: array<neurosymBridgeTab> = [Rules, BehaviourTree, Simulation, Analysis]
-
-/// Count the total number of guard behaviour rules.
-let countRules = (state: neurosymBridgeState): int => Array.length(state.guardRules)
-
-/// Count rules by verification status.
-let countRulesByStatus = (rules: array<guardRule>, status: ruleStatus): int =>
-  rules->Array.filter(r => r.status === status)->Array.length
-
-/// Count the total number of behaviour tree nodes.
-let countBehaviourNodes = (state: neurosymBridgeState): int => Array.length(state.behaviourNodes)
-
-/// Count behaviour tree leaf nodes (actions and conditions).
-let countLeafNodes = (nodes: array<behaviourNode>): int =>
-  nodes
-  ->Array.filter(n =>
-    switch n.nodeType {
-    | NodeAction | NodeCondition => true
-    | _ => false
-    }
-  )
-  ->Array.length
-
-/// Human-readable label for a rule status.
-let ruleStatusLabel = (status: ruleStatus): string =>
-  switch status {
-  | RuleVerified => "Verified"
-  | RuleUnverified => "Unverified"
-  | RuleViolated => "Violated"
-  | RuleConflict => "Conflict"
-  }
-
-/// Human-readable label for a behaviour node type.
-let nodeTypeLabel = (nodeType: behaviourNodeType): string =>
-  switch nodeType {
-  | NodeSequence => "Sequence"
-  | NodeSelector => "Selector"
-  | NodeParallel => "Parallel"
-  | NodeDecorator => "Decorator"
-  | NodeAction => "Action"
-  | NodeCondition => "Condition"
-  }
-
-/// Format simulation status as a human-readable summary.
-/// Returns "No simulation" when no results are available.
-let simulationStatus = (state: neurosymBridgeState): string =>
-  switch state.simulationResults {
-  | None => "No simulation"
-  | Some(result) =>
-    if result.completed {
-      let devRate = if result.totalSteps > 0 {
-        Int.toFloat(result.deviations) /. Int.toFloat(result.totalSteps) *. 100.0
-      } else {
-        0.0
-      }
-      `Completed: ${Int.toString(result.totalSteps)} steps, ${Float.toFixed(
-          devRate,
-          ~digits=1,
-        )}% deviation`
-    } else {
-      `Incomplete: ${Int.toString(result.totalSteps)} steps (deadlock or timeout)`
-    }
-  }
diff --git a/src/core/ObservabilityEngine.affine b/src/core/ObservabilityEngine.affine
new file mode 100644
index 00000000..f5345e25
--- /dev/null
+++ b/src/core/ObservabilityEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ObservabilityEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/ObservabilityEngine.res b/src/core/ObservabilityEngine.res
deleted file mode 100644
index 00a34251..00000000
--- a/src/core/ObservabilityEngine.res
+++ /dev/null
@@ -1,275 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// ObservabilityEngine — pure functions for SARIF export and OpenTelemetry
-/// trace collection through the observe-mcp BoJ cartridge.
-///
-/// Converts PanLL's internal latency log (BojModel.bojLatencyEntry ring buffer)
-/// into industry-standard observability formats:
-///   - OTLP JSON (OpenTelemetry Protocol) for trace export
-///   - SARIF v2.1.0 for security scan results
-///   - Percentile latency summaries (p50, p99) for dashboards
-///
-/// All functions are pure — no side effects, no Gossamer invocations.
-/// Command wrappers live in ObservabilityCmd.res.
-
-// ============================================================================
-// Helpers
-// ============================================================================
-
-/// Generate a random 32-character hex string (128-bit trace ID).
-let randomTraceId = (): string => {
-  let chars = "0123456789abcdef"
-  let buf = []
-  for _i in 0 to 31 {
-    let idx = Math.Int.random(0, 16)
-    buf->Array.push(chars->String.charAt(idx))
-  }
-  buf->Array.join("")
-}
-
-/// Generate a random 16-character hex string (64-bit span ID).
-let randomSpanId = (): string => {
-  let chars = "0123456789abcdef"
-  let buf = []
-  for _i in 0 to 15 {
-    let idx = Math.Int.random(0, 16)
-    buf->Array.push(chars->String.charAt(idx))
-  }
-  buf->Array.join("")
-}
-
-/// Convert milliseconds to nanoseconds (as string to avoid float precision loss).
-let msToNanoString = (ms: float): string => {
-  let nanos = ms *. 1_000_000.0
-  Float.toString(nanos)
-}
-
-/// Convert a Unix timestamp (ms) to nanoseconds string for OTLP.
-let timestampToNanoString = (tsMs: float): string => {
-  let nanos = tsMs *. 1_000_000.0
-  Float.toString(nanos)
-}
-
-// ============================================================================
-// OpenTelemetry Span Formatting
-// ============================================================================
-
-/// Convert a single latency entry to an OpenTelemetry-compatible JSON span.
-///
-/// Each span gets a fresh random traceId and spanId.  The operationName is
-/// composed as "cartridge/tool" matching BoJ invocation semantics.
-///
-/// Returns a JSON string representing one OTLP span object.
-let formatLatencyAsOtelSpan = (entry: BojModel.bojLatencyEntry): string => {
-  let traceId = randomTraceId()
-  let spanId = randomSpanId()
-  let operationName = `${entry.cartridge}/${entry.tool}`
-  let startTimeNano = timestampToNanoString(entry.timestamp)
-  let durationNano = msToNanoString(entry.durationMs)
-  // Build OTLP span JSON manually to keep this module dependency-free.
-  `{"traceId":"${traceId}","spanId":"${spanId}","operationName":"${operationName}","startTimeUnixNano":"${startTimeNano}","endTimeUnixNano":"${timestampToNanoString(
-      entry.timestamp +. entry.durationMs,
-    )}","durationNano":"${durationNano}","status":{"code":"STATUS_CODE_OK"},"attributes":[{"key":"boj.cartridge","value":{"stringValue":"${entry.cartridge}"}},{"key":"boj.tool","value":{"stringValue":"${entry.tool}"}},{"key":"boj.duration_ms","value":{"doubleValue":${Float.toString(
-      entry.durationMs,
-    )}}}]}`
-}
-
-/// Wrap an array of latency entries in OTLP JSON export format.
-///
-/// Produces the standard `resourceSpans` → `scopeSpans` → `spans` structure
-/// expected by OpenTelemetry collectors.
-let exportTraceBatch = (entries: array<BojModel.bojLatencyEntry>): string => {
-  let spans = entries->Array.map(formatLatencyAsOtelSpan)->Array.join(",")
-  `{"resourceSpans":[{"resource":{"attributes":[{"key":"service.name","value":{"stringValue":"panll-boj"}},{"key":"service.version","value":{"stringValue":"0.2.0"}}]},"scopeSpans":[{"scope":{"name":"panll.observability","version":"1.0.0"},"spans":[${spans}]}]}]}`
-}
-
-// ============================================================================
-// SARIF Export
-// ============================================================================
-
-/// Transform a panic-attack JSON report into SARIF v2.1.0 schema.
-///
-/// The input `reportJson` is the raw JSON string from panic-attack's assail
-/// or assault commands.  This function wraps it in the SARIF envelope with:
-///   - tool.driver (name, version, rules)
-///   - results (message, level, locations)
-///
-/// If the input cannot be parsed, returns a minimal SARIF with an error result.
-let sarifFromPanicReport = (reportJson: string): string => {
-  // Attempt to parse the report to extract meaningful data.
-  // On parse failure, produce a valid SARIF with an error note.
-  let parsed = try JSON.parseExn(reportJson) catch {
-  | _ => JSON.Encode.null
-  }
-  // Extract weak_points array if present, otherwise empty.
-  let weakPoints = switch JSON.Classify.classify(parsed) {
-  | Object(dict) =>
-    switch dict->Dict.get("weak_points") {
-    | Some(wp) =>
-      switch JSON.Classify.classify(wp) {
-      | Array(items) => items
-      | _ => []
-      }
-    | None => []
-    }
-  | _ => []
-  }
-  // Build SARIF results from weak points.
-  let results =
-    weakPoints
-    ->Array.mapWithIndex((item, idx) => {
-      let message = switch JSON.Classify.classify(item) {
-      | Object(d) =>
-        switch d->Dict.get("description") {
-        | Some(desc) =>
-          switch JSON.Classify.classify(desc) {
-          | String(s) => s
-          | _ => "Unknown weak point"
-          }
-        | None => "Unknown weak point"
-        }
-      | _ => "Unknown weak point"
-      }
-      let severity = switch JSON.Classify.classify(item) {
-      | Object(d) =>
-        switch d->Dict.get("severity") {
-        | Some(sev) =>
-          switch JSON.Classify.classify(sev) {
-          | String(s) =>
-            switch s {
-            | "critical" | "high" => "error"
-            | "medium" => "warning"
-            | _ => "note"
-            }
-          | _ => "warning"
-          }
-        | None => "warning"
-        }
-      | _ => "warning"
-      }
-      let ruleId = `PA${Int.toString(idx + 1)->String.padStart(3, "0")}`
-      `{"ruleId":"${ruleId}","level":"${severity}","message":{"text":"${message}"},"locations":[{"physicalLocation":{"artifactLocation":{"uri":"file:///scan-target"}}}]}`
-    })
-    ->Array.join(",")
-  // Build rules from weak points (one rule per result).
-  let rules =
-    weakPoints
-    ->Array.mapWithIndex((_item, idx) => {
-      let ruleId = `PA${Int.toString(idx + 1)->String.padStart(3, "0")}`
-      `{"id":"${ruleId}","shortDescription":{"text":"panic-attack finding ${ruleId}"}}`
-    })
-    ->Array.join(",")
-  // Assemble the full SARIF v2.1.0 document.
-  `{"$schema":"https://raw.githubusercontent.com/oasis-tcs/sarif-spec/main/sarif-2.1/schema/sarif-schema-2.1.0.json","version":"2.1.0","runs":[{"tool":{"driver":{"name":"panic-attack","version":"0.1.0","informationUri":"https://github.com/hyperpolymath/panic-attack","rules":[${rules}]}},"results":[${results}]}]}`
-}
-
-// ============================================================================
-// Latency Statistics
-// ============================================================================
-
-/// Sort an array of floats in ascending order (non-mutating).
-let sortedFloats = (arr: array<float>): array<float> => {
-  let copy = arr->Array.copy
-  copy->Array.sort((a, b) =>
-    if a < b {
-      -1.0
-    } else if a > b {
-      1.0
-    } else {
-      0.0
-    }
-  )
-  copy
-}
-
-/// Compute the p-th percentile from a sorted array of floats.
-/// Returns 0.0 for empty arrays.
-let percentile = (sorted: array<float>, p: float): float => {
-  let n = sorted->Array.length
-  if n == 0 {
-    0.0
-  } else if n == 1 {
-    sorted->Array.getUnsafe(0)
-  } else {
-    let rank = p /. 100.0 *. Int.toFloat(n - 1)
-    let lower = Float.toInt(Math.floor(rank))
-    let upper = Float.toInt(Math.ceil(rank))
-    let fraction = rank -. Int.toFloat(lower)
-    let lowerVal = sorted->Array.getUnsafe(lower)
-    let upperVal = sorted->Array.getUnsafe(upper)
-    lowerVal +. fraction *. (upperVal -. lowerVal)
-  }
-}
-
-/// Compute the 50th percentile (median) latency in milliseconds.
-let computeP50Latency = (entries: array<BojModel.bojLatencyEntry>): float => {
-  let durations = entries->Array.map(e => e.durationMs)
-  let sorted = sortedFloats(durations)
-  percentile(sorted, 50.0)
-}
-
-/// Compute the 99th percentile latency in milliseconds.
-let computeP99Latency = (entries: array<BojModel.bojLatencyEntry>): float => {
-  let durations = entries->Array.map(e => e.durationMs)
-  let sorted = sortedFloats(durations)
-  percentile(sorted, 99.0)
-}
-
-/// Produce a JSON summary of latency statistics including p50, p99, count,
-/// mean, and a per-cartridge breakdown.
-///
-/// Example output:
-/// ```json
-/// {
-///   "count": 42,
-///   "meanMs": 12.5,
-///   "p50Ms": 10.2,
-///   "p99Ms": 45.8,
-///   "byCartridge": {
-///     "database-mcp": {"count": 20, "meanMs": 8.3, "p50Ms": 7.1, "p99Ms": 22.0},
-///     ...
-///   }
-/// }
-/// ```
-let latencySummary = (entries: array<BojModel.bojLatencyEntry>): string => {
-  let count = entries->Array.length
-  if count == 0 {
-    `{"count":0,"meanMs":0,"p50Ms":0,"p99Ms":0,"byCartridge":{}}`
-  } else {
-    let durations = entries->Array.map(e => e.durationMs)
-    let sorted = sortedFloats(durations)
-    let total = durations->Array.reduce(0.0, (acc, d) => acc +. d)
-    let meanMs = total /. Int.toFloat(count)
-    let p50Ms = percentile(sorted, 50.0)
-    let p99Ms = percentile(sorted, 99.0)
-    // Group entries by cartridge name.
-    let cartridgeMap: Dict.t<array<float>> = Dict.make()
-    entries->Array.forEach(e => {
-      let existing = switch cartridgeMap->Dict.get(e.cartridge) {
-      | Some(arr) => arr
-      | None => []
-      }
-      cartridgeMap->Dict.set(e.cartridge, existing->Array.concat([e.durationMs]))
-    })
-    // Build per-cartridge breakdown.
-    let cartridgeEntries =
-      cartridgeMap
-      ->Dict.toArray
-      ->Array.map(((name, durs)) => {
-        let cCount = durs->Array.length
-        let cTotal = durs->Array.reduce(0.0, (acc, d) => acc +. d)
-        let cMean = cTotal /. Int.toFloat(cCount)
-        let cSorted = sortedFloats(durs)
-        let cP50 = percentile(cSorted, 50.0)
-        let cP99 = percentile(cSorted, 99.0)
-        `"${name}":{"count":${Int.toString(cCount)},"meanMs":${Float.toString(
-            cMean,
-          )},"p50Ms":${Float.toString(cP50)},"p99Ms":${Float.toString(cP99)}}`
-      })
-      ->Array.join(",")
-    `{"count":${Int.toString(count)},"meanMs":${Float.toString(meanMs)},"p50Ms":${Float.toString(
-        p50Ms,
-      )},"p99Ms":${Float.toString(p99Ms)},"byCartridge":{${cartridgeEntries}}}`
-  }
-}
diff --git a/src/core/ObservatoryEngine.affine b/src/core/ObservatoryEngine.affine
new file mode 100644
index 00000000..3708665b
--- /dev/null
+++ b/src/core/ObservatoryEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ObservatoryEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/ObservatoryEngine.res b/src/core/ObservatoryEngine.res
deleted file mode 100644
index bf29ec61..00000000
--- a/src/core/ObservatoryEngine.res
+++ /dev/null
@@ -1,715 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Observatory Engine — pure helpers for the integrative dashboard.
-///
-/// The Observatory is the single pane of glass for operational awareness across
-/// all PanLL panels. It aggregates:
-///   - Panel health status (Healthy / Degraded / Unreachable / Unknown)
-///   - System resource usage (CPU, memory)
-///   - Activity logs from all panels
-///   - Structured debug log entries (routed via DebugLogger)
-///
-/// All functions are pure — no side effects, no Gossamer invocations.
-/// Command wrappers for health-check polling and system stats live in
-/// ObservatoryCmd.res (if present).
-
-open ObservatoryModel
-
-// ============================================================================
-// Default State
-// ============================================================================
-
-/// Default initial state. All panels start with empty snapshots and the
-/// overview tab selected. System metrics are zeroed until the first poll.
-let defaultState: observatoryState = {
-  activeTab: TabOverview,
-  snapshots: [],
-  activity: [],
-  checking: false,
-  error: None,
-  systemCpu: 0.0,
-  systemMemory: 0,
-  systemMemoryTotal: 0,
-  debugLog: [],
-}
-
-// ============================================================================
-// Tab Navigation
-// ============================================================================
-
-/// Human-readable label for each observatory tab.
-let tabLabel = (tab: observatoryTab): string => {
-  switch tab {
-  | TabOverview => "Overview"
-  | TabServices => "Services"
-  | TabResources => "Resources"
-  | TabActivity => "Activity"
-  }
-}
-
-/// Complete list of tabs in display order. Used by the tab bar renderer
-/// to iterate all available views.
-let allTabs: array<observatoryTab> = [TabOverview, TabServices, TabResources, TabActivity]
-
-/// Switch to a specific tab, returning an updated state.
-let switchTab = (state: observatoryState, tab: observatoryTab): observatoryState => {
-  {...state, activeTab: tab}
-}
-
-// ============================================================================
-// Health Status Helpers
-// ============================================================================
-
-/// Human-readable label for a service health status. Degraded includes
-/// its reason string for contextual display in the dashboard.
-let healthLabel = (h: serviceHealth): string => {
-  switch h {
-  | Healthy => "Healthy"
-  | Degraded(reason) => "Degraded: " ++ reason
-  | Unreachable => "Unreachable"
-  | Unknown => "Unknown"
-  }
-}
-
-/// CSS-compatible severity class for a health status. Useful for mapping
-/// health values to colour-coded indicators in the UI.
-let healthSeverityClass = (h: serviceHealth): string => {
-  switch h {
-  | Healthy => "severity-ok"
-  | Degraded(_) => "severity-warn"
-  | Unreachable => "severity-critical"
-  | Unknown => "severity-unknown"
-  }
-}
-
-/// Numeric severity ranking for sorting (lower is healthier).
-/// Healthy=0, Degraded=1, Unknown=2, Unreachable=3.
-let healthSeverity = (h: serviceHealth): int => {
-  switch h {
-  | Healthy => 0
-  | Degraded(_) => 1
-  | Unknown => 2
-  | Unreachable => 3
-  }
-}
-
-/// Check whether a health status is considered "unhealthy" — meaning it
-/// requires attention. Degraded and Unreachable both qualify.
-let isUnhealthy = (h: serviceHealth): bool => {
-  switch h {
-  | Healthy | Unknown => false
-  | Degraded(_) | Unreachable => true
-  }
-}
-
-/// Whether the given health status represents a fully healthy service.
-/// Returns true only for the `Healthy` variant; Degraded, Unreachable,
-/// and Unknown are all considered not healthy.
-let isHealthy = (health: serviceHealth): bool => {
-  switch health {
-  | Healthy => true
-  | Degraded(_) | Unreachable | Unknown => false
-  }
-}
-
-/// Tailwind CSS class for a health status badge background colour.
-/// Maps each health variant to a distinct Tailwind utility class:
-/// - Healthy: green-500
-/// - Degraded: yellow-500 (amber warning)
-/// - Unreachable: red-500 (critical)
-/// - Unknown: gray-400 (indeterminate)
-let healthColor = (health: serviceHealth): string => {
-  switch health {
-  | Healthy => "bg-green-500"
-  | Degraded(_) => "bg-yellow-500"
-  | Unreachable => "bg-red-500"
-  | Unknown => "bg-gray-400"
-  }
-}
-
-/// Unicode icon for inline health status display.
-/// Returns a standard emoji for cross-platform rendering:
-/// - Healthy: check mark
-/// - Degraded: warning triangle
-/// - Unreachable: cross mark
-/// - Unknown: question mark
-let healthIcon = (health: serviceHealth): string => {
-  switch health {
-  | Healthy => "\u{2705}"
-  | Degraded(_) => "\u{26A0}\u{FE0F}"
-  | Unreachable => "\u{274C}"
-  | Unknown => "\u{2753}"
-  }
-}
-
-/// Whether the service can be reached at all. Returns true for Healthy,
-/// Degraded, and Unknown (assumed reachable until proven otherwise).
-/// Only Unreachable returns false.
-let isReachable = (health: serviceHealth): bool => {
-  switch health {
-  | Healthy | Degraded(_) | Unknown => true
-  | Unreachable => false
-  }
-}
-
-/// Human-readable reason string explaining why a service is not fully healthy.
-/// Returns an empty string for Healthy. For Degraded, returns the embedded
-/// reason. For Unreachable and Unknown, returns a generic explanation.
-let degradationReason = (health: serviceHealth): string => {
-  switch health {
-  | Healthy => ""
-  | Degraded(reason) => reason
-  | Unreachable => "Service is unreachable"
-  | Unknown => "Health status has not been determined"
-  }
-}
-
-// ============================================================================
-// Snapshot Queries
-// ============================================================================
-
-/// Count panels whose health matches a target status.
-let countByHealth = (snapshots: array<resourceSnapshot>, target: serviceHealth): int => {
-  snapshots->Array.filter(s => s.health == target)->Array.length
-}
-
-/// Count panels that are in any unhealthy state (Degraded or Unreachable).
-let countUnhealthy = (snapshots: array<resourceSnapshot>): int => {
-  snapshots->Array.filter(s => isUnhealthy(s.health))->Array.length
-}
-
-/// Total memory usage in bytes across all panel snapshots.
-let totalMemory = (snapshots: array<resourceSnapshot>): int => {
-  snapshots->Array.reduce(0, (acc, s) => acc + s.memoryBytes)
-}
-
-/// Average memory usage per panel in bytes. Returns 0 for empty arrays.
-let averageMemory = (snapshots: array<resourceSnapshot>): int => {
-  let count = snapshots->Array.length
-  if count == 0 {
-    0
-  } else {
-    totalMemory(snapshots) / count
-  }
-}
-
-/// Peak (maximum) memory usage in bytes among all snapshots.
-/// Returns 0 if the snapshots array is empty.
-let peakMemory = (snapshots: array<resourceSnapshot>): int => {
-  snapshots->Array.reduce(0, (acc, s) => {
-    if s.memoryBytes > acc {
-      s.memoryBytes
-    } else {
-      acc
-    }
-  })
-}
-
-/// Memory usage as a percentage (0.0 to 100.0). Returns 0.0 if `total`
-/// is zero to avoid division by zero. Both `used` and `total` should be
-/// in the same unit (bytes).
-let memoryPercentage = (used: int, total: int): float => {
-  if total == 0 {
-    0.0
-  } else {
-    Float.fromInt(used) /. Float.fromInt(total) *. 100.0
-  }
-}
-
-/// Count of snapshots whose health status is not Healthy.
-/// Includes Degraded, Unreachable, and Unknown statuses. Differs from
-/// `countUnhealthy` which excludes Unknown.
-let unhealthyCount = (snapshots: array<resourceSnapshot>): int => {
-  snapshots->Array.filter(s => !isHealthy(s.health))->Array.length
-}
-
-/// Count of snapshots whose service is reachable (not Unreachable).
-/// Healthy, Degraded, and Unknown are all considered reachable.
-let reachableCount = (snapshots: array<resourceSnapshot>): int => {
-  snapshots->Array.filter(s => isReachable(s.health))->Array.length
-}
-
-/// Count of snapshots whose panel is currently active (visible/foreground).
-/// Uses the `active` field from each resourceSnapshot.
-let activeCount = (snapshots: array<resourceSnapshot>): int => {
-  snapshots->Array.filter(s => s.active)->Array.length
-}
-
-/// Find the panel consuming the most memory. Returns None for empty arrays.
-let highestMemoryPanel = (snapshots: array<resourceSnapshot>): option<resourceSnapshot> => {
-  snapshots->Array.reduce(None, (acc, s) => {
-    switch acc {
-    | None => Some(s)
-    | Some(current) =>
-      if s.memoryBytes > current.memoryBytes {
-        Some(s)
-      } else {
-        acc
-      }
-    }
-  })
-}
-
-/// Find all panels exceeding a memory threshold (in bytes).
-/// Useful for flagging panels that may have memory leaks.
-let panelsExceedingMemory = (snapshots: array<resourceSnapshot>, thresholdBytes: int): array<
-  resourceSnapshot,
-> => {
-  snapshots->Array.filter(s => s.memoryBytes > thresholdBytes)
-}
-
-/// Filter snapshots to only those with active (visible/foreground) panels.
-let activeSnapshots = (snapshots: array<resourceSnapshot>): array<resourceSnapshot> => {
-  snapshots->Array.filter(s => s.active)
-}
-
-/// Filter snapshots to only those with inactive (background) panels.
-let inactiveSnapshots = (snapshots: array<resourceSnapshot>): array<resourceSnapshot> => {
-  snapshots->Array.filter(s => !s.active)
-}
-
-/// Sort snapshots by health severity (worst first), then by name alphabetically.
-/// This places Unreachable and Degraded panels at the top for quick triage.
-let sortByHealthSeverity = (snapshots: array<resourceSnapshot>): array<resourceSnapshot> => {
-  snapshots->Array.toSorted((a, b) => {
-    let severityDiff = Float.fromInt(healthSeverity(b.health) - healthSeverity(a.health))
-    if severityDiff !== 0.0 {
-      severityDiff
-    } // Alphabetical tiebreaker for panels at the same severity.
-    else if a.name < b.name {
-      -1.0
-    } else if a.name > b.name {
-      1.0
-    } else {
-      0.0
-    }
-  })
-}
-
-/// Sort snapshots by health status with Healthy first and Unknown last.
-/// Order: Healthy(0) -> Degraded(1) -> Unreachable(2) -> Unknown(3).
-/// Within the same health tier, original order is preserved.
-let sortByHealth = (snapshots: array<resourceSnapshot>): array<resourceSnapshot> => {
-  let priority = (h: serviceHealth): int => {
-    switch h {
-    | Healthy => 0
-    | Degraded(_) => 1
-    | Unreachable => 2
-    | Unknown => 3
-    }
-  }
-  snapshots->Array.toSorted((a, b) => {
-    Float.fromInt(priority(a.health) - priority(b.health))
-  })
-}
-
-/// Filter snapshots to only those matching a specific health status.
-/// Uses structural equality on the serviceHealth variant.
-let panelsByHealth = (snapshots: array<resourceSnapshot>, health: serviceHealth): array<
-  resourceSnapshot,
-> => {
-  snapshots->Array.filter(s => s.health == health)
-}
-
-/// Sort snapshots by memory usage (highest first). Useful for the
-/// Resources tab to highlight memory-hungry panels.
-let sortByMemoryDesc = (snapshots: array<resourceSnapshot>): array<resourceSnapshot> => {
-  snapshots->Array.toSorted((a, b) => {
-    Float.fromInt(b.memoryBytes - a.memoryBytes)
-  })
-}
-
-/// Find a snapshot by panel name. Returns None if not found.
-let findSnapshot = (snapshots: array<resourceSnapshot>, panelName: string): option<
-  resourceSnapshot,
-> => {
-  snapshots->Array.find(s => s.name === panelName)
-}
-
-// ============================================================================
-// Snapshot Updates
-// ============================================================================
-
-/// Upsert a resource snapshot — updates the entry for a panel if it exists,
-/// or appends it if it does not. This is the primary way panels report
-/// their status to the Observatory.
-let upsertSnapshot = (state: observatoryState, snapshot: resourceSnapshot): observatoryState => {
-  let exists = state.snapshots->Array.some(s => s.name === snapshot.name)
-  let updatedSnapshots = if exists {
-    state.snapshots->Array.map(s =>
-      if s.name === snapshot.name {
-        snapshot
-      } else {
-        s
-      }
-    )
-  } else {
-    Array.concat(state.snapshots, [snapshot])
-  }
-  {...state, snapshots: updatedSnapshots}
-}
-
-/// Remove a snapshot by panel name. Used when a panel is unloaded or
-/// removed from the workspace.
-let removeSnapshot = (state: observatoryState, panelName: string): observatoryState => {
-  {...state, snapshots: state.snapshots->Array.filter(s => s.name !== panelName)}
-}
-
-/// Replace all snapshots at once (bulk update from a health-check sweep).
-let replaceAllSnapshots = (
-  state: observatoryState,
-  snapshots: array<resourceSnapshot>,
-): observatoryState => {
-  {...state, snapshots}
-}
-
-// ============================================================================
-// System Health Summary
-// ============================================================================
-
-/// Whether CPU usage exceeds the warning threshold (80%).
-/// Returns true when the system should display a CPU warning indicator.
-let cpuWarning = (cpu: float): bool => {
-  cpu > 80.0
-}
-
-/// Whether memory usage exceeds the warning threshold (90%).
-/// Computed from raw byte values via `memoryPercentage`. Returns false
-/// if `total` is zero (avoids division by zero).
-let memoryWarning = (used: int, total: int): bool => {
-  memoryPercentage(used, total) > 90.0
-}
-
-/// Compute a system health badge string based on CPU and memory metrics.
-/// Three tiers:
-/// - "Critical": CPU > 90% or memory > 95%
-/// - "Warning": CPU > 80% or memory > 90%
-/// - "Healthy": all metrics within normal range
-let systemHealthBadge = (cpu: float, memory: int, memoryTotal: int): string => {
-  let memPct = memoryPercentage(memory, memoryTotal)
-  if cpu > 90.0 || memPct > 95.0 {
-    "Critical"
-  } else if cpu > 80.0 || memPct > 90.0 {
-    "Warning"
-  } else {
-    "Healthy"
-  }
-}
-
-/// Whether the system is operating within normal parameters.
-/// Returns true only when neither CPU nor memory warnings are triggered.
-let systemOkay = (cpu: float, memory: int, memoryTotal: int): bool => {
-  !cpuWarning(cpu) && !memoryWarning(memory, memoryTotal)
-}
-
-// ============================================================================
-// System Metrics
-// ============================================================================
-
-/// Update the system-level CPU percentage (0.0-100.0).
-let updateSystemCpu = (state: observatoryState, cpuPercent: float): observatoryState => {
-  {...state, systemCpu: cpuPercent}
-}
-
-/// Update the system-level memory usage and total (both in bytes).
-let updateSystemMemory = (
-  state: observatoryState,
-  usedBytes: int,
-  totalBytes: int,
-): observatoryState => {
-  {...state, systemMemory: usedBytes, systemMemoryTotal: totalBytes}
-}
-
-/// Compute the system memory usage as a percentage (0.0-100.0).
-/// Returns 0.0 if the total is zero (not yet polled).
-let systemMemoryPercent = (state: observatoryState): float => {
-  if state.systemMemoryTotal == 0 {
-    0.0
-  } else {
-    Float.fromInt(state.systemMemory) /. Float.fromInt(state.systemMemoryTotal) *. 100.0
-  }
-}
-
-/// Determine overall system health based on CPU and memory thresholds.
-/// Returns Healthy if both are below warning levels, Degraded if either
-/// exceeds a warning threshold, Unreachable should not occur for system metrics.
-let systemHealthFromMetrics = (state: observatoryState): serviceHealth => {
-  let memPercent = systemMemoryPercent(state)
-  let cpuHigh = state.systemCpu > 90.0
-  let memHigh = memPercent > 90.0
-  let cpuWarn = state.systemCpu > 75.0
-  let memWarn = memPercent > 75.0
-  if cpuHigh && memHigh {
-    Degraded("CPU and memory critically high")
-  } else if cpuHigh {
-    Degraded("CPU critically high (" ++ Float.toFixed(state.systemCpu, ~digits=1) ++ "%)")
-  } else if memHigh {
-    Degraded("Memory critically high (" ++ Float.toFixed(memPercent, ~digits=1) ++ "%)")
-  } else if cpuWarn || memWarn {
-    Degraded("Resource pressure elevated")
-  } else {
-    Healthy
-  }
-}
-
-// ============================================================================
-// Health Check Sweep Lifecycle
-// ============================================================================
-
-/// Mark that a health-check sweep has started. Clears any previous error.
-let beginHealthCheck = (state: observatoryState): observatoryState => {
-  {...state, checking: true, error: None}
-}
-
-/// Mark that a health-check sweep completed successfully.
-let completeHealthCheck = (state: observatoryState): observatoryState => {
-  {...state, checking: false}
-}
-
-/// Mark that a health-check sweep failed with an error message.
-let failHealthCheck = (state: observatoryState, errorMsg: string): observatoryState => {
-  {...state, checking: false, error: Some(errorMsg)}
-}
-
-// ============================================================================
-// Activity Log
-// ============================================================================
-
-/// Maximum number of activity entries to retain. Older entries are
-/// evicted when new ones arrive to prevent unbounded growth.
-let maxActivityEntries = 500
-
-/// Append an activity entry to the log. If the log exceeds the maximum
-/// size, the oldest entries are removed to make room.
-let addActivity = (state: observatoryState, entry: activityEntry): observatoryState => {
-  let updated = Array.concat(state.activity, [entry])
-  let trimmed = if updated->Array.length > maxActivityEntries {
-    // Keep only the most recent entries by slicing from the end.
-    updated->Array.slice(
-      ~start=updated->Array.length - maxActivityEntries,
-      ~end=updated->Array.length,
-    )
-  } else {
-    updated
-  }
-  {...state, activity: trimmed}
-}
-
-/// Add an activity entry to a raw log array. The new entry is prepended
-/// (most recent first) and the log is capped at 200 entries to prevent
-/// unbounded growth. Returns a new array; the original is not mutated.
-/// This standalone variant operates on the array directly, unlike
-/// `addActivity` which operates on state.
-let addActivityEntry = (
-  log: array<activityEntry>,
-  timestamp: string,
-  panelName: string,
-  event: string,
-): array<activityEntry> => {
-  let entry: activityEntry = {timestamp, panelName, event}
-  let combined = Array.concat([entry], log)
-  if combined->Array.length > 200 {
-    combined->Array.slice(~start=0, ~end=200)
-  } else {
-    combined
-  }
-}
-
-/// Create and append an activity entry in one step.
-let logActivity = (
-  state: observatoryState,
-  ~timestamp: string,
-  ~panelName: string,
-  ~event: string,
-): observatoryState => {
-  let entry: activityEntry = {
-    timestamp,
-    panelName,
-    event,
-  }
-  addActivity(state, entry)
-}
-
-/// Filter activity entries for a specific panel.
-let activityForPanel = (activity: array<activityEntry>, panelName: string): array<
-  activityEntry,
-> => {
-  activity->Array.filter(a => a.panelName === panelName)
-}
-
-/// Get the N most recent activity entries.
-let recentActivity = (activity: array<activityEntry>, count: int): array<activityEntry> => {
-  let len = activity->Array.length
-  if len <= count {
-    activity
-  } else {
-    activity->Array.slice(~start=len - count, ~end=len)
-  }
-}
-
-/// Clear all activity entries.
-let clearActivity = (state: observatoryState): observatoryState => {
-  {...state, activity: []}
-}
-
-// ============================================================================
-// Debug Log Integration
-// ============================================================================
-
-/// Maximum number of debug log entries to retain.
-let maxDebugLogEntries = 1000
-
-/// Append a structured debug log entry. Evicts oldest entries when
-/// the log exceeds the maximum size.
-let addDebugEntry = (state: observatoryState, entry: DebugLogger.logEntry): observatoryState => {
-  let updated = Array.concat(state.debugLog, [entry])
-  let trimmed = if updated->Array.length > maxDebugLogEntries {
-    updated->Array.slice(
-      ~start=updated->Array.length - maxDebugLogEntries,
-      ~end=updated->Array.length,
-    )
-  } else {
-    updated
-  }
-  {...state, debugLog: trimmed}
-}
-
-/// Filter debug log entries by minimum severity level.
-/// Debug < Info < Warn < Error.
-let debugEntriesAtLevel = (
-  entries: array<DebugLogger.logEntry>,
-  minLevel: DebugLogger.logLevel,
-): array<DebugLogger.logEntry> => {
-  let minSeverity = DebugLogger.levelToOtelSeverity(minLevel)
-  entries->Array.filter(e => DebugLogger.levelToOtelSeverity(e.level) >= minSeverity)
-}
-
-/// Filter debug log entries by source module name.
-let debugEntriesFromSource = (entries: array<DebugLogger.logEntry>, source: string): array<
-  DebugLogger.logEntry,
-> => {
-  entries->Array.filter(e => e.source === source)
-}
-
-/// Count debug log entries by level. Returns a tuple of
-/// (debugCount, infoCount, warnCount, errorCount).
-let debugLogCounts = (entries: array<DebugLogger.logEntry>): (int, int, int, int) => {
-  entries->Array.reduce((0, 0, 0, 0), ((d, i, w, e), entry) => {
-    switch entry.level {
-    | Debug => (d + 1, i, w, e)
-    | Info => (d, i + 1, w, e)
-    | Warn => (d, i, w + 1, e)
-    | Error => (d, i, w, e + 1)
-    }
-  })
-}
-
-/// Return the most recent `count` debug log entries. Since entries are
-/// stored chronologically (oldest first), this returns the last `count`
-/// entries from the array. Returns the full array if `count` exceeds length.
-let recentDebugEntries = (log: array<DebugLogger.logEntry>, count: int): array<
-  DebugLogger.logEntry,
-> => {
-  let len = log->Array.length
-  if count >= len {
-    log
-  } else {
-    log->Array.slice(~start=len - count, ~end=len)
-  }
-}
-
-/// Clear all debug log entries.
-let clearDebugLog = (state: observatoryState): observatoryState => {
-  {...state, debugLog: []}
-}
-
-// ============================================================================
-// Dashboard Summary Helpers
-// ============================================================================
-
-/// Produce a concise text summary of the current observatory state.
-/// Designed for the Overview tab's status badge and tooltip.
-///
-/// Example outputs:
-///   "All 12 panels healthy"
-///   "2 of 12 panels unhealthy — CPU 82.3%"
-///   "No panels registered"
-let overviewSummary = (state: observatoryState): string => {
-  let total = state.snapshots->Array.length
-  if total == 0 {
-    "No panels registered"
-  } else {
-    let unhealthy = countUnhealthy(state.snapshots)
-    let baseMsg = if unhealthy == 0 {
-      "All " ++ Int.toString(total) ++ " panels healthy"
-    } else {
-      Int.toString(unhealthy) ++ " of " ++ Int.toString(total) ++ " panels unhealthy"
-    }
-    // Append system resource note if under pressure.
-    let memPercent = systemMemoryPercent(state)
-    if state.systemCpu > 75.0 || memPercent > 75.0 {
-      baseMsg ++ " — CPU " ++ Float.toFixed(state.systemCpu, ~digits=1) ++ "%"
-    } else {
-      baseMsg
-    }
-  }
-}
-
-/// Determine whether the observatory should display an alert indicator.
-/// True if any panel is unhealthy or system resources are under pressure.
-let hasAlerts = (state: observatoryState): bool => {
-  let unhealthy = countUnhealthy(state.snapshots) > 0
-  let cpuPressure = state.systemCpu > 90.0
-  let memPressure = systemMemoryPercent(state) > 90.0
-  let hasErrors = state.error->Option.isSome
-  unhealthy || cpuPressure || memPressure || hasErrors
-}
-
-/// Count the total number of active alerts (unhealthy panels + resource warnings + errors).
-let alertCount = (state: observatoryState): int => {
-  let unhealthyPanels = countUnhealthy(state.snapshots)
-  let cpuAlert = if state.systemCpu > 90.0 {
-    1
-  } else {
-    0
-  }
-  let memAlert = if systemMemoryPercent(state) > 90.0 {
-    1
-  } else {
-    0
-  }
-  let errorAlert = switch state.error {
-  | Some(_) => 1
-  | None => 0
-  }
-  unhealthyPanels + cpuAlert + memAlert + errorAlert
-}
-
-// ============================================================================
-// Formatting Utilities
-// ============================================================================
-
-/// Format a byte count as a human-readable string (B, KB, MB, GB).
-/// Uses binary units (1 KB = 1024 bytes).
-let formatBytes = (bytes: int): string => {
-  let b = Float.fromInt(bytes)
-  if b >= 1073741824.0 {
-    Float.toFixed(b /. 1073741824.0, ~digits=2) ++ " GB"
-  } else if b >= 1048576.0 {
-    Float.toFixed(b /. 1048576.0, ~digits=1) ++ " MB"
-  } else if b >= 1024.0 {
-    Float.toFixed(b /. 1024.0, ~digits=0) ++ " KB"
-  } else {
-    Int.toString(bytes) ++ " B"
-  }
-}
-
-/// Format a CPU percentage with one decimal place and a percent sign.
-let formatCpu = (cpuPercent: float): string => {
-  Float.toFixed(cpuPercent, ~digits=1) ++ "%"
-}
-
-/// Format a memory ratio as "used / total" with human-readable byte units.
-let formatMemoryRatio = (usedBytes: int, totalBytes: int): string => {
-  formatBytes(usedBytes) ++ " / " ++ formatBytes(totalBytes)
-}
diff --git a/src/core/OrbitalSync.affine b/src/core/OrbitalSync.affine
new file mode 100644
index 00000000..8dd29858
--- /dev/null
+++ b/src/core/OrbitalSync.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module OrbitalSync;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/OrbitalSync.res b/src/core/OrbitalSync.res
deleted file mode 100644
index b470291f..00000000
--- a/src/core/OrbitalSync.res
+++ /dev/null
@@ -1,229 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// OrbitalSync Module - Pane Synchronisation
-///
-/// Implements the "Semantic Synchronisation" between Pane-L, Pane-N,
-/// and Pane-W. Ensures the Binary Star co-orbit maintains gravitational
-/// coherence across all three panes.
-
-// Use Model types to avoid circular dependencies
-type syncEvent = Model.syncEvent
-type syncState = Model.syncState
-
-/// FNV-1a change-detection hash — consistent with ProvenanceEngine pattern.
-/// Replaces the broken length+first+last approach that collided on any two
-/// strings differing only in middle characters (e.g. "abc" ≡ "axc").
-let simpleHash = (content: string): string => {
-  if String.length(content) === 0 {
-    "empty"
-  } else {
-    %raw(`
-      (function(s) {
-        var h = 0x811c9dc5;
-        for (var i = 0; i < s.length; i++) {
-          h = ((h ^ s.charCodeAt(i)) * 0x01000193) >>> 0;
-        }
-        return h.toString(16);
-      })(content)
-    `)
-  }
-}
-
-/// Detect changes in Pane-L
-let detectSymbolicChanges = (paneL: Model.paneLState, state: syncState): option<syncEvent> => {
-  let currentHash = simpleHash(paneL.editorContent)
-  if currentHash !== state.lastSymbolicHash {
-    Some(Model.SymbolicUpdate(paneL.editorContent))
-  } else {
-    None
-  }
-}
-
-/// Detect changes in Pane-N
-let detectNeuralChanges = (paneN: Model.paneNState, state: syncState): option<syncEvent> => {
-  let currentHash = simpleHash(paneN.monologue)
-  if currentHash !== state.lastNeuralHash {
-    Some(Model.NeuralUpdate(paneN.monologue))
-  } else {
-    None
-  }
-}
-
-/// Detect changes in Pane-W
-let detectWorldChanges = (paneW: Model.paneWState, state: syncState): option<syncEvent> => {
-  let currentHash = simpleHash(paneW.content)
-  if currentHash !== state.lastWorldHash {
-    Some(Model.WorldUpdate(paneW.content))
-  } else {
-    None
-  }
-}
-
-/// S3: Token-overlap divergence between symbolic and neural content.
-/// Splits both panes' content into word tokens and computes Jaccard
-/// distance: 1 - |intersection| / |union|. Falls back to length
-/// ratio when token sets are empty.
-let calculateDivergence = (paneL: Model.paneLState, paneN: Model.paneNState): float => {
-  let symbolicContent = paneL.editorContent
-  let neuralContent = paneN.monologue
-
-  let symbolicLen = String.length(symbolicContent)
-  let neuralLen = String.length(neuralContent)
-
-  if symbolicLen === 0 && neuralLen === 0 {
-    0.0
-  } else if symbolicLen === 0 || neuralLen === 0 {
-    1.0
-  } else {
-    // Tokenise: split on whitespace and punctuation boundaries.
-    let tokenise = (s: string): array<string> => {
-      String.split(s, " ")
-      ->Array.flatMap(w => String.split(w, "\n"))
-      ->Array.map(String.trim)
-      ->Array.filter(t => String.length(t) > 0)
-    }
-
-    let symTokens = tokenise(symbolicContent)
-    let neuTokens = tokenise(neuralContent)
-
-    let symLen = Array.length(symTokens)
-    let neuLen = Array.length(neuTokens)
-
-    if symLen === 0 && neuLen === 0 {
-      0.0
-    } else {
-      // Count intersection: tokens present in both sets.
-      let intersection = Array.filter(symTokens, t => Array.includes(neuTokens, t))->Array.length
-
-      // Jaccard distance = 1 - |intersection| / |union|
-      // |union| = |A| + |B| - |intersection|
-      let union = symLen + neuLen - intersection
-      if union === 0 {
-        0.0
-      } else {
-        let jaccard = Int.toFloat(intersection) /. Int.toFloat(union)
-        Math.min(1.0, 1.0 -. jaccard)
-      }
-    }
-  }
-}
-
-/// Calculate orbital stability based on divergence and sync latency
-let calculateStability = (divergence: float, latency: float): float => {
-  // Stability decreases with divergence and latency
-  let divergencePenalty = divergence *. 0.6
-  let latencyPenalty = Math.min(0.4, latency /. 1000.0) // Normalize latency to 0-0.4
-
-  Math.max(0.0, 1.0 -. divergencePenalty -. latencyPenalty)
-}
-
-/// Determine drift aura colour based on stability
-let getDriftAuraColour = (stability: float): string => {
-  if stability >= 0.7 {
-    "indigo" // Stable co-orbit
-  } else {
-    "amber" // Orbital decay detected
-  }
-}
-
-/// Process synchronisation for the model
-let sync = (model: Model.model, state: syncState): (syncState, Model.orbitalState) => {
-  // Detect all changes
-  let symbolicChange = detectSymbolicChanges(model.paneL, state)
-  let neuralChange = detectNeuralChanges(model.paneN, state)
-  let worldChange = detectWorldChanges(model.paneW, state)
-
-  // Collect pending events
-  let newEvents =
-    [symbolicChange, neuralChange, worldChange]
-    ->Array.filter(Option.isSome)
-    ->Array.map(opt => Option.getExn(opt))
-
-  // Update hashes
-  let newState: Model.syncState = {
-    lastSymbolicHash: simpleHash(model.paneL.editorContent),
-    lastNeuralHash: simpleHash(model.paneN.monologue),
-    lastWorldHash: simpleHash(model.paneW.content),
-    pendingSync: newEvents,
-    syncLatency: state.syncLatency, // Would be measured in real implementation
-  }
-
-  // Calculate orbital metrics
-  let divergence = calculateDivergence(model.paneL, model.paneN)
-  let stability = calculateStability(divergence, state.syncLatency)
-  let auraColour = getDriftAuraColour(stability)
-
-  // Symbolic mass: derived from constraint editor content density PLUS active
-  // constraint count.  Each active constraint adds mass equivalent to ~20 tokens,
-  // reflecting the formal weight constraints carry in the symbolic–neural loop.
-  // Normalise effective token count to 0.0–1.0 (cap at 500 tokens for max mass).
-  let symTokenCount =
-    String.split(model.paneL.editorContent, " ")
-    ->Array.filter(t => String.length(String.trim(t)) > 0)
-    ->Array.length
-  let activeConstraintCount =
-    model.paneL.constraints
-    ->Array.filter(c => c.active)
-    ->Array.length
-  let effectiveTokens = symTokenCount + activeConstraintCount * 20
-  let symbolicMass = Math.min(1.0, Int.toFloat(effectiveTokens) /. 500.0)
-
-  // Neural stream: derived from monologue density.
-  // Normalise to 0.0–1.0 (cap at 500 tokens).
-  let neuTokenCount =
-    String.split(model.paneN.monologue, " ")
-    ->Array.filter(t => String.length(String.trim(t)) > 0)
-    ->Array.length
-  let neuralStream = Math.min(1.0, Int.toFloat(neuTokenCount) /. 500.0)
-
-  // Barycentre position: centre of mass between symbolic and neural.
-  // -1.0 = all symbolic, 0.0 = balanced, +1.0 = all neural.
-  let totalMass = symbolicMass +. neuralStream
-  let barycentrePosition = if totalMass < 0.001 {
-    0.0
-  } else {
-    (neuralStream -. symbolicMass) /. totalMass
-  }
-
-  // Sync health: composite of latency freshness and event throughput.
-  let latencyHealth = Math.max(0.0, 1.0 -. state.syncLatency /. 2000.0)
-  let eventFreshness = if Array.length(newEvents) > 0 {
-    0.9
-  } else {
-    1.0
-  }
-  let syncHealth = latencyHealth *. eventFreshness
-
-  let orbital: Model.orbitalState = {
-    stability,
-    divergenceLevel: divergence,
-    driftAuraColour: auraColour,
-    symbolicMass,
-    neuralStream,
-    barycentrePosition,
-    syncHealth,
-  }
-
-  (newState, orbital)
-}
-
-/// Create a cross-pane link (Circuit Lines feature)
-let createCrossLink = (sourcePane: string, targetPane: string, content: string): syncEvent => {
-  Model.CrossPaneLink(sourcePane ++ ":" ++ content, targetPane)
-}
-
-/// Get Information Humidity level based on model state
-let getHumidityLevel = (model: Model.model): Model.humidityLevel => {
-  let vexation = model.vexometer.index
-  let stability = model.orbital.stability
-
-  // High stress = Low humidity (shed visual noise)
-  // Low stress = High humidity (reveal more detail)
-  if vexation > 0.7 || stability < 0.4 {
-    Model.Low
-  } else if vexation > 0.4 || stability < 0.7 {
-    Model.Medium
-  } else {
-    Model.High
-  }
-}
diff --git a/src/core/PanelBus.affine b/src/core/PanelBus.affine
new file mode 100644
index 00000000..39587ac0
--- /dev/null
+++ b/src/core/PanelBus.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PanelBus;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/PanelBus.res b/src/core/PanelBus.res
deleted file mode 100644
index 8902d7cd..00000000
--- a/src/core/PanelBus.res
+++ /dev/null
@@ -1,522 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Panel Bus — cross-panel event types for inter-module communication.
-///
-/// When one panel's state change should trigger updates in another panel,
-/// the Update loop emits bus events after the sub-updater runs. The main
-/// update function inspects these events and dispatches follow-up messages.
-///
-/// This is a pure data layer — no side effects. Events are value types
-/// that describe what happened, not what should happen next.
-
-/// Cross-panel event that one module emits for others to consume.
-type panelEvent =
-  /// Hypatia completed a scan and routed findings to the fleet.
-  | HypatiaFindingsRouted(string) // JSON payload of routed findings
-  /// Hypatia updated neural confidence for a repo.
-  | HypatiaConfidenceUpdated(string, float) // (repo, confidence)
-  /// Git-private-farm repo list was refreshed.
-  | FarmRepoListUpdated(int) // count of repos
-  /// A repo's health status changed.
-  | RepoHealthChanged(string, float) // (repo, healthScore)
-  /// Gitbot-fleet dispatched a fix.
-  | FleetFixDispatched(string, string) // (repo, fixRecipeId)
-  /// Reposystem detected an RSR compliance change.
-  | RsrComplianceChanged(string, float) // (repo, newScore)
-  /// Database connection status changed.
-  | DatabaseConnectionChanged(string, bool) // (dbName, connected)
-  /// UMS level validation completed — 5 ABI proof results.
-  | UmsValidationCompleted(bool) // allPassed
-  /// Level Architect entity count changed.
-  | LevelArchitectEntitiesChanged(int) // entityCount
-  /// UMS project opened or created.
-  | UmsProjectChanged(string) // projectId
-  // ── Game Testing Events ──────────────────────────────────────────────
-  /// A test suite completed execution (suiteName, passCount, failCount).
-  | TestSuiteCompleted(string, int, int)
-  /// Balance simulation finished (simulationId, equilibriumScore).
-  | BalanceSimulationDone(string, float)
-  /// Player/tester feedback received (feedbackId, sentiment 0.0–1.0).
-  | FeedbackReceived(string, float)
-  /// Soak test detected a memory leak (processName, leakBytes).
-  | SoakLeakDetected(string, int)
-  /// Compatibility check completed (platformId, passed).
-  | CompatibilityCheckDone(string, bool)
-  /// Procedural generator produced a world (worldId, seed).
-  | GeneratorWorldReady(string, int)
-  /// Level Architect saved a level (levelId, entityCount).
-  | ArchitectLevelSaved(string, int)
-  /// Burble voice session started (panelContext, roomId).
-  | BurbleVoiceStarted(string, string)
-  /// Burble voice session ended (panelContext).
-  | BurbleVoiceEnded(string)
-  /// Burble participant started speaking (userId, displayName).
-  | BurbleSpeechStarted(string, string)
-  /// Burble participant stopped speaking (userId).
-  | BurbleSpeechEnded(string)
-  /// Burble voice tag created from speech (transcript, tagType).
-  | BurbleVoiceTagCreated(string, string)
-
-/// Empty event array for sub-updaters with no cross-panel effects.
-let noEvents: array<panelEvent> = []
-
-// ════════════════════════════════════════════════════════════════════════
-// Backpressure and Scaling — strategies for handling event volume spikes.
-// ════════════════════════════════════════════════════════════════════════
-
-/// Strategy for handling ring buffer overflow under high event volume.
-type backpressureStrategy =
-  /// Drop the oldest events to make room (default, preserves liveness).
-  | DropOldest
-  /// Drop the newest events (preserves history, risks stale state).
-  | DropNewest
-  /// Block the emitter until space is available (use with caution).
-  | Block
-  /// Sample every Nth event, discarding the rest (load shedding).
-  | Sample(int)
-
-/// Subscriber dispatch priority — determines processing order.
-type subscriberPriority =
-  /// Dispatched first, never dropped under backpressure.
-  | Critical
-  /// Standard dispatch order.
-  | Normal
-  /// Dispatched last, may be deferred or dropped under load.
-  | Background
-
-/// Configuration record for the event bus.
-type busConfig = {
-  /// Maximum events retained in the ring buffer.
-  maxEvents: int,
-  /// Strategy when the ring buffer is full.
-  backpressure: backpressureStrategy,
-  /// Time-to-live for events in milliseconds (0 = no expiry).
-  eventTtlMs: float,
-}
-
-/// Default bus configuration — 500-event ring buffer, drop-oldest, no TTL.
-let defaultBusConfig: busConfig = {
-  maxEvents: 500,
-  backpressure: DropOldest,
-  eventTtlMs: 0.0,
-}
-
-/// Governance-originated events — emitted by the post-update governance
-/// pass when contractile compliance, orbital stability, or database
-/// connection state changes. These allow consumer panels (Hypatia, Fleet,
-/// Reposystem) to react to cross-cutting state transitions.
-
-/// Anti-Crash violation spike detected — governance tightened constraints.
-type governanceEvent =
-  /// Contractile compliance score changed (0.0–1.0).
-  | ComplianceChanged(float)
-  /// Orbital stability changed significantly.
-  | StabilityChanged(float)
-  /// Inference was halted by governance.
-  | InferenceHalted(string) // reason
-  /// Inference was resumed by governance.
-  | InferenceResumed
-  /// Humidity level was adjusted.
-  | HumidityAdjusted(PaneModel.humidityLevel)
-
-/// Convert a governance event to a panel event for bus routing.
-let governanceToPanel = (evt: governanceEvent): panelEvent => {
-  switch evt {
-  | ComplianceChanged(score) => RsrComplianceChanged("contractiles", score)
-  | StabilityChanged(score) => RepoHealthChanged("panll-orbit", score)
-  | InferenceHalted(_) => RepoHealthChanged("panll-inference", 0.0)
-  | InferenceResumed => RepoHealthChanged("panll-inference", 1.0)
-  | HumidityAdjusted(_) => RepoHealthChanged("panll-humidity", 1.0)
-  }
-}
-
-// ════════════════════════════════════════════════════════════════════════
-// Tier 2: Pub/Sub Event Bus — topic-based subscriptions, event metadata,
-// and a subscriber registry for declarative cross-panel communication.
-// ════════════════════════════════════════════════════════════════════════
-
-/// Event topic — coarse category for filtering subscriptions.
-type eventTopic =
-  | TopicScan // Hypatia/panic-attack findings and scans
-  | TopicHealth // Repo and system health changes
-  | TopicBuild // Build, compile, test results
-  | TopicGovernance // Contractile compliance, stability
-  | TopicDatabase // Database connection, query, drift
-  | TopicType // TypeLL type checking results
-  | TopicProtocol // Protocol-Squisher analysis
-  | TopicSecurity // Security events, vault, secrets
-  | TopicWorkflow // Automation router, fleet dispatch
-  | TopicUI // Workspace, layout, session changes
-  | TopicTesting // Game testing: unit, functional, soak, compat
-  | TopicSimulation // Balance simulation, procedural generation
-
-/// Classify a panel event into its topic.
-let eventTopic = (evt: panelEvent): eventTopic =>
-  switch evt {
-  | HypatiaFindingsRouted(_) => TopicScan
-  | HypatiaConfidenceUpdated(_, _) => TopicScan
-  | FarmRepoListUpdated(_) => TopicHealth
-  | RepoHealthChanged(_, _) => TopicHealth
-  | FleetFixDispatched(_, _) => TopicWorkflow
-  | RsrComplianceChanged(_, _) => TopicGovernance
-  | DatabaseConnectionChanged(_, _) => TopicDatabase
-  | UmsValidationCompleted(_) => TopicBuild
-  | LevelArchitectEntitiesChanged(_) => TopicUI
-  | UmsProjectChanged(_) => TopicWorkflow
-  | TestSuiteCompleted(_, _, _) => TopicTesting
-  | FeedbackReceived(_, _) => TopicTesting
-  | SoakLeakDetected(_, _) => TopicTesting
-  | CompatibilityCheckDone(_, _) => TopicTesting
-  | BalanceSimulationDone(_, _) => TopicSimulation
-  | GeneratorWorldReady(_, _) => TopicSimulation
-  | ArchitectLevelSaved(_, _) => TopicUI
-  | BurbleVoiceStarted(_, _) => TopicUI
-  | BurbleVoiceEnded(_) => TopicUI
-  | BurbleSpeechStarted(_, _) => TopicUI
-  | BurbleSpeechEnded(_) => TopicUI
-  | BurbleVoiceTagCreated(_, _) => TopicUI
-  }
-
-/// Human-readable label for a topic.
-let topicLabel = (t: eventTopic): string =>
-  switch t {
-  | TopicScan => "Scan"
-  | TopicHealth => "Health"
-  | TopicBuild => "Build"
-  | TopicGovernance => "Governance"
-  | TopicDatabase => "Database"
-  | TopicType => "Type"
-  | TopicProtocol => "Protocol"
-  | TopicSecurity => "Security"
-  | TopicWorkflow => "Workflow"
-  | TopicUI => "UI"
-  | TopicTesting => "Testing"
-  | TopicSimulation => "Simulation"
-  }
-
-/// All topics for display.
-let allTopics: array<eventTopic> = [
-  TopicScan,
-  TopicHealth,
-  TopicBuild,
-  TopicGovernance,
-  TopicDatabase,
-  TopicType,
-  TopicProtocol,
-  TopicSecurity,
-  TopicWorkflow,
-  TopicUI,
-  TopicTesting,
-  TopicSimulation,
-]
-
-/// Envelope wrapping an event with metadata for tracing and debugging.
-type eventEnvelope = {
-  /// Unique event ID (monotonic counter).
-  eventId: int,
-  /// Source panel/clade that emitted the event.
-  sourceCladeId: string,
-  /// Topic for subscription filtering.
-  topic: eventTopic,
-  /// The underlying event.
-  event: panelEvent,
-  /// Timestamp (ms since epoch).
-  timestampMs: float,
-}
-
-/// A subscriber declaration — which panel wants which topics.
-type subscriber = {
-  /// The clade ID of the subscribing panel.
-  cladeId: string,
-  /// Topics this subscriber is interested in.
-  topics: array<eventTopic>,
-  /// Whether this subscriber is currently active.
-  active: bool,
-  /// Dispatch priority — Critical subscribers are dispatched first.
-  priority: subscriberPriority,
-}
-
-/// The subscriber registry — which clades listen to which topics.
-type subscriberRegistry = {
-  subscribers: array<subscriber>,
-  /// Monotonic event counter for envelope IDs.
-  nextEventId: int,
-  /// Recent event log for debugging (bounded ring buffer).
-  recentEvents: array<eventEnvelope>,
-  /// Max events to keep in the ring buffer.
-  maxRecentEvents: int,
-}
-
-/// Default empty registry.
-let emptyRegistry: subscriberRegistry = {
-  subscribers: [],
-  nextEventId: 1,
-  recentEvents: [],
-  maxRecentEvents: 500,
-}
-
-/// Default subscriber declarations for core panels.
-let defaultSubscribers: array<subscriber> = [
-  // ── Core infrastructure panels ───────────────────────────────────────
-  {
-    cladeId: "fleet",
-    topics: [TopicScan, TopicHealth, TopicWorkflow],
-    active: true,
-    priority: Critical,
-  },
-  {
-    cladeId: "hypatia",
-    topics: [TopicScan, TopicGovernance, TopicHealth],
-    active: true,
-    priority: Critical,
-  },
-  {cladeId: "databases", topics: [TopicDatabase, TopicType], active: true, priority: Normal},
-  {
-    cladeId: "vcl",
-    topics: [TopicDatabase, TopicType, TopicProtocol],
-    active: true,
-    priority: Normal,
-  },
-  {
-    cladeId: "typell",
-    topics: [TopicType, TopicProtocol, TopicBuild],
-    active: true,
-    priority: Normal,
-  },
-  {cladeId: "security", topics: [TopicSecurity, TopicScan], active: true, priority: Critical},
-  {cladeId: "workspace", topics: [TopicUI, TopicHealth], active: true, priority: Normal},
-  {
-    cladeId: "automation-router",
-    topics: [TopicWorkflow, TopicBuild, TopicGovernance],
-    active: true,
-    priority: Normal,
-  },
-  {cladeId: "farm", topics: [TopicHealth], active: true, priority: Background},
-  {
-    cladeId: "protocol-squisher",
-    topics: [TopicProtocol, TopicType],
-    active: true,
-    priority: Normal,
-  },
-  {cladeId: "my-lang", topics: [TopicBuild, TopicType], active: true, priority: Normal},
-  {
-    cladeId: "boj",
-    topics: [TopicProtocol, TopicDatabase, TopicWorkflow],
-    active: true,
-    priority: Normal,
-  },
-  {
-    cladeId: "ums",
-    topics: [TopicBuild, TopicUI, TopicWorkflow, TopicType],
-    active: true,
-    priority: Normal,
-  },
-  {
-    cladeId: "level-architect",
-    topics: [TopicBuild, TopicUI, TopicType],
-    active: true,
-    priority: Normal,
-  },
-  // ── Game dev testing panels (24 new panels) ──────────────────────────
-  {cladeId: "unit-test-runner", topics: [TopicTesting, TopicBuild], active: true, priority: Normal},
-  {
-    cladeId: "functional-tester",
-    topics: [TopicTesting, TopicBuild],
-    active: true,
-    priority: Normal,
-  },
-  {
-    cladeId: "integration-tester",
-    topics: [TopicTesting, TopicBuild],
-    active: true,
-    priority: Normal,
-  },
-  {
-    cladeId: "regression-tester",
-    topics: [TopicTesting, TopicBuild],
-    active: true,
-    priority: Normal,
-  },
-  {
-    cladeId: "performance-profiler",
-    topics: [TopicTesting, TopicHealth],
-    active: true,
-    priority: Normal,
-  },
-  {cladeId: "soak-tester", topics: [TopicTesting, TopicHealth], active: true, priority: Normal},
-  {cladeId: "stress-tester", topics: [TopicTesting, TopicHealth], active: true, priority: Normal},
-  {cladeId: "fuzz-tester", topics: [TopicTesting, TopicSecurity], active: true, priority: Normal},
-  {cladeId: "compatibility-checker", topics: [TopicTesting], active: true, priority: Background},
-  {
-    cladeId: "accessibility-checker",
-    topics: [TopicTesting, TopicUI],
-    active: true,
-    priority: Background,
-  },
-  {
-    cladeId: "localisation-checker",
-    topics: [TopicTesting, TopicUI],
-    active: true,
-    priority: Background,
-  },
-  {
-    cladeId: "balance-simulator",
-    topics: [TopicSimulation, TopicTesting],
-    active: true,
-    priority: Normal,
-  },
-  {cladeId: "economy-simulator", topics: [TopicSimulation], active: true, priority: Normal},
-  {
-    cladeId: "ai-behaviour-tester",
-    topics: [TopicSimulation, TopicTesting],
-    active: true,
-    priority: Normal,
-  },
-  {cladeId: "world-generator", topics: [TopicSimulation, TopicUI], active: true, priority: Normal},
-  {
-    cladeId: "replay-analyser",
-    topics: [TopicTesting, TopicWorkflow],
-    active: true,
-    priority: Background,
-  },
-  {
-    cladeId: "feedback-collector",
-    topics: [TopicTesting, TopicUI],
-    active: true,
-    priority: Background,
-  },
-  {
-    cladeId: "crash-reporter",
-    topics: [TopicTesting, TopicHealth, TopicSecurity],
-    active: true,
-    priority: Critical,
-  },
-  {cladeId: "network-tester", topics: [TopicTesting, TopicHealth], active: true, priority: Normal},
-  {
-    cladeId: "save-load-tester",
-    topics: [TopicTesting, TopicDatabase],
-    active: true,
-    priority: Normal,
-  },
-  {cladeId: "input-tester", topics: [TopicTesting, TopicUI], active: true, priority: Normal},
-  {cladeId: "audio-tester", topics: [TopicTesting], active: true, priority: Background},
-  {cladeId: "visual-diff-tester", topics: [TopicTesting, TopicUI], active: true, priority: Normal},
-  {cladeId: "memory-profiler", topics: [TopicTesting, TopicHealth], active: true, priority: Normal},
-]
-
-/// Default registry with core subscribers.
-let defaultRegistry: subscriberRegistry = {
-  ...emptyRegistry,
-  subscribers: defaultSubscribers,
-}
-
-/// Register a new subscriber (or reactivate an existing one).
-let subscribe = (
-  reg: subscriberRegistry,
-  cladeId: string,
-  topics: array<eventTopic>,
-): subscriberRegistry => {
-  let exists = reg.subscribers->Array.some(s => s.cladeId == cladeId)
-  let subscribers = if exists {
-    reg.subscribers->Array.map(s =>
-      if s.cladeId == cladeId {
-        {...s, topics, active: true}
-      } else {
-        s
-      }
-    )
-  } else {
-    Array.concat(reg.subscribers, [{cladeId, topics, active: true, priority: Normal}])
-  }
-  {...reg, subscribers}
-}
-
-/// Unsubscribe a clade (deactivate, don't remove — preserves history).
-let unsubscribe = (reg: subscriberRegistry, cladeId: string): subscriberRegistry => {
-  let subscribers = reg.subscribers->Array.map(s =>
-    if s.cladeId == cladeId {
-      {...s, active: false}
-    } else {
-      s
-    }
-  )
-  {...reg, subscribers}
-}
-
-/// Find all active subscribers interested in a given topic.
-let subscribersForTopic = (reg: subscriberRegistry, topic: eventTopic): array<subscriber> =>
-  reg.subscribers->Array.filter(s => s.active && s.topics->Array.some(t => t == topic))
-
-/// Find all active subscribers interested in a given event.
-let subscribersForEvent = (reg: subscriberRegistry, evt: panelEvent): array<subscriber> =>
-  subscribersForTopic(reg, eventTopic(evt))
-
-/// Wrap an event in an envelope and advance the registry counter.
-let wrapEvent = (reg: subscriberRegistry, sourceCladeId: string, evt: panelEvent, nowMs: float): (
-  eventEnvelope,
-  subscriberRegistry,
-) => {
-  let envelope = {
-    eventId: reg.nextEventId,
-    sourceCladeId,
-    topic: eventTopic(evt),
-    event: evt,
-    timestampMs: nowMs,
-  }
-  // Ring buffer: keep only maxRecentEvents.
-  let recent = Array.concat(reg.recentEvents, [envelope])
-  let trimmed = if Array.length(recent) > reg.maxRecentEvents {
-    recent->Array.sliceToEnd(~start=Array.length(recent) - reg.maxRecentEvents)
-  } else {
-    recent
-  }
-  (envelope, {...reg, nextEventId: reg.nextEventId + 1, recentEvents: trimmed})
-}
-
-/// Get recent events filtered by topic.
-let recentByTopic = (reg: subscriberRegistry, topic: eventTopic): array<eventEnvelope> =>
-  reg.recentEvents->Array.filter(e => e.topic == topic)
-
-/// Get recent events from a specific source clade.
-let recentFromClade = (reg: subscriberRegistry, cladeId: string): array<eventEnvelope> =>
-  reg.recentEvents->Array.filter(e => e.sourceCladeId == cladeId)
-
-/// Count active subscribers.
-let activeSubscriberCount = (reg: subscriberRegistry): int =>
-  reg.subscribers->Array.filter(s => s.active)->Array.length
-
-/// Count total events processed.
-let totalEventsProcessed = (reg: subscriberRegistry): int => reg.nextEventId - 1
-
-// ════════════════════════════════════════════════════════════════════════
-// Event Batching — group envelopes by topic for efficient bulk dispatch.
-// ════════════════════════════════════════════════════════════════════════
-
-/// A batch of events grouped by topic for efficient bulk dispatch.
-type eventBatch = {
-  /// The topic shared by all events in this batch.
-  topic: eventTopic,
-  /// The envelopes in dispatch order.
-  envelopes: array<eventEnvelope>,
-}
-
-/// Group an array of envelopes by topic for batched dispatch.
-/// Returns one batch per distinct topic present in the input.
-let batchEvents = (envelopes: array<eventEnvelope>): array<eventBatch> => {
-  let topicGroups: Dict.t<array<eventEnvelope>> = Dict.make()
-  envelopes->Array.forEach(env => {
-    let key = topicLabel(env.topic)
-    let existing = switch Dict.get(topicGroups, key) {
-    | Some(arr) => arr
-    | None => []
-    }
-    Dict.set(topicGroups, key, Array.concat(existing, [env]))
-  })
-  // Convert back to batches — use the topic from the first envelope.
-  Dict.toArray(topicGroups)->Array.filterMap(((_, envs)) => {
-    switch envs[0] {
-    | Some(first) => Some({topic: first.topic, envelopes: envs})
-    | None => None
-    }
-  })
-}
diff --git a/src/core/PanicAttackEngine.affine b/src/core/PanicAttackEngine.affine
new file mode 100644
index 00000000..6bd80c0a
--- /dev/null
+++ b/src/core/PanicAttackEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PanicAttackEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/PanicAttackEngine.res b/src/core/PanicAttackEngine.res
deleted file mode 100644
index 693add91..00000000
--- a/src/core/PanicAttackEngine.res
+++ /dev/null
@@ -1,254 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Panic-Attack Engine — pure functions for single-repo stress testing
-/// and weak point analysis.
-///
-/// Provides severity/category classification, finding filtering and sorting,
-/// summary computation, and SARIF-compatible output helpers. All functions
-/// are side-effect-free; Gossamer commands live in PanicAttackCmd.
-
-open PanicAttackModel
-
-// =========================================================================
-// Default state
-// =========================================================================
-
-/// Initial state for the Panic-Attack panel.
-let defaultState: panicAttackState = init
-
-// =========================================================================
-// Severity helpers
-// =========================================================================
-
-/// Numeric weight for sorting by severity (higher = more severe).
-let severityWeight = (sev: weakPointSeverity): int =>
-  switch sev {
-  | Critical => 5
-  | High => 4
-  | Medium => 3
-  | Low => 2
-  | Info => 1
-  }
-
-/// Human-readable severity label.
-let severityLabel = (sev: weakPointSeverity): string =>
-  switch sev {
-  | Critical => "Critical"
-  | High => "High"
-  | Medium => "Medium"
-  | Low => "Low"
-  | Info => "Info"
-  }
-
-/// CSS colour class for severity badge rendering.
-let severityColourClass = (sev: weakPointSeverity): string =>
-  switch sev {
-  | Critical => "bg-red-600 text-white"
-  | High => "bg-orange-500 text-white"
-  | Medium => "bg-amber-400 text-gray-900"
-  | Low => "bg-blue-400 text-white"
-  | Info => "bg-gray-400 text-white"
-  }
-
-/// All severity levels in descending order.
-let allSeverities: array<weakPointSeverity> = [Critical, High, Medium, Low, Info]
-
-// =========================================================================
-// Category helpers
-// =========================================================================
-
-/// Human-readable category label. Maps all 20 panic-attack categories
-/// plus the escape-hatch OtherCategory variant.
-let categoryLabel = (cat: weakPointCategory): string =>
-  switch cat {
-  | UnsafeCode => "Unsafe Code"
-  | PanicPath => "Panic Path"
-  | CommandInjection => "Command Injection"
-  | UnsafeDeserialization => "Unsafe Deserialization"
-  | DOMInjection => "DOM Injection"
-  | HardcodedSecret => "Hardcoded Secret"
-  | PathTraversal => "Path Traversal"
-  | InsecureProtocol => "Insecure Protocol"
-  | AtomExhaustion => "Atom Exhaustion"
-  | UnsafeFFI => "Unsafe FFI"
-  | ResourceLeak => "Resource Leak"
-  | DeadlockPotential => "Deadlock Potential"
-  | RaceCondition => "Race Condition"
-  | ErrorHandling => "Error Handling"
-  | MemoryManagement => "Memory Management"
-  | TypeUnsafety => "Type Unsafety"
-  | ExceptionHandling => "Exception Handling"
-  | ConcurrencyIssues => "Concurrency Issues"
-  | DeprecatedAPIs => "Deprecated APIs"
-  | MissingValidation => "Missing Validation"
-  | DynamicCodeExecution => "Dynamic Code Execution"
-  | ExcessivePermissions => "Excessive Permissions"
-  | UncheckedError => "Unchecked Error"
-  | OtherCategory(name) => name
-  }
-
-/// Short icon-style label for compact views.
-let categoryIcon = (cat: weakPointCategory): string =>
-  switch cat {
-  | UnsafeCode => "UNSAFE"
-  | PanicPath => "PANIC"
-  | CommandInjection => "CMDINJ"
-  | UnsafeDeserialization => "DESER"
-  | DOMInjection => "DOM"
-  | HardcodedSecret => "SECRET"
-  | PathTraversal => "PATH"
-  | InsecureProtocol => "PROTO"
-  | AtomExhaustion => "ATOM"
-  | UnsafeFFI => "FFI"
-  | ResourceLeak => "LEAK"
-  | DeadlockPotential => "DEAD"
-  | RaceCondition => "RACE"
-  | ErrorHandling => "ERR"
-  | MemoryManagement => "MEM"
-  | TypeUnsafety => "TYPE"
-  | ExceptionHandling => "EXCEPT"
-  | ConcurrencyIssues => "CONC"
-  | DeprecatedAPIs => "DEPR"
-  | MissingValidation => "VALID"
-  | DynamicCodeExecution => "DYNEX"
-  | ExcessivePermissions => "PERMS"
-  | UncheckedError => "UNCHECK"
-  | OtherCategory(_) => "OTHER"
-  }
-
-// =========================================================================
-// Filtering
-// =========================================================================
-
-/// Filter findings by active category tab.
-let filterByCategory = (findings: array<weakPoint>, cat: panicCategory): array<weakPoint> =>
-  switch cat {
-  | AllFindings => findings
-  | BySeverity(sev) => findings->Array.filter(wp => wp.severity == sev)
-  | ByCategory(c) => findings->Array.filter(wp => wp.category == c)
-  }
-
-/// Filter findings by text query across description + file path.
-let filterByText = (findings: array<weakPoint>, query: string): array<weakPoint> =>
-  if query == "" {
-    findings
-  } else {
-    let q = String.toLowerCase(query)
-    findings->Array.filter(wp =>
-      String.includes(String.toLowerCase(wp.description), q) ||
-      String.includes(String.toLowerCase(wp.file), q)
-    )
-  }
-
-/// Composite filter: category + text in one pass.
-let applyFilters = (findings: array<weakPoint>, category: panicCategory, filterText: string): array<
-  weakPoint,
-> => findings->filterByCategory(category)->filterByText(filterText)
-
-// =========================================================================
-// Sorting
-// =========================================================================
-
-/// Sort findings by severity (most severe first), stable within severity.
-let sortBySeverity = (findings: array<weakPoint>): array<weakPoint> => {
-  let sorted = Array.copy(findings)
-  sorted->Array.sort((a, b) => Int.compare(severityWeight(b.severity), severityWeight(a.severity)))
-  sorted
-}
-
-/// Sort findings by file path then line number (for code-review flow).
-let sortByLocation = (findings: array<weakPoint>): array<weakPoint> => {
-  let sorted = Array.copy(findings)
-  sorted->Array.sort((a, b) => {
-    let fileCmp = String.compare(a.file, b.file)
-    if fileCmp != 0.0 {
-      fileCmp
-    } else {
-      let la = a.line->Option.getOr(0)
-      let lb = b.line->Option.getOr(0)
-      Int.compare(la, lb)
-    }
-  })
-  sorted
-}
-
-// =========================================================================
-// Summary computation
-// =========================================================================
-
-/// Build a scan summary from an array of findings.
-let computeSummary = (findings: array<weakPoint>, language: string): scanSummary => {
-  let files = findings->Array.map(wp => wp.file)->Array.filter(f => f != "")
-  let uniqueFiles = files->Array.reduce([], (acc, f) =>
-    if acc->Array.some(x => x == f) {
-      acc
-    } else {
-      Array.concat(acc, [f])
-    }
-  )
-  {
-    totalFindings: Array.length(findings),
-    critical: findings->Array.filter(wp => wp.severity == Critical)->Array.length,
-    high: findings->Array.filter(wp => wp.severity == High)->Array.length,
-    medium: findings->Array.filter(wp => wp.severity == Medium)->Array.length,
-    low: findings->Array.filter(wp => wp.severity == Low)->Array.length,
-    info: findings->Array.filter(wp => wp.severity == Info)->Array.length,
-    filesScanned: Array.length(uniqueFiles),
-    language,
-  }
-}
-
-/// Count findings at a given severity level.
-let countBySeverity = (findings: array<weakPoint>, sev: weakPointSeverity): int =>
-  findings->Array.filter(wp => wp.severity == sev)->Array.length
-
-/// Group findings by category, returning (category, count) pairs sorted
-/// by count descending.
-let groupByCategory = (findings: array<weakPoint>): array<(string, int)> => {
-  let groups: array<(string, int)> = []
-  findings->Array.forEach(wp => {
-    let label = categoryLabel(wp.category)
-    let found = groups->Array.findIndex(((l, _)) => l == label)
-    if found >= 0 {
-      let (l, c) = groups->Array.getUnsafe(found)
-      ignore(groups->Array.splice(~start=found, ~remove=1, ~insert=[(l, c + 1)]))
-    } else {
-      ignore(groups->Array.push((label, 1)))
-    }
-  })
-  groups->Array.sort(((_, a), (_, b)) => Int.compare(b, a))
-  groups
-}
-
-// =========================================================================
-// Report helpers
-// =========================================================================
-
-/// Check whether a report ID exists in the saved reports list.
-let reportExists = (reports: array<scanReport>, id: string): bool =>
-  reports->Array.some(r => r.id == id)
-
-/// Find a report by ID.
-let findReport = (reports: array<scanReport>, id: string): option<scanReport> =>
-  reports->Array.find(r => r.id == id)
-
-/// Format a file:line reference string.
-let locationLabel = (file: string, line: option<int>): string =>
-  switch line {
-  | Some(l) => file ++ ":" ++ Int.toString(l)
-  | None => file
-  }
-
-/// Mode display label.
-let modeLabel = (mode: string): string =>
-  switch mode {
-  | "full" => "Full"
-  | "fallback" => "Fallback"
-  | "unavailable" => "Unavailable"
-  | _ => "Probing..."
-  }
-
-/// Whether the panel is in a scannable state.
-let canScan = (state: panicAttackState): bool =>
-  !state.scanning && state.mode != "unavailable" && state.targetPath != ""
diff --git a/src/core/PanicAttackerCapability.affine b/src/core/PanicAttackerCapability.affine
new file mode 100644
index 00000000..df7fac53
--- /dev/null
+++ b/src/core/PanicAttackerCapability.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PanicAttackerCapability;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/PanicAttackerCapability.res b/src/core/PanicAttackerCapability.res
deleted file mode 100644
index 2a9cde4d..00000000
--- a/src/core/PanicAttackerCapability.res
+++ /dev/null
@@ -1,29 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// panic-attacker capability parsing helpers.
-///
-/// Parses backend capability payload used by Pane-W status indicators.
-
-type payload = {
-  mode: string,
-  binary: option<string>,
-  detail: option<string>,
-}
-
-/// Tea_Json decoder for a panic-attacker capability payload.
-let payloadDecoder: Tea_Json.decoder<payload> = {
-  open Decoders
-  open Tea_Json
-  map3((mode, binary, detail): payload => {
-    mode,
-    binary,
-    detail,
-  }, fieldWithDefault(
-    "mode",
-    string,
-    "unavailable",
-  ), optionalFieldDecoder("binary", string), optionalFieldDecoder("detail", string))
-}
-
-/// Parse a panic-attacker capability payload from JSON.
-let parse = (raw: string): result<payload, string> => Decoders.decode(payloadDecoder, raw)
diff --git a/src/core/PanicAttackerMode.affine b/src/core/PanicAttackerMode.affine
new file mode 100644
index 00000000..e6708cae
--- /dev/null
+++ b/src/core/PanicAttackerMode.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PanicAttackerMode;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/PanicAttackerMode.res b/src/core/PanicAttackerMode.res
deleted file mode 100644
index df28718d..00000000
--- a/src/core/PanicAttackerMode.res
+++ /dev/null
@@ -1,19 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// panic-attacker mode presentation helpers for Pane-W.
-
-let toneClass = (mode: string): string =>
-  switch mode {
-  | "full" => "text-emerald-400"
-  | "fallback" => "text-amber-400"
-  | "unavailable" => "text-red-400"
-  | _ => "text-gray-500"
-  }
-
-let label = (mode: string): string =>
-  switch mode {
-  | "full" => "panic-attacker mode: full panll export"
-  | "fallback" => "panic-attacker mode: fallback conversion"
-  | "unavailable" => "panic-attacker mode: unavailable"
-  | _ => "panic-attacker mode: unknown (probe pending)"
-  }
diff --git a/src/core/PatternDiagEngine.affine b/src/core/PatternDiagEngine.affine
new file mode 100644
index 00000000..81f02917
--- /dev/null
+++ b/src/core/PatternDiagEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PatternDiagEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/PatternDiagEngine.res b/src/core/PatternDiagEngine.res
deleted file mode 100644
index 06d3c365..00000000
--- a/src/core/PatternDiagEngine.res
+++ /dev/null
@@ -1,300 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Code MRI — Pattern Diagnostics Engine (Layer 3)
-///
-/// Pure computation for detecting code evolution patterns and managing
-/// developer gamification. Takes timeline snapshots (Layer 2) and provenance
-/// data (Layer 1) as inputs, produces pattern instances and XP awards.
-///
-/// All functions are pure — no side effects, no Gossamer invocations.
-
-open PatternDiagModel
-
-// ===========================================================================
-// Pattern Detection
-// ===========================================================================
-
-/// Detect hotspot churn: same file appearing in N consecutive fix commits.
-/// Returns pattern instances for files modified in 3+ consecutive snapshots.
-let detectHotspotChurn = (
-  snapshots: array<TimelineEngine.timelineSnapshot>,
-  _threshold: int,
-): array<patternInstance> => {
-  // With fewer than 3 snapshots, no churn detection is meaningful.
-  if Array.length(snapshots) < 3 {
-    []
-  } else {
-    // Placeholder: actual implementation reads commit-level file lists from
-    // VeriSimDB. The engine produces the types; the command layer queries.
-    []
-  }
-}
-
-/// Detect TODO creep: TODO count growing for more than N consecutive snapshots.
-let detectTodoCreep = (
-  snapshots: array<TimelineEngine.timelineSnapshot>,
-  windowSize: int,
-): array<patternInstance> => {
-  let len = Array.length(snapshots)
-  if len < windowSize {
-    []
-  } else {
-    let recent = snapshots->Array.slice(~start=len - windowSize, ~end=len)
-    let isCreeping = recent->Array.reduceWithIndex(true, (acc, snap, i) => {
-      if i == 0 {
-        acc
-      } else {
-        switch recent->Array.get(i - 1) {
-        | Some(prev) => acc && snap.todoCount > prev.todoCount
-        | None => acc
-        }
-      }
-    })
-    if isCreeping {
-      [
-        {
-          id: "todo-creep-" ++ (recent->Array.get(len - 1)->Option.map(s => s.commitHash)->Option.getOr("unknown")),
-          kind: TodoCreep,
-          severity: Warning,
-          description: `TODO count has grown for ${Int.toString(windowSize)} consecutive snapshots`,
-          files: [],
-          detectedAt: recent->Array.get(Array.length(recent) - 1)->Option.map(s => s.timestamp)->Option.getOr(""),
-          commitRange: switch (recent->Array.get(0), recent->Array.get(Array.length(recent) - 1)) {
-          | (Some(first), Some(last)) => Some((first.commitHash, last.commitHash))
-          | _ => None
-          },
-          acknowledged: false,
-        },
-      ]
-    } else {
-      []
-    }
-  }
-}
-
-/// Detect unreviewed AI growth: AI attribution rising without review.
-let detectUnreviewedAiGrowth = (
-  snapshots: array<TimelineEngine.timelineSnapshot>,
-  threshold: float,
-): array<patternInstance> => {
-  let len = Array.length(snapshots)
-  if len < 2 {
-    []
-  } else {
-    switch (snapshots->Array.get(0), snapshots->Array.get(len - 1)) {
-    | (Some(oldest), Some(newest)) =>
-      let growth = newest.aiAttributionPercent -. oldest.aiAttributionPercent
-      if growth > threshold {
-        [
-          {
-            id: "unreviewed-ai-" ++ newest.commitHash,
-            kind: UnreviewedAiGrowth,
-            severity: Advisory,
-            description: `AI attribution grew by ${Float.toFixed(growth, ~digits=1)}% over ${Int.toString(len)} snapshots`,
-            files: [],
-            detectedAt: newest.timestamp,
-            commitRange: Some((oldest.commitHash, newest.commitHash)),
-            acknowledged: false,
-          },
-        ]
-      } else {
-        []
-      }
-    | _ => []
-    }
-  }
-}
-
-/// Detect sustained friction: vexometer above threshold for N snapshots.
-let detectSustainedFriction = (
-  snapshots: array<TimelineEngine.timelineSnapshot>,
-  threshold: float,
-  windowSize: int,
-): array<patternInstance> => {
-  let len = Array.length(snapshots)
-  if len < windowSize {
-    []
-  } else {
-    let recent = snapshots->Array.slice(~start=len - windowSize, ~end=len)
-    let allAbove = recent->Array.every(s => s.vexometerReading > threshold)
-    if allAbove {
-      [
-        {
-          id: "sustained-friction-" ++ Float.toString(Date.now()),
-          kind: SustainedFriction,
-          severity: Warning,
-          description: `Vexometer above ${Float.toFixed(threshold, ~digits=0)} for ${Int.toString(windowSize)} consecutive snapshots`,
-          files: [],
-          detectedAt: recent->Array.get(Array.length(recent) - 1)->Option.map(s => s.timestamp)->Option.getOr(""),
-          commitRange: None,
-          acknowledged: false,
-        },
-      ]
-    } else {
-      []
-    }
-  }
-}
-
-/// Detect positive patterns: TODO reduction, findings reduction, type cleanup.
-let detectPositivePatterns = (
-  snapshots: array<TimelineEngine.timelineSnapshot>,
-): array<patternInstance> => {
-  let len = Array.length(snapshots)
-  if len < 2 {
-    []
-  } else {
-    let results = []
-    switch (snapshots->Array.get(len - 2), snapshots->Array.get(len - 1)) {
-    | (Some(prev), Some(curr)) => {
-        let acc = ref(results)
-        if curr.todoCount < prev.todoCount {
-          acc :=
-            Array.concat(
-              acc.contents,
-              [
-                {
-                  id: "todo-reduction-" ++ curr.commitHash,
-                  kind: TodoReduction,
-                  severity: Celebration,
-                  description: `Closed ${Int.toString(prev.todoCount - curr.todoCount)} TODOs`,
-                  files: [],
-                  detectedAt: curr.timestamp,
-                  commitRange: Some((prev.commitHash, curr.commitHash)),
-                  acknowledged: false,
-                },
-              ],
-            )
-        }
-        if curr.panicAttackFindings < prev.panicAttackFindings {
-          acc :=
-            Array.concat(
-              acc.contents,
-              [
-                {
-                  id: "findings-reduction-" ++ curr.commitHash,
-                  kind: FindingsReduction,
-                  severity: Celebration,
-                  description: `Resolved ${Int.toString(prev.panicAttackFindings - curr.panicAttackFindings)} security findings`,
-                  files: [],
-                  detectedAt: curr.timestamp,
-                  commitRange: Some((prev.commitHash, curr.commitHash)),
-                  acknowledged: false,
-                },
-              ],
-            )
-        }
-        if curr.failedTypeChecks < prev.failedTypeChecks {
-          acc :=
-            Array.concat(
-              acc.contents,
-              [
-                {
-                  id: "typecheck-cleanup-" ++ curr.commitHash,
-                  kind: TypeCheckCleanup,
-                  severity: Celebration,
-                  description: `Fixed ${Int.toString(prev.failedTypeChecks - curr.failedTypeChecks)} type check failures`,
-                  files: [],
-                  detectedAt: curr.timestamp,
-                  commitRange: Some((prev.commitHash, curr.commitHash)),
-                  acknowledged: false,
-                },
-              ],
-            )
-        }
-        acc.contents
-      }
-    | _ => []
-    }
-  }
-}
-
-/// Run all pattern detectors against the timeline and return merged results.
-let analyseTimeline = (
-  snapshots: array<TimelineEngine.timelineSnapshot>,
-): array<patternInstance> => {
-  Array.concat(
-    Array.concat(
-      Array.concat(
-        detectHotspotChurn(snapshots, 3),
-        detectTodoCreep(snapshots, 7),
-      ),
-      Array.concat(
-        detectUnreviewedAiGrowth(snapshots, 10.0),
-        detectSustainedFriction(snapshots, 70.0, 5),
-      ),
-    ),
-    detectPositivePatterns(snapshots),
-  )
-}
-
-// ===========================================================================
-// Gamification
-// ===========================================================================
-
-/// XP awarded per positive pattern type.
-let xpForPattern = (kind: patternKind): int =>
-  switch kind {
-  | ReviewedAiCode => 25
-  | TodoReduction => 15
-  | FindingsReduction => 30
-  | TypeCheckCleanup => 20
-  | _ => 0
-  }
-
-/// XP category for a positive pattern.
-let categoryForPattern = (kind: patternKind): option<xpCategory> =>
-  switch kind {
-  | ReviewedAiCode => Some(CodeReview)
-  | TodoReduction => Some(Housekeeping)
-  | FindingsReduction => Some(Security)
-  | TypeCheckCleanup => Some(TypeSafety)
-  | _ => None
-  }
-
-/// Compute developer level from total XP (logarithmic scaling).
-let levelFromXp = (totalXp: int): int => {
-  if totalXp <= 0 {
-    1
-  } else {
-    let raw = Math.log(Int.toFloat(totalXp) /. 100.0) /. Math.log(1.5)
-    Math.Int.max(1, Float.toInt(raw) + 1)
-  }
-}
-
-/// Award XP for a pattern detection.
-let awardXp = (profile: developerProfile, kind: patternKind): developerProfile => {
-  let amount = xpForPattern(kind)
-  if amount <= 0 {
-    profile
-  } else {
-    let newTotal = profile.totalXp + amount
-    let category = categoryForPattern(kind)
-    let newXp = switch category {
-    | Some(cat) => {
-        let found = ref(false)
-        let updated =
-          profile.xp->Array.map(((c, v)) =>
-            if c === cat {
-              found := true
-              (c, v + amount)
-            } else {
-              (c, v)
-            }
-          )
-        if found.contents {
-          updated
-        } else {
-          Array.concat(updated, [(cat, amount)])
-        }
-      }
-    | None => profile.xp
-    }
-    {
-      ...profile,
-      xp: newXp,
-      totalXp: newTotal,
-      level: levelFromXp(newTotal),
-    }
-  }
-}
diff --git a/src/core/PerformanceProfilerEngine.affine b/src/core/PerformanceProfilerEngine.affine
new file mode 100644
index 00000000..2c5e3806
--- /dev/null
+++ b/src/core/PerformanceProfilerEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PerformanceProfilerEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/PerformanceProfilerEngine.res b/src/core/PerformanceProfilerEngine.res
deleted file mode 100644
index 8f8ac424..00000000
--- a/src/core/PerformanceProfilerEngine.res
+++ /dev/null
@@ -1,169 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Performance Profiler Engine — pure computation and helpers for the
-/// Performance Profiler panel. Provides default state, frame timing statistics,
-/// FPS calculation, memory analysis, GC pressure metrics, and alert management.
-
-open PerformanceProfilerModel
-
-/// Default initial state for the Performance Profiler panel.
-/// Targets 60 FPS with a 16.67ms frame budget and 100ms sample interval.
-let defaultState: performanceProfilerState = {
-  activeTab: TabFrameBudget,
-  frameSamples: [],
-  memorySnapshots: [],
-  gcEvents: [],
-  alerts: [],
-  profiling: false,
-  targetFps: 60.0,
-  frameBudgetMs: 16.67,
-  sampleInterval: 100,
-  thresholds: None,
-  error: None,
-}
-
-/// Human-readable label for each tab in the Performance Profiler panel.
-let tabLabel = (tab: performanceTab): string =>
-  switch tab {
-  | TabFrameBudget => "Frame Budget"
-  | TabMemory => "Memory"
-  | TabGcPressure => "GC Pressure"
-  | TabAlerts => "Alerts"
-  | TabFlamegraph => "Flamegraph"
-  }
-
-/// All tabs in display order.
-let allTabs: array<performanceTab> = [
-  TabFrameBudget,
-  TabMemory,
-  TabGcPressure,
-  TabAlerts,
-  TabFlamegraph,
-]
-
-/// Calculate average frame time across all samples.
-let avgFrameTime = (samples: array<frameSample>): float => {
-  let count = samples->Array.length
-  if count == 0 {
-    0.0
-  } else {
-    let sum = samples->Array.reduce(0.0, (acc, s) => acc +. s.totalMs)
-    sum /. Float.fromInt(count)
-  }
-}
-
-/// Calculate current effective FPS from frame samples.
-let currentFps = (samples: array<frameSample>): float => {
-  let avg = avgFrameTime(samples)
-  if avg <= 0.0 {
-    0.0
-  } else {
-    1000.0 /. avg
-  }
-}
-
-/// Count frames that exceeded the budget.
-let framesOverBudget = (samples: array<frameSample>, budgetMs: float): int =>
-  samples->Array.filter(s => s.totalMs > budgetMs)->Array.length
-
-/// Percentage of frames over budget.
-let overBudgetPercent = (samples: array<frameSample>, budgetMs: float): float => {
-  let total = Array.length(samples)
-  if total == 0 {
-    0.0
-  } else {
-    Float.fromInt(framesOverBudget(samples, budgetMs)) /. Float.fromInt(total) *. 100.0
-  }
-}
-
-/// Maximum frame time observed.
-let maxFrameTime = (samples: array<frameSample>): float =>
-  samples->Array.reduce(0.0, (acc, s) =>
-    if s.totalMs > acc {
-      s.totalMs
-    } else {
-      acc
-    }
-  )
-
-/// Average render time (PixiJS render phase only).
-let avgRenderTime = (samples: array<frameSample>): float => {
-  let count = samples->Array.length
-  if count == 0 {
-    0.0
-  } else {
-    let sum = samples->Array.reduce(0.0, (acc, s) => acc +. s.renderMs)
-    sum /. Float.fromInt(count)
-  }
-}
-
-/// Average update (logic) time.
-let avgUpdateTime = (samples: array<frameSample>): float => {
-  let count = samples->Array.length
-  if count == 0 {
-    0.0
-  } else {
-    let sum = samples->Array.reduce(0.0, (acc, s) => acc +. s.updateMs)
-    sum /. Float.fromInt(count)
-  }
-}
-
-/// Latest memory usage in MB.
-let latestMemoryMb = (snapshots: array<memorySnapshot>): float => {
-  let count = snapshots->Array.length
-  if count == 0 {
-    0.0
-  } else {
-    let latest = snapshots->Array.getUnsafe(count - 1)
-    Float.fromInt(latest.heapUsedBytes) /. 1048576.0
-  }
-}
-
-/// Peak memory usage across all snapshots in MB.
-let peakMemoryMb = (snapshots: array<memorySnapshot>): float =>
-  snapshots->Array.reduce(0.0, (acc, s) => {
-    let mb = Float.fromInt(s.heapUsedBytes) /. 1048576.0
-    if mb > acc {
-      mb
-    } else {
-      acc
-    }
-  })
-
-/// Total GC pause time across all events.
-let totalGcPauseMs = (events: array<gcEvent>): float =>
-  events->Array.reduce(0.0, (acc, e) => acc +. e.pauseMs)
-
-/// Average GC pause duration.
-let avgGcPauseMs = (events: array<gcEvent>): float => {
-  let count = events->Array.length
-  if count == 0 {
-    0.0
-  } else {
-    totalGcPauseMs(events) /. Float.fromInt(count)
-  }
-}
-
-/// Human-readable alert severity label.
-let severityLabel = (s: perfAlertSeverity): string =>
-  switch s {
-  | PerfInfo => "Info"
-  | PerfWarning => "Warning"
-  | PerfCritical => "Critical"
-  }
-
-/// CSS colour class for alert severity.
-let severityColor = (s: perfAlertSeverity): string =>
-  switch s {
-  | PerfInfo => "text-blue-400"
-  | PerfWarning => "text-yellow-400"
-  | PerfCritical => "text-red-400"
-  }
-
-/// Count alerts by severity.
-let alertCount = (alerts: array<perfAlert>, severity: perfAlertSeverity): int =>
-  alerts->Array.filter(a => a.severity == severity)->Array.length
-
-/// Total bytes reclaimed by GC.
-let totalBytesReclaimed = (events: array<gcEvent>): int =>
-  events->Array.reduce(0, (acc, e) => acc + e.reclaimedBytes)
diff --git a/src/core/PlaygroundsEngine.affine b/src/core/PlaygroundsEngine.affine
new file mode 100644
index 00000000..9331531b
--- /dev/null
+++ b/src/core/PlaygroundsEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PlaygroundsEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/PlaygroundsEngine.res b/src/core/PlaygroundsEngine.res
deleted file mode 100644
index 3e644ed4..00000000
--- a/src/core/PlaygroundsEngine.res
+++ /dev/null
@@ -1,125 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Playgrounds Engine — pure computation for the code sandbox.
-
-open PlaygroundsModel
-
-let categoryLabel = (cat: playgroundsCategory): string =>
-  switch cat {
-  | PlayEditor => "Editor"
-  | PlayNqc => "NQC Console"
-  | PlaySnippets => "Snippets"
-  | PlayTutorials => "Tutorials"
-  }
-
-let languageLabel = (lang: playgroundLanguage): string =>
-  switch lang {
-  | LangVcl => "VCL"
-  | LangKql => "KQL"
-  | LangGql => "GQL"
-  | LangRescript => "ReScript"
-  | LangGleam => "Gleam"
-  | LangIdris2 => "Idris2"
-  | LangNickel => "Nickel"
-  }
-
-/// File extension for syntax highlighting hints.
-let languageExt = (lang: playgroundLanguage): string =>
-  switch lang {
-  | LangVcl => ".vcl"
-  | LangKql => ".kql"
-  | LangGql => ".gql"
-  | LangRescript => ".res"
-  | LangGleam => ".gleam"
-  | LangIdris2 => ".idr"
-  | LangNickel => ".ncl"
-  }
-
-/// Whether this language connects to the NQC proxy.
-let isDbLanguage = (lang: playgroundLanguage): bool =>
-  switch lang {
-  | LangVcl | LangKql | LangGql => true
-  | _ => false
-  }
-
-/// Built-in tutorial snippets.
-let defaultSnippets: array<snippet> = [
-  {
-    id: "vcl-hello",
-    title: "VCL: Hello VeriSimDB",
-    code: "SELECT * FROM octads LIMIT 10;",
-    language: LangVcl,
-    isTutorial: true,
-  },
-  {
-    id: "kql-hello",
-    title: "KQL: Hello QuandleDB",
-    code: "MATCH (q:Quandle) RETURN q LIMIT 10;",
-    language: LangKql,
-    isTutorial: true,
-  },
-  {
-    id: "gql-hello",
-    title: "GQL: Hello LithoGlyph",
-    code: "{ lithoglyphs(limit: 10) { id, glyph, provenance } }",
-    language: LangGql,
-    isTutorial: true,
-  },
-]
-
-let defaultState: playgroundsState = {
-  activeCategory: PlayEditor,
-  activeLanguage: LangVcl,
-  editorContent: "",
-  lastResult: None,
-  executing: false,
-  error: None,
-  snippets: defaultSnippets,
-  nqcConnected: false,
-  nqcInput: "",
-  nqcLanguage: LangVcl,
-  nqcHistory: [],
-}
-
-/// Wrap user code in a safe execution harness for Deno eval.
-/// The harness captures stdout, prevents infinite loops (5s timeout),
-/// and returns a JSON result envelope.
-let wrapForExecution = (code: string, language: playgroundLanguage): string => {
-  let prefix = switch language {
-  | LangVcl => "// VeriSimDB VCL query\n"
-  | LangKql => "// Knowledge Query Language\n"
-  | LangGql => "// Graph Query Language\n"
-  | LangRescript => "// ReScript (compiled to JS)\n"
-  | LangGleam => "// Gleam (compiled to JS)\n"
-  | LangIdris2 => "// Idris2 (interpreted)\n"
-  | LangNickel => "// Nickel configuration\n"
-  }
-  prefix ++ code
-}
-
-/// Validate code before execution — basic syntax checks.
-/// Returns None if valid, Some(errorMessage) if invalid.
-let preflightCheck = (code: string, _language: playgroundLanguage): option<string> => {
-  if String.trim(code) === "" {
-    Some("Empty code — nothing to execute")
-  } else if String.length(code) > 50000 {
-    Some("Code exceeds 50,000 character limit")
-  } else if String.includes(code, "while(true)") || String.includes(code, "for(;;)") {
-    Some("Potential infinite loop detected — wrap in a bounded loop")
-  } else {
-    None
-  }
-}
-
-/// Format an execution result for display in the output panel.
-let formatOutput = (result: string, elapsedMs: float): string => {
-  result ++ "\n\n--- executed in " ++ Float.toFixed(elapsedMs, ~digits=1) ++ "ms ---"
-}
-
-/// Determine if a language needs the NQC database proxy for execution.
-let needsNqcProxy = (language: playgroundLanguage): bool => {
-  switch language {
-  | LangVcl | LangKql | LangGql => true
-  | _ => false
-  }
-}
diff --git a/src/core/PlaytestRecorderEngine.affine b/src/core/PlaytestRecorderEngine.affine
new file mode 100644
index 00000000..a52cae30
--- /dev/null
+++ b/src/core/PlaytestRecorderEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PlaytestRecorderEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/PlaytestRecorderEngine.res b/src/core/PlaytestRecorderEngine.res
deleted file mode 100644
index 03c66a69..00000000
--- a/src/core/PlaytestRecorderEngine.res
+++ /dev/null
@@ -1,63 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Playtest Recorder Engine — pure computation and helpers for
-/// recording, replaying, and annotating gameplay sessions.
-///
-/// Provides default state, tab labels, and utility functions for formatting
-/// duration, counting annotations, and computing playback progress.
-
-open PlaytestRecorderModel
-
-/// Default state for the Playtest Recorder panel.
-let defaultState: playtestRecorderState = {
-  activeTab: Record,
-  currentSession: None,
-  sessions: [],
-  playback: Stopped,
-  annotations: [],
-  selectedAnnotation: None,
-  error: None,
-}
-
-/// Human-readable label for a playtest recorder category tab.
-let tabLabel = (cat: playtestRecorderCategory): string =>
-  switch cat {
-  | Record => "Record"
-  | Replay => "Replay"
-  | Annotations => "Annotations"
-  | Sessions => "Sessions"
-  }
-
-/// All category tabs in display order.
-let allTabs: array<playtestRecorderCategory> = [Record, Replay, Annotations, Sessions]
-
-/// Format a duration in milliseconds as "Xm Ys" or "Xh Ym Zs".
-let formatDuration = (ms: float): string => {
-  let totalSeconds = ms /. 1000.0
-  let hours = Math.floor(totalSeconds /. 3600.0)
-  let minutes = Math.floor(mod(totalSeconds, 3600.0) /. 60.0)
-  let seconds = Math.floor(mod(totalSeconds, 60.0))
-  if hours > 0.0 {
-    `${Float.toInt(hours)->Int.toString}h ${Float.toInt(minutes)->Int.toString}m ${Float.toInt(
-        seconds,
-      )->Int.toString}s`
-  } else {
-    `${Float.toInt(minutes)->Int.toString}m ${Float.toInt(seconds)->Int.toString}s`
-  }
-}
-
-/// Count total annotations in the current state.
-let countAnnotations = (annotations: array<annotation>): int => annotations->Array.length
-
-/// Compute playback progress as a percentage (0.0–100.0).
-/// Returns 0.0 if no session is loaded or playback is stopped/recording.
-let playbackProgressPercent = (playback: playbackState, session: option<recordedSession>): float =>
-  switch (playback, session) {
-  | (Playing(t), Some(s)) | (Paused(t), Some(s)) =>
-    if s.durationMs > 0.0 {
-      t *. 1000.0 /. s.durationMs *. 100.0
-    } else {
-      0.0
-    }
-  | _ => 0.0
-  }
diff --git a/src/core/PlazaEngine.affine b/src/core/PlazaEngine.affine
new file mode 100644
index 00000000..84ce5d4e
--- /dev/null
+++ b/src/core/PlazaEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PlazaEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/PlazaEngine.res b/src/core/PlazaEngine.res
deleted file mode 100644
index 9cd24651..00000000
--- a/src/core/PlazaEngine.res
+++ /dev/null
@@ -1,139 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Palimpsest Plaza Engine — pure computation for the PMPL licensing panel.
-///
-/// All functions are pure. Handles parsing of scan results, adoption stats,
-/// compatibility results, and provides display helpers for the view layer.
-
-open PlazaModel
-
-/// Human-readable label for a compliance level.
-let complianceLevelLabel = (level: complianceLevel): string => {
-  switch level {
-  | FullCompliance => "Full Compliance"
-  | PartialCompliance => "Partial"
-  | NonCompliant => "Non-Compliant"
-  | Unknown => "Not Scanned"
-  }
-}
-
-/// CSS colour class for a compliance level.
-let complianceLevelColour = (level: complianceLevel): string => {
-  switch level {
-  | FullCompliance => "text-emerald-400"
-  | PartialCompliance => "text-amber-400"
-  | NonCompliant => "text-red-400"
-  | Unknown => "text-gray-500"
-  }
-}
-
-/// Background colour class for a compliance badge.
-let complianceLevelBg = (level: complianceLevel): string => {
-  switch level {
-  | FullCompliance => "bg-emerald-900/50 border-emerald-700"
-  | PartialCompliance => "bg-amber-900/50 border-amber-700"
-  | NonCompliant => "bg-red-900/50 border-red-700"
-  | Unknown => "bg-gray-800/50 border-gray-700"
-  }
-}
-
-/// Human-readable label for a category tab.
-let categoryLabel = (cat: plazaCategory): string => {
-  switch cat {
-  | Dashboard => "Dashboard"
-  | Compliance => "Compliance"
-  | Provenance => "Provenance"
-  | Compatibility => "Compatibility"
-  | EthicalUse => "Ethical Use"
-  | Governance => "Governance"
-  | Adopt => "Adopt PMPL"
-  }
-}
-
-/// All category tabs in display order.
-let allCategories: array<plazaCategory> = [
-  Dashboard,
-  Compliance,
-  Provenance,
-  Compatibility,
-  EthicalUse,
-  Governance,
-  Adopt,
-]
-
-/// Human-readable label for a signature status.
-let signatureStatusLabel = (status: signatureStatus): string => {
-  switch status {
-  | SignatureValid => "Valid"
-  | SignatureInvalid(reason) => `Invalid: ${reason}`
-  | NoSignature => "None"
-  | ClassicalOnly => "Classical (upgrade recommended)"
-  }
-}
-
-/// Known licenses for the compatibility checker dropdown.
-let commonLicenses: array<string> = [
-  "MIT",
-  "Apache-2.0",
-  "GPL-2.0",
-  "GPL-3.0",
-  "LGPL-2.1",
-  "LGPL-3.0",
-  "AGPL-3.0",
-  "BSD-2-Clause",
-  "BSD-3-Clause",
-  "MPL-2.0",
-  "ISC",
-  "CC0-1.0",
-  "Unlicense",
-]
-
-/// Tea_Json decoder for adoption stats.
-let adoptionStatsDecoder: Tea_Json.decoder<adoptionStats> = {
-  open Decoders
-  map6(
-    (
-      totalRepos,
-      pmplRepos,
-      mplFallbackRepos,
-      unlicensedRepos,
-      quantumSignedRepos,
-      byLicense,
-    ): adoptionStats => {
-      totalRepos,
-      pmplRepos,
-      mplFallbackRepos,
-      unlicensedRepos,
-      quantumSignedRepos,
-      byLicense,
-    },
-    intField("total_repos"),
-    intField("pmpl_repos"),
-    intField("mpl_fallback_repos"),
-    intField("unlicensed_repos"),
-    intField("quantum_signed_repos"),
-    fieldWithDefault("by_license", intDict, []),
-  )
-}
-
-/// Parse adoption stats from JSON response.
-let parseAdoptionStats = (jsonStr: string): result<adoptionStats, string> =>
-  Decoders.decode(adoptionStatsDecoder, jsonStr)
-
-/// Compute the PMPL adoption percentage.
-let adoptionPercentage = (stats: adoptionStats): float => {
-  if stats.totalRepos === 0 {
-    0.0
-  } else {
-    Int.toFloat(stats.pmplRepos) /. Int.toFloat(stats.totalRepos) *. 100.0
-  }
-}
-
-/// Compute the overall compliance percentage (PMPL + MPL fallback).
-let licensedPercentage = (stats: adoptionStats): float => {
-  if stats.totalRepos === 0 {
-    0.0
-  } else {
-    Int.toFloat(stats.totalRepos - stats.unlicensedRepos) /. Int.toFloat(stats.totalRepos) *. 100.0
-  }
-}
diff --git a/src/core/ProofsBridgeEngine.affine b/src/core/ProofsBridgeEngine.affine
new file mode 100644
index 00000000..8be8144f
--- /dev/null
+++ b/src/core/ProofsBridgeEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ProofsBridgeEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/ProofsBridgeEngine.res b/src/core/ProofsBridgeEngine.res
deleted file mode 100644
index b2397f82..00000000
--- a/src/core/ProofsBridgeEngine.res
+++ /dev/null
@@ -1,88 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Proofs Bridge Engine — pure computation and helpers for the
-/// Proofs Bridge panel. Provides default state, tab metadata, proof coverage
-/// computation, module verification counting, and pending proof tracking.
-
-open ProofsBridgeModel
-
-/// Default state for the Proofs Bridge panel.
-/// Starts on the Modules tab with empty module and result lists.
-let defaultState: proofsBridgeState = {
-  activeTab: Modules,
-  provenModules: [],
-  verificationResults: [],
-  coveragePercent: 0.0,
-  verifying: false,
-  error: None,
-}
-
-/// Human-readable label for each tab in the Proofs Bridge panel.
-let tabLabel = (tab: proofsBridgeTab): string =>
-  switch tab {
-  | Modules => "Modules"
-  | Proofs => "Proofs"
-  | Coverage => "Coverage"
-  | Verification => "Verification"
-  }
-
-/// All tabs in display order.
-let allTabs: array<proofsBridgeTab> = [Modules, Proofs, Coverage, Verification]
-
-/// Compute the overall proof coverage percentage across all modules (0.0 to 100.0).
-/// This is the ratio of proved functions to total functions across all modules.
-/// Returns 100.0 when there are no functions to verify.
-let overallProofCoverage = (modules: array<provenModule>): float => {
-  let totalFunctions = modules->Array.reduce(0, (acc, m) => acc + m.functionCount)
-  if totalFunctions === 0 {
-    100.0
-  } else {
-    let totalProved = modules->Array.reduce(0, (acc, m) => acc + m.provedCount)
-    Int.toFloat(totalProved) /. Int.toFloat(totalFunctions) *. 100.0
-  }
-}
-
-/// Count modules that are fully verified (all functions proved).
-let countVerifiedModules = (modules: array<provenModule>): int =>
-  modules->Array.filter(m => m.status === FullyProven)->Array.length
-
-/// Count modules that still have pending (unverified or stale) proofs.
-let countPendingModules = (modules: array<provenModule>): int =>
-  modules
-  ->Array.filter(m =>
-    switch m.status {
-    | Unverified | Stale | PartiallyProven => true
-    | FullyProven => false
-    }
-  )
-  ->Array.length
-
-/// Count modules matching a given verification status.
-let countModulesByStatus = (modules: array<provenModule>, status: moduleVerificationStatus): int =>
-  modules->Array.filter(m => m.status === status)->Array.length
-
-/// Human-readable label for a module verification status.
-let verificationStatusLabel = (status: moduleVerificationStatus): string =>
-  switch status {
-  | FullyProven => "Fully Proven"
-  | PartiallyProven => "Partially Proven"
-  | Unverified => "Unverified"
-  | Stale => "Stale"
-  }
-
-/// Human-readable label for a verification result kind.
-let resultKindLabel = (kind: verificationResultKind): string =>
-  switch kind {
-  | VerificationProved => "Proved"
-  | VerificationCounterexample => "Counterexample"
-  | VerificationTimeout => "Timeout"
-  | VerificationError => "Error"
-  }
-
-/// Count verification results by outcome kind.
-let countResultsByKind = (results: array<verificationResult>, kind: verificationResultKind): int =>
-  results->Array.filter(r => r.kind === kind)->Array.length
-
-/// Count the total number of functions across all modules that lack proofs.
-let countUnprovedFunctions = (modules: array<provenModule>): int =>
-  modules->Array.reduce(0, (acc, m) => acc + (m.functionCount - m.provedCount))
diff --git a/src/core/ProtocolBridgeEngine.affine b/src/core/ProtocolBridgeEngine.affine
new file mode 100644
index 00000000..9a528d1a
--- /dev/null
+++ b/src/core/ProtocolBridgeEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ProtocolBridgeEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/ProtocolBridgeEngine.res b/src/core/ProtocolBridgeEngine.res
deleted file mode 100644
index 644a5cc2..00000000
--- a/src/core/ProtocolBridgeEngine.res
+++ /dev/null
@@ -1,95 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Protocol Bridge Engine — pure computation and helpers for the
-/// Protocol Bridge panel. Provides default state, tab metadata, channel
-/// counting, latency aggregation, and protocol rule formatting.
-
-open ProtocolBridgeModel
-
-/// Default state for the Protocol Bridge panel.
-/// Starts on the Channels tab with empty channel, message, and rule lists.
-let defaultState: protocolBridgeState = {
-  activeTab: Channels,
-  channels: [],
-  messageLog: [],
-  latencySamples: [],
-  protocolRules: [],
-  connected: false,
-  error: None,
-}
-
-/// Human-readable label for each tab in the Protocol Bridge panel.
-let tabLabel = (tab: protocolBridgeTab): string =>
-  switch tab {
-  | Channels => "Channels"
-  | Messages => "Messages"
-  | Latency => "Latency"
-  | Rules => "Rules"
-  }
-
-/// All tabs in display order.
-let allTabs: array<protocolBridgeTab> = [Channels, Messages, Latency, Rules]
-
-/// Count channels that are currently connected (Active, Idle, or Degraded).
-let countConnectedChannels = (channels: array<channel>): int =>
-  channels
-  ->Array.filter(ch =>
-    switch ch.status {
-    | ChannelActive | ChannelIdle | ChannelDegraded => true
-    | ChannelDisconnected | ChannelError => false
-    }
-  )
-  ->Array.length
-
-/// Count channels matching a given status.
-let countChannelsByStatus = (channels: array<channel>, status: channelStatus): int =>
-  channels->Array.filter(ch => ch.status === status)->Array.length
-
-/// Human-readable label for a channel status.
-let channelStatusLabel = (status: channelStatus): string =>
-  switch status {
-  | ChannelActive => "Active"
-  | ChannelIdle => "Idle"
-  | ChannelDegraded => "Degraded"
-  | ChannelDisconnected => "Disconnected"
-  | ChannelError => "Error"
-  }
-
-/// Compute the average latency across all channels (in milliseconds).
-/// Returns 0.0 when there are no channels.
-let averageLatency = (channels: array<channel>): float => {
-  let count = Array.length(channels)
-  if count === 0 {
-    0.0
-  } else {
-    let total = channels->Array.reduce(0.0, (acc, ch) => acc +. ch.latencyMs)
-    total /. Int.toFloat(count)
-  }
-}
-
-/// Compute the average latency from recorded samples (in milliseconds).
-/// Returns 0.0 when there are no samples.
-let averageSampleLatency = (samples: array<protocolLatencySample>): float => {
-  let count = Array.length(samples)
-  if count === 0 {
-    0.0
-  } else {
-    let total = samples->Array.reduce(0.0, (acc, s) => acc +. s.latencyMs)
-    total /. Int.toFloat(count)
-  }
-}
-
-/// Count latency samples that exceeded the acceptable threshold.
-let countExceededThreshold = (samples: array<protocolLatencySample>): int =>
-  samples->Array.filter(s => s.exceededThreshold)->Array.length
-
-/// Format a protocol rule as a human-readable summary string.
-/// Includes the rule name, status indicator, and expression.
-let formatProtocolRule = (rule: protocolRule): string => {
-  let statusTag = switch rule.status {
-  | RuleVerified => "[Verified]"
-  | RuleUnverified => "[Unverified]"
-  | RuleViolated => "[Violated]"
-  }
-  `${statusTag} ${rule.name}: ${rule.expression}`
-}
diff --git a/src/core/ProtocolSquisherEngine.affine b/src/core/ProtocolSquisherEngine.affine
new file mode 100644
index 00000000..2ad1a752
--- /dev/null
+++ b/src/core/ProtocolSquisherEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ProtocolSquisherEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/ProtocolSquisherEngine.res b/src/core/ProtocolSquisherEngine.res
deleted file mode 100644
index e6421909..00000000
--- a/src/core/ProtocolSquisherEngine.res
+++ /dev/null
@@ -1,242 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Protocol-Squisher Engine — pure computation for format analysis.
-///
-/// Provides labels, colours, parsing, and display helpers for the view layer.
-/// No side effects — all Gossamer/CLI interaction is in ProtocolSquisherCmd.
-
-open ProtocolSquisherModel
-
-/// Human-readable label for a schema format.
-let formatLabel = (fmt: schemaFormat): string =>
-  switch fmt {
-  | Protobuf => "Protobuf"
-  | Avro => "Avro"
-  | FlatBuffers => "FlatBuffers"
-  | CapnProto => "Cap'n Proto"
-  | Thrift => "Thrift"
-  | MessagePack => "MessagePack"
-  | Bebop => "Bebop"
-  | JsonSchema => "JSON Schema"
-  | GraphQL => "GraphQL"
-  | Toml => "TOML"
-  | RustFormat => "Rust"
-  | ReScriptFormat => "ReScript"
-  | PythonFormat => "Python"
-  | XMI => "XMI (OMG)"
-  | ArchiMateExchange => "ArchiMate Exchange"
-  | BPMN_XML => "BPMN 2.0 XML"
-  | SBVR => "SBVR"
-  }
-
-/// All supported formats.
-let allFormats: array<schemaFormat> = [
-  Protobuf,
-  Avro,
-  FlatBuffers,
-  CapnProto,
-  Thrift,
-  MessagePack,
-  Bebop,
-  JsonSchema,
-  GraphQL,
-  Toml,
-  RustFormat,
-  ReScriptFormat,
-  PythonFormat,
-  XMI,
-  ArchiMateExchange,
-  BPMN_XML,
-  SBVR,
-]
-
-/// Human-readable label for a transport class.
-let transportClassLabel = (tc: transportClass): string =>
-  switch tc {
-  | Concorde => "Concorde"
-  | Business => "Business"
-  | Economy => "Economy"
-  | Wheelbarrow => "Wheelbarrow"
-  }
-
-/// Tailwind colour class for a transport class badge.
-let transportClassColour = (tc: transportClass): string =>
-  switch tc {
-  | Concorde => "text-emerald-400 bg-emerald-900/30"
-  | Business => "text-blue-400 bg-blue-900/30"
-  | Economy => "text-amber-400 bg-amber-900/30"
-  | Wheelbarrow => "text-red-400 bg-red-900/30"
-  }
-
-/// Category tab label.
-let categoryLabel = (cat: protocolSquisherCategory): string =>
-  switch cat {
-  | PsAnalyse => "Analyse"
-  | PsCompare => "Compare"
-  | PsResults => "Results"
-  | PsGuide => "Guide"
-  }
-
-/// All category tabs.
-let allCategories: array<protocolSquisherCategory> = [PsAnalyse, PsCompare, PsResults, PsGuide]
-
-/// Parse a format string from CLI output.
-let parseFormat = (s: string): schemaFormat =>
-  switch String.toLowerCase(s) {
-  | "protobuf" | "proto" => Protobuf
-  | "avro" => Avro
-  | "flatbuffers" | "flatbuf" => FlatBuffers
-  | "capnproto" | "capnp" => CapnProto
-  | "thrift" => Thrift
-  | "messagepack" | "msgpack" => MessagePack
-  | "bebop" => Bebop
-  | "jsonschema" | "json-schema" | "json_schema" => JsonSchema
-  | "graphql" | "gql" => GraphQL
-  | "toml" => Toml
-  | "rust" => RustFormat
-  | "rescript" => ReScriptFormat
-  | "python" => PythonFormat
-  | "xmi" | "xml-metadata-interchange" => XMI
-  | "archimate" | "archimate-exchange" => ArchiMateExchange
-  | "bpmn" | "bpmn-xml" | "bpmn2" => BPMN_XML
-  | "sbvr" => SBVR
-  | _ => JsonSchema
-  }
-
-/// Parse a transport class string from CLI output.
-let parseTransportClass = (s: string): transportClass =>
-  switch String.toLowerCase(s) {
-  | "concorde" => Concorde
-  | "business" => Business
-  | "economy" => Economy
-  | "wheelbarrow" => Wheelbarrow
-  | _ => Economy
-  }
-
-/// Tea_Json decoder for an analysis result.
-let analysisDecoder: Tea_Json.decoder<analysisResult> = {
-  open Decoders
-  map7(
-    (
-      filePath,
-      formatStr,
-      transportStr,
-      summary,
-      overheadRatio,
-      fieldCount,
-      hasRecursion,
-    ): analysisResult => {
-      filePath,
-      format: parseFormat(formatStr),
-      transportClass: parseTransportClass(transportStr),
-      summary,
-      overheadRatio,
-      fieldCount,
-      hasRecursion,
-    },
-    stringField("file_path"),
-    stringField("format"),
-    stringField("transport_class"),
-    stringField("summary"),
-    floatField("overhead_ratio"),
-    intField("field_count"),
-    boolField("has_recursion"),
-  )
-}
-
-/// Parse an analysis result from JSON.
-let parseAnalysis = (json: string): result<analysisResult, string> =>
-  Decoders.decode(analysisDecoder, json)
-
-/// Tea_Json decoder for a schema compatibility comparison result.
-let comparisonDecoder: Tea_Json.decoder<schemaCompatibilityResult> = {
-  open Decoders
-  map7(
-    (
-      leftPath,
-      rightPath,
-      leftFmt,
-      rightFmt,
-      compatible,
-      adapterCost,
-      notes,
-    ): schemaCompatibilityResult => {
-      leftPath,
-      rightPath,
-      leftFormat: parseFormat(leftFmt),
-      rightFormat: parseFormat(rightFmt),
-      compatible,
-      adapterCost,
-      notes,
-    },
-    stringField("left_path"),
-    stringField("right_path"),
-    stringField("left_format"),
-    stringField("right_format"),
-    boolField("compatible"),
-    intField("adapter_cost"),
-    stringField("notes"),
-  )
-}
-
-/// Parse a schema compatibility comparison result from JSON.
-let parseComparison = (json: string): result<schemaCompatibilityResult, string> =>
-  Decoders.decode(comparisonDecoder, json)
-
-/// Extract IR constraints from an analysis result for Panel-L import.
-/// Generates constraint expressions based on schema structure properties.
-let extractIrConstraints = (result: analysisResult): array<string> => {
-  let constraints = []
-  // Transport class constraint.
-  let classLabel = transportClassLabel(result.transportClass)
-  let constraints = Array.concat(
-    constraints,
-    [`transport_class(${result.filePath}) = ${classLabel}`],
-  )
-  // Overhead ratio constraint.
-  let constraints = if result.overheadRatio > 1.5 {
-    Array.concat(
-      constraints,
-      [
-        `overhead_bound(${result.filePath}) <= 1.5 // current: ${Float.toString(
-            result.overheadRatio,
-          )}`,
-      ],
-    )
-  } else {
-    constraints
-  }
-  // Recursion constraint.
-  let constraints = if result.hasRecursion {
-    Array.concat(constraints, [`recursion_depth(${result.filePath}) is bounded`])
-  } else {
-    constraints
-  }
-  // Field count constraint.
-  let constraints = if result.fieldCount > 50 {
-    Array.concat(
-      constraints,
-      [`field_count(${result.filePath}) <= 50 // current: ${Int.toString(result.fieldCount)}`],
-    )
-  } else {
-    constraints
-  }
-  constraints
-}
-
-/// Default initial state.
-let defaultState: protocolSquisherState = {
-  cliAvailable: false,
-  loading: false,
-  error: None,
-  activeCategory: PsAnalyse,
-  analyseInput: "",
-  compareLeftInput: "",
-  compareRightInput: "",
-  lastAnalysis: None,
-  lastComparison: None,
-  analysisHistory: [],
-  lastTypeCheck: None,
-  irConstraints: [],
-  transportDisplayActive: false,
-}
diff --git a/src/core/ProvenAdoptionEngine.affine b/src/core/ProvenAdoptionEngine.affine
new file mode 100644
index 00000000..3dbac6e9
--- /dev/null
+++ b/src/core/ProvenAdoptionEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ProvenAdoptionEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/ProvenAdoptionEngine.res b/src/core/ProvenAdoptionEngine.res
deleted file mode 100644
index 90e68343..00000000
--- a/src/core/ProvenAdoptionEngine.res
+++ /dev/null
@@ -1,37 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Proven Adoption Engine — pure helpers for proven library tracking.
-
-open ProvenAdoptionModel
-
-/// Default initial state.
-let defaultState: provenAdoptionState = {
-  activeTab: TabRepoList,
-  repos: [],
-  selectedRepo: None,
-  scanning: false,
-  error: None,
-  filterText: "",
-}
-
-/// Tab label for display.
-let tabLabel = (tab: provenAdoptionTab): string => {
-  switch tab {
-  | TabRepoList => "Repos"
-  | TabModuleMatrix => "Module Matrix"
-  | TabGaps => "Gaps"
-  }
-}
-
-/// All tabs for rendering.
-let allTabs: array<provenAdoptionTab> = [TabRepoList, TabModuleMatrix, TabGaps]
-
-/// Count repos that have adopted proven.
-let adoptedCount = (repos: array<repoProvenSummary>): int => {
-  repos->Array.filter(r => r.dependencyDeclared)->Array.length
-}
-
-/// Count repos with full binding status.
-let fullyBoundCount = (repos: array<repoProvenSummary>): int => {
-  repos->Array.filter(r => r.bindingStatus == Adopted)->Array.length
-}
diff --git a/src/core/ProvenanceEngine.affine b/src/core/ProvenanceEngine.affine
new file mode 100644
index 00000000..3f4fbc13
--- /dev/null
+++ b/src/core/ProvenanceEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ProvenanceEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/ProvenanceEngine.res b/src/core/ProvenanceEngine.res
deleted file mode 100644
index 2e95b3eb..00000000
--- a/src/core/ProvenanceEngine.res
+++ /dev/null
@@ -1,560 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL ProvenanceEngine — Pure computation for the Code Provenance Map.
-///
-/// Derives trust levels from git blame data, computes summaries, manages
-/// the accessibility palette colour mappings, and determines when hostile
-/// UX should activate. All functions are pure — no side effects.
-///
-/// DESIGN NOTE: The trust colour mapping below covers 4 palettes × 5 trust
-/// levels = 20 colour combinations, all expressed as a pure function from
-/// `(trustLevel, accessibilityPalette) => (bgClass, textClass, borderClass)`.
-/// In a dynamically typed language, this would be a nested dictionary lookup
-/// with runtime KeyError risk. Here, the compiler proves exhaustiveness: every
-/// palette/level combination has a defined mapping, and adding a new trust level
-/// forces you to define its colours for ALL four palettes before the code
-/// compiles. This matters because accessibility palette bugs are invisible to
-/// most developers — they only surface for users who need them most.
-
-open ProvenanceModel
-
-/// Derive the trust level for a blame region based on author and co-author data.
-///
-/// Rules (in priority order):
-///   1. If the commit has proof metadata (verified flag), trust = Verified
-///   2. If no co-author and author is human, trust = HumanReviewed
-///   3. If co-authored (human + AI) with subsequent human commit, trust = HumanReviewed
-///   4. If co-authored (human + AI) without subsequent review, trust = AiAssisted
-///   5. If author matches known AI patterns and no human in chain, trust = UnreviewedAi
-///   6. Otherwise, trust = Unknown
-let deriveTrustLevel = (
-  author: string,
-  coAuthored: bool,
-  coAuthor: option<string>,
-  hasSubsequentHumanCommit: bool,
-): trustLevel => {
-  // Known AI co-author patterns (Claude, Copilot, etc.)
-  let isAiCoAuthor = switch coAuthor {
-  | Some(name) =>
-    String.includes(name, "Claude") ||
-    String.includes(name, "Copilot") ||
-    String.includes(name, "noreply@anthropic.com") ||
-    String.includes(name, "noreply@github.com") ||
-    String.includes(name, "GPT") ||
-    String.includes(name, "Gemini")
-  | None => false
-  }
-
-  // Known AI-only author patterns (bot accounts).
-  let isAiAuthor =
-    String.includes(author, "bot") ||
-    String.includes(author, "Bot") ||
-    String.includes(author, "copilot") ||
-    String.includes(author, "dependabot") ||
-    author === "test@example.com" ||
-    author === "you@example.com"
-
-  if coAuthored && isAiCoAuthor {
-    if hasSubsequentHumanCommit {
-      HumanReviewed
-    } else {
-      AiAssisted
-    }
-  } else if isAiAuthor {
-    UnreviewedAi
-  } else if author !== "" {
-    HumanReviewed
-  } else {
-    Unknown
-  }
-}
-
-/// Compute summary statistics from an array of provenance regions.
-let computeSummary = (regions: array<provenanceRegion>): provenanceSummary => {
-  let totalLines = regions->Array.reduce(0, (acc, r) => acc + (r.endLine - r.startLine + 1))
-  let countLines = (level: trustLevel) =>
-    regions
-    ->Array.filter(r => r.trustLevel === level)
-    ->Array.reduce(0, (acc, r) => acc + (r.endLine - r.startLine + 1))
-
-  let authors =
-    regions
-    ->Array.map(r => r.author)
-    ->Array.reduce([], (acc, a) =>
-      if acc->Array.some(x => x === a) {
-        acc
-      } else {
-        Array.concat(acc, [a])
-      }
-    )
-
-  let coAuthors =
-    regions
-    ->Array.filterMap(r => r.coAuthor)
-    ->Array.reduce([], (acc, a) =>
-      if acc->Array.some(x => x === a) {
-        acc
-      } else {
-        Array.concat(acc, [a])
-      }
-    )
-
-  {
-    totalLines,
-    verifiedLines: countLines(Verified),
-    humanReviewedLines: countLines(HumanReviewed),
-    aiAssistedLines: countLines(AiAssisted),
-    unreviewedAiLines: countLines(UnreviewedAi),
-    unknownLines: countLines(Unknown),
-    authorCount: Array.length(authors),
-    coAuthorCount: Array.length(coAuthors),
-    hasViolations: regions->Array.some(r => r.trustLevel === UnreviewedAi),
-    unsoundMarkers: 0, // Populated by separate believe_me scan
-  }
-}
-
-/// Trust level display label — used in UI and screen readers.
-/// These are the CANONICAL names, not configurable.
-let trustLabel = (level: trustLevel): string => {
-  switch level {
-  | Verified => "Formally Verified"
-  | HumanReviewed => "Human Reviewed"
-  | AiAssisted => "AI Assisted"
-  | UnreviewedAi => "Unreviewed AI"
-  | Unknown => "Unknown Provenance"
-  }
-}
-
-/// Short label for compact displays.
-let trustShortLabel = (level: trustLevel): string => {
-  switch level {
-  | Verified => "Verified"
-  | HumanReviewed => "Human"
-  | AiAssisted => "AI+Human"
-  | UnreviewedAi => "AI Only"
-  | Unknown => "Unknown"
-  }
-}
-
-/// ARIA label for screen reader announcement.
-let trustAriaLabel = (level: trustLevel): string => {
-  switch level {
-  | Verified => "Code formally verified with proof checker"
-  | HumanReviewed => "Code written or reviewed by a human"
-  | AiAssisted => "Code co-authored with AI, not yet reviewed"
-  | UnreviewedAi => "WARNING: Code generated by AI with no human review"
-  | Unknown => "Code provenance unknown"
-  }
-}
-
-/// Shape indicator for each trust level — redundant channel beyond colour.
-/// Used as CSS class suffixes for icon rendering.
-let trustShape = (level: trustLevel): string => {
-  switch level {
-  | Verified => "shield-check" // Shield with checkmark
-  | HumanReviewed => "user-check" // Person with checkmark
-  | AiAssisted => "cpu" // Circuit/chip icon
-  | UnreviewedAi => "alert-triangle" // Warning triangle
-  | Unknown => "help-circle" // Question mark circle
-  }
-}
-
-/// Get the CSS colour classes for a trust level under the given palette.
-///
-/// Returns (bgClass, textClass, borderClass) triple. The semantic POSITION
-/// is fixed; only the specific hues change per palette.
-let trustColours = (level: trustLevel, palette: accessibilityPalette): (string, string, string) => {
-  switch (level, palette) {
-  // Standard palette
-  | (Verified, StandardPalette) => ("bg-green-900/30", "text-green-400", "border-green-600")
-  | (HumanReviewed, StandardPalette) => ("bg-blue-900/30", "text-blue-400", "border-blue-600")
-  | (AiAssisted, StandardPalette) => ("bg-amber-900/30", "text-amber-400", "border-amber-600")
-  | (UnreviewedAi, StandardPalette) => ("bg-red-900/30", "text-red-400", "border-red-600")
-  | (Unknown, StandardPalette) => ("bg-gray-900/30", "text-gray-400", "border-gray-600")
-
-  // Deuteranopia-safe palette (green → teal, red → magenta)
-  | (Verified, DeuteranopiaPalette) => ("bg-teal-900/30", "text-teal-400", "border-teal-600")
-  | (HumanReviewed, DeuteranopiaPalette) => ("bg-blue-900/30", "text-blue-400", "border-blue-600")
-  | (AiAssisted, DeuteranopiaPalette) => (
-      "bg-yellow-900/30",
-      "text-yellow-400",
-      "border-yellow-600",
-    )
-  | (UnreviewedAi, DeuteranopiaPalette) => (
-      "bg-fuchsia-900/30",
-      "text-fuchsia-400",
-      "border-fuchsia-600",
-    )
-  | (Unknown, DeuteranopiaPalette) => ("bg-gray-900/30", "text-gray-400", "border-gray-600")
-
-  // Protanopia-safe palette (green → cyan, red → magenta)
-  | (Verified, ProtanopiaPalette) => ("bg-cyan-900/30", "text-cyan-400", "border-cyan-600")
-  | (HumanReviewed, ProtanopiaPalette) => ("bg-blue-900/30", "text-blue-400", "border-blue-600")
-  | (AiAssisted, ProtanopiaPalette) => ("bg-orange-900/30", "text-orange-400", "border-orange-600")
-  | (UnreviewedAi, ProtanopiaPalette) => (
-      "bg-fuchsia-900/30",
-      "text-fuchsia-400",
-      "border-fuchsia-600",
-    )
-  | (Unknown, ProtanopiaPalette) => ("bg-gray-900/30", "text-gray-400", "border-gray-600")
-
-  // High-contrast palette
-  | (Verified, HighContrastPalette) => ("bg-green-800", "text-white", "border-green-400")
-  | (HumanReviewed, HighContrastPalette) => ("bg-blue-800", "text-white", "border-blue-400")
-  | (AiAssisted, HighContrastPalette) => ("bg-yellow-600", "text-black", "border-yellow-400")
-  | (UnreviewedAi, HighContrastPalette) => ("bg-red-800", "text-white", "border-red-400")
-  | (Unknown, HighContrastPalette) => ("bg-gray-700", "text-gray-200", "border-gray-400")
-  }
-}
-
-/// Whether a trust level should trigger hostile UX (pulsing, alarming visuals).
-let isHostile = (level: trustLevel): bool => {
-  level === UnreviewedAi
-}
-
-/// CSS classes for hostile UX animation on unreviewed AI regions.
-/// Returns empty string for non-hostile trust levels.
-let hostileClasses = (level: trustLevel, suppressed: bool): string => {
-  if isHostile(level) && !suppressed {
-    "animate-pulse border-2 border-red-500 ring-2 ring-red-500/50"
-  } else {
-    ""
-  }
-}
-
-/// Compute the trust percentage (verified + human-reviewed) for a file.
-/// This is the "trust score" shown in the provenance summary bar.
-let trustPercentage = (summary: provenanceSummary): float => {
-  if summary.totalLines === 0 {
-    0.0
-  } else {
-    let trusted = Float.fromInt(summary.verifiedLines + summary.humanReviewedLines)
-    trusted /. Float.fromInt(summary.totalLines) *. 100.0
-  }
-}
-
-/// Default provenance state — enabled with standard palette.
-let defaultState: provenanceState = {
-  enabled: true,
-  activeFile: None,
-  cache: [],
-  palette: StandardPalette,
-  hostileUxActive: false,
-  hostileUxSuppressed: false,
-  loading: false,
-  error: None,
-}
-
-/// Build a simple provenance DAG from a set of file provenances.
-/// Each file becomes a SourceNode, and files that import from each other
-/// get edges. This is the naive version — the real one would parse imports.
-let buildDag = (files: array<fileProvenance>): provenanceDag => {
-  let nodes = files->Array.map(fp => {
-    let trust = if fp.summary.verifiedLines > fp.summary.totalLines / 2 {
-      Verified
-    } else if fp.summary.humanReviewedLines > fp.summary.totalLines / 2 {
-      HumanReviewed
-    } else if fp.summary.aiAssistedLines > fp.summary.totalLines / 2 {
-      AiAssisted
-    } else if fp.summary.unreviewedAiLines > 0 {
-      UnreviewedAi
-    } else {
-      Unknown
-    }
-    {
-      id: fp.filePath,
-      label: fp.filePath,
-      kind: SourceNode,
-      trustLevel: trust,
-      contentHash: "",
-      createdAt: fp.analysedAt,
-      verified: fp.summary.unsoundMarkers === 0 && trust === Verified,
-    }
-  })
-  {
-    nodes,
-    edges: [],
-    roots: nodes->Array.map(n => n.id),
-    leaves: nodes->Array.map(n => n.id),
-    computedAt: Date.now(),
-  }
-}
-
-/// Find all transitive dependencies (ancestors) of a node in the DAG.
-let ancestors = (dag: provenanceDag, nodeId: string): array<string> => {
-  let rec walk = (current: string, visited: array<string>): array<string> => {
-    if visited->Array.some(v => v === current) {
-      visited
-    } else {
-      let visited = Array.concat(visited, [current])
-      dag.edges
-      ->Array.filter(e => e.toId === current)
-      ->Array.reduce(visited, (acc, e) => walk(e.fromId, acc))
-    }
-  }
-  walk(nodeId, [])->Array.filter(id => id !== nodeId)
-}
-
-/// Find all transitive dependents (descendants) of a node in the DAG.
-let descendants = (dag: provenanceDag, nodeId: string): array<string> => {
-  let rec walk = (current: string, visited: array<string>): array<string> => {
-    if visited->Array.some(v => v === current) {
-      visited
-    } else {
-      let visited = Array.concat(visited, [current])
-      dag.edges
-      ->Array.filter(e => e.fromId === current)
-      ->Array.reduce(visited, (acc, e) => walk(e.toId, acc))
-    }
-  }
-  walk(nodeId, [])->Array.filter(id => id !== nodeId)
-}
-
-/// Compute the "blast radius" — if a node's trust is compromised, how many
-/// downstream nodes are affected? Returns (directCount, transitiveCount).
-let blastRadius = (dag: provenanceDag, nodeId: string): (int, int) => {
-  let direct = dag.edges->Array.filter(e => e.fromId === nodeId)->Array.length
-  let transitive = descendants(dag, nodeId)->Array.length
-  (direct, transitive)
-}
-
-/// Label for a DAG node kind.
-let dagNodeKindLabel = (kind: dagNodeKind): string => {
-  switch kind {
-  | SourceNode => "Source"
-  | BuildNode => "Build"
-  | DependencyNode => "Dependency"
-  | ProofNode => "Proof"
-  | AttestationNode => "Attestation"
-  }
-}
-
-/// CSS colour class for a DAG node kind.
-let dagNodeKindColour = (kind: dagNodeKind): string => {
-  switch kind {
-  | SourceNode => "text-blue-400"
-  | BuildNode => "text-amber-400"
-  | DependencyNode => "text-purple-400"
-  | ProofNode => "text-green-400"
-  | AttestationNode => "text-cyan-400"
-  }
-}
-
-// ===========================================================================
-// Code MRI Layer 1 — Blake3 Provenance Chain
-//
-// Tamper-evident hash chain for code regions. Each entry's hash is computed
-// from (content, author, timestamp, parentHash), forming a linked chain
-// where modifying any field invalidates everything downstream.
-//
-// IMPLEMENTATION NOTE: ReScript cannot call Blake3 directly, so we use a
-// deterministic hex-encoded hash built from character code accumulation with
-// prime mixing. This gives collision resistance suitable for integrity
-// checking (not cryptographic security). A future FFI binding to a real
-// Blake3 library can replace `computeRegionHash` without changing the chain
-// structure.
-// ===========================================================================
-
-/// Compute a deterministic hex-encoded hash from a code region's fields.
-///
-/// Concatenates (content, author, timestamp, parentHash) with a separator,
-/// then applies a prime-mixing accumulator over each character code to
-/// produce a 16-character hex digest. This is NOT cryptographically secure —
-/// it is a structural integrity check. Replace with Blake3 FFI when available.
-///
-/// @param content    The source code text of the region
-/// @param author     The commit author (name or email)
-/// @param timestamp  ISO 8601 timestamp string
-/// @param parentHash Hash of the previous chain entry ("0" for genesis)
-/// @returns 16-character hex string
-let computeRegionHash = (
-  content: string,
-  author: string,
-  timestamp: string,
-  parentHash: string,
-): string => {
-  // Concatenate all fields with a pipe separator to avoid ambiguity
-  let _provenanceInput = content ++ "|" ++ author ++ "|" ++ timestamp ++ "|" ++ parentHash
-  // Prime-mixing accumulator: fold over character codes with two accumulators
-  // Use raw JS for bitwise hash — ReScript lacks bitwise operators.
-  let hash: string = %raw(`
-    (function(_provenanceInput) {
-      var len = input.length;
-      var hashA = 0x811c9dc5;
-      var hashB = 0x01000193;
-      for (var i = 0; i < len; i++) {
-        var c = input.charCodeAt(i);
-        hashA = (hashA * 16777619 ^ c) >>> 0;
-        hashB = (hashB * 16777259 ^ (c + i)) >>> 0;
-      }
-      var hex = "";
-      var vals = [hashA, hashB];
-      for (var j = 0; j < 2; j++) {
-        var n = vals[j];
-        for (var k = 7; k >= 0; k--) {
-          hex += "0123456789abcdef"[(n >> (k * 4)) & 15];
-        }
-      }
-      return hex;
-    })(input)
-  `)
-  hash
-}
-
-/// Create a new provenance chain entry with a computed hash.
-///
-/// The hash is derived from the content, author, timestamp, and parent hash,
-/// ensuring the chain is tamper-evident. The attribution field defaults to
-/// "human" — callers should set it explicitly for AI-generated code.
-///
-/// @param content    The source code region
-/// @param author     Who committed this region
-/// @param timestamp  When it was committed (ISO 8601)
-/// @param parentHash Hash of the previous entry ("0" for the first entry)
-/// @returns A fully populated chain entry with computed hash
-let createChainEntry = (
-  content: string,
-  author: string,
-  timestamp: string,
-  parentHash: string,
-): provenanceChainEntry => {
-  let hash = computeRegionHash(content, author, timestamp, parentHash)
-  {
-    hash,
-    parentHash,
-    content,
-    author,
-    timestamp,
-    attribution: "human",
-  }
-}
-
-/// Verify that a provenance chain is internally consistent.
-///
-/// Walks the chain from index 1 onward, checking that each entry's
-/// `parentHash` matches the previous entry's `hash`. Also verifies that
-/// each entry's `hash` field matches the recomputed hash from its fields.
-///
-/// An empty chain or single-entry chain is considered valid.
-///
-/// @param entries The provenance chain to verify (ordered oldest-first)
-/// @returns true if the entire chain is consistent, false if any link is broken
-let verifyChain = (entries: array<provenanceChainEntry>): bool => {
-  let len = Array.length(entries)
-  if len <= 1 {
-    true
-  } else {
-    let valid = ref(true)
-    for i in 0 to len - 1 {
-      let entry = entries->Array.getUnsafe(i)
-      // Verify the hash field matches recomputation
-      let recomputed = computeRegionHash(
-        entry.content,
-        entry.author,
-        entry.timestamp,
-        entry.parentHash,
-      )
-      if recomputed !== entry.hash {
-        valid := false
-      }
-
-      // Verify parent linkage (skip index 0 — genesis entry)
-      if i > 0 {
-        let prev = entries->Array.getUnsafe(i - 1)
-        if entry.parentHash !== prev.hash {
-          valid := false
-        }
-      }
-    }
-    valid.contents
-  }
-}
-
-/// Serialize a provenance chain to JSON for .mri.json sidecar files.
-///
-/// Produces a JSON array where each element is an object with fields:
-/// hash, parentHash, content, author, timestamp, attribution.
-/// The output is deterministic (same chain always produces same JSON).
-///
-/// @param entries The provenance chain to serialize
-/// @returns A JSON string representation of the chain
-let chainToJson = (entries: array<provenanceChainEntry>): string => {
-  // Escape double quotes and backslashes in a string for JSON embedding.
-  let escapeJson = (s: string): string => {
-    let result = ref("")
-    let len = String.length(s)
-    for i in 0 to len - 1 {
-      let ch = String.charAt(s, i)
-      if ch === "\"" {
-        result := result.contents ++ "\\\""
-      } else if ch === "\\" {
-        result := result.contents ++ "\\\\"
-      } else if ch === "\n" {
-        result := result.contents ++ "\\n"
-      } else if ch === "\r" {
-        result := result.contents ++ "\\r"
-      } else if ch === "\t" {
-        result := result.contents ++ "\\t"
-      } else {
-        result := result.contents ++ ch
-      }
-    }
-    result.contents
-  }
-  let items = entries->Array.map(entry => {
-    "{" ++
-    "\"hash\":\"" ++
-    escapeJson(entry.hash) ++
-    "\"," ++
-    "\"parentHash\":\"" ++
-    escapeJson(entry.parentHash) ++
-    "\"," ++
-    "\"content\":\"" ++
-    escapeJson(entry.content) ++
-    "\"," ++
-    "\"author\":\"" ++
-    escapeJson(entry.author) ++
-    "\"," ++
-    "\"timestamp\":\"" ++
-    escapeJson(entry.timestamp) ++
-    "\"," ++
-    "\"attribution\":\"" ++
-    escapeJson(entry.attribution) ++
-    "\"" ++ "}"
-  })
-  "[" ++ Array.join(items, ",") ++ "]"
-}
-
-/// Detect tampered entries in a provenance chain.
-///
-/// Returns the indices of entries whose hash does not match recomputation
-/// from their fields, OR whose parentHash does not match the previous
-/// entry's hash. Index 0 is only flagged if its own hash is inconsistent
-/// (it has no parent to check against).
-///
-/// @param entries The provenance chain to audit
-/// @returns Array of 0-based indices where tampering was detected
-let detectTampering = (entries: array<provenanceChainEntry>): array<int> => {
-  let len = Array.length(entries)
-  let tampered = ref([])
-  for i in 0 to len - 1 {
-    let entry = entries->Array.getUnsafe(i)
-    let recomputed = computeRegionHash(
-      entry.content,
-      entry.author,
-      entry.timestamp,
-      entry.parentHash,
-    )
-    let hashMismatch = recomputed !== entry.hash
-    let parentMismatch = if i > 0 {
-      let prev = entries->Array.getUnsafe(i - 1)
-      entry.parentHash !== prev.hash
-    } else {
-      false
-    }
-    if hashMismatch || parentMismatch {
-      tampered := Array.concat(tampered.contents, [i])
-    }
-  }
-  tampered.contents
-}
diff --git a/src/core/ProvisionerEngine.affine b/src/core/ProvisionerEngine.affine
new file mode 100644
index 00000000..ad15d3ab
--- /dev/null
+++ b/src/core/ProvisionerEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ProvisionerEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/ProvisionerEngine.res b/src/core/ProvisionerEngine.res
deleted file mode 100644
index 25050108..00000000
--- a/src/core/ProvisionerEngine.res
+++ /dev/null
@@ -1,828 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL ProvisionerEngine — Pure computation for portfolio provisioning.
-///
-/// Provides the built-in portfolio catalogue, isolation tier helpers,
-/// configuration defaults, filtering, and installation state management.
-/// All functions are pure — side effects happen in ProvisionerCmd.
-
-open ProvisionerModel
-
-/// Category tab labels for the Provisioner panel UI.
-let categoryLabel = (cat: provisionerCategory): string => {
-  switch cat {
-  | Portfolios => "Portfolios"
-  | PluginBundles => "Plugin Bundles"
-  | Configurator => "Configurator"
-  | Installed => "Installed"
-  | CustomPortfolio => "Custom"
-  | CustomPluginBundle => "Custom Plugin"
-  | DeploymentBundles => "Deployments"
-  }
-}
-
-/// Human-readable label for a panel isolation tier.
-let isolationLabel = (tier: panelIsolation): string => {
-  switch tier {
-  | Native => "Native (in-process)"
-  | StandardPod => "Standard Pod (Alpine)"
-  | HardenedPod => "Hardened Pod (Chainguard)"
-  }
-}
-
-/// Short label for compact display of isolation tier.
-let isolationShortLabel = (tier: panelIsolation): string => {
-  switch tier {
-  | Native => "Native"
-  | StandardPod => "Pod"
-  | HardenedPod => "Hardened"
-  }
-}
-
-/// CSS colour class for an isolation tier indicator.
-let isolationColour = (tier: panelIsolation): string => {
-  switch tier {
-  | Native => "text-green-400"
-  | StandardPod => "text-blue-400"
-  | HardenedPod => "text-purple-400"
-  }
-}
-
-// ============================================================================
-// Plugin Bundle Helpers
-// ============================================================================
-
-/// Human-readable label for plugin trust tier.
-let trustTierLabel = (tier: pluginTrustTier): string => {
-  switch tier {
-  | Teranga => "Teranga (Core)"
-  | Shield => "Shield (Security)"
-  | Ayo => "Ayo (Community)"
-  }
-}
-
-/// Short label for plugin trust tier.
-let trustTierShortLabel = (tier: pluginTrustTier): string => {
-  switch tier {
-  | Teranga => "Core"
-  | Shield => "Security"
-  | Ayo => "Community"
-  }
-}
-
-/// CSS colour class for plugin trust tier.
-let trustTierColour = (tier: pluginTrustTier): string => {
-  switch tier {
-  | Teranga => "text-yellow-400"
-  | Shield => "text-red-400"
-  | Ayo => "text-blue-400"
-  }
-}
-
-/// Compose Groove services from a deployment bundle.
-let composeGrooveServices = (bundle: deploymentBundle): array<grooveService> => {
-  // Add services from panels
-  let panelServices = bundle.panels->Array.map(panelId => {
-    // In real implementation, look up panel capabilities
-    // For now, create a basic UI service
-    {
-      id: panelId ++ "-ui",
-      name: panelId ++ " UI",
-      capabilities: ["ui", "panel"],
-      endpoint: "/panels/" ++ panelId,
-      sourceType: PanelSource(panelId),
-      trustTier: None,
-    }
-  })
-
-  // Add services from plugins
-  let pluginServices = bundle.plugins->Array.flatMap(pluginId => {
-    // In real implementation, look up plugin capabilities
-    // For now, create services for common capabilities
-    [
-      {
-        id: pluginId ++ "-main",
-        name: pluginId ++ " Main",
-        capabilities: ["backend", "api"],
-        endpoint: "/plugins/" ++ pluginId,
-        sourceType: PluginSource(pluginId),
-        trustTier: Some(Ayo), // Default to community tier
-      }
-    ]
-  })
-
-  panelServices->Array.concat(pluginServices)
-}
-
-/// Create a configuration graph from panel and plugin configs.
-let createConfigurationGraph = (
-  panelConfigs: array<panelConfig>,
-  pluginConfigs: array<pluginConfig>,
-): configurationGraph => {
-  panelConfigs->Array.map(config => PanelConfigNode(config))
-  ->Array.concat(pluginConfigs->Array.map(config => PluginConfigNode(config)))
-}
-
-/// Get plugin bundle by ID.
-let getPluginBundle = (
-  bundles: array<pluginBundle>,
-  bundleId: string,
-): option<pluginBundle> => {
-  bundles->Array.find(bundle => bundle.id === bundleId)
-}
-
-/// Check if a plugin bundle is installed.
-let isPluginBundleInstalled = (
-  bundle: pluginBundle,
-  installStatuses: array<(string, panelInstallStatus)>,
-): bool => {
-  bundle.plugins->Array.every(pluginId => {
-    installStatuses->Array.some(((id, status)) => {
-      id === pluginId && status === Installed
-    })
-  })
-}
-
-/// Get plugin install status.
-let getPluginInstallStatus = (
-  installStatuses: array<(string, panelInstallStatus)>,
-  pluginId: string,
-): panelInstallStatus => {
-  installStatuses->Array.find(((id, _status)) => id === pluginId)
-  ->Option.map(((_, status)) => status)
-  ->Option.getOr(NotInstalled)
-}
-
-// ============================================================================
-// Deployment Bundle Helpers
-// ============================================================================
-
-/// Create a deployment bundle from panels and plugins.
-let createDeploymentBundle = (
-  name: string,
-  panels: array<string>,
-  plugins: array<string>,
-  panelConfigs: array<panelConfig>,
-  pluginConfigs: array<pluginConfig>,
-): deploymentBundle => {
-  {
-    id: name->String.toLowerCase->String.replace(" ", "-"),
-    name: name,
-    panels: panels,
-    plugins: plugins,
-    grooveServices: composeGrooveServices({
-      id: "temp",
-      name: name,
-      panels: panels,
-      plugins: plugins,
-      grooveServices: [],
-      dependencies: [],
-      configuration: createConfigurationGraph(panelConfigs, pluginConfigs),
-      installStatus: BundleNotInstalled,
-    }),
-    dependencies: [],
-    configuration: createConfigurationGraph(panelConfigs, pluginConfigs),
-    installStatus: BundleNotInstalled,
-  }
-}
-
-/// Check if a deployment bundle is fully installed.
-let isDeploymentBundleInstalled = (bundle: deploymentBundle): bool => {
-  switch bundle.installStatus {
-  | BundleInstalled => true
-  | _ => false
-  }
-}
-
-// ============================================================================
-// Plugin Management Helpers
-// ============================================================================
-
-/// Find panels that require a specific plugin.
-let findPanelsRequiringPlugin = (
-  pluginId: string,
-  state: provisionerState,
-): array<string> => {
-  state.portfolios
-  ->Array.filter(portfolio =>
-    portfolio.panels->Array.some(panelId => {
-      // In real implementation, check panel metadata
-      // For now, simulate with some hardcoded dependencies
-      (panelId === "Minter" && pluginId === "minter-plugin") ||
-      (panelId === "Provisioner" && pluginId === "provisioner-plugin") ||
-      (panelId === "Configurator" && pluginId === "config-plugin")
-    })
-  )
-  ->Array.flatMap(portfolio => portfolio.panels)
-  ->Array.reduce([], (acc, id) =>
-    if acc->Array.includes(id) { acc } else { acc->Array.concat([id]) }
-  )
-}
-
-/// Check if a plugin is safe to disable (not required by any panels).
-let isSafeToDisablePlugin = (
-  pluginId: string,
-  state: provisionerState,
-): bool => {
-  let requiredByPanels = findPanelsRequiringPlugin(pluginId, state)->Array.length > 0
-  let isCore = pluginId === "groove-core" || pluginId === "mcp-core"
-  !requiredByPanels && !isCore
-}
-
-/// Check if a plugin is a core plugin (always loaded).
-let isCorePlugin = (pluginId: string): bool => {
-  pluginId === "groove-core" || pluginId === "mcp-core" || pluginId === "safety-core"
-}
-
-/// Get plugin configuration.
-let getPluginConfig = (
-  pluginId: string,
-  state: provisionerState,
-): option<pluginConfig> => {
-  state.pluginConfigs->Array.find(config => config.pluginId === pluginId)
-}
-
-/// Check if plugin should be auto-loaded.
-let shouldAutoLoadPlugin = (
-  pluginId: string,
-  state: provisionerState,
-): bool => {
-  // Auto-load if:
-  // 1. It's a core plugin
-  // 2. It's configured to auto-start
-  // 3. It's required by any active panels
-  isCorePlugin(pluginId) ||
-  (getPluginConfig(pluginId, state)->Option.map(c => c.autoStart)->Option.getOr(false)) ||
-  (findPanelsRequiringPlugin(pluginId, state)->Array.length > 0)
-}
-
-// ============================================================================
-// Transitive Dependency Management
-// ============================================================================
-
-/// Get all dependencies (direct + transitive) for a plugin.
-/// Uses iterative BFS via ref cells to avoid while-loop shadowing issues.
-let getAllDependencies = (
-  pluginId: string,
-  state: provisionerState,
-): array<string> => {
-  let allDeps: ref<array<string>> = ref([])
-  let visited: ref<array<string>> = ref([])
-  let queue: ref<array<string>> = ref([pluginId])
-
-  while (queue.contents->Array.length > 0) {
-    let current = queue.contents->Array.getUnsafe(0)
-    queue := queue.contents->Array.sliceToEnd(~start=1)
-    if !(visited.contents->Array.includes(current)) {
-      visited := visited.contents->Array.concat([current])
-
-      // Find direct dependencies of current plugin
-      let directDeps = state.pluginBundles
-        ->Array.flatMap(bundle => bundle.dependencies)
-        ->Array.filter(dep => dep.pluginId === current)
-        ->Array.map(dep => dep.pluginId)
-
-      allDeps := allDeps.contents->Array.concat(directDeps)
-      queue := queue.contents->Array.concat(directDeps)
-    }
-  }
-
-  allDeps.contents->Array.reduce([], (acc, id) =>
-    if acc->Array.includes(id) { acc } else { acc->Array.concat([id]) }
-  )
-}
-
-/// Check for circular dependencies.
-let hasCircularDependencies = (
-  pluginId: string,
-  state: provisionerState,
-): bool => {
-  let visited: ref<array<string>> = ref([])
-  let recursionStack: ref<array<string>> = ref([])
-
-  let rec checkCircular = (id: string): bool => {
-    if (recursionStack.contents->Array.includes(id)) {
-      true  // Circular dependency found
-    } else if (visited.contents->Array.includes(id)) {
-      false  // Already checked, no circle
-    } else {
-      visited := visited.contents->Array.concat([id])
-      recursionStack := recursionStack.contents->Array.concat([id])
-
-      // Get direct dependencies
-      let directDeps = state.pluginBundles
-        ->Array.flatMap(bundle => bundle.dependencies)
-        ->Array.filter(dep => dep.pluginId === id)
-        ->Array.map(dep => dep.pluginId)
-
-      // Check each dependency
-      directDeps->Array.some(depId => checkCircular(depId))
-    }
-  }
-
-  checkCircular(pluginId)
-}
-
-/// Impact analysis - what breaks if we disable this plugin?
-type impactAnalysis = {
-  directUsers: array<string>,
-  transitiveUsers: array<string>,
-  totalImpact: int,
-  safeToDisable: bool,
-}
-
-let getImpactOfDisablingPlugin = (
-  pluginId: string,
-  state: provisionerState,
-): impactAnalysis => {
-  let directUsers = findPanelsRequiringPlugin(pluginId, state)
-  let transitiveUsers = state.portfolios
-    ->Array.filter(portfolio =>
-      portfolio.panels->Array.some(panelId =>
-        getAllDependencies(panelId, state)->Array.includes(pluginId)
-      )
-    )
-    ->Array.flatMap(portfolio => portfolio.panels)
-    ->Array.reduce([], (acc, id) =>
-      if acc->Array.includes(id) { acc } else { acc->Array.concat([id]) }
-    )
-
-  {
-    directUsers: directUsers,
-    transitiveUsers: transitiveUsers,
-    totalImpact: directUsers->Array.length + transitiveUsers->Array.length,
-    safeToDisable: directUsers->Array.length === 0 && transitiveUsers->Array.length === 0,
-  }
-}
-
-/// Build dependency graph for visualization.
-type dependencyGraphNode = {
-  id: string,
-  name: string,
-  dependencies: array<string>,
-  dependents: array<string>,
-}
-
-let buildDependencyGraph = (
-  state: provisionerState,
-): array<dependencyGraphNode> => {
-  // Collect all plugins
-  let allPlugins = state.pluginBundles
-    ->Array.flatMap(bundle => bundle.plugins)
-    ->Array.concat(state.pluginConfigs->Array.map(c => c.pluginId))
-    ->Array.reduce([], (acc, id) =>
-      if acc->Array.includes(id) { acc } else { acc->Array.concat([id]) }
-    )
-
-  allPlugins->Array.map(pluginId => {
-    let directDeps = state.pluginBundles
-      ->Array.flatMap(bundle => bundle.dependencies)
-      ->Array.filter(dep => dep.pluginId === pluginId)
-      ->Array.map(dep => dep.pluginId)
-
-    let dependents = state.portfolios
-      ->Array.flatMap(portfolio => portfolio.panels)
-      ->Array.filter(panelId => 
-        findPanelsRequiringPlugin(pluginId, state)->Array.includes(panelId)
-      )
-
-    {
-      id: pluginId,
-      name: pluginId,  // Would use plugin name in real implementation
-      dependencies: directDeps,
-      dependents: dependents,
-    }
-  })
-}
-
-// ============================================================================
-// Version Resolution System
-// ============================================================================
-
-/// Semantic version components
-type semver = {
-  major: int,
-  minor: int,
-  patch: int,
-  preRelease: option<string>,
-  build: option<string>,
-}
-
-/// Parse semantic version string
-let parseSemver = (version: string): option<semver> => {
-  // Simple parser - would use regex in real implementation
-  try {
-    let parts = version
-      ->String.split("-")
-      ->Array.getUnsafe(0)
-      ->String.split("+")
-      ->Array.getUnsafe(0)
-      ->String.split(".")
-
-    if (parts->Array.length < 3) {
-      None
-    } else {
-      Some({
-        major: int_of_string(parts->Array.getUnsafe(0)),
-        minor: int_of_string(parts->Array.getUnsafe(1)),
-        patch: int_of_string(parts->Array.getUnsafe(2)),
-        preRelease: parts->Array.length > 3 ? Some(parts->Array.getUnsafe(3)) : None,
-        build: None,
-      })
-    }
-  } catch {
-  | _ => None
-  }
-}
-
-/// Compare two semantic versions
-let compareSemver = (a: semver, b: semver): int => {
-  // Major version
-  if (a.major > b.major) { 1 }
-  else if (a.major < b.major) { -1 }
-  // Minor version
-  else if (a.minor > b.minor) { 1 }
-  else if (a.minor < b.minor) { -1 }
-  // Patch version
-  else if (a.patch > b.patch) { 1 }
-  else if (a.patch < b.patch) { -1 }
-  // Pre-release
-  else if (a.preRelease->Option.isSome && b.preRelease->Option.isNone) { -1 }
-  else if (a.preRelease->Option.isNone && b.preRelease->Option.isSome) { 1 }
-  else { 0 }
-}
-
-/// Check if version satisfies requirement
-let satisfiesSemver = (version: string, requirement: string): bool => {
-  let v = parseSemver(version)
-  let r = parseSemver(requirement)
-  
-  if (v->Option.isNone || r->Option.isNone) {
-    false
-  } else {
-    let v = v->Option.getExn
-    let r = r->Option.getExn
-    
-    // Exact match
-    if (requirement->String.startsWith("=")) {
-      compareSemver(v, r) === 0
-    }
-    // Greater than or equal
-    else if (requirement->String.startsWith(">=")) {
-      compareSemver(v, r) >= 0
-    }
-    // Greater than
-    else if (requirement->String.startsWith(">")) {
-      compareSemver(v, r) > 0
-    }
-    // Less than or equal
-    else if (requirement->String.startsWith("<=")) {
-      compareSemver(v, r) <= 0
-    }
-    // Less than
-    else if (requirement->String.startsWith("<")) {
-      compareSemver(v, r) < 0
-    }
-    // Caret (^1.2.3 = >=1.2.3 <2.0.0)
-    else if (requirement->String.startsWith("^")) {
-      let reqParts = requirement->String.slice(~start=1, ~end=String.length(requirement))->String.split(".")
-      compareSemver(v, r) >= 0 &&
-      (v.major === r.major || (reqParts->Array.length === 1))
-    }
-    // Tilde (~1.2.3 = >=1.2.3 <1.3.0)
-    else if (requirement->String.startsWith("~")) {
-      let reqParts = requirement->String.slice(~start=1, ~end=String.length(requirement))->String.split(".")
-      compareSemver(v, r) >= 0 &&
-      v.major === r.major &&
-      (reqParts->Array.length <= 2 || v.minor === r.minor)
-    }
-    // Default: exact match
-    else {
-      compareSemver(v, r) === 0
-    }
-  }
-}
-
-/// Get latest version satisfying requirement
-let getLatestSatisfyingVersion = (
-  pluginId: string,
-  requirement: string,
-  state: provisionerState,
-): option<string> => {
-  // In real implementation, would query plugin registry
-  // For now, simulate with some mock versions
-  let mockVersions = ["1.0.0", "1.2.0", "1.2.3", "2.0.0", "2.1.0"]
-  
-  let filtered = mockVersions->Array.filter(version => satisfiesSemver(version, requirement))
-  filtered->Array.sort((a, b) => {
-    let aParsed = parseSemver(a)->Option.getExn
-    let bParsed = parseSemver(b)->Option.getExn
-    Int.toFloat(-compareSemver(aParsed, bParsed))  // Descending
-  })
-  filtered->Array.get(0)
-}
-
-/// Resolve plugin version from multiple requirements
-let resolvePluginVersion = (
-  pluginId: string,
-  requirements: array<string>,
-  state: provisionerState,
-): option<string> => {
-  // If no requirements, use latest
-  if (requirements->Array.length === 0) {
-    getLatestSatisfyingVersion(pluginId, ">=0.0.0", state)
-  } else if (requirements->Array.length === 1) {
-    // If single requirement, use that
-    getLatestSatisfyingVersion(pluginId, requirements->Array.getUnsafe(0), state)
-  } else {
-    // Multiple requirements - find common version
-    let mockVersions = ["1.0.0", "1.2.0", "1.2.3", "2.0.0", "2.1.0"]
-    let satisfying = mockVersions->Array.filter(version =>
-      requirements->Array.every(req => satisfiesSemver(version, req))
-    )
-    satisfying->Array.sort((a, b) => {
-      let aParsed = parseSemver(a)->Option.getExn
-      let bParsed = parseSemver(b)->Option.getExn
-      Int.toFloat(-compareSemver(aParsed, bParsed))  // Descending
-    })
-    satisfying->Array.get(0)
-  }
-}
-
-/// Check if all plugin dependencies can be satisfied
-type resolutionResult =
-  | Resolved(array<(string, string)>)
-  | Conflict(array<string>)
-  | NotFound(array<string>)
-
-/// Check if OPSM is available for advanced resolution
-let isOpsmAvailable = (): bool => {
-  // In real implementation, would check via RuntimeBridge
-  // For now, return false (no OPSM)
-  false
-}
-
-/// Resolve with OPSM (if available) as fallback
-let resolveWithOpsmFallback = (
-  pluginId: string,
-  requirements: array<string>,
-  state: provisionerState,
-): option<string> => {
-  if (isOpsmAvailable()) {
-    // Would call OPSM resolver via RuntimeBridge
-    // For now, simulate with simple resolution
-    resolvePluginVersion(pluginId, requirements, state)
-  } else {
-    resolvePluginVersion(pluginId, requirements, state)
-  }
-}
-
-let resolveAllDependencies = (
-  pluginId: string,
-  state: provisionerState,
-): resolutionResult => {
-  // Get all transitive dependencies
-  let allDeps = getAllDependencies(pluginId, state)
-  
-  // Deduplicate dependency list
-  let depsByPlugin = allDeps->Array.reduce([], (acc, depId) =>
-    if acc->Array.includes(depId) { acc } else { acc->Array.concat([depId]) }
-  )
-
-  // For each plugin, get requirements and resolve
-  let results = depsByPlugin->Array.map(depId => {
-    let requirements = state.pluginBundles
-      ->Array.flatMap(bundle => bundle.dependencies)
-      ->Array.filter(dep => dep.pluginId === depId)
-      ->Array.map(dep => dep.version)
-    (depId, resolveWithOpsmFallback(depId, requirements, state))
-  })
-
-  // Check for failures
-  let failures = results->Array.filter(((_, result)) => result->Option.isNone)
-
-  if (failures->Array.length > 0) {
-    NotFound(failures->Array.map(((depId, _)) => depId))
-  } else {
-    Resolved(results->Array.map(((depId, result)) => (depId, result->Option.getExn)))
-  }
-}
-
-/// Human-readable label for panel installation status.
-let installStatusLabel = (status: panelInstallStatus): string => {
-  switch status {
-  | NotInstalled => "Not installed"
-  | Installing => "Installing..."
-  | Installed => "Installed"
-  | InstallFailed(e) => `Failed: ${e}`
-  | Removing => "Removing..."
-  }
-}
-
-/// CSS colour class for install status.
-let installStatusColour = (status: panelInstallStatus): string => {
-  switch status {
-  | NotInstalled => "text-gray-500"
-  | Installing => "text-amber-400"
-  | Installed => "text-green-400"
-  | InstallFailed(_) => "text-red-400"
-  | Removing => "text-amber-400"
-  }
-}
-
-/// The built-in portfolio catalogue — ships with PanLL.
-///
-/// Each portfolio bundles panels that make sense together for a specific
-/// workflow or audience. Users can also create custom portfolios.
-let builtInPortfolios: array<portfolio> = [
-  {
-    id: "security-ops",
-    name: "Security Operations",
-    description: "Domain security, network diagnostics, and vulnerability management",
-    panels: ["CloudGuard", "Aerie", "Fleet", "Hypatia"],
-    defaultIsolation: Native,
-    builtIn: true,
-    icon: "shield",
-    audience: "Security engineers and DevSecOps teams",
-  },
-  {
-    id: "repo-governance",
-    name: "Repository Governance",
-    description: "Repo inventory, RSR compliance, licensing, and bot orchestration",
-    panels: ["Farm", "Reposystem", "Plaza", "Fleet"],
-    defaultIsolation: Native,
-    builtIn: true,
-    icon: "git-branch",
-    audience: "Maintainers managing large repo collections",
-  },
-  {
-    id: "formal-verification",
-    name: "Formal Verification",
-    description: "Theorem proving, ABI/FFI inventory, server assembly, and proof provenance",
-    panels: ["VAB", "Interfaces", "Playgrounds"],
-    defaultIsolation: Native,
-    builtIn: true,
-    icon: "check-circle",
-    audience: "Developers working with formal methods and proven code",
-  },
-  {
-    id: "neurosymbolic-dev",
-    name: "Neurosymbolic Development",
-    description: "Full neurosymbolic stack: scanning, fleet dispatch, database tools, playgrounds",
-    panels: ["Hypatia", "Fleet", "Playgrounds", "Databases"],
-    defaultIsolation: Native,
-    builtIn: true,
-    icon: "brain",
-    audience: "Developers building AI-integrated systems with safety constraints",
-  },
-  {
-    id: "full-stack",
-    name: "Full Stack (All Panels)",
-    description: "Everything PanLL offers — all 13 panels. For power users who want the complete control surface.",
-    panels: [
-      "VAB",
-      "CloudGuard",
-      "Farm",
-      "Plaza",
-      "Minter",
-      "Fleet",
-      "Hypatia",
-      "Reposystem",
-      "Databases",
-      "Aerie",
-      "Interfaces",
-      "Playgrounds",
-    ],
-    defaultIsolation: Native,
-    builtIn: true,
-    icon: "layers",
-    audience: "Power users and the hyperpolymath ecosystem",
-  },
-  {
-    id: "getting-started",
-    name: "Getting Started",
-    description: "A gentle introduction: repo overview, code playground, and panel creation",
-    panels: ["Farm", "Playgrounds", "Minter"],
-    defaultIsolation: Native,
-    builtIn: true,
-    icon: "rocket",
-    audience: "New users exploring PanLL for the first time",
-  },
-]
-
-/// Generate default configuration for a panel.
-///
-/// Core panels (the 13 built-in) default to Native isolation.
-/// Everything else defaults to StandardPod for safety.
-let defaultConfig = (panelName: string): panelConfig => {
-  let corePanel =
-    panelName === "VAB" ||
-    panelName === "CloudGuard" ||
-    panelName === "Farm" ||
-    panelName === "Plaza" ||
-    panelName === "Minter" ||
-    panelName === "Fleet" ||
-    panelName === "Hypatia" ||
-    panelName === "Reposystem" ||
-    panelName === "Databases" ||
-    panelName === "Aerie" ||
-    panelName === "Interfaces" ||
-    panelName === "Playgrounds"
-
-  {
-    panelName,
-    endpoint: "",
-    autoConnect: false,
-    isolation: corePanel ? Native : StandardPod,
-    envVars: [],
-    enabled: true,
-  }
-}
-
-/// Filter portfolios by search text (matches name or description).
-let filterPortfolios = (portfolios: array<portfolio>, filterText: string): array<portfolio> => {
-  if filterText === "" {
-    portfolios
-  } else {
-    let lower = String.toLowerCase(filterText)
-    portfolios->Array.filter(p =>
-      String.includes(String.toLowerCase(p.name), lower) ||
-      String.includes(String.toLowerCase(p.description), lower)
-    )
-  }
-}
-
-/// Get the install status for a panel by name.
-let getInstallStatus = (
-  statuses: array<(string, panelInstallStatus)>,
-  panelName: string,
-): panelInstallStatus => {
-  switch statuses->Array.find(((name, _)) => name === panelName) {
-  | Some((_, status)) => status
-  | None => NotInstalled
-  }
-}
-
-/// Count installed panels.
-let countInstalled = (statuses: array<(string, panelInstallStatus)>): int => {
-  statuses->Array.filter(((_, status)) => status === Installed)->Array.length
-}
-
-/// Count panels by isolation tier.
-let countByIsolation = (configs: array<panelConfig>, tier: panelIsolation): int => {
-  configs->Array.filter(c => c.isolation === tier && c.enabled)->Array.length
-}
-
-/// Default provisioner state with built-in portfolios and core panel configs.
-let defaultState: provisionerState = {
-  portfolios: builtInPortfolios,
-  panelConfigs: [
-    defaultConfig("VAB"),
-    defaultConfig("CloudGuard"),
-    defaultConfig("Farm"),
-    defaultConfig("Plaza"),
-    defaultConfig("Minter"),
-    defaultConfig("Fleet"),
-    defaultConfig("Hypatia"),
-    defaultConfig("Reposystem"),
-    defaultConfig("Databases"),
-    defaultConfig("Aerie"),
-    defaultConfig("Interfaces"),
-    defaultConfig("Playgrounds"),
-  ],
-  panelInstallStatus: [
-    ("VAB", Installed),
-    ("CloudGuard", Installed),
-    ("Farm", Installed),
-    ("Plaza", Installed),
-    ("Minter", Installed),
-    ("Fleet", Installed),
-    ("Hypatia", Installed),
-    ("Reposystem", Installed),
-    ("Databases", Installed),
-    ("Aerie", Installed),
-    ("Interfaces", Installed),
-    ("Playgrounds", Installed),
-  ],
-  installProgress: None,
-  activeCategory: Portfolios,
-  filterText: "",
-  loading: false,
-  error: None,
-  customName: "",
-  customPanels: [],
-  // Plugin bundle defaults
-  pluginBundles: [],
-  pluginConfigs: [],
-  pluginInstallStatus: [],
-  pluginInstallProgress: None,
-  customPluginBundleName: "",
-  customPluginBundlePlugins: [],
-  // Deployment bundle defaults
-  deploymentBundles: [],
-  customDeploymentBundleName: "",
-  customDeploymentPanels: [],
-  customDeploymentPlugins: [],
-  // Default provisioning target
-  provisioningTarget: PanelTarget,
-}
diff --git a/src/core/RegressionGuardEngine.affine b/src/core/RegressionGuardEngine.affine
new file mode 100644
index 00000000..c10397aa
--- /dev/null
+++ b/src/core/RegressionGuardEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module RegressionGuardEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/RegressionGuardEngine.res b/src/core/RegressionGuardEngine.res
deleted file mode 100644
index ddc02ff4..00000000
--- a/src/core/RegressionGuardEngine.res
+++ /dev/null
@@ -1,104 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Regression Guard Engine — pure computation and helpers for the
-/// Regression Guard panel. Provides default state, snapshot counting,
-/// filtering, kind labelling, and regression result analysis.
-
-open RegressionGuardModel
-
-/// Default state for the Regression Guard panel.
-/// Starts on the Snapshots tab with empty snapshot list and auto-update off.
-let defaultState: regressionGuardState = {
-  activeTab: TabSnapshots,
-  snapshots: [],
-  results: [],
-  blameEntries: [],
-  running: false,
-  autoUpdate: false,
-  filter: "",
-  error: None,
-}
-
-/// Human-readable label for each tab in the Regression Guard panel.
-let tabLabel = (tab: regressionTab): string =>
-  switch tab {
-  | TabSnapshots => "Snapshots"
-  | TabDiffs => "Diffs"
-  | TabHistory => "History"
-  | TabSettings => "Settings"
-  }
-
-/// All tabs in display order.
-let allTabs: array<regressionTab> = [TabSnapshots, TabDiffs, TabHistory, TabSettings]
-
-/// Count mismatched snapshots (current does not match golden).
-let mismatchCount = (snapshots: array<regressionSnapshot>): int =>
-  snapshots->Array.filter(s => s.matched == Some(false))->Array.length
-
-/// Count snapshots needing review (have a current capture but no comparison yet).
-let needsReview = (snapshots: array<regressionSnapshot>): int =>
-  snapshots->Array.filter(s => s.matched == None && s.currentPath != None)->Array.length
-
-/// Count matched (passing) snapshots.
-let matchCount = (snapshots: array<regressionSnapshot>): int =>
-  snapshots->Array.filter(s => s.matched == Some(true))->Array.length
-
-/// Human-readable label for a snapshot kind.
-let kindLabel = (kind: snapshotKind): string =>
-  switch kind {
-  | SnapshotGameState => "Game State"
-  | SnapshotRenderOutput => "Render"
-  | SnapshotApiResponse => "API Response"
-  | SnapshotTestOutput => "Test Output"
-  | SnapshotCustom(name) => name
-  }
-
-/// CSS colour class for a snapshot kind.
-let kindColor = (kind: snapshotKind): string =>
-  switch kind {
-  | SnapshotGameState => "text-blue-400"
-  | SnapshotRenderOutput => "text-pink-400"
-  | SnapshotApiResponse => "text-green-400"
-  | SnapshotTestOutput => "text-yellow-400"
-  | SnapshotCustom(_) => "text-purple-400"
-  }
-
-/// Filter snapshots by a case-insensitive search string on name.
-let filterSnapshots = (snapshots: array<regressionSnapshot>, filter: string): array<
-  regressionSnapshot,
-> =>
-  if filter == "" {
-    snapshots
-  } else {
-    let q = filter->String.toLowerCase
-    snapshots->Array.filter(s => s.name->String.toLowerCase->String.includes(q))
-  }
-
-/// Compute the overall pass rate across all snapshots as a percentage.
-/// Returns 100.0 when there are no snapshots.
-let passRate = (snapshots: array<regressionSnapshot>): float => {
-  let total = Array.length(snapshots)
-  if total == 0 {
-    100.0
-  } else {
-    let matched = matchCount(snapshots)
-    Int.toFloat(matched) /. Int.toFloat(total) *. 100.0
-  }
-}
-
-/// Get the most recent regression result (or None if no results yet).
-let latestResult = (results: array<regressionResult>): option<regressionResult> => {
-  let count = Array.length(results)
-  if count == 0 {
-    None
-  } else {
-    Some(results->Array.getUnsafe(count - 1))
-  }
-}
-
-/// Whether the latest regression check introduced new failures.
-let hasNewRegressions = (results: array<regressionResult>): bool =>
-  switch latestResult(results) {
-  | Some(r) => r.mismatched > 0
-  | None => false
-  }
diff --git a/src/core/ReleaseManagerEngine.affine b/src/core/ReleaseManagerEngine.affine
new file mode 100644
index 00000000..13b8e2a5
--- /dev/null
+++ b/src/core/ReleaseManagerEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ReleaseManagerEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/ReleaseManagerEngine.res b/src/core/ReleaseManagerEngine.res
deleted file mode 100644
index 78eb33ee..00000000
--- a/src/core/ReleaseManagerEngine.res
+++ /dev/null
@@ -1,104 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Release Manager Engine — pure computation and helpers for
-/// versioning, changelog, packaging, and distribution.
-
-open ReleaseManagerModel
-
-/// Human-readable labels for category tabs.
-let categoryLabel = (cat: releaseManagerCategory): string =>
-  switch cat {
-  | ReleaseOverview => "Overview"
-  | ReleaseChangelog => "Changelog"
-  | ReleaseArtifacts => "Artifacts"
-  | ReleaseDistribution => "Distribution"
-  }
-
-/// Release channel label.
-let channelLabel = (channel: releaseChannel): string =>
-  switch channel {
-  | ChannelDev => "Dev"
-  | ChannelAlpha => "Alpha"
-  | ChannelBeta => "Beta"
-  | ChannelRC => "Release Candidate"
-  | ChannelStable => "Stable"
-  }
-
-/// Channel colour.
-let channelColour = (channel: releaseChannel): string =>
-  switch channel {
-  | ChannelDev => "text-gray-400"
-  | ChannelAlpha => "text-amber-400"
-  | ChannelBeta => "text-cyan-400"
-  | ChannelRC => "text-purple-400"
-  | ChannelStable => "text-emerald-400"
-  }
-
-/// Platform label.
-let platformLabel = (platform: platformTarget): string =>
-  switch platform {
-  | PlatformWeb => "Web"
-  | PlatformDesktopLinux => "Linux"
-  | PlatformDesktopMac => "macOS"
-  | PlatformDesktopWindows => "Windows"
-  | PlatformMobileAndroid => "Android"
-  | PlatformMobileIOS => "iOS"
-  }
-
-/// All platforms.
-let allPlatforms: array<platformTarget> = [
-  PlatformWeb,
-  PlatformDesktopLinux,
-  PlatformDesktopMac,
-  PlatformDesktopWindows,
-  PlatformMobileAndroid,
-  PlatformMobileIOS,
-]
-
-/// Release status label.
-let statusLabel = (status: releaseStatus): string =>
-  switch status {
-  | ReleaseDraft => "Draft"
-  | ReleaseBuilding => "Building..."
-  | ReleaseReady => "Ready"
-  | ReleasePublished => "Published"
-  | ReleaseFailed(err) => `Failed: ${err}`
-  }
-
-/// Release status colour.
-let statusColour = (status: releaseStatus): string =>
-  switch status {
-  | ReleaseDraft => "text-gray-400"
-  | ReleaseBuilding => "text-amber-400"
-  | ReleaseReady => "text-cyan-400"
-  | ReleasePublished => "text-emerald-400"
-  | ReleaseFailed(_) => "text-red-400"
-  }
-
-/// Format file size.
-let formatSize = (bytes: int): string => {
-  if bytes < 1024 {
-    `${Int.toString(bytes)}B`
-  } else if bytes < 1024 * 1024 {
-    `${Int.toString(bytes / 1024)}KB`
-  } else {
-    `${Int.toString(bytes / (1024 * 1024))}MB`
-  }
-}
-
-/// Default state for the Release Manager panel.
-let defaultState: releaseManagerState = {
-  activeCategory: ReleaseOverview,
-  currentVersion: "0.0.0",
-  nextVersion: "0.1.0",
-  channel: ChannelDev,
-  releases: [],
-  pendingChangelog: [],
-  artifacts: [],
-  selectedRelease: None,
-  enabledPlatforms: [PlatformWeb, PlatformDesktopLinux],
-  autoChangelog: true,
-  signArtifacts: true,
-  loading: false,
-  error: None,
-}
diff --git a/src/core/RepoLoaderEngine.affine b/src/core/RepoLoaderEngine.affine
new file mode 100644
index 00000000..2c0b886f
--- /dev/null
+++ b/src/core/RepoLoaderEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module RepoLoaderEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/RepoLoaderEngine.res b/src/core/RepoLoaderEngine.res
deleted file mode 100644
index eeb0c63b..00000000
--- a/src/core/RepoLoaderEngine.res
+++ /dev/null
@@ -1,204 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Repo Loader Engine — pure computation for the repository loading panel.
-///
-/// All functions are pure (no side effects, no API calls). Provides:
-///   - Default state initialisation
-///   - Category labels
-///   - Suggestion filtering and sorting
-///   - JSON parsing for Gossamer command responses
-
-open RepoLoaderModel
-
-/// Human-readable label for a category tab.
-let categoryLabel = (cat: repoLoaderCategory): string => {
-  switch cat {
-  | Browse => "Browse"
-  | Configure => "Configure"
-  | Recent => "Recent"
-  | FarmSearch => "Farm Search"
-  }
-}
-
-/// All category tabs in display order.
-let allCategories: array<repoLoaderCategory> = [Browse, Configure, Recent, FarmSearch]
-
-/// CSS class for suggestion priority badge.
-let priorityColour = (priority: string): string => {
-  switch priority {
-  | "critical" => "bg-red-500/20 text-red-300"
-  | "high" => "bg-orange-500/20 text-orange-300"
-  | "medium" => "bg-amber-500/20 text-amber-300"
-  | "low" => "bg-gray-500/20 text-gray-300"
-  | _ => "bg-gray-500/20 text-gray-300"
-  }
-}
-
-/// Filter suggestions to only enabled ones.
-let enabledSuggestions = (suggestions: array<panelSuggestion>): array<panelSuggestion> => {
-  suggestions->Array.filter(s => s.enabled)
-}
-
-/// Count enabled suggestions.
-let enabledCount = (suggestions: array<panelSuggestion>): int => {
-  Array.length(enabledSuggestions(suggestions))
-}
-
-/// Filter recent paths by a search query.
-let filterRecent = (paths: array<string>, query: string): array<string> => {
-  if query === "" {
-    paths
-  } else {
-    let q = String.toLowerCase(query)
-    paths->Array.filter(p => String.includes(String.toLowerCase(p), q))
-  }
-}
-
-/// Default initial state for the Repo Loader panel.
-let defaultState: repoLoaderState = {
-  currentRepo: None,
-  suggestions: [],
-  recentPaths: [],
-  activeCategory: Browse,
-  scanning: false,
-  searchText: "",
-  error: None,
-  saved: true,
-}
-
-/// Parse a RepoInfo from Gossamer scan response JSON.
-let parseRepoInfo = (obj: Dict.t<JSON.t>): option<repoInfo> => {
-  let getString = (key: string): string =>
-    switch Dict.get(obj, key) {
-    | Some(v) =>
-      switch JSON.Classify.classify(v) {
-      | String(s) => s
-      | _ => ""
-      }
-    | None => ""
-    }
-  let getBool = (key: string): bool =>
-    switch Dict.get(obj, key) {
-    | Some(v) =>
-      switch JSON.Classify.classify(v) {
-      | Bool(b) => b
-      | _ => false
-      }
-    | None => false
-    }
-  let getStringArray = (key: string): array<string> =>
-    switch Dict.get(obj, key) {
-    | Some(v) =>
-      switch JSON.Classify.classify(v) {
-      | Array(arr) =>
-        arr->Array.filterMap(item =>
-          switch JSON.Classify.classify(item) {
-          | String(s) => Some(s)
-          | _ => None
-          }
-        )
-      | _ => []
-      }
-    | None => []
-    }
-
-  Some({
-    path: getString("path"),
-    name: getString("name"),
-    description: getString("description"),
-    languages: getStringArray("languages"),
-    hasMachineReadable: getBool("has_machine_readable"),
-    hasPanelsManifest: getBool("has_panels_manifest"),
-    hasAiManifest: getBool("has_ai_manifest"),
-    hasState: getBool("has_state"),
-  })
-}
-
-/// Parse panel suggestions from JSON array.
-let parseSuggestions = (arr: array<JSON.t>): array<panelSuggestion> => {
-  arr->Array.filterMap(item => {
-    switch JSON.Classify.classify(item) {
-    | Object(obj) => {
-        let getString = (key: string): string =>
-          switch Dict.get(obj, key) {
-          | Some(v) =>
-            switch JSON.Classify.classify(v) {
-            | String(s) => s
-            | _ => ""
-            }
-          | None => ""
-          }
-        let getBool = (key: string): bool =>
-          switch Dict.get(obj, key) {
-          | Some(v) =>
-            switch JSON.Classify.classify(v) {
-            | Bool(b) => b
-            | _ => false
-            }
-          | None => false
-          }
-        Some({
-          panelName: getString("panel_name"),
-          reason: getString("reason"),
-          priority: getString("priority"),
-          enabled: getBool("enabled"),
-        })
-      }
-    | _ => None
-    }
-  })
-}
-
-/// Tea_Json decoder for a repoInfo, bridging the existing parseRepoInfo parser.
-let repoInfoDecoder: Tea_Json.decoder<repoInfo> = json => {
-  switch json {
-  | Object(dict) =>
-    switch parseRepoInfo(dict) {
-    | Some(v) => Ok(v)
-    | None => Error(Tea_Json.Failure("Failed to decode repoInfo", json))
-    }
-  | _ => Error(Tea_Json.Failure("Expected an object for repoInfo", json))
-  }
-}
-
-/// Tea_Json decoder for a panelSuggestion.
-let suggestionDecoder: Tea_Json.decoder<panelSuggestion> = {
-  open Decoders
-  open Tea_Json
-  map4((panelName, reason, priority, enabled): panelSuggestion => {
-    panelName,
-    reason,
-    priority,
-    enabled,
-  }, stringField(
-    "panel_name",
-  ), stringField("reason"), stringField("priority"), boolField("enabled"))
-}
-
-/// Tea_Json decoder for the full scan result.
-let scanResultDecoder: Tea_Json.decoder<(repoInfo, array<panelSuggestion>)> = {
-  open Tea_Json
-  map2(
-    (repo, suggestions) => (repo, suggestions),
-    field("repo", repoInfoDecoder),
-    Decoders.fieldWithDefault("suggestions", Decoders.lenientArray(suggestionDecoder), []),
-  )
-}
-
-/// Parse the full scan result from the Gossamer backend.
-let parseScanResult = (jsonStr: string): result<(repoInfo, array<panelSuggestion>), string> =>
-  Decoders.decode(scanResultDecoder, jsonStr)
-
-/// Tea_Json decoder for extracting a path string from a repo object.
-let repoPathDecoder: Tea_Json.decoder<string> = Tea_Json.field("path", Tea_Json.string)
-
-/// Tea_Json decoder for recent repo paths — extracts "repos" array, then "path" from each.
-let recentPathsDecoder: Tea_Json.decoder<array<string>> = Decoders.fieldWithDefault(
-  "repos",
-  Decoders.lenientArray(repoPathDecoder),
-  [],
-)
-
-/// Parse recent repos from JSON response.
-let parseRecentPaths = (jsonStr: string): array<string> =>
-  Decoders.decodeWithDefault(recentPathsDecoder, [], jsonStr)
diff --git a/src/core/ReposystemEngine.affine b/src/core/ReposystemEngine.affine
new file mode 100644
index 00000000..d5c0458b
--- /dev/null
+++ b/src/core/ReposystemEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ReposystemEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/ReposystemEngine.res b/src/core/ReposystemEngine.res
deleted file mode 100644
index 3a55fa37..00000000
--- a/src/core/ReposystemEngine.res
+++ /dev/null
@@ -1,147 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Reposystem Engine — pure computation for RSR compliance.
-///
-/// Computes compliance scores, aggregates statistics, filters repos,
-/// and provides display helpers for the view layer.
-
-open ReposystemModel
-
-/// Human-readable label for an RSR requirement.
-let requirementLabel = (req: rsrRequirement): string =>
-  switch req {
-  | EditorConfig => ".editorconfig"
-  | AiManifest => "AI Manifest"
-  | StateMachineReadable => "STATE.scm"
-  | MetaMachineReadable => "META.scm"
-  | EcosystemMachineReadable => "ECOSYSTEM.scm"
-  | Justfile => "Justfile"
-  | TopologyDiagram => "TOPOLOGY.md"
-  | SecurityPolicy => "SECURITY.md"
-  | LicenseFile => "LICENSE"
-  | HypatiaScanWorkflow => "hypatia-scan.yml"
-  }
-
-/// Category tab label.
-let categoryLabel = (cat: reposystemCategory): string =>
-  switch cat {
-  | RsrDashboard => "Dashboard"
-  | RsrRepoList => "Repos"
-  | RsrRequirements => "Requirements"
-  | RsrLanguagePolicy => "Language Policy"
-  }
-
-/// Filter audits by repo name.
-let filterAudits = (audits: array<repoCompliance>, query: string): array<repoCompliance> => {
-  if query === "" {
-    audits
-  } else {
-    let q = String.toLowerCase(query)
-    audits->Array.filter(a => String.includes(String.toLowerCase(a.repoName), q))
-  }
-}
-
-/// Compute aggregate statistics from per-repo audits.
-let computeStats = (audits: array<repoCompliance>): complianceStats => {
-  let totalRepos = Array.length(audits)
-  let allRequirements: array<rsrRequirement> = [
-    EditorConfig,
-    AiManifest,
-    StateMachineReadable,
-    MetaMachineReadable,
-    EcosystemMachineReadable,
-    Justfile,
-    TopologyDiagram,
-    SecurityPolicy,
-    LicenseFile,
-    HypatiaScanWorkflow,
-  ]
-
-  let requirementRates = allRequirements->Array.map(req => {
-    let metCount =
-      audits
-      ->Array.filter(a => a.results->Array.some(r => r.requirement === req && r.met))
-      ->Array.length
-    let rate = if totalRepos > 0 {
-      Int.toFloat(metCount) /. Int.toFloat(totalRepos)
-    } else {
-      0.0
-    }
-    (req, rate, metCount)
-  })
-
-  let avgScore = if totalRepos > 0 {
-    audits->Array.map(a => a.score)->Array.reduce(0.0, (acc, s) => acc +. s) /.
-      Int.toFloat(totalRepos)
-  } else {
-    0.0
-  }
-
-  let fullyCompliant = audits->Array.filter(a => a.score >= 1.0)->Array.length
-
-  {totalRepos, requirementRates, avgScore, fullyCompliant}
-}
-
-/// Tea_Json decoder for a single repo compliance audit.
-let complianceDecoder: Tea_Json.decoder<repoCompliance> = {
-  open Decoders
-  open Tea_Json
-  map4((repoName, score, metCount, totalCount): repoCompliance => {
-    repoName,
-    results: [], // Parsed separately if needed
-    score,
-    metCount,
-    totalCount,
-  }, stringField("repo_name"), floatField("score"), intField("met_count"), intField("total_count"))
-}
-
-/// Parse compliance audits from JSON.
-let parseAudits = (json: string): result<array<repoCompliance>, string> =>
-  Decoders.decode(Decoders.lenientArray(complianceDecoder), json)
-
-/// All RSR requirements.
-let allRequirements: array<rsrRequirement> = [
-  EditorConfig,
-  AiManifest,
-  StateMachineReadable,
-  MetaMachineReadable,
-  EcosystemMachineReadable,
-  Justfile,
-  TopologyDiagram,
-  SecurityPolicy,
-  LicenseFile,
-  HypatiaScanWorkflow,
-]
-
-/// Find repos failing a specific requirement.
-let reposFailingRequirement = (audits: array<repoCompliance>, req: rsrRequirement): array<
-  repoCompliance,
-> => audits->Array.filter(a => a.results->Array.some(r => r.requirement === req && !r.met))
-
-/// Find repos passing a specific requirement.
-let reposPassingRequirement = (audits: array<repoCompliance>, req: rsrRequirement): array<
-  repoCompliance,
-> => audits->Array.filter(a => a.results->Array.some(r => r.requirement === req && r.met))
-
-/// Get compliance rate for a single requirement.
-let requirementRate = (audits: array<repoCompliance>, req: rsrRequirement): float => {
-  let total = Array.length(audits)
-  if total === 0 {
-    0.0
-  } else {
-    let passing = reposPassingRequirement(audits, req)->Array.length
-    Int.toFloat(passing) /. Int.toFloat(total)
-  }
-}
-
-/// Default initial state.
-let defaultState: reposystemState = {
-  loaded: false,
-  loading: false,
-  error: None,
-  audits: [],
-  stats: None,
-  activeCategory: RsrDashboard,
-  filterText: "",
-  selectedRequirement: None,
-}
diff --git a/src/core/RuntimeBridge.affine b/src/core/RuntimeBridge.affine
new file mode 100644
index 00000000..585655fa
--- /dev/null
+++ b/src/core/RuntimeBridge.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module RuntimeBridge;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/RuntimeBridge.res b/src/core/RuntimeBridge.res
deleted file mode 100644
index 2c25f1eb..00000000
--- a/src/core/RuntimeBridge.res
+++ /dev/null
@@ -1,169 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// RuntimeBridge — Unified IPC bridge for PanLL panels.
-///
-/// Dispatches `invoke` calls to the Gossamer backend (primary) or rejects
-/// with a descriptive error in browser-only mode.
-///
-/// Priority order:
-///   1. Gossamer (`window.__gossamer_invoke`)  — production runtime
-///   2. Browser  (direct HTTP fetch)            — development fallback
-///
-/// All panel command modules should use:
-///   `let invoke = RuntimeBridge.invoke`
-
-// ---------------------------------------------------------------------------
-// Gossamer IPC binding
-// ---------------------------------------------------------------------------
-
-/// Gossamer IPC: injected by gossamer_channel_open() into the webview.
-/// Signature: (commandName: string, payload: object) => Promise<any>
-%%raw(`
-function isGossamerRuntime() {
-  return typeof window !== 'undefined'
-    && typeof window.__gossamer_invoke === 'function';
-}
-`)
-@val external isGossamerRuntime: unit => bool = "isGossamerRuntime"
-
-%%raw(`
-function gossamerInvoke(cmd, args) {
-  return window.__gossamer_invoke(cmd, args);
-}
-`)
-@val external gossamerInvoke: (string, 'a) => promise<'b> = "gossamerInvoke"
-
-// ---------------------------------------------------------------------------
-// Unified invoke — detects runtime and dispatches
-// ---------------------------------------------------------------------------
-
-/// The runtime currently in use. Cached after first detection for performance.
-type runtime =
-  | Gossamer
-  | BrowserOnly
-
-%%raw(`
-var _detectedRuntime = null;
-function detectRuntime() {
-  if (_detectedRuntime !== null) return _detectedRuntime;
-  if (typeof window !== 'undefined' && typeof window.__gossamer_invoke === 'function') {
-    _detectedRuntime = 'gossamer';
-  } else {
-    _detectedRuntime = 'browser';
-  }
-  return _detectedRuntime;
-}
-`)
-@val external detectRuntimeRaw: unit => string = "detectRuntime"
-
-/// Detect and return the current runtime as a typed variant.
-let currentRuntime = (): runtime => {
-  switch detectRuntimeRaw() {
-  | "gossamer" => Gossamer
-  | _ => BrowserOnly
-  }
-}
-
-/// Invoke a backend command through Gossamer.
-///
-/// - On Gossamer: calls `window.__gossamer_invoke(cmd, args)`
-/// - On browser:  rejects with a descriptive error
-///
-/// This is the primary function all panel command modules should use.
-let invoke = (cmd: string, args: 'a): promise<'b> => {
-  if isGossamerRuntime() {
-    gossamerInvoke(cmd, args)
-  } else {
-    // Return a rejected promise — do NOT use JsError.throwWithMessage which
-    // throws synchronously and crashes the TEA dispatch loop.
-    let err: exn = %raw(`new Error('No desktop runtime — "' + cmd + '" requires Gossamer')`)
-    Promise.reject(err)
-  }
-}
-
-/// Check whether the Gossamer desktop runtime is available.
-let hasDesktopRuntime = (): bool => {
-  isGossamerRuntime()
-}
-
-/// Get a human-readable name for the current runtime.
-let runtimeName = (): string => {
-  switch currentRuntime() {
-  | Gossamer => "Gossamer"
-  | BrowserOnly => "Browser"
-  }
-}
-
-// ---------------------------------------------------------------------------
-// Dialog abstraction — Gossamer dialogs
-// ---------------------------------------------------------------------------
-
-module Dialog = {
-  /// Open a file picker dialog through Gossamer IPC.
-  let openDialog = (opts: JSON.t): promise<Nullable.t<JSON.t>> => {
-    if isGossamerRuntime() {
-      gossamerInvoke("__gossamer_dialog_open", opts)
-    } else {
-      let err: exn = %raw(`new Error('No desktop runtime — file dialogs require Gossamer')`)
-      Promise.reject(err)
-    }
-  }
-
-  /// Open a save dialog through Gossamer IPC.
-  let save = (opts: JSON.t): promise<Nullable.t<JSON.t>> => {
-    if isGossamerRuntime() {
-      gossamerInvoke("__gossamer_dialog_save", opts)
-    } else {
-      let err: exn = %raw(`new Error('No desktop runtime — save dialogs require Gossamer')`)
-      Promise.reject(err)
-    }
-  }
-}
-
-// ---------------------------------------------------------------------------
-// Filesystem abstraction — Gossamer fs
-// ---------------------------------------------------------------------------
-
-module Fs = {
-  /// Read a text file from the local filesystem via Gossamer IPC.
-  let readTextFile = (path: string): promise<string> => {
-    if isGossamerRuntime() {
-      gossamerInvoke("__gossamer_fs_read_text", {"path": path})
-    } else {
-      let err: exn = %raw(`new Error('No desktop runtime — filesystem access requires Gossamer')`)
-      Promise.reject(err)
-    }
-  }
-
-  /// Write a text file to the local filesystem via Gossamer IPC.
-  let writeTextFile = (path: string, contents: string): promise<unit> => {
-    if isGossamerRuntime() {
-      gossamerInvoke("__gossamer_fs_write_text", {"path": path, "contents": contents})
-    } else {
-      let err: exn = %raw(`new Error('No desktop runtime — filesystem access requires Gossamer')`)
-      Promise.reject(err)
-    }
-  }
-}
-
-// ---------------------------------------------------------------------------
-// Utility — decode dialog path from Gossamer response format
-// ---------------------------------------------------------------------------
-
-/// Decode a dialog result into a file path string.
-/// Handles both single-path (String) and multi-path (Array) responses.
-let decodeDialogPath = (value: JSON.t): option<string> => {
-  switch JSON.Classify.classify(value) {
-  | String(path) => Some(path)
-  | Array(arr) =>
-    switch arr[0] {
-    | Some(item) =>
-      switch JSON.Classify.classify(item) {
-      | String(s) => Some(s)
-      | _ => None
-      }
-    | None => None
-    }
-  | _ => None
-  }
-}
diff --git a/src/core/RuntimeResolver.affine b/src/core/RuntimeResolver.affine
new file mode 100644
index 00000000..65bf75b3
--- /dev/null
+++ b/src/core/RuntimeResolver.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module RuntimeResolver;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/RuntimeResolver.res b/src/core/RuntimeResolver.res
deleted file mode 100644
index c7e2d31d..00000000
--- a/src/core/RuntimeResolver.res
+++ /dev/null
@@ -1,91 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// RuntimeResolver — Resolves panll:// URIs to the active runtime's IPC.
-///
-/// Panel manifests use `panll://service-id/path` as runtime-agnostic URIs.
-/// This module resolves them to actual IPC calls through the Gossamer runtime,
-/// or to direct HTTP in browser mode.
-///
-/// Used by the panel harness to dispatch data_source fetches and health checks.
-
-/// URI prefix for PanLL runtime-agnostic endpoints.
-let panllPrefix = "panll://"
-
-/// URI prefix for Gossamer-specific endpoints.
-let gossamerPrefix = "gossamer://"
-
-/// Parse a panll:// URI into service_id and path.
-/// Example: "panll://system-update/components" -> ("system-update", "/components")
-let parseUri = (uri: string): option<(string, string)> => {
-  let stripped = if String.startsWith(uri, panllPrefix) {
-    Some(String.sliceToEnd(uri, ~start=String.length(panllPrefix)))
-  } else if String.startsWith(uri, gossamerPrefix) {
-    Some(String.sliceToEnd(uri, ~start=String.length(gossamerPrefix)))
-  } else if String.startsWith(uri, "tauri://") {
-    // DEPRECATED: Legacy tauri:// URIs from pre-Gossamer era.
-    // Kept for backward compatibility — resolves to gossamer equivalent.
-    Some(String.sliceToEnd(uri, ~start=8))
-  } else {
-    None
-  }
-
-  switch stripped {
-  | None => None
-  | Some(rest) =>
-    let idx = String.indexOf(rest, "/")
-    if idx >= 0 {
-      let serviceId = String.slice(rest, ~start=0, ~end=idx)
-      let path = String.sliceToEnd(rest, ~start=idx)
-      Some((serviceId, path))
-    } else {
-      Some((rest, "/"))
-    }
-  }
-}
-
-/// Resolve a panll:// data source path to an IPC invoke command name.
-///
-/// Convention: panll://service-id/invoke/command_name -> invoke("command_name")
-/// This matches the Gossamer command naming used across all panels.
-let resolveInvokeCommand = (uri: string): option<string> => {
-  switch parseUri(uri) {
-  | None => None
-  | Some((_serviceId, path)) =>
-    if String.startsWith(path, "/invoke/") {
-      Some(String.sliceToEnd(path, ~start=String.length("/invoke/")))
-    } else {
-      None
-    }
-  }
-}
-
-/// Fetch data from a panll:// data source URI.
-/// Routes through RuntimeBridge.invoke to the active runtime.
-let fetch = (uri: string, body: option<JSON.t>): promise<string> => {
-  switch resolveInvokeCommand(uri) {
-  | Some(command) =>
-    switch body {
-    | Some(payload) => RuntimeBridge.invoke(command, payload)
-    | None => RuntimeBridge.invoke(command, ())
-    }
-  | None => Promise.reject(JsError.throwWithMessage(`Cannot resolve URI: ${uri}`))
-  }
-}
-
-/// Perform a health check for a service.
-/// Uses the service's health_check.path from the manifest.
-let healthCheck = (serviceId: string, _healthPath: string): promise<bool> => {
-  let command = serviceId ++ "_health"
-  RuntimeBridge.invoke(command, ())
-  ->Promise.then(_result => Promise.resolve(true))
-  ->Promise.catch(_err => Promise.resolve(false))
-}
-
-/// Get the runtime-specific endpoint URI for a service.
-/// Returns gossamer:// or http:// based on the active runtime.
-let resolvedEndpoint = (serviceId: string): string => {
-  switch RuntimeBridge.currentRuntime() {
-  | RuntimeBridge.Gossamer => gossamerPrefix ++ serviceId ++ "/bridge"
-  | RuntimeBridge.BrowserOnly => "http://localhost:8000/api/" ++ serviceId
-  }
-}
diff --git a/src/core/SafeDOMCore.affine b/src/core/SafeDOMCore.affine
new file mode 100644
index 00000000..af14d3f3
--- /dev/null
+++ b/src/core/SafeDOMCore.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module SafeDOMCore;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/SafeDOMCore.res b/src/core/SafeDOMCore.res
deleted file mode 100644
index ba3817bf..00000000
--- a/src/core/SafeDOMCore.res
+++ /dev/null
@@ -1,723 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-//
-// SafeDOMCore.res — Highest-assurance DOM mounting in the ReScript ecosystem.
-//
-// Defence-in-depth architecture with four independent safety layers:
-//
-//   Layer 1: DOMPurify (cure53) — battle-tested DOM-parser-based sanitisation.
-//            Handles mXSS, DOM clobbering, SVG/MathML vectors, encoding tricks.
-//            Falls back to built-in regex sanitiser if DOMPurify is not loaded.
-//
-//   Layer 2: Built-in regex sanitiser — expanded blocklist covering script,
-//            iframe, object, embed, form, base, meta, link, template, math,
-//            svg, event handlers (on*), javascript:/vbscript:/data: URLs,
-//            and CSS exfiltration via style attributes.
-//
-//   Layer 3: Structural validation — stack-based tag matching (not just
-//            count-based) detects misnesting like <b><i></b></i>. Size limits
-//            (1MB HTML, 255-char selectors). Selector character validation.
-//
-//   Layer 4: W3C Trusted Types — browser-engine-level enforcement. Even if
-//            layers 1-3 have a bug, the browser itself blocks innerHTML
-//            assignments that don't come through our "panll-safe-dom" policy.
-//            Zero DOM XSS incidents across 130+ Google services since 2019.
-//
-//   Plus: DOMParser-based mounting (mountParsed) that avoids innerHTML entirely,
-//         building DOM trees programmatically from parsed HTML.
-//
-// Audit trail: MountTracer records every validation, mount, and lifecycle event
-// with monotonic timestamps (performance.now) for ObservabilityEngine/OTEL/SARIF.
-//
-// Modernised for ReScript 12+ / @rescript/core (no Belt.*, no Js.* legacy APIs).
-// Original source: developer-ecosystem/rescript-ecosystem/rescript-dom-mounter/
-
-// ------------------------------------------------------------------
-// Public types
-// ------------------------------------------------------------------
-
-/// A CSS selector that has been validated for well-formedness.
-/// Wrapping in a variant prevents accidental use of unvalidated strings.
-type validSelector = ValidSelector(string)
-
-/// HTML content that has been sanitised and structurally validated.
-/// Only validated HTML can be passed to mount functions.
-type validHtml = ValidHTML(string)
-
-/// Result of a DOM mount operation.
-/// Pattern-match to handle each outcome:
-///   Mounted(el) — success, el is the mount point element
-///   MountPointNotFound(selector) — no element matched the selector
-///   InvalidSelector(reason) — selector failed validation
-///   InvalidHTML(reason) — HTML failed sanitisation or balance check
-type mountResult =
-  | Mounted(Dom.element)
-  | MountPointNotFound(string)
-  | InvalidSelector(string)
-  | InvalidHTML(string)
-
-/// Specification for a single mount operation in a batch.
-/// Pairs a CSS selector with the HTML content to inject.
-type mountSpec = {
-  selector: string,
-  html: string,
-}
-
-/// Sanitisation strategy used for a particular validation.
-/// Recorded in MountTracer for audit/debugging.
-type sanitisationMethod =
-  | DOMPurifyMethod // DOMPurify was available and used
-  | RegexFallback // DOMPurify unavailable, regex sanitiser used
-  | DualLayer // Both DOMPurify and regex ran (defence-in-depth)
-
-// ------------------------------------------------------------------
-// Runtime trace instrumentation
-// ------------------------------------------------------------------
-
-/// MountTracer records an append-only audit trail of DOM mount operations.
-/// Each entry captures what happened, detail context, and a monotonic timestamp.
-/// The trace feeds into PanLL's ObservabilityEngine for OTEL span export
-/// and SARIF finding generation.
-module MountTracer = {
-  /// A single trace entry.
-  type entry = {
-    event: string,
-    detail: string,
-    timestampMs: float,
-  }
-
-  /// Internal mutable log — append-only by design.
-  let logRef: ref<array<entry>> = ref([])
-
-  /// Monotonic timestamp via performance.now() if available, falls back
-  /// to Date.now(). performance.now() is not affected by clock adjustments
-  /// and guarantees monotonically increasing values for correct trace ordering.
-  let nowMs = (): float => {
-    %raw(`typeof performance !== 'undefined' && typeof performance.now === 'function' ? performance.now() : Date.now()`)
-  }
-
-  /// Append one entry to the audit log.
-  let appendEntry = entry => {
-    logRef := Array.concat(logRef.contents, [entry])
-    ()
-  }
-
-  /// Record a named event with detail context.
-  let record = (event: string, detail: string) => appendEntry({event, detail, timestampMs: nowMs()})
-
-  /// Return all recorded entries (read-only snapshot).
-  let entries = () => logRef.contents
-
-  /// Return the most recent entry, if any.
-  let latest = () => {
-    let current = logRef.contents
-    let len = Array.length(current)
-    if len === 0 {
-      None
-    } else {
-      current[len - 1]
-    }
-  }
-
-  /// Clear all entries (e.g. on hot reload or test reset).
-  let clear = () => logRef := []
-
-  /// Alias for entries() — returns the current snapshot.
-  let snapshot = () => logRef.contents
-
-  /// Total number of recorded entries.
-  let count = () => Array.length(logRef.contents)
-
-  /// Filter entries by event name prefix (e.g. "mount-" for all mount events).
-  let filterByPrefix = (prefix: string): array<entry> => {
-    logRef.contents->Array.filter(e => String.startsWith(e.event, prefix))
-  }
-}
-
-/// Internal string helpers.
-module SafeString = {
-  let trim = s => String.trim(s)
-  let length = s => String.length(s)
-}
-
-// ------------------------------------------------------------------
-// Proven selector validation
-// ------------------------------------------------------------------
-
-/// ProvenSelector validates CSS selectors before DOM queries.
-/// Rejects empty strings, overly long selectors (>255 chars),
-/// and strings containing characters outside the CSS identifier set.
-module ProvenSelector = {
-  type validated = validSelector
-
-  /// Regex matching characters NOT allowed in CSS selectors.
-  /// Permits: word chars (\w), hyphens, hash, dots, brackets, parens,
-  /// colons, combinators (>~+), equals, spaces, quotes, commas, asterisk.
-  let invalidSelectorRegex = /[^\w\-#\.\[\]():>~+= \"',*]/g
-
-  /// Log the outcome of a validation attempt.
-  let recordOutcome = (selector: string, outcome: result<validated, string>) => {
-    let detail = switch outcome {
-    | Ok(_) => "selector valid"
-    | Error(err) => err
-    }
-    MountTracer.record("selector-validation", selector ++ ";" ++ detail)
-  }
-
-  /// Validate a CSS selector string.
-  /// Returns Ok(ValidSelector(trimmed)) on success or Error(reason).
-  let validate = (selector: string): result<validated, string> => {
-    let trimmed = SafeString.trim(selector)
-    let len = SafeString.length(trimmed)
-    let outcome = if len === 0 {
-      Error("Selector cannot be empty")
-    } else if len > 255 {
-      Error("Selector exceeds maximum length (255 characters)")
-    } else if RegExp.test(invalidSelectorRegex, trimmed) {
-      RegExp.setLastIndex(invalidSelectorRegex, 0)
-      Error("Selector contains invalid CSS characters")
-    } else {
-      RegExp.setLastIndex(invalidSelectorRegex, 0)
-      Ok(ValidSelector(trimmed))
-    }
-    recordOutcome(trimmed, outcome)
-    outcome
-  }
-
-  /// Extract the raw string from a validated selector.
-  let toString = (ValidSelector(value)) => value
-}
-
-// ------------------------------------------------------------------
-// Proven HTML validation
-// ------------------------------------------------------------------
-
-/// ProvenHTML validates and sanitises HTML content before injection.
-///
-/// Sanitisation pipeline (defence-in-depth):
-///   1. DOMPurify (if available): DOM-parser-based sanitisation that handles
-///      mXSS, DOM clobbering, SVG/MathML vectors, encoding tricks.
-///   2. Built-in regex sanitiser (always runs): expanded blocklist covering
-///      20+ dangerous element/attribute patterns.
-///   3. Size check: reject content > 1MB (DoS prevention).
-///   4. Stack-based tag matching: detects misnesting, not just imbalance.
-module ProvenHTML = {
-  type validHtml = ValidHTML(string)
-  type validated = validHtml
-
-  /// Maximum allowed HTML size in bytes (1MB).
-  let maxSize = 1_048_576
-
-  /// Log the outcome of HTML validation.
-  let recordOutcome = (
-    html: string,
-    outcome: result<validated, string>,
-    method: sanitisationMethod,
-  ) => {
-    let detail = switch outcome {
-    | Ok(_) => "html valid"
-    | Error(err) => err
-    }
-    let methodStr = switch method {
-    | DOMPurifyMethod => "dompurify"
-    | RegexFallback => "regex-fallback"
-    | DualLayer => "dual-layer"
-    }
-    let summary = "size=" ++ Int.toString(SafeString.length(html)) ++ ";method=" ++ methodStr
-    MountTracer.record("html-validation", summary ++ ";" ++ detail)
-  }
-
-  /// Built-in regex sanitiser — expanded blocklist.
-  ///
-  /// Covers OWASP Top 10 DOM XSS vectors:
-  ///   - <script> tags and content (primary XSS vector)
-  ///   - <iframe> tags (clickjacking, cross-origin attacks)
-  ///   - <object>, <embed> (plugin-based code execution)
-  ///   - <form> (phishing via action= hijack)
-  ///   - <base> (base URL hijack redirects all relative URLs)
-  ///   - <meta http-equiv> (refresh redirect, CSP override attempts)
-  ///   - <link> (stylesheet injection for data exfiltration)
-  ///   - <template> (can hold unexecuted script payloads)
-  ///   - <math>, <svg> (namespace-based XSS via event handlers)
-  ///   - Event handler attributes (on*) — quoted and unquoted values
-  ///   - javascript: URLs (href/src/action payloads)
-  ///   - vbscript: URLs (legacy IE vector, still worth blocking)
-  ///   - data: URLs in src/href (can execute JS via data:text/html)
-  ///   - CSS exfiltration via style attributes containing url()
-  ///   - formaction attributes (form submission hijack)
-  ///   - xlink:href (SVG namespace XSS)
-  ///   - srcdoc attribute (iframe content injection)
-  ///
-  /// This runs AFTER DOMPurify (if available) as a second pass.
-  /// If DOMPurify is not available, this is the primary sanitiser.
-  let regexSanitise = (html: string): string => {
-    html
-    // -- Dangerous elements (remove with content) --
-    ->String.replaceRegExp(/<script[^>]*>[\s\S]*?<\/script>/gi, "")
-    ->String.replaceRegExp(/<iframe[^>]*>[\s\S]*?<\/iframe>/gi, "")
-    ->String.replaceRegExp(/<object[^>]*>[\s\S]*?<\/object>/gi, "")
-    ->String.replaceRegExp(/<embed[^>]*>[\s\S]*?<\/embed>/gi, "")
-    ->String.replaceRegExp(/<form[^>]*>[\s\S]*?<\/form>/gi, "")
-    ->String.replaceRegExp(/<math[^>]*>[\s\S]*?<\/math>/gi, "")
-    ->String.replaceRegExp(/<svg[^>]*>[\s\S]*?<\/svg>/gi, "")
-    ->String.replaceRegExp(/<template[^>]*>[\s\S]*?<\/template>/gi, "")
-    // -- Dangerous elements (self-closing / void) --
-    ->String.replaceRegExp(/<script[^>]*\/?>/gi, "")
-    ->String.replaceRegExp(/<iframe[^>]*\/?>/gi, "")
-    ->String.replaceRegExp(/<object[^>]*\/?>/gi, "")
-    ->String.replaceRegExp(/<embed[^>]*\/?>/gi, "")
-    ->String.replaceRegExp(/<base[^>]*\/?>/gi, "")
-    ->String.replaceRegExp(/<link[^>]*\/?>/gi, "")
-    ->String.replaceRegExp(/<meta[^>]*http-equiv[^>]*\/?>/gi, "")
-    // -- Dangerous attributes --
-    ->String.replaceRegExp(/\s+on\w+\s*=\s*[\"'][^\"']*[\"']/gi, "")
-    ->String.replaceRegExp(/\s+on\w+\s*=\s*[^\s>]+/gi, "")
-    ->String.replaceRegExp(/\s+formaction\s*=\s*[\"'][^\"']*[\"']/gi, "")
-    ->String.replaceRegExp(/\s+formaction\s*=\s*[^\s>]+/gi, "")
-    ->String.replaceRegExp(/\s+xlink:href\s*=\s*[\"'][^\"']*[\"']/gi, "")
-    ->String.replaceRegExp(/\s+srcdoc\s*=\s*[\"'][^\"']*[\"']/gi, "")
-    // -- Dangerous URL protocols --
-    ->String.replaceRegExp(/javascript\s*:/gi, "blocked:")
-    ->String.replaceRegExp(/vbscript\s*:/gi, "blocked:")
-    ->String.replaceRegExp(/\s+(src|href|action)\s*=\s*[\"']data:[^\"']*[\"']/gi, "")
-    // -- CSS exfiltration via style containing url() --
-    ->String.replaceRegExp(/style\s*=\s*[\"'][^\"']*url\s*\([^)]*\)[^\"']*[\"']/gi, "")
-  }
-
-  /// Full sanitisation pipeline: DOMPurify first (if available), then regex.
-  /// Returns (sanitised_html, method_used).
-  let sanitise = (html: string): (string, sanitisationMethod) => {
-    switch DOMPurify.sanitize(html) {
-    | Some(purified) =>
-      // DOMPurify handled the heavy lifting — run regex as second pass
-      let doubleSanitised = regexSanitise(purified)
-      (doubleSanitised, DualLayer)
-    | None =>
-      // DOMPurify not available — regex is the sole sanitiser
-      let sanitised = regexSanitise(html)
-      (sanitised, RegexFallback)
-    }
-  }
-
-  /// Extract tag names from HTML using a regex. Returns an array of
-  /// {name, isClosing, isSelfClosing} records.
-  type tagInfo = {
-    name: string,
-    isClosing: bool,
-    isSelfClosing: bool,
-  }
-
-  /// HTML void elements that have no closing tag (HTML spec).
-  /// These are excluded from stack-based matching.
-  let voidElements = [
-    "area",
-    "base",
-    "br",
-    "col",
-    "embed",
-    "hr",
-    "img",
-    "input",
-    "link",
-    "meta",
-    "param",
-    "source",
-    "track",
-    "wbr",
-  ]
-
-  /// Check if a tag name is a void element.
-  let isVoidElement = (name: string): bool => {
-    Array.includes(voidElements, String.toLowerCase(name))
-  }
-
-  /// Stack-based tag matching for well-formedness.
-  /// Unlike simple open/close counting, this detects misnesting:
-  ///   <b><i></b></i> — balanced counts but malformed structure.
-  ///
-  /// Returns Ok() if all tags are properly nested, Error(description)
-  /// if misnesting or unclosed tags are found.
-  let checkTagNesting = (_html: string): result<unit, string> => {
-    // Extract all tags from the HTML
-    // Use raw JS for stack-based tag matching to avoid ReScript regex
-    // literal escaping issues. The algorithm:
-    //   1. Extract all tags with a global regex
-    //   2. For each tag, determine if it's opening, closing, or self-closing
-    //   3. Push opening tags onto a stack, pop and verify on closing tags
-    //   4. Void elements (br, img, hr, etc.) are skipped
-    //   5. Return null on success, or an error string on mismatch
-    let nestingResult: Nullable.t<string> = %raw(`
-      (function() {
-        var voids = ["area","base","br","col","embed","hr","img","input","link","meta","param","source","track","wbr"];
-        var re = /<\/?([a-zA-Z][a-zA-Z0-9]*)[^>]*\/?>/g;
-        var stack = [];
-        var match;
-        while ((match = re.exec(_html)) !== null) {
-          var full = match[0];
-          var tag = match[1].toLowerCase();
-          if (voids.indexOf(tag) !== -1) continue;
-          if (full.charAt(1) === '/') {
-            // Closing tag
-            if (stack.length === 0) return 'Unexpected closing tag </' + tag + '> with no matching open tag';
-            var top = stack[stack.length - 1];
-            if (top !== tag) return 'Misnested tags: expected </' + top + '> but found </' + tag + '>';
-            stack.pop();
-          } else if (full.charAt(full.length - 2) === '/') {
-            // Self-closing — skip
-          } else {
-            stack.push(tag);
-          }
-        }
-        if (stack.length > 0) return 'Unclosed tags: ' + stack.join(', ');
-        return null;
-      })()
-    `)
-    switch Nullable.toOption(nestingResult) {
-    | Some(err) => Error(err)
-    | None => Ok()
-    }
-  }
-
-  /// Validate HTML content for safety and well-formedness.
-  ///
-  /// Pipeline:
-  ///   1. Sanitise through DOMPurify (if available) + regex (always)
-  ///   2. Check size limit (1MB max)
-  ///   3. Stack-based tag nesting verification
-  ///
-  /// Returns Ok(ValidHTML(sanitised)) or Error(reason).
-  let validate = (html: string): result<validated, string> => {
-    let (sanitised, method) = sanitise(html)
-    let len = SafeString.length(sanitised)
-    let outcome = if len > maxSize {
-      Error("HTML content exceeds maximum size (1MB)")
-    } else {
-      switch checkTagNesting(sanitised) {
-      | Error(nestingError) => Error(nestingError)
-      | Ok() => Ok(ValidHTML(sanitised))
-      }
-    }
-    recordOutcome(sanitised, outcome, method)
-    outcome
-  }
-
-  /// Extract the raw string from validated HTML.
-  let toString = (ValidHTML(value)) => value
-}
-
-// ------------------------------------------------------------------
-// Trusted Types integration
-// ------------------------------------------------------------------
-
-/// Initialise the Trusted Types policy at app startup.
-/// Safe to call multiple times (idempotent).
-/// Returns true if Trusted Types was successfully initialised.
-let initTrustedTypes = (): bool => {
-  let result = TrustedTypes.init()
-  if result {
-    MountTracer.record("trusted-types-init", "panll-safe-dom policy created")
-  } else if TrustedTypes.isSupported() {
-    MountTracer.record("trusted-types-init", "policy already exists or creation failed")
-  } else {
-    MountTracer.record("trusted-types-init", "browser does not support Trusted Types")
-  }
-  result
-}
-
-// ------------------------------------------------------------------
-// DOM mounting helpers
-// ------------------------------------------------------------------
-
-/// Query the DOM for an element matching a validated selector.
-let findMountPoint = (selector: ProvenSelector.validated): option<Dom.element> => {
-  let _selectorStr = ProvenSelector.toString(selector)
-  let element: Nullable.t<Dom.element> = %raw(`document.querySelector(_selectorStr)`)
-  Nullable.toOption(element)
-}
-
-/// Mount validated HTML into a validated selector's element.
-/// Uses Trusted Types if available for browser-engine-level enforcement.
-/// Returns Mounted(element) on success or the specific failure reason.
-let mount = (selector: ProvenSelector.validated, html: ProvenHTML.validated): mountResult => {
-  let selectorStr = ProvenSelector.toString(selector)
-  let htmlStr = ProvenHTML.toString(html)
-  MountTracer.record("mount-attempt", "selector=" ++ selectorStr)
-  switch findMountPoint(selector) {
-  | None =>
-    MountTracer.record("mount-failure", "selector=" ++ selectorStr ++ ";reason=mount-point-missing")
-    MountPointNotFound(selectorStr)
-  | Some(element) =>
-    // Use Trusted Types if policy is initialised, otherwise raw string
-    if TrustedTypes.hasPanllPolicy() {
-      let _trusted = TrustedTypes.createHTML(htmlStr)
-      let _ = %raw(`element.innerHTML = _trusted`)
-      MountTracer.record("mount-method", "trusted-types")
-    } else {
-      let _htmlStr = htmlStr
-      let _ = %raw(`element.innerHTML = _htmlStr`)
-      MountTracer.record("mount-method", "direct-string")
-    }
-    let identity: string = switch %raw(`element.id`) {
-    | "" => "anonymous"
-    | id => id
-    }
-    MountTracer.record("mount-success", "selector=" ++ selectorStr ++ ";element=" ++ identity)
-    Mounted(element)
-  }
-}
-
-/// Mount using DOMParser instead of innerHTML — avoids the innerHTML sink
-/// entirely by parsing HTML into a DocumentFragment and appending child nodes.
-///
-/// This is the safest possible mounting strategy because:
-///   1. DOMParser does not execute scripts in parsed content
-///   2. No innerHTML assignment means Trusted Types enforcement is unnecessary
-///   3. Event handlers in parsed HTML are NOT activated
-///
-/// Use this for untrusted HTML content. For trusted/pre-validated content,
-/// regular mount() is faster.
-let mountParsed = (selector: ProvenSelector.validated, html: ProvenHTML.validated): mountResult => {
-  let selectorStr = ProvenSelector.toString(selector)
-  let _htmlStr = ProvenHTML.toString(html)
-  MountTracer.record("mount-parsed-attempt", "selector=" ++ selectorStr)
-  switch findMountPoint(selector) {
-  | None =>
-    MountTracer.record(
-      "mount-parsed-failure",
-      "selector=" ++ selectorStr ++ ";reason=mount-point-missing",
-    )
-    MountPointNotFound(selectorStr)
-  | Some(element) =>
-    // Parse HTML into a document, extract body's children,
-    // clear the target element, then append each child node.
-    // DOMParser does not execute scripts in parsed content.
-    let _ = %raw(`
-      (function() {
-        var parser = new DOMParser();
-        var doc = parser.parseFromString(_htmlStr, 'text/html');
-        element.innerHTML = '';
-        var body = doc.body;
-        while (body.firstChild) {
-          element.appendChild(body.firstChild);
-        }
-      })()
-    `)
-    let identity: string = switch %raw(`element.id`) {
-    | "" => "anonymous"
-    | id => id
-    }
-    MountTracer.record(
-      "mount-parsed-success",
-      "selector=" ++ selectorStr ++ ";element=" ++ identity ++ ";method=domparser",
-    )
-    Mounted(element)
-  }
-}
-
-/// Convenience: validate selector and HTML, then mount.
-let mountString = (selector: string, html: string): mountResult => {
-  switch ProvenSelector.validate(selector) {
-  | Error(e) => InvalidSelector(e)
-  | Ok(validSelector) =>
-    switch ProvenHTML.validate(html) {
-    | Error(e) => InvalidHTML(e)
-    | Ok(validHtml) => mount(validSelector, validHtml)
-    }
-  }
-}
-
-/// Convenience: validate and mount via DOMParser (no innerHTML).
-let mountStringParsed = (selector: string, html: string): mountResult => {
-  switch ProvenSelector.validate(selector) {
-  | Error(e) => InvalidSelector(e)
-  | Ok(validSelector) =>
-    switch ProvenHTML.validate(html) {
-    | Error(e) => InvalidHTML(e)
-    | Ok(validHtml) => mountParsed(validSelector, validHtml)
-    }
-  }
-}
-
-/// Mount with success/error callbacks for ergonomic error handling.
-let mountSafe = (
-  selector: string,
-  html: string,
-  ~onSuccess: Dom.element => unit,
-  ~onError: string => unit,
-): unit =>
-  switch mountString(selector, html) {
-  | Mounted(el) => onSuccess(el)
-  | MountPointNotFound(s) => onError(`Mount point not found: ${s}`)
-  | InvalidSelector(e) => onError(`Invalid selector: ${e}`)
-  | InvalidHTML(e) => onError(`Invalid HTML: ${e}`)
-  }
-
-/// Atomically mount to multiple selectors. All validations pass before
-/// any DOM mutation — if any spec fails, no DOM changes occur.
-let mountBatch = (specs: array<mountSpec>): result<array<Dom.element>, string> => {
-  let validatedSpecs = Array.map(specs, spec =>
-    switch ProvenSelector.validate(spec.selector) {
-    | Error(e) => Error(`Selector validation failed for "${spec.selector}": ${e}`)
-    | Ok(validSelector) =>
-      switch ProvenHTML.validate(spec.html) {
-      | Error(e) => Error(`HTML validation failed for "${spec.selector}": ${e}`)
-      | Ok(validHtml) => Ok((validSelector, validHtml))
-      }
-    }
-  )
-
-  let firstError = Array.find(validatedSpecs, spec =>
-    switch spec {
-    | Error(_) => true
-    | Ok(_) => false
-    }
-  )
-
-  switch firstError {
-  | Some(Error(err)) =>
-    MountTracer.record("batch-mount-validation-failure", err)
-    Error(err)
-  | _ =>
-    let elements: array<Dom.element> = []
-    let error = ref(None)
-
-    Array.forEach(validatedSpecs, spec => {
-      if Option.isNone(error.contents) {
-        switch spec {
-        | Ok((validSelector, validHtml)) =>
-          switch mount(validSelector, validHtml) {
-          | Mounted(el) => Array.push(elements, el)->ignore
-          | MountPointNotFound(reason) =>
-            let msg = `Batch mount failed: ${reason}`
-            MountTracer.record("batch-mount-failure", msg)
-            error := Some(msg)
-          | InvalidSelector(err) =>
-            let msg = `Batch mount invalid selector: ${err}`
-            MountTracer.record("batch-mount-failure", msg)
-            error := Some(msg)
-          | InvalidHTML(err) =>
-            let msg = `Batch mount invalid HTML: ${err}`
-            MountTracer.record("batch-mount-failure", msg)
-            error := Some(msg)
-          }
-        | Error(_) => ()
-        }
-      }
-    })
-
-    switch error.contents {
-    | Some(err) => Error(err)
-    | None =>
-      MountTracer.record("batch-mount-success", "count=" ++ Int.toString(Array.length(elements)))
-      Ok(elements)
-    }
-  }
-}
-
-/// Execute callback when DOM is ready (DOMContentLoaded or already loaded).
-let onDOMReady = (callback: unit => unit): unit => {
-  MountTracer.record("dom-ready-check", "scheduling")
-  let readyState: string = %raw(`document.readyState`)
-  if readyState === "complete" || readyState === "interactive" {
-    callback()
-  } else {
-    let _ = %raw(`document.addEventListener('DOMContentLoaded', callback)`)
-    MountTracer.record("dom-ready-listen", "waiting for DOMContentLoaded")
-  }
-}
-
-/// Mount HTML to a selector once the DOM is ready.
-let mountWhenReady = (
-  ~selector: string,
-  ~html: string,
-  ~onSuccess: Dom.element => unit,
-  ~onError: string => unit,
-): unit => onDOMReady(() => mountSafe(selector, html, ~onSuccess, ~onError))
-
-// ------------------------------------------------------------------
-// Lifecycle: unmount and remount
-// ------------------------------------------------------------------
-
-/// Clear content from a mount point. Records unmount to MountTracer.
-let unmount = (selector: ProvenSelector.validated): mountResult => {
-  let selectorStr = switch selector {
-  | ValidSelector(s) => s
-  }
-  MountTracer.record("unmount_attempt", selectorStr)
-  let el = findMountPoint(selector)
-  switch el {
-  | None =>
-    MountTracer.record("unmount_not_found", selectorStr)
-    MountPointNotFound(selectorStr)
-  | Some(element) =>
-    let _ = %raw(`element.innerHTML = ""`)
-    MountTracer.record("unmount_success", selectorStr)
-    Mounted(element)
-  }
-}
-
-/// Atomic content swap: validates new content before unmounting old.
-/// If validation fails, existing content is preserved.
-let remount = (selector: string, html: string): mountResult => {
-  switch ProvenSelector.validate(selector) {
-  | Error(e) => InvalidSelector(e)
-  | Ok(validSelector) =>
-    switch ProvenHTML.validate(html) {
-    | Error(e) => InvalidHTML(e)
-    | Ok(validHtml) =>
-      let _ = unmount(validSelector)
-      mount(validSelector, validHtml)
-    }
-  }
-}
-
-// ------------------------------------------------------------------
-// CSP nonce support
-// ------------------------------------------------------------------
-
-/// Mount with CSP nonce applied to inline style tags.
-/// Note: script tags are stripped by sanitisation, so nonce only applies
-/// to style tags that survive validation.
-let mountWithNonce = (selector: string, html: string, ~nonce: string): mountResult => {
-  switch ProvenSelector.validate(selector) {
-  | Error(e) => InvalidSelector(e)
-  | Ok(validSelector) =>
-    let noncedHtml = html->String.replaceRegExp(/<style/gi, `<style nonce="${nonce}"`)
-    switch ProvenHTML.validate(noncedHtml) {
-    | Error(e) => InvalidHTML(e)
-    | Ok(validHtml) =>
-      MountTracer.record("mount_with_nonce", nonce)
-      mount(validSelector, validHtml)
-    }
-  }
-}
-
-// ------------------------------------------------------------------
-// Diagnostics
-// ------------------------------------------------------------------
-
-/// Report the current safety layer status.
-/// Returns a record describing which layers are active.
-type safetyReport = {
-  dompurifyAvailable: bool,
-  dompurifyVersion: option<string>,
-  trustedTypesSupported: bool,
-  trustedTypesPolicyActive: bool,
-  regexSanitiserActive: bool,
-  stackBasedNesting: bool,
-  traceEntryCount: int,
-}
-
-/// Generate a report of all active safety layers.
-/// Useful for PanLL's diagnostics panel and CI health checks.
-let safetyDiagnostics = (): safetyReport => {
-  {
-    dompurifyAvailable: DOMPurify.isAvailable(),
-    dompurifyVersion: DOMPurify.version(),
-    trustedTypesSupported: TrustedTypes.isSupported(),
-    trustedTypesPolicyActive: TrustedTypes.hasPanllPolicy(),
-    regexSanitiserActive: true, // Always active as fallback/second-pass
-    stackBasedNesting: true, // Always active
-    traceEntryCount: MountTracer.count(),
-  }
-}
diff --git a/src/core/SafeMount.affine b/src/core/SafeMount.affine
new file mode 100644
index 00000000..d06f70a5
--- /dev/null
+++ b/src/core/SafeMount.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module SafeMount;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/SafeMount.res b/src/core/SafeMount.res
deleted file mode 100644
index 306f3020..00000000
--- a/src/core/SafeMount.res
+++ /dev/null
@@ -1,148 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-//
-// SafeMount.res — Bridge between SafeDOMCore and PanLL's TEA runtime.
-//
-// Connects the four-layer DOM safety architecture to PanLL's systems:
-//
-//   1. Mount point validation — ProvenSelector validates "#app" before
-//      the TEA runtime queries the DOM.
-//
-//   2. Audit trail → ObservabilityEngine — MountTracer events become OTEL
-//      spans and SARIF findings via formatTraceAsOtelSpans/formatTraceAsSarif.
-//
-//   3. DOM readiness — SafeDOM.onDOMReady ensures TEA mounts after
-//      DOMContentLoaded.
-//
-//   4. Raw HTML mounting — SafeDOM.mountString/mountParsed for panels
-//      that inject pre-rendered HTML (markdown, code highlight, etc.).
-//
-//   5. Diagnostics — safetyReport for the diagnostics panel.
-//
-//   6. Trusted Types initialisation — call initSafety() at app startup.
-
-/// Initialise all safety layers. Call once at app startup.
-/// Returns the safety diagnostics report.
-let initSafety = (): SafeDOMCore.safetyReport => {
-  // Initialise Trusted Types policy (idempotent)
-  let _ = SafeDOMCore.initTrustedTypes()
-  // Log initialisation
-  SafeDOMCore.MountTracer.record("safe-mount-init", "all safety layers initialised")
-  // Return diagnostics
-  SafeDOMCore.safetyDiagnostics()
-}
-
-/// Validate a selector and find the corresponding DOM element.
-/// Returns Ok(element) if the selector is valid and the element exists,
-/// Error(reason) otherwise. All outcomes are traced via MountTracer.
-let validateAndFind = (selector: string): result<Tea_Render.domElement, string> => {
-  switch SafeDOMCore.ProvenSelector.validate(selector) {
-  | Error(reason) => Error(`Invalid mount selector "${selector}": ${reason}`)
-  | Ok(validSelector) =>
-    let selectorStr = SafeDOMCore.ProvenSelector.toString(validSelector)
-    SafeDOMCore.MountTracer.record("tea-mount-lookup", "selector=" ++ selectorStr)
-    switch Tea_Render.querySelector(selectorStr) {
-    | None =>
-      SafeDOMCore.MountTracer.record("tea-mount-missing", "selector=" ++ selectorStr)
-      Error(`Mount point not found: ${selectorStr}`)
-    | Some(el) =>
-      SafeDOMCore.MountTracer.record("tea-mount-found", "selector=" ++ selectorStr)
-      Ok(el)
-    }
-  }
-}
-
-/// Record a TEA lifecycle event in the mount trace.
-let trace = (event: string, detail: string): unit => {
-  SafeDOMCore.MountTracer.record(event, detail)
-}
-
-/// Get the full mount audit trail for the ObservabilityEngine.
-let getAuditTrail = (): array<SafeDOMCore.MountTracer.entry> => {
-  SafeDOMCore.MountTracer.entries()
-}
-
-/// Clear the audit trail (e.g. on app restart or hot reload).
-let clearAuditTrail = (): unit => {
-  SafeDOMCore.MountTracer.clear()
-}
-
-/// Mount raw HTML safely into a selector (innerHTML-based, with Trusted Types).
-let mountRawHtml = (selector: string, html: string): SafeDOMCore.mountResult => {
-  SafeDOMCore.mountString(selector, html)
-}
-
-/// Mount raw HTML via DOMParser (no innerHTML sink at all).
-/// Safest option for untrusted content.
-let mountRawHtmlParsed = (selector: string, html: string): SafeDOMCore.mountResult => {
-  SafeDOMCore.mountStringParsed(selector, html)
-}
-
-/// Remount raw HTML atomically — validates before unmounting old content.
-let remountRawHtml = (selector: string, html: string): SafeDOMCore.mountResult => {
-  SafeDOMCore.remount(selector, html)
-}
-
-/// Execute a callback once the DOM is ready.
-let whenReady = (callback: unit => unit): unit => {
-  SafeDOMCore.onDOMReady(callback)
-}
-
-/// Get current safety layer diagnostics.
-let diagnostics = (): SafeDOMCore.safetyReport => {
-  SafeDOMCore.safetyDiagnostics()
-}
-
-// ------------------------------------------------------------------
-// ObservabilityEngine integration
-// ------------------------------------------------------------------
-
-/// Convert MountTracer entries to OTEL-compatible JSON spans.
-/// Each trace entry becomes one span with SafeDOM-specific attributes.
-/// Returns a JSON string in OTLP ResourceSpans format.
-let formatTraceAsOtelSpans = (): string => {
-  let entries = SafeDOMCore.MountTracer.entries()
-  let spans =
-    entries
-    ->Array.mapWithIndex((entry, idx) => {
-      let spanId = "safedom" ++ String.padStart(Int.toString(idx), 10, "0")
-      `{"traceId":"safedom-mount-trace","spanId":"${spanId}","operationName":"${entry.event}","startTimeUnixNano":"${Float.toString(
-          entry.timestampMs *. 1_000_000.0,
-        )}","attributes":[{"key":"safedom.event","value":{"stringValue":"${entry.event}"}},{"key":"safedom.detail","value":{"stringValue":"${entry.detail}"}}]}`
-    })
-    ->Array.join(",")
-  `{"resourceSpans":[{"resource":{"attributes":[{"key":"service.name","value":{"stringValue":"panll-safedom"}}]},"scopeSpans":[{"scope":{"name":"panll.safedom","version":"1.0.0"},"spans":[${spans}]}]}]}`
-}
-
-/// Convert mount failures in the trace to SARIF findings.
-/// Mount failures become error-level results; validation failures
-/// become warning-level results.
-let formatTraceAsSarif = (): string => {
-  let entries = SafeDOMCore.MountTracer.entries()
-  let failures =
-    entries->Array.filter(e =>
-      String.includes(e.event, "failure") ||
-      String.includes(e.event, "not_found") ||
-      String.includes(e.event, "invalid")
-    )
-  let results =
-    failures
-    ->Array.mapWithIndex((entry, idx) => {
-      let ruleId = `SAFEDOM${Int.toString(idx + 1)->String.padStart(3, "0")}`
-      let level = if String.includes(entry.event, "failure") {
-        "error"
-      } else {
-        "warning"
-      }
-      `{"ruleId":"${ruleId}","level":"${level}","message":{"text":"[${entry.event}] ${entry.detail}"},"locations":[{"physicalLocation":{"artifactLocation":{"uri":"safedom://mount-trace"}}}]}`
-    })
-    ->Array.join(",")
-  let rules =
-    failures
-    ->Array.mapWithIndex((_entry, idx) => {
-      let ruleId = `SAFEDOM${Int.toString(idx + 1)->String.padStart(3, "0")}`
-      `{"id":"${ruleId}","shortDescription":{"text":"SafeDOM mount safety finding"}}`
-    })
-    ->Array.join(",")
-  `{"$schema":"https://raw.githubusercontent.com/oasis-tcs/sarif-spec/main/sarif-2.1/schema/sarif-schema-2.1.0.json","version":"2.1.0","runs":[{"tool":{"driver":{"name":"panll-safedom","version":"1.0.0","rules":[${rules}]}},"results":[${results}]}]}`
-}
diff --git a/src/core/ScriptGistEngine.affine b/src/core/ScriptGistEngine.affine
new file mode 100644
index 00000000..e18bdcd4
--- /dev/null
+++ b/src/core/ScriptGistEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ScriptGistEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/ScriptGistEngine.res b/src/core/ScriptGistEngine.res
deleted file mode 100644
index add2893d..00000000
--- a/src/core/ScriptGistEngine.res
+++ /dev/null
@@ -1,378 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL ScriptGistEngine — Pure computation for the Script Gist system.
-///
-/// Handles gist creation, search, filtering, template expansion, token
-/// estimation, MCP tool schema generation, and execution target resolution.
-/// All functions are pure — side effects (save, load, execute) are in commands.
-
-open ScriptGistModel
-
-/// Category tab labels.
-let categoryLabel = (cat: gistCategory): string =>
-  switch cat {
-  | GistAll => "All"
-  | GistQueries => "Queries"
-  | GistProofs => "Proofs"
-  | GistAutomation => "Automation"
-  | GistConfig => "Config"
-  | GistTemplates => "Templates"
-  }
-
-/// All category tabs.
-let allCategories: array<gistCategory> = [
-  GistAll,
-  GistQueries,
-  GistProofs,
-  GistAutomation,
-  GistConfig,
-  GistTemplates,
-]
-
-/// Language label for display.
-let languageLabel = (lang: gistLanguage): string =>
-  switch lang {
-  | GistVcl => "VCL"
-  | GistKql => "KQL"
-  | GistGql => "GQL"
-  | GistReScript => "ReScript"
-  | GistGleam => "Gleam"
-  | GistIdris2 => "Idris2"
-  | GistNickel => "Nickel"
-  | GistShell => "Shell"
-  | GistOcl => "OCL"
-  }
-
-/// Language file extension.
-let languageExt = (lang: gistLanguage): string =>
-  switch lang {
-  | GistVcl => ".vcl"
-  | GistKql => ".kql"
-  | GistGql => ".gql"
-  | GistReScript => ".res"
-  | GistGleam => ".gleam"
-  | GistIdris2 => ".idr"
-  | GistNickel => ".ncl"
-  | GistShell => ".sh"
-  | GistOcl => ".ocl"
-  }
-
-/// CSS colour class for language badge.
-let languageColour = (lang: gistLanguage): string =>
-  switch lang {
-  | GistVcl | GistKql | GistGql => "text-cyan-400"
-  | GistReScript => "text-red-400"
-  | GistGleam => "text-pink-400"
-  | GistIdris2 => "text-purple-400"
-  | GistNickel => "text-amber-400"
-  | GistShell => "text-green-400"
-  | GistOcl => "text-blue-400"
-  }
-
-/// Resolve the default execution target for a language.
-let defaultTarget = (lang: gistLanguage): gistTarget =>
-  switch lang {
-  | GistVcl | GistKql | GistGql => TargetNqc
-  | GistIdris2 | GistOcl => TargetEchidna
-  | GistShell => TargetShell
-  | GistReScript | GistGleam | GistNickel => TargetDeno
-  }
-
-/// Resolve the category a gist belongs to based on its language.
-let languageCategory = (lang: gistLanguage): gistCategory =>
-  switch lang {
-  | GistVcl | GistKql | GistGql => GistQueries
-  | GistIdris2 | GistOcl => GistProofs
-  | GistShell | GistReScript => GistAutomation
-  | GistNickel | GistGleam => GistConfig
-  }
-
-/// Estimate token count for a string (rough: ~4 chars per token).
-let estimateTokens = (text: string): int => {
-  let len = String.length(text)
-  if len === 0 {
-    0
-  } else {
-    Int.fromFloat(Math.ceil(Int.toFloat(len) /. 4.0))
-  }
-}
-
-/// Generate the MCP tool schema JSON for a gist (for tool discovery).
-/// This is what gets advertised to LLMs so they can invoke the gist.
-let generateMcpToolJson = (gist: scriptGist): string => {
-  let inputProps =
-    gist.schema.inputs
-    ->Array.map(p => {
-      "\"" ++
-      p.name ++
-      "\": {\"type\": \"" ++
-      p.schemaType ++
-      "\", \"description\": \"" ++
-      p.description ++ "\"}"
-    })
-    ->Array.join(", ")
-  let required =
-    gist.schema.inputs
-    ->Array.filter(p => p.required)
-    ->Array.map(p => "\"" ++ p.name ++ "\"")
-    ->Array.join(", ")
-  "{" ++
-  "\"name\": \"" ++
-  gist.schema.toolName ++
-  "\", " ++
-  "\"description\": \"" ++
-  gist.schema.summary ++
-  "\", " ++
-  "\"input_schema\": {" ++
-  "\"type\": \"object\", " ++
-  "\"properties\": {" ++
-  inputProps ++
-  "}, " ++
-  "\"required\": [" ++
-  required ++
-  "]" ++
-  "}" ++ "}"
-}
-
-/// Estimate the token cost of including a gist's schema in LLM context.
-let schemaTokenCost = (schema: gistSchema): int => {
-  let base = estimateTokens(schema.toolName) + estimateTokens(schema.summary)
-  let paramCost =
-    schema.inputs->Array.reduce(0, (acc, p) =>
-      acc + estimateTokens(p.name) + estimateTokens(p.description) + 5
-    )
-  base + paramCost + 20 // overhead for JSON structure
-}
-
-/// Expand a template by replacing `{{placeholder}}` markers with values.
-let expandTemplate = (template: gistTemplate, values: array<(string, string)>): string => {
-  Array.reduce(values, template.templateCode, (code, (key, value)) => {
-    let placeholder = "{{" ++ key ++ "}}"
-    // Manual replace since String.replaceAll may not exist
-    let parts = String.split(code, placeholder)
-    Array.join(parts, value)
-  })
-}
-
-/// Filter gists by category.
-let filterByCategory = (gists: array<scriptGist>, cat: gistCategory): array<scriptGist> =>
-  switch cat {
-  | GistAll => gists
-  | GistTemplates => [] // Templates are separate
-  | cat => gists->Array.filter(g => languageCategory(g.language) === cat)
-  }
-
-/// Filter gists by search text (matches title, tags, tool name).
-let filterBySearch = (gists: array<scriptGist>, query: string): array<scriptGist> => {
-  if String.trim(query) === "" {
-    gists
-  } else {
-    let q = String.toLowerCase(query)
-    gists->Array.filter(g => {
-      String.includes(String.toLowerCase(g.title), q) ||
-      String.includes(String.toLowerCase(g.schema.toolName), q) ||
-      g.tags->Array.some(t => String.includes(String.toLowerCase(t), q))
-    })
-  }
-}
-
-/// Sort gists.
-let sortGists = (gists: array<scriptGist>, sortBy: gistSortBy): array<scriptGist> => {
-  let sorted = Array.copy(gists)
-  sorted->Array.sort((a, b) =>
-    switch sortBy {
-    | SortByName => String.compare(a.title, b.title)
-    | SortByModified => Float.compare(b.modifiedAt, a.modifiedAt)
-    | SortByLanguage => String.compare(languageLabel(a.language), languageLabel(b.language))
-    | SortByRunCount => Int.compare(Array.length(b.history), Array.length(a.history))
-    }
-  )
-  sorted
-}
-
-/// Find a gist by ID.
-let findGist = (gists: array<scriptGist>, id: string): option<scriptGist> =>
-  gists->Array.find(g => g.id === id)
-
-/// Count gists by category.
-let countByCategory = (gists: array<scriptGist>, cat: gistCategory): int =>
-  filterByCategory(gists, cat)->Array.length
-
-/// Visibility label.
-let visibilityLabel = (vis: gistVisibility): string =>
-  switch vis {
-  | Private => "Private"
-  | Local => "Local"
-  | Repo => "Repo"
-  | Published => "Published"
-  }
-
-/// Target label.
-let targetLabel = (target: gistTarget): string =>
-  switch target {
-  | TargetDeno => "Deno Sandbox"
-  | TargetNqc => "NQC Proxy"
-  | TargetEchidna => "ECHIDNA"
-  | TargetBoj(cart) => "BoJ: " ++ cart
-  | TargetShell => "Shell"
-  }
-
-/// Create a new empty gist with sensible defaults.
-let newGist = (id: string, title: string, language: gistLanguage): scriptGist => {
-  {
-    id,
-    title,
-    code: "",
-    language,
-    schema: {
-      toolName: String.replaceAll(String.toLowerCase(title), " ", "-"),
-      summary: title,
-      inputs: [],
-      outputDescription: "Execution result",
-      estimatedTokens: 0,
-    },
-    target: defaultTarget(language),
-    visibility: Private,
-    version: 1,
-    tags: [],
-    createdAt: Date.now(),
-    modifiedAt: Date.now(),
-    history: [],
-    pinned: false,
-  }
-}
-
-/// Built-in templates for common operations.
-let builtinTemplates: array<gistTemplate> = [
-  {
-    id: "tpl-vcl-query",
-    name: "VCL Query",
-    description: "VeriSimDB entity query with modality filter",
-    templateCode: "SELECT * FROM entities\nWHERE modality = '{{modality}}'\nLIMIT {{limit}};",
-    language: GistVcl,
-    target: TargetNqc,
-    placeholders: ["modality", "limit"],
-  },
-  {
-    id: "tpl-ocl-invariant",
-    name: "OCL Invariant",
-    description: "OCL invariant constraint for enterprise model checking",
-    templateCode: "context {{context}}\ninv {{name}}:\n  {{expression}}",
-    language: GistOcl,
-    target: TargetEchidna,
-    placeholders: ["context", "name", "expression"],
-  },
-  {
-    id: "tpl-proof-obligation",
-    name: "Proof Obligation",
-    description: "Idris2 proof obligation for ECHIDNA dispatch",
-    templateCode: "module {{module}}\n\n{{name}} : {{type}}\n{{name}} = {{proof}}",
-    language: GistIdris2,
-    target: TargetEchidna,
-    placeholders: ["module", "name", "type", "proof"],
-  },
-  {
-    id: "tpl-automation-rule",
-    name: "Automation Script",
-    description: "ReScript automation script for panel orchestration",
-    templateCode: "// Automation: {{description}}\nlet run = () => {\n  {{body}}\n}",
-    language: GistReScript,
-    target: TargetDeno,
-    placeholders: ["description", "body"],
-  },
-  {
-    id: "tpl-nickel-config",
-    name: "Nickel Config",
-    description: "Nickel configuration template with type contracts",
-    templateCode: "let config : {{contract}} = {\n  {{fields}}\n}\nin config",
-    language: GistNickel,
-    target: TargetDeno,
-    placeholders: ["contract", "fields"],
-  },
-  {
-    id: "tpl-shell-health",
-    name: "Health Check Script",
-    description: "Shell script to check service health endpoints",
-    templateCode: "#!/bin/sh\n# Health check: {{service}}\ncurl -sf {{url}}/health || exit 1\necho \"{{service}} OK\"",
-    language: GistShell,
-    target: TargetShell,
-    placeholders: ["service", "url"],
-  },
-]
-
-/// Create a diachronic checkpoint from the current gist set.
-let snapshotDiachronic = (state: scriptGistState, label: string): diachronicCheckpoint => {
-  let index = Array.length(state.diachronicHistory)
-  {
-    index,
-    timestamp: Date.now(),
-    label,
-    snapshot: JSON.stringify(JSON.Encode.string("placeholder")), // serialised externally
-  }
-}
-
-/// Create a new empty cardfile.
-let newCardfile = (id: string, name: string): synchronicCardfile => {
-  {
-    id,
-    name,
-    description: "",
-    gistIds: [],
-    createdAt: Date.now(),
-    modifiedAt: Date.now(),
-    tags: [],
-  }
-}
-
-/// Add a gist to a cardfile (idempotent — no duplicates).
-let addGistToCardfile = (cardfile: synchronicCardfile, gistId: string): synchronicCardfile => {
-  if cardfile.gistIds->Array.some(id => id === gistId) {
-    cardfile
-  } else {
-    {
-      ...cardfile,
-      gistIds: Array.concat(cardfile.gistIds, [gistId]),
-      modifiedAt: Date.now(),
-    }
-  }
-}
-
-/// Remove a gist from a cardfile.
-let removeGistFromCardfile = (cardfile: synchronicCardfile, gistId: string): synchronicCardfile => {
-  {
-    ...cardfile,
-    gistIds: cardfile.gistIds->Array.filter(id => id !== gistId),
-    modifiedAt: Date.now(),
-  }
-}
-
-/// Find a cardfile by ID.
-let findCardfile = (cardfiles: array<synchronicCardfile>, id: string): option<synchronicCardfile> =>
-  cardfiles->Array.find(cf => cf.id === id)
-
-/// Resolve gists in a cardfile (ordered, skipping missing).
-let resolveCardfileGists = (cardfile: synchronicCardfile, allGists: array<scriptGist>): array<
-  scriptGist,
-> => cardfile.gistIds->Array.filterMap(id => findGist(allGists, id))
-
-/// Cardfile label for display.
-let cardfileLabel = (cf: synchronicCardfile): string =>
-  cf.name ++ " (" ++ Int.toString(Array.length(cf.gistIds)) ++ " cards)"
-
-/// Default state.
-let defaultState: scriptGistState = {
-  gists: [],
-  templates: builtinTemplates,
-  selectedGistId: None,
-  activeCategory: GistAll,
-  filterText: "",
-  sortBy: SortByModified,
-  editorOpen: false,
-  executing: false,
-  lastResult: None,
-  error: None,
-  mcpToolsActive: false,
-  diachronicHistory: [],
-  cardfiles: [],
-  selectedCardfileId: None,
-}
diff --git a/src/core/ScriptingBridgeEngine.affine b/src/core/ScriptingBridgeEngine.affine
new file mode 100644
index 00000000..4b086a76
--- /dev/null
+++ b/src/core/ScriptingBridgeEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ScriptingBridgeEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/ScriptingBridgeEngine.res b/src/core/ScriptingBridgeEngine.res
deleted file mode 100644
index b4ba9fb4..00000000
--- a/src/core/ScriptingBridgeEngine.res
+++ /dev/null
@@ -1,81 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Scripting Bridge Engine — pure computation and helpers for the
-/// Scripting Bridge panel. Provides default state, tab metadata, instruction
-/// tier counting, saved script aggregation, and REPL entry formatting.
-
-open ScriptingBridgeModel
-
-/// Default state for the Scripting Bridge panel.
-/// Starts on the REPL tab with empty instruction, script, and history lists.
-let defaultState: scriptingBridgeState = {
-  activeTab: Repl,
-  replHistory: [],
-  instructions: [],
-  savedScripts: [],
-  selectedScript: None,
-  executing: false,
-  replInput: "",
-  analysisFindings: [],
-  error: None,
-}
-
-/// Human-readable label for each tab in the Scripting Bridge panel.
-let tabLabel = (tab: scriptingBridgeTab): string =>
-  switch tab {
-  | Repl => "REPL"
-  | Instructions => "Instructions"
-  | Scripts => "Scripts"
-  | Analysis => "Analysis"
-  }
-
-/// All tabs in display order.
-let allTabs: array<scriptingBridgeTab> = [Repl, Instructions, Scripts, Analysis]
-
-/// Count instructions belonging to a given privilege tier.
-let countInstructionsByTier = (instructions: array<instruction>, tier: instructionTier): int =>
-  instructions->Array.filter(i => i.tier === tier)->Array.length
-
-/// Count instructions that are currently allowed in the sandbox.
-let countAllowedInstructions = (instructions: array<instruction>): int =>
-  instructions->Array.filter(i => i.allowed)->Array.length
-
-/// Human-readable label for an instruction tier.
-let tierLabel = (tier: instructionTier): string =>
-  switch tier {
-  | TierSafe => "Tier 0 (Safe)"
-  | TierControlled => "Tier 1 (Controlled)"
-  | TierPrivileged => "Tier 2 (Privileged)"
-  | TierSystem => "Tier 3 (System)"
-  }
-
-/// Count the total number of saved scripts.
-let countSavedScripts = (state: scriptingBridgeState): int => Array.length(state.savedScripts)
-
-/// Format a REPL entry as a human-readable string.
-/// Shows a success/failure prefix followed by the input and output.
-let formatReplEntry = (entry: scriptReplEntry): string => {
-  let prefix = if entry.success {
-    ">"
-  } else {
-    "!"
-  }
-  `${prefix} ${entry.input}\n  ${entry.output}`
-}
-
-/// Count REPL entries that resulted in errors.
-let countReplErrors = (history: array<scriptReplEntry>): int =>
-  history->Array.filter(e => !e.success)->Array.length
-
-/// Count analysis findings by severity.
-let countFindingsBySeverity = (findings: array<analysisFinding>, severity: analysisSeverity): int =>
-  findings->Array.filter(f => f.severity === severity)->Array.length
-
-/// Human-readable label for an analysis severity.
-let analysisSeverityLabel = (severity: analysisSeverity): string =>
-  switch severity {
-  | AnalysisError => "Error"
-  | AnalysisWarning => "Warning"
-  | AnalysisInfo => "Info"
-  | AnalysisOptimisation => "Optimisation"
-  }
diff --git a/src/core/SeamEngine.affine b/src/core/SeamEngine.affine
new file mode 100644
index 00000000..08845d90
--- /dev/null
+++ b/src/core/SeamEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module SeamEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/SeamEngine.res b/src/core/SeamEngine.res
deleted file mode 100644
index 5de693fd..00000000
--- a/src/core/SeamEngine.res
+++ /dev/null
@@ -1,656 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Seam Engine — compliance seam detection and exception register.
-///
-/// A "seam" is a point where two policies, systems, or standards meet and
-/// may not align perfectly. Seams are not bugs — they are acknowledged
-/// compromises with bounded scope, rationale, and review dates.
-///
-/// This engine:
-/// 1. Audits known compliance seams (policy exceptions in the codebase)
-/// 2. Maintains an exception register with rationale, scope, and expiry
-/// 3. Checks for policy drift (e.g., a TypeScript exception spreading)
-/// 4. Integrates with seambot (gitbot-fleet) for automated detection
-/// 5. Reads A2ML compliance-seams-check policy flags
-///
-/// Reference: panel-clades/.machine_readable/policies/MAINTENANCE-CHECKLIST.a2ml
-///   compliance-seams-check = true
-///   exception-register-required = true
-///   compliance-focus = "seams/compromises/exception register"
-///
-/// This is a pure module — no side effects.
-
-// ============================================================================
-// Types
-// ============================================================================
-
-/// Severity of a compliance seam.
-type seamSeverity =
-  /// Critical — must be resolved before release.
-  | Critical
-  /// High — should be resolved soon, risk of drift.
-  | High
-  /// Medium — acknowledged compromise with bounded scope.
-  | Medium
-  /// Low — minor deviation, acceptable long-term.
-  | Low
-  /// Info — informational only, not a compliance issue.
-  | Info
-
-/// Category of compliance seam.
-type seamCategory =
-  /// Language policy deviation (e.g., npm/Node.js where Deno is policy).
-  | LanguagePolicy
-  /// Licensing deviation from PMPL-1.0-or-later.
-  | LicensePolicy
-  /// ABI/FFI deviation from Idris2+Zig standard.
-  | AbiFfiPolicy
-  /// Security policy deviation.
-  | SecurityPolicy
-  /// Build/tooling deviation from standard.
-  | ToolingPolicy
-  /// Documentation format deviation (e.g., .md where .adoc is policy).
-  | DocsPolicy
-  /// Container policy deviation (e.g., Docker where Podman is policy).
-  | ContainerPolicy
-  /// Integration boundary mismatch between systems.
-  | IntegrationBoundary
-
-/// A single compliance seam — an acknowledged point of policy deviation.
-type seam = {
-  /// Unique identifier for this seam.
-  id: string,
-  /// Human-readable title.
-  title: string,
-  /// Which category of policy this seam falls under.
-  category: seamCategory,
-  /// How severe the deviation is.
-  severity: seamSeverity,
-  /// What the policy says should happen.
-  policyExpectation: string,
-  /// What actually happens (the deviation).
-  actualBehaviour: string,
-  /// Why this deviation exists (rationale).
-  rationale: string,
-  /// Bounded scope — what this exception covers and nothing more.
-  scope: string,
-  /// When this seam was first identified.
-  identifiedDate: string,
-  /// When this seam should be reviewed or resolved.
-  reviewDate: string,
-  /// Whether this seam has been formally acknowledged.
-  acknowledged: bool,
-  /// Whether drift has been detected (scope creep beyond original exception).
-  driftDetected: bool,
-}
-
-/// The exception register — all known seams in one place.
-type seamRegister = {
-  /// All known seams.
-  seams: array<seam>,
-  /// When the register was last audited.
-  lastAuditDate: string,
-  /// Whether compliance-seams-check is enabled (from A2ML policy).
-  complianceSeamsCheckEnabled: bool,
-  /// Whether exception-register-required is set (from A2ML policy).
-  exceptionRegisterRequired: bool,
-}
-
-/// Result of a seam audit.
-type seamAuditResult = {
-  /// Total seams found.
-  totalSeams: int,
-  /// How many have drift detected.
-  driftCount: int,
-  /// How many are unacknowledged.
-  unacknowledgedCount: int,
-  /// How many are past their review date.
-  overdueCount: int,
-  /// Summary message.
-  summary: string,
-}
-
-// ============================================================================
-// Default state
-// ============================================================================
-
-/// Default empty register.
-let defaultRegister: seamRegister = {
-  seams: [],
-  lastAuditDate: "",
-  complianceSeamsCheckEnabled: true,
-  exceptionRegisterRequired: true,
-}
-
-// ============================================================================
-// Known PanLL compliance seams
-// ============================================================================
-
-/// PanLL's known compliance seams — these are the acknowledged deviations
-/// from hyperpolymath policy that exist in this codebase.
-let knownPanllSeams: array<seam> = [
-  {
-    id: "SEAM-001",
-    title: "npm dependency for ReScript compiler + Tailwind",
-    category: ToolingPolicy,
-    severity: Medium,
-    policyExpectation: "All tooling should use Deno (npm/Node.js banned)",
-    actualBehaviour: "npm is used for ReScript compiler and Tailwind CSS compilation",
-    rationale: "ReScript compiler requires npm to run. No Deno-native alternative exists. ADR accepted.",
-    scope: "ReScript compiler (rescript) and Tailwind CSS (tailwindcss) npm packages ONLY. No other npm runtime usage.",
-    identifiedDate: "2026-02-07",
-    reviewDate: "2026-06-01",
-    acknowledged: true,
-    driftDetected: false,
-  },
-  {
-    id: "SEAM-002",
-    title: "Node.js runtime for ReScript compilation",
-    category: LanguagePolicy,
-    severity: Medium,
-    policyExpectation: "Deno replaces Node.js for all JavaScript runtime",
-    actualBehaviour: "Node.js is required to run the ReScript compiler",
-    rationale: "ReScript compiler is distributed as an npm package requiring Node.js. Planned removal when ReScript adds Deno support.",
-    scope: "ReScript build step only. All runtime code and tests use Deno.",
-    identifiedDate: "2026-02-07",
-    reviewDate: "2026-06-01",
-    acknowledged: true,
-    driftDetected: false,
-  },
-  {
-    id: "SEAM-003",
-    title: "Markdown files where AsciiDoc is policy",
-    category: DocsPolicy,
-    severity: Low,
-    policyExpectation: "Primary docs in AsciiDoc (.adoc)",
-    actualBehaviour: "TOPOLOGY.md, CHANGELOG.md, SECURITY.md, CONTRIBUTING.md use Markdown",
-    rationale: "GitHub community health files require Markdown for automatic detection. TOPOLOGY.md uses Markdown for broader tool compatibility.",
-    scope: "GitHub community health files and TOPOLOGY.md only. Technical docs use .adoc.",
-    identifiedDate: "2026-02-07",
-    reviewDate: "2026-12-01",
-    acknowledged: true,
-    driftDetected: false,
-  },
-  {
-    id: "SEAM-004",
-    title: "No Idris2 ABI / Zig FFI layer yet",
-    category: AbiFfiPolicy,
-    severity: Low,
-    policyExpectation: "ABI in Idris2 (src/abi/*.idr), FFI in Zig (ffi/zig/)",
-    actualBehaviour: "PanLL uses Rust for backend FFI via Gossamer commands, no Idris2/Zig layer",
-    rationale: "Gossamer mandates Rust backend. Coprocessor Phase 2/3 simulates Zig FFI in Rust. Actual Zig FFI planned for coprocessor hardware data plane.",
-    scope: "Entire Gossamer backend. Coprocessor engine has routing stubs for future Zig FFI.",
-    identifiedDate: "2026-03-09",
-    reviewDate: "2026-09-01",
-    acknowledged: true,
-    driftDetected: false,
-  },
-  {
-    id: "SEAM-005",
-    title: "Some panel backends return stub data",
-    category: IntegrationBoundary,
-    severity: Medium,
-    policyExpectation: "All panels have real backend connections",
-    actualBehaviour: "Farm, Fleet, Hypatia, Aerie, Provenance backends return stub/mock JSON",
-    rationale: "Backend services (Fleet Axum, Hypatia Elixir, Aerie V-lang) not yet deployed. Panel UI is complete; backends will be connected when services are ready.",
-    scope: "5 specific backend connections: Farm, Fleet, Hypatia, Aerie, Provenance. All other panels have real backends.",
-    identifiedDate: "2026-03-08",
-    reviewDate: "2026-06-01",
-    acknowledged: true,
-    driftDetected: false,
-  },
-  {
-    id: "SEAM-006",
-    title: "TypeLL covers 41/41 panels (RESOLVED)",
-    category: IntegrationBoundary,
-    severity: Info,
-    policyExpectation: "TypeLL cross-panel type intelligence should cover all panels",
-    actualBehaviour: "TypeLL wired for all 41/41 panels via TypeCheckResult(result<string, string>) Msg variant",
-    rationale: "Fully resolved as of 2026-03-09. Originally only 7 panels; now all 41 panels have TypeLL integration with panelTypeChecks Dict tracking per-panel results.",
-    scope: "Resolved — no remaining gap. Kept in register for audit trail.",
-    identifiedDate: "2026-03-08",
-    reviewDate: "2026-12-01",
-    acknowledged: true,
-    driftDetected: false,
-  },
-  // ==========================================================================
-  // UMS panel compliance seams (SEAM-007 through SEAM-013)
-  // ==========================================================================
-  {
-    id: "SEAM-007",
-    title: "UMS panel requires Rust backend with registered commands",
-    category: IntegrationBoundary,
-    severity: High,
-    policyExpectation: "UMS panel has a Rust backend with ums_* Gossamer commands registered",
-    actualBehaviour: "UMS Rust backend commands must be verified present in Gossamer command registry",
-    rationale: "UMS (Universal Management System) handles device and guard management. Without a Rust backend, the panel cannot perform privileged operations or persist state securely.",
-    scope: "UMS Gossamer commands only (ums_* namespace). Does not cover other panel backends.",
-    identifiedDate: "2026-03-14",
-    reviewDate: "2026-09-01",
-    acknowledged: true,
-    driftDetected: false,
-  },
-  {
-    id: "SEAM-008",
-    title: "UMS panel requires clade definition in clade registry",
-    category: IntegrationBoundary,
-    severity: High,
-    policyExpectation: "UMS panel has a clade definition registered under 'ums' in the panel-clades registry",
-    actualBehaviour: "UMS clade entry must exist in clade registry with correct metadata and policy flags",
-    rationale: "Every PanLL panel must have a clade definition that declares its capabilities, dependencies, and compliance posture. Without a clade, UMS cannot participate in the compliance audit system.",
-    scope: "UMS clade definition in panel-clades registry only. Does not affect other clade entries.",
-    identifiedDate: "2026-03-14",
-    reviewDate: "2026-09-01",
-    acknowledged: true,
-    driftDetected: false,
-  },
-  {
-    id: "SEAM-009",
-    title: "UMS panel must fire TypeLL ABI checks on validation",
-    category: AbiFfiPolicy,
-    severity: Medium,
-    policyExpectation: "UMS panel fires TypeLL ABI type-checks during validation lifecycle",
-    actualBehaviour: "UMS validation must invoke TypeLL cross-panel type intelligence for ABI conformance",
-    rationale: "TypeLL ensures type-level correctness across panel boundaries. UMS manages types (deviceKind, guardRank) shared with other panels; ABI checks prevent type drift at integration seams.",
-    scope: "TypeLL ABI checks triggered by UMS validation only. Does not modify TypeLL core engine.",
-    identifiedDate: "2026-03-14",
-    reviewDate: "2026-09-01",
-    acknowledged: true,
-    driftDetected: false,
-  },
-  {
-    id: "SEAM-010",
-    title: "UMS panel must have BoJ routing capability",
-    category: IntegrationBoundary,
-    severity: Medium,
-    policyExpectation: "UMS panel has BoJ (Beggar of Justice) routing for cartridge invocation and orchestration",
-    actualBehaviour: "UMS must be reachable via BoJ routing table for cross-panel cartridge dispatch",
-    rationale: "BoJ is the orchestration layer for PanLL cartridge invocation. UMS must participate in BoJ routing so that other panels and automation can trigger UMS operations through the standard dispatch mechanism.",
-    scope: "UMS route entry in BoJ routing table only. Does not alter BoJ core dispatch logic.",
-    identifiedDate: "2026-03-14",
-    reviewDate: "2026-09-01",
-    acknowledged: true,
-    driftDetected: false,
-  },
-  {
-    id: "SEAM-011",
-    title: "UMS cartridge must validate all 5 Idris2 proofs",
-    category: AbiFfiPolicy,
-    severity: High,
-    policyExpectation: "UMS cartridge validates all 5 Idris2 formal proofs (memory safety, ABI layout, backward compat, platform selection, FFI correctness)",
-    actualBehaviour: "UMS cartridge must check and report status of all 5 Idris2 proof obligations before accepting operations",
-    rationale: "The Idris2 ABI layer provides formal verification of interface correctness. UMS handles privileged device/guard operations where proof violations could compromise system integrity. All 5 proofs must pass.",
-    scope: "UMS cartridge proof validation only. Proof definitions live in src/abi/*.idr; this seam covers the validation call-site.",
-    identifiedDate: "2026-03-14",
-    reviewDate: "2026-09-01",
-    acknowledged: true,
-    driftDetected: false,
-  },
-  {
-    id: "SEAM-012",
-    title: "Level Architect must share UMS types (deviceKind, guardRank, etc.)",
-    category: IntegrationBoundary,
-    severity: Medium,
-    policyExpectation: "Level Architect panel shares UMS domain types (deviceKind, guardRank, etc.) for cross-panel consistency",
-    actualBehaviour: "Level Architect must import and re-export UMS shared types rather than defining duplicates",
-    rationale: "IDApTIK Level Architect designs levels that reference UMS concepts (device kinds, guard ranks). Type sharing prevents definition drift between the two panels and ensures level data uses canonical UMS types.",
-    scope: "Shared types between UMS and Level Architect panels only. Does not affect unrelated panel types.",
-    identifiedDate: "2026-03-14",
-    reviewDate: "2026-09-01",
-    acknowledged: true,
-    driftDetected: false,
-  },
-  {
-    id: "SEAM-013",
-    title: "PanelBus must have UMS event subscribers",
-    category: IntegrationBoundary,
-    severity: Medium,
-    policyExpectation: "PanelBus event system has registered UMS event subscribers for cross-panel communication",
-    actualBehaviour: "PanelBus must include UMS topic subscriptions so UMS events propagate to interested panels",
-    rationale: "PanelBus is PanLL's cross-panel event bus. UMS emits events (device registered, guard promoted, etc.) that other panels (Level Architect, Fleet, Provenance) need to react to. Missing subscribers means silent event loss.",
-    scope: "UMS event topics and subscribers in PanelBus only. Does not change PanelBus dispatch mechanism.",
-    identifiedDate: "2026-03-14",
-    reviewDate: "2026-09-01",
-    acknowledged: true,
-    driftDetected: false,
-  },
-]
-
-// ============================================================================
-// Engine functions
-// ============================================================================
-
-/// Severity label for display.
-let severityLabel = (s: seamSeverity): string => {
-  switch s {
-  | Critical => "CRITICAL"
-  | High => "HIGH"
-  | Medium => "MEDIUM"
-  | Low => "LOW"
-  | Info => "INFO"
-  }
-}
-
-/// Category label for display.
-let categoryLabel = (c: seamCategory): string => {
-  switch c {
-  | LanguagePolicy => "Language Policy"
-  | LicensePolicy => "License Policy"
-  | AbiFfiPolicy => "ABI/FFI Policy"
-  | SecurityPolicy => "Security Policy"
-  | ToolingPolicy => "Tooling Policy"
-  | DocsPolicy => "Documentation Policy"
-  | ContainerPolicy => "Container Policy"
-  | IntegrationBoundary => "Integration Boundary"
-  }
-}
-
-/// Colour for severity (CSS class-compatible).
-let severityColour = (s: seamSeverity): string => {
-  switch s {
-  | Critical => "#dc2626"
-  | High => "#ea580c"
-  | Medium => "#ca8a04"
-  | Low => "#2563eb"
-  | Info => "#6b7280"
-  }
-}
-
-/// Build the PanLL exception register from known seams.
-let buildRegister = (auditDate: string): seamRegister => {
-  {
-    seams: knownPanllSeams,
-    lastAuditDate: auditDate,
-    complianceSeamsCheckEnabled: true,
-    exceptionRegisterRequired: true,
-  }
-}
-
-/// Check if a seam is overdue for review given a current date string (YYYY-MM-DD).
-let isOverdue = (seam: seam, currentDate: string): bool => {
-  seam.reviewDate != "" && currentDate > seam.reviewDate
-}
-
-/// Audit the register and produce a summary result.
-let auditRegister = (register: seamRegister, currentDate: string): seamAuditResult => {
-  let totalSeams = register.seams->Array.length
-  let driftCount = register.seams->Array.filter(s => s.driftDetected)->Array.length
-  let unacknowledgedCount = register.seams->Array.filter(s => !s.acknowledged)->Array.length
-  let overdueCount = register.seams->Array.filter(s => isOverdue(s, currentDate))->Array.length
-
-  let summary = if driftCount > 0 {
-    `⚠ DRIFT DETECTED: ${Int.toString(driftCount)} seam(s) have drifted beyond original scope`
-  } else if unacknowledgedCount > 0 {
-    `${Int.toString(unacknowledgedCount)} unacknowledged seam(s) need review`
-  } else if overdueCount > 0 {
-    `${Int.toString(overdueCount)} seam(s) overdue for review`
-  } else {
-    `${Int.toString(totalSeams)} seam(s) — all acknowledged, no drift detected`
-  }
-
-  {totalSeams, driftCount, unacknowledgedCount, overdueCount, summary}
-}
-
-/// Check for policy drift contamination — does a known exception's scope
-/// appear to have broadened? This checks if the scope description suggests
-/// containment but the actual behaviour hints at broader usage.
-let checkDriftRisk = (seam: seam, codebaseIndicators: array<string>): bool => {
-  // Check if any indicator suggests the exception has spread beyond scope
-  codebaseIndicators->Array.some(indicator => {
-    switch seam.category {
-    | LanguagePolicy =>
-      // If a language exception exists, check if that language appears in unexpected places
-      indicator->String.includes("node_modules") && !(seam.scope->String.includes("build step"))
-    | ToolingPolicy =>
-      // If npm is excepted for specific tools, check if npm is used elsewhere
-      indicator->String.includes("npm run") && !(seam.scope->String.includes("npm"))
-    | DocsPolicy =>
-      // If markdown is excepted for specific files, check if new .md files appeared
-      indicator->String.includes(".md") && indicator->String.includes("new file")
-    | _ => false
-    }
-  })
-}
-
-/// Generate an A2ML-format exception register section.
-let generateA2mlRegister = (register: seamRegister): string => {
-  let header =
-    `# SPDX-License-Identifier: MPL-2.0\n` ++
-    `# PanLL Compliance Seam Register (auto-generated)\n` ++
-    `# Last audit: ${register.lastAuditDate}\n\n` ++
-    `[compliance-policy]\n` ++
-    `compliance-seams-check = true\n` ++
-    `exception-register-required = true\n` ++ `compliance-focus = "seams/compromises/exception register"\n\n`
-
-  let seamSections =
-    register.seams
-    ->Array.map(s => {
-      `[seam.${s.id}]\n` ++
-      `title = "${s.title}"\n` ++
-      `category = "${categoryLabel(s.category)}"\n` ++
-      `severity = "${severityLabel(s.severity)}"\n` ++
-      `policy-expectation = "${s.policyExpectation}"\n` ++
-      `actual-behaviour = "${s.actualBehaviour}"\n` ++
-      `rationale = "${s.rationale}"\n` ++
-      `scope = "${s.scope}"\n` ++
-      `identified = "${s.identifiedDate}"\n` ++
-      `review-by = "${s.reviewDate}"\n` ++
-      `acknowledged = ${s.acknowledged ? "true" : "false"}\n` ++
-      `drift-detected = ${s.driftDetected ? "true" : "false"}\n`
-    })
-    ->Array.join("\n")
-
-  header ++ seamSections
-}
-
-/// Drift indicator — a concrete signal from codebase scanning.
-type driftIndicator = {
-  /// Which seam this indicator relates to.
-  seamId: string,
-  /// File path where the indicator was found.
-  filePath: string,
-  /// Description of what was found.
-  description: string,
-  /// Whether this crosses the seam's bounded scope.
-  crossesScope: bool,
-}
-
-/// Remediation suggestion for a drifting or overdue seam.
-type seamRemediation = {
-  /// Which seam this suggestion addresses.
-  seamId: string,
-  /// Priority of the remediation.
-  priority: seamSeverity,
-  /// What to do.
-  suggestion: string,
-  /// Whether this can be automated.
-  automatable: bool,
-}
-
-/// Scan results from the codebase scanner.
-type scanResult = {
-  /// All drift indicators found.
-  indicators: array<driftIndicator>,
-  /// Remediation suggestions generated.
-  remediations: array<seamRemediation>,
-  /// Timestamp of the scan.
-  scanDate: string,
-}
-
-// ============================================================================
-// Codebase scanner — active drift detection
-// ============================================================================
-
-/// Scan a list of file paths for drift indicators against known seams.
-/// This is the active scanner that feeds the drift detection engine.
-let scanForDriftIndicators = (filePaths: array<string>): array<driftIndicator> => {
-  let indicators = []
-
-  // SEAM-001/002: Check if npm/node usage has spread beyond build step
-  let npmFiles =
-    filePaths->Array.filter(p =>
-      (p->String.includes("package.json") && !(p->String.includes("node_modules"))) ||
-        (p->String.includes("npm") && !(p->String.includes("deno.json")))
-    )
-  let npmIndicators = npmFiles->Array.map(p => {
-    seamId: "SEAM-001",
-    filePath: p,
-    description: "npm reference found outside expected build scope",
-    crossesScope: !(
-      p->String.includes("rescript.json") ||
-      p->String.includes("package.json") ||
-      p->String.includes("tailwind")
-    ),
-  })
-
-  // SEAM-003: Check for new Markdown files outside community health set
-  let knownMdFiles = [
-    "TOPOLOGY.md",
-    "CHANGELOG.md",
-    "SECURITY.md",
-    "CONTRIBUTING.md",
-    "CODE_OF_CONDUCT.md",
-    "QUICKSTART-FOR-SON.md",
-    "MIGRATION-TO-RESCRIPT-TEA.md",
-    "NPM-TO-DENO-MIGRATION.md",
-    "RESCRIPT-TEA-MIGRATION-GUIDE.md",
-    "SONNET-TASKS.md",
-    "PANLL-COMPLETE-STATUS-2026-02-11.md",
-  ]
-  let mdFiles =
-    filePaths->Array.filter(p =>
-      p->String.endsWith(".md") &&
-      !(p->String.includes("node_modules")) &&
-      !(p->String.includes("docs/"))
-    )
-  let mdIndicators =
-    mdFiles
-    ->Array.filter(p => !(knownMdFiles->Array.some(known => p->String.endsWith(known))))
-    ->Array.map(p => {
-      seamId: "SEAM-003",
-      filePath: p,
-      description: "Markdown file outside known community health set",
-      crossesScope: true,
-    })
-
-  // SEAM-004: Check for Zig/Idris2 files (positive signal — resolution progress)
-  let abiProgress =
-    filePaths
-    ->Array.filter(p => p->String.includes("src/abi/") || p->String.includes("ffi/zig/"))
-    ->Array.map(p => {
-      seamId: "SEAM-004",
-      filePath: p,
-      description: "ABI/FFI file found — potential seam resolution progress",
-      crossesScope: false,
-    })
-
-  indicators
-  ->Array.concat(npmIndicators)
-  ->Array.concat(mdIndicators)
-  ->Array.concat(abiProgress)
-}
-
-/// Generate remediation suggestions for seams that need attention.
-let generateRemediations = (register: seamRegister, currentDate: string): array<
-  seamRemediation,
-> => {
-  register.seams->Array.filterMap(seam => {
-    if seam.driftDetected {
-      Some({
-        seamId: seam.id,
-        priority: High,
-        suggestion: `Drift detected in ${seam.id}: "${seam.title}". Review scope boundary and either tighten the exception or acknowledge broader scope.`,
-        automatable: false,
-      })
-    } else if isOverdue(seam, currentDate) {
-      Some({
-        seamId: seam.id,
-        priority: seam.severity,
-        suggestion: `Seam ${seam.id} overdue for review (due ${seam.reviewDate}). Evaluate whether this exception is still needed or can be resolved.`,
-        automatable: false,
-      })
-    } else if seam.severity == Info {
-      Some({
-        seamId: seam.id,
-        priority: Info,
-        suggestion: `Seam ${seam.id} is resolved. Consider removing from active register after next audit cycle.`,
-        automatable: true,
-      })
-    } else {
-      None
-    }
-  })
-}
-
-/// Run a full scan: detect indicators, update drift flags, generate remediations.
-let fullScan = (filePaths: array<string>, currentDate: string): scanResult => {
-  let indicators = scanForDriftIndicators(filePaths)
-  let register = buildRegister(currentDate)
-
-  // Check which seams have scope-crossing indicators
-  let _seamsWithDrift =
-    register.seams
-    ->Array.filter(s => indicators->Array.some(i => i.seamId == s.id && i.crossesScope))
-    ->Array.map(s => s.id)
-
-  let remediations = generateRemediations(register, currentDate)
-
-  {indicators, remediations, scanDate: currentDate}
-}
-
-/// Generate a persistent A2ML register file content for .machine_readable/seams.a2ml.
-let generatePersistentRegister = (register: seamRegister, currentDate: string): string => {
-  let audit = auditRegister(register, currentDate)
-  let header =
-    `; SPDX-License-Identifier: MPL-2.0\n` ++
-    `; PanLL Compliance Seam Register — auto-generated by SeamEngine\n` ++
-    `; Last audit: ${currentDate}\n` ++
-    `; Total: ${Int.toString(audit.totalSeams)} seams | ` ++
-    `Drift: ${Int.toString(audit.driftCount)} | ` ++
-    `Overdue: ${Int.toString(audit.overdueCount)}\n\n` ++
-    `(seam-register\n` ++
-    `  (version "1.0.0")\n` ++
-    `  (audit-date "${currentDate}")\n` ++
-    `  (compliance-seams-check true)\n` ++ `  (exception-register-required true)\n\n`
-
-  let entries =
-    register.seams
-    ->Array.map(s =>
-      `  (seam\n` ++
-      `    (id "${s.id}")\n` ++
-      `    (title "${s.title}")\n` ++
-      `    (category "${categoryLabel(s.category)}")\n` ++
-      `    (severity "${severityLabel(s.severity)}")\n` ++
-      `    (scope "${s.scope}")\n` ++
-      `    (acknowledged ${s.acknowledged ? "true" : "false"})\n` ++
-      `    (drift-detected ${s.driftDetected ? "true" : "false"})\n` ++
-      `    (review-date "${s.reviewDate}"))\n`
-    )
-    ->Array.join("\n")
-
-  header ++ entries ++ `)\n`
-}
-
-/// Summarise the register for display in PanLL UI.
-let summariseRegister = (register: seamRegister, currentDate: string): string => {
-  let audit = auditRegister(register, currentDate)
-  let byCategory =
-    register.seams
-    ->Array.map(s => categoryLabel(s.category))
-    ->Array.reduce([], (acc, cat) => {
-      if acc->Array.some(c => c == cat) {
-        acc
-      } else {
-        acc->Array.concat([cat])
-      }
-    })
-  let categoryCount = byCategory->Array.length
-
-  `Seam Register: ${Int.toString(audit.totalSeams)} seam(s) across ${Int.toString(
-      categoryCount,
-    )} categories\n` ++
-  `Drift: ${Int.toString(audit.driftCount)} | Unacknowledged: ${Int.toString(
-      audit.unacknowledgedCount,
-    )} | Overdue: ${Int.toString(audit.overdueCount)}\n` ++
-  audit.summary
-}
diff --git a/src/core/SecurityEngine.affine b/src/core/SecurityEngine.affine
new file mode 100644
index 00000000..0d4394cd
--- /dev/null
+++ b/src/core/SecurityEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module SecurityEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/SecurityEngine.res b/src/core/SecurityEngine.res
deleted file mode 100644
index 99b16a41..00000000
--- a/src/core/SecurityEngine.res
+++ /dev/null
@@ -1,221 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Security Engine — redaction patterns, vault helpers, and Trustfile
-/// enforcement (DD-026, DD-027).
-///
-/// Pure functions for the security layer. Actual vault I/O and 2FA TOTP
-/// verification happen via SecurityCmd Gossamer wrappers.
-
-open SecurityModel
-
-// ============================================================================
-// Built-in Redaction Patterns
-// ============================================================================
-
-/// Standard set of secret detection patterns. These cover the most common
-/// secret types found in development environments.
-let builtInPatterns: array<redactionPattern> = [
-  {
-    id: "anthropic-key",
-    label: "Anthropic API Key",
-    pattern: "sk-ant-[a-zA-Z0-9_-]{20,}",
-    enabled: true,
-    builtIn: true,
-  },
-  {
-    id: "openai-key",
-    label: "OpenAI API Key",
-    pattern: "sk-[a-zA-Z0-9]{20,}",
-    enabled: true,
-    builtIn: true,
-  },
-  {
-    id: "generic-api-key",
-    label: "Generic API Key",
-    pattern: "[Aa][Pp][Ii][_-]?[Kk][Ee][Yy][\\s:=\"']+[a-zA-Z0-9_-]{16,}",
-    enabled: true,
-    builtIn: true,
-  },
-  {
-    id: "password-field",
-    label: "Password Field",
-    pattern: "[Pp][Aa][Ss][Ss][Ww][Oo][Rr][Dd][\\s:=\"']+[^\\s\"']{8,}",
-    enabled: true,
-    builtIn: true,
-  },
-  {
-    id: "bearer-token",
-    label: "Bearer Token",
-    pattern: "[Bb]earer\\s+[a-zA-Z0-9._-]{20,}",
-    enabled: true,
-    builtIn: true,
-  },
-  {
-    id: "private-key",
-    label: "Private Key Block",
-    pattern: "-----BEGIN (RSA |EC |OPENSSH )?PRIVATE KEY-----",
-    enabled: true,
-    builtIn: true,
-  },
-  {
-    id: "connection-string",
-    label: "Database Connection String",
-    pattern: "(postgres|mysql|mongodb|redis)://[^\\s]{10,}",
-    enabled: true,
-    builtIn: true,
-  },
-  {
-    id: "aws-key",
-    label: "AWS Access Key",
-    pattern: "AKIA[0-9A-Z]{16}",
-    enabled: true,
-    builtIn: true,
-  },
-  {
-    id: "github-token",
-    label: "GitHub Token",
-    pattern: "(ghp|gho|ghu|ghs|ghr)_[A-Za-z0-9_]{36,}",
-    enabled: true,
-    builtIn: true,
-  },
-  {
-    id: "anthropic-env",
-    label: "Anthropic Env Var",
-    pattern: "ANTHROPIC_[A-Z_]+=.+",
-    enabled: true,
-    builtIn: true,
-  },
-]
-
-// ============================================================================
-// Redaction Operations
-// ============================================================================
-
-/// Add a custom redaction pattern.
-let addPattern = (state: securityState, pattern: redactionPattern): securityState => {
-  {...state, patterns: Array.concat(state.patterns, [pattern])}
-}
-
-/// Remove a custom pattern by ID. Built-in patterns can be disabled but not removed.
-let removePattern = (state: securityState, patternId: string): securityState => {
-  {...state, patterns: Array.filter(state.patterns, p => p.id !== patternId || p.builtIn)}
-}
-
-/// Toggle a pattern's enabled state.
-let togglePattern = (state: securityState, patternId: string): securityState => {
-  {
-    ...state,
-    patterns: Array.map(state.patterns, p =>
-      if p.id === patternId {
-        {...p, enabled: !p.enabled}
-      } else {
-        p
-      }
-    ),
-  }
-}
-
-/// Set the active redaction mode.
-let setRedactionMode = (state: securityState, mode: redactionMode): securityState => {
-  {...state, redactionMode: mode}
-}
-
-/// Apply redaction to a text string — replaces all detected secrets with
-/// their placeholder labels. Pure function (no side effects).
-let redactText = (text: string, patterns: array<redactionPattern>): string => {
-  // Simple approach: iterate patterns and replace matches.
-  // In practice, the Rust backend does the heavy regex lifting.
-  // This frontend version is a fallback for immediate display redaction.
-  Array.reduce(patterns, text, (acc, pattern) => {
-    if !pattern.enabled {
-      acc
-    } else {
-      // Use the pattern label as the replacement placeholder.
-      let placeholder = "[REDACTED:" ++ pattern.label ++ "]"
-
-      // For the frontend, we do a simple string check (full regex is in Rust).
-      // This catches the most obvious cases for shoulder-safe mode.
-      if String.includes(acc, "sk-ant-") || String.includes(acc, "sk-") {
-        // Quick redaction for API keys visible in the UI.
-        acc
-        ->String.replaceRegExp(/sk-ant-[a-zA-Z0-9_-]{20,}/g, placeholder)
-        ->String.replaceRegExp(/sk-[a-zA-Z0-9]{20,}/g, placeholder)
-      } else {
-        acc
-      }
-    }
-  })
-}
-
-// ============================================================================
-// 2FA Operations
-// ============================================================================
-
-/// Check if 2FA is required for an operation (based on Trustfile policy).
-let requires2FA = (state: securityState, operation: string): bool => {
-  switch state.trustfile {
-  | Some(policy) =>
-    Array.some(policy.twoFactorRequirements, req => req.operation === operation && req.required)
-  | None => false
-  }
-}
-
-/// Check if the current 2FA session is valid.
-let is2FAValid = (state: securityState, currentTime: float): bool => {
-  switch state.twoFactorStatus {
-  | TwoFactorAuthenticated(expiresAt) => currentTime < expiresAt
-  | _ => false
-  }
-}
-
-/// Check if an operation is allowed given the current security state.
-/// Returns true if the operation can proceed, false if blocked.
-let isOperationAllowed = (state: securityState, operation: string, currentTime: float): bool => {
-  if requires2FA(state, operation) {
-    is2FAValid(state, currentTime)
-  } else {
-    true
-  }
-}
-
-// ============================================================================
-// Trustfile Operations
-// ============================================================================
-
-/// Apply a loaded Trustfile policy to the security state.
-let applyTrustfile = (state: securityState, policy: trustfilePolicy): securityState => {
-  let mergedPatterns = Array.concat(state.patterns, policy.customPatterns)
-  {...state, trustfile: Some(policy), patterns: mergedPatterns, redactionMode: policy.redactionMode}
-}
-
-// ============================================================================
-// Shoulder-Safe Mode
-// ============================================================================
-
-/// Toggle shoulder-surfing safe mode. When active, detected secrets
-/// are blurred/masked in real-time across all panels.
-let toggleShoulderSafe = (state: securityState): securityState => {
-  {...state, shoulderSafe: !state.shoulderSafe}
-}
-
-// ============================================================================
-// Default State
-// ============================================================================
-
-/// Initial security state.
-let defaultState: securityState = {
-  patterns: builtInPatterns,
-  detectedSecrets: [],
-  redactionMode: RedactOnShare,
-  vaultStatus: VaultLocked,
-  vaultKeys: [],
-  twoFactorStatus: TwoFactorNotConfigured,
-  twoFactorTimeout: 3600,
-  trustfile: None,
-  shoulderSafe: false,
-  activeCategory: SecurityOverview,
-  totpInput: "",
-  error: None,
-  newPatternLabel: "",
-  newPatternRegex: "",
-}
diff --git a/src/core/SmartRouter.affine b/src/core/SmartRouter.affine
new file mode 100644
index 00000000..a687d6b0
--- /dev/null
+++ b/src/core/SmartRouter.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module SmartRouter;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/SmartRouter.res b/src/core/SmartRouter.res
deleted file mode 100644
index 2a3bf100..00000000
--- a/src/core/SmartRouter.res
+++ /dev/null
@@ -1,377 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Smart Router — per-operation intelligent compute dispatch.
-///
-/// Mirrors Axiom.jl's SmartBackend pattern: each operation is routed
-/// to the fastest available backend based on operation type, data size,
-/// and backend availability. Pure functions only — no side effects.
-
-open CoprocessorsModel
-
-/// Operation category for routing decisions.
-/// Each category has a preferred backend based on benchmarked latency.
-type operationCategory =
-  /// Matrix multiplication — prefer Axiom.jl (BLAS/LAPACK).
-  | MatMul
-  /// Neural activation functions — prefer Zig FFI (SIMD vectorised).
-  | Activation
-  /// Layer/batch normalisation — prefer Zig FFI (SIMD).
-  | Normalization
-  /// Cryptographic hashing — prefer local FFI (constant-time, no network).
-  | Hashing
-  /// Formal proof validation — prefer local FFI (deterministic).
-  | Validation
-  /// Database query — prefer BoJ (database-mcp cartridge).
-  | Query
-  /// Statistical analysis/simulation — prefer Axiom.jl.
-  | Analysis
-  /// General compute — automatic, prefer lowest latency.
-  | General
-
-/// Backend health snapshot used by the smart router.
-type backendHealth = {
-  /// Backend identifier: "local_ffi" | "axiom_http" | "boj_cartridge".
-  name: string,
-  /// Whether the backend is currently reachable.
-  available: bool,
-  /// Rolling average latency in milliseconds.
-  avgLatencyMs: float,
-  /// Error rate (0.0–1.0) over the observation window.
-  errorRate: float,
-  /// Timestamp of last health check.
-  lastChecked: float,
-}
-
-/// Human-readable label for an operation category.
-let categoryLabel = (cat: operationCategory): string =>
-  switch cat {
-  | MatMul => "Matrix Multiply"
-  | Activation => "Activation"
-  | Normalization => "Normalization"
-  | Hashing => "Hashing"
-  | Validation => "Validation"
-  | Query => "Query"
-  | Analysis => "Analysis"
-  | General => "General"
-  }
-
-/// Tailwind colour class for an operation category.
-let categoryColour = (cat: operationCategory): string =>
-  switch cat {
-  | MatMul => "text-indigo-400"
-  | Activation => "text-emerald-400"
-  | Normalization => "text-cyan-400"
-  | Hashing => "text-red-400"
-  | Validation => "text-amber-400"
-  | Query => "text-blue-400"
-  | Analysis => "text-purple-400"
-  | General => "text-gray-400"
-  }
-
-/// Classify an operation string into a category by keyword matching.
-/// Case-insensitive — callers should pass lowercase or this normalises.
-let classifyOperation = (op: string): operationCategory => {
-  let lower = op->String.toLowerCase
-  if (
-    lower->String.includes("matmul") ||
-    lower->String.includes("multiply") ||
-    lower->String.includes("gemm") ||
-    lower->String.includes("dot_product")
-  ) {
-    MatMul
-  } else if (
-    lower->String.includes("relu") ||
-    lower->String.includes("sigmoid") ||
-    lower->String.includes("gelu") ||
-    lower->String.includes("tanh") ||
-    lower->String.includes("softmax")
-  ) {
-    Activation
-  } else if (
-    lower->String.includes("norm") ||
-    lower->String.includes("layernorm") ||
-    lower->String.includes("batchnorm") ||
-    lower->String.includes("groupnorm")
-  ) {
-    Normalization
-  } else if (
-    lower->String.includes("hash") ||
-    lower->String.includes("sha") ||
-    lower->String.includes("blake") ||
-    lower->String.includes("hmac")
-  ) {
-    Hashing
-  } else if (
-    lower->String.includes("validate") ||
-    lower->String.includes("verify") ||
-    lower->String.includes("proof") ||
-    lower->String.includes("check_type")
-  ) {
-    Validation
-  } else if (
-    lower->String.includes("query") ||
-    lower->String.includes("select") ||
-    lower->String.includes("insert") ||
-    lower->String.includes("fetch")
-  ) {
-    Query
-  } else if (
-    lower->String.includes("analyze") ||
-    lower->String.includes("statistics") ||
-    lower->String.includes("simulate") ||
-    lower->String.includes("regress")
-  ) {
-    Analysis
-  } else {
-    General
-  }
-}
-
-/// Preferred route name for each operation category.
-/// Returns the ideal backend name assuming all backends are available.
-let preferredRoute = (cat: operationCategory): string =>
-  switch cat {
-  | MatMul => "axiom_http"
-  | Activation => "local_ffi"
-  | Normalization => "local_ffi"
-  | Hashing => "local_ffi"
-  | Validation => "local_ffi"
-  | Query => "boj_cartridge"
-  | Analysis => "axiom_http"
-  | General => "local_ffi"
-  }
-
-/// Build backend health snapshots from the current coprocessors state.
-/// Synthesises health from discoveredDevices and localDispatch.
-let buildBackendHealth = (state: coprocessorsState): array<backendHealth> => {
-  let now = Date.now()
-
-  let ffiHealth: backendHealth = {
-    name: "local_ffi",
-    available: state.localDispatch.ffiLoaded,
-    avgLatencyMs: if state.localDispatch.ffiLoaded {
-      0.5 +. Float.fromInt(state.localDispatch.pendingDispatches) *. 0.1
-    } else {
-      99999.0
-    },
-    errorRate: 0.0,
-    lastChecked: now,
-  }
-
-  let axiomAvailable =
-    state.discoveredDevices->Array.some(d => d.engineId === EngineAxiom && d.available)
-  let axiomHealth: backendHealth = {
-    name: "axiom_http",
-    available: axiomAvailable,
-    avgLatencyMs: if axiomAvailable {
-      15.0
-    } else {
-      99999.0
-    },
-    errorRate: 0.0,
-    lastChecked: now,
-  }
-
-  let bojAvailable =
-    state.discoveredDevices->Array.some(d => d.engineId === EngineBoJ && d.available)
-  let bojHealth: backendHealth = {
-    name: "boj_cartridge",
-    available: bojAvailable,
-    avgLatencyMs: if bojAvailable {
-      10.0
-    } else {
-      99999.0
-    },
-    errorRate: 0.0,
-    lastChecked: now,
-  }
-
-  [ffiHealth, axiomHealth, bojHealth]
-}
-
-/// Core smart routing function. Given an operation, backend health array,
-/// and strategy override, returns a routingDecision using the existing
-/// CoprocessorsModel.routingDecision type.
-///
-/// When strategy is RouteAutomatic, uses per-category preference tables
-/// with fallback chains:
-///   MatMul/Analysis: Axiom -> FFI -> BoJ
-///   Activation/Norm/Hash/Validation: FFI -> Axiom -> BoJ
-///   Query: BoJ -> Axiom -> FFI
-///   General: FFI -> Axiom -> BoJ
-let smartRoute = (
-  op: string,
-  backends: array<backendHealth>,
-  strategy: routingStrategy,
-): routingDecision => {
-  let timestamp = Date.now()
-
-  /// Look up whether a named backend is available and healthy.
-  let isAvailable = (name: string): bool =>
-    backends->Array.some(b => b.name == name && b.available && b.errorRate < 0.5)
-
-  /// Estimate latency for a named backend.
-  let latencyFor = (name: string): float =>
-    backends
-    ->Array.find(b => b.name == name)
-    ->Option.mapOr(99999.0, b => b.avgLatencyMs)
-
-  let ffiOk = isAvailable("local_ffi")
-  let axiomOk = isAvailable("axiom_http")
-  let bojOk = isAvailable("boj_cartridge")
-
-  switch strategy {
-  | RouteLocal => {
-      operation: op,
-      chosenRoute: RouteLocal,
-      reason: "Forced local FFI by strategy override",
-      latencyEstimateMs: latencyFor("local_ffi"),
-      timestamp,
-    }
-  | RouteRemote => {
-      operation: op,
-      chosenRoute: RouteRemote,
-      reason: "Forced remote Axiom.jl by strategy override",
-      latencyEstimateMs: latencyFor("axiom_http"),
-      timestamp,
-    }
-  | RouteBoj => {
-      operation: op,
-      chosenRoute: RouteBoj,
-      reason: "Forced BoJ cartridge by strategy override",
-      latencyEstimateMs: latencyFor("boj_cartridge"),
-      timestamp,
-    }
-  | RouteAutomatic => {
-      let category = classifyOperation(op)
-      let catLabel = categoryLabel(category)
-
-      /// Try a prioritised fallback chain: first, second, third.
-      let tryChain = (
-        ~first: (string, routingStrategy),
-        ~second: (string, routingStrategy),
-        ~third: (string, routingStrategy),
-      ): (routingStrategy, string, float) => {
-        let (firstName, firstRoute) = first
-        let (secondName, secondRoute) = second
-        let (thirdName, thirdRoute) = third
-        if isAvailable(firstName) {
-          (firstRoute, `${catLabel}: preferred ${firstName}`, latencyFor(firstName))
-        } else if isAvailable(secondName) {
-          (
-            secondRoute,
-            `${catLabel}: fallback to ${secondName} (${firstName} unavailable)`,
-            latencyFor(secondName),
-          )
-        } else if isAvailable(thirdName) {
-          (thirdRoute, `${catLabel}: last-resort ${thirdName}`, latencyFor(thirdName))
-        } else {
-          // All backends down — still return BoJ as the default sink.
-          (RouteBoj, `${catLabel}: no backends available, defaulting to BoJ`, 99999.0)
-        }
-      }
-
-      let (chosenRoute, reason, latency) = switch category {
-      | MatMul | Analysis =>
-        tryChain(
-          ~first=("axiom_http", RouteRemote),
-          ~second=("local_ffi", RouteLocal),
-          ~third=("boj_cartridge", RouteBoj),
-        )
-      | Activation | Normalization | Hashing | Validation =>
-        tryChain(
-          ~first=("local_ffi", RouteLocal),
-          ~second=("axiom_http", RouteRemote),
-          ~third=("boj_cartridge", RouteBoj),
-        )
-      | Query =>
-        tryChain(
-          ~first=("boj_cartridge", RouteBoj),
-          ~second=("axiom_http", RouteRemote),
-          ~third=("local_ffi", RouteLocal),
-        )
-      | General =>
-        // For general ops, prefer local if available (lowest latency),
-        // but also consider CPU load via latency estimate.
-        if ffiOk && latencyFor("local_ffi") < 5.0 {
-          (RouteLocal, `${catLabel}: local FFI (lowest latency)`, latencyFor("local_ffi"))
-        } else if axiomOk {
-          (
-            RouteRemote,
-            `${catLabel}: Axiom.jl (local FFI busy or unavailable)`,
-            latencyFor("axiom_http"),
-          )
-        } else if bojOk {
-          (RouteBoj, `${catLabel}: BoJ cartridge fallback`, latencyFor("boj_cartridge"))
-        } else {
-          (RouteBoj, `${catLabel}: no backends available`, 99999.0)
-        }
-      }
-
-      {
-        operation: op,
-        chosenRoute,
-        reason,
-        latencyEstimateMs: latency,
-        timestamp,
-      }
-    }
-  }
-}
-
-/// Maximum number of routing decisions to retain in the audit ring buffer.
-let maxDecisions = 200
-
-/// Append a routing decision to the ring buffer, evicting oldest if full.
-let addDecision = (decisions: array<routingDecision>, decision: routingDecision): array<
-  routingDecision,
-> => {
-  let next = Array.concat(decisions, [decision])
-  if Array.length(next) > maxDecisions {
-    next->Array.sliceToEnd(~start=Array.length(next) - maxDecisions)
-  } else {
-    next
-  }
-}
-
-/// Route distribution statistics — (route_label, count, avg_latency_ms).
-let routeStats = (decisions: array<routingDecision>): array<(string, int, float)> => {
-  let routes: array<(string, routingStrategy)> = [
-    ("Local FFI", RouteLocal),
-    ("Axiom.jl", RouteRemote),
-    ("BoJ Cartridge", RouteBoj),
-  ]
-  routes->Array.map(((label, strategy)) => {
-    let matching = decisions->Array.filter(d => d.chosenRoute === strategy)
-    let count = Array.length(matching)
-    let avgLatency = if count == 0 {
-      0.0
-    } else {
-      matching->Array.reduce(0.0, (acc, d) => acc +. d.latencyEstimateMs) /. Float.fromInt(count)
-    }
-    (label, count, avgLatency)
-  })
-}
-
-/// Category distribution — (category_label, count).
-let categoryStats = (decisions: array<routingDecision>): array<(string, int)> => {
-  let categories: array<operationCategory> = [
-    MatMul,
-    Activation,
-    Normalization,
-    Hashing,
-    Validation,
-    Query,
-    Analysis,
-    General,
-  ]
-  categories->Array.filterMap(cat => {
-    let catOps = decisions->Array.filter(d => classifyOperation(d.operation) === cat)
-    let count = Array.length(catOps)
-    if count > 0 {
-      Some((categoryLabel(cat), count))
-    } else {
-      None
-    }
-  })
-}
diff --git a/src/core/SoakMonitorEngine.affine b/src/core/SoakMonitorEngine.affine
new file mode 100644
index 00000000..eb1503cc
--- /dev/null
+++ b/src/core/SoakMonitorEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module SoakMonitorEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/SoakMonitorEngine.res b/src/core/SoakMonitorEngine.res
deleted file mode 100644
index f46a0d37..00000000
--- a/src/core/SoakMonitorEngine.res
+++ /dev/null
@@ -1,137 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Soak Monitor Engine — pure computation and helpers for the
-/// Soak Monitor panel. Provides default state, memory growth analysis,
-/// leak severity classification, session formatting, and trend analysis.
-
-open SoakMonitorModel
-
-/// Default state for the Soak Monitor panel.
-/// Starts on the Live Monitor tab with a 5-second sample interval
-/// and 1 MB leak detection threshold.
-let defaultState: soakMonitorState = {
-  activeTab: TabLiveMonitor,
-  currentSession: None,
-  trendData: [],
-  leakSuspects: [],
-  sessions: [],
-  monitoring: false,
-  sampleIntervalMs: 5000,
-  leakThresholdBytes: 1048576,
-  error: None,
-}
-
-/// Human-readable label for each tab in the Soak Monitor panel.
-let tabLabel = (tab: soakTab): string =>
-  switch tab {
-  | TabLiveMonitor => "Live Monitor"
-  | TabTrends => "Trends"
-  | TabLeakDetection => "Leak Detection"
-  | TabHistory => "History"
-  }
-
-/// All tabs in display order.
-let allTabs: array<soakTab> = [TabLiveMonitor, TabTrends, TabLeakDetection, TabHistory]
-
-/// Calculate memory growth rate (bytes per hour) from trend data.
-/// Requires at least two data points spanning a non-zero time interval.
-let memoryGrowthRate = (data: array<memoryTrendPoint>): float => {
-  let count = data->Array.length
-  if count < 2 {
-    0.0
-  } else {
-    let first = data->Array.getUnsafe(0)
-    let last = data->Array.getUnsafe(count - 1)
-    let timeDeltaHours = (last.timestamp -. first.timestamp) /. 3600000.0
-    if timeDeltaHours <= 0.0 {
-      0.0
-    } else {
-      Float.fromInt(last.heapUsedBytes - first.heapUsedBytes) /. timeDeltaHours
-    }
-  }
-}
-
-/// Classify leak severity based on growth rate.
-let classifyLeakSeverity = (growthRatePerHour: int): leakSeverity => {
-  let mbPerHour = Float.fromInt(growthRatePerHour) /. 1048576.0
-  if mbPerHour > 10.0 {
-    LeakSevere
-  } else if mbPerHour > 1.0 {
-    LeakModerate
-  } else {
-    LeakNegligible
-  }
-}
-
-/// Human-readable label for leak severity.
-let leakSeverityLabel = (severity: leakSeverity): string =>
-  switch severity {
-  | LeakNegligible => "Negligible"
-  | LeakModerate => "Moderate"
-  | LeakSevere => "Severe"
-  }
-
-/// CSS colour class for leak severity.
-let leakSeverityColor = (severity: leakSeverity): string =>
-  switch severity {
-  | LeakNegligible => "text-gray-400"
-  | LeakModerate => "text-yellow-400"
-  | LeakSevere => "text-red-400"
-  }
-
-/// Session duration as human-readable string.
-let sessionDuration = (session: soakSession): string => {
-  let mins = session.durationMinutes
-  if mins < 60.0 {
-    Float.toFixed(mins, ~digits=0) ++ "m"
-  } else {
-    Float.toFixed(mins /. 60.0, ~digits=1) ++ "h"
-  }
-}
-
-/// Session status label.
-let sessionStatusLabel = (status: soakSessionStatus): string =>
-  switch status {
-  | SoakRunning => "Running"
-  | SoakCompleted => "Completed"
-  | SoakAborted(reason) => "Aborted: " ++ reason
-  }
-
-/// CSS colour class for session status.
-let sessionStatusColor = (status: soakSessionStatus): string =>
-  switch status {
-  | SoakRunning => "text-green-400"
-  | SoakCompleted => "text-blue-400"
-  | SoakAborted(_) => "text-red-400"
-  }
-
-/// Format bytes as human-readable size string.
-let formatBytes = (bytes: int): string => {
-  let mb = Float.fromInt(bytes) /. 1048576.0
-  if mb >= 1024.0 {
-    Float.toFixed(mb /. 1024.0, ~digits=2) ++ " GB"
-  } else if mb >= 1.0 {
-    Float.toFixed(mb, ~digits=1) ++ " MB"
-  } else {
-    Float.toFixed(Float.fromInt(bytes) /. 1024.0, ~digits=1) ++ " KB"
-  }
-}
-
-/// Current heap utilisation percentage from the latest trend point.
-let heapUtilisation = (data: array<memoryTrendPoint>): float => {
-  let count = data->Array.length
-  if count == 0 {
-    0.0
-  } else {
-    let latest = data->Array.getUnsafe(count - 1)
-    if latest.heapTotalBytes == 0 {
-      0.0
-    } else {
-      Float.fromInt(latest.heapUsedBytes) /. Float.fromInt(latest.heapTotalBytes) *. 100.0
-    }
-  }
-}
-
-/// Count high-confidence leak suspects (confidence >= 0.7).
-let highConfidenceLeaks = (suspects: array<leakSuspect>): int =>
-  suspects->Array.filter(s => s.confidence >= 0.7)->Array.length
diff --git a/src/core/SpecBrowserEngine.affine b/src/core/SpecBrowserEngine.affine
new file mode 100644
index 00000000..f0acb9ac
--- /dev/null
+++ b/src/core/SpecBrowserEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module SpecBrowserEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/SpecBrowserEngine.res b/src/core/SpecBrowserEngine.res
deleted file mode 100644
index 403eabae..00000000
--- a/src/core/SpecBrowserEngine.res
+++ /dev/null
@@ -1,634 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL SpecBrowser Engine — pure computation for the language specification browser.
-///
-/// Provides labels, filtering, sorting, taxonomy completeness calculations,
-/// and hardcoded spec data for all 16 nextgen-languages projects.
-///
-/// No side effects — all filesystem scanning would go through Gossamer commands.
-
-open SpecBrowserModel
-
-// ============================================================================
-// File Kind Labels & Paths
-// ============================================================================
-
-/// Human-readable label for a spec file kind.
-let fileKindLabel = (kind: specFileKind): string =>
-  switch kind {
-  | GrammarEbnf => "Grammar (EBNF)"
-  | SpecCoreScm => "SPEC.core.scm"
-  | TypingRules => "Typing Rules"
-  | OperationalSemantics => "Operational Semantics"
-  | DenotationalSemantics => "Denotational Semantics"
-  | ConformanceTests => "Conformance Tests"
-  | Benchmarks => "Benchmarks"
-  | ProofArtefacts => "Proof Artefacts"
-  }
-
-/// Short code for a spec file kind.
-let fileKindCode = (kind: specFileKind): string =>
-  switch kind {
-  | GrammarEbnf => "EBNF"
-  | SpecCoreScm => "SPEC"
-  | TypingRules => "TYPE"
-  | OperationalSemantics => "OPSEM"
-  | DenotationalSemantics => "DENSEM"
-  | ConformanceTests => "TEST"
-  | Benchmarks => "BENCH"
-  | ProofArtefacts => "PROOF"
-  }
-
-/// Expected relative path for a standard file within a language project.
-let fileKindPath = (kind: specFileKind): string =>
-  switch kind {
-  | GrammarEbnf => "grammar.ebnf"
-  | SpecCoreScm => "SPEC.core.scm"
-  | TypingRules => "typing-rules.md"
-  | OperationalSemantics => "operational-semantics.md"
-  | DenotationalSemantics => "denotational-semantics.md"
-  | ConformanceTests => "tests/conformance/"
-  | Benchmarks => "benchmarks/"
-  | ProofArtefacts => "proofs/"
-  }
-
-/// Colour for file presence indicator.
-let presenceColour = (exists: bool): string =>
-  if exists {
-    "text-emerald-400"
-  } else {
-    "text-red-400"
-  }
-
-/// All standard file kinds in display order.
-let allFileKinds: array<specFileKind> = [
-  GrammarEbnf,
-  SpecCoreScm,
-  TypingRules,
-  OperationalSemantics,
-  DenotationalSemantics,
-  ConformanceTests,
-  Benchmarks,
-  ProofArtefacts,
-]
-
-// ============================================================================
-// Category Tab Labels
-// ============================================================================
-
-/// Label for a category tab.
-let categoryLabel = (cat: specBrowserCategory): string =>
-  switch cat {
-  | SpecOverview => "Overview"
-  | SpecComparison => "Compare"
-  | SpecGrammar => "Grammar"
-  | SpecTypingRules => "Typing Rules"
-  | SpecVerification => "Verification"
-  }
-
-/// All category tabs in display order.
-let allCategories: array<specBrowserCategory> = [
-  SpecOverview,
-  SpecComparison,
-  SpecGrammar,
-  SpecTypingRules,
-  SpecVerification,
-]
-
-// ============================================================================
-// Taxonomy Completeness
-// ============================================================================
-
-/// Calculate taxonomy completeness for a language (percentage of standard files present).
-let computeTaxonomyCompleteness = (files: array<filePresence>): int => {
-  let total = Array.length(files)
-  if total === 0 {
-    0
-  } else {
-    let present = files->Array.filter(f => f.exists)->Array.length
-    present * 100 / total
-  }
-}
-
-/// Colour for taxonomy completeness percentage.
-let completenessColour = (pct: int): string =>
-  if pct >= 80 {
-    "text-emerald-400"
-  } else if pct >= 50 {
-    "text-amber-400"
-  } else if pct >= 25 {
-    "text-orange-400"
-  } else {
-    "text-red-400"
-  }
-
-/// Badge class for taxonomy completeness.
-let completenessBadge = (pct: int): string =>
-  if pct >= 80 {
-    "bg-emerald-900/30 text-emerald-300 border-emerald-700"
-  } else if pct >= 50 {
-    "bg-amber-900/30 text-amber-300 border-amber-700"
-  } else if pct >= 25 {
-    "bg-orange-900/30 text-orange-300 border-orange-700"
-  } else {
-    "bg-red-900/30 text-red-300 border-red-700"
-  }
-
-/// Progress bar string (10 chars wide using block characters).
-let progressBar = (pct: int): string => {
-  let filled = pct / 10
-  let empty = 10 - filled
-  let filledStr = String.repeat(String.fromCharCode(9608), filled) // U+2588 FULL BLOCK
-  let emptyStr = String.repeat(String.fromCharCode(9617), empty) // U+2591 LIGHT SHADE
-  filledStr ++ emptyStr
-}
-
-// ============================================================================
-// Filtering & Sorting
-// ============================================================================
-
-/// Filter languages by name search text.
-let filterBySearch = (langs: array<specLanguageEntry>, query: string): array<specLanguageEntry> =>
-  if query === "" {
-    langs
-  } else {
-    let q = String.toLowerCase(query)
-    langs->Array.filter(l =>
-      String.includes(String.toLowerCase(l.name), q) ||
-      String.includes(String.toLowerCase(l.description), q) ||
-      String.includes(String.toLowerCase(l.implLang), q)
-    )
-  }
-
-/// Filter to only languages with incomplete taxonomy.
-let filterIncomplete = (langs: array<specLanguageEntry>): array<specLanguageEntry> =>
-  langs->Array.filter(l => l.taxonomyCompleteness < 100)
-
-/// Sort languages by taxonomy completeness (ascending — worst first).
-let sortByCompleteness = (langs: array<specLanguageEntry>): array<specLanguageEntry> => {
-  let copy = Array.copy(langs)
-  copy->Array.sort((a, b) => Float.fromInt(a.taxonomyCompleteness - b.taxonomyCompleteness))
-  copy
-}
-
-/// Sort languages alphabetically by name.
-let sortByName = (langs: array<specLanguageEntry>): array<specLanguageEntry> => {
-  let copy = Array.copy(langs)
-  copy->Array.sort((a, b) => String.compare(a.name, b.name))
-  copy
-}
-
-// ============================================================================
-// Hardcoded Language Spec Data — from nextgen-languages assessment
-// ============================================================================
-
-/// Helper to build a file presence with default path.
-let mkFile = (kind: specFileKind, exists: bool, lines: int): filePresence => {
-  {kind, exists, lineCount: lines, path: fileKindPath(kind)}
-}
-
-/// Default verification summary (no data).
-let emptyVerification: verificationSummary = {
-  totalTests: 0,
-  passingTests: 0,
-  admittedCount: 0,
-  provedCount: 0,
-  hasFuzzing: false,
-  conformancePassing: false,
-}
-
-/// All 16 nextgen-languages with their specification inventory.
-/// This data mirrors the Language Forge assessment but focuses on
-/// specification artefacts rather than implementation completion.
-let allLanguageSpecs: array<specLanguageEntry> = [
-  {
-    name: "AffineScript",
-    description: "Affine type system with dependent types for systems programming",
-    implLang: "OCaml",
-    files: [
-      mkFile(GrammarEbnf, true, 420),
-      mkFile(SpecCoreScm, true, 310),
-      mkFile(TypingRules, true, 180),
-      mkFile(OperationalSemantics, true, 95),
-      mkFile(DenotationalSemantics, false, 0),
-      mkFile(ConformanceTests, true, 1200),
-      mkFile(Benchmarks, false, 0),
-      mkFile(ProofArtefacts, true, 850),
-    ],
-    grammarContent: None,
-    specContent: None,
-    typingRulesContent: None,
-    verification: {
-      totalTests: 247,
-      passingTests: 241,
-      provedCount: 12,
-      admittedCount: 0,
-      hasFuzzing: false,
-      conformancePassing: true,
-    },
-    taxonomyCompleteness: 75,
-  },
-  {
-    name: "Eclexia",
-    description: "Dimensional type system with physical unit tracking",
-    implLang: "Idris2",
-    files: [
-      mkFile(GrammarEbnf, true, 380),
-      mkFile(SpecCoreScm, true, 290),
-      mkFile(TypingRules, true, 250),
-      mkFile(OperationalSemantics, true, 120),
-      mkFile(DenotationalSemantics, true, 85),
-      mkFile(ConformanceTests, true, 560),
-      mkFile(Benchmarks, false, 0),
-      mkFile(ProofArtefacts, true, 1400),
-    ],
-    grammarContent: None,
-    specContent: None,
-    typingRulesContent: None,
-    verification: {
-      totalTests: 89,
-      passingTests: 67,
-      provedCount: 22,
-      admittedCount: 22,
-      hasFuzzing: false,
-      conformancePassing: false,
-    },
-    taxonomyCompleteness: 88,
-  },
-  {
-    name: "Anvomidav",
-    description: "Array-oriented numerical language with verified dimensions",
-    implLang: "Rust",
-    files: [
-      mkFile(GrammarEbnf, true, 200),
-      mkFile(SpecCoreScm, true, 150),
-      mkFile(TypingRules, false, 0),
-      mkFile(OperationalSemantics, false, 0),
-      mkFile(DenotationalSemantics, false, 0),
-      mkFile(ConformanceTests, true, 340),
-      mkFile(Benchmarks, true, 120),
-      mkFile(ProofArtefacts, false, 0),
-    ],
-    grammarContent: None,
-    specContent: None,
-    typingRulesContent: None,
-    verification: {
-      ...emptyVerification,
-      totalTests: 56,
-      passingTests: 48,
-      hasFuzzing: false,
-      conformancePassing: true,
-    },
-    taxonomyCompleteness: 50,
-  },
-  {
-    name: "Ephapax",
-    description: "Single-use value language — every binding used exactly once",
-    implLang: "Haskell",
-    files: [
-      mkFile(GrammarEbnf, true, 160),
-      mkFile(SpecCoreScm, true, 180),
-      mkFile(TypingRules, true, 200),
-      mkFile(OperationalSemantics, true, 110),
-      mkFile(DenotationalSemantics, false, 0),
-      mkFile(ConformanceTests, true, 420),
-      mkFile(Benchmarks, false, 0),
-      mkFile(ProofArtefacts, true, 600),
-    ],
-    grammarContent: None,
-    specContent: None,
-    typingRulesContent: None,
-    verification: {
-      totalTests: 134,
-      passingTests: 130,
-      provedCount: 8,
-      admittedCount: 0,
-      hasFuzzing: false,
-      conformancePassing: true,
-    },
-    taxonomyCompleteness: 75,
-  },
-  {
-    name: "WokeLang",
-    description: "Socially-aware constraint language with fairness typing",
-    implLang: "Elixir",
-    files: [
-      mkFile(GrammarEbnf, true, 140),
-      mkFile(SpecCoreScm, true, 120),
-      mkFile(TypingRules, false, 0),
-      mkFile(OperationalSemantics, false, 0),
-      mkFile(DenotationalSemantics, false, 0),
-      mkFile(ConformanceTests, false, 0),
-      mkFile(Benchmarks, false, 0),
-      mkFile(ProofArtefacts, false, 0),
-    ],
-    grammarContent: None,
-    specContent: None,
-    typingRulesContent: None,
-    verification: emptyVerification,
-    taxonomyCompleteness: 25,
-  },
-  {
-    name: "BetLang",
-    description: "Probabilistic programming language with Bayesian type inference",
-    implLang: "OCaml",
-    files: [
-      mkFile(GrammarEbnf, true, 180),
-      mkFile(SpecCoreScm, true, 160),
-      mkFile(TypingRules, true, 140),
-      mkFile(OperationalSemantics, false, 0),
-      mkFile(DenotationalSemantics, false, 0),
-      mkFile(ConformanceTests, true, 280),
-      mkFile(Benchmarks, false, 0),
-      mkFile(ProofArtefacts, false, 0),
-    ],
-    grammarContent: None,
-    specContent: None,
-    typingRulesContent: None,
-    verification: {
-      ...emptyVerification,
-      totalTests: 45,
-      passingTests: 38,
-      conformancePassing: false,
-    },
-    taxonomyCompleteness: 50,
-  },
-  {
-    name: "Tangle",
-    description: "Topological programming — braid groups and knot invariants as types",
-    implLang: "Rust",
-    files: [
-      mkFile(GrammarEbnf, true, 220),
-      mkFile(SpecCoreScm, true, 200),
-      mkFile(TypingRules, true, 170),
-      mkFile(OperationalSemantics, true, 130),
-      mkFile(DenotationalSemantics, true, 95),
-      mkFile(ConformanceTests, true, 510),
-      mkFile(Benchmarks, true, 80),
-      mkFile(ProofArtefacts, true, 700),
-    ],
-    grammarContent: None,
-    specContent: None,
-    typingRulesContent: None,
-    verification: {
-      totalTests: 112,
-      passingTests: 108,
-      provedCount: 15,
-      admittedCount: 0,
-      hasFuzzing: true,
-      conformancePassing: true,
-    },
-    taxonomyCompleteness: 100,
-  },
-  {
-    name: "My-Lang",
-    description: "AI-native language — 4 dialects (Solo, Duet, Ensemble, Me)",
-    implLang: "Rust",
-    files: [
-      mkFile(GrammarEbnf, true, 300),
-      mkFile(SpecCoreScm, true, 240),
-      mkFile(TypingRules, true, 160),
-      mkFile(OperationalSemantics, false, 0),
-      mkFile(DenotationalSemantics, false, 0),
-      mkFile(ConformanceTests, true, 380),
-      mkFile(Benchmarks, false, 0),
-      mkFile(ProofArtefacts, false, 0),
-    ],
-    grammarContent: None,
-    specContent: None,
-    typingRulesContent: None,
-    verification: {
-      ...emptyVerification,
-      totalTests: 78,
-      passingTests: 72,
-      conformancePassing: true,
-    },
-    taxonomyCompleteness: 50,
-  },
-  {
-    name: "Crank",
-    description: "Stack-based language with certified resource bounds",
-    implLang: "Rust",
-    files: [
-      mkFile(GrammarEbnf, true, 120),
-      mkFile(SpecCoreScm, false, 0),
-      mkFile(TypingRules, false, 0),
-      mkFile(OperationalSemantics, true, 80),
-      mkFile(DenotationalSemantics, false, 0),
-      mkFile(ConformanceTests, true, 210),
-      mkFile(Benchmarks, true, 60),
-      mkFile(ProofArtefacts, false, 0),
-    ],
-    grammarContent: None,
-    specContent: None,
-    typingRulesContent: None,
-    verification: {
-      ...emptyVerification,
-      totalTests: 34,
-      passingTests: 30,
-      conformancePassing: false,
-    },
-    taxonomyCompleteness: 38,
-  },
-  {
-    name: "Delimit",
-    description: "Delimited continuations as first-class types",
-    implLang: "OCaml",
-    files: [
-      mkFile(GrammarEbnf, true, 190),
-      mkFile(SpecCoreScm, true, 170),
-      mkFile(TypingRules, true, 210),
-      mkFile(OperationalSemantics, true, 150),
-      mkFile(DenotationalSemantics, true, 120),
-      mkFile(ConformanceTests, true, 450),
-      mkFile(Benchmarks, false, 0),
-      mkFile(ProofArtefacts, true, 550),
-    ],
-    grammarContent: None,
-    specContent: None,
-    typingRulesContent: None,
-    verification: {
-      ...emptyVerification,
-      totalTests: 98,
-      passingTests: 91,
-      provedCount: 11,
-      admittedCount: 2,
-      conformancePassing: true,
-    },
-    taxonomyCompleteness: 88,
-  },
-  {
-    name: "Sunyata",
-    description: "Emptiness-typed language — void and bottom as first-class",
-    implLang: "Haskell",
-    files: [
-      mkFile(GrammarEbnf, true, 100),
-      mkFile(SpecCoreScm, true, 90),
-      mkFile(TypingRules, true, 80),
-      mkFile(OperationalSemantics, false, 0),
-      mkFile(DenotationalSemantics, false, 0),
-      mkFile(ConformanceTests, false, 0),
-      mkFile(Benchmarks, false, 0),
-      mkFile(ProofArtefacts, false, 0),
-    ],
-    grammarContent: None,
-    specContent: None,
-    typingRulesContent: None,
-    verification: emptyVerification,
-    taxonomyCompleteness: 38,
-  },
-  {
-    name: "HexSweep",
-    description: "Hexagonal grid computation with spatial types",
-    implLang: "Rust",
-    files: [
-      mkFile(GrammarEbnf, true, 150),
-      mkFile(SpecCoreScm, false, 0),
-      mkFile(TypingRules, false, 0),
-      mkFile(OperationalSemantics, false, 0),
-      mkFile(DenotationalSemantics, false, 0),
-      mkFile(ConformanceTests, true, 180),
-      mkFile(Benchmarks, true, 45),
-      mkFile(ProofArtefacts, false, 0),
-    ],
-    grammarContent: None,
-    specContent: None,
-    typingRulesContent: None,
-    verification: {
-      ...emptyVerification,
-      totalTests: 23,
-      passingTests: 19,
-      conformancePassing: false,
-    },
-    taxonomyCompleteness: 25,
-  },
-  {
-    name: "Cascade",
-    description: "Dataflow language with verified pipeline types",
-    implLang: "Gleam",
-    files: [
-      mkFile(GrammarEbnf, true, 170),
-      mkFile(SpecCoreScm, true, 130),
-      mkFile(TypingRules, false, 0),
-      mkFile(OperationalSemantics, false, 0),
-      mkFile(DenotationalSemantics, false, 0),
-      mkFile(ConformanceTests, true, 260),
-      mkFile(Benchmarks, false, 0),
-      mkFile(ProofArtefacts, false, 0),
-    ],
-    grammarContent: None,
-    specContent: None,
-    typingRulesContent: None,
-    verification: {
-      ...emptyVerification,
-      totalTests: 41,
-      passingTests: 35,
-      conformancePassing: false,
-    },
-    taxonomyCompleteness: 38,
-  },
-  {
-    name: "Polytope",
-    description: "Geometric type theory — polytopes and simplicial types",
-    implLang: "Idris2",
-    files: [
-      mkFile(GrammarEbnf, true, 240),
-      mkFile(SpecCoreScm, true, 220),
-      mkFile(TypingRules, true, 300),
-      mkFile(OperationalSemantics, true, 180),
-      mkFile(DenotationalSemantics, true, 160),
-      mkFile(ConformanceTests, true, 380),
-      mkFile(Benchmarks, false, 0),
-      mkFile(ProofArtefacts, true, 900),
-    ],
-    grammarContent: None,
-    specContent: None,
-    typingRulesContent: None,
-    verification: {
-      ...emptyVerification,
-      totalTests: 76,
-      passingTests: 68,
-      provedCount: 18,
-      admittedCount: 5,
-      conformancePassing: true,
-    },
-    taxonomyCompleteness: 88,
-  },
-  {
-    name: "Coda",
-    description: "Musical programming — rhythmic types and harmonic constraints",
-    implLang: "Elixir",
-    files: [
-      mkFile(GrammarEbnf, true, 130),
-      mkFile(SpecCoreScm, true, 100),
-      mkFile(TypingRules, false, 0),
-      mkFile(OperationalSemantics, false, 0),
-      mkFile(DenotationalSemantics, false, 0),
-      mkFile(ConformanceTests, true, 150),
-      mkFile(Benchmarks, false, 0),
-      mkFile(ProofArtefacts, false, 0),
-    ],
-    grammarContent: None,
-    specContent: None,
-    typingRulesContent: None,
-    verification: {
-      ...emptyVerification,
-      totalTests: 28,
-      passingTests: 22,
-      conformancePassing: false,
-    },
-    taxonomyCompleteness: 38,
-  },
-  {
-    name: "Strata",
-    description: "Stratified type system with universe polymorphism",
-    implLang: "Idris2",
-    files: [
-      mkFile(GrammarEbnf, true, 260),
-      mkFile(SpecCoreScm, true, 230),
-      mkFile(TypingRules, true, 280),
-      mkFile(OperationalSemantics, true, 160),
-      mkFile(DenotationalSemantics, true, 140),
-      mkFile(ConformanceTests, true, 490),
-      mkFile(Benchmarks, true, 70),
-      mkFile(ProofArtefacts, true, 1100),
-    ],
-    grammarContent: None,
-    specContent: None,
-    typingRulesContent: None,
-    verification: {
-      totalTests: 145,
-      passingTests: 138,
-      provedCount: 24,
-      admittedCount: 3,
-      hasFuzzing: true,
-      conformancePassing: true,
-    },
-    taxonomyCompleteness: 100,
-  },
-]
-
-/// Find a language entry by name.
-let findLanguage = (name: string): option<specLanguageEntry> => {
-  allLanguageSpecs->Array.find(l => l.name === name)
-}
-
-/// Get all language names for dropdowns.
-let allLanguageNames: array<string> = allLanguageSpecs->Array.map(l => l.name)
-
-/// Summary statistics across the entire portfolio.
-let portfolioSummary = (): portfolioStats => {
-  let total = Array.length(allLanguageSpecs)
-  let sumCompleteness = allLanguageSpecs->Array.reduce(0, (acc, l) => acc + l.taxonomyCompleteness)
-  let avgCompleteness = if total > 0 {
-    sumCompleteness / total
-  } else {
-    0
-  }
-  let fullySpecified =
-    allLanguageSpecs->Array.filter(l => l.taxonomyCompleteness >= 100)->Array.length
-  let totalTests = allLanguageSpecs->Array.reduce(0, (acc, l) => acc + l.verification.totalTests)
-  let totalAdmitted =
-    allLanguageSpecs->Array.reduce(0, (acc, l) => acc + l.verification.admittedCount)
-  {totalLanguages: total, avgCompleteness, fullySpecified, totalTests, totalAdmitted}
-}
diff --git a/src/core/StapelnEngine.affine b/src/core/StapelnEngine.affine
new file mode 100644
index 00000000..b826b07f
--- /dev/null
+++ b/src/core/StapelnEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module StapelnEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/StapelnEngine.res b/src/core/StapelnEngine.res
deleted file mode 100644
index 74f75ffc..00000000
--- a/src/core/StapelnEngine.res
+++ /dev/null
@@ -1,127 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Stapeln Engine — pure computation and helpers for
-/// the container stack assembly pipeline panel.
-
-open StapelnModel
-
-/// Default security constraints — opinionated secure defaults following
-/// hyperpolymath container ecosystem standards (Chainguard base images,
-/// cosign signatures, SPDX SBOM, non-root, healthchecks required).
-let defaultConstraints: stapelnConstraints = {
-  minSlsaLevel: Slsa2,
-  signaturePolicy: CerroTorre,
-  sbomFormat: Spdx,
-  maxImageSizeMb: 256,
-  memoryLimitMb: 512,
-  cpuLimit: 2.0,
-  networkRules: [
-    {port: 443, protocol: Tcp, direction: "egress", description: "HTTPS outbound"},
-    {port: 80, protocol: Tcp, direction: "ingress", description: "HTTP inbound"},
-  ],
-  registryConstraints: [
-    {registry: "cgr.dev/chainguard", allowed: true},
-    {registry: "ghcr.io", allowed: true},
-    {registry: "docker.io", allowed: false},
-  ],
-  deniedImages: ["ubuntu:latest", "alpine:latest", "node:*"],
-  requireHealthcheck: true,
-  requireNonRoot: true,
-}
-
-/// Default initial state for the stapeln panel.
-let defaultState: stapelnState = {
-  pipelineUrl: "http://localhost:8420",
-  connected: false,
-  constraints: defaultConstraints,
-  pipelineStatus: None,
-  catalog: [],
-  lastValidation: None,
-  generatedArtifact: None,
-  selectedFormat: FormatContainerfile,
-  activeTab: "constraints",
-  loading: false,
-  error: None,
-}
-
-/// Human-readable label for SLSA levels.
-let slsaLabel = (level: slsaLevel): string =>
-  switch level {
-  | SlsaNone => "None"
-  | Slsa1 => "SLSA 1"
-  | Slsa2 => "SLSA 2"
-  | Slsa3 => "SLSA 3"
-  | Slsa4 => "SLSA 4"
-  }
-
-/// Human-readable label for signature policy.
-let signaturePolicyLabel = (policy: signaturePolicy): string =>
-  switch policy {
-  | NoSignature => "None"
-  | Cosign => "Cosign (Sigstore)"
-  | Notary => "Notary v2"
-  | CerroTorre => "cerro-torre sign"
-  }
-
-/// Human-readable label for SBOM format.
-let sbomFormatLabel = (fmt: sbomFormat): string =>
-  switch fmt {
-  | SbomNone => "None"
-  | Spdx => "SPDX"
-  | CycloneDx => "CycloneDX"
-  | SbomBoth => "SPDX + CycloneDX"
-  }
-
-/// Human-readable label for artifact format.
-let artifactFormatLabel = (fmt: artifactFormat): string =>
-  switch fmt {
-  | FormatContainerfile => "Containerfile"
-  | FormatCompose => "compose.yaml"
-  | FormatKubernetes => "Kubernetes"
-  | FormatQuadlet => "Quadlet"
-  }
-
-/// Human-readable label for pipeline health.
-let healthLabel = (h: pipelineHealth): string =>
-  switch h {
-  | PipelineHealthy => "Healthy"
-  | PipelineWarning => "Warning"
-  | PipelineFailing => "Failing"
-  | PipelineUnknown => "Unknown"
-  }
-
-/// Tailwind colour class for pipeline health indicator.
-let healthColour = (h: pipelineHealth): string =>
-  switch h {
-  | PipelineHealthy => "text-emerald-400"
-  | PipelineWarning => "text-amber-400"
-  | PipelineFailing => "text-red-400"
-  | PipelineUnknown => "text-gray-400"
-  }
-
-/// Tailwind colour class for validation finding level.
-let findingLevelColour = (level: string): string =>
-  switch level {
-  | "error" => "text-red-400"
-  | "warning" => "text-amber-400"
-  | _ => "text-blue-400"
-  }
-
-/// Count findings by level.
-let countFindings = (findings: array<validationFinding>, level: string): int =>
-  findings->Array.filter(f => f.level === level)->Array.length
-
-/// Security posture score as a percentage string.
-let posturePercentage = (posture: securityPosture): string =>
-  Int.toString(Float.toInt(posture.score *. 100.0)) ++ "%"
-
-/// All artifact format options (for dropdown/tab rendering).
-let allFormats: array<artifactFormat> = [
-  FormatContainerfile,
-  FormatCompose,
-  FormatKubernetes,
-  FormatQuadlet,
-]
-
-/// All SLSA levels (for dropdown rendering).
-let allSlsaLevels: array<slsaLevel> = [SlsaNone, Slsa1, Slsa2, Slsa3, Slsa4]
diff --git a/src/core/StatusBarEngine.affine b/src/core/StatusBarEngine.affine
new file mode 100644
index 00000000..716fe652
--- /dev/null
+++ b/src/core/StatusBarEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module StatusBarEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/StatusBarEngine.res b/src/core/StatusBarEngine.res
deleted file mode 100644
index debf081a..00000000
--- a/src/core/StatusBarEngine.res
+++ /dev/null
@@ -1,240 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Status Bar Engine — widget registry, layout, and default configuration.
-///
-/// Pure functions for managing the status bar widget system. The status bar
-/// is a configurable, VS Code-style bar at the bottom of the window. Users
-/// can drag widgets to reorder, toggle visibility, and customise refresh rates
-/// via the Workspace panel's configurator.
-
-open StatusBarModel
-
-// ============================================================================
-// Default Widget Configuration
-// ============================================================================
-
-/// Default set of status bar widgets. These ship with PanLL and can be
-/// customised by the user. Order determines initial layout.
-let defaultWidgets: array<statusWidget> = [
-  {
-    id: "active-panel",
-    label: "Panel",
-    kind: ActivePanel,
-    position: Left,
-    visible: true,
-    refreshRate: 0,
-    order: 1,
-  },
-  {
-    id: "workspace-mode",
-    label: "Mode",
-    kind: WorkspaceMode,
-    position: Left,
-    visible: true,
-    refreshRate: 0,
-    order: 2,
-  },
-  {
-    id: "execution-mode",
-    label: "Exec",
-    kind: ExecutionMode,
-    position: Left,
-    visible: true,
-    refreshRate: 0,
-    order: 3,
-  },
-  {
-    id: "session-protection",
-    label: "Protection",
-    kind: SessionProtection,
-    position: Left,
-    visible: true,
-    refreshRate: 0,
-    order: 4,
-  },
-  {
-    id: "repo-info",
-    label: "Repo",
-    kind: RepoInfo,
-    position: Center,
-    visible: true,
-    refreshRate: 0,
-    order: 1,
-  },
-  {
-    id: "provider-status",
-    label: "AI",
-    kind: ProviderStatus,
-    position: Center,
-    visible: true,
-    refreshRate: 0,
-    order: 2,
-  },
-  {
-    id: "task-progress",
-    label: "Tasks",
-    kind: TaskProgress,
-    position: Center,
-    visible: true,
-    refreshRate: 0,
-    order: 3,
-  },
-  {
-    id: "undo-redo",
-    label: "Undo",
-    kind: UndoRedoStatus,
-    position: Center,
-    visible: false,
-    refreshRate: 0,
-    order: 4,
-  },
-  {
-    id: "cpu-usage",
-    label: "CPU",
-    kind: CpuUsage,
-    position: Right,
-    visible: true,
-    refreshRate: 2000,
-    order: 1,
-  },
-  {
-    id: "memory-usage",
-    label: "Mem",
-    kind: MemoryUsage,
-    position: Right,
-    visible: true,
-    refreshRate: 5000,
-    order: 2,
-  },
-  {
-    id: "disk-usage",
-    label: "Disk",
-    kind: DiskUsage,
-    position: Right,
-    visible: false,
-    refreshRate: 10000,
-    order: 3,
-  },
-  {
-    id: "watcher-rate",
-    label: "Watch",
-    kind: WatcherRate,
-    position: Right,
-    visible: false,
-    refreshRate: 1000,
-    order: 4,
-  },
-  {
-    id: "session-uptime",
-    label: "Up",
-    kind: SessionUptime,
-    position: Right,
-    visible: true,
-    refreshRate: 60000,
-    order: 5,
-  },
-]
-
-// ============================================================================
-// Widget Operations
-// ============================================================================
-
-/// Toggle a widget's visibility.
-let toggleWidget = (state: statusBarState, widgetId: string): statusBarState => {
-  {
-    ...state,
-    widgets: Array.map(state.widgets, w =>
-      if w.id === widgetId {
-        {...w, visible: !w.visible}
-      } else {
-        w
-      }
-    ),
-  }
-}
-
-/// Move a widget to a new position (Left, Center, Right).
-let moveWidget = (
-  state: statusBarState,
-  widgetId: string,
-  newPosition: widgetPosition,
-): statusBarState => {
-  {
-    ...state,
-    widgets: Array.map(state.widgets, w =>
-      if w.id === widgetId {
-        {...w, position: newPosition}
-      } else {
-        w
-      }
-    ),
-  }
-}
-
-/// Reorder a widget within its position group.
-let reorderWidget = (state: statusBarState, widgetId: string, newOrder: int): statusBarState => {
-  {
-    ...state,
-    widgets: Array.map(state.widgets, w =>
-      if w.id === widgetId {
-        {...w, order: newOrder}
-      } else {
-        w
-      }
-    ),
-  }
-}
-
-/// Update the system info snapshot.
-let updateSystemInfo = (state: statusBarState, info: systemInfo): statusBarState => {
-  {...state, systemInfo: Some(info)}
-}
-
-/// Get widgets for a specific position, sorted by order.
-let widgetsForPosition = (widgets: array<statusWidget>, position: widgetPosition): array<
-  statusWidget,
-> => {
-  let filtered = Array.filter(widgets, w => w.position === position && w.visible)
-  Array.toSorted(filtered, (a, b) => Float.fromInt(a.order) -. Float.fromInt(b.order))
-}
-
-/// Format bytes as a human-readable string (KB, MB, GB).
-let formatBytes = (bytes: float): string => {
-  if bytes >= 1073741824.0 {
-    let gb = bytes /. 1073741824.0
-    Float.toFixed(gb, ~digits=1) ++ " GB"
-  } else if bytes >= 1048576.0 {
-    let mb = bytes /. 1048576.0
-    Float.toFixed(mb, ~digits=0) ++ " MB"
-  } else if bytes >= 1024.0 {
-    let kb = bytes /. 1024.0
-    Float.toFixed(kb, ~digits=0) ++ " KB"
-  } else {
-    Float.toFixed(bytes, ~digits=0) ++ " B"
-  }
-}
-
-/// Format uptime seconds as a human-readable string (Xh Ym).
-let formatUptime = (seconds: float): string => {
-  let hours = Float.toInt(seconds /. 3600.0)
-  let remainder = seconds -. Float.fromInt(hours) *. 3600.0
-  let minutes = Float.toInt(remainder /. 60.0)
-  if hours > 0 {
-    Int.toString(hours) ++ "h " ++ Int.toString(minutes) ++ "m"
-  } else {
-    Int.toString(minutes) ++ "m"
-  }
-}
-
-// ============================================================================
-// Default State
-// ============================================================================
-
-/// Initial status bar state.
-let defaultState: statusBarState = {
-  widgets: defaultWidgets,
-  visible: true,
-  systemInfo: None,
-  perPanelBars: false,
-  draggingWidget: None,
-}
diff --git a/src/core/TangleVizEngine.affine b/src/core/TangleVizEngine.affine
new file mode 100644
index 00000000..d9653f2a
--- /dev/null
+++ b/src/core/TangleVizEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TangleVizEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/TangleVizEngine.res b/src/core/TangleVizEngine.res
deleted file mode 100644
index c9ed276a..00000000
--- a/src/core/TangleVizEngine.res
+++ /dev/null
@@ -1,409 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL TangleViz Engine — pure functions for braid/knot topology computation.
-///
-/// Provides Unicode-formatted generator labels, braid word stringification,
-/// strand count detection, and a library of well-known example braids.
-/// All functions are pure — no side effects, no backend calls.
-
-open TangleVizModel
-
-// ════════════════════════════════════════════════════════════════════════
-// Unicode Subscript/Superscript Helpers
-// ════════════════════════════════════════════════════════════════════════
-
-/// Convert a digit (0-9) to its Unicode subscript character.
-let subscriptDigit = (d: int): string => {
-  switch d {
-  | 0 => "\xe2\x82\x80" // ₀
-  | 1 => "\xe2\x82\x81" // ₁
-  | 2 => "\xe2\x82\x82" // ₂
-  | 3 => "\xe2\x82\x83" // ₃
-  | 4 => "\xe2\x82\x84" // ₄
-  | 5 => "\xe2\x82\x85" // ₅
-  | 6 => "\xe2\x82\x86" // ₆
-  | 7 => "\xe2\x82\x87" // ₇
-  | 8 => "\xe2\x82\x88" // ₈
-  | 9 => "\xe2\x82\x89" // ₉
-  | _ => Int.toString(d)
-  }
-}
-
-/// Convert a positive integer to Unicode subscript string.
-let toSubscript = (n: int): string => {
-  if n < 10 {
-    subscriptDigit(n)
-  } else {
-    let tens = n / 10
-    let ones = mod(n, 10)
-    subscriptDigit(tens) ++ subscriptDigit(ones)
-  }
-}
-
-// ════════════════════════════════════════════════════════════════════════
-// Generator and Braid Word Formatting
-// ════════════════════════════════════════════════════════════════════════
-
-/// Format a single generator as a Unicode string.
-/// Positive: "σ₁", "σ₂", etc.
-/// Negative: "σ₁⁻¹", "σ₂⁻¹", etc.
-let generatorLabel = (gen: braidGenerator): string => {
-  let base = "\xcf\x83" ++ toSubscript(gen.index) // σ + subscript
-  if gen.exponent < 0 {
-    base ++ "\xe2\x81\xbb\xc2\xb9" // ⁻¹
-  } else {
-    base
-  }
-}
-
-/// Convert a braid word (array of generators) to a readable string.
-/// Empty braid → "e" (identity element).
-/// Otherwise joins generators with spaces: "σ₁ σ₂⁻¹ σ₁".
-let braidWordToString = (generators: array<braidGenerator>): string => {
-  if Array.length(generators) === 0 {
-    "e"
-  } else {
-    generators
-    ->Array.map(generatorLabel)
-    ->Array.join(" ")
-  }
-}
-
-/// Compute the strand count from a braid word.
-/// The number of strands is max(generator index) + 1.
-/// An empty braid word defaults to 2 strands.
-let strandCountFromWord = (generators: array<braidGenerator>): int => {
-  if Array.length(generators) === 0 {
-    2
-  } else {
-    let maxIndex = generators->Array.reduce(0, (acc, gen) => {
-      if gen.index > acc {
-        gen.index
-      } else {
-        acc
-      }
-    })
-    maxIndex + 1
-  }
-}
-
-// ════════════════════════════════════════════════════════════════════════
-// Example Braids
-// ════════════════════════════════════════════════════════════════════════
-
-/// A named example braid with its generators and description.
-type exampleBraid = {
-  /// Display name.
-  name: string,
-  /// The braid word.
-  generators: array<braidGenerator>,
-  /// Brief description of the knot/link.
-  description: string,
-}
-
-/// Library of well-known braids for quick selection.
-let exampleBraids = (): array<exampleBraid> => [
-  {
-    name: "Trefoil",
-    generators: [{index: 1, exponent: 1}, {index: 2, exponent: -1}, {index: 1, exponent: 1}],
-    description: "Simplest non-trivial knot (3₁)",
-  },
-  {
-    name: "Figure-Eight",
-    generators: [
-      {index: 1, exponent: 1},
-      {index: 2, exponent: -1},
-      {index: 1, exponent: 1},
-      {index: 2, exponent: -1},
-    ],
-    description: "First alternating knot (4₁)",
-  },
-  {
-    name: "Hopf Link",
-    generators: [{index: 1, exponent: 1}, {index: 1, exponent: 1}],
-    description: "Simplest non-trivial link (2²₁)",
-  },
-  {
-    name: "Borromean Rings",
-    generators: [
-      {index: 1, exponent: 1},
-      {index: 2, exponent: -1},
-      {index: 1, exponent: 1},
-      {index: 2, exponent: -1},
-      {index: 1, exponent: 1},
-      {index: 2, exponent: -1},
-    ],
-    description: "Three mutually linked rings (6³₂)",
-  },
-  {
-    name: "Identity",
-    generators: [],
-    description: "Trivial braid (unknot closure)",
-  },
-]
-
-// ════════════════════════════════════════════════════════════════════════
-// View Mode and Invariant Labels
-// ════════════════════════════════════════════════════════════════════════
-
-/// Human-readable label for a view mode tab.
-let viewModeLabel = (mode: tangleViewMode): string => {
-  switch mode {
-  | BraidDiagram => "Braid"
-  | KnotDiagram => "Knot"
-  | AlgebraicView => "Algebraic"
-  }
-}
-
-/// All view modes for tab iteration.
-let allViewModes: array<tangleViewMode> = [BraidDiagram, KnotDiagram, AlgebraicView]
-
-/// Human-readable label for a knot invariant.
-let invariantLabel = (inv: knotInvariant): string => {
-  switch inv {
-  | Jones => "Jones Polynomial"
-  | Alexander => "Alexander Polynomial"
-  | Homfly => "HOMFLY-PT Polynomial"
-  | Kauffman => "Kauffman Bracket"
-  | Writhe => "Writhe Number"
-  | Linking => "Linking Number"
-  }
-}
-
-/// All available invariants for selector iteration.
-let allInvariants: array<knotInvariant> = [Jones, Alexander, Homfly, Kauffman, Writhe, Linking]
-
-// ════════════════════════════════════════════════════════════════════════
-// Invariant Computations
-// ════════════════════════════════════════════════════════════════════════
-
-/// Compute the writhe of a braid word — the sum of all crossing signs.
-/// Positive crossing = +1, negative crossing = -1.
-let computeWrithe = (generators: array<braidGenerator>): int => {
-  generators->Array.reduce(0, (acc, gen) => acc + gen.exponent)
-}
-
-/// Compute the linking number by counting signed crossings between
-/// distinct components. For a braid closure, we trace which strands
-/// form which components, then count only inter-component crossings.
-///
-/// For a simple 2-strand braid, linking number = (sum of signs) / 2.
-/// For n-strand braids, we trace the permutation closure to identify
-/// components, then count signed crossings between distinct components.
-let computeLinkingNumber = (generators: array<braidGenerator>, strandCount: int): int => {
-  // First, compute the permutation induced by the braid
-  let perm = Array.fromInitializer(~length=strandCount, i => i)
-  generators->Array.forEach(gen => {
-    let i = gen.index - 1
-    if i >= 0 && i + 1 < strandCount {
-      let tmp = perm->Array.getUnsafe(i)
-      let _ = perm->Array.set(i, perm->Array.getUnsafe(i + 1))
-      let _ = perm->Array.set(i + 1, tmp)
-    }
-  })
-
-  // Find which component each strand belongs to by following the
-  // permutation cycles (each cycle = one component in the closure)
-  let component = Array.fromInitializer(~length=strandCount, _ => -1)
-  let compIdx = ref(0)
-  for s in 0 to strandCount - 1 {
-    if component->Array.getUnsafe(s) === -1 {
-      let current = ref(s)
-      while component->Array.getUnsafe(current.contents) === -1 {
-        let _ = component->Array.set(current.contents, compIdx.contents)
-        current := perm->Array.getUnsafe(current.contents)
-      }
-      compIdx := compIdx.contents + 1
-    }
-  }
-
-  // Count signed crossings between distinct components
-  // Re-trace the strand positions through each crossing
-  let positions = Array.fromInitializer(~length=strandCount, i => i)
-  let linkingSum = ref(0)
-  generators->Array.forEach(gen => {
-    let i = gen.index - 1
-    if i >= 0 && i + 1 < strandCount {
-      let strandTop = positions->Array.getUnsafe(i)
-      let strandBot = positions->Array.getUnsafe(i + 1)
-      let compTop = component->Array.getUnsafe(strandTop)
-      let compBot = component->Array.getUnsafe(strandBot)
-      if compTop !== compBot {
-        linkingSum := linkingSum.contents + gen.exponent
-      }
-      // Swap positions
-      let tmp = positions->Array.getUnsafe(i)
-      let _ = positions->Array.set(i, positions->Array.getUnsafe(i + 1))
-      let _ = positions->Array.set(i + 1, tmp)
-    }
-  })
-
-  // Linking number = half the signed inter-component crossing count
-  linkingSum.contents / 2
-}
-
-/// Count the number of components in the braid closure.
-/// Each cycle in the braid permutation corresponds to one component.
-let countComponents = (generators: array<braidGenerator>, strandCount: int): int => {
-  let perm = Array.fromInitializer(~length=strandCount, i => i)
-  generators->Array.forEach(gen => {
-    let i = gen.index - 1
-    if i >= 0 && i + 1 < strandCount {
-      let tmp = perm->Array.getUnsafe(i)
-      let _ = perm->Array.set(i, perm->Array.getUnsafe(i + 1))
-      let _ = perm->Array.set(i + 1, tmp)
-    }
-  })
-  let visited = Array.fromInitializer(~length=strandCount, _ => false)
-  let count = ref(0)
-  for s in 0 to strandCount - 1 {
-    if !(visited->Array.getUnsafe(s)) {
-      count := count.contents + 1
-      let current = ref(s)
-      while !(visited->Array.getUnsafe(current.contents)) {
-        let _ = visited->Array.set(current.contents, true)
-        current := perm->Array.getUnsafe(current.contents)
-      }
-    }
-  }
-  count.contents
-}
-
-/// Compute a knot invariant result string.
-///
-/// Writhe and linking number are computed exactly from the braid word.
-/// Jones, Alexander, HOMFLY-PT, and Kauffman bracket show the defining
-/// skein relation with the braid's computed values substituted in,
-/// giving a mathematical characterisation rather than a numeric result
-/// (full polynomial computation requires state-sum expansion).
-let computeInvariant = (inv: knotInvariant, generators: array<braidGenerator>): string => {
-  let strandCount = strandCountFromWord(generators)
-  let w = computeWrithe(generators)
-  let n = Array.length(generators)
-  let numComponents = countComponents(generators, strandCount)
-
-  switch inv {
-  | Writhe => {
-      let sign = if w > 0 {
-        "+"
-      } else if w < 0 {
-        "-"
-      } else {
-        ""
-      }
-      `w(K) = ${sign}${Int.toString(Math.Int.abs(w))} (sum of ${Int.toString(n)} crossing signs)`
-    }
-  | Linking => if numComponents < 2 {
-      `lk = 0 (knot has 1 component; linking number is defined for links with >= 2 components)`
-    } else {
-      let lk = computeLinkingNumber(generators, strandCount)
-      `lk(L) = ${Int.toString(lk)} (${Int.toString(
-          numComponents,
-        )}-component link, half the signed inter-component crossings)`
-    }
-  | Jones => {
-      // V(t) satisfies: t^{-1} V(L+) - t V(L-) = (t^{1/2} - t^{-1/2}) V(L0)
-      // For the unknot, V(t) = 1.
-      // Writhe factor: V(K) includes (-t)^{-3w/4} normalisation.
-      let wStr = Int.toString(w)
-      let compStr = Int.toString(numComponents)
-      if n === 0 {
-        `V(t) = 1 (unknot/unlink with ${compStr} component(s))`
-      } else {
-        let normExp = -3 * w
-        let normStr = if normExp >= 0 {
-          `(-t)^{${Int.toString(normExp)}/4}`
-        } else {
-          `(-t)^{${Int.toString(normExp)}/4}`
-        }
-        `V(t) = ${normStr} * <K>(t) | w=${wStr}, n=${Int.toString(
-            n,
-          )}, components=${compStr} | Skein: t^{-1}V(L+) - tV(L-) = (t^{1/2} - t^{-1/2})V(L0)`
-      }
-    }
-  | Alexander => // Delta(t) satisfies: Delta(L+) - Delta(L-) = (t^{1/2} - t^{-1/2}) Delta(L0)
-    // For the unknot, Delta(t) = 1.
-    if n === 0 {
-      `\xce\x94(t) = 1 (unknot)`
-    } else {
-      let wStr = Int.toString(w)
-      `\xce\x94(t) via Burau matrix: ${Int.toString(strandCount)}x${Int.toString(
-          strandCount,
-        )} reduced Burau rep, w=${wStr} | Skein: \xce\x94(L+) - \xce\x94(L-) = (t^{1/2} - t^{-1/2})\xce\x94(L0)`
-    }
-  | Homfly => // P(a,z) satisfies: a P(L+) - a^{-1} P(L-) = z P(L0)
-    // For the unknot, P(a,z) = 1.
-    if n === 0 {
-      `P(a,z) = 1 (unknot)`
-    } else {
-      let posCount = generators->Array.filter(g => g.exponent > 0)->Array.length
-      let negCount = n - posCount
-      `P(a,z): ${Int.toString(n)} crossings (${Int.toString(posCount)}+, ${Int.toString(
-          negCount,
-        )}-), ${Int.toString(numComponents)} components | Skein: aP(L+) - a^{-1}P(L-) = zP(L0)`
-    }
-  | Kauffman => // <K> = A<K_0> + A^{-1}<K_inf> for each crossing, where A = t^{-1/4}
-    // States: 2^n resolutions, each contributing A^{sigma} * (-A^2 - A^{-2})^{loops-1}
-    if n === 0 {
-      `<K> = 1 (unknot)`
-    } else {
-      let states = Math.Int.pow(2, ~exp=n)
-      `<K> = sum over ${Int.toString(
-          states,
-        )} states of A^{sigma(s)}(-A^2 - A^{-2})^{|s|-1} | w=${Int.toString(
-          w,
-        )}, normalize: f(K) = (-A^3)^{-w}<K>`
-    }
-  }
-}
-
-// ════════════════════════════════════════════════════════════════════════
-// SVG Rendering Constants
-// ════════════════════════════════════════════════════════════════════════
-
-/// Horizontal spacing between crossing columns in the SVG.
-let crossingWidth = 80.0
-
-/// Vertical spacing between strands in the SVG.
-let strandSpacing = 40.0
-
-/// Left margin for the SVG diagram.
-let svgLeftMargin = 40.0
-
-/// Top margin for the SVG diagram.
-let svgTopMargin = 30.0
-
-/// Strand colours for up to 8 strands.
-let strandColours: array<string> = [
-  "#818cf8", // indigo-400
-  "#34d399", // emerald-400
-  "#f472b6", // pink-400
-  "#fbbf24", // amber-400
-  "#60a5fa", // blue-400
-  "#a78bfa", // violet-400
-  "#fb923c", // orange-400
-  "#2dd4bf", // teal-400
-]
-
-/// Get the colour for a strand by index (wraps around).
-let strandColour = (strandIndex: int): string => {
-  let idx = mod(strandIndex, Array.length(strandColours))
-  strandColours->Array.getUnsafe(idx)
-}
-
-// ════════════════════════════════════════════════════════════════════════
-// Default State
-// ════════════════════════════════════════════════════════════════════════
-
-/// Default initial state for the TangleViz panel.
-let defaultState: tangleVizState = {
-  braidWord: [],
-  strandCount: 2,
-  viewMode: BraidDiagram,
-  selectedInvariant: None,
-  invariantResult: None,
-  inputText: "",
-  parsedProgram: None,
-  animating: false,
-  error: None,
-}
diff --git a/src/core/TeamDashboardEngine.affine b/src/core/TeamDashboardEngine.affine
new file mode 100644
index 00000000..9ece2db2
--- /dev/null
+++ b/src/core/TeamDashboardEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TeamDashboardEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/TeamDashboardEngine.res b/src/core/TeamDashboardEngine.res
deleted file mode 100644
index b16bc9aa..00000000
--- a/src/core/TeamDashboardEngine.res
+++ /dev/null
@@ -1,112 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Team Dashboard Engine — pure computation and helpers for the
-/// Team Dashboard panel. Provides default state, presence counting,
-/// activity filtering, contributor statistics, and member search.
-
-open TeamDashboardModel
-
-/// Default initial state for the Team Dashboard panel.
-/// Starts on the Team tab with empty member and activity lists.
-let defaultState: teamDashboardState = {
-  activeTab: TabTeam,
-  members: [],
-  activity: [],
-  contributorStats: [],
-  filter: "",
-  error: None,
-}
-
-/// Human-readable label for each tab in the Team Dashboard panel.
-let tabLabel = (tab: teamDashboardTab): string =>
-  switch tab {
-  | TabTeam => "Team"
-  | TabActivity => "Activity"
-  | TabProgress => "Progress"
-  | TabSchedule => "Schedule"
-  }
-
-/// All tabs in display order.
-let allTabs: array<teamDashboardTab> = [TabTeam, TabActivity, TabProgress, TabSchedule]
-
-/// Human-readable label for a member status.
-let statusLabel = (status: memberStatus): string =>
-  switch status {
-  | MemberOnline => "Online"
-  | MemberBusy => "Busy"
-  | MemberAway => "Away"
-  | MemberOffline => "Offline"
-  }
-
-/// CSS colour class for a member status.
-let statusColor = (status: memberStatus): string =>
-  switch status {
-  | MemberOnline => "text-green-400"
-  | MemberBusy => "text-orange-400"
-  | MemberAway => "text-yellow-400"
-  | MemberOffline => "text-gray-500"
-  }
-
-/// Status dot colour for presence indicator.
-let statusDotColor = (status: memberStatus): string =>
-  switch status {
-  | MemberOnline => "bg-green-400"
-  | MemberBusy => "bg-orange-400"
-  | MemberAway => "bg-yellow-400"
-  | MemberOffline => "bg-gray-500"
-  }
-
-/// Count online team members (Online or Busy).
-let countOnline = (members: array<teamMember>): int =>
-  members->Array.filter(m => m.status === MemberOnline || m.status === MemberBusy)->Array.length
-
-/// Count offline team members.
-let countOffline = (members: array<teamMember>): int =>
-  members->Array.filter(m => m.status === MemberOffline)->Array.length
-
-/// Get the most recent N activity entries.
-let recentActivity = (entries: array<teamActivityEntry>, limit: int): array<teamActivityEntry> =>
-  entries->Array.slice(~start=0, ~end=limit)
-
-/// Filter members by name or role matching a search string (case-insensitive).
-let filterMembers = (members: array<teamMember>, query: string): array<teamMember> => {
-  if query === "" {
-    members
-  } else {
-    let q = query->String.toLowerCase
-    members->Array.filter(m =>
-      m.name->String.toLowerCase->String.includes(q) ||
-        m.role->String.toLowerCase->String.includes(q)
-    )
-  }
-}
-
-/// Total commits across all contributors in the current sprint.
-let totalCommits = (stats: array<contributorStats>): int =>
-  stats->Array.reduce(0, (acc, s) => acc + s.commitsThisSprint)
-
-/// Total reviews completed across all contributors.
-let totalReviews = (stats: array<contributorStats>): int =>
-  stats->Array.reduce(0, (acc, s) => acc + s.reviewsCompleted)
-
-/// Total issues closed across all contributors.
-let totalIssuesClosed = (stats: array<contributorStats>): int =>
-  stats->Array.reduce(0, (acc, s) => acc + s.issuesClosed)
-
-/// Count members with active tasks.
-let countActiveMembers = (members: array<teamMember>): int =>
-  members->Array.filter(m => m.currentTask != None)->Array.length
-
-/// Count distinct panels currently in use across the team.
-let activePanels = (members: array<teamMember>): int => {
-  let panels = members->Array.filterMap(m => m.currentPanel)
-  panels
-  ->Array.reduce([], (acc, p) =>
-    if acc->Array.some(x => x == p) {
-      acc
-    } else {
-      Array.concat(acc, [p])
-    }
-  )
-  ->Array.length
-}
diff --git a/src/core/TentaclesEngine.affine b/src/core/TentaclesEngine.affine
new file mode 100644
index 00000000..57feac9a
--- /dev/null
+++ b/src/core/TentaclesEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TentaclesEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/TentaclesEngine.res b/src/core/TentaclesEngine.res
deleted file mode 100644
index c394d0a9..00000000
--- a/src/core/TentaclesEngine.res
+++ /dev/null
@@ -1,396 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Tentacles Engine — pure helpers for the 7-Tentacles agent panel.
-///
-/// All functions are pure (no side effects). Provides init state, colour
-/// mappings, stage labels, agent lookups, and OODA phase helpers.
-
-open PaneModel
-open TentaclesModel
-
-/// Hex colour for a tentacle agent, matching the 7-tentacles spec.
-let tentacleHex = (id: tentacleId): string => {
-  switch id {
-  | Red => "#E74C3C"
-  | Orange => "#E67E22"
-  | Yellow => "#F1C40F"
-  | Green => "#2ECC71"
-  | Blue => "#3498DB"
-  | Indigo => "#9B59B6"
-  | Violet => "#8E44AD"
-  }
-}
-
-/// Tailwind text colour class for a tentacle agent.
-let tentacleTextClass = (id: tentacleId): string => {
-  switch id {
-  | Red => "text-red-400"
-  | Orange => "text-orange-400"
-  | Yellow => "text-yellow-400"
-  | Green => "text-emerald-400"
-  | Blue => "text-blue-400"
-  | Indigo => "text-purple-400"
-  | Violet => "text-violet-400"
-  }
-}
-
-/// Tailwind border colour class for a tentacle agent.
-let tentacleBorderClass = (id: tentacleId): string => {
-  switch id {
-  | Red => "border-red-500"
-  | Orange => "border-orange-500"
-  | Yellow => "border-yellow-500"
-  | Green => "border-emerald-500"
-  | Blue => "border-blue-500"
-  | Indigo => "border-purple-500"
-  | Violet => "border-violet-500"
-  }
-}
-
-/// Tailwind background colour class for a tentacle agent (subtle, for cards).
-let tentacleBgClass = (id: tentacleId): string => {
-  switch id {
-  | Red => "bg-red-900/20"
-  | Orange => "bg-orange-900/20"
-  | Yellow => "bg-yellow-900/20"
-  | Green => "bg-emerald-900/20"
-  | Blue => "bg-blue-900/20"
-  | Indigo => "bg-purple-900/20"
-  | Violet => "bg-violet-900/20"
-  }
-}
-
-/// Human-readable label for a tentacle ID.
-let tentacleLabel = (id: tentacleId): string => {
-  switch id {
-  | Red => "Red (Parser)"
-  | Orange => "Orange (Concurrency)"
-  | Yellow => "Yellow (Type System)"
-  | Green => "Green (AST Architect)"
-  | Blue => "Blue (Auditor)"
-  | Indigo => "Indigo (Metaprogrammer)"
-  | Violet => "Violet (Governance)"
-  }
-}
-
-/// Short label (colour name only).
-let tentacleShortLabel = (id: tentacleId): string => {
-  switch id {
-  | Red => "Red"
-  | Orange => "Orange"
-  | Yellow => "Yellow"
-  | Green => "Green"
-  | Blue => "Blue"
-  | Indigo => "Indigo"
-  | Violet => "Violet"
-  }
-}
-
-/// Compiler role description for a tentacle.
-let tentacleRole = (id: tentacleId): string => {
-  switch id {
-  | Red => "Parser"
-  | Orange => "Concurrency Engine"
-  | Yellow => "Type System"
-  | Green => "AST Architect"
-  | Blue => "Auditor"
-  | Indigo => "Metaprogrammer"
-  | Violet => "Governance"
-  }
-}
-
-/// Human-readable stage label.
-let stageLabel = (s: tentacleStage): string => {
-  switch s {
-  | Cuttle => "Cuttle (8-12)"
-  | Squidlet => "Squidlet (13-14)"
-  | Duet => "Duet (15)"
-  | Octopus => "Octopus (16+)"
-  }
-}
-
-/// OODA phase label.
-let oodaLabel = (p: oodaPhase): string => {
-  switch p {
-  | Observe => "Observe"
-  | Orient => "Orient"
-  | Decide => "Decide"
-  | Act => "Act"
-  }
-}
-
-/// OODA phase icon (text glyph, not emoji per project rules).
-let oodaIcon = (p: oodaPhase): string => {
-  switch p {
-  | Observe => "[O]"
-  | Orient => "[R]"
-  | Decide => "[D]"
-  | Act => "[A]"
-  }
-}
-
-/// Category label for the tab bar.
-let categoryLabel = (c: tentaclesCategory): string => {
-  switch c {
-  | AgentView => "Agent"
-  | Orchestra => "Orchestra"
-  | StageConfig => "Stage"
-  | Progress => "Progress"
-  }
-}
-
-/// All tentacle IDs in spectrum order.
-let allTentacles: array<tentacleId> = [Red, Orange, Yellow, Green, Blue, Indigo, Violet]
-
-/// All categories.
-let allCategories: array<tentaclesCategory> = [AgentView, Orchestra, StageConfig, Progress]
-
-/// All stages in order.
-let allStages: array<tentacleStage> = [Cuttle, Squidlet, Duet, Octopus]
-
-/// Default personality for an agent.
-let defaultPersonality = (id: tentacleId): tentaclePersonality => {
-  switch id {
-  | Red => {
-      voice: "Quick and precise, like a parser scanning tokens",
-      catchphrase: "Every program starts with a single token!",
-      encouragement: ["Clean parse!", "Syntax perfect!", "No ambiguity there!"],
-      corrections: ["Watch your brackets...", "That token looks off", "Check the grammar"],
-      celebrations: ["Full parse tree built!", "Zero syntax errors!", "Grammar mastered!"],
-    }
-  | Orange => {
-      voice: "Rhythmic and parallel, like concurrent threads dancing",
-      catchphrase: "Everything happens at once — if you plan it right!",
-      encouragement: ["Nice scheduling!", "No deadlocks!", "Parallel perfection!"],
-      corrections: ["Race condition spotted", "Check that lock order", "Sync point missing"],
-      celebrations: ["All threads harmonised!", "Zero contention!", "True parallelism achieved!"],
-    }
-  | Yellow => {
-      voice: "Methodical and precise, like a type checker unifying constraints",
-      catchphrase: "If the types check, the program works!",
-      encouragement: ["Types align!", "Well-constrained!", "Inference successful!"],
-      corrections: ["Type mismatch detected", "Constraint unsatisfiable", "Generic bound missing"],
-      celebrations: ["All types unified!", "Sound and complete!", "Type safety proven!"],
-    }
-  | Green => {
-      voice: "Creative and structural, like an architect designing a cathedral",
-      catchphrase: "Every AST tells a story — let's make it elegant!",
-      encouragement: ["Beautiful structure!", "Clean transformation!", "Elegant tree!"],
-      corrections: ["Node out of place", "Subtree needs rework", "Optimisation missed"],
-      celebrations: ["AST optimised!", "Transformation complete!", "Architecture perfected!"],
-    }
-  | Blue => {
-      voice: "Thorough and fair, like an auditor checking every line",
-      catchphrase: "Trust, but verify — then verify again!",
-      encouragement: ["Clean audit!", "Standards met!", "Good coverage!"],
-      corrections: ["Anti-pattern detected", "Coverage gap found", "Standard violated"],
-      celebrations: ["Full compliance!", "100% coverage!", "Audit passed with flying colours!"],
-    }
-  | Indigo => {
-      voice: "Recursive and meta, like code that writes itself",
-      catchphrase: "Why write code when code can write code?",
-      encouragement: ["Elegant macro!", "Clean expansion!", "Meta-level mastery!"],
-      corrections: ["Expansion diverging", "Template error", "Macro hygiene breach"],
-      celebrations: ["Metaprogram complete!", "Self-modifying success!", "Abstraction achieved!"],
-    }
-  | Violet => {
-      voice: "Authoritative yet kind, like a wise governance council",
-      catchphrase: "Good governance makes great software!",
-      encouragement: ["Policy compliant!", "License clear!", "Security approved!"],
-      corrections: ["Policy violation", "License conflict", "Security concern"],
-      celebrations: ["Governance complete!", "All policies satisfied!", "Ship it!"],
-    }
-  }
-}
-
-/// Default stage-specific names for an agent.
-let defaultNames = (id: tentacleId): tentacleNames => {
-  switch id {
-  | Red => {
-      cuttle: "Ruby Cuttle",
-      squidlet: "Scarlet Squidlet",
-      duet: "Crimson Duet",
-      octopus: "Red Octopus",
-    }
-  | Orange => {
-      cuttle: "Amber Cuttle",
-      squidlet: "Tangerine Squidlet",
-      duet: "Flame Duet",
-      octopus: "Orange Octopus",
-    }
-  | Yellow => {
-      cuttle: "Sunny Cuttle",
-      squidlet: "Gold Squidlet",
-      duet: "Lemon Duet",
-      octopus: "Yellow Octopus",
-    }
-  | Green => {
-      cuttle: "Jade Cuttle",
-      squidlet: "Emerald Squidlet",
-      duet: "Forest Duet",
-      octopus: "Green Octopus",
-    }
-  | Blue => {
-      cuttle: "Sky Cuttle",
-      squidlet: "Azure Squidlet",
-      duet: "Sapphire Duet",
-      octopus: "Blue Octopus",
-    }
-  | Indigo => {
-      cuttle: "Iris Cuttle",
-      squidlet: "Mystic Squidlet",
-      duet: "Indigo Duet",
-      octopus: "Indigo Octopus",
-    }
-  | Violet => {
-      cuttle: "Plum Cuttle",
-      squidlet: "Orchid Squidlet",
-      duet: "Violet Duet",
-      octopus: "Violet Octopus",
-    }
-  }
-}
-
-/// Topics each agent teaches.
-let tentacleTeaches = (id: tentacleId): array<string> => {
-  switch id {
-  | Red => ["Tokenisation", "Grammars", "Syntax trees", "Error recovery"]
-  | Orange => ["Threads", "Scheduling", "Deadlock prevention", "Message passing"]
-  | Yellow => ["Type inference", "Generics", "Constraints", "Soundness"]
-  | Green => ["AST transforms", "Optimisation passes", "IR design", "Code generation"]
-  | Blue => ["Code review", "Linting", "Coverage", "Standards enforcement"]
-  | Indigo => ["Macros", "Templates", "Code generation", "DSL design"]
-  | Violet => ["Licensing", "Security policy", "Dependency audit", "Release governance"]
-  }
-}
-
-/// Build the initial state for a single agent.
-let initAgent = (id: tentacleId, stage: tentacleStage): tentacleAgentState => {
-  id,
-  stage,
-  personality: defaultPersonality(id),
-  names: defaultNames(id),
-  compilerRole: tentacleRole(id),
-  teaches: tentacleTeaches(id),
-  constraints: [],
-  reasoning: [],
-  results: [],
-  currentPhase: Observe,
-  busy: false,
-  currentTask: None,
-  lastError: None,
-}
-
-/// Get the stage-appropriate display name for an agent.
-let agentDisplayName = (agent: tentacleAgentState): string => {
-  switch agent.stage {
-  | Cuttle => agent.names.cuttle
-  | Squidlet => agent.names.squidlet
-  | Duet => agent.names.duet
-  | Octopus => agent.names.octopus
-  }
-}
-
-/// Find an agent by ID in the agents array.
-let findAgent = (agents: array<tentacleAgentState>, id: tentacleId): option<tentacleAgentState> => {
-  agents->Array.find(a => a.id == id)
-}
-
-/// Update a specific agent in the agents array.
-let updateAgent = (
-  agents: array<tentacleAgentState>,
-  id: tentacleId,
-  f: tentacleAgentState => tentacleAgentState,
-): array<tentacleAgentState> => {
-  agents->Array.map(a => a.id == id ? f(a) : a)
-}
-
-/// Count busy agents.
-let busyCount = (agents: array<tentacleAgentState>): int => {
-  agents->Array.filter(a => a.busy)->Array.length
-}
-
-/// Count agents with errors.
-let errorCount = (agents: array<tentacleAgentState>): int => {
-  agents->Array.filter(a => a.lastError->Option.isSome)->Array.length
-}
-
-/// Total constraints across all agents.
-let totalConstraints = (agents: array<tentacleAgentState>): int => {
-  agents->Array.reduce(0, (acc, a) => acc + Array.length(a.constraints))
-}
-
-/// Total results across all agents.
-let totalResults = (agents: array<tentacleAgentState>): int => {
-  agents->Array.reduce(0, (acc, a) => acc + Array.length(a.results))
-}
-
-// ---------------------------------------------------------------------------
-// S1: OODA phase progression — advance agents through Observe→Orient→Decide→Act
-// ---------------------------------------------------------------------------
-
-/// Next OODA phase in the cycle.
-let nextPhase = (phase: oodaPhase): oodaPhase => {
-  switch phase {
-  | Observe => Orient
-  | Orient => Decide
-  | Decide => Act
-  | Act => Observe // Cycle restarts
-  }
-}
-
-/// Whether an agent has completed a full OODA cycle (returned to Observe after Act).
-let cycleComplete = (prevPhase: oodaPhase, newPhase: oodaPhase): bool => {
-  prevPhase == Act && newPhase == Observe
-}
-
-/// Advance an agent's OODA phase. Returns the updated agent and whether
-/// the cycle completed (Act → Observe transition).
-let advancePhase = (agent: tentacleAgentState): (tentacleAgentState, bool) => {
-  let prev = agent.currentPhase
-  let next = nextPhase(prev)
-  let completed = cycleComplete(prev, next)
-  let updatedAgent = {
-    ...agent,
-    currentPhase: next,
-    // When cycle completes, agent is no longer busy.
-    busy: completed ? false : agent.busy,
-    // Clear the task on cycle completion.
-    currentTask: completed ? None : agent.currentTask,
-  }
-  (updatedAgent, completed)
-}
-
-/// Start a task: set the agent to busy at the Observe phase.
-let startTask = (agent: tentacleAgentState, task: string): tentacleAgentState => {
-  {
-    ...agent,
-    busy: true,
-    currentPhase: Observe,
-    currentTask: Some(task),
-    lastError: None,
-  }
-}
-
-/// Fail a task: set error state and stop the agent.
-let failTask = (agent: tentacleAgentState, error: string): tentacleAgentState => {
-  {
-    ...agent,
-    busy: false,
-    currentTask: None,
-    lastError: Some(error),
-  }
-}
-
-/// Build the initial tentacles panel state.
-let init = (): tentaclesState => {
-  agents: allTentacles->Array.map(id => initAgent(id, Cuttle)),
-  selectedAgent: Red,
-  activeCategory: Orchestra,
-  globalStage: Cuttle,
-  orchestraCompact: false,
-  pendingBroadcasts: [],
-  ffiConnected: false,
-  ffiLastCheck: 0.0,
-  ffiError: None,
-}
diff --git a/src/core/TilingEngine.affine b/src/core/TilingEngine.affine
new file mode 100644
index 00000000..7fc0d59e
--- /dev/null
+++ b/src/core/TilingEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TilingEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/TilingEngine.res b/src/core/TilingEngine.res
deleted file mode 100644
index 5d988b3f..00000000
--- a/src/core/TilingEngine.res
+++ /dev/null
@@ -1,152 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL TilingEngine — Pure computation for multi-monitor and window management.
-///
-/// Manages detached panel state (panels popped into separate browser windows),
-/// snap zone positioning, and tiling preset labels. All functions are pure —
-/// actual window operations are performed by WindowBridge via commands dispatched
-/// from the Update layer.
-///
-/// DESIGN NOTE: Detached panels are tracked by windowName (a unique string set
-/// as window.name on the child window). This serves as both the BroadcastChannel
-/// target and the lookup key for lifecycle management. When a detached window
-/// closes or becomes unresponsive, it is marked "dead" (alive: false) but kept
-/// in the array until explicitly removed, allowing the UI to show a
-/// "reconnect or discard" prompt.
-
-/// The default tiling state used at application startup.
-///
-/// Tiling is disabled by default — users opt in via the toolbar or keyboard
-/// shortcuts. No panels are detached, no preset is active, and the snap
-/// preview is hidden.
-let defaultState: TilingModel.tilingState = {
-  detachedPanels: [],
-  activePreset: None,
-  snapPreview: None,
-  tilingEnabled: false,
-  controlsVisible: false,
-}
-
-/// Human-readable label for a snap zone.
-///
-/// Used in the tiling controls UI, tooltips, and screen reader announcements
-/// when the user drags a panel near a screen edge and the snap preview appears.
-let snapZoneLabel = (zone: TilingModel.snapZone): string => {
-  switch zone {
-  | SnapLeft => "Left Half"
-  | SnapRight => "Right Half"
-  | SnapTopLeft => "Top Left Quarter"
-  | SnapTopRight => "Top Right Quarter"
-  | SnapBottomLeft => "Bottom Left Quarter"
-  | SnapBottomRight => "Bottom Right Quarter"
-  | SnapFull => "Full Screen"
-  | SnapCentre => "Centre Floating"
-  }
-}
-
-/// CSS positioning classes for a snap zone.
-///
-/// Returns Tailwind utility classes that position and size a panel within
-/// the snap zone. These are applied to the panel container element when a
-/// tiling preset is active or when the user snaps a panel to an edge.
-///
-/// Uses fractional widths (w-1/2, w-1/4) and absolute positioning (left-0,
-/// top-0, right-0, bottom-0) so panels tile correctly without overlapping.
-/// SnapCentre uses a centred fixed-size layout for floating panels.
-let snapZoneCss = (zone: TilingModel.snapZone): string => {
-  switch zone {
-  | SnapLeft => "left-0 top-0 w-1/2 h-full"
-  | SnapRight => "right-0 top-0 w-1/2 h-full"
-  | SnapTopLeft => "left-0 top-0 w-1/2 h-1/2"
-  | SnapTopRight => "right-0 top-0 w-1/2 h-1/2"
-  | SnapBottomLeft => "left-0 bottom-0 w-1/2 h-1/2"
-  | SnapBottomRight => "right-0 bottom-0 w-1/2 h-1/2"
-  | SnapFull => "left-0 top-0 w-full h-full"
-  | SnapCentre => "left-1/4 top-1/4 w-1/2 h-1/2"
-  }
-}
-
-/// Human-readable label for a tiling preset.
-///
-/// Used in the preset selector dropdown and keyboard shortcut hints.
-/// Custom presets show the number of panel-to-zone mappings they contain.
-let presetLabel = (preset: TilingModel.tilingPreset): string => {
-  switch preset {
-  | SideBySide => "Side by Side (50/50)"
-  | TripleColumn => "Triple Column (33/33/33)"
-  | QuadGrid => "Quad Grid (2x2)"
-  | FocusAndSidebar => "Focus + Sidebar (75/25)"
-  | Custom(mappings) => "Custom (" ++ Int.toString(Array.length(mappings)) ++ " panels)"
-  }
-}
-
-/// Check whether a given panel is currently detached into its own window.
-///
-/// Looks up the panel ID in the detachedPanels array. A panel is considered
-/// detached even if its window is marked dead (alive: false) — the entry
-/// persists until explicitly removed.
-let isDetached = (panelId: PanelSwitcherModel.panelId, state: TilingModel.tilingState): bool => {
-  state.detachedPanels->Array.some(dp => dp.panelId === panelId)
-}
-
-/// Add a panel to the detached panels array.
-///
-/// Creates a new detachedPanel entry with the given panel ID and window name,
-/// initial position and size unknown (None), and alive: true. If the panel
-/// is already detached, the existing entry is replaced (the old window is
-/// assumed to have been closed by the caller).
-let addDetachedPanel = (
-  panelId: PanelSwitcherModel.panelId,
-  windowName: string,
-  state: TilingModel.tilingState,
-): TilingModel.tilingState => {
-  let filtered = state.detachedPanels->Array.filter(dp => dp.panelId !== panelId)
-  let newEntry: TilingModel.detachedPanel = {
-    panelId,
-    windowName,
-    position: None,
-    size: None,
-    alive: true,
-  }
-  {
-    ...state,
-    detachedPanels: Array.concat(filtered, [newEntry]),
-  }
-}
-
-/// Remove a detached panel by its window name.
-///
-/// Filters the panel out of the detachedPanels array entirely. Use this
-/// when the user explicitly re-docks a panel or discards a dead window.
-/// After removal, the panel reverts to rendering inline in the main window.
-let removeDetachedPanel = (
-  windowName: string,
-  state: TilingModel.tilingState,
-): TilingModel.tilingState => {
-  {
-    ...state,
-    detachedPanels: state.detachedPanels->Array.filter(dp => dp.windowName !== windowName),
-  }
-}
-
-/// Mark a detached panel's window as dead (no longer responsive).
-///
-/// Sets alive: false for the panel identified by windowName. The entry
-/// remains in the array so the UI can show a "window lost — reconnect
-/// or discard?" prompt. This is called when the BroadcastChannel heartbeat
-/// times out or the window sends a beforeunload message.
-let markDetachedDead = (
-  windowName: string,
-  state: TilingModel.tilingState,
-): TilingModel.tilingState => {
-  {
-    ...state,
-    detachedPanels: state.detachedPanels->Array.map(dp =>
-      if dp.windowName === windowName {
-        {...dp, alive: false}
-      } else {
-        dp
-      }
-    ),
-  }
-}
diff --git a/src/core/TimelineEngine.affine b/src/core/TimelineEngine.affine
new file mode 100644
index 00000000..691c8ee0
--- /dev/null
+++ b/src/core/TimelineEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TimelineEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/TimelineEngine.res b/src/core/TimelineEngine.res
deleted file mode 100644
index dfd501ef..00000000
--- a/src/core/TimelineEngine.res
+++ /dev/null
@@ -1,420 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Code MRI — Timeline Engine (Layer 2)
-///
-/// Pure computation for VeriSimDB-backed development timeline data. Tracks
-/// snapshot-based metrics over time: lines of code, TODO/FIXME counts, tag
-/// density, library count, type check failures, panic-attack findings,
-/// AI attribution percentage, and vexometer readings.
-///
-/// Each snapshot captures a moment-in-time view of a codebase. Snapshots are
-/// appended to a timeline array (capped at 1000 entries). From the timeline,
-/// the engine derives trend analysis, sparkline data, and metric summaries
-/// for display in the Code MRI dashboard panel.
-///
-/// All functions are pure — no side effects. VeriSimDB persistence and commit
-/// hook integration happen in the command layer (TimelineCmd).
-///
-/// DESIGN NOTE: The timeline is intentionally append-only with a hard cap.
-/// This matches VeriSimDB's immutable-log semantics and prevents unbounded
-/// memory growth. The 1000-entry cap covers ~3 years of daily snapshots,
-/// which is sufficient for trend detection. Older data lives in VeriSimDB
-/// and can be queried separately for historical analysis.
-
-// ===========================================================================
-// Types
-// ===========================================================================
-
-/// A single point-in-time snapshot of codebase metrics.
-///
-/// Captured at each commit (or on demand) and stored in the timeline.
-/// All counts are non-negative integers; percentages are 0.0–100.0.
-type timelineSnapshot = {
-  /// ISO 8601 timestamp of when this snapshot was taken.
-  timestamp: string,
-  /// Total lines of code (excluding blanks and comments where possible).
-  linesOfCode: int,
-  /// Number of TODO comments found in the codebase.
-  todoCount: int,
-  /// Number of FIXME comments found in the codebase.
-  fixmeCount: int,
-  /// Number of Code MRI tags (Layer 0 voice tags) present.
-  tagCount: int,
-  /// Number of external library dependencies.
-  libraryCount: int,
-  /// Number of failed type checks in the last build.
-  failedTypeChecks: int,
-  /// Number of findings from panic-attack security scanner.
-  panicAttackFindings: int,
-  /// Percentage of code attributed to AI (0.0–100.0).
-  aiAttributionPercent: float,
-  /// Current vexometer reading (developer friction score, 0.0–100.0).
-  vexometerReading: float,
-  /// Git commit hash at the time of this snapshot.
-  commitHash: string,
-}
-
-/// Direction a metric is moving over recent history.
-///
-/// Computed from the last 3+ data points in the sparkline.
-type timelineTrend =
-  /// Last 3 values are monotonically increasing.
-  | Rising
-  /// Last 3 values are monotonically decreasing.
-  | Falling
-  /// Last 3 values are within 5% of each other (relative to max).
-  | Stable
-  /// Values are oscillating with no clear direction.
-  | Volatile
-
-/// A single named metric extracted from the timeline, with trend data.
-///
-/// Used by the dashboard to render metric cards with sparklines.
-type timelineMetric = {
-  /// Human-readable metric name (e.g. "Lines of Code").
-  name: string,
-  /// Current value (most recent snapshot).
-  current: float,
-  /// Previous value (second most recent snapshot).
-  previous: float,
-  /// Computed trend direction.
-  trend: timelineTrend,
-  /// Recent values for sparkline rendering (newest last).
-  sparkline: array<float>,
-}
-
-// ===========================================================================
-// Constants
-// ===========================================================================
-
-/// Maximum number of snapshots retained in a timeline.
-/// Older entries are dropped when this limit is exceeded.
-let maxTimelineLength = 1000
-
-/// Number of recent values used for sparkline rendering.
-let defaultSparklineCount = 20
-
-/// Number of recent values examined when computing trend direction.
-let trendWindowSize = 3
-
-// ===========================================================================
-// Snapshot operations
-// ===========================================================================
-
-/// Create a default (zeroed) snapshot with empty timestamp and commit hash.
-///
-/// Useful as a fallback or initial value before real data is available.
-let defaultSnapshot = (): timelineSnapshot => {
-  timestamp: "",
-  linesOfCode: 0,
-  todoCount: 0,
-  fixmeCount: 0,
-  tagCount: 0,
-  libraryCount: 0,
-  failedTypeChecks: 0,
-  panicAttackFindings: 0,
-  aiAttributionPercent: 0.0,
-  vexometerReading: 0.0,
-  commitHash: "",
-}
-
-/// Append a snapshot to the timeline, enforcing the 1000-entry cap.
-///
-/// If the timeline is at capacity, the oldest entry is dropped to make room.
-/// The new snapshot is always appended at the end (newest-last ordering).
-///
-/// @param timeline The existing timeline array
-/// @param snap     The new snapshot to append
-/// @returns Updated timeline with the snapshot added and cap enforced
-let addSnapshot = (timeline: array<timelineSnapshot>, snap: timelineSnapshot): array<
-  timelineSnapshot,
-> => {
-  let combined = Array.concat(timeline, [snap])
-  let len = Array.length(combined)
-  if len > maxTimelineLength {
-    // Drop oldest entries to stay within the cap
-    combined->Array.slice(~start=len - maxTimelineLength, ~end=len)
-  } else {
-    combined
-  }
-}
-
-/// Get the most recent snapshot from a timeline.
-///
-/// @param timeline The timeline to query
-/// @returns Some(snapshot) if the timeline is non-empty, None otherwise
-let latestSnapshot = (timeline: array<timelineSnapshot>): option<timelineSnapshot> => {
-  let len = Array.length(timeline)
-  if len === 0 {
-    None
-  } else {
-    Some(timeline->Array.getUnsafe(len - 1))
-  }
-}
-
-/// Compute the delta (difference) between two snapshots.
-///
-/// For integer fields, returns (b - a). For float fields, returns (b -. a).
-/// String fields (timestamp, commitHash) are taken from snapshot `b`.
-/// This is useful for showing "what changed since last snapshot".
-///
-/// @param a The earlier snapshot (baseline)
-/// @param b The later snapshot (current)
-/// @returns A snapshot where each numeric field is the difference (b - a)
-let snapshotDelta = (a: timelineSnapshot, b: timelineSnapshot): timelineSnapshot => {
-  {
-    timestamp: b.timestamp,
-    linesOfCode: b.linesOfCode - a.linesOfCode,
-    todoCount: b.todoCount - a.todoCount,
-    fixmeCount: b.fixmeCount - a.fixmeCount,
-    tagCount: b.tagCount - a.tagCount,
-    libraryCount: b.libraryCount - a.libraryCount,
-    failedTypeChecks: b.failedTypeChecks - a.failedTypeChecks,
-    panicAttackFindings: b.panicAttackFindings - a.panicAttackFindings,
-    aiAttributionPercent: b.aiAttributionPercent -. a.aiAttributionPercent,
-    vexometerReading: b.vexometerReading -. a.vexometerReading,
-    commitHash: b.commitHash,
-  }
-}
-
-// ===========================================================================
-// Trend computation
-// ===========================================================================
-
-/// Determine the trend direction from an array of recent float values.
-///
-/// Examines the last 3 values (configurable via trendWindowSize):
-///   - Rising:   each value > previous value
-///   - Falling:  each value < previous value
-///   - Stable:   all values within 5% of max value in window
-///   - Volatile: none of the above patterns match
-///
-/// Returns Stable for arrays shorter than 2 elements (insufficient data).
-///
-/// @param values Array of metric values (oldest first, newest last)
-/// @returns The detected trend direction
-let computeTrend = (values: array<float>): timelineTrend => {
-  let len = Array.length(values)
-  if len < 2 {
-    Stable
-  } else {
-    // Take the last `trendWindowSize` values (or all if fewer)
-    let windowStart = if len > trendWindowSize {
-      len - trendWindowSize
-    } else {
-      0
-    }
-    let window = values->Array.slice(~start=windowStart, ~end=len)
-    let windowLen = Array.length(window)
-
-    if windowLen < 2 {
-      Stable
-    } else {
-      // Check if monotonically rising
-      let rising = ref(true)
-      // Check if monotonically falling
-      let falling = ref(true)
-      for i in 1 to windowLen - 1 {
-        let prev = window->Array.getUnsafe(i - 1)
-        let curr = window->Array.getUnsafe(i)
-        if curr <= prev {
-          rising := false
-        }
-        if curr >= prev {
-          falling := false
-        }
-      }
-
-      if rising.contents {
-        Rising
-      } else if falling.contents {
-        Falling
-      } else {
-        // Check for stability: all values within 5% of max
-        let maxVal = window->Array.reduce(0.0, (acc, v) =>
-          if v > acc {
-            v
-          } else {
-            acc
-          }
-        )
-        let threshold = if maxVal === 0.0 {
-          0.05
-        } else {
-          maxVal *. 0.05
-        }
-        let minVal = window->Array.reduce(maxVal, (acc, v) =>
-          if v < acc {
-            v
-          } else {
-            acc
-          }
-        )
-        if maxVal -. minVal <= threshold {
-          Stable
-        } else {
-          Volatile
-        }
-      }
-    }
-  }
-}
-
-// ===========================================================================
-// Sparkline extraction
-// ===========================================================================
-
-/// Extract the last N values of a metric from the timeline.
-///
-/// Applies the `extract` function to each snapshot to pull out the desired
-/// metric, then returns the last `count` values (or fewer if the timeline
-/// is shorter). Result is ordered oldest-first for sparkline rendering.
-///
-/// @param timeline The timeline to extract from
-/// @param extract  Function that pulls a float metric from a snapshot
-/// @param count    Maximum number of recent values to return
-/// @returns Array of float values (oldest first, newest last)
-let sparklineData = (
-  timeline: array<timelineSnapshot>,
-  extract: timelineSnapshot => float,
-  count: int,
-): array<float> => {
-  let allValues = timeline->Array.map(extract)
-  let len = Array.length(allValues)
-  if len <= count {
-    allValues
-  } else {
-    allValues->Array.slice(~start=len - count, ~end=len)
-  }
-}
-
-// ===========================================================================
-// Metric builders
-//
-// Each function extracts a specific metric from the timeline, computing
-// current/previous values, trend, and sparkline data. They all follow
-// the same structure to keep the dashboard rendering uniform.
-// ===========================================================================
-
-/// Helper: build a timelineMetric from a timeline and an extractor function.
-///
-/// @param timeline The timeline data source
-/// @param name     Human-readable metric name
-/// @param extract  Function to pull a float value from a snapshot
-/// @returns A fully populated timelineMetric
-let buildMetric = (
-  timeline: array<timelineSnapshot>,
-  name: string,
-  extract: timelineSnapshot => float,
-): timelineMetric => {
-  let len = Array.length(timeline)
-  let current = if len > 0 {
-    extract(timeline->Array.getUnsafe(len - 1))
-  } else {
-    0.0
-  }
-  let previous = if len > 1 {
-    extract(timeline->Array.getUnsafe(len - 2))
-  } else {
-    0.0
-  }
-  let sparkline = sparklineData(timeline, extract, defaultSparklineCount)
-  let trend = computeTrend(sparkline)
-  {name, current, previous, trend, sparkline}
-}
-
-/// Lines of code metric — tracks codebase size over time.
-let locMetric = (timeline: array<timelineSnapshot>): timelineMetric => {
-  buildMetric(timeline, "Lines of Code", snap => Float.fromInt(snap.linesOfCode))
-}
-
-/// TODO count metric — tracks outstanding TODO comments.
-let todoMetric = (timeline: array<timelineSnapshot>): timelineMetric => {
-  buildMetric(timeline, "TODO Count", snap => Float.fromInt(snap.todoCount))
-}
-
-/// AI attribution metric — percentage of code attributed to AI tools.
-let aiAttributionMetric = (timeline: array<timelineSnapshot>): timelineMetric => {
-  buildMetric(timeline, "AI Attribution %", snap => snap.aiAttributionPercent)
-}
-
-/// Vexometer metric — developer friction score (lower is better).
-let vexometerMetric = (timeline: array<timelineSnapshot>): timelineMetric => {
-  buildMetric(timeline, "Vexometer", snap => snap.vexometerReading)
-}
-
-/// Panic-attack findings metric — security scanner issue count.
-let panicMetric = (timeline: array<timelineSnapshot>): timelineMetric => {
-  buildMetric(timeline, "Panic-Attack Findings", snap => Float.fromInt(snap.panicAttackFindings))
-}
-
-/// All tracked metrics in a single array, for dashboard rendering.
-///
-/// Returns metrics in display order: LOC, TODO, AI Attribution,
-/// Vexometer, Panic-Attack Findings.
-///
-/// @param timeline The timeline data source
-/// @returns Array of all five core metrics
-let allMetrics = (timeline: array<timelineSnapshot>): array<timelineMetric> => {
-  [
-    locMetric(timeline),
-    todoMetric(timeline),
-    aiAttributionMetric(timeline),
-    vexometerMetric(timeline),
-    panicMetric(timeline),
-  ]
-}
-
-// ===========================================================================
-// Trend display helpers
-// ===========================================================================
-
-/// Human-readable label for a trend direction.
-///
-/// @param trend The trend to label
-/// @returns One of "Rising", "Falling", "Stable", "Volatile"
-let trendLabel = (trend: timelineTrend): string => {
-  switch trend {
-  | Rising => "Rising"
-  | Falling => "Falling"
-  | Stable => "Stable"
-  | Volatile => "Volatile"
-  }
-}
-
-/// Unicode arrow icon for a trend direction.
-///
-/// Used in compact metric displays alongside the numeric value.
-///
-/// @param trend The trend to represent
-/// @returns Unicode arrow character
-let trendIcon = (trend: timelineTrend): string => {
-  switch trend {
-  | Rising => "\u2191" // ↑ upwards arrow
-  | Falling => "\u2193" // ↓ downwards arrow
-  | Stable => "\u2192" // → rightwards arrow
-  | Volatile => "\u2195" // ↕ up down arrow
-  }
-}
-
-/// Tailwind CSS colour class for a trend direction.
-///
-/// Used to colour-code trend indicators in the dashboard:
-///   - Rising:   amber (could be good or bad depending on metric)
-///   - Falling:  blue (could be good or bad depending on metric)
-///   - Stable:   green (consistency is generally good)
-///   - Volatile: red (instability is generally concerning)
-///
-/// Note: The caller should invert semantics for metrics where "rising"
-/// is bad (e.g. TODO count, vexometer, panic findings).
-///
-/// @param trend The trend to colour
-/// @returns Tailwind text colour class
-let trendColor = (trend: timelineTrend): string => {
-  switch trend {
-  | Rising => "text-amber-400"
-  | Falling => "text-blue-400"
-  | Stable => "text-green-400"
-  | Volatile => "text-red-400"
-  }
-}
diff --git a/src/core/TrustedTypes.affine b/src/core/TrustedTypes.affine
new file mode 100644
index 00000000..771f7481
--- /dev/null
+++ b/src/core/TrustedTypes.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TrustedTypes;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/TrustedTypes.res b/src/core/TrustedTypes.res
deleted file mode 100644
index fb632bd1..00000000
--- a/src/core/TrustedTypes.res
+++ /dev/null
@@ -1,119 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-//
-// TrustedTypes.res — W3C Trusted Types API binding for browser-engine-level
-// DOM XSS prevention.
-//
-// Trusted Types (https://www.w3.org/TR/trusted-types/) prevent DOM XSS by
-// requiring all injection-sink inputs (innerHTML, document.write, etc.) to
-// pass through a named policy. If enforcement is enabled via CSP header:
-//
-//   Content-Security-Policy: require-trusted-types-for 'script'; trusted-types panll-safe-dom
-//
-// ...then the browser itself blocks any innerHTML assignment that does not
-// come through our "panll-safe-dom" policy. This is defence-in-depth on top
-// of DOMPurify sanitisation — even if sanitisation has a bug, the browser
-// engine acts as a second gate.
-//
-// Deployed by Google across 130+ services since 2019 with zero DOM XSS
-// incidents (per their published case study).
-//
-// Usage:
-//   TrustedTypes.init() at app startup creates the policy.
-//   TrustedTypes.createHTML(rawHtml) returns a TrustedHTML value.
-//   Use the TrustedHTML value with innerHTML assignments.
-//
-// Graceful degradation: in browsers without Trusted Types support, all
-// operations fall through to plain strings.
-
-/// Opaque type representing a browser TrustedHTML value.
-/// In browsers with Trusted Types, this is a real TrustedHTML object.
-/// In browsers without support, this is a plain string.
-type trustedHTML
-
-/// Whether the browser supports the Trusted Types API.
-let isSupported: unit => bool = () => {
-  %raw(`typeof globalThis.trustedTypes !== 'undefined' && typeof globalThis.trustedTypes.createPolicy === 'function'`)
-}
-
-/// Opaque policy handle type.
-type policyHandle
-
-/// Internal: reference to our created policy (or null).
-let policyRef: ref<option<policyHandle>> = ref(None)
-
-/// Initialise the PanLL Trusted Types policy.
-///
-/// Creates a policy named "panll-safe-dom" that:
-///   1. Runs input through DOMPurify if available
-///   2. Falls back to the string as-is (caller is responsible for pre-sanitisation)
-///
-/// Call this once at app startup. Safe to call multiple times — only the first
-/// call creates the policy, subsequent calls are no-ops.
-///
-/// Returns true if the policy was created, false if Trusted Types is not
-/// supported or the policy already exists.
-let init = (): bool => {
-  switch policyRef.contents {
-  | Some(_) => false // Already initialised
-  | None =>
-    if isSupported() {
-      let _policy: policyHandle = %raw(`
-        globalThis.trustedTypes.createPolicy('panll-safe-dom', {
-          createHTML: function(input) {
-            // If DOMPurify is available, sanitise through it.
-            // Otherwise trust the caller (SafeDOMCore pre-sanitises).
-            if (typeof globalThis.DOMPurify !== 'undefined') {
-              return globalThis.DOMPurify.sanitize(input, {
-                RETURN_TRUSTED_TYPE: true,
-                FORBID_TAGS: ['script', 'iframe', 'object', 'embed', 'form', 'base', 'meta', 'link', 'template', 'math', 'svg'],
-                FORBID_ATTR: ['onerror', 'onload', 'onclick', 'onmouseover', 'onfocus', 'onblur', 'onsubmit', 'onchange', 'oninput', 'onkeydown', 'onkeyup', 'onkeypress', 'formaction', 'xlink:href', 'action']
-              });
-            }
-            return input;
-          },
-          createScript: function() {
-            // Block all script creation through Trusted Types
-            throw new Error('panll-safe-dom policy: script creation is blocked');
-          },
-          createScriptURL: function() {
-            // Block all script URL creation through Trusted Types
-            throw new Error('panll-safe-dom policy: script URL creation is blocked');
-          }
-        })
-      `)
-      policyRef := Some(_policy)
-      true
-    } else {
-      false
-    }
-  }
-}
-
-/// Create a TrustedHTML value from a raw HTML string.
-/// If Trusted Types is supported and the policy is initialised, returns
-/// a real TrustedHTML object that the browser will accept at innerHTML sinks.
-/// Otherwise returns the input string cast to trustedHTML (graceful degradation).
-let createHTML = (html: string): trustedHTML => {
-  switch policyRef.contents {
-  | Some(_policy) =>
-    let result: trustedHTML = %raw(`_policy.createHTML(html)`)
-    result
-  | None =>
-    // No Trusted Types — return string as-is (cast to opaque type).
-    // Uses identity function instead of Obj.magic (banned pattern).
-    let stringToTrustedHTML: string => trustedHTML = %raw(`function(s) { return s; }`)
-    stringToTrustedHTML(html)
-  }
-}
-
-/// Convert a TrustedHTML value back to a string for logging/tracing.
-/// Works regardless of whether Trusted Types is active.
-let toString = (_trusted: trustedHTML): string => {
-  %raw(`String(_trusted)`)
-}
-
-/// Check whether a policy named "panll-safe-dom" is registered.
-let hasPanllPolicy = (): bool => {
-  Option.isSome(policyRef.contents)
-}
diff --git a/src/core/TsdmEngine.affine b/src/core/TsdmEngine.affine
new file mode 100644
index 00000000..a623d075
--- /dev/null
+++ b/src/core/TsdmEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TsdmEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/TsdmEngine.res b/src/core/TsdmEngine.res
deleted file mode 100644
index 0e145b20..00000000
--- a/src/core/TsdmEngine.res
+++ /dev/null
@@ -1,285 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL TSDM Engine — pure functions for the Triaxial Software Development
-/// Methodology directive panel.
-///
-/// Handles axis/tier reordering, cleanup step management, work item
-/// filtering and sorting, and directive serialisation helpers. All
-/// functions are side-effect-free.
-///
-/// The three axes (Scope → Maintenance → Audit) each have internal
-/// priority tiers that users can reorder. This engine provides the
-/// array-swap primitives and display helpers the component needs.
-
-open TsdmModel
-
-// =========================================================================
-// Default state
-// =========================================================================
-
-/// Initial state for the TSDM panel — canonical axis ordering.
-let defaultState: tsdmState = init
-
-// =========================================================================
-// Array reordering primitives
-// =========================================================================
-
-/// Swap element at index `i` with the element above it (i-1).
-/// Returns the array unchanged if i is 0 or out of bounds.
-let moveUp = (arr: array<'a>, i: int): array<'a> => {
-  if i <= 0 || i >= Array.length(arr) {
-    arr
-  } else {
-    let copy = Array.copy(arr)
-    let tmp = copy->Array.getUnsafe(i - 1)
-    copy->Array.setUnsafe(i - 1, copy->Array.getUnsafe(i))
-    copy->Array.setUnsafe(i, tmp)
-    copy
-  }
-}
-
-/// Swap element at index `i` with the element below it (i+1).
-/// Returns the array unchanged if i is the last element or out of bounds.
-let moveDown = (arr: array<'a>, i: int): array<'a> => {
-  if i < 0 || i >= Array.length(arr) - 1 {
-    arr
-  } else {
-    let copy = Array.copy(arr)
-    let tmp = copy->Array.getUnsafe(i + 1)
-    copy->Array.setUnsafe(i + 1, copy->Array.getUnsafe(i))
-    copy->Array.setUnsafe(i, tmp)
-    copy
-  }
-}
-
-// =========================================================================
-// Display label helpers
-// =========================================================================
-
-/// Human-readable label for an axis.
-let axisLabel = (axis: axisId): string =>
-  switch axis {
-  | AxisScope => "Scope"
-  | AxisMaintenance => "Maintenance"
-  | AxisAudit => "Audit"
-  }
-
-/// CSS colour class for an axis (for visual differentiation).
-let axisColour = (axis: axisId): string =>
-  switch axis {
-  | AxisScope => "text-emerald-400"
-  | AxisMaintenance => "text-amber-400"
-  | AxisAudit => "text-cyan-400"
-  }
-
-/// Human-readable label for a scope tier.
-let scopeTierLabel = (tier: scopeTier): string =>
-  switch tier {
-  | Must => "Must"
-  | Intend => "Intend"
-  | Like => "Like"
-  }
-
-/// Human-readable label for a maintenance tier.
-let maintenanceTierLabel = (tier: maintenanceTier): string =>
-  switch tier {
-  | Corrective => "Corrective"
-  | Adaptive => "Adaptive"
-  | Perfective => "Perfective"
-  }
-
-/// Human-readable label for an audit tier.
-let auditTierLabel = (tier: auditTier): string =>
-  switch tier {
-  | Systems => "Systems"
-  | Compliance => "Compliance"
-  | Effects => "Effects"
-  }
-
-/// Human-readable label for a scope input source.
-let scopeInputLabel = (src: scopeInput): string =>
-  switch src {
-  | Readme => "README"
-  | Roadmap => "ROADMAP"
-  | StatusDocs => "Status Docs"
-  | CiAndSecurityDocs => "CI & Security Docs"
-  | MarkerScan => "Marker Scan (TODO/FIXME/XXX)"
-  | IdrisUnsoundScan => "Idris Unsound Scan (believe_me)"
-  }
-
-/// Human-readable label for a cleanup step.
-let cleanupStepLabel = (step: cleanupStep): string =>
-  switch step {
-  | RootCleanup => "Root Cleanup"
-  | StaleWorkCull => "Stale Work Cull"
-  | DocsSyncHumanMachine => "Docs Sync (Human ↔ Machine)"
-  | ComplianceAudit => "Compliance Audit"
-  | EffectsAudit => "Effects Audit"
-  | ReleaseSummary => "Release Summary (must/should/could)"
-  | NextActions => "Next Actions (corrective/adaptive/perfective)"
-  }
-
-/// Human-readable label for a dialogue topic.
-let dialogueTopicLabel = (topic: dialogueTopic): string =>
-  switch topic {
-  | WhatChanged => "What Changed"
-  | Why => "Why"
-  | RemainingRisks => "Remaining Risks"
-  }
-
-// =========================================================================
-// Cleanup step management
-// =========================================================================
-
-/// Check whether a cleanup step is enabled.
-let isCleanupEnabled = (enabled: array<cleanupStep>, step: cleanupStep): bool =>
-  enabled->Array.some(s => s == step)
-
-/// Toggle a cleanup step on/off in the enabled set.
-let toggleCleanupStep = (enabled: array<cleanupStep>, step: cleanupStep): array<cleanupStep> =>
-  if isCleanupEnabled(enabled, step) {
-    enabled->Array.filter(s => s != step)
-  } else {
-    Array.concat(enabled, [step])
-  }
-
-// =========================================================================
-// Work item helpers
-// =========================================================================
-
-/// Filter work items by axis. None means show all axes.
-let filterByAxis = (items: array<tsdmWorkItem>, axis: option<axisId>): array<tsdmWorkItem> =>
-  switch axis {
-  | None => items
-  | Some(a) => items->Array.filter(item => item.axis == a)
-  }
-
-/// Filter work items by text search across title and description.
-let filterBySearch = (items: array<tsdmWorkItem>, query: string): array<tsdmWorkItem> =>
-  if query == "" {
-    items
-  } else {
-    let q = String.toLowerCase(query)
-    items->Array.filter(item =>
-      String.includes(String.toLowerCase(item.title), q) ||
-      String.includes(String.toLowerCase(item.description), q)
-    )
-  }
-
-/// Filter out completed items unless showCompleted is true.
-let filterCompleted = (items: array<tsdmWorkItem>, showCompleted: bool): array<tsdmWorkItem> =>
-  if showCompleted {
-    items
-  } else {
-    items->Array.filter(item => !item.done)
-  }
-
-/// Composite filter: axis → search → completed in one pipeline.
-let applyFilters = (
-  items: array<tsdmWorkItem>,
-  axisFilter: option<axisId>,
-  searchText: string,
-  showCompleted: bool,
-): array<tsdmWorkItem> =>
-  items->filterByAxis(axisFilter)->filterBySearch(searchText)->filterCompleted(showCompleted)
-
-/// Sort work items according to the active axis and tier orderings.
-/// Items are grouped by axis (in axisOrder), then sorted within each
-/// axis by their tier priority (in the corresponding tier ordering).
-let sortByDirective = (
-  items: array<tsdmWorkItem>,
-  axisOrder: array<axisId>,
-  scopeOrder: array<scopeTier>,
-  maintenanceOrder: array<maintenanceTier>,
-  auditOrder: array<auditTier>,
-): array<tsdmWorkItem> => {
-  /// Find the index of an axis in the axis ordering.
-  let axisIndex = (axis: axisId): int =>
-    axisOrder->Array.findIndex(a => a == axis)->Int.clamp(~min=0, ~max=2)
-
-  /// Find the tier index within the relevant tier ordering.
-  let tierIndex = (item: tsdmWorkItem): int =>
-    switch item.axis {
-    | AxisScope =>
-      switch item.scopeTier {
-      | Some(tier) => scopeOrder->Array.findIndex(t => t == tier)->Int.clamp(~min=0, ~max=2)
-      | None => 99
-      }
-    | AxisMaintenance =>
-      switch item.maintenanceTier {
-      | Some(tier) => maintenanceOrder->Array.findIndex(t => t == tier)->Int.clamp(~min=0, ~max=2)
-      | None => 99
-      }
-    | AxisAudit =>
-      switch item.auditTier {
-      | Some(tier) => auditOrder->Array.findIndex(t => t == tier)->Int.clamp(~min=0, ~max=2)
-      | None => 99
-      }
-    }
-
-  let sorted = Array.copy(items)
-  sorted->Array.sort((a, b) => {
-    let axisCmp = Int.compare(axisIndex(a.axis), axisIndex(b.axis))
-    if axisCmp != 0.0 {
-      axisCmp
-    } else {
-      Int.compare(tierIndex(a), tierIndex(b))
-    }
-  })
-  sorted
-}
-
-// =========================================================================
-// Aggregate statistics
-// =========================================================================
-
-/// Count work items by axis.
-let countByAxis = (items: array<tsdmWorkItem>, axis: axisId): int =>
-  items->Array.filter(item => item.axis == axis)->Array.length
-
-/// Count completed work items.
-let completedCount = (items: array<tsdmWorkItem>): int =>
-  items->Array.filter(item => item.done)->Array.length
-
-/// Completion percentage (0.0–100.0).
-let completionPercentage = (items: array<tsdmWorkItem>): float => {
-  let total = Array.length(items)
-  if total == 0 {
-    0.0
-  } else {
-    Float.fromInt(completedCount(items)) /. Float.fromInt(total) *. 100.0
-  }
-}
-
-/// Count items from a specific source panel.
-let countBySource = (items: array<tsdmWorkItem>, sourcePanel: string): int =>
-  items->Array.filter(item => item.sourcePanel == sourcePanel)->Array.length
-
-// =========================================================================
-// Directive state helpers
-// =========================================================================
-
-/// Check whether the directive is in its default (canonical) ordering.
-let isDefaultOrdering = (state: tsdmState): bool =>
-  state.axisOrder == init.axisOrder &&
-  state.scopeOrder == init.scopeOrder &&
-  state.maintenanceOrder == init.maintenanceOrder &&
-  state.auditOrder == init.auditOrder
-
-/// All axes for iteration.
-let allAxes: array<axisId> = [AxisScope, AxisMaintenance, AxisAudit]
-
-/// All cleanup steps for iteration.
-let allCleanupSteps: array<cleanupStep> = [
-  RootCleanup,
-  StaleWorkCull,
-  DocsSyncHumanMachine,
-  ComplianceAudit,
-  EffectsAudit,
-  ReleaseSummary,
-  NextActions,
-]
-
-/// All dialogue topics for iteration.
-let allDialogueTopics: array<dialogueTopic> = [WhatChanged, Why, RemainingRisks]
diff --git a/src/core/TypeLLEngine.affine b/src/core/TypeLLEngine.affine
new file mode 100644
index 00000000..8f22ddb6
--- /dev/null
+++ b/src/core/TypeLLEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TypeLLEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/TypeLLEngine.res b/src/core/TypeLLEngine.res
deleted file mode 100644
index 7c9a36d8..00000000
--- a/src/core/TypeLLEngine.res
+++ /dev/null
@@ -1,829 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL TypeLL Engine — pure computation for the verification kernel.
-///
-/// Provides labels, glyphs, narrative generation, parsing, and display helpers.
-/// The evangeliser view layer system is implemented here: progressive disclosure
-/// of type information from RAW (expert) through WYSIWYG (exploration).
-///
-/// No side effects — all Gossamer/server interaction is in TypeLLCmd.
-
-open TypeLLModel
-
-// ============================================================================
-// View Layer Labels & Descriptions
-// ============================================================================
-
-/// Human-readable label for a view layer.
-let viewLayerLabel = (vl: viewLayer): string =>
-  switch vl {
-  | Raw => "Raw"
-  | Folded => "Folded"
-  | Glyphed => "Glyphed"
-  | Wysiwyg => "WYSIWYG"
-  }
-
-/// Description of what each view layer shows.
-let viewLayerDescription = (vl: viewLayer): string =>
-  switch vl {
-  | Raw => "Full type signatures, unmodified. Expert mode."
-  | Folded => "Categorised and collapsible. Working developer mode."
-  | Glyphed => "Symbol-annotated types. Learning mode."
-  | Wysiwyg => "Interactive type construction. Exploration mode."
-  }
-
-/// All view layers in order of increasing abstraction.
-let allViewLayers: array<viewLayer> = [Raw, Folded, Glyphed, Wysiwyg]
-
-/// Tailwind colour for view layer badge.
-let viewLayerColour = (vl: viewLayer): string =>
-  switch vl {
-  | Raw => "text-gray-300 bg-gray-800/50"
-  | Folded => "text-sky-400 bg-sky-900/30"
-  | Glyphed => "text-violet-400 bg-violet-900/30"
-  | Wysiwyg => "text-amber-400 bg-amber-900/30"
-  }
-
-// ============================================================================
-// Type Feature Labels & Glyphs
-// ============================================================================
-
-/// Human-readable label for a type feature.
-let featureLabel = (f: typeFeature): string =>
-  switch f {
-  | DependentTypes => "Dependent Types"
-  | LinearTypes => "Linear Types"
-  | SessionTypes => "Session Types"
-  | ProofCarryingCode => "Proof-Carrying Code"
-  | QuantitativeTypeTheory => "Quantitative Type Theory"
-  | EffectSystems => "Effect Systems"
-  | ModalTypes => "Modal Types"
-  | AffineTypes => "Affine Types"
-  | HomotopyTypeTheory => "Homotopy Type Theory"
-  | EqualitySaturation => "Equality Saturation"
-  | CategoryTheoreticTypes => "Category-Theoretic Types"
-  }
-
-/// Short code for a type feature (for badges and filters).
-let featureCode = (f: typeFeature): string =>
-  switch f {
-  | DependentTypes => "dep"
-  | LinearTypes => "lin"
-  | SessionTypes => "sess"
-  | ProofCarryingCode => "pcc"
-  | QuantitativeTypeTheory => "qtt"
-  | EffectSystems => "eff"
-  | ModalTypes => "mod"
-  | AffineTypes => "aff"
-  | HomotopyTypeTheory => "hott"
-  | EqualitySaturation => "eqsat"
-  | CategoryTheoreticTypes => "cat"
-  }
-
-/// Tier for a type feature.
-let featureTier = (f: typeFeature): typeTier =>
-  switch f {
-  | DependentTypes | LinearTypes | SessionTypes | ProofCarryingCode => TierCore
-  | QuantitativeTypeTheory | EffectSystems | ModalTypes | AffineTypes => TierAdvanced
-  | HomotopyTypeTheory | EqualitySaturation | CategoryTheoreticTypes => TierResearch
-  }
-
-/// All features grouped by tier.
-let coreFeatures: array<typeFeature> = [
-  DependentTypes,
-  LinearTypes,
-  SessionTypes,
-  ProofCarryingCode,
-]
-let advancedFeatures: array<typeFeature> = [
-  QuantitativeTypeTheory,
-  EffectSystems,
-  ModalTypes,
-  AffineTypes,
-]
-let researchFeatures: array<typeFeature> = [
-  HomotopyTypeTheory,
-  EqualitySaturation,
-  CategoryTheoreticTypes,
-]
-let allFeatures: array<typeFeature> = Array.concat(
-  coreFeatures,
-  Array.concat(advancedFeatures, researchFeatures),
-)
-
-/// Tier label.
-let tierLabel = (t: typeTier): string =>
-  switch t {
-  | TierCore => "Core"
-  | TierAdvanced => "Advanced"
-  | TierResearch => "Research"
-  }
-
-/// Tier colour.
-let tierColour = (t: typeTier): string =>
-  switch t {
-  | TierCore => "text-emerald-400 bg-emerald-900/30"
-  | TierAdvanced => "text-blue-400 bg-blue-900/30"
-  | TierResearch => "text-purple-400 bg-purple-900/30"
-  }
-
-// ============================================================================
-// Evangeliser Glyphs — Makaton-inspired visual type symbols
-// ============================================================================
-
-/// Get the glyph for a type feature. Extended from rescript-evangeliser's
-/// symbol system to cover the full type system spectrum.
-let featureGlyph = (f: typeFeature): typeGlyph =>
-  switch f {
-  | DependentTypes => {
-      symbol: "Pi",
-      label: "Dependent",
-      meaning: "Value-dependent types — types that compute from values",
-    }
-  | LinearTypes => {
-      symbol: "1",
-      label: "Linear",
-      meaning: "Used exactly once — no duplication, no discard",
-    }
-  | SessionTypes => {
-      symbol: "!",
-      label: "Session",
-      meaning: "Protocol safety — communication follows a contract",
-    }
-  | ProofCarryingCode => {
-      symbol: "QED",
-      label: "Proved",
-      meaning: "Cryptographic proof certificate attached",
-    }
-  | QuantitativeTypeTheory => {
-      symbol: "n",
-      label: "Quantity",
-      meaning: "Resource quantity tracked — 0, 1, or unlimited uses",
-    }
-  | EffectSystems => {
-      symbol: "IO",
-      label: "Effect",
-      meaning: "Side effects declared — reads, writes, allocations",
-    }
-  | ModalTypes => {
-      symbol: "BOX",
-      label: "Modal",
-      meaning: "Contextual access — valid only in certain modes",
-    }
-  | AffineTypes => {
-      symbol: "?1",
-      label: "Affine",
-      meaning: "Used at most once — may be discarded but not duplicated",
-    }
-  | HomotopyTypeTheory => {
-      symbol: "~",
-      label: "HoTT",
-      meaning: "Path equality — types related by continuous transformation",
-    }
-  | EqualitySaturation => {
-      symbol: "=",
-      label: "EqSat",
-      meaning: "Equivalence classes — all equal forms explored simultaneously",
-    }
-  | CategoryTheoreticTypes => {
-      symbol: "->",
-      label: "Functor",
-      meaning: "Structure-preserving maps between categories",
-    }
-  }
-
-// ============================================================================
-// Category Tab Labels
-// ============================================================================
-
-/// Category tab label.
-let categoryLabel = (cat: typellCategory): string =>
-  switch cat {
-  | TlChecker => "Checker"
-  | TlExplorer => "Explorer"
-  | TlRefinement => "Refinement"
-  | TlDiscipline => "Discipline"
-  | TlGuide => "Guide"
-  }
-
-/// All category tabs.
-let allCategories: array<typellCategory> = [
-  TlChecker,
-  TlExplorer,
-  TlRefinement,
-  TlDiscipline,
-  TlGuide,
-]
-
-// ============================================================================
-// Evangeliser Narrative Generation
-// ============================================================================
-
-/// Generate an encouraging narrative for a type check result.
-/// Follows the "Celebrate good, minimize bad, show better" philosophy
-/// from rescript-evangeliser, applied to type systems.
-let generateNarrative = (result: typeCheckResult): typeNarrative => {
-  let celebrate = if result.valid {
-    if result.activeFeatures->Array.length > 0 {
-      let featureNames = result.activeFeatures->Array.map(featureLabel)->Array.join(", ")
-      `Your code uses ${featureNames} — that's serious type-level engineering.`
-    } else {
-      "Your expression type-checks cleanly. Well-typed programs don't go wrong."
-    }
-  } else {
-    "You're engaging with the type system — that's the first step to bulletproof code."
-  }
-
-  let minimize = if !result.valid {
-    "The type checker found issues, but each one is a bug caught before runtime."
-  } else if result.linearityIssues->Array.length > 0 {
-    "There are linearity notes — resources might not be used optimally."
-  } else if result.proofObligations->Array.length > 0 {
-    `There are ${Int.toString(
-        Array.length(result.proofObligations),
-      )} proof obligations — the type system is asking you to justify your claims.`
-  } else {
-    ""
-  }
-
-  let showBetter = if result.effects->Array.length > 0 {
-    let effectCount = Int.toString(Array.length(result.effects))
-    `${effectCount} effects tracked explicitly. In most languages, these would be invisible side effects.`
-  } else if result.maxTier === TierCore {
-    "Core type features give you safety guarantees that no runtime test can match."
-  } else if result.maxTier === TierAdvanced {
-    "Advanced type features let you encode invariants that would require complex runtime checks elsewhere."
-  } else {
-    "Type-level computation turns categories of bugs into compilation errors."
-  }
-
-  let safety = if result.valid && result.proofObligations->Array.length === 0 {
-    "Fully verified — no proof obligations outstanding."
-  } else if result.valid {
-    `Verified with ${Int.toString(
-        Array.length(result.proofObligations),
-      )} proof obligations. Discharge these for full assurance.`
-  } else {
-    "Fix the type errors to unlock safety guarantees."
-  }
-
-  {celebrate, minimize, showBetter, safety}
-}
-
-// ============================================================================
-// Rendering Helpers — View Layer Transforms
-// ============================================================================
-
-/// Format a type signature according to the active view layer.
-let formatSignature = (sig: string, viewLayer: viewLayer, features: array<typeFeature>): string =>
-  switch viewLayer {
-  | Raw => sig
-  | Folded =>
-    // Group by feature category
-    let tier = if features->Array.some(f => featureTier(f) === TierResearch) {
-      "[Research] "
-    } else if features->Array.some(f => featureTier(f) === TierAdvanced) {
-      "[Advanced] "
-    } else {
-      "[Core] "
-    }
-    tier ++ sig
-  | Glyphed =>
-    // Prepend glyphs for active features
-    let glyphStr =
-      features
-      ->Array.map(f => {
-        let g = featureGlyph(f)
-        g.symbol
-      })
-      ->Array.join(" ")
-    if glyphStr !== "" {
-      glyphStr ++ " | " ++ sig
-    } else {
-      sig
-    }
-  | Wysiwyg => sig // Interactive mode renders differently in the component
-  }
-
-/// Filter signatures by tier.
-let filterByTier = (sigs: array<typeSignatureEntry>, tier: option<typeTier>): array<
-  typeSignatureEntry,
-> =>
-  switch tier {
-  | None => sigs
-  | Some(t) => sigs->Array.filter(s => s.tier === t)
-  }
-
-/// Filter signatures by search text.
-let filterBySearch = (sigs: array<typeSignatureEntry>, query: string): array<typeSignatureEntry> =>
-  if query === "" {
-    sigs
-  } else {
-    let q = String.toLowerCase(query)
-    sigs->Array.filter(s =>
-      String.includes(String.toLowerCase(s.name), q) ||
-      String.includes(String.toLowerCase(s.signature), q) ||
-      String.includes(String.toLowerCase(s.module_), q)
-    )
-  }
-
-// ============================================================================
-// Unified Type System — Discipline, Quantifiers, Feature Extraction
-// ============================================================================
-
-/// Label for a usage quantifier.
-let usageLabel = (u: usageQuantifier): string =>
-  switch u {
-  | UsageZero => "0 (erased)"
-  | UsageOne => "1 (linear)"
-  | UsageOmega => "omega (unrestricted)"
-  }
-
-/// Short symbol for a usage quantifier.
-let usageSymbol = (u: usageQuantifier): string =>
-  switch u {
-  | UsageZero => "0"
-  | UsageOne => "1"
-  | UsageOmega => "w"
-  }
-
-/// Label for a type discipline.
-let disciplineLabel = (d: typeDiscipline): string =>
-  switch d {
-  | DisciplineAffine => "Affine (default)"
-  | DisciplineLinear => "Linear"
-  | DisciplineDependent => "Dependent"
-  | DisciplineRefined => "Refined"
-  | DisciplineUnrestricted => "Unrestricted"
-  }
-
-/// Short directive for a discipline (as it would appear in a source file).
-let disciplineDirective = (d: typeDiscipline): string =>
-  switch d {
-  | DisciplineAffine => "#![affine]"
-  | DisciplineLinear => "#![linear]"
-  | DisciplineDependent => "#![dependent]"
-  | DisciplineRefined => "#![refined]"
-  | DisciplineUnrestricted => "#![unrestricted]"
-  }
-
-/// Colour for a discipline badge.
-let disciplineColour = (d: typeDiscipline): string =>
-  switch d {
-  | DisciplineAffine => "text-amber-400 bg-amber-900/30"
-  | DisciplineLinear => "text-red-400 bg-red-900/30"
-  | DisciplineDependent => "text-purple-400 bg-purple-900/30"
-  | DisciplineRefined => "text-cyan-400 bg-cyan-900/30"
-  | DisciplineUnrestricted => "text-gray-400 bg-gray-800/50"
-  }
-
-/// Label for an inference source.
-let inferenceSourceLabel = (s: inferenceSource): string =>
-  switch s {
-  | Inferred => "Inferred"
-  | Annotated => "Annotated"
-  | Mixed => "Mixed"
-  | TacticAssisted => "Tactic-assisted"
-  }
-
-/// Which features are implied by a discipline.
-let disciplineImpliedFeatures = (d: typeDiscipline): array<typeFeature> =>
-  switch d {
-  | DisciplineAffine => [AffineTypes]
-  | DisciplineLinear => [LinearTypes, QuantitativeTypeTheory]
-  | DisciplineDependent => [DependentTypes, ProofCarryingCode]
-  | DisciplineRefined => [DependentTypes]
-  | DisciplineUnrestricted => []
-  }
-
-/// All disciplines in order.
-let allDisciplines: array<typeDiscipline> = [
-  DisciplineAffine,
-  DisciplineLinear,
-  DisciplineDependent,
-  DisciplineRefined,
-  DisciplineUnrestricted,
-]
-
-/// Parse a feature code string (e.g., "dep", "lin", "aff") to a typeFeature.
-let parseFeatureCode = (code: string): option<typeFeature> =>
-  switch code {
-  | "dep" | "dependent" => Some(DependentTypes)
-  | "lin" | "linear" => Some(LinearTypes)
-  | "sess" | "session" => Some(SessionTypes)
-  | "pcc" | "proof-carrying" => Some(ProofCarryingCode)
-  | "qtt" | "quantitative" => Some(QuantitativeTypeTheory)
-  | "eff" | "effect" => Some(EffectSystems)
-  | "mod" | "modal" => Some(ModalTypes)
-  | "aff" | "affine" => Some(AffineTypes)
-  | "hott" => Some(HomotopyTypeTheory)
-  | "eqsat" => Some(EqualitySaturation)
-  | "cat" | "category" => Some(CategoryTheoreticTypes)
-  | _ => None
-  }
-
-/// Determine the max tier from a set of active features.
-let computeMaxTier = (features: array<typeFeature>): typeTier => {
-  let hasResearch = features->Array.some(f => featureTier(f) === TierResearch)
-  let hasAdvanced = features->Array.some(f => featureTier(f) === TierAdvanced)
-  if hasResearch {
-    TierResearch
-  } else if hasAdvanced {
-    TierAdvanced
-  } else {
-    TierCore
-  }
-}
-
-/// Parse a usage string to a quantifier.
-let parseUsage = (s: string): usageQuantifier =>
-  switch s {
-  | "0" | "zero" | "erased" => UsageZero
-  | "1" | "one" | "linear" => UsageOne
-  | _ => UsageOmega
-  }
-
-/// Parse a discipline string.
-let parseDiscipline = (s: string): typeDiscipline =>
-  switch s {
-  | "affine" => DisciplineAffine
-  | "linear" => DisciplineLinear
-  | "dependent" => DisciplineDependent
-  | "refined" => DisciplineRefined
-  | "unrestricted" => DisciplineUnrestricted
-  | _ => DisciplineAffine // Affine by default
-  }
-
-/// Parse an inference source string.
-let parseInferenceSource = (s: string): inferenceSource =>
-  switch s {
-  | "annotated" => Annotated
-  | "mixed" => Mixed
-  | "tactic" | "tactic-assisted" => TacticAssisted
-  | _ => Inferred
-  }
-
-/// Build a default unified type expression.
-let defaultUnifiedTypeExpr: unifiedTypeExpr = {
-  baseExpr: "",
-  usage: UsageOmega,
-  discipline: DisciplineAffine,
-  dependentIndices: [],
-  effects: [],
-  refinements: [],
-}
-
-/// Summarise a unified type analysis result as a single line.
-let unifiedAnalysisSummary = (analysis: unifiedTypeAnalysis): string => {
-  let parts = []
-  let parts = if analysis.linearitySatisfied {
-    parts
-  } else {
-    Array.concat(parts, ["linearity violated"])
-  }
-  let parts = if analysis.indicesWellFounded {
-    parts
-  } else {
-    Array.concat(parts, ["indices not well-founded"])
-  }
-  let parts = if analysis.refinementsSatisfiable {
-    parts
-  } else {
-    Array.concat(parts, ["refinements unsatisfiable"])
-  }
-  let parts = if Array.length(analysis.usageViolations) > 0 {
-    Array.concat(
-      parts,
-      [Int.toString(Array.length(analysis.usageViolations)) ++ " usage violations"],
-    )
-  } else {
-    parts
-  }
-  let parts = if Array.length(analysis.effectLeaks) > 0 {
-    Array.concat(parts, [Int.toString(Array.length(analysis.effectLeaks)) ++ " effect leaks"])
-  } else {
-    parts
-  }
-  if Array.length(parts) === 0 {
-    disciplineLabel(analysis.typeExpr.discipline) ++
-    " | " ++
-    usageSymbol(analysis.typeExpr.usage) ++ " | OK"
-  } else {
-    disciplineLabel(analysis.typeExpr.discipline) ++ " | " ++ Array.join(parts, ", ")
-  }
-}
-
-// ============================================================================
-// JSON Parsing — Tea_Json decoders
-// ============================================================================
-
-/// Tea_Json decoder for a type check result.
-/// Extracts feature codes, computes tier, parses usage/discipline/inference.
-let checkResultDecoder: Tea_Json.decoder<typeCheckResult> = {
-  open Decoders
-  map11(
-    (
-      valid,
-      typeSignature,
-      explanation,
-      proofObligations,
-      effects,
-      linearityIssues,
-      sessionNotes,
-      featureCodes,
-      usageStr,
-      disciplineStr,
-      inferSrcStr,
-    ) => {
-      let activeFeatures = featureCodes->Array.filterMap(parseFeatureCode)
-      let maxTier = computeMaxTier(activeFeatures)
-      (
-        {
-          valid,
-          typeSignature,
-          explanation,
-          proofObligations,
-          effects,
-          linearityIssues,
-          sessionNotes,
-          activeFeatures,
-          maxTier,
-          usage: parseUsage(usageStr),
-          discipline: parseDiscipline(disciplineStr),
-          inferenceSource: parseInferenceSource(inferSrcStr),
-          unifiedAnalysis: None, // Parsed separately if the server provides it
-        }: typeCheckResult
-      )
-    },
-    boolField("valid"),
-    stringField("type_signature"),
-    stringField("explanation"),
-    stringArrayField("proof_obligations"),
-    stringArrayField("effects"),
-    stringArrayField("linearity_issues"),
-    stringArrayField("session_notes"),
-    stringArrayField("features"),
-    stringField("usage"),
-    stringField("discipline"),
-    stringField("inference_source"),
-  )
-}
-
-/// Parse a type check result from JSON.
-let parseCheckResult = (json: string): result<typeCheckResult, string> =>
-  Decoders.decode(checkResultDecoder, json)
-
-/// Tea_Json decoder for a refinement result.
-let refinementResultDecoder: Tea_Json.decoder<refinementResult> = {
-  open Decoders
-  open Tea_Json
-  map4((baseType, refinedType, _constraints, consistent): refinementResult => {
-    baseType,
-    refinedType,
-    constraints: [],
-    consistent,
-  }, stringField(
-    "base_type",
-  ), stringField(
-    "refined_type",
-  ), fieldWithDefault("constraints", lenientArray(string), []), boolField("consistent"))
-}
-
-/// Parse a refinement result from JSON.
-let parseRefinementResult = (json: string): result<refinementResult, string> =>
-  Decoders.decode(refinementResultDecoder, json)
-
-// ============================================================================
-// Kernel Integration — localhost:7800 routing helpers
-// ============================================================================
-
-/// Result of a kernel type check routed to localhost:7800.
-type kernelTypeCheckResult = {
-  /// Whether the expression is well-typed.
-  valid: bool,
-  /// The inferred or checked type signature.
-  typeSignature: string,
-  /// Active type features detected.
-  activeFeatures: array<typeFeature>,
-  /// Proof obligations generated.
-  proofObligations: array<string>,
-  /// Effects detected.
-  effects: array<string>,
-  /// Linearity issues detected.
-  linearityIssues: array<string>,
-  /// Which language the source was checked against.
-  language: string,
-}
-
-/// Result of usage quantifier inference.
-type usageInferenceResult = {
-  /// Inferred quantifier (0, 1, omega).
-  quantifier: usageQuantifier,
-  /// Explanation of the inference.
-  explanation: string,
-  /// Variables and their inferred usages.
-  bindings: array<(string, usageQuantifier)>,
-}
-
-/// Result of effect inference.
-type effectInferenceResult = {
-  /// List of effects detected (e.g., "IO", "State s", "Alloc").
-  effects: array<string>,
-  /// Whether the expression is pure (no effects).
-  pure: bool,
-  /// Effect row type if applicable.
-  effectRow: option<string>,
-}
-
-/// Result of dimensional type checking (for Eclexia).
-type dimensionalResult = {
-  /// Whether dimensional consistency holds.
-  consistent: bool,
-  /// Inferred dimensional type (e.g., "Length / Time^2").
-  dimensionalType: string,
-  /// Dimensional violations found.
-  violations: array<string>,
-  /// Unit coercion suggestions.
-  coercions: array<string>,
-}
-
-/// A proof obligation generated from dependent types.
-type proofObligation = {
-  /// Unique ID for this obligation.
-  id: string,
-  /// The proposition to prove.
-  proposition: string,
-  /// Which dependent indices this obligation arises from.
-  indices: array<string>,
-  /// Suggested tactic to discharge it.
-  suggestedTactic: option<string>,
-  /// Whether ECHIDNA can auto-discharge this.
-  autoDischarge: bool,
-}
-
-/// Build the JSON body for a kernel type-check request.
-let buildCheckBody = (source: string, language: string): string => {
-  `{"source":${JSON.stringifyAny(source)->Option.getOr("\"\"")}, "language":${JSON.stringifyAny(
-      language,
-    )->Option.getOr("\"\"")}, "mode":"check"}`
-}
-
-/// Build the JSON body for a kernel usage inference request.
-let buildInferUsageBody = (source: string): string => {
-  `{"source":${JSON.stringifyAny(source)->Option.getOr("\"\"")}, "mode":"infer_usage"}`
-}
-
-/// Build the JSON body for a kernel effect inference request.
-let buildCheckEffectsBody = (source: string): string => {
-  `{"source":${JSON.stringifyAny(source)->Option.getOr("\"\"")}, "mode":"check_effects"}`
-}
-
-/// Build the JSON body for a kernel dimensional check request (Eclexia).
-let buildCheckDimensionalBody = (source: string): string => {
-  `{"source":${JSON.stringifyAny(source)->Option.getOr("\"\"")}, "mode":"check_dimensional"}`
-}
-
-/// Build the JSON body for proof obligation generation.
-let buildGenerateProofObligationBody = (source: string): string => {
-  `{"source":${JSON.stringifyAny(source)->Option.getOr("\"\"")}, "mode":"generate_obligations"}`
-}
-
-/// Tea_Json decoder for a kernel type check result (parameterised by language).
-let kernelCheckResultDecoder = (language: string): Tea_Json.decoder<kernelTypeCheckResult> => {
-  open Decoders
-  map6((valid, typeSignature, featureCodes, proofObligations, effects, linearityIssues) => {
-    let activeFeatures = featureCodes->Array.filterMap(parseFeatureCode)
-    (
-      {
-        valid,
-        typeSignature,
-        activeFeatures,
-        proofObligations,
-        effects,
-        linearityIssues,
-        language,
-      }: kernelTypeCheckResult
-    )
-  }, boolField(
-    "valid",
-  ), stringField(
-    "type_signature",
-  ), stringArrayField(
-    "features",
-  ), stringArrayField(
-    "proof_obligations",
-  ), stringArrayField("effects"), stringArrayField("linearity_issues"))
-}
-
-/// Parse a kernel type check result from JSON response.
-let parseKernelCheckResult = (json: string, language: string): result<
-  kernelTypeCheckResult,
-  string,
-> => Decoders.decode(kernelCheckResultDecoder(language), json)
-
-/// Tea_Json decoder for a usage inference result.
-let usageInferenceResultDecoder: Tea_Json.decoder<usageInferenceResult> = {
-  open Decoders
-  open Tea_Json
-  map2((quantifierStr, explanation): usageInferenceResult => {
-    quantifier: parseUsage(quantifierStr),
-    explanation,
-    bindings: [],
-  }, stringField("quantifier"), stringField("explanation"))
-}
-
-/// Parse a usage inference result from JSON.
-let parseUsageInferenceResult = (json: string): result<usageInferenceResult, string> =>
-  Decoders.decode(usageInferenceResultDecoder, json)
-
-/// Tea_Json decoder for an effect inference result.
-let effectInferenceResultDecoder: Tea_Json.decoder<effectInferenceResult> = {
-  open Decoders
-  open Tea_Json
-  map3((effects, pure, effectRow): effectInferenceResult => {
-    effects,
-    pure,
-    effectRow,
-  }, stringArrayField("effects"), boolField("pure"), optionalFieldDecoder("effect_row", string))
-}
-
-/// Parse an effect inference result from JSON.
-let parseEffectInferenceResult = (json: string): result<effectInferenceResult, string> =>
-  Decoders.decode(effectInferenceResultDecoder, json)
-
-/// Tea_Json decoder for a dimensional check result.
-let dimensionalResultDecoder: Tea_Json.decoder<dimensionalResult> = {
-  open Decoders
-  open Tea_Json
-  map4((consistent, dimensionalType, violations, coercions): dimensionalResult => {
-    consistent,
-    dimensionalType,
-    violations,
-    coercions,
-  }, boolField(
-    "consistent",
-  ), stringField("dimensional_type"), stringArrayField("violations"), stringArrayField("coercions"))
-}
-
-/// Parse a dimensional check result from JSON.
-let parseDimensionalResult = (json: string): result<dimensionalResult, string> =>
-  Decoders.decode(dimensionalResultDecoder, json)
-
-/// Kernel endpoint URL (default localhost:7800).
-let kernelBaseUrl = "http://localhost:7800/api/v1"
-
-/// All supported nextgen-languages that the kernel can type-check.
-let supportedLanguages: array<string> = [
-  "affinescript",
-  "eclexia",
-  "anvomidav",
-  "ephapax",
-  "wokelang",
-  "betlang",
-  "tangle",
-  "my-lang",
-  "crank",
-  "delimit",
-  "sunyata",
-  "hexsweep",
-  "cascade",
-  "polytope",
-  "coda",
-  "strata",
-]
-
-/// Check if a language name is supported by the kernel.
-let isKernelSupported = (lang: string): bool => {
-  supportedLanguages->Array.includes(String.toLowerCase(lang))
-}
-
-// ============================================================================
-// Default State
-// ============================================================================
-
-/// Default initial state.
-let defaultState: typellState = {
-  serverConnected: false,
-  loading: false,
-  error: None,
-  activeCategory: TlChecker,
-  activeViewLayer: Folded,
-  checkerInput: "",
-  checkerContext: "",
-  lastCheckResult: None,
-  lastNarrative: None,
-  signatures: [],
-  universes: [],
-  signatureFilter: "",
-  tierFilter: None,
-  refinementSpec: "",
-  refinementConstraints: "",
-  lastRefinement: None,
-  disciplineDeclarations: [],
-  defaultDiscipline: DisciplineAffine, // Affine by default, as per unified type system design
-  lastUnifiedAnalysis: None,
-  serviceActive: true,
-  queriesServed: 0,
-  bojRouting: false,
-  panelTypeChecks: Dict.make(),
-}
diff --git a/src/core/TypingBridgeEngine.affine b/src/core/TypingBridgeEngine.affine
new file mode 100644
index 00000000..cd66f38d
--- /dev/null
+++ b/src/core/TypingBridgeEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TypingBridgeEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/TypingBridgeEngine.res b/src/core/TypingBridgeEngine.res
deleted file mode 100644
index b090cfe5..00000000
--- a/src/core/TypingBridgeEngine.res
+++ /dev/null
@@ -1,81 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Typing Bridge Engine — pure computation and helpers for the
-/// Typing Bridge panel. Provides default state, tab metadata, constraint
-/// counting, and inference result formatting.
-
-open TypingBridgeModel
-
-/// Default state for the Typing Bridge panel.
-/// Starts on the Constraints tab with empty constraint and inference lists.
-let defaultState: typingBridgeState = {
-  activeTab: Constraints,
-  constraints: [],
-  inferenceResults: [],
-  selectedConstraint: None,
-  configFields: [],
-  running: false,
-  error: None,
-}
-
-/// Human-readable label for each tab in the Typing Bridge panel.
-let tabLabel = (tab: typingBridgeTab): string =>
-  switch tab {
-  | Constraints => "Constraints"
-  | Inference => "Inference"
-  | Editor => "Editor"
-  | Diagnostics => "Diagnostics"
-  }
-
-/// All tabs in display order.
-let allTabs: array<typingBridgeTab> = [Constraints, Inference, Editor, Diagnostics]
-
-/// Count the total number of registered type constraints.
-let countConstraints = (state: typingBridgeState): int => Array.length(state.constraints)
-
-/// Count constraints that are currently violated (not satisfied).
-let countViolated = (state: typingBridgeState): int =>
-  state.constraints->Array.filter(c => !c.satisfied)->Array.length
-
-/// Count constraints by severity.
-let countBySeverity = (constraints: array<gameTypeConstraint>, severity: constraintSeverity): int =>
-  constraints->Array.filter(c => c.severity === severity)->Array.length
-
-/// Human-readable label for constraint severity.
-let severityLabel = (severity: constraintSeverity): string =>
-  switch severity {
-  | ConstraintError => "Error"
-  | ConstraintWarning => "Warning"
-  | ConstraintInfo => "Info"
-  }
-
-/// Format a single inference result as a human-readable summary string.
-/// Includes the target path, inferred type, and status indicator.
-let formatInferenceResult = (result: inferenceResult): string => {
-  let statusIcon = switch result.status {
-  | InferenceSuccess => "[OK]"
-  | InferencePartial => "[Partial]"
-  | InferenceFailed => "[Failed]"
-  }
-  `${statusIcon} ${result.targetPath}: ${result.inferredType}`
-}
-
-/// Count inference results by status.
-let countInferenceByStatus = (results: array<inferenceResult>, status: inferenceStatus): int =>
-  results->Array.filter(r => r.status === status)->Array.length
-
-/// Count configuration fields that have validation errors.
-let countInvalidFields = (fields: array<typedConfigField>): int =>
-  fields->Array.filter(f => !f.valid)->Array.length
-
-/// Compute the constraint satisfaction percentage (0.0 to 100.0).
-/// Returns 100.0 when there are no constraints.
-let satisfactionPercent = (state: typingBridgeState): float => {
-  let total = Array.length(state.constraints)
-  if total === 0 {
-    100.0
-  } else {
-    let satisfied = state.constraints->Array.filter(c => c.satisfied)->Array.length
-    Int.toFloat(satisfied) /. Int.toFloat(total) *. 100.0
-  }
-}
diff --git a/src/core/UmsEngine.affine b/src/core/UmsEngine.affine
new file mode 100644
index 00000000..979e7ed7
--- /dev/null
+++ b/src/core/UmsEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UmsEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/UmsEngine.res b/src/core/UmsEngine.res
deleted file mode 100644
index f4d274ac..00000000
--- a/src/core/UmsEngine.res
+++ /dev/null
@@ -1,186 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Universal Modding Studio Engine — pure computation and helpers
-/// for the UMS panel. Category labels, colour mappings, filtering,
-/// statistics, and default state.
-
-open UmsModel
-
-/// Human-readable label for each UMS category tab.
-let categoryLabel = (cat: umsCategory): string =>
-  switch cat {
-  | UmsProjects => "Projects"
-  | UmsAbiValidator => "ABI Validator"
-  | UmsTemplates => "Templates"
-  | UmsAssets => "Assets"
-  | UmsDistribution => "Distribution"
-  | UmsApiReference => "API Reference"
-  }
-
-/// Icon hint for each UMS category tab (emoji-free text glyph).
-let categoryIcon = (cat: umsCategory): string =>
-  switch cat {
-  | UmsProjects => "[P]"
-  | UmsAbiValidator => "[V]"
-  | UmsTemplates => "[T]"
-  | UmsAssets => "[A]"
-  | UmsDistribution => "[D]"
-  | UmsApiReference => "[R]"
-  }
-
-/// Human-readable label for a template category.
-let templateCategoryLabel = (cat: templateCategory): string =>
-  switch cat {
-  | TemplateLevel => "Level"
-  | TemplatePuzzle => "Puzzle"
-  | TemplateCampaign => "Campaign"
-  | TemplateAssetPack => "Asset Pack"
-  }
-
-/// Tailwind colour class for a template category.
-let templateCategoryColour = (cat: templateCategory): string =>
-  switch cat {
-  | TemplateLevel => "text-cyan-400"
-  | TemplatePuzzle => "text-amber-400"
-  | TemplateCampaign => "text-purple-400"
-  | TemplateAssetPack => "text-emerald-400"
-  }
-
-/// Human-readable label for a mod asset type.
-let assetTypeLabel = (t: modAssetType): string =>
-  switch t {
-  | AssetSprite => "Sprite"
-  | AssetSound => "Sound"
-  | AssetMap => "Map"
-  | AssetTileset => "Tileset"
-  | AssetAnimation => "Animation"
-  | AssetScript => "Script"
-  }
-
-/// Tailwind colour class for a mod asset type.
-let assetTypeColour = (t: modAssetType): string =>
-  switch t {
-  | AssetSprite => "text-cyan-400"
-  | AssetSound => "text-amber-400"
-  | AssetMap => "text-emerald-400"
-  | AssetTileset => "text-purple-400"
-  | AssetAnimation => "text-orange-400"
-  | AssetScript => "text-red-400"
-  }
-
-/// Human-readable label for an ABI validation result.
-let validationStatusLabel = (result: abiValidationResult): string =>
-  if result.allPassed {
-    "All proofs passed"
-  } else {
-    `${Int.toString(Array.length(result.errors))} proof(s) failed`
-  }
-
-/// Tailwind colour class for an ABI validation result.
-let validationStatusColour = (result: abiValidationResult): string =>
-  if result.allPassed {
-    "text-emerald-400"
-  } else {
-    "text-red-400"
-  }
-
-/// Human-readable label for a distribution platform.
-let platformLabel = (p: distributionPlatform): string =>
-  switch p {
-  | PlatformGithub => "GitHub"
-  | PlatformWorkshop => "Workshop"
-  | PlatformLocal => "Local"
-  | PlatformCustom => "Custom"
-  }
-
-/// Tailwind colour class for a distribution platform.
-let platformColour = (p: distributionPlatform): string =>
-  switch p {
-  | PlatformGithub => "text-gray-200"
-  | PlatformWorkshop => "text-cyan-400"
-  | PlatformLocal => "text-amber-400"
-  | PlatformCustom => "text-purple-400"
-  }
-
-/// Filter projects by text search (matches name and description).
-let filterProjects = (projects: array<modProject>, filterText: string): array<modProject> => {
-  if filterText === "" {
-    projects
-  } else {
-    let lower = String.toLowerCase(filterText)
-    projects->Array.filter(p =>
-      String.includes(String.toLowerCase(p.name), lower) ||
-      String.includes(String.toLowerCase(p.description), lower)
-    )
-  }
-}
-
-/// Filter templates by text search (matches name and description).
-let filterTemplates = (templates: array<modTemplate>, filterText: string): array<modTemplate> => {
-  if filterText === "" {
-    templates
-  } else {
-    let lower = String.toLowerCase(filterText)
-    templates->Array.filter(t =>
-      String.includes(String.toLowerCase(t.name), lower) ||
-      String.includes(String.toLowerCase(t.description), lower)
-    )
-  }
-}
-
-/// Filter assets by text search (matches name and file path).
-let filterAssets = (assets: array<modAsset>, filterText: string): array<modAsset> => {
-  if filterText === "" {
-    assets
-  } else {
-    let lower = String.toLowerCase(filterText)
-    assets->Array.filter(a =>
-      String.includes(String.toLowerCase(a.name), lower) ||
-      String.includes(String.toLowerCase(a.filePath), lower)
-    )
-  }
-}
-
-/// Count assets by type.
-let countByAssetType = (assets: array<modAsset>, assetType: modAssetType): int =>
-  assets->Array.filter(a => a.assetType === assetType)->Array.length
-
-/// Count projects that have passed ABI validation.
-let validatedProjectCount = (projects: array<modProject>): int =>
-  projects->Array.filter(p => p.validated)->Array.length
-
-/// All UMS category tabs for rendering.
-let allCategories: array<umsCategory> = [
-  UmsProjects,
-  UmsAbiValidator,
-  UmsTemplates,
-  UmsAssets,
-  UmsDistribution,
-  UmsApiReference,
-]
-
-/// All mod asset types for filter dropdowns.
-let allAssetTypes: array<modAssetType> = [
-  AssetSprite,
-  AssetSound,
-  AssetMap,
-  AssetTileset,
-  AssetAnimation,
-  AssetScript,
-]
-
-/// Default state for the Universal Modding Studio panel.
-let defaultState: umsState = {
-  activeCategory: UmsProjects,
-  projects: [],
-  templates: [],
-  assets: [],
-  selectedProjectId: None,
-  validationResults: [],
-  distributionTargets: [],
-  apiEntries: [],
-  filterText: "",
-  loading: false,
-  error: None,
-  bojRouting: false,
-}
diff --git a/src/core/UndoEngine.affine b/src/core/UndoEngine.affine
new file mode 100644
index 00000000..e6054537
--- /dev/null
+++ b/src/core/UndoEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UndoEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/UndoEngine.res b/src/core/UndoEngine.res
deleted file mode 100644
index afb32f7d..00000000
--- a/src/core/UndoEngine.res
+++ /dev/null
@@ -1,135 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Undo Engine — ring buffer of model snapshots for undo/redo.
-///
-/// TEA's immutable state makes snapshot-based undo cheap: we just keep
-/// the last N model values. No command pattern needed — the model IS the
-/// snapshot.
-///
-/// Design: NOT every message pushes to undo. Only "significant" changes
-/// (user actions, not timer ticks or loading states) are captured. The
-/// `isSignificant` predicate filters noise from the undo stack.
-///
-/// Ring buffer is capped at `maxHistory` to bound memory. When the cap
-/// is exceeded, the oldest snapshot is discarded.
-
-open Msg
-
-/// Maximum number of undo snapshots to keep. 50 provides a generous
-/// undo buffer without excessive memory use (each snapshot is ~10-50KB
-/// depending on panel state).
-let maxHistory = 50
-
-/// Determine whether a message represents a "significant" state change
-/// that should be captured in the undo history.
-///
-/// Significant: user-initiated actions that modify domain state.
-/// NOT significant: timer ticks, loading states, NoOp, health checks,
-/// vexation index polling, inference subscription events.
-let isSignificant = (msg: msg): bool => {
-  switch msg {
-  // Timer/polling/loading — NOT significant
-  | NoOp => false
-  | SaveState => false
-  | Vexometer(RequestVexationIndex) => false
-  | Vexometer(UpdateVexationIndex(_)) => false
-  | Vexometer(SetInertiaDetected(_)) => false
-
-  // Health check results — NOT significant (background polling)
-  | VeriSimDB(HealthResult(_)) => false
-  | Echidna(HealthOk(_)) => false
-  | Echidna(HealthError(_)) => false
-  | PanelSwitcher(HealthCheckResult(_, _)) => false
-
-  // Watcher filesystem events — NOT significant (high frequency)
-  | Watcher(FileEvent(_)) => false
-  | Watcher(StatusLoaded(_)) => false
-  | Watcher(WatcherResult(_)) => false
-
-  // AI message responses — NOT significant (async results)
-  | Ai(MessageReceived(_)) => false
-  | Ai(ProviderChecked(_, _)) => false
-  | Ai(ModelSet(_)) => false
-  | Ai(PrioritySet(_)) => false
-  | Ai(ProviderToggled(_)) => false
-  | Ai(HistoryCleared(_)) => false
-  | Ai(ContextBuilt(_)) => false
-  | Ai(ProviderStateLoaded(_)) => false
-
-  // Orbital sync updates — NOT significant (computed from other state)
-  | Orbital(_) => false
-
-  // View toggles — borderline, but include for good UX
-  | View(_) => true
-
-  // Everything else: user actions → significant
-  | _ => true
-  }
-}
-
-/// Push a model snapshot onto the undo stack, clearing the redo stack.
-/// If the undo stack exceeds `maxHistory`, the oldest entry is dropped.
-let pushUndo = (undoStack: array<'a>, _redoStack: array<'a>, snapshot: 'a): (
-  array<'a>,
-  array<'a>,
-) => {
-  let newUndo = Array.concat(undoStack, [snapshot])
-  // Trim to max history: keep only the most recent entries.
-  let trimmed = if Array.length(newUndo) > maxHistory {
-    Array.slice(newUndo, ~start=Array.length(newUndo) - maxHistory, ~end=Array.length(newUndo))
-  } else {
-    newUndo
-  }
-  // Redo stack is always cleared after a new action.
-  (trimmed, [])
-}
-
-/// Pop the most recent snapshot from the undo stack. Returns the snapshot
-/// to restore, the new undo stack, and the updated redo stack (which gets
-/// the current state pushed onto it).
-let undo = (undoStack: array<'a>, redoStack: array<'a>, currentState: 'a): option<(
-  'a,
-  array<'a>,
-  array<'a>,
-)> => {
-  let len = Array.length(undoStack)
-  if len === 0 {
-    None
-  } else {
-    let snapshot = undoStack[len - 1]
-    let newUndo = Array.slice(undoStack, ~start=0, ~end=len - 1)
-    let newRedo = Array.concat(redoStack, [currentState])
-    switch snapshot {
-    | Some(s) => Some((s, newUndo, newRedo))
-    | None => None
-    }
-  }
-}
-
-/// Pop the most recent snapshot from the redo stack. Returns the snapshot
-/// to restore, the updated undo stack (which gets the current state pushed),
-/// and the new redo stack.
-let redo = (undoStack: array<'a>, redoStack: array<'a>, currentState: 'a): option<(
-  'a,
-  array<'a>,
-  array<'a>,
-)> => {
-  let len = Array.length(redoStack)
-  if len === 0 {
-    None
-  } else {
-    let snapshot = redoStack[len - 1]
-    let newRedo = Array.slice(redoStack, ~start=0, ~end=len - 1)
-    let newUndo = Array.concat(undoStack, [currentState])
-    switch snapshot {
-    | Some(s) => Some((s, newUndo, newRedo))
-    | None => None
-    }
-  }
-}
-
-/// Check if undo is available (stack is non-empty).
-let canUndo = (undoStack: array<'a>): bool => Array.length(undoStack) > 0
-
-/// Check if redo is available (stack is non-empty).
-let canRedo = (redoStack: array<'a>): bool => Array.length(redoStack) > 0
diff --git a/src/core/UnitTestRunnerEngine.affine b/src/core/UnitTestRunnerEngine.affine
new file mode 100644
index 00000000..310a96a0
--- /dev/null
+++ b/src/core/UnitTestRunnerEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UnitTestRunnerEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/UnitTestRunnerEngine.res b/src/core/UnitTestRunnerEngine.res
deleted file mode 100644
index 40d06c5d..00000000
--- a/src/core/UnitTestRunnerEngine.res
+++ /dev/null
@@ -1,170 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Unit Test Runner Engine — pure computation and helpers for the
-/// Unit Test Runner panel. Provides default state, test counting, coverage
-/// calculation, result filtering, sorting, and heatmap generation.
-
-open UnitTestRunnerModel
-
-/// Default initial state for the Unit Test Runner panel.
-/// Starts on the Test Results tab with no filter and SortByName order.
-let defaultState: unitTestRunnerState = {
-  activeTab: TabTestResults,
-  results: [],
-  coverage: [],
-  heatmap: [],
-  history: [],
-  running: false,
-  filter: "",
-  sortBy: SortByName,
-  diffAwareOnly: false,
-  error: None,
-}
-
-/// Human-readable label for each tab in the Unit Test Runner panel.
-let tabLabel = (tab: unitTestTab): string =>
-  switch tab {
-  | TabTestResults => "Test Results"
-  | TabCoverage => "Coverage"
-  | TabHistory => "History"
-  | TabDiffAware => "Diff-Aware"
-  }
-
-/// All tabs in display order.
-let allTabs: array<unitTestTab> = [TabTestResults, TabCoverage, TabHistory, TabDiffAware]
-
-/// Count passed tests.
-let countPassed = (results: array<testCaseResult>): int =>
-  results
-  ->Array.filter(r =>
-    switch r.status {
-    | TestPassed(_) => true
-    | _ => false
-    }
-  )
-  ->Array.length
-
-/// Count failed tests.
-let countFailed = (results: array<testCaseResult>): int =>
-  results
-  ->Array.filter(r =>
-    switch r.status {
-    | TestFailed(_, _) => true
-    | _ => false
-    }
-  )
-  ->Array.length
-
-/// Count skipped tests.
-let countSkipped = (results: array<testCaseResult>): int =>
-  results
-  ->Array.filter(r =>
-    switch r.status {
-    | TestSkipped(_) => true
-    | _ => false
-    }
-  )
-  ->Array.length
-
-/// Count running tests.
-let countRunning = (results: array<testCaseResult>): int =>
-  results
-  ->Array.filter(r =>
-    switch r.status {
-    | TestRunning => true
-    | _ => false
-    }
-  )
-  ->Array.length
-
-/// Calculate overall coverage percentage across all modules.
-let overallCoverage = (coverage: array<moduleCoverage>): float => {
-  let total = coverage->Array.reduce(0, (acc, m) => acc + m.totalFunctions)
-  let tested = coverage->Array.reduce(0, (acc, m) => acc + m.testedFunctions)
-  if total == 0 {
-    0.0
-  } else {
-    Float.fromInt(tested) /. Float.fromInt(total) *. 100.0
-  }
-}
-
-/// Filter results by search string (case-insensitive, matches test and suite names).
-let filterResults = (results: array<testCaseResult>, filter: string): array<testCaseResult> =>
-  if filter == "" {
-    results
-  } else {
-    let q = filter->String.toLowerCase
-    results->Array.filter(r =>
-      r.testName->String.toLowerCase->String.includes(q) ||
-        r.suiteName->String.toLowerCase->String.includes(q)
-    )
-  }
-
-/// Sort results by the specified sort order.
-let sortResults = (results: array<testCaseResult>, sortBy: testSortBy): array<testCaseResult> => {
-  let compare = switch sortBy {
-  | SortByName => (a: testCaseResult, b: testCaseResult) => String.compare(a.testName, b.testName)
-  | SortBySuite =>
-    (a: testCaseResult, b: testCaseResult) => String.compare(a.suiteName, b.suiteName)
-  | SortByStatus =>
-    (a: testCaseResult, b: testCaseResult) => {
-      let statusRank = (s: testCaseStatus) =>
-        switch s {
-        | TestFailed(_, _) => 0
-        | TestRunning => 1
-        | TestPending => 2
-        | TestSkipped(_) => 3
-        | TestPassed(_) => 4
-        }
-      Int.compare(statusRank(a.status), statusRank(b.status))
-    }
-  | SortByDuration =>
-    (a: testCaseResult, b: testCaseResult) => {
-      let dur = (s: testCaseStatus) =>
-        switch s {
-        | TestPassed(d) | TestFailed(_, d) => d
-        | _ => 0.0
-        }
-      Float.compare(dur(b.status), dur(a.status))
-    }
-  }
-  results->Array.toSorted(compare)
-}
-
-/// Generate heatmap cells from coverage data.
-let generateHeatmap = (coverage: array<moduleCoverage>): array<coverageHeatCell> =>
-  coverage->Array.map(m => {
-    moduleName: m.moduleName,
-    coveragePercent: m.coveragePercent,
-    totalFunctions: m.totalFunctions,
-  })
-
-/// Human-readable label for test status.
-let statusLabel = (status: testCaseStatus): string =>
-  switch status {
-  | TestPending => "Pending"
-  | TestRunning => "Running"
-  | TestPassed(ms) => `Passed (${Float.toFixed(ms, ~digits=1)}ms)`
-  | TestFailed(err, _) => `Failed: ${err}`
-  | TestSkipped(reason) => `Skipped: ${reason}`
-  }
-
-/// CSS colour class for test status.
-let statusColor = (status: testCaseStatus): string =>
-  switch status {
-  | TestPending => "text-gray-400"
-  | TestRunning => "text-yellow-400"
-  | TestPassed(_) => "text-green-400"
-  | TestFailed(_, _) => "text-red-400"
-  | TestSkipped(_) => "text-gray-500"
-  }
-
-/// Pass rate from a run summary as a percentage.
-let runPassRate = (summary: testRunSummary): float => {
-  let run = summary.totalTests - summary.skipped
-  if run == 0 {
-    0.0
-  } else {
-    Float.fromInt(summary.passed) /. Float.fromInt(run) *. 100.0
-  }
-}
diff --git a/src/core/VabCatalog.affine b/src/core/VabCatalog.affine
new file mode 100644
index 00000000..7c3e68b7
--- /dev/null
+++ b/src/core/VabCatalog.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VabCatalog;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/VabCatalog.res b/src/core/VabCatalog.res
deleted file mode 100644
index a54c65b0..00000000
--- a/src/core/VabCatalog.res
+++ /dev/null
@@ -1,1516 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL VAB Catalog — The complete proven-servers component library.
-///
-/// Hardcoded catalog of all 108 verified server components from the
-/// proven-servers project. Each entry declares ports, dependencies,
-/// capabilities, and description for the VAB assembly panel.
-///
-/// Component breakdown:
-///   - 8 core primitives (socket, frame, fsm, wire, compose, tls, config, audit)
-///   - 94 protocol implementations across 9 domains
-///   - 6 connector interfaces (dbconn, cacheconn, storageconn, queueconn, authconn, resolverconn)
-///
-/// All components are formally verified Idris2 with %default total and
-/// zero believe_me instances.
-
-/// Uses VabModel types directly (not Model) to avoid dependency cycles.
-/// Model includes VabModel, but also references VabCatalog — so we go
-/// straight to the leaf module.
-open VabModel
-
-// ===========================================================================
-// Core Primitives (8)
-// ===========================================================================
-
-/// Core primitives — the fundamental building blocks that protocols depend on.
-/// These are the proven-servers equivalent of KSP's command pods and fuel tanks.
-let coreComponents: array<vabComponent> = [
-  {
-    id: "proven-socket",
-    name: "Socket Primitive",
-    shortName: "socket",
-    category: VabCore,
-    ports: [],
-    dependencies: [],
-    softDependencies: [],
-    capabilities: ["tcp", "udp", "networking"],
-    description: "Verified TCP/UDP socket abstraction. Foundation of all network protocols.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-frame",
-    name: "Frame Codec",
-    shortName: "frame",
-    category: VabCore,
-    ports: [],
-    dependencies: ["proven-socket"],
-    softDependencies: [],
-    capabilities: ["framing", "codec"],
-    description: "Length-delimited frame encoding/decoding with verified boundary checks.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-fsm",
-    name: "Finite State Machine",
-    shortName: "fsm",
-    category: VabCore,
-    ports: [],
-    dependencies: [],
-    softDependencies: [],
-    capabilities: ["state-machine", "protocol-logic"],
-    description: "Verified FSM engine for protocol state transitions. Proves no invalid states reachable.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-wire",
-    name: "Wire Format",
-    shortName: "wire",
-    category: VabCore,
-    ports: [],
-    dependencies: [],
-    softDependencies: [],
-    capabilities: ["serialisation", "wire-format"],
-    description: "Binary wire format serialisation with proven round-trip correctness.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-compose",
-    name: "Protocol Composer",
-    shortName: "compose",
-    category: VabCore,
-    ports: [],
-    dependencies: ["proven-fsm"],
-    softDependencies: [],
-    capabilities: ["composition", "protocol-stack"],
-    description: "Composes protocol layers into verified stacks. Proves layer compatibility.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-tls",
-    name: "TLS Engine",
-    shortName: "tls",
-    category: VabCore,
-    ports: [443],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-config"],
-    capabilities: ["encryption", "tls", "certificates"],
-    description: "Verified TLS 1.3 implementation. All handshake states formally proven.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-config",
-    name: "Configuration",
-    shortName: "config",
-    category: VabCore,
-    ports: [],
-    dependencies: [],
-    softDependencies: [],
-    capabilities: ["configuration", "settings"],
-    description: "Type-safe configuration loading with schema validation proofs.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-audit",
-    name: "Audit Logger",
-    shortName: "audit",
-    category: VabCore,
-    ports: [],
-    dependencies: [],
-    softDependencies: ["proven-config"],
-    capabilities: ["audit-logging", "compliance"],
-    description: "Tamper-evident audit trail with cryptographic chain of custody proofs.",
-    rackUnits: 1,
-  },
-]
-
-// ===========================================================================
-// Network Protocols (12)
-// ===========================================================================
-
-/// Network-layer protocols — transport, tunnelling, and low-level networking.
-let networkComponents: array<vabComponent> = [
-  {
-    id: "proven-proxy",
-    name: "Reverse Proxy",
-    shortName: "proxy",
-    category: VabNetwork,
-    ports: [8080],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-tls", "proven-audit"],
-    capabilities: ["proxying", "load-distribution"],
-    description: "Verified reverse proxy with connection pooling and header rewriting.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-loadbalancer",
-    name: "Load Balancer",
-    shortName: "lb",
-    category: VabNetwork,
-    ports: [80, 443],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-tls", "proven-config"],
-    capabilities: ["load-balancing", "health-checks"],
-    description: "Verified L4/L7 load balancer with provably fair distribution algorithms.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-vpn",
-    name: "VPN Gateway",
-    shortName: "vpn",
-    category: VabNetwork,
-    ports: [1194],
-    dependencies: ["proven-socket", "proven-tls"],
-    softDependencies: ["proven-audit"],
-    capabilities: ["vpn", "tunnelling", "encryption"],
-    description: "Verified VPN tunnel with proven key exchange and forward secrecy.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-firewall",
-    name: "Packet Filter",
-    shortName: "fw",
-    category: VabNetwork,
-    ports: [],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-audit", "proven-config"],
-    capabilities: ["firewall", "packet-filtering"],
-    description: "Verified stateful packet filter with provably complete rule evaluation.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-socks",
-    name: "SOCKS Proxy",
-    shortName: "socks",
-    category: VabNetwork,
-    ports: [1080],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-audit"],
-    capabilities: ["socks-proxy", "tunnelling"],
-    description: "SOCKS5 proxy with verified authentication and UDP relay support.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-stun",
-    name: "STUN/TURN",
-    shortName: "stun",
-    category: VabNetwork,
-    ports: [3478],
-    dependencies: ["proven-socket"],
-    softDependencies: [],
-    capabilities: ["nat-traversal", "stun", "turn"],
-    description: "Verified STUN/TURN server for NAT traversal with proven relay correctness.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-sdn",
-    name: "SDN Controller",
-    shortName: "sdn",
-    category: VabNetwork,
-    ports: [6633],
-    dependencies: ["proven-socket", "proven-fsm"],
-    softDependencies: ["proven-config", "proven-audit"],
-    capabilities: ["sdn", "network-control"],
-    description: "Software-defined networking controller with verified flow table management.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-telnet",
-    name: "Telnet Server",
-    shortName: "telnet",
-    category: VabNetwork,
-    ports: [23],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-audit"],
-    capabilities: ["telnet", "remote-access"],
-    description: "Verified Telnet with option negotiation. Use SSH for production; this is for legacy/honeypot.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-diode",
-    name: "Data Diode",
-    shortName: "diode",
-    category: VabNetwork,
-    ports: [],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-audit"],
-    capabilities: ["data-diode", "one-way"],
-    description: "Verified unidirectional data flow enforcer. Proves no reverse channel exists.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-airgap",
-    name: "Air Gap Bridge",
-    shortName: "airgap",
-    category: VabNetwork,
-    ports: [],
-    dependencies: ["proven-diode"],
-    softDependencies: ["proven-audit"],
-    capabilities: ["airgap", "isolation"],
-    description: "Verified air-gap bridge with proven data sanitisation between networks.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-bfd",
-    name: "BFD Daemon",
-    shortName: "bfd",
-    category: VabNetwork,
-    ports: [3784],
-    dependencies: ["proven-socket"],
-    softDependencies: [],
-    capabilities: ["bfd", "failure-detection"],
-    description: "Bidirectional Forwarding Detection with verified sub-second failure detection.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-ptp",
-    name: "PTP Clock",
-    shortName: "ptp",
-    category: VabNetwork,
-    ports: [319, 320],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-config"],
-    capabilities: ["precision-time", "clock-sync"],
-    description: "IEEE 1588 Precision Time Protocol with verified clock discipline algorithms.",
-    rackUnits: 1,
-  },
-]
-
-// ===========================================================================
-// DNS Protocols (5)
-// ===========================================================================
-
-/// DNS protocol family — resolution, authority, multicast, encrypted DNS.
-let dnsComponents: array<vabComponent> = [
-  {
-    id: "proven-dns",
-    name: "DNS Resolver",
-    shortName: "dns",
-    category: VabDns,
-    ports: [53],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-cache"],
-    capabilities: ["dns-resolution", "name-lookup"],
-    description: "Verified recursive DNS resolver with DNSSEC validation proofs.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-mdns",
-    name: "mDNS Responder",
-    shortName: "mdns",
-    category: VabDns,
-    ports: [5353],
-    dependencies: ["proven-socket"],
-    softDependencies: [],
-    capabilities: ["mdns", "service-discovery"],
-    description: "Multicast DNS for local service discovery with verified conflict resolution.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-doh",
-    name: "DNS over HTTPS",
-    shortName: "doh",
-    category: VabDns,
-    ports: [443],
-    dependencies: ["proven-socket", "proven-tls", "proven-httpd"],
-    softDependencies: ["proven-cache"],
-    capabilities: ["dns-resolution", "encrypted-dns"],
-    description: "RFC 8484 DNS-over-HTTPS with verified query encryption and response integrity.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-dot",
-    name: "DNS over TLS",
-    shortName: "dot",
-    category: VabDns,
-    ports: [853],
-    dependencies: ["proven-socket", "proven-tls"],
-    softDependencies: ["proven-cache"],
-    capabilities: ["dns-resolution", "encrypted-dns"],
-    description: "RFC 7858 DNS-over-TLS with verified handshake and query privacy.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-doq",
-    name: "DNS over QUIC",
-    shortName: "doq",
-    category: VabDns,
-    ports: [853],
-    dependencies: ["proven-socket", "proven-tls"],
-    softDependencies: ["proven-cache"],
-    capabilities: ["dns-resolution", "encrypted-dns"],
-    description: "RFC 9250 DNS-over-QUIC with verified 0-RTT query resumption.",
-    rackUnits: 1,
-  },
-]
-
-// ===========================================================================
-// Web Protocols (10)
-// ===========================================================================
-
-/// Web protocols — HTTP, WebSocket, gRPC, GraphQL, REST, SSE, and more.
-let webComponents: array<vabComponent> = [
-  {
-    id: "proven-httpd",
-    name: "HTTP Server",
-    shortName: "httpd",
-    category: VabWeb,
-    ports: [80, 443],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-tls", "proven-audit"],
-    capabilities: ["http", "web-serving", "document-json", "document-xml", "i18n"],
-    description: "Verified HTTP/1.1 server with provably correct request parsing, response framing, content negotiation, and Accept-Language routing.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-ws",
-    name: "WebSocket Server",
-    shortName: "ws",
-    category: VabWeb,
-    ports: [8080],
-    dependencies: ["proven-socket", "proven-httpd"],
-    softDependencies: ["proven-tls"],
-    capabilities: ["websocket", "real-time"],
-    description: "Verified WebSocket with proven upgrade handshake and frame masking.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-grpc",
-    name: "gRPC Server",
-    shortName: "grpc",
-    category: VabWeb,
-    ports: [50051],
-    dependencies: ["proven-socket", "proven-frame"],
-    softDependencies: ["proven-tls"],
-    capabilities: ["grpc", "rpc", "protobuf"],
-    description: "Verified gRPC with proven HTTP/2 framing and protobuf serialisation.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-graphql",
-    name: "GraphQL Server",
-    shortName: "graphql",
-    category: VabWeb,
-    ports: [4000],
-    dependencies: ["proven-httpd"],
-    softDependencies: ["proven-tls", "proven-audit"],
-    capabilities: ["graphql", "api", "document-json", "i18n"],
-    description: "Verified GraphQL executor with proven query validation, depth limiting, and i18n-aware error messages.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-apiserver",
-    name: "API Server",
-    shortName: "api",
-    category: VabWeb,
-    ports: [8443],
-    dependencies: ["proven-httpd"],
-    softDependencies: ["proven-tls", "proven-audit", "proven-config"],
-    capabilities: ["rest-api", "json-api", "document-json", "i18n"],
-    description: "REST API server with verified route matching, content negotiation, and i18n-aware response localisation.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-appserver",
-    name: "Application Server",
-    shortName: "app",
-    category: VabWeb,
-    ports: [3000],
-    dependencies: ["proven-httpd"],
-    softDependencies: ["proven-tls", "proven-config", "proven-audit"],
-    capabilities: ["application", "web-app"],
-    description: "General-purpose application server with verified middleware pipeline.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-webdav",
-    name: "WebDAV Server",
-    shortName: "webdav",
-    category: VabWeb,
-    ports: [80, 443],
-    dependencies: ["proven-httpd"],
-    softDependencies: ["proven-tls", "proven-audit"],
-    capabilities: ["webdav", "file-sharing"],
-    description: "Verified WebDAV with proven lock management and property store consistency.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-ldp",
-    name: "Linked Data Platform",
-    shortName: "ldp",
-    category: VabWeb,
-    ports: [8080],
-    dependencies: ["proven-httpd"],
-    softDependencies: ["proven-tls"],
-    capabilities: ["linked-data", "rdf"],
-    description: "W3C Linked Data Platform with verified container/resource semantics.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-semweb",
-    name: "Semantic Web",
-    shortName: "semweb",
-    category: VabWeb,
-    ports: [8080],
-    dependencies: ["proven-httpd"],
-    softDependencies: ["proven-tls"],
-    capabilities: ["semantic-web", "rdf", "ontology"],
-    description: "Semantic web endpoint with verified RDF graph operations and SHACL validation.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-wasm",
-    name: "WASM Runtime",
-    shortName: "wasm",
-    category: VabWeb,
-    ports: [],
-    dependencies: [],
-    softDependencies: ["proven-sandbox"],
-    capabilities: ["wasm", "sandboxed-execution"],
-    description: "Verified WebAssembly runtime with proven memory safety and sandboxing.",
-    rackUnits: 2,
-  },
-]
-
-// ===========================================================================
-// IoT Protocols (7)
-// ===========================================================================
-
-/// IoT protocols — MQTT, CoAP, AMQP, LwM2M, industrial, and smart home.
-let iotComponents: array<vabComponent> = [
-  {
-    id: "proven-mqtt",
-    name: "MQTT Broker",
-    shortName: "mqtt",
-    category: VabIot,
-    ports: [1883, 8883],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-tls", "proven-audit"],
-    capabilities: ["mqtt", "pub-sub", "iot-messaging"],
-    description: "Verified MQTT v5.0 broker with proven QoS delivery guarantees.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-coap",
-    name: "CoAP Server",
-    shortName: "coap",
-    category: VabIot,
-    ports: [5683, 5684],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-tls"],
-    capabilities: ["coap", "iot-rest"],
-    description: "Verified CoAP with proven observe mechanism and block-wise transfer.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-amqp",
-    name: "AMQP Broker",
-    shortName: "amqp",
-    category: VabIot,
-    ports: [5672, 5671],
-    dependencies: ["proven-socket", "proven-frame"],
-    softDependencies: ["proven-tls", "proven-audit"],
-    capabilities: ["amqp", "message-queue"],
-    description: "Verified AMQP 0-9-1 broker with proven message ordering and acknowledgement.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-modbus",
-    name: "Modbus Server",
-    shortName: "modbus",
-    category: VabIot,
-    ports: [502],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-audit"],
-    capabilities: ["modbus", "industrial-control"],
-    description: "Verified Modbus TCP with proven register access control and bounds checking.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-opcua",
-    name: "OPC UA Server",
-    shortName: "opcua",
-    category: VabIot,
-    ports: [4840],
-    dependencies: ["proven-socket", "proven-tls"],
-    softDependencies: ["proven-audit", "proven-config"],
-    capabilities: ["opcua", "industrial-automation"],
-    description: "Verified OPC UA with proven information model consistency and security modes.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-netconf",
-    name: "NETCONF Server",
-    shortName: "netconf",
-    category: VabIot,
-    ports: [830],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-tls", "proven-config"],
-    capabilities: ["netconf", "network-config"],
-    description: "Verified NETCONF with proven YANG model validation and transactional edits.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-mcp",
-    name: "Model Context Protocol",
-    shortName: "mcp",
-    category: VabIot,
-    ports: [8080],
-    dependencies: ["proven-socket", "proven-frame"],
-    softDependencies: ["proven-tls", "proven-audit"],
-    capabilities: ["mcp", "ai-tooling"],
-    description: "Verified MCP server for AI tool integration with proven capability negotiation.",
-    rackUnits: 1,
-  },
-]
-
-// ===========================================================================
-// Email Protocols (5)
-// ===========================================================================
-
-/// Email protocols — SMTP, IMAP, POP3, and email authentication.
-let emailComponents: array<vabComponent> = [
-  {
-    id: "proven-smtp",
-    name: "SMTP Server",
-    shortName: "smtp",
-    category: VabEmail,
-    ports: [25, 587],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-tls", "proven-audit"],
-    capabilities: ["email-send", "smtp"],
-    description: "Verified SMTP with proven envelope validation and relay control.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-imap",
-    name: "IMAP Server",
-    shortName: "imap",
-    category: VabEmail,
-    ports: [143, 993],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-tls", "proven-audit"],
-    capabilities: ["email-receive", "imap", "mailbox"],
-    description: "Verified IMAP4rev2 with proven mailbox state consistency and IDLE notification.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-pop3",
-    name: "POP3 Server",
-    shortName: "pop3",
-    category: VabEmail,
-    ports: [110, 995],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-tls"],
-    capabilities: ["email-receive", "pop3"],
-    description: "Verified POP3 with proven download-and-delete semantics.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-lpd",
-    name: "Line Printer Daemon",
-    shortName: "lpd",
-    category: VabEmail,
-    ports: [515],
-    dependencies: ["proven-socket"],
-    softDependencies: [],
-    capabilities: ["printing", "lpd"],
-    description: "Verified LPD with proven job queue management and access control.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-odns",
-    name: "Oblivious DNS",
-    shortName: "odns",
-    category: VabEmail,
-    ports: [443],
-    dependencies: ["proven-socket", "proven-tls"],
-    softDependencies: [],
-    capabilities: ["dns-privacy", "oblivious-dns"],
-    description: "Oblivious DNS-over-HTTPS relay with proven query unlinkability.",
-    rackUnits: 1,
-  },
-]
-
-// ===========================================================================
-// Security Protocols (14)
-// ===========================================================================
-
-/// Security protocols — authentication, key management, intrusion detection,
-/// certificate transparency, post-quantum crypto, and zero-trust architecture.
-let securityComponents: array<vabComponent> = [
-  {
-    id: "proven-ssh-bastion",
-    name: "SSH Bastion",
-    shortName: "ssh",
-    category: VabSecurity,
-    ports: [22],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-audit"],
-    capabilities: ["ssh", "remote-access", "bastion"],
-    description: "Verified SSH bastion host with proven key exchange and session recording.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-kerberos",
-    name: "Kerberos KDC",
-    shortName: "krb5",
-    category: VabSecurity,
-    ports: [88],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-audit", "proven-config"],
-    capabilities: ["kerberos", "authentication", "sso"],
-    description: "Verified Kerberos 5 KDC with proven ticket granting and cross-realm trust.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-radius",
-    name: "RADIUS Server",
-    shortName: "radius",
-    category: VabSecurity,
-    ports: [1812, 1813],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-audit"],
-    capabilities: ["radius", "aaa"],
-    description: "Verified RADIUS with proven authenticator and attribute validation.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-tacacs",
-    name: "TACACS+ Server",
-    shortName: "tacacs",
-    category: VabSecurity,
-    ports: [49],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-audit"],
-    capabilities: ["tacacs", "aaa", "network-auth"],
-    description: "Verified TACACS+ with proven authentication/authorisation/accounting separation.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-ldap",
-    name: "LDAP Directory",
-    shortName: "ldap",
-    category: VabSecurity,
-    ports: [389, 636],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-tls", "proven-audit"],
-    capabilities: ["ldap", "directory", "authentication"],
-    description: "Verified LDAP directory with proven search filter evaluation and ACL enforcement.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-authserver",
-    name: "Auth Server",
-    shortName: "auth",
-    category: VabSecurity,
-    ports: [8443],
-    dependencies: ["proven-httpd", "proven-tls"],
-    softDependencies: ["proven-audit", "proven-config"],
-    capabilities: ["oauth", "oidc", "authentication"],
-    description: "Verified OAuth 2.0/OIDC server with proven token lifecycle and consent flows.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-ca",
-    name: "Certificate Authority",
-    shortName: "ca",
-    category: VabSecurity,
-    ports: [8443],
-    dependencies: ["proven-tls"],
-    softDependencies: ["proven-audit", "proven-config"],
-    capabilities: ["certificates", "pki", "ca"],
-    description: "Verified X.509 CA with proven certificate chain validation and CRL management.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-ocsp",
-    name: "OCSP Responder",
-    shortName: "ocsp",
-    category: VabSecurity,
-    ports: [80],
-    dependencies: ["proven-httpd"],
-    softDependencies: ["proven-ca"],
-    capabilities: ["ocsp", "certificate-status"],
-    description: "Verified OCSP responder with proven certificate revocation status lookups.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-ctlog",
-    name: "CT Log",
-    shortName: "ctlog",
-    category: VabSecurity,
-    ports: [443],
-    dependencies: ["proven-httpd", "proven-tls"],
-    softDependencies: ["proven-audit"],
-    capabilities: ["certificate-transparency", "ct-log"],
-    description: "Certificate Transparency log with verified Merkle tree append-only semantics.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-kms",
-    name: "Key Management",
-    shortName: "kms",
-    category: VabSecurity,
-    ports: [5696],
-    dependencies: ["proven-tls"],
-    softDependencies: ["proven-audit", "proven-config"],
-    capabilities: ["key-management", "encryption-keys"],
-    description: "KMIP-compliant key management with verified key lifecycle and access control.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-ids",
-    name: "Intrusion Detection",
-    shortName: "ids",
-    category: VabSecurity,
-    ports: [],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-audit", "proven-config"],
-    capabilities: ["ids", "intrusion-detection"],
-    description: "Verified IDS with proven pattern matching and anomaly detection classification.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-pqc",
-    name: "Post-Quantum Crypto",
-    shortName: "pqc",
-    category: VabSecurity,
-    ports: [],
-    dependencies: ["proven-tls"],
-    softDependencies: [],
-    capabilities: ["post-quantum", "pqc", "encryption"],
-    description: "Post-quantum cryptographic primitives (ML-KEM, ML-DSA) with verified correctness.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-zerotrust",
-    name: "Zero Trust Engine",
-    shortName: "ztrust",
-    category: VabSecurity,
-    ports: [443],
-    dependencies: ["proven-httpd", "proven-tls"],
-    softDependencies: ["proven-audit", "proven-authserver"],
-    capabilities: ["zero-trust", "policy-engine"],
-    description: "Verified zero-trust policy engine with proven continuous authentication.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-honeypot",
-    name: "Honeypot",
-    shortName: "honeypot",
-    category: VabSecurity,
-    ports: [23, 80, 22],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-audit", "proven-telnet"],
-    capabilities: ["deception", "honeypot"],
-    description: "Verified honeypot with proven attacker session isolation and behaviour logging.",
-    rackUnits: 1,
-  },
-]
-
-// ===========================================================================
-// Data Protocols (14)
-// ===========================================================================
-
-/// Data protocols — databases, caches, file transfer, object storage,
-/// graph databases, triple stores, and semantic query engines.
-let dataComponents: array<vabComponent> = [
-  {
-    id: "proven-dbserver",
-    name: "Database Server",
-    shortName: "db",
-    category: VabData,
-    ports: [5432],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-tls", "proven-audit", "proven-config"],
-    capabilities: ["database", "sql", "persistence"],
-    description: "Verified relational database server with proven transaction isolation.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-graphdb",
-    name: "Graph Database",
-    shortName: "graphdb",
-    category: VabData,
-    ports: [7687],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-tls", "proven-audit"],
-    capabilities: ["graph-database", "graph-queries"],
-    description: "Verified property graph database with proven traversal correctness.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-triplestore",
-    name: "Triple Store",
-    shortName: "triples",
-    category: VabData,
-    ports: [3030],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-tls"],
-    capabilities: ["rdf-store", "sparql"],
-    description: "Verified RDF triple store with proven SPARQL query evaluation semantics.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-sparql",
-    name: "SPARQL Endpoint",
-    shortName: "sparql",
-    category: VabData,
-    ports: [3030],
-    dependencies: ["proven-httpd", "proven-triplestore"],
-    softDependencies: ["proven-tls"],
-    capabilities: ["sparql", "semantic-query"],
-    description: "Verified SPARQL 1.1 endpoint with proven query algebra evaluation.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-cache",
-    name: "Cache Server",
-    shortName: "cache",
-    category: VabData,
-    ports: [6379, 11211],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-config"],
-    capabilities: ["caching", "in-memory"],
-    description: "Verified in-memory cache with proven eviction policy correctness (LRU, LFU).",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-objectstore",
-    name: "Object Store",
-    shortName: "objstore",
-    category: VabData,
-    ports: [9000],
-    dependencies: ["proven-httpd"],
-    softDependencies: ["proven-tls", "proven-audit"],
-    capabilities: ["object-storage", "s3-compatible"],
-    description: "S3-compatible verified object store with proven consistency and versioning.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-ftp",
-    name: "FTP Server",
-    shortName: "ftp",
-    category: VabData,
-    ports: [21],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-tls", "proven-audit"],
-    capabilities: ["ftp", "file-transfer"],
-    description: "Verified FTP with proven directory traversal prevention and passive mode.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-tftp",
-    name: "TFTP Server",
-    shortName: "tftp",
-    category: VabData,
-    ports: [69],
-    dependencies: ["proven-socket"],
-    softDependencies: [],
-    capabilities: ["tftp", "boot-transfer"],
-    description: "Verified TFTP with proven block acknowledgement and timeout handling.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-nfs",
-    name: "NFS Server",
-    shortName: "nfs",
-    category: VabData,
-    ports: [2049],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-tls", "proven-audit"],
-    capabilities: ["nfs", "network-filesystem"],
-    description: "Verified NFSv4 with proven delegation and lock management.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-smb",
-    name: "SMB Server",
-    shortName: "smb",
-    category: VabData,
-    ports: [445],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-tls", "proven-audit"],
-    capabilities: ["smb", "file-sharing"],
-    description: "Verified SMB3 with proven oplock/lease management and signing.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-fileserver",
-    name: "File Server",
-    shortName: "files",
-    category: VabData,
-    ports: [80, 443],
-    dependencies: ["proven-httpd"],
-    softDependencies: ["proven-tls", "proven-audit"],
-    capabilities: ["file-serving", "static-content"],
-    description: "Verified static file server with proven path traversal prevention.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-backup",
-    name: "Backup Server",
-    shortName: "backup",
-    category: VabData,
-    ports: [8200],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-tls", "proven-audit", "proven-config"],
-    capabilities: ["backup", "disaster-recovery"],
-    description: "Verified backup server with proven deduplication and integrity verification.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-git",
-    name: "Git Server",
-    shortName: "git",
-    category: VabData,
-    ports: [9418],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-ssh-bastion", "proven-httpd", "proven-audit"],
-    capabilities: ["git", "version-control"],
-    description: "Verified Git smart protocol server with proven pack negotiation.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-configmgmt",
-    name: "Config Management",
-    shortName: "cfgmgmt",
-    category: VabData,
-    ports: [8140],
-    dependencies: ["proven-httpd"],
-    softDependencies: ["proven-tls", "proven-config", "proven-audit"],
-    capabilities: ["config-management", "infrastructure-as-code"],
-    description: "Verified configuration management server with proven convergence proofs.",
-    rackUnits: 2,
-  },
-]
-
-// ===========================================================================
-// Application Protocols (14)
-// ===========================================================================
-
-/// Application protocols — VoIP, chat, media, gaming, CLI, agentic AI,
-/// container orchestration, and neurosymbolic integration.
-let applicationComponents: array<vabComponent> = [
-  {
-    id: "proven-voip",
-    name: "VoIP Server",
-    shortName: "voip",
-    category: VabApplication,
-    ports: [5060, 5061],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-tls", "proven-audit"],
-    capabilities: ["voip", "sip"],
-    description: "Verified SIP/RTP VoIP server with proven call state machine and codec negotiation.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-xmpp",
-    name: "XMPP Server",
-    shortName: "xmpp",
-    category: VabApplication,
-    ports: [5222, 5269],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-tls", "proven-audit"],
-    capabilities: ["xmpp", "instant-messaging"],
-    description: "Verified XMPP with proven roster management and message archiving.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-irc",
-    name: "IRC Server",
-    shortName: "irc",
-    category: VabApplication,
-    ports: [6667, 6697],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-tls"],
-    capabilities: ["irc", "chat"],
-    description: "Verified IRCv3 with proven channel state and nick collision handling.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-chat",
-    name: "Chat Server",
-    shortName: "chat",
-    category: VabApplication,
-    ports: [8080],
-    dependencies: ["proven-httpd", "proven-ws"],
-    softDependencies: ["proven-tls", "proven-audit"],
-    capabilities: ["chat", "real-time-messaging"],
-    description: "Modern chat server with verified message ordering and delivery guarantees.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-rtsp",
-    name: "RTSP Server",
-    shortName: "rtsp",
-    category: VabApplication,
-    ports: [554],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-tls"],
-    capabilities: ["rtsp", "media-streaming"],
-    description: "Verified RTSP with proven session state and RTP interleaving.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-media",
-    name: "Media Server",
-    shortName: "media",
-    category: VabApplication,
-    ports: [1935, 8080],
-    dependencies: ["proven-socket", "proven-httpd"],
-    softDependencies: ["proven-tls"],
-    capabilities: ["media-streaming", "hls", "dash"],
-    description: "Verified media server with proven adaptive bitrate and segment consistency.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-gameserver",
-    name: "Game Server",
-    shortName: "game",
-    category: VabApplication,
-    ports: [27015],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-config", "proven-audit"],
-    capabilities: ["game-server", "real-time"],
-    description: "Verified game server framework with proven state synchronisation and tick rate.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-cli",
-    name: "CLI Server",
-    shortName: "cli",
-    category: VabApplication,
-    ports: [],
-    dependencies: ["proven-config"],
-    softDependencies: [],
-    capabilities: ["cli", "command-line"],
-    description: "Verified CLI command dispatcher with proven argument parsing and help generation.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-agentic",
-    name: "Agentic Runtime",
-    shortName: "agent",
-    category: VabApplication,
-    ports: [8080],
-    dependencies: ["proven-httpd", "proven-fsm"],
-    softDependencies: ["proven-tls", "proven-audit", "proven-config"],
-    capabilities: ["ai-agents", "tool-use", "reasoning"],
-    description: "Verified AI agent runtime with proven tool-call safety and reasoning bounds.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-neurosym",
-    name: "Neurosymbolic Bridge",
-    shortName: "nsym",
-    category: VabApplication,
-    ports: [9090],
-    dependencies: ["proven-socket", "proven-fsm"],
-    softDependencies: ["proven-tls", "proven-audit"],
-    capabilities: ["neurosymbolic", "hybrid-ai"],
-    description: "Bridge between neural inference and symbolic verification with proven soundness.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-federation",
-    name: "Federation Server",
-    shortName: "fed",
-    category: VabApplication,
-    ports: [443],
-    dependencies: ["proven-httpd", "proven-tls"],
-    softDependencies: ["proven-audit"],
-    capabilities: ["federation", "activitypub"],
-    description: "Verified ActivityPub federation with proven object delivery and signature verification.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-deception",
-    name: "Deception Engine",
-    shortName: "decoy",
-    category: VabApplication,
-    ports: [],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-audit", "proven-honeypot"],
-    capabilities: ["deception", "threat-intelligence"],
-    description: "Verified deception technology with proven attacker engagement and breadcrumb placement.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-sandbox",
-    name: "Sandbox Engine",
-    shortName: "sandbox",
-    category: VabApplication,
-    ports: [],
-    dependencies: [],
-    softDependencies: ["proven-audit"],
-    capabilities: ["sandboxing", "isolation"],
-    description: "Verified execution sandbox with proven resource isolation and capability-based security.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-hardened",
-    name: "Hardened Runtime",
-    shortName: "hardened",
-    category: VabApplication,
-    ports: [],
-    dependencies: [],
-    softDependencies: ["proven-audit", "proven-config"],
-    capabilities: ["hardening", "security-baseline"],
-    description: "Verified security hardening primitives (ASLR, stack canaries, seccomp) with proofs.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-a2ml",
-    name: "A2ML Manifest Engine",
-    shortName: "a2ml",
-    category: VabApplication,
-    ports: [8080],
-    dependencies: ["proven-httpd"],
-    softDependencies: ["proven-config", "proven-audit"],
-    capabilities: ["a2ml", "ai-manifest", "document-a2ml", "i18n"],
-    description: "Verified A2ML manifest parser/server. Handles AI agent entry points, lifecycle hooks, and cross-agent knowledge transfer with i18n-aware field extraction.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-docserver",
-    name: "Document Server",
-    shortName: "docs",
-    category: VabApplication,
-    ports: [8080],
-    dependencies: ["proven-httpd"],
-    softDependencies: ["proven-tls", "proven-config"],
-    capabilities: [
-      "document-json",
-      "document-yaml",
-      "document-toml",
-      "document-xml",
-      "document-adoc",
-      "document-djot",
-      "document-markdown",
-      "document-pdf",
-      "i18n",
-    ],
-    description: "Multi-format document server with verified parsing for JSON, YAML, TOML, XML, AsciiDoc, Djot, Markdown, and PDF. I18n-aware content negotiation via Accept-Language.",
-    rackUnits: 2,
-  },
-]
-
-// ===========================================================================
-// Infrastructure Protocols (13)
-// ===========================================================================
-
-/// Infrastructure protocols — syslog, SNMP, NTP, BGP, OSPF, DHCP,
-/// monitoring, metrics collection, and container orchestration.
-let infrastructureComponents: array<vabComponent> = [
-  {
-    id: "proven-syslog",
-    name: "Syslog Server",
-    shortName: "syslog",
-    category: VabInfrastructure,
-    ports: [514],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-tls", "proven-audit"],
-    capabilities: ["syslog", "log-collection"],
-    description: "Verified syslog with proven message parsing (RFC 5424) and reliable delivery.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-snmp",
-    name: "SNMP Agent",
-    shortName: "snmp",
-    category: VabInfrastructure,
-    ports: [161, 162],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-config"],
-    capabilities: ["snmp", "network-monitoring"],
-    description: "Verified SNMPv3 with proven MIB walk and authentication.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-ntp",
-    name: "NTP Server",
-    shortName: "ntp",
-    category: VabInfrastructure,
-    ports: [123],
-    dependencies: ["proven-socket"],
-    softDependencies: [],
-    capabilities: ["ntp", "time-sync"],
-    description: "Verified NTPv4 with proven clock discipline and Marzullo's algorithm.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-nts",
-    name: "NTS Server",
-    shortName: "nts",
-    category: VabInfrastructure,
-    ports: [123, 4460],
-    dependencies: ["proven-socket", "proven-tls"],
-    softDependencies: [],
-    capabilities: ["nts", "secure-time-sync"],
-    description: "Network Time Security with verified key exchange and authenticated timestamps.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-bgp",
-    name: "BGP Speaker",
-    shortName: "bgp",
-    category: VabInfrastructure,
-    ports: [179],
-    dependencies: ["proven-socket", "proven-fsm"],
-    softDependencies: ["proven-audit", "proven-config"],
-    capabilities: ["bgp", "routing"],
-    description: "Verified BGP-4 with proven path selection, loop detection, and RPKI validation.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-ospf",
-    name: "OSPF Router",
-    shortName: "ospf",
-    category: VabInfrastructure,
-    ports: [],
-    dependencies: ["proven-socket", "proven-fsm"],
-    softDependencies: ["proven-audit"],
-    capabilities: ["ospf", "routing"],
-    description: "Verified OSPFv3 with proven Dijkstra convergence and LSA flooding correctness.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-dhcp",
-    name: "DHCP Server",
-    shortName: "dhcp",
-    category: VabInfrastructure,
-    ports: [67, 68],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-config"],
-    capabilities: ["dhcp", "address-assignment"],
-    description: "Verified DHCPv4/v6 with proven lease management and address pool exhaustion handling.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-monitor",
-    name: "Monitor Server",
-    shortName: "monitor",
-    category: VabInfrastructure,
-    ports: [8080],
-    dependencies: ["proven-httpd"],
-    softDependencies: ["proven-config", "proven-audit"],
-    capabilities: ["monitoring", "health-checks"],
-    description: "Verified monitoring server with proven check scheduling and alert deduplication.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-metrics",
-    name: "Metrics Collector",
-    shortName: "metrics",
-    category: VabInfrastructure,
-    ports: [9090],
-    dependencies: ["proven-httpd"],
-    softDependencies: ["proven-config"],
-    capabilities: ["metrics", "prometheus-compatible"],
-    description: "Verified metrics collector with proven cardinality control and aggregation.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-logcollector",
-    name: "Log Collector",
-    shortName: "logcol",
-    category: VabInfrastructure,
-    ports: [5140],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-tls", "proven-audit"],
-    capabilities: ["log-collection", "log-aggregation"],
-    description: "Verified log collector with proven delivery guarantees and back-pressure handling.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-siem",
-    name: "SIEM Engine",
-    shortName: "siem",
-    category: VabInfrastructure,
-    ports: [8443],
-    dependencies: ["proven-httpd", "proven-logcollector"],
-    softDependencies: ["proven-tls", "proven-audit", "proven-config"],
-    capabilities: ["siem", "security-analytics"],
-    description: "Verified SIEM with proven correlation rule evaluation and alert prioritisation.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-container",
-    name: "Container Runtime",
-    shortName: "ctr",
-    category: VabInfrastructure,
-    ports: [],
-    dependencies: ["proven-sandbox"],
-    softDependencies: ["proven-config", "proven-audit"],
-    capabilities: ["containers", "orchestration"],
-    description: "Verified OCI container runtime with proven namespace isolation and cgroup enforcement.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-virt",
-    name: "Virtualisation",
-    shortName: "virt",
-    category: VabInfrastructure,
-    ports: [],
-    dependencies: [],
-    softDependencies: ["proven-config", "proven-audit"],
-    capabilities: ["virtualisation", "vm-management"],
-    description: "Verified virtualisation manager with proven VM isolation and live migration.",
-    rackUnits: 2,
-  },
-  {
-    id: "proven-k9",
-    name: "K9 Contractile Engine",
-    shortName: "k9",
-    category: VabInfrastructure,
-    ports: [],
-    dependencies: ["proven-config"],
-    softDependencies: ["proven-audit"],
-    capabilities: ["k9-contractiles", "config-management", "deployment-config"],
-    description: "Verified K9 (.k9.ncl) contractile configuration engine. Evaluates Nickel-based deployment contracts, kennel/yard/hunt templates, with proven constraint satisfaction.",
-    rackUnits: 1,
-  },
-]
-
-// ===========================================================================
-// Connector Interfaces (6)
-// ===========================================================================
-
-/// Connector interfaces — abstract adapters that bridge protocols to backends.
-/// These are the "last mile" that connects protocol servers to actual infrastructure.
-let connectorComponents: array<vabComponent> = [
-  {
-    id: "proven-dbconn",
-    name: "Database Connector",
-    shortName: "dbconn",
-    category: VabConnectors,
-    ports: [5432],
-    dependencies: ["proven-socket"],
-    softDependencies: ["proven-tls"],
-    capabilities: ["database-connectivity", "connection-pooling"],
-    description: "Verified database connector with proven connection pool management and query pipelining.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-cacheconn",
-    name: "Cache Connector",
-    shortName: "cachec",
-    category: VabConnectors,
-    ports: [6379],
-    dependencies: ["proven-socket"],
-    softDependencies: [],
-    capabilities: ["cache-connectivity"],
-    description: "Verified cache connector with proven serialisation and TTL enforcement.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-storageconn",
-    name: "Storage Connector",
-    shortName: "storc",
-    category: VabConnectors,
-    ports: [],
-    dependencies: [],
-    softDependencies: [],
-    capabilities: ["storage-connectivity"],
-    description: "Verified storage connector with proven read/write consistency and retry logic.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-queueconn",
-    name: "Queue Connector",
-    shortName: "queuec",
-    category: VabConnectors,
-    ports: [5672],
-    dependencies: ["proven-socket"],
-    softDependencies: [],
-    capabilities: ["queue-connectivity", "message-queue"],
-    description: "Verified message queue connector with proven delivery semantics (at-least-once, exactly-once).",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-authconn",
-    name: "Auth Connector",
-    shortName: "authc",
-    category: VabConnectors,
-    ports: [],
-    dependencies: [],
-    softDependencies: ["proven-tls"],
-    capabilities: ["auth-connectivity"],
-    description: "Verified auth connector with proven token validation and session management.",
-    rackUnits: 1,
-  },
-  {
-    id: "proven-resolverconn",
-    name: "Resolver Connector",
-    shortName: "rslvc",
-    category: VabConnectors,
-    ports: [53],
-    dependencies: ["proven-socket"],
-    softDependencies: [],
-    capabilities: ["dns-connectivity"],
-    description: "Verified DNS resolver connector with proven caching and negative cache TTLs.",
-    rackUnits: 1,
-  },
-]
-
-// ===========================================================================
-// Combined Catalog
-// ===========================================================================
-
-/// The full catalog of all 108 proven-servers components, merged from all categories.
-/// This is loaded once into vabState.catalog at init time.
-let allComponents: array<vabComponent> = Array.flat([
-  coreComponents,
-  networkComponents,
-  dnsComponents,
-  webComponents,
-  iotComponents,
-  emailComponents,
-  securityComponents,
-  dataComponents,
-  applicationComponents,
-  infrastructureComponents,
-  connectorComponents,
-])
-
-/// Get all components for a specific category.
-let getByCategory = (catalog: array<vabComponent>, cat: vabCategory): array<vabComponent> =>
-  Array.filter(catalog, c => c.category === cat)
-
-/// Find a component by its ID.
-let findById = (catalog: array<vabComponent>, id: string): option<vabComponent> =>
-  Array.find(catalog, c => c.id === id)
-
-/// Get category display name for the sidebar.
-let categoryName = (cat: vabCategory): string =>
-  switch cat {
-  | VabCore => "Core"
-  | VabNetwork => "Network"
-  | VabDns => "DNS"
-  | VabWeb => "Web"
-  | VabIot => "IoT"
-  | VabEmail => "Email"
-  | VabSecurity => "Security"
-  | VabData => "Data"
-  | VabApplication => "App"
-  | VabInfrastructure => "Infra"
-  | VabConnectors => "Conn"
-  }
-
-/// Get category icon character for the sidebar (single-char abbreviations).
-let categoryIcon = (cat: vabCategory): string =>
-  switch cat {
-  | VabCore => "C"
-  | VabNetwork => "N"
-  | VabDns => "D"
-  | VabWeb => "W"
-  | VabIot => "I"
-  | VabEmail => "E"
-  | VabSecurity => "S"
-  | VabData => "Dt"
-  | VabApplication => "A"
-  | VabInfrastructure => "If"
-  | VabConnectors => "Cn"
-  }
diff --git a/src/core/VabEngine.affine b/src/core/VabEngine.affine
new file mode 100644
index 00000000..64fcab46
--- /dev/null
+++ b/src/core/VabEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VabEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/VabEngine.res b/src/core/VabEngine.res
deleted file mode 100644
index 89842dda..00000000
--- a/src/core/VabEngine.res
+++ /dev/null
@@ -1,244 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL VAB Engine — Dependency checking and capability computation.
-///
-/// Pure functions that analyse an assembled server's component list against
-/// the full catalog, producing dependency warnings (like KSP's "No engine!")
-/// and a capability enumeration (what the server CAN and CANNOT do).
-///
-/// No side effects — these functions are called after every assembly change
-/// to recompute the status bar and warning list.
-
-/// Uses VabModel types directly (not Model) to avoid dependency cycles.
-/// Model includes VabModel, but also references VabEngine — so we go
-/// straight to the leaf module.
-open VabModel
-
-// ===========================================================================
-// Dependency Checking
-// ===========================================================================
-
-/// Check all dependency constraints for the assembled server.
-/// Returns warnings for missing required deps, missing recommended deps,
-/// port conflicts, and security advisories.
-///
-/// Rules:
-///   - Each component's `dependencies` must ALL be present → MissingRequired
-///   - Each component's `softDependencies` SHOULD be present → MissingRecommended
-///   - Two components sharing a port number → PortConflict
-///   - Assembly with 3+ components but no audit → SecurityWarning
-///   - Assembly with 3+ components but no config → SecurityWarning
-let checkDependencies = (assembledIds: array<string>, catalog: array<vabComponent>): array<
-  vabWarning,
-> => {
-  let warnings: ref<array<vabWarning>> = ref([])
-
-  // Collect all assembled components
-  let assembledComponents = Array.filterMap(assembledIds, id => VabCatalog.findById(catalog, id))
-
-  // Check required dependencies
-  Array.forEach(assembledComponents, comp => {
-    Array.forEach(comp.dependencies, depId => {
-      let depPresent = Array.some(assembledIds, id => id === depId)
-      if !depPresent {
-        warnings := Array.concat(warnings.contents, [MissingRequired(comp.id, depId)])
-      }
-    })
-  })
-
-  // Check soft dependencies (recommended)
-  Array.forEach(assembledComponents, comp => {
-    Array.forEach(comp.softDependencies, depId => {
-      let depPresent = Array.some(assembledIds, id => id === depId)
-      if !depPresent {
-        warnings := Array.concat(warnings.contents, [MissingRecommended(comp.id, depId)])
-      }
-    })
-  })
-
-  // Check port conflicts: two different components claiming the same port
-  let portMap: ref<array<(int, string)>> = ref([])
-  Array.forEach(assembledComponents, comp => {
-    Array.forEach(comp.ports, port => {
-      let existing = Array.find(portMap.contents, ((p, _)) => p === port)
-      switch existing {
-      | Some((_, existingId)) =>
-        if existingId !== comp.id {
-          warnings := Array.concat(warnings.contents, [PortConflict(port, existingId, comp.id)])
-        }
-      | None => portMap := Array.concat(portMap.contents, [(port, comp.id)])
-      }
-    })
-  })
-
-  // Security advisories for non-trivial assemblies
-  let componentCount = Array.length(assembledIds)
-  if componentCount >= 3 {
-    let hasAudit = Array.some(assembledIds, id => id === "proven-audit")
-    if !hasAudit {
-      warnings :=
-        Array.concat(
-          warnings.contents,
-          [SecurityWarning("No audit logger — operations will not be logged for compliance")],
-        )
-    }
-
-    let hasConfig = Array.some(assembledIds, id => id === "proven-config")
-    if !hasConfig {
-      warnings :=
-        Array.concat(
-          warnings.contents,
-          [SecurityWarning("No configuration management — settings will be hardcoded")],
-        )
-    }
-  }
-
-  // Warn if any TLS-capable service lacks TLS
-  let hasTls = Array.some(assembledIds, id => id === "proven-tls")
-  if !hasTls {
-    let needsTls = Array.some(assembledComponents, comp =>
-      Array.some(comp.ports, port => port === 443 || port === 993 || port === 8443 || port === 636)
-    )
-    if needsTls {
-      warnings :=
-        Array.concat(
-          warnings.contents,
-          [SecurityWarning("Components use secure ports but TLS engine is not installed")],
-        )
-    }
-  }
-
-  warnings.contents
-}
-
-// ===========================================================================
-// Capability Computation
-// ===========================================================================
-
-/// The 19 capability categories that a server can fulfil.
-/// Each maps to one or more capability tags from the component catalog.
-let capabilityCategories: array<(string, array<string>)> = [
-  ("HTTP serving", ["http", "web-serving"]),
-  ("Encryption (TLS)", ["encryption", "tls"]),
-  ("DNS resolution", ["dns-resolution"]),
-  ("Database queries", ["database", "sql", "database-connectivity"]),
-  ("Caching", ["caching", "in-memory"]),
-  ("Email (send)", ["email-send", "smtp"]),
-  ("Email (receive)", ["email-receive", "imap", "pop3"]),
-  ("Authentication", ["authentication", "oauth", "oidc", "kerberos", "sso"]),
-  ("Audit logging", ["audit-logging", "compliance"]),
-  ("Load balancing", ["load-balancing"]),
-  ("Proxying", ["proxying"]),
-  ("Real-time messaging", ["websocket", "real-time", "real-time-messaging"]),
-  ("File transfer", ["ftp", "file-transfer", "nfs", "smb", "file-sharing"]),
-  ("IoT messaging", ["mqtt", "coap", "iot-messaging"]),
-  ("VPN / tunnelling", ["vpn", "tunnelling"]),
-  ("Container isolation", ["containers", "sandboxing"]),
-  ("Monitoring", ["monitoring", "health-checks", "metrics"]),
-  ("Intrusion detection", ["ids", "intrusion-detection", "siem"]),
-  ("AI / neurosymbolic", ["ai-agents", "neurosymbolic", "mcp"]),
-  ("AI manifests (A2ML)", ["a2ml", "ai-manifest"]),
-  ("K9 contractiles", ["k9-contractiles", "deployment-config"]),
-  ("Internationalisation", ["i18n"]),
-  (
-    "Document formats",
-    [
-      "document-json",
-      "document-yaml",
-      "document-toml",
-      "document-xml",
-      "document-adoc",
-      "document-djot",
-      "document-markdown",
-      "document-pdf",
-      "document-a2ml",
-    ],
-  ),
-]
-
-/// Compute the capability status list for the assembled server.
-/// For each of the 19 capability categories, checks whether any assembled
-/// component provides a matching capability tag. Incorporates warnings
-/// to produce WarningCap for partially-fulfilled capabilities.
-let computeCapabilities = (
-  assembledIds: array<string>,
-  catalog: array<vabComponent>,
-  warnings: array<vabWarning>,
-): array<capabilityStatus> => {
-  // Collect all capability tags from assembled components
-  let assembledComponents = Array.filterMap(assembledIds, id => VabCatalog.findById(catalog, id))
-  let allCaps = Array.flatMap(assembledComponents, comp => comp.capabilities)
-
-  // For each capability category, determine status
-  Array.map(capabilityCategories, ((name, tags)) => {
-    let hasTag = Array.some(tags, tag => Array.some(allCaps, cap => cap === tag))
-
-    if hasTag {
-      // Check if any warnings affect this capability
-      let hasRelatedWarning = Array.some(warnings, w =>
-        switch w {
-        | MissingRequired(compId, _) =>
-          // Find the component and check if its capabilities overlap with this category
-          switch VabCatalog.findById(catalog, compId) {
-          | Some(comp) => Array.some(comp.capabilities, cap => Array.some(tags, tag => tag === cap))
-          | None => false
-          }
-        | SecurityWarning(_) =>
-          // Security warnings affect encryption and audit categories
-          name === "Encryption (TLS)" || name === "Audit logging"
-        | _ => false
-        }
-      )
-      if hasRelatedWarning {
-        WarningCap(name)
-      } else {
-        CanDo(name)
-      }
-    } else {
-      CannotDo(name)
-    }
-  })
-}
-
-/// Count warnings by severity for the status bar display.
-let countWarnings = (warnings: array<vabWarning>): (int, int, int) => {
-  let required = ref(0)
-  let recommended = ref(0)
-  let security = ref(0)
-
-  Array.forEach(warnings, w =>
-    switch w {
-    | MissingRequired(_, _) => required := required.contents + 1
-    | MissingRecommended(_, _) => recommended := recommended.contents + 1
-    | SecurityWarning(_) => security := security.contents + 1
-    | PortConflict(_, _, _) => required := required.contents + 1
-    }
-  )
-
-  (required.contents, recommended.contents, security.contents)
-}
-
-/// Get a human-readable label for a warning.
-let warningLabel = (w: vabWarning, catalog: array<vabComponent>): string => {
-  let nameOf = (id: string): string =>
-    switch VabCatalog.findById(catalog, id) {
-    | Some(c) => c.name
-    | None => id
-    }
-
-  switch w {
-  | MissingRequired(comp, dep) => `${nameOf(comp)} requires ${nameOf(dep)}`
-  | MissingRecommended(comp, dep) => `${nameOf(comp)} recommends ${nameOf(dep)}`
-  | SecurityWarning(msg) => msg
-  | PortConflict(port, a, b) => `Port ${Int.toString(port)} conflict: ${nameOf(a)} vs ${nameOf(b)}`
-  }
-}
-
-/// Determine severity class for a warning (for colour coding).
-let warningSeverity = (w: vabWarning): string =>
-  switch w {
-  | MissingRequired(_, _) => "error"
-  | PortConflict(_, _, _) => "error"
-  | SecurityWarning(_) => "warning"
-  | MissingRecommended(_, _) => "info"
-  }
diff --git a/src/core/ValenceShellEngine.affine b/src/core/ValenceShellEngine.affine
new file mode 100644
index 00000000..eed14c75
--- /dev/null
+++ b/src/core/ValenceShellEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ValenceShellEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/ValenceShellEngine.res b/src/core/ValenceShellEngine.res
deleted file mode 100644
index fab100ef..00000000
--- a/src/core/ValenceShellEngine.res
+++ /dev/null
@@ -1,108 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Valence Shell Engine — pure computation and helpers for the
-/// embedded terminal panel.
-///
-/// Contains default state, label helpers, and IDApTIK-aware command
-/// completions. No side effects — all I/O goes through ValenceShellCmd.
-
-open ValenceShellModel
-
-/// Human-readable labels for the category tabs.
-let categoryLabel = (cat: valenceShellCategory): string =>
-  switch cat {
-  | ShellTerminal => "Terminal"
-  | ShellRecordings => "Recordings"
-  | ShellCheckpoints => "Checkpoints"
-  | ShellHistory => "History"
-  | ShellSettings => "Settings"
-  }
-
-/// Icon identifiers for each category tab.
-let categoryIcon = (cat: valenceShellCategory): string =>
-  switch cat {
-  | ShellTerminal => "terminal"
-  | ShellRecordings => "video"
-  | ShellCheckpoints => "save"
-  | ShellHistory => "clock"
-  | ShellSettings => "settings"
-  }
-
-/// Human-readable label for the shell backend.
-let backendLabel = (backend: shellBackend): string =>
-  switch backend {
-  | ValenceShell => "Valence Shell (formally verified)"
-  | SystemShell(name) => `System Shell (${name})`
-  }
-
-/// Human-readable label for the approval gate mode.
-let gateLabel = (gate: approvalGateMode): string =>
-  switch gate {
-  | GateDisabled => "Disabled"
-  | GateEnabled => "Enabled (review all)"
-  | GateLearning => "Learning (builds whitelist)"
-  }
-
-/// IDApTIK-specific command completions — common development commands.
-/// These appear in the command palette when the user starts typing.
-let idaptikCompletions: array<string> = [
-  "deno task dev",
-  "deno task build",
-  "deno task res:build",
-  "deno task res:dev",
-  "deno task res:clean",
-  "deno task dev:all",
-  "deno task sync-server",
-  "deno task lint",
-  "deno task dev:vite",
-  "./start-game-only.sh",
-  "./start-dev.sh",
-  "claude",
-  "claude --help",
-  "git status",
-  "git diff",
-  "git log --oneline -20",
-  "git add -p",
-  "valence checkpoint create",
-  "valence checkpoint list",
-  "valence checkpoint restore",
-  "valence undo",
-  "valence redo",
-  "valence audit",
-]
-
-/// Filter completions by prefix match.
-let filterCompletions = (input: string, completions: array<string>): array<string> => {
-  if String.length(input) === 0 {
-    []
-  } else {
-    Array.filter(completions, c =>
-      String.startsWith(String.toLowerCase(c), String.toLowerCase(input))
-    )
-  }
-}
-
-/// Default state for the Valence Shell panel.
-let defaultState: valenceShellState = {
-  backend: SystemShell("bash"),
-  valenceAvailable: false,
-  ptyConnected: false,
-  cwd: ".",
-  outputBuffer: [],
-  inputLine: "",
-  commandHistory: [],
-  historyIndex: -1,
-  activeCategory: ShellTerminal,
-  recording: RecordingIdle,
-  recordings: [],
-  approvalGate: GateDisabled,
-  pendingCommands: [],
-  approvedCommands: [],
-  checkpoints: [],
-  claudeCodeActive: false,
-  error: None,
-  loading: false,
-  splitView: false,
-  completions: idaptikCompletions,
-  completionsVisible: false,
-}
diff --git a/src/core/VerificationDashboardEngine.affine b/src/core/VerificationDashboardEngine.affine
new file mode 100644
index 00000000..cf39125e
--- /dev/null
+++ b/src/core/VerificationDashboardEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VerificationDashboardEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/VerificationDashboardEngine.res b/src/core/VerificationDashboardEngine.res
deleted file mode 100644
index 8aacd670..00000000
--- a/src/core/VerificationDashboardEngine.res
+++ /dev/null
@@ -1,568 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL VerificationDashboard Engine — pure computation for the verification panel.
-///
-/// Provides labels, filtering, sorting, aggregation, and hardcoded verification
-/// data from the nextgen-languages audit. All functions are pure.
-
-open VerificationDashboardModel
-
-// ============================================================================
-// Labels & Colours
-// ============================================================================
-
-/// Human-readable label for a proof system.
-let proofSystemLabel = (ps: proofSystem): string =>
-  switch ps {
-  | Idris2Proof => "Idris 2"
-  | CoqProof => "Coq"
-  | LeanProof => "Lean 4"
-  | IsabelleProof => "Isabelle"
-  | AgdaProof => "Agda"
-  | ManualProof => "Manual"
-  }
-
-/// Short code for a proof system.
-let proofSystemCode = (ps: proofSystem): string =>
-  switch ps {
-  | Idris2Proof => "Idr"
-  | CoqProof => "Coq"
-  | LeanProof => "Lean"
-  | IsabelleProof => "Isa"
-  | AgdaProof => "Agda"
-  | ManualProof => "Man"
-  }
-
-/// Colour for a proof system badge.
-let proofSystemColour = (ps: proofSystem): string =>
-  switch ps {
-  | Idris2Proof => "text-violet-400 bg-violet-900/30"
-  | CoqProof => "text-amber-400 bg-amber-900/30"
-  | LeanProof => "text-blue-400 bg-blue-900/30"
-  | IsabelleProof => "text-green-400 bg-green-900/30"
-  | AgdaProof => "text-cyan-400 bg-cyan-900/30"
-  | ManualProof => "text-gray-400 bg-gray-800/50"
-  }
-
-/// Human-readable label for a conformance level.
-let conformanceLabel = (cl: conformanceLevel): string =>
-  switch cl {
-  | FullConformance => "Full"
-  | PartialConformance => "Partial"
-  | FailingConformance => "Failing"
-  | NoConformanceSuite => "None"
-  }
-
-/// Colour for a conformance level.
-let conformanceColour = (cl: conformanceLevel): string =>
-  switch cl {
-  | FullConformance => "text-emerald-400"
-  | PartialConformance => "text-amber-400"
-  | FailingConformance => "text-red-400"
-  | NoConformanceSuite => "text-gray-600"
-  }
-
-/// Category tab label.
-let categoryLabel = (cat: verificationDashboardCategory): string =>
-  switch cat {
-  | VdSummary => "Summary"
-  | VdByLanguage => "By Language"
-  | VdProofs => "Proofs"
-  | VdBenchmarks => "Benchmarks"
-  | VdFuzzing => "Fuzzing"
-  }
-
-/// All category tabs.
-let allCategories: array<verificationDashboardCategory> = [
-  VdSummary,
-  VdByLanguage,
-  VdProofs,
-  VdBenchmarks,
-  VdFuzzing,
-]
-
-/// Sort criterion label.
-let sortLabel = (s: verificationSortBy): string =>
-  switch s {
-  | VdSortByName => "Name"
-  | VdSortByTests => "Tests"
-  | VdSortByPassRate => "Pass Rate"
-  | VdSortByAdmitted => "Admitted"
-  }
-
-// ============================================================================
-// Computed Metrics
-// ============================================================================
-
-/// Calculate pass rate as a percentage.
-let passRate = (status: languageVerificationStatus): int => {
-  if status.totalTests > 0 {
-    status.passingTests * 100 / status.totalTests
-  } else {
-    0
-  }
-}
-
-/// Colour for a pass rate percentage.
-let passRateColour = (pct: int): string =>
-  if pct >= 95 {
-    "text-emerald-400"
-  } else if pct >= 80 {
-    "text-green-400"
-  } else if pct >= 60 {
-    "text-amber-400"
-  } else {
-    "text-red-400"
-  }
-
-/// Colour for admitted count.
-let admittedColour = (count: int): string =>
-  if count === 0 {
-    "text-emerald-400"
-  } else if count <= 5 {
-    "text-amber-400"
-  } else {
-    "text-red-400"
-  }
-
-/// Progress bar string (10 chars wide).
-let progressBar = (pct: int): string => {
-  let filled = pct / 10
-  let empty = 10 - filled
-  let filledStr = String.repeat(String.fromCharCode(9608), filled)
-  let emptyStr = String.repeat(String.fromCharCode(9617), empty)
-  filledStr ++ emptyStr
-}
-
-// ============================================================================
-// Filtering & Sorting
-// ============================================================================
-
-/// Filter by search text.
-let filterBySearch = (statuses: array<languageVerificationStatus>, query: string): array<
-  languageVerificationStatus,
-> =>
-  if query === "" {
-    statuses
-  } else {
-    let q = String.toLowerCase(query)
-    statuses->Array.filter(s => String.includes(String.toLowerCase(s.name), q))
-  }
-
-/// Filter to only languages with admitted/sorry debt.
-let filterDebtOnly = (statuses: array<languageVerificationStatus>): array<
-  languageVerificationStatus,
-> => statuses->Array.filter(s => s.admittedCount > 0)
-
-/// Sort languages by the given criterion.
-let sortLanguages = (
-  statuses: array<languageVerificationStatus>,
-  sortBy: verificationSortBy,
-): array<languageVerificationStatus> => {
-  let copy = Array.copy(statuses)
-  copy->Array.sort((a, b) =>
-    switch sortBy {
-    | VdSortByName => String.compare(a.name, b.name)
-    | VdSortByTests => Float.fromInt(b.totalTests - a.totalTests)
-    | VdSortByPassRate => Float.fromInt(passRate(a) - passRate(b))
-    | VdSortByAdmitted => Float.fromInt(b.admittedCount - a.admittedCount)
-    }
-  )
-  copy
-}
-
-// ============================================================================
-// Aggregation
-// ============================================================================
-
-/// Aggregate summary across all languages.
-type portfolioVerificationSummary = {
-  totalLanguages: int,
-  totalTests: int,
-  totalPassing: int,
-  totalFailing: int,
-  totalAdmitted: int,
-  totalProved: int,
-  avgPassRate: int,
-  languagesWithFuzzing: int,
-  languagesFullConformance: int,
-}
-
-/// Compute the portfolio summary.
-let computeSummary = (
-  statuses: array<languageVerificationStatus>,
-): portfolioVerificationSummary => {
-  let total = Array.length(statuses)
-  let totalTests = statuses->Array.reduce(0, (acc, s) => acc + s.totalTests)
-  let totalPassing = statuses->Array.reduce(0, (acc, s) => acc + s.passingTests)
-  let totalFailing = statuses->Array.reduce(0, (acc, s) => acc + s.failingTests)
-  let totalAdmitted = statuses->Array.reduce(0, (acc, s) => acc + s.admittedCount)
-  let totalProved = statuses->Array.reduce(0, (acc, s) => acc + s.provedCount)
-  let avgPassRate = if totalTests > 0 {
-    totalPassing * 100 / totalTests
-  } else {
-    0
-  }
-  let languagesWithFuzzing = statuses->Array.filter(s => s.fuzzing !== None)->Array.length
-  let languagesFullConformance =
-    statuses->Array.filter(s => s.conformance === FullConformance)->Array.length
-  {
-    totalLanguages: total,
-    totalTests,
-    totalPassing,
-    totalFailing,
-    totalAdmitted,
-    totalProved,
-    avgPassRate,
-    languagesWithFuzzing,
-    languagesFullConformance,
-  }
-}
-
-// ============================================================================
-// Hardcoded Verification Data — from nextgen-languages audit
-// ============================================================================
-
-/// All 16 languages with their verification status.
-let allLanguageStatuses: array<languageVerificationStatus> = [
-  {
-    name: "AffineScript",
-    totalTests: 247,
-    passingTests: 241,
-    failingTests: 6,
-    skippedTests: 0,
-    admittedCount: 0,
-    provedCount: 12,
-    proofSystems: [Idris2Proof],
-    conformance: FullConformance,
-    benchmarks: [
-      {
-        name: "typecheck-100",
-        language: "AffineScript",
-        meanMs: 12.3,
-        stddevMs: 1.1,
-        iterations: 1000,
-        regression: false,
-      },
-      {
-        name: "affine-verify",
-        language: "AffineScript",
-        meanMs: 45.7,
-        stddevMs: 3.2,
-        iterations: 500,
-        regression: false,
-      },
-    ],
-    fuzzing: None,
-    lastRun: Some("2026-03-12T14:30:00Z"),
-  },
-  {
-    name: "Eclexia",
-    totalTests: 89,
-    passingTests: 67,
-    failingTests: 22,
-    skippedTests: 0,
-    admittedCount: 22,
-    provedCount: 22,
-    proofSystems: [Idris2Proof, CoqProof],
-    conformance: FailingConformance,
-    benchmarks: [
-      {
-        name: "dimensional-check",
-        language: "Eclexia",
-        meanMs: 28.5,
-        stddevMs: 2.8,
-        iterations: 500,
-        regression: true,
-      },
-    ],
-    fuzzing: None,
-    lastRun: Some("2026-03-10T09:15:00Z"),
-  },
-  {
-    name: "Anvomidav",
-    totalTests: 56,
-    passingTests: 48,
-    failingTests: 8,
-    skippedTests: 0,
-    admittedCount: 0,
-    provedCount: 0,
-    proofSystems: [],
-    conformance: FullConformance,
-    benchmarks: [
-      {
-        name: "array-mul-1k",
-        language: "Anvomidav",
-        meanMs: 3.2,
-        stddevMs: 0.4,
-        iterations: 2000,
-        regression: false,
-      },
-    ],
-    fuzzing: None,
-    lastRun: Some("2026-03-11T16:45:00Z"),
-  },
-  {
-    name: "Ephapax",
-    totalTests: 134,
-    passingTests: 130,
-    failingTests: 4,
-    skippedTests: 0,
-    admittedCount: 0,
-    provedCount: 8,
-    proofSystems: [Idris2Proof],
-    conformance: FullConformance,
-    benchmarks: [],
-    fuzzing: None,
-    lastRun: Some("2026-03-12T11:00:00Z"),
-  },
-  {
-    name: "WokeLang",
-    totalTests: 0,
-    passingTests: 0,
-    failingTests: 0,
-    skippedTests: 0,
-    admittedCount: 0,
-    provedCount: 0,
-    proofSystems: [],
-    conformance: NoConformanceSuite,
-    benchmarks: [],
-    fuzzing: None,
-    lastRun: None,
-  },
-  {
-    name: "BetLang",
-    totalTests: 45,
-    passingTests: 38,
-    failingTests: 7,
-    skippedTests: 0,
-    admittedCount: 0,
-    provedCount: 0,
-    proofSystems: [],
-    conformance: FailingConformance,
-    benchmarks: [],
-    fuzzing: None,
-    lastRun: Some("2026-03-09T08:30:00Z"),
-  },
-  {
-    name: "Tangle",
-    totalTests: 112,
-    passingTests: 108,
-    failingTests: 4,
-    skippedTests: 0,
-    admittedCount: 0,
-    provedCount: 15,
-    proofSystems: [Idris2Proof, LeanProof],
-    conformance: FullConformance,
-    benchmarks: [
-      {
-        name: "braid-compose",
-        language: "Tangle",
-        meanMs: 8.1,
-        stddevMs: 0.9,
-        iterations: 1000,
-        regression: false,
-      },
-      {
-        name: "jones-polynomial",
-        language: "Tangle",
-        meanMs: 156.3,
-        stddevMs: 12.4,
-        iterations: 200,
-        regression: false,
-      },
-    ],
-    fuzzing: Some({
-      language: "Tangle",
-      targets: 12,
-      linesCovered: 3400,
-      totalLines: 5200,
-      crashesFound: 0,
-      fuzzHours: 48.0,
-    }),
-    lastRun: Some("2026-03-13T10:00:00Z"),
-  },
-  {
-    name: "My-Lang",
-    totalTests: 78,
-    passingTests: 72,
-    failingTests: 6,
-    skippedTests: 0,
-    admittedCount: 0,
-    provedCount: 0,
-    proofSystems: [],
-    conformance: FullConformance,
-    benchmarks: [],
-    fuzzing: None,
-    lastRun: Some("2026-03-12T15:30:00Z"),
-  },
-  {
-    name: "Crank",
-    totalTests: 34,
-    passingTests: 30,
-    failingTests: 4,
-    skippedTests: 0,
-    admittedCount: 0,
-    provedCount: 0,
-    proofSystems: [],
-    conformance: FailingConformance,
-    benchmarks: [
-      {
-        name: "stack-ops-10k",
-        language: "Crank",
-        meanMs: 1.8,
-        stddevMs: 0.2,
-        iterations: 5000,
-        regression: false,
-      },
-    ],
-    fuzzing: None,
-    lastRun: Some("2026-03-10T14:20:00Z"),
-  },
-  {
-    name: "Delimit",
-    totalTests: 98,
-    passingTests: 91,
-    failingTests: 5,
-    skippedTests: 2,
-    admittedCount: 2,
-    provedCount: 11,
-    proofSystems: [Idris2Proof],
-    conformance: FullConformance,
-    benchmarks: [],
-    fuzzing: None,
-    lastRun: Some("2026-03-11T09:00:00Z"),
-  },
-  {
-    name: "Sunyata",
-    totalTests: 0,
-    passingTests: 0,
-    failingTests: 0,
-    skippedTests: 0,
-    admittedCount: 0,
-    provedCount: 0,
-    proofSystems: [],
-    conformance: NoConformanceSuite,
-    benchmarks: [],
-    fuzzing: None,
-    lastRun: None,
-  },
-  {
-    name: "HexSweep",
-    totalTests: 23,
-    passingTests: 19,
-    failingTests: 4,
-    skippedTests: 0,
-    admittedCount: 0,
-    provedCount: 0,
-    proofSystems: [],
-    conformance: FailingConformance,
-    benchmarks: [
-      {
-        name: "hex-fill-100x100",
-        language: "HexSweep",
-        meanMs: 34.2,
-        stddevMs: 4.1,
-        iterations: 300,
-        regression: false,
-      },
-    ],
-    fuzzing: None,
-    lastRun: Some("2026-03-08T11:15:00Z"),
-  },
-  {
-    name: "Cascade",
-    totalTests: 41,
-    passingTests: 35,
-    failingTests: 6,
-    skippedTests: 0,
-    admittedCount: 0,
-    provedCount: 0,
-    proofSystems: [],
-    conformance: FailingConformance,
-    benchmarks: [],
-    fuzzing: None,
-    lastRun: Some("2026-03-09T16:30:00Z"),
-  },
-  {
-    name: "Polytope",
-    totalTests: 76,
-    passingTests: 68,
-    failingTests: 8,
-    skippedTests: 0,
-    admittedCount: 5,
-    provedCount: 18,
-    proofSystems: [Idris2Proof, CoqProof],
-    conformance: FullConformance,
-    benchmarks: [],
-    fuzzing: None,
-    lastRun: Some("2026-03-12T08:45:00Z"),
-  },
-  {
-    name: "Coda",
-    totalTests: 28,
-    passingTests: 22,
-    failingTests: 6,
-    skippedTests: 0,
-    admittedCount: 0,
-    provedCount: 0,
-    proofSystems: [],
-    conformance: FailingConformance,
-    benchmarks: [],
-    fuzzing: None,
-    lastRun: Some("2026-03-07T13:00:00Z"),
-  },
-  {
-    name: "Strata",
-    totalTests: 145,
-    passingTests: 138,
-    failingTests: 5,
-    skippedTests: 2,
-    admittedCount: 3,
-    provedCount: 24,
-    proofSystems: [Idris2Proof, LeanProof, CoqProof],
-    conformance: FullConformance,
-    benchmarks: [
-      {
-        name: "universe-check",
-        language: "Strata",
-        meanMs: 67.8,
-        stddevMs: 5.3,
-        iterations: 500,
-        regression: false,
-      },
-      {
-        name: "stratification",
-        language: "Strata",
-        meanMs: 23.1,
-        stddevMs: 2.0,
-        iterations: 1000,
-        regression: false,
-      },
-    ],
-    fuzzing: Some({
-      language: "Strata",
-      targets: 8,
-      linesCovered: 4100,
-      totalLines: 6800,
-      crashesFound: 1,
-      fuzzHours: 72.0,
-    }),
-    lastRun: Some("2026-03-13T09:30:00Z"),
-  },
-]
-
-/// Find a language verification status by name.
-let findLanguage = (name: string): option<languageVerificationStatus> => {
-  allLanguageStatuses->Array.find(s => s.name === name)
-}
-
-/// Get all benchmark entries across all languages.
-let allBenchmarks = (): array<benchmarkEntry> => {
-  allLanguageStatuses->Array.flatMap(s => s.benchmarks)
-}
-
-/// Get all fuzzing coverage entries.
-let allFuzzingCoverage = (): array<fuzzingCoverage> => {
-  allLanguageStatuses->Array.filterMap(s => s.fuzzing)
-}
diff --git a/src/core/VerisimdbFeedsEngine.affine b/src/core/VerisimdbFeedsEngine.affine
new file mode 100644
index 00000000..7b776362
--- /dev/null
+++ b/src/core/VerisimdbFeedsEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VerisimdbFeedsEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/VerisimdbFeedsEngine.res b/src/core/VerisimdbFeedsEngine.res
deleted file mode 100644
index b65afc4e..00000000
--- a/src/core/VerisimdbFeedsEngine.res
+++ /dev/null
@@ -1,46 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL VeriSimDB Feeds Engine — pure helpers for data feed monitoring.
-
-open VerisimdbFeedsModel
-
-/// Default initial state.
-let defaultState: verisimdbFeedsState = {
-  activeTab: TabDashboard,
-  feeds: [],
-  selectedFeed: None,
-  checking: false,
-  error: None,
-}
-
-/// Tab label for display.
-let tabLabel = (tab: verisimdbFeedsTab): string => {
-  switch tab {
-  | TabDashboard => "Dashboard"
-  | TabFeedList => "Feeds"
-  | TabHealth => "Health"
-  }
-}
-
-/// All tabs for rendering.
-let allTabs: array<verisimdbFeedsTab> = [TabDashboard, TabFeedList, TabHealth]
-
-/// Health label for display.
-let healthLabel = (h: feedHealth): string => {
-  switch h {
-  | FeedHealthy => "Healthy"
-  | FeedStale => "Stale"
-  | FeedError(reason) => "Error: " ++ reason
-  | FeedUnknown => "Unknown"
-  }
-}
-
-/// Count feeds by health status.
-let healthyFeedCount = (feeds: array<dataFeed>): int => {
-  feeds->Array.filter(f => f.health == FeedHealthy)->Array.length
-}
-
-/// Total records across all feeds.
-let totalRecords = (feeds: array<dataFeed>): int => {
-  feeds->Array.reduce(0, (acc, f) => acc + f.recordCount)
-}
diff --git a/src/core/VexometerFrictionEngine.affine b/src/core/VexometerFrictionEngine.affine
new file mode 100644
index 00000000..26b801e1
--- /dev/null
+++ b/src/core/VexometerFrictionEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VexometerFrictionEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/VexometerFrictionEngine.res b/src/core/VexometerFrictionEngine.res
deleted file mode 100644
index e47cbd5e..00000000
--- a/src/core/VexometerFrictionEngine.res
+++ /dev/null
@@ -1,52 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Vexometer Friction Engine — pure helpers for irritation surface measurements.
-
-open VexometerFrictionModel
-
-/// Default initial state.
-let defaultState: vexometerFrictionState = {
-  activeTab: TabOverview,
-  tools: [],
-  selectedTool: None,
-  measuring: false,
-  error: None,
-}
-
-/// Tab label for display.
-let tabLabel = (tab: vexometerFrictionTab): string => {
-  switch tab {
-  | TabOverview => "Overview"
-  | TabToolList => "Tools"
-  | TabDimensions => "Dimensions"
-  }
-}
-
-/// All tabs for rendering.
-let allTabs: array<vexometerFrictionTab> = [TabOverview, TabToolList, TabDimensions]
-
-/// Trend label for display.
-let trendLabel = (t: frictionTrend): string => {
-  switch t {
-  | Improving => "Improving"
-  | Stable => "Stable"
-  | Worsening => "Worsening"
-  | NoData => "No Data"
-  }
-}
-
-/// Sort tools by overall friction score (highest first).
-let sortByFriction = (tools: array<toolFrictionProfile>): array<toolFrictionProfile> => {
-  tools->Array.toSorted((a, b) => b.overallScore -. a.overallScore)
-}
-
-/// Average overall friction across all tools.
-let averageFriction = (tools: array<toolFrictionProfile>): float => {
-  let total = tools->Array.reduce(0.0, (acc, t) => acc +. t.overallScore)
-  let count = tools->Array.length->Int.toFloat
-  if count > 0.0 {
-    total /. count
-  } else {
-    0.0
-  }
-}
diff --git a/src/core/VideoCoordinationEngine.affine b/src/core/VideoCoordinationEngine.affine
new file mode 100644
index 00000000..2acfc375
--- /dev/null
+++ b/src/core/VideoCoordinationEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VideoCoordinationEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/VideoCoordinationEngine.res b/src/core/VideoCoordinationEngine.res
deleted file mode 100644
index ca4a5439..00000000
--- a/src/core/VideoCoordinationEngine.res
+++ /dev/null
@@ -1,44 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// VideoCoordination Engine — pure computation for the video coordination logic.
-///
-/// Implements state transitions for batches and quota management.
-
-open VideoCoordinationModel
-
-let defaultState: videoCoordinationState = {
-  activeBatches: list{},
-  loading: false,
-  error: None,
-  totalBytesMoved: 0.0,
-  quotaRemaining: 750.0 *. 1024.0 *. 1024.0 *. 1024.0, // 750 GB in bytes
-}
-
-/// Update a batch status within the list of active batches.
-let updateBatch = (batches, updatedBatch) => {
-  batches->List.map(b => b.id == updatedBatch.id ? updatedBatch : b)
-}
-
-/// Add a new transfer batch.
-let addBatch = (state, source, destination, totalFiles) => {
-  let newBatch = {
-    id: Date.now()->Float.toString,
-    source,
-    destination,
-    totalFiles,
-    processedFiles: 0,
-    failedFiles: 0,
-    status: "Idle",
-    startTime: None,
-  }
-  {...state, activeBatches: list{newBatch, ...state.activeBatches}}
-}
-
-/// Calculate percentage completion for a batch.
-let batchProgress = batch => {
-  if batch.totalFiles == 0 {
-    100.0
-  } else {
-    batch.processedFiles->Belt.Int.toFloat /. batch.totalFiles->Belt.Int.toFloat *. 100.0
-  }
-}
diff --git a/src/core/VmInspectorEngine.affine b/src/core/VmInspectorEngine.affine
new file mode 100644
index 00000000..c76ee812
--- /dev/null
+++ b/src/core/VmInspectorEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VmInspectorEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/VmInspectorEngine.res b/src/core/VmInspectorEngine.res
deleted file mode 100644
index 3f79875b..00000000
--- a/src/core/VmInspectorEngine.res
+++ /dev/null
@@ -1,84 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL VM Inspector Engine — pure computation and helpers for the
-/// reversible VM visual debugger panel.
-
-open VmInspectorModel
-
-/// Human-readable labels for category tabs.
-let categoryLabel = (cat: vmInspectorCategory): string =>
-  switch cat {
-  | InspectorDebugger => "Debugger"
-  | InspectorTimeline => "Timeline"
-  | InspectorCallGraph => "Call Graph"
-  | InspectorPortIO => "Port I/O"
-  | InspectorStatistics => "Statistics"
-  }
-
-/// Human-readable labels for instruction tiers.
-let tierLabel = (tier: vmInstructionTier): string =>
-  switch tier {
-  | TierArithmetic => "Tier 0: Arithmetic"
-  | TierConditionals => "Tier 1: Conditionals"
-  | TierStackMemory => "Tier 2: Stack/Memory"
-  | TierSubroutines => "Tier 3: Subroutines"
-  | TierIO => "Tier 4: I/O"
-  }
-
-/// Short tier labels for compact display.
-let tierShortLabel = (tier: vmInstructionTier): string =>
-  switch tier {
-  | TierArithmetic => "T0"
-  | TierConditionals => "T1"
-  | TierStackMemory => "T2"
-  | TierSubroutines => "T3"
-  | TierIO => "T4"
-  }
-
-/// CSS colour class for each tier (Tailwind).
-let tierColour = (tier: vmInstructionTier): string =>
-  switch tier {
-  | TierArithmetic => "text-blue-400"
-  | TierConditionals => "text-amber-400"
-  | TierStackMemory => "text-emerald-400"
-  | TierSubroutines => "text-purple-400"
-  | TierIO => "text-red-400"
-  }
-
-/// Human-readable connection mode label.
-let connectionLabel = (conn: vmConnectionMode): string =>
-  switch conn {
-  | VmLiveConnection => "Live (inter-webview)"
-  | VmFileConnection(path) => `File: ${path}`
-  | VmDisconnected => "Disconnected"
-  }
-
-/// Format a stack as a displayable string (top-of-stack on right).
-let formatStack = (stack: array<int>): string =>
-  if Array.length(stack) === 0 {
-    "(empty)"
-  } else {
-    stack->Array.map(v => Int.toString(v))->Array.join(", ")
-  }
-
-/// Default state for the VM Inspector panel.
-let defaultState: vmInspectorState = {
-  connection: VmDisconnected,
-  activeCategory: InspectorDebugger,
-  pc: 0,
-  stack: [],
-  memory: [],
-  instructions: [],
-  history: [],
-  timelinePosition: 0,
-  breakpoints: [],
-  portLog: [],
-  running: false,
-  totalSteps: 0,
-  instructionCounts: [],
-  tierCounts: [0, 0, 0, 0, 0],
-  error: None,
-  loading: false,
-  multiVmView: false,
-  bojRouting: false,
-}
diff --git a/src/core/VoiceTagEngine.affine b/src/core/VoiceTagEngine.affine
new file mode 100644
index 00000000..f44cab8e
--- /dev/null
+++ b/src/core/VoiceTagEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VoiceTagEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/VoiceTagEngine.res b/src/core/VoiceTagEngine.res
deleted file mode 100644
index 35547957..00000000
--- a/src/core/VoiceTagEngine.res
+++ /dev/null
@@ -1,523 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Code MRI — VoiceTag Engine (Layer 0)
-///
-/// Pure computation for tag management, voice command parsing, summary
-/// generation, policy matching, and .mri.json serialisation. All functions
-/// are pure — side effects (file I/O, voice API) happen in VoiceTagCmd.
-///
-/// The engine is designed so that the same logic could power a standalone CLI
-/// tool, a VS Code extension, or PanLL's integrated experience. PanLL adds
-/// voice input and agentic policy; the engine doesn't assume either.
-
-open VoiceTagModel
-
-// ===========================================================================
-// Tag CRUD — the core operations that any Code MRI implementation needs
-// ===========================================================================
-
-/// Generate the next tag ID for a file (max existing + 1, or 1 if empty).
-let nextId = (tags: array<mriTag>): int => {
-  tags->Array.reduce(0, (max, tag) => tag.id > max ? tag.id : max) + 1
-}
-
-/// Create a new tag with human keyboard attribution (most common path).
-let createTag = (
-  tags: array<mriTag>,
-  startLine: int,
-  endLine: int,
-  tagType: mriTagType,
-  message: option<string>,
-): mriTag => {
-  {
-    id: nextId(tags),
-    startLine,
-    endLine,
-    tagType,
-    message,
-    attribution: {
-      agent: "human",
-      method: Keyboard,
-      timestamp: Date.now(),
-      sessionId: None,
-    },
-    codeAuthor: None,
-    resolved: false,
-    resolvedBy: None,
-  }
-}
-
-/// Create a tag with explicit attribution (for voice, agent, or import sources).
-let createTagWithAttribution = (
-  tags: array<mriTag>,
-  startLine: int,
-  endLine: int,
-  tagType: mriTagType,
-  message: option<string>,
-  agent: string,
-  method: mriInputMethod,
-): mriTag => {
-  {
-    id: nextId(tags),
-    startLine,
-    endLine,
-    tagType,
-    message,
-    attribution: {
-      agent,
-      method,
-      timestamp: Date.now(),
-      sessionId: None,
-    },
-    codeAuthor: None,
-    resolved: false,
-    resolvedBy: None,
-  }
-}
-
-/// Add a tag to the list (append, preserving order).
-let addTag = (tags: array<mriTag>, tag: mriTag): array<mriTag> => {
-  tags->Array.concat([tag])
-}
-
-/// Remove a tag by ID.
-let removeTag = (tags: array<mriTag>, id: int): array<mriTag> => {
-  tags->Array.filter(t => t.id !== id)
-}
-
-/// Resolve a tag (mark as done, record who resolved it).
-let resolveTag = (tags: array<mriTag>, id: int, resolverAgent: string): array<mriTag> => {
-  tags->Array.map(t =>
-    if t.id === id {
-      {
-        ...t,
-        resolved: true,
-        resolvedBy: Some({
-          agent: resolverAgent,
-          method: Keyboard,
-          timestamp: Date.now(),
-          sessionId: None,
-        }),
-      }
-    } else {
-      t
-    }
-  )
-}
-
-/// Update a tag's message.
-let updateTagMessage = (tags: array<mriTag>, id: int, message: string): array<mriTag> => {
-  tags->Array.map(t =>
-    if t.id === id {
-      {...t, message: Some(message)}
-    } else {
-      t
-    }
-  )
-}
-
-/// Update a tag's type (e.g., escalate NOTE to FIXME).
-let updateTagType = (tags: array<mriTag>, id: int, newType: mriTagType): array<mriTag> => {
-  tags->Array.map(t =>
-    if t.id === id {
-      {...t, tagType: newType}
-    } else {
-      t
-    }
-  )
-}
-
-// ===========================================================================
-// Filtering — used by the UI and by policy matching
-// ===========================================================================
-
-/// Filter tags by type.
-let filterByType = (tags: array<mriTag>, tagType: mriTagType): array<mriTag> => {
-  tags->Array.filter(t => t.tagType === tagType)
-}
-
-/// Filter to unresolved tags only.
-let filterUnresolved = (tags: array<mriTag>): array<mriTag> => {
-  tags->Array.filter(t => !t.resolved)
-}
-
-/// Filter by attribution agent (e.g., show only AI-created tags).
-let filterByAgent = (tags: array<mriTag>, agent: string): array<mriTag> => {
-  tags->Array.filter(t => t.attribution.agent === agent)
-}
-
-/// Get tags overlapping a specific line (for inline display).
-let tagsAtLine = (tags: array<mriTag>, line: int): array<mriTag> => {
-  tags->Array.filter(t => t.startLine <= line && t.endLine >= line)
-}
-
-/// Get tags within a line range (for region queries).
-let tagsInRange = (tags: array<mriTag>, startLine: int, endLine: int): array<mriTag> => {
-  tags->Array.filter(t => t.startLine <= endLine && t.endLine >= startLine)
-}
-
-// ===========================================================================
-// Summary computation — feeds Provenance Map bar and Vexometer
-// ===========================================================================
-
-/// Compute summary statistics for a file's tags.
-let computeSummary = (tags: array<mriTag>): mriFileSummary => {
-  let unresolved = tags->Array.filter(t => !t.resolved)
-  {
-    totalTags: Array.length(tags),
-    unresolvedTags: Array.length(unresolved),
-    todoCount: Array.length(tags->Array.filter(t => t.tagType === Todo)),
-    fixmeCount: Array.length(tags->Array.filter(t => t.tagType === Fixme)),
-    careOnRegions: Array.length(tags->Array.filter(t => t.tagType === CareOn)),
-    ecoModeRegions: Array.length(tags->Array.filter(t => t.tagType === EcoMode)),
-    burdenRegions: Array.length(tags->Array.filter(t => t.tagType === Burden)),
-    aiTagCount: Array.length(tags->Array.filter(t => t.attribution.agent !== "human")),
-    humanTagCount: Array.length(tags->Array.filter(t => t.attribution.agent === "human")),
-  }
-}
-
-// ===========================================================================
-// Display helpers — labels, colours, icons for the UI layer
-// ===========================================================================
-
-/// Human-readable label for a tag type.
-let tagTypeLabel = (tagType: mriTagType): string => {
-  switch tagType {
-  | Todo => "TODO"
-  | Fixme => "FIXME"
-  | Refactor => "REFACTOR"
-  | Note => "NOTE"
-  | Question => "QUESTION"
-  | Warn => "WARN"
-  | Review => "REVIEW"
-  | CareOn => "CARE-ON"
-  | EcoMode => "ECO-MODE"
-  | Burden => "BURDEN"
-  | Custom(name) => String.toUpperCase(name)
-  }
-}
-
-/// Short label for compact display (tag chips, gutter markers).
-let tagTypeShort = (tagType: mriTagType): string => {
-  switch tagType {
-  | Todo => "TD"
-  | Fixme => "FX"
-  | Refactor => "RF"
-  | Note => "NT"
-  | Question => "Q?"
-  | Warn => "WN"
-  | Review => "RV"
-  | CareOn => "C!"
-  | EcoMode => "EC"
-  | Burden => "BU"
-  | Custom(_) => "CU"
-  }
-}
-
-/// Tailwind colour classes for tag type (bg, text, border).
-let tagTypeColour = (tagType: mriTagType): (string, string, string) => {
-  switch tagType {
-  | Todo => ("bg-blue-900/50", "text-blue-400", "border-blue-700")
-  | Fixme => ("bg-red-900/50", "text-red-400", "border-red-700")
-  | Refactor => ("bg-amber-900/50", "text-amber-400", "border-amber-700")
-  | Note => ("bg-gray-800", "text-gray-400", "border-gray-700")
-  | Question => ("bg-purple-900/50", "text-purple-400", "border-purple-700")
-  | Warn => ("bg-orange-900/50", "text-orange-400", "border-orange-700")
-  | Review => ("bg-cyan-900/50", "text-cyan-400", "border-cyan-700")
-  | CareOn => ("bg-pink-900/50", "text-pink-400", "border-pink-700")
-  | EcoMode => ("bg-emerald-900/50", "text-emerald-400", "border-emerald-700")
-  | Burden => ("bg-yellow-900/50", "text-yellow-400", "border-yellow-700")
-  | Custom(_) => ("bg-indigo-900/50", "text-indigo-400", "border-indigo-700")
-  }
-}
-
-/// Whether a tag type is modal (changes system behaviour, not just annotates).
-let isModalTag = (tagType: mriTagType): bool => {
-  switch tagType {
-  | CareOn | EcoMode | Burden => true
-  | _ => false
-  }
-}
-
-/// Attribution method label.
-let methodLabel = (method: mriInputMethod): string => {
-  switch method {
-  | Voice => "voice"
-  | Keyboard => "keyboard"
-  | Agent(name) => `agent:${name}`
-  | Import(source) => `import:${source}`
-  | Api => "api"
-  }
-}
-
-/// ARIA label for a tag (screen reader accessibility).
-let tagAriaLabel = (tag: mriTag): string => {
-  let typeStr = tagTypeLabel(tag.tagType)
-  let lineStr =
-    tag.startLine === tag.endLine
-      ? `line ${Int.toString(tag.startLine)}`
-      : `lines ${Int.toString(tag.startLine)} to ${Int.toString(tag.endLine)}`
-  let resolvedStr = tag.resolved ? ", resolved" : ""
-  let msgStr = switch tag.message {
-  | Some(m) => `: ${m}`
-  | None => ""
-  }
-  `Tag ${Int.toString(tag.id)}, ${typeStr} at ${lineStr}${msgStr}${resolvedStr}`
-}
-
-// ===========================================================================
-// Voice command parsing — simple grammar for voice input
-// ===========================================================================
-
-/// Parsed voice command — the result of interpreting a voice transcript.
-type voiceCommand =
-  | TagRange(int, int, mriTagType, option<string>)
-  | TagSelection(mriTagType, option<string>)
-  | EditTag(int)
-  | DeleteTag(int)
-  | ResolveTag(int)
-  | ShowTag(int)
-  | ShowAll(option<mriTagType>)
-  | WhoWroteLine(int)
-  | AttributeHuman
-  | AttributeAi(string)
-  | VoiceUnrecognised(string)
-
-/// Parse a tag type from a spoken word.
-let parseTagType = (word: string): option<mriTagType> => {
-  switch String.toLowerCase(word) {
-  | "todo" | "to-do" | "to do" => Some(Todo)
-  | "fixme" | "fix me" | "fix" => Some(Fixme)
-  | "refactor" => Some(Refactor)
-  | "note" => Some(Note)
-  | "question" => Some(Question)
-  | "warn" | "warning" => Some(Warn)
-  | "review" => Some(Review)
-  | "care on" | "care-on" | "careful" => Some(CareOn)
-  | "eco" | "eco mode" | "eco-mode" | "green" => Some(EcoMode)
-  | "burden" | "burdened" => Some(Burden)
-  | _ => None
-  }
-}
-
-/// Parse a simple integer from a string, returning None on failure.
-let parseInt = (s: string): option<int> => {
-  let n = Int.fromString(s)
-  n
-}
-
-/// Parse a voice transcript into a command.
-///
-/// Grammar (intentionally simple — no complex NLP, just keyword matching):
-///   "line <N> to <M> tag <type> [message...]"
-///   "tag <type> [message...]"           (uses current selection)
-///   "edit tag <N>"
-///   "delete tag <N>"
-///   "resolve tag <N>"
-///   "show tag <N>"
-///   "show all [type]"
-///   "who wrote line <N>"
-///   "attribute human"
-///   "attribute ai <model>"
-let parseVoiceCommand = (transcript: string): voiceCommand => {
-  let words =
-    transcript
-    ->String.toLowerCase
-    ->String.trim
-    ->String.split(" ")
-    ->Array.filter(w => w !== "")
-
-  let len = Array.length(words)
-
-  // "line N to M tag TYPE [message]"
-  if len >= 6 {
-    let w0 = words->Array.getUnsafe(0)
-    let w1 = words->Array.getUnsafe(1)
-    let w2 = words->Array.getUnsafe(2)
-    let w3 = words->Array.getUnsafe(3)
-    let w4 = words->Array.getUnsafe(4)
-    let w5 = words->Array.getUnsafe(5)
-    if w0 === "line" && w2 === "to" && w4 === "tag" {
-      switch (parseInt(w1), parseInt(w3), parseTagType(w5)) {
-      | (Some(start), Some(end_), Some(tagType)) => {
-          let msg = if len > 6 {
-            Some(words->Array.sliceToEnd(~start=6)->Array.join(" "))
-          } else {
-            None
-          }
-          TagRange(start, end_, tagType, msg)
-        }
-      | _ => VoiceUnrecognised(transcript)
-      }
-    } else {
-      // Fall through to shorter patterns
-      VoiceUnrecognised(transcript)
-    }
-  } else if len >= 2 {
-    let w0 = words->Array.getUnsafe(0)
-    let w1 = words->Array.getUnsafe(1)
-
-    // "tag TYPE [message]"
-    if w0 === "tag" {
-      switch parseTagType(w1) {
-      | Some(tagType) => {
-          let msg = if len > 2 {
-            Some(words->Array.sliceToEnd(~start=2)->Array.join(" "))
-          } else {
-            None
-          }
-          TagSelection(tagType, msg)
-        }
-      | None => VoiceUnrecognised(transcript)
-      }
-    } // "edit tag N"
-    else if w0 === "edit" && w1 === "tag" && len >= 3 {
-      switch parseInt(words->Array.getUnsafe(2)) {
-      | Some(n) => EditTag(n)
-      | None => VoiceUnrecognised(transcript)
-      }
-    } // "delete tag N"
-    else if w0 === "delete" && w1 === "tag" && len >= 3 {
-      switch parseInt(words->Array.getUnsafe(2)) {
-      | Some(n) => DeleteTag(n)
-      | None => VoiceUnrecognised(transcript)
-      }
-    } // "resolve tag N"
-    else if w0 === "resolve" && w1 === "tag" && len >= 3 {
-      switch parseInt(words->Array.getUnsafe(2)) {
-      | Some(n) => ResolveTag(n)
-      | None => VoiceUnrecognised(transcript)
-      }
-    } // "show tag N"
-    else if w0 === "show" && w1 === "tag" && len >= 3 {
-      switch parseInt(words->Array.getUnsafe(2)) {
-      | Some(n) => ShowTag(n)
-      | None => VoiceUnrecognised(transcript)
-      }
-    } // "show all [type]"
-    else if w0 === "show" && w1 === "all" {
-      if len >= 3 {
-        ShowAll(parseTagType(words->Array.getUnsafe(2)))
-      } else {
-        ShowAll(None)
-      }
-    } // "who wrote line N"
-    else if w0 === "who" && w1 === "wrote" && len >= 4 {
-      let w3 = words->Array.getUnsafe(3)
-      switch parseInt(w3) {
-      | Some(n) => WhoWroteLine(n)
-      | None => VoiceUnrecognised(transcript)
-      }
-    } // "attribute human"
-    else if w0 === "attribute" && w1 === "human" {
-      AttributeHuman
-    } // "attribute ai MODEL"
-    else if w0 === "attribute" && w1 === "ai" && len >= 3 {
-      AttributeAi(words->Array.getUnsafe(2))
-    } else {
-      VoiceUnrecognised(transcript)
-    }
-  } else {
-    VoiceUnrecognised(transcript)
-  }
-}
-
-// ===========================================================================
-// .mri.json serialisation — portable format, no PanLL dependency
-// ===========================================================================
-
-/// Serialise a tag type to its JSON string representation.
-let tagTypeToString = (tagType: mriTagType): string => {
-  switch tagType {
-  | Todo => "todo"
-  | Fixme => "fixme"
-  | Refactor => "refactor"
-  | Note => "note"
-  | Question => "question"
-  | Warn => "warn"
-  | Review => "review"
-  | CareOn => "care-on"
-  | EcoMode => "eco-mode"
-  | Burden => "burden"
-  | Custom(name) => `custom:${name}`
-  }
-}
-
-/// Parse a tag type from its JSON string representation.
-let tagTypeFromString = (s: string): mriTagType => {
-  switch s {
-  | "todo" => Todo
-  | "fixme" => Fixme
-  | "refactor" => Refactor
-  | "note" => Note
-  | "question" => Question
-  | "warn" => Warn
-  | "review" => Review
-  | "care-on" => CareOn
-  | "eco-mode" => EcoMode
-  | "burden" => Burden
-  | other =>
-    if String.startsWith(other, "custom:") {
-      Custom(String.sliceToEnd(other, ~start=7))
-    } else {
-      Custom(other)
-    }
-  }
-}
-
-/// Serialise input method to string.
-let methodToString = (method: mriInputMethod): string => {
-  switch method {
-  | Voice => "voice"
-  | Keyboard => "keyboard"
-  | Agent(name) => `agent:${name}`
-  | Import(source) => `import:${source}`
-  | Api => "api"
-  }
-}
-
-/// Parse input method from string.
-let methodFromString = (s: string): mriInputMethod => {
-  switch s {
-  | "voice" => Voice
-  | "keyboard" => Keyboard
-  | "api" => Api
-  | other =>
-    if String.startsWith(other, "agent:") {
-      Agent(String.sliceToEnd(other, ~start=6))
-    } else if String.startsWith(other, "import:") {
-      Import(String.sliceToEnd(other, ~start=7))
-    } else {
-      Keyboard
-    }
-  }
-}
-
-// ===========================================================================
-// Default state
-// ===========================================================================
-
-/// Empty summary (no tags).
-let emptySummary: mriFileSummary = {
-  totalTags: 0,
-  unresolvedTags: 0,
-  todoCount: 0,
-  fixmeCount: 0,
-  careOnRegions: 0,
-  ecoModeRegions: 0,
-  burdenRegions: 0,
-  aiTagCount: 0,
-  humanTagCount: 0,
-}
-
-/// Default VoiceTag state — no file loaded, voice off, no tags.
-let defaultState: voiceTagState = {
-  currentFile: None,
-  tags: [],
-  voice: VoiceOff,
-  selectedTagId: None,
-  filterType: None,
-  showResolved: false,
-  summary: emptySummary,
-  error: None,
-}
diff --git a/src/core/VqlEngine.affine b/src/core/VqlEngine.affine
new file mode 100644
index 00000000..b48ca78e
--- /dev/null
+++ b/src/core/VqlEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VqlEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/VqlEngine.res b/src/core/VqlEngine.res
deleted file mode 100644
index 4c5e1bb2..00000000
--- a/src/core/VqlEngine.res
+++ /dev/null
@@ -1,1521 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// VCL-total Engine — Pure computation layer for the VCL panel.
-//
-// This module contains ALL business logic for VCL query authoring:
-// - The VCL linter (30+ rules across 6 categories)
-// - The VCL formatter (5 style presets, configurable)
-// - Query template expansion and parameter validation
-// - Type safety level metadata and narrative generation
-// - Cross-prover strategy evaluation
-// - Result formatting and export
-//
-// Zero side effects — all I/O goes through VclCmd.res.
-
-open VqlModel
-
-// ============================================================
-// SECTION 1: Safety Level Metadata
-// ============================================================
-
-/// Complete metadata for each of the 10 type safety levels.
-/// Used for badges, tooltips, narrative generation, and level gating.
-let levelMetas: array<levelMeta> = [
-  {
-    level: L0_Unsafe,
-    name: "Unsafe",
-    shortName: "L0",
-    description: "Raw string queries with no type checking. Use only for exploration.",
-    glyph: "\u26A0",
-    colour: "text-red-400",
-    bgColour: "bg-red-900/30",
-    proverRequired: false,
-  },
-  {
-    level: L1_Parsed,
-    name: "Parsed",
-    shortName: "L1",
-    description: "Query is syntactically valid VCL-total. Keywords, clauses, and structure verified.",
-    glyph: "\u2713",
-    colour: "text-orange-400",
-    bgColour: "bg-orange-900/30",
-    proverRequired: false,
-  },
-  {
-    level: L2_SchemaBound,
-    name: "Schema-Bound",
-    shortName: "L2",
-    description: "All referenced tables and columns exist in VeriSimDB schema.",
-    glyph: "\u{1F517}",
-    colour: "text-yellow-400",
-    bgColour: "bg-yellow-900/30",
-    proverRequired: false,
-  },
-  {
-    level: L3_TypeCompat,
-    name: "Type-Compatible",
-    shortName: "L3",
-    description: "Expression types are compatible. No comparing integers to strings.",
-    glyph: "\u2261",
-    colour: "text-lime-400",
-    bgColour: "bg-lime-900/30",
-    proverRequired: false,
-  },
-  {
-    level: L4_NullSafe,
-    name: "Null-Safe",
-    shortName: "L4",
-    description: "Nullable columns are handled explicitly. No surprise NULL propagation.",
-    glyph: "\u2205",
-    colour: "text-emerald-400",
-    bgColour: "bg-emerald-900/30",
-    proverRequired: false,
-  },
-  {
-    level: L5_InjectionProof,
-    name: "Injection-Proof",
-    shortName: "L5",
-    description: "No string interpolation reaches query positions. Parameterised only.",
-    glyph: "\u{1F6E1}",
-    colour: "text-teal-400",
-    bgColour: "bg-teal-900/30",
-    proverRequired: false,
-  },
-  {
-    level: L6_ResultTyped,
-    name: "Result-Typed",
-    shortName: "L6",
-    description: "Return type fully determined at compile time. Every column has a known type.",
-    glyph: "\u{1F4CB}",
-    colour: "text-cyan-400",
-    bgColour: "bg-cyan-900/30",
-    proverRequired: false,
-  },
-  {
-    level: L7_CardinalitySafe,
-    name: "Cardinality-Safe",
-    shortName: "L7",
-    description: "Proven bounds on result size. No unbounded full-table scans.",
-    glyph: "\u{1F4CA}",
-    colour: "text-blue-400",
-    bgColour: "bg-blue-900/30",
-    proverRequired: true,
-  },
-  {
-    level: L8_EffectTracked,
-    name: "Effect-Tracked",
-    shortName: "L8",
-    description: "Side effects (writes, locks, external calls) declared and tracked.",
-    glyph: "\u26A1",
-    colour: "text-indigo-400",
-    bgColour: "bg-indigo-900/30",
-    proverRequired: true,
-  },
-  {
-    level: L9_TemporalSafe,
-    name: "Temporal-Safe",
-    shortName: "L9",
-    description: "Temporal consistency proven. No stale joins or future reads.",
-    glyph: "\u231B",
-    colour: "text-violet-400",
-    bgColour: "bg-violet-900/30",
-    proverRequired: true,
-  },
-  {
-    level: L10_LinearSafe,
-    name: "Linear-Safe",
-    shortName: "L10",
-    description: "Linear resource usage proven. Every proof consumed exactly once.",
-    glyph: "\u{1F48E}",
-    colour: "text-fuchsia-400",
-    bgColour: "bg-fuchsia-900/30",
-    proverRequired: true,
-  },
-]
-
-/// Look up metadata for a given safety level.
-let getLevelMeta = (level: typeSafetyLevel): levelMeta => {
-  let idx = switch level {
-  | L0_Unsafe => 0
-  | L1_Parsed => 1
-  | L2_SchemaBound => 2
-  | L3_TypeCompat => 3
-  | L4_NullSafe => 4
-  | L5_InjectionProof => 5
-  | L6_ResultTyped => 6
-  | L7_CardinalitySafe => 7
-  | L8_EffectTracked => 8
-  | L9_TemporalSafe => 9
-  | L10_LinearSafe => 10
-  }
-  levelMetas->Array.getUnsafe(idx)
-}
-
-/// Numeric value for level comparison.
-let levelToInt = (level: typeSafetyLevel): int =>
-  switch level {
-  | L0_Unsafe => 0
-  | L1_Parsed => 1
-  | L2_SchemaBound => 2
-  | L3_TypeCompat => 3
-  | L4_NullSafe => 4
-  | L5_InjectionProof => 5
-  | L6_ResultTyped => 6
-  | L7_CardinalitySafe => 7
-  | L8_EffectTracked => 8
-  | L9_TemporalSafe => 9
-  | L10_LinearSafe => 10
-  }
-
-/// Whether achieved >= required.
-let levelSatisfies = (achieved: typeSafetyLevel, required: typeSafetyLevel): bool =>
-  levelToInt(achieved) >= levelToInt(required)
-
-// ============================================================
-// SECTION 2: VCL Linter — 30+ Rules
-// ============================================================
-
-/// VCL keywords that must appear in specific clause positions.
-let vclKeywords = [
-  "FIND",
-  "FROM",
-  "WHERE",
-  "PROVE",
-  "USING",
-  "WITH",
-  "ORDER",
-  "LIMIT",
-  "OFFSET",
-  "GROUP",
-  "HAVING",
-  "JOIN",
-  "ON",
-  "AS",
-  "IN",
-  "NOT",
-  "AND",
-  "OR",
-  "EXISTS",
-  "FORALL",
-  "ACROSS",
-  "FEDERATED",
-  "TEMPORAL",
-  "LINEAR",
-  "EFFECT",
-  "SESSION",
-  "OCTAD",
-  "MODALITY",
-]
-
-/// VCL clause keywords — these start major sections.
-let clauseKeywords = [
-  "FIND",
-  "FROM",
-  "WHERE",
-  "PROVE",
-  "USING",
-  "WITH",
-  "ORDER",
-  "LIMIT",
-  "GROUP",
-  "HAVING",
-]
-
-/// Check if a string looks like a VCL keyword.
-let isKeyword = (word: string): bool => vclKeywords->Array.includes(String.toUpperCase(word))
-
-/// Check if a string looks like a clause keyword.
-let isClauseKeyword = (word: string): bool =>
-  clauseKeywords->Array.includes(String.toUpperCase(word))
-
-// --- Rule implementations ---
-
-/// VCL-S001: Query must not be empty.
-let ruleEmptyQuery = (content: string): option<lintDiagnostic> => {
-  let trimmed = String.trim(content)
-  if String.length(trimmed) == 0 {
-    Some({
-      ruleId: "VCL-S001",
-      category: CatSyntax,
-      severity: LintError,
-      line: 1,
-      column: 1,
-      endLine: 1,
-      endColumn: 1,
-      message: "Query is empty. Write a VCL-total query starting with FIND, PROVE, or another clause keyword.",
-      suggestion: Some("FIND proof\nFROM proofs\nWHERE prover = 'Lean'"),
-      relatedLevel: L1_Parsed,
-    })
-  } else {
-    None
-  }
-}
-
-/// VCL-S002: Query must start with a valid clause keyword.
-let ruleStartsWithClause = (content: string): option<lintDiagnostic> => {
-  let trimmed = String.trim(content)
-  if String.length(trimmed) == 0 {
-    None
-  } else {
-    let firstWord = switch String.split(trimmed, " ")->Array.get(0) {
-    | Some(w) => String.toUpperCase(String.trim(w))
-    | None => ""
-    }
-    let validStarts = ["FIND", "PROVE", "FEDERATED", "TEMPORAL", "LINEAR", "WITH", "EXPLAIN"]
-    if !(validStarts->Array.includes(firstWord)) {
-      Some({
-        ruleId: "VCL-S002",
-        category: CatSyntax,
-        severity: LintError,
-        line: 1,
-        column: 1,
-        endLine: 1,
-        endColumn: String.length(firstWord),
-        message: `Query must start with a valid clause keyword (FIND, PROVE, FEDERATED, etc.), found: "${firstWord}"`,
-        suggestion: Some(`FIND ${trimmed}`),
-        relatedLevel: L1_Parsed,
-      })
-    } else {
-      None
-    }
-  }
-}
-
-/// VCL-S003: Keywords should be UPPERCASE.
-let ruleKeywordCase = (content: string): array<lintDiagnostic> => {
-  let lines = String.split(content, "\n")
-  let diagnostics = []
-  lines->Array.forEachWithIndex((line, lineIdx) => {
-    let words = String.split(line, " ")
-    let _colOffset = ref(0)
-    words->Array.forEach(word => {
-      let trimWord = String.trim(word)
-      if (
-        String.length(trimWord) > 0 &&
-        isKeyword(trimWord) &&
-        trimWord !== String.toUpperCase(trimWord)
-      ) {
-        let _ = diagnostics->Array.push({
-          ruleId: "VCL-S003",
-          category: CatSyntax,
-          severity: LintHint,
-          line: lineIdx + 1,
-          column: _colOffset.contents + 1,
-          endLine: lineIdx + 1,
-          endColumn: _colOffset.contents + String.length(trimWord),
-          message: `Keyword "${trimWord}" should be uppercase: "${String.toUpperCase(trimWord)}"`,
-          suggestion: Some(String.toUpperCase(trimWord)),
-          relatedLevel: L1_Parsed,
-        })
-      }
-      _colOffset := _colOffset.contents + String.length(word) + 1
-    })
-  })
-  diagnostics
-}
-
-/// VCL-S004: Unclosed string literal.
-let ruleUnclosedString = (content: string): array<lintDiagnostic> => {
-  let lines = String.split(content, "\n")
-  let diagnostics = []
-  lines->Array.forEachWithIndex((line, lineIdx) => {
-    let inString = ref(false)
-    let quoteChar = ref("'")
-    for i in 0 to String.length(line) - 1 {
-      let ch = String.charAt(line, i)
-      if !inString.contents && (ch == "'" || ch == "\"") {
-        inString := true
-        quoteChar := ch
-      } else if inString.contents && ch == quoteChar.contents {
-        inString := false
-      }
-    }
-    if inString.contents {
-      let _ = diagnostics->Array.push({
-        ruleId: "VCL-S004",
-        category: CatSyntax,
-        severity: LintError,
-        line: lineIdx + 1,
-        column: 1,
-        endLine: lineIdx + 1,
-        endColumn: String.length(line),
-        message: "Unclosed string literal. Missing closing quote.",
-        suggestion: None,
-        relatedLevel: L1_Parsed,
-      })
-    }
-  })
-  diagnostics
-}
-
-/// VCL-S005: Unmatched parentheses.
-let ruleUnmatchedParens = (content: string): option<lintDiagnostic> => {
-  let depth = ref(0)
-  for i in 0 to String.length(content) - 1 {
-    let ch = String.charAt(content, i)
-    if ch == "(" {
-      depth := depth.contents + 1
-    }
-    if ch == ")" {
-      depth := depth.contents - 1
-    }
-  }
-  if depth.contents > 0 {
-    Some({
-      ruleId: "VCL-S005",
-      category: CatSyntax,
-      severity: LintError,
-      line: 1,
-      column: 1,
-      endLine: 1,
-      endColumn: 1,
-      message: `${Int.toString(depth.contents)} unclosed parenthesis(es).`,
-      suggestion: None,
-      relatedLevel: L1_Parsed,
-    })
-  } else if depth.contents < 0 {
-    Some({
-      ruleId: "VCL-S005",
-      category: CatSyntax,
-      severity: LintError,
-      line: 1,
-      column: 1,
-      endLine: 1,
-      endColumn: 1,
-      message: `${Int.toString(-depth.contents)} extra closing parenthesis(es).`,
-      suggestion: None,
-      relatedLevel: L1_Parsed,
-    })
-  } else {
-    None
-  }
-}
-
-/// VCL-T001: String comparison with non-string column (requires schema).
-/// Returns a diagnostic if we detect patterns like `column = 42` where column is string-typed.
-/// Without schema, this is a best-effort heuristic.
-let ruleStringIntComparison = (content: string): array<lintDiagnostic> => {
-  // Heuristic: if WHERE clause has `name = 42` or `title = 3.14`, flag it
-  let diagnostics = []
-  let lines = String.split(content, "\n")
-  let inWhere = ref(false)
-  lines->Array.forEachWithIndex((line, lineIdx) => {
-    let trimLine = String.trim(line)
-    let upper = String.toUpperCase(trimLine)
-    if String.includes(upper, "WHERE") {
-      inWhere := true
-    }
-    if inWhere.contents {
-      // Look for patterns like `name = 42` (string column compared to number)
-      let commonStringCols = ["name", "title", "prover", "tactic", "theorem", "description", "goal"]
-      commonStringCols->Array.forEach(col => {
-        // Check for `col = <number>` pattern
-        let patterns = [`${col} = `, `${col} != `, `${col} > `, `${col} < `]
-        patterns->Array.forEach(
-          pat => {
-            let lowerLine = String.toLowerCase(trimLine)
-            if String.includes(lowerLine, pat) {
-              let idx = String.indexOf(lowerLine, pat)
-              let afterPat = if idx >= 0 {
-                String.sliceToEnd(trimLine, ~start=idx + String.length(pat))
-              } else {
-                ""
-              }
-              let firstChar = String.charAt(String.trim(afterPat), 0)
-              if firstChar >= "0" && firstChar <= "9" {
-                let _ = diagnostics->Array.push({
-                  ruleId: "VCL-T001",
-                  category: CatType,
-                  severity: LintWarning,
-                  line: lineIdx + 1,
-                  column: 1,
-                  endLine: lineIdx + 1,
-                  endColumn: String.length(trimLine),
-                  message: `Column "${col}" is likely a string but is compared to a numeric literal. Use string comparison: ${col} = '...'`,
-                  suggestion: None,
-                  relatedLevel: L3_TypeCompat,
-                })
-              }
-            }
-          },
-        )
-      })
-    }
-  })
-  diagnostics
-}
-
-/// VCL-SEC001: String concatenation in query position (injection risk).
-let ruleInjectionRisk = (content: string): array<lintDiagnostic> => {
-  let diagnostics = []
-  let lines = String.split(content, "\n")
-  let dangerPatterns = ["${", "\" +", "' +", "+ \"", "+ '", "concat(", "CONCAT("]
-  lines->Array.forEachWithIndex((line, lineIdx) => {
-    dangerPatterns->Array.forEach(pat => {
-      if String.includes(line, pat) {
-        let _ = diagnostics->Array.push({
-          ruleId: "VCL-SEC001",
-          category: CatSecurity,
-          severity: LintError,
-          line: lineIdx + 1,
-          column: 1,
-          endLine: lineIdx + 1,
-          endColumn: String.length(line),
-          message: `Potential injection: string interpolation/concatenation detected ("${pat}"). Use parameterised queries with $param syntax.`,
-          suggestion: None,
-          relatedLevel: L5_InjectionProof,
-        })
-      }
-    })
-  })
-  diagnostics
-}
-
-/// VCL-P001: SELECT * without LIMIT (performance risk).
-let ruleUnboundedScan = (content: string): option<lintDiagnostic> => {
-  let upper = String.toUpperCase(content)
-  let hasStar = String.includes(upper, "FIND *") || String.includes(upper, "FIND  *")
-  let hasLimit = String.includes(upper, "LIMIT")
-  if hasStar && !hasLimit {
-    Some({
-      ruleId: "VCL-P001",
-      category: CatPerformance,
-      severity: LintWarning,
-      line: 1,
-      column: 1,
-      endLine: 1,
-      endColumn: 1,
-      message: "Unbounded FIND * without LIMIT. This may scan the entire proof corpus. Add LIMIT to bound result size.",
-      suggestion: Some("Add: LIMIT 100"),
-      relatedLevel: L7_CardinalitySafe,
-    })
-  } else {
-    None
-  }
-}
-
-/// VCL-P002: CROSS JOIN or cartesian product warning.
-let ruleCrossJoin = (content: string): option<lintDiagnostic> => {
-  let upper = String.toUpperCase(content)
-  if String.includes(upper, "CROSS JOIN") || String.includes(upper, "CROSS PROVER") {
-    Some({
-      ruleId: "VCL-P002",
-      category: CatPerformance,
-      severity: LintWarning,
-      line: 1,
-      column: 1,
-      endLine: 1,
-      endColumn: 1,
-      message: "Cross join detected. This produces a cartesian product and may be very expensive. Consider adding join conditions.",
-      suggestion: None,
-      relatedLevel: L7_CardinalitySafe,
-    })
-  } else {
-    None
-  }
-}
-
-/// VCL-C001: EFFECT clause used without USING (correctness).
-let ruleEffectWithoutUsing = (content: string): option<lintDiagnostic> => {
-  let upper = String.toUpperCase(content)
-  if String.includes(upper, "EFFECT") && !String.includes(upper, "USING") {
-    Some({
-      ruleId: "VCL-C001",
-      category: CatCorrectness,
-      severity: LintWarning,
-      line: 1,
-      column: 1,
-      endLine: 1,
-      endColumn: 1,
-      message: "EFFECT clause without USING. Specify which provers handle effect verification with USING <prover>.",
-      suggestion: None,
-      relatedLevel: L8_EffectTracked,
-    })
-  } else {
-    None
-  }
-}
-
-/// VCL-C002: TEMPORAL query without time bounds.
-let ruleTemporalWithoutBounds = (content: string): option<lintDiagnostic> => {
-  let upper = String.toUpperCase(content)
-  if (
-    String.includes(upper, "TEMPORAL") &&
-    !(
-      String.includes(upper, "SINCE") ||
-      String.includes(upper, "UNTIL") ||
-      String.includes(upper, "AT") ||
-      String.includes(upper, "BETWEEN")
-    )
-  ) {
-    Some({
-      ruleId: "VCL-C002",
-      category: CatCorrectness,
-      severity: LintWarning,
-      line: 1,
-      column: 1,
-      endLine: 1,
-      endColumn: 1,
-      message: "TEMPORAL query without time bounds (SINCE, UNTIL, AT, BETWEEN). Unbounded temporal queries may return stale data.",
-      suggestion: Some("Add: SINCE '2026-01-01'"),
-      relatedLevel: L9_TemporalSafe,
-    })
-  } else {
-    None
-  }
-}
-
-/// VCL-C003: LINEAR without explicit consumption (resource leak risk).
-let ruleLinearWithoutConsume = (content: string): option<lintDiagnostic> => {
-  let upper = String.toUpperCase(content)
-  if (
-    String.includes(upper, "LINEAR") &&
-    !String.includes(upper, "CONSUME") &&
-    !String.includes(upper, "RELEASE")
-  ) {
-    Some({
-      ruleId: "VCL-C003",
-      category: CatCorrectness,
-      severity: LintError,
-      line: 1,
-      column: 1,
-      endLine: 1,
-      endColumn: 1,
-      message: "LINEAR query without CONSUME or RELEASE. Linear resources must be explicitly consumed to prevent resource leaks.",
-      suggestion: None,
-      relatedLevel: L10_LinearSafe,
-    })
-  } else {
-    None
-  }
-}
-
-/// VCL-S006: Duplicate clause keywords.
-let ruleDuplicateClauses = (content: string): array<lintDiagnostic> => {
-  let upper = String.toUpperCase(content)
-  let diagnostics = []
-  clauseKeywords->Array.forEach(kw => {
-    // Count occurrences
-    let parts = String.split(upper, kw)
-    let count = Array.length(parts) - 1
-    if count > 1 && kw !== "AND" && kw !== "OR" {
-      let _ = diagnostics->Array.push({
-        ruleId: "VCL-S006",
-        category: CatSyntax,
-        severity: LintWarning,
-        line: 1,
-        column: 1,
-        endLine: 1,
-        endColumn: 1,
-        message: `Duplicate ${kw} clause (appears ${Int.toString(
-            count,
-          )} times). Consider consolidating.`,
-        suggestion: None,
-        relatedLevel: L1_Parsed,
-      })
-    }
-  })
-  diagnostics
-}
-
-/// VCL-SCH001: Referencing unknown octad modality.
-let ruleUnknownModality = (content: string): array<lintDiagnostic> => {
-  let diagnostics = []
-  let upper = String.toUpperCase(content)
-  if String.includes(upper, "OCTAD") || String.includes(upper, "MODALITY") {
-    let validModalities = [
-      "SEMANTIC",
-      "TEMPORAL",
-      "PROVENANCE",
-      "DOCUMENT",
-      "GRAPH",
-      "VECTOR",
-      "TENSOR",
-      "SPATIAL",
-    ]
-    let lines = String.split(content, "\n")
-    lines->Array.forEachWithIndex((line, lineIdx) => {
-      let upperLine = String.toUpperCase(line)
-      if String.includes(upperLine, "MODALITY") {
-        // Check if any word after MODALITY is not a known modality
-        let modIdx = String.indexOf(upperLine, "MODALITY")
-        let afterModality = if modIdx >= 0 {
-          String.sliceToEnd(line, ~start=modIdx + 8)
-        } else {
-          ""
-        }
-        let words = String.split(String.trim(afterModality), " ")
-        words->Array.forEach(word => {
-          let w = String.toUpperCase(String.trim(word))
-          if (
-            String.length(w) > 0 &&
-            !(validModalities->Array.includes(w)) &&
-            w !== "=" &&
-            w !== "IN" &&
-            w !== "(" &&
-            w !== ")" &&
-            w !== ","
-          ) {
-            let _ = diagnostics->Array.push({
-              ruleId: "VCL-SCH001",
-              category: CatSchema,
-              severity: LintWarning,
-              line: lineIdx + 1,
-              column: 1,
-              endLine: lineIdx + 1,
-              endColumn: String.length(line),
-              message: `Unknown octad modality: "${w}". Valid modalities: ${Array.join(
-                  validModalities,
-                  ", ",
-                )}`,
-              suggestion: None,
-              relatedLevel: L2_SchemaBound,
-            })
-          }
-        })
-      }
-    })
-  }
-  diagnostics
-}
-
-/// VCL-P003: Missing index hint for large tables.
-let ruleMissingIndexHint = (content: string): option<lintDiagnostic> => {
-  let upper = String.toUpperCase(content)
-  let hasWhere = String.includes(upper, "WHERE")
-  let hasProofs = String.includes(upper, "PROOFS") || String.includes(upper, "PROOF_STATES")
-  if hasProofs && !hasWhere {
-    Some({
-      ruleId: "VCL-P003",
-      category: CatPerformance,
-      severity: LintInfo,
-      line: 1,
-      column: 1,
-      endLine: 1,
-      endColumn: 1,
-      message: "Querying proof corpus without WHERE clause. The proof_states table can be very large (66,000+ rows). Add a filter.",
-      suggestion: Some("Add: WHERE prover = 'Lean'"),
-      relatedLevel: L7_CardinalitySafe,
-    })
-  } else {
-    None
-  }
-}
-
-/// Run the complete linter on a query, respecting the active profile and minimum level.
-let runLinter = (content: string, state: linterState): array<lintDiagnostic> => {
-  let all: array<lintDiagnostic> = []
-
-  // Syntax rules
-  switch ruleEmptyQuery(content) {
-  | Some(d) => ignore(all->Array.push(d))
-  | None => ()
-  }
-  switch ruleStartsWithClause(content) {
-  | Some(d) => ignore(all->Array.push(d))
-  | None => ()
-  }
-  ruleKeywordCase(content)->Array.forEach(d => ignore(all->Array.push(d)))
-  ruleUnclosedString(content)->Array.forEach(d => ignore(all->Array.push(d)))
-  switch ruleUnmatchedParens(content) {
-  | Some(d) => ignore(all->Array.push(d))
-  | None => ()
-  }
-  ruleDuplicateClauses(content)->Array.forEach(d => ignore(all->Array.push(d)))
-
-  // Schema rules
-  ruleUnknownModality(content)->Array.forEach(d => ignore(all->Array.push(d)))
-
-  // Type rules
-  ruleStringIntComparison(content)->Array.forEach(d => ignore(all->Array.push(d)))
-
-  // Security rules
-  ruleInjectionRisk(content)->Array.forEach(d => ignore(all->Array.push(d)))
-
-  // Performance rules
-  switch ruleUnboundedScan(content) {
-  | Some(d) => ignore(all->Array.push(d))
-  | None => ()
-  }
-  switch ruleCrossJoin(content) {
-  | Some(d) => ignore(all->Array.push(d))
-  | None => ()
-  }
-  switch ruleMissingIndexHint(content) {
-  | Some(d) => ignore(all->Array.push(d))
-  | None => ()
-  }
-
-  // Correctness rules
-  switch ruleEffectWithoutUsing(content) {
-  | Some(d) => ignore(all->Array.push(d))
-  | None => ()
-  }
-  switch ruleTemporalWithoutBounds(content) {
-  | Some(d) => ignore(all->Array.push(d))
-  | None => ()
-  }
-  switch ruleLinearWithoutConsume(content) {
-  | Some(d) => ignore(all->Array.push(d))
-  | None => ()
-  }
-
-  // Filter by profile
-  let filtered = switch state.profile {
-  | ProfileStrict => all
-  | ProfileRecommended =>
-    all->Array.filter(d =>
-      switch d.severity {
-      | LintError | LintWarning | LintInfo => true
-      | LintHint => false
-      }
-    )
-  | ProfileRelaxed =>
-    all->Array.filter(d =>
-      switch d.severity {
-      | LintError => true
-      | _ => false
-      }
-    )
-  | ProfileCustom => all
-  }
-
-  // Filter by suppressions
-  let unsuppressed = filtered->Array.filter(d => !(state.suppressions->Array.includes(d.ruleId)))
-
-  // Elevate violations below minimum level to errors
-  unsuppressed->Array.map(d => {
-    if !levelSatisfies(d.relatedLevel, state.minimumLevel) && d.severity !== LintError {
-      {...d, severity: LintError, message: d.message ++ " [elevated: below minimum level]"}
-    } else {
-      d
-    }
-  })
-}
-
-// ============================================================
-// SECTION 3: VCL Formatter
-// ============================================================
-
-/// Format a VCL-total query according to the given options.
-let formatQuery = (content: string, options: formatOptions): string => {
-  let lines = String.split(String.trim(content), "\n")
-  let indent = String.repeat(" ", options.indentWidth)
-  let result = ref("")
-
-  let processWord = (word: string): string => {
-    if options.uppercaseKeywords && isKeyword(word) {
-      String.toUpperCase(word)
-    } else {
-      word
-    }
-  }
-
-  switch options.style {
-  | StyleCompact => {
-      // Single line, minimal whitespace
-      let words =
-        String.split(String.trim(content), " ")
-        ->Array.filter(w => String.length(String.trim(w)) > 0)
-        ->Array.map(processWord)
-      result := Array.join(words, " ")
-    }
-
-  | StyleExpanded => // Each clause keyword on its own line, sub-expressions indented
-    lines->Array.forEach(line => {
-      let trimLine = String.trim(line)
-      if String.length(trimLine) > 0 {
-        let words = String.split(trimLine, " ")
-        let firstWord = switch words->Array.get(0) {
-        | Some(w) => String.toUpperCase(String.trim(w))
-        | None => ""
-        }
-        let processed = words->Array.map(processWord)->Array.join(" ")
-        if isClauseKeyword(firstWord) {
-          if String.length(result.contents) > 0 {
-            result := result.contents ++ "\n"
-            if options.insertBlankLines {
-              result := result.contents ++ "\n"
-            }
-          }
-          result := result.contents ++ processed ++ "\n"
-        } else {
-          result := result.contents ++ indent ++ processed ++ "\n"
-        }
-      }
-    })
-
-  | StyleProof => // Like expanded, but with type annotations and level markers
-    lines->Array.forEach(line => {
-      let trimLine = String.trim(line)
-      if String.length(trimLine) > 0 {
-        let words = String.split(trimLine, " ")
-        let firstWord = switch words->Array.get(0) {
-        | Some(w) => String.toUpperCase(String.trim(w))
-        | None => ""
-        }
-        let processed = words->Array.map(processWord)->Array.join(" ")
-        if firstWord == "FIND" || firstWord == "PROVE" {
-          result := result.contents ++ processed ++ "  -- [L6: result type determined]\n"
-        } else if firstWord == "WHERE" {
-          result := result.contents ++ processed ++ "  -- [L3: type compatibility checked]\n"
-        } else if firstWord == "FROM" {
-          result := result.contents ++ processed ++ "  -- [L2: schema bound]\n"
-        } else if firstWord == "TEMPORAL" {
-          result := result.contents ++ processed ++ "  -- [L9: temporal consistency]\n"
-        } else if firstWord == "LINEAR" {
-          result := result.contents ++ processed ++ "  -- [L10: linear safety]\n"
-        } else if firstWord == "EFFECT" {
-          result := result.contents ++ processed ++ "  -- [L8: effect tracked]\n"
-        } else if isClauseKeyword(firstWord) {
-          result := result.contents ++ processed ++ "\n"
-        } else {
-          result := result.contents ++ indent ++ processed ++ "\n"
-        }
-      }
-    })
-
-  | StyleStandard | StyleCustom => {
-      // Standard: keywords uppercase, 2-space indent, aligned clauses
-      let maxKeywordLen = ref(0)
-      if options.alignClauses {
-        lines->Array.forEach(line => {
-          let trimLine = String.trim(line)
-          let words = String.split(trimLine, " ")
-          switch words->Array.get(0) {
-          | Some(w) =>
-            if isClauseKeyword(w) && String.length(w) > maxKeywordLen.contents {
-              maxKeywordLen := String.length(w)
-            }
-          | None => ()
-          }
-        })
-      }
-
-      lines->Array.forEach(line => {
-        let trimLine = String.trim(line)
-        if String.length(trimLine) > 0 {
-          let words = String.split(trimLine, " ")
-          let firstWord = switch words->Array.get(0) {
-          | Some(w) => String.trim(w)
-          | None => ""
-          }
-          if isClauseKeyword(firstWord) {
-            let kw = if options.uppercaseKeywords {
-              String.toUpperCase(firstWord)
-            } else {
-              firstWord
-            }
-            let padding = if options.alignClauses {
-              String.repeat(" ", maxKeywordLen.contents - String.length(kw))
-            } else {
-              ""
-            }
-            let rest =
-              words
-              ->Array.sliceToEnd(~start=1)
-              ->Array.map(processWord)
-              ->Array.join(" ")
-            result := result.contents ++ kw ++ padding ++ " " ++ rest ++ "\n"
-          } else {
-            let processed = words->Array.map(processWord)->Array.join(" ")
-            result := result.contents ++ indent ++ processed ++ "\n"
-          }
-        }
-      })
-    }
-  }
-
-  String.trim(result.contents)
-}
-
-// ============================================================
-// SECTION 4: Query Templates
-// ============================================================
-
-/// Built-in query templates for common VCL-total operations.
-let builtinTemplates: array<queryTemplate> = [
-  {
-    id: "find-by-prover",
-    name: "Find Proofs by Prover",
-    description: "Search the proof corpus for all proofs from a specific prover.",
-    operation: OpFindProof,
-    template: "FIND proof, theorem, goal\nFROM proof_states\nWHERE prover = '{{prover}}'\nORDER theorem\nLIMIT {{limit}}",
-    parameters: [
-      {
-        name: "prover",
-        paramType: "prover",
-        description: "Prover backend name",
-        defaultValue: Some("Lean"),
-        validation: None,
-      },
-      {
-        name: "limit",
-        paramType: "int",
-        description: "Maximum results",
-        defaultValue: Some("100"),
-        validation: Some("^[0-9]+$"),
-      },
-    ],
-    requiredLevel: L2_SchemaBound,
-  },
-  {
-    id: "similar-goals",
-    name: "Find Similar Goals",
-    description: "Vector similarity search for proofs with goals resembling a given pattern.",
-    operation: OpFindSimilar,
-    template: "FIND proof, theorem, goal, similarity_score\nFROM proof_states\nUSING MODALITY VECTOR\nWHERE goal SIMILAR TO '{{goal_pattern}}'\nLIMIT {{limit}}",
-    parameters: [
-      {
-        name: "goal_pattern",
-        paramType: "string",
-        description: "Goal pattern to match",
-        defaultValue: Some("forall n : nat, n + 0 = n"),
-        validation: None,
-      },
-      {
-        name: "limit",
-        paramType: "int",
-        description: "Maximum results",
-        defaultValue: Some("20"),
-        validation: Some("^[0-9]+$"),
-      },
-    ],
-    requiredLevel: L6_ResultTyped,
-  },
-  {
-    id: "cross-prover",
-    name: "Cross-Prover Search",
-    description: "Search for equivalent theorems across multiple proof systems.",
-    operation: OpCrossProverSearch,
-    template: "FEDERATED FIND theorem, prover, proof_id\nFROM proof_states\nACROSS {{provers}}\nWHERE theorem LIKE '{{pattern}}'\nLIMIT {{limit}}",
-    parameters: [
-      {
-        name: "provers",
-        paramType: "string",
-        description: "Comma-separated prover list",
-        defaultValue: Some("Lean, Coq, Isabelle"),
-        validation: None,
-      },
-      {
-        name: "pattern",
-        paramType: "string",
-        description: "Theorem name pattern",
-        defaultValue: Some("%comm%"),
-        validation: None,
-      },
-      {
-        name: "limit",
-        paramType: "int",
-        description: "Maximum results per prover",
-        defaultValue: Some("50"),
-        validation: Some("^[0-9]+$"),
-      },
-    ],
-    requiredLevel: L7_CardinalitySafe,
-  },
-  {
-    id: "provenance-trace",
-    name: "Proof Provenance Trace",
-    description: "Trace the full lineage of a proof through VeriSimDB.",
-    operation: OpProvenanceTrace,
-    template: "FIND proof_id, version, author, timestamp, parent_id\nFROM proof_states\nUSING MODALITY PROVENANCE\nWHERE proof_id = '{{proof_id}}'\nORDER timestamp",
-    parameters: [
-      {
-        name: "proof_id",
-        paramType: "string",
-        description: "Proof identifier",
-        defaultValue: None,
-        validation: None,
-      },
-    ],
-    requiredLevel: L9_TemporalSafe,
-  },
-  {
-    id: "temporal-history",
-    name: "Proof Temporal History",
-    description: "View how a theorem's proof has evolved over time.",
-    operation: OpTemporalHistory,
-    template: "TEMPORAL FIND theorem, tactic, prover, version\nFROM proof_states\nWHERE theorem = '{{theorem}}'\nSINCE '{{since}}'\nORDER version",
-    parameters: [
-      {
-        name: "theorem",
-        paramType: "string",
-        description: "Theorem name",
-        defaultValue: Some("comm_add"),
-        validation: None,
-      },
-      {
-        name: "since",
-        paramType: "string",
-        description: "Start date (ISO 8601)",
-        defaultValue: Some("2026-01-01"),
-        validation: Some("^\\d{4}-\\d{2}-\\d{2}$"),
-      },
-    ],
-    requiredLevel: L9_TemporalSafe,
-  },
-  {
-    id: "dependency-graph",
-    name: "Theorem Dependencies",
-    description: "Map the dependency graph of a theorem (what lemmas does it use?).",
-    operation: OpDependencyGraph,
-    template: "FIND theorem, depends_on, depth\nFROM proof_states\nUSING MODALITY GRAPH\nWHERE theorem = '{{theorem}}'\nLIMIT {{depth}}",
-    parameters: [
-      {
-        name: "theorem",
-        paramType: "string",
-        description: "Root theorem name",
-        defaultValue: Some("fundamental_theorem"),
-        validation: None,
-      },
-      {
-        name: "depth",
-        paramType: "int",
-        description: "Maximum dependency depth",
-        defaultValue: Some("5"),
-        validation: Some("^[0-9]+$"),
-      },
-    ],
-    requiredLevel: L7_CardinalitySafe,
-  },
-  {
-    id: "tactic-stats",
-    name: "Tactic Usage Statistics",
-    description: "Which tactics are used most often, and how successful are they?",
-    operation: OpTacticStats,
-    template: "FIND tactic, count, success_rate, avg_depth\nFROM tactics\nWHERE prover = '{{prover}}'\nGROUP tactic\nORDER count DESC\nLIMIT {{limit}}",
-    parameters: [
-      {
-        name: "prover",
-        paramType: "prover",
-        description: "Prover backend",
-        defaultValue: Some("Lean"),
-        validation: None,
-      },
-      {
-        name: "limit",
-        paramType: "int",
-        description: "Top N tactics",
-        defaultValue: Some("25"),
-        validation: Some("^[0-9]+$"),
-      },
-    ],
-    requiredLevel: L6_ResultTyped,
-  },
-  {
-    id: "linear-proof-consume",
-    name: "Linear Proof Consumption",
-    description: "Consume a proof resource linearly (exactly once) with tracked effects.",
-    operation: OpCustom,
-    template: "LINEAR FIND proof\nFROM proof_states\nWHERE proof_id = '{{proof_id}}'\nEFFECT read_once\nUSING {{prover}}\nCONSUME",
-    parameters: [
-      {
-        name: "proof_id",
-        paramType: "string",
-        description: "Proof to consume",
-        defaultValue: None,
-        validation: None,
-      },
-      {
-        name: "prover",
-        paramType: "prover",
-        description: "Verifying prover",
-        defaultValue: Some("Idris2"),
-        validation: None,
-      },
-    ],
-    requiredLevel: L10_LinearSafe,
-  },
-]
-
-/// Expand a template with parameter values.
-let expandTemplate = (template: queryTemplate, values: array<(string, string)>): string => {
-  let result = ref(template.template)
-  template.parameters->Array.forEach(param => {
-    let value = switch values->Array.find(((k, _)) => k == param.name) {
-    | Some((_, v)) => v
-    | None =>
-      switch param.defaultValue {
-      | Some(d) => d
-      | None => "{{" ++ param.name ++ "}}"
-      }
-    }
-    result := String.replaceAll(result.contents, "{{" ++ param.name ++ "}}", value)
-  })
-  result.contents
-}
-
-// ============================================================
-// SECTION 5: Narrative Generation
-// ============================================================
-
-/// Generate the 4-part evangeliser narrative for a type checking result.
-let generateNarrative = (
-  achieved: typeSafetyLevel,
-  requested: typeSafetyLevel,
-  issues: array<lintDiagnostic>,
-): typeNarrative => {
-  let achievedMeta = getLevelMeta(achieved)
-  let requestedMeta = getLevelMeta(requested)
-  let passed = levelSatisfies(achieved, requested)
-  let errorCount = issues->Array.filter(d => d.severity == LintError)->Array.length
-  let warnCount = issues->Array.filter(d => d.severity == LintWarning)->Array.length
-
-  let celebrate = if passed {
-    `Your query achieved ${achievedMeta.name} (${achievedMeta.shortName}) safety! ` ++
-    if levelToInt(achieved) >= 7 {
-      "This means ECHIDNA provers have verified formal properties of your query. "
-    } else if levelToInt(achieved) >= 5 {
-      "Your query is injection-proof and fully typed. "
-    } else if levelToInt(achieved) >= 3 {
-      "All types are compatible and schema references resolve correctly. "
-    } else {
-      "The query parses correctly. "
-    } ++
-    `${achievedMeta.glyph} Well done.`
-  } else {
-    `Your query reached ${achievedMeta.name} (${achievedMeta.shortName}), which is ` ++
-    `${Int.toString(levelToInt(achieved))} of ${Int.toString(
-        levelToInt(requested),
-      )} levels toward your target.`
-  }
-
-  let minimize = if errorCount == 0 && warnCount == 0 {
-    "No issues detected. The query is clean."
-  } else if errorCount == 0 {
-    `${Int.toString(
-        warnCount,
-      )} warning(s) found, but none are blocking. The query can execute as-is.`
-  } else {
-    `${Int.toString(errorCount)} error(s) need attention before execution. ` ++ if warnCount > 0 {
-      `There are also ${Int.toString(warnCount)} warning(s) to review.`
-    } else {
-      ""
-    }
-  }
-
-  let showBetter = if passed && levelToInt(achieved) < 10 {
-    let nextLevel = getLevelMeta(
-      switch achieved {
-      | L0_Unsafe => L1_Parsed
-      | L1_Parsed => L2_SchemaBound
-      | L2_SchemaBound => L3_TypeCompat
-      | L3_TypeCompat => L4_NullSafe
-      | L4_NullSafe => L5_InjectionProof
-      | L5_InjectionProof => L6_ResultTyped
-      | L6_ResultTyped => L7_CardinalitySafe
-      | L7_CardinalitySafe => L8_EffectTracked
-      | L8_EffectTracked => L9_TemporalSafe
-      | L9_TemporalSafe | L10_LinearSafe => L10_LinearSafe
-      },
-    )
-    `To reach the next level (${nextLevel.name}), ${nextLevel.description}`
-  } else if passed {
-    "You've achieved maximum type safety. This query has the strongest guarantees VCL-total can provide."
-  } else {
-    `To reach ${requestedMeta.name}: address the ${Int.toString(
-        errorCount,
-      )} error(s) above. ` ++ `Each error maps to a specific level requirement.`
-  }
-
-  let safety = if levelToInt(achieved) >= 10 {
-    "LINEAR SAFETY: Every proof resource in this query is consumed exactly once. No leaks, no duplication. Formal proof accompanies execution."
-  } else if levelToInt(achieved) >= 8 {
-    "EFFECT TRACKING: All side effects are declared and tracked. The query cannot silently modify state."
-  } else if levelToInt(achieved) >= 5 {
-    "INJECTION PROOF: This query cannot be subverted by malicious input. All parameters are typed and validated."
-  } else if levelToInt(achieved) >= 3 {
-    "TYPE SAFETY: Expressions are type-checked. You will not get runtime type errors from this query."
-  } else if levelToInt(achieved) >= 1 {
-    "PARSE SAFETY: The query is syntactically valid. It will not cause parse errors on execution."
-  } else {
-    "NO SAFETY: This query runs as raw text. Consider adding type safety by choosing a higher level."
-  }
-
-  {celebrate, minimize, showBetter, safety}
-}
-
-// ============================================================
-// SECTION 6: Operation Labels and Descriptions
-// ============================================================
-
-/// Human-readable label for a query operation.
-let operationLabel = (op: queryOperation): string =>
-  switch op {
-  | OpFindProof => "Find Proof"
-  | OpFindSimilar => "Find Similar"
-  | OpCrossProverSearch => "Cross-Prover Search"
-  | OpProvenanceTrace => "Provenance Trace"
-  | OpTemporalHistory => "Temporal History"
-  | OpDependencyGraph => "Dependency Graph"
-  | OpAxiomUsage => "Axiom Usage"
-  | OpTacticStats => "Tactic Statistics"
-  | OpCustom => "Custom Query"
-  }
-
-/// Glyph for a query operation.
-let operationGlyph = (op: queryOperation): string =>
-  switch op {
-  | OpFindProof => "\u{1F50D}"
-  | OpFindSimilar => "\u{1F9F2}"
-  | OpCrossProverSearch => "\u{1F310}"
-  | OpProvenanceTrace => "\u{1F4DC}"
-  | OpTemporalHistory => "\u231B"
-  | OpDependencyGraph => "\u{1F578}"
-  | OpAxiomUsage => "\u{1F3DB}"
-  | OpTacticStats => "\u{1F4CA}"
-  | OpCustom => "\u2328"
-  }
-
-/// Execution target label.
-let targetLabel = (target: executionTarget): string =>
-  switch target {
-  | TargetVeriSimDB => "VeriSimDB"
-  | TargetEchidna => "ECHIDNA"
-  | TargetBoJ => "BoJ Server"
-  | TargetTypeLL => "TypeLL (check only)"
-  | TargetDryRun => "Dry Run (plan only)"
-  }
-
-/// Prover kind label.
-let proverKindLabel = (kind: string): string =>
-  switch kind {
-  | "interactive" => "Interactive Proof Assistant"
-  | "smt" => "SMT Solver"
-  | "atp" => "Automated Theorem Prover"
-  | "declarative" => "Declarative Prover"
-  | "autoactive" => "Auto-Active Verifier"
-  | "constraint" => "Constraint Solver"
-  | _ => kind
-  }
-
-/// Lint category label.
-let categoryLabel = (cat: lintCategory): string =>
-  switch cat {
-  | CatSyntax => "Syntax"
-  | CatSchema => "Schema"
-  | CatType => "Type"
-  | CatSecurity => "Security"
-  | CatPerformance => "Performance"
-  | CatCorrectness => "Correctness"
-  }
-
-/// Lint category colour.
-let categoryColour = (cat: lintCategory): string =>
-  switch cat {
-  | CatSyntax => "text-gray-400"
-  | CatSchema => "text-yellow-400"
-  | CatType => "text-cyan-400"
-  | CatSecurity => "text-red-400"
-  | CatPerformance => "text-orange-400"
-  | CatCorrectness => "text-violet-400"
-  }
-
-/// Severity icon.
-let severityIcon = (sev: lintSeverity): string =>
-  switch sev {
-  | LintError => "\u2716"
-  | LintWarning => "\u26A0"
-  | LintInfo => "\u2139"
-  | LintHint => "\u{1F4A1}"
-  }
-
-/// Severity colour.
-let severityColour = (sev: lintSeverity): string =>
-  switch sev {
-  | LintError => "text-red-400"
-  | LintWarning => "text-amber-400"
-  | LintInfo => "text-cyan-400"
-  | LintHint => "text-gray-400"
-  }
-
-// ============================================================
-// SECTION 7: View Layer Formatting
-// ============================================================
-
-/// View layer colour classes.
-let viewLayerColour = (vl: viewLayer): string =>
-  switch vl {
-  | Raw => "text-gray-300 bg-gray-800/50"
-  | Folded => "text-sky-400 bg-sky-900/30"
-  | Glyphed => "text-violet-400 bg-violet-900/30"
-  | Wysiwyg => "text-amber-400 bg-amber-900/30"
-  }
-
-/// View layer label.
-let viewLayerLabel = (vl: viewLayer): string =>
-  switch vl {
-  | Raw => "Raw"
-  | Folded => "Folded"
-  | Glyphed => "Glyphed"
-  | Wysiwyg => "WYSIWYG"
-  }
-
-/// Transform query text for the Glyphed view (mathematical symbols).
-let toGlyphed = (content: string): string => {
-  content
-  ->String.replaceAll("FORALL", "\u2200")
-  ->String.replaceAll("EXISTS", "\u2203")
-  ->String.replaceAll("AND", "\u2227")
-  ->String.replaceAll("OR", "\u2228")
-  ->String.replaceAll("NOT", "\u00AC")
-  ->String.replaceAll("IN", "\u2208")
-  ->String.replaceAll("=>", "\u21D2")
-  ->String.replaceAll("<=", "\u2264")
-  ->String.replaceAll(">=", "\u2265")
-  ->String.replaceAll("!=", "\u2260")
-  ->String.replaceAll("PROVE", "\u22A2")
-  ->String.replaceAll("LINEAR", "\u2AAF")
-  ->String.replaceAll("TEMPORAL", "\u29D6")
-}
-
-// ============================================================
-// SECTION 8: Default State
-// ============================================================
-
-/// Default format options — VCL-total official style.
-let defaultFormatOptions: formatOptions = {
-  style: StyleStandard,
-  indentWidth: 2,
-  uppercaseKeywords: true,
-  alignClauses: true,
-  trailingComma: false,
-  maxLineWidth: 100,
-  insertBlankLines: false,
-  annotateTypes: false,
-  showLevelMarkers: false,
-  colourOutput: true,
-}
-
-/// Default linter state.
-let defaultLinterState: linterState = {
-  profile: ProfileRecommended,
-  minimumLevel: L1_Parsed,
-  diagnostics: [],
-  suppressions: [],
-  autoFixEnabled: true,
-  lintOnType: true,
-  lintDebounceMs: 300,
-}
-
-/// Default formatter state.
-let defaultFormatterState: formatterState = {
-  options: defaultFormatOptions,
-  lastFormatted: None,
-  showDiff: false,
-  formatOnSave: false,
-}
-
-/// Default editor state.
-let defaultEditorState: editorState = {
-  content: "",
-  cursorLine: 1,
-  cursorColumn: 1,
-  selectionStart: None,
-  selectionEnd: None,
-  undoStack: [],
-  redoStack: [],
-  activeOperation: OpFindProof,
-  activeTemplate: None,
-  parameterValues: [],
-  isDirty: false,
-  lastSaved: None,
-}
-
-/// Default execution state.
-let defaultExecutionState: executionState = {
-  target: TargetVeriSimDB,
-  status: Idle,
-  lastResult: None,
-  history: [],
-  maxHistorySize: 100,
-  streamingEnabled: false,
-  timeoutMs: 30000,
-}
-
-/// Default schema state.
-let defaultSchemaState: schemaState = {
-  entities: [],
-  expandedEntities: [],
-  searchFilter: "",
-  modalityFilter: None,
-  lastRefreshed: None,
-  loading: false,
-}
-
-/// Default dispatch state.
-let defaultDispatchState: dispatchState = {
-  strategy: StrategyAuto,
-  availableProvers: [],
-  selectedProvers: [],
-  consensusThreshold: 2,
-  timeoutPerProverMs: 10000,
-  showProverDetails: false,
-}
-
-/// Default VCL panel state — the initial state when the panel opens.
-let defaultVclState: vclState = {
-  activeTab: TabEditor,
-  viewLayer: Raw,
-  panelOpen: false,
-  fullscreen: false,
-  connection: VclDisconnected,
-  verisimEndpoint: "http://localhost:8200",
-  echidnaEndpoint: "http://localhost:8000",
-  typellEndpoint: "http://localhost:7800",
-  bojRouting: false,
-  editor: defaultEditorState,
-  linter: defaultLinterState,
-  formatter: defaultFormatterState,
-  execution: defaultExecutionState,
-  schema: defaultSchemaState,
-  dispatch: defaultDispatchState,
-  typeCheckResult: None,
-  pendingObligations: [],
-}
-
-// ============================================================
-// SECTION 9: Result Cell Formatting
-// ============================================================
-
-/// Format a result cell for display.
-let formatCell = (cell: resultCell): string =>
-  switch cell {
-  | CellString(s) => s
-  | CellInt(i) => Int.toString(i)
-  | CellFloat(f) => Float.toString(f)
-  | CellBool(b) =>
-    if b {
-      "true"
-    } else {
-      "false"
-    }
-  | CellNull => "NULL"
-  | CellProver(p) => p
-  | CellProof(id) => id
-  | CellTactic(t) => t
-  | CellLevel(l) => getLevelMeta(l).shortName
-  | CellOctad(o) => o
-  }
-
-/// Format execution time for display.
-let formatDuration = (ms: float): string => {
-  if ms < 1.0 {
-    Float.toFixed(ms *. 1000.0, ~digits=0) ++ "\u00B5s"
-  } else if ms < 1000.0 {
-    Float.toFixed(ms, ~digits=1) ++ "ms"
-  } else {
-    Float.toFixed(ms /. 1000.0, ~digits=2) ++ "s"
-  }
-}
-
-/// Format row count for display.
-let formatRowCount = (count: int): string => {
-  if count < 1000 {
-    Int.toString(count)
-  } else if count < 1000000 {
-    Float.toFixed(Int.toFloat(count) /. 1000.0, ~digits=1) ++ "K"
-  } else {
-    Float.toFixed(Int.toFloat(count) /. 1000000.0, ~digits=2) ++ "M"
-  }
-}
diff --git a/src/core/WindowBridge.affine b/src/core/WindowBridge.affine
new file mode 100644
index 00000000..a637aad5
--- /dev/null
+++ b/src/core/WindowBridge.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module WindowBridge;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/WindowBridge.res b/src/core/WindowBridge.res
deleted file mode 100644
index b6d5a5e1..00000000
--- a/src/core/WindowBridge.res
+++ /dev/null
@@ -1,170 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL WindowBridge — FFI bindings for cross-window communication.
-///
-/// Provides a safe ReScript interface to browser APIs used by the tiling
-/// system for detached panel windows. All bindings are defensive — they
-/// use try/catch internally to handle browsers that block popups or lack
-/// BroadcastChannel support (Safari < 15.4, older WebViews).
-///
-/// The tiling system uses BroadcastChannel for message passing between the
-/// main PanLL window and detached panel windows. Each channel is named after
-/// the detached window (windowName) so messages are scoped correctly.
-///
-/// DESIGN NOTE: We use `%raw` rather than `@module`/`@send` bindings because
-/// the BroadcastChannel API requires constructor invocation and event listener
-/// patterns that are awkward to express with ReScript's `@new` and `@send`.
-/// The raw JS is minimal and wrapped in try/catch for safety.
-///
-/// SECURITY NOTE: BroadcastChannel messages are same-origin only, which is
-/// sufficient for PanLL's use case (all windows serve from the same origin).
-/// Message payloads are JSON strings — the caller is responsible for
-/// serialisation and deserialisation.
-
-/// Opaque type representing a BroadcastChannel instance.
-///
-/// Consumers should not inspect or manipulate this value directly.
-/// Use createChannel, postMessage, onMessage, and closeChannel instead.
-type broadcastChannel
-
-/// Open a new browser window for a detached panel.
-///
-/// Wraps window.open(url, name, features). Returns Some(windowRef) on
-/// success or None if the popup was blocked by the browser. The windowRef
-/// is a Dom.element representing the Window object (typed as element for
-/// ReScript DOM compatibility).
-///
-/// Parameters:
-///   - url: the URL to load in the new window (e.g. "/detached?panel=farm")
-///   - name: the window.name for the new window (used as BroadcastChannel target)
-///   - features: window features string (e.g. "width=800,height=600")
-let openWindow: (string, string, string) => option<Dom.element> = %raw(`
-  function(url, name, features) {
-    try {
-      var w = window.open(url, name, features);
-      if (w == null) return undefined;
-      return w;
-    } catch (e) {
-      return undefined;
-    }
-  }
-`)
-
-/// Create a new BroadcastChannel with the given channel name.
-///
-/// The channel name should match the windowName of the detached panel
-/// so that messages are scoped to that specific panel's communication.
-///
-/// Falls back to a no-op stub object if BroadcastChannel is not supported
-/// by the browser, allowing the rest of the code to call postMessage and
-/// onMessage without runtime errors (they will simply do nothing).
-let createChannel: string => broadcastChannel = %raw(`
-  function(name) {
-    try {
-      if (typeof BroadcastChannel !== 'undefined') {
-        return new BroadcastChannel(name);
-      }
-      // Stub for unsupported browsers — methods are no-ops.
-      return {
-        postMessage: function() {},
-        close: function() {},
-        addEventListener: function() {},
-        removeEventListener: function() {}
-      };
-    } catch (e) {
-      return {
-        postMessage: function() {},
-        close: function() {},
-        addEventListener: function() {},
-        removeEventListener: function() {}
-      };
-    }
-  }
-`)
-
-/// Post a JSON string message to the BroadcastChannel.
-///
-/// The message is broadcast to all other BroadcastChannel instances with
-/// the same name (i.e. the detached panel window listening on this channel).
-///
-/// Does nothing if the channel is a no-op stub (unsupported browser).
-let postMessage: (broadcastChannel, string) => unit = %raw(`
-  function(channel, message) {
-    try {
-      channel.postMessage(message);
-    } catch (e) {
-      // Silently ignore — channel may be closed or browser unsupported.
-    }
-  }
-`)
-
-/// Listen for messages on the BroadcastChannel.
-///
-/// Registers a callback that receives the message data (string) whenever
-/// a message arrives on the channel. Returns a cleanup function that
-/// removes the listener when called.
-///
-/// The cleanup function MUST be called when the component unmounts or the
-/// channel is no longer needed, to prevent memory leaks.
-///
-/// Parameters:
-///   - channel: the BroadcastChannel to listen on
-///   - callback: function called with the message data string
-///
-/// Returns: a cleanup function (unit => unit) that removes the listener
-let onMessage: (broadcastChannel, string => unit) => unit => unit = %raw(`
-  function(channel, callback) {
-    try {
-      var handler = function(event) {
-        try {
-          callback(event.data);
-        } catch (e) {
-          // Prevent listener errors from crashing the channel.
-        }
-      };
-      channel.addEventListener('message', handler);
-      return function() {
-        try {
-          channel.removeEventListener('message', handler);
-        } catch (e) {
-          // Ignore cleanup errors.
-        }
-      };
-    } catch (e) {
-      // Return a no-op cleanup if addEventListener failed.
-      return function() {};
-    }
-  }
-`)
-
-/// Close a BroadcastChannel, releasing its resources.
-///
-/// After closing, no further messages can be sent or received on this
-/// channel. Any pending onMessage listeners are automatically removed
-/// by the browser. Calling close on an already-closed channel is safe
-/// (caught internally).
-let closeChannel: broadcastChannel => unit = %raw(`
-  function(channel) {
-    try {
-      channel.close();
-    } catch (e) {
-      // Ignore — channel may already be closed.
-    }
-  }
-`)
-
-/// Close a detached panel's browser window.
-///
-/// Wraps windowRef.close(). The windowRef is the Dom.element returned by
-/// openWindow. Closing a window that is already closed is safe (caught
-/// internally). After closing, the tiling engine should mark the panel
-/// as dead or remove it from the detachedPanels array.
-let closeWindow: Dom.element => unit = %raw(`
-  function(windowRef) {
-    try {
-      windowRef.close();
-    } catch (e) {
-      // Ignore — window may already be closed or cross-origin.
-    }
-  }
-`)
diff --git a/src/core/WiringInspectorEngine.affine b/src/core/WiringInspectorEngine.affine
new file mode 100644
index 00000000..4f069bed
--- /dev/null
+++ b/src/core/WiringInspectorEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module WiringInspectorEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/WiringInspectorEngine.res b/src/core/WiringInspectorEngine.res
deleted file mode 100644
index af25b2ed..00000000
--- a/src/core/WiringInspectorEngine.res
+++ /dev/null
@@ -1,422 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Wiring Inspector Engine — pure computation helpers for PCC state.
-///
-/// All functions here are pure: no side effects, no Gossamer calls.
-/// They transform PCC JSON into domain types and provide view helpers
-/// for status labels, colours, filtering, and sorting.
-
-open WiringInspectorModel
-
-/// Empty state distribution — all counts zero.
-let emptyDistribution: stateDistribution = {
-  total: 0,
-  releasable: 0,
-  viable: 0,
-  wired: 0,
-  draft: 0,
-  broken: 0,
-}
-
-/// Initial state — no results, no selection, no error.
-let defaultState: wiringInspectorState = {
-  loading: false,
-  lastRunAt: None,
-  results: [],
-  selectedPanel: None,
-  filterStatus: None,
-  error: None,
-  activeTab: Overview,
-  distribution: emptyDistribution,
-  bottlenecks: [],
-  sortBy: "blockedCount",
-}
-
-// ════════════════════════════════════════════════════════════════════════
-// Status label and colour helpers
-// ════════════════════════════════════════════════════════════════════════
-
-/// Human-readable label for an obligation status.
-let statusLabel = (status: obligationStatus): string =>
-  switch status {
-  | Satisfied => "Satisfied"
-  | Unsatisfied => "Unsatisfied"
-  | Blocked => "Blocked"
-  }
-
-/// Tailwind colour class for an obligation status.
-let statusColor = (status: obligationStatus): string =>
-  switch status {
-  | Satisfied => "text-green-400"
-  | Unsatisfied => "text-red-400"
-  | Blocked => "text-yellow-400"
-  }
-
-/// Human-readable label for a failure class.
-let failureClassLabel = (fc: failureClass): string =>
-  switch fc {
-  | Root => "Root"
-  | Derived => "Derived"
-  | NotFailed => ""
-  }
-
-/// Human-readable label for repairability.
-let repairabilityLabel = (r: repairability): string =>
-  switch r {
-  | Safe => "safe"
-  | Unsafe => "unsafe"
-  | Manual => "manual"
-  }
-
-/// Tailwind colour class for repairability.
-let repairabilityColor = (r: repairability): string =>
-  switch r {
-  | Safe => "text-green-400"
-  | Unsafe => "text-red-400"
-  | Manual => "text-amber-400"
-  }
-
-// ════════════════════════════════════════════════════════════════════════
-// Panel lifecycle state helpers (Phase 5)
-// ════════════════════════════════════════════════════════════════════════
-
-/// Parse a PCC state string into a panelState variant.
-let parseState = (s: string): panelState =>
-  switch s {
-  | "draft" => Draft
-  | "wired" => Wired
-  | "viable" => Viable
-  | "releasable" => Releasable
-  | "broken" => Broken
-  | _ => Draft
-  }
-
-/// Human-readable uppercase label for a panel lifecycle state.
-let stateLabel = (s: panelState): string =>
-  switch s {
-  | Draft => "DRAFT"
-  | Wired => "WIRED"
-  | Viable => "VIABLE"
-  | Releasable => "RELEASABLE"
-  | Broken => "BROKEN"
-  }
-
-/// Tailwind text colour class for a panel lifecycle state.
-let stateColor = (s: panelState): string =>
-  switch s {
-  | Draft => "text-yellow-400"
-  | Wired => "text-blue-400"
-  | Viable => "text-cyan-400"
-  | Releasable => "text-green-400"
-  | Broken => "text-red-400"
-  }
-
-/// Tailwind background colour class for a panel lifecycle state.
-let stateBgColor = (s: panelState): string =>
-  switch s {
-  | Draft => "bg-yellow-900/30"
-  | Wired => "bg-blue-900/30"
-  | Viable => "bg-cyan-900/30"
-  | Releasable => "bg-green-900/30"
-  | Broken => "bg-red-900/30"
-  }
-
-/// Tailwind border colour class for a panel lifecycle state.
-let stateBorderColor = (s: panelState): string =>
-  switch s {
-  | Draft => "border-yellow-800"
-  | Wired => "border-blue-800"
-  | Viable => "border-cyan-800"
-  | Releasable => "border-green-800"
-  | Broken => "border-red-800"
-  }
-
-/// Count panels per lifecycle state across all verification results.
-let computeDistribution = (results: array<panelVerification>): stateDistribution => {
-  let total = Array.length(results)
-  let count = (target: panelState) =>
-    results->Array.filter(v => v.policy.state == target)->Array.length
-  {
-    total,
-    releasable: count(Releasable),
-    viable: count(Viable),
-    wired: count(Wired),
-    draft: count(Draft),
-    broken: count(Broken),
-  }
-}
-
-/// Extract all root-failure obligations with blockedDownstreamCount > 0
-/// across all panels, sorted by blocked count descending.
-let extractBottlenecks = (results: array<panelVerification>): array<bottleneck> => {
-  let all = results->Array.flatMap(v =>
-    v.obligations
-    ->Array.filter(o => o.failureClass == Root && o.blockedDownstreamCount > 0)
-    ->Array.map(o => {
-      let bn: bottleneck = {
-        panelId: v.panelId,
-        obligationId: o.id,
-        kind: o.kind,
-        blockedCount: o.blockedDownstreamCount,
-        repairability: o.repairability,
-        message: o.message,
-        file: o.file,
-      }
-      bn
-    })
-  )
-  let copy = Array.copy(all)
-  copy->Array.sort((a, b) => Int.compare(b.blockedCount, a.blockedCount))
-  copy
-}
-
-/// Take the top N bottlenecks from a sorted array.
-let topBottlenecks = (bottlenecks: array<bottleneck>, n: int): array<bottleneck> =>
-  bottlenecks->Array.slice(~start=0, ~end=n)
-
-/// Filter verification results to only those with the given lifecycle state.
-let panelsByState = (results: array<panelVerification>, state: panelState): array<
-  panelVerification,
-> => results->Array.filter(v => v.policy.state == state)
-
-/// Health score: percentage of panels at Viable or above (Viable + Releasable).
-/// Returns 0 when there are no panels.
-let healthScore = (dist: stateDistribution): int =>
-  if dist.total == 0 {
-    0
-  } else {
-    (dist.releasable + dist.viable) * 100 / dist.total
-  }
-
-/// Human-readable label for an audit tab.
-let tabLabel = (tab: auditTab): string =>
-  switch tab {
-  | Overview => "Overview"
-  | ByState => "By State"
-  | Bottlenecks => "Bottlenecks"
-  | History => "History"
-  }
-
-/// Colour class for the health score badge.
-let healthScoreColor = (score: int): string =>
-  if score > 80 {
-    "text-green-400"
-  } else if score > 50 {
-    "text-yellow-400"
-  } else {
-    "text-red-400"
-  }
-
-/// Background colour class for the health score badge.
-let healthScoreBgColor = (score: int): string =>
-  if score > 80 {
-    "bg-green-900/30 border-green-800"
-  } else if score > 50 {
-    "bg-yellow-900/30 border-yellow-800"
-  } else {
-    "bg-red-900/30 border-red-800"
-  }
-
-// ════════════════════════════════════════════════════════════════════════
-// Panel verification helpers
-// ════════════════════════════════════════════════════════════════════════
-
-/// Whether all obligations for a panel are satisfied.
-let isComplete = (v: panelVerification): bool => v.unsatisfied == 0 && v.blocked == 0
-
-/// Summary label: "COMPLETE (6/6)" or "INCOMPLETE (4/6)".
-let summaryLabel = (v: panelVerification): string => {
-  let tag = if isComplete(v) {
-    "COMPLETE"
-  } else {
-    "INCOMPLETE"
-  }
-  `${tag} (${Int.toString(v.satisfied)}/${Int.toString(v.total)})`
-}
-
-/// Filter obligations where failureClass == Root.
-let rootFailures = (v: panelVerification): array<obligation> =>
-  v.obligations->Array.filter(o => o.failureClass == Root)
-
-/// Filter obligations where failureClass == Derived.
-let derivedFailures = (v: panelVerification): array<obligation> =>
-  v.obligations->Array.filter(o => o.failureClass == Derived)
-
-/// Filter obligations where status == Satisfied.
-let satisfiedObligations = (v: panelVerification): array<obligation> =>
-  v.obligations->Array.filter(o => o.status == Satisfied)
-
-/// Sort obligations by blockedDownstreamCount descending (worst bottlenecks first).
-let sortByBottleneck = (obligations: array<obligation>): array<obligation> => {
-  let copy = Array.copy(obligations)
-  copy->Array.sort((a, b) => Int.compare(b.blockedDownstreamCount, a.blockedDownstreamCount))
-  copy
-}
-
-// ════════════════════════════════════════════════════════════════════════
-// Aggregate helpers
-// ════════════════════════════════════════════════════════════════════════
-
-/// Total number of panels in the results.
-let totalPanels = (results: array<panelVerification>): int => Array.length(results)
-
-/// Number of panels where all obligations are satisfied.
-let completePanels = (results: array<panelVerification>): int =>
-  results->Array.filter(isComplete)->Array.length
-
-/// Number of panels with at least one unsatisfied or blocked obligation.
-let incompletePanels = (results: array<panelVerification>): int =>
-  results->Array.filter(v => !isComplete(v))->Array.length
-
-/// Filter results to a specific panel (by panelId string).
-let filterByPanel = (results: array<panelVerification>, selectedPanel: option<string>): array<
-  panelVerification,
-> =>
-  switch selectedPanel {
-  | None => results
-  | Some(pid) => results->Array.filter(v => v.panelId == pid)
-  }
-
-/// Filter results by completion status string ("Complete" or "Incomplete").
-let filterByStatus = (results: array<panelVerification>, filterStatus: option<string>): array<
-  panelVerification,
-> =>
-  switch filterStatus {
-  | None => results
-  | Some("Complete") => results->Array.filter(isComplete)
-  | Some("Incomplete") => results->Array.filter(v => !isComplete(v))
-  | Some(_) => results
-  }
-
-// ════════════════════════════════════════════════════════════════════════
-// JSON parsing — PCC output to domain types
-// ════════════════════════════════════════════════════════════════════════
-
-/// Parse an obligation status string from PCC JSON.
-let parseObligationStatus = (s: string): obligationStatus =>
-  switch s {
-  | "satisfied" => Satisfied
-  | "blocked" => Blocked
-  | _ => Unsatisfied
-  }
-
-/// Parse a failure class string from PCC JSON.
-let parseFailureClass = (s: option<string>): failureClass =>
-  switch s {
-  | Some("root") => Root
-  | Some("derived") => Derived
-  | _ => NotFailed
-  }
-
-/// Parse a repairability string from PCC JSON.
-let parseRepairability = (s: string): repairability =>
-  switch s {
-  | "unsafe" => Unsafe
-  | "manual" => Manual
-  | _ => Safe
-  }
-
-/// Parse a single obligation JSON object.
-/// Uses raw JS interop for JSON field access.
-let parseObligation: JSON.t => obligation = %raw(`
-  function parseObligation(obj) {
-    return {
-      id: obj.id || "",
-      kind: obj.kind || "",
-      panelId: obj.panel_id || "",
-      status: obj.status || "unsatisfied",
-      failureClass: obj.failure_class || null,
-      repairability: obj.repairability || "safe",
-      message: obj.message || "",
-      file: obj.file || undefined,
-      expected: obj.expected || undefined,
-      dependsOn: obj.depends_on || [],
-      blockedDownstreamCount: obj.blocked_downstream_count || 0,
-    };
-  }
-`)
-
-/// Transform a raw parsed obligation (with string status fields) into the typed domain model.
-let typedObligation = (raw: obligation): obligation => {
-  ...raw,
-  status: parseObligationStatus(statusLabel(raw.status)),
-  failureClass: parseFailureClass(
-    switch raw.failureClass {
-    | Root => Some("root")
-    | Derived => Some("derived")
-    | NotFailed => None
-    },
-  ),
-  repairability: parseRepairability(repairabilityLabel(raw.repairability)),
-}
-
-/// Parse a single panel verification JSON object into typed domain model.
-/// The raw parsing uses JS interop, then we refine the typed fields.
-/// Extracts Phase 5 policy fields (state, visible, releasable, next_requirement).
-let parseSingleVerification: JSON.t => panelVerification = %raw(`
-  function parseSingleVerification(obj) {
-    var summary = obj.summary || {};
-    var obligations = (obj.obligations || []).map(function(o) {
-      return {
-        id: o.id || "",
-        kind: o.kind || "",
-        panelId: o.panel_id || obj.panel_id || "",
-        status: o.status === "satisfied" ? "Satisfied" : o.status === "blocked" ? "Blocked" : "Unsatisfied",
-        failureClass: o.failure_class === "root" ? "Root" : o.failure_class === "derived" ? "Derived" : "NotFailed",
-        repairability: o.repairability === "unsafe" ? "Unsafe" : o.repairability === "manual" ? "Manual" : "Safe",
-        message: o.message || "",
-        file: o.file || undefined,
-        expected: o.expected || undefined,
-        dependsOn: o.depends_on || [],
-        blockedDownstreamCount: o.blocked_downstream_count || 0,
-      };
-    });
-    // Parse lifecycle state — default to "draft" if missing.
-    var rawState = obj.state || "draft";
-    var stateMap = { draft: "Draft", wired: "Wired", viable: "Viable", releasable: "Releasable", broken: "Broken" };
-    var parsedState = stateMap[rawState] || "Draft";
-    return {
-      panelId: obj.panel_id || "",
-      status: obj.status || "incomplete",
-      total: summary.total || 0,
-      satisfied: summary.satisfied || 0,
-      unsatisfied: summary.unsatisfied || 0,
-      blocked: summary.blocked || 0,
-      primaryBottleneck: obj.primary_bottleneck || undefined,
-      obligations: obligations,
-      policy: {
-        state: parsedState,
-        visible: obj.visible !== undefined ? obj.visible : true,
-        releasable: obj.releasable !== undefined ? obj.releasable : false,
-        nextRequirement: obj.next_requirement || undefined,
-      },
-    };
-  }
-`)
-
-/// Parse PCC JSON output (single or multi-panel) into an array of panel verifications.
-/// Handles both `{ "panel_id": ... }` (single) and `{ "panels": [...] }` (multi) formats,
-/// as well as a bare JSON array.
-let parseVerificationJson: string => array<panelVerification> = %raw(`
-  function parseVerificationJson(jsonStr) {
-    try {
-      var parsed = JSON.parse(jsonStr);
-      // Array of panel results
-      if (Array.isArray(parsed)) {
-        return parsed.map(parseSingleVerification);
-      }
-      // Object with "panels" array
-      if (parsed.panels && Array.isArray(parsed.panels)) {
-        return parsed.panels.map(parseSingleVerification);
-      }
-      // Single panel result
-      if (parsed.panel_id) {
-        return [parseSingleVerification(parsed)];
-      }
-      return [];
-    } catch (_e) {
-      return [];
-    }
-  }
-`)
diff --git a/src/core/WizardMinter.affine b/src/core/WizardMinter.affine
new file mode 100644
index 00000000..e3efe38a
--- /dev/null
+++ b/src/core/WizardMinter.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module WizardMinter;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/WizardMinter.res b/src/core/WizardMinter.res
deleted file mode 100644
index 5bc6f045..00000000
--- a/src/core/WizardMinter.res
+++ /dev/null
@@ -1,27 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Minter — Unified generation interface for both panels and plugins.
-
-open WizardModel
-open MinterModel
-open MinterEngine
-
-/// Generate a new panel or plugin based on wizard configuration
-let generate = (creationType: string, capabilities: string, dependencies: string, securityConfig: string): result<string, string> => {
-  // Simplified implementation - actual generation happens in backend via WizardCmd
-  Ok("Generation configuration validated")
-}
-
-/// Helper function to get capability label from ID
-let getCapabilityLabel = (capId: string): string => {
-  // This should be moved to a central capability registry
-  switch capId {
-  | "groove_soft" => "Soft Groove Integration"
-  | "groove_hard" => "Hard Groove Integration"
-  | "accessibility" => "Accessibility Compliance"
-  | "contractile" => "Contractile Governance"
-  | "minter" => "Minter Integration"
-  | "provisioner" => "Provisioner Support"
-  | _ => capId
-  }
-}
\ No newline at end of file
diff --git a/src/core/WorkspaceEngine.affine b/src/core/WorkspaceEngine.affine
new file mode 100644
index 00000000..3c0103f2
--- /dev/null
+++ b/src/core/WorkspaceEngine.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module WorkspaceEngine;
+
+// TODO: Complete semantic implementation
diff --git a/src/core/WorkspaceEngine.res b/src/core/WorkspaceEngine.res
deleted file mode 100644
index bb656f4d..00000000
--- a/src/core/WorkspaceEngine.res
+++ /dev/null
@@ -1,472 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Workspace Engine — pure functions for workspace management.
-///
-/// Handles panel groups, arrangements, sessions, checkpoints, workspace modes,
-/// session protection, execution modes, and poly tool management.
-///
-/// All functions are pure: (state, action) -> state. Side effects (filesystem
-/// save/load, Gossamer IPC) happen elsewhere via Tea_Cmd.
-
-open WorkspaceModel
-
-// ============================================================================
-// Group Operations
-// ============================================================================
-
-/// Create a new panel group from a set of panel IDs.
-let createGroup = (
-  groups: array<panelGroup>,
-  id: string,
-  name: string,
-  panelIds: array<string>,
-): array<panelGroup> => {
-  Array.concat(
-    groups,
-    [
-      {
-        id,
-        name,
-        panelIds,
-        locked: false,
-        visible: true,
-        zIndex: Array.length(groups) + 1,
-        sharedWith: [],
-      },
-    ],
-  )
-}
-
-/// Disband a group by ID (removes the group, panels remain independent).
-let disbandGroup = (groups: array<panelGroup>, groupId: string): array<panelGroup> => {
-  Array.filter(groups, g => g.id !== groupId)
-}
-
-/// Lock a group's arrangement (prevent rearrangement).
-let lockGroup = (groups: array<panelGroup>, groupId: string): array<panelGroup> => {
-  Array.map(groups, g =>
-    if g.id === groupId {
-      {...g, locked: true}
-    } else {
-      g
-    }
-  )
-}
-
-/// Unlock a group's arrangement.
-let unlockGroup = (groups: array<panelGroup>, groupId: string): array<panelGroup> => {
-  Array.map(groups, g =>
-    if g.id === groupId {
-      {...g, locked: false}
-    } else {
-      g
-    }
-  )
-}
-
-/// Toggle visibility for an entire group.
-let toggleGroupVisibility = (groups: array<panelGroup>, groupId: string): array<panelGroup> => {
-  Array.map(groups, g =>
-    if g.id === groupId {
-      {...g, visible: !g.visible}
-    } else {
-      g
-    }
-  )
-}
-
-/// Push a panel/group to back (lowest z-index).
-let pushToBack = (groups: array<panelGroup>, groupId: string): array<panelGroup> => {
-  Array.map(groups, g =>
-    if g.id === groupId {
-      {...g, zIndex: 0}
-    } else {
-      {...g, zIndex: g.zIndex + 1}
-    }
-  )
-}
-
-/// Pull a panel/group to front (highest z-index).
-let pullToFront = (groups: array<panelGroup>, groupId: string): array<panelGroup> => {
-  let maxZ = Array.reduce(groups, 0, (max, g) =>
-    if g.zIndex > max {
-      g.zIndex
-    } else {
-      max
-    }
-  )
-  Array.map(groups, g =>
-    if g.id === groupId {
-      {...g, zIndex: maxZ + 1}
-    } else {
-      g
-    }
-  )
-}
-
-/// Add a panel to an existing group.
-let addToGroup = (groups: array<panelGroup>, groupId: string, panelId: string): array<
-  panelGroup,
-> => {
-  Array.map(groups, g =>
-    if g.id === groupId {
-      let alreadyIn = Array.some(g.panelIds, id => id === panelId)
-      if alreadyIn {
-        g
-      } else {
-        {...g, panelIds: Array.concat(g.panelIds, [panelId])}
-      }
-    } else {
-      g
-    }
-  )
-}
-
-/// Remove a panel from a group.
-let removeFromGroup = (groups: array<panelGroup>, groupId: string, panelId: string): array<
-  panelGroup,
-> => {
-  Array.map(groups, g =>
-    if g.id === groupId {
-      {...g, panelIds: Array.filter(g.panelIds, id => id !== panelId)}
-    } else {
-      g
-    }
-  )
-}
-
-/// Share a group with a user.
-let shareGroup = (groups: array<panelGroup>, groupId: string, userId: string): array<
-  panelGroup,
-> => {
-  Array.map(groups, g =>
-    if g.id === groupId {
-      let alreadyShared = Array.some(g.sharedWith, id => id === userId)
-      if alreadyShared {
-        g
-      } else {
-        {...g, sharedWith: Array.concat(g.sharedWith, [userId])}
-      }
-    } else {
-      g
-    }
-  )
-}
-
-// ============================================================================
-// Arrangement Operations
-// ============================================================================
-
-/// Save the current panel positions as a named arrangement.
-let saveArrangement = (
-  arrangements: array<arrangement>,
-  id: string,
-  name: string,
-  positions: array<panelPosition>,
-  groups: array<panelGroup>,
-  timestamp: float,
-): array<arrangement> => {
-  // If arrangement with this ID exists, update it. Otherwise, append.
-  let exists = Array.some(arrangements, a => a.id === id)
-  if exists {
-    Array.map(arrangements, a =>
-      if a.id === id {
-        {...a, name, positions, groups, lastSaved: timestamp}
-      } else {
-        a
-      }
-    )
-  } else {
-    Array.concat(
-      arrangements,
-      [
-        {
-          id,
-          name,
-          positions,
-          groups,
-          builtIn: false,
-          lastSaved: timestamp,
-        },
-      ],
-    )
-  }
-}
-
-/// Delete a non-built-in arrangement.
-let deleteArrangement = (arrangements: array<arrangement>, id: string): array<arrangement> => {
-  Array.filter(arrangements, a => a.id !== id || a.builtIn)
-}
-
-/// Built-in arrangement presets.
-let builtInArrangements: array<arrangement> = [
-  {
-    id: "default-3-panel",
-    name: "Default 3-Panel",
-    positions: [
-      {panelId: "paneL", x: 0.0, y: 0.0, width: 33.3, height: 100.0, zIndex: 1, visible: true},
-      {panelId: "paneN", x: 33.3, y: 0.0, width: 33.3, height: 100.0, zIndex: 1, visible: true},
-      {panelId: "paneW", x: 66.6, y: 0.0, width: 33.4, height: 100.0, zIndex: 1, visible: true},
-    ],
-    groups: [],
-    builtIn: true,
-    lastSaved: 0.0,
-  },
-  {
-    id: "ai-focus",
-    name: "AI Focus",
-    positions: [
-      {panelId: "paneL", x: 0.0, y: 0.0, width: 20.0, height: 100.0, zIndex: 1, visible: true},
-      {panelId: "paneN", x: 20.0, y: 0.0, width: 60.0, height: 100.0, zIndex: 2, visible: true},
-      {panelId: "paneW", x: 80.0, y: 0.0, width: 20.0, height: 100.0, zIndex: 1, visible: true},
-    ],
-    groups: [],
-    builtIn: true,
-    lastSaved: 0.0,
-  },
-  {
-    id: "debug-layout",
-    name: "Debug Layout",
-    positions: [
-      {panelId: "paneL", x: 0.0, y: 0.0, width: 50.0, height: 50.0, zIndex: 1, visible: true},
-      {panelId: "paneN", x: 50.0, y: 0.0, width: 50.0, height: 50.0, zIndex: 1, visible: true},
-      {panelId: "paneW", x: 0.0, y: 50.0, width: 100.0, height: 50.0, zIndex: 2, visible: true},
-    ],
-    groups: [],
-    builtIn: true,
-    lastSaved: 0.0,
-  },
-  {
-    id: "teaching-mode",
-    name: "Teaching Mode",
-    positions: [
-      {panelId: "paneL", x: 0.0, y: 0.0, width: 50.0, height: 100.0, zIndex: 1, visible: true},
-      {panelId: "paneN", x: 50.0, y: 0.0, width: 50.0, height: 50.0, zIndex: 1, visible: true},
-      {panelId: "paneW", x: 50.0, y: 50.0, width: 50.0, height: 50.0, zIndex: 1, visible: true},
-    ],
-    groups: [],
-    builtIn: true,
-    lastSaved: 0.0,
-  },
-]
-
-// ============================================================================
-// Session Operations
-// ============================================================================
-
-/// Create a new session.
-let createSession = (
-  sessions: array<session>,
-  id: string,
-  name: string,
-  repoPath: option<string>,
-  timestamp: float,
-): array<session> => {
-  Array.concat(
-    sessions,
-    [
-      {
-        id,
-        name,
-        repoPath,
-        arrangementId: Some("default-3-panel"),
-        protection: Open,
-        executionMode: Live,
-        workspaceMode: EverythingMode,
-        checkpoints: [],
-        created: timestamp,
-        lastActive: timestamp,
-        forkedFrom: None,
-      },
-    ],
-  )
-}
-
-/// Fork a session — create an independent copy that starts from the current state.
-let forkSession = (
-  sessions: array<session>,
-  sourceId: string,
-  newId: string,
-  newName: string,
-  timestamp: float,
-): array<session> => {
-  let source = Array.find(sessions, s => s.id === sourceId)
-  switch source {
-  | Some(s) =>
-    Array.concat(
-      sessions,
-      [
-        {
-          ...s,
-          id: newId,
-          name: newName,
-          created: timestamp,
-          lastActive: timestamp,
-          forkedFrom: Some(sourceId),
-        },
-      ],
-    )
-  | None => sessions
-  }
-}
-
-/// Add a checkpoint to a session.
-let addCheckpoint = (
-  sessions: array<session>,
-  sessionId: string,
-  checkpointId: string,
-  label: string,
-  timestamp: float,
-  automatic: bool,
-): array<session> => {
-  Array.map(sessions, s =>
-    if s.id === sessionId {
-      {
-        ...s,
-        checkpoints: Array.concat(
-          s.checkpoints,
-          [
-            {
-              id: checkpointId,
-              label,
-              timestamp,
-              automatic,
-            },
-          ],
-        ),
-      }
-    } else {
-      s
-    }
-  )
-}
-
-/// Delete a session.
-let deleteSession = (sessions: array<session>, id: string): array<session> => {
-  Array.filter(sessions, s => s.id !== id)
-}
-
-/// Update a session's protection level.
-let setSessionProtection = (
-  sessions: array<session>,
-  sessionId: string,
-  protection: sessionProtection,
-): array<session> => {
-  Array.map(sessions, s =>
-    if s.id === sessionId {
-      {...s, protection}
-    } else {
-      s
-    }
-  )
-}
-
-/// Update a session's execution mode.
-let setExecutionMode = (sessions: array<session>, sessionId: string, mode: executionMode): array<
-  session,
-> => {
-  Array.map(sessions, s =>
-    if s.id === sessionId {
-      {...s, executionMode: mode}
-    } else {
-      s
-    }
-  )
-}
-
-// ============================================================================
-// Workspace Mode Cycling
-// ============================================================================
-
-/// Cycle to the next workspace mode in order:
-/// Rhodium → Everything → Code → Bespoke → Rhodium.
-let cycleMode = (current: workspaceMode): workspaceMode => {
-  switch current {
-  | RhodiumMode => EverythingMode
-  | EverythingMode => CodeMode
-  | CodeMode => BespokeMode
-  | BespokeMode => RhodiumMode
-  }
-}
-
-/// Determine which panel IDs should be visible for a given workspace mode.
-/// Returns an array of panel ID strings. In Code mode, RSR-specific panels
-/// are hidden. In Rhodium mode, everything is shown. Bespoke delegates to
-/// a per-repo manifest.
-let visiblePanelsForMode = (mode: workspaceMode): option<array<string>> => {
-  switch mode {
-  | EverythingMode => None // None means "show all"
-  | RhodiumMode => None // Also show all (RSR is the full standard)
-  | CodeMode =>
-    // Code mode: hide RSR governance panels, keep dev-focused panels
-    Some([
-      "PanelVab",
-      "PanelDatabases",
-      "PanelPlaygrounds",
-      "PanelAi",
-      "PanelRepoLoader",
-      "PanelAerie",
-      "PanelInterfaces",
-      "PanelCapture",
-      "PanelWorkspace",
-    ])
-  | BespokeMode => None // Bespoke: loaded from PANELS.a2ml (handled elsewhere)
-  }
-}
-
-// ============================================================================
-// Protection Enforcement
-// ============================================================================
-
-/// Check whether a mutation is allowed under the current session protection.
-/// Returns true if the action should be blocked.
-let isMutationBlocked = (protection: sessionProtection): bool => {
-  switch protection {
-  | Open => false
-  | ReadOnly => true
-  | Sandboxed => false // Allowed, but will be rolled back
-  | LanguageLocked(_) => false // Checked per-file, not globally
-  | TranspilationGuarded => false // Allowed, but save requires proof
-  | ProductionGated => false // Allowed, but commit requires sign-off
-  }
-}
-
-/// Check whether a file mutation is allowed for a specific file path
-/// under LanguageLocked protection.
-let isFileBlocked = (protection: sessionProtection, filePath: string): bool => {
-  switch protection {
-  | LanguageLocked(extensions) =>
-    Array.some(extensions, ext => {
-      // Check if the file path ends with the locked extension
-      let extLen = String.length(ext)
-      let pathLen = String.length(filePath)
-      if pathLen >= extLen {
-        String.sliceToEnd(filePath, ~start=pathLen - extLen) === ext
-      } else {
-        false
-      }
-    })
-  | _ => false
-  }
-}
-
-// ============================================================================
-// Default State
-// ============================================================================
-
-/// Initial workspace state.
-let defaultState: workspaceState = {
-  mode: EverythingMode,
-  protection: Open,
-  executionMode: Live,
-  groups: [],
-  arrangements: builtInArrangements,
-  activeArrangementId: Some("default-3-panel"),
-  sessions: [],
-  activeSessionId: None,
-  polyTools: [],
-  configuratorOpen: false,
-  configuratorTab: TabArrangements,
-  viewingMetadata: None,
-  metadataContent: None,
-}
diff --git a/src/generated/CartridgeAbi.affine b/src/generated/CartridgeAbi.affine
new file mode 100644
index 00000000..89916909
--- /dev/null
+++ b/src/generated/CartridgeAbi.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CartridgeAbi;
+
+// TODO: Complete semantic implementation
diff --git a/src/generated/CartridgeAbi.res b/src/generated/CartridgeAbi.res
deleted file mode 100644
index 42093761..00000000
--- a/src/generated/CartridgeAbi.res
+++ /dev/null
@@ -1,556 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Generated from src/abi/cartridge-schema.json — DO NOT EDIT MANUALLY.
-// Regenerate with: deno task gen:cartridge-abi
-// Seam-validated against BoJ server ABI at compile time via ppx_typell.
-
-/// Cartridge identifier — every BoJ cartridge has exactly one variant here.
-/// Using this type instead of raw strings gives compile-time guarantees that
-/// only valid cartridge names reach BojCmd.invokeCartridge.
-type cartridgeId =
-  | AgentMcp
-  | BspMcp
-  | CloudMcp
-  | CommsMcp
-  | ContainerMcp
-  | DapMcp
-  | DatabaseMcp
-  | FeedbackMcp
-  | FleetMcp
-  | GitMcp
-  | IacMcp
-  | K8sMcp
-  | LspMcp
-  | MlMcp
-  | NesyMcp
-  | ObserveMcp
-  | ProofMcp
-  | QueuesMcp
-  | ResearchMcp
-  | SecretsMcp
-  | SsgMcp
-  | UmsMcp
-
-/// Convert a cartridge variant to its wire-format string name.
-/// This is the ONLY place where cartridge name strings should exist.
-let cartridgeToString = (c: cartridgeId): string =>
-  switch c {
-  | AgentMcp => "agent-mcp"
-  | BspMcp => "bsp-mcp"
-  | CloudMcp => "cloud-mcp"
-  | CommsMcp => "comms-mcp"
-  | ContainerMcp => "container-mcp"
-  | DapMcp => "dap-mcp"
-  | DatabaseMcp => "database-mcp"
-  | FeedbackMcp => "feedback-mcp"
-  | FleetMcp => "fleet-mcp"
-  | GitMcp => "git-mcp"
-  | IacMcp => "iac-mcp"
-  | K8sMcp => "k8s-mcp"
-  | LspMcp => "lsp-mcp"
-  | MlMcp => "ml-mcp"
-  | NesyMcp => "nesy-mcp"
-  | ObserveMcp => "observe-mcp"
-  | ProofMcp => "proof-mcp"
-  | QueuesMcp => "queues-mcp"
-  | ResearchMcp => "research-mcp"
-  | SecretsMcp => "secrets-mcp"
-  | SsgMcp => "ssg-mcp"
-  | UmsMcp => "ums-mcp"
-  }
-
-/// Parse a wire-format string back to a cartridge variant.
-/// Returns None for unknown cartridge names.
-let cartridgeFromString = (s: string): option<cartridgeId> =>
-  switch s {
-  | "agent-mcp" => Some(AgentMcp)
-  | "bsp-mcp" => Some(BspMcp)
-  | "cloud-mcp" => Some(CloudMcp)
-  | "comms-mcp" => Some(CommsMcp)
-  | "container-mcp" => Some(ContainerMcp)
-  | "dap-mcp" => Some(DapMcp)
-  | "database-mcp" => Some(DatabaseMcp)
-  | "feedback-mcp" => Some(FeedbackMcp)
-  | "fleet-mcp" => Some(FleetMcp)
-  | "git-mcp" => Some(GitMcp)
-  | "iac-mcp" => Some(IacMcp)
-  | "k8s-mcp" => Some(K8sMcp)
-  | "lsp-mcp" => Some(LspMcp)
-  | "ml-mcp" => Some(MlMcp)
-  | "nesy-mcp" => Some(NesyMcp)
-  | "observe-mcp" => Some(ObserveMcp)
-  | "proof-mcp" => Some(ProofMcp)
-  | "queues-mcp" => Some(QueuesMcp)
-  | "research-mcp" => Some(ResearchMcp)
-  | "secrets-mcp" => Some(SecretsMcp)
-  | "ssg-mcp" => Some(SsgMcp)
-  | "ums-mcp" => Some(UmsMcp)
-  | _ => None
-  }
-
-/// Security tier. Shield cartridges require elevated trust.
-type tier = Teranga | Shield | Ayo
-
-/// Get the tier for a cartridge.
-let cartridgeTier = (c: cartridgeId): tier =>
-  switch c {
-  | ProofMcp | SecretsMcp | UmsMcp => Shield
-  | _ => Teranga
-  }
-
-/// Tool identifiers per cartridge. Each module below contains only the tools
-/// that the specific cartridge exposes — calling a tool on the wrong cartridge
-/// is a compile-time error because the types don't unify.
-
-/// Agent OODA loop tools.
-type agentTool =
-  | NewSession
-  | EndSession
-  | GetSession
-  | Transition
-  | Advance
-  | Halt
-  | Validate
-  | Reset
-  | ToolCallInfo
-  | SafetyCheckInfo
-  | CoordinationInfo
-
-let agentToolToString = (t: agentTool): string =>
-  switch t {
-  | NewSession => "new_session"
-  | EndSession => "end_session"
-  | GetSession => "get_session"
-  | Transition => "transition"
-  | Advance => "advance"
-  | Halt => "halt"
-  | Validate => "validate"
-  | Reset => "reset"
-  | ToolCallInfo => "tool_call_info"
-  | SafetyCheckInfo => "safety_check_info"
-  | CoordinationInfo => "coordination_info"
-  }
-
-/// BSP build server tools.
-type bspTool =
-  | CreateSession
-  | Initialize
-  | Ready
-  | Build
-  | BuildDone
-  | Shutdown
-  | Exit
-  | GetState
-  | AddTarget
-  | RegisterCapability
-
-let bspToolToString = (t: bspTool): string =>
-  switch t {
-  | CreateSession => "create_session"
-  | Initialize => "initialize"
-  | Ready => "ready"
-  | Build => "build"
-  | BuildDone => "build_done"
-  | Shutdown => "shutdown"
-  | Exit => "exit"
-  | GetState => "get_state"
-  | AddTarget => "add_target"
-  | RegisterCapability => "register_capability"
-  }
-
-/// Cloud provider tools.
-type cloudTool = Authenticate | Logout | GetState | BeginOperation | EndOperation | Reset
-
-let cloudToolToString = (t: cloudTool): string =>
-  switch t {
-  | Authenticate => "authenticate"
-  | Logout => "logout"
-  | GetState => "get_state"
-  | BeginOperation => "begin_operation"
-  | EndOperation => "end_operation"
-  | Reset => "reset"
-  }
-
-/// Communications tools (Gmail, Calendar).
-type commsTool = Authenticate | Logout | GetState | BeginOperation | EndOperation | Reset
-
-let commsToolToString = (t: commsTool): string =>
-  switch t {
-  | Authenticate => "authenticate"
-  | Logout => "logout"
-  | GetState => "get_state"
-  | BeginOperation => "begin_operation"
-  | EndOperation => "end_operation"
-  | Reset => "reset"
-  }
-
-/// Container management tools.
-type containerTool = BuildImage | Create | Start | Stop | Remove | GetState | Reset
-
-let containerToolToString = (t: containerTool): string =>
-  switch t {
-  | BuildImage => "build_image"
-  | Create => "create"
-  | Start => "start"
-  | Stop => "stop"
-  | Remove => "remove"
-  | GetState => "get_state"
-  | Reset => "reset"
-  }
-
-/// DAP debug adapter tools.
-type dapTool =
-  | CreateSession
-  | Launch
-  | Configure
-  | Continue
-  | Stopped
-  | Terminate
-  | Disconnect
-  | GetState
-  | AddBreakpoint
-
-let dapToolToString = (t: dapTool): string =>
-  switch t {
-  | CreateSession => "create_session"
-  | Launch => "launch"
-  | Configure => "configure"
-  | Continue => "continue"
-  | Stopped => "stopped"
-  | Terminate => "terminate"
-  | Disconnect => "disconnect"
-  | GetState => "get_state"
-  | AddBreakpoint => "add_breakpoint"
-  }
-
-/// Database tools (SQLite, VeriSimDB, PostgreSQL).
-type databaseTool =
-  | Connect
-  | ConnectSqlite
-  | ConnectVerisimdb
-  | Disconnect
-  | ExecuteSql
-  | ExecuteVcl
-  | GetState
-  | Reset
-
-let databaseToolToString = (t: databaseTool): string =>
-  switch t {
-  | Connect => "connect"
-  | ConnectSqlite => "connect_sqlite"
-  | ConnectVerisimdb => "connect_verisimdb"
-  | Disconnect => "disconnect"
-  | ExecuteSql => "execute_sql"
-  | ExecuteVcl => "execute_vcl"
-  | GetState => "get_state"
-  | Reset => "reset"
-  }
-
-/// Feedback collection tools.
-type feedbackTool = RegisterChannel | SubmitFeedback | GetSentiment | Deregister | Reset
-
-let feedbackToolToString = (t: feedbackTool): string =>
-  switch t {
-  | RegisterChannel => "register_channel"
-  | SubmitFeedback => "submit_feedback"
-  | GetSentiment => "get_sentiment"
-  | Deregister => "deregister"
-  | Reset => "reset"
-  }
-
-/// Fleet (gitbot-fleet) tools.
-type fleetTool = GetStatus | RecordGate | Reset
-
-let fleetToolToString = (t: fleetTool): string =>
-  switch t {
-  | GetStatus => "get_status"
-  | RecordGate => "record_gate"
-  | Reset => "reset"
-  }
-
-/// Git/VCS tools.
-type gitTool =
-  | Authenticate
-  | SelectRepo
-  | BeginOperation
-  | EndOperation
-  | Logout
-  | GetState
-  | Reset
-
-let gitToolToString = (t: gitTool): string =>
-  switch t {
-  | Authenticate => "authenticate"
-  | SelectRepo => "select_repo"
-  | BeginOperation => "begin_operation"
-  | EndOperation => "end_operation"
-  | Logout => "logout"
-  | GetState => "get_state"
-  | Reset => "reset"
-  }
-
-/// Infrastructure as Code tools.
-type iacTool = InitWorkspace | Plan | Apply | Destroy | GetState | Reset
-
-let iacToolToString = (t: iacTool): string =>
-  switch t {
-  | InitWorkspace => "init_workspace"
-  | Plan => "plan"
-  | Apply => "apply"
-  | Destroy => "destroy"
-  | GetState => "get_state"
-  | Reset => "reset"
-  }
-
-/// Kubernetes tools.
-type k8sTool =
-  | Connect
-  | SelectNamespace
-  | BeginOperation
-  | EndOperation
-  | Disconnect
-  | GetState
-  | Reset
-
-let k8sToolToString = (t: k8sTool): string =>
-  switch t {
-  | Connect => "connect"
-  | SelectNamespace => "select_namespace"
-  | BeginOperation => "begin_operation"
-  | EndOperation => "end_operation"
-  | Disconnect => "disconnect"
-  | GetState => "get_state"
-  | Reset => "reset"
-  }
-
-/// LSP language server tools.
-type lspTool =
-  | CreateSession
-  | Initialize
-  | Initialized
-  | Shutdown
-  | Exit
-  | GetState
-  | RegisterCapability
-
-let lspToolToString = (t: lspTool): string =>
-  switch t {
-  | CreateSession => "create_session"
-  | Initialize => "initialize"
-  | Initialized => "initialized"
-  | Shutdown => "shutdown"
-  | Exit => "exit"
-  | GetState => "get_state"
-  | RegisterCapability => "register_capability"
-  }
-
-/// ML/AI tools (HuggingFace).
-type mlTool = Authenticate | Logout | GetState | BeginOperation | EndOperation | Reset
-
-let mlToolToString = (t: mlTool): string =>
-  switch t {
-  | Authenticate => "authenticate"
-  | Logout => "logout"
-  | GetState => "get_state"
-  | BeginOperation => "begin_operation"
-  | EndOperation => "end_operation"
-  | Reset => "reset"
-  }
-
-/// NeSy neurosymbolic reasoning tools.
-type nesyTool = Harmonize | AnalyzeDrift | ReasoningModeInfo
-
-let nesyToolToString = (t: nesyTool): string =>
-  switch t {
-  | Harmonize => "harmonize"
-  | AnalyzeDrift => "analyze_drift"
-  | ReasoningModeInfo => "reasoning_mode_info"
-  }
-
-/// Observability tools (Prometheus, Grafana, Loki, Jaeger).
-type observeTool = RegisterSource | BeginQuery | EndQuery | Unregister | GetState | Reset
-
-let observeToolToString = (t: observeTool): string =>
-  switch t {
-  | RegisterSource => "register_source"
-  | BeginQuery => "begin_query"
-  | EndQuery => "end_query"
-  | Unregister => "unregister"
-  | GetState => "get_state"
-  | Reset => "reset"
-  }
-
-/// Proof assistant tools (Z3, CVC5, Lean, Coq, Agda, Isabelle, Idris2).
-type proofTool =
-  | InitSession
-  | LoadObligation
-  | Verify
-  | GetResult
-  | GetState
-  | ResetSession
-  | ResetAll
-
-let proofToolToString = (t: proofTool): string =>
-  switch t {
-  | InitSession => "init_session"
-  | LoadObligation => "load_obligation"
-  | Verify => "verify"
-  | GetResult => "get_result"
-  | GetState => "get_state"
-  | ResetSession => "reset_session"
-  | ResetAll => "reset_all"
-  }
-
-/// Message queue tools (NATS, RabbitMQ, RedisStream).
-type queuesTool =
-  | Connect
-  | Subscribe
-  | BeginConsume
-  | Ack
-  | Publish
-  | Unsubscribe
-  | Disconnect
-  | GetState
-  | Reset
-
-let queuesToolToString = (t: queuesTool): string =>
-  switch t {
-  | Connect => "connect"
-  | Subscribe => "subscribe"
-  | BeginConsume => "begin_consume"
-  | Ack => "ack"
-  | Publish => "publish"
-  | Unsubscribe => "unsubscribe"
-  | Disconnect => "disconnect"
-  | GetState => "get_state"
-  | Reset => "reset"
-  }
-
-/// Academic research tools (Semantic Scholar, OpenAlex).
-type researchTool = Authenticate | Logout | GetState | BeginOperation | EndOperation | Reset
-
-let researchToolToString = (t: researchTool): string =>
-  switch t {
-  | Authenticate => "authenticate"
-  | Logout => "logout"
-  | GetState => "get_state"
-  | BeginOperation => "begin_operation"
-  | EndOperation => "end_operation"
-  | Reset => "reset"
-  }
-
-/// Secret management tools (Vault, SOPS, EnvVault).
-type secretsTool = Unseal | Authenticate | BeginAccess | EndAccess | Seal | GetState | Reset
-
-let secretsToolToString = (t: secretsTool): string =>
-  switch t {
-  | Unseal => "unseal"
-  | Authenticate => "authenticate"
-  | BeginAccess => "begin_access"
-  | EndAccess => "end_access"
-  | Seal => "seal"
-  | GetState => "get_state"
-  | Reset => "reset"
-  }
-
-/// Static site generation tools (Hugo, Zola, Astro, Casket).
-type ssgTool = LoadContent | BuildSite | Preview | ReadyDeploy | Deploy | Clean | GetState | Reset
-
-let ssgToolToString = (t: ssgTool): string =>
-  switch t {
-  | LoadContent => "load_content"
-  | BuildSite => "build_site"
-  | Preview => "preview"
-  | ReadyDeploy => "ready_deploy"
-  | Deploy => "deploy"
-  | Clean => "clean"
-  | GetState => "get_state"
-  | Reset => "reset"
-  }
-
-/// UMS level management tools.
-type umsTool =
-  | LoadLevel
-  | SaveLevel
-  | ValidateLevelAbi
-  | ListLevels
-  | ExportLevelConfig
-  | CreateProject
-  | OpenProject
-  | DeleteProject
-  | LoadTemplates
-  | InstantiateTemplate
-
-let umsToolToString = (t: umsTool): string =>
-  switch t {
-  | LoadLevel => "load_level"
-  | SaveLevel => "save_level"
-  | ValidateLevelAbi => "validate_level_abi"
-  | ListLevels => "list_levels"
-  | ExportLevelConfig => "export_level_config"
-  | CreateProject => "create_project"
-  | OpenProject => "open_project"
-  | DeleteProject => "delete_project"
-  | LoadTemplates => "load_templates"
-  | InstantiateTemplate => "instantiate_template"
-  }
-
-/// Unified cartridge invocation — a single sum type over all (cartridge, tool) pairs.
-/// This is what Update.res should use instead of raw string pairs.
-type invocation =
-  | Agent(agentTool)
-  | Bsp(bspTool)
-  | Cloud(cloudTool)
-  | Comms(commsTool)
-  | Container(containerTool)
-  | Dap(dapTool)
-  | Database(databaseTool)
-  | Feedback(feedbackTool)
-  | Fleet(fleetTool)
-  | Git(gitTool)
-  | Iac(iacTool)
-  | K8s(k8sTool)
-  | Lsp(lspTool)
-  | Ml(mlTool)
-  | Nesy(nesyTool)
-  | Observe(observeTool)
-  | Proof(proofTool)
-  | Queues(queuesTool)
-  | Research(researchTool)
-  | Secrets(secretsTool)
-  | Ssg(ssgTool)
-  | Ums(umsTool)
-
-/// Decompose a typed invocation into its wire-format (cartridge_name, tool_name) pair.
-/// This is the bridge between the type-safe world and the string-based BojCmd layer.
-let toWire = (inv: invocation): (string, string) =>
-  switch inv {
-  | Agent(t) => ("agent-mcp", agentToolToString(t))
-  | Bsp(t) => ("bsp-mcp", bspToolToString(t))
-  | Cloud(t) => ("cloud-mcp", cloudToolToString(t))
-  | Comms(t) => ("comms-mcp", commsToolToString(t))
-  | Container(t) => ("container-mcp", containerToolToString(t))
-  | Dap(t) => ("dap-mcp", dapToolToString(t))
-  | Database(t) => ("database-mcp", databaseToolToString(t))
-  | Feedback(t) => ("feedback-mcp", feedbackToolToString(t))
-  | Fleet(t) => ("fleet-mcp", fleetToolToString(t))
-  | Git(t) => ("git-mcp", gitToolToString(t))
-  | Iac(t) => ("iac-mcp", iacToolToString(t))
-  | K8s(t) => ("k8s-mcp", k8sToolToString(t))
-  | Lsp(t) => ("lsp-mcp", lspToolToString(t))
-  | Ml(t) => ("ml-mcp", mlToolToString(t))
-  | Nesy(t) => ("nesy-mcp", nesyToolToString(t))
-  | Observe(t) => ("observe-mcp", observeToolToString(t))
-  | Proof(t) => ("proof-mcp", proofToolToString(t))
-  | Queues(t) => ("queues-mcp", queuesToolToString(t))
-  | Research(t) => ("research-mcp", researchToolToString(t))
-  | Secrets(t) => ("secrets-mcp", secretsToolToString(t))
-  | Ssg(t) => ("ssg-mcp", ssgToolToString(t))
-  | Ums(t) => ("ums-mcp", umsToolToString(t))
-  }
-
-/// Total cartridge count. Must match BoJ server's catalogue count.
-/// Seam test validates this at build time.
-let cartridgeCount = 22
-
-/// Total tool count across all cartridges.
-let toolCount = 162
diff --git a/src/model/AccessibilityModel.affine b/src/model/AccessibilityModel.affine
new file mode 100644
index 00000000..274e8ac0
--- /dev/null
+++ b/src/model/AccessibilityModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AccessibilityModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/AccessibilityModel.res b/src/model/AccessibilityModel.res
deleted file mode 100644
index b4585464..00000000
--- a/src/model/AccessibilityModel.res
+++ /dev/null
@@ -1,90 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Accessibility Model — types for the accessibility toolbar and preferences.
-///
-/// Centralises all accessibility-related state that was previously scattered
-/// across Provenance (palette) and CSS-only media queries (reduced motion,
-/// high contrast). Provides explicit user-controlled toggles that complement
-/// (and can override) OS-level preferences.
-///
-/// Controls:
-///   - Colour palette: Standard, Deuteranopia, Protanopia, High Contrast
-///   - Animation: On, Reduced, Off (overrides prefers-reduced-motion)
-///   - Font size: Small, Medium, Large, Extra Large
-///   - Focus indicators: Default, High Contrast, Thick, Dotted
-///
-/// The toolbar renders in the top bar area, consolidating accessibility
-/// controls into a single discoverable location.
-///
-/// Dependency: imports ProvenanceModel for accessibilityPalette type only.
-
-/// Theme mode controlling light/dark appearance.
-/// System follows the OS prefers-color-scheme media query.
-type themeMode =
-  /// Dark background with light text (PanLL default).
-  | ThemeDark
-  /// Light background with dark text.
-  | ThemeLight
-  /// Follow the operating system's prefers-color-scheme setting.
-  | ThemeSystem
-
-/// Font size presets that apply globally via CSS class on the root element.
-/// Each preset maps to a CSS custom property or Tailwind text size modifier.
-type fontSizePreset =
-  /// 14px base — compact display for experienced users or small screens.
-  | FontSmall
-  /// 16px base — default comfortable reading size.
-  | FontMedium
-  /// 18px base — larger text for accessibility or preference.
-  | FontLarge
-  /// 20px base — maximum size for users with low vision.
-  | FontExtraLarge
-
-/// Animation preference that complements the OS-level prefers-reduced-motion.
-/// Users can explicitly override OS settings per-application.
-type animationPreference =
-  /// All animations and transitions run normally.
-  | AnimationsOn
-  /// Animations play but at reduced speed/frequency. Pulse effects are
-  /// slowed, transitions shortened. Maps to the same behaviour as
-  /// prefers-reduced-motion: reduce but user-controlled.
-  | AnimationsReduced
-  /// All animations and transitions are completely disabled.
-  /// Overrides even AnimationsOn if the user explicitly wants stillness.
-  | AnimationsOff
-
-/// Focus indicator style options for keyboard navigation visibility.
-/// Complements the existing :focus-visible CSS rules with user choice.
-type focusIndicatorStyle =
-  /// Default 2px indigo outline (standard PanLL style).
-  | FocusDefault
-  /// 3px black outline for maximum visibility against any background.
-  | FocusHighContrast
-  /// 4px indigo outline — same colour as default but thicker.
-  | FocusThick
-  /// 3px dotted outline — alternative visual style that some users
-  /// find easier to distinguish from borders.
-  | FocusDotted
-
-/// Root state for accessibility preferences.
-/// All fields are persisted to localStorage for cross-session continuity.
-type accessibilityState = {
-  /// Active colour palette applied globally to all trust indicators,
-  /// status dots, and colour-coded UI elements.
-  palette: ProvenanceModel.accessibilityPalette,
-  /// Light/dark/system theme mode.
-  theme: themeMode,
-  /// Animation preference — overrides OS setting when explicitly set.
-  animations: animationPreference,
-  /// Font size preset applied via CSS class on the root element.
-  fontSize: fontSizePreset,
-  /// Focus indicator style for keyboard navigation visibility.
-  focusStyle: focusIndicatorStyle,
-  /// Whether the accessibility toolbar is expanded (showing all controls)
-  /// or collapsed (showing just the accessibility icon).
-  toolbarExpanded: bool,
-  /// Resolved theme (Dark or Light) after evaluating System mode against
-  /// the OS preference. Updated by the subscription that watches
-  /// prefers-color-scheme changes.
-  resolvedTheme: themeMode,
-}
diff --git a/src/model/AerieModel.affine b/src/model/AerieModel.affine
new file mode 100644
index 00000000..1a9f7bd1
--- /dev/null
+++ b/src/model/AerieModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AerieModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/AerieModel.res b/src/model/AerieModel.res
deleted file mode 100644
index 88ec1948..00000000
--- a/src/model/AerieModel.res
+++ /dev/null
@@ -1,132 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Aerie Model — types for the network diagnostics panel.
-///
-/// Aerie provides network health monitoring, speed tests, latency/jitter
-/// measurement, BGP route analysis, and proof envelopes for network claims.
-/// Backend is a V-lang API gateway (GraphQL:4000, REST:4000).
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// A network probe target — an endpoint being monitored.
-type probeTarget = {
-  /// Endpoint URL or IP address.
-  endpoint: string,
-  /// Human-readable label.
-  label: string,
-  /// Protocol used for probing (ICMP, TCP, HTTP, DNS).
-  protocol: string,
-  /// Whether this target is actively being monitored.
-  active: bool,
-}
-
-/// A single latency measurement result.
-type latencyResult = {
-  /// Target endpoint.
-  endpoint: string,
-  /// Round-trip time in milliseconds.
-  rttMs: float,
-  /// Jitter (variation) in milliseconds.
-  jitterMs: float,
-  /// Packet loss percentage (0.0–100.0).
-  packetLoss: float,
-  /// Measurement timestamp (ISO 8601).
-  timestamp: string,
-}
-
-/// Speed test result (upload + download).
-type speedTestResult = {
-  /// Download speed in Mbps.
-  downloadMbps: float,
-  /// Upload speed in Mbps.
-  uploadMbps: float,
-  /// Latency to speed test server in ms.
-  pingMs: float,
-  /// Test server location.
-  serverLocation: string,
-  /// Test timestamp.
-  timestamp: string,
-}
-
-/// BGP route analysis entry.
-type bgpRoute = {
-  /// Destination prefix (e.g. "203.0.113.0/24").
-  prefix: string,
-  /// AS path as array of ASN numbers.
-  asPath: array<int>,
-  /// Next hop IP.
-  nextHop: string,
-  /// Whether this route is considered anomalous.
-  anomalous: bool,
-  /// Anomaly description (if anomalous).
-  anomalyDetail: option<string>,
-}
-
-/// Category tabs for the Aerie panel.
-type aerieCategory =
-  /// Health dashboard with latency gauges.
-  | AerieDashboard
-  /// Speed test results.
-  | AerieSpeedTests
-  /// BGP route analysis.
-  | AerieBgp
-  /// Probe configuration.
-  | AerieProbes
-
-/// MTU discovery result — path MTU vs interface MTU.
-type mtuResult = {
-  /// Network interface name (e.g. "wlp3s0").
-  interfaceName: string,
-  /// Interface MTU setting.
-  interfaceMtu: int,
-  /// Discovered path MTU (via PMTUD binary search).
-  pathMtu: int,
-  /// Whether the interface MTU exceeds the path MTU (mismatch).
-  mismatch: bool,
-  /// Measurement timestamp (ISO 8601).
-  timestamp: string,
-}
-
-/// Network interface summary — local interface diagnostics.
-type interfaceSummary = {
-  /// Interface name (e.g. "wlp3s0").
-  name: string,
-  /// Whether the interface is up.
-  isUp: bool,
-  /// IPv4 address (if assigned).
-  ipAddress: option<string>,
-  /// Link type: "wifi", "ethernet", "bluetooth", "loopback".
-  linkType: string,
-  /// Signal strength in dBm (WiFi only).
-  signalDbm: option<int>,
-  /// Connection name from NetworkManager.
-  connectionName: option<string>,
-}
-
-/// Root state for the Aerie panel.
-type aerieState = {
-  /// Whether data has been loaded.
-  loaded: bool,
-  /// Whether a measurement is in progress.
-  loading: bool,
-  /// Error from the last operation.
-  error: option<string>,
-  /// Configured probe targets.
-  probes: array<probeTarget>,
-  /// Recent latency measurements.
-  latencyResults: array<latencyResult>,
-  /// Recent speed test results.
-  speedTests: array<speedTestResult>,
-  /// BGP routes (if available).
-  bgpRoutes: array<bgpRoute>,
-  /// Active category tab.
-  activeCategory: aerieCategory,
-  /// Number of anomalous BGP routes detected.
-  bgpAnomalyCount: int,
-  /// MTU discovery result (from network ambulance or local probe).
-  mtuResult: option<mtuResult>,
-  /// Local interface summaries (from network ambulance).
-  interfaces: array<interfaceSummary>,
-  /// When true, overlay operations route through BoJ observe-mcp cartridge instead of direct HTTP.
-  bojRouting: bool,
-}
diff --git a/src/model/AgentCoordinationModel.affine b/src/model/AgentCoordinationModel.affine
new file mode 100644
index 00000000..da79fd68
--- /dev/null
+++ b/src/model/AgentCoordinationModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AgentCoordinationModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/AgentCoordinationModel.res b/src/model/AgentCoordinationModel.res
deleted file mode 100644
index 42d4cb37..00000000
--- a/src/model/AgentCoordinationModel.res
+++ /dev/null
@@ -1,101 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Agent Coordination View Model — types for multi-agent topology
-/// and coordination strategy management.
-///
-/// Displays agent nodes in a topology with their coordination strategies,
-/// memory types, and inter-agent relationships.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-// ============================================================================
-// Coordination Strategies
-// ============================================================================
-
-/// Multi-agent coordination strategy.
-type coordination =
-  /// Solo — single agent, no coordination needed.
-  | Solo
-  /// Pipeline — agents arranged in a sequential chain.
-  | Pipeline
-  /// Broadcast — one agent sends to all others.
-  | Broadcast
-  /// Consensus — agents must agree before proceeding.
-  | Consensus
-  /// Hierarchy — tree-shaped delegation with a root coordinator.
-  | Hierarchy
-  /// Swarm — decentralised, agents self-organise.
-  | Swarm
-
-// ============================================================================
-// Memory Types
-// ============================================================================
-
-/// Type of memory available to an agent node.
-type memoryType =
-  /// Ephemeral — in-memory only, lost on restart.
-  | Ephemeral
-  /// Session — persists for the duration of an OODA session.
-  | Session
-  /// Persistent — survives across sessions (disk/database).
-  | Persistent
-  /// Shared — accessible by multiple agents simultaneously.
-  | Shared
-  /// Immutable — write-once append-only log.
-  | Immutable
-
-// ============================================================================
-// Agent Nodes and Topology
-// ============================================================================
-
-/// Agent operational state within the topology.
-type agentNodeState =
-  /// Active — agent is running and responsive.
-  | Active
-  /// Idle — agent is registered but not currently executing.
-  | Idle
-  /// Disconnected — agent is unreachable.
-  | Disconnected
-  /// Error — agent has encountered a fault.
-  | NodeError
-
-/// A single agent node in the coordination topology.
-type agentNode = {
-  /// Unique node identifier.
-  id: string,
-  /// Human-readable agent name.
-  name: string,
-  /// Current operational state.
-  state: agentNodeState,
-  /// Coordination strategy this agent participates in.
-  strategy: coordination,
-  /// Memory types available to this agent.
-  memoryTypes: array<memoryType>,
-}
-
-/// An edge connecting two agent nodes in the topology.
-type topologyEdge = {
-  /// Source agent node id.
-  fromId: string,
-  /// Target agent node id.
-  toId: string,
-  /// Label describing the relationship (e.g., "delegates", "broadcasts").
-  label: string,
-}
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Top-level state for the Agent Coordination View panel.
-type agentCoordinationState = {
-  /// All agent nodes in the topology.
-  nodes: array<agentNode>,
-  /// Edges connecting agent nodes.
-  edges: array<topologyEdge>,
-  /// Currently selected coordination strategy for overview.
-  selectedStrategy: option<coordination>,
-  /// Whether topology data is being loaded.
-  loading: bool,
-}
diff --git a/src/model/AgentOodaModel.affine b/src/model/AgentOodaModel.affine
new file mode 100644
index 00000000..53b89ce4
--- /dev/null
+++ b/src/model/AgentOodaModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AgentOodaModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/AgentOodaModel.res b/src/model/AgentOodaModel.res
deleted file mode 100644
index 303fccac..00000000
--- a/src/model/AgentOodaModel.res
+++ /dev/null
@@ -1,92 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL OODA Session Monitor Model — types for tracking agent OODA loop
-/// lifecycles.
-///
-/// Tracks Observe/Orient/Decide/Act/Halted states for multiple concurrent
-/// agent sessions, with loop counting, health indicators, and manual
-/// advance/halt controls.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-// ============================================================================
-// Agent State Machine
-// ============================================================================
-
-/// State of an agent within its OODA decision loop.
-type agentState =
-  /// Observe — agent is gathering information from the environment.
-  | Observing
-  /// Orient — agent is interpreting observations and building context.
-  | Orienting
-  /// Decide — agent is selecting the next action.
-  | Deciding
-  /// Act — agent is executing the chosen action.
-  | Acting
-  /// Halted — agent has been manually stopped or encountered an error.
-  | Halted
-
-// ============================================================================
-// Session Types
-// ============================================================================
-
-/// A single OODA session representing one agent's lifecycle.
-type oodaSession = {
-  /// Unique session identifier.
-  id: string,
-  /// Human-readable agent name (e.g., "rhodibot", "echidnabot").
-  agentName: string,
-  /// Current state in the OODA loop.
-  state: agentState,
-  /// Number of complete OODA loops executed so far.
-  loopCount: int,
-  /// Whether this session was halted (manually or by error).
-  wasHalted: bool,
-  /// ISO 8601 timestamp of session creation.
-  startedAt: string,
-  /// ISO 8601 timestamp of last state transition.
-  lastTransition: string,
-  /// Optional error message if the session was halted due to an error.
-  haltReason: option<string>,
-}
-
-/// A single state transition in a session's history.
-type stateTransition = {
-  /// State before the transition.
-  fromState: agentState,
-  /// State after the transition.
-  toState: agentState,
-  /// ISO 8601 timestamp of the transition.
-  timestamp: string,
-  /// Duration in milliseconds from the previous transition.
-  durationMs: float,
-}
-
-/// Detailed view of a single session, including transition history.
-type sessionDetail = {
-  /// The session itself.
-  session: oodaSession,
-  /// Chronological list of state transitions.
-  transitions: array<stateTransition>,
-  /// Average time per OODA loop in milliseconds.
-  avgLoopMs: float,
-  /// Total elapsed time in milliseconds.
-  totalElapsedMs: float,
-}
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Top-level state for the OODA Session Monitor panel.
-type agentOodaState = {
-  /// All active OODA sessions.
-  sessions: array<oodaSession>,
-  /// Currently selected session for detail view (by id).
-  selectedSessionId: option<string>,
-  /// Detail data for the selected session.
-  selectedDetail: option<sessionDetail>,
-  /// Whether a refresh is in progress.
-  loading: bool,
-}
diff --git a/src/model/AgentSafetyModel.affine b/src/model/AgentSafetyModel.affine
new file mode 100644
index 00000000..920472ab
--- /dev/null
+++ b/src/model/AgentSafetyModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AgentSafetyModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/AgentSafetyModel.res b/src/model/AgentSafetyModel.res
deleted file mode 100644
index a7adb91d..00000000
--- a/src/model/AgentSafetyModel.res
+++ /dev/null
@@ -1,107 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Agent Safety Gate Model — types for tool call safety review
-/// and approval queuing.
-///
-/// Tracks agent tool calls against safety policies, queues dangerous
-/// operations for human approval, and maintains approval/denial history
-/// with aggregate statistics.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-// ============================================================================
-// Tool Call Classification
-// ============================================================================
-
-/// Category of tool call an agent is attempting.
-type toolCall =
-  /// Read-only file system access.
-  | FileRead
-  /// File system write or modification.
-  | FileWrite
-  /// Network request (HTTP, WebSocket, etc.).
-  | NetworkRequest
-  /// Shell command execution.
-  | ShellExec
-  /// Database query or mutation.
-  | DatabaseOp
-  /// External API invocation (third-party service).
-  | ExternalApi
-
-/// Outcome of a safety check on a tool call.
-type safetyCheck =
-  /// Automatically approved — tool call is safe.
-  | AutoApproved
-  /// Queued for human review — tool call has potential side effects.
-  | PendingReview
-  /// Approved by human reviewer.
-  | HumanApproved
-  /// Denied by human reviewer.
-  | HumanDenied
-  /// Escalated to a higher authority (e.g., admin).
-  | Escalated
-  /// Blocked by policy — tool call is explicitly forbidden.
-  | PolicyBlocked
-
-// ============================================================================
-// Safety Events
-// ============================================================================
-
-/// A single safety event representing a tool call and its outcome.
-type safetyEvent = {
-  /// Unique event identifier.
-  id: string,
-  /// ISO 8601 timestamp of the event.
-  timestamp: string,
-  /// The type of tool call attempted.
-  toolCall: toolCall,
-  /// The safety check outcome.
-  outcome: safetyCheck,
-  /// Identifier of the agent that made the tool call.
-  agentId: string,
-  /// OODA session identifier, if applicable.
-  sessionId: string,
-  /// Human-readable description of the tool call.
-  description: string,
-  /// The specific resource being accessed (file path, URL, command, etc.).
-  resource: string,
-}
-
-// ============================================================================
-// Statistics
-// ============================================================================
-
-/// Aggregate safety statistics.
-type safetyStats = {
-  /// Total events processed.
-  totalEvents: int,
-  /// Auto-approved events count.
-  autoApproved: int,
-  /// Human-approved events count.
-  humanApproved: int,
-  /// Denied events count.
-  denied: int,
-  /// Escalated events count.
-  escalated: int,
-  /// Policy-blocked events count.
-  policyBlocked: int,
-  /// Currently pending review count.
-  pendingCount: int,
-}
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Top-level state for the Agent Safety Gate panel.
-type agentSafetyState = {
-  /// Events pending human review (approve/deny queue).
-  pendingEvents: array<safetyEvent>,
-  /// Historical safety events (newest first).
-  historyEvents: array<safetyEvent>,
-  /// Aggregate safety statistics.
-  stats: safetyStats,
-  /// Whether a refresh is in progress.
-  loading: bool,
-}
diff --git a/src/model/AgenticBridgeModel.affine b/src/model/AgenticBridgeModel.affine
new file mode 100644
index 00000000..4503ac75
--- /dev/null
+++ b/src/model/AgenticBridgeModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AgenticBridgeModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/AgenticBridgeModel.res b/src/model/AgenticBridgeModel.res
deleted file mode 100644
index aa1e6655..00000000
--- a/src/model/AgenticBridgeModel.res
+++ /dev/null
@@ -1,159 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Agentic Bridge Model — connects AI agent orchestration to IDApTIK
-/// game development. Bridges PanLL's agentic testing framework with game
-/// exploration, OODA-loop agent execution, and automated quality assurance.
-///
-/// Three-panel model (L/N/W):
-///   L: Test agent parameters (speed, thoroughness, random seed)
-///   N: AI agent OODA loop — Observe, Orient, Decide, Act phase tracking
-///   W: Agent execution results, findings, and coverage reports
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-// ============================================================================
-// Tab Navigation
-// ============================================================================
-
-/// Category tabs for the Agentic Bridge panel.
-type agenticBridgeTab =
-  /// Agents — browse and manage test agents.
-  | Agents
-  /// Config — configure agent parameters and strategies.
-  | Config
-  /// Execution — monitor running agent OODA loops.
-  | Execution
-  /// Results — view findings, coverage, and quality reports.
-  | Results
-
-// ============================================================================
-// OODA Loop
-// ============================================================================
-
-/// Phase in the OODA (Observe-Orient-Decide-Act) decision loop.
-/// Each test agent cycles through these phases during game exploration.
-/// Alias for PaneModel.oodaPhase (shared type, included first in Model.res).
-type agenticOodaPhase = PaneModel.oodaPhase
-
-// ============================================================================
-// Agent Status and Actions
-// ============================================================================
-
-/// Operational status of a test agent.
-type agentStatus =
-  /// Idle — agent is configured but not running.
-  | AgentIdle
-  /// Running — agent is actively exploring the game.
-  | AgentRunning
-  /// Paused — agent execution is suspended.
-  | AgentPaused
-  /// Completed — agent finished its exploration run.
-  | AgentCompleted
-  /// Failed — agent encountered a fatal error.
-  | AgentFailed
-
-/// Severity of a finding discovered by a test agent.
-type findingSeverity =
-  /// Critical — game-breaking issue (crash, data loss).
-  | FindingCritical
-  /// Major — significant gameplay issue.
-  | FindingMajor
-  /// Minor — cosmetic or low-impact issue.
-  | FindingMinor
-  /// Observation — informational note, not necessarily a bug.
-  | FindingObservation
-
-/// An action performed by a test agent during execution.
-type agentAction = {
-  /// Action timestamp (milliseconds since agent start).
-  timestampMs: float,
-  /// OODA phase during which this action occurred.
-  phase: agenticOodaPhase,
-  /// Description of the action taken.
-  description: string,
-  /// Game state path affected by this action.
-  targetPath: string,
-}
-
-/// A finding discovered by a test agent during exploration.
-type agentFinding = {
-  /// Unique finding identifier.
-  id: string,
-  /// Severity of this finding.
-  severity: findingSeverity,
-  /// Short summary of the finding.
-  summary: string,
-  /// Detailed description of the issue.
-  detail: string,
-  /// Game state path where the finding was observed.
-  location: string,
-  /// Steps to reproduce (action descriptions).
-  reproSteps: array<string>,
-}
-
-/// A test agent instance with its execution state and results.
-type testAgent = {
-  /// Unique agent identifier.
-  id: string,
-  /// Human-readable agent name (e.g., "ExplorerBot", "StressTester").
-  name: string,
-  /// Current operational status.
-  status: agentStatus,
-  /// Current OODA phase.
-  oodaPhase: agenticOodaPhase,
-  /// Actions performed during execution.
-  actions: array<agentAction>,
-  /// Findings discovered during execution.
-  findings: array<agentFinding>,
-}
-
-// ============================================================================
-// Agent Configuration
-// ============================================================================
-
-/// Exploration strategy for a test agent.
-type explorationStrategy =
-  /// Random — agent makes random choices weighted by heuristics.
-  | StrategyRandom
-  /// Exhaustive — agent systematically explores all reachable states.
-  | StrategyExhaustive
-  /// Adversarial — agent deliberately tries to break the game.
-  | StrategyAdversarial
-  /// Replay — agent replays a recorded action sequence.
-  | StrategyReplay
-
-/// Configuration parameters for a test agent.
-type agentConfig = {
-  /// Unique config identifier matching an agent id.
-  agentId: string,
-  /// Execution speed multiplier (1.0 = real-time).
-  speed: float,
-  /// Thoroughness level (0.0 = quick scan, 1.0 = exhaustive).
-  thoroughness: float,
-  /// Random seed for reproducible exploration runs.
-  randomSeed: int,
-  /// Maximum number of OODA cycles before the agent stops.
-  maxCycles: int,
-  /// Exploration strategy.
-  strategy: explorationStrategy,
-}
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Root state for the Agentic Bridge panel.
-type agenticBridgeState = {
-  /// Active tab within the Agentic Bridge panel.
-  activeTab: agenticBridgeTab,
-  /// All registered test agents with their execution state.
-  agents: array<testAgent>,
-  /// Configuration for each agent.
-  agentConfigs: array<agentConfig>,
-  /// Whether any agent is currently running.
-  running: bool,
-  /// Currently selected agent identifier for detail view.
-  selectedAgent: option<string>,
-  /// Error from the last operation.
-  error: option<string>,
-}
diff --git a/src/model/AiModel.affine b/src/model/AiModel.affine
new file mode 100644
index 00000000..7ea3ce4f
--- /dev/null
+++ b/src/model/AiModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AiModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/AiModel.res b/src/model/AiModel.res
deleted file mode 100644
index da386eab..00000000
--- a/src/model/AiModel.res
+++ /dev/null
@@ -1,183 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL AI Model — leaf types for the multi-provider AI panel.
-///
-/// Provider-agnostic AI interface that speaks to any LLM backend (Anthropic,
-/// Google, Mistral, OpenAI, local Ollama). Each provider is a slot in a key
-/// ring with enable/disable, priority, and quota tracking.
-///
-/// Dependency: none (leaf module in the type DAG).
-
-/// Supported AI provider backends. Each has its own auth scheme, endpoint,
-/// and model catalog. The provider ID is the discriminant for routing
-/// messages through the correct HTTP client.
-type aiProviderId =
-  /// Anthropic (Claude) — x-api-key header, Messages API.
-  | Anthropic
-  /// Google (Gemini) — x-goog-api-key header, GenerativeLanguage API.
-  | Google
-  /// Mistral AI — Bearer token, Chat Completions API.
-  | Mistral
-  /// OpenAI (GPT) — Bearer token, Chat Completions API.
-  | OpenAI
-  /// Local models (Ollama) — no auth, localhost:11434.
-  | Local
-
-/// Per-provider configuration stored per-user (NOT per-repo).
-/// Lives in `~/.config/panll/ai-providers.json` so each co-developer
-/// has their own provider key ring.
-type aiProviderConfig = {
-  /// Which provider this configuration belongs to.
-  id: aiProviderId,
-  /// API key override. None = read from environment variable.
-  apiKey: option<string>,
-  /// Environment variable name holding the API key (e.g. "ANTHROPIC_API_KEY").
-  envVar: string,
-  /// Whether this provider is enabled. Toggle without losing the key.
-  enabled: bool,
-  /// Priority in the precedence chain (1 = first choice, 2 = fallback, etc.).
-  priority: int,
-  /// Currently selected model identifier (e.g. "claude-opus-4-6", "gemini-2.5-pro").
-  selectedModel: string,
-  /// Set to true when a 429 response is received — auto-fallthrough to next provider.
-  quotaExhausted: bool,
-}
-
-/// Provider operational status — distinct from config because this changes
-/// at runtime as health checks, quota probes, and messages complete.
-type aiProviderStatus =
-  /// Provider is configured, keyed, and responding.
-  | Ready
-  /// Health check in progress.
-  | Checking
-  /// 429 received — quota exhausted, waiting for reset.
-  | QuotaExhausted
-  /// Provider returned an error (non-429).
-  | AiProviderError(string)
-  /// User has disabled this provider (muted).
-  | Disabled
-  /// No API key configured and env var is empty.
-  | NoKey
-
-/// Role of a participant in the AI conversation.
-type aiRole =
-  /// Human operator message.
-  | User
-  /// AI assistant response.
-  | Assistant
-  /// System prompt (not shown in conversation, assembled from context).
-  | System
-
-/// A single message in the AI conversation stream.
-type aiMessage = {
-  /// Role of the message author.
-  role: aiRole,
-  /// The text content of the message.
-  content: string,
-  /// Which provider generated this response (None for user messages).
-  provider: option<aiProviderId>,
-  /// Which model generated this response (None for user messages).
-  model: option<string>,
-  /// Input tokens consumed (0 for user messages).
-  inputTokens: int,
-  /// Output tokens generated (0 for user messages).
-  outputTokens: int,
-  /// Unix timestamp in milliseconds.
-  timestamp: float,
-}
-
-/// Category tabs for the AI panel — each shows a different region
-/// of the three-region layout.
-type aiCategory =
-  /// Main conversation view with the message stream and input area.
-  | Conversation
-  /// System prompt editor — shows the assembled context and allows overrides.
-  | SystemPrompt
-  /// Provider management — enable/disable, priority, model selection, status.
-  | Providers
-  /// Context inspector — shows what repo data, panel state, and VoiceTags
-  /// are included in the system prompt.
-  | Context
-
-// ---------------------------------------------------------------------------
-// Streaming types — SSE streaming with tool_use for Claude Code integration
-// ---------------------------------------------------------------------------
-
-/// Tool call lifecycle states. Each tool call progresses through this
-/// state machine as streaming chunks arrive and the BoJ cartridge executes.
-type toolCallStatus =
-  /// Still receiving input_json_delta chunks from Claude.
-  | Accumulating
-  /// Input fully received, dispatched to BoJ cartridge for execution.
-  | Executing
-  /// BoJ cartridge returned a successful result.
-  | Completed(string)
-  /// BoJ cartridge returned an error.
-  | Failed(string)
-
-/// State of a single in-flight tool call during streaming.
-type toolCallState = {
-  /// The tool_use_id from Claude's content block.
-  id: string,
-  /// The tool name (maps to a BoJ cartridge tool).
-  name: string,
-  /// Incrementally accumulated JSON input from input_json_delta chunks.
-  mutable accumulatedInput: string,
-  /// Current lifecycle status.
-  mutable status: toolCallStatus,
-}
-
-/// A completed tool result ready to send back to Claude.
-type completedToolResult = {
-  /// The tool_use_id this result corresponds to.
-  id: string,
-  /// The tool's output content.
-  content: string,
-  /// Whether the tool execution failed.
-  isError: bool,
-}
-
-/// Streaming state tracked during an active SSE stream.
-/// Mutated in-place as chunks arrive for performance (token-level updates
-/// at high frequency).
-type streamingState = {
-  /// Whether a streaming session is currently active.
-  mutable active: bool,
-  /// Accumulated text from TextDelta chunks (the assistant's response so far).
-  mutable currentText: string,
-  /// Tool calls that are being accumulated or executed.
-  mutable pendingToolCalls: array<toolCallState>,
-  /// Tool results from completed BoJ cartridge invocations.
-  mutable completedToolResults: array<completedToolResult>,
-}
-
-/// Root state for the AI panel module.
-type aiState = {
-  /// Per-provider configurations (user's key ring).
-  providers: array<aiProviderConfig>,
-  /// Runtime status for each provider (health check results, quota state).
-  providerStatuses: array<(aiProviderId, aiProviderStatus)>,
-  /// Conversation history (user + assistant messages).
-  messages: array<aiMessage>,
-  /// Current input text in the message composer.
-  inputText: string,
-  /// Assembled system prompt (repo context + panel state + constraints).
-  systemPrompt: string,
-  /// Auto-generated context from repo SCM files, active panels, VoiceTags.
-  autoContext: string,
-  /// Whether a message is currently being sent/awaited.
-  loading: bool,
-  /// Active category tab in the AI panel.
-  activeCategory: aiCategory,
-  /// Broadcast mode: send to top N enabled providers simultaneously,
-  /// showing all responses side-by-side.
-  broadcastMode: bool,
-  /// Last error from a failed provider call.
-  error: option<string>,
-  /// Cumulative input tokens across all providers this session.
-  totalInputTokens: int,
-  /// Cumulative output tokens across all providers this session.
-  totalOutputTokens: int,
-  /// Streaming session state (active stream, accumulated text, pending tool calls).
-  streaming: streamingState,
-}
diff --git a/src/model/AmbientOpsModel.affine b/src/model/AmbientOpsModel.affine
new file mode 100644
index 00000000..cfc514e5
--- /dev/null
+++ b/src/model/AmbientOpsModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AmbientOpsModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/AmbientOpsModel.res b/src/model/AmbientOpsModel.res
deleted file mode 100644
index 5da02c32..00000000
--- a/src/model/AmbientOpsModel.res
+++ /dev/null
@@ -1,67 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL AmbientOps Model — hospital-model sysadmin operations state.
-///
-/// Integrates the AmbientOps framework: clinician (AI-assisted sysadmin),
-/// network ambulance (Ada/SPARK + bash diagnostics), hardware crash team
-/// (Rust GPU/PCIe diagnostics), emergency room (V intake), and observatory
-/// (Elixir metrics). Evidence Envelope pipeline for diagnostics and repairs.
-///
-/// This module has NO dependencies on other PanLL modules.
-
-/// AmbientOps department — mirrors the hospital model.
-type department =
-  | Clinician // AI-assisted sysadmin (Rust)
-  | NetworkAmbulance // Network diagnostics and repair (Ada/SPARK + bash)
-  | HardwareCrashTeam // Hardware diagnostics (Rust)
-  | EmergencyRoom // Panic-safe intake (V)
-  | AmbientObservatory // System weather and metrics (Elixir)
-
-/// Diagnostic severity from the Evidence Envelope.
-type diagnosticSeverity =
-  | Info
-  | Warning
-  | Error
-  | Critical
-
-/// A single diagnostic finding from an AmbientOps tool.
-type diagnosticFinding = {
-  /// Which department produced this finding.
-  department: department,
-  /// Severity level.
-  severity: diagnosticSeverity,
-  /// Short summary of the finding.
-  summary: string,
-  /// Detailed description.
-  detail: string,
-  /// Timestamp (ISO 8601).
-  timestamp: string,
-  /// Whether a repair is available for this finding.
-  repairAvailable: bool,
-}
-
-/// AmbientOps panel tabs.
-type ambientOpsTab =
-  | TabDashboard // Overview of all departments
-  | TabClinician // AI-assisted diagnostics
-  | TabNetwork // Network ambulance
-  | TabHardware // Hardware crash team
-  | TabEmergency // Emergency room intake
-
-/// Root state for the AmbientOps panel.
-type ambientOpsState = {
-  /// Active tab.
-  activeTab: ambientOpsTab,
-  /// Current findings from all departments.
-  findings: array<diagnosticFinding>,
-  /// Whether a diagnostic sweep is running.
-  scanning: bool,
-  /// Error from last scan.
-  error: option<string>,
-  /// Whether the clinician binary is available.
-  clinicianAvailable: bool,
-  /// Whether the network-repair tool is available.
-  networkRepairAvailable: bool,
-  /// Whether the hardware-crash-team binary is available.
-  hardwareCrashTeamAvailable: bool,
-}
diff --git a/src/model/ArchitectModeModel.affine b/src/model/ArchitectModeModel.affine
new file mode 100644
index 00000000..2b43d56c
--- /dev/null
+++ b/src/model/ArchitectModeModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ArchitectModeModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/ArchitectModeModel.res b/src/model/ArchitectModeModel.res
deleted file mode 100644
index c561893f..00000000
--- a/src/model/ArchitectModeModel.res
+++ /dev/null
@@ -1,137 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Architect Mode Model — types for the fine-grained PixiJS level
-/// editor with Layout / Nodes / Wiring three-panel architecture.
-///
-/// Provides entity placement, zone painting, wire connections, undo/redo,
-/// AI suggestions, grid snapping, and zoom/pan controls. This is the
-/// detailed editor counterpart to GeneratorMode's parametric approach.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// Editor tool currently selected in the canvas toolbar.
-type architectEditorTool =
-  /// Select and move existing entities or zones.
-  | SelectTool
-  /// Place a new entity of the given kind string.
-  | PlaceTool(string)
-  /// Erase entities or zones under the cursor.
-  | EraseTool
-  /// Draw wire connections between devices.
-  | WireTool
-  /// Paint security zones on the canvas.
-  | ZoneTool
-  /// Pan the canvas without modifying entities.
-  | PanTool
-
-/// An entity placed on the PixiJS canvas.
-type placedEntity = {
-  /// Unique identifier for this entity.
-  id: string,
-  /// Entity kind name (e.g., "Guard", "Camera", "Server").
-  kind: string,
-  /// X position on the canvas in world coordinates.
-  x: float,
-  /// Y position on the canvas in world coordinates.
-  y: float,
-  /// Rotation in degrees (0–360).
-  rotation: float,
-  /// Key-value properties for this entity instance.
-  properties: Dict.t<string>,
-  /// Whether this entity is currently selected.
-  selected: bool,
-}
-
-/// A security zone region painted on the canvas.
-type zoneRegion = {
-  /// Unique identifier for this zone.
-  id: string,
-  /// Human-readable zone name (e.g., "Server Room", "DMZ").
-  name: string,
-  /// Zone classification (e.g., "LAN", "DMZ", "SCADA", "Restricted").
-  zoneType: string,
-  /// Top-left X coordinate in world space.
-  x: float,
-  /// Top-left Y coordinate in world space.
-  y: float,
-  /// Width of the zone region.
-  width: float,
-  /// Height of the zone region.
-  height: float,
-  /// Security tier (0 = open, higher = more restricted).
-  securityTier: int,
-}
-
-/// An undoable action recorded in the undo stack.
-type undoAction =
-  /// An entity was placed (stores entity ID for removal).
-  | EntityPlaced(string)
-  /// An entity was moved (stores entity ID, previous x, previous y).
-  | EntityMoved(string, float, float)
-  /// An entity was deleted (stores full entity for restoration).
-  | EntityDeleted(placedEntity)
-  /// A zone was created (stores zone ID for removal).
-  | ZoneCreated(string)
-  /// A zone was resized (stores zone ID, previous x, y, width, height).
-  | ZoneResized(string, float, float, float, float)
-  /// A property was changed (stores entity ID, key, old value, new value).
-  | PropertyChanged(string, string, string, string)
-
-/// An AI-generated suggestion for entity placement or layout improvement.
-type aiSuggestion = {
-  /// Unique identifier for this suggestion.
-  id: string,
-  /// Human-readable description of what the AI suggests.
-  description: string,
-  /// Entities the AI recommends placing.
-  entities: array<placedEntity>,
-  /// Confidence score (0.0–1.0) for this suggestion.
-  confidence: float,
-  /// Whether the user has applied this suggestion.
-  applied: bool,
-}
-
-/// Category tabs for the Architect Mode panel.
-type architectModeCategory =
-  /// Main PixiJS canvas for entity and zone placement.
-  | Canvas
-  /// Properties inspector for the selected entity or zone.
-  | Properties
-  /// AI-generated layout suggestions.
-  | AiSuggestions
-  /// Level validation results and error list.
-  | Validation
-
-/// Root state for the Architect Mode panel.
-type architectModeState = {
-  /// Active category tab.
-  activeTab: architectModeCategory,
-  /// All entities placed on the canvas.
-  entities: array<placedEntity>,
-  /// All security zones painted on the canvas.
-  zones: array<zoneRegion>,
-  /// Currently selected editor tool.
-  selectedTool: architectEditorTool,
-  /// ID of the currently selected entity (if any).
-  selectedEntityId: option<string>,
-  /// Undo history stack.
-  undoStack: array<undoAction>,
-  /// Redo history stack.
-  redoStack: array<undoAction>,
-  /// AI-generated suggestions for the current layout.
-  aiSuggestions: array<aiSuggestion>,
-  /// Whether the grid overlay is visible.
-  gridVisible: bool,
-  /// Whether entity placement snaps to the grid.
-  snapToGrid: bool,
-  /// Grid cell size in pixels.
-  gridSize: int,
-  /// Current zoom level (1.0 = default).
-  zoom: float,
-  /// Horizontal pan offset in world coordinates.
-  panX: float,
-  /// Vertical pan offset in world coordinates.
-  panY: float,
-  /// Error message (if any).
-  error: option<string>,
-}
diff --git a/src/model/AssetManagerModel.affine b/src/model/AssetManagerModel.affine
new file mode 100644
index 00000000..db25b35c
--- /dev/null
+++ b/src/model/AssetManagerModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AssetManagerModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/AssetManagerModel.res b/src/model/AssetManagerModel.res
deleted file mode 100644
index 8b3a3218..00000000
--- a/src/model/AssetManagerModel.res
+++ /dev/null
@@ -1,90 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Asset Manager Model — types for managing PixiJS sprites, sounds,
-/// level templates, and other game assets.
-///
-/// Provides browsing, importing, tagging, and usage tracking for all
-/// asset types used in IDApTIK levels. Assets are organised into
-/// named collections and can be filtered by kind and tags.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// Classification of game asset types.
-type assetKind =
-  /// Single sprite image (PNG, WebP).
-  | Sprite
-  /// Sprite sheet with frame definitions.
-  | SpriteSheet
-  /// Sound effect (WAV, OGG).
-  | Sound
-  /// Background music track (OGG, MP3).
-  | Music
-  /// Font file (TTF, WOFF2).
-  | Font
-  /// Saved level template for reuse.
-  | LevelTemplate
-  /// Particle effect definition.
-  | ParticleEffect
-
-/// A single game asset with metadata and usage tracking.
-type gameAsset = {
-  /// Unique identifier for this asset.
-  id: string,
-  /// Human-readable asset name.
-  name: string,
-  /// Classification of this asset.
-  kind: assetKind,
-  /// Relative path to the asset file.
-  path: string,
-  /// File size in bytes.
-  sizeBytes: int,
-  /// Pixel dimensions for image assets (width, height); None for non-image.
-  dimensions: option<(int, int)>,
-  /// Tags for categorisation and search.
-  tags: array<string>,
-  /// IDs of levels that reference this asset.
-  usedInLevels: array<string>,
-  /// ISO 8601 timestamp of when the asset was imported.
-  importedAt: string,
-}
-
-/// A named collection of related assets.
-type assetCollection = {
-  /// Collection name (e.g., "Guard Sprites", "Ambient Sounds").
-  name: string,
-  /// Assets belonging to this collection.
-  assets: array<gameAsset>,
-  /// Human-readable description of the collection's purpose.
-  description: string,
-}
-
-/// Category tabs for the Asset Manager panel.
-type assetManagerCategory =
-  /// Browse and search all imported assets.
-  | Browse
-  /// Import new assets from disk.
-  | Import
-  /// Manage named asset collections.
-  | Collections
-  /// View asset usage across levels.
-  | Usage
-
-/// Root state for the Asset Manager panel.
-type assetManagerState = {
-  /// Active category tab.
-  activeTab: assetManagerCategory,
-  /// All imported game assets.
-  assets: array<gameAsset>,
-  /// Named asset collections.
-  collections: array<assetCollection>,
-  /// Current text filter for searching assets.
-  filter: string,
-  /// Filter by asset kind (None = show all).
-  kindFilter: option<assetKind>,
-  /// ID of the currently selected asset (if any).
-  selectedAsset: option<string>,
-  /// Whether an import operation is in progress.
-  importing: bool,
-  /// Error message (if any).
-  error: option<string>,
-}
diff --git a/src/model/AttributionLicenseModel.affine b/src/model/AttributionLicenseModel.affine
new file mode 100644
index 00000000..62f61ac9
--- /dev/null
+++ b/src/model/AttributionLicenseModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AttributionLicenseModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/AttributionLicenseModel.res b/src/model/AttributionLicenseModel.res
deleted file mode 100644
index 35015a3b..00000000
--- a/src/model/AttributionLicenseModel.res
+++ /dev/null
@@ -1,194 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Code MRI — Attribution-to-Licensing Model (Layer 4)
-///
-/// Types for linking code provenance (who wrote what) to licensing obligations.
-/// Layer 4 combines Layer 1 provenance data (git blame trust levels) with
-/// license metadata to detect licensing inconsistencies:
-///
-///   - AI-generated code in AGPL repos (attribution question)
-///   - Files missing SPDX headers
-///   - Third-party code without original license preserved
-///   - License conflicts between dependencies and project license
-///   - Co-authored code where licensing terms are ambiguous
-///
-/// This layer makes licensing visible and actionable rather than an afterthought.
-/// It integrates with Palimpsest Plaza for license management and the Code
-/// Provenance Map for trust-level data.
-///
-/// DESIGN NOTE: This is NOT a legal tool. It detects mismatches and flags them
-/// for human review. The system never makes licensing decisions autonomously.
-
-// ===========================================================================
-// License Types
-// ===========================================================================
-
-/// Known license families. Not exhaustive — CustomLicense covers everything else.
-type licenseFamiliy =
-  | PMPL         // Palimpsest License (hyperpolymath default)
-  | MPL2         // Mozilla Public License 2.0 (fallback)
-  | MIT
-  | Apache2
-  | BSD2
-  | BSD3
-  | GPL2
-  | GPL3
-  | AGPL3
-  | LGPL21
-  | ISC
-  | Unlicense
-  | CC0
-  | Proprietary
-  | CustomLicense(string)
-
-/// SPDX header status for a single file.
-type spdxStatus =
-  /// File has a valid SPDX-License-Identifier header.
-  | Present(string)
-  /// File has no SPDX header.
-  | Missing
-  /// File has a malformed SPDX header.
-  | Malformed(string)
-  /// File is binary or otherwise not applicable.
-  | NotApplicable
-
-/// Attribution clarity for a code region.
-type attributionClarity =
-  /// Single human author, clear ownership.
-  | ClearHuman
-  /// Human + AI co-authored, human reviewed.
-  | CoAuthoredReviewed
-  /// Human + AI co-authored, NOT yet reviewed.
-  | CoAuthoredUnreviewed
-  /// AI-only authorship, needs human sign-off for licensing.
-  | AiOnlyUnresolved
-  /// Third-party code with preserved original license.
-  | ThirdPartyPreserved
-  /// Third-party code with missing/unclear license.
-  | ThirdPartyUnclear
-  /// Unknown attribution.
-  | Unknown
-
-// ===========================================================================
-// Issue Types
-// ===========================================================================
-
-/// A detected licensing issue.
-type rec licenseIssue = {
-  /// Unique ID.
-  id: string,
-  /// File path relative to repo root.
-  file: string,
-  /// Line range (start, end) or None for whole-file issues.
-  lineRange: option<(int, int)>,
-  /// What the issue is.
-  kind: licenseIssueKind,
-  /// How severe this is.
-  severity: licenseSeverity,
-  /// Human-readable explanation.
-  description: string,
-  /// Suggested remediation.
-  suggestion: string,
-  /// Whether the developer has resolved this.
-  resolved: bool,
-}
-
-/// Categories of licensing issues.
-and licenseIssueKind =
-  /// SPDX header missing from source file.
-  | MissingSpdxHeader
-  /// SPDX header doesn't match project license.
-  | SpdxMismatch
-  /// AI-generated code in a license that requires clear attribution.
-  | AiAttributionGap
-  /// Third-party code without preserved original license.
-  | ThirdPartyLicenseMissing
-  /// Dependency license conflicts with project license.
-  | DependencyConflict(string)
-  /// Co-authored code where licensing terms are ambiguous.
-  | CoAuthorAmbiguity
-  /// File uses a deprecated/old license (e.g., AGPL instead of PMPL).
-  | DeprecatedLicense(string)
-
-/// Severity of licensing issues.
-and licenseSeverity =
-  | LicenseInfo        // Informational (e.g., "this file has no SPDX header but is config")
-  | LicenseWarning     // Should fix (e.g., missing SPDX on source file)
-  | LicenseCritical    // Must fix (e.g., license conflict, third-party without attribution)
-
-// ===========================================================================
-// Summary Types
-// ===========================================================================
-
-/// Per-file attribution + licensing summary.
-type fileLicenseSummary = {
-  /// File path.
-  path: string,
-  /// SPDX header status.
-  spdxStatus: spdxStatus,
-  /// Dominant attribution clarity.
-  attribution: attributionClarity,
-  /// Project license family.
-  projectLicense: licenseFamiliy,
-  /// Issues found for this file.
-  issues: array<licenseIssue>,
-}
-
-/// Codebase-wide licensing health score.
-type licensingHealth = {
-  /// Total files scanned.
-  totalFiles: int,
-  /// Files with valid SPDX headers.
-  filesWithSpdx: int,
-  /// Files with clear attribution.
-  filesClearAttribution: int,
-  /// Total issues (all severities).
-  totalIssues: int,
-  /// Critical issues only.
-  criticalIssues: int,
-  /// Health score 0.0-100.0 (higher = better).
-  healthScore: float,
-}
-
-// ===========================================================================
-// State
-// ===========================================================================
-
-/// Attribution-to-licensing state — included in the main Model.
-type attributionLicenseState = {
-  /// Per-file summaries (most recent scan).
-  fileSummaries: array<fileLicenseSummary>,
-  /// All detected issues.
-  issues: array<licenseIssue>,
-  /// Codebase health summary.
-  health: licensingHealth,
-  /// Whether the panel is expanded.
-  expanded: bool,
-  /// Filter: show resolved issues.
-  showResolved: bool,
-  /// Filter: minimum severity.
-  minSeverity: licenseSeverity,
-  /// Last scan timestamp.
-  lastScan: option<string>,
-  /// Scanning in progress.
-  scanning: bool,
-}
-
-/// Initial empty state.
-let init: attributionLicenseState = {
-  fileSummaries: [],
-  issues: [],
-  health: {
-    totalFiles: 0,
-    filesWithSpdx: 0,
-    filesClearAttribution: 0,
-    totalIssues: 0,
-    criticalIssues: 0,
-    healthScore: 0.0,
-  },
-  expanded: false,
-  showResolved: false,
-  minSeverity: LicenseInfo,
-  lastScan: None,
-  scanning: false,
-}
diff --git a/src/model/AutomationBridgeModel.affine b/src/model/AutomationBridgeModel.affine
new file mode 100644
index 00000000..ce58ad23
--- /dev/null
+++ b/src/model/AutomationBridgeModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AutomationBridgeModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/AutomationBridgeModel.res b/src/model/AutomationBridgeModel.res
deleted file mode 100644
index 8806297b..00000000
--- a/src/model/AutomationBridgeModel.res
+++ /dev/null
@@ -1,155 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Automation Bridge Model — connects CI/CD pipeline automation to
-/// IDApTIK game development. Bridges PanLL's build orchestration with game
-/// asset pipelines, deployment workflows, and build dependency reasoning.
-///
-/// Three-panel model (L/N/W):
-///   L: CI/CD pipeline rules, trigger conditions, build constraints
-///   N: Pipeline reasoning about build order and dependency resolution
-///   W: Build and deploy status dashboard with history
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-// ============================================================================
-// Tab Navigation
-// ============================================================================
-
-/// Category tabs for the Automation Bridge panel.
-type automationBridgeTab =
-  /// Pipelines — define and browse CI/CD pipelines.
-  | Pipelines
-  /// Triggers — configure pipeline trigger conditions.
-  | Triggers
-  /// Status — live build and deploy status dashboard.
-  | Status
-  /// History — historical build and deploy records.
-  | History
-
-// ============================================================================
-// Pipeline Domain
-// ============================================================================
-
-/// Status of a pipeline or pipeline step.
-type automationPipelineStatus =
-  /// Idle — pipeline has not been triggered.
-  | PipelineIdle
-  /// Queued — pipeline is waiting to start.
-  | PipelineQueued
-  /// Running — pipeline is currently executing.
-  | PipelineRunning
-  /// Succeeded — pipeline completed successfully.
-  | PipelineSucceeded
-  /// Failed — pipeline encountered an error.
-  | PipelineFailed
-  /// Cancelled — pipeline was manually cancelled.
-  | PipelineCancelled
-
-/// A single step within a CI/CD pipeline.
-type pipelineStep = {
-  /// Step identifier (unique within its pipeline).
-  id: string,
-  /// Human-readable step name (e.g., "Build Assets", "Run Tests").
-  name: string,
-  /// Command or action to execute.
-  command: string,
-  /// Current status of this step.
-  status: automationPipelineStatus,
-  /// Duration in milliseconds (if completed or running).
-  durationMs: option<float>,
-  /// Step output log (last N lines).
-  outputTail: string,
-}
-
-/// A CI/CD pipeline definition with its steps and status.
-type pipeline = {
-  /// Unique pipeline identifier.
-  id: string,
-  /// Human-readable pipeline name (e.g., "Game Build", "Asset Pack Deploy").
-  name: string,
-  /// Ordered steps in this pipeline.
-  steps: array<pipelineStep>,
-  /// Overall pipeline status (derived from step statuses).
-  status: automationPipelineStatus,
-  /// Total duration in milliseconds (if completed or running).
-  totalDurationMs: option<float>,
-}
-
-// ============================================================================
-// Trigger Conditions
-// ============================================================================
-
-/// Type of event that triggers a pipeline.
-type automationTriggerEvent =
-  /// Git push to a specified branch.
-  | TriggerPush
-  /// Pull request opened or updated.
-  | TriggerPullRequest
-  /// Tag created matching a pattern.
-  | TriggerTag
-  /// Scheduled cron trigger.
-  | TriggerSchedule
-  /// Manual trigger by a user.
-  | TriggerManual
-  /// File change in a watched path.
-  | TriggerFileChange
-
-/// A trigger condition that activates a pipeline.
-type trigger = {
-  /// Unique trigger identifier.
-  id: string,
-  /// The pipeline this trigger activates.
-  pipelineId: string,
-  /// Type of event that fires this trigger.
-  event: automationTriggerEvent,
-  /// Filter pattern (branch name, path glob, cron expression, etc.).
-  pattern: string,
-  /// Whether this trigger is currently enabled.
-  enabled: bool,
-  /// Human-readable description.
-  description: string,
-}
-
-// ============================================================================
-// Build History
-// ============================================================================
-
-/// A historical build record.
-type automationBuildEntry = {
-  /// Unique build identifier.
-  buildId: string,
-  /// Pipeline that produced this build.
-  pipelineId: string,
-  /// Pipeline name (denormalised for display).
-  pipelineName: string,
-  /// Final status of the build.
-  status: automationPipelineStatus,
-  /// Trigger event that started this build.
-  triggeredBy: automationTriggerEvent,
-  /// Git commit SHA associated with this build.
-  commitSha: string,
-  /// Start timestamp (milliseconds since epoch).
-  startedAt: float,
-  /// Total duration in milliseconds.
-  durationMs: float,
-}
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Root state for the Automation Bridge panel.
-type automationBridgeState = {
-  /// Active tab within the Automation Bridge panel.
-  activeTab: automationBridgeTab,
-  /// All registered pipelines.
-  pipelines: array<pipeline>,
-  /// All registered trigger conditions.
-  triggers: array<trigger>,
-  /// Historical build records (most recent first).
-  buildHistory: array<automationBuildEntry>,
-  /// Whether any pipeline is currently running.
-  running: bool,
-  /// Error from the last operation.
-  error: option<string>,
-}
diff --git a/src/model/AutomationRouterModel.affine b/src/model/AutomationRouterModel.affine
new file mode 100644
index 00000000..7df50b64
--- /dev/null
+++ b/src/model/AutomationRouterModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AutomationRouterModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/AutomationRouterModel.res b/src/model/AutomationRouterModel.res
deleted file mode 100644
index cf7844ca..00000000
--- a/src/model/AutomationRouterModel.res
+++ /dev/null
@@ -1,95 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Automation Router Model — types for cross-panel workflow
-/// orchestration via event-driven rules. The "hybrid" aspect means
-/// rules can fire automatically OR require human approval gates.
-
-/// Trigger event kinds.
-type triggerEvent =
-  | FileChanged(string)
-  | PanelMessage(string, string)
-  | Timer(int)
-  | Manual
-  | PanelStateChange(string, string)
-
-/// Condition for a rule to fire.
-type ruleCondition = {
-  panelId: string,
-  field: string,
-  operator: string,
-  value: string,
-}
-
-/// Action to dispatch when a rule fires.
-type ruleAction = {
-  panelId: string,
-  message: string,
-  args: array<(string, string)>,
-}
-
-/// Approval requirement for hybrid automation.
-type approvalMode =
-  | AutoFire
-  | RequireApproval
-  | ApproveOnce
-  | DryRunFirst
-
-/// An automation rule definition.
-type automationRule = {
-  id: string,
-  name: string,
-  description: string,
-  enabled: bool,
-  trigger: triggerEvent,
-  conditions: array<ruleCondition>,
-  actions: array<ruleAction>,
-  approval: approvalMode,
-  priority: string,
-  firedCount: int,
-  lastFired: option<float>,
-  lastResult: option<string>,
-}
-
-/// A pending action awaiting approval.
-type pendingAction = {
-  ruleId: string,
-  ruleName: string,
-  actions: array<ruleAction>,
-  triggeredAt: float,
-  triggerDetail: string,
-}
-
-/// An entry in the execution history.
-type executionLogEntry = {
-  ruleId: string,
-  ruleName: string,
-  triggeredAt: float,
-  completedAt: float,
-  success: bool,
-  detail: string,
-}
-
-/// Category tabs for the Automation Router panel.
-type automationRouterCategory =
-  | RouterDashboard
-  | RouterRules
-  | RouterPending
-  | RouterHistory
-  | RouterSettings
-
-/// Root state for the Automation Router panel.
-type automationRouterState = {
-  activeCategory: automationRouterCategory,
-  rules: array<automationRule>,
-  pendingActions: array<pendingAction>,
-  executionLog: array<executionLogEntry>,
-  globalEnabled: bool,
-  filterText: string,
-  showDisabled: bool,
-  editingRuleId: option<string>,
-  configSource: string,
-  loading: bool,
-  error: option<string>,
-  /// Route automation operations through BoJ's agent-mcp cartridge instead of direct Gossamer.
-  bojRouting: bool,
-}
diff --git a/src/model/BalanceAnalyserModel.affine b/src/model/BalanceAnalyserModel.affine
new file mode 100644
index 00000000..23500710
--- /dev/null
+++ b/src/model/BalanceAnalyserModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module BalanceAnalyserModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/BalanceAnalyserModel.res b/src/model/BalanceAnalyserModel.res
deleted file mode 100644
index a52c59cc..00000000
--- a/src/model/BalanceAnalyserModel.res
+++ /dev/null
@@ -1,153 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Balance Analyser Model — game balance statistical analysis and
-/// Monte Carlo simulation for IDApTIK level difficulty curves.
-///
-/// Validates game balance statistically by analysing guard spawn distributions,
-/// running Monte Carlo win-rate simulations, tracking difficulty curves across
-/// levels, and generating specific recommendations for parameter adjustments.
-///
-/// Clade: Inspector. This module has NO dependencies on other PanLL modules.
-
-// ============================================================================
-// Level Balance Statistics
-// ============================================================================
-
-/// Statistical summary of a single level's balance characteristics.
-type levelBalanceStats = {
-  /// Level identifier from the IDApTIK level system.
-  levelId: string,
-  /// Human-readable level name.
-  levelName: string,
-  /// Average guard spawn rate (guards per minute).
-  guardSpawnRate: float,
-  /// Guard alert threshold (0.0 = deaf, 1.0 = hyper-vigilant).
-  alertThreshold: float,
-  /// Computed overall difficulty score (0.0 = trivial, 1.0 = impossible).
-  difficultyScore: float,
-  /// Estimated player win rate from simulation (0.0 to 1.0).
-  estimatedWinRate: float,
-  /// Number of simulation runs contributing to these stats.
-  simulationRuns: int,
-  /// Outlier score — how far this level deviates from the expected curve.
-  outlierScore: float,
-}
-
-// ============================================================================
-// Distribution Analysis
-// ============================================================================
-
-/// A single data point in a distribution chart (histogram bucket).
-type distributionPoint = {
-  /// Bucket label (e.g., "0-10", "10-20").
-  bucket: string,
-  /// Number of observations in this bucket.
-  count: int,
-  /// Percentage of total observations.
-  percentage: float,
-}
-
-/// Named distribution for a specific metric.
-type namedDistribution = {
-  /// Metric name (e.g., "Guard Spawn Rate", "Completion Time").
-  name: string,
-  /// Data points for the distribution histogram.
-  points: array<distributionPoint>,
-  /// Statistical mean of the distribution.
-  mean: float,
-  /// Standard deviation.
-  standardDeviation: float,
-}
-
-// ============================================================================
-// Monte Carlo Simulation
-// ============================================================================
-
-/// Result of a Monte Carlo simulation run for a specific level.
-type simulationResult = {
-  /// Level identifier.
-  levelId: string,
-  /// Number of simulation runs executed.
-  runs: int,
-  /// Win rate across all runs (0.0 to 1.0).
-  winRate: float,
-  /// Average completion time in seconds.
-  avgCompletionTime: float,
-  /// Median completion time in seconds.
-  medianCompletionTime: float,
-  /// 95th percentile completion time in seconds.
-  p95CompletionTime: float,
-  /// Number of simulated deaths caused by guards.
-  deathsByGuard: int,
-  /// Number of simulated deaths caused by traps.
-  deathsByTrap: int,
-  /// Number of simulated deaths caused by time running out.
-  deathsByTimeout: int,
-  /// ISO 8601 timestamp of this simulation run.
-  timestamp: string,
-}
-
-// ============================================================================
-// Recommendations
-// ============================================================================
-
-/// A balance recommendation suggesting a parameter adjustment.
-type balanceRecommendation = {
-  /// Level identifier this recommendation applies to.
-  levelId: string,
-  /// Parameter to adjust (e.g., "guard_spawn_rate").
-  parameter: string,
-  /// Current value of the parameter.
-  currentValue: float,
-  /// Suggested new value.
-  suggestedValue: float,
-  /// Human-readable reason for the suggestion.
-  reason: string,
-  /// Expected impact classification ("high", "medium", "low").
-  impact: string,
-}
-
-// ============================================================================
-// Tab Navigation
-// ============================================================================
-
-/// Active tab within the Balance Analyser panel.
-type balanceTab =
-  /// Overview — sortable level table with key balance metrics.
-  | TabOverview
-  /// Distributions — histogram charts for spawn rates, completion times, etc.
-  | TabDistributions
-  /// Simulations — Monte Carlo simulation runner and results.
-  | TabSimulations
-  /// Recommendations — AI-generated parameter adjustment suggestions.
-  | TabRecommendations
-  /// Difficulty Curve — level-by-level difficulty progression chart.
-  | TabDifficultyCurve
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Root state for the Balance Analyser panel.
-type balanceAnalyserState = {
-  /// Active tab within the panel.
-  activeTab: balanceTab,
-  /// Per-level balance statistics.
-  levelStats: array<levelBalanceStats>,
-  /// Distribution data for charting.
-  distributions: array<distributionPoint>,
-  /// Named distributions with statistical summaries.
-  namedDistributions: array<namedDistribution>,
-  /// Monte Carlo simulation results.
-  simulations: array<simulationResult>,
-  /// Balance adjustment recommendations.
-  recommendations: array<balanceRecommendation>,
-  /// Number of simulation runs per level (configurable).
-  simulationRuns: int,
-  /// Whether a simulation or analysis is currently running.
-  running: bool,
-  /// Currently selected level ID for detail view.
-  selectedLevel: option<string>,
-  /// Error from the last operation.
-  error: option<string>,
-}
diff --git a/src/model/BetaFeedbackHubModel.affine b/src/model/BetaFeedbackHubModel.affine
new file mode 100644
index 00000000..8a8c0adb
--- /dev/null
+++ b/src/model/BetaFeedbackHubModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module BetaFeedbackHubModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/BetaFeedbackHubModel.res b/src/model/BetaFeedbackHubModel.res
deleted file mode 100644
index 5db41fc1..00000000
--- a/src/model/BetaFeedbackHubModel.res
+++ /dev/null
@@ -1,153 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Beta Feedback Hub Model — feedback-o-tron integration and player
-/// feedback triage for IDApTIK beta testing programmes.
-///
-/// Connects to the Feedback-o-Tron service for community-driven feedback
-/// collection. Supports sentiment analysis, priority triage, upvote/downvote
-/// ranking, and category filtering. Integrates with VeriSimDB for persistence.
-///
-/// Clade: Viewer. This module has NO dependencies on other PanLL modules.
-
-// ============================================================================
-// Feedback Classification
-// ============================================================================
-
-/// Priority level for a feedback entry.
-type feedbackPriority =
-  /// Critical — game-breaking issue requiring immediate attention.
-  | FeedbackCritical
-  /// High — significant issue affecting many players.
-  | FeedbackHigh
-  /// Medium — noticeable issue with available workarounds.
-  | FeedbackMedium
-  /// Low — minor polish or cosmetic issue.
-  | FeedbackLow
-
-/// Category classification for feedback entries.
-type feedbackCategory =
-  /// Bug report — something is broken.
-  | FeedbackBug
-  /// Feature request — something is desired.
-  | FeedbackFeature
-  /// Balance concern — game difficulty or fairness issue.
-  | FeedbackBalance
-  /// UX issue — confusing or frustrating interaction pattern.
-  | FeedbackUx
-  /// Performance complaint — lag, stuttering, or loading times.
-  | FeedbackPerformance
-  /// Uncategorised or does not fit other categories.
-  | FeedbackOther
-
-/// Sentiment analysis result from the Feedback-o-Tron NLP pipeline.
-type feedbackSentiment =
-  /// Positive — player is happy or satisfied.
-  | SentimentPositive
-  /// Neutral — factual report without strong emotion.
-  | SentimentNeutral
-  /// Negative — player is frustrated or dissatisfied.
-  | SentimentNegative
-  /// Unknown — sentiment could not be determined.
-  | SentimentUnknown
-
-/// Processing status in the triage workflow.
-type feedbackStatus =
-  /// New — just arrived, not yet reviewed.
-  | FeedbackNew
-  /// Triaged — reviewed and assigned a priority/category.
-  | FeedbackTriaged
-  /// In Progress — being worked on by a developer.
-  | FeedbackInProgress
-  /// Resolved — fix shipped or request fulfilled.
-  | FeedbackResolved
-  /// Won't Fix — declined with explanation.
-  | FeedbackWontFix
-
-// ============================================================================
-// Feedback Entries
-// ============================================================================
-
-/// A single feedback entry from a beta tester or player.
-type feedbackEntry = {
-  /// Unique feedback identifier.
-  id: string,
-  /// Short title summarising the feedback.
-  title: string,
-  /// Full feedback body text.
-  body: string,
-  /// Category classification.
-  category: feedbackCategory,
-  /// Priority level.
-  priority: feedbackPriority,
-  /// Sentiment analysis result.
-  sentiment: feedbackSentiment,
-  /// Username or identifier of the submitter.
-  submittedBy: string,
-  /// ISO 8601 timestamp of submission.
-  submittedAt: string,
-  /// Community upvote count.
-  upvotes: int,
-  /// Community downvote count.
-  downvotes: int,
-  /// Current processing status.
-  status: feedbackStatus,
-  /// Platform the feedback was submitted from (e.g., "web", "discord", "in-game").
-  platform: string,
-}
-
-/// Aggregate analytics for the feedback hub.
-type feedbackAnalytics = {
-  /// Total number of feedback entries.
-  totalEntries: int,
-  /// Breakdown by category.
-  byCategoryCount: array<(feedbackCategory, int)>,
-  /// Breakdown by sentiment.
-  bySentimentCount: array<(feedbackSentiment, int)>,
-  /// Average sentiment score (-1.0 negative to +1.0 positive).
-  avgSentimentScore: float,
-  /// Triage completion rate (resolved + won't fix) / total.
-  triageCompletionRate: float,
-}
-
-// ============================================================================
-// Tab Navigation
-// ============================================================================
-
-/// Active tab within the Beta Feedback Hub panel.
-type betaFeedbackTab =
-  /// Inbox — new unreviewed feedback entries.
-  | TabInbox
-  /// Triaged — reviewed entries grouped by priority.
-  | TabTriaged
-  /// Sentiment — sentiment analysis dashboard with charts.
-  | TabSentiment
-  /// Submit — form for submitting new feedback (developer testing).
-  | TabSubmit
-  /// Analytics — aggregate statistics and trend charts.
-  | TabAnalytics
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Root state for the Beta Feedback Hub panel.
-type betaFeedbackHubState = {
-  /// Active tab within the panel.
-  activeTab: betaFeedbackTab,
-  /// All feedback entries.
-  entries: array<feedbackEntry>,
-  /// Currently selected entry ID for detail view.
-  selectedEntry: option<string>,
-  /// Text search filter for title and body.
-  filter: string,
-  /// Optional category filter to narrow the list.
-  categoryFilter: option<feedbackCategory>,
-  /// Whether to sort by upvote count (descending).
-  sortByUpvotes: bool,
-  /// Whether a feedback submission is in progress.
-  submitting: bool,
-  /// Cached analytics (recomputed on tab switch).
-  analytics: option<feedbackAnalytics>,
-  /// Error from the last operation.
-  error: option<string>,
-}
diff --git a/src/model/BojModel.affine b/src/model/BojModel.affine
new file mode 100644
index 00000000..87f9e01e
--- /dev/null
+++ b/src/model/BojModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module BojModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/BojModel.res b/src/model/BojModel.res
deleted file mode 100644
index 9db07cab..00000000
--- a/src/model/BojModel.res
+++ /dev/null
@@ -1,200 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL BoJ Model — types for the Bundle of Joy cartridge server panel.
-///
-/// BoJ is the unified cartridge runtime that absorbs all protocol domains
-/// (MCP, LSP, DAP, BSP, etc.) through a 3-layer architecture:
-///   Idris2 ABI (dependent types) → Zig FFI (C-compatible) → V-lang adapter (REST+gRPC+GraphQL)
-///
-/// 17 cartridges, each with a shared library (.so), hot-reloadable, SHA-256 verified.
-/// Umoja federation provides distributed node discovery via gossip protocol.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-// ============================================================================
-// Cartridge Types
-// ============================================================================
-
-/// Cartridge Readiness Grade (CRG) — maturity level of a cartridge.
-///   D = Alpha (skeleton + basic tests)
-///   C = Beta (integration tests, CI wired)
-///   B = Release Candidate (benchmarks, docs, bindings)
-///   A = Production (formally verified ABI, full test coverage)
-type cartridgeGrade =
-  | GradeD
-  | GradeC
-  | GradeB
-  | GradeA
-
-/// The 3-layer build status for a cartridge.
-type layerStatus = {
-  /// Idris2 ABI definition exists and compiles.
-  abiReady: bool,
-  /// Zig FFI implementation exists and tests pass.
-  ffiReady: bool,
-  /// V-lang triple adapter (REST+gRPC+GraphQL) exists.
-  adapterReady: bool,
-  /// Shared library (.so) built and SHA-256 verified.
-  sharedLibReady: bool,
-}
-
-/// Protocol columns that a cartridge may support.
-/// The capability matrix is cartridges (rows) × protocols (columns).
-type protocolColumn =
-  | ProtoMCP
-  | ProtoLSP
-  | ProtoDAP
-  | ProtoBSP
-  | ProtoNeSy
-  | ProtoAgentic
-  | ProtoFleet
-  | ProtoGRPC
-  | ProtoREST
-  | ProtoGraphQL
-
-/// A single cartridge in the BoJ runtime.
-type bojCartridge = {
-  /// Cartridge name (e.g. "database-mcp", "proof-mcp").
-  name: string,
-  /// Human-readable display name.
-  displayName: string,
-  /// One-line description.
-  description: string,
-  /// Readiness grade.
-  grade: cartridgeGrade,
-  /// Whether currently loaded in the runtime.
-  loaded: bool,
-  /// Protocol columns this cartridge supports.
-  protocols: array<protocolColumn>,
-  /// 3-layer build status.
-  layers: layerStatus,
-  /// SHA-256 hash of the .so file (for integrity verification).
-  soHash: string,
-  /// Port for the V-lang REST adapter (0 if not running).
-  restPort: int,
-  /// Port for the V-lang gRPC adapter (0 if not running).
-  grpcPort: int,
-  /// Port for the V-lang GraphQL adapter (0 if not running).
-  graphqlPort: int,
-}
-
-// ============================================================================
-// Umoja Federation Types
-// ============================================================================
-
-/// Peer node state in the Umoja gossip protocol.
-type peerState =
-  | PeerPending
-  | PeerExchanged
-  | PeerVerified
-  | PeerRejected
-  | PeerStale
-
-/// A peer node in the Umoja federation network.
-type umojaPeer = {
-  /// Node identifier.
-  nodeId: string,
-  /// Node address (IP:port).
-  address: string,
-  /// Current handshake state.
-  state: peerState,
-  /// Round number in the gossip protocol.
-  gossipRound: int,
-  /// SHA-256 digest of the peer's cartridge catalogue.
-  catalogueDigest: string,
-  /// Last seen timestamp.
-  lastSeen: float,
-}
-
-/// Umoja federation status.
-type umojaStatus = {
-  /// Whether the federation layer is active.
-  active: bool,
-  /// This node's ID.
-  localNodeId: string,
-  /// Known peers.
-  peers: array<umojaPeer>,
-  /// Current gossip round.
-  currentRound: int,
-}
-
-// ============================================================================
-// Invocation Types
-// ============================================================================
-
-/// An argument pair for a cartridge tool invocation.
-type invokeArg = {
-  key: string,
-  value: string,
-}
-
-/// A latency measurement for a BoJ cartridge invocation.
-type bojLatencyEntry = {
-  cartridge: string,
-  tool: string,
-  durationMs: float,
-  timestamp: float,
-}
-
-/// Result of a cartridge tool invocation.
-type invokeResult = {
-  /// Whether the invocation succeeded.
-  success: bool,
-  /// Response payload (JSON string).
-  payload: string,
-  /// Execution time in milliseconds.
-  durationMs: int,
-}
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Category tabs for the BoJ panel.
-type bojCategory =
-  /// Overview dashboard — health, cartridge count, federation status.
-  | Dashboard
-  /// Cartridge matrix — 17 rows × protocol columns, load/unload controls.
-  | Cartridges
-  /// Topology view — architecture diagram and dependency graph.
-  | Topology
-  /// Umoja federation — peer nodes, gossip rounds, attestation.
-  | Federation
-  /// Invoke — select a cartridge, pick a tool, pass args, execute.
-  | Invoke
-
-/// Root state for the BoJ panel.
-type bojState = {
-  /// BoJ server URL (default: http://localhost:7700/api/v1).
-  serverUrl: string,
-  /// Whether the BoJ server is reachable.
-  connected: bool,
-  /// Last health check timestamp.
-  lastHealthCheck: float,
-  /// All known cartridges.
-  cartridges: array<bojCartridge>,
-  /// Selected cartridge name (for detail view / invocation).
-  selectedCartridge: option<string>,
-  /// Umoja federation status.
-  umoja: umojaStatus,
-  /// Active category tab.
-  activeCategory: bojCategory,
-  /// Invoke form state.
-  invokeCartridge: string,
-  invokeTool: string,
-  invokeArgs: array<invokeArg>,
-  /// Last invocation result.
-  invokeResult: option<invokeResult>,
-  /// Loading state.
-  loading: bool,
-  /// Error from the last operation.
-  error: option<string>,
-  /// Filter text for cartridge list.
-  filterText: string,
-  /// TypeLL ABI type-check result JSON for the last invocation (cross-panel intelligence).
-  lastTypeCheck: option<string>,
-  /// Recent invocation latency log (last 100 entries).
-  latencyLog: array<bojLatencyEntry>,
-  /// Umoja add-peer input field value.
-  umojaAddPeerInput: string,
-}
diff --git a/src/model/BuildDashboardModel.affine b/src/model/BuildDashboardModel.affine
new file mode 100644
index 00000000..2daf0d55
--- /dev/null
+++ b/src/model/BuildDashboardModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module BuildDashboardModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/BuildDashboardModel.res b/src/model/BuildDashboardModel.res
deleted file mode 100644
index dacbb4bb..00000000
--- a/src/model/BuildDashboardModel.res
+++ /dev/null
@@ -1,78 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Build Dashboard Model — types for monitoring build processes,
-/// test results, and compilation status for IDApTIK and its sub-projects
-/// (game, VM, DLC, sync server, shared libraries).
-
-/// Build target identity.
-type buildTarget =
-  | TargetGame
-  | TargetVm
-  | TargetDlc
-  | TargetSyncServer
-  | TargetShared
-  | TargetCoprocessors
-  | TargetCustom(string)
-
-/// Build status.
-type buildStatus =
-  | BuildIdle
-  | BuildRunning
-  | BuildSuccess(float)
-  | BuildFailed(float)
-  | BuildCancelled
-
-/// A build error or warning.
-type buildMessage = {
-  filePath: string,
-  line: int,
-  col: int,
-  severity: string,
-  message: string,
-  target: buildTarget,
-}
-
-/// A test result entry.
-type testResult = {
-  name: string,
-  suite: string,
-  passed: bool,
-  durationMs: float,
-  output: string,
-}
-
-/// Build history entry.
-type buildHistoryEntry = {
-  id: string,
-  target: buildTarget,
-  status: buildStatus,
-  startedAt: float,
-  durationMs: float,
-  errorCount: int,
-  warningCount: int,
-}
-
-/// Category tabs for the Build Dashboard panel.
-type buildDashboardCategory =
-  | BuildOverview
-  | BuildErrors
-  | BuildTests
-  | BuildHistory
-
-/// Root state for the Build Dashboard panel.
-type buildDashboardState = {
-  activeCategory: buildDashboardCategory,
-  targets: array<(buildTarget, buildStatus)>,
-  messages: array<buildMessage>,
-  testResults: array<testResult>,
-  history: array<buildHistoryEntry>,
-  autoRebuild: bool,
-  watchMode: bool,
-  filterTarget: option<buildTarget>,
-  filterSeverity: string,
-  showPassedTests: bool,
-  loading: bool,
-  error: option<string>,
-  /// Route BSP operations through BoJ's bsp-mcp cartridge instead of direct Gossamer.
-  bojRouting: bool,
-}
diff --git a/src/model/BurbleModel.affine b/src/model/BurbleModel.affine
new file mode 100644
index 00000000..60bac392
--- /dev/null
+++ b/src/model/BurbleModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module BurbleModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/BurbleModel.res b/src/model/BurbleModel.res
deleted file mode 100644
index 1b6c941f..00000000
--- a/src/model/BurbleModel.res
+++ /dev/null
@@ -1,84 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-//
-// BurbleModel — Types for PanLL's Burble voice integration.
-//
-// Manages workspace huddle voice chat. Unlike IDApTIK's gaming profile
-// (spatial audio, PTT), PanLL uses the Workspace profile:
-//   - Always-on voice activity detection (hands-free)
-//   - Noise suppression ON (office/home noise)
-//   - Echo cancellation ON (speaker+mic setups)
-//   - No spatial audio (flat conference style)
-//   - E2EE ON (workspace conversations are sensitive)
-//
-// The Burble server runs on ws://localhost:6473/voice.
-
-// ============================================================================
-// Voice types (mirroring BurbleClient's type surface for PanLL's context)
-// ============================================================================
-
-/// Voice state of a participant in a huddle.
-type voiceState =
-  | Connected
-  | Muted
-  | Deafened
-
-/// A participant in a workspace huddle.
-type participant = {
-  /// Unique user ID from Burble.
-  id: string,
-  /// Display name shown in the huddle UI.
-  displayName: string,
-  /// Current voice state (connected, muted, deafened).
-  voiceState: voiceState,
-  /// Whether the participant is currently speaking (VAD-detected).
-  isSpeaking: bool,
-  /// Volume level (0.0 to 1.0).
-  volume: float,
-}
-
-/// Connection state for the Burble voice server.
-type connectionState =
-  | Disconnected
-  | Connecting
-  | Connected
-  | Reconnecting
-  | Failed(string)
-
-// ============================================================================
-// PanLL Burble state — the TEA model for voice huddles
-// ============================================================================
-
-/// Complete Burble state for PanLL's TEA architecture.
-/// This is the model that BurbleEngine's pure functions operate on,
-/// and that BurbleCmd's side-effectful commands produce updates for.
-type burbleState = {
-  /// Current connection state to the Burble server.
-  connection: connectionState,
-  /// Participants in the current huddle, keyed by user ID.
-  participants: Dict.t<participant>,
-  /// Whether the local user is muted.
-  isMuted: bool,
-  /// Whether the local user is deafened.
-  isDeafened: bool,
-  /// Current huddle room ID (None if not in a huddle).
-  currentHuddle: option<string>,
-  /// Error message to display in the UI.
-  error: option<string>,
-}
-
-// ============================================================================
-// Messages — TEA messages for the Burble subsystem
-// ============================================================================
-
-/// Messages that update the Burble state in PanLL's TEA loop.
-type burbleMsg =
-  | ConnectionChanged(connectionState)
-  | JoinedHuddle(string)
-  | LeftHuddle
-  | ParticipantUpdated(participant)
-  | ParticipantLeft(string)
-  | MuteToggled(bool)
-  | DeafenToggled(bool)
-  | ErrorOccurred(string)
-  | ErrorCleared
diff --git a/src/model/CaptureModel.affine b/src/model/CaptureModel.affine
new file mode 100644
index 00000000..2561e2da
--- /dev/null
+++ b/src/model/CaptureModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CaptureModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/CaptureModel.res b/src/model/CaptureModel.res
deleted file mode 100644
index a68667e2..00000000
--- a/src/model/CaptureModel.res
+++ /dev/null
@@ -1,151 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Capture Model — types for panel screenshots, recordings, demos,
-/// panel cloning, and comparison views (DD-022).
-///
-/// The capture system provides per-panel screenshots and recordings, a demo/teaching
-/// environment with golden output comparison, and panel cloning for before/after
-/// analysis.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-// ============================================================================
-// Capture Types
-// ============================================================================
-
-/// Format for captured images.
-type captureFormat =
-  | Png
-  | Pdf
-  | Svg
-
-/// A single captured screenshot or recording.
-type captureEntry = {
-  /// Unique identifier.
-  id: string,
-  /// Which panel was captured (as string for flexibility).
-  panelId: string,
-  /// Human-readable label (auto-generated or user-assigned).
-  label: string,
-  /// File path where the capture is stored.
-  filePath: string,
-  /// Capture format.
-  format: captureFormat,
-  /// Timestamp when the capture was taken.
-  timestamp: float,
-  /// Width in pixels (for images).
-  width: int,
-  /// Height in pixels (for images).
-  height: int,
-  /// Whether this is a recording (vs a static screenshot).
-  isRecording: bool,
-  /// Duration in seconds (for recordings, 0 for screenshots).
-  durationSeconds: float,
-}
-
-/// State of an ongoing recording.
-type recordingState =
-  | NotRecording
-  | Recording(string, float) // panelId, startTime
-  | Paused(string, float) // panelId, elapsedTime
-
-// ============================================================================
-// Demo/Teaching Types
-// ============================================================================
-
-/// A single step in a demo sequence — captures the panel state at one point.
-type demoStep = {
-  /// Step number (1-indexed).
-  stepNumber: int,
-  /// Description of what this step demonstrates.
-  description: string,
-  /// Capture entry for this step's visual output.
-  captureId: string,
-  /// Serialised panel state at this step (JSON string).
-  stateSnapshot: string,
-  /// Timestamp within the demo.
-  timestamp: float,
-}
-
-/// A complete demo package that can be saved, loaded, and replayed.
-type demoPackage = {
-  /// Unique identifier.
-  id: string,
-  /// Title of the demo.
-  title: string,
-  /// Author name.
-  author: string,
-  /// Description of the demo's purpose.
-  description: string,
-  /// The panel this demo was recorded from.
-  panelId: string,
-  /// Ordered sequence of demo steps.
-  steps: array<demoStep>,
-  /// Timestamp when the demo was created.
-  created: float,
-  /// File path of the .panll-demo package (ZIP).
-  filePath: option<string>,
-}
-
-/// Comparison mode for side-by-side panel views.
-type comparisonMode =
-  | NoComparison
-  | SideBySide(string, string) // leftPanelId, rightPanelId
-  | DemoComparison(string, string) // studentPanelId, demoStepCaptureId
-  | BeforeAfter(string, string) // beforeCaptureId, afterCaptureId
-
-// ============================================================================
-// Panel Cloning
-// ============================================================================
-
-/// A cloned panel instance: independent copy of another panel's state.
-type panelClone = {
-  /// Unique identifier for this clone.
-  id: string,
-  /// The original panel this was cloned from.
-  sourcePanelId: string,
-  /// Label for the clone (e.g., "PaneL (Clone 1)").
-  label: string,
-  /// Serialised state snapshot at the time of cloning.
-  stateSnapshot: string,
-  /// Timestamp when the clone was created.
-  created: float,
-}
-
-// ============================================================================
-// Capture State
-// ============================================================================
-
-/// Active category tab in the Capture panel.
-type captureCategory =
-  | CaptureGallery
-  | CaptureRecordings
-  | CaptureDemos
-  | CaptureClones
-  | CaptureComparison
-
-/// Root state for the capture system.
-type captureState = {
-  /// All captured screenshots and recordings.
-  captures: array<captureEntry>,
-  /// Current recording state.
-  recording: recordingState,
-  /// Panels selected for multi-panel capture.
-  selectedForCapture: array<string>,
-  /// All loaded demo packages.
-  demos: array<demoPackage>,
-  /// Currently active demo (for playback).
-  activeDemo: option<string>,
-  /// Current step index in the active demo.
-  activeDemoStep: int,
-  /// Comparison mode state.
-  comparison: comparisonMode,
-  /// Panel clones.
-  clones: array<panelClone>,
-  /// Active category tab.
-  activeCategory: captureCategory,
-  /// Whether the capture bar is visible on panels.
-  captureBarVisible: bool,
-  /// Whether capturing full environment (all panels + chrome).
-  fullEnvironmentCapture: bool,
-}
diff --git a/src/model/CladeBrowserModel.affine b/src/model/CladeBrowserModel.affine
new file mode 100644
index 00000000..680df937
--- /dev/null
+++ b/src/model/CladeBrowserModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CladeBrowserModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/CladeBrowserModel.res b/src/model/CladeBrowserModel.res
deleted file mode 100644
index 82516744..00000000
--- a/src/model/CladeBrowserModel.res
+++ /dev/null
@@ -1,254 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Clade Browser Model — types for exploring and customising panel clades.
-///
-/// A clade is a taxonomic group that defines shared traits, capabilities,
-/// and inheritance for panels. The Clade Browser lets users explore all 36+
-/// clades, see which panels belong to each, inspect traits, and filter
-/// by kind (ai, bridge, builder, database, directive, loader, meta,
-/// network, scanner, terminal, viewer).
-
-/// The 11 clade kinds defined in the PanLL taxonomy.
-type cladeKind =
-  | KindAi
-  | KindBridge
-  | KindBuilder
-  | KindDatabase
-  | KindDirective
-  | KindLoader
-  | KindMeta
-  | KindNetwork
-  | KindScanner
-  | KindTerminal
-  | KindViewer
-  | KindAll
-
-// ═══════════════════════════════════════════════════════════════════════
-// Tier 1.1: Protocol adapters — which wire protocols a clade speaks.
-// ═══════════════════════════════════════════════════════════════════════
-
-/// Wire protocol that a clade can expose or consume.
-type cladeProtocol =
-  /// Language Server Protocol — code intelligence, diagnostics, completion.
-  | ProtoLSP
-  /// Debug Adapter Protocol — breakpoints, stepping, variable inspection.
-  | ProtoDAP
-  /// Build Server Protocol — compile, test, run, dependency resolution.
-  | ProtoBSP
-  /// Model Context Protocol — AI tool integration (resources, tools, prompts).
-  | ProtoMCP
-  /// REST over HTTP — traditional request/response API.
-  | ProtoREST
-  /// gRPC — binary protocol with Protobuf, bidirectional streaming.
-  | ProtoGRPC
-  /// GraphQL — query language with subscriptions.
-  | ProtoGraphQL
-  /// WebSocket — full-duplex persistent connection.
-  | ProtoWebSocket
-  /// Server-Sent Events — unidirectional server-to-client streaming.
-  | ProtoSSE
-  /// Gossamer IPC — inter-process communication via Gossamer invoke/listen.
-  | ProtoGossamerIPC
-  /// Unix Domain Socket — local process-to-process communication.
-  | ProtoUnixSocket
-  /// D-Bus — Linux desktop IPC (notifications, file pickers, portals).
-  | ProtoDBus
-  /// Stdio — JSON-RPC over stdin/stdout (LSP/DAP/MCP transport).
-  | ProtoStdio
-
-// ═══════════════════════════════════════════════════════════════════════
-// Tier 1.2: Typed capability declarations — what a clade can actually do.
-// ═══════════════════════════════════════════════════════════════════════
-
-/// Specific capability that a clade provides beyond boolean traits.
-type cladeCapability =
-  /// Can read/write to the local filesystem.
-  | CapFilesystem
-  /// Can make outbound network requests.
-  | CapNetwork
-  /// Can access the system clipboard.
-  | CapClipboard
-  /// Can spawn child processes.
-  | CapProcessSpawn
-  /// Can access the system shell (PTY).
-  | CapShell
-  /// Can run in a container/sandbox.
-  | CapContainerised
-  /// Can accept real-time streaming data.
-  | CapStreaming
-  /// Can produce formal proofs or proof obligations.
-  | CapProofProduction
-  /// Can consume formal proofs for verification.
-  | CapProofConsumption
-  /// Can perform type checking or type inference.
-  | CapTypeChecking
-  /// Can scan for security issues.
-  | CapSecurityScan
-  /// Can manage secrets or credentials.
-  | CapSecretManagement
-  /// Can render rich visualisations (graphs, charts, heatmaps).
-  | CapVisualisation
-  /// Can record or replay user sessions.
-  | CapSessionRecording
-
-// ═══════════════════════════════════════════════════════════════════════
-// Tier 1.3: Dependency graph — requires/provides relationships.
-// ═══════════════════════════════════════════════════════════════════════
-
-/// A dependency declaration: what a clade requires or provides.
-type cladeDependency = {
-  /// The clade ID this dependency refers to.
-  cladeId: string,
-  /// Whether this is a hard requirement or a soft enhancement.
-  required: bool,
-  /// Human-readable reason for the dependency.
-  reason: string,
-}
-
-// ═══════════════════════════════════════════════════════════════════════
-// Tier 1.4: Error boundary — per-clade fault isolation level.
-// ═══════════════════════════════════════════════════════════════════════
-
-/// Fault isolation level for a clade's panels.
-type cladeIsolation =
-  /// No isolation — crash in this panel may affect others.
-  | IsolationNone
-  /// Soft isolation — errors are caught and displayed inline.
-  | IsolationSoft
-  /// Process isolation — runs in a separate process (Extension Host model).
-  | IsolationProcess
-  /// Container isolation — runs in a Podman/MicroVM container.
-  | IsolationContainer
-
-// ═══════════════════════════════════════════════════════════════════════
-// Tier 4: Security & Supply Chain — signing, SBOM, capability sandbox.
-// ═══════════════════════════════════════════════════════════════════════
-
-/// Signing status for a clade (Sigstore / SLSA).
-type cladeSigningStatus =
-  /// Not signed — no provenance verification.
-  | SigningNone
-  /// Signed but not verified in this session.
-  | SigningPending
-  /// Signed and verified (includes keyless Sigstore or PGP).
-  | SigningVerified(string) // signer identity
-  /// Verification failed.
-  | SigningFailed(string) // reason
-
-/// SBOM (Software Bill of Materials) summary for a clade.
-type cladeSbom = {
-  /// SBOM format (CycloneDX or SPDX).
-  format: string,
-  /// Number of direct dependencies.
-  directDeps: int,
-  /// Number of transitive dependencies.
-  transitiveDeps: int,
-  /// Known vulnerabilities count.
-  knownVulns: int,
-  /// License compliance status.
-  licenseCompliant: bool,
-}
-
-/// Capability sandbox policy — what a clade is allowed to do at runtime.
-type cladeSandboxPolicy = {
-  /// Maximum allowed capabilities (subset of cladeCapability).
-  allowedCapabilities: array<cladeCapability>,
-  /// Whether network access is rate-limited.
-  networkRateLimit: option<int>,
-  /// Whether filesystem access is restricted to specific paths.
-  fsAllowedPaths: array<string>,
-  /// Whether process spawning requires user approval.
-  processApprovalRequired: bool,
-}
-
-/// Traits that a clade can confer on its panels.
-type cladeTraits = {
-  hasPersistence: bool,
-  hasBackend: bool,
-  hasWorkItems: bool,
-  hasRealTime: bool,
-  isAmbient: bool,
-}
-
-/// A single clade entry in the browser.
-type cladeEntry = {
-  id: string,
-  name: string,
-  kind: string,
-  version: string,
-  summary: string,
-  longDescription: string,
-  traits: cladeTraits,
-  panelIds: array<string>,
-  consumedBy: array<string>,
-  supersedes: array<string>,
-  /// Parent clade ID for trait inheritance (e.g. "bridge" for BoJ).
-  parentCladeId: option<string>,
-  /// Sibling clades in the taxonomy.
-  siblingClades: array<string>,
-  /// Tier 1.1: Wire protocols this clade exposes.
-  protocols: array<cladeProtocol>,
-  /// Tier 1.2: Typed capabilities this clade provides.
-  capabilities: array<cladeCapability>,
-  /// Tier 1.3: Clades this one requires to function.
-  requires: array<cladeDependency>,
-  /// Tier 1.3: Clades this one enhances (soft dependency from the other side).
-  enhances: array<string>,
-  /// Tier 1.4: Fault isolation level.
-  isolation: cladeIsolation,
-  /// Tier 4: Signing status.
-  signing: cladeSigningStatus,
-  /// Tier 4: SBOM summary (if available).
-  sbom: option<cladeSbom>,
-  /// Tier 4: Sandbox policy.
-  sandbox: option<cladeSandboxPolicy>,
-}
-
-/// Category tabs for the clade browser.
-type cladeBrowserCategory =
-  | CategoryOverview
-  | CategoryByKind
-  | CategoryTraits
-  | CategoryPanelMap
-
-/// Permission level for cross-clade references.
-type cladePermission =
-  /// Unrestricted — any clade can reference this one.
-  | PermitAll
-  /// Restricted to specific clade IDs.
-  | PermitOnly(array<string>)
-  /// Denied — no cross-clade references allowed.
-  | PermitNone
-
-/// A clade permission rule: which clades can cross-reference a target clade.
-type cladePermissionRule = {
-  /// The clade that is being referenced (target).
-  targetCladeId: string,
-  /// Who is allowed to reference it.
-  permission: cladePermission,
-}
-
-/// Root state for the clade browser.
-type cladeBrowserState = {
-  category: cladeBrowserCategory,
-  clades: array<cladeEntry>,
-  selectedClade: option<string>,
-  kindFilter: cladeKind,
-  searchQuery: string,
-  loading: bool,
-  error: option<string>,
-  /// Cross-clade permission rules (which clades may reference which).
-  permissionRules: array<cladePermissionRule>,
-}
-
-/// Default initial state.
-let defaultState: cladeBrowserState = {
-  category: CategoryOverview,
-  clades: [],
-  selectedClade: None,
-  kindFilter: KindAll,
-  searchQuery: "",
-  loading: false,
-  error: None,
-  permissionRules: [],
-}
diff --git a/src/model/CloudGuardModel.affine b/src/model/CloudGuardModel.affine
new file mode 100644
index 00000000..74e85aca
--- /dev/null
+++ b/src/model/CloudGuardModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CloudGuardModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/CloudGuardModel.res b/src/model/CloudGuardModel.res
deleted file mode 100644
index 9be68e59..00000000
--- a/src/model/CloudGuardModel.res
+++ /dev/null
@@ -1,301 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL CloudGuard Model Types — Cloudflare domain security management.
-///
-/// CloudGuard automates Cloudflare domain hardening: SSL/TLS, HSTS, security
-/// headers, WAF, bot defense, DNSSEC, DNS security records (SPF/DMARC/DKIM/CAA/
-/// TLSRPT), managed transforms, performance, and network settings. It integrates
-/// as a PanLL panel module with a toggle-based dashboard, bulk operations, offline
-/// config management, and Trustfile compliance enforcement.
-///
-/// Three-panel model:
-///   Panel-L → Trustfile-derived security constraints (parsed from .a2ml + Nickel)
-///   Panel-N → AI gap analysis (why settings matter, anomaly detection, exceptions)
-///   Panel-W → Main dashboard (domain ribbon, category tabs, settings grid, actions)
-///
-/// This module has NO dependencies on other PanLL modules — leaf of the
-/// type dependency graph, following the same pattern as VabModel.
-
-// ============================================================================
-// Cloudflare Plan Tiers — determines which features are available
-// ============================================================================
-
-/// Cloudflare plan tier. Each setting in the catalog is gated by plan tier,
-/// so the UI can grey out unavailable features with "Requires Pro" badges.
-type cfPlanTier =
-  | Free // Free plan — most basic settings
-  | Pro // Pro plan — WAF, Polish, Mirage, etc.
-  | Business // Business plan — custom WAF rules, Railgun, etc.
-  | Enterprise // Enterprise plan — everything
-
-// ============================================================================
-// Setting categories — the tab bar in Panel-W
-// ============================================================================
-
-/// Top-level categories for the settings grid. Each tab shows a group of
-/// related Cloudflare settings with toggles, dropdowns, and text inputs.
-type settingCategory =
-  | SslTls // SSL mode, min TLS version, HSTS, OCSP, CT logging
-  | Headers // Security headers (CSP, X-Frame-Options, etc.) via transforms
-  | Waf // Web Application Firewall rules and managed rulesets
-  | BotDefense // Bot Fight Mode, Super Bot Fight Mode, JS challenges
-  | Dns // DNS record management (A, AAAA, CNAME, MX, TXT, SRV, etc.)
-  | EmailSec // Email security: SPF, DMARC, DKIM revocation, TLSRPT
-  | Performance // Caching, minification, Polish, Mirage, Early Hints, HTTP/3
-  | Network // IP geolocation, WebSockets, gRPC, Onion Routing, 0-RTT
-  | Pages // Cloudflare Pages / GitHub Pages integration
-  | Dnssec // DNSSEC enable, DS record status, key rotation
-
-// ============================================================================
-// Setting availability — plan-tier gating for the catalog
-// ============================================================================
-
-/// Whether a setting is available on the user's plan. The catalog marks each
-/// setting with one of these. UI renders unavailable settings greyed-out.
-type settingAvailability =
-  | Available // Setting works on any plan
-  | Unavailable(cfPlanTier) // Requires this plan tier or higher
-  | Limited(string) // Available but with limitations (description)
-
-// ============================================================================
-// Setting value types — the actual data each toggle/dropdown/input holds
-// ============================================================================
-
-/// The value of a single Cloudflare setting. Variants cover all the shapes
-/// that CF API returns: booleans, enums (strings), integers, nested objects.
-type settingValue =
-  | BoolValue(bool) // On/off toggles (e.g. always_use_https)
-  | StringValue(string) // Enum/string settings (e.g. ssl mode "full_strict")
-  | IntValue(int) // Numeric settings (e.g. max_upload MB, browser_cache_ttl)
-  | ObjectValue(string) // Complex nested JSON (serialised; e.g. security_header HSTS)
-
-/// A single Cloudflare zone setting with its current value and metadata.
-/// This maps directly to the CF API `/zones/{zone_id}/settings/{setting_id}` shape.
-type cfSetting = {
-  id: string, // CF setting ID (e.g. "ssl", "always_use_https", "min_tls_version")
-  label: string, // Human-readable label for the UI
-  description: string, // Tooltip/help text explaining the setting
-  category: settingCategory, // Which tab this appears under
-  value: settingValue, // Current value from CF API
-  defaultValue: settingValue, // Policy default (from Trustfile/Nickel)
-  editable: bool, // Whether the user can change this (some are read-only)
-  modified: bool, // Whether the value differs from the last-pushed state
-  availability: settingAvailability, // Plan tier gating
-}
-
-// ============================================================================
-// DNS record types — for the inline DNS editor
-// ============================================================================
-
-/// Standard DNS record type enum covering all Cloudflare-supported types.
-type dnsRecordType = A | AAAA | CNAME | MX | TXT | SRV | NS | CAA | TLSA | HTTPS | SVCB | PTR | LOC
-
-/// A single DNS record within a zone. Maps to CF API `/zones/{zone_id}/dns_records`.
-type cfDnsRecord = {
-  id: string, // Record ID from CF API
-  zoneId: string, // Parent zone ID
-  recordType: dnsRecordType, // DNS record type
-  name: string, // Hostname (e.g. "www.example.com")
-  content: string, // Record value (IP, CNAME target, TXT data, etc.)
-  ttl: int, // TTL in seconds (1 = automatic/proxied)
-  proxied: bool, // Whether Cloudflare proxies this record (orange cloud)
-  priority: option<int>, // Priority for MX/SRV records
-  comment: option<string>, // Optional record comment (CF API v4 feature)
-  tags: array<string>, // Record tags for filtering
-  locked: bool, // Whether the record is locked (managed by CF)
-  createdOn: string, // ISO 8601 timestamp
-  modifiedOn: string, // ISO 8601 timestamp
-}
-
-// ============================================================================
-// Zone (domain) types
-// ============================================================================
-
-/// DNSSEC status for a zone.
-type dnssecStatus =
-  | DnssecActive // DNSSEC enabled and DS record verified
-  | DnssecPending // DNSSEC enabled, awaiting DS record at registrar
-  | DnssecDisabled // DNSSEC not enabled
-  | DnssecError(string) // DNSSEC configuration error
-
-/// A single Cloudflare zone (domain). Core entity for the domain ribbon.
-type cfZone = {
-  id: string, // Zone ID from CF API
-  name: string, // Domain name (e.g. "axel-protocol.org")
-  status: string, // "active" | "pending" | "moved" | "deleted"
-  paused: bool, // Whether the zone is paused
-  plan: cfPlanTier, // Current plan tier
-  nameservers: array<string>, // Assigned Cloudflare nameservers
-  originalNameservers: array<string>, // Original registrar nameservers (for migration)
-  dnssec: dnssecStatus, // DNSSEC status
-  createdOn: string, // ISO 8601 timestamp
-  modifiedOn: string, // ISO 8601 timestamp
-}
-
-// ============================================================================
-// Audit and compliance types
-// ============================================================================
-
-/// Severity level for audit findings, following standard security rating scale.
-type auditSeverity =
-  | Critical // Must fix immediately (e.g. SSL mode "off", no HSTS)
-  | High // Should fix soon (e.g. TLS 1.0 allowed, no DMARC reject)
-  | Medium // Recommended improvement (e.g. no CAA record, old cache TTL)
-  | Low // Minor enhancement (e.g. missing TLSRPT, no Brotli)
-  | Info // Informational (e.g. DNSSEC pending DS record)
-
-/// A single audit finding — one setting that deviates from policy.
-type auditFinding = {
-  domain: string, // Which domain this applies to
-  settingId: string, // CF setting ID
-  category: settingCategory, // Which tab group
-  severity: auditSeverity, // How bad is it
-  message: string, // Human-readable finding (e.g. "SSL mode is 'flexible', expected 'full_strict'")
-  currentValue: string, // What the setting currently is (stringified)
-  expectedValue: string, // What the policy says it should be (stringified)
-  autoFixable: bool, // Whether CloudGuard can fix this automatically
-}
-
-/// Overall audit result for a zone or set of zones.
-type auditResult = {
-  timestamp: string, // ISO 8601 when the audit ran
-  domains: array<string>, // Which domains were audited
-  findings: array<auditFinding>, // All findings across all domains
-  passed: int, // Number of settings that matched policy
-  failed: int, // Number of settings that deviated
-  warnings: int, // Number of medium/low findings
-  score: float, // Overall compliance score (0.0 - 1.0)
-}
-
-// ============================================================================
-// Config diff types — three-way comparison (offline vs live vs policy)
-// ============================================================================
-
-/// Which side of the diff a change comes from.
-type diffSource =
-  | Offline // Value from locally saved config file
-  | Live // Value currently on Cloudflare
-  | Policy // Value from Trustfile/Nickel policy
-
-/// A single diff entry — one setting that differs between two sources.
-type configDiffEntry = {
-  settingId: string, // CF setting ID
-  domain: string, // Which domain
-  category: settingCategory, // Which tab group
-  offlineValue: option<string>, // Value in offline config (None if absent)
-  liveValue: option<string>, // Value on Cloudflare (None if absent)
-  policyValue: option<string>, // Value from policy (None if not specified)
-  resolution: option<diffSource>, // Which source to use (None = unresolved)
-}
-
-/// A complete three-way config diff for one or more domains.
-type configDiff = {
-  timestamp: string, // When the diff was computed
-  entries: array<configDiffEntry>, // All diff entries
-  conflictCount: int, // Number of three-way conflicts
-  driftCount: int, // Number of live-vs-offline drifts
-}
-
-// ============================================================================
-// Policy constraint types — Panel-L content
-// ============================================================================
-
-/// A single policy constraint derived from the Trustfile and Nickel config.
-/// These are displayed in Panel-L as a scrollable list with enable/disable toggles.
-type policyConstraint = {
-  id: string, // Unique constraint ID (e.g. "ssl.mode.full_strict")
-  expression: string, // Human-readable rule (e.g. "ssl.mode == \"full_strict\"")
-  category: settingCategory, // Which settings group this constrains
-  enabled: bool, // Whether the constraint is active for auditing
-  severity: auditSeverity, // How severe a violation would be
-  description: string, // Explanation of why this matters
-}
-
-// ============================================================================
-// Per-domain exception types
-// ============================================================================
-
-/// An exception override for a specific domain. Policy defines defaults;
-/// exceptions allow per-domain deviations with documented reasoning.
-type domainException = {
-  domain: string, // Which domain this exception applies to
-  settingId: string, // Which setting is overridden
-  overrideValue: settingValue, // The override value for this domain
-  reason: string, // Why this domain differs from the bulk default
-  addedOn: string, // ISO 8601 when the exception was created
-}
-
-// ============================================================================
-// Cloudflare Pages integration types
-// ============================================================================
-
-/// A Cloudflare Pages project associated with the account.
-type cfPagesProject = {
-  name: string, // Project name
-  subdomain: string, // *.pages.dev subdomain
-  customDomains: array<string>, // Custom domains bound to this project
-  productionBranch: string, // Git branch for production deploys
-  framework: option<string>, // Detected SSG framework (e.g. "jekyll", "hugo")
-  createdOn: string, // ISO 8601 timestamp
-}
-
-// ============================================================================
-// Bulk operation progress tracking
-// ============================================================================
-
-/// Progress state for a bulk operation (e.g. "Harden All 36 domains").
-type bulkProgress = {
-  total: int, // Total number of operations
-  completed: int, // Number completed so far
-  failed: int, // Number that failed
-  currentDomain: option<string>, // Which domain is currently being processed
-  startedAt: string, // ISO 8601 when the operation started
-  errors: array<(string, string)>, // (domain, error message) for failures
-}
-
-// ============================================================================
-// Connection and loading state
-// ============================================================================
-
-/// API connection status — tracks whether the CF API token is valid.
-type cfConnectionStatus =
-  | Disconnected // No API token configured or token cleared
-  | Connecting // Token verification in progress
-  | Connected(string) // Connected — parameter is account email
-  | ConnectionError(string) // Token verification failed — parameter is error
-
-// ============================================================================
-// Root panel state — composed into Model.model
-// ============================================================================
-
-/// The complete CloudGuard panel state. Stored as a sub-record in Model.model,
-/// this tracks the API connection, loaded zones, settings, DNS records, audit
-/// results, diff state, policy constraints, and UI state for all sub-components.
-type cloudguardState = {
-  // Connection
-  connection: cfConnectionStatus, // API connection lifecycle
-  loading: bool, // Whether an API call is in flight
-  error: option<string>, // Last error message (None = no error)
-  // Data
-  zones: array<cfZone>, // All zones in the account
-  selectedZoneIds: array<string>, // Currently selected zone IDs (multi-select)
-  settings: array<cfSetting>, // Settings for the currently viewed zone(s)
-  dnsRecords: array<cfDnsRecord>, // DNS records for the currently viewed zone
-  pagesProjects: array<cfPagesProject>, // CF Pages projects in the account
-  // Audit and compliance
-  auditResult: option<auditResult>, // Latest audit result
-  constraints: array<policyConstraint>, // Policy constraints for Panel-L
-  exceptions: array<domainException>, // Per-domain exceptions
-  // Diff
-  configDiff: option<configDiff>, // Three-way diff result
-  // Bulk operations
-  bulkProgress: option<bulkProgress>, // Current bulk operation progress
-  // UI state
-  visible: bool, // Whether the CloudGuard overlay is shown
-  activeCategory: settingCategory, // Currently active settings tab
-  filterText: string, // Domain filter text in the ribbon
-  settingFilter: string, // Setting filter text within the grid
-  showDiff: bool, // Whether the diff viewer side panel is open
-  showAudit: bool, // Whether the audit results side panel is open
-  dnsEditingId: option<string>, // DNS record ID being edited (None = not editing)
-}
diff --git a/src/model/CodeReviewModel.affine b/src/model/CodeReviewModel.affine
new file mode 100644
index 00000000..7f9da431
--- /dev/null
+++ b/src/model/CodeReviewModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CodeReviewModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/CodeReviewModel.res b/src/model/CodeReviewModel.res
deleted file mode 100644
index 686eba4f..00000000
--- a/src/model/CodeReviewModel.res
+++ /dev/null
@@ -1,129 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Code Review Model — pull request review, inline comments, and
-/// approval gates for collaborative IDApTIK development.
-///
-/// Provides in-panel diff views, inline comment threads, and a multi-reviewer
-/// approval workflow. Integrates with GitHub/GitLab via BoJ MCP cartridges.
-///
-/// Clade: Scanner. This module has NO dependencies on other PanLL modules.
-
-// ============================================================================
-// Pull Request Status
-// ============================================================================
-
-/// Lifecycle status of a pull request under review.
-type prStatus =
-  /// Open — PR is active and awaiting review.
-  | PrOpen
-  /// Approved — all required reviewers have approved.
-  | PrApproved
-  /// Changes Requested — reviewer has asked for modifications.
-  | PrChangesRequested
-  /// Merged — PR has been merged into the target branch.
-  | PrMerged
-  /// Closed — PR was closed without merging.
-  | PrClosed
-
-// ============================================================================
-// Pull Requests
-// ============================================================================
-
-/// A pull request under review in the Code Review panel.
-type pullRequest = {
-  /// Unique PR identifier (e.g., "PR-42" or GitHub number).
-  id: string,
-  /// PR title.
-  title: string,
-  /// Author username.
-  author: string,
-  /// Source branch name.
-  branch: string,
-  /// Target branch name (e.g., "main").
-  targetBranch: string,
-  /// Number of files changed in this PR.
-  filesChanged: int,
-  /// Total lines added.
-  additions: int,
-  /// Total lines removed.
-  deletions: int,
-  /// Current lifecycle status.
-  status: prStatus,
-  /// ISO 8601 timestamp when the PR was created.
-  createdAt: string,
-  /// Labels attached to the PR (e.g., ["bugfix", "urgent"]).
-  labels: array<string>,
-}
-
-// ============================================================================
-// Review Comments
-// ============================================================================
-
-/// An inline review comment attached to a specific file and line.
-type reviewComment = {
-  /// Unique comment identifier.
-  id: string,
-  /// File path the comment is attached to.
-  filePath: string,
-  /// Line number in the diff the comment refers to.
-  lineNumber: int,
-  /// Comment body text.
-  body: string,
-  /// Comment author username.
-  author: string,
-  /// Whether this comment thread has been resolved.
-  resolved: bool,
-  /// ISO 8601 timestamp when the comment was created.
-  createdAt: string,
-}
-
-/// A file diff entry showing additions and deletions.
-type fileDiffEntry = {
-  /// File path.
-  path: string,
-  /// Lines added in this file.
-  additions: int,
-  /// Lines removed in this file.
-  deletions: int,
-  /// Whether the file is binary (not diffable).
-  binary: bool,
-  /// Language of the file (for syntax highlighting).
-  language: string,
-}
-
-// ============================================================================
-// Tab Navigation
-// ============================================================================
-
-/// Active tab within the Code Review panel.
-type codeReviewTab =
-  /// Pull Requests — list of PRs with status badges and metadata.
-  | TabPullRequests
-  /// File Changes — per-file diff list with inline comments.
-  | TabFileChanges
-  /// Comments — all review comments with resolved/unresolved filter.
-  | TabComments
-  /// Approval Gate — reviewer approval status and merge readiness check.
-  | TabApprovalGate
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Root state for the Code Review panel.
-type codeReviewState = {
-  /// Active tab within the panel.
-  activeTab: codeReviewTab,
-  /// All pull requests visible to the current user.
-  pullRequests: array<pullRequest>,
-  /// Review comments on the selected PR.
-  comments: array<reviewComment>,
-  /// File diffs for the selected PR.
-  fileDiffs: array<fileDiffEntry>,
-  /// Currently selected PR ID for detail view.
-  selectedPr: option<string>,
-  /// Text filter for PR list (searches title and author).
-  filter: string,
-  /// Error from the last operation.
-  error: option<string>,
-}
diff --git a/src/model/CompatibilityMatrixModel.affine b/src/model/CompatibilityMatrixModel.affine
new file mode 100644
index 00000000..dd370057
--- /dev/null
+++ b/src/model/CompatibilityMatrixModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CompatibilityMatrixModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/CompatibilityMatrixModel.res b/src/model/CompatibilityMatrixModel.res
deleted file mode 100644
index 0ec8e4c5..00000000
--- a/src/model/CompatibilityMatrixModel.res
+++ /dev/null
@@ -1,126 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Compatibility Matrix Model — browser/device/resolution cross-testing
-/// matrix with pass/fail/untested cell colouring and failure detail drill-down.
-///
-/// Defines target browsers and devices, then runs automated tests via Playwright
-/// to populate a green/red/grey matrix showing which environment combinations
-/// pass IDApTIK's rendering and interaction requirements.
-///
-/// Clade: Scanner. This module has NO dependencies on other PanLL modules.
-
-// ============================================================================
-// Test Targets
-// ============================================================================
-
-/// A target browser to test against.
-type browserTarget = {
-  /// Browser name (e.g., "Chrome", "Firefox", "Safari").
-  name: string,
-  /// Browser version string (e.g., "latest", "120").
-  version: string,
-  /// Rendering engine (e.g., "Blink", "Gecko", "WebKit").
-  engine: string,
-}
-
-/// A target device/resolution to test against.
-type deviceTarget = {
-  /// Device name (e.g., "Desktop 1080p", "iPhone 15 Pro").
-  name: string,
-  /// Device category (e.g., "desktop", "mobile", "tablet").
-  category: string,
-  /// Screen resolution as (width, height) in logical pixels.
-  resolution: (int, int),
-  /// Device pixel ratio (e.g., 1.0 for standard, 2.0 for Retina).
-  pixelRatio: float,
-}
-
-// ============================================================================
-// Test Results
-// ============================================================================
-
-/// Result of a compatibility test for a single browser+device combination.
-type compatResult =
-  /// Test passed — game renders and interacts correctly.
-  | CompatPassing
-  /// Test failed — payload is the failure reason.
-  | CompatFailing(string)
-  /// Test passed with warnings — payload is the warning message.
-  | CompatWarning(string)
-  /// Not yet tested.
-  | CompatUntested
-  /// Deliberately skipped — payload is the skip reason.
-  | CompatSkipped(string)
-
-/// A single cell in the compatibility matrix (browser x device).
-type matrixCell = {
-  /// The browser for this cell.
-  browser: browserTarget,
-  /// The device for this cell.
-  device: deviceTarget,
-  /// Test result for this combination.
-  result: compatResult,
-  /// Path to the captured screenshot (if available).
-  screenshotPath: option<string>,
-  /// ISO 8601 timestamp of the last test run.
-  testedAt: option<string>,
-  /// Free-text notes for this cell.
-  notes: string,
-}
-
-/// Aggregate statistics for the compatibility matrix.
-type matrixSummary = {
-  /// Total number of cells in the matrix.
-  totalCells: int,
-  /// Number of passing cells.
-  passing: int,
-  /// Number of failing cells.
-  failing: int,
-  /// Number of warning cells.
-  warnings: int,
-  /// Number of untested cells.
-  untested: int,
-  /// Number of skipped cells.
-  skipped: int,
-  /// Overall pass rate as a percentage (0.0 to 100.0).
-  passRate: float,
-}
-
-// ============================================================================
-// Tab Navigation
-// ============================================================================
-
-/// Active tab within the Compatibility Matrix panel.
-type compatibilityTab =
-  /// Matrix — the full browser x device grid with colour-coded cells.
-  | TabMatrix
-  /// Failures — filtered list of failing cells with failure details.
-  | TabFailures
-  /// Screenshots — gallery of captured screenshots for visual comparison.
-  | TabScreenshots
-  /// Targets — manage browser and device target lists.
-  | TabTargets
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Root state for the Compatibility Matrix panel.
-type compatibilityMatrixState = {
-  /// Active tab within the panel.
-  activeTab: compatibilityTab,
-  /// Target browsers to test against.
-  browsers: array<browserTarget>,
-  /// Target devices to test against.
-  devices: array<deviceTarget>,
-  /// Matrix cells (one per browser x device combination).
-  cells: array<matrixCell>,
-  /// Whether a test suite is currently running.
-  running: bool,
-  /// Currently selected browser for drill-down.
-  selectedBrowser: option<string>,
-  /// Currently selected device for drill-down.
-  selectedDevice: option<string>,
-  /// Error from the last operation.
-  error: option<string>,
-}
diff --git a/src/model/ContractileCompletenessModel.affine b/src/model/ContractileCompletenessModel.affine
new file mode 100644
index 00000000..8e9b7927
--- /dev/null
+++ b/src/model/ContractileCompletenessModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ContractileCompletenessModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/ContractileCompletenessModel.res b/src/model/ContractileCompletenessModel.res
deleted file mode 100644
index 71b5b6be..00000000
--- a/src/model/ContractileCompletenessModel.res
+++ /dev/null
@@ -1,49 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Contractile Completeness Model — Mustfile/Trustfile/Dustfile/K9 coverage.
-///
-/// Scans repos for the presence and validity of contractile governance files.
-/// Each repo should have a Mustfile, Trustfile, Dustfile, and at least one
-/// K9 kennel configuration.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// Contractile file presence for a single repository.
-type repoContractileStatus = {
-  /// Repository name.
-  repoName: string,
-  /// Whether a Mustfile is present.
-  hasMustfile: bool,
-  /// Whether a Trustfile is present.
-  hasTrustfile: bool,
-  /// Whether a Dustfile is present.
-  hasDustfile: bool,
-  /// Whether at least one K9 .k9.ncl file is present.
-  hasK9: bool,
-  /// Number of K9 configurations found.
-  k9Count: int,
-  /// Last scan timestamp (ISO 8601).
-  lastScanned: string,
-}
-
-/// Contractile Completeness panel tabs.
-type contractileCompletenessTab =
-  | TabOverview
-  | TabRepoList
-  | TabMissing
-
-/// Root state for the Contractile Completeness panel.
-type contractileCompletenessState = {
-  /// Active tab.
-  activeTab: contractileCompletenessTab,
-  /// Per-repo contractile file status.
-  repos: array<repoContractileStatus>,
-  /// Currently selected repo for detail view.
-  selectedRepo: option<string>,
-  /// Whether a filesystem scan is in progress.
-  scanning: bool,
-  /// Error from last scan.
-  error: option<string>,
-  /// Search/filter text.
-  filterText: string,
-}
diff --git a/src/model/CoprocessorsModel.affine b/src/model/CoprocessorsModel.affine
new file mode 100644
index 00000000..328c5a48
--- /dev/null
+++ b/src/model/CoprocessorsModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CoprocessorsModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/CoprocessorsModel.res b/src/model/CoprocessorsModel.res
deleted file mode 100644
index aac177ae..00000000
--- a/src/model/CoprocessorsModel.res
+++ /dev/null
@@ -1,166 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Coprocessors Model — types for monitoring IDApTIK's coprocessor
-/// backends (Compute, Security, I/O). Call log, heatmap, performance
-/// metrics, backend toggles, and health status.
-
-/// Coprocessor backend identity.
-type coprocessorBackend =
-  | CoprocMaths
-  | CoprocVector
-  | CoprocTensor
-  | CoprocPhysics
-  | CoprocCrypto
-  | CoprocNeural
-  | CoprocQuantum
-  | CoprocAudio
-  | CoprocGraphics
-  | CoprocIO
-
-/// Coprocessor health status.
-type coprocHealth =
-  | CoprocHealthy
-  | CoprocDegraded
-  | CoprocFailed
-  | CoprocDisabled
-
-/// A call log entry from a coprocessor invocation.
-type coprocCallEntry = {
-  id: int,
-  backend: coprocessorBackend,
-  operation: string,
-  inputSummary: string,
-  outputSummary: string,
-  durationMs: float,
-  timestamp: float,
-  success: bool,
-}
-
-/// Performance metrics for a coprocessor backend.
-type coprocMetrics = {
-  backend: coprocessorBackend,
-  totalCalls: int,
-  avgDurationMs: float,
-  maxDurationMs: float,
-  errorRate: float,
-  lastCallTimestamp: float,
-  health: coprocHealth,
-}
-
-/// Heatmap cell — represents call frequency for a backend over a time slot.
-type heatmapCell = {
-  backend: coprocessorBackend,
-  timeSlot: int,
-  callCount: int,
-  avgDuration: float,
-}
-
-/// Category tabs for the Coprocessors panel.
-type coprocessorsCategory =
-  | CoprocDashboard
-  | CoprocCallLog
-  | CoprocHeatmap
-  | CoprocRouting
-  | CoprocSettings
-
-/// Compute engine identity — external services that provide compute.
-type computeEngine =
-  /// Axiom.jl — Julia-based multi-backend compute with SmartBackend dispatch.
-  | EngineAxiom
-  /// BoJ cartridge — Zig FFI compute via cartridge ABI.
-  | EngineBoJ
-  /// Local CPU/WASM — direct in-process compute (Phase 2).
-  | EngineLocal
-
-/// A discovered compute device from a compute engine.
-type computeDevice = {
-  engineId: computeEngine,
-  deviceName: string,
-  deviceType: string,
-  available: bool,
-  capabilities: array<string>,
-}
-
-/// A compute query result from an engine.
-type computeQueryResult = {
-  engineId: computeEngine,
-  operation: string,
-  result: string,
-  durationMs: float,
-  success: bool,
-}
-
-/// Routing strategy for compute dispatch.
-type routingStrategy =
-  /// Use local Zig FFI (fastest, no network).
-  | RouteLocal
-  /// Use remote Axiom.jl (most capable).
-  | RouteRemote
-  /// Use BoJ cartridge (unified API).
-  | RouteBoj
-  /// Smart routing — engine decides based on load, capabilities, availability.
-  | RouteAutomatic
-
-/// Local dispatch state for Phase 2.
-type localDispatchState = {
-  /// Whether the Zig FFI shared library (.so) is loaded.
-  ffiLoaded: bool,
-  /// Path to the Zig FFI .so file.
-  ffiPath: string,
-  /// Filesystem path passed to coprocessor_load_ffi (may differ from ffiPath
-  /// if the user specified a custom location).
-  ffiLibPath: option<string>,
-  /// Available local devices (GPU, CPU cores).
-  localDevices: array<computeDevice>,
-  /// Current CPU utilisation (0.0–1.0).
-  cpuUtilisation: float,
-  /// Available GPU memory in MB (0 if no GPU).
-  gpuMemoryMb: int,
-  /// Number of pending local dispatches.
-  pendingDispatches: int,
-  /// Number of CPU cores available for local dispatch.
-  cpuCores: int,
-  /// Backend names available through the loaded FFI library.
-  availableBackends: array<string>,
-}
-
-/// Routing decision record — tracks why a particular route was chosen.
-type routingDecision = {
-  /// The operation that was routed.
-  operation: string,
-  /// The route that was chosen.
-  chosenRoute: routingStrategy,
-  /// Human-readable reason for the choice.
-  reason: string,
-  /// Estimated latency for this route in milliseconds.
-  latencyEstimateMs: float,
-  /// Timestamp when the decision was made.
-  timestamp: float,
-}
-
-/// Root state for the Coprocessors panel.
-type coprocessorsState = {
-  activeCategory: coprocessorsCategory,
-  metrics: array<coprocMetrics>,
-  callLog: array<coprocCallEntry>,
-  heatmap: array<heatmapCell>,
-  enabledBackends: array<coprocessorBackend>,
-  selectedBackend: option<coprocessorBackend>,
-  filterText: string,
-  autoRefresh: bool,
-  refreshIntervalMs: int,
-  loading: bool,
-  error: option<string>,
-  /// Control plane: discovered compute devices from external engines.
-  discoveredDevices: array<computeDevice>,
-  /// Control plane: most recent compute query result.
-  lastComputeResult: option<computeQueryResult>,
-  /// When true, compute operations route through BoJ agent-mcp cartridge instead of direct HTTP.
-  bojRouting: bool,
-  /// Phase 2: Local dispatch state.
-  localDispatch: localDispatchState,
-  /// Phase 3: Active routing strategy.
-  routingStrategy: routingStrategy,
-  /// Phase 3: Recent routing decisions for audit trail.
-  routingHistory: array<routingDecision>,
-}
diff --git a/src/model/DatabaseBridgeModel.affine b/src/model/DatabaseBridgeModel.affine
new file mode 100644
index 00000000..0aa03b2c
--- /dev/null
+++ b/src/model/DatabaseBridgeModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module DatabaseBridgeModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/DatabaseBridgeModel.res b/src/model/DatabaseBridgeModel.res
deleted file mode 100644
index 07393903..00000000
--- a/src/model/DatabaseBridgeModel.res
+++ /dev/null
@@ -1,181 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Database Bridge Model — connects VeriSimDB verified database layer to
-/// IDApTIK game development. Bridges formal schema verification with game
-/// state persistence, query optimisation reasoning, and proof obligations
-/// for data integrity.
-///
-/// Three-panel model (L/N/W):
-///   L: VeriSimDB schema constraints, proof obligations for data integrity
-///   N: Query optimisation reasoning via ECHIDNA analysis
-///   W: Game state persistence viewer with live snapshots
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-// ============================================================================
-// Tab Navigation
-// ============================================================================
-
-/// Category tabs for the Database Bridge panel.
-type databaseBridgeTab =
-  /// Schema — browse and define VeriSimDB schemas with constraints.
-  | Schema
-  /// Queries — query history, execution, and optimisation suggestions.
-  | Queries
-  /// GameState — live game state persistence viewer.
-  | GameState
-  /// ProofObligations — formal proof obligations for schema integrity.
-  | ProofObligations
-
-// ============================================================================
-// Schema Domain
-// ============================================================================
-
-/// Data type of a schema column in VeriSimDB.
-type columnDataType =
-  /// Integer (signed, platform-width).
-  | ColInt
-  /// Floating-point number.
-  | ColFloat
-  /// UTF-8 string with optional max length.
-  | ColString
-  /// Boolean flag.
-  | ColBool
-  /// Timestamp (milliseconds since epoch).
-  | ColTimestamp
-  /// Binary blob.
-  | ColBlob
-  /// JSON document.
-  | ColJson
-
-/// A column definition within a VeriSimDB schema.
-type schemaColumn = {
-  /// Column name.
-  name: string,
-  /// Data type.
-  dataType: columnDataType,
-  /// Whether this column may be null.
-  nullable: bool,
-  /// Whether this column is part of the primary key.
-  primaryKey: bool,
-  /// Constraint expression (e.g., "value > 0", "length <= 255").
-  @as("constraint") constraint_: option<string>,
-}
-
-/// A VeriSimDB schema definition for a game data table.
-type schema = {
-  /// Schema/table name (e.g., "player_state", "inventory_items").
-  name: string,
-  /// Column definitions.
-  columns: array<schemaColumn>,
-  /// Cross-column invariants (e.g., "health <= max_health").
-  invariants: array<string>,
-  /// Description of what this schema stores.
-  description: string,
-}
-
-// ============================================================================
-// Query History
-// ============================================================================
-
-/// Status of a query execution.
-type queryStatus =
-  /// Query completed successfully.
-  | QuerySuccess
-  /// Query failed with an error.
-  | QueryFailed
-  /// Query is currently executing.
-  | QueryRunning
-  /// Query was cancelled.
-  | QueryCancelled
-
-/// A query history entry recording an executed query and its result.
-type dbQueryHistoryEntry = {
-  /// Unique query identifier.
-  id: string,
-  /// The SQL or VeriSimDB query text.
-  queryText: string,
-  /// Execution status.
-  status: queryStatus,
-  /// Number of rows returned or affected.
-  rowCount: int,
-  /// Execution duration in milliseconds.
-  durationMs: float,
-  /// Timestamp when the query was executed (milliseconds since epoch).
-  executedAt: float,
-  /// Optimisation suggestions from ECHIDNA reasoning.
-  optimisationHints: array<string>,
-}
-
-// ============================================================================
-// Proof Obligations
-// ============================================================================
-
-/// Verification status of a proof obligation.
-type proofObligationStatus =
-  /// Proven — ECHIDNA verified the obligation holds.
-  | ObligationProven
-  /// Unproven — obligation has not been checked yet.
-  | ObligationUnproven
-  /// Violated — ECHIDNA found a counterexample.
-  | ObligationViolated
-  /// Timeout — verification timed out.
-  | ObligationTimeout
-
-/// A formal proof obligation arising from schema constraints.
-type dbProofObligation = {
-  /// Unique obligation identifier.
-  id: string,
-  /// The schema this obligation applies to.
-  schemaName: string,
-  /// Formal statement of the obligation.
-  statement: string,
-  /// Verification status.
-  status: proofObligationStatus,
-  /// Counterexample if violated.
-  counterexample: option<string>,
-  /// Human-readable description.
-  description: string,
-}
-
-// ============================================================================
-// Game State Snapshot
-// ============================================================================
-
-/// A snapshot of persisted game state from VeriSimDB.
-type gameStateSnapshot = {
-  /// Snapshot identifier.
-  snapshotId: string,
-  /// Timestamp when the snapshot was taken (milliseconds since epoch).
-  takenAt: float,
-  /// Number of tables in this snapshot.
-  tableCount: int,
-  /// Total number of rows across all tables.
-  totalRows: int,
-  /// Size in bytes.
-  sizeBytes: int,
-  /// Per-table row counts as (table_name, row_count) pairs.
-  tableSizes: array<(string, int)>,
-}
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Root state for the Database Bridge panel.
-type databaseBridgeState = {
-  /// Active tab within the Database Bridge panel.
-  activeTab: databaseBridgeTab,
-  /// All registered VeriSimDB schemas.
-  schemas: array<schema>,
-  /// Query execution history (most recent first).
-  queries: array<dbQueryHistoryEntry>,
-  /// Formal proof obligations for schema integrity.
-  proofObligations: array<dbProofObligation>,
-  /// Most recent game state snapshot.
-  gameStateSnapshot: option<gameStateSnapshot>,
-  /// Whether VeriSimDB is connected.
-  connected: bool,
-  /// Error from the last operation.
-  error: option<string>,
-}
diff --git a/src/model/DatabasesModel.affine b/src/model/DatabasesModel.affine
new file mode 100644
index 00000000..fdd0d5e9
--- /dev/null
+++ b/src/model/DatabasesModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module DatabasesModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/DatabasesModel.res b/src/model/DatabasesModel.res
deleted file mode 100644
index 2c9f5c34..00000000
--- a/src/model/DatabasesModel.res
+++ /dev/null
@@ -1,100 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Databases Model — types for the unified database management panel.
-///
-/// Composes DatabaseModule + DatabaseRegistry into a panel-level state that
-/// manages VeriSimDB, QuandleDB, and LithoGlyph in a single view with
-/// per-module connection, querying, drift detection, and telemetry.
-///
-/// Dependency: leaf module — imports only DatabaseModule (which has no deps).
-
-open DatabaseModule
-
-// ============================================================================
-// Panel Tabs
-// ============================================================================
-
-/// Category tabs for the Databases panel.
-type databasesCategory =
-  /// Overview — connection status, health cards, capability matrix.
-  | DbDashboard
-  /// Query console — unified editor with per-module language switching.
-  | DbQuery
-  /// Schema browser — entity lists, table structure, modality details.
-  | DbSchema
-  /// Drift monitor — cross-modal drift heatmap and normalisation controls.
-  | DbDrift
-  /// Telemetry — aggregate usage metrics per module (opt-in).
-  | DbTelemetry
-
-// ============================================================================
-// Query History
-// ============================================================================
-
-/// A single entry in the query history log.
-type queryHistoryEntry = {
-  /// Which database module ran the query.
-  moduleId: string,
-  /// The query text.
-  query: string,
-  /// Execution time in ms.
-  durationMs: float,
-  /// Row count returned.
-  rowCount: int,
-  /// Whether the query succeeded.
-  success: bool,
-  /// ISO timestamp.
-  timestamp: string,
-}
-
-// ============================================================================
-// Schema Types
-// ============================================================================
-
-/// A schema entity (table, collection, modality store).
-type schemaEntity = {
-  /// Entity name.
-  name: string,
-  /// Entity kind (e.g., "table", "modality", "collection", "graph").
-  kind: string,
-  /// Column/field names.
-  fields: array<string>,
-  /// Row/document/entry count.
-  entryCount: int,
-}
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Root state for the Databases panel.
-type databasesState = {
-  /// Per-module runtime state indexed by module ID.
-  modules: array<moduleState>,
-  /// Currently selected module ID (e.g., "verisim").
-  selectedModule: string,
-  /// Active category tab.
-  activeCategory: databasesCategory,
-  /// Current query text in the editor.
-  queryInput: string,
-  /// Whether a query is currently executing.
-  queryLoading: bool,
-  /// Query history (most recent first, capped at 100).
-  queryHistory: array<queryHistoryEntry>,
-  /// Schema entities for the selected module.
-  schemaEntities: array<schemaEntity>,
-  /// Selected entity name for detail view.
-  selectedEntity: option<string>,
-  /// Entity detail JSON (loaded on selection).
-  entityDetail: option<string>,
-  /// Filter text for schema browser.
-  filterText: string,
-  /// Overall loading state.
-  loading: bool,
-  /// Panel-level error.
-  error: option<string>,
-  /// TypeLL cross-panel type-check result JSON.
-  lastTypeCheck: option<string>,
-  /// Route queries through BoJ's database-mcp cartridge.
-  bojRouting: bool,
-}
diff --git a/src/model/DebuggingWorkbenchModel.affine b/src/model/DebuggingWorkbenchModel.affine
new file mode 100644
index 00000000..97eea4d5
--- /dev/null
+++ b/src/model/DebuggingWorkbenchModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module DebuggingWorkbenchModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/DebuggingWorkbenchModel.res b/src/model/DebuggingWorkbenchModel.res
deleted file mode 100644
index 5a0d5634..00000000
--- a/src/model/DebuggingWorkbenchModel.res
+++ /dev/null
@@ -1,106 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Debugging Workbench Model — time-travel debugging, state inspection,
-/// watch expressions, and console output for the TEA model.
-///
-/// Captures model snapshots at each TEA update cycle, enabling forward/backward
-/// stepping through state history. Provides watch expressions that evaluate
-/// against the model at each snapshot, and a console log for debug output.
-///
-/// Clade: Inspector. This module has NO dependencies on other PanLL modules.
-
-// ============================================================================
-// State Snapshots
-// ============================================================================
-
-/// A snapshot of model state captured at a point in time during execution.
-/// Snapshots are the foundation of time-travel debugging — each one
-/// represents a complete, frozen model state that can be inspected.
-type debugSnapshot = {
-  /// Unique snapshot identifier (monotonically increasing).
-  id: string,
-  /// Serialised model state as JSON.
-  modelJson: string,
-  /// Epoch timestamp in milliseconds when this snapshot was captured.
-  timestamp: float,
-  /// Human-readable label (auto-generated from the triggering message).
-  label: string,
-}
-
-// ============================================================================
-// Time Travel State
-// ============================================================================
-
-/// Navigation state for the time-travel debugger.
-type timeTravelState = {
-  /// Current position in the snapshot timeline (0-based index).
-  currentIndex: int,
-  /// All captured snapshots in chronological order.
-  snapshots: array<debugSnapshot>,
-  /// Whether time-travel mode is active (model frozen at a historical state).
-  isTimeTravelling: bool,
-}
-
-// ============================================================================
-// Watch Expressions
-// ============================================================================
-
-/// A watched expression that is re-evaluated whenever the active snapshot changes.
-/// Expressions are JSON path queries into the serialised model state.
-type watchExpression = {
-  /// Unique watch identifier.
-  id: string,
-  /// The JSON path expression (e.g., "fleet.bots[0].status").
-  expression: string,
-  /// Current evaluated value (serialised as string).
-  currentValue: string,
-  /// Epoch timestamp of the last successful evaluation.
-  lastUpdated: float,
-}
-
-/// Console output entry in the debug console.
-type consoleEntry = {
-  /// Console message text.
-  message: string,
-  /// Log level ("log", "warn", "error", "info").
-  level: string,
-  /// Epoch timestamp of this entry.
-  timestamp: float,
-}
-
-// ============================================================================
-// Tab Navigation
-// ============================================================================
-
-/// Active tab within the Debugging Workbench panel.
-type debuggingWorkbenchTab =
-  /// Time Travel — snapshot timeline slider with step forward/backward.
-  | TabTimeTravel
-  /// State Inspector — JSON tree view of the model at the current snapshot.
-  | TabStateInspector
-  /// Watch Expressions — user-defined expressions evaluated at each snapshot.
-  | TabWatchExpressions
-  /// Console — debug output log with level filtering.
-  | TabConsole
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Root state for the Debugging Workbench panel.
-type debuggingWorkbenchState = {
-  /// Active tab within the panel.
-  activeTab: debuggingWorkbenchTab,
-  /// Time-travel navigation state.
-  timeTravel: timeTravelState,
-  /// User-defined watch expressions.
-  watches: array<watchExpression>,
-  /// Console output log.
-  consoleLog: array<string>,
-  /// Structured console entries (richer than plain strings).
-  consoleEntries: array<consoleEntry>,
-  /// Currently selected snapshot ID for detail view.
-  selectedSnapshot: option<string>,
-  /// Error from the last operation.
-  error: option<string>,
-}
diff --git a/src/model/DeviceNetworkDesignerModel.affine b/src/model/DeviceNetworkDesignerModel.affine
new file mode 100644
index 00000000..376a68e6
--- /dev/null
+++ b/src/model/DeviceNetworkDesignerModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module DeviceNetworkDesignerModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/DeviceNetworkDesignerModel.res b/src/model/DeviceNetworkDesignerModel.res
deleted file mode 100644
index 171f1b61..00000000
--- a/src/model/DeviceNetworkDesignerModel.res
+++ /dev/null
@@ -1,90 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Device Network Designer Model — types for wiring devices,
-/// configuring security levels, and validating network topology.
-///
-/// Devices are placed as nodes on a canvas and connected with typed
-/// wire connections. Each connection has a protocol, encryption flag,
-/// and bandwidth rating. The validation engine checks for orphaned
-/// devices, security mismatches, and topology errors.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// A device node placed on the network design canvas.
-type deviceNode = {
-  /// Unique identifier for this device.
-  id: string,
-  /// Device type name (e.g., "Router", "Server", "Camera", "Firewall").
-  deviceType: string,
-  /// X position on the canvas in world coordinates.
-  x: float,
-  /// Y position on the canvas in world coordinates.
-  y: float,
-  /// Security level tier (0 = open, higher = more restricted).
-  securityLevel: int,
-  /// Zone name this device belongs to (e.g., "LAN", "DMZ", "SCADA").
-  zone: string,
-  /// Key-value properties for this device instance.
-  properties: Dict.t<string>,
-}
-
-/// A wire connection between two devices.
-type wireConnection = {
-  /// Unique identifier for this connection.
-  id: string,
-  /// ID of the source device.
-  fromDevice: string,
-  /// ID of the destination device.
-  toDevice: string,
-  /// Protocol name (e.g., "TCP", "UDP", "SSH", "HTTPS", "Modbus").
-  protocol: string,
-  /// Whether the connection is encrypted.
-  encrypted: bool,
-  /// Bandwidth rating (e.g., "1Gbps", "100Mbps", "10Mbps").
-  bandwidth: string,
-}
-
-/// Result of validating the network topology.
-type networkValidation = {
-  /// Whether the entire network passes validation.
-  valid: bool,
-  /// Critical errors that must be fixed.
-  errors: array<string>,
-  /// Non-critical warnings to review.
-  warnings: array<string>,
-  /// Total number of devices in the network.
-  deviceCount: int,
-  /// Total number of connections in the network.
-  connectionCount: int,
-}
-
-/// Category tabs for the Device Network Designer panel.
-type deviceNetworkDesignerCategory =
-  /// Visual canvas for placing and connecting devices.
-  | Designer
-  /// Device catalogue and properties inspector.
-  | Devices
-  /// Wire connection list and configuration.
-  | Wiring
-  /// Network topology validation results.
-  | Validation
-
-/// Root state for the Device Network Designer panel.
-type deviceNetworkDesignerState = {
-  /// Active category tab.
-  activeTab: deviceNetworkDesignerCategory,
-  /// All devices placed on the design canvas.
-  devices: array<deviceNode>,
-  /// All wire connections between devices.
-  connections: array<wireConnection>,
-  /// Most recent network validation result (if any).
-  validation: option<networkValidation>,
-  /// ID of the currently selected device (if any).
-  selectedDevice: option<string>,
-  /// ID of the currently selected connection (if any).
-  selectedConnection: option<string>,
-  /// Whether wiring mode is active (click devices to connect).
-  wiringMode: bool,
-  /// Error message (if any).
-  error: option<string>,
-}
diff --git a/src/model/DlcWorkshopModel.affine b/src/model/DlcWorkshopModel.affine
new file mode 100644
index 00000000..de77c46a
--- /dev/null
+++ b/src/model/DlcWorkshopModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module DlcWorkshopModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/DlcWorkshopModel.res b/src/model/DlcWorkshopModel.res
deleted file mode 100644
index e267041e..00000000
--- a/src/model/DlcWorkshopModel.res
+++ /dev/null
@@ -1,97 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL DLC Workshop Model — types for creating, testing, and packaging
-/// IDApTIK DLC puzzle packs. VM instruction composer, solution test
-/// runner, difficulty classification, and asset bundling.
-
-/// Puzzle difficulty classification.
-type puzzleDifficulty =
-  | DifficultyTutorial
-  | DifficultyEasy
-  | DifficultyMedium
-  | DifficultyHard
-  | DifficultyExpert
-  | DifficultyNightmare
-
-/// Test run status for a puzzle solution.
-type testRunStatus =
-  | TestNotRun
-  | TestRunning
-  | TestPassed
-  | TestFailed(string)
-  | TestTimeout
-
-/// A VM instruction in the puzzle composer.
-type puzzleInstruction = {
-  index: int,
-  opcode: string,
-  operand: option<int>,
-  comment: string,
-}
-
-/// A puzzle in the DLC pack.
-type dlcPuzzle = {
-  id: string,
-  name: string,
-  description: string,
-  difficulty: puzzleDifficulty,
-  instructions: array<puzzleInstruction>,
-  solutionSteps: int,
-  optimalSteps: int,
-  testStatus: testRunStatus,
-  hints: array<string>,
-}
-
-/// A chain of puzzles (level progression).
-type puzzleChain = {
-  id: string,
-  name: string,
-  puzzleIds: array<string>,
-  unlockCondition: string,
-}
-
-/// A DLC asset (sprite, sound, etc.).
-type dlcAsset = {
-  id: string,
-  name: string,
-  assetType: string,
-  filePath: string,
-  sizeBytes: int,
-}
-
-/// DLC pack metadata.
-type dlcPackMeta = {
-  packId: string,
-  name: string,
-  version: string,
-  author: string,
-  description: string,
-  puzzleCount: int,
-  totalSizeBytes: int,
-}
-
-/// Category tabs for the DLC Workshop panel.
-type dlcWorkshopCategory =
-  | WorkshopPuzzles
-  | WorkshopComposer
-  | WorkshopTesting
-  | WorkshopAssets
-  | WorkshopPackaging
-
-/// Root state for the DLC Workshop panel.
-type dlcWorkshopState = {
-  activeCategory: dlcWorkshopCategory,
-  puzzles: array<dlcPuzzle>,
-  chains: array<puzzleChain>,
-  assets: array<dlcAsset>,
-  packMeta: dlcPackMeta,
-  selectedPuzzleId: option<string>,
-  selectedChainId: option<string>,
-  composerInstructions: array<puzzleInstruction>,
-  testResults: array<(string, testRunStatus)>,
-  filterText: string,
-  filterDifficulty: option<puzzleDifficulty>,
-  showTestOutput: bool,
-  loading: bool,
-  error: option<string>,
-}
diff --git a/src/model/EchidnaModel.affine b/src/model/EchidnaModel.affine
new file mode 100644
index 00000000..1e348dcf
--- /dev/null
+++ b/src/model/EchidnaModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module EchidnaModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/EchidnaModel.res b/src/model/EchidnaModel.res
deleted file mode 100644
index 9a67dd30..00000000
--- a/src/model/EchidnaModel.res
+++ /dev/null
@@ -1,278 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL ECHIDNA Types — Theorem prover dispatch engine state.
-///
-/// ECHIDNA is the multi-solver proof dispatch system that sits behind PanLL's
-/// Pane-N. It manages prover catalogs, proof sessions, trust assessment,
-/// axiom risk analysis, and tactic suggestions. These types mirror the
-/// ECHIDNA REST API (/api/v1/) response shapes.
-///
-/// This module has NO dependencies on other PanLL modules.
-
-/// ECHIDNA trust level — maps to the prover dispatch's multi-solver confidence.
-/// Level 1 (lowest) is a single unverified solver; Level 5 is cross-checked
-/// formal proof with no axiom risks.
-type echidnaTrustLevel =
-  | TrustLevel1 // Unverified / single solver, high axiom risk
-  | TrustLevel2 // Single solver, no dangerous axioms
-  | TrustLevel3 // Multiple solvers agree
-  | TrustLevel4 // Cross-checked, no axiom issues
-  | TrustLevel5 // Full formal proof, cross-checked, certificate issued
-
-/// Axiom danger classification — used by the axiom report to flag risky
-/// assumptions in proof obligations (e.g., believe_me, Admitted, sorry).
-type axiomDangerLevel =
-  | Safe // No concerns
-  | Noted // Informational (e.g., standard library axioms)
-  | Warning // Potentially unsound (e.g., functional extensionality)
-  | Reject // Proof-breaking (e.g., believe_me, Admitted)
-
-/// Portfolio confidence — aggregate confidence across multiple provers.
-/// Cross-checked means multiple independent solvers agree on the result.
-type portfolioConfidence =
-  | CrossChecked // Multiple solvers independently agree
-  | SingleSolver // Only one solver produced a result
-  | Inconclusive // Solvers disagree or partial results
-  | AllTimedOut // Every solver timed out
-
-/// A prover registered in the ECHIDNA prover catalog.
-/// Tier indicates the solver family (e.g., SMT, ATP, ITP, tactic engine).
-type echidnaProver = {
-  /// Prover display name (e.g. "Z3", "CVC5", "Coq").
-  name: string,
-  /// Solver family tier (e.g. "SMT", "ATP", "ITP", "tactic").
-  tier: string,
-  /// Complexity class this prover targets (e.g. "QF_LIA", "HOL").
-  complexity: string,
-}
-
-/// A single axiom usage entry from the axiom report — flags whether
-/// the proof relies on dangerous assumptions.
-type axiomUsage = {
-  /// Name of the axiom used in the proof.
-  axiomName: string,
-  /// Danger classification for this axiom.
-  dangerLevel: axiomDangerLevel,
-  /// Human-readable explanation of the axiom's impact.
-  description: string,
-}
-
-/// The structured result of an ECHIDNA dispatch (proof submission).
-/// Contains verification status, trust assessment, prover telemetry,
-/// axiom risk report, and optional certificate hash.
-type echidnaDispatchResult = {
-  /// Whether the proof obligation was verified.
-  verified: bool,
-  /// Trust level assigned by the multi-solver assessment.
-  trustLevel: echidnaTrustLevel,
-  /// Names of provers that participated in this dispatch.
-  proversUsed: array<string>,
-  /// Wall-clock time spent on the proof in milliseconds.
-  proofTimeMs: float,
-  /// Number of proof goals still remaining (0 = fully proven).
-  goalsRemaining: int,
-  /// Axiom risk report for this proof.
-  axiomReport: array<axiomUsage>,
-  /// Hash of the issued proof certificate, if verification succeeded.
-  certificateHash: option<string>,
-  /// Human-readable result summary message.
-  message: string,
-  /// Portfolio confidence level across multiple solvers.
-  crossChecked: portfolioConfidence,
-}
-
-/// A tactic suggestion from the ECHIDNA ML advisor.
-/// Includes tactic name, arguments, confidence score, aspect tags, and description.
-/// The ML advisor (Julia :8090) or prover fallback populates these.
-type echidnaTacticSuggestion = {
-  /// Tactic name (e.g. "intros", "apply", "rewrite").
-  tactic: string,
-  /// Arguments to pass to the tactic.
-  args: array<string>,
-  /// ML advisor confidence in this suggestion (0.0-1.0).
-  confidence: float,
-  /// Aspect tags describing the tactic's purpose.
-  aspectTags: array<string>,
-  /// Human-readable explanation of what this tactic does.
-  description: string,
-}
-
-/// ECHIDNA proof session status — maps to the ProofResponse status field
-/// from the ECHIDNA REST API (/api/v1/proofs).
-type echidnaProofStatus =
-  | Pending // Session created, awaiting first tactic
-  | InProgress // Tactics being applied, goals remaining
-  | ProofSuccess // All goals discharged
-  | ProofFailed // Proof attempt failed
-  | ProofTimeout // Solver timed out
-  | ProofError // Internal error during proof
-
-/// Interactive proof session state — mirrors ECHIDNA's ProofResponse.
-/// Tracks session identity, prover, goals, applied tactics, and timing.
-type echidnaSessionState = {
-  /// Unique session identifier from the ECHIDNA backend.
-  sessionId: string,
-  /// Name of the prover driving this session.
-  prover: string,
-  /// The top-level proof goal text.
-  goal: string,
-  /// Current status of this proof session.
-  status: echidnaProofStatus,
-  /// Remaining proof goals (subgoals).
-  goals: array<string>,
-  /// Accumulated proof script (tactic history).
-  proofScript: array<string>,
-  /// Whether the proof is complete (all goals discharged).
-  complete: bool,
-  /// Ordered list of tactics applied so far.
-  tacticsApplied: array<string>,
-  /// Elapsed time in milliseconds since session start.
-  timeElapsed: option<float>,
-  /// Error message if the session encountered a problem.
-  errorMessage: option<string>,
-}
-
-// ===========================================================================
-// MOF / OCL / Enterprise Architecture Modeling (OMG + The Open Group)
-// ===========================================================================
-
-/// MOF layer in the OMG four-layer metamodel hierarchy.
-/// M3 is MOF itself, M2 is a metamodel (UML, ArchiMate), M1 is a user model,
-/// M0 is the runtime instance.
-type mofLayer =
-  | M3_MetaMetaModel // MOF itself — defines how metamodels are structured
-  | M2_Metamodel // UML, ArchiMate, SysML, BPMN — defines modeling languages
-  | M2_Profile // UML/SysML profiles — domain-specific extensions
-  | M1_Model // User's model — instances of the metamodel
-  | M0_Instance // Runtime objects — instances of the model
-
-/// Supported metamodel standards at the M2 layer.
-type metamodelStandard =
-  | UML // OMG Unified Modeling Language (class, sequence, state, etc.)
-  | SysML // OMG Systems Modeling Language (requirements, blocks, parametrics)
-  | ArchiMate // The Open Group ArchiMate (enterprise architecture)
-  | BPMN // OMG Business Process Model and Notation
-  | DMN // OMG Decision Model and Notation
-  | CMMN // OMG Case Management Model and Notation
-  | ODM // OMG Ontology Definition Metamodel
-  | CustomProfile // User-defined UML/SysML profile
-
-/// OCL constraint severity — maps to how strictly the constraint is enforced.
-type oclSeverity =
-  | OclInvariant // Must always hold (inv:)
-  | OclPrecondition // Must hold before operation (pre:)
-  | OclPostcondition // Must hold after operation (post:)
-  | OclDerive // Derived value specification (derive:)
-  | OclInit // Initial value specification (init:)
-  | OclBody // Body of a query operation (body:)
-
-/// A single OCL constraint to be verified by ECHIDNA.
-type oclConstraint = {
-  /// Context classifier (e.g. "Package::ClassName").
-  context: string,
-  /// Constraint name (e.g. "positiveBalance", "validState").
-  name: string,
-  /// OCL expression text.
-  expression: string,
-  /// Constraint kind.
-  severity: oclSeverity,
-  /// Which MOF layer this constraint operates at.
-  layer: mofLayer,
-  /// Which metamodel standard this constraint belongs to.
-  metamodel: metamodelStandard,
-}
-
-/// Result of checking a single OCL constraint via ECHIDNA solvers.
-type oclCheckResult = {
-  /// The constraint that was checked.
-  @as("constraint") oclRule: oclConstraint,
-  /// Whether the constraint is satisfied.
-  satisfied: bool,
-  /// Counter-example if violated (model element path + values).
-  counterExample: option<string>,
-  /// Which solver verified this constraint.
-  solverUsed: string,
-  /// Verification time in milliseconds.
-  checkTimeMs: float,
-}
-
-/// Enterprise architecture model element — a node in the MOF instance graph.
-type modelElement = {
-  /// Qualified name (e.g. "org.example::OrderService").
-  qualifiedName: string,
-  /// Metaclass (e.g. "Class", "Component", "BusinessProcess", "ApplicationService").
-  metaclass: string,
-  /// MOF layer.
-  layer: mofLayer,
-  /// Metamodel standard.
-  metamodel: metamodelStandard,
-  /// Attributes as key-value pairs.
-  attributes: array<(string, string)>,
-  /// Outgoing relationships (relationship type, target qualified name).
-  relationships: array<(string, string)>,
-}
-
-/// State for enterprise architecture model checking within ECHIDNA.
-type enterpriseModelState = {
-  /// Loaded model elements.
-  elements: array<modelElement>,
-  /// OCL constraints to verify against the model.
-  constraints: array<oclConstraint>,
-  /// Results from the most recent constraint check batch.
-  checkResults: array<oclCheckResult>,
-  /// Whether a batch check is in progress.
-  checking: bool,
-  /// Active metamodel standard filter (None = show all).
-  activeMetamodel: option<metamodelStandard>,
-  /// Active MOF layer filter (None = show all).
-  activeLayer: option<mofLayer>,
-  /// XMI import source path (last imported file).
-  lastXmiImport: option<string>,
-}
-
-/// ECHIDNA panel tabs — selects between proof workbench and enterprise model checking.
-type echidnaTab =
-  | EchidnaProofTab // Traditional theorem prover workbench
-  | EchidnaEnterpriseTab // MOF/OCL/ArchiMate enterprise model checking
-
-/// ECHIDNA backend state — tracks connection, prover catalog, proof lifecycle,
-/// interactive session, tactic suggestions, and enterprise model checking.
-type echidnaState = {
-  /// Whether the ECHIDNA backend is reachable.
-  connected: bool,
-  /// Base URL of the ECHIDNA REST API endpoint.
-  endpoint: string,
-  /// Backend version string, if connected.
-  version: option<string>,
-  /// Available provers from the catalog.
-  provers: array<echidnaProver>,
-  /// Result of the most recent proof dispatch.
-  lastProofResult: option<echidnaDispatchResult>,
-  /// Error message from the last proof operation.
-  proofError: option<string>,
-  /// Whether a proof dispatch is currently in flight.
-  proofLoading: bool,
-  /// Active interactive proof session, if any.
-  session: option<echidnaSessionState>,
-  /// Current tactic suggestions from the ML advisor.
-  tacticSuggestions: array<echidnaTacticSuggestion>,
-  /// Currently selected prover name for the next dispatch.
-  selectedProver: option<string>,
-  /// Raw proof input text from the editor.
-  proofInput: string,
-  /// Whether the ECHIDNA menu dropdown is expanded.
-  menuExpanded: bool,
-  /// Active tab within the ECHIDNA panel.
-  activeTab: echidnaTab,
-  /// Current tactic input text for the interactive session.
-  tacticInput: string,
-  /// Whether a session operation is in flight.
-  sessionLoading: bool,
-  /// TypeLL-generated proof obligations JSON for the last proof input (cross-panel intelligence).
-  lastProofObligations: option<string>,
-  /// When true, proof operations route through BoJ proof-mcp cartridge instead of direct ECHIDNA HTTP.
-  bojRouting: bool,
-  /// Enterprise architecture model checking state (MOF/OCL/ArchiMate/UML).
-  /// ECHIDNA acts as the constraint solver for OMG and The Open Group standards.
-  enterpriseModel: enterpriseModelState,
-}
diff --git a/src/model/EditorBridgeModel.affine b/src/model/EditorBridgeModel.affine
new file mode 100644
index 00000000..ffec5b82
--- /dev/null
+++ b/src/model/EditorBridgeModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module EditorBridgeModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/EditorBridgeModel.res b/src/model/EditorBridgeModel.res
deleted file mode 100644
index fb67a9be..00000000
--- a/src/model/EditorBridgeModel.res
+++ /dev/null
@@ -1,106 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Editor Bridge Model — types for federating with external code
-/// editors (VSCodium, Zed, Helix, Neovim, Emacs) via LSP, editor
-/// extensions, or file watchers. PanLL is mission control, not a text
-/// editor — this panel shows development context without duplicating
-/// the editing surface.
-
-/// Supported editor and modeling tool integrations.
-/// Includes code editors (LSP), enterprise architecture tools (XMI/ArchiMate),
-/// and diagram/design tools (model exchange protocols).
-type editorKind =
-  // Code editors (LSP protocol)
-  | EditorVSCodium
-  | EditorVSCode
-  | EditorZed
-  | EditorHelix
-  | EditorNeovim
-  | EditorEmacs
-  | EditorKakoune
-  // Enterprise architecture & modeling tools (XMI/model exchange)
-  | EditorVisualParadigm // Visual Paradigm Enterprise (UML, ArchiMate, BPMN, SysML)
-  | EditorSparxEA // Sparx Enterprise Architect (UML, SysML, ArchiMate)
-  | EditorArchi // Archi (open-source ArchiMate modeling tool)
-  | EditorCamundaModeler // Camunda Modeler (BPMN/DMN process modeling)
-  | EditorMagicDraw // Dassault MagicDraw / Cameo (UML/SysML)
-  // Custom
-  | EditorCustom(string)
-
-/// Editor connection state.
-type editorConnection =
-  | EditorDisconnected
-  | EditorConnecting
-  | EditorConnected(string)
-  | EditorError(string)
-
-/// A file currently open in the external editor.
-type openEditorFile = {
-  path: string,
-  language: string,
-  modified: bool,
-  cursorLine: int,
-  cursorCol: int,
-  selections: int,
-}
-
-/// An LSP diagnostic from the editor.
-type editorDiagnostic = {
-  filePath: string,
-  line: int,
-  col: int,
-  endLine: int,
-  endCol: int,
-  severity: string,
-  message: string,
-  source: string,
-  code: string,
-}
-
-/// A symbol from the workspace (function, type, module).
-type workspaceSymbol = {
-  name: string,
-  kind: string,
-  filePath: string,
-  line: int,
-  containerName: string,
-}
-
-/// A recent editor action (for activity feed).
-type editorAction = {
-  timestamp: float,
-  action: string,
-  filePath: string,
-  detail: string,
-}
-
-/// Category tabs for the Editor Bridge panel.
-type editorBridgeCategory =
-  | BridgeOverview
-  | BridgeDiagnostics
-  | BridgeSymbols
-  | BridgeActivity
-  | BridgeSettings
-
-/// Root state for the Editor Bridge panel.
-type editorBridgeState = {
-  activeCategory: editorBridgeCategory,
-  editorKind: editorKind,
-  connection: editorConnection,
-  openFiles: array<openEditorFile>,
-  diagnostics: array<editorDiagnostic>,
-  symbols: array<workspaceSymbol>,
-  activity: array<editorAction>,
-  selectedFilePath: option<string>,
-  diagnosticFilter: string,
-  symbolFilter: string,
-  showWarnings: bool,
-  showErrors: bool,
-  showInfo: bool,
-  autoSync: bool,
-  lspPort: int,
-  loading: bool,
-  error: option<string>,
-  /// Route LSP operations through BoJ's lsp-mcp cartridge instead of direct Gossamer.
-  bojRouting: bool,
-}
diff --git a/src/model/EvangeliserModel.affine b/src/model/EvangeliserModel.affine
new file mode 100644
index 00000000..935fae22
--- /dev/null
+++ b/src/model/EvangeliserModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module EvangeliserModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/EvangeliserModel.res b/src/model/EvangeliserModel.res
deleted file mode 100644
index b05be0ed..00000000
--- a/src/model/EvangeliserModel.res
+++ /dev/null
@@ -1,190 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Evangeliser Model Types — JS-to-ReScript code transformation teaching tool.
-///
-/// State types for the ReScript Evangeliser panel. The evangeliser scans JavaScript
-/// code, detects patterns, and shows encouraging "Celebrate good, minimize bad,
-/// show better" narratives with Makaton-inspired glyphs.
-///
-/// Three-panel model:
-///   Panel-L -> Pattern constraints (which JS patterns to detect, confidence
-///              thresholds, difficulty filters, category selection)
-///   Panel-N -> Narrative reasoning (celebrate/minimize/better agent reasoning,
-///              glyph annotations, learning progress tracking)
-///   Panel-W -> Transformation results (JS→ReScript side-by-side with glyphs,
-///              pattern match highlights, coverage stats)
-///
-/// This module has NO dependencies on other PanLL modules — leaf of the
-/// type dependency graph, following the same pattern as StapelnModel.
-
-// ============================================================================
-// Pattern Categories — what the evangeliser can detect in JS code
-// ============================================================================
-
-/// Categories of JS→ReScript transformation patterns.
-type evangeliserCategory =
-  | NullSafety
-  | Async
-  | ErrorHandling
-  | ArrayOperations
-  | Conditionals
-  | Destructuring
-  | Defaults
-  | Functional
-  | Templates
-  | ArrowFunctions
-  | Variants
-  | Modules
-  | TypeSafety
-  | Immutability
-  | PatternMatching
-  | PipeOperator
-  | OopToFp
-  | ClassesToRecords
-  | InheritanceToComposition
-  | StateMachines
-  | DataModeling
-
-/// Difficulty levels for patterns — filters what gets shown.
-type evangeliserDifficulty =
-  | Beginner
-  | Intermediate
-  | Advanced
-
-/// View layer selection for result rendering.
-type evangeliserViewLayer =
-  | ViewRaw // Side-by-side JS/ReScript
-  | ViewFolded // Grouped by category, collapsible
-  | ViewGlyphed // With Makaton glyph annotations
-  | ViewWysiwyg // Rich editor preview (future)
-
-/// Semantic category for glyphs.
-type evangeliserSemanticCategory =
-  | Transformation
-  | Safety
-  | Flow
-  | Structure
-  | State
-  | Data
-
-// ============================================================================
-// Glyph System — Makaton-inspired semantic symbols
-// ============================================================================
-
-/// A Makaton-inspired glyph that represents semantic meaning beyond syntax.
-type evangeliserGlyph = {
-  symbol: string,
-  name: string,
-  meaning: string,
-  semanticCategory: evangeliserSemanticCategory,
-}
-
-// ============================================================================
-// Narrative System — "Celebrate good, minimize bad, show better"
-// ============================================================================
-
-/// A narrative encouraging the JS→ReScript transformation.
-type evangeliserNarrative = {
-  celebrate: string, // What the JS code does well
-  minimize: string, // Gently acknowledge limitations
-  better: string, // How ReScript improves it
-  safety: string, // Type-level guarantees gained
-}
-
-// ============================================================================
-// Pattern Definition and Matching
-// ============================================================================
-
-/// A transformation pattern from JavaScript to ReScript.
-type evangeliserPattern = {
-  id: string,
-  name: string,
-  category: evangeliserCategory,
-  difficulty: evangeliserDifficulty,
-  jsPattern: string, // Regex to detect in JS
-  confidence: float, // Base confidence 0.0-1.0
-  jsExample: string, // Example JS code
-  rescriptExample: string, // Equivalent ReScript
-  narrative: evangeliserNarrative,
-  glyphs: array<string>, // Glyph keys to display
-  tags: array<string>,
-  relatedPatterns: array<string>,
-  learningObjectives: array<string>,
-}
-
-/// A matched pattern found in user's JS code.
-type evangeliserMatch = {
-  patternId: string,
-  patternName: string,
-  category: evangeliserCategory,
-  code: string, // Matched JS snippet
-  startLine: int,
-  endLine: int,
-  confidence: float,
-  jsExample: string,
-  rescriptExample: string,
-  narrative: evangeliserNarrative,
-  glyphs: array<string>,
-}
-
-// ============================================================================
-// Analysis Results — Panel-W output
-// ============================================================================
-
-/// Analysis result for scanned JS code.
-type evangeliserAnalysis = {
-  matches: array<evangeliserMatch>,
-  totalPatterns: int,
-  coveragePercentage: float,
-  difficulty: evangeliserDifficulty,
-  analysisTime: float,
-}
-
-// ============================================================================
-// Panel-L Constraints — what to scan for
-// ============================================================================
-
-/// Constraints controlling which patterns the scanner applies.
-type evangeliserConstraints = {
-  enabledCategories: array<evangeliserCategory>,
-  minConfidence: float, // 0.0-1.0, default 0.5
-  difficultyFilter: option<evangeliserDifficulty>,
-  maxResults: int, // Cap on matches shown
-}
-
-// ============================================================================
-// UI Tab Navigation
-// ============================================================================
-
-/// Active tab in the evangeliser panel.
-type evangeliserTab =
-  | TabScan // Input JS code and run scan
-  | TabPatterns // Browse the pattern library
-  | TabResults // View analysis results
-  | TabLegend // Glyph legend
-
-// ============================================================================
-// Evangeliser Panel State — the top-level state record
-// ============================================================================
-
-/// The complete Evangeliser panel state, stored as a sub-record in the main model.
-type evangeliserState = {
-  // Panel-L: Constraints
-  constraints: evangeliserConstraints,
-  // Panel-N: Code input and scanning
-  jsInput: string, // JS code to scan
-  scanning: bool, // Whether a scan is in progress
-  scanError: option<string>,
-  // Panel-W: Results
-  analysis: option<evangeliserAnalysis>,
-  viewLayer: evangeliserViewLayer,
-  // Pattern library (populated at init)
-  patterns: array<evangeliserPattern>,
-  glyphs: array<evangeliserGlyph>,
-  // UI state
-  activeTab: evangeliserTab,
-  filterText: string,
-  selectedMatchIndex: option<int>, // Which match is selected in results
-  legendExpanded: bool,
-  error: option<string>,
-}
diff --git a/src/model/ExploratoryWorkbenchModel.affine b/src/model/ExploratoryWorkbenchModel.affine
new file mode 100644
index 00000000..96981564
--- /dev/null
+++ b/src/model/ExploratoryWorkbenchModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ExploratoryWorkbenchModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/ExploratoryWorkbenchModel.res b/src/model/ExploratoryWorkbenchModel.res
deleted file mode 100644
index dc25e8ce..00000000
--- a/src/model/ExploratoryWorkbenchModel.res
+++ /dev/null
@@ -1,105 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Exploratory Workbench Model — freeform play session recording and
-/// anomaly detection for QA testers and designers.
-///
-/// Records player actions during unscripted play sessions, automatically flags
-/// unexpected states as anomalies, and allows manual bug tagging with screenshots.
-/// Designed for discovering issues that scripted tests miss.
-///
-/// Clade: Builder. This module has NO dependencies on other PanLL modules.
-
-// ============================================================================
-// Anomaly Classification
-// ============================================================================
-
-/// Severity of a flagged anomaly detected during exploratory play.
-type anomalySeverity =
-  /// Low — cosmetic or minor, does not affect gameplay.
-  | AnomalyLow
-  /// Medium — noticeable issue that degrades the experience.
-  | AnomalyMedium
-  /// High — significant bug affecting core gameplay.
-  | AnomalyHigh
-  /// Critical — crash, data loss, or security issue.
-  | AnomalyCritical
-
-/// An anomaly flagged during a play session, either automatically detected
-/// by heuristics or manually tagged by the QA tester.
-type anomalyFlag = {
-  /// Unique anomaly identifier.
-  id: string,
-  /// Epoch timestamp when the anomaly was observed.
-  timestamp: float,
-  /// Human-readable description of what went wrong.
-  description: string,
-  /// Severity classification.
-  severity: anomalySeverity,
-  /// Category tag (e.g., "rendering", "physics", "ai", "network").
-  category: string,
-  /// Whether this anomaly was detected by the automated heuristic engine.
-  autoDetected: bool,
-  /// Path to screenshot captured at the moment of the anomaly.
-  screenshotPath: option<string>,
-}
-
-// ============================================================================
-// Play Sessions
-// ============================================================================
-
-/// A recorded exploratory play session.
-type playSession = {
-  /// Unique session identifier.
-  id: string,
-  /// Human-readable session name (e.g., "Level 7 exploration #2").
-  name: string,
-  /// Epoch timestamp when the session started.
-  startedAt: float,
-  /// Epoch timestamp when the session ended (None if still recording).
-  endedAt: option<float>,
-  /// Duration of the session in minutes.
-  durationMinutes: float,
-  /// Anomalies flagged during this session.
-  anomalies: array<anomalyFlag>,
-  /// Free-text notes written by the tester during or after the session.
-  notes: string,
-  /// Total number of player actions captured during the session.
-  playerActions: int,
-}
-
-// ============================================================================
-// Tab Navigation
-// ============================================================================
-
-/// Active tab within the Exploratory Workbench panel.
-type exploratoryTab =
-  /// Session — current live recording session with controls.
-  | TabSession
-  /// Anomalies — list of flagged anomalies with severity badges.
-  | TabAnomalies
-  /// Notes — tester's session notes and observations.
-  | TabNotes
-  /// History — past session recordings with anomaly summaries.
-  | TabHistory
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Root state for the Exploratory Workbench panel.
-type exploratoryWorkbenchState = {
-  /// Active tab within the panel.
-  activeTab: exploratoryTab,
-  /// Currently recording session (None if not recording).
-  currentSession: option<playSession>,
-  /// Historical play sessions.
-  sessions: array<playSession>,
-  /// Anomalies from the current session (also duplicated into the session record).
-  anomalies: array<anomalyFlag>,
-  /// Whether a play session is actively being recorded.
-  recording: bool,
-  /// Whether the automated anomaly detection heuristic is enabled.
-  anomalyDetectionEnabled: bool,
-  /// Error from the last operation.
-  error: option<string>,
-}
diff --git a/src/model/FarmModel.affine b/src/model/FarmModel.affine
new file mode 100644
index 00000000..845ee8a1
--- /dev/null
+++ b/src/model/FarmModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FarmModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/FarmModel.res b/src/model/FarmModel.res
deleted file mode 100644
index 76a5f74d..00000000
--- a/src/model/FarmModel.res
+++ /dev/null
@@ -1,110 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Farm Model — leaf types for the Git-Private-Farm panel.
-///
-/// Represents the repo inventory from `~/.git-private-farm/farm-manifest.json`.
-/// Each repo entry carries its metadata (description, language, forges, priority)
-/// plus computed health indicators and three-tier enrollment status
-/// (farm → hypatia → gitbot-fleet).
-///
-/// Dependency: none (leaf module in the type DAG).
-
-/// Sync priority level for a repo — determines propagation urgency.
-type farmPriority =
-  | High
-  | Medium
-  | Low
-
-/// Target forge where a repo is mirrored.
-type farmForge = {
-  /// Forge identifier (github, gitlab, sourcehut, codeberg, bitbucket, radicle).
-  name: string,
-  /// Whether this forge is the primary source of truth.
-  primary: bool,
-}
-
-/// Three-tier enrollment status — tracks how deeply a repo is integrated
-/// into the hyperpolymath automation pipeline.
-///
-/// Tier 1: git-private-farm (admin registry — always enrolled if in manifest)
-/// Tier 2: hypatia (neurosymbolic scanning — has hypatia-scan.yml workflow)
-/// Tier 3: gitbot-fleet (automated fixes — auto-discovers via hypatia findings)
-type enrollmentTier = {
-  /// Enrolled in git-private-farm (always true for manifest entries).
-  farm: bool,
-  /// Has hypatia-scan.yml workflow installed.
-  hypatia: bool,
-  /// Known to gitbot-fleet for automated dispatch.
-  fleet: bool,
-}
-
-/// A single repo in the farm inventory.
-type farmRepo = {
-  /// Repo name (key from farm-manifest.json).
-  name: string,
-  /// Human-readable description.
-  description: string,
-  /// Primary programming language.
-  language: string,
-  /// Sync priority (high/medium/low).
-  priority: farmPriority,
-  /// Target forges for mirroring.
-  forges: array<farmForge>,
-  /// Whether auto-propagation is enabled.
-  autoPropagation: bool,
-  /// Repo group membership (ssg, cli_tools, security, bots, infra, etc.).
-  group: option<string>,
-  /// Three-tier enrollment status.
-  enrollment: enrollmentTier,
-  /// Computed health score (0.0–1.0), None if not yet assessed.
-  healthScore: option<float>,
-  /// Whether Dependabot or similar has open PRs.
-  hasDependabotAlerts: bool,
-}
-
-/// Category tabs for the Farm panel — each filters the repo inventory
-/// by a different lens.
-type farmCategory =
-  /// All repos in a flat inventory table.
-  | AllRepos
-  /// Grouped by repo group (ssg, cli_tools, security, etc.).
-  | ByGroup
-  /// Grouped by primary language.
-  | ByLanguage
-  /// Grouped by forge coverage (which forges each repo mirrors to).
-  | ByForge
-  /// Three-tier enrollment view (farm/hypatia/fleet columns).
-  | Enrollment
-  /// Health dashboard — sorted by health score ascending (sickest first).
-  | Health
-
-/// Sort order for the repo inventory table.
-type farmSortBy =
-  | SortByName
-  | SortByPriority
-  | SortByLanguage
-  | SortByHealth
-
-/// Root state for the Farm panel module.
-type farmState = {
-  /// Whether data has been loaded from the manifest.
-  loaded: bool,
-  /// Loading indicator for async operations.
-  loading: bool,
-  /// Last error message, if any.
-  error: option<string>,
-  /// Full repo inventory from the manifest.
-  repos: array<farmRepo>,
-  /// Currently selected repo names (multi-select for bulk operations).
-  selectedRepoNames: array<string>,
-  /// Active category tab.
-  activeCategory: farmCategory,
-  /// Text filter for repo name/description search.
-  filterText: string,
-  /// Current sort order.
-  sortBy: farmSortBy,
-  /// Summary statistics — total repos, languages, forges.
-  totalRepos: int,
-  /// Count of repos with health score below 0.5.
-  unhealthyCount: int,
-}
diff --git a/src/model/FeedbackRoutingModel.affine b/src/model/FeedbackRoutingModel.affine
new file mode 100644
index 00000000..67b873d4
--- /dev/null
+++ b/src/model/FeedbackRoutingModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FeedbackRoutingModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/FeedbackRoutingModel.res b/src/model/FeedbackRoutingModel.res
deleted file mode 100644
index ffd1b892..00000000
--- a/src/model/FeedbackRoutingModel.res
+++ /dev/null
@@ -1,82 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Feedback Routing Model — upstream bug report status and integration map.
-///
-/// Tracks Feedback-o-Tron upstream reports across platforms (GitHub Issues,
-/// GitLab Issues, email, etc.). Provides visibility into which reports are
-/// open, closed, or pending response.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// Report status lifecycle.
-type reportStatus =
-  | ReportFiled
-  | ReportAcknowledged
-  | ReportInProgress
-  | ReportResolved
-  | ReportClosed
-  | ReportWontFix
-
-/// Platform where the report was filed.
-type reportPlatform =
-  | GitHub
-  | GitLab
-  | Email
-  | Discourse
-  | Other(string)
-
-/// A single upstream feedback report.
-type feedbackReport = {
-  /// Unique report identifier.
-  reportId: string,
-  /// Report title/summary.
-  title: string,
-  /// Platform where filed.
-  platform: reportPlatform,
-  /// Current status.
-  status: reportStatus,
-  /// Target project/repo.
-  targetRepo: string,
-  /// Date filed (ISO 8601).
-  dateFiled: string,
-  /// Date last updated (ISO 8601).
-  lastUpdated: string,
-  /// External URL (if available).
-  externalUrl: option<string>,
-}
-
-/// Per-platform statistics.
-type platformStats = {
-  /// Platform name.
-  platform: reportPlatform,
-  /// Total reports filed.
-  totalFiled: int,
-  /// Currently open reports.
-  openCount: int,
-  /// Resolved reports.
-  resolvedCount: int,
-}
-
-/// Feedback Routing panel tabs.
-type feedbackRoutingTab =
-  | TabOverview
-  | TabReports
-  | TabPlatforms
-
-/// Root state for the Feedback Routing panel.
-type feedbackRoutingState = {
-  /// Active tab.
-  activeTab: feedbackRoutingTab,
-  /// All tracked feedback reports.
-  reports: array<feedbackReport>,
-  /// Per-platform statistics.
-  platformStats: array<platformStats>,
-  /// Currently selected report for detail view.
-  selectedReport: option<string>,
-  /// Whether a refresh is in progress.
-  refreshing: bool,
-  /// Error from last refresh.
-  error: option<string>,
-  /// Search/filter text.
-  filterText: string,
-}
diff --git a/src/model/FleetModel.affine b/src/model/FleetModel.affine
new file mode 100644
index 00000000..bbb6aae5
--- /dev/null
+++ b/src/model/FleetModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FleetModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/FleetModel.res b/src/model/FleetModel.res
deleted file mode 100644
index 479bf766..00000000
--- a/src/model/FleetModel.res
+++ /dev/null
@@ -1,124 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Fleet Model — types for the Gitbot-Fleet panel.
-///
-/// The Fleet panel shows the 6-bot gitbot-fleet orchestration system:
-/// rhodibot, echidnabot, sustainabot, glambot, seambot, finishbot.
-/// Each bot has a status, findings queue, and dispatch history.
-/// The safety triangle (Eliminate/Substitute/Control) visualises
-/// how findings are routed through the fleet.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// Individual bot identity within the fleet.
-type botId =
-  /// Rhodibot — code quality and style enforcement.
-  | Rhodibot
-  /// Echidnabot — security vulnerability detection.
-  | Echidnabot
-  /// Sustainabot — dependency health and sustainability.
-  | Sustainabot
-  /// Glambot — documentation and presentation quality.
-  | Glambot
-  /// Seambot — integration and API compatibility.
-  | Seambot
-  /// Finishbot — completion verification and release readiness.
-  | Finishbot
-
-/// Operational status of an individual bot.
-type botStatus =
-  /// Bot is running and processing findings.
-  | BotActive
-  /// Bot is idle, waiting for work.
-  | BotIdle
-  /// Bot is offline or unreachable.
-  | BotOffline
-  /// Bot encountered an error.
-  | BotError(string)
-
-/// A single bot's state snapshot from the fleet dashboard API.
-type botState = {
-  /// Which bot this is.
-  id: botId,
-  /// Current operational status.
-  status: botStatus,
-  /// Number of findings currently queued for this bot.
-  queuedFindings: int,
-  /// Number of findings processed in the current cycle.
-  processedFindings: int,
-  /// Confidence threshold for autonomous action (0.0–1.0).
-  confidenceThreshold: float,
-  /// Last activity timestamp (ISO 8601 string).
-  lastActivity: string,
-}
-
-/// Safety triangle tier — how findings are categorised for routing.
-/// Based on the hierarchy of controls: Eliminate > Substitute > Control.
-type safetyTier =
-  /// Eliminate — remove the hazard entirely (e.g. delete vulnerable dependency).
-  | Eliminate
-  /// Substitute — replace with a safer alternative (e.g. swap library).
-  | Substitute
-  /// Control — mitigate the risk (e.g. add input validation, pin version).
-  | Control
-
-/// A finding from the Hypatia scanner, routed through the fleet.
-type fleetFinding = {
-  /// Unique finding identifier.
-  id: string,
-  /// Which repo this finding came from.
-  repoName: string,
-  /// Short description of the finding.
-  summary: string,
-  /// Safety triangle tier for routing.
-  tier: safetyTier,
-  /// Neural confidence score from Hypatia (0.0–1.0).
-  confidence: float,
-  /// Which bot is assigned to handle this finding (None = unassigned).
-  assignedBot: option<botId>,
-  /// Whether the finding has been resolved.
-  resolved: bool,
-}
-
-/// Fleet health summary — aggregate metrics.
-type fleetHealth = {
-  /// Number of bots currently active.
-  activeBots: int,
-  /// Total findings in all queues.
-  totalQueued: int,
-  /// Total findings processed in current cycle.
-  totalProcessed: int,
-  /// Average confidence across all queued findings.
-  avgConfidence: float,
-  /// Safety triangle counts: (eliminate, substitute, control).
-  triangleCounts: (int, int, int),
-}
-
-/// Category tabs for the Fleet panel.
-type fleetCategory =
-  /// Overview dashboard with bot grid and safety triangle.
-  | FleetDashboard
-  /// Findings queue with filtering and assignment.
-  | FleetFindings
-  /// Dispatch history and audit log.
-  | FleetDispatch
-
-/// Root state for the Gitbot-Fleet panel.
-type fleetState = {
-  /// Whether fleet data has been loaded.
-  loaded: bool,
-  /// Whether a loading operation is in progress.
-  loading: bool,
-  /// Error from the last operation.
-  error: option<string>,
-  /// The 6 bots and their current state.
-  bots: array<botState>,
-  /// Current findings in the queue.
-  findings: array<fleetFinding>,
-  /// Aggregate health metrics.
-  health: option<fleetHealth>,
-  /// Active category tab.
-  activeCategory: fleetCategory,
-  /// Text filter for findings search.
-  filterText: string,
-}
diff --git a/src/model/FloorRaiseModel.affine b/src/model/FloorRaiseModel.affine
new file mode 100644
index 00000000..37abedba
--- /dev/null
+++ b/src/model/FloorRaiseModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FloorRaiseModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/FloorRaiseModel.res b/src/model/FloorRaiseModel.res
deleted file mode 100644
index d063a3c0..00000000
--- a/src/model/FloorRaiseModel.res
+++ /dev/null
@@ -1,60 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Floor Raise Model — floor-raising campaign dashboard state.
-///
-/// Tracks foundational tool adoption across the hyperpolymath ecosystem.
-/// Aggregates proven, contractile, manifest, verisim, feedback-o-tron,
-/// and vexometer adoption metrics.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// Adoption status for a single foundational tool across the ecosystem.
-type toolAdoption = {
-  /// Tool name (e.g. "proven", "contractiles", "panic-attacker").
-  name: string,
-  /// Number of repos that have adopted this tool.
-  adoptedCount: int,
-  /// Total number of repos that should adopt this tool.
-  targetCount: int,
-  /// Adoption percentage (0.0 to 100.0).
-  percentage: float,
-  /// Whether a dispatch campaign is currently active for this tool.
-  campaignActive: bool,
-}
-
-/// Dispatch outcome from a gitbot-fleet campaign.
-type dispatchOutcome = {
-  /// Timestamp (ISO 8601).
-  timestamp: string,
-  /// Repository name.
-  repo: string,
-  /// Fix script that was applied.
-  fixScript: string,
-  /// Whether the fix succeeded.
-  success: bool,
-  /// Category (e.g. "MissingTrustfile").
-  category: string,
-}
-
-/// Floor Raise dashboard tabs.
-type floorRaiseTab =
-  | TabOverview
-  | TabCampaigns
-  | TabOutcomes
-  | TabGaps
-
-/// Root state for the Floor Raise panel.
-type floorRaiseState = {
-  /// Active tab.
-  activeTab: floorRaiseTab,
-  /// Adoption metrics for each foundational tool.
-  adoptions: array<toolAdoption>,
-  /// Recent dispatch outcomes.
-  outcomes: array<dispatchOutcome>,
-  /// Whether a scan is in progress.
-  scanning: bool,
-  /// Error from last scan.
-  error: option<string>,
-  /// Total repos in ecosystem.
-  totalRepos: int,
-}
diff --git a/src/model/FocusDimmingModel.affine b/src/model/FocusDimmingModel.affine
new file mode 100644
index 00000000..9595af2f
--- /dev/null
+++ b/src/model/FocusDimmingModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FocusDimmingModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/FocusDimmingModel.res b/src/model/FocusDimmingModel.res
deleted file mode 100644
index d0cde35d..00000000
--- a/src/model/FocusDimmingModel.res
+++ /dev/null
@@ -1,68 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Focus Dimming Model — types for focus-aware dimming and smart memory mode.
-///
-/// When a pane or panel loses focus, it can optionally dim (reduce opacity)
-/// and reduce processing to minimise distractions and save resources.
-///
-/// Modes:
-///   - Off: all panels render at full opacity and full processing, always.
-///   - Subtle: unfocused panels dim to 70% opacity, no processing change.
-///   - Strong: unfocused panels dim to 40% opacity, no processing change.
-///   - Smart Memory: unfocused panels dim AND have their subscriptions
-///     throttled (polling intervals doubled, refresh rates reduced).
-///     This is the "resource-conscious" mode for memory management.
-///
-/// Users can override the dimming behaviour per-panel: "Always Active"
-/// forces a panel to stay fully bright and fully processing regardless
-/// of focus, while "Always Dimmed" forces it to stay dim even when focused.
-///
-/// Dependency: imports PanelSwitcherModel for panelId type only.
-
-/// Global dimming mode — controls how unfocused panels behave.
-type dimmingMode =
-  /// No dimming at all. All panels render identically regardless of focus.
-  | DimmingOff
-  /// Subtle dimming: unfocused panels at 70% opacity. Processing unchanged.
-  /// Good for reducing visual clutter without affecting performance.
-  | DimmingSubtle
-  /// Strong dimming: unfocused panels at 40% opacity. Processing unchanged.
-  /// Good for users who want to focus intensely on one panel at a time.
-  | DimmingStrong
-  /// Smart Memory Mode: unfocused panels dim (configurable opacity) AND
-  /// have their subscriptions throttled to reduce CPU/memory usage.
-  /// Subscription polling intervals are doubled, refresh rates halved.
-  /// This is the default mode — balances focus with resource conservation.
-  | SmartMemory
-
-/// Per-panel override for dimming behaviour.
-type panelFocusOverride =
-  /// Follow the global dimming mode (no override).
-  | Default
-  /// Always render at full opacity and full processing, regardless of
-  /// focus state or global dimming mode. Use for panels you need to
-  /// actively monitor (e.g. build dashboard, multiplayer monitor).
-  | AlwaysActive
-  /// Always render dimmed, even when focused. Useful for panels that
-  /// serve as background reference (e.g. documentation, topology view).
-  | AlwaysDimmed
-
-/// Root state for the focus dimming system.
-type focusDimmingState = {
-  /// Current global dimming mode. Default: SmartMemory.
-  mode: dimmingMode,
-  /// Which pane or panel currently has focus.
-  /// Uses string identifiers: "paneL", "paneN", "paneW", or panel IDs.
-  /// None when no specific panel has focus (e.g. interacting with toolbar).
-  focusedPane: option<string>,
-  /// Per-panel overrides for dimming behaviour.
-  /// Panels not in this array follow the global mode.
-  overrides: array<(PanelSwitcherModel.panelId, panelFocusOverride)>,
-  /// Custom dim opacity (0.0 = invisible, 1.0 = fully opaque).
-  /// Only used when mode is SmartMemory. Default: 0.4.
-  dimOpacity: float,
-  /// Timestamps of last user interaction per panel (panel ID string → epoch ms).
-  /// Used by Smart Memory Mode to progressively dim panels that haven't
-  /// been interacted with recently.
-  lastInteractionTimestamps: array<(string, float)>,
-}
diff --git a/src/model/FunctionalTesterModel.affine b/src/model/FunctionalTesterModel.affine
new file mode 100644
index 00000000..23e68bf6
--- /dev/null
+++ b/src/model/FunctionalTesterModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FunctionalTesterModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/FunctionalTesterModel.res b/src/model/FunctionalTesterModel.res
deleted file mode 100644
index 84babd75..00000000
--- a/src/model/FunctionalTesterModel.res
+++ /dev/null
@@ -1,129 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Functional Tester Model — end-to-end game workflow simulation and
-/// validation for IDApTIK game testing.
-///
-/// Provides scriptable test scenarios that define step-by-step game workflows
-/// (start -> hack -> win) with expected outcomes at each stage. Steps capture
-/// screenshots, measure timing, and report pass/fail against expected results.
-///
-/// Clade: Scanner. This module has NO dependencies on other PanLL modules.
-
-// ============================================================================
-// Workflow Steps
-// ============================================================================
-
-/// A single step in a functional test workflow.
-/// Each step describes an action to perform, the expected outcome, and
-/// captures the actual result when the workflow is executed.
-type workflowStep = {
-  /// Unique step identifier within the workflow.
-  id: string,
-  /// Human-readable action description (e.g., "Navigate to Level 3 entrance").
-  action: string,
-  /// Expected outcome after this step completes (e.g., "Player enters Level 3").
-  expectedOutcome: string,
-  /// Actual outcome observed during execution (populated after run).
-  actualOutcome: option<string>,
-  /// Whether this step passed (None = not yet run).
-  passed: option<bool>,
-  /// Path to screenshot captured at this step (if screenshot capture enabled).
-  screenshotPath: option<string>,
-  /// Duration of this step in milliseconds (populated after run).
-  durationMs: option<float>,
-}
-
-// ============================================================================
-// Workflow Status
-// ============================================================================
-
-/// Overall execution status of a functional test workflow.
-type workflowStatus =
-  /// Draft — workflow is being designed, not yet ready to run.
-  | WorkflowDraft
-  /// Ready — all steps defined, workflow can be executed.
-  | WorkflowReady
-  /// Running — currently executing, payload is the current step index.
-  | WorkflowRunning(int)
-  /// Passed — all steps completed successfully, payload is total duration in ms.
-  | WorkflowPassed(float)
-  /// Failed — a step did not match expected outcome, payload is (step index, error).
-  | WorkflowFailed(int, string)
-
-// ============================================================================
-// Test Workflows
-// ============================================================================
-
-/// A complete functional test workflow — a named sequence of steps that
-/// exercises a specific game path end-to-end.
-type testWorkflow = {
-  /// Unique workflow identifier.
-  id: string,
-  /// Human-readable workflow name (e.g., "Level 5 speed-run").
-  name: string,
-  /// Longer description of what this workflow tests.
-  description: string,
-  /// Ordered array of steps to execute.
-  steps: array<workflowStep>,
-  /// Current execution status.
-  status: workflowStatus,
-  /// ISO 8601 timestamp when this workflow was created.
-  createdAt: string,
-  /// ISO 8601 timestamp of the most recent execution (None if never run).
-  lastRunAt: option<string>,
-}
-
-// ============================================================================
-// Workflow Templates
-// ============================================================================
-
-/// A reusable workflow template that can be instantiated into a testWorkflow.
-type workflowTemplate = {
-  /// Template identifier.
-  id: string,
-  /// Template name (e.g., "Standard Level Completion").
-  name: string,
-  /// Template description.
-  description: string,
-  /// Template step definitions (action + expectedOutcome).
-  stepDefinitions: array<(string, string)>,
-  /// Tags for categorising templates (e.g., ["combat", "stealth"]).
-  tags: array<string>,
-}
-
-// ============================================================================
-// Tab Navigation
-// ============================================================================
-
-/// Active tab within the Functional Tester panel.
-type functionalTestTab =
-  /// Workflows — list all defined test workflows with status badges.
-  | TabWorkflows
-  /// Editor — step-by-step workflow builder with drag-and-drop reordering.
-  | TabEditor
-  /// Results — execution results with pass/fail indicators and screenshots.
-  | TabResults
-  /// Templates — browse and instantiate reusable workflow templates.
-  | TabTemplates
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Root state for the Functional Tester panel.
-type functionalTesterState = {
-  /// Active tab within the panel.
-  activeTab: functionalTestTab,
-  /// All defined test workflows.
-  workflows: array<testWorkflow>,
-  /// Currently selected workflow ID for detail view.
-  selectedWorkflow: option<string>,
-  /// Whether the workflow editor is active.
-  editing: bool,
-  /// Whether a workflow is currently being executed.
-  running: bool,
-  /// Available workflow templates.
-  templates: array<workflowTemplate>,
-  /// Error from the last operation.
-  error: option<string>,
-}
diff --git a/src/model/GamePreviewModel.affine b/src/model/GamePreviewModel.affine
new file mode 100644
index 00000000..52d97836
--- /dev/null
+++ b/src/model/GamePreviewModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module GamePreviewModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/GamePreviewModel.res b/src/model/GamePreviewModel.res
deleted file mode 100644
index 0dfce5e1..00000000
--- a/src/model/GamePreviewModel.res
+++ /dev/null
@@ -1,127 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Game Preview Model — types for the live IDApTIK game preview panel.
-///
-/// Embeds the Vite dev server output (port 8080) in a PanLL panel via Gossamer
-/// webview or iframe. Supports hot-reload, frame stepping, overlay toggles,
-/// gameplay recording, and render statistics.
-///
-/// The preview connects to the running IDApTIK dev server and reflects
-/// ReScript code changes in real time. Overlays can show collision boxes,
-/// network topology, guard patrol paths, and device interaction logs.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// Which overlays are currently enabled on top of the game preview.
-type gameOverlay =
-  /// Show collision bounding boxes for all entities.
-  | OverlayCollision
-  /// Show in-game network topology as a force-directed graph.
-  | OverlayNetworkTopology
-  /// Show guard patrol waypoint paths.
-  | OverlayGuardPatrols
-  /// Show device interaction zones (clickable areas).
-  | OverlayDeviceZones
-  /// Show spawn points for player, guards, companions.
-  | OverlaySpawnPoints
-  /// Show FPS counter and render statistics.
-  | OverlayRenderStats
-
-/// Game loop execution state — whether the game is running or paused.
-type gameExecutionState =
-  /// Game loop is running normally.
-  | GameRunning
-  /// Game loop is paused (frame-by-frame stepping available).
-  | GamePaused
-  /// Game loop is stepping one frame at a time.
-  | GameStepping
-
-/// Gameplay recording state — captures WebM video of the preview.
-type gameRecordingState =
-  /// Not recording gameplay.
-  | GameRecordingIdle
-  /// Actively recording gameplay to WebM.
-  | GameRecordingActive(float)
-  /// Recording paused.
-  | GameRecordingPaused(float)
-
-/// A device interaction log entry — records which devices the player touched.
-type deviceInteraction = {
-  /// Device type name (e.g., "DesktopDevice", "CameraDevice").
-  deviceType: string,
-  /// Device ID in the level.
-  deviceId: string,
-  /// Interaction type (e.g., "opened", "hacked", "scanned").
-  interaction: string,
-  /// Unix timestamp of the interaction.
-  timestamp: float,
-}
-
-/// A saved gameplay clip.
-type gameplayClip = {
-  /// Unique identifier.
-  id: string,
-  /// Human-readable name.
-  name: string,
-  /// Absolute path to the WebM file.
-  path: string,
-  /// Duration in seconds.
-  durationSecs: float,
-  /// File size in bytes.
-  sizeBytes: int,
-  /// When the clip was recorded (Unix timestamp).
-  createdAt: float,
-}
-
-/// Render statistics from the PixiJS engine.
-type renderStats = {
-  /// Frames per second.
-  fps: float,
-  /// Draw calls per frame.
-  drawCalls: int,
-  /// Texture memory usage in bytes.
-  textureMemory: int,
-  /// Number of active sprites.
-  spriteCount: int,
-}
-
-/// Category tabs for the Game Preview panel.
-type gamePreviewCategory =
-  /// Main game preview with live iframe/webview.
-  | PreviewLive
-  /// Device interaction log.
-  | PreviewDeviceLog
-  /// Saved gameplay clips browser.
-  | PreviewClips
-  /// Render statistics and performance profiling.
-  | PreviewPerformance
-
-/// Root state for the Game Preview panel.
-type gamePreviewState = {
-  /// Whether the Vite dev server is detected and running.
-  devServerConnected: bool,
-  /// The URL of the dev server (default: http://localhost:8080).
-  devServerUrl: string,
-  /// Game loop execution state (running, paused, stepping).
-  execution: gameExecutionState,
-  /// Active category tab.
-  activeCategory: gamePreviewCategory,
-  /// Which overlays are currently enabled.
-  activeOverlays: array<gameOverlay>,
-  /// Gameplay recording state.
-  gameRecording: gameRecordingState,
-  /// Saved gameplay clips.
-  clips: array<gameplayClip>,
-  /// Device interaction log (ring buffer, last 200 entries).
-  deviceLog: array<deviceInteraction>,
-  /// Current render statistics.
-  stats: option<renderStats>,
-  /// Current zoom level (1.0 = normal, 0.5 = zoomed out, 2.0 = zoomed in).
-  zoomLevel: float,
-  /// Whether multiplayer view is active (shows both players).
-  multiplayerView: bool,
-  /// Error message (if any).
-  error: option<string>,
-  /// Loading state for async operations.
-  loading: bool,
-}
diff --git a/src/model/GeneratorModeModel.affine b/src/model/GeneratorModeModel.affine
new file mode 100644
index 00000000..e5a6585a
--- /dev/null
+++ b/src/model/GeneratorModeModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module GeneratorModeModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/GeneratorModeModel.res b/src/model/GeneratorModeModel.res
deleted file mode 100644
index 849c4289..00000000
--- a/src/model/GeneratorModeModel.res
+++ /dev/null
@@ -1,151 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Generator Mode Model — types for the parametric world builder panel.
-///
-/// Users describe worlds compositionally using sliders, toggles, and structured
-/// specs. Districts are composed of facilities, and global parameters control
-/// security level, tech level, weather, time of day, trap density, civilian
-/// population, and difficulty targeting.
-///
-/// The generator produces a LevelConfig JSON from the world specification,
-/// validates entity counts, and provides a live preview before export.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// District classification within a generated world.
-type districtType =
-  /// Residential housing blocks and apartments.
-  | Residential
-  /// Commercial office parks, shops, and markets.
-  | Commercial
-  /// Military installations and barracks.
-  | Military
-  /// Industrial factories, warehouses, and plants.
-  | Industrial
-  /// Government buildings, embassies, and civic centres.
-  | Government
-  /// Transport hubs: stations, airports, docks.
-  | Transport
-  /// Historic landmarks, museums, and heritage sites.
-  | Historic
-
-/// Specification for a single facility within a district.
-type facilitySpec = {
-  /// Facility type name (e.g., "Server Room", "Guard Post", "Elevator").
-  facilityType: string,
-  /// Number of instances to generate.
-  count: int,
-  /// Optional variant modifier (e.g., "reinforced", "covert").
-  variant: option<string>,
-}
-
-/// Specification for a district containing multiple facilities.
-type districtSpec = {
-  /// Classification of the district.
-  districtType: districtType,
-  /// Facilities to place inside this district.
-  facilities: array<facilitySpec>,
-  /// Hint for relative district size (e.g., "small", "medium", "large").
-  sizeHint: string,
-}
-
-/// Weather condition for the generated world.
-type weatherCondition =
-  /// Clear skies, full visibility.
-  | Clear
-  /// Rain — reduced visibility, wet surfaces.
-  | Rain
-  /// Snow — slowed movement, muffled sound.
-  | Snow
-  /// Fog — heavily reduced visibility range.
-  | Fog
-  /// Storm — lightning flashes, power outages possible.
-  | Storm
-  /// Night rain — combines darkness with rain effects.
-  | NightRain
-
-/// Time of day affecting lighting and guard schedules.
-type timeOfDay =
-  /// Early morning, low light, shift change.
-  | Dawn
-  /// Full daylight, peak civilian activity.
-  | Morning
-  /// Bright daylight, moderate activity.
-  | Afternoon
-  /// Fading light, guards transitioning to night shift.
-  | Evening
-  /// Darkness, reduced civilian presence, heightened security.
-  | Night
-  /// Deep night, skeleton crew, lowest civilian count.
-  | Midnight
-
-/// Global parameters controlling world-wide generation settings.
-type worldParams = {
-  /// Overall security level (0.0 = minimal, 1.0 = maximum lockdown).
-  securityLevel: float,
-  /// Technology level (0.0 = low-tech, 1.0 = cutting-edge).
-  techLevel: float,
-  /// Current weather condition in the generated world.
-  weatherCondition: weatherCondition,
-  /// Time of day affecting lighting and NPC schedules.
-  timeOfDay: timeOfDay,
-  /// Trap density (0.0 = no traps, 1.0 = heavily trapped).
-  trapDensity: float,
-  /// Number of civilian NPCs to populate the world.
-  civilianPopulation: int,
-  /// Target difficulty rating (0.0 = trivial, 1.0 = extreme).
-  difficultyTarget: float,
-}
-
-/// Complete world specification composed of districts and global parameters.
-type worldSpec = {
-  /// Human-readable name for this world.
-  name: string,
-  /// Districts composing the world layout.
-  districts: array<districtSpec>,
-  /// Global generation parameters.
-  globalParams: worldParams,
-}
-
-/// Result of running the world generator on a worldSpec.
-type generationResult = {
-  /// The world specification that was used for generation.
-  worldSpec: worldSpec,
-  /// Serialised LevelConfig JSON output.
-  levelConfigJson: string,
-  /// Total number of entities placed.
-  entityCount: int,
-  /// Whether all validation checks passed.
-  validationPassed: bool,
-  /// ISO 8601 timestamp of when the generation completed.
-  generatedAt: string,
-}
-
-/// Category tabs for the Generator Mode panel.
-type generatorModeCategory =
-  /// District and facility design editor.
-  | Design
-  /// Global parameter sliders and toggles.
-  | Parameters
-  /// Live preview of the generated world.
-  | Preview
-  /// Export to LevelConfig JSON.
-  | Export
-
-/// Root state for the Generator Mode panel.
-type generatorModeState = {
-  /// Active category tab.
-  activeTab: generatorModeCategory,
-  /// The world specification currently being designed.
-  currentSpec: option<worldSpec>,
-  /// Current global generation parameters.
-  params: worldParams,
-  /// Result of the last generation run (if any).
-  previewResult: option<generationResult>,
-  /// Whether the generator is currently running.
-  generating: bool,
-  /// Saved world templates for quick reuse.
-  templates: array<worldSpec>,
-  /// Error message (if any).
-  error: option<string>,
-}
diff --git a/src/model/GovernanceModel.affine b/src/model/GovernanceModel.affine
new file mode 100644
index 00000000..a1be482c
--- /dev/null
+++ b/src/model/GovernanceModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module GovernanceModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/GovernanceModel.res b/src/model/GovernanceModel.res
deleted file mode 100644
index 75788750..00000000
--- a/src/model/GovernanceModel.res
+++ /dev/null
@@ -1,176 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Governance Types — Cognitive governance and system coherence.
-///
-/// These types implement the "elastic state contracts" that maintain the
-/// Binary Star co-orbit between Operator and Machine. Anti-Crash is the
-/// circuit breaker that validates neural tokens. The Vexometer tracks
-/// operator frustration. Orbital metrics measure pane synchronisation.
-/// Contractiles enforce adaptive boundaries. Sync events track cross-pane
-/// change propagation.
-///
-/// Depends on PaneModel for neuralToken (used in antiCrashState.pendingReview).
-
-/// Constraint violation types (Anti-Crash)
-type violationType =
-  /// Type mismatch between expected and actual types.
-  | TypeMismatch(string, string)
-  /// A value exceeded its declared boundary or range.
-  | BoundaryViolation(string)
-  /// A logical contradiction was detected in the constraint set.
-  | LogicContradiction(string)
-  /// A reference to an undefined identifier or resource.
-  | UndefinedReference(string)
-  /// A security policy violation was detected.
-  | SecurityViolation(string)
-
-/// Anti-Crash validation state
-type antiCrashState = {
-  /// Whether the Anti-Crash circuit breaker is enabled.
-  enabled: bool,
-  /// When true, any violation halts neural output immediately.
-  strictMode: bool,
-  /// Accumulated constraint violations from the current session.
-  violations: array<violationType>,
-  /// Whether output is currently halted due to a violation.
-  halted: bool,
-  /// A neural token awaiting operator review before being accepted.
-  pendingReview: option<PaneModel.neuralToken>,
-}
-
-/// Vexometer state
-type vexometerState = {
-  /// Frustration index from 0.0 (calm) to 1.0 (maximum vexation).
-  index: float,
-  /// Count of recent operator cancellations (contributes to vexation).
-  recentCancellations: int,
-  /// Count of recent operator corrections (contributes to vexation).
-  recentCorrections: int,
-  /// Whether the anti-inflammatory response is active (reducing UI noise).
-  antiInflammatoryActive: bool,
-  /// Whether task inertia has been detected (operator stuck on same task).
-  inertiaDetected: bool,
-}
-
-/// Orbital stability metrics
-type orbitalState = {
-  /// Orbital stability sigma value (higher = more stable).
-  stability: float,
-  /// Current divergence level between symbolic and neural panes.
-  divergenceLevel: float,
-  /// Drift aura colour indicator: "indigo" (stable) or "amber" (drifting).
-  driftAuraColour: string,
-  /// Symbolic mass: weight of Panel-L content (token density, constraint count).
-  /// Range 0.0–1.0 where higher means more substantial symbolic content.
-  symbolicMass: float,
-  /// Neural stream: throughput of Panel-N content (inference rate, monologue density).
-  /// Range 0.0–1.0 where higher means more active neural processing.
-  neuralStream: float,
-  /// Barycentre position on the symbolic–neural axis.
-  /// -1.0 = fully symbolic, 0.0 = balanced, +1.0 = fully neural.
-  barycentrePosition: float,
-  /// Sync health: overall cross-pane synchronisation quality.
-  /// Range 0.0–1.0 derived from latency, event throughput, hash freshness.
-  syncHealth: float,
-}
-
-/// Barycentre tour step for the guided walkthrough
-type tourStep =
-  | TourIntro
-  | TourBinaryStar
-  | TourBarycentrePosition
-  | TourOrbitalMetrics
-  | TourContractiles
-  | TourSyncHealth
-  | TourComplete
-
-/// State for the interactive barycentre tour
-type tourState = {
-  /// Whether the tour is currently active.
-  active: bool,
-  /// Current step in the tour sequence.
-  currentStep: tourStep,
-  /// Whether the user has completed the tour at least once.
-  completed: bool,
-}
-
-/// Information Humidity level — defined in PaneModel to avoid circular dependency.
-/// Re-exported via Model.res include chain. Use humidityLevel directly when
-/// Model is open; use PaneModel.humidityLevel for standalone references.
-
-/// View mode for the environment
-type viewMode =
-  /// Normal operating mode with all panels visible.
-  | Standard
-  /// Light background with dark text for high-ambient-light environments.
-  | LightMode
-  /// Memory Foam grid only, minimal chrome.
-  | Ambient
-  /// No sidebars or status bars, maximum content focus.
-  | Zen
-  /// Architecture Manifold displayed on idle.
-  | DarkStart
-
-/// Synchronisation event types (for OrbitalSync)
-type syncEvent =
-  | SymbolicUpdate(string) // Change in Pane-L
-  | NeuralUpdate(string) // Change in Pane-N
-  | WorldUpdate(string) // Change in Pane-W
-  | CrossPaneLink(string, string) // Link between panes
-
-/// Synchronisation state (for OrbitalSync)
-type syncState = {
-  /// Hash of the last synchronised Pane-L (symbolic) state.
-  lastSymbolicHash: string,
-  /// Hash of the last synchronised Pane-N (neural) state.
-  lastNeuralHash: string,
-  /// Hash of the last synchronised Pane-W (world) state.
-  lastWorldHash: string,
-  /// Queue of sync events waiting to be propagated.
-  pendingSync: array<syncEvent>,
-  /// Current cross-pane synchronisation latency in milliseconds.
-  syncLatency: float,
-}
-
-/// Contract enforcement level (for Contractiles)
-type enforcementLevel =
-  | Strict // Halt on violation
-  | Warn // Log warning, continue
-  | Adaptive // Adjust contract based on context
-
-/// Contract status (for Contractiles)
-type contractStatus =
-  | Satisfied
-  | Violated(string)
-  | Pending
-  | Suspended
-
-/// A contractile definition (for Contractiles)
-type contractile = {
-  /// Unique contract identifier.
-  id: string,
-  /// Human-readable contract name.
-  name: string,
-  /// Explanation of what this contract enforces.
-  description: string,
-  /// How strictly this contract is enforced.
-  enforcement: enforcementLevel,
-  /// Current evaluation status of this contract.
-  status: contractStatus,
-  /// Elasticity: 0.0 = rigid (no flex), 1.0 = fully elastic (adapts freely).
-  elasticity: float,
-  /// Timestamp of the last evaluation pass.
-  lastEvaluated: float,
-}
-
-/// Contractile evaluation result (for Contractiles)
-type evaluationResult = {
-  /// ID of the contract that was evaluated.
-  contractId: string,
-  /// Resulting status after evaluation.
-  status: contractStatus,
-  /// Human-readable evaluation message.
-  message: string,
-  /// Suggested adjustment if the contract is elastic and could adapt.
-  adjustmentSuggestion: option<string>,
-}
diff --git a/src/model/GuardAiTunerModel.affine b/src/model/GuardAiTunerModel.affine
new file mode 100644
index 00000000..9c314aa4
--- /dev/null
+++ b/src/model/GuardAiTunerModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module GuardAiTunerModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/GuardAiTunerModel.res b/src/model/GuardAiTunerModel.res
deleted file mode 100644
index 1f7cde33..00000000
--- a/src/model/GuardAiTunerModel.res
+++ /dev/null
@@ -1,92 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Guard AI Tuner Model — types for tuning guard patrol behaviour,
-/// alert thresholds, spawn rates, and detection parameters.
-///
-/// Guards in IDApTIK follow configurable patrol routes with tuneable
-/// alertness, speed, detection range, and response time. This panel
-/// lets designers create guard profiles, draw patrol routes, adjust
-/// thresholds, and save/load tuning presets.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// A guard behaviour profile with tuneable AI parameters.
-type guardProfile = {
-  /// Unique identifier for this guard profile.
-  id: string,
-  /// Human-readable name (e.g., "Corridor Sentinel", "Roaming Enforcer").
-  name: string,
-  /// Patrol pattern name (e.g., "loop", "pingpong", "random", "stationary").
-  patrolPattern: string,
-  /// Alert threshold (0.0 = oblivious, 1.0 = hyper-vigilant).
-  alertThreshold: float,
-  /// Spawn rate multiplier (1.0 = normal, 2.0 = double frequency).
-  spawnRate: float,
-  /// Movement speed in units per second.
-  speed: float,
-  /// Detection range in world units.
-  detectionRange: float,
-  /// Time in seconds before the guard reacts to a detected threat.
-  responseTime: float,
-}
-
-/// A single waypoint in a patrol route.
-type patrolPoint = {
-  /// X coordinate in world space.
-  x: float,
-  /// Y coordinate in world space.
-  y: float,
-  /// Time in seconds the guard waits at this point.
-  waitTime: float,
-}
-
-/// A patrol route assigned to a specific guard.
-type patrolRoute = {
-  /// Unique identifier for this route.
-  id: string,
-  /// ID of the guard profile this route is assigned to.
-  guardId: string,
-  /// Ordered list of waypoints forming the patrol path.
-  points: array<patrolPoint>,
-  /// Whether the route loops back to the start or reverses.
-  looping: bool,
-}
-
-/// A saved tuning preset containing a set of guard profiles.
-type tuningPreset = {
-  /// Preset name (e.g., "Easy Mode", "Nightmare Security").
-  name: string,
-  /// Human-readable description of the preset's design intent.
-  description: string,
-  /// Guard profiles included in this preset.
-  profiles: array<guardProfile>,
-}
-
-/// Category tabs for the Guard AI Tuner panel.
-type guardAiTunerCategory =
-  /// Guard profile list and editor.
-  | Profiles
-  /// Visual patrol route editor.
-  | PatrolEditor
-  /// Alert threshold and detection sliders.
-  | Thresholds
-  /// Saved tuning presets browser.
-  | Presets
-
-/// Root state for the Guard AI Tuner panel.
-type guardAiTunerState = {
-  /// Active category tab.
-  activeTab: guardAiTunerCategory,
-  /// All guard profiles in the current level.
-  guards: array<guardProfile>,
-  /// All patrol routes defined for guards.
-  routes: array<patrolRoute>,
-  /// Saved tuning presets.
-  presets: array<tuningPreset>,
-  /// Currently selected guard profile (if any).
-  selectedGuard: option<string>,
-  /// Whether a guard profile is currently being edited.
-  editing: bool,
-  /// Error message (if any).
-  error: option<string>,
-}
diff --git a/src/model/HelpModel.affine b/src/model/HelpModel.affine
new file mode 100644
index 00000000..e9157779
--- /dev/null
+++ b/src/model/HelpModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module HelpModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/HelpModel.res b/src/model/HelpModel.res
deleted file mode 100644
index e8a8a93b..00000000
--- a/src/model/HelpModel.res
+++ /dev/null
@@ -1,119 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Help Model — types for the in-application help and guidance system.
-///
-/// Provides context-sensitive help, a searchable glossary of neurosymbolic
-/// terminology, per-panel guides, keyboard shortcut reference, and an
-/// onboarding walkthrough for new users.
-///
-/// The help system is a first-class panel (PanelHelp) but also supports
-/// context-sensitive invocation: pressing F1 or ? opens help pre-filtered
-/// to the currently active panel's topic.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// Help content categories for filtering and navigation.
-/// Each category maps to a tab in the Help panel.
-type helpCategory =
-  /// Getting started guide — first-time user walkthrough and orientation.
-  | GettingStarted
-  /// Glossary of neurosymbolic terminology (task barycentre, symbolic mass,
-  /// neural stream, OODA loop, contractiles, vexation index, etc.).
-  | Glossary
-  /// Per-panel guide — each panel has a dedicated help page describing
-  /// its purpose, controls, backend requirements, and workflow.
-  | PanelGuide
-  /// Keyboard shortcuts reference — lists all keybindings with descriptions.
-  | Shortcuts
-  /// Frequently asked questions — common issues and their resolutions.
-  | Faq
-  /// Architecture overview — Binary Star model, three-panel layout,
-  /// TEA update loop, and neurosymbolic integration points.
-  | Architecture
-
-/// A single help entry — an article/page in the help system.
-/// Entries are searchable by title, body text, and keywords.
-type helpEntry = {
-  /// Unique identifier for this help entry (e.g. "panel-echidna", "glossary-barycentre").
-  id: string,
-  /// Human-readable title displayed in search results and as the page heading.
-  title: string,
-  /// Full help text body. Supports a subset of Markdown-like formatting
-  /// (paragraphs separated by blank lines, **bold**, `code`).
-  body: string,
-  /// Category this entry belongs to — determines which tab it appears under.
-  category: helpCategory,
-  /// If this entry is panel-specific help, which panel it documents.
-  /// None for general entries (glossary terms, shortcuts, architecture).
-  panelId: option<PanelSwitcherModel.panelId>,
-  /// Search keywords that match this entry beyond title/body text.
-  /// Includes synonyms, abbreviations, and related concepts.
-  keywords: array<string>,
-}
-
-/// A glossary term with cross-references to related terms.
-/// Glossary terms are a specialised subset of help entries with
-/// richer linking for exploratory learning.
-type glossaryTerm = {
-  /// The term being defined (e.g. "Task Barycentre", "Symbolic Mass").
-  term: string,
-  /// Plain-language definition accessible to users unfamiliar with
-  /// neurosymbolic AI concepts. Avoids jargon where possible.
-  definition: string,
-  /// Related terms the user might want to explore next.
-  /// Creates a knowledge graph of neurosymbolic concepts.
-  relatedTerms: array<string>,
-  /// Optional longer explanation with examples and analogies.
-  extendedDescription: option<string>,
-}
-
-/// A single step in the onboarding walkthrough.
-/// Steps are presented sequentially with optional highlighting
-/// of UI elements to guide the user's attention.
-type onboardingStep = {
-  /// Unique step identifier (e.g. "welcome", "panel-switcher", "dark-start").
-  id: string,
-  /// Step title displayed as the heading of the onboarding card.
-  title: string,
-  /// Detailed description explaining what this UI element does
-  /// and how to interact with it.
-  description: string,
-  /// CSS selector for the target element to highlight during this step.
-  /// None for general information steps that don't target a specific element.
-  targetSelector: option<string>,
-  /// Whether the user has completed/acknowledged this step.
-  completed: bool,
-}
-
-/// State for the onboarding walkthrough sub-system.
-type onboardingState = {
-  /// Whether the onboarding walkthrough is currently active/visible.
-  active: bool,
-  /// Zero-based index of the current step being displayed.
-  currentStep: int,
-  /// Ordered sequence of onboarding steps to present.
-  steps: array<onboardingStep>,
-  /// Whether the user has completed onboarding at least once.
-  /// Persisted to localStorage to avoid re-showing on return visits.
-  completedOnce: bool,
-}
-
-/// Root state for the help system.
-type helpState = {
-  /// Current search query text in the help search bar.
-  searchQuery: string,
-  /// Help entries matching the current search query and category filter.
-  /// Recomputed by HelpEngine on every search/category change.
-  filteredEntries: array<helpEntry>,
-  /// Currently selected category tab for filtering help entries.
-  activeCategory: helpCategory,
-  /// ID of the currently displayed help entry (None = show entry list).
-  activeEntry: option<string>,
-  /// Full glossary of neurosymbolic terms for the Glossary tab.
-  glossary: array<glossaryTerm>,
-  /// Onboarding walkthrough state.
-  onboarding: onboardingState,
-  /// When help is opened context-sensitively (F1), this records which
-  /// panel was active so help can pre-filter to that panel's guide.
-  contextPanelId: option<PanelSwitcherModel.panelId>,
-}
diff --git a/src/model/HypatiaModel.affine b/src/model/HypatiaModel.affine
new file mode 100644
index 00000000..add21c4b
--- /dev/null
+++ b/src/model/HypatiaModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module HypatiaModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/HypatiaModel.res b/src/model/HypatiaModel.res
deleted file mode 100644
index c299fdfd..00000000
--- a/src/model/HypatiaModel.res
+++ /dev/null
@@ -1,194 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Hypatia Model — types for the Hypatia neurosymbolic scanner panel.
-///
-/// Hypatia is the intelligence hub: 5 neural networks, VCL queries against
-/// verisim-data flat files, safety triangle routing, quarantine, and
-/// learning cycles. This panel is the brain of the entire ecosystem — it
-/// sees across all 301+ repos and feeds findings to gitbot-fleet for execution.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// Neural network identity within the Hypatia ensemble.
-type neuralNetId =
-  /// PageRank trust over repos/bots/recipes.
-  | GraphOfTrust
-  /// Domain-specific confidence (7 expert domains).
-  | MixtureOfExperts
-  /// Temporal anomaly detection in event streams.
-  | LiquidStateMachine
-  /// Confidence trajectory forecasting + drift detection.
-  | EchoStateNetwork
-  /// Finding similarity, novelty detection, classification.
-  | RadialNeuralNetwork
-
-/// Status of an individual neural network.
-type neuralNetStatus =
-  /// Network is loaded and producing inferences.
-  | NetActive
-  /// Network is training/updating weights.
-  | NetTraining
-  /// Network is not loaded.
-  | NetOffline
-  /// Network encountered an error.
-  | NetError(string)
-
-/// A single neural network's state snapshot.
-type neuralNetState = {
-  /// Which network this is.
-  id: neuralNetId,
-  /// Current status.
-  status: neuralNetStatus,
-  /// Current confidence score (0.0–1.0).
-  confidence: float,
-  /// Number of inferences produced in current cycle.
-  inferenceCount: int,
-  /// Model version string.
-  version: string,
-}
-
-/// A scan result from the Hypatia pipeline — one per repo.
-type scanResult = {
-  /// Repository name.
-  repoName: string,
-  /// Overall risk score (0.0–1.0, higher = riskier).
-  riskScore: float,
-  /// Number of findings in this repo.
-  findingCount: int,
-  /// Number of quarantined items.
-  quarantineCount: int,
-  /// Timestamp of last scan (ISO 8601).
-  lastScanned: string,
-  /// Whether the repo passed all checks.
-  passed: bool,
-}
-
-/// Pipeline stage in the Hypatia processing flow.
-type pipelineStage =
-  /// Ingestion — reading source code and metadata.
-  | Ingestion
-  /// Analysis — running neural networks.
-  | Analysis
-  /// Routing — safety triangle classification.
-  | Routing
-  /// Dispatch — sending to gitbot-fleet.
-  | Dispatch
-  /// Complete — cycle finished.
-  | Complete
-
-/// Learning cycle status — Hypatia's continuous improvement loop.
-type learningCycle = {
-  /// Current pipeline stage.
-  stage: pipelineStage,
-  /// Number of repos scanned in this cycle.
-  reposScanned: int,
-  /// Total repos to scan.
-  reposTotal: int,
-  /// Cycle start time.
-  startedAt: string,
-  /// Whether novelty gating triggered (new patterns detected).
-  noveltyTriggered: bool,
-}
-
-/// Category tabs for the Hypatia panel.
-type hypatiaCategory =
-  /// Overview — neural network gauges, pipeline status, learning cycle.
-  | HypatiaDashboard
-  /// Scan results — per-repo findings table.
-  | HypatiaScans
-  /// Quarantine — items held for human review.
-  | HypatiaQuarantine
-  /// Neural confidence — detailed network performance.
-  | HypatiaNeural
-  /// Recipe inventory — confidence distribution and fix_script coverage.
-  | HypatiaRecipes
-
-/// An individual recipe in the Hypatia inventory.
-type recipeEntry = {
-  /// Unique recipe identifier (e.g. "hypatia-rec-001").
-  id: string,
-  /// Human-readable recipe name.
-  name: string,
-  /// Brief description of what this recipe detects/fixes.
-  description: string,
-  /// Confidence score (0.0–1.0).
-  confidence: float,
-  /// Safety triangle tier this recipe routes to (defined in FleetModel).
-  tier: FleetModel.safetyTier,
-  /// Whether a fix_script is available.
-  hasFixScript: bool,
-  /// Programming languages this recipe applies to.
-  languages: array<string>,
-  /// Number of times this recipe has fired across the estate.
-  timesTriggered: int,
-  /// Last triggered timestamp (ISO 8601) or "never".
-  lastTriggered: string,
-}
-
-/// Recipe confidence distribution bucket.
-type recipeConfidenceBucket = {
-  /// Label for this bucket (e.g. "0.99", "0.95+", "0.90+", "<0.90").
-  label: string,
-  /// Number of recipes in this bucket.
-  count: int,
-}
-
-/// Recipe inventory summary for the Recipes tab.
-type recipeInventory = {
-  /// Total number of recipes.
-  totalRecipes: int,
-  /// Confidence distribution buckets.
-  confidenceBuckets: array<recipeConfidenceBucket>,
-  /// Number of recipes with a fix_script (non-null).
-  withFixScript: int,
-  /// Number of recipes without a fix_script (null).
-  withoutFixScript: int,
-}
-
-/// Outcome summary for the Hypatia Dashboard.
-type outcomeSummary = {
-  /// Total dispatch outcomes recorded.
-  totalOutcomes: int,
-  /// Number of successful outcomes.
-  successCount: int,
-  /// Success rate as a percentage (0.0–100.0).
-  successRate: float,
-  /// Whether the key mismatch fix has been applied.
-  mismatchFixApplied: bool,
-}
-
-/// Root state for the Hypatia panel.
-type hypatiaState = {
-  /// Whether data has been loaded from the Elixir backend.
-  loaded: bool,
-  /// Whether a loading operation is in progress.
-  loading: bool,
-  /// Error from the last operation.
-  error: option<string>,
-  /// The 5 neural networks and their current state.
-  networks: array<neuralNetState>,
-  /// Scan results per repo.
-  scans: array<scanResult>,
-  /// Current learning cycle status.
-  learningCycle: option<learningCycle>,
-  /// Active category tab.
-  activeCategory: hypatiaCategory,
-  /// Text filter for scan results search.
-  filterText: string,
-  /// Total repos in the scanning universe.
-  totalRepos: int,
-  /// Number of repos currently quarantined.
-  quarantinedCount: int,
-  /// Safety triangle counts: (eliminate, substitute, control).
-  triangleCounts: option<(int, int, int)>,
-  /// Recipe inventory summary.
-  recipes: option<recipeInventory>,
-  /// Individual recipe entries for drill-down.
-  recipeEntries: array<recipeEntry>,
-  /// Currently selected recipe for detail view (by id).
-  selectedRecipe: option<string>,
-  /// Recipe filter text.
-  recipeFilter: string,
-  /// Outcome summary for dashboard display.
-  outcomes: option<outcomeSummary>,
-}
diff --git a/src/model/IdentityModel.affine b/src/model/IdentityModel.affine
new file mode 100644
index 00000000..ba86702c
--- /dev/null
+++ b/src/model/IdentityModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module IdentityModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/IdentityModel.res b/src/model/IdentityModel.res
deleted file mode 100644
index 81c5fda4..00000000
--- a/src/model/IdentityModel.res
+++ /dev/null
@@ -1,34 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// IdentityModel — Types for PanLL identity snapshots and team replication.
-///
-/// An identity snapshot captures the full user configuration (panel state,
-/// settings, service URLs) as a named entity that can be restored locally
-/// or broadcast to team members.
-///
-/// Part of Connected Workbench v0.2.0.
-
-/// Metadata for an identity snapshot (compact form for listing).
-type identitySnapshot = {
-  /// Unique snapshot identifier (UUID v4).
-  id: string,
-  /// Human-readable snapshot name.
-  name: string,
-  /// ISO 8601 creation timestamp.
-  createdAt: string,
-}
-
-/// Full state of the identity management system.
-type identityState = {
-  /// Known snapshots (metadata only — full payload loaded on demand).
-  snapshots: array<identitySnapshot>,
-  /// Currently active snapshot ID (if the user loaded one).
-  activeSnapshotId: option<string>,
-  /// Whether a capture operation is in progress.
-  isCapturing: bool,
-  /// Whether a restore operation is in progress.
-  isRestoring: bool,
-  /// Error message from last identity operation.
-  error: option<string>,
-}
diff --git a/src/model/InterfacesModel.affine b/src/model/InterfacesModel.affine
new file mode 100644
index 00000000..d8816ea5
--- /dev/null
+++ b/src/model/InterfacesModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module InterfacesModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/InterfacesModel.res b/src/model/InterfacesModel.res
deleted file mode 100644
index 24b7f744..00000000
--- a/src/model/InterfacesModel.res
+++ /dev/null
@@ -1,80 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Interfaces Model — types for the language bridges panel.
-///
-/// Tracks Idris2 ABI definitions, Zig FFI implementations, binding
-/// coverage per language, believe_me counts, and build status.
-/// This panel makes the ABI/FFI standard visible and auditable.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// An Idris2 ABI definition file and its verification status.
-type abiDefinition = {
-  /// File path relative to src/abi/.
-  path: string,
-  /// Module name (e.g. "Types", "Layout", "Foreign").
-  moduleName: string,
-  /// Number of exported functions/types.
-  exportCount: int,
-  /// Number of believe_me instances (should be 0).
-  believeMeCount: int,
-  /// Whether all proofs pass (%default total, no holes).
-  verified: bool,
-}
-
-/// A Zig FFI implementation and its build status.
-type ffiImplementation = {
-  /// File path relative to ffi/zig/src/.
-  path: string,
-  /// Number of exported C-compatible functions.
-  exportCount: int,
-  /// Build status: "ok", "error", "untested".
-  buildStatus: string,
-  /// Error message if build failed.
-  buildError: option<string>,
-}
-
-/// Binding coverage for a specific target language.
-type bindingCoverage = {
-  /// Target language name (e.g. "Rust", "ReScript", "Gleam").
-  language: string,
-  /// Number of ABI functions with bindings.
-  boundCount: int,
-  /// Total ABI functions that need bindings.
-  totalCount: int,
-  /// Coverage percentage (0.0–100.0).
-  coverage: float,
-  /// Whether bindings are auto-generated or hand-written.
-  autoGenerated: bool,
-}
-
-/// Category tabs for the Interfaces panel.
-type interfacesCategory =
-  /// Overview dashboard — ABI count, FFI status, coverage matrix.
-  | IfaceDashboard
-  /// Idris2 ABI definitions inventory.
-  | IfaceAbi
-  /// Zig FFI implementations.
-  | IfaceFfi
-  /// Per-language binding coverage matrix.
-  | IfaceBindings
-
-/// Root state for the Interfaces panel.
-type interfacesState = {
-  /// Whether data has been loaded.
-  loaded: bool,
-  /// Whether scanning is in progress.
-  loading: bool,
-  /// Error from the last operation.
-  error: option<string>,
-  /// Idris2 ABI definitions.
-  abiDefs: array<abiDefinition>,
-  /// Zig FFI implementations.
-  ffiImpls: array<ffiImplementation>,
-  /// Per-language binding coverage.
-  bindings: array<bindingCoverage>,
-  /// Active category tab.
-  activeCategory: interfacesCategory,
-  /// Total believe_me count across all ABI files (should be 0).
-  totalBelieveMe: int,
-}
diff --git a/src/model/K9Model.affine b/src/model/K9Model.affine
new file mode 100644
index 00000000..9b7a6c75
--- /dev/null
+++ b/src/model/K9Model.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module K9Model;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/K9Model.res b/src/model/K9Model.res
deleted file mode 100644
index 89cbe37c..00000000
--- a/src/model/K9Model.res
+++ /dev/null
@@ -1,40 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath)
-
-/// PanLL K9 Model — state for the K9 Manager panel.
-///
-/// Tracks loaded K9 contractile files, their validation results, and the
-/// current security level. Used by K9Manager.res for rendering the panel
-/// and by the update loop for dispatching K9Cmd operations.
-///
-/// Dependency: K9Engine (for types only — no circular imports).
-
-/// A loaded K9 file entry with path and validation result.
-type k9FileEntry = {
-  /// Filesystem path to the .k9.ncl file.
-  path: string,
-  /// Parsed contractile data (None if not yet validated).
-  contractile: option<K9Engine.k9Contractile>,
-  /// Whether the file is currently being validated.
-  validating: bool,
-}
-
-/// Root state for the K9 Manager panel.
-type k9ManagerState = {
-  /// All loaded K9 files with their validation status.
-  loadedFiles: array<k9FileEntry>,
-  /// The current effective security level across loaded files.
-  currentLevel: K9Engine.k9SecurityLevel,
-  /// Error from the last operation (dismissed by user).
-  error: option<string>,
-  /// Whether a load or validate operation is in progress.
-  loading: bool,
-}
-
-/// Initial K9 Manager state — no files loaded, Kennel (safest) level.
-let init: k9ManagerState = {
-  loadedFiles: [],
-  currentLevel: K9Engine.Kennel,
-  error: None,
-  loading: false,
-}
diff --git a/src/model/KeybindingsModel.affine b/src/model/KeybindingsModel.affine
new file mode 100644
index 00000000..86edc920
--- /dev/null
+++ b/src/model/KeybindingsModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module KeybindingsModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/KeybindingsModel.res b/src/model/KeybindingsModel.res
deleted file mode 100644
index 63db7c32..00000000
--- a/src/model/KeybindingsModel.res
+++ /dev/null
@@ -1,71 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Keybindings Model — types for customisable keyboard shortcuts.
-///
-/// Replaces the hardcoded Ctrl+Shift+L/N/B/W/V shortcuts in SubscriptionsFixed.res
-/// with a configurable keybinding map. Users can remap shortcuts via the Workspace
-/// panel's Keybindings configurator tab.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// Modifier keys that can be combined with a key press.
-type modifier =
-  | Ctrl
-  | Shift
-  | Alt
-  | Meta
-
-/// A key chord: a combination of modifiers + a key character.
-/// For example, Ctrl+Shift+Z would be { modifiers: [Ctrl, Shift], key: "Z" }.
-type keyChord = {
-  /// Set of modifier keys that must be held.
-  modifiers: array<modifier>,
-  /// The key character (e.g., "Z", "S", "Escape", "F11").
-  key: string,
-}
-
-/// A named action that a keybinding can trigger.
-/// These map 1:1 to msg constructors, but are stored as strings for
-/// serialisation and conflict detection.
-type keybindingAction =
-  | ActionUndo
-  | ActionRedo
-  | ActionSave
-  | ActionPrint
-  | ActionResetPanel
-  | ActionResetAll
-  | ActionTogglePaneL
-  | ActionTogglePaneN
-  | ActionTogglePaneW
-  | ActionToggleVab
-  | ActionTogglePanelBar
-  | ActionFullscreen
-  | ActionCloseOverlay
-  | ActionToggleCapture
-  | ActionToggleWorkspace
-  | ActionToggleSecurity
-  | ActionCycleWorkspaceMode
-  | ActionToggleDryRun
-
-/// A single keybinding entry: maps a chord to an action.
-type keybinding = {
-  /// The key chord that triggers this action.
-  chord: keyChord,
-  /// The action to execute.
-  action: keybindingAction,
-  /// Whether this is a user-customised binding (vs default).
-  custom: bool,
-}
-
-/// Root state for the keybindings system.
-type keybindingsState = {
-  /// All active keybindings (defaults + user overrides).
-  bindings: array<keybinding>,
-  /// Whether the keybinding editor is in "recording" mode (next keypress
-  /// becomes the new chord for the selected action).
-  recording: bool,
-  /// The action currently being rebound (if recording).
-  recordingAction: option<keybindingAction>,
-  /// Detected conflicts (two bindings with the same chord).
-  conflicts: array<(keybindingAction, keybindingAction)>,
-}
diff --git a/src/model/LanguageForgeModel.affine b/src/model/LanguageForgeModel.affine
new file mode 100644
index 00000000..f0c14c31
--- /dev/null
+++ b/src/model/LanguageForgeModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module LanguageForgeModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/LanguageForgeModel.res b/src/model/LanguageForgeModel.res
deleted file mode 100644
index ce87ef7a..00000000
--- a/src/model/LanguageForgeModel.res
+++ /dev/null
@@ -1,111 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Language Forge Model — leaf types for the nextgen-languages portfolio panel.
-///
-/// Tracks all 14 nextgen-languages with their component completion status,
-/// development phase, and WASM readiness. Provides filtering by category
-/// (production-ready, in-progress, needs-work) and sorting by name/score/phase.
-///
-/// Dependency: none (leaf module in the type DAG).
-
-/// Development maturity phase for a language project.
-type languagePhase =
-  | Production
-  | NearProduction
-  | Alpha
-  | DesignOnly
-  | Concept
-  | Vaporware
-
-/// Completion status for an individual compiler/runtime component.
-type componentStatus = {
-  /// Component name (e.g. "Lexer", "Parser", "Type Checker").
-  name: string,
-  /// Completion percentage (0–100).
-  completion: int,
-  /// Whether the component has test coverage.
-  hasTests: bool,
-}
-
-/// A single language project in the nextgen-languages portfolio.
-type languageEntry = {
-  /// Language name (e.g. "AffineScript", "Eclexia").
-  name: string,
-  /// Implementation language (e.g. "OCaml", "Rust", "Elixir").
-  implLang: string,
-  /// Overall completion score (0–100).
-  score: int,
-  /// Current development phase.
-  phase: languagePhase,
-  /// Whether the lexer is complete.
-  lexerComplete: bool,
-  /// Whether the parser is complete.
-  parserComplete: bool,
-  /// Whether the type checker is complete.
-  typeCheckerComplete: bool,
-  /// Whether a WASM compilation backend exists.
-  hasWasmBackend: bool,
-  /// Whether there is any test coverage.
-  hasTests: bool,
-  /// Per-component completion breakdown.
-  components: array<componentStatus>,
-  /// Count of outstanding TODO items.
-  todoCount: int,
-  /// Lines of code in the project.
-  locCount: int,
-}
-
-/// Filter categories for the language portfolio view.
-type forgeCategory =
-  /// Show all 14 languages.
-  | AllLanguages
-  /// Languages at Production or NearProduction phase.
-  | ProductionReady
-  /// Languages at Alpha or DesignOnly phase.
-  | InProgress
-  /// Languages at Concept or Vaporware phase.
-  | NeedsWork
-
-/// Sort criteria for the language table.
-type forgeSortBy =
-  /// Alphabetical by language name.
-  | SortByName
-  /// Descending by overall completion score.
-  | SortByScore
-  /// By development phase (Production first).
-  | SortByPhase
-
-/// Root state for the Language Forge panel module.
-type languageForgeState = {
-  /// Whether language data has been loaded.
-  loaded: bool,
-  /// Loading indicator for async operations.
-  loading: bool,
-  /// Last error message, if any.
-  error: option<string>,
-  /// Full portfolio of language projects.
-  languages: array<languageEntry>,
-  /// Active filter category tab.
-  activeCategory: forgeCategory,
-  /// Currently selected language name for detail view.
-  selectedLanguage: option<string>,
-  /// Text filter for language name search.
-  filterText: string,
-  /// Current sort criterion.
-  sortBy: forgeSortBy,
-  /// Whether to show the MoSCoW breakdown in detail view.
-  showMoscow: bool,
-}
-
-/// Initial state — empty portfolio, ready to load.
-let initial: languageForgeState = {
-  loaded: false,
-  loading: false,
-  error: None,
-  languages: [],
-  activeCategory: AllLanguages,
-  selectedLanguage: None,
-  filterText: "",
-  sortBy: SortByScore,
-  showMoscow: false,
-}
diff --git a/src/model/LevelArchitectModel.affine b/src/model/LevelArchitectModel.affine
new file mode 100644
index 00000000..eb91e326
--- /dev/null
+++ b/src/model/LevelArchitectModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module LevelArchitectModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/LevelArchitectModel.res b/src/model/LevelArchitectModel.res
deleted file mode 100644
index 11dbd6a1..00000000
--- a/src/model/LevelArchitectModel.res
+++ /dev/null
@@ -1,186 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Level Architect Model — types for the IDApTIK visual level
-/// design tool. Device placement, guard patrols, defence flags, asset
-/// browser, level validation, and LevelConfig export.
-
-/// Entity types that can be placed on a level grid.
-type levelEntityKind =
-  | EntityDevice
-  | EntityGuard
-  | EntitySpawnPoint
-  | EntityCompanion
-  | EntityCollectable
-  | EntityTrigger
-  | EntityDecoration
-
-/// A placed entity on the level grid.
-type levelEntity = {
-  id: string,
-  kind: levelEntityKind,
-  name: string,
-  gridX: int,
-  gridY: int,
-  rotation: int,
-  properties: array<(string, string)>,
-}
-
-/// Guard patrol waypoint.
-type patrolWaypoint = {
-  x: int,
-  y: int,
-  pauseDuration: float,
-}
-
-/// Guard patrol definition.
-type guardPatrol = {
-  guardId: string,
-  waypoints: array<patrolWaypoint>,
-  looping: bool,
-  speed: float,
-}
-
-/// IDApTIK defence flag (11 flags).
-type defenceFlag =
-  | FlagFirewall
-  | FlagIDS
-  | FlagEncryption
-  | FlagMFA
-  | FlagBackup
-  | FlagAuditLog
-  | FlagAccessControl
-  | FlagPatching
-  | FlagSegmentation
-  | FlagIncidentResponse
-  | FlagPhysicalSecurity
-
-/// Level validation issue.
-type validationIssue = {
-  severity: string,
-  message: string,
-  entityId: option<string>,
-  gridX: option<int>,
-  gridY: option<int>,
-}
-
-/// A game asset in the browser.
-type levelAsset = {
-  id: string,
-  name: string,
-  category: string,
-  thumbnail: string,
-  entityKind: levelEntityKind,
-}
-
-/// Undo history entry.
-type levelHistoryEntry = {
-  description: string,
-  entities: array<levelEntity>,
-  patrols: array<guardPatrol>,
-}
-
-/// The editor tool currently selected.
-type editorTool =
-  | ToolSelect
-  | ToolPlace(levelEntityKind)
-  | ToolErase
-  | ToolPatrol
-  | ToolDefenceFlag
-
-/// Category tabs for the Level Architect panel.
-type levelArchitectCategory =
-  | ArchitectGrid
-  | ArchitectAssets
-  | ArchitectPatrols
-  | ArchitectValidation
-
-/// IDApTIK device kind (mirrors Idris2 Types.idr DeviceKind).
-type deviceKind =
-  | DevLaptop
-  | DevDesktop
-  | DevServer
-  | DevRouter
-  | DevSwitch
-  | DevFirewall
-  | DevCamera
-  | DevAccessPoint
-  | DevPatchPanel
-  | DevPowerSupply
-  | DevPhoneSystem
-  | DevFibreHub
-
-/// IDApTIK guard rank (mirrors Idris2 Types.idr GuardRank).
-type guardRank =
-  | RankBasic
-  | RankEnforcer
-  | RankAntiHacker
-  | RankSentinel
-  | RankAssassin
-  | RankElite
-  | RankSecurityChief
-  | RankRivalHacker
-
-/// IDApTIK security dog breed (mirrors Idris2 Types.idr DogBreed).
-type dogBreed = BreedPatrol | BreedBloodhound | BreedRoboDog
-
-/// IDApTIK drone archetype (mirrors Idris2 Types.idr DroneArchetype).
-type droneArchetype = DroneHelper | DroneHunter | DroneKiller
-
-/// Zone security level (mirrors Idris2 Primitives.idr SecurityLevel).
-type zoneSecurityLevel = SecOpen | SecWeak | SecMedium | SecStrong
-
-/// A security zone with boundaries (mirrors Idris2 Zones.idr).
-type levelZone = {
-  name: string,
-  startX: float,
-  endX: float,
-  securityTier: int,
-}
-
-/// ABI proof validation result (mirrors Validation.idr).
-type abiProof = {
-  name: string,
-  passed: bool,
-  detail: string,
-}
-
-/// UMS-format validation state (the 5 Idris2 proofs).
-type umsValidation = {
-  guardsInZones: bool,
-  defenceTargetsValid: bool,
-  zonesOrdered: bool,
-  pbxConsistent: bool,
-  devicesExist: bool,
-  allPassed: bool,
-  proofs: array<abiProof>,
-}
-
-/// Root state for the Level Architect panel.
-type levelArchitectState = {
-  activeCategory: levelArchitectCategory,
-  levelName: string,
-  gridWidth: int,
-  gridHeight: int,
-  entities: array<levelEntity>,
-  patrols: array<guardPatrol>,
-  defenceFlags: array<defenceFlag>,
-  selectedEntityId: option<string>,
-  selectedTool: editorTool,
-  assets: array<levelAsset>,
-  validationIssues: array<validationIssue>,
-  history: array<levelHistoryEntry>,
-  historyIndex: int,
-  zoomLevel: float,
-  showGrid: bool,
-  showPatrolPaths: bool,
-  showDefenceOverlay: bool,
-  alertThreshold: int,
-  loading: bool,
-  error: option<string>,
-  /// UMS-format zones (LAN/DMZ/SCADA).
-  zones: array<levelZone>,
-  /// UMS ABI validation result.
-  umsValidation: option<umsValidation>,
-  /// BoJ routing toggle.
-  bojRouting: bool,
-}
diff --git a/src/model/LlmCodingModel.affine b/src/model/LlmCodingModel.affine
new file mode 100644
index 00000000..99f7dc04
--- /dev/null
+++ b/src/model/LlmCodingModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module LlmCodingModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/LlmCodingModel.res b/src/model/LlmCodingModel.res
deleted file mode 100644
index 92e43faf..00000000
--- a/src/model/LlmCodingModel.res
+++ /dev/null
@@ -1,230 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL LLM Coding Panel Model — types for multi-LLM session coordination,
-/// resource monitoring, workspace locking, and task orchestration.
-///
-/// This panel is the headed supervisor for parallel Claude/LLM coding sessions.
-/// It sits OUTSIDE the LLM processes so it can enforce resource limits, gate
-/// destructive actions, and prevent conflicts without the LLM being able to
-/// override those controls.
-///
-/// Designed to work with both Gossamer backends.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-// ============================================================================
-// LLM Provider
-// ============================================================================
-
-/// Supported LLM providers for coding sessions.
-type llmProvider =
-  /// Claude Code (Anthropic CLI).
-  | Claude
-  /// Other LLM via CLI (e.g. aider, continue, cursor).
-  | OtherLlm(string)
-
-// ============================================================================
-// Session State
-// ============================================================================
-
-/// Lifecycle state of a spawned LLM coding session.
-type sessionState =
-  /// Starting — process spawned, waiting for readiness signal.
-  | Starting
-  /// Active — session is running and accepting input.
-  | Active
-  /// Frozen — SIGSTOP sent by resource guardian or user.
-  | Frozen
-  /// Completed — session finished its task list.
-  | Completed
-  /// Failed — session crashed or errored.
-  | Failed(string)
-  /// Killed — terminated by supervisor (resource limit or user).
-  | Killed
-
-// ============================================================================
-// Resource Usage
-// ============================================================================
-
-/// Snapshot of a session's resource consumption.
-type resourceUsage = {
-  /// Resident memory in megabytes.
-  memoryMb: int,
-  /// CPU usage percentage (0-100).
-  cpuPercent: float,
-  /// Number of subagent processes spawned by this session.
-  subagentCount: int,
-  /// Cumulative tokens consumed (if trackable).
-  tokensUsed: option<int>,
-}
-
-/// Resource limits for a session.
-type resourceLimits = {
-  /// Maximum RSS in megabytes before freeze.
-  maxMemoryMb: int,
-  /// Maximum CPU percentage before throttle warning.
-  maxCpuPercent: float,
-  /// Maximum concurrent subagents.
-  maxSubagents: int,
-}
-
-// ============================================================================
-// Workspace Locks
-// ============================================================================
-
-/// A lock on a workspace resource (repo, file, or directory).
-type workspaceLock = {
-  /// Path being locked (repo root or specific file/dir).
-  path: string,
-  /// Session ID that holds the lock.
-  heldBy: string,
-  /// When the lock was acquired (ISO 8601).
-  acquiredAt: string,
-  /// Whether this is exclusive (write) or shared (read).
-  exclusive: bool,
-}
-
-// ============================================================================
-// Permission Gate
-// ============================================================================
-
-/// Categories of actions that require gating.
-type actionCategory =
-  /// Git push to any remote.
-  | GitPush
-  /// Git force push.
-  | GitForcePush
-  /// Delete files or directories.
-  | FileDelete
-  /// Modify CI/CD workflows.
-  | CiCdChange
-  /// Create or close PRs/issues.
-  | GitHubAction
-  /// Any other destructive action.
-  | OtherDestructive(string)
-
-/// Destructive action requiring supervisor approval.
-type pendingAction = {
-  /// Unique action ID.
-  id: string,
-  /// Session requesting the action.
-  sessionId: string,
-  /// Human-readable description of the action.
-  description: string,
-  /// Category of action.
-  category: actionCategory,
-  /// When the request was made.
-  requestedAt: string,
-}
-
-// ============================================================================
-// Task Coordination
-// ============================================================================
-
-/// Task completion state.
-type taskStatus =
-  /// Pending — not yet started.
-  | Pending
-  /// InProgress — being worked on.
-  | InProgress
-  /// Done — completed successfully.
-  | Done
-  /// Skipped — skipped (completed by another session or irrelevant).
-  | Skipped
-  /// Blocked — waiting on another task or resource.
-  | Blocked(string)
-
-/// A task in the shared task list.
-type sharedTask = {
-  /// Unique task ID.
-  id: string,
-  /// Task description.
-  description: string,
-  /// Current status.
-  status: taskStatus,
-  /// Session assigned to this task (if any).
-  assignedTo: option<string>,
-  /// When the task was completed (if done).
-  completedAt: option<string>,
-}
-
-// ============================================================================
-// Cross-Session Messages
-// ============================================================================
-
-/// A message from one session to others.
-type sessionMessage = {
-  /// Source session ID.
-  fromSession: string,
-  /// Message content.
-  content: string,
-  /// When the message was sent.
-  sentAt: string,
-  /// Whether this message has been acknowledged by the panel.
-  acknowledged: bool,
-}
-
-// ============================================================================
-// Session Definition
-// ============================================================================
-
-/// A single LLM coding session managed by this panel.
-type llmSession = {
-  /// Unique session ID (UUID).
-  id: string,
-  /// Human-readable name (e.g. "V-lang connectors").
-  name: string,
-  /// LLM provider running this session.
-  provider: llmProvider,
-  /// Current lifecycle state.
-  state: sessionState,
-  /// OS process ID of the terminal/LLM process.
-  pid: option<int>,
-  /// Working directory for this session.
-  workDir: string,
-  /// Repos this session is allowed to touch.
-  allowedRepos: array<string>,
-  /// Current resource consumption.
-  resources: resourceUsage,
-  /// Resource limits enforced on this session.
-  limits: resourceLimits,
-  /// Task list assigned to this session.
-  tasks: array<sharedTask>,
-  /// When this session was spawned.
-  startedAt: string,
-}
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Top-level state for the LLM Coding panel.
-type llmCodingState = {
-  /// All managed sessions.
-  sessions: array<llmSession>,
-  /// Active workspace locks across all sessions.
-  locks: array<workspaceLock>,
-  /// Pending actions requiring supervisor approval.
-  pendingActions: array<pendingAction>,
-  /// Cross-session message log.
-  messages: array<sessionMessage>,
-  /// System-wide resource snapshot (from resource-guardian).
-  systemMemoryAvailableMb: int,
-  systemMemoryTotalMb: int,
-  systemCpuPercent: float,
-  /// Whether the coordination daemon is connected.
-  daemonConnected: bool,
-  /// Currently selected session (for detail view).
-  selectedSession: option<string>,
-  /// Whether we are in "spawn new session" mode.
-  showSpawnDialog: bool,
-  /// New session form fields.
-  newSessionName: string,
-  newSessionWorkDir: string,
-  newSessionTaskList: string,
-  /// Whether data is loading.
-  loading: bool,
-  /// Last error message.
-  lastError: option<string>,
-}
diff --git a/src/model/LoadTesterModel.affine b/src/model/LoadTesterModel.affine
new file mode 100644
index 00000000..80126dd8
--- /dev/null
+++ b/src/model/LoadTesterModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module LoadTesterModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/LoadTesterModel.res b/src/model/LoadTesterModel.res
deleted file mode 100644
index adcd0ac9..00000000
--- a/src/model/LoadTesterModel.res
+++ /dev/null
@@ -1,137 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Load Tester Model — Phoenix channel stress testing and concurrency
-/// simulation for IDApTIK multiplayer infrastructure.
-///
-/// Ramps virtual players from zero to a target concurrency, measures latency
-/// percentiles, throughput, and finds the saturation point where the server
-/// begins dropping connections or increasing response times.
-///
-/// Clade: Scanner. This module has NO dependencies on other PanLL modules.
-
-// ============================================================================
-// Simulated Players
-// ============================================================================
-
-/// Connection lifecycle status for a simulated player.
-type simulatedPlayerStatus =
-  /// Player is establishing a WebSocket connection.
-  | PlayerConnecting
-  /// Player is connected and actively exchanging messages.
-  | PlayerConnected
-  /// Player disconnected (payload is disconnect reason).
-  | PlayerDisconnected(string)
-  /// Player encountered an error (payload is error message).
-  | PlayerError(string)
-
-/// A single simulated player in the load test.
-type simulatedPlayer = {
-  /// Numeric player identifier within this load test.
-  id: int,
-  /// Current connection status.
-  status: simulatedPlayerStatus,
-  /// Latest measured round-trip latency in milliseconds.
-  latencyMs: float,
-  /// Total messages sent by this player.
-  messagesSent: int,
-  /// Total messages received by this player.
-  messagesReceived: int,
-  /// Timestamp when this player connected (None if not yet connected).
-  connectedAt: option<float>,
-}
-
-// ============================================================================
-// Load Scenarios
-// ============================================================================
-
-/// A load test scenario definition specifying concurrency, ramp-up, and
-/// message rates for the Phoenix channel stress test.
-type loadScenario = {
-  /// Human-readable scenario name (e.g., "Peak Hour Simulation").
-  name: string,
-  /// Target number of concurrent players.
-  concurrentPlayers: int,
-  /// Seconds over which players ramp up from zero to target.
-  rampUpSeconds: int,
-  /// Total duration of the sustained load phase in seconds.
-  durationSeconds: int,
-  /// Target messages per second per player.
-  messagesPerSecond: int,
-  /// Phoenix channel to connect to (e.g., "game:lobby").
-  channelName: string,
-}
-
-// ============================================================================
-// Load Test Results
-// ============================================================================
-
-/// Result summary of a completed load test run.
-type loadTestResult = {
-  /// The scenario that was executed.
-  scenario: loadScenario,
-  /// Peak number of simultaneously connected players.
-  peakPlayers: int,
-  /// Average round-trip latency in milliseconds.
-  avgLatencyMs: float,
-  /// 99th percentile latency in milliseconds.
-  p99LatencyMs: float,
-  /// Total messages exchanged during the test.
-  messagesTotal: int,
-  /// Total error count during the test.
-  errorsTotal: int,
-  /// Measured throughput in messages per second.
-  throughputPerSec: float,
-  /// Total test duration in milliseconds.
-  durationMs: float,
-  /// ISO 8601 timestamp when this test completed.
-  timestamp: string,
-}
-
-/// A point on the saturation curve (players vs latency).
-type saturationPoint = {
-  /// Number of concurrent players at this point.
-  players: int,
-  /// Measured average latency at this concurrency level.
-  avgLatencyMs: float,
-  /// Error rate (0.0 to 1.0) at this concurrency level.
-  errorRate: float,
-}
-
-// ============================================================================
-// Tab Navigation
-// ============================================================================
-
-/// Active tab within the Load Tester panel.
-type loadTestTab =
-  /// Scenarios — browse and configure load test scenarios.
-  | TabScenarios
-  /// Live Test — real-time player connection status and latency gauges.
-  | TabLiveTest
-  /// Results — historical test results with percentile breakdowns.
-  | TabResults
-  /// Saturation Curve — chart of players vs latency to find breaking point.
-  | TabSaturationCurve
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Root state for the Load Tester panel.
-type loadTesterState = {
-  /// Active tab within the panel.
-  activeTab: loadTestTab,
-  /// Available load test scenarios.
-  scenarios: array<loadScenario>,
-  /// Currently selected scenario name for configuration.
-  selectedScenario: option<string>,
-  /// Live simulated player connections during an active test.
-  players: array<simulatedPlayer>,
-  /// Historical test result summaries.
-  results: array<loadTestResult>,
-  /// Saturation curve data points from the most recent graduated test.
-  saturationCurve: array<saturationPoint>,
-  /// Whether a load test is currently running.
-  running: bool,
-  /// Error from the last operation.
-  error: option<string>,
-}
diff --git a/src/model/ManifestCoverageModel.affine b/src/model/ManifestCoverageModel.affine
new file mode 100644
index 00000000..66dbe06b
--- /dev/null
+++ b/src/model/ManifestCoverageModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ManifestCoverageModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/ManifestCoverageModel.res b/src/model/ManifestCoverageModel.res
deleted file mode 100644
index 1a97a8f4..00000000
--- a/src/model/ManifestCoverageModel.res
+++ /dev/null
@@ -1,47 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Manifest Coverage Model — AI manifest presence across all repos.
-///
-/// Scans repos for the presence and validity of 0-AI-MANIFEST.a2ml or
-/// AI.a2ml files. Every hyperpolymath repo should have an AI manifest
-/// as the universal entry point for AI agents.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// Manifest presence and validity for a single repository.
-type repoManifestStatus = {
-  /// Repository name.
-  repoName: string,
-  /// Whether 0-AI-MANIFEST.a2ml or AI.a2ml is present.
-  hasManifest: bool,
-  /// Filename found (if any).
-  manifestFile: option<string>,
-  /// Whether the manifest parsed without errors.
-  isValid: bool,
-  /// Validation errors (empty if valid).
-  validationErrors: array<string>,
-  /// Last scan timestamp (ISO 8601).
-  lastScanned: string,
-}
-
-/// Manifest Coverage panel tabs.
-type manifestCoverageTab =
-  | TabOverview
-  | TabRepoList
-  | TabInvalid
-
-/// Root state for the Manifest Coverage panel.
-type manifestCoverageState = {
-  /// Active tab.
-  activeTab: manifestCoverageTab,
-  /// Per-repo manifest status.
-  repos: array<repoManifestStatus>,
-  /// Currently selected repo for detail view.
-  selectedRepo: option<string>,
-  /// Whether a filesystem scan is in progress.
-  scanning: bool,
-  /// Error from last scan.
-  error: option<string>,
-  /// Search/filter text.
-  filterText: string,
-}
diff --git a/src/model/MassPanicModel.affine b/src/model/MassPanicModel.affine
new file mode 100644
index 00000000..07b6476b
--- /dev/null
+++ b/src/model/MassPanicModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MassPanicModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/MassPanicModel.res b/src/model/MassPanicModel.res
deleted file mode 100644
index c3418eb2..00000000
--- a/src/model/MassPanicModel.res
+++ /dev/null
@@ -1,275 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Mass Panic Model — types for the organisation-scale batch scanning
-/// panel (assemblyline + incremental BLAKE3 + verisim + delta reporting).
-///
-/// This is the "mass-panic" deployment mode of panic-attack: scan hundreds or
-/// thousands of repos in parallel, persist results, compare runs, and generate
-/// notifications for critical findings.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// Status of an individual repo in the scan queue.
-type repoScanStatus =
-  | Queued
-  | Scanning
-  | Complete
-  | Skipped // unchanged (incremental BLAKE3 match)
-  | Failed(string)
-
-/// Per-repo scan result summary.
-type repoResult = {
-  repoPath: string,
-  repoName: string,
-  status: repoScanStatus,
-  totalFindings: int,
-  critical: int,
-  high: int,
-  medium: int,
-  low: int,
-  filesScanned: int,
-  blake3Hash: option<string>,
-  scanDuration: option<float>, // seconds
-}
-
-/// Overall assemblyline run summary.
-type assemblylineSummary = {
-  totalRepos: int,
-  scannedRepos: int,
-  skippedRepos: int,
-  failedRepos: int,
-  totalFindings: int,
-  totalCritical: int,
-  totalHigh: int,
-  scanDuration: float, // seconds
-  timestamp: string,
-}
-
-/// Delta between two runs (what's new/fixed).
-type deltaEntry = {
-  repoName: string,
-  newFindings: int,
-  fixedFindings: int,
-  changeDirection: string, // "improved", "regressed", "unchanged", "new"
-}
-
-/// Sort mode for the repo list.
-type repoSortMode =
-  | ByRisk // riskiest first (default)
-  | ByName
-  | ByFindings
-  | ByDuration
-
-/// Filter mode for the repo list.
-type repoFilterMode =
-  | AllRepos
-  | FindingsOnly // repos with >= 1 finding
-  | CriticalOnly // repos with critical findings
-  | FailedOnly // repos that errored
-
-/// Storage target for persisting results.
-type storageTarget =
-  | NoStorage
-  | Filesystem(string) // base directory
-  | VerisimDB(string) // verisim data directory
-
-// ---------------------------------------------------------------------------
-// Imaging — fNIRS-style spatial health map (panll.system-image.v0)
-// ---------------------------------------------------------------------------
-
-/// Risk distribution histogram — how many nodes at each risk level.
-type riskDistribution = {
-  healthy: int,
-  low: int,
-  moderate: int,
-  high: int,
-  critical: int,
-}
-
-/// A single node in the system image — one repo's health reading.
-type imageNode = {
-  id: string,
-  name: string,
-  healthScore: float,
-  riskIntensity: float,
-  weakPointDensity: float,
-  weakPointCount: int,
-  criticalCount: int,
-  highCount: int,
-  fingerprint: option<string>,
-  skipped: bool,
-  topCategories: array<string>,
-}
-
-/// An edge connecting two nodes by risk proximity or shared pattern.
-type imageEdge = {
-  fromNode: string,
-  toNode: string,
-  edgeType: string,
-  weight: float,
-}
-
-/// A point-in-time system health image (fNIRS-style functional scan).
-type systemImage = {
-  scanSurface: string,
-  generatedAt: string,
-  globalHealth: float,
-  globalRisk: float,
-  nodeCount: int,
-  edgeCount: int,
-  totalWeakPoints: int,
-  totalCritical: int,
-  riskDistribution: riskDistribution,
-  nodes: array<imageNode>,
-  edges: array<imageEdge>,
-}
-
-// ---------------------------------------------------------------------------
-// Temporal — time-series navigation (panll.temporal-diff.v0)
-// ---------------------------------------------------------------------------
-
-/// A temporal snapshot entry (lightweight manifest row).
-type snapshotEntry = {
-  sequence: int,
-  timestamp: string,
-  label: string,
-  nodeCount: int,
-  globalHealth: float,
-  globalRisk: float,
-  totalWeakPoints: int,
-}
-
-/// Per-node health change between two snapshots.
-type nodeDelta = {
-  name: string,
-  healthBefore: float,
-  healthAfter: float,
-  healthDelta: float,
-  riskBefore: float,
-  riskAfter: float,
-  riskDelta: float,
-  weakPointDelta: int,
-}
-
-/// Diff between two system image snapshots.
-type temporalDiff = {
-  fromLabel: string,
-  toLabel: string,
-  fromTimestamp: string,
-  toTimestamp: string,
-  healthDelta: float,
-  riskDelta: float,
-  weakPointDelta: int,
-  criticalDelta: int,
-  newNodes: array<string>,
-  removedNodes: array<string>,
-  improvedNodes: array<nodeDelta>,
-  degradedNodes: array<nodeDelta>,
-  unchangedCount: int,
-  trend: string,
-}
-
-/// Which sub-view is active in the mass-panic panel.
-type massPanicView =
-  | ScanView
-  | ImagingView
-  | TemporalView
-
-/// Root state for the mass-panic panel.
-type massPanicState = {
-  /// Directory containing repos to scan.
-  reposDirectory: string,
-  /// Whether a scan is in progress.
-  scanning: bool,
-  /// Current scan progress (0.0 to 1.0).
-  progress: float,
-  /// Currently scanning repo name (for progress display).
-  currentRepo: option<string>,
-  /// Use incremental scanning (skip unchanged repos via BLAKE3).
-  incremental: bool,
-  /// Cache file path for BLAKE3 fingerprints.
-  cachePath: option<string>,
-  /// Storage target for persisting results.
-  storage: storageTarget,
-  /// Minimum findings threshold for display.
-  minFindings: int,
-  /// Per-repo results.
-  repoResults: array<repoResult>,
-  /// Aggregate summary of the current/last run.
-  summary: option<assemblylineSummary>,
-  /// Delta entries (comparison with previous run).
-  delta: array<deltaEntry>,
-  /// Whether delta comparison is active.
-  showDelta: bool,
-  /// Previous run summary for comparison.
-  previousSummary: option<assemblylineSummary>,
-  /// Sort mode.
-  sortMode: repoSortMode,
-  /// Filter mode.
-  filterMode: repoFilterMode,
-  /// Text search within repo names/results.
-  searchText: string,
-  /// Selected repo indices for batch operations.
-  selectedRepos: array<int>,
-  /// Whether all repos are selected.
-  selectAll: bool,
-  /// Whether notification generation is enabled.
-  notifyEnabled: bool,
-  /// Only notify for critical findings.
-  notifyCriticalOnly: bool,
-  /// Loading state.
-  loading: bool,
-  /// Last error message.
-  lastError: option<string>,
-  // -- Imaging (fNIRS-style spatial health map) --
-  /// Current system image (latest scan).
-  currentImage: option<systemImage>,
-  /// Whether imaging view is loading.
-  imagingLoading: bool,
-  // -- Temporal navigation --
-  /// Snapshot timeline entries.
-  snapshots: array<snapshotEntry>,
-  /// Current temporal diff (between two selected snapshots).
-  currentDiff: option<temporalDiff>,
-  /// Selected snapshot indices for comparison.
-  selectedSnapshots: (option<int>, option<int>),
-  /// Whether temporal view is loading.
-  temporalLoading: bool,
-  // -- Sub-view selection --
-  /// Which sub-view is active.
-  activeView: massPanicView,
-}
-
-/// Default initial state for the mass-panic panel.
-let init: massPanicState = {
-  reposDirectory: "",
-  scanning: false,
-  progress: 0.0,
-  currentRepo: None,
-  incremental: true, // on by default — sensible for repeat scans
-  cachePath: None,
-  storage: NoStorage,
-  minFindings: 0,
-  repoResults: [],
-  summary: None,
-  delta: [],
-  showDelta: false,
-  previousSummary: None,
-  sortMode: ByRisk,
-  filterMode: AllRepos,
-  searchText: "",
-  selectedRepos: [],
-  selectAll: false,
-  notifyEnabled: false,
-  notifyCriticalOnly: true,
-  loading: false,
-  lastError: None,
-  currentImage: None,
-  imagingLoading: false,
-  snapshots: [],
-  currentDiff: None,
-  selectedSnapshots: (None, None),
-  temporalLoading: false,
-  activeView: ScanView,
-}
diff --git a/src/model/MenuBarModel.affine b/src/model/MenuBarModel.affine
new file mode 100644
index 00000000..af6ccfe4
--- /dev/null
+++ b/src/model/MenuBarModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MenuBarModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/MenuBarModel.res b/src/model/MenuBarModel.res
deleted file mode 100644
index fb175c83..00000000
--- a/src/model/MenuBarModel.res
+++ /dev/null
@@ -1,22 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL MenuBarModel — State for the standard application menu bar.
-///
-/// Provides File / Edit / View / Panel / Tools / Help menus following
-/// conventional desktop application patterns (Notepad++, Visual Paradigm,
-/// VS Code). Designed for interoperability with IDE-class applications.
-
-/// Which top-level menu is currently open (None = all closed).
-type openMenu =
-  | MenuFile
-  | MenuEdit
-  | MenuView
-  | MenuPanel
-  | MenuTools
-  | MenuHelp
-
-/// Menu bar state
-type menuBarState = {
-  /// Currently open dropdown menu (None = all menus closed).
-  activeMenu: option<openMenu>,
-}
diff --git a/src/model/MergeCoordinatorModel.affine b/src/model/MergeCoordinatorModel.affine
new file mode 100644
index 00000000..02a101a0
--- /dev/null
+++ b/src/model/MergeCoordinatorModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MergeCoordinatorModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/MergeCoordinatorModel.res b/src/model/MergeCoordinatorModel.res
deleted file mode 100644
index 74a31c02..00000000
--- a/src/model/MergeCoordinatorModel.res
+++ /dev/null
@@ -1,113 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Merge Coordinator Model — branch management, conflict resolution,
-/// and merge queue for coordinated IDApTIK development workflows.
-///
-/// Tracks branch lifecycle, detects merge conflicts, manages a merge queue
-/// with pre-merge checks, and provides conflict resolution assistance.
-///
-/// Clade: Directive. This module has NO dependencies on other PanLL modules.
-
-// ============================================================================
-// Branch Lifecycle
-// ============================================================================
-
-/// Lifecycle status of a tracked branch.
-type branchStatus =
-  /// Active — branch has recent commits, not yet merged.
-  | BrActive
-  /// Merging — merge is in progress.
-  | BrMerging
-  /// Conflicted — merge attempt discovered conflicts.
-  | BrConflicted
-  /// Merged — branch has been merged into its target.
-  | BrMerged
-  /// Stale — branch has no recent activity, may need cleanup.
-  | BrStale
-
-// ============================================================================
-// Branch Management
-// ============================================================================
-
-/// A tracked branch under merge coordination.
-type managedBranch = {
-  /// Branch name (e.g., "feature/level-7-puzzles").
-  name: string,
-  /// Target branch for merging (e.g., "main").
-  baseBranch: string,
-  /// Branch author username.
-  author: string,
-  /// Current lifecycle status.
-  status: branchStatus,
-  /// ISO 8601 timestamp of the most recent commit on this branch.
-  lastCommitAt: string,
-  /// Number of commits ahead of the base branch.
-  aheadBy: int,
-  /// Number of commits behind the base branch.
-  behindBy: int,
-}
-
-// ============================================================================
-// Conflict Resolution
-// ============================================================================
-
-/// A merge conflict in a specific file.
-type mergeConflict = {
-  /// File path with the conflict.
-  filePath: string,
-  /// Our side of the conflict (content from the current branch).
-  ours: string,
-  /// Their side of the conflict (content from the incoming branch).
-  theirs: string,
-  /// Whether this conflict has been resolved.
-  resolved: bool,
-}
-
-/// A merge queue entry with pre-merge check status.
-type mergeQueueEntry = {
-  /// Branch name queued for merging.
-  branchName: string,
-  /// Position in the merge queue (1-based).
-  position: int,
-  /// Whether all pre-merge checks have passed.
-  checksPassed: bool,
-  /// Names of checks that have not yet passed.
-  pendingChecks: array<string>,
-  /// ISO 8601 timestamp when the branch entered the queue.
-  enqueuedAt: string,
-}
-
-// ============================================================================
-// Tab Navigation
-// ============================================================================
-
-/// Active tab within the Merge Coordinator panel.
-type mergeCoordinatorTab =
-  /// Branches — list of tracked branches with status badges.
-  | TabBranches
-  /// Conflicts — active merge conflicts with resolution tools.
-  | TabConflicts
-  /// Merge Queue — ordered queue of branches awaiting merge.
-  | TabMergeQueue
-  /// History — past merge events with success/failure timeline.
-  | TabHistory
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Root state for the Merge Coordinator panel.
-type mergeCoordinatorState = {
-  /// Active tab within the panel.
-  activeTab: mergeCoordinatorTab,
-  /// All tracked branches.
-  branches: array<managedBranch>,
-  /// Active merge conflicts.
-  conflicts: array<mergeConflict>,
-  /// Merge queue entries.
-  mergeQueue: array<mergeQueueEntry>,
-  /// Currently selected branch name for detail view.
-  selectedBranch: option<string>,
-  /// Error from the last operation.
-  error: option<string>,
-}
diff --git a/src/model/MigrationModel.affine b/src/model/MigrationModel.affine
new file mode 100644
index 00000000..ab95b0b1
--- /dev/null
+++ b/src/model/MigrationModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MigrationModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/MigrationModel.res b/src/model/MigrationModel.res
deleted file mode 100644
index 66c2c862..00000000
--- a/src/model/MigrationModel.res
+++ /dev/null
@@ -1,225 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Migration Model — leaf types for the ReScript Migration Observatory panel.
-///
-/// Represents migration health data from panic-attack snapshots, feedback-o-tron
-/// observation sessions, and merge-resolver decision logs. Three-panel mapping:
-///
-/// Panel-L: Migration constraints — deprecated APIs, version requirements, proof obligations
-/// Panel-N: Hypatia reasoning — migration order, API replacements, merge decisions
-/// Panel-W: Results dashboard — health scores, build times, submission queue, timeline
-///
-/// Dependency: none (leaf module in the type DAG).
-
-/// ReScript version bracket for a repository.
-type migrationVersionBracket =
-  | BuckleScript
-  | V11
-  | V12Alpha
-  | V12Stable
-  | V12Current
-  | V13PreRelease
-  | VersionUnknown
-
-/// Configuration format detected in a repository.
-type migrationConfigFormat =
-  | BsConfig
-  | RescriptJson
-  | ConfigBoth
-  | ConfigNone
-
-/// Health trend direction for a repository.
-type healthTrend =
-  | Improving
-  | Stable
-  | Regressing
-
-/// A single repository's migration summary.
-type migrationRepoSummary = {
-  /// Repository name.
-  name: string,
-  /// Overall migration health score (0.0 - 1.0).
-  healthScore: float,
-  /// Health score trend.
-  trend: healthTrend,
-  /// ReScript version bracket.
-  versionBracket: migrationVersionBracket,
-  /// Config format.
-  configFormat: migrationConfigFormat,
-  /// Count of deprecated API calls remaining.
-  deprecatedCount: int,
-  /// Count of modern @rescript/core API calls.
-  modernCount: int,
-  /// API migration ratio (0.0 - 1.0).
-  migrationRatio: float,
-  /// Number of ReScript source files.
-  fileCount: int,
-  /// Whether migration is blocked (merge conflicts, build failing, etc.).
-  blocked: bool,
-  /// Block reason (if blocked).
-  blockReason: option<string>,
-  /// Last snapshot timestamp.
-  lastSnapshot: option<string>,
-  /// Build time in milliseconds (if measured).
-  buildTimeMs: option<int>,
-  /// Bundle size in bytes (if measured).
-  bundleSizeBytes: option<int>,
-}
-
-/// A migration observation session from feedback-o-tron.
-type migrationSession = {
-  /// Session ID (UUID).
-  sessionId: string,
-  /// Repository path.
-  repoPath: string,
-  /// Session label.
-  label: string,
-  /// Before health score.
-  beforeHealth: float,
-  /// After health score (None if session still in progress).
-  afterHealth: option<float>,
-  /// Health delta.
-  healthDelta: option<float>,
-  /// Number of issues discovered.
-  issueCount: int,
-  /// Number of complications encountered.
-  complicationCount: int,
-  /// Session start timestamp.
-  startedAt: string,
-  /// Session end timestamp (None if in progress).
-  endedAt: option<string>,
-  /// Whether session is still active.
-  active: bool,
-}
-
-/// Status of a submission in the review queue.
-type submissionStatus =
-  | SubmissionPending
-  | SubmissionApproved
-  | SubmissionRejected
-  | SubmissionSubmitted
-
-/// An issue queued for submission to the ReScript team.
-type migrationSubmission = {
-  /// Unique identifier.
-  id: string,
-  /// Issue title.
-  title: string,
-  /// Issue body (markdown).
-  body: string,
-  /// Source repository.
-  repo: string,
-  /// Severity level.
-  severity: string,
-  /// Current review status.
-  status: submissionStatus,
-  /// Who approved/rejected (if reviewed).
-  reviewedBy: option<string>,
-  /// Review notes.
-  reviewNotes: option<string>,
-}
-
-/// A deprecated pattern constraint for Panel-L.
-type migrationConstraint = {
-  /// Constraint identifier.
-  id: string,
-  /// Pattern name (e.g., "Js.Array2", "Belt.Map").
-  pattern: string,
-  /// Modern replacement.
-  replacement: string,
-  /// Number of occurrences across all repos.
-  totalCount: int,
-  /// Number of repos affected.
-  repoCount: int,
-  /// Whether this constraint is satisfied (count == 0).
-  satisfied: bool,
-}
-
-/// A proof obligation from Hypatia migration rules.
-type migrationObligation = {
-  /// Repository name.
-  repo: string,
-  /// Property to verify (e.g., "no_js_dict_calls", "rescript_json_only").
-  property: string,
-  /// Whether the obligation is met.
-  met: bool,
-}
-
-/// A merge conflict resolution for the timeline.
-type mergeResolution = {
-  /// Session ID from merge-resolver.
-  sessionId: string,
-  /// Repository name.
-  repo: string,
-  /// Source branch.
-  sourceBranch: string,
-  /// Target branch.
-  targetBranch: string,
-  /// Number of conflicts.
-  conflictCount: int,
-  /// Number resolved.
-  resolvedCount: int,
-  /// Average confidence.
-  avgConfidence: float,
-  /// Session status.
-  status: string,
-  /// Timestamp.
-  timestamp: string,
-}
-
-/// Category tabs for the Migration Observatory panel.
-type migrationCategory =
-  /// Overview dashboard with health scores and sparklines.
-  | MigrationDashboard
-  /// Timeline of migration sessions and snapshots.
-  | MigrationTimeline
-  /// Generated reports (per-repo, cross-repo, v13 trial).
-  | MigrationReports
-  /// Issue submission queue for ReScript team.
-  | MigrationSubmissions
-  /// Merge conflict resolution timeline and rollback controls.
-  | MigrationMergeResolver
-
-/// Report type for the reports tab.
-type migrationReportType =
-  | PerRepoReport
-  | CrossRepoReport
-  | V13TrialReport
-
-/// Root state for the Migration Observatory panel module.
-type migrationState = {
-  /// Whether data has been loaded.
-  loaded: bool,
-  /// Loading indicator for async operations.
-  loading: bool,
-  /// Last error message.
-  error: option<string>,
-  /// All repository migration summaries.
-  repos: array<migrationRepoSummary>,
-  /// Active observation sessions.
-  sessions: array<migrationSession>,
-  /// Submission review queue.
-  submissions: array<migrationSubmission>,
-  /// Migration constraints (Panel-L).
-  constraints: array<migrationConstraint>,
-  /// Proof obligations from Hypatia.
-  obligations: array<migrationObligation>,
-  /// Merge resolution history.
-  mergeResolutions: array<mergeResolution>,
-  /// Active category tab.
-  activeCategory: migrationCategory,
-  /// Selected report type.
-  activeReportType: migrationReportType,
-  /// Text filter for repo search.
-  filterText: string,
-  /// Total repos tracked.
-  totalRepos: int,
-  /// Count of repos ready for migration.
-  readyCount: int,
-  /// Count of blocked repos.
-  blockedCount: int,
-  /// Average health score across all repos.
-  avgHealth: float,
-  /// Migration velocity (avg health improvement per session).
-  velocity: float,
-}
diff --git a/src/model/MinterModel.affine b/src/model/MinterModel.affine
new file mode 100644
index 00000000..b6d3b089
--- /dev/null
+++ b/src/model/MinterModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MinterModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/MinterModel.res b/src/model/MinterModel.res
deleted file mode 100644
index 9ae350ea..00000000
--- a/src/model/MinterModel.res
+++ /dev/null
@@ -1,102 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Minter Model — types for the Panel Minter system.
-///
-/// The Minter generates new panel modules from templates, ensuring every
-/// panel starts with accessibility, proof hooks, and agent integration
-/// baked in by default. It is structurally harder to create an inaccessible
-/// panel than an accessible one.
-///
-/// The Minter also patches the 6 global wiring files (PanelSwitcherModel,
-/// PanelRegistry, Model, Msg, View, Update) so the new panel is immediately
-/// routable and renderable.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// Backend type for the panel — determines what kind of Rust backend
-/// and command stubs are scaffolded.
-type panelBackendKind =
-  /// No backend — pure frontend panel (e.g. documentation viewer).
-  | NoBackend
-  /// Filesystem-only backend — reads local files, no HTTP (e.g. Farm, Plaza).
-  | FilesystemBackend
-  /// HTTP API backend — connects to an external service (e.g. CloudGuard, Hypatia).
-  | HttpBackend
-  /// Database backend — connects to a database via existing DB module.
-  | DatabaseBackend
-
-/// Accessibility level baked into the generated template.
-/// All levels include keyboard navigation and screen reader semantics.
-/// Higher levels add more ARIA attributes and contrast compliance.
-type accessibilityLevel =
-  /// Standard: keyboard nav, role attributes, aria-label on interactive elements.
-  | StandardAccessibility
-  /// Enhanced: adds aria-live regions, focus management, skip links.
-  | EnhancedAccessibility
-
-/// A single capability declaration for the new panel.
-type minterCapability = {
-  /// Machine-readable identifier (e.g. "repo-inventory").
-  id: string,
-  /// Human-readable label (e.g. "Repository Inventory").
-  label: string,
-}
-
-/// Validation result for a panel name — checked before generation.
-type nameValidation =
-  /// Name is valid and available.
-  | NameValid
-  /// Name conflicts with an existing panel.
-  | NameConflict(string)
-  /// Name contains invalid characters (must be PascalCase, alphanumeric).
-  | NameInvalid(string)
-
-/// The form state for creating a new panel.
-type minterForm = {
-  /// PascalCase panel name (e.g. "Wharf", "Statistease", "Fleet").
-  panelName: string,
-  /// Short human-readable name for the panel bar (max ~8 chars).
-  shortName: string,
-  /// One-line description of what this panel does.
-  description: string,
-  /// Icon identifier for the panel bar.
-  icon: string,
-  /// What kind of backend this panel needs.
-  backendKind: panelBackendKind,
-  /// Accessibility level for the generated templates.
-  accessibility: accessibilityLevel,
-  /// Declared capabilities (user adds these interactively).
-  capabilities: array<minterCapability>,
-  /// Validation state for the panel name.
-  nameValidation: nameValidation,
-  /// Whether the panel connects to an external endpoint.
-  endpoint: string,
-}
-
-/// Result of a minting operation — returned by the backend.
-type mintResult = {
-  /// Whether the operation succeeded.
-  success: bool,
-  /// Files that were created.
-  filesCreated: array<string>,
-  /// Files that were patched (modified).
-  filesPatched: array<string>,
-  /// Any warnings encountered during generation.
-  warnings: array<string>,
-  /// Error message if the operation failed.
-  error: option<string>,
-}
-
-/// Root state for the Panel Minter.
-type minterState = {
-  /// The current form being filled out.
-  form: minterForm,
-  /// Whether a minting operation is in progress.
-  minting: bool,
-  /// Result of the last minting operation.
-  lastResult: option<mintResult>,
-  /// Error from the last operation.
-  error: option<string>,
-  /// Step in the multi-step minting wizard (0 = name, 1 = config, 2 = capabilities, 3 = review).
-  wizardStep: int,
-}
diff --git a/src/model/MultiplayerMonitorModel.affine b/src/model/MultiplayerMonitorModel.affine
new file mode 100644
index 00000000..50b918c4
--- /dev/null
+++ b/src/model/MultiplayerMonitorModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MultiplayerMonitorModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/MultiplayerMonitorModel.res b/src/model/MultiplayerMonitorModel.res
deleted file mode 100644
index 91fa19eb..00000000
--- a/src/model/MultiplayerMonitorModel.res
+++ /dev/null
@@ -1,92 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Multiplayer Monitor Model — types for monitoring the IDApTIK
-/// Elixir/Phoenix sync server. WebSocket status, channel subscriptions,
-/// player state diffs, Lamport clocks, device locks, and latency.
-
-/// WebSocket connection state.
-type wsConnectionState =
-  | WsDisconnected
-  | WsConnecting
-  | WsConnected
-  | WsReconnecting
-  | WsError(string)
-
-/// A connected player in the multiplayer session.
-type connectedPlayer = {
-  playerId: string,
-  displayName: string,
-  deviceId: string,
-  latencyMs: int,
-  lamportClock: int,
-  lastHeartbeat: float,
-  isHost: bool,
-  isSpectator: bool,
-}
-
-/// A Phoenix channel subscription.
-type channelSubscription = {
-  topic: string,
-  joinedAt: float,
-  messageCount: int,
-  lastMessageAt: float,
-}
-
-/// A player state diff entry (for debugging sync issues).
-type stateDiffEntry = {
-  timestamp: float,
-  playerId: string,
-  field: string,
-  localValue: string,
-  remoteValue: string,
-  resolved: bool,
-}
-
-/// Device lock status (which player controls which device).
-type deviceLock = {
-  deviceId: string,
-  lockedBy: option<string>,
-  lockedAt: float,
-  contestedBy: array<string>,
-}
-
-/// Latency sample for graphing.
-type latencySample = {
-  timestamp: float,
-  playerId: string,
-  latencyMs: int,
-}
-
-/// ETS cache entry for inspection.
-type etsCacheEntry = {
-  table: string,
-  key: string,
-  value: string,
-  size: int,
-}
-
-/// Category tabs for the Multiplayer Monitor panel.
-type multiplayerCategory =
-  | MultiplayerDashboard
-  | MultiplayerChannels
-  | MultiplayerStateDiff
-  | MultiplayerLatency
-  | MultiplayerDeviceLocks
-
-/// Root state for the Multiplayer Monitor panel.
-type multiplayerMonitorState = {
-  activeCategory: multiplayerCategory,
-  wsConnection: wsConnectionState,
-  serverUrl: string,
-  players: array<connectedPlayer>,
-  channels: array<channelSubscription>,
-  stateDiffs: array<stateDiffEntry>,
-  deviceLocks: array<deviceLock>,
-  latencySamples: array<latencySample>,
-  etsCache: array<etsCacheEntry>,
-  selectedPlayerId: option<string>,
-  autoReconnect: bool,
-  showSpectators: bool,
-  loading: bool,
-  error: option<string>,
-}
diff --git a/src/model/MyLangModel.affine b/src/model/MyLangModel.affine
new file mode 100644
index 00000000..8f5b7a55
--- /dev/null
+++ b/src/model/MyLangModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MyLangModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/MyLangModel.res b/src/model/MyLangModel.res
deleted file mode 100644
index 101ab972..00000000
--- a/src/model/MyLangModel.res
+++ /dev/null
@@ -1,94 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL My-Lang Model — types for the AI-native language panel.
-///
-/// My-lang is an AI-native language with 4 dialects: Solo (systems),
-/// Duet (AI-assisted), Ensemble (AI-native), Me (personal agent).
-/// It compiles to LLVM IR → native binaries and has a REPL, LSP,
-/// and package manager.
-///
-/// This panel provides a code editor, compilation output, REPL
-/// interaction, and dialect switching.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// My-lang dialect.
-type myLangDialect =
-  /// Dependable foundation for systems programming.
-  | Solo
-  /// AI-assisted development with verification.
-  | Duet
-  /// AI as first-class native component.
-  | Ensemble
-  /// Personal AI agent dialect.
-  | Me
-
-/// Compilation result from the my-lang compiler.
-type compilationResult = {
-  /// Whether compilation succeeded.
-  success: bool,
-  /// Compiler output (stdout).
-  output: string,
-  /// Compiler errors/warnings (stderr).
-  diagnostics: string,
-  /// Number of errors.
-  errorCount: int,
-  /// Number of warnings.
-  warningCount: int,
-  /// Compilation time in milliseconds.
-  compileTimeMs: int,
-}
-
-/// REPL interaction — a single input/output pair.
-type replEntry = {
-  /// User input line.
-  input: string,
-  /// REPL output.
-  output: string,
-  /// Whether the output is an error.
-  isError: bool,
-}
-
-/// Category tabs for the My-Lang panel.
-type myLangCategory =
-  /// Code editor with syntax highlighting.
-  | MlEditor
-  /// REPL interaction.
-  | MlRepl
-  /// Compilation output.
-  | MlCompile
-  /// Dialect reference and comparison.
-  | MlDialects
-
-/// Root state for the My-Lang panel.
-type myLangState = {
-  /// Whether the my-lang CLI binary is available.
-  cliAvailable: bool,
-  /// Whether an operation is in progress.
-  loading: bool,
-  /// Error from the last operation.
-  error: option<string>,
-  /// Active category tab.
-  activeCategory: myLangCategory,
-  /// Active dialect.
-  activeDialect: myLangDialect,
-  /// Editor content.
-  editorContent: string,
-  /// REPL input line.
-  replInput: string,
-  /// REPL history (most recent last).
-  replHistory: array<replEntry>,
-  /// Most recent compilation result.
-  lastCompilation: option<compilationResult>,
-  /// TypeLL type-check result JSON for the last compilation (cross-panel intelligence).
-  /// Parsed via TypeLLEngine.parseCheckResult when rendering.
-  lastTypeCheck: option<string>,
-  /// LSP connection status for syntax highlighting and diagnostics.
-  lspConnected: bool,
-  /// LSP diagnostics for the current editor content.
-  lspDiagnostics: array<string>,
-  /// Per-dialect REPL session IDs (dialect → session persistence).
-  replSessions: array<(myLangDialect, string)>,
-  /// When true, LSP/compile operations route through BoJ lsp-mcp cartridge instead of direct CLI.
-  bojRouting: bool,
-}
diff --git a/src/model/NesyDriftModel.affine b/src/model/NesyDriftModel.affine
new file mode 100644
index 00000000..4b20d830
--- /dev/null
+++ b/src/model/NesyDriftModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module NesyDriftModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/NesyDriftModel.res b/src/model/NesyDriftModel.res
deleted file mode 100644
index 96869913..00000000
--- a/src/model/NesyDriftModel.res
+++ /dev/null
@@ -1,132 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL NeSy Drift Dashboard Model — types for neural model drift detection
-/// and alerting.
-///
-/// Monitors 6 categories of drift across neural models, with severity-based
-/// alerting, corrective action recommendations, and per-model status tracking.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-// ============================================================================
-// Drift Classification
-// ============================================================================
-
-/// Category of drift detected in a neural model.
-type driftKind =
-  /// Concept drift — the relationship between input and output has shifted.
-  | ConceptDrift
-  /// Data drift — the input data distribution has changed.
-  | DataDrift
-  /// Prior drift — the base rate of classes has shifted.
-  | PriorDrift
-  /// Architecture drift — model architecture no longer suits the problem.
-  | ArchitectureDrift
-  /// Distribution drift — output distribution diverges from expected.
-  | DistributionDrift
-  /// Feedback drift — feedback loop has introduced systematic bias.
-  | FeedbackDrift
-
-/// Recommended corrective action for detected drift.
-type driftAction =
-  /// Retrain the model on updated data.
-  | Retrain
-  /// Calibrate model confidence thresholds.
-  | Calibrate
-  /// Fall back to symbolic-only reasoning.
-  | Fallback
-  /// Halt model inference immediately.
-  | Halt
-  /// Escalate to human review.
-  | Review
-  /// Informational only — no action needed.
-  | Ignore
-
-// ============================================================================
-// Urgency and Severity
-// ============================================================================
-
-/// Urgency level for a drift alert.
-type driftUrgency =
-  /// Immediate — act now, model may produce dangerous outputs.
-  | Immediate
-  /// Soon — address within hours, degradation is measurable.
-  | Soon
-  /// Scheduled — address in next maintenance window.
-  | Scheduled
-  /// FYI — informational, no action needed.
-  | FYI
-
-/// Severity of the detected drift.
-type driftSeverity =
-  /// Critical — model is producing incorrect outputs.
-  | DriftCritical
-  /// Warning — model accuracy is degrading.
-  | DriftWarning
-  /// Info — minor drift detected, within tolerance.
-  | DriftInfo
-
-// ============================================================================
-// Drift Alerts
-// ============================================================================
-
-/// A single drift alert for a monitored model.
-type driftAlert = {
-  /// Unique alert identifier.
-  id: string,
-  /// ISO 8601 timestamp of when drift was detected.
-  timestamp: string,
-  /// Name of the model exhibiting drift.
-  modelName: string,
-  /// Category of drift detected.
-  kind: driftKind,
-  /// Severity of the drift.
-  severity: driftSeverity,
-  /// Urgency of required response.
-  urgency: driftUrgency,
-  /// Recommended corrective action.
-  recommendedAction: driftAction,
-  /// Drift magnitude as a normalised score (0.0–1.0).
-  magnitude: float,
-  /// Human-readable description of the drift.
-  description: string,
-}
-
-// ============================================================================
-// Per-Model Status
-// ============================================================================
-
-/// Current drift status for a single monitored model.
-type modelDriftStatus = {
-  /// Name of the monitored model.
-  modelName: string,
-  /// Whether the model is currently exhibiting drift.
-  isDrifting: bool,
-  /// Most recent drift kind, if any.
-  lastDriftKind: option<driftKind>,
-  /// Most recent drift magnitude (0.0–1.0).
-  lastMagnitude: float,
-  /// ISO 8601 timestamp of last drift check.
-  lastChecked: string,
-  /// Number of alerts triggered for this model.
-  alertCount: int,
-}
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Top-level state for the NeSy Drift Dashboard panel.
-type nesyDriftState = {
-  /// All drift alerts (newest first).
-  alerts: array<driftAlert>,
-  /// Per-model drift status overview.
-  modelStatuses: array<modelDriftStatus>,
-  /// Optional urgency filter — None shows all alerts.
-  urgencyFilter: option<driftUrgency>,
-  /// Whether the dashboard is actively polling for drift checks.
-  polling: bool,
-  /// Poll interval in milliseconds.
-  pollIntervalMs: int,
-}
diff --git a/src/model/NesyHarmonizeModel.affine b/src/model/NesyHarmonizeModel.affine
new file mode 100644
index 00000000..09a49448
--- /dev/null
+++ b/src/model/NesyHarmonizeModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module NesyHarmonizeModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/NesyHarmonizeModel.res b/src/model/NesyHarmonizeModel.res
deleted file mode 100644
index 6b9b0071..00000000
--- a/src/model/NesyHarmonizeModel.res
+++ /dev/null
@@ -1,111 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL NeSy Harmonization Monitor Model — types for live neural-symbolic
-/// verdict fusion monitoring.
-///
-/// Tracks how neural and symbolic subsystems reach harmonized verdicts,
-/// including confidence levels, symbolic override rates, and per-source
-/// entry attribution.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-// ============================================================================
-// Verdict Types
-// ============================================================================
-
-/// Neural subsystem verdict — probabilistic assessment.
-type neuralVerdict =
-  /// Neural model classifies the input as probably safe.
-  | ProbableSafe
-  /// Neural model is uncertain — insufficient confidence.
-  | Unsure
-  /// Neural model classifies the input as probably unsafe.
-  | ProbableUnsafe
-
-/// Symbolic subsystem verdict — logical proof-based assessment.
-type symbolicVerdict =
-  /// Symbolic prover has a proof of safety.
-  | ProvenSafe
-  /// Symbolic prover could not construct a proof either way.
-  | NoProof
-  /// Symbolic prover has a proof of unsafety (counterexample found).
-  | ProvenUnsafe
-
-/// Harmonized verdict after fusing neural and symbolic outputs.
-type harmonizedVerdict =
-  /// Both subsystems agree on safety, or symbolic proof overrides neural.
-  | CertifiedSafe
-  /// Disagreement or insufficient confidence — needs human review.
-  | RequiresReview
-  /// Either subsystem flags critical unsafety — block immediately.
-  | CriticalUnsafe
-
-/// Confidence level of the harmonized verdict.
-type confidenceLevel =
-  /// Low confidence — both subsystems uncertain or in disagreement.
-  | Low
-  /// High confidence — strong agreement between subsystems.
-  | High
-  /// Absolute confidence — symbolic proof provides formal guarantee.
-  | Absolute
-
-// ============================================================================
-// Harmonization Entries
-// ============================================================================
-
-/// A single harmonization entry representing one neural-symbolic verdict fusion.
-type harmonizationEntry = {
-  /// Unique entry identifier.
-  id: string,
-  /// ISO 8601 timestamp of when this harmonization occurred.
-  timestamp: string,
-  /// The neural subsystem's verdict.
-  neural: neuralVerdict,
-  /// The symbolic subsystem's verdict.
-  symbolic: symbolicVerdict,
-  /// The final harmonized verdict after fusion.
-  verdict: harmonizedVerdict,
-  /// Confidence level of the harmonized verdict.
-  confidence: confidenceLevel,
-  /// Whether the symbolic subsystem overrode the neural subsystem.
-  symbolicWins: bool,
-  /// Which agent or service requested this harmonization.
-  source: string,
-}
-
-// ============================================================================
-// Statistics
-// ============================================================================
-
-/// Aggregate statistics across all harmonization entries.
-type harmonizeStats = {
-  /// Total number of harmonization entries.
-  totalCount: int,
-  /// Count of CertifiedSafe verdicts.
-  certifiedSafe: int,
-  /// Count of RequiresReview verdicts.
-  requiresReview: int,
-  /// Count of CriticalUnsafe verdicts.
-  criticalUnsafe: int,
-  /// Rate at which symbolic subsystem overrides neural (0.0–1.0).
-  symbolicWinRate: float,
-}
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Top-level state for the NeSy Harmonization Monitor panel.
-type nesyHarmonizeState = {
-  /// All harmonization entries (newest first).
-  entries: array<harmonizationEntry>,
-  /// Optional verdict filter — None shows all entries.
-  filter: option<harmonizedVerdict>,
-  /// Whether the panel auto-refreshes on an interval.
-  autoRefresh: bool,
-  /// Polling interval in milliseconds for auto-refresh.
-  refreshIntervalMs: int,
-  /// Aggregate statistics computed from entries.
-  stats: harmonizeStats,
-}
diff --git a/src/model/NesyModesModel.affine b/src/model/NesyModesModel.affine
new file mode 100644
index 00000000..d8bbd91e
--- /dev/null
+++ b/src/model/NesyModesModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module NesyModesModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/NesyModesModel.res b/src/model/NesyModesModel.res
deleted file mode 100644
index f1f35c7a..00000000
--- a/src/model/NesyModesModel.res
+++ /dev/null
@@ -1,66 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL NeSy Reasoning Mode Selector Model — types for neural-symbolic
-/// reasoning strategy selection.
-///
-/// Provides 6 reasoning modes spanning pure symbolic through pure neural,
-/// with hybrid combinations. Each mode has metadata describing which
-/// subsystems are active.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-// ============================================================================
-// Reasoning Modes
-// ============================================================================
-
-/// Available neural-symbolic reasoning modes.
-type reasoningMode =
-  /// Pure symbolic reasoning — formal proofs only, no neural.
-  | PureSymbolic
-  /// Symbolic-first hybrid — try symbolic proof, fall back to neural.
-  | SymbolicFirst
-  /// Balanced hybrid — run both subsystems, harmonize results.
-  | Balanced
-  /// Neural-first hybrid — try neural, verify with symbolic.
-  | NeuralFirst
-  /// Pure neural reasoning — neural model only, no symbolic.
-  | PureNeural
-  /// Adaptive — dynamically selects mode based on input characteristics.
-  | Adaptive
-
-// ============================================================================
-// Mode Metadata
-// ============================================================================
-
-/// Metadata describing a reasoning mode's capabilities and subsystem usage.
-type modeInfo = {
-  /// The reasoning mode this info describes.
-  mode: reasoningMode,
-  /// Whether this mode uses the symbolic reasoning subsystem.
-  usesSymbolic: bool,
-  /// Whether this mode uses the neural reasoning subsystem.
-  usesNeural: bool,
-  /// Whether this mode is a hybrid of both subsystems.
-  isHybrid: bool,
-  /// Human-readable display name for the mode.
-  displayName: string,
-  /// Short description of how this mode operates.
-  description: string,
-}
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Top-level state for the NeSy Reasoning Mode Selector panel.
-type nesyModesState = {
-  /// Currently active reasoning mode.
-  activeMode: reasoningMode,
-  /// All available modes with their metadata.
-  availableModes: array<modeInfo>,
-  /// Whether a mode change is in progress (loading indicator).
-  switching: bool,
-  /// Error message from the last failed mode switch, if any.
-  lastError: option<string>,
-}
diff --git a/src/model/NetworkTopologyModel.affine b/src/model/NetworkTopologyModel.affine
new file mode 100644
index 00000000..4ae43a9a
--- /dev/null
+++ b/src/model/NetworkTopologyModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module NetworkTopologyModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/NetworkTopologyModel.res b/src/model/NetworkTopologyModel.res
deleted file mode 100644
index 3579d6f1..00000000
--- a/src/model/NetworkTopologyModel.res
+++ /dev/null
@@ -1,86 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Network Topology Model — types for the IDApTIK in-game
-/// network topology viewer. Displays force-directed graph of devices,
-/// zones, security levels, packet flow, and DNS resolution.
-
-/// Security zone classification for network devices.
-type networkZone =
-  | ZonePublic
-  | ZoneDmz
-  | ZoneInternal
-  | ZoneRestricted
-  | ZoneAirGapped
-
-/// Connection protocol between devices.
-type connectionProtocol =
-  | ProtoSSH
-  | ProtoHTTPS
-  | ProtoFTP
-  | ProtoDNS
-  | ProtoCustom(string)
-
-/// A network device in the game topology.
-type networkDevice = {
-  id: string,
-  name: string,
-  deviceType: string,
-  zone: networkZone,
-  securityLevel: int,
-  x: float,
-  y: float,
-  defenceFlags: array<string>,
-  compromised: bool,
-  active: bool,
-}
-
-/// A connection (edge) between two devices.
-type networkConnection = {
-  sourceId: string,
-  targetId: string,
-  protocol: connectionProtocol,
-  encrypted: bool,
-  packetCount: int,
-  latencyMs: float,
-  active: bool,
-}
-
-/// A DNS resolution entry.
-type dnsEntry = {
-  hostname: string,
-  resolvedIp: string,
-  recordType: string,
-  ttl: int,
-}
-
-/// Packet flow event for animation.
-type packetFlowEvent = {
-  connectionId: string,
-  timestamp: float,
-  size: int,
-  blocked: bool,
-}
-
-/// Category tabs for the Network Topology panel.
-type networkTopologyCategory =
-  | TopologyGraph
-  | TopologyZones
-  | TopologyDns
-  | TopologyPacketFlow
-
-/// Root state for the Network Topology panel.
-type networkTopologyState = {
-  activeCategory: networkTopologyCategory,
-  devices: array<networkDevice>,
-  connections: array<networkConnection>,
-  dnsEntries: array<dnsEntry>,
-  packetFlow: array<packetFlowEvent>,
-  selectedDeviceId: option<string>,
-  highlightedPath: array<string>,
-  showLabels: bool,
-  showSecurityLevels: bool,
-  animatePackets: bool,
-  zoomLevel: float,
-  loading: bool,
-  error: option<string>,
-}
diff --git a/src/model/NeurosymBridgeModel.affine b/src/model/NeurosymBridgeModel.affine
new file mode 100644
index 00000000..93a86a0f
--- /dev/null
+++ b/src/model/NeurosymBridgeModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module NeurosymBridgeModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/NeurosymBridgeModel.res b/src/model/NeurosymBridgeModel.res
deleted file mode 100644
index 23eb2915..00000000
--- a/src/model/NeurosymBridgeModel.res
+++ /dev/null
@@ -1,169 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Neurosym Bridge Model — connects ECHIDNA neurosymbolic reasoning to
-/// IDApTIK game development. Bridges formal verification with guard AI
-/// behaviour design, patrol pattern reasoning, and behaviour tree construction.
-///
-/// Three-panel model (L/N/W):
-///   L: Guard behaviour rules, patrol patterns, AI constraints
-///   N: ECHIDNA reasoning about guard AI correctness and coverage
-///   W: Behaviour tree visualisation with live simulation
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-// ============================================================================
-// Tab Navigation
-// ============================================================================
-
-/// Category tabs for the Neurosym Bridge panel.
-type neurosymBridgeTab =
-  /// Rules — define and browse guard behaviour rules.
-  | Rules
-  /// BehaviourTree — visual behaviour tree editor and viewer.
-  | BehaviourTree
-  /// Simulation — run guard AI simulations with ECHIDNA analysis.
-  | Simulation
-  /// Analysis — ECHIDNA reasoning results about guard AI correctness.
-  | Analysis
-
-// ============================================================================
-// Guard Behaviour Rules
-// ============================================================================
-
-/// Priority level for a guard behaviour rule.
-type rulePriority =
-  /// Critical — this rule must never be violated (hard constraint).
-  | PriorityCritical
-  /// High — important for correct guard behaviour.
-  | PriorityHigh
-  /// Normal — standard behaviour rule.
-  | PriorityNormal
-  /// Low — soft preference, may be overridden.
-  | PriorityLow
-
-/// Status of a guard behaviour rule after ECHIDNA analysis.
-type ruleStatus =
-  /// Verified — ECHIDNA has proven this rule is always satisfied.
-  | RuleVerified
-  /// Unverified — rule has not been checked yet.
-  | RuleUnverified
-  /// Violated — ECHIDNA found a counterexample.
-  | RuleViolated
-  /// Conflict — this rule contradicts another rule.
-  | RuleConflict
-
-/// A guard behaviour rule defining expected AI behaviour.
-type guardRule = {
-  /// Unique rule identifier.
-  id: string,
-  /// Human-readable rule name (e.g., "GuardsPatrolWhenIdle").
-  name: string,
-  /// Formal condition expression (evaluated by ECHIDNA).
-  condition: string,
-  /// Expected action when condition is met.
-  expectedAction: string,
-  /// Priority of this rule.
-  priority: rulePriority,
-  /// Verification status from ECHIDNA.
-  status: ruleStatus,
-  /// Human-readable description.
-  description: string,
-}
-
-// ============================================================================
-// Behaviour Tree Nodes
-// ============================================================================
-
-/// Type of a behaviour tree node.
-type behaviourNodeType =
-  /// Sequence — runs children in order, fails on first failure.
-  | NodeSequence
-  /// Selector — tries children in order, succeeds on first success.
-  | NodeSelector
-  /// Parallel — runs children concurrently.
-  | NodeParallel
-  /// Decorator — wraps a single child with a modifier (invert, repeat, etc.).
-  | NodeDecorator
-  /// Action — leaf node that performs a game action.
-  | NodeAction
-  /// Condition — leaf node that checks a predicate.
-  | NodeCondition
-
-/// A single node in the guard behaviour tree.
-type behaviourNode = {
-  /// Unique node identifier.
-  id: string,
-  /// Node type (sequence, selector, action, condition, etc.).
-  nodeType: behaviourNodeType,
-  /// Display label for this node.
-  label: string,
-  /// Child node identifiers (empty for leaf nodes).
-  children: array<string>,
-  /// Condition expression (for condition and decorator nodes).
-  condition: option<string>,
-  /// Action identifier (for action leaf nodes).
-  action: option<string>,
-}
-
-// ============================================================================
-// Simulation Results
-// ============================================================================
-
-/// Outcome of a single guard AI simulation step.
-type simulationStepOutcome =
-  /// Guard performed the expected action.
-  | StepSuccess
-  /// Guard performed an unexpected action.
-  | StepDeviation
-  /// Guard entered a deadlock or infinite loop.
-  | StepDeadlock
-
-/// A single step in a guard AI simulation run.
-type simulationStep = {
-  /// Step number (1-based).
-  stepNumber: int,
-  /// Guard state at this step (serialised).
-  guardState: string,
-  /// Action taken by the guard AI.
-  actionTaken: string,
-  /// Outcome of this step.
-  outcome: simulationStepOutcome,
-  /// Elapsed simulation time in milliseconds.
-  elapsedMs: float,
-}
-
-/// Complete simulation result for a guard AI run.
-type neurosymSimulationResult = {
-  /// Total number of steps executed.
-  totalSteps: int,
-  /// Steps that deviated from expected behaviour.
-  deviations: int,
-  /// Whether the simulation completed without deadlock.
-  completed: bool,
-  /// Individual simulation steps.
-  steps: array<simulationStep>,
-  /// ECHIDNA analysis summary of the simulation.
-  analysisSummary: string,
-}
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Root state for the Neurosym Bridge panel.
-type neurosymBridgeState = {
-  /// Active tab within the Neurosym Bridge panel.
-  activeTab: neurosymBridgeTab,
-  /// All registered guard behaviour rules.
-  guardRules: array<guardRule>,
-  /// Behaviour tree nodes for the current guard template.
-  behaviourNodes: array<behaviourNode>,
-  /// Results from the most recent simulation run.
-  simulationResults: option<neurosymSimulationResult>,
-  /// Currently selected guard identifier for detail view.
-  selectedGuard: option<string>,
-  /// Whether a simulation is currently running.
-  simulating: bool,
-  /// Error from the last operation.
-  error: option<string>,
-}
diff --git a/src/model/ObservatoryModel.affine b/src/model/ObservatoryModel.affine
new file mode 100644
index 00000000..a673a523
--- /dev/null
+++ b/src/model/ObservatoryModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ObservatoryModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/ObservatoryModel.res b/src/model/ObservatoryModel.res
deleted file mode 100644
index 84ad3d73..00000000
--- a/src/model/ObservatoryModel.res
+++ /dev/null
@@ -1,69 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Observatory Model — integrative dashboard state.
-///
-/// Aggregates health, connection status, resource usage, and ambient
-/// metrics across all panels. The observatory is the single pane of glass
-/// for operational awareness.
-///
-/// This module has NO dependencies on other PanLL modules.
-
-/// Service health status for a monitored endpoint.
-type serviceHealth =
-  | Healthy
-  | Degraded(string)
-  | Unreachable
-  | Unknown
-
-/// Resource usage snapshot for a panel or service.
-type resourceSnapshot = {
-  /// Panel or service name.
-  name: string,
-  /// Estimated memory usage in bytes (0 if unknown).
-  memoryBytes: int,
-  /// Whether the panel is currently active (visible/foreground).
-  active: bool,
-  /// Connection health for backend-dependent panels.
-  health: serviceHealth,
-  /// Last checked timestamp (ISO 8601).
-  lastChecked: string,
-}
-
-/// Observatory dashboard tabs.
-type observatoryTab =
-  | TabOverview // Summary grid of all panels + services
-  | TabServices // Service endpoint health checks
-  | TabResources // Memory, CPU, process budgets
-  | TabActivity // Recent panel activity log
-
-/// Activity log entry.
-type activityEntry = {
-  /// Timestamp (ISO 8601).
-  timestamp: string,
-  /// Panel name that generated the event.
-  panelName: string,
-  /// Event description.
-  event: string,
-}
-
-/// Root state for the Observatory panel.
-type observatoryState = {
-  /// Active tab.
-  activeTab: observatoryTab,
-  /// Resource snapshots for all panels.
-  snapshots: array<resourceSnapshot>,
-  /// Recent activity log.
-  activity: array<activityEntry>,
-  /// Whether a health check sweep is in progress.
-  checking: bool,
-  /// Error from last health check sweep.
-  error: option<string>,
-  /// System-level CPU percentage (0.0-100.0).
-  systemCpu: float,
-  /// System-level memory usage in bytes.
-  systemMemory: int,
-  /// System-level memory total in bytes.
-  systemMemoryTotal: int,
-  /// Structured debug log entries routed through Observatory.
-  debugLog: array<DebugLogger.logEntry>,
-}
diff --git a/src/model/Oo7ToolchainModel.affine b/src/model/Oo7ToolchainModel.affine
new file mode 100644
index 00000000..d482395c
--- /dev/null
+++ b/src/model/Oo7ToolchainModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Oo7ToolchainModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/Oo7ToolchainModel.res b/src/model/Oo7ToolchainModel.res
deleted file mode 100644
index 736a6de5..00000000
--- a/src/model/Oo7ToolchainModel.res
+++ /dev/null
@@ -1,47 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL 007 Toolchain Model — types for the agentic compiler panel.
-///
-/// This panel provides control and monitoring for the 007 agent toolchain,
-/// including the Groove daemon lifecycle, stage execution, and linear
-/// type analysis.
-
-/// Toolchain stage categories.
-type oo7Stage =
-  | Oo7Lexer
-  | Oo7Parser
-  | Oo7Analyser
-  | Oo7Evaluator
-  | Oo7Linker
-
-/// Daemon permission levels.
-type daemonPermission =
-  | PermissionReadOnly
-  | PermissionExecute
-  | PermissionAdministrative
-
-/// Category tabs for the 007 Toolchain panel.
-type oo7Category =
-  | Oo7Dashboard
-  | Oo7ControlPlane
-  | Oo7Permissions
-  | Oo7Monitoring
-
-/// Root state for the 007 Toolchain panel.
-type oo7State = {
-  loaded: bool,
-  loading: bool,
-  error: option<string>,
-  /// Groove daemon connection status.
-  isConnected: bool,
-  /// Current daemon permissions for this session.
-  permissions: daemonPermission,
-  /// Active stage results (indexed by stage).
-  stageOutputs: array<(oo7Stage, string)>,
-  /// Source code being edited.
-  sourceCode: string,
-  /// Active category tab.
-  activeCategory: oo7Category,
-  /// Neurosymbolic status from Echidna/TypeLL.
-  nesyStatus: string,
-}
diff --git a/src/model/PaneModel.affine b/src/model/PaneModel.affine
new file mode 100644
index 00000000..579f3fb9
--- /dev/null
+++ b/src/model/PaneModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PaneModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/PaneModel.res b/src/model/PaneModel.res
deleted file mode 100644
index b051c24d..00000000
--- a/src/model/PaneModel.res
+++ /dev/null
@@ -1,293 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Pane State Types — Pane-L (Symbolic), Pane-N (Neural), Pane-W (World).
-///
-/// These types define the three core panes of the Binary Star co-orbit model.
-/// Pane-L holds formal constraints and the symbolic editor. Pane-N holds the
-/// neural inference stream with its token log, monologue, and agency monitor.
-/// Pane-W holds the world/task barycentre including security tools, event chain
-/// analysis, and the panic-attacker integration.
-///
-/// This module has NO dependencies on other PanLL modules — it is the leaf
-/// of the type dependency graph.
-///
-/// ON VARIANT TYPES: Each OODA phase below (`Observe | Orient | Decide | Act`)
-/// is a ReScript variant — a tagged union the compiler understands structurally.
-/// In TypeScript you'd write `type OodaPhase = "observe" | "orient" | ...` which
-/// looks similar, but the compiler can't enforce exhaustive matching (you need a
-/// manual `default: throw` or `satisfies never` trick that's easy to forget, and
-/// which won't catch new additions at compile time across files). ReScript's
-/// `switch` on variants is exhaustive by default — miss a case, get a compile
-/// error. At 14 panels with dozens of variant types each, this single property
-/// has prevented more bugs than any linter rule could.
-
-/// Constraint types for the Symbolic Mass (Pane-L)
-type symbolicConstraint = {
-  /// Unique constraint identifier.
-  id: string,
-  /// The constraint expression text (e.g. a type rule or invariant).
-  expression: string,
-  /// Whether this constraint is currently active for validation.
-  active: bool,
-  /// Whether this constraint is pinned (Sticky Constraints feature).
-  pinned: bool,
-}
-
-/// OODA loop phase for Thing-Agency Monitor.
-/// Based on Boyd's OODA loop (1976) — the decision cycle primitive
-/// underpinning autonomous systems, incident response, and multi-agent coordination.
-type oodaPhase =
-  /// Gathering information from the environment.
-  | Observe
-  /// Analysing and contextualising observations.
-  | Orient
-  /// Selecting a course of action.
-  | Decide
-  /// Executing the chosen action.
-  | Act
-
-/// Source of a neural token — which agent, prover, or subsystem emitted it.
-type tokenSource =
-  /// Tokens from the main neural inference engine (LLM reasoning).
-  | NeuralInference
-  /// Tokens from ECHIDNA theorem prover dispatch.
-  | EchidnaProver
-  /// Tokens from TypeLL type-checking / proof obligations.
-  | TypeLLKernel
-  /// Tokens from VeriSimDB VCL inference stream.
-  | VeriSimInference
-  /// Tokens from Anti-Crash validation feedback.
-  | AntiCrashGate
-  /// Tokens from the operator (human input / corrections).
-  | OperatorInput
-  /// Tokens from cross-panel OrbitalSync events.
-  | OrbitalSync
-
-/// Semantic category of a neural token — what kind of reasoning step it represents.
-type tokenCategory =
-  /// An observation or data-gathering step.
-  | Observation
-  /// A hypothesis or tentative conclusion.
-  | Hypothesis
-  /// A deductive inference step (A implies B, A holds, therefore B).
-  | Deduction
-  /// An abductive inference step (best explanation for observed data).
-  | Abduction
-  /// A proof step or formal verification result.
-  | ProofStep
-  /// A constraint violation or safety warning.
-  | Violation
-  /// A correction or retraction of a previous token.
-  | Correction
-  /// Synthesis / final answer / actionable output.
-  | Synthesis
-
-/// Neural token with full provenance, causality, and semantic metadata.
-/// This is the atomic unit of the Neural Stream — every inference step,
-/// proof result, validation event, and operator correction is a token.
-type neuralToken = {
-  /// Unique token identifier (monotonic within session).
-  id: string,
-  /// The token text content.
-  content: string,
-  /// When this token was produced (Unix timestamp, millisecond precision).
-  timestamp: float,
-  /// Neural confidence score for this token (0.0–1.0).
-  confidence: float,
-  /// Whether this token has passed Anti-Crash validation.
-  validated: bool,
-  /// Which agent/subsystem produced this token.
-  source: tokenSource,
-  /// What kind of reasoning step this token represents.
-  category: tokenCategory,
-  /// OODA phase the agent was in when this token was emitted.
-  emittedDuring: oodaPhase,
-  /// IDs of tokens that causally preceded this one (inference chain).
-  /// Empty for root tokens (observations, operator input).
-  causedBy: array<string>,
-  /// Optional proof certificate hash if this token carries formal verification.
-  proofHash: option<string>,
-}
-
-/// Autonomy indicator for Human-Team Interaction (HTI).
-/// Tracks the agent's decision-making independence and the operator's
-/// last intervention point, enabling graduated autonomy visualisation.
-type agencyState = {
-  /// Current phase in the OODA loop.
-  phase: oodaPhase,
-  /// Autonomy level: 0.0 = fully instructed, 1.0 = fully autonomous.
-  autonomyLevel: float,
-  /// Timestamp of the last operator input event.
-  lastOperatorInput: float,
-}
-
-/// Pane-L: Symbolic Mass (Noumena)
-type paneLState = {
-  /// All symbolic constraints loaded in the constraint editor.
-  constraints: array<symbolicConstraint>,
-  /// ID of the constraint currently selected for editing, if any.
-  activeConstraintId: option<string>,
-  /// Raw text content of the symbolic editor textarea.
-  editorContent: string,
-  /// TypeLL inferred type for the current editor expression (cross-panel intelligence).
-  lastInferredType: option<string>,
-}
-
-/// Filter state for the Neural Stream — controls which tokens are visible.
-/// Each filter is a set of active values; if empty, all values pass.
-type tokenFilters = {
-  /// Active source filters — empty means show all sources.
-  sources: array<tokenSource>,
-  /// Active category filters — empty means show all categories.
-  categories: array<tokenCategory>,
-  /// Active OODA phase filters — empty means show all phases.
-  phases: array<oodaPhase>,
-  /// Minimum confidence threshold (0.0–1.0). Tokens below this are hidden.
-  confidenceThreshold: float,
-  /// Whether to show only validated tokens.
-  validatedOnly: bool,
-  /// Whether to show only tokens with proof hashes.
-  proofOnly: bool,
-}
-
-/// Pane-N: Neural Stream (Phenomena)
-type paneNState = {
-  /// Accumulated neural tokens from the inference stream.
-  tokens: array<neuralToken>,
-  /// Whether the neural inference engine is currently producing tokens.
-  inferenceActive: bool,
-  /// The neural monologue text (inner reasoning trace).
-  monologue: string,
-  /// Thing-Agency Monitor state tracking OODA phase and autonomy level.
-  agency: agencyState,
-  /// Monotonic token counter for generating unique IDs within a session.
-  nextTokenId: int,
-  /// Active causal chain — IDs of the most recent tokens in the current
-  /// reasoning thread. New tokens reference these as their `causedBy`.
-  /// Reset when the agent enters a new OODA Observe phase.
-  activeCausalChain: array<string>,
-  /// Token stream filter state — controls which tokens are displayed.
-  filters: tokenFilters,
-}
-
-/// Pane-W: World/Task Barycentre
-/// Events are created from panic-attack/panll exports and feed the Time/Space
-/// study view; each event carries axis/duration/intensity metadata.
-type eventChainEvent = {
-  /// Unique event identifier.
-  id: string,
-  /// Axis label (e.g. "CPU", "Memory", "I/O").
-  axis: string,
-  /// Start time in milliseconds from the chain origin, if known.
-  startMs: option<float>,
-  /// Duration of this event in milliseconds.
-  durationMs: float,
-  /// Intensity level (e.g. "low", "medium", "high", "critical").
-  intensity: string,
-  /// Event outcome status (e.g. "ok", "crash", "timeout").
-  status: string,
-  /// Peak memory usage in bytes during this event, if measured.
-  peakMemory: option<float>,
-  /// Free-form notes attached to this event.
-  notes: option<string>,
-}
-
-/// Summary statistics for a panic-attacker event chain analysis.
-type eventChainSummary = {
-  /// Name of the program under test.
-  program: string,
-  /// Total number of identified weak points.
-  weakPoints: int,
-  /// Number of weak points classified as critical.
-  criticalWeakPoints: int,
-  /// Total crash events observed.
-  totalCrashes: int,
-  /// Overall robustness score (0.0-1.0, higher is more robust).
-  robustnessScore: float,
-}
-
-/// Timeline metadata for an event chain visualization.
-type eventChainTimeline = {
-  /// Total duration of the timeline in milliseconds.
-  durationMs: float,
-  /// Number of events in the timeline.
-  events: int,
-}
-
-/// The Pane-W state tracks the world view (content/topology), the imported
-/// panic-attacker event-chain, and the security dialog fields that run ambush
-/// tooling. Keeping these annotations clarifies how the UI state mirrors the
-/// backend command lifecycle.
-type paneWState = {
-  /// Main content text of the world pane.
-  content: string,
-  /// Whether the Binary Star topology diagram mode is active.
-  topologyView: bool,
-  /// Last output that passed Anti-Crash validation.
-  lastValidatedOutput: string,
-  /// Imported panic-attacker event chain data.
-  eventChain: array<eventChainEvent>,
-  /// Summary statistics for the loaded event chain.
-  eventChainSummary: option<eventChainSummary>,
-  /// Timeline metadata for event chain visualization.
-  eventChainTimeline: option<eventChainTimeline>,
-  /// Raw input text for event chain import (JSON or path).
-  eventChainInput: string,
-  /// Error from the last event chain import attempt.
-  eventChainError: option<string>,
-  /// Panic-attacker integration mode: "unknown" | "full" | "fallback" | "unavailable".
-  panicAttackerMode: string,
-  /// Path to the panic-attacker binary, if detected.
-  panicAttackerBinary: option<string>,
-  /// Detailed status message from panic-attacker detection.
-  panicAttackerStatusDetail: option<string>,
-  /// Target program or binary for security analysis.
-  securityTarget: string,
-  /// Timeline specification for the security run.
-  securityTimeline: string,
-  /// Axes to test (e.g. "CPU,Memory,I/O").
-  securityAxes: string,
-  /// Intensity level for the security run.
-  securityIntensity: string,
-  /// Duration specification for the security run.
-  securityDuration: string,
-  /// Status message from the last security operation.
-  securityStatus: option<string>,
-  /// Error from the last security operation.
-  securityError: option<string>,
-  /// Whether the security tools dropdown menu is expanded.
-  securityMenuExpanded: bool,
-  /// Whether the security configuration dialog is open.
-  securityDialogOpen: bool,
-  /// Which security tool the dialog is configuring.
-  securityDialogTool: option<string>,
-  /// Whether the security results view is currently displayed.
-  securityViewActive: bool,
-}
-
-/// Information Humidity level — mirrors GovernanceModel.humidityLevel
-/// (defined here to avoid circular dependency; GovernanceModel re-exports it)
-type humidityLevel =
-  /// Low stress environment: show more detail and visual richness.
-  | High
-  /// Moderate stress: balanced information density.
-  | Medium
-  /// High stress: shed visual noise, show only essentials.
-  | Low
-
-/// Pane-A: Ambient Substrate (Ergonomics)
-/// This pane is the deep-reaching ambient interface layer that manages
-/// cognitive relief and information ergonomics across the entire co-orbit.
-type paneAState = {
-  /// Current Vexation index (0.0 - 1.0)
-  vexationIndex: float,
-  /// Whether anti-inflammatory UI adjustments are active
-  antiInflammatoryActive: bool,
-  /// Current information humidity level (Low | Medium | High)
-  humidity: humidityLevel,
-  /// Vexometer recent stats for trend analysis
-  recentCancellations: int,
-  recentCorrections: int,
-  /// Whether the ambient layer is fully expanded/detailed
-  expanded: bool,
-}
diff --git a/src/model/PanelSwitcherModel.affine b/src/model/PanelSwitcherModel.affine
new file mode 100644
index 00000000..99dff603
--- /dev/null
+++ b/src/model/PanelSwitcherModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PanelSwitcherModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/PanelSwitcherModel.res b/src/model/PanelSwitcherModel.res
deleted file mode 100644
index 83b7156e..00000000
--- a/src/model/PanelSwitcherModel.res
+++ /dev/null
@@ -1,233 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Panel Switcher Model — types for the unified panel navigation system.
-///
-/// Replaces the ad-hoc `visible: bool` pattern on individual overlays with
-/// a single `activePanel` selector. At most one full-screen panel overlay
-/// is active at a time. The three core panes (L, N, W) are always present
-/// underneath.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// Unique identifier for each panel module in PanLL.
-/// Order here determines default panel bar ordering.
-type panelId =
-  | PanelCloudGuard
-  | PanelVab
-  | PanelFarm
-  | PanelFleet
-  | PanelHypatia
-  | PanelReposystem
-  | PanelDatabases
-  /// VCL-total — type-safe query language for VeriSimDB (flagship panel).
-  | PanelVcl
-  | PanelAerie
-  | PanelInterfaces
-  | PanelPlaygrounds
-  | PanelPlaza
-  | PanelMinter
-  | PanelProvisioner
-  /// Wizard — plugin and panel creation wizard.
-  | PanelWizard
-  | PanelVoiceTag
-  | PanelAi
-  | PanelRepoLoader
-  | PanelWorkspace
-  | PanelCapture
-  | PanelSecurity
-  | PanelMigration
-  | PanelPanicAttack
-  | PanelMassPanic
-  | PanelTsdm
-  | PanelValenceShell
-  | PanelGamePreview
-  | PanelVmInspector
-  | PanelNetworkTopology
-  | PanelLevelArchitect
-  | PanelCoprocessors
-  | PanelMultiplayerMonitor
-  | PanelDlcWorkshop
-  | PanelEditorBridge
-  | PanelBuildDashboard
-  | PanelReleaseManager
-  | PanelAutomationRouter
-  | PanelScriptGist
-  | PanelBoj
-  | PanelCladeBrowser
-  | PanelTentacles
-  | PanelProtocolSquisher
-  | PanelMyLang
-  | PanelTypeLL
-  /// ECHIDNA multi-solver theorem prover — proof dispatch, tactic suggestions.
-  | PanelEchidna
-  /// ReScript Evangeliser — JS→ReScript transformation teaching panel.
-  | PanelEvangeliser
-  /// In-application help system — searchable guides, glossary, onboarding.
-  | PanelHelp
-  /// Integrative dashboard — cross-panel health, resource usage, service status.
-  | PanelObservatory
-  /// AmbientOps — hospital-model sysadmin tools: clinician, network ambulance, hardware crash team.
-  | PanelAmbientOps
-  /// Language Forge — nextgen-languages portfolio monitoring and development dashboard.
-  | PanelLanguageForge
-  /// TangleViz — topological programming visualizer for braid/knot topology from the Tangle language.
-  | PanelTangleViz
-  /// SpecBrowser — browse all language specs, grammars, typing rules side-by-side.
-  | PanelSpecBrowser
-  /// VerificationDashboard — proof/test/benchmark/fuzzing status across all repos.
-  | PanelVerificationDashboard
-  /// Universal Modding Studio — unified hub for IDApTIK game content creation,
-  /// ABI validation, asset pipeline, mod distribution, and cross-panel orchestration.
-  | PanelUms
-  /// Unit Test Runner — ReScript test execution, coverage heatmap, diff-aware.
-  | PanelUnitTestRunner
-  /// Functional Tester — end-to-end game workflow simulation.
-  | PanelFunctionalTester
-  /// Regression Guard — snapshot comparison and golden-file testing.
-  | PanelRegressionGuard
-  /// Performance Profiler — frame budget, GC pressure, memory flamegraphs.
-  | PanelPerformanceProfiler
-  /// Load Tester — Phoenix channel stress testing, concurrent simulation.
-  | PanelLoadTester
-  /// Soak Monitor — long-running session memory trend and leak detection.
-  | PanelSoakMonitor
-  /// Compatibility Matrix — browser/device/resolution test matrix.
-  | PanelCompatibilityMatrix
-  /// Exploratory Workbench — freeform play session recording, anomaly detection.
-  | PanelExploratoryWorkbench
-  /// Beta Feedback Hub — feedback-o-tron integration, sentiment, triage.
-  | PanelBetaFeedbackHub
-  /// Balance Analyser — game balance stats, Monte Carlo, difficulty curves.
-  | PanelBalanceAnalyser
-  /// Typing Bridge — TypeLL type constraints for game state.
-  | PanelTypingBridge
-  /// Neurosymbolic Bridge — guard AI behaviour reasoning via ECHIDNA.
-  | PanelNeurosymBridge
-  /// Agentic Bridge — automated playtesting agents with OODA loop.
-  | PanelAgenticBridge
-  /// Automation Bridge — CI/CD pipeline orchestration for game builds.
-  | PanelAutomationBridge
-  /// Database Bridge — VeriSimDB game state persistence.
-  | PanelDatabaseBridge
-  /// Protocol Bridge — multiplayer sync protocol analysis.
-  | PanelProtocolBridge
-  /// Proofs Bridge — proven repo formal verification integration.
-  | PanelProofsBridge
-  /// Scripting Bridge — VM instruction scripting REPL.
-  | PanelScriptingBridge
-  /// Generator Mode — parametric procedural world builder.
-  | PanelGeneratorMode
-  /// Architect Mode — PixiJS fine-grained level editor with L/N/W.
-  | PanelArchitectMode
-  /// Guard AI Tuner — guard patrol, alert threshold, spawn rate tuning.
-  | PanelGuardAiTuner
-  /// Device Network Designer — wire devices, configure security levels.
-  | PanelDeviceNetworkDesigner
-  /// Asset Manager — PixiJS sprites, sounds, level templates.
-  | PanelAssetManager
-  /// Playtest Recorder — record + replay sessions, annotate moments.
-  | PanelPlaytestRecorder
-  /// Code Review — PR review, inline comments, approval gates.
-  | PanelCodeReview
-  /// Merge Coordinator — branch management, conflict resolution.
-  | PanelMergeCoordinator
-  /// Team Dashboard — who's working on what, activity feed.
-  | PanelTeamDashboard
-  /// Debugging Workbench — Tea_Debug frontend, time-travel state inspection.
-  | PanelDebuggingWorkbench
-  /// Wiring Inspector — PCC constraint state, obligation graph, bottleneck analysis.
-  | PanelWiringInspector
-  /// K9 Manager — self-validating K9 contractile file management.
-  | PanelK9Manager
-  /// Contractile Manager — cognitive governance dashboard for the 11 built-in contractiles.
-  | PanelContractileManager
-  // Floor Raise panels — foundational tool adoption campaign
-  /// Floor Raise campaign — foundational tool adoption dashboard.
-  | PanelFloorRaise
-  /// Proven adoption scanner — which repos use formally verified safety primitives.
-  | PanelProvenAdoption
-  /// Contractile completeness scanner — Mustfile/Trustfile/Dustfile/K9 coverage.
-  | PanelContractileCompleteness
-  /// AI manifest coverage scanner — 0-AI-MANIFEST.a2ml presence.
-  | PanelManifestCoverage
-  /// VeriSimDB data feeds viewer — cross-repo analytics health.
-  | PanelVerisimdbFeeds
-  /// Feedback-o-Tron routing viewer — upstream bug report status.
-  | PanelFeedbackRouting
-  /// Vexometer friction viewer — irritation surface measurements.
-  | PanelVexometerFriction
-  /// LLM Coding — multi-session Claude/LLM coordinator. Headed supervisor for
-  /// spawning, monitoring, freezing, and coordinating parallel coding sessions.
-  /// First panel targeting Gossamer migration.
-  | PanelLlmCoding
-  /// Agent Coordination View — multi-agent topology and strategy visualiser.
-  | PanelAgentCoordination
-  // Game Server Admin panels — universal game server probe + config management
-  /// GSA Server Browser — discover and fingerprint game servers.
-  | PanelGsaServerBrowser
-  /// GSA Config Editor — A2ML-aware config editing with type validation.
-  | PanelGsaConfigEditor
-  /// GSA Server Actions — start/stop/restart with confirmation.
-  | PanelGsaServerActions
-  /// GSA Live Logs — real-time log streaming with ANSI color.
-  | PanelGsaLiveLogs
-  /// GSA Health Dashboard — VeriSimDB drift detection and health gauges.
-  | PanelGsaHealthDashboard
-  /// GSA Config History — temporal version timeline with diff viewer.
-  | PanelGsaConfigHistory
-  /// GSA Cross-Server Search — VCL-powered cross-server config search.
-  | PanelGsaCrossSearch
-  // Burble Admin panels — voice platform management via Gossamer
-  /// Burble Server Status — node health, rooms, participants, uptime.
-  | PanelBurbleServerStatus
-  /// Burble Voice Quality — bandwidth, jitter, packet loss metrics.
-  | PanelBurbleVoiceQuality
-  /// Burble Room Monitor — active rooms, recordings, participant activity.
-  | PanelBurbleRoomMonitor
-  // IDApTIK Admin panels — game server management via Gossamer
-  /// IDApTIK Server Status — running state, sessions, player count.
-  | PanelIdaptikServerStatus
-  /// IDApTIK Session Monitor — active sessions, completion rates, balance.
-  | PanelIdaptikSessionMonitor
-  /// IDApTIK Player Overview — Jessica/Q stats, asymmetric balance ratio.
-  | PanelIdaptikPlayerOverview
-  /// 007 Toolchain — agentic compiler and high-rigor execution (Groove).
-  | PanelOo7Toolchain
-  /// VideoCoordination — Drive-to-Photos batch transfer dashboard.
-  | PanelVideoCoordination
-
-/// Connection status for panels backed by external services.
-type connectionStatus =
-  | ServiceConnected
-  | ServiceDisconnected
-  | ServiceChecking
-  | ServiceError(string)
-
-/// Metadata for a registered panel — used by the panel bar to render
-/// icons, labels, and connection indicators.
-type panelMeta = {
-  id: panelId,
-  name: string,
-  shortName: string,
-  description: string,
-  icon: string,
-  connectionStatus: connectionStatus,
-  /// Whether this panel has a backend service to connect to.
-  hasBackend: bool,
-  /// Clade ID this panel belongs to (for trait inheritance queries).
-  cladeId: option<string>,
-}
-
-/// Root state for the panel switcher.
-type panelSwitcherState = {
-  /// Currently active full-screen overlay panel (None = show core panes).
-  activePanel: option<panelId>,
-  /// Ordered list of panel IDs for the panel bar.
-  panelOrder: array<panelId>,
-  /// Registry of panel metadata indexed by panel ID.
-  /// Stored as array (not Map) for ReScript simplicity.
-  panels: array<panelMeta>,
-  /// Currently expanded group in the sidebar (kind name, e.g. "ai", "bridge").
-  /// None means all groups are collapsed — only group headers visible.
-  expandedGroup: option<string>,
-}
diff --git a/src/model/PanicAttackModel.affine b/src/model/PanicAttackModel.affine
new file mode 100644
index 00000000..0ebd0e54
--- /dev/null
+++ b/src/model/PanicAttackModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PanicAttackModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/PanicAttackModel.res b/src/model/PanicAttackModel.res
deleted file mode 100644
index 37ac6c90..00000000
--- a/src/model/PanicAttackModel.res
+++ /dev/null
@@ -1,131 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Panic-Attack Model — types for the stress testing and weak point
-/// analysis panel.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// Severity level for a detected weak point.
-type weakPointSeverity =
-  | Critical
-  | High
-  | Medium
-  | Low
-  | Info
-
-/// Category of a detected weak point. Maps to panic-attack's 20 categories.
-type weakPointCategory =
-  | UnsafeCode
-  | PanicPath
-  | CommandInjection
-  | UnsafeDeserialization
-  | DOMInjection
-  | HardcodedSecret
-  | PathTraversal
-  | InsecureProtocol
-  | AtomExhaustion
-  | UnsafeFFI
-  | ResourceLeak
-  | DeadlockPotential
-  | RaceCondition
-  | ErrorHandling
-  | MemoryManagement
-  | TypeUnsafety
-  | ExceptionHandling
-  | ConcurrencyIssues
-  | DeprecatedAPIs
-  | MissingValidation
-  | DynamicCodeExecution
-  | ExcessivePermissions
-  | UncheckedError
-  | OtherCategory(string)
-
-/// A single weak point finding from a panic-attack scan.
-type weakPoint = {
-  file: string,
-  line: option<int>,
-  category: weakPointCategory,
-  severity: weakPointSeverity,
-  description: string,
-  context: option<string>,
-}
-
-/// Summary statistics for a scan.
-type scanSummary = {
-  totalFindings: int,
-  critical: int,
-  high: int,
-  medium: int,
-  low: int,
-  info: int,
-  filesScanned: int,
-  language: string,
-}
-
-/// A saved scan report (metadata only — findings loaded on demand).
-type scanReport = {
-  id: string,
-  targetPath: string,
-  timestamp: string,
-  summary: scanSummary,
-}
-
-/// Category filter tabs for the findings view.
-type panicCategory =
-  | AllFindings
-  | BySeverity(weakPointSeverity)
-  | ByCategory(weakPointCategory)
-
-/// Root state for the panic-attack panel.
-type panicAttackState = {
-  /// Panic-attack binary mode (full, fallback, unavailable).
-  mode: string,
-  /// Path to the panic-attack binary (if available).
-  binaryPath: option<string>,
-  /// Version string (if available).
-  version: option<string>,
-  /// Current scan target path.
-  targetPath: string,
-  /// Whether a scan is in progress.
-  scanning: bool,
-  /// Current scan findings.
-  findings: array<weakPoint>,
-  /// Current scan summary.
-  summary: option<scanSummary>,
-  /// Saved scan reports (metadata).
-  reports: array<scanReport>,
-  /// Active category filter tab.
-  activeCategory: panicCategory,
-  /// Text filter for findings.
-  filterText: string,
-  /// Whether the report comparison view is active.
-  showDiff: bool,
-  /// Left report ID for comparison.
-  diffLeft: option<string>,
-  /// Right report ID for comparison.
-  diffRight: option<string>,
-  /// Loading state indicator.
-  loading: bool,
-  /// Last error message.
-  lastError: option<string>,
-}
-
-/// Initial state for the panic-attack panel.
-let init: panicAttackState = {
-  mode: "unknown",
-  binaryPath: None,
-  version: None,
-  targetPath: "",
-  scanning: false,
-  findings: [],
-  summary: None,
-  reports: [],
-  activeCategory: AllFindings,
-  filterText: "",
-  showDiff: false,
-  diffLeft: None,
-  diffRight: None,
-  loading: false,
-  lastError: None,
-}
diff --git a/src/model/PatternDiagModel.affine b/src/model/PatternDiagModel.affine
new file mode 100644
index 00000000..017927bd
--- /dev/null
+++ b/src/model/PatternDiagModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PatternDiagModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/PatternDiagModel.res b/src/model/PatternDiagModel.res
deleted file mode 100644
index 0e85c7f9..00000000
--- a/src/model/PatternDiagModel.res
+++ /dev/null
@@ -1,174 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Code MRI — Pattern Diagnostics Model (Layer 3)
-///
-/// Types for pattern detection, anti-pattern flagging, and developer gamification.
-/// Layer 3 sits on top of the timeline (Layer 2) and provenance (Layer 1) to
-/// detect recurring patterns in how code evolves: repeated fixes in the same file,
-/// cyclic refactoring, growing TODO counts, AI-generated code without review, etc.
-///
-/// The gamification component turns pattern signals into developer XP, badges, and
-/// streaks — positive reinforcement for good practices (reviewing AI code, closing
-/// TODOs, reducing findings) rather than punitive scoring.
-///
-/// DESIGN NOTE: Patterns are detected from timeline snapshots, not real-time.
-/// This is deliberate — real-time pattern detection creates cognitive overhead
-/// and false positives. The dashboard updates at commit boundaries, giving the
-/// developer a clear point to check their progress.
-
-// ===========================================================================
-// Pattern Types
-// ===========================================================================
-
-/// A detected code pattern — either a positive practice or an anti-pattern.
-/// Patterns are derived from timeline data (Layer 2) and provenance (Layer 1).
-type patternKind =
-  /// Positive: AI code was reviewed within N commits.
-  | ReviewedAiCode
-  /// Positive: TODO count decreased.
-  | TodoReduction
-  /// Positive: Security findings decreased.
-  | FindingsReduction
-  /// Positive: Type check failures resolved.
-  | TypeCheckCleanup
-  /// Anti-pattern: Same file modified in N consecutive fix commits.
-  | HotspotChurn(string)
-  /// Anti-pattern: TODO count growing for >7 snapshots.
-  | TodoCreep
-  /// Anti-pattern: AI attribution rising without corresponding reviews.
-  | UnreviewedAiGrowth
-  /// Anti-pattern: Vexometer reading sustained above threshold.
-  | SustainedFriction
-  /// Anti-pattern: Library count growing faster than code.
-  | DependencyBloat
-  /// Custom pattern from K9 validators or user-defined rules.
-  | CustomPattern(string)
-
-/// Severity of a detected pattern.
-type patternSeverity =
-  | Celebration  // Positive pattern — show confetti/badge
-  | Info         // Neutral observation
-  | Advisory     // Worth noting, not urgent
-  | Warning      // Should address soon
-  | Critical     // Structural problem, address now
-
-/// A single detected pattern instance with evidence.
-type patternInstance = {
-  /// Unique ID for this pattern detection.
-  id: string,
-  /// What kind of pattern was detected.
-  kind: patternKind,
-  /// Severity assessment.
-  severity: patternSeverity,
-  /// Human-readable description of the pattern.
-  description: string,
-  /// File(s) involved (empty for codebase-wide patterns).
-  files: array<string>,
-  /// Timestamp when detected (ISO 8601).
-  detectedAt: string,
-  /// Commit hash range this pattern spans.
-  commitRange: option<(string, string)>,
-  /// Whether the developer has acknowledged/dismissed this pattern.
-  acknowledged: bool,
-}
-
-// ===========================================================================
-// Gamification Types
-// ===========================================================================
-
-/// Developer XP categories — separate tracks for different good practices.
-type xpCategory =
-  | CodeReview     // Reviewing AI-generated code
-  | Housekeeping   // Closing TODOs, FIXMEs
-  | Security       // Reducing panic-attack findings
-  | TypeSafety     // Resolving type check failures
-  | Documentation  // Adding/updating docs and tags
-  | Streaks        // Consecutive days of good practice
-
-/// A badge earned through consistent good practice.
-type rec badge = {
-  /// Badge identifier.
-  id: string,
-  /// Display name.
-  name: string,
-  /// Description of what was achieved.
-  description: string,
-  /// XP category this badge belongs to.
-  category: xpCategory,
-  /// When the badge was earned (ISO 8601).
-  earnedAt: string,
-  /// Tier (Bronze, Silver, Gold, Diamond).
-  tier: badgeTier,
-}
-
-/// Badge tier — progressive recognition.
-and badgeTier =
-  | Bronze   // First achievement
-  | Silver   // Sustained practice (7 days)
-  | Gold     // Expert level (30 days)
-  | Diamond  // Mastery (90 days)
-
-/// A streak — consecutive positive actions.
-type streak = {
-  /// What the streak tracks.
-  category: xpCategory,
-  /// Current consecutive count.
-  current: int,
-  /// All-time best.
-  best: int,
-  /// Date the current streak started (ISO 8601).
-  startedAt: string,
-}
-
-/// Developer profile for gamification — accumulated over time.
-type developerProfile = {
-  /// XP totals per category.
-  xp: array<(xpCategory, int)>,
-  /// Total XP across all categories.
-  totalXp: int,
-  /// Earned badges.
-  badges: array<badge>,
-  /// Active streaks.
-  streaks: array<streak>,
-  /// Current level (derived from totalXp).
-  level: int,
-}
-
-// ===========================================================================
-// State
-// ===========================================================================
-
-/// Pattern diagnostics state — included in the main Model.
-type patternDiagState = {
-  /// All detected patterns (most recent first).
-  patterns: array<patternInstance>,
-  /// Developer gamification profile.
-  profile: developerProfile,
-  /// Whether the pattern diagnostics panel is expanded.
-  expanded: bool,
-  /// Filter: show only patterns of this severity or higher.
-  minSeverity: patternSeverity,
-  /// Filter: show only patterns in these categories.
-  activeCategories: array<xpCategory>,
-  /// Whether gamification features are enabled (user can opt out).
-  gamificationEnabled: bool,
-  /// Last analysis timestamp.
-  lastAnalysis: option<string>,
-}
-
-/// Initial empty state.
-let init: patternDiagState = {
-  patterns: [],
-  profile: {
-    xp: [],
-    totalXp: 0,
-    badges: [],
-    streaks: [],
-    level: 1,
-  },
-  expanded: false,
-  minSeverity: Info,
-  activeCategories: [],
-  gamificationEnabled: true,
-  lastAnalysis: None,
-}
diff --git a/src/model/PerformanceProfilerModel.affine b/src/model/PerformanceProfilerModel.affine
new file mode 100644
index 00000000..ae8a5205
--- /dev/null
+++ b/src/model/PerformanceProfilerModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PerformanceProfilerModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/PerformanceProfilerModel.res b/src/model/PerformanceProfilerModel.res
deleted file mode 100644
index 2ee316c4..00000000
--- a/src/model/PerformanceProfilerModel.res
+++ /dev/null
@@ -1,152 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Performance Profiler Model — frame budget tracking, GC pressure
-/// gauging, and memory flamegraphs for IDApTIK's PixiJS render loop.
-///
-/// Integrates with the PixiJS render loop to capture per-frame timings,
-/// monitors V8 heap usage and GC activity, and raises alerts when metrics
-/// exceed configured thresholds (e.g., frame budget, GC pause ceiling).
-///
-/// Clade: Inspector. This module has NO dependencies on other PanLL modules.
-
-// ============================================================================
-// Frame Timing
-// ============================================================================
-
-/// A single frame timing sample from the PixiJS render loop.
-type frameSample = {
-  /// Frame sequence number.
-  frameNumber: int,
-  /// Time spent in the render phase in milliseconds.
-  renderMs: float,
-  /// Time spent in the update (logic) phase in milliseconds.
-  updateMs: float,
-  /// Time spent in garbage collection pauses in milliseconds.
-  gcMs: float,
-  /// Total frame time (render + update + gc + overhead) in milliseconds.
-  totalMs: float,
-  /// Epoch timestamp of this sample.
-  timestamp: float,
-}
-
-// ============================================================================
-// Memory Tracking
-// ============================================================================
-
-/// A snapshot of V8 heap memory usage.
-type memorySnapshot = {
-  /// Bytes used on the V8 heap.
-  heapUsedBytes: int,
-  /// Total V8 heap allocation in bytes.
-  heapTotalBytes: int,
-  /// External memory (C++ objects tracked by V8) in bytes.
-  externalBytes: int,
-  /// ArrayBuffer memory in bytes.
-  arrayBufferBytes: int,
-  /// Epoch timestamp of this snapshot.
-  timestamp: float,
-}
-
-// ============================================================================
-// GC Events
-// ============================================================================
-
-/// A garbage collection event captured from the V8 runtime.
-type gcEvent = {
-  /// GC type (e.g., "scavenge", "mark-sweep").
-  kind: string,
-  /// Pause duration in milliseconds.
-  pauseMs: float,
-  /// Bytes reclaimed by this GC cycle.
-  reclaimedBytes: int,
-  /// Epoch timestamp of this event.
-  timestamp: float,
-}
-
-// ============================================================================
-// Performance Alerts
-// ============================================================================
-
-/// Severity classification for performance alerts.
-type perfAlertSeverity =
-  /// Informational — metric approaching threshold.
-  | PerfInfo
-  /// Warning — metric has breached the warning threshold.
-  | PerfWarning
-  /// Critical — metric has breached the critical threshold, action required.
-  | PerfCritical
-
-/// A performance alert triggered when a metric exceeds its threshold.
-type perfAlert = {
-  /// Alert severity.
-  severity: perfAlertSeverity,
-  /// Human-readable alert message.
-  message: string,
-  /// Name of the metric that triggered the alert (e.g., "frame_time").
-  metric: string,
-  /// Current value of the metric.
-  value: float,
-  /// Threshold that was exceeded.
-  threshold: float,
-  /// Epoch timestamp of the alert.
-  timestamp: float,
-}
-
-/// Performance threshold configuration for alert triggering.
-type perfThresholds = {
-  /// Frame time warning threshold in milliseconds (default: frameBudgetMs * 1.2).
-  frameTimeWarnMs: float,
-  /// Frame time critical threshold in milliseconds (default: frameBudgetMs * 2.0).
-  frameTimeCritMs: float,
-  /// GC pause warning threshold in milliseconds.
-  gcPauseWarnMs: float,
-  /// Heap usage warning threshold in bytes.
-  heapWarnBytes: int,
-}
-
-// ============================================================================
-// Tab Navigation
-// ============================================================================
-
-/// Active tab within the Performance Profiler panel.
-type performanceTab =
-  /// Frame Budget — per-frame timing breakdown with budget line.
-  | TabFrameBudget
-  /// Memory — heap usage timeline and allocation trends.
-  | TabMemory
-  /// GC Pressure — GC event frequency and pause duration chart.
-  | TabGcPressure
-  /// Alerts — performance alerts triggered by threshold breaches.
-  | TabAlerts
-  /// Flamegraph — hierarchical breakdown of frame time by subsystem.
-  | TabFlamegraph
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Root state for the Performance Profiler panel.
-type performanceProfilerState = {
-  /// Active tab within the panel.
-  activeTab: performanceTab,
-  /// Recent frame timing samples (ring buffer, last N frames).
-  frameSamples: array<frameSample>,
-  /// Memory usage snapshots over time.
-  memorySnapshots: array<memorySnapshot>,
-  /// GC events captured during profiling.
-  gcEvents: array<gcEvent>,
-  /// Performance alerts triggered during the session.
-  alerts: array<perfAlert>,
-  /// Whether profiling is actively capturing samples.
-  profiling: bool,
-  /// Target frames per second (default: 60.0).
-  targetFps: float,
-  /// Per-frame budget in milliseconds (default: 16.67 for 60 FPS).
-  frameBudgetMs: float,
-  /// Sampling interval in milliseconds (default: 100).
-  sampleInterval: int,
-  /// Alert threshold configuration.
-  thresholds: option<perfThresholds>,
-  /// Error from the last operation.
-  error: option<string>,
-}
diff --git a/src/model/PlaygroundsModel.affine b/src/model/PlaygroundsModel.affine
new file mode 100644
index 00000000..c1026529
--- /dev/null
+++ b/src/model/PlaygroundsModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PlaygroundsModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/PlaygroundsModel.res b/src/model/PlaygroundsModel.res
deleted file mode 100644
index 987e61ad..00000000
--- a/src/model/PlaygroundsModel.res
+++ /dev/null
@@ -1,91 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Playgrounds Model — types for the code sandbox panel.
-///
-/// Multi-language code editor with NQC database console, output pane,
-/// and educational/tutorial mode. Connects to VeriSimDB/QuandleDB/LithoGlyph
-/// through the NQC proxy at :4000.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// Supported playground languages.
-type playgroundLanguage =
-  /// VCL — VeriSimDB Query Language.
-  | LangVcl
-  /// KQL — QuandleDB Query Language.
-  | LangKql
-  /// GQL — LithoGlyph Query Language.
-  | LangGql
-  /// ReScript — primary application language.
-  | LangRescript
-  /// Gleam — BEAM/JS backend language.
-  | LangGleam
-  /// Idris2 — dependently-typed ABI definitions.
-  | LangIdris2
-  /// Nickel — configuration language.
-  | LangNickel
-
-/// A saved code snippet in the playground.
-type snippet = {
-  /// Unique identifier.
-  id: string,
-  /// Human-readable title.
-  title: string,
-  /// The code content.
-  code: string,
-  /// Language this snippet is written in.
-  language: playgroundLanguage,
-  /// Whether this is a built-in tutorial snippet.
-  isTutorial: bool,
-}
-
-/// Query execution result from the NQC proxy.
-type queryResult = {
-  /// Whether the query succeeded.
-  success: bool,
-  /// Result data (JSON string).
-  data: option<string>,
-  /// Error message if failed.
-  error: option<string>,
-  /// Execution time in milliseconds.
-  durationMs: float,
-  /// Number of rows/entities returned.
-  rowCount: int,
-}
-
-/// Category tabs for the Playgrounds panel.
-type playgroundsCategory =
-  /// Code editor with language selector and output.
-  | PlayEditor
-  /// NQC database console (VCL/KQL/GQL).
-  | PlayNqc
-  /// Saved snippets library.
-  | PlaySnippets
-  /// Tutorial/educational mode.
-  | PlayTutorials
-
-/// Root state for the Playgrounds panel.
-type playgroundsState = {
-  /// Active category tab.
-  activeCategory: playgroundsCategory,
-  /// Currently selected language.
-  activeLanguage: playgroundLanguage,
-  /// Current editor content.
-  editorContent: string,
-  /// Last execution result.
-  lastResult: option<queryResult>,
-  /// Whether a query is currently executing.
-  executing: bool,
-  /// Error from the last operation.
-  error: option<string>,
-  /// Saved snippets.
-  snippets: array<snippet>,
-  /// NQC proxy connection status.
-  nqcConnected: bool,
-  /// NQC console query input (separate from editor).
-  nqcInput: string,
-  /// NQC console active query language (VCL/KQL/GQL).
-  nqcLanguage: playgroundLanguage,
-  /// NQC console query history (most recent first).
-  nqcHistory: array<(string, playgroundLanguage, option<queryResult>)>,
-}
diff --git a/src/model/PlaytestRecorderModel.affine b/src/model/PlaytestRecorderModel.affine
new file mode 100644
index 00000000..a9ff03aa
--- /dev/null
+++ b/src/model/PlaytestRecorderModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PlaytestRecorderModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/PlaytestRecorderModel.res b/src/model/PlaytestRecorderModel.res
deleted file mode 100644
index 0b59d116..00000000
--- a/src/model/PlaytestRecorderModel.res
+++ /dev/null
@@ -1,83 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Playtest Recorder Model — types for recording, replaying,
-/// and annotating gameplay sessions.
-///
-/// Captures player actions during a playtest, allows timestamped
-/// annotations with optional screenshots, and supports full replay
-/// with play/pause/seek controls. Session data can be exported for
-/// QA review and balance analysis.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// Current playback/recording state of the recorder.
-type playbackState =
-  /// Recorder is idle, not playing or recording.
-  | Stopped
-  /// Playing back a recorded session at the given timestamp (seconds).
-  | Playing(float)
-  /// Playback paused at the given timestamp (seconds).
-  | Paused(float)
-  /// Actively recording a new session.
-  | Recording
-
-/// A timestamped annotation attached to a recorded session.
-type annotation = {
-  /// Unique identifier for this annotation.
-  id: string,
-  /// Timestamp in seconds from session start.
-  timestamp: float,
-  /// Annotation text (e.g., "Guard spotted player here").
-  text: string,
-  /// Category tag (e.g., "bug", "balance", "design", "ux").
-  category: string,
-  /// Optional path to a screenshot taken at this moment.
-  screenshotPath: option<string>,
-}
-
-/// A complete recorded playtest session.
-type recordedSession = {
-  /// Unique identifier for this session.
-  id: string,
-  /// Human-readable session name.
-  name: string,
-  /// ISO 8601 timestamp of when recording started.
-  startedAt: string,
-  /// Total session duration in milliseconds.
-  durationMs: float,
-  /// Annotations made during or after the session.
-  annotations: array<annotation>,
-  /// Total number of player actions recorded.
-  actionCount: int,
-  /// Serialised replay data (action log).
-  replayData: string,
-}
-
-/// Category tabs for the Playtest Recorder panel.
-type playtestRecorderCategory =
-  /// Record a new playtest session.
-  | Record
-  /// Replay a previously recorded session.
-  | Replay
-  /// Browse and edit annotations for a session.
-  | Annotations
-  /// Browse all saved sessions.
-  | Sessions
-
-/// Root state for the Playtest Recorder panel.
-type playtestRecorderState = {
-  /// Active category tab.
-  activeTab: playtestRecorderCategory,
-  /// The session currently being recorded or replayed (if any).
-  currentSession: option<recordedSession>,
-  /// All saved recorded sessions.
-  sessions: array<recordedSession>,
-  /// Current playback/recording state.
-  playback: playbackState,
-  /// Annotations for the current session.
-  annotations: array<annotation>,
-  /// ID of the currently selected annotation (if any).
-  selectedAnnotation: option<string>,
-  /// Error message (if any).
-  error: option<string>,
-}
diff --git a/src/model/PlazaModel.affine b/src/model/PlazaModel.affine
new file mode 100644
index 00000000..fa2f7621
--- /dev/null
+++ b/src/model/PlazaModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PlazaModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/PlazaModel.res b/src/model/PlazaModel.res
deleted file mode 100644
index d3f176f4..00000000
--- a/src/model/PlazaModel.res
+++ /dev/null
@@ -1,160 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Palimpsest Plaza Model — leaf types for the PMPL licensing panel.
-///
-/// The Plaza is the adoption, compliance, and governance hub for the
-/// Palimpsest-MPL license ecosystem. It helps projects adopt PMPL,
-/// validates compliance (SPDX headers, exhibits, provenance signatures),
-/// and provides governance visibility (Stewardship Council, ethical use).
-///
-/// Three-panel mapping:
-///   Panel-L: License rules, SPDX requirements, exhibit obligations
-///   Panel-N: Compliance reasoning, ethical use interpretation
-///   Panel-W: Adoption dashboard, audit results, signature verification
-///
-/// Dependency: none (leaf module in the type DAG).
-
-/// PMPL compliance level for a single repository.
-type complianceLevel =
-  /// All checks pass: SPDX headers, LICENSE file, exhibits, provenance.
-  | FullCompliance
-  /// Core requirements met (SPDX + LICENSE) but optional elements missing.
-  | PartialCompliance
-  /// Critical requirements missing (no LICENSE or wrong SPDX identifier).
-  | NonCompliant
-  /// Not yet scanned.
-  | Unknown
-
-/// A single compliance check result.
-type complianceCheck = {
-  /// Check identifier (e.g. "spdx-headers", "license-file", "exhibit-a").
-  id: string,
-  /// Human-readable check name.
-  name: string,
-  /// Description of what this check validates.
-  description: string,
-  /// Whether this check passed.
-  passed: bool,
-  /// Severity if failed: "critical", "warning", "info".
-  severity: string,
-  /// Details about what was found or missing.
-  detail: string,
-}
-
-/// Compliance audit result for a repository.
-type complianceAudit = {
-  /// Repository name.
-  repoName: string,
-  /// Overall compliance level.
-  level: complianceLevel,
-  /// Individual check results.
-  checks: array<complianceCheck>,
-  /// Number of files scanned.
-  filesScanned: int,
-  /// Number of files with correct SPDX headers.
-  filesWithHeaders: int,
-  /// Timestamp of last audit.
-  lastAudit: string,
-}
-
-/// Quantum-safe provenance signature status.
-type signatureStatus =
-  /// Valid signature verified successfully.
-  | SignatureValid
-  /// Signature present but verification failed.
-  | SignatureInvalid(string)
-  /// No signature found.
-  | NoSignature
-  /// Signature uses classical (non-quantum-safe) algorithm.
-  | ClassicalOnly
-
-/// A provenance signature record.
-type provenanceRecord = {
-  /// File or commit that was signed.
-  target: string,
-  /// Signer identity.
-  signer: string,
-  /// Algorithm used (ML-DSA-65, SLH-DSA-128s, etc.).
-  algorithm: string,
-  /// Timestamp of signature.
-  timestamp: string,
-  /// Verification status.
-  status: signatureStatus,
-}
-
-/// License compatibility result — can PMPL coexist with another license?
-type compatibilityResult = {
-  /// The other license identifier (e.g. "MIT", "Apache-2.0", "GPL-3.0").
-  license: string,
-  /// Whether combination is compatible.
-  compatible: bool,
-  /// Notes about conditions or caveats.
-  notes: string,
-}
-
-/// Exhibit status for a repository.
-type exhibitStatus = {
-  /// Exhibit A (Ethical Use Guidelines) present.
-  exhibitA: bool,
-  /// Exhibit B (Quantum-Safe Provenance) present.
-  exhibitB: bool,
-  /// Custom exhibits present.
-  customExhibits: array<string>,
-}
-
-/// Adoption statistics for the ecosystem.
-type adoptionStats = {
-  /// Total repos in the ecosystem.
-  totalRepos: int,
-  /// Repos using PMPL-1.0-or-later.
-  pmplRepos: int,
-  /// Repos using MPL-2.0 fallback.
-  mplFallbackRepos: int,
-  /// Repos with no SPDX header.
-  unlicensedRepos: int,
-  /// Repos with quantum-safe signatures.
-  quantumSignedRepos: int,
-  /// Breakdown by license.
-  byLicense: array<(string, int)>,
-}
-
-/// Category tabs for the Plaza panel.
-type plazaCategory =
-  /// Overview dashboard with adoption stats and quick actions.
-  | Dashboard
-  /// Compliance audit results across repos.
-  | Compliance
-  /// Quantum-safe provenance signature management.
-  | Provenance
-  /// License compatibility checker.
-  | Compatibility
-  /// Ethical use guidelines and AI training disclosure.
-  | EthicalUse
-  /// Governance: Stewardship Council, decisions, amendments.
-  | Governance
-  /// Quick-start adoption wizard for new projects.
-  | Adopt
-
-/// Root state for the Palimpsest Plaza panel.
-type plazaState = {
-  /// Whether data has been loaded.
-  loaded: bool,
-  /// Loading indicator.
-  loading: bool,
-  /// Last error.
-  error: option<string>,
-  /// Adoption statistics.
-  stats: option<adoptionStats>,
-  /// Compliance audit results for scanned repos.
-  audits: array<complianceAudit>,
-  /// Provenance signatures found.
-  signatures: array<provenanceRecord>,
-  /// Compatibility check results.
-  compatibilityResults: array<compatibilityResult>,
-  /// Active category tab.
-  activeCategory: plazaCategory,
-  /// Text filter for search.
-  filterText: string,
-  /// Selected repo for detailed view.
-  selectedRepo: option<string>,
-}
diff --git a/src/model/ProofsBridgeModel.affine b/src/model/ProofsBridgeModel.affine
new file mode 100644
index 00000000..b8183015
--- /dev/null
+++ b/src/model/ProofsBridgeModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ProofsBridgeModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/ProofsBridgeModel.res b/src/model/ProofsBridgeModel.res
deleted file mode 100644
index a088a8a6..00000000
--- a/src/model/ProofsBridgeModel.res
+++ /dev/null
@@ -1,116 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Proofs Bridge Model — connects the proven repo's formally verified
-/// libraries to IDApTIK game development. Bridges ECHIDNA verification with
-/// SafeMath, SafeString, SafeCrypto, SafeInput, and SafeJson modules used
-/// in game code.
-///
-/// Three-panel model (L/N/W):
-///   L: Proven repo interface specs (SafeMath/SafeString/SafeCrypto/SafeInput/SafeJson)
-///   N: ECHIDNA verification reasoning about proof coverage and soundness
-///   W: Proof status badges per module with coverage metrics
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-// ============================================================================
-// Tab Navigation
-// ============================================================================
-
-/// Category tabs for the Proofs Bridge panel.
-type proofsBridgeTab =
-  /// Modules — browse proven library modules and their functions.
-  | Modules
-  /// Proofs — view individual proof results and details.
-  | Proofs
-  /// Coverage — proof coverage metrics across all modules.
-  | Coverage
-  /// Verification — run and monitor ECHIDNA verification sessions.
-  | Verification
-
-// ============================================================================
-// Proven Module Domain
-// ============================================================================
-
-/// Verification status of a proven module.
-type moduleVerificationStatus =
-  /// FullyProven — all functions in this module have formal proofs.
-  | FullyProven
-  /// PartiallyProven — some functions are proven, others pending.
-  | PartiallyProven
-  /// Unverified — no proofs have been completed for this module.
-  | Unverified
-  /// Stale — proofs exist but the code has changed since last verification.
-  | Stale
-
-/// A proven library module with its verification status.
-type provenModule = {
-  /// Module name (e.g., "SafeMath", "SafeString", "SafeCrypto").
-  name: string,
-  /// Verification status.
-  status: moduleVerificationStatus,
-  /// Total number of exported functions in this module.
-  functionCount: int,
-  /// Number of functions with completed proofs.
-  provedCount: int,
-  /// Timestamp of last successful verification (milliseconds since epoch).
-  lastVerified: option<float>,
-  /// Module description.
-  description: string,
-}
-
-// ============================================================================
-// Verification Results
-// ============================================================================
-
-/// Result of verifying a single function within a proven module.
-type verificationResultKind =
-  /// Proved — the function's specification is formally verified.
-  | VerificationProved
-  /// Counterexample — a counterexample was found violating the spec.
-  | VerificationCounterexample
-  /// Timeout — the prover timed out.
-  | VerificationTimeout
-  /// Error — an error occurred during verification.
-  | VerificationError
-
-/// A single verification result from ECHIDNA.
-type verificationResult = {
-  /// Unique result identifier.
-  id: string,
-  /// Module containing the verified function.
-  moduleName: string,
-  /// Function name that was verified.
-  functionName: string,
-  /// Specification that was checked.
-  specification: string,
-  /// Verification outcome.
-  kind: verificationResultKind,
-  /// Prover used (e.g., "Z3", "CVC5", "Coq").
-  proverUsed: string,
-  /// Verification duration in milliseconds.
-  durationMs: float,
-  /// Counterexample if the spec was violated.
-  counterexample: option<string>,
-  /// Error message if verification errored.
-  errorMessage: option<string>,
-}
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Root state for the Proofs Bridge panel.
-type proofsBridgeState = {
-  /// Active tab within the Proofs Bridge panel.
-  activeTab: proofsBridgeTab,
-  /// All registered proven library modules.
-  provenModules: array<provenModule>,
-  /// Verification results from ECHIDNA (most recent first).
-  verificationResults: array<verificationResult>,
-  /// Overall proof coverage percentage across all modules (0.0 to 100.0).
-  coveragePercent: float,
-  /// Whether an ECHIDNA verification session is in progress.
-  verifying: bool,
-  /// Error from the last operation.
-  error: option<string>,
-}
diff --git a/src/model/ProtocolBridgeModel.affine b/src/model/ProtocolBridgeModel.affine
new file mode 100644
index 00000000..90008964
--- /dev/null
+++ b/src/model/ProtocolBridgeModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ProtocolBridgeModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/ProtocolBridgeModel.res b/src/model/ProtocolBridgeModel.res
deleted file mode 100644
index 073c6d0d..00000000
--- a/src/model/ProtocolBridgeModel.res
+++ /dev/null
@@ -1,156 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Protocol Bridge Model — connects sync protocol management to IDApTIK
-/// game development. Bridges PanLL's protocol analysis with multiplayer
-/// synchronisation, message format verification, and latency monitoring.
-///
-/// Three-panel model (L/N/W):
-///   L: Sync protocol rules, message format specifications
-///   N: Protocol analysis reasoning about correctness and performance
-///   W: Channel status dashboard with latency graphs
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-// ============================================================================
-// Tab Navigation
-// ============================================================================
-
-/// Category tabs for the Protocol Bridge panel.
-type protocolBridgeTab =
-  /// Channels — browse and monitor active sync channels.
-  | Channels
-  /// Messages — inspect the message log with format details.
-  | Messages
-  /// Latency — latency sample graphs and percentile analysis.
-  | Latency
-  /// Rules — define and verify protocol rules and format specs.
-  | Rules
-
-// ============================================================================
-// Channel Domain
-// ============================================================================
-
-/// Connection status of a sync channel.
-type channelStatus =
-  /// Active — channel is connected and transmitting.
-  | ChannelActive
-  /// Idle — channel is connected but no recent traffic.
-  | ChannelIdle
-  /// Degraded — channel is experiencing packet loss or high latency.
-  | ChannelDegraded
-  /// Disconnected — channel is not connected.
-  | ChannelDisconnected
-  /// Error — channel encountered a protocol error.
-  | ChannelError
-
-/// A sync channel connecting game clients or services.
-type channel = {
-  /// Unique channel identifier.
-  id: string,
-  /// Human-readable channel name (e.g., "PlayerSync", "WorldState").
-  name: string,
-  /// Current connection status.
-  status: channelStatus,
-  /// Number of active subscribers on this channel.
-  subscribers: int,
-  /// Current latency in milliseconds (round-trip).
-  latencyMs: float,
-  /// Protocol used by this channel (e.g., "WebSocket", "UDP", "QUIC").
-  protocol: string,
-}
-
-// ============================================================================
-// Message Log
-// ============================================================================
-
-/// Direction of a protocol message.
-type messageDirection =
-  /// Inbound — message received from a remote peer.
-  | MessageInbound
-  /// Outbound — message sent to a remote peer.
-  | MessageOutbound
-
-/// A single entry in the protocol message log.
-type messageLogEntry = {
-  /// Unique message identifier.
-  id: string,
-  /// Channel this message was transmitted on.
-  channelId: string,
-  /// Direction of the message.
-  direction: messageDirection,
-  /// Message type or opcode name.
-  messageType: string,
-  /// Payload size in bytes.
-  payloadBytes: int,
-  /// Timestamp (milliseconds since epoch).
-  timestamp: float,
-  /// Whether this message passed format validation.
-  valid: bool,
-  /// Validation error message if invalid.
-  validationError: option<string>,
-}
-
-// ============================================================================
-// Latency Monitoring
-// ============================================================================
-
-/// A single latency measurement sample.
-type protocolLatencySample = {
-  /// Channel this sample was measured on.
-  channelId: string,
-  /// Latency in milliseconds (round-trip).
-  latencyMs: float,
-  /// Timestamp when the sample was recorded (milliseconds since epoch).
-  timestamp: float,
-  /// Whether this sample exceeds the acceptable threshold.
-  exceededThreshold: bool,
-}
-
-// ============================================================================
-// Protocol Rules
-// ============================================================================
-
-/// Verification status of a protocol rule.
-type protocolRuleStatus =
-  /// Verified — rule has been formally checked and holds.
-  | RuleVerified
-  /// Unverified — rule has not been checked yet.
-  | RuleUnverified
-  /// Violated — a violation was detected in the message log.
-  | RuleViolated
-
-/// A protocol rule defining expected message format or behaviour.
-type protocolRule = {
-  /// Unique rule identifier.
-  id: string,
-  /// Human-readable rule name (e.g., "MaxPayloadSize", "OrderGuarantee").
-  name: string,
-  /// Formal rule expression.
-  expression: string,
-  /// Verification status.
-  status: protocolRuleStatus,
-  /// Human-readable description of what this rule enforces.
-  description: string,
-}
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Root state for the Protocol Bridge panel.
-type protocolBridgeState = {
-  /// Active tab within the Protocol Bridge panel.
-  activeTab: protocolBridgeTab,
-  /// All registered sync channels.
-  channels: array<channel>,
-  /// Protocol message log (most recent first).
-  messageLog: array<messageLogEntry>,
-  /// Latency measurement samples.
-  latencySamples: array<protocolLatencySample>,
-  /// Protocol rules and format specifications.
-  protocolRules: array<protocolRule>,
-  /// Whether the protocol monitor is connected.
-  connected: bool,
-  /// Error from the last operation.
-  error: option<string>,
-}
diff --git a/src/model/ProtocolSquisherModel.affine b/src/model/ProtocolSquisherModel.affine
new file mode 100644
index 00000000..0486a403
--- /dev/null
+++ b/src/model/ProtocolSquisherModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ProtocolSquisherModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/ProtocolSquisherModel.res b/src/model/ProtocolSquisherModel.res
deleted file mode 100644
index b196eea7..00000000
--- a/src/model/ProtocolSquisherModel.res
+++ /dev/null
@@ -1,120 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Protocol-Squisher Model — types for the format analysis panel.
-///
-/// Protocol-squisher analyses serialisation schemas across 13 formats (Protobuf,
-/// Avro, FlatBuffers, Cap'n Proto, Thrift, MessagePack, Bebop, JSON Schema,
-/// GraphQL, TOML, Rust, ReScript, Python) and classifies their transport
-/// compatibility into 4 tiers: Concorde, Business, Economy, Wheelbarrow.
-///
-/// The panel imports IR analysis results as Pane-L constraints and displays
-/// transport class compatibility between formats.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// Serialisation format that protocol-squisher can analyse.
-/// Includes both wire-protocol formats and enterprise architecture model interchange.
-type schemaFormat =
-  | Protobuf
-  | Avro
-  | FlatBuffers
-  | CapnProto
-  | Thrift
-  | MessagePack
-  | Bebop
-  | JsonSchema
-  | GraphQL
-  | Toml
-  | RustFormat
-  | ReScriptFormat
-  | PythonFormat
-  // Enterprise architecture model interchange formats
-  | XMI // OMG XML Metadata Interchange (MOF/UML/SysML serialisation)
-  | ArchiMateExchange // The Open Group ArchiMate Model Exchange File Format
-  | BPMN_XML // OMG BPMN 2.0 XML serialisation
-  | SBVR // OMG Semantics of Business Vocabulary and Rules
-
-/// Transport class — higher tier means more efficient wire representation.
-type transportClass =
-  | Concorde
-  | Business
-  | Economy
-  | Wheelbarrow
-
-/// A single format analysis result from the protocol-squisher CLI.
-type analysisResult = {
-  /// Path to the schema file that was analysed.
-  filePath: string,
-  /// Detected format.
-  format: schemaFormat,
-  /// Transport class classification.
-  transportClass: transportClass,
-  /// Human-readable summary of the analysis.
-  summary: string,
-  /// Estimated wire overhead ratio (1.0 = no overhead).
-  overheadRatio: float,
-  /// Number of fields/types found in the schema.
-  fieldCount: int,
-  /// Whether the schema uses nested/recursive types.
-  hasRecursion: bool,
-}
-
-/// Compatibility comparison between two schemas.
-type schemaCompatibilityResult = {
-  /// Left schema path.
-  leftPath: string,
-  /// Right schema path.
-  rightPath: string,
-  /// Left format.
-  leftFormat: schemaFormat,
-  /// Right format.
-  rightFormat: schemaFormat,
-  /// Whether the schemas are structurally compatible.
-  compatible: bool,
-  /// Adapter complexity cost (0 = trivial, 10 = impossible).
-  adapterCost: int,
-  /// Human-readable compatibility notes.
-  notes: string,
-}
-
-/// Category tabs for the Protocol-Squisher panel.
-type protocolSquisherCategory =
-  /// Analyse a schema file.
-  | PsAnalyse
-  /// Compare two schemas for compatibility.
-  | PsCompare
-  /// View recent analysis results.
-  | PsResults
-  /// Transport class reference guide.
-  | PsGuide
-
-/// Root state for the Protocol-Squisher panel.
-type protocolSquisherState = {
-  /// Whether the CLI binary is available.
-  cliAvailable: bool,
-  /// Whether an operation is in progress.
-  loading: bool,
-  /// Error from the last operation.
-  error: option<string>,
-  /// Active category tab.
-  activeCategory: protocolSquisherCategory,
-  /// Path input for schema analysis.
-  analyseInput: string,
-  /// Path inputs for comparison (left, right).
-  compareLeftInput: string,
-  compareRightInput: string,
-  /// Most recent analysis result.
-  lastAnalysis: option<analysisResult>,
-  /// Most recent comparison result.
-  lastComparison: option<schemaCompatibilityResult>,
-  /// History of analysis results (most recent first).
-  analysisHistory: array<analysisResult>,
-  /// TypeLL type-check result JSON for the last schema analysis (cross-panel intelligence).
-  /// Parsed via TypeLLEngine.parseCheckResult when rendering.
-  lastTypeCheck: option<string>,
-  /// IR constraints extracted from the latest analysis and pushed to Panel-L.
-  /// Each string is a constraint expression derived from the schema structure.
-  irConstraints: array<string>,
-  /// Whether transport compatibility data should be shown in Panel-W.
-  transportDisplayActive: bool,
-}
diff --git a/src/model/ProvenAdoptionModel.affine b/src/model/ProvenAdoptionModel.affine
new file mode 100644
index 00000000..2241079e
--- /dev/null
+++ b/src/model/ProvenAdoptionModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ProvenAdoptionModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/ProvenAdoptionModel.res b/src/model/ProvenAdoptionModel.res
deleted file mode 100644
index 25209cf5..00000000
--- a/src/model/ProvenAdoptionModel.res
+++ /dev/null
@@ -1,51 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Proven Adoption Model — per-repo proven library adoption tracking.
-///
-/// Scans repos for formally verified safety primitives from the `proven`
-/// library. Tracks which SafeX modules each repo uses and whether bindings
-/// are properly configured.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// Status of a single proven module binding in a repo.
-type provenModuleStatus =
-  | Adopted
-  | PartiallyAdopted
-  | NotAdopted
-
-/// Proven module usage summary for a single repository.
-type repoProvenSummary = {
-  /// Repository name.
-  repoName: string,
-  /// Proven SafeX modules in use (e.g. "SafeArray", "SafeMap", "SafeString").
-  modules: array<string>,
-  /// Whether the proven dependency is declared in the build file.
-  dependencyDeclared: bool,
-  /// Binding status: are all imported modules bound correctly?
-  bindingStatus: provenModuleStatus,
-  /// Last scan timestamp (ISO 8601).
-  lastScanned: string,
-}
-
-/// Proven Adoption panel tabs.
-type provenAdoptionTab =
-  | TabRepoList
-  | TabModuleMatrix
-  | TabGaps
-
-/// Root state for the Proven Adoption panel.
-type provenAdoptionState = {
-  /// Active tab.
-  activeTab: provenAdoptionTab,
-  /// Per-repo proven adoption summaries.
-  repos: array<repoProvenSummary>,
-  /// Currently selected repo for detail view.
-  selectedRepo: option<string>,
-  /// Whether a filesystem scan is in progress.
-  scanning: bool,
-  /// Error from last scan.
-  error: option<string>,
-  /// Search/filter text.
-  filterText: string,
-}
diff --git a/src/model/ProvenanceModel.affine b/src/model/ProvenanceModel.affine
new file mode 100644
index 00000000..c116c8ef
--- /dev/null
+++ b/src/model/ProvenanceModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ProvenanceModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/ProvenanceModel.res b/src/model/ProvenanceModel.res
deleted file mode 100644
index e6507447..00000000
--- a/src/model/ProvenanceModel.res
+++ /dev/null
@@ -1,215 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL ProvenanceModel — Code trust surface types.
-///
-/// The Provenance Map is CORE INFRASTRUCTURE, always visible as an ambient
-/// layer over every panel. It uses Qubes-style semantic colours to show
-/// who wrote each piece of code and how trustworthy it is.
-///
-/// Colour semantics are FIXED — they cannot be reconfigured:
-///   Green  = formally verified (proof-checked, no believe_me)
-///   Blue   = human-reviewed (human author or human commit after AI)
-///   Amber  = AI-assisted (co-authored, no subsequent human review)
-///   Red    = unreviewed AI (pure AI, no human in chain)
-///   Grey   = unknown/ancient (pre-git or no attribution)
-///
-/// Accessibility palettes swap hues but NEVER meanings. Shape, position,
-/// and label provide redundant channels beyond colour alone.
-
-/// The trust level of a piece of code, derived from git blame + Co-Authored-By
-/// parsing. This enum has FIXED semantic meaning — do not reorder or rename.
-type trustLevel =
-  /// Formally verified: proof-checked by ECHIDNA or equivalent, zero believe_me,
-  /// zero sorry, zero Admitted. The highest trust. Colour: green.
-  | Verified
-  /// Human-reviewed: written by a human, or AI-generated code that has been
-  /// subsequently committed by a human (review chain intact). Colour: blue.
-  | HumanReviewed
-  /// AI-assisted: co-authored (human + AI), but no subsequent human-only commit
-  /// has reviewed the AI portions. Trust is partial. Colour: amber.
-  | AiAssisted
-  /// Unreviewed AI: purely AI-generated with no human in the commit chain.
-  /// Triggers hostile UX (pulsing border, vexometer spike). Colour: red.
-  | UnreviewedAi
-  /// Unknown provenance: pre-git history, missing attribution, or ancient code
-  /// where the commit chain is lost. Not alarming but not trusted. Colour: grey.
-  | Unknown
-
-/// A single line or region of code with its provenance attribution.
-type provenanceRegion = {
-  /// Starting line number (1-indexed, inclusive).
-  startLine: int,
-  /// Ending line number (1-indexed, inclusive).
-  endLine: int,
-  /// The trust level derived from blame analysis.
-  trustLevel: trustLevel,
-  /// The author name from git blame.
-  author: string,
-  /// The author email from git blame.
-  authorEmail: string,
-  /// Whether a Co-Authored-By trailer was present on the commit.
-  coAuthored: bool,
-  /// The co-author name, if any.
-  coAuthor: option<string>,
-  /// The commit SHA for this region.
-  commitSha: string,
-  /// Commit timestamp (Unix seconds).
-  commitTimestamp: float,
-  /// Whether the region has been explicitly acknowledged (dismissed hostile UX).
-  acknowledged: bool,
-}
-
-/// Summary statistics for a file's provenance.
-type provenanceSummary = {
-  /// Total lines analysed.
-  totalLines: int,
-  /// Lines at each trust level.
-  verifiedLines: int,
-  humanReviewedLines: int,
-  aiAssistedLines: int,
-  unreviewedAiLines: int,
-  unknownLines: int,
-  /// Number of distinct authors.
-  authorCount: int,
-  /// Number of distinct co-authors (AI tools).
-  coAuthorCount: int,
-  /// Whether any region triggers hostile UX (unreviewed AI present).
-  hasViolations: bool,
-  /// Count of believe_me / sorry / Admitted found in verified regions
-  /// (should be zero — if nonzero, the Verified trust level is wrong).
-  unsoundMarkers: int,
-}
-
-/// A file's complete provenance analysis.
-type fileProvenance = {
-  /// The file path (relative to repo root).
-  filePath: string,
-  /// Per-region provenance data.
-  regions: array<provenanceRegion>,
-  /// Aggregate statistics.
-  summary: provenanceSummary,
-  /// When this analysis was last computed (Unix timestamp).
-  analysedAt: float,
-}
-
-/// Accessibility palette — swaps hues but preserves semantic positions.
-/// Each palette provides colours for the five trust levels in order:
-/// [verified, humanReviewed, aiAssisted, unreviewedAi, unknown].
-type accessibilityPalette =
-  /// Default palette: green, blue, amber, red, grey.
-  | StandardPalette
-  /// Deuteranopia-safe: teal, blue, yellow, magenta, grey.
-  | DeuteranopiaPalette
-  /// Protanopia-safe: cyan, blue, orange, magenta, grey.
-  | ProtanopiaPalette
-  /// High-contrast: white-on-green, white-on-blue, black-on-yellow, white-on-red, grey.
-  | HighContrastPalette
-
-/// State of the Provenance Map subsystem.
-type provenanceState = {
-  /// Whether provenance analysis is enabled (always on by default).
-  enabled: bool,
-  /// The currently active file's provenance (if any file is focused).
-  activeFile: option<fileProvenance>,
-  /// Cache of recently analysed files (keyed by path).
-  cache: array<fileProvenance>,
-  /// The active accessibility palette.
-  palette: accessibilityPalette,
-  /// Whether the hostile UX is active (pulsing borders on unreviewed AI).
-  hostileUxActive: bool,
-  /// Whether the user has globally suppressed hostile UX (smoke alarm battery pulled).
-  hostileUxSuppressed: bool,
-  /// Loading state for git blame analysis.
-  loading: bool,
-  /// Error from the last analysis attempt.
-  error: option<string>,
-}
-
-/// Node in the provenance DAG — represents a single artefact in the supply chain.
-type dagNodeKind =
-  /// Source code file with trust analysis.
-  | SourceNode
-  /// Build artefact (compiled output, bundle, .so).
-  | BuildNode
-  /// External dependency (crate, npm package, opam package).
-  | DependencyNode
-  /// Proof artefact (ECHIDNA discharge, Coq proof term).
-  | ProofNode
-  /// Signing/attestation event (SLSA, Sigstore, in-toto).
-  | AttestationNode
-
-/// A single node in the provenance DAG.
-type dagNode = {
-  /// Unique node identifier (content-addressable hash preferred).
-  id: string,
-  /// Human-readable label for the node.
-  label: string,
-  /// The kind of artefact this node represents.
-  kind: dagNodeKind,
-  /// Trust level inherited from provenance analysis.
-  trustLevel: trustLevel,
-  /// SHA-256 or BLAKE3 content hash.
-  contentHash: string,
-  /// Timestamp of artefact creation (Unix ms).
-  createdAt: float,
-  /// Whether this node has been formally verified.
-  verified: bool,
-}
-
-/// An edge in the provenance DAG — a dependency or derivation relationship.
-type dagEdge = {
-  /// Source node ID (the dependency).
-  fromId: string,
-  /// Target node ID (the dependent).
-  toId: string,
-  /// Relationship label (e.g. "compiles-to", "depends-on", "proves", "signs").
-  relation: string,
-  /// Whether this edge has been verified (e.g. hash chain intact).
-  verified: bool,
-}
-
-/// The complete provenance DAG for a project or workspace.
-type provenanceDag = {
-  /// All nodes in the graph.
-  nodes: array<dagNode>,
-  /// All edges in the graph.
-  edges: array<dagEdge>,
-  /// The root node IDs (entry points with no incoming edges).
-  roots: array<string>,
-  /// The leaf node IDs (final artefacts with no outgoing edges).
-  leaves: array<string>,
-  /// When this DAG was last computed.
-  computedAt: float,
-}
-
-// ===========================================================================
-// Code MRI Layer 1 — Blake3 Provenance Chain Types
-// ===========================================================================
-
-/// A single entry in the provenance hash chain.
-///
-/// Each entry links to its parent via `parentHash`, forming a tamper-evident
-/// chain. The `hash` field is computed deterministically from (content, author,
-/// timestamp, parentHash), so any modification to any field invalidates the
-/// chain from that point onward.
-///
-/// The `attribution` field tracks the origin of the code region:
-///   - "human"      — written entirely by a human
-///   - "ai:claude"  — generated by Claude
-///   - "ai:copilot" — generated by GitHub Copilot
-///   - "mixed"      — human + AI co-authored
-///   - "imported"   — brought in from an external source
-type provenanceChainEntry = {
-  /// The computed hash of this entry (hex-encoded, deterministic).
-  hash: string,
-  /// Hash of the previous entry in the chain ("0" for genesis).
-  parentHash: string,
-  /// The code content this entry covers.
-  content: string,
-  /// The author who committed this region.
-  author: string,
-  /// ISO 8601 timestamp of the commit.
-  timestamp: string,
-  /// Origin classification: "human", "ai:claude", "ai:copilot", "mixed", "imported".
-  attribution: string,
-}
diff --git a/src/model/ProvisionerModel.affine b/src/model/ProvisionerModel.affine
new file mode 100644
index 00000000..35811c7b
--- /dev/null
+++ b/src/model/ProvisionerModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ProvisionerModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/ProvisionerModel.res b/src/model/ProvisionerModel.res
deleted file mode 100644
index 19e071a9..00000000
--- a/src/model/ProvisionerModel.res
+++ /dev/null
@@ -1,315 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL ProvisionerModel — Portfolio provisioning and panel configuration types.
-///
-/// The Provisioner is the system that bundles panels into coherent portfolios,
-/// manages per-panel configuration, and handles installation/removal of panel
-/// groups. It expresses the "WHAT" (which panels do you need) while the
-/// Configurator expresses the "HOW" (how each panel connects to its backend).
-///
-/// Three-tier panel isolation maps here too:
-///   Native   — runs in PanLL process (core 13, trusted panels)
-///   Standard — Alpine + Podman container (community panels)
-///   Hardened — Stapeln + Chainguard pod (enterprise, untrusted)
-///
-/// ON EXHAUSTIVE ISOLATION: The `panelIsolation` variant below has exactly three
-/// constructors. Every `switch` on isolation tier in the codebase MUST handle all
-/// three — the compiler enforces this. When we eventually add a fourth tier (say,
-/// `RemoteHost` for distributed panels), the compiler will flag every location
-/// that needs updating. In Python or Go, this would be a string enum that silently
-/// falls through to a default case, and you'd discover the missing handler in
-/// production. ReScript doesn't have a `default` case for variants — you handle
-/// everything or you don't compile. That's the difference between "type-safe" as
-/// marketing and type-safe as engineering practice.
-
-/// Panel isolation tier — determines how a panel runs.
-type panelIsolation =
-  /// Runs directly in the PanLL Gossamer process. Fastest, full trust.
-  | Native
-  /// Runs in a standard Alpine + Podman OCI container. Good isolation,
-  /// quick startup, clean uninstall by deleting the pod.
-  | StandardPod
-  /// Runs in a hardened Stapeln + Chainguard (Wolfi-base) container.
-  /// Signed image, SBOM included, zero CVE baseline. Enterprise grade.
-  | HardenedPod
-
-/// Installation status of a panel within a portfolio.
-type panelInstallStatus =
-  /// Not installed — available for installation.
-  | NotInstalled
-  /// Currently downloading/building the container image.
-  | Installing
-  /// Installed and ready to use.
-  | Installed
-  /// Installation failed — error message attached.
-  | InstallFailed(string)
-  /// Marked for removal.
-  | Removing
-
-/// A panel's configuration — its connection to a backend service.
-/// The Configurator manages these. Users don't need to touch this
-/// to get started (provisioner sets sensible defaults).
-type panelConfig = {
-  /// The panel's unique identifier (matches panelId from PanelSwitcherModel).
-  panelName: string,
-  /// Backend endpoint URL (empty for filesystem-only panels).
-  endpoint: string,
-  /// Whether the panel should auto-connect on startup.
-  autoConnect: bool,
-  /// The isolation tier for this panel.
-  isolation: panelIsolation,
-  /// Custom environment variables passed to the panel's container (if podded).
-  envVars: array<(string, string)>,
-  /// Whether the panel is enabled (visible in the panel bar).
-  enabled: bool,
-}
-
-/// A portfolio — a curated bundle of panels for a specific use case.
-///
-/// Portfolios are the "WHAT": they answer "what panels do I need for X?"
-/// Users browse portfolios, pick one, and the provisioner installs all
-/// the panels in the bundle with sensible default configurations.
-type portfolio = {
-  /// Unique portfolio identifier (kebab-case).
-  id: string,
-  /// Human-readable portfolio name.
-  name: string,
-  /// One-line description.
-  description: string,
-  /// The panels included in this portfolio (by panel name).
-  panels: array<string>,
-  /// The recommended isolation tier for this portfolio's panels.
-  defaultIsolation: panelIsolation,
-  /// Whether this is a built-in portfolio (shipped with PanLL) or user-created.
-  builtIn: bool,
-  /// Icon identifier for the portfolio card.
-  icon: string,
-  /// Target audience description.
-  audience: string,
-}
-
-/// Installation progress for a portfolio (tracks per-panel progress).
-type portfolioInstallProgress = {
-  /// Portfolio being installed.
-  portfolioId: string,
-  /// Total panels in the portfolio.
-  totalPanels: int,
-  /// Panels successfully installed so far.
-  installedPanels: int,
-  /// Panels that failed installation.
-  failedPanels: int,
-  /// Current panel being installed (if any).
-  currentPanel: option<string>,
-}
-
-/// Category tabs for the Provisioner panel.
-type provisionerCategory =
-  /// Browse available portfolios.
-  | Portfolios
-  /// Browse available plugin bundles.
-  | PluginBundles
-  /// View and edit per-panel configuration.
-  | Configurator
-  /// View installed panels and their isolation tiers.
-  | Installed
-  /// Create a custom portfolio.
-  | CustomPortfolio
-  /// Create a custom plugin bundle.
-  | CustomPluginBundle
-  /// Create mixed deployment bundles.
-  | DeploymentBundles
-
-/// Provisioning target type - what are we provisioning?
-type provisioningTarget =
-  /// Traditional PanLL panels
-  | PanelTarget
-  /// Plugin cartridges
-  | PluginTarget
-  /// Mixed panel/plugin bundles
-  | MixedTarget
-
-/// Plugin trust tiers for security classification
-type pluginTrustTier =
-  /// Core plugins, always available, high trust
-  | Teranga
-  /// Security-critical plugins, elevated trust
-  | Shield
-  /// Community-contributed plugins, standard trust
-  | Ayo
-
-/// Plugin dependency declaration
-type pluginDependency = {
-  /// Plugin identifier
-  pluginId: string,
-  /// Required version
-  version: string,
-  /// Trust tier requirement
-  tier: pluginTrustTier,
-}
-
-/// Sandbox policy for plugin isolation
-type sandboxPolicy = {
-  /// Network access permission
-  networkAccess: bool,
-  /// Filesystem access permission
-  filesystemAccess: bool,
-  /// Allowed capabilities
-  allowedCapabilities: array<string>,
-}
-
-/// Plugin configuration
-type pluginConfig = {
-  /// Plugin unique identifier
-  pluginId: string,
-  /// Backend endpoint URL
-  endpoint: string,
-  /// Enabled capabilities
-  capabilities: array<string>,
-  /// Sandbox security policy
-  sandboxPolicy: sandboxPolicy,
-  /// Isolation tier
-  isolation: panelIsolation,
-  /// Custom environment variables
-  envVars: array<(string, string)>,
-  /// Auto-start on PanLL launch
-  autoStart: bool,
-}
-
-/// Plugin bundle - curated collection of plugins
-type pluginBundle = {
-  /// Unique bundle identifier (kebab-case)
-  id: string,
-  /// Human-readable bundle name
-  name: string,
-  /// One-line description
-  description: string,
-  /// Plugins included in this bundle
-  plugins: array<string>,
-  /// Plugin dependencies
-  dependencies: array<pluginDependency>,
-  /// Overall trust tier (highest of included plugins)
-  trustTier: pluginTrustTier,
-  /// Recommended isolation tier
-  defaultIsolation: panelIsolation,
-  /// Whether this is a built-in bundle
-  builtIn: bool,
-  /// Icon identifier
-  icon: string,
-  /// Target audience
-  audience: string,
-}
-
-/// Source type for Groove services
-type sourceType =
-  /// Service provided by a panel
-  | PanelSource(string)  // panelId
-  /// Service provided by a plugin
-  | PluginSource(string)  // pluginId
-
-/// Groove service descriptor for unified discovery
-type grooveService = {
-  /// Service identifier
-  id: string,
-  /// Human-readable name
-  name: string,
-  /// Provided capabilities
-  capabilities: array<string>,
-  /// Endpoint URL
-  endpoint: string,
-  /// Source type (panel or plugin)
-  sourceType: sourceType,
-  /// Trust tier (for plugins)
-  trustTier: option<pluginTrustTier>,
-}
-
-/// Bundle installation status
-type bundleInstallStatus =
-  /// Not installed
-  | BundleNotInstalled
-  /// Installing components
-  | BundleInstalling(int, int)  // (installed, total)
-  /// Fully installed
-  | BundleInstalled
-  /// Installation failed
-  | BundleInstallFailed(string)
-
-/// Configuration graph node
-type configNode =
-  /// Panel configuration
-  | PanelConfigNode(panelConfig)
-  /// Plugin configuration
-  | PluginConfigNode(pluginConfig)
-  /// Dependency reference
-  | DependencyConfigNode(string)
-
-/// Configuration graph - connects configs and dependencies
-type configurationGraph = array<configNode>
-
-/// Dependency declaration (panel or plugin)
-type dependency =
-  /// Panel dependency
-  | PanelDependency(string)  // panelId
-  /// Plugin dependency
-  | PluginDependency(pluginDependency)
-
-/// Deployment bundle - mixed panels and plugins
-type deploymentBundle = {
-  /// Bundle identifier
-  id: string,
-  /// Bundle name
-  name: string,
-  /// Panels in this deployment
-  panels: array<string>,
-  /// Plugins in this deployment
-  plugins: array<string>,
-  /// Unified Groove services
-  grooveServices: array<grooveService>,
-  /// Dependency graph
-  dependencies: array<dependency>,
-  /// Configuration graph
-  configuration: configurationGraph,
-  /// Installation status
-  installStatus: bundleInstallStatus,
-}
-
-/// The complete Provisioner state.
-type provisionerState = {
-  /// Available portfolios (built-in + user-created).
-  portfolios: array<portfolio>,
-  /// Available plugin bundles.
-  pluginBundles: array<pluginBundle>,
-  /// Per-panel configurations.
-  panelConfigs: array<panelConfig>,
-  /// Per-plugin configurations.
-  pluginConfigs: array<pluginConfig>,
-  /// Installation status per panel name.
-  panelInstallStatus: array<(string, panelInstallStatus)>,
-  /// Installation status per plugin name.
-  pluginInstallStatus: array<(string, panelInstallStatus)>,
-  /// Current portfolio installation progress (if installing).
-  installProgress: option<portfolioInstallProgress>,
-  /// Current plugin bundle installation progress.
-  pluginInstallProgress: option<portfolioInstallProgress>,
-  /// Deployment bundles (mixed panels/plugins).
-  deploymentBundles: array<deploymentBundle>,
-  /// Active category tab.
-  activeCategory: provisionerCategory,
-  /// Current provisioning target.
-  provisioningTarget: provisioningTarget,
-  /// Text filter for searching portfolios/panels/plugins.
-  filterText: string,
-  /// Loading state.
-  loading: bool,
-  /// Error from the last operation.
-  error: option<string>,
-  /// Custom portfolio being built.
-  customName: string,
-  customPanels: array<string>,
-  /// Custom plugin bundle being built.
-  customPluginBundleName: string,
-  customPluginBundlePlugins: array<string>,
-  /// Custom deployment bundle being built.
-  customDeploymentBundleName: string,
-  customDeploymentPanels: array<string>,
-  customDeploymentPlugins: array<string>,
-}
diff --git a/src/model/RegressionGuardModel.affine b/src/model/RegressionGuardModel.affine
new file mode 100644
index 00000000..6e29ed09
--- /dev/null
+++ b/src/model/RegressionGuardModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module RegressionGuardModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/RegressionGuardModel.res b/src/model/RegressionGuardModel.res
deleted file mode 100644
index 84b03515..00000000
--- a/src/model/RegressionGuardModel.res
+++ /dev/null
@@ -1,126 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Regression Guard Model — snapshot comparison and golden-file testing
-/// for IDApTIK game state, render output, and API responses.
-///
-/// Captures baseline "golden" snapshots and compares subsequent runs against
-/// them, reporting visual diffs, structural differences, and blame analysis.
-///
-/// Clade: Scanner. This module has NO dependencies on other PanLL modules.
-
-// ============================================================================
-// Snapshot Classification
-// ============================================================================
-
-/// Category of snapshot being tracked. Determines the comparison algorithm
-/// used (text diff, image diff, JSON structural diff, etc.).
-type snapshotKind =
-  /// Game state serialised as JSON — uses structural JSON diff.
-  | SnapshotGameState
-  /// Rendered frame output — uses pixel-by-pixel image diff.
-  | SnapshotRenderOutput
-  /// API response body — uses JSON path diff.
-  | SnapshotApiResponse
-  /// Test output log — uses line-by-line text diff.
-  | SnapshotTestOutput
-  /// Custom snapshot with user-defined label.
-  | SnapshotCustom(string)
-
-// ============================================================================
-// Snapshot Entries
-// ============================================================================
-
-/// A single tracked snapshot entry with golden baseline and optional current.
-type regressionSnapshot = {
-  /// Unique snapshot identifier.
-  id: string,
-  /// Human-readable name (e.g., "Level 3 completion state").
-  name: string,
-  /// Classification determining the diff algorithm.
-  kind: snapshotKind,
-  /// Filesystem path to the golden baseline file.
-  goldenPath: string,
-  /// Filesystem path to the current (latest) snapshot (None if not yet captured).
-  currentPath: option<string>,
-  /// Whether the current snapshot matches the golden baseline (None = not yet compared).
-  matched: option<bool>,
-  /// Human-readable diff summary if mismatched.
-  diffSummary: option<string>,
-  /// ISO 8601 timestamp of last update.
-  updatedAt: string,
-}
-
-// ============================================================================
-// Regression Results
-// ============================================================================
-
-/// Summary of a regression check run across all tracked snapshots.
-type regressionResult = {
-  /// Total number of snapshots checked.
-  totalSnapshots: int,
-  /// Count of snapshots matching their golden baselines.
-  matched: int,
-  /// Count of snapshots diverging from their golden baselines.
-  mismatched: int,
-  /// Count of golden baselines with no current snapshot available.
-  missing: int,
-  /// Count of new snapshots with no golden baseline yet.
-  newSnapshots: int,
-  /// Total time taken for the regression check in milliseconds.
-  durationMs: float,
-  /// ISO 8601 timestamp of this result.
-  timestamp: string,
-}
-
-/// Blame attribution for a regression — identifies the commit that caused drift.
-type regressionBlame = {
-  /// The snapshot that regressed.
-  snapshotId: string,
-  /// Git commit hash that introduced the regression.
-  commitHash: string,
-  /// Author of the regressing commit.
-  author: string,
-  /// Commit message excerpt.
-  commitMessage: string,
-  /// Files changed in the regressing commit.
-  filesChanged: array<string>,
-}
-
-// ============================================================================
-// Tab Navigation
-// ============================================================================
-
-/// Active tab within the Regression Guard panel.
-type regressionTab =
-  /// Snapshots — inventory of tracked snapshots with match/mismatch badges.
-  | TabSnapshots
-  /// Diffs — inline visual diff viewer for mismatched snapshots.
-  | TabDiffs
-  /// History — timeline of regression check results with trend.
-  | TabHistory
-  /// Settings — auto-update policy, threshold configuration, blame settings.
-  | TabSettings
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Root state for the Regression Guard panel.
-type regressionGuardState = {
-  /// Active tab within the panel.
-  activeTab: regressionTab,
-  /// All tracked snapshot entries.
-  snapshots: array<regressionSnapshot>,
-  /// Historical regression check results.
-  results: array<regressionResult>,
-  /// Blame attributions for recent regressions.
-  blameEntries: array<regressionBlame>,
-  /// Whether a regression check is currently running.
-  running: bool,
-  /// Whether to auto-update golden baselines when snapshots pass review.
-  autoUpdate: bool,
-  /// Search filter for snapshot names.
-  filter: string,
-  /// Error from the last operation.
-  error: option<string>,
-}
diff --git a/src/model/ReleaseManagerModel.affine b/src/model/ReleaseManagerModel.affine
new file mode 100644
index 00000000..eafbd471
--- /dev/null
+++ b/src/model/ReleaseManagerModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ReleaseManagerModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/ReleaseManagerModel.res b/src/model/ReleaseManagerModel.res
deleted file mode 100644
index 03b31b73..00000000
--- a/src/model/ReleaseManagerModel.res
+++ /dev/null
@@ -1,84 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Release Manager Model — types for versioning, changelog
-/// generation, packaging, and distribution of IDApTIK builds.
-
-/// Release channel.
-type releaseChannel =
-  | ChannelDev
-  | ChannelAlpha
-  | ChannelBeta
-  | ChannelRC
-  | ChannelStable
-
-/// Platform target for builds.
-type platformTarget =
-  | PlatformWeb
-  | PlatformDesktopLinux
-  | PlatformDesktopMac
-  | PlatformDesktopWindows
-  | PlatformMobileAndroid
-  | PlatformMobileIOS
-
-/// Build artifact.
-type releaseArtifact = {
-  name: string,
-  platform: platformTarget,
-  filePath: string,
-  sizeBytes: int,
-  checksum: string,
-  builtAt: float,
-}
-
-/// Changelog entry.
-type changelogEntry = {
-  version: string,
-  date: string,
-  category: string,
-  description: string,
-  commitHash: string,
-  author: string,
-}
-
-/// Release status.
-type releaseStatus =
-  | ReleaseDraft
-  | ReleaseBuilding
-  | ReleaseReady
-  | ReleasePublished
-  | ReleaseFailed(string)
-
-/// A release version.
-type releaseVersion = {
-  version: string,
-  channel: releaseChannel,
-  status: releaseStatus,
-  artifacts: array<releaseArtifact>,
-  changelog: array<changelogEntry>,
-  createdAt: float,
-  publishedAt: option<float>,
-}
-
-/// Category tabs for the Release Manager panel.
-type releaseManagerCategory =
-  | ReleaseOverview
-  | ReleaseChangelog
-  | ReleaseArtifacts
-  | ReleaseDistribution
-
-/// Root state for the Release Manager panel.
-type releaseManagerState = {
-  activeCategory: releaseManagerCategory,
-  currentVersion: string,
-  nextVersion: string,
-  channel: releaseChannel,
-  releases: array<releaseVersion>,
-  pendingChangelog: array<changelogEntry>,
-  artifacts: array<releaseArtifact>,
-  selectedRelease: option<string>,
-  enabledPlatforms: array<platformTarget>,
-  autoChangelog: bool,
-  signArtifacts: bool,
-  loading: bool,
-  error: option<string>,
-}
diff --git a/src/model/RepoLoaderModel.affine b/src/model/RepoLoaderModel.affine
new file mode 100644
index 00000000..5b9c8ff1
--- /dev/null
+++ b/src/model/RepoLoaderModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module RepoLoaderModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/RepoLoaderModel.res b/src/model/RepoLoaderModel.res
deleted file mode 100644
index 4d56459f..00000000
--- a/src/model/RepoLoaderModel.res
+++ /dev/null
@@ -1,76 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Repo Loader Model — leaf types for the repository loading panel.
-///
-/// The Repo Loader allows opening a repo (`panll /path/to/repo` or directory
-/// picker), scanning its manifests (0-AI-MANIFEST.a2ml, PANELS.a2ml, STATE.scm),
-/// detecting languages, and suggesting which PanLL panels to activate.
-/// Panel configs are saved as `.machine_readable/PANELS.a2ml` portfolios that
-/// evolve through use.
-///
-/// Dependency: none (leaf module in the type DAG).
-
-/// Information about a scanned repository — extracted from manifests,
-/// git metadata, and file system analysis.
-type repoInfo = {
-  /// Filesystem path to the repo root.
-  path: string,
-  /// Repository name (last path component or from manifest).
-  name: string,
-  /// Short description from 0-AI-MANIFEST.a2ml or STATE.scm.
-  description: string,
-  /// Detected programming languages (from file extensions).
-  languages: array<string>,
-  /// Whether the repo has a .machine_readable/ directory.
-  hasMachineReadable: bool,
-  /// Whether PANELS.a2ml exists (previously configured).
-  hasPanelsManifest: bool,
-  /// Whether 0-AI-MANIFEST.a2ml exists.
-  hasAiManifest: bool,
-  /// Whether STATE.scm exists in .machine_readable/.
-  hasState: bool,
-}
-
-/// A suggested panel configuration from the repo scanner.
-/// Based on detected languages, manifests, and repo type.
-type panelSuggestion = {
-  /// Panel name (matches a panelId name like "AI", "Interfaces", "VoiceTag").
-  panelName: string,
-  /// Why this panel was suggested.
-  reason: string,
-  /// Suggested priority ("critical", "high", "medium", "low").
-  priority: string,
-  /// Whether this suggestion is pre-selected (user can toggle).
-  enabled: bool,
-}
-
-/// Category tabs for the Repo Loader panel.
-type repoLoaderCategory =
-  /// Directory picker and repo scanner.
-  | Browse
-  /// Panel configuration wizard (after scan).
-  | Configure
-  /// Recently loaded repos for quick switching.
-  | Recent
-  /// Search across the git-private-farm for repos.
-  | FarmSearch
-
-/// Root state for the Repo Loader panel module.
-type repoLoaderState = {
-  /// Currently scanned repo (None if no repo loaded).
-  currentRepo: option<repoInfo>,
-  /// Panel suggestions from the last scan.
-  suggestions: array<panelSuggestion>,
-  /// Recently loaded repo paths (most recent first).
-  recentPaths: array<string>,
-  /// Active category tab.
-  activeCategory: repoLoaderCategory,
-  /// Whether a scan is in progress.
-  scanning: bool,
-  /// Search text for farm search.
-  searchText: string,
-  /// Last error from scan or save.
-  error: option<string>,
-  /// Whether the panel config has been saved since last change.
-  saved: bool,
-}
diff --git a/src/model/ReposystemModel.affine b/src/model/ReposystemModel.affine
new file mode 100644
index 00000000..0922516b
--- /dev/null
+++ b/src/model/ReposystemModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ReposystemModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/ReposystemModel.res b/src/model/ReposystemModel.res
deleted file mode 100644
index ec0f6afc..00000000
--- a/src/model/ReposystemModel.res
+++ /dev/null
@@ -1,99 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Reposystem Model — types for the RSR compliance panel.
-///
-/// Scans repositories for Rhodium Standard Repository compliance:
-/// .editorconfig, 0-AI-MANIFEST.a2ml, STATE.scm in .machine_readable/,
-/// Justfile, TOPOLOGY.md, required workflows, and language policy.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// Individual RSR requirement that a repo must satisfy.
-type rsrRequirement =
-  /// .editorconfig present and valid.
-  | EditorConfig
-  /// 0-AI-MANIFEST.a2ml or AI.a2ml in root.
-  | AiManifest
-  /// STATE.scm in .machine_readable/ (NOT root).
-  | StateMachineReadable
-  /// META.scm in .machine_readable/.
-  | MetaMachineReadable
-  /// ECOSYSTEM.scm in .machine_readable/.
-  | EcosystemMachineReadable
-  /// Justfile with project recipes.
-  | Justfile
-  /// TOPOLOGY.md with architecture diagram.
-  | TopologyDiagram
-  /// SECURITY.md present.
-  | SecurityPolicy
-  /// LICENSE or LICENSE.txt with PMPL/MPL.
-  | LicenseFile
-  /// At least hypatia-scan.yml workflow.
-  | HypatiaScanWorkflow
-
-/// Compliance result for a single requirement in a single repo.
-type requirementResult = {
-  /// Which requirement was checked.
-  requirement: rsrRequirement,
-  /// Whether the repo satisfies this requirement.
-  met: bool,
-  /// Detail message (e.g. "Found .editorconfig" or "Missing TOPOLOGY.md").
-  detail: string,
-}
-
-/// Compliance audit for a single repository.
-type repoCompliance = {
-  /// Repository name.
-  repoName: string,
-  /// Results for each RSR requirement.
-  results: array<requirementResult>,
-  /// Overall compliance score (0.0–1.0).
-  score: float,
-  /// Number of requirements met.
-  metCount: int,
-  /// Total requirements checked.
-  totalCount: int,
-}
-
-/// Aggregate compliance statistics across the ecosystem.
-type complianceStats = {
-  /// Total repos audited.
-  totalRepos: int,
-  /// Per-requirement compliance rates (requirement, percentage, count).
-  requirementRates: array<(rsrRequirement, float, int)>,
-  /// Average compliance score across all repos.
-  avgScore: float,
-  /// Number of repos at 100% compliance.
-  fullyCompliant: int,
-}
-
-/// Category tabs for the Reposystem panel.
-type reposystemCategory =
-  /// Dashboard with aggregate compliance metrics.
-  | RsrDashboard
-  /// Per-repo compliance table.
-  | RsrRepoList
-  /// Per-requirement breakdown showing which repos fail.
-  | RsrRequirements
-  /// Language policy violations.
-  | RsrLanguagePolicy
-
-/// Root state for the Reposystem panel.
-type reposystemState = {
-  /// Whether data has been loaded.
-  loaded: bool,
-  /// Whether a scan is in progress.
-  loading: bool,
-  /// Error from the last operation.
-  error: option<string>,
-  /// Per-repo compliance results.
-  audits: array<repoCompliance>,
-  /// Aggregate statistics.
-  stats: option<complianceStats>,
-  /// Active category tab.
-  activeCategory: reposystemCategory,
-  /// Text filter for repo search.
-  filterText: string,
-  /// Currently selected requirement for drill-down.
-  selectedRequirement: option<rsrRequirement>,
-}
diff --git a/src/model/ScriptGistModel.affine b/src/model/ScriptGistModel.affine
new file mode 100644
index 00000000..ec3d6824
--- /dev/null
+++ b/src/model/ScriptGistModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ScriptGistModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/ScriptGistModel.res b/src/model/ScriptGistModel.res
deleted file mode 100644
index 048cc9dd..00000000
--- a/src/model/ScriptGistModel.res
+++ /dev/null
@@ -1,240 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL ScriptGistModel — Portable script gist types.
-///
-/// A Script Gist is a self-contained, addressable computation unit that can be:
-///   1. Written and saved by users (like GitHub Gists)
-///   2. Invoked by LLMs/SLMs as MCP tools (token-minimised schema)
-///   3. Fired by Automation Router rules (trigger → gist execution)
-///   4. Run standalone via `deno run` or BoJ cartridge dispatch
-///   5. Shared via URL, file export, or ENSAID config embedding
-///
-/// Design: Each gist carries its own schema (inputs/outputs) so that tool
-/// discovery protocols (MCP, OpenAI function calling, etc.) can advertise
-/// it without parsing the code. The schema is the "contract"; the code is
-/// the "implementation".
-
-/// The language a gist is written in.
-type gistLanguage =
-  /// VeriSimDB query language — routed to NQC proxy.
-  | GistVcl
-  /// QuandleDB knowledge queries — routed to NQC proxy.
-  | GistKql
-  /// LithoGlyph graph queries — routed to NQC proxy.
-  | GistGql
-  /// ReScript — compiled to JS, executed in Deno sandbox.
-  | GistReScript
-  /// Gleam — compiled to JS, executed in Deno sandbox.
-  | GistGleam
-  /// Idris2 — interpreted or compiled, executed via ECHIDNA dispatch.
-  | GistIdris2
-  /// Nickel — configuration language, evaluated to JSON.
-  | GistNickel
-  /// Shell — POSIX sh, executed in sandboxed subprocess.
-  | GistShell
-  /// OCL — Object Constraint Language, dispatched to ECHIDNA for model checking.
-  | GistOcl
-
-/// Schema parameter for tool discovery (MCP / function calling).
-type gistParam = {
-  /// Parameter name (must be a valid identifier).
-  name: string,
-  /// Human-readable description for LLM context.
-  description: string,
-  /// JSON Schema type string ("string", "number", "boolean", "object", "array").
-  schemaType: string,
-  /// Whether this parameter is required.
-  required: bool,
-  /// Default value as JSON string, if any.
-  defaultValue: option<string>,
-}
-
-/// The tool schema that makes a gist discoverable by LLMs.
-type gistSchema = {
-  /// Tool name (kebab-case, globally unique within a workspace).
-  toolName: string,
-  /// One-line description (shown in tool listings, kept short for token budget).
-  summary: string,
-  /// Input parameters.
-  inputs: array<gistParam>,
-  /// Output description (what the gist returns).
-  outputDescription: string,
-  /// Estimated token cost of including this schema in an LLM context window.
-  estimatedTokens: int,
-}
-
-/// Execution target — where the gist runs.
-type gistTarget =
-  /// Local Deno sandbox (default for most languages).
-  | TargetDeno
-  /// NQC database proxy (for VCL/KQL/GQL).
-  | TargetNqc
-  /// ECHIDNA prover backend (for Idris2/OCL).
-  | TargetEchidna
-  /// BoJ cartridge dispatch (for remote/federated execution).
-  | TargetBoj(string) // cartridge name
-  /// Shell subprocess (sandboxed).
-  | TargetShell
-
-/// Visibility level for sharing.
-type gistVisibility =
-  /// Only visible in this workspace.
-  | Private
-  /// Visible to all workspaces on this machine.
-  | Local
-  /// Exported to `.panll/gists/` for version control.
-  | Repo
-  /// Published with a shareable URL.
-  | Published
-
-/// A single execution result.
-type gistResult = {
-  /// Whether execution succeeded.
-  success: bool,
-  /// The output (stdout, query result, proof result, etc.).
-  output: string,
-  /// Error message, if any.
-  error: option<string>,
-  /// Execution duration in milliseconds.
-  durationMs: float,
-  /// Timestamp of execution (Unix ms).
-  executedAt: float,
-  /// Who invoked it: "user", "automation:rule-id", "llm:claude", etc.
-  invoker: string,
-}
-
-/// A Script Gist — the core entity.
-type scriptGist = {
-  /// Unique identifier (UUID or content-addressable hash).
-  id: string,
-  /// Human-readable title.
-  title: string,
-  /// The gist source code.
-  code: string,
-  /// Language the gist is written in.
-  language: gistLanguage,
-  /// Tool schema for LLM/MCP discovery.
-  schema: gistSchema,
-  /// Execution target.
-  target: gistTarget,
-  /// Visibility/sharing level.
-  visibility: gistVisibility,
-  /// Version counter (incremented on save).
-  version: int,
-  /// Tags for categorisation and search.
-  tags: array<string>,
-  /// When the gist was created (Unix ms).
-  createdAt: float,
-  /// When the gist was last modified (Unix ms).
-  modifiedAt: float,
-  /// Last N execution results (ring buffer).
-  history: array<gistResult>,
-  /// Whether this gist is pinned to the quick-access bar.
-  pinned: bool,
-}
-
-/// Template for formulaic gist creation (token-minimised patterns).
-type gistTemplate = {
-  /// Template identifier.
-  id: string,
-  /// Template name.
-  name: string,
-  /// Description of what this template produces.
-  description: string,
-  /// The template code with `{{placeholder}}` markers.
-  templateCode: string,
-  /// Language for generated gists.
-  language: gistLanguage,
-  /// Default target for generated gists.
-  target: gistTarget,
-  /// Placeholder names that must be filled.
-  placeholders: array<string>,
-}
-
-/// Category tabs for the gist browser.
-type gistCategory =
-  /// All gists in a flat list.
-  | GistAll
-  /// Database queries (VCL/KQL/GQL).
-  | GistQueries
-  /// Proof scripts (Idris2/OCL).
-  | GistProofs
-  /// Automation scripts (ReScript/Shell).
-  | GistAutomation
-  /// Configuration templates (Nickel/Gleam).
-  | GistConfig
-  /// Templates for formulaic creation.
-  | GistTemplates
-
-/// Sort order for the gist list.
-type gistSortBy =
-  | SortByName
-  | SortByModified
-  | SortByLanguage
-  | SortByRunCount
-
-/// Minskian diachronic checkpoint — time-based state snapshot for rollback.
-/// Named after Minsky's Society of Mind: scripts capture temporal sequences.
-type diachronicCheckpoint = {
-  /// Checkpoint index (sequential).
-  index: int,
-  /// Timestamp of snapshot (Unix ms).
-  timestamp: float,
-  /// Label for this checkpoint (auto-generated or user-provided).
-  label: string,
-  /// Serialised gist state at this point in time.
-  snapshot: string,
-}
-
-/// Minskian synchronic cardfile — space-based composition of gists.
-/// Named after Minsky's K-lines: schemata capture structural arrangements.
-/// A cardfile is an ordered collection of gist references that together form
-/// a composable workspace — like index cards pinned to a board.
-type synchronicCardfile = {
-  /// Unique cardfile identifier.
-  id: string,
-  /// Human-readable name.
-  name: string,
-  /// Description of what this cardfile represents.
-  description: string,
-  /// Ordered list of gist IDs in this cardfile.
-  gistIds: array<string>,
-  /// When the cardfile was created (Unix ms).
-  createdAt: float,
-  /// When the cardfile was last modified (Unix ms).
-  modifiedAt: float,
-  /// Tags for categorisation.
-  tags: array<string>,
-}
-
-/// State of the Script Gist subsystem.
-type scriptGistState = {
-  /// All gists in the workspace.
-  gists: array<scriptGist>,
-  /// Available templates for quick creation.
-  templates: array<gistTemplate>,
-  /// Currently selected gist (for editing/viewing).
-  selectedGistId: option<string>,
-  /// Active category tab.
-  activeCategory: gistCategory,
-  /// Search/filter text.
-  filterText: string,
-  /// Sort order.
-  sortBy: gistSortBy,
-  /// Whether the gist editor is open.
-  editorOpen: bool,
-  /// Whether a gist is currently executing.
-  executing: bool,
-  /// Last execution result (for the status bar).
-  lastResult: option<gistResult>,
-  /// Error from save/load operations.
-  error: option<string>,
-  /// Whether the MCP tool registry is active (advertising gists as tools).
-  mcpToolsActive: bool,
-  /// Diachronic checkpoints — time-based rollback stack (Minskian scripts).
-  diachronicHistory: array<diachronicCheckpoint>,
-  /// Synchronic cardfiles — space-based gist compositions (Minskian schemata).
-  cardfiles: array<synchronicCardfile>,
-  /// Currently selected cardfile for editing.
-  selectedCardfileId: option<string>,
-}
diff --git a/src/model/ScriptingBridgeModel.affine b/src/model/ScriptingBridgeModel.affine
new file mode 100644
index 00000000..50e0b5b6
--- /dev/null
+++ b/src/model/ScriptingBridgeModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ScriptingBridgeModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/ScriptingBridgeModel.res b/src/model/ScriptingBridgeModel.res
deleted file mode 100644
index 22a1d690..00000000
--- a/src/model/ScriptingBridgeModel.res
+++ /dev/null
@@ -1,150 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Scripting Bridge Model — connects VM scripting to IDApTIK game
-/// development. Bridges PanLL's VM inspector with a scripting REPL,
-/// instruction constraint verification, and script analysis reasoning.
-///
-/// Three-panel model (L/N/W):
-///   L: VM instruction constraints, opcode rules, tier restrictions
-///   N: Script analysis reasoning about correctness and performance
-///   W: VM scripting REPL with saved scripts and execution history
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-// ============================================================================
-// Tab Navigation
-// ============================================================================
-
-/// Category tabs for the Scripting Bridge panel.
-type scriptingBridgeTab =
-  /// Repl — interactive VM scripting REPL.
-  | Repl
-  /// Instructions — browse VM instruction set with constraints.
-  | Instructions
-  /// Scripts — manage saved scripts.
-  | Scripts
-  /// Analysis — script analysis reasoning and optimisation.
-  | Analysis
-
-// ============================================================================
-// REPL Domain
-// ============================================================================
-
-/// A single REPL interaction (input and output pair).
-type scriptReplEntry = {
-  /// The script input entered by the user.
-  input: string,
-  /// The output produced by the VM.
-  output: string,
-  /// Timestamp when this entry was executed (milliseconds since epoch).
-  timestamp: float,
-  /// Whether execution succeeded without error.
-  success: bool,
-}
-
-// ============================================================================
-// VM Instruction Set
-// ============================================================================
-
-/// Instruction tier — categorises opcodes by privilege level.
-/// Higher tiers require explicit authorisation in the game scripting sandbox.
-type instructionTier =
-  /// Tier 0 — safe, pure computation (arithmetic, comparisons).
-  | TierSafe
-  /// Tier 1 — controlled side effects (game state reads).
-  | TierControlled
-  /// Tier 2 — privileged operations (game state writes, spawning).
-  | TierPrivileged
-  /// Tier 3 — system-level operations (file I/O, network, debug).
-  | TierSystem
-
-/// A VM instruction (opcode) with its metadata and constraints.
-type instruction = {
-  /// Numeric opcode value.
-  opcode: int,
-  /// Mnemonic name (e.g., "PUSH", "CALL", "SPAWN_ENTITY").
-  name: string,
-  /// Human-readable description of what this instruction does.
-  description: string,
-  /// Privilege tier of this instruction.
-  tier: instructionTier,
-  /// Stack effect notation (e.g., "( a b -- a+b )").
-  stackEffect: string,
-  /// Whether this instruction is allowed in the current sandbox context.
-  allowed: bool,
-}
-
-// ============================================================================
-// Saved Scripts
-// ============================================================================
-
-/// A saved VM script stored for reuse.
-type savedScript = {
-  /// Unique script identifier.
-  id: string,
-  /// Human-readable script name.
-  name: string,
-  /// The script source code.
-  code: string,
-  /// Timestamp when the script was created (milliseconds since epoch).
-  createdAt: float,
-  /// Timestamp of last modification (milliseconds since epoch).
-  updatedAt: float,
-  /// Brief description of the script's purpose.
-  description: string,
-}
-
-// ============================================================================
-// Script Analysis
-// ============================================================================
-
-/// Severity of a script analysis finding.
-type analysisSeverity =
-  /// Error — script will not execute correctly.
-  | AnalysisError
-  /// Warning — script may have unintended behaviour.
-  | AnalysisWarning
-  /// Info — informational suggestion for improvement.
-  | AnalysisInfo
-  /// Optimisation — performance improvement opportunity.
-  | AnalysisOptimisation
-
-/// A finding from script analysis reasoning.
-type analysisFinding = {
-  /// Unique finding identifier.
-  id: string,
-  /// Line number in the script (1-based).
-  line: int,
-  /// Severity of this finding.
-  severity: analysisSeverity,
-  /// Short summary of the finding.
-  summary: string,
-  /// Detailed explanation and suggested fix.
-  detail: string,
-}
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Root state for the Scripting Bridge panel.
-type scriptingBridgeState = {
-  /// Active tab within the Scripting Bridge panel.
-  activeTab: scriptingBridgeTab,
-  /// REPL interaction history (oldest first).
-  replHistory: array<scriptReplEntry>,
-  /// VM instruction set catalogue.
-  instructions: array<instruction>,
-  /// Saved scripts library.
-  savedScripts: array<savedScript>,
-  /// Currently selected script for editing or execution.
-  selectedScript: option<string>,
-  /// Whether a script is currently executing.
-  executing: bool,
-  /// Current REPL input buffer.
-  replInput: string,
-  /// Analysis findings for the current script.
-  analysisFindings: array<analysisFinding>,
-  /// Error from the last operation.
-  error: option<string>,
-}
diff --git a/src/model/SecurityModel.affine b/src/model/SecurityModel.affine
new file mode 100644
index 00000000..56e52cd8
--- /dev/null
+++ b/src/model/SecurityModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module SecurityModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/SecurityModel.res b/src/model/SecurityModel.res
deleted file mode 100644
index ee2b84b9..00000000
--- a/src/model/SecurityModel.res
+++ /dev/null
@@ -1,174 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Security Model — types for secrets redaction, vault integration,
-/// 2FA authentication, and Trustfile enforcement (DD-026, DD-027).
-///
-/// The security layer handles:
-/// - Secret detection and redaction (on share, save, display)
-/// - Vault integration via reasonably-good-tool CLI
-/// - TOTP-based 2FA for sensitive operations
-/// - Trustfile.a2ml-driven security policy enforcement
-/// - Shoulder-surfing safe mode
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-// ============================================================================
-// Redaction
-// ============================================================================
-
-/// When to apply secret redaction.
-type redactionMode =
-  | RedactOnShare
-  | RedactOnSave
-  | RedactOnDisplay
-  | RedactAlways
-
-/// A pattern used to detect secrets in panel content.
-type redactionPattern = {
-  /// Unique identifier.
-  id: string,
-  /// Human-readable label (e.g., "API Key", "Password", "Private Key").
-  label: string,
-  /// Regular expression pattern string.
-  pattern: string,
-  /// Whether this pattern is enabled.
-  enabled: bool,
-  /// Whether this is a built-in pattern (vs user-defined).
-  builtIn: bool,
-}
-
-/// A detected secret in panel content.
-type detectedSecret = {
-  /// Which pattern matched.
-  patternId: string,
-  /// The panel where the secret was found.
-  panelId: string,
-  /// Character offset in the panel content.
-  offset: int,
-  /// Length of the matched secret.
-  length: int,
-  /// Redacted placeholder text (e.g., "[REDACTED:api-key]").
-  placeholder: string,
-}
-
-// ============================================================================
-// Vault
-// ============================================================================
-
-/// Status of the vault connection (reasonably-good-tool CLI).
-type vaultStatus =
-  | VaultLocked
-  | VaultUnlocked
-  | VaultUnavailable
-  | VaultError(string)
-
-/// A vault entry (key only — values are never stored in frontend state).
-type vaultKey = {
-  /// The secret key name.
-  key: string,
-  /// Human-readable description.
-  description: string,
-  /// When this key was last updated.
-  lastUpdated: float,
-}
-
-// ============================================================================
-// 2FA Authentication
-// ============================================================================
-
-/// Status of the 2FA session.
-type twoFactorStatus =
-  | TwoFactorNotConfigured
-  | TwoFactorConfigured
-  | TwoFactorAuthenticated(float) // authenticated until timestamp
-  | TwoFactorExpired
-
-/// Which operations require 2FA (configured via Trustfile).
-type twoFactorRequirement = {
-  /// Operation name (e.g., "vault-access", "panel-sharing", "export").
-  operation: string,
-  /// Whether 2FA is required for this operation.
-  required: bool,
-}
-
-// ============================================================================
-// Trustfile
-// ============================================================================
-
-/// Security level defined in the Trustfile.
-type securityLevel =
-  | SecurityLow
-  | SecurityMedium
-  | SecurityHigh
-  | SecurityMaximum
-
-/// Sharing permission level.
-type sharingPermission =
-  | ViewOnly
-  | EditWithApproval
-  | FullEdit
-
-/// Parsed Trustfile policy. This drives the entire security enforcement layer.
-type trustfilePolicy = {
-  /// Security level from the Trustfile.
-  securityLevel: securityLevel,
-  /// Redaction mode.
-  redactionMode: redactionMode,
-  /// Custom redaction patterns from the Trustfile.
-  customPatterns: array<redactionPattern>,
-  /// 2FA requirements per operation.
-  twoFactorRequirements: array<twoFactorRequirement>,
-  /// Default sharing permission.
-  defaultSharingPermission: sharingPermission,
-  /// Whether sharing requires approval.
-  requireApproval: bool,
-  /// Whether the Trustfile was successfully loaded.
-  loaded: bool,
-  /// Path to the loaded Trustfile.
-  filePath: option<string>,
-}
-
-// ============================================================================
-// Security State
-// ============================================================================
-
-/// Active category tab in the Security panel.
-type securityCategory =
-  | SecurityOverview
-  | SecurityRedaction
-  | SecurityVault
-  | SecurityAuth
-  | SecurityTrustfile
-  | SecurityShoulderSafe
-
-/// Root state for the security system.
-type securityState = {
-  /// Redaction patterns (built-in + custom).
-  patterns: array<redactionPattern>,
-  /// Currently detected secrets across all panels.
-  detectedSecrets: array<detectedSecret>,
-  /// Active redaction mode.
-  redactionMode: redactionMode,
-  /// Vault connection status.
-  vaultStatus: vaultStatus,
-  /// Known vault keys (names only, not values).
-  vaultKeys: array<vaultKey>,
-  /// 2FA session status.
-  twoFactorStatus: twoFactorStatus,
-  /// 2FA session timeout in seconds (default: 3600 = 1 hour).
-  twoFactorTimeout: int,
-  /// Loaded Trustfile policy (if any).
-  trustfile: option<trustfilePolicy>,
-  /// Whether shoulder-surfing safe mode is active (blurs secrets in real-time).
-  shoulderSafe: bool,
-  /// Active category tab.
-  activeCategory: securityCategory,
-  /// 2FA TOTP input field.
-  totpInput: string,
-  /// Error from the last security operation.
-  error: option<string>,
-  /// New custom pattern form: label input.
-  newPatternLabel: string,
-  /// New custom pattern form: regex input.
-  newPatternRegex: string,
-}
diff --git a/src/model/ServiceModel.affine b/src/model/ServiceModel.affine
new file mode 100644
index 00000000..c72e798e
--- /dev/null
+++ b/src/model/ServiceModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ServiceModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/ServiceModel.res b/src/model/ServiceModel.res
deleted file mode 100644
index 53b5cc1a..00000000
--- a/src/model/ServiceModel.res
+++ /dev/null
@@ -1,40 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// ServiceModel — Types for the PanLL service registry.
-///
-/// Tracks connection state, URLs, and health for all backend services
-/// (VeriSimDB, ECHIDNA, Burble, BoJ, TypeLL). The service registry is
-/// the source of truth for which services are reachable and at what URLs.
-///
-/// Part of Connected Workbench v0.2.0 — provides the foundation for
-/// service switching, identity state capture, and the Settings panel.
-
-/// Current status of a backend service.
-type serviceStatus =
-  | Running
-  | Stopped
-  | Checking
-  | Error(string)
-
-/// A registered backend service with its URL and current status.
-type serviceEntry = {
-  /// Human-readable service name (e.g. "VeriSimDB").
-  name: string,
-  /// Base URL including protocol and port (e.g. "http://localhost:8080").
-  url: string,
-  /// Path to probe for health (e.g. "/health").
-  healthPath: string,
-  /// Current connection status.
-  status: serviceStatus,
-}
-
-/// Full state of the service registry.
-type serviceRegistryState = {
-  /// All registered services, keyed by identifier (e.g. "verisim").
-  services: Dict.t<serviceEntry>,
-  /// Timestamp of last full health check (milliseconds since epoch).
-  lastChecked: option<float>,
-  /// Whether a full registry refresh is currently in progress.
-  isRefreshing: bool,
-}
diff --git a/src/model/SettingsModel.affine b/src/model/SettingsModel.affine
new file mode 100644
index 00000000..20fa34ac
--- /dev/null
+++ b/src/model/SettingsModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module SettingsModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/SettingsModel.res b/src/model/SettingsModel.res
deleted file mode 100644
index 5b3479bf..00000000
--- a/src/model/SettingsModel.res
+++ /dev/null
@@ -1,37 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// SettingsModel — Types for PanLL user configuration.
-///
-/// Captures service URLs, paths, theme, and preferences. Backed by
-/// `~/.panll/config.json` with optional VeriSimDB sync.
-///
-/// Part of Connected Workbench v0.2.0.
-
-/// PanLL user settings — mirrors the Rust `PanllSettings` struct.
-type settingsState = {
-  /// VeriSimDB base URL.
-  verisimdbUrl: string,
-  /// ECHIDNA theorem prover base URL.
-  echidnaUrl: string,
-  /// Burble voice server base URL.
-  burbleUrl: string,
-  /// BoJ cartridge server base URL.
-  bojUrl: string,
-  /// TypeLL type verification kernel base URL.
-  typellUrl: string,
-  /// PanLL configuration directory path.
-  configDir: string,
-  /// UI theme name.
-  theme: string,
-  /// Auto-save interval in milliseconds.
-  autoSaveIntervalMs: int,
-  /// Whether to auto-connect to services on startup.
-  autoConnectServices: bool,
-  /// Whether settings are being loaded from backend.
-  isLoading: bool,
-  /// Error message from last settings operation.
-  error: option<string>,
-  /// Whether settings have unsaved changes.
-  isDirty: bool,
-}
diff --git a/src/model/SoakMonitorModel.affine b/src/model/SoakMonitorModel.affine
new file mode 100644
index 00000000..a4ce7661
--- /dev/null
+++ b/src/model/SoakMonitorModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module SoakMonitorModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/SoakMonitorModel.res b/src/model/SoakMonitorModel.res
deleted file mode 100644
index 1970d331..00000000
--- a/src/model/SoakMonitorModel.res
+++ /dev/null
@@ -1,129 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Soak Monitor Model — long-running session tracking, memory leak
-/// detection, and trend analysis for IDApTIK extended play sessions.
-///
-/// Runs overnight or over many hours, sampling memory usage, GC activity,
-/// and resource consumption. Flags monotonic growth patterns as potential
-/// leaks and attributes them to likely sources.
-///
-/// Clade: Inspector. This module has NO dependencies on other PanLL modules.
-
-// ============================================================================
-// Memory Trend Data
-// ============================================================================
-
-/// A single memory trend data point sampled at a fixed interval.
-type memoryTrendPoint = {
-  /// Timestamp in epoch milliseconds.
-  timestamp: float,
-  /// Bytes currently used on the JS heap.
-  heapUsedBytes: int,
-  /// Total JS heap size (allocated by V8).
-  heapTotalBytes: int,
-  /// Number of GC cycles since last sample.
-  gcCount: int,
-  /// Total GC pause time since last sample in milliseconds.
-  gcPauseMs: float,
-}
-
-// ============================================================================
-// Leak Detection
-// ============================================================================
-
-/// A suspected memory leak identified by monotonic growth analysis.
-type leakSuspect = {
-  /// Human-readable source attribution (e.g., "PixiJS texture cache").
-  source: string,
-  /// Estimated growth rate in bytes per hour.
-  growthRatePerHour: int,
-  /// Confidence score (0.0 to 1.0) that this is a genuine leak.
-  confidence: float,
-  /// Timestamp when this leak was first detected.
-  firstSeen: float,
-  /// Number of data points contributing to this detection.
-  samples: int,
-}
-
-/// Leak severity classification based on growth rate and duration.
-type leakSeverity =
-  /// Negligible — growth under 1 MB/hour, likely allocation noise.
-  | LeakNegligible
-  /// Moderate — growth 1-10 MB/hour, will exhaust memory in long sessions.
-  | LeakModerate
-  /// Severe — growth over 10 MB/hour, requires immediate investigation.
-  | LeakSevere
-
-// ============================================================================
-// Soak Sessions
-// ============================================================================
-
-/// Session execution status.
-type soakSessionStatus =
-  /// Session is actively running and collecting samples.
-  | SoakRunning
-  /// Session completed its configured duration.
-  | SoakCompleted
-  /// Session was manually aborted (payload is reason).
-  | SoakAborted(string)
-
-/// Summary record for a soak test session.
-type soakSession = {
-  /// Unique session identifier.
-  id: string,
-  /// Epoch timestamp when the session started.
-  startedAt: float,
-  /// Epoch timestamp when the session ended (None if still running).
-  endedAt: option<float>,
-  /// Total session duration in minutes.
-  durationMinutes: float,
-  /// Peak heap usage observed during the session in bytes.
-  peakMemoryBytes: int,
-  /// Memory leak suspects detected during this session.
-  leakSuspects: array<leakSuspect>,
-  /// Average GC frequency during the session (cycles per minute).
-  gcFrequencyPerMinute: float,
-  /// Session execution status.
-  status: soakSessionStatus,
-}
-
-// ============================================================================
-// Tab Navigation
-// ============================================================================
-
-/// Active tab within the Soak Monitor panel.
-type soakTab =
-  /// Live Monitor — real-time memory usage gauge and trend line.
-  | TabLiveMonitor
-  /// Trends — historical memory trend charts with regression lines.
-  | TabTrends
-  /// Leak Detection — suspected leak list with confidence scores.
-  | TabLeakDetection
-  /// History — past soak session summaries with comparison.
-  | TabHistory
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Root state for the Soak Monitor panel.
-type soakMonitorState = {
-  /// Active tab within the panel.
-  activeTab: soakTab,
-  /// Currently running soak session (None if idle).
-  currentSession: option<soakSession>,
-  /// Memory trend data points for the current session.
-  trendData: array<memoryTrendPoint>,
-  /// Currently detected leak suspects.
-  leakSuspects: array<leakSuspect>,
-  /// Historical soak session records.
-  sessions: array<soakSession>,
-  /// Whether monitoring is actively sampling.
-  monitoring: bool,
-  /// Sampling interval in milliseconds (default 5000 = 5 seconds).
-  sampleIntervalMs: int,
-  /// Threshold in bytes above which growth is flagged as a leak (default 1 MB).
-  leakThresholdBytes: int,
-  /// Error from the last operation.
-  error: option<string>,
-}
diff --git a/src/model/SpecBrowserModel.affine b/src/model/SpecBrowserModel.affine
new file mode 100644
index 00000000..9710f2a1
--- /dev/null
+++ b/src/model/SpecBrowserModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module SpecBrowserModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/SpecBrowserModel.res b/src/model/SpecBrowserModel.res
deleted file mode 100644
index 796bb753..00000000
--- a/src/model/SpecBrowserModel.res
+++ /dev/null
@@ -1,149 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL SpecBrowser Model — leaf types for browsing language specifications.
-///
-/// Tracks all 16 language/query projects in nextgen-languages, showing their
-/// grammar definitions (EBNF), typing rules (SPEC.core.scm), taxonomy
-/// completeness, and verification status. Supports side-by-side comparison
-/// of any two languages.
-///
-/// Dependency: none (leaf module in the type DAG).
-
-/// Which standard file is being viewed or checked for existence.
-type specFileKind =
-  /// Grammar definition in Extended Backus-Naur Form.
-  | GrammarEbnf
-  /// Core specification in Scheme format.
-  | SpecCoreScm
-  /// Typing rules definition.
-  | TypingRules
-  /// Operational semantics.
-  | OperationalSemantics
-  /// Denotational semantics.
-  | DenotationalSemantics
-  /// Test suite (conformance tests).
-  | ConformanceTests
-  /// Benchmark suite.
-  | Benchmarks
-  /// Proof artefacts (Idris2/Coq/Lean).
-  | ProofArtefacts
-
-/// Existence status for a standard file in a language project.
-type filePresence = {
-  /// Which file kind.
-  kind: specFileKind,
-  /// Whether the file exists.
-  exists: bool,
-  /// Line count if the file exists, 0 otherwise.
-  lineCount: int,
-  /// Relative path within the language project.
-  path: string,
-}
-
-/// Verification status summary for a language project.
-type verificationSummary = {
-  /// Total number of tests.
-  totalTests: int,
-  /// Number of passing tests.
-  passingTests: int,
-  /// Number of admitted/sorry proofs (formal verification debt).
-  admittedCount: int,
-  /// Number of fully discharged proofs.
-  provedCount: int,
-  /// Whether fuzzing coverage exists.
-  hasFuzzing: bool,
-  /// Whether conformance suite exists and passes.
-  conformancePassing: bool,
-}
-
-/// A language project entry for the SpecBrowser.
-type specLanguageEntry = {
-  /// Language name (e.g., "AffineScript", "Eclexia").
-  name: string,
-  /// Short description of the language.
-  description: string,
-  /// Implementation language (e.g., "OCaml", "Rust").
-  implLang: string,
-  /// Standard file presence inventory.
-  files: array<filePresence>,
-  /// Grammar content (loaded on demand).
-  grammarContent: option<string>,
-  /// Spec content (loaded on demand).
-  specContent: option<string>,
-  /// Typing rules content (loaded on demand).
-  typingRulesContent: option<string>,
-  /// Verification summary.
-  verification: verificationSummary,
-  /// Taxonomy completeness percentage (0-100).
-  taxonomyCompleteness: int,
-}
-
-/// Category tabs for the SpecBrowser panel.
-type specBrowserCategory =
-  /// Overview grid showing all languages and their taxonomy completeness.
-  | SpecOverview
-  /// Side-by-side comparison of two selected languages.
-  | SpecComparison
-  /// Grammar viewer for a single language.
-  | SpecGrammar
-  /// Typing rules viewer for a single language.
-  | SpecTypingRules
-  /// Verification status across all languages.
-  | SpecVerification
-
-/// Which content pane in the comparison view.
-type comparisonSide =
-  | LeftSide
-  | RightSide
-
-/// Root state for the SpecBrowser panel module.
-type specBrowserState = {
-  /// Whether language spec data has been loaded.
-  loaded: bool,
-  /// Loading indicator for async operations.
-  loading: bool,
-  /// Last error message, if any.
-  error: option<string>,
-  /// Full inventory of language specifications.
-  languages: array<specLanguageEntry>,
-  /// Active category tab.
-  activeCategory: specBrowserCategory,
-  /// Currently selected language for detail/grammar/typing views.
-  selectedLanguage: option<string>,
-  /// Left-side language for comparison view.
-  comparisonLeft: option<string>,
-  /// Right-side language for comparison view.
-  comparisonRight: option<string>,
-  /// Text filter for language name search.
-  filterText: string,
-  /// Whether to show only languages with missing files.
-  showIncompleteOnly: bool,
-}
-
-/// Aggregate statistics across the language portfolio.
-type portfolioStats = {
-  /// Total number of languages tracked.
-  totalLanguages: int,
-  /// Average taxonomy completeness percentage.
-  avgCompleteness: int,
-  /// Number of languages at 100% completeness.
-  fullySpecified: int,
-  /// Total tests across all languages.
-  totalTests: int,
-  /// Total admitted/sorry proofs across all languages.
-  totalAdmitted: int,
-}
-
-/// Initial state — empty inventory, ready to load.
-let initial: specBrowserState = {
-  loaded: false,
-  loading: false,
-  error: None,
-  languages: [],
-  activeCategory: SpecOverview,
-  selectedLanguage: None,
-  comparisonLeft: None,
-  comparisonRight: None,
-  filterText: "",
-  showIncompleteOnly: false,
-}
diff --git a/src/model/StapelnModel.affine b/src/model/StapelnModel.affine
new file mode 100644
index 00000000..aee76f57
--- /dev/null
+++ b/src/model/StapelnModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module StapelnModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/StapelnModel.res b/src/model/StapelnModel.res
deleted file mode 100644
index d29bf0a9..00000000
--- a/src/model/StapelnModel.res
+++ /dev/null
@@ -1,199 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Stapeln Model Types — Container stack assembly and orchestration.
-///
-/// State types for the Stapeln container assembly pipeline panel. Stapeln is
-/// the hyperpolymath container ecosystem (Podman-based, Chainguard images,
-/// Containerfile-native) and this panel provides PanLL's view into container
-/// stack assembly: constraints, validation, artifact generation, and deploy
-/// readiness.
-///
-/// Three-panel model:
-///   Panel-L -> Security and resource constraints (SLSA, SBOM, signatures,
-///              base image policy, network policy, resource limits)
-///   Panel-N -> Assembly reasoning (pipeline state, optimisation suggestions,
-///              security posture, dependency resolution, auto-layout)
-///   Panel-W -> Generated artifacts (Containerfile preview, compose preview,
-///              scan results, gap analysis, deploy readiness, export actions)
-///
-/// This module has NO dependencies on other PanLL modules — leaf of the
-/// type dependency graph, following the same pattern as VabModel.
-
-// ============================================================================
-// Security Constraints — Panel-L configuration for supply chain policy
-// ============================================================================
-
-/// SLSA (Supply-chain Levels for Software Artifacts) compliance level.
-/// Determines how strict the build provenance and attestation requirements are.
-type slsaLevel =
-  | SlsaNone // No SLSA requirements
-  | Slsa1 // Documentation of the build process
-  | Slsa2 // Hosted build platform, signed provenance
-  | Slsa3 // Hardened builds, non-falsifiable provenance
-  | Slsa4 // Two-party review, hermetic/reproducible builds
-
-/// Signature requirement for container images.
-type signaturePolicy =
-  | NoSignature // No signature required
-  | Cosign // Sigstore cosign signature
-  | Notary // Docker Content Trust / Notary v2
-  | CerroTorre // cerro-torre sign (hyperpolymath tooling)
-
-/// SBOM (Software Bill of Materials) format requirement.
-type sbomFormat =
-  | SbomNone // No SBOM required
-  | Spdx // SPDX JSON/TV format
-  | CycloneDx // CycloneDX JSON/XML format
-  | SbomBoth // Both SPDX and CycloneDX
-
-/// Network protocol allowed in container network policies.
-type networkProtocol =
-  | Tcp
-  | Udp
-  | Sctp
-
-/// A single network policy rule (port + protocol allow/deny).
-type networkPolicyRule = {
-  port: int,
-  protocol: networkProtocol,
-  direction: string, // "ingress" | "egress"
-  description: string,
-}
-
-/// A single base image registry constraint.
-type registryConstraint = {
-  registry: string, // e.g. "cgr.dev/chainguard", "docker.io"
-  allowed: bool, // true = allowed, false = denied
-}
-
-/// The full set of assembly constraints visible in Panel-L.
-type stapelnConstraints = {
-  minSlsaLevel: slsaLevel,
-  signaturePolicy: signaturePolicy,
-  sbomFormat: sbomFormat,
-  maxImageSizeMb: int,
-  memoryLimitMb: int,
-  cpuLimit: float, // CPU cores (e.g. 2.0)
-  networkRules: array<networkPolicyRule>,
-  registryConstraints: array<registryConstraint>,
-  deniedImages: array<string>, // Specific image:tag patterns to deny
-  requireHealthcheck: bool,
-  requireNonRoot: bool,
-}
-
-// ============================================================================
-// Pipeline Status — Panel-N reasoning state
-// ============================================================================
-
-/// Overall pipeline health indicator.
-type pipelineHealth =
-  | PipelineHealthy // All checks passing
-  | PipelineWarning // Non-blocking issues detected
-  | PipelineFailing // Blocking issues present
-  | PipelineUnknown // Status not yet determined
-
-/// A single optimisation suggestion from the reasoning engine.
-type optimisationSuggestion = {
-  id: string,
-  severity: string, // "info" | "warning" | "critical"
-  category: string, // "size" | "security" | "performance" | "compliance"
-  message: string,
-  autoFixAvailable: bool,
-}
-
-/// Dependency resolution status for a single dependency.
-type depResolutionStatus =
-  | DepResolved(string) // Resolved to version
-  | DepUnresolved(string) // Cannot resolve (reason)
-  | DepConflict(string) // Version conflict (details)
-
-/// Security posture summary from the reasoning engine.
-type securityPosture = {
-  score: float, // 0.0 - 1.0
-  slsaCompliant: bool,
-  sbomPresent: bool,
-  signatureValid: bool,
-  vulnerabilities: int, // Known CVE count
-  criticalVulns: int, // Critical/High CVE count
-}
-
-/// Pipeline status as reported by the stapeln backend.
-type pipelineStatus = {
-  health: pipelineHealth,
-  nodeCount: int,
-  connectionCount: int,
-  validationPassing: bool,
-  suggestions: array<optimisationSuggestion>,
-  securityPosture: securityPosture,
-  dependencies: array<(string, depResolutionStatus)>,
-  lastUpdated: float, // Timestamp
-}
-
-// ============================================================================
-// Validation Summary — shared between Panel-N reasoning and Panel-W results
-// ============================================================================
-
-/// A single validation finding (error, warning, or info).
-type validationFinding = {
-  id: string,
-  level: string, // "error" | "warning" | "info"
-  rule: string, // Rule identifier (e.g. "DL3006", "SC2086")
-  message: string,
-  line: option<int>, // Line number in Containerfile (if applicable)
-  autoFixAvailable: bool,
-}
-
-/// Summary of all validation results for the current assembly.
-type validationSummary = {
-  passed: bool,
-  errorCount: int,
-  warningCount: int,
-  infoCount: int,
-  findings: array<validationFinding>,
-  scanTimestamp: float,
-}
-
-// ============================================================================
-// Artifact Formats — Panel-W output options
-// ============================================================================
-
-/// Output format for generated container artifacts.
-type artifactFormat =
-  | FormatContainerfile // Single Containerfile
-  | FormatCompose // compose.yaml (Podman Compose / docker-compose)
-  | FormatKubernetes // Kubernetes manifests (Pod, Deployment, Service)
-  | FormatQuadlet // Systemd Quadlet (.container, .kube)
-
-// ============================================================================
-// Stapeln Panel State — the top-level state record
-// ============================================================================
-
-/// Available container components in the stapeln stack catalog.
-type stapelnComponent = {
-  id: string,
-  name: string,
-  baseImage: string, // e.g. "cgr.dev/chainguard/wolfi-base:latest"
-  description: string,
-  tags: array<string>, // e.g. ["runtime", "build", "security"]
-  sizeEstimateMb: int,
-}
-
-/// The complete Stapeln panel state, stored as a sub-record in the main model.
-type stapelnState = {
-  // Connection
-  pipelineUrl: string, // URL to stapeln backend API
-  connected: bool, // Whether backend is reachable
-  // Panel-L: Constraints
-  constraints: stapelnConstraints,
-  // Panel-N: Assembly reasoning
-  pipelineStatus: option<pipelineStatus>,
-  catalog: array<stapelnComponent>, // Available components from stack
-  // Panel-W: Results and artifacts
-  lastValidation: option<validationSummary>,
-  generatedArtifact: option<string>, // Generated artifact content (preview)
-  selectedFormat: artifactFormat, // Which format to generate
-  // UI state
-  activeTab: string, // "constraints" | "reasoning" | "results"
-  loading: bool,
-  error: option<string>,
-}
diff --git a/src/model/StatusBarModel.affine b/src/model/StatusBarModel.affine
new file mode 100644
index 00000000..fc7a35a0
--- /dev/null
+++ b/src/model/StatusBarModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module StatusBarModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/StatusBarModel.res b/src/model/StatusBarModel.res
deleted file mode 100644
index 2987a49d..00000000
--- a/src/model/StatusBarModel.res
+++ /dev/null
@@ -1,81 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Status Bar Model — types for configurable status bar widgets (DD-025).
-///
-/// The status bar system renders a VS Code-style bar at the bottom of the window
-/// (and optionally per-panel bars on panel edges). Widgets are configurable:
-/// users drag-and-drop them into position via the Workspace panel's configurator.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// Position of a widget within the status bar.
-type widgetPosition =
-  | Left
-  | Center
-  | Right
-
-/// Built-in widget types that the status bar can display.
-type widgetKind =
-  | ActiveAgents
-  | TaskProgress
-  | CpuUsage
-  | MemoryUsage
-  | DiskUsage
-  | RepoInfo
-  | ProviderStatus
-  | WatcherRate
-  | SessionUptime
-  | ActivePanel
-  | WorkspaceMode
-  | SessionProtection
-  | ExecutionMode
-  | UndoRedoStatus
-  | CustomWidget(string)
-
-/// A single status bar widget configuration.
-type statusWidget = {
-  /// Unique identifier for this widget instance.
-  id: string,
-  /// Display label (shown in the bar).
-  label: string,
-  /// Widget kind determines what data is displayed.
-  kind: widgetKind,
-  /// Position in the status bar (Left, Center, Right).
-  position: widgetPosition,
-  /// Whether this widget is currently visible.
-  visible: bool,
-  /// Refresh rate in milliseconds (0 = event-driven only).
-  refreshRate: int,
-  /// Order within the position group (lower = further left).
-  order: int,
-}
-
-/// System information snapshot received from the Rust backend.
-type systemInfo = {
-  /// CPU usage as a percentage (0.0–100.0).
-  cpuUsage: float,
-  /// Total physical memory in bytes.
-  memoryTotal: float,
-  /// Used physical memory in bytes.
-  memoryUsed: float,
-  /// Total disk space in bytes.
-  diskTotal: float,
-  /// Used disk space in bytes.
-  diskUsed: float,
-  /// System uptime in seconds.
-  uptimeSeconds: float,
-}
-
-/// Root state for the status bar system.
-type statusBarState = {
-  /// Configured widgets for the global status bar.
-  widgets: array<statusWidget>,
-  /// Whether the global status bar is visible.
-  visible: bool,
-  /// Latest system info snapshot from the backend.
-  systemInfo: option<systemInfo>,
-  /// Whether per-panel status bars are enabled.
-  perPanelBars: bool,
-  /// The widget currently being dragged (for reordering).
-  draggingWidget: option<string>,
-}
diff --git a/src/model/SystemUpdateModel.affine b/src/model/SystemUpdateModel.affine
new file mode 100644
index 00000000..18c1ef71
--- /dev/null
+++ b/src/model/SystemUpdateModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module SystemUpdateModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/SystemUpdateModel.res b/src/model/SystemUpdateModel.res
deleted file mode 100644
index 48d6ef67..00000000
--- a/src/model/SystemUpdateModel.res
+++ /dev/null
@@ -1,32 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// System Update model state — tracks component list, update summary,
-/// loading state, and log visibility.
-
-type systemUpdateState = {
-  components: array<SystemUpdateModule.component>,
-  summary: SystemUpdateModule.updateSummary,
-  loading: bool,
-  showLogs: bool,
-  logs: array<{"timestamp": string, "summary": string}>,
-  lastSummaryText: string,
-  error: option<string>,
-}
-
-/// Initial state for the system update panel.
-let init: systemUpdateState = {
-  components: [],
-  summary: {
-    totalComponents: 0,
-    upToDate: 0,
-    updatesAvailable: 0,
-    updating: 0,
-    failed: 0,
-    lastFullUpdate: None,
-  },
-  loading: false,
-  showLogs: false,
-  logs: [],
-  lastSummaryText: "",
-  error: None,
-}
diff --git a/src/model/TangleVizModel.affine b/src/model/TangleVizModel.affine
new file mode 100644
index 00000000..6b145ce9
--- /dev/null
+++ b/src/model/TangleVizModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TangleVizModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/TangleVizModel.res b/src/model/TangleVizModel.res
deleted file mode 100644
index ca3f5341..00000000
--- a/src/model/TangleVizModel.res
+++ /dev/null
@@ -1,71 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL TangleViz Model — leaf types for the topological programming visualizer.
-///
-/// State for visualizing knot/braid topology from the Tangle programming language.
-/// Supports braid word manipulation, knot invariant computation, and SVG rendering
-/// of braid diagrams with over/under crossings.
-///
-/// Dependency: none (leaf module in the type DAG).
-
-/// A single generator in a braid word — σᵢ or σᵢ⁻¹.
-/// Positive exponent = over-crossing, negative = under-crossing.
-type braidGenerator = {
-  /// Generator index (1-based: σ₁, σ₂, etc.).
-  index: int,
-  /// Exponent (+1 for positive crossing, -1 for inverse).
-  exponent: int,
-}
-
-/// View mode for the topology visualizer.
-type tangleViewMode =
-  /// Horizontal braid diagram with strand crossings.
-  | BraidDiagram
-  /// Closed knot/link diagram (braid closure).
-  | KnotDiagram
-  /// Algebraic braid word notation.
-  | AlgebraicView
-
-/// Knot/link invariant that can be computed.
-type knotInvariant =
-  /// Jones polynomial V(t).
-  | Jones
-  /// Alexander polynomial Delta(t).
-  | Alexander
-  /// HOMFLY-PT polynomial P(a,z).
-  | Homfly
-  /// Kauffman bracket polynomial.
-  | Kauffman
-  /// Writhe number (sum of crossing signs).
-  | Writhe
-  /// Linking number (for multi-component links).
-  | Linking
-
-/// Parsed status for Tangle source code.
-type parsedStatus =
-  /// Successfully parsed with the braid word extracted.
-  | ParsedOk
-  /// Parse failed with an error message.
-  | ParseFailed(string)
-
-/// Root state for the TangleViz panel module.
-type tangleVizState = {
-  /// The braid word as an array of generators.
-  braidWord: array<braidGenerator>,
-  /// Number of strands (auto-detected from max generator index + 1).
-  strandCount: int,
-  /// Current visualization mode.
-  viewMode: tangleViewMode,
-  /// Currently selected invariant for computation.
-  selectedInvariant: option<knotInvariant>,
-  /// Result of the last invariant computation.
-  invariantResult: option<string>,
-  /// Raw Tangle source code input.
-  inputText: string,
-  /// Whether the input text has been parsed.
-  parsedProgram: option<parsedStatus>,
-  /// Whether the braid diagram is animating.
-  animating: bool,
-  /// Last error message, if any.
-  error: option<string>,
-}
diff --git a/src/model/TeamDashboardModel.affine b/src/model/TeamDashboardModel.affine
new file mode 100644
index 00000000..4b662af3
--- /dev/null
+++ b/src/model/TeamDashboardModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TeamDashboardModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/TeamDashboardModel.res b/src/model/TeamDashboardModel.res
deleted file mode 100644
index ef0f4563..00000000
--- a/src/model/TeamDashboardModel.res
+++ /dev/null
@@ -1,108 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Team Dashboard Model — team member presence, activity feed, and
-/// progress overview for collaborative IDApTIK development.
-///
-/// Shows who is working on what, recent activity across the team, contributor
-/// statistics, and panel usage patterns. Provides team awareness without
-/// requiring constant communication overhead.
-///
-/// Clade: Viewer. This module has NO dependencies on other PanLL modules.
-
-// ============================================================================
-// Team Presence
-// ============================================================================
-
-/// Online presence status for a team member.
-type memberStatus =
-  /// Online — actively working in PanLL.
-  | MemberOnline
-  /// Busy — online but in a focused session (do not disturb).
-  | MemberBusy
-  /// Away — temporarily away from keyboard.
-  | MemberAway
-  /// Offline — not currently connected.
-  | MemberOffline
-
-/// A team member with current activity and presence information.
-type teamMember = {
-  /// Team member display name.
-  name: string,
-  /// Role in the project (e.g., "Lead Developer", "QA Tester", "Designer").
-  role: string,
-  /// Current task description (None if idle).
-  currentTask: option<string>,
-  /// Current panel being used (None if not in a panel).
-  currentPanel: option<string>,
-  /// Online presence status.
-  status: memberStatus,
-  /// ISO 8601 timestamp of last activity.
-  lastActiveAt: string,
-}
-
-// ============================================================================
-// Activity Feed
-// ============================================================================
-
-/// An entry in the team activity feed showing recent actions.
-type teamActivityEntry = {
-  /// Unique activity identifier.
-  id: string,
-  /// Username of the person who performed the action.
-  actor: string,
-  /// Action verb (e.g., "committed", "reviewed", "merged", "deployed").
-  action: string,
-  /// Target of the action (e.g., "feature/level-7-puzzles", "PR #42").
-  target: string,
-  /// ISO 8601 timestamp of the activity.
-  timestamp: string,
-}
-
-/// Contributor statistics for the progress overview.
-type contributorStats = {
-  /// Team member name.
-  name: string,
-  /// Number of commits in the current sprint.
-  commitsThisSprint: int,
-  /// Number of reviews completed.
-  reviewsCompleted: int,
-  /// Number of issues closed.
-  issuesClosed: int,
-  /// Lines of code changed.
-  linesChanged: int,
-}
-
-// ============================================================================
-// Tab Navigation
-// ============================================================================
-
-/// Active tab within the Team Dashboard panel.
-type teamDashboardTab =
-  /// Team — member list with presence indicators and current tasks.
-  | TabTeam
-  /// Activity — chronological feed of team actions.
-  | TabActivity
-  /// Progress — contributor statistics and sprint metrics.
-  | TabProgress
-  /// Schedule — upcoming milestones and deadlines.
-  | TabSchedule
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Root state for the Team Dashboard panel.
-type teamDashboardState = {
-  /// Active tab within the panel.
-  activeTab: teamDashboardTab,
-  /// Team members with presence information.
-  members: array<teamMember>,
-  /// Recent activity feed entries.
-  activity: array<teamActivityEntry>,
-  /// Per-contributor statistics.
-  contributorStats: array<contributorStats>,
-  /// Text filter for member names and roles.
-  filter: string,
-  /// Error from the last operation.
-  error: option<string>,
-}
diff --git a/src/model/TentaclesModel.affine b/src/model/TentaclesModel.affine
new file mode 100644
index 00000000..5cab5e05
--- /dev/null
+++ b/src/model/TentaclesModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TentaclesModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/TentaclesModel.res b/src/model/TentaclesModel.res
deleted file mode 100644
index 3001fb78..00000000
--- a/src/model/TentaclesModel.res
+++ /dev/null
@@ -1,195 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Tentacles Model — leaf types for the 7-Tentacles compiler agent panel.
-///
-/// Seven colour-coded agents each represent a compiler subsystem, progressing
-/// through 4 cephalopod stages (Cuttle → Squidlet → Duet → Octopus).
-/// Each agent maps to the three-panel model:
-///   Panel-L (constraints)  → symbolic obligations from the agent's domain
-///   Panel-N (OODA stream)  → agent reasoning via Observe/Orient/Decide/Act
-///   Panel-W (results)      → validated outputs and task completions
-///
-/// Dependency: PaneModel (reuses oodaPhase type).
-
-open PaneModel
-
-/// Unique identifier for each of the 7 compiler agents.
-/// Order matches the visible colour spectrum.
-type tentacleId =
-  /// Red — Parser agent. Reads source, produces token streams, reports syntax errors.
-  | Red
-  /// Orange — Concurrency agent. Schedules parallel tasks, detects deadlocks.
-  | Orange
-  /// Yellow — Type System agent. Infers types, checks constraints, resolves generics.
-  | Yellow
-  /// Green — AST Architect agent. Transforms syntax trees, applies optimisations.
-  | Green
-  /// Blue — Auditor agent. Measures coverage, flags anti-patterns, enforces standards.
-  | Blue
-  /// Indigo — Metaprogrammer agent. Manages macros, code generation, template expansion.
-  | Indigo
-  /// Violet — Governance agent. Enforces policy, license compliance, security rules.
-  | Violet
-
-/// Progressive reveal stages modelled on cephalopod growth.
-/// Each stage unlocks deeper compiler concepts.
-type tentacleStage =
-  /// Cuttle (ages 8-12) — introductory, game-like interactions.
-  | Cuttle
-  /// Squidlet (ages 13-14) — intermediate, pattern-matching challenges.
-  | Squidlet
-  /// Duet (age 15) — paired reasoning with a second agent.
-  | Duet
-  /// Octopus (ages 16+) — full compiler subsystem access.
-  | Octopus
-
-/// OODA loop phase for agent reasoning in Panel-N.
-/// NOTE: oodaPhase is already defined in PaneModel (Observe | Orient | Decide | Act).
-/// TentaclesModel reuses it via Model.res include — no redefinition needed.
-
-/// A symbolic constraint surfaced by an agent for Panel-L display.
-type tentacleConstraint = {
-  /// Which agent produced this constraint.
-  source: tentacleId,
-  /// Human-readable constraint label (e.g. "Type unification: α → β").
-  label: string,
-  /// Machine-readable constraint expression.
-  expression: string,
-  /// Whether the constraint is currently satisfied.
-  satisfied: bool,
-  /// Unix timestamp in milliseconds when the constraint was generated.
-  timestamp: float,
-}
-
-/// A single reasoning step in the OODA stream (Panel-N).
-type reasoningEntry = {
-  /// Which agent produced this entry.
-  agent: tentacleId,
-  /// Current OODA phase of this entry.
-  phase: oodaPhase,
-  /// Summary text of the reasoning step.
-  summary: string,
-  /// Optional detailed explanation (collapsed by default).
-  detail: option<string>,
-  /// Unix timestamp in milliseconds.
-  timestamp: float,
-}
-
-/// A validated result or output from an agent (Panel-W).
-type validatedResult = {
-  /// Which agent produced this result.
-  agent: tentacleId,
-  /// Short title for the result card.
-  title: string,
-  /// The output content (code, proof text, report, etc.).
-  content: string,
-  /// Whether this result passed verification/validation.
-  verified: bool,
-  /// Confidence score from the trust pipeline (0.0 to 1.0).
-  confidence: float,
-  /// Unix timestamp in milliseconds.
-  timestamp: float,
-}
-
-/// Personality traits for an agent — drives the UI voice and interaction style.
-type tentaclePersonality = {
-  /// Conversational voice description.
-  voice: string,
-  /// Signature catchphrase shown in the agent header.
-  catchphrase: string,
-  /// Array of encouraging responses for correct actions.
-  encouragement: array<string>,
-  /// Array of gentle correction responses for mistakes.
-  corrections: array<string>,
-  /// Array of celebration messages for milestones.
-  celebrations: array<string>,
-}
-
-/// Stage-specific display names for an agent (the cephalopod names).
-type tentacleNames = {
-  /// Name at the Cuttle stage.
-  cuttle: string,
-  /// Name at the Squidlet stage.
-  squidlet: string,
-  /// Name at the Duet stage.
-  duet: string,
-  /// Name at the Octopus stage.
-  octopus: string,
-}
-
-/// Inter-agent message payload for broadcast communication.
-/// Sent through the TEA update loop, not direct function calls.
-type agentBroadcastPayload =
-  /// A constraint was added or updated.
-  | ConstraintUpdate(tentacleConstraint)
-  /// An agent completed verification of a result.
-  | VerificationResult(validatedResult)
-  /// An agent requests help from another specific agent.
-  | AssistanceRequest(tentacleId, string)
-  /// An agent shares a reasoning insight.
-  | ReasoningShare(reasoningEntry)
-  /// Stage transition notification.
-  | StageChanged(tentacleStage)
-
-/// Common state shared by all 7 agents.
-type tentacleAgentState = {
-  /// Which agent this is.
-  id: tentacleId,
-  /// Current progressive reveal stage.
-  stage: tentacleStage,
-  /// Agent personality (voice, catchphrase, responses).
-  personality: tentaclePersonality,
-  /// Stage-specific display names.
-  names: tentacleNames,
-  /// Compiler subsystem role description.
-  compilerRole: string,
-  /// What this agent teaches (list of topic strings).
-  teaches: array<string>,
-  /// Constraints this agent is currently tracking (Panel-L feed).
-  constraints: array<tentacleConstraint>,
-  /// OODA reasoning stream (Panel-N feed).
-  reasoning: array<reasoningEntry>,
-  /// Validated results (Panel-W feed).
-  results: array<validatedResult>,
-  /// Current OODA phase for the active task.
-  currentPhase: oodaPhase,
-  /// Whether this agent is actively processing a task.
-  busy: bool,
-  /// Current task description (None if idle).
-  currentTask: option<string>,
-  /// Error message from the last failed operation.
-  lastError: option<string>,
-}
-
-/// Category tabs for the Tentacles panel — each shows a different view.
-type tentaclesCategory =
-  /// Individual agent view — shows one agent's 3-panel breakdown.
-  | AgentView
-  /// Orchestra view — all 7 agents displayed simultaneously in a grid.
-  | Orchestra
-  /// Stage configuration — set the learner's current stage, affecting all agents.
-  | StageConfig
-  /// Progress dashboard — completion tracking, favourite agent, stats.
-  | Progress
-
-/// Root state for the Tentacles panel module.
-type tentaclesState = {
-  /// The 7 agent states, one per tentacle colour.
-  agents: array<tentacleAgentState>,
-  /// Currently selected agent for the AgentView tab.
-  selectedAgent: tentacleId,
-  /// Active category tab.
-  activeCategory: tentaclesCategory,
-  /// Global learner stage (affects all agents simultaneously).
-  globalStage: tentacleStage,
-  /// Whether the orchestra view is in compact mode (icons only).
-  orchestraCompact: bool,
-  /// Pending broadcast messages waiting to be delivered next tick.
-  pendingBroadcasts: array<agentBroadcastPayload>,
-  /// Whether the ECHIDNA FFI bridge is connected (for "without" mode).
-  ffiConnected: bool,
-  /// Last FFI health check timestamp.
-  ffiLastCheck: float,
-  /// FFI connection error message.
-  ffiError: option<string>,
-}
diff --git a/src/model/TilingModel.affine b/src/model/TilingModel.affine
new file mode 100644
index 00000000..aeecc9db
--- /dev/null
+++ b/src/model/TilingModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TilingModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/TilingModel.res b/src/model/TilingModel.res
deleted file mode 100644
index 787b1f9c..00000000
--- a/src/model/TilingModel.res
+++ /dev/null
@@ -1,85 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Tiling Model — types for multi-monitor and window management.
-///
-/// Supports panel detachment (pop panels into separate browser windows),
-/// Aero-style snap zones for quick panel positioning, and tiling presets
-/// for common multi-panel layouts.
-///
-/// Cross-window communication uses the BroadcastChannel API for message
-/// passing between the main PanLL window and detached panel windows.
-/// Each detached window runs a minimal PanLL shell rendering a single panel.
-///
-/// NOTE: Virtual desktop awareness is OS-level and not accessible from
-/// browser APIs. The Gossamer backend could provide this via native window
-/// management APIs in a future phase. For now, tiling operates within
-/// the browser's own window management.
-///
-/// Dependency: imports PanelSwitcherModel for panelId type only.
-
-/// Snap zones for Aero-style window positioning.
-/// Each zone represents a screen region that a panel can snap to.
-type snapZone =
-  /// Left half of screen (Windows+Left equivalent).
-  | SnapLeft
-  /// Right half of screen (Windows+Right equivalent).
-  | SnapRight
-  /// Top-left quarter of screen.
-  | SnapTopLeft
-  /// Top-right quarter of screen.
-  | SnapTopRight
-  /// Bottom-left quarter of screen.
-  | SnapBottomLeft
-  /// Bottom-right quarter of screen.
-  | SnapBottomRight
-  /// Full screen / maximised.
-  | SnapFull
-  /// Centre floating — not snapped to any edge.
-  | SnapCentre
-
-/// Predefined tiling presets for common multi-panel layouts.
-/// Users can apply a preset with one click or keyboard shortcut.
-type tilingPreset =
-  /// Two panels side by side (50/50 split).
-  | SideBySide
-  /// Three panels in equal columns (33/33/33 split).
-  | TripleColumn
-  /// Four panels in a 2x2 grid (each takes a quarter).
-  | QuadGrid
-  /// One large focus panel (75%) with a narrow sidebar panel (25%).
-  | FocusAndSidebar
-  /// Custom user-defined layout mapping panels to snap zones.
-  | Custom(array<(PanelSwitcherModel.panelId, snapZone)>)
-
-/// A panel that has been detached into its own browser window.
-/// Tracks the window reference for communication and cleanup.
-type detachedPanel = {
-  /// Which panel is detached.
-  panelId: PanelSwitcherModel.panelId,
-  /// Browser window.name used to identify this detached window.
-  /// Used as the BroadcastChannel message target.
-  windowName: string,
-  /// Last known window position (x, y in screen pixels).
-  /// Updated when the detached window reports its position.
-  position: option<(int, int)>,
-  /// Last known window size (width, height in pixels).
-  size: option<(int, int)>,
-  /// Whether the detached window is still open and responsive.
-  alive: bool,
-}
-
-/// Root state for the tiling and window management system.
-type tilingState = {
-  /// Panels currently detached into their own browser windows.
-  detachedPanels: array<detachedPanel>,
-  /// Currently active tiling preset (None = freeform layout).
-  activePreset: option<tilingPreset>,
-  /// Snap zone preview shown while dragging a panel near a screen edge.
-  /// None when not actively dragging.
-  snapPreview: option<snapZone>,
-  /// Master toggle for the tiling system. When false, all tiling features
-  /// are disabled and panels behave as standard overlays.
-  tilingEnabled: bool,
-  /// Whether the tiling controls UI is visible.
-  controlsVisible: bool,
-}
diff --git a/src/model/TimelineModel.affine b/src/model/TimelineModel.affine
new file mode 100644
index 00000000..f6aeca2b
--- /dev/null
+++ b/src/model/TimelineModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TimelineModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/TimelineModel.res b/src/model/TimelineModel.res
deleted file mode 100644
index 0f604faf..00000000
--- a/src/model/TimelineModel.res
+++ /dev/null
@@ -1,56 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Code MRI — Timeline Model (Layer 2)
-///
-/// State types for the VeriSimDB-backed development timeline. The timeline
-/// captures point-in-time snapshots of codebase health metrics and stores
-/// them as an append-only log in VeriSimDB.
-///
-/// The timeline state lives in the main PanLL model and is updated by
-/// TimelineCmd (Gossamer invoke wrappers) and TimelineEngine (pure computation).
-///
-/// DESIGN: The timeline is a passive observer — it reads data from git,
-/// panic-attack, the Vexometer, and Code MRI tags to assemble snapshots.
-/// It never modifies the codebase. The "time machine" scrubber shows
-/// historical states but does not perform rollbacks (that's a git operation
-/// triggered by the user, not the timeline).
-
-/// The state of the Code MRI development timeline within PanLL.
-///
-/// Holds the in-memory snapshot array (capped at 1000 entries by
-/// TimelineEngine.addSnapshot), the currently selected scrubber position,
-/// and UI state for the dashboard.
-type timelineState = {
-  /// All loaded timeline snapshots (newest last, capped at 1000).
-  snapshots: array<TimelineEngine.timelineSnapshot>,
-  /// Currently selected snapshot index for the "time machine" scrubber.
-  /// None means the view is showing the latest (live) state.
-  scrubberPosition: option<int>,
-  /// Whether the timeline dashboard panel is expanded.
-  dashboardExpanded: bool,
-  /// Pre-computed metrics for the dashboard (refreshed on snapshot changes).
-  cachedMetrics: array<TimelineEngine.timelineMetric>,
-  /// Path to the VeriSimDB database file (set when a repo is loaded).
-  dbPath: option<string>,
-  /// Whether a snapshot capture is currently in progress.
-  capturing: bool,
-  /// Last error from VeriSimDB I/O operations.
-  error: option<string>,
-  /// Whether the timeline is connected to a VeriSimDB instance.
-  connected: bool,
-}
-
-/// Default (empty) timeline state for model initialisation.
-///
-/// All fields are zeroed/None. The timeline becomes active when a repo
-/// is loaded and TimelineCmd.connect establishes a VeriSimDB connection.
-let defaultTimelineState = (): timelineState => {
-  snapshots: [],
-  scrubberPosition: None,
-  dashboardExpanded: false,
-  cachedMetrics: [],
-  dbPath: None,
-  capturing: false,
-  error: None,
-  connected: false,
-}
diff --git a/src/model/TsdmModel.affine b/src/model/TsdmModel.affine
new file mode 100644
index 00000000..5a4b3d9b
--- /dev/null
+++ b/src/model/TsdmModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TsdmModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/TsdmModel.res b/src/model/TsdmModel.res
deleted file mode 100644
index a9afb359..00000000
--- a/src/model/TsdmModel.res
+++ /dev/null
@@ -1,196 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL TSDM Model — Triaxial Software Development Methodology directive panel.
-///
-/// TSDM is a three-axis methodology: Scope → Maintenance → Audit, followed by
-/// cleanup/finish-off and maintainer dialogue. Each axis has an internal priority
-/// ordering that users can customise. This panel stores and exposes those
-/// preferences so other panels can query the active directive when presenting
-/// and sequencing work items.
-///
-/// The methodology originates from:
-///   Zotero: SOFTWARE-DEVELOPMENT-APPROACH.a2ml (item key: UJXF97XW)
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-// =========================================================================
-// Axis 1: Scope
-// =========================================================================
-
-/// Scope priority tier. Default ordering: must > intend > like.
-type scopeTier =
-  | Must
-  | Intend
-  | Like
-
-/// Scope input source — where work items are discovered.
-type scopeInput =
-  | Readme
-  | Roadmap
-  | StatusDocs
-  | CiAndSecurityDocs
-  | MarkerScan // TODO, FIXME, XXX, HACK, STUB, PARTIAL
-  | IdrisUnsoundScan // believe_me, assert_total
-
-// =========================================================================
-// Axis 2: Maintenance
-// =========================================================================
-
-/// Maintenance priority tier. Default ordering: corrective > adaptive > perfective.
-type maintenanceTier =
-  | Corrective // defect/regression/safety/security fixes
-  | Adaptive // scope reconciliation, stale-reference removal, obsolete-work culling
-  | Perfective // quality improvements derived from Axis 1 honest state
-
-// =========================================================================
-// Axis 3: Audit
-// =========================================================================
-
-/// Audit priority tier. Default ordering: systems > compliance > effects.
-type auditTier =
-  | Systems // required systems present and operating
-  | Compliance // exceptions explicit, bounded, drift-resistant
-  | Effects // benchmark/operational impact evidence
-
-/// Audit tooling assignments.
-type auditTooling = {
-  complianceTool: string, // default: "panic-attack"
-  effectsTool: string, // default: "sustainabot"
-}
-
-// =========================================================================
-// Cleanup/Finish-Off Phase
-// =========================================================================
-
-/// Cleanup steps. All enabled by default; users can reorder or disable.
-type cleanupStep =
-  | RootCleanup
-  | StaleWorkCull
-  | DocsSyncHumanMachine
-  | ComplianceAudit
-  | EffectsAudit
-  | ReleaseSummary // must / should / could
-  | NextActions // corrective / adaptive / perfective
-
-// =========================================================================
-// Collaboration
-// =========================================================================
-
-/// Dialogue topics for maintainer review.
-type dialogueTopic =
-  | WhatChanged
-  | Why
-  | RemainingRisks
-
-// =========================================================================
-// Axis Execution Order
-// =========================================================================
-
-/// Which axis to execute. Default order: Scope → Maintenance → Audit.
-type axisId =
-  | AxisScope
-  | AxisMaintenance
-  | AxisAudit
-
-// =========================================================================
-// A single work item as classified by TSDM
-// =========================================================================
-
-/// A work item with its TSDM classification. Panels generate these;
-/// the TSDM panel sorts, filters, and presents them according to the
-/// active directive.
-type tsdmWorkItem = {
-  id: string,
-  title: string,
-  description: string,
-  /// Which axis this item belongs to.
-  axis: axisId,
-  /// Priority tier within the axis.
-  scopeTier: option<scopeTier>,
-  maintenanceTier: option<maintenanceTier>,
-  auditTier: option<auditTier>,
-  /// Source panel that generated this item.
-  sourcePanel: string,
-  /// Whether the item is completed.
-  done: bool,
-}
-
-// =========================================================================
-// Root state
-// =========================================================================
-
-/// Root state for the TSDM directive panel.
-type tsdmState = {
-  /// Axis execution order (user-customisable). Default: [Scope, Maintenance, Audit].
-  axisOrder: array<axisId>,
-  /// Scope tier ordering (user-customisable). Default: [Must, Intend, Like].
-  scopeOrder: array<scopeTier>,
-  /// Maintenance tier ordering (user-customisable). Default: [Corrective, Adaptive, Perfective].
-  maintenanceOrder: array<maintenanceTier>,
-  /// Audit tier ordering (user-customisable). Default: [Systems, Compliance, Effects].
-  auditOrder: array<auditTier>,
-  /// Scope input sources (user-customisable ordering).
-  scopeInputs: array<scopeInput>,
-  /// Cleanup steps (user-customisable ordering, each can be toggled).
-  cleanupSteps: array<cleanupStep>,
-  /// Which cleanup steps are enabled.
-  cleanupEnabled: array<cleanupStep>,
-  /// Dialogue topics for maintainer review.
-  dialogueTopics: array<dialogueTopic>,
-  /// Audit tooling configuration.
-  auditTooling: auditTooling,
-  /// Aggregated work items from all panels, classified by TSDM axes.
-  workItems: array<tsdmWorkItem>,
-  /// Whether the directive is "locked" (no reordering until session ends).
-  locked: bool,
-  /// Active axis being worked (for progress display).
-  activeAxis: option<axisId>,
-  /// Filter: show only items from a specific axis (None = show all).
-  axisFilter: option<axisId>,
-  /// Search text across work items.
-  searchText: string,
-  /// Whether to show completed items.
-  showCompleted: bool,
-  /// Last error.
-  lastError: option<string>,
-}
-
-/// Default state — canonical TSDM ordering.
-let init: tsdmState = {
-  axisOrder: [AxisScope, AxisMaintenance, AxisAudit],
-  scopeOrder: [Must, Intend, Like],
-  maintenanceOrder: [Corrective, Adaptive, Perfective],
-  auditOrder: [Systems, Compliance, Effects],
-  scopeInputs: [Readme, Roadmap, StatusDocs, CiAndSecurityDocs, MarkerScan, IdrisUnsoundScan],
-  cleanupSteps: [
-    RootCleanup,
-    StaleWorkCull,
-    DocsSyncHumanMachine,
-    ComplianceAudit,
-    EffectsAudit,
-    ReleaseSummary,
-    NextActions,
-  ],
-  cleanupEnabled: [
-    RootCleanup,
-    StaleWorkCull,
-    DocsSyncHumanMachine,
-    ComplianceAudit,
-    EffectsAudit,
-    ReleaseSummary,
-    NextActions,
-  ],
-  dialogueTopics: [WhatChanged, Why, RemainingRisks],
-  auditTooling: {
-    complianceTool: "panic-attack",
-    effectsTool: "sustainabot",
-  },
-  workItems: [],
-  locked: false,
-  activeAxis: None,
-  axisFilter: None,
-  searchText: "",
-  showCompleted: false,
-  lastError: None,
-}
diff --git a/src/model/TypeLLModel.affine b/src/model/TypeLLModel.affine
new file mode 100644
index 00000000..d0c33401
--- /dev/null
+++ b/src/model/TypeLLModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TypeLLModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/TypeLLModel.res b/src/model/TypeLLModel.res
deleted file mode 100644
index 56884e19..00000000
--- a/src/model/TypeLLModel.res
+++ /dev/null
@@ -1,372 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL TypeLL Model — Unified type system kernel.
-///
-/// TypeLL is to PanLL what LLVM is to Clang — the formal verification backbone.
-/// It merges linear, affine, and dependent types into a single cohesive framework:
-///
-/// ## Unified Type System Design
-///
-/// **Core idea:** Dependent types describe *properties* of values while
-/// linear/affine types track *usage* of values. The unified system lets you
-/// combine both: `linear Vec (n + m) a` is a dependent-linear type that
-/// tracks both length *and* consumption.
-///
-/// **Gradual linearity:** Affine by default (like Rust). Opt-in to linear
-/// (exactly once) or unrestricted (unlimited). QTT quantifiers (0, 1, ω)
-/// make this formal.
-///
-/// **Type discipline modes:** Modules declare their default discipline:
-///   `#![affine]`     — Rust-like: use at most once (default)
-///   `#![linear]`     — Strict: use exactly once
-///   `#![dependent]`  — Full dependent types (Idris-like)
-///   `#![refined]`    — Refinement types (Liquid-like)
-///   `#![unrestricted]` — Standard types, no usage tracking
-///
-/// **Inference strategy:**
-///   1. Aggressively infer linearity/affinity from usage patterns
-///   2. Infer simple dependent types (array lengths from literals)
-///   3. Explicit annotations only for complex constraints
-///   4. IDE tactics for interactive dependent type construction
-///
-/// **Effect polymorphism:** Effects (IO, State, Except) tracked as part
-/// of the type: `fn id {e} (x : a @ e) -> a @ e`
-///
-/// ## View Layers (from rescript-evangeliser)
-///
-///   RAW     — Full type signatures, unmodified. For experts.
-///   FOLDED  — Categorised and collapsible. For working developers.
-///   GLYPHED — Visual symbols annotating semantic meaning. For learning.
-///   WYSIWYG — Interactive type construction. For exploration.
-///
-/// ## Type System Coverage
-///
-///   Tier 1 (Core):     Dependent, Linear, Session, Proof-Carrying
-///   Tier 2 (Advanced): QTT, Effects, Modal, Affine
-///   Tier 3 (Research): HoTT, Equality Saturation, Category-Theoretic
-///
-/// ## Inspirations
-///
-///   Idris 2   — Linear types via QTT + dependent types natively
-///   ATS       — Dependent types with linear logic for systems programming
-///   Rust      — Affine types in practice (borrow checker)
-///   Linear Haskell — Linear types in a non-dependent setting
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-// ============================================================================
-// View Layer — progressive disclosure from rescript-evangeliser
-// ============================================================================
-
-/// Progressive disclosure level for type information.
-/// Adapted from rescript-evangeliser's four-layer pedagogy system.
-type viewLayer =
-  /// Full type signatures, unmodified. Expert mode.
-  | Raw
-  /// Categorised sections with collapsible regions. Working developer mode.
-  | Folded
-  /// Symbol-annotated types showing semantic meaning. Learning mode.
-  | Glyphed
-  /// Interactive type construction UI. Exploration mode.
-  | Wysiwyg
-
-// ============================================================================
-// Type System Tiers
-// ============================================================================
-
-/// Type system tier — categorises type features by sophistication.
-type typeTier =
-  /// Core type features: dependent, linear, session, proof-carrying.
-  | TierCore
-  /// Advanced features: QTT, effects, modal, affine.
-  | TierAdvanced
-  /// Research features: HoTT, equality saturation, category-theoretic.
-  | TierResearch
-
-/// Individual type system feature.
-type typeFeature =
-  // Tier 1: Core
-  | DependentTypes
-  | LinearTypes
-  | SessionTypes
-  | ProofCarryingCode
-  // Tier 2: Advanced
-  | QuantitativeTypeTheory
-  | EffectSystems
-  | ModalTypes
-  | AffineTypes
-  // Tier 3: Research
-  | HomotopyTypeTheory
-  | EqualitySaturation
-  | CategoryTheoreticTypes
-
-// ============================================================================
-// Unified Type System — Gradual Linearity & Type Discipline Modes
-// ============================================================================
-
-/// Usage quantifier from Quantitative Type Theory (QTT).
-/// Tracks how many times a value may be used — the core of gradual linearity.
-type usageQuantifier =
-  /// Zero uses: the value is erased at runtime (proof-only, compile-time witness).
-  | UsageZero
-  /// Exactly one use: strict linear consumption (no dup, no drop).
-  | UsageOne
-  /// Unrestricted: unlimited uses (standard functional programming).
-  | UsageOmega
-
-/// Type discipline mode — declared per module/file to set the default type
-/// system behaviour. Inspired by Rust's edition system and Idris' quantity annotations.
-type typeDiscipline =
-  /// Affine by default: values used at most once, may be discarded. Like Rust.
-  | DisciplineAffine
-  /// Linear: values used exactly once. Strict resource tracking.
-  | DisciplineLinear
-  /// Dependent: full dependent types with value-level computation in types.
-  | DisciplineDependent
-  /// Refined: base types narrowed by predicate constraints (Liquid types).
-  | DisciplineRefined
-  /// Unrestricted: no usage tracking, standard types. Escape hatch.
-  | DisciplineUnrestricted
-
-/// A unified type expression in the combined system.
-/// Represents "dependent linear types" — types that carry both value
-/// properties (dependent) and usage discipline (linear/affine/QTT).
-type unifiedTypeExpr = {
-  /// The base type expression (e.g., "Vec n a", "IO String", "Nat -> Nat").
-  baseExpr: string,
-  /// Usage quantifier for this type (0, 1, or omega).
-  usage: usageQuantifier,
-  /// Type discipline in effect for this expression.
-  discipline: typeDiscipline,
-  /// Dependent indices — value-level terms that appear in the type.
-  /// e.g., for `Vec n a`, indices would be ["n"].
-  dependentIndices: array<string>,
-  /// Effect annotations — which effects this type may perform.
-  /// e.g., ["IO", "State s", "Except e"].
-  effects: array<string>,
-  /// Refinement predicates — constraints narrowing the type.
-  /// e.g., for `{x : Nat | x > 0}`, predicates would be ["x > 0"].
-  refinements: array<string>,
-}
-
-/// Inference hint — what TypeLL inferred vs what was annotated.
-type inferenceSource =
-  /// Fully inferred from usage patterns (no annotation needed).
-  | Inferred
-  /// Explicitly annotated by the programmer.
-  | Annotated
-  /// Partially inferred, partially annotated.
-  | Mixed
-  /// Inferred from a tactic suggestion (IDE-assisted).
-  | TacticAssisted
-
-/// Result of unified type analysis — richer than a simple typeCheckResult,
-/// this captures the full combined type system picture.
-type unifiedTypeAnalysis = {
-  /// The unified type expression.
-  typeExpr: unifiedTypeExpr,
-  /// How the type was determined.
-  source: inferenceSource,
-  /// Whether linearity constraints are satisfied.
-  linearitySatisfied: bool,
-  /// Whether dependent indices are well-founded.
-  indicesWellFounded: bool,
-  /// Whether refinement predicates are satisfiable.
-  refinementsSatisfiable: bool,
-  /// Proof obligations arising from dependent types.
-  proofObligations: array<string>,
-  /// Usage violations: where the quantifier was breached.
-  usageViolations: array<string>,
-  /// Effect leaks: effects not declared in the type signature.
-  effectLeaks: array<string>,
-}
-
-/// A type discipline declaration for a module or file scope.
-type disciplineDeclaration = {
-  /// The scope this discipline applies to (module name or file path).
-  scope: string,
-  /// The declared discipline.
-  discipline: typeDiscipline,
-  /// Whether inference is permitted to relax the discipline.
-  inferenceAllowed: bool,
-  /// Override features enabled beyond the discipline default.
-  enabledFeatures: array<typeFeature>,
-}
-
-// ============================================================================
-// Evangeliser Glyphs — visual symbols for type concepts
-// ============================================================================
-
-/// Visual glyph representing a type concept. Makaton-inspired symbols
-/// from rescript-evangeliser, extended for the full type system spectrum.
-type typeGlyph = {
-  /// Unicode symbol.
-  symbol: string,
-  /// Short label.
-  label: string,
-  /// What this glyph means in type theory.
-  meaning: string,
-}
-
-// ============================================================================
-// TypeLL Results
-// ============================================================================
-
-/// Result of type-checking an expression.
-type typeCheckResult = {
-  /// Whether the expression type-checks.
-  valid: bool,
-  /// Inferred or checked type signature.
-  typeSignature: string,
-  /// Human-readable explanation of the type.
-  explanation: string,
-  /// Proof obligations generated (if dependent types involved).
-  proofObligations: array<string>,
-  /// Effects detected (reads, writes, allocations).
-  effects: array<string>,
-  /// Linearity violations (if linear/affine types involved).
-  linearityIssues: array<string>,
-  /// Session protocol compliance notes.
-  sessionNotes: array<string>,
-  /// Which type features are active in this result.
-  activeFeatures: array<typeFeature>,
-  /// Type tier of the highest feature used.
-  maxTier: typeTier,
-  /// Usage quantifier determined for this expression (QTT).
-  usage: usageQuantifier,
-  /// Which type discipline was in effect during checking.
-  discipline: typeDiscipline,
-  /// How the result was inferred/annotated.
-  inferenceSource: inferenceSource,
-  /// Unified type analysis (full combined system picture), if available.
-  unifiedAnalysis: option<unifiedTypeAnalysis>,
-}
-
-/// A type signature entry from the server.
-type typeSignatureEntry = {
-  /// Name of the binding/function.
-  name: string,
-  /// Full type signature.
-  signature: string,
-  /// Which module/namespace it belongs to.
-  module_: string,
-  /// Type tier.
-  tier: typeTier,
-}
-
-/// Universe hierarchy entry.
-type universeEntry = {
-  /// Universe level (0 = Type, 1 = Type₁, etc.).
-  level: int,
-  /// Universe name.
-  name: string,
-  /// Description.
-  description: string,
-}
-
-/// A refinement constraint applied to a type.
-type refinementConstraint = {
-  /// The constraint expression (e.g., "x > 0", "len(s) < 256").
-  expression: string,
-  /// Whether this constraint is satisfiable.
-  satisfiable: bool,
-  /// Counterexample if not satisfiable.
-  counterexample: option<string>,
-}
-
-/// Result of applying refinement types.
-type refinementResult = {
-  /// Original type.
-  baseType: string,
-  /// Refined type.
-  refinedType: string,
-  /// Applied constraints.
-  constraints: array<refinementConstraint>,
-  /// Whether all constraints are satisfiable together.
-  consistent: bool,
-}
-
-/// Evangeliser-style narrative for a type result. Progressive, encouraging.
-type typeNarrative = {
-  /// What the developer got right (celebrate).
-  celebrate: string,
-  /// What could be improved (minimize).
-  minimize: string,
-  /// How types make it better (show better).
-  showBetter: string,
-  /// Type-level safety guarantees (safety).
-  safety: string,
-}
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Category tabs for the TypeLL panel.
-type typellCategory =
-  /// Type checker — paste code, get type analysis.
-  | TlChecker
-  /// Type explorer — browse universes and signatures.
-  | TlExplorer
-  /// Refinement lab — apply refinement types interactively.
-  | TlRefinement
-  /// Discipline — configure module type disciplines and view unified analysis.
-  | TlDiscipline
-  /// Type guide — educational reference for type system tiers.
-  | TlGuide
-
-/// Root state for the TypeLL panel.
-type typellState = {
-  /// Whether the TypeLL server is reachable.
-  serverConnected: bool,
-  /// Whether an operation is in progress.
-  loading: bool,
-  /// Error from the last operation.
-  error: option<string>,
-  /// Active category tab.
-  activeCategory: typellCategory,
-  /// Active view layer (progressive disclosure level).
-  activeViewLayer: viewLayer,
-  // Checker state
-  /// Expression input for type checking.
-  checkerInput: string,
-  /// Optional context for type checking (JSON).
-  checkerContext: string,
-  /// Most recent type check result.
-  lastCheckResult: option<typeCheckResult>,
-  /// Evangeliser narrative for last result.
-  lastNarrative: option<typeNarrative>,
-  // Explorer state
-  /// Available type signatures from server.
-  signatures: array<typeSignatureEntry>,
-  /// Universe hierarchy.
-  universes: array<universeEntry>,
-  /// Search filter for signatures.
-  signatureFilter: string,
-  /// Which tier to filter by (None = all).
-  tierFilter: option<typeTier>,
-  // Refinement state
-  /// Base type specification for refinement.
-  refinementSpec: string,
-  /// Constraints input (one per line).
-  refinementConstraints: string,
-  /// Most recent refinement result.
-  lastRefinement: option<refinementResult>,
-  // Discipline state
-  /// Active type discipline declarations for known modules.
-  disciplineDeclarations: array<disciplineDeclaration>,
-  /// Default discipline for new/unconfigured modules.
-  defaultDiscipline: typeDiscipline,
-  /// Most recent unified type analysis result.
-  lastUnifiedAnalysis: option<unifiedTypeAnalysis>,
-  // Cross-panel state
-  /// Whether TypeLL is providing type intelligence to other panels.
-  serviceActive: bool,
-  /// How many cross-panel type queries have been served this session.
-  queriesServed: int,
-  /// When true, TypeLL operations route through BoJ nesy-mcp cartridge instead of direct HTTP.
-  bojRouting: bool,
-  /// Cross-panel TypeLL results keyed by panel name. Panels without their own
-  /// lastTypeCheck field store results here via TypeCheckResult handlers.
-  panelTypeChecks: Dict.t<string>,
-}
diff --git a/src/model/TypingBridgeModel.affine b/src/model/TypingBridgeModel.affine
new file mode 100644
index 00000000..5dbf9762
--- /dev/null
+++ b/src/model/TypingBridgeModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TypingBridgeModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/TypingBridgeModel.res b/src/model/TypingBridgeModel.res
deleted file mode 100644
index 753efff5..00000000
--- a/src/model/TypingBridgeModel.res
+++ /dev/null
@@ -1,128 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Typing Bridge Model — connects TypeLL type system to IDApTIK game
-/// development. Bridges PanLL's formal type reasoning with practical game
-/// configuration, level typing, and constraint verification.
-///
-/// Three-panel model (L/N/W):
-///   L: Type constraints for game state, typed level configurations
-///   N: TypeLL reasoning about type safety across game systems
-///   W: Type-safe configuration editor with live constraint feedback
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-// ============================================================================
-// Tab Navigation
-// ============================================================================
-
-/// Category tabs for the Typing Bridge panel.
-type typingBridgeTab =
-  /// Constraints — define and browse type constraints on game state.
-  | Constraints
-  /// Inference — view TypeLL inference results for game configurations.
-  | Inference
-  /// Editor — type-safe configuration editor for level data.
-  | Editor
-  /// Diagnostics — type errors, warnings, and suggestions.
-  | Diagnostics
-
-// ============================================================================
-// Type Constraint Domain
-// ============================================================================
-
-/// Severity of a type constraint violation.
-type constraintSeverity =
-  /// Hard error — the game will not load with this violation.
-  | ConstraintError
-  /// Warning — the game may behave unexpectedly.
-  | ConstraintWarning
-  /// Informational — suggestion for stronger typing.
-  | ConstraintInfo
-
-/// A type constraint applied to game state or level configuration.
-/// These constraints are checked by TypeLL's inference engine.
-type gameTypeConstraint = {
-  /// Unique constraint identifier.
-  id: string,
-  /// Human-readable constraint name (e.g., "HealthNonNegative").
-  name: string,
-  /// The type expression constraining the game value.
-  typeExpression: string,
-  /// Target path in the game state tree (e.g., "player.health").
-  targetPath: string,
-  /// Severity if this constraint is violated.
-  severity: constraintSeverity,
-  /// Whether this constraint is currently satisfied.
-  satisfied: bool,
-  /// Human-readable description of what this constraint enforces.
-  description: string,
-}
-
-// ============================================================================
-// Inference Results
-// ============================================================================
-
-/// Status of a type inference operation.
-type inferenceStatus =
-  /// Inference succeeded — type is fully determined.
-  | InferenceSuccess
-  /// Inference produced a partial result — some ambiguity remains.
-  | InferencePartial
-  /// Inference failed — contradictory constraints or insufficient information.
-  | InferenceFailed
-
-/// A single inference result from TypeLL applied to a game configuration value.
-type inferenceResult = {
-  /// The game state path that was analysed.
-  targetPath: string,
-  /// The inferred type expression.
-  inferredType: string,
-  /// Status of this inference.
-  status: inferenceStatus,
-  /// Constraints that contributed to this inference.
-  contributingConstraints: array<string>,
-  /// Suggestions for improving type safety.
-  suggestions: array<string>,
-  /// Time taken for inference in milliseconds.
-  inferenceTimeMs: float,
-}
-
-// ============================================================================
-// Level Configuration Typing
-// ============================================================================
-
-/// A typed field within a level configuration.
-type typedConfigField = {
-  /// Field path within the level config (e.g., "enemies.spawn_rate").
-  path: string,
-  /// Expected type expression.
-  expectedType: string,
-  /// Current value serialised as string.
-  currentValue: string,
-  /// Whether the current value satisfies the type constraint.
-  valid: bool,
-  /// Validation message if invalid.
-  validationMessage: option<string>,
-}
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Root state for the Typing Bridge panel.
-type typingBridgeState = {
-  /// Active tab within the Typing Bridge panel.
-  activeTab: typingBridgeTab,
-  /// All registered type constraints for the current game project.
-  constraints: array<gameTypeConstraint>,
-  /// Results from the most recent inference pass.
-  inferenceResults: array<inferenceResult>,
-  /// Currently selected constraint for detail view.
-  selectedConstraint: option<string>,
-  /// Typed configuration fields for the active level.
-  configFields: array<typedConfigField>,
-  /// Whether a type-checking or inference operation is in progress.
-  running: bool,
-  /// Error from the last operation.
-  error: option<string>,
-}
diff --git a/src/model/UmsModel.affine b/src/model/UmsModel.affine
new file mode 100644
index 00000000..cad8640e
--- /dev/null
+++ b/src/model/UmsModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UmsModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/UmsModel.res b/src/model/UmsModel.res
deleted file mode 100644
index 6e7b53cc..00000000
--- a/src/model/UmsModel.res
+++ /dev/null
@@ -1,177 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Universal Modding Studio Model — types for the unified hub
-/// orchestrating IDApTIK game content creation. Manages mod projects,
-/// ABI validation, templates, assets, distribution, and API reference.
-
-/// Category tabs for the UMS panel.
-type umsCategory =
-  | UmsProjects
-  | UmsAbiValidator
-  | UmsTemplates
-  | UmsAssets
-  | UmsDistribution
-  | UmsApiReference
-
-/// A mod project managed by the Universal Modding Studio.
-type modProject = {
-  /// Unique project identifier.
-  id: string,
-  /// Human-readable project name.
-  name: string,
-  /// Brief description of the mod project.
-  description: string,
-  /// Author of the mod project.
-  author: string,
-  /// Semantic version string.
-  version: string,
-  /// ISO 8601 creation timestamp.
-  createdAt: string,
-  /// ISO 8601 last modified timestamp.
-  lastModified: string,
-  /// Number of levels in the project.
-  levelCount: int,
-  /// Number of puzzles in the project.
-  puzzleCount: int,
-  /// Number of assets in the project.
-  assetCount: int,
-  /// Whether the project has passed ABI validation.
-  validated: bool,
-  /// Absolute path to the project directory on disk.
-  projectPath: string,
-}
-
-/// Category of a mod template.
-type templateCategory =
-  | TemplateLevel
-  | TemplatePuzzle
-  | TemplateCampaign
-  | TemplateAssetPack
-
-/// A pre-built mod template for bootstrapping projects.
-type modTemplate = {
-  /// Unique template identifier.
-  id: string,
-  /// Human-readable template name.
-  name: string,
-  /// Brief description of what the template provides.
-  description: string,
-  /// Category classifying this template's purpose.
-  category: templateCategory,
-  /// Difficulty level of content produced by this template.
-  difficulty: string,
-  /// Path to the preview image for the template browser.
-  previewImagePath: string,
-}
-
-/// Asset type classification for mod assets.
-type modAssetType =
-  | AssetSprite
-  | AssetSound
-  | AssetMap
-  | AssetTileset
-  | AssetAnimation
-  | AssetScript
-
-/// An asset belonging to a mod project.
-type modAsset = {
-  /// Unique asset identifier.
-  id: string,
-  /// Human-readable asset name.
-  name: string,
-  /// Type classification of this asset.
-  assetType: modAssetType,
-  /// Path to the asset file relative to the project.
-  filePath: string,
-  /// Size of the asset file in bytes.
-  sizeBytes: int,
-  /// List of project IDs or level IDs that reference this asset.
-  usedIn: array<string>,
-}
-
-/// Result of validating a level against the Idris2 ABI proofs.
-/// Each boolean field mirrors a specific proof obligation from the
-/// IDApTIK ABI specification.
-type abiValidationResult = {
-  /// Level identifier that was validated.
-  levelId: string,
-  /// Guards-in-zones proof: every zone has its required guard entities.
-  guardsInZones: bool,
-  /// Defence-targets proof: all defence targets are reachable and valid.
-  defenceTargetsValid: bool,
-  /// Zone-ordering proof: zones are topologically sorted.
-  zonesOrdered: bool,
-  /// PBX-consistency proof: PBX routing tables are internally consistent.
-  pbxConsistent: bool,
-  /// Device-existence proof: all referenced devices exist in the level data.
-  devicesExist: bool,
-  /// Whether all proof obligations passed.
-  allPassed: bool,
-  /// ISO 8601 timestamp of when validation was run.
-  validatedAt: string,
-  /// Error messages for any failed proof obligations.
-  errors: array<string>,
-}
-
-/// Platform target for mod distribution.
-type distributionPlatform =
-  | PlatformGithub
-  | PlatformWorkshop
-  | PlatformLocal
-  | PlatformCustom
-
-/// A distribution target for publishing mods.
-type distributionTarget = {
-  /// Target platform for distribution.
-  platform: distributionPlatform,
-  /// URL or path for the distribution endpoint.
-  url: string,
-  /// ISO 8601 timestamp of the last publish operation.
-  lastPublished: string,
-  /// Version string that was last published.
-  version: string,
-}
-
-/// An entry in the modding API reference documentation.
-type apiEntry = {
-  /// Name of the API function or type.
-  name: string,
-  /// Category grouping (e.g. "Level", "Puzzle", "Asset", "VM").
-  category: string,
-  /// Type signature or function signature.
-  signature: string,
-  /// Human-readable description of the API entry.
-  description: string,
-  /// Usage example code snippet.
-  example: string,
-  /// Version since which this API has been available.
-  since: string,
-}
-
-/// Root state for the Universal Modding Studio panel.
-type umsState = {
-  /// Currently active category tab.
-  activeCategory: umsCategory,
-  /// All mod projects known to the studio.
-  projects: array<modProject>,
-  /// Available mod templates.
-  templates: array<modTemplate>,
-  /// Assets for the currently selected project.
-  assets: array<modAsset>,
-  /// ID of the currently selected project, if any.
-  selectedProjectId: option<string>,
-  /// ABI validation results keyed by level.
-  validationResults: array<abiValidationResult>,
-  /// Distribution targets for the current project.
-  distributionTargets: array<distributionTarget>,
-  /// Modding API reference entries.
-  apiEntries: array<apiEntry>,
-  /// Text filter for searching within tabs.
-  filterText: string,
-  /// Whether a background operation is in progress.
-  loading: bool,
-  /// Current error message, if any.
-  error: option<string>,
-  /// Whether BoJ routing is enabled for cartridge integration.
-  bojRouting: bool,
-}
diff --git a/src/model/UnitTestRunnerModel.affine b/src/model/UnitTestRunnerModel.affine
new file mode 100644
index 00000000..709b0869
--- /dev/null
+++ b/src/model/UnitTestRunnerModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UnitTestRunnerModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/UnitTestRunnerModel.res b/src/model/UnitTestRunnerModel.res
deleted file mode 100644
index 732e9001..00000000
--- a/src/model/UnitTestRunnerModel.res
+++ /dev/null
@@ -1,149 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Unit Test Runner Model — interactive test execution dashboard with
-/// coverage heatmaps, run history, and diff-aware filtering for IDApTIK.
-///
-/// Runs ReScript tests with per-module coverage tracking, provides a sortable
-/// pass/fail tree with line-level coverage overlay, and supports diff-aware
-/// mode that only runs tests affected by recent file changes.
-///
-/// Clade: Scanner. This module has NO dependencies on other PanLL modules.
-
-// ============================================================================
-// Test Case Status
-// ============================================================================
-
-/// Execution status of a single test case.
-type testCaseStatus =
-  /// Test has not yet been executed in this run.
-  | TestPending
-  /// Test is currently executing.
-  | TestRunning
-  /// Test passed — payload is duration in milliseconds.
-  | TestPassed(float)
-  /// Test failed — payload is (error message, duration in milliseconds).
-  | TestFailed(string, float)
-  /// Test was skipped — payload is the skip reason.
-  | TestSkipped(string)
-
-// ============================================================================
-// Test Results
-// ============================================================================
-
-/// A single test case result within a test suite.
-type testCaseResult = {
-  /// Name of the test suite containing this test.
-  suiteName: string,
-  /// Name of this individual test case.
-  testName: string,
-  /// Current execution status.
-  status: testCaseStatus,
-  /// File path of the test source.
-  filePath: string,
-  /// Line number where the test is defined.
-  lineNumber: int,
-}
-
-// ============================================================================
-// Coverage Tracking
-// ============================================================================
-
-/// Coverage statistics for a single module.
-type moduleCoverage = {
-  /// Module name (e.g., "LevelArchitectEngine").
-  moduleName: string,
-  /// File path to the module source.
-  filePath: string,
-  /// Total number of functions in the module.
-  totalFunctions: int,
-  /// Number of functions exercised by at least one test.
-  testedFunctions: int,
-  /// Coverage percentage (0.0 to 100.0).
-  coveragePercent: float,
-  /// Names of untested functions.
-  untested: array<string>,
-}
-
-/// Coverage heatmap cell for visual display.
-type coverageHeatCell = {
-  /// Module name.
-  moduleName: string,
-  /// Coverage percentage (drives the cell colour intensity).
-  coveragePercent: float,
-  /// Total functions in the module.
-  totalFunctions: int,
-}
-
-// ============================================================================
-// Run History
-// ============================================================================
-
-/// Aggregate summary of a test run (all suites).
-type testRunSummary = {
-  /// Total number of tests in this run.
-  totalTests: int,
-  /// Number of passed tests.
-  passed: int,
-  /// Number of failed tests.
-  failed: int,
-  /// Number of skipped tests.
-  skipped: int,
-  /// Total duration of the run in milliseconds.
-  durationMs: float,
-  /// ISO 8601 timestamp of this run.
-  timestamp: string,
-}
-
-// ============================================================================
-// Tab Navigation
-// ============================================================================
-
-/// Active tab within the Unit Test Runner panel.
-type unitTestTab =
-  /// Test Results — sortable pass/fail tree grouped by suite.
-  | TabTestResults
-  /// Coverage — module coverage heatmap and untested function list.
-  | TabCoverage
-  /// History — run-over-run trend showing pass rate and duration.
-  | TabHistory
-  /// Diff-Aware — only tests affected by recent file changes.
-  | TabDiffAware
-
-/// Sort order for the test results list.
-type testSortBy =
-  /// Alphabetical by test name.
-  | SortByName
-  /// Failed tests first, then pending, then passed.
-  | SortByStatus
-  /// Slowest tests first.
-  | SortByDuration
-  /// Group by suite name.
-  | SortBySuite
-
-// ============================================================================
-// Panel State
-// ============================================================================
-
-/// Root state for the Unit Test Runner panel.
-type unitTestRunnerState = {
-  /// Active tab within the panel.
-  activeTab: unitTestTab,
-  /// Individual test case results from the most recent run.
-  results: array<testCaseResult>,
-  /// Per-module coverage statistics.
-  coverage: array<moduleCoverage>,
-  /// Coverage heatmap cells for the visual grid.
-  heatmap: array<coverageHeatCell>,
-  /// Historical run summaries.
-  history: array<testRunSummary>,
-  /// Whether tests are currently executing.
-  running: bool,
-  /// Text filter for test/suite names.
-  filter: string,
-  /// Sort order for test results.
-  sortBy: testSortBy,
-  /// Whether diff-aware mode is active (only run changed tests).
-  diffAwareOnly: bool,
-  /// Error from the last operation.
-  error: option<string>,
-}
diff --git a/src/model/VabModel.affine b/src/model/VabModel.affine
new file mode 100644
index 00000000..10040de1
--- /dev/null
+++ b/src/model/VabModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VabModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/VabModel.res b/src/model/VabModel.res
deleted file mode 100644
index 816cb156..00000000
--- a/src/model/VabModel.res
+++ /dev/null
@@ -1,83 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL VAB (Verified Assembly Building) Model Types.
-///
-/// State types for the KSP VAB-inspired server component assembly panel.
-/// Users compose verified protocol/core/connector components from the
-/// proven-servers catalog (108 components) onto a virtual server rack,
-/// with real-time dependency checking and capability enumeration.
-///
-/// This module has NO dependencies on other PanLL modules — leaf of the
-/// type dependency graph, following the same pattern as PaneModel.
-
-/// Component categories — the 11 sidebar icons in the VAB.
-/// Mirrors the proven-servers project structure: 8 core primitives,
-/// 94 protocols across 9 domains, and 6 connector interfaces.
-type vabCategory =
-  | VabCore // Core primitives (socket, frame, fsm, wire, compose, tls, config, audit)
-  | VabNetwork // Network protocols (tcp, udp, quic, sctp, etc.)
-  | VabDns // DNS protocols (dns-resolver, dns-authoritative, mdns, doh, dot)
-  | VabWeb // Web protocols (httpd, http2, http3, websocket, grpc, graphql, rest, sse)
-  | VabIot // IoT protocols (mqtt, coap, amqp, lwm2m, zigbee, zwave, matter)
-  | VabEmail // Email protocols (smtp, imap, pop3, dkim, spf, dmarc)
-  | VabSecurity // Security protocols (tls, dtls, noise, ssh, kerberos, oauth, saml, oidc)
-  | VabData // Data protocols (ldap, nfs, ftp, rsync, s3, redis, memcached)
-  | VabApplication // Application protocols (sip, xmpp, rtsp, rtp, webrtc, jsonrpc, xmlrpc)
-  | VabInfrastructure // Infrastructure (syslog, snmp, ntp, bgp, ospf, dhcp, radius, diameter)
-  | VabConnectors // Connector interfaces (dbconn, cacheconn, storageconn, queueconn, authconn, resolverconn)
-
-/// A single proven-servers component that can be placed on the rack.
-/// Each component declares its ports, dependency chain, capabilities,
-/// and rack unit height for the visual assembly area.
-type vabComponent = {
-  id: string, // Unique ID, e.g. "proven-httpd"
-  name: string, // Display name, e.g. "HTTP Server"
-  shortName: string, // Short label for rack view, e.g. "httpd"
-  category: vabCategory, // Which sidebar category this belongs to
-  ports: array<int>, // TCP/UDP ports used (e.g. [80, 443])
-  dependencies: array<string>, // Required component IDs (hard deps)
-  softDependencies: array<string>, // Recommended component IDs (soft deps)
-  capabilities: array<string>, // Capability tags this provides (e.g. ["http", "encryption"])
-  description: string, // Brief description for tooltip/card
-  rackUnits: int, // Visual height in rack units (1-4)
-}
-
-/// Warnings generated by the dependency checker.
-/// Modelled after KSP's vehicle assembly warnings ("No engine!", "No parachute!").
-type vabWarning =
-  | MissingRequired(string, string) // (component needing it, missing dep ID)
-  | MissingRecommended(string, string) // (component wanting it, missing soft dep ID)
-  | SecurityWarning(string) // Security advisory message
-  | PortConflict(int, string, string) // (port, component A, component B)
-
-/// Capability status for the assembled server — what it CAN and CANNOT do.
-/// Displayed in the bottom status bar as green/red/yellow badges.
-type capabilityStatus =
-  | CanDo(string) // Green: this capability is present
-  | CannotDo(string) // Red: this capability is absent
-  | WarningCap(string) // Yellow: capability present but with caveats
-
-/// Sort order for the component grid.
-type vabSortBy =
-  | SortByName // Alphabetical by display name
-  | SortByPorts // By number of ports (ascending)
-  | SortByDeps // By number of dependencies (ascending)
-
-/// An assembled server — the user's current build.
-type assembledServer = {
-  name: string, // User-editable server name
-  components: array<string>, // Array of component IDs in rack order
-}
-
-/// The complete VAB panel state, stored as a sub-record in the main model.
-type vabState = {
-  visible: bool, // Whether the VAB overlay is shown
-  catalog: array<vabComponent>, // Full component catalog (loaded once)
-  selectedCategory: vabCategory, // Currently active sidebar category
-  sortBy: vabSortBy, // Current sort order for component grid
-  filterText: string, // Text filter for component search
-  server: assembledServer, // The server being assembled
-  warnings: array<vabWarning>, // Current dependency warnings
-  capabilities: array<capabilityStatus>, // Current capability enumeration
-  hoveredComponent: option<string>, // Component ID being hovered (for tooltip)
-}
diff --git a/src/model/ValenceShellModel.affine b/src/model/ValenceShellModel.affine
new file mode 100644
index 00000000..81a553d8
--- /dev/null
+++ b/src/model/ValenceShellModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ValenceShellModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/ValenceShellModel.res b/src/model/ValenceShellModel.res
deleted file mode 100644
index 1275973a..00000000
--- a/src/model/ValenceShellModel.res
+++ /dev/null
@@ -1,151 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Valence Shell Model — types for the embedded terminal panel.
-///
-/// The Valence Shell panel provides a formally verified reversible shell
-/// embedded in PanLL via PTY allocation. It integrates Claude Code for
-/// AI-assisted development, session recording for teaching and sharing,
-/// and an approval gate for collaborative parent-child workflows.
-///
-/// The shell connects to the Valence shell binary (formally verified
-/// reversible filesystem operations) or falls back to the system shell
-/// (bash/zsh) when Valence is not installed.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// Which shell backend is active.
-type shellBackend =
-  /// Valence shell — formally verified reversible ops, MAA audit trail.
-  | ValenceShell
-  /// System shell fallback (bash, zsh, fish) when Valence is not installed.
-  | SystemShell(string)
-
-/// Terminal session recording state.
-type shellRecordingState =
-  /// Not recording.
-  | RecordingIdle
-  /// Actively recording terminal output to an asciinema .cast file.
-  | RecordingActive(float)
-  /// Recording paused (timestamp of pause start).
-  | RecordingPaused(float)
-
-/// A single recorded terminal session, stored as an asciinema .cast file.
-type terminalRecording = {
-  /// Unique identifier for this recording.
-  id: string,
-  /// Human-readable name for the recording.
-  name: string,
-  /// Absolute path to the .cast file on disk.
-  path: string,
-  /// Duration in seconds.
-  durationSecs: float,
-  /// When the recording was created (Unix timestamp).
-  createdAt: float,
-  /// Number of bytes in the .cast file.
-  sizeBytes: int,
-}
-
-/// Approval gate mode for collaborative sessions.
-/// When enabled, commands typed by the child must be approved by the
-/// parent before execution. This is a safety feature, not a restriction —
-/// it creates a teaching moment for every command.
-type approvalGateMode =
-  /// Approval gate disabled — commands execute immediately.
-  | GateDisabled
-  /// Approval gate enabled — commands queue for review.
-  | GateEnabled
-  /// Approval gate in learning mode — approved commands build a whitelist,
-  /// and future identical commands auto-approve.
-  | GateLearning
-
-/// A command pending approval in the gate queue.
-type pendingCommand = {
-  /// The raw command string as typed.
-  command: string,
-  /// Who typed it (for multi-user sessions).
-  author: string,
-  /// When it was submitted (Unix timestamp).
-  submittedAt: float,
-}
-
-/// A Valence filesystem checkpoint — a named save point that can be
-/// restored with formal proof of reversibility.
-type valenceCheckpoint = {
-  /// Checkpoint identifier.
-  id: string,
-  /// Human-readable label.
-  label: string,
-  /// When the checkpoint was created (Unix timestamp).
-  createdAt: float,
-  /// Number of filesystem operations since last checkpoint.
-  opsSinceCheckpoint: int,
-}
-
-/// Category tabs for the Valence Shell panel.
-type valenceShellCategory =
-  /// Main terminal view with PTY.
-  | ShellTerminal
-  /// Session recordings browser — replay, export, share.
-  | ShellRecordings
-  /// Valence checkpoints — filesystem save/restore points.
-  | ShellCheckpoints
-  /// Command history with reversibility annotations.
-  | ShellHistory
-  /// Settings — shell backend, approval gate, appearance.
-  | ShellSettings
-
-/// A line in the terminal output buffer.
-type terminalLine = {
-  /// The text content of the line.
-  content: string,
-  /// Whether this line is from stdout (true) or stderr (false).
-  isStdout: bool,
-  /// Unix timestamp when the line was received.
-  timestamp: float,
-}
-
-/// Root state for the Valence Shell panel.
-type valenceShellState = {
-  /// Which shell backend is active (Valence or system shell).
-  backend: shellBackend,
-  /// Whether the Valence shell binary is available on PATH.
-  valenceAvailable: bool,
-  /// Whether the terminal PTY is connected and running.
-  ptyConnected: bool,
-  /// Current working directory in the shell.
-  cwd: string,
-  /// Terminal output buffer (ring buffer, last 1000 lines).
-  outputBuffer: array<terminalLine>,
-  /// Current input line (what the user is typing).
-  inputLine: string,
-  /// Command history (for up/down arrow navigation).
-  commandHistory: array<string>,
-  /// Index into command history (-1 = current input).
-  historyIndex: int,
-  /// Active category tab.
-  activeCategory: valenceShellCategory,
-  /// Session recording state.
-  recording: shellRecordingState,
-  /// List of saved recordings.
-  recordings: array<terminalRecording>,
-  /// Approval gate mode.
-  approvalGate: approvalGateMode,
-  /// Commands pending approval.
-  pendingCommands: array<pendingCommand>,
-  /// Whitelist of auto-approved commands (built in GateLearning mode).
-  approvedCommands: array<string>,
-  /// Valence filesystem checkpoints.
-  checkpoints: array<valenceCheckpoint>,
-  /// Whether Claude Code is currently running in the terminal.
-  claudeCodeActive: bool,
-  /// Error message (if any).
-  error: option<string>,
-  /// Loading state for async operations (checkpoint creation, recording save).
-  loading: bool,
-  /// Whether the terminal is in split view mode.
-  splitView: bool,
-  /// IDApTIK-aware command completions.
-  completions: array<string>,
-  /// Whether the completions popup is visible.
-  completionsVisible: bool,
-}
diff --git a/src/model/VeriSimModel.affine b/src/model/VeriSimModel.affine
new file mode 100644
index 00000000..aa107b68
--- /dev/null
+++ b/src/model/VeriSimModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VeriSimModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/VeriSimModel.res b/src/model/VeriSimModel.res
deleted file mode 100644
index 145f4f36..00000000
--- a/src/model/VeriSimModel.res
+++ /dev/null
@@ -1,122 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL VeriSimDB Types — Database backend state.
-///
-/// VeriSimDB is the versioned temporal multi-modal database that PanLL
-/// integrates for entity browsing, drift detection, normalisation, and
-/// telemetry. These types represent the connection lifecycle, query
-/// results, drift scoring across all eight modalities, and opt-in
-/// product development telemetry.
-///
-/// This module has NO dependencies on other PanLL modules.
-
-/// Proof obligation from a VCL-total query result certificate
-type proofObligation = {
-  /// Proof strategy type (e.g. "contract", "invariant", "temporal").
-  proofType: string,
-  /// Name of the contract this obligation belongs to.
-  contractName: string,
-  /// Verification status: "verified", "failed", or "pending".
-  status: string,
-  /// Hash of the proof certificate for this obligation.
-  proofHash: string,
-}
-
-/// Parsed drift scores for each modality — used by the drift heatmap.
-/// Each score is 0.0 (no drift) to 1.0 (maximum drift).
-type driftScores = {
-  /// Drift in the graph modality (0.0 = no drift, 1.0 = maximum drift).
-  graph: float,
-  /// Drift in the vector modality.
-  vector: float,
-  /// Drift in the tensor modality.
-  tensor: float,
-  /// Drift in the semantic modality.
-  semantic: float,
-  /// Drift in the document modality.
-  document: float,
-  /// Drift in the temporal modality.
-  temporal: float,
-  /// Drift in the provenance modality.
-  provenance: float,
-  /// Drift in the spatial modality.
-  spatial: float,
-}
-
-/// Telemetry snapshot — aggregate product development metrics from a database
-/// backend. No query content, entity data, or PII — only counters and rates.
-/// This data helps understand how the database is used and where to focus
-/// development effort. Users can also see this to understand their own workload.
-type telemetrySnapshot = {
-  /// ISO 8601 timestamp when this snapshot was generated.
-  generatedAt: string,
-  /// Per-modality usage heatmap: (modality name, usage intensity).
-  modalityHeatmap: array<(string, float)>,
-  /// Most common query patterns: (pattern description, count).
-  queryPatterns: array<(string, int)>,
-  /// Average query duration across all queries in milliseconds.
-  avgQueryDurationMs: float,
-  /// Number of drift events detected in the snapshot period.
-  driftDetectedCount: int,
-  /// Success rate of normalisation operations (0.0-1.0).
-  normaliseSuccessRate: float,
-  /// Proof type usage counts: (proof type, count).
-  proofTypeUsage: array<(string, int)>,
-  /// Total number of entities in the database.
-  entityCount: int,
-  /// Privacy notice text confirming no PII is collected.
-  privacyNotice: string,
-}
-
-/// VeriSimDB backend state — tracks connection, query results, entity browsing,
-/// drift detection, normalisation, and telemetry for the VeriSimDB database
-/// integration. The telemetry field is opt-in and shows aggregate-only metrics.
-type verisimdbState = {
-  /// Whether the VeriSimDB backend is reachable.
-  connected: bool,
-  /// Base URL of the VeriSimDB API endpoint.
-  endpoint: string,
-  /// Text of the most recently submitted VCL query.
-  lastQuery: string,
-  /// JSON result from the last successful query.
-  queryResult: option<string>,
-  /// Error message from the last failed query.
-  queryError: option<string>,
-  /// List of entity names loaded from the database.
-  entities: array<string>,
-  /// Currently selected entity for detail view.
-  selectedEntity: option<string>,
-  /// Human-readable drift status summary.
-  driftStatus: option<string>,
-  /// Per-modality drift scores for the heatmap.
-  driftScores: option<driftScores>,
-  /// Proof obligations from the last VCL-total query certificate.
-  proofObligations: array<proofObligation>,
-  /// Whether the VeriSimDB menu dropdown is expanded.
-  dbMenuExpanded: bool,
-  /// Entity currently being normalised (None = idle).
-  normalisingEntity: option<string>,
-  /// JSON detail for the selected entity.
-  entityDetail: option<string>,
-  /// Opt-in telemetry snapshot (aggregate-only metrics).
-  telemetry: option<telemetrySnapshot>,
-  /// Whether the telemetry panel is visible.
-  telemetryVisible: bool,
-  /// Orchestrator status message.
-  orchStatus: option<string>,
-  /// TypeLL type-check result JSON for the last VCL query (cross-panel intelligence).
-  /// Parsed via TypeLLEngine.parseCheckResult when rendering.
-  lastTypeCheck: option<string>,
-  /// Panel-L proof obligation display: VCL-total type constraints and proof status
-  /// pushed to the symbolic pane for operator inspection.
-  proofDisplayActive: bool,
-  /// Panel-N agentic inference suggestions for the current VCL query.
-  /// Generated by the neural advisor when a query is submitted.
-  inferenceStream: array<string>,
-  /// Whether Anti-Crash should validate VCL queries before execution.
-  antiCrashValidation: bool,
-  /// Cumulative VCL query count for Vexometer cognitive load tracking.
-  queryCount: int,
-  /// Route VCL queries through BoJ's database-mcp cartridge instead of direct Gossamer.
-  bojRouting: bool,
-}
diff --git a/src/model/VerificationDashboardModel.affine b/src/model/VerificationDashboardModel.affine
new file mode 100644
index 00000000..cfced0f4
--- /dev/null
+++ b/src/model/VerificationDashboardModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VerificationDashboardModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/VerificationDashboardModel.res b/src/model/VerificationDashboardModel.res
deleted file mode 100644
index cb83ed88..00000000
--- a/src/model/VerificationDashboardModel.res
+++ /dev/null
@@ -1,148 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL VerificationDashboard Model — leaf types for the verification status panel.
-///
-/// Aggregates proof, test, benchmark, and fuzzing status across all
-/// nextgen-languages repos. Shows admitted/sorry counts, conformance suite
-/// results, and benchmark performance data.
-///
-/// Dependency: none (leaf module in the type DAG).
-
-/// Proof system used for formal verification.
-type proofSystem =
-  | Idris2Proof
-  | CoqProof
-  | LeanProof
-  | IsabelleProof
-  | AgdaProof
-  | ManualProof
-
-/// Conformance level for a test suite.
-type conformanceLevel =
-  /// All conformance tests pass.
-  | FullConformance
-  /// Most conformance tests pass (>80%).
-  | PartialConformance
-  /// Conformance suite exists but significant failures.
-  | FailingConformance
-  /// No conformance suite exists.
-  | NoConformanceSuite
-
-/// A benchmark result entry.
-type benchmarkEntry = {
-  /// Benchmark name (e.g., "fibonacci(30)", "sort-10k").
-  name: string,
-  /// Language this benchmark is for.
-  language: string,
-  /// Mean execution time in milliseconds.
-  meanMs: float,
-  /// Standard deviation in milliseconds.
-  stddevMs: float,
-  /// Number of iterations.
-  iterations: int,
-  /// Whether this is a regression from previous run.
-  regression: bool,
-}
-
-/// Fuzzing coverage summary for a language.
-type fuzzingCoverage = {
-  /// Language name.
-  language: string,
-  /// Total fuzz targets.
-  targets: int,
-  /// Lines covered by fuzzing.
-  linesCovered: int,
-  /// Total lines in scope.
-  totalLines: int,
-  /// Crashes found by fuzzer.
-  crashesFound: int,
-  /// Hours of fuzzing accumulated.
-  fuzzHours: float,
-}
-
-/// Verification status for a single language project.
-type languageVerificationStatus = {
-  /// Language name.
-  name: string,
-  /// Total test count.
-  totalTests: int,
-  /// Passing test count.
-  passingTests: int,
-  /// Failing test count.
-  failingTests: int,
-  /// Skipped test count.
-  skippedTests: int,
-  /// Count of admitted/sorry proofs (formal verification debt).
-  admittedCount: int,
-  /// Count of fully discharged proofs.
-  provedCount: int,
-  /// Which proof system(s) are used.
-  proofSystems: array<proofSystem>,
-  /// Conformance level.
-  conformance: conformanceLevel,
-  /// Available benchmark results.
-  benchmarks: array<benchmarkEntry>,
-  /// Fuzzing coverage, if available.
-  fuzzing: option<fuzzingCoverage>,
-  /// Last verification run timestamp (ISO 8601).
-  lastRun: option<string>,
-}
-
-/// Category tabs for the VerificationDashboard.
-type verificationDashboardCategory =
-  /// Summary view — aggregated counts across all languages.
-  | VdSummary
-  /// Per-language detail view.
-  | VdByLanguage
-  /// Proof status — admitted/sorry tracking.
-  | VdProofs
-  /// Benchmark results table.
-  | VdBenchmarks
-  /// Fuzzing coverage report.
-  | VdFuzzing
-
-/// Sort mode for the verification table.
-type verificationSortBy =
-  /// Sort by language name.
-  | VdSortByName
-  /// Sort by test count (descending).
-  | VdSortByTests
-  /// Sort by pass rate (ascending — worst first).
-  | VdSortByPassRate
-  /// Sort by admitted count (descending — most debt first).
-  | VdSortByAdmitted
-
-/// Root state for the VerificationDashboard panel.
-type verificationDashboardState = {
-  /// Whether data has been loaded.
-  loaded: bool,
-  /// Loading indicator for async operations.
-  loading: bool,
-  /// Last error message, if any.
-  error: option<string>,
-  /// Verification status for all languages.
-  languages: array<languageVerificationStatus>,
-  /// Active category tab.
-  activeCategory: verificationDashboardCategory,
-  /// Currently selected language for detail view.
-  selectedLanguage: option<string>,
-  /// Text filter for language name search.
-  filterText: string,
-  /// Current sort criterion.
-  sortBy: verificationSortBy,
-  /// Whether to show only languages with admitted/sorry debt.
-  showDebtOnly: bool,
-}
-
-/// Initial state — empty, ready to load.
-let initial: verificationDashboardState = {
-  loaded: false,
-  loading: false,
-  error: None,
-  languages: [],
-  activeCategory: VdSummary,
-  selectedLanguage: None,
-  filterText: "",
-  sortBy: VdSortByTests,
-  showDebtOnly: false,
-}
diff --git a/src/model/VerisimdbFeedsModel.affine b/src/model/VerisimdbFeedsModel.affine
new file mode 100644
index 00000000..710483aa
--- /dev/null
+++ b/src/model/VerisimdbFeedsModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VerisimdbFeedsModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/VerisimdbFeedsModel.res b/src/model/VerisimdbFeedsModel.res
deleted file mode 100644
index c9fa8b06..00000000
--- a/src/model/VerisimdbFeedsModel.res
+++ /dev/null
@@ -1,54 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL VeriSimDB Feeds Model — cross-repo analytics health and flow.
-///
-/// Monitors the health and throughput of VeriSimDB data feeds across the
-/// ecosystem. Tracks feed status, last update times, record counts, and
-/// data freshness.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// Health status for a data feed.
-type feedHealth =
-  | FeedHealthy
-  | FeedStale
-  | FeedError(string)
-  | FeedUnknown
-
-/// A single VeriSimDB data feed.
-type dataFeed = {
-  /// Feed identifier.
-  feedId: string,
-  /// Human-readable feed name.
-  name: string,
-  /// Source repository or service.
-  source: string,
-  /// Current health status.
-  health: feedHealth,
-  /// Record count in this feed.
-  recordCount: int,
-  /// Last successful update timestamp (ISO 8601).
-  lastUpdate: string,
-  /// Average records per day.
-  throughput: float,
-}
-
-/// VeriSimDB Feeds panel tabs.
-type verisimdbFeedsTab =
-  | TabDashboard
-  | TabFeedList
-  | TabHealth
-
-/// Root state for the VeriSimDB Feeds panel.
-type verisimdbFeedsState = {
-  /// Active tab.
-  activeTab: verisimdbFeedsTab,
-  /// All monitored data feeds.
-  feeds: array<dataFeed>,
-  /// Currently selected feed for detail view.
-  selectedFeed: option<string>,
-  /// Whether a health check is in progress.
-  checking: bool,
-  /// Error from last check.
-  error: option<string>,
-}
diff --git a/src/model/VexometerFrictionModel.affine b/src/model/VexometerFrictionModel.affine
new file mode 100644
index 00000000..f94a855f
--- /dev/null
+++ b/src/model/VexometerFrictionModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VexometerFrictionModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/VexometerFrictionModel.res b/src/model/VexometerFrictionModel.res
deleted file mode 100644
index aa3e2ef9..00000000
--- a/src/model/VexometerFrictionModel.res
+++ /dev/null
@@ -1,60 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Vexometer Friction Model — irritation surface measurements across tools.
-///
-/// Tracks the 10 ISA (Irritation Surface Area) dimensions for each tool
-/// in the ecosystem. Aggregates friction scores to identify tools that
-/// cause the most developer frustration.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// A single ISA dimension measurement.
-type isaDimension = {
-  /// Dimension name (e.g. "latency", "error-messages", "docs", "onboarding").
-  name: string,
-  /// Score from 0.0 (no friction) to 10.0 (maximum friction).
-  score: float,
-  /// Number of data points contributing to this score.
-  sampleCount: int,
-}
-
-/// Friction trend direction.
-type frictionTrend =
-  | Improving
-  | Stable
-  | Worsening
-  | NoData
-
-/// Friction profile for a single tool.
-type toolFrictionProfile = {
-  /// Tool name.
-  toolName: string,
-  /// The 10 ISA dimension measurements.
-  dimensions: array<isaDimension>,
-  /// Aggregated overall friction score (0.0 to 10.0).
-  overallScore: float,
-  /// Trend direction since last measurement.
-  trend: frictionTrend,
-  /// Last measurement timestamp (ISO 8601).
-  lastMeasured: string,
-}
-
-/// Vexometer Friction panel tabs.
-type vexometerFrictionTab =
-  | TabOverview
-  | TabToolList
-  | TabDimensions
-
-/// Root state for the Vexometer Friction panel.
-type vexometerFrictionState = {
-  /// Active tab.
-  activeTab: vexometerFrictionTab,
-  /// Friction profiles for all monitored tools.
-  tools: array<toolFrictionProfile>,
-  /// Currently selected tool for detail view.
-  selectedTool: option<string>,
-  /// Whether a measurement is in progress.
-  measuring: bool,
-  /// Error from last measurement.
-  error: option<string>,
-}
diff --git a/src/model/VideoCoordinationModel.affine b/src/model/VideoCoordinationModel.affine
new file mode 100644
index 00000000..3c260967
--- /dev/null
+++ b/src/model/VideoCoordinationModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VideoCoordinationModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/VideoCoordinationModel.res b/src/model/VideoCoordinationModel.res
deleted file mode 100644
index dd21804f..00000000
--- a/src/model/VideoCoordinationModel.res
+++ /dev/null
@@ -1,25 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// VideoCoordination Model — types for the Video Move Coordination panel.
-///
-/// Manages the state of video transfers between Google Drive and Google Photos.
-
-type transferBatch = {
-  id: string,
-  source: string,
-  destination: string,
-  totalFiles: int,
-  processedFiles: int,
-  failedFiles: int,
-  status: string, // "Idle", "Active", "Paused", "Completed"
-  startTime: option<float>,
-}
-
-/// State for the VideoCoordination panel.
-type videoCoordinationState = {
-  activeBatches: list<transferBatch>,
-  loading: bool,
-  error: option<string>,
-  totalBytesMoved: float,
-  quotaRemaining: float, // Daily 750GB limit tracking
-}
diff --git a/src/model/VmInspectorModel.affine b/src/model/VmInspectorModel.affine
new file mode 100644
index 00000000..a5f24383
--- /dev/null
+++ b/src/model/VmInspectorModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VmInspectorModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/VmInspectorModel.res b/src/model/VmInspectorModel.res
deleted file mode 100644
index 2e3a097a..00000000
--- a/src/model/VmInspectorModel.res
+++ /dev/null
@@ -1,151 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL VM Inspector Model — types for the reversible VM visual debugger.
-///
-/// The VM Inspector provides a visual debugger for IDApTIK's reversible
-/// computation engine. It renders stack state, memory cells, the instruction
-/// pointer with assembly listing, and supports stepping forward AND backward
-/// (leveraging the VM's reversibility).
-///
-/// The inspector connects to the running game's VM state via Gossamer
-/// inter-webview messaging or serialised JSON file (decoupled mode).
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// VM instruction tier — the 5-tier hierarchy from the IDApTIK VM.
-type vmInstructionTier =
-  /// Tier 0: Arithmetic (ADD, SUB, SWAP, NEGATE, NOOP, XOR, FLIP, ROL, ROR, AND, OR, MUL, DIV).
-  | TierArithmetic
-  /// Tier 1: Conditionals (IF_ZERO, IF_POS, LOOP).
-  | TierConditionals
-  /// Tier 2: Stack/Memory (PUSH, POP, LOAD, STORE).
-  | TierStackMemory
-  /// Tier 3: Subroutines (CALL).
-  | TierSubroutines
-  /// Tier 4: I/O (SEND, RECV).
-  | TierIO
-
-/// A single VM instruction in the listing.
-type vmInstruction = {
-  /// Instruction index (program counter value).
-  index: int,
-  /// Instruction mnemonic (e.g., "ADD", "PUSH 42", "IF_ZERO").
-  mnemonic: string,
-  /// Which tier this instruction belongs to.
-  tier: vmInstructionTier,
-  /// Whether this instruction has a breakpoint set.
-  hasBreakpoint: bool,
-  /// Number of times this instruction has been executed.
-  executionCount: int,
-}
-
-/// A memory cell in the VM's addressable memory.
-type vmMemoryCell = {
-  /// Memory address (0-based index).
-  address: int,
-  /// Current value stored at this address.
-  value: int,
-  /// Whether this cell was recently read (for highlighting).
-  recentRead: bool,
-  /// Whether this cell was recently written (for highlighting).
-  recentWrite: bool,
-}
-
-/// A port I/O buffer entry for SEND/RECV monitoring.
-type vmPortEntry = {
-  /// Port number.
-  port: int,
-  /// Direction: true = sent, false = received.
-  isSend: bool,
-  /// The value sent/received.
-  value: int,
-  /// When this I/O occurred (execution step number).
-  atStep: int,
-}
-
-/// A snapshot of the VM state at a specific execution step.
-type vmSnapshot = {
-  /// Execution step number (monotonically increasing).
-  step: int,
-  /// Current program counter.
-  pc: int,
-  /// Stack contents (top of stack is last element).
-  stack: array<int>,
-  /// Memory cells.
-  memory: array<vmMemoryCell>,
-  /// Which instruction was executed at this step.
-  instructionMnemonic: string,
-}
-
-/// Breakpoint configuration.
-type vmBreakpoint =
-  /// Break when the program counter reaches this instruction index.
-  | BreakAtInstruction(int)
-  /// Break when a memory address is read.
-  | BreakOnMemoryRead(int)
-  /// Break when a memory address is written.
-  | BreakOnMemoryWrite(int)
-  /// Break when stack depth reaches a threshold.
-  | BreakOnStackDepth(int)
-
-/// VM connection mode — how the inspector gets VM state.
-type vmConnectionMode =
-  /// Live connection via Gossamer inter-webview messaging.
-  | VmLiveConnection
-  /// File-based: reads serialised VM state from a JSON file (watcher picks up changes).
-  | VmFileConnection(string)
-  /// Disconnected — no VM state available.
-  | VmDisconnected
-
-/// Category tabs for the VM Inspector panel.
-type vmInspectorCategory =
-  /// Main debugger view (stack + memory + instructions + controls).
-  | InspectorDebugger
-  /// Execution timeline scrubber — drag to any point in history.
-  | InspectorTimeline
-  /// Subroutine call graph visualisation.
-  | InspectorCallGraph
-  /// Port I/O monitoring (SEND/RECV buffers).
-  | InspectorPortIO
-  /// Instruction statistics (most executed, cycle count, tier usage).
-  | InspectorStatistics
-
-/// Root state for the VM Inspector panel.
-type vmInspectorState = {
-  /// How the inspector connects to the VM.
-  connection: vmConnectionMode,
-  /// Active category tab.
-  activeCategory: vmInspectorCategory,
-  /// Current program counter.
-  pc: int,
-  /// Current stack (top of stack is last element).
-  stack: array<int>,
-  /// Memory cells (fixed-size array, typically 256 cells).
-  memory: array<vmMemoryCell>,
-  /// Instruction listing (the loaded program).
-  instructions: array<vmInstruction>,
-  /// Execution history (ring buffer, last 10000 snapshots).
-  history: array<vmSnapshot>,
-  /// Current position in the execution timeline (index into history).
-  timelinePosition: int,
-  /// Active breakpoints.
-  breakpoints: array<vmBreakpoint>,
-  /// Port I/O log.
-  portLog: array<vmPortEntry>,
-  /// Whether the VM is currently executing (running to next breakpoint).
-  running: bool,
-  /// Total execution steps so far.
-  totalSteps: int,
-  /// Per-instruction execution counts (for statistics).
-  instructionCounts: array<int>,
-  /// Per-tier execution counts.
-  tierCounts: array<int>,
-  /// Error message (if any).
-  error: option<string>,
-  /// Loading state.
-  loading: bool,
-  /// Whether multi-VM view is active (shows multiple VMs for multiplayer).
-  multiVmView: bool,
-  /// Route DAP operations through BoJ's dap-mcp cartridge instead of direct Gossamer.
-  bojRouting: bool,
-}
diff --git a/src/model/VoiceTagModel.affine b/src/model/VoiceTagModel.affine
new file mode 100644
index 00000000..ea1bda16
--- /dev/null
+++ b/src/model/VoiceTagModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VoiceTagModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/VoiceTagModel.res b/src/model/VoiceTagModel.res
deleted file mode 100644
index e233ed7a..00000000
--- a/src/model/VoiceTagModel.res
+++ /dev/null
@@ -1,139 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Code MRI — VoiceTag Model (Layer 0)
-///
-/// Types for the annotation/tagging system that forms the foundation of Code MRI
-/// (Mutual Recognition & Integrity). Tags are stored as `.mri.json` sidecar files
-/// alongside source files — a portable, editor-agnostic format that any tool can
-/// read and write. PanLL adds voice input, agentic policy, provenance integration,
-/// and the full Code MRI timeline on top.
-///
-/// STANDALONE-FIRST: The `.mri.json` format is designed so that someone who never
-/// installs PanLL can still use Code MRI tags with a CLI tool, VS Code extension,
-/// Vim plugin, or anything that reads JSON. PanLL is one consumer of this format,
-/// not the gatekeeper. If someone builds a better Code MRI viewer, the data is
-/// theirs — no lock-in.
-///
-/// Tag types fall into three categories:
-///   Standard  — TODO, FIXME, REFACTOR, NOTE, QUESTION, WARN, REVIEW
-///   Modal     — CARE_ON, ECO_MODE, BURDEN (change system behaviour, not just annotate)
-///   Custom    — user-defined tag types for project-specific concerns
-
-/// Standard annotation tag types plus modal tags that affect system behaviour.
-/// Modal tags (CareOn, EcoMode, Burden) are part of DD-017 — they adjust
-/// panic-attack sensitivity, triaxial priority scoring, and constraint tuning.
-type mriTagType =
-  | Todo
-  | Fixme
-  | Refactor
-  | Note
-  | Question
-  | Warn
-  | Review
-  | CareOn
-  | EcoMode
-  | Burden
-  | Custom(string)
-
-/// How the tag was created — voice, keyboard, agent, or imported from another tool.
-/// This attribution is on the TAG ITSELF, not the code it annotates. "Who said this
-/// region needs attention?" is different from "Who wrote this code?" — both matter.
-type mriInputMethod =
-  | Voice
-  | Keyboard
-  | Agent(string)
-  | Import(string)
-  | Api
-
-/// Who created this tag and how.
-type mriAttribution = {
-  agent: string,
-  method: mriInputMethod,
-  timestamp: float,
-  sessionId: option<string>,
-}
-
-/// Who wrote the code that a tag annotates (not the tag itself).
-/// This feeds the Provenance Map and the "Turnitin-but-honest" authorship tracking.
-type mriCodeAuthor = {
-  author: string,
-  email: string,
-  isAi: bool,
-  aiModel: option<string>,
-  coAuthored: bool,
-  coAuthor: option<string>,
-}
-
-/// A single Code MRI tag — the atomic unit of annotation.
-///
-/// Tags are numbered per file for easy voice reference ("delete tag 3", "show tag 7").
-/// The number is stable within a session but may be reassigned if tags are deleted
-/// and the file is compacted. For persistent cross-session references, use the
-/// combination of (file, startLine, endLine, tagType).
-type mriTag = {
-  id: int,
-  startLine: int,
-  endLine: int,
-  tagType: mriTagType,
-  message: option<string>,
-  attribution: mriAttribution,
-  codeAuthor: option<mriCodeAuthor>,
-  resolved: bool,
-  resolvedBy: option<mriAttribution>,
-}
-
-/// Summary statistics for a file's tags — displayed in the Provenance Map bar
-/// and used by the Vexometer to calculate annotation-based friction.
-type mriFileSummary = {
-  totalTags: int,
-  unresolvedTags: int,
-  todoCount: int,
-  fixmeCount: int,
-  careOnRegions: int,
-  ecoModeRegions: int,
-  burdenRegions: int,
-  aiTagCount: int,
-  humanTagCount: int,
-}
-
-/// The `.mri.json` sidecar file format — portable, editor-agnostic, no PanLL
-/// dependency. Version field ensures forward compatibility.
-///
-/// File naming convention: `<source-file>.mri.json`
-/// Example: `Model.res` → `Model.res.mri.json`
-///
-/// The format is intentionally simple so that a 20-line Python script or a
-/// jq command can create and query tags. PanLL's voice/agent/provenance layers
-/// are value-add, not requirements.
-type mriFile = {
-  version: string,
-  sourceFile: string,
-  tags: array<mriTag>,
-  lastModified: float,
-  totalLines: option<int>,
-}
-
-/// Voice recognition state — uses browser-native Web Speech API.
-/// No external service, no API key, no network dependency.
-type voiceState =
-  | VoiceOff
-  | VoiceListening
-  | VoiceProcessing(string)
-  | VoiceError(string)
-
-/// The complete VoiceTag panel state within PanLL.
-type voiceTagState = {
-  /// Tags for the currently viewed file (loaded from .mri.json sidecar)
-  currentFile: option<string>,
-  tags: array<mriTag>,
-  /// Voice input state
-  voice: voiceState,
-  /// UI state
-  selectedTagId: option<int>,
-  filterType: option<mriTagType>,
-  showResolved: bool,
-  /// Summary for the provenance bar
-  summary: mriFileSummary,
-  /// Error display
-  error: option<string>,
-}
diff --git a/src/model/VqlModel.affine b/src/model/VqlModel.affine
new file mode 100644
index 00000000..50737e59
--- /dev/null
+++ b/src/model/VqlModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VqlModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/VqlModel.res b/src/model/VqlModel.res
deleted file mode 100644
index f38907b2..00000000
--- a/src/model/VqlModel.res
+++ /dev/null
@@ -1,539 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// VCL-total Panel Model — The flagship PanLL panel for type-safe query authoring.
-//
-// This model defines the complete state for the VCL panel, including:
-// - 10-level progressive type safety (the core VCL-total innovation)
-// - A dedicated linter with 30+ rules across 6 categories
-// - A dedicated formatter with configurable style presets
-// - Cross-prover query construction and dispatch
-// - VeriSimDB octad-aware schema browsing
-// - Query plan visualization and cost estimation
-// - Session management with proof obligation tracking
-//
-// The VCL panel is the primary interface through which PanLL users
-// interact with the entire VeriSimDB + ECHIDNA proof ecosystem.
-
-// ============================================================
-// SECTION 1: Type Safety Levels (the 10-level VCL-total ratchet)
-// ============================================================
-
-/// The 10 progressive type safety levels of VCL-total.
-/// Each level strictly subsumes the previous — once you ratchet up,
-/// the linter enforces the new minimum.
-type typeSafetyLevel =
-  | L0_Unsafe // Raw string queries, no checking
-  | L1_Parsed // Syntactically valid VCL
-  | L2_SchemaBound // All tables/columns resolve against schema
-  | L3_TypeCompat // Expression types are compatible (no int = string)
-  | L4_NullSafe // Nullable columns handled explicitly
-  | L5_InjectionProof // No string interpolation in query positions
-  | L6_ResultTyped // Return type fully determined at compile time
-  | L7_CardinalitySafe // Cardinality bounds proven (no unbounded scans)
-  | L8_EffectTracked // Side effects (writes, locks) declared and tracked
-  | L9_TemporalSafe // Temporal consistency (no future reads, no stale joins)
-  | L10_LinearSafe // Linear resource usage (exactly-once consumption proven)
-
-/// Metadata about a safety level — used for UI display and narratives.
-type levelMeta = {
-  level: typeSafetyLevel,
-  name: string,
-  shortName: string,
-  description: string,
-  glyph: string,
-  colour: string, // Tailwind colour class
-  bgColour: string, // Tailwind bg class
-  proverRequired: bool, // Whether this level needs ECHIDNA prover dispatch
-}
-
-// ============================================================
-// SECTION 2: Linter System
-// ============================================================
-
-/// Lint rule severity — determines how the linter treats violations.
-type lintSeverity =
-  | LintError // Query will not execute
-  | LintWarning // Query may produce unexpected results
-  | LintInfo // Suggestion for improvement
-  | LintHint // Style/convention recommendation
-
-/// Lint rule categories — each category maps to a VCL-total concern.
-type lintCategory =
-  | CatSyntax // Parse-level issues (L1)
-  | CatSchema // Schema binding issues (L2)
-  | CatType // Type compatibility (L3-L4)
-  | CatSecurity // Injection, access control (L5)
-  | CatPerformance // Cardinality, indexing, scans (L7)
-  | CatCorrectness // Effects, temporality, linearity (L8-L10)
-
-/// A single lint diagnostic emitted by the VCL linter.
-type lintDiagnostic = {
-  ruleId: string, // e.g. "VCL-S001" (Syntax), "VCL-T003" (Type)
-  category: lintCategory,
-  severity: lintSeverity,
-  line: int,
-  column: int,
-  endLine: int,
-  endColumn: int,
-  message: string,
-  suggestion: option<string>, // Auto-fix suggestion
-  relatedLevel: typeSafetyLevel, // Which level this rule enforces
-}
-
-/// Linter configuration — which rules are active and at what severity.
-type lintProfile =
-  | ProfileStrict // All rules at maximum severity
-  | ProfileRecommended // Default — errors + warnings, no hints
-  | ProfileRelaxed // Errors only
-  | ProfileCustom // User-configured rule set
-
-/// Full linter state.
-type linterState = {
-  profile: lintProfile,
-  minimumLevel: typeSafetyLevel, // Floor — violations below this level are errors
-  diagnostics: array<lintDiagnostic>,
-  suppressions: array<string>, // Rule IDs the user has suppressed
-  autoFixEnabled: bool,
-  lintOnType: bool, // Lint as user types (debounced)
-  lintDebounceMs: int,
-}
-
-// ============================================================
-// SECTION 3: Formatter System
-// ============================================================
-
-/// Formatter style presets — opinionated formatting for VCL queries.
-type formatStyle =
-  | StyleStandard // VCL-total official style (keywords uppercase, 2-space indent)
-  | StyleCompact // Minimal whitespace, single-line where possible
-  | StyleExpanded // One clause per line, generous whitespace
-  | StyleProof // Annotated with type obligations and proof markers
-  | StyleCustom // User-configured
-
-/// Formatter options — fine-grained control over output.
-type formatOptions = {
-  style: formatStyle,
-  indentWidth: int, // Spaces per indent level (default: 2)
-  uppercaseKeywords: bool, // SELECT vs select
-  alignClauses: bool, // Vertically align FROM, WHERE, etc.
-  trailingComma: bool, // Comma after last SELECT column
-  maxLineWidth: int, // Wrap threshold (default: 100)
-  insertBlankLines: bool, // Between major clauses
-  annotateTypes: bool, // Inline type annotations as comments
-  showLevelMarkers: bool, // [L3] markers on type-checked expressions
-  colourOutput: bool, // Syntax highlighting in formatted output
-}
-
-/// Formatter state.
-type formatterState = {
-  options: formatOptions,
-  lastFormatted: option<string>, // Formatted output (for diff view)
-  showDiff: bool, // Side-by-side original vs formatted
-  formatOnSave: bool,
-}
-
-// ============================================================
-// SECTION 4: Query Editor
-// ============================================================
-
-/// Query operation types — what the user is trying to do.
-type queryOperation =
-  | OpFindProof // Search for proofs matching criteria
-  | OpFindSimilar // Vector similarity search on proof embeddings
-  | OpCrossProverSearch // Federated search across multiple provers
-  | OpProvenanceTrace // Track proof lineage through VeriSimDB
-  | OpTemporalHistory // View proof evolution over time
-  | OpDependencyGraph // Map theorem dependencies
-  | OpAxiomUsage // Which axioms does this proof rely on?
-  | OpTacticStats // Tactic frequency and success rates
-  | OpCustom // Raw VCL-total query
-
-/// A template parameter with type and validation.
-type templateParameter = {
-  name: string,
-  paramType: string, // "string" | "int" | "prover" | "tactic" | etc.
-  description: string,
-  defaultValue: option<string>,
-  validation: option<string>, // Regex or VCL-total type expression
-}
-
-/// A saved query template — reusable parameterised queries.
-type queryTemplate = {
-  id: string,
-  name: string,
-  description: string,
-  operation: queryOperation,
-  template: string, // VCL-total with {{param}} placeholders
-  parameters: array<templateParameter>,
-  requiredLevel: typeSafetyLevel,
-}
-
-/// Editor state — the main query editing surface.
-type editorState = {
-  content: string,
-  cursorLine: int,
-  cursorColumn: int,
-  selectionStart: option<(int, int)>,
-  selectionEnd: option<(int, int)>,
-  undoStack: array<string>,
-  redoStack: array<string>,
-  activeOperation: queryOperation,
-  activeTemplate: option<queryTemplate>,
-  parameterValues: array<(string, string)>, // Filled-in template params
-  isDirty: bool,
-  lastSaved: option<float>, // Timestamp
-}
-
-// ============================================================
-// SECTION 5: Query Execution & Results
-// ============================================================
-
-/// Execution target — where the query runs.
-type executionTarget =
-  | TargetVeriSimDB // Direct VeriSimDB HTTP API
-  | TargetEchidna // Via ECHIDNA cross-prover engine
-  | TargetBoJ // Via BoJ server cartridge routing
-  | TargetTypeLL // Type-check only (no execution)
-  | TargetDryRun // Parse + plan, don't execute
-
-/// Query execution status.
-type executionStatus =
-  | Idle
-  | Parsing
-  | TypeChecking(typeSafetyLevel) // Currently at this level
-  | Planning
-  | Executing
-  | Streaming(int) // Rows received so far
-  | Complete(float) // Duration in ms
-  | Failed(string) // Error message
-
-/// A single result row — generic key-value pairs.
-type resultCell =
-  | CellString(string)
-  | CellInt(int)
-  | CellFloat(float)
-  | CellBool(bool)
-  | CellNull
-  | CellProver(string) // Prover name with icon
-  | CellProof(string) // Proof ID (clickable)
-  | CellTactic(string) // Tactic name (clickable)
-  | CellLevel(typeSafetyLevel) // Safety level badge
-  | CellOctad(string) // VeriSimDB octad reference
-
-/// Column definition for result display.
-type resultColumn = {
-  name: string,
-  columnType: string,
-  width: option<int>,
-  sortable: bool,
-  filterable: bool,
-}
-
-/// A single step in the query execution plan.
-type rec planStep = {
-  operation: string, // "scan", "filter", "join", "sort", "aggregate", "prove"
-  target: string, // Table/index/prover name
-  estimatedRows: int,
-  estimatedCostPct: float,
-  children: array<planStep>,
-}
-
-/// Query plan — how VeriSimDB/ECHIDNA will execute the query.
-type queryPlan = {
-  steps: array<planStep>,
-  estimatedCost: float,
-  estimatedRows: int,
-  proversInvolved: array<string>,
-  octadModalities: array<string>, // Which of the 8 modalities are touched
-}
-
-/// The 4-part evangeliser narrative from TypeLL integration.
-type typeNarrative = {
-  celebrate: string, // What's good about this query
-  minimize: string, // Why issues aren't catastrophic
-  showBetter: string, // How to improve
-  safety: string, // What safety guarantees you get
-}
-
-/// Type checking report from TypeLL.
-type typeReport = {
-  achievedLevel: typeSafetyLevel,
-  requestedLevel: typeSafetyLevel,
-  passed: bool,
-  issues: array<lintDiagnostic>,
-  inferredTypes: array<(string, string)>, // (expression, inferred_type) pairs
-  narrative: option<typeNarrative>,
-}
-
-/// Proof obligation status.
-type obligationStatus =
-  | Pending
-  | Discharged(string) // Evidence/certificate
-  | Refuted(string) // Counter-example
-  | Timeout
-
-/// Proof obligation generated by type checking.
-type proofObligation = {
-  id: string,
-  description: string,
-  status: obligationStatus,
-  prover: option<string>,
-  evidence: option<string>,
-}
-
-/// Query result set.
-type queryResult = {
-  columns: array<resultColumn>,
-  rows: array<array<resultCell>>,
-  totalRows: int,
-  fetchedRows: int,
-  truncated: bool,
-  executionTimeMs: float,
-  queryPlan: option<queryPlan>,
-  typeReport: option<typeReport>,
-  proofObligations: array<proofObligation>,
-}
-
-/// Query history entry.
-type historyEntry = {
-  id: string,
-  query: string,
-  operation: queryOperation,
-  target: executionTarget,
-  achievedLevel: typeSafetyLevel,
-  timestamp: float,
-  durationMs: float,
-  rowCount: int,
-  success: bool,
-  favourite: bool,
-}
-
-/// Execution state.
-type executionState = {
-  target: executionTarget,
-  status: executionStatus,
-  lastResult: option<queryResult>,
-  history: array<historyEntry>,
-  maxHistorySize: int,
-  streamingEnabled: bool,
-  timeoutMs: int,
-}
-
-// ============================================================
-// SECTION 6: Schema Browser
-// ============================================================
-
-/// VeriSimDB octad modality — the 8 dimensions of proof storage.
-type octadModality =
-  | ModSemantic // Meaning/content (CBOR-encoded proof states)
-  | ModTemporal // Time/versioning (proof evolution chains)
-  | ModProvenance // Origin/attribution (who proved what, when)
-  | ModDocument // Full-text (searchable proof text)
-  | ModGraph // Relationships (theorem dependency DAGs)
-  | ModVector // Embeddings (similarity search on goals)
-  | ModTensor // Multi-dimensional metrics (performance data)
-  | ModSpatial // Origin metadata (prover location, cluster topology)
-
-/// Schema column definition.
-type schemaColumn = {
-  name: string,
-  dataType: string,
-  nullable: bool,
-  indexed: bool,
-  description: string,
-  foreignKey: option<(string, string)>, // (table, column)
-}
-
-/// Schema entity — a table, view, or virtual collection in VeriSimDB.
-type schemaEntity = {
-  name: string,
-  entityType: string, // "table" | "view" | "virtual" | "octad"
-  modalities: array<octadModality>,
-  columns: array<schemaColumn>,
-  rowEstimate: int,
-  description: string,
-}
-
-/// Schema browser state.
-type schemaState = {
-  entities: array<schemaEntity>,
-  expandedEntities: array<string>,
-  searchFilter: string,
-  modalityFilter: option<octadModality>,
-  lastRefreshed: option<float>,
-  loading: bool,
-}
-
-// ============================================================
-// SECTION 7: Cross-Prover Dispatch
-// ============================================================
-
-/// Prover selection strategy for cross-prover queries.
-type proverStrategy =
-  | StrategyAuto // ECHIDNA chooses based on goal structure
-  | StrategyPortfolio // Run on all applicable provers, take first success
-  | StrategySingle(string) // Specific prover by name
-  | StrategyTiered // Try fast provers first, escalate to slow ones
-  | StrategyConsensus // Require N provers to agree
-
-/// Prover status in the dispatch panel.
-type proverStatus = {
-  name: string,
-  kind: string, // "interactive" | "smt" | "atp" | "declarative" | "constraint"
-  available: bool,
-  lastLatencyMs: option<float>,
-  successRate: option<float>,
-  proofCount: int,
-}
-
-/// Cross-prover dispatch state.
-type dispatchState = {
-  strategy: proverStrategy,
-  availableProvers: array<proverStatus>,
-  selectedProvers: array<string>,
-  consensusThreshold: int, // For StrategyConsensus
-  timeoutPerProverMs: int,
-  showProverDetails: bool,
-}
-
-// ============================================================
-// SECTION 8: View Layers (Progressive Disclosure)
-// ============================================================
-
-/// View layer for progressive disclosure of query complexity.
-type viewLayer =
-  | Raw // Full VCL-total syntax with all annotations
-  | Folded // Collapsed sub-expressions, summary types
-  | Glyphed // Mathematical symbols replace keywords (forall, exists, etc.)
-  | Wysiwyg // Interactive visual query builder
-
-// ============================================================
-// SECTION 9: Panel Tabs
-// ============================================================
-
-/// The 7 tabs of the VCL panel — each a distinct workflow.
-type vclTab =
-  | TabEditor // Query editor with linting and formatting
-  | TabResults // Result table with sorting/filtering
-  | TabPlan // Query plan visualization (tree diagram)
-  | TabSchema // VeriSimDB octad schema browser
-  | TabProvers // Cross-prover dispatch configuration
-  | TabHistory // Query history with favourites
-  | TabLintConfig // Linter and formatter configuration
-
-// ============================================================
-// SECTION 10: Top-Level Panel State
-// ============================================================
-
-/// Connection status to VeriSimDB.
-type connectionStatus =
-  | VclDisconnected
-  | VclConnecting
-  | VclConnected(string) // Endpoint URL
-  | VclError(string) // Error message
-
-/// The complete VCL panel state — assembled from all subsystems.
-type vclState = {
-  // Panel chrome
-  activeTab: vclTab,
-  viewLayer: viewLayer,
-  panelOpen: bool,
-  fullscreen: bool,
-  // Connection
-  connection: connectionStatus,
-  verisimEndpoint: string,
-  echidnaEndpoint: string,
-  typellEndpoint: string,
-  bojRouting: bool,
-  // Subsystems
-  editor: editorState,
-  linter: linterState,
-  formatter: formatterState,
-  execution: executionState,
-  schema: schemaState,
-  dispatch: dispatchState,
-  // Cross-panel
-  typeCheckResult: option<typeReport>,
-  pendingObligations: array<proofObligation>,
-}
-
-// ============================================================
-// SECTION 11: Messages
-// ============================================================
-
-/// All messages the VCL panel can receive — each maps to a state transition.
-type vclMsg =
-  // Tab navigation
-  | SetTab(vclTab)
-  | SetViewLayer(viewLayer)
-  | ToggleFullscreen
-  // Editor
-  | SetContent(string)
-  | SetCursorPosition(int, int)
-  | SetSelection(option<(int, int)>, option<(int, int)>)
-  | Undo
-  | Redo
-  | SetOperation(queryOperation)
-  | ApplyTemplate(queryTemplate)
-  | SetParameterValue(string, string)
-  | InsertSnippet(string)
-  | ClearEditor
-  // Linter
-  | RunLint
-  | LintComplete(array<lintDiagnostic>)
-  | SetLintProfile(lintProfile)
-  | SetMinimumLevel(typeSafetyLevel)
-  | ToggleLintOnType
-  | SuppressRule(string)
-  | UnsuppressRule(string)
-  | ApplyAutoFix(lintDiagnostic)
-  | ApplyAllFixes
-  // Formatter
-  | RunFormat
-  | FormatComplete(string)
-  | SetFormatStyle(formatStyle)
-  | SetFormatOption(string, string) // (key, value) for custom options
-  | ToggleFormatDiff
-  | ToggleFormatOnSave
-  // Execution
-  | ExecuteQuery
-  | CancelQuery
-  | SetExecutionTarget(executionTarget)
-  | ExecutionProgress(executionStatus)
-  | QueryComplete(queryResult)
-  | QueryFailed(string)
-  | SetStreamingEnabled(bool)
-  | SetTimeout(int)
-  // Results
-  | SortResults(string, bool) // (column, ascending)
-  | FilterResults(string, string) // (column, filter_text)
-  | PageResults(int) // Page number
-  | ExportResults(string) // Format: "csv" | "json" | "a2ml"
-  // Schema
-  | RefreshSchema
-  | SchemaLoaded(array<schemaEntity>)
-  | ToggleEntity(string)
-  | SetSchemaFilter(string)
-  | SetModalityFilter(option<octadModality>)
-  // Provers
-  | SetProverStrategy(proverStrategy)
-  | ToggleProver(string)
-  | RefreshProverStatus
-  | ProverStatusUpdated(array<proverStatus>)
-  // History
-  | SaveToHistory
-  | LoadFromHistory(historyEntry)
-  | ToggleFavourite(string)
-  | ClearHistory
-  // Connection
-  | Connect
-  | Disconnect
-  | ConnectionChanged(connectionStatus)
-  | SetVeriSimEndpoint(string)
-  | SetEchidnaEndpoint(string)
-  | ToggleBojRouting
-  // TypeLL integration
-  | RequestTypeCheck
-  | TypeCheckReceived(typeReport)
-  | DischargeObligation(string, string) // (obligation_id, evidence)
-  // Keyboard shortcuts
-  | KeyboardShortcut(string) // "ctrl+enter", "ctrl+shift+f", etc.
diff --git a/src/model/WatcherModel.affine b/src/model/WatcherModel.affine
new file mode 100644
index 00000000..413a1bff
--- /dev/null
+++ b/src/model/WatcherModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module WatcherModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/WatcherModel.res b/src/model/WatcherModel.res
deleted file mode 100644
index c2d51508..00000000
--- a/src/model/WatcherModel.res
+++ /dev/null
@@ -1,62 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL WatcherModel — Filesystem observation state types.
-///
-/// The Watcher is CORE INFRASTRUCTURE, not a panel. It feeds events into the
-/// TEA loop so every panel can react to filesystem changes: Farm sees new repos,
-/// Plaza detects LICENSE changes, Hypatia re-scans on code modifications,
-/// Reposystem checks compliance when files are added or removed.
-///
-/// Events arrive via Gossamer's event bus (`watcher://event`) and are debounced
-/// at 500ms on the Rust side to avoid flooding the TEA loop.
-
-/// The kind of filesystem change detected by the watcher.
-///
-/// Simplified from the full `notify::EventKind` taxonomy into categories
-/// that panels can meaningfully react to.
-type watchEventKind =
-  /// A new file or directory was created.
-  | Created
-  /// An existing file's content was modified.
-  | Modified
-  /// A file or directory was removed.
-  | Removed
-  /// A file or directory was renamed.
-  | Renamed
-  /// Something changed but classification is uncertain.
-  | Other
-
-/// A single filesystem event, debounced and enriched with metadata.
-///
-/// This is the payload received from the Rust watcher via the Gossamer event bus.
-/// Each event carries enough information for panels to decide whether they
-/// care about it (extension, filename, path prefix matching).
-type watchEvent = {
-  /// The absolute path that changed.
-  path: string,
-  /// What kind of change occurred.
-  kind: watchEventKind,
-  /// Whether the changed path is a directory.
-  isDir: bool,
-  /// Unix timestamp (seconds) when the event was detected.
-  timestamp: float,
-  /// File extension without dot (e.g., "rs", "res", "toml"). Empty for
-  /// directories or files without extensions.
-  extension: string,
-  /// Filename component (e.g., "Cargo.toml", "LICENSE").
-  filename: string,
-}
-
-/// Current operational state of the Watcher subsystem.
-type watcherState = {
-  /// Whether the Rust watcher is currently running.
-  running: bool,
-  /// Paths currently being watched (absolute paths).
-  watchedPaths: array<string>,
-  /// Total events received since the watcher was last started.
-  eventCount: int,
-  /// Most recent events (ring buffer, last 50).
-  recentEvents: array<watchEvent>,
-  /// Last error from the watcher, if any.
-  error: option<string>,
-}
diff --git a/src/model/WiringInspectorModel.affine b/src/model/WiringInspectorModel.affine
new file mode 100644
index 00000000..414aa140
--- /dev/null
+++ b/src/model/WiringInspectorModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module WiringInspectorModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/WiringInspectorModel.res b/src/model/WiringInspectorModel.res
deleted file mode 100644
index 88f071ac..00000000
--- a/src/model/WiringInspectorModel.res
+++ /dev/null
@@ -1,143 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Wiring Inspector Model — types for the Panel Contract Compiler UI.
-///
-/// Surfaces PCC constraint state inside PanLL: obligation status, failure
-/// classification, repairability, bottleneck analysis. Each obligation maps
-/// to a slot in the DD-004 8-file panel wiring pattern.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-/// Obligation status from the constraint propagation engine.
-type obligationStatus = Satisfied | Unsatisfied | Blocked
-
-/// Failure classification — root failures cause derived failures.
-type failureClass = Root | Derived | NotFailed
-
-/// How safely this obligation can be repaired.
-type repairability = Safe | Unsafe | Manual
-
-/// A single obligation from the PCC constraint graph.
-type obligation = {
-  /// Unique obligation identifier (e.g. "registry:MyLang").
-  id: string,
-  /// Obligation kind (e.g. "registry_entry", "model_slice", "msg_namespace").
-  kind: string,
-  /// Panel this obligation belongs to.
-  panelId: string,
-  /// Current status from constraint propagation.
-  status: obligationStatus,
-  /// Whether this is a root failure or derived from another.
-  failureClass: failureClass,
-  /// How safely auto-repair could fix this obligation.
-  repairability: repairability,
-  /// Human-readable diagnostic message.
-  message: string,
-  /// Source file where the obligation is checked.
-  file: option<string>,
-  /// Expected value or pattern (for unsatisfied obligations).
-  expected: option<string>,
-  /// IDs of obligations this one depends on.
-  dependsOn: array<string>,
-  /// Number of downstream obligations blocked by this one.
-  blockedDownstreamCount: int,
-}
-
-/// Panel lifecycle state from the PCC completion policy.
-type panelState = Draft | Wired | Viable | Releasable | Broken
-
-/// Policy decision for a panel — state, visibility, and release eligibility.
-type policyDecision = {
-  /// Current lifecycle state.
-  state: panelState,
-  /// Whether the panel is visible in the UI.
-  visible: bool,
-  /// Whether the panel is eligible for release.
-  releasable: bool,
-  /// The next unsatisfied requirement blocking progress, if any.
-  nextRequirement: option<string>,
-}
-
-/// State distribution across all panels — counts per lifecycle state.
-type stateDistribution = {
-  /// Total number of panels.
-  total: int,
-  /// Panels at Releasable state.
-  releasable: int,
-  /// Panels at Viable state.
-  viable: int,
-  /// Panels at Wired state.
-  wired: int,
-  /// Panels at Draft state.
-  draft: int,
-  /// Panels at Broken state.
-  broken: int,
-}
-
-/// Audit tab selection — controls which sub-view is active.
-type auditTab = Overview | ByState | Bottlenecks | History
-
-/// Bottleneck entry — an unsatisfied obligation blocking downstream work.
-type bottleneck = {
-  /// Panel this bottleneck belongs to.
-  panelId: string,
-  /// Obligation identifier.
-  obligationId: string,
-  /// Obligation kind (registry, model, msg, view, test, etc.).
-  kind: string,
-  /// Number of downstream obligations blocked by this one.
-  blockedCount: int,
-  /// How safely this can be repaired.
-  repairability: repairability,
-  /// Diagnostic message.
-  message: string,
-  /// Source file where the obligation is checked.
-  file: option<string>,
-}
-
-/// Verification result for a single panel.
-type panelVerification = {
-  /// Panel identifier (e.g. "MyLang").
-  panelId: string,
-  /// Overall verification status ("complete" or "incomplete").
-  status: string,
-  /// Total number of obligations checked.
-  total: int,
-  /// Number of satisfied obligations.
-  satisfied: int,
-  /// Number of unsatisfied obligations.
-  unsatisfied: int,
-  /// Number of blocked obligations.
-  blocked: int,
-  /// Primary bottleneck obligation ID (highest downstream impact).
-  primaryBottleneck: option<string>,
-  /// All obligations for this panel.
-  obligations: array<obligation>,
-  /// PCC lifecycle state policy decision.
-  policy: policyDecision,
-}
-
-/// Overall inspector state — now serves as the Phase 5 Audit & Operator Trust dashboard.
-type wiringInspectorState = {
-  /// Whether a verification run is in progress.
-  loading: bool,
-  /// ISO timestamp of the last verification run.
-  lastRunAt: option<string>,
-  /// Verification results for all panels.
-  results: array<panelVerification>,
-  /// Currently selected panel for detail view.
-  selectedPanel: option<string>,
-  /// Filter obligations by status string ("Satisfied", "Unsatisfied", "Blocked").
-  filterStatus: option<string>,
-  /// Error message from the last failed verification run.
-  error: option<string>,
-  /// Currently active audit tab.
-  activeTab: auditTab,
-  /// Computed state distribution across all panels.
-  distribution: stateDistribution,
-  /// Extracted bottlenecks sorted by downstream impact.
-  bottlenecks: array<bottleneck>,
-  /// Current sort field for the bottleneck table.
-  sortBy: string,
-}
diff --git a/src/model/WizardModel.affine b/src/model/WizardModel.affine
new file mode 100644
index 00000000..02b36494
--- /dev/null
+++ b/src/model/WizardModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module WizardModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/WizardModel.res b/src/model/WizardModel.res
deleted file mode 100644
index c509b283..00000000
--- a/src/model/WizardModel.res
+++ /dev/null
@@ -1,473 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Wizard Model — State for the plugin/panel creation wizard.
-/// Depends on ProvisionerModel for pluginDependency, securityConfig, etc.
-open ProvisionerModel
-
-/// Wizard step
-type wizardStep =
-  /// Select what to create (panel or plugin)
-  | SelectType
-  /// Choose capabilities
-  | ChooseCapabilities
-  /// Configure dependencies
-  | ConfigureDependencies
-  /// Set up security
-  | SetupSecurity
-  /// Review and generate
-  | ReviewAndGenerate
-
-/// What are we creating?
-type creationType =
-  | CreatingPanel
-  | CreatingPlugin
-
-/// Security configuration
-type securityConfig = {
-  /// Trust tier
-  trustTier: pluginTrustTier,
-  /// Sandbox policy
-  sandboxPolicy: sandboxPolicy,
-  /// Network access
-  networkAccess: bool,
-  /// Filesystem access
-  filesystemAccess: bool,
-}
-
-/// Generation result
-type generationResult =
-  | GenerationSuccess({
-      filesCreated: array<string>,
-      filesPatched: array<string>,
-      warnings: array<string>,
-    })
-  | GenerationFailed(string)
-
-/// Template for quick-start configurations
-type wizardTemplate = {
-  /// Template name
-  name: string,
-  /// Template description
-  description: string,
-  /// Category/organization
-  category: string,
-  /// Capabilities to auto-select
-  capabilities: array<string>,
-  /// Dependencies to auto-add
-  dependencies: array<{
-    pluginId: string,
-    version: string,
-  }>,
-  /// Recommended security settings
-  securityConfig: securityConfig,
-}
-
-/// Wizard state
-type wizardState = {
-  /// Current step
-  currentStep: wizardStep,
-  /// What are we creating?
-  creationType: option<creationType>,
-  /// Selected capabilities
-  selectedCapabilities: array<string>,
-  /// Configured dependencies
-  dependencies: array<pluginDependency>,
-  /// Security configuration
-  securityConfig: securityConfig,
-  /// Generation in progress
-  generating: bool,
-  /// Validation errors
-  validationErrors: option<string>,
-  /// Generation result
-  generationResult: option<generationResult>,
-  /// Currently selected template (if any)
-  selectedTemplate: option<wizardTemplate>,
-  /// Test results (for debugging/validation)
-  testResults: option<{
-    report: string,
-    timestamp: float,
-  }>,
-}
-
-/// Default wizard state
-let defaultWizardState: wizardState = {
-  currentStep: SelectType,
-  creationType: None,
-  selectedCapabilities: [],
-  dependencies: [],
-  securityConfig: {
-    trustTier: Ayo,
-    sandboxPolicy: {
-      networkAccess: false,
-      filesystemAccess: false,
-      allowedCapabilities: [],
-    },
-    networkAccess: false,
-    filesystemAccess: false,
-  },
-  generating: false,
-  validationErrors: None,
-  generationResult: None,
-  selectedTemplate: None,
-  testResults: None,
-}
-
-/// Capability registry
-type capability = {
-  id: string,
-  name: string,
-  description: string,
-  category: string,
-  requiredDependencies: array<string>,
-}
-
-/// Available capabilities by category
-let capabilityRegistry: array<capability> = [
-  {
-    id: "ui-rendering",
-    name: "UI Rendering",
-    description: "Render user interfaces",
-    category: "UI",
-    requiredDependencies: [],
-  },
-  {
-    id: "data-fetching",
-    name: "Data Fetching",
-    description: "Fetch data from APIs",
-    category: "Data",
-    requiredDependencies: ["http-client"],
-  },
-  {
-    id: "http-client",
-    name: "HTTP Client",
-    description: "Make HTTP requests",
-    category: "Network",
-    requiredDependencies: [],
-  },
-  {
-    id: "state-management",
-    name: "State Management",
-    description: "Manage application state",
-    category: "State",
-    requiredDependencies: [],
-  },
-  {
-    id: "form-handling",
-    name: "Form Handling",
-    description: "Handle form input and validation",
-    category: "UI",
-    requiredDependencies: ["state-management"],
-  },
-  {
-    id: "routing",
-    name: "Routing",
-    description: "Handle navigation and routing",
-    category: "Navigation",
-    requiredDependencies: [],
-  },
-  {
-    id: "authentication",
-    name: "Authentication",
-    description: "Handle user authentication",
-    category: "Security",
-    requiredDependencies: ["http-client"],
-  },
-  {
-    id: "authorization",
-    name: "Authorization",
-    description: "Handle user permissions",
-    category: "Security",
-    requiredDependencies: ["authentication"],
-  },
-]
-
-/// Get capabilities by category
-let getCapabilitiesByCategory = (category: string): array<capability> => {
-  capabilityRegistry->Array.filter(cap => cap.category === category)
-}
-
-/// Get all capability categories
-let getCapabilityCategories = (): array<string> => {
-  capabilityRegistry
-  ->Array.map(cap => cap.category)
-  ->Array.reduce([], (acc, cat) =>
-    if acc->Array.includes(cat) { acc } else { acc->Array.concat([cat]) }
-  )
-}
-
-/// Check if capability is selected
-let isCapabilitySelected = (capId: string, state: wizardState): bool => {
-  state.selectedCapabilities->Array.includes(capId)
-}
-
-/// Toggle capability selection
-let toggleCapability = (capId: string, state: wizardState): wizardState => {
-  let selected = state.selectedCapabilities
-  if (selected->Array.includes(capId)) {
-    // Remove
-    {
-      ...state,
-      selectedCapabilities: selected->Array.filter(id => id !== capId),
-    }
-  } else {
-    // Add
-    {
-      ...state,
-      selectedCapabilities: selected->Array.concat([capId]),
-    }
-  }
-}
-
-/// Get required dependencies for selected capabilities
-let getRequiredDependencies = (state: wizardState): array<string> => {
-  state.selectedCapabilities
-  ->Array.flatMap(capId => {
-    capabilityRegistry
-    ->Array.find(cap => cap.id === capId)
-    ->Option.map(cap => cap.requiredDependencies)
-    ->Option.getOr([])
-  })
-  ->Array.reduce([], (acc, item) =>
-    if acc->Array.includes(item) { acc } else { Array.concat(acc, [item]) }
-  )
-}
-
-/// Check if all required dependencies are satisfied
-let areDependenciesSatisfied = (state: wizardState): bool => {
-  let required = getRequiredDependencies(state)
-  let satisfied = state.dependencies->Array.map(dep => dep.pluginId)
-  required->Array.every(req => satisfied->Array.includes(req))
-}
-
-/// Check if current step is the last step
-let isLastStep = (step: wizardStep): bool => {
-  step === ReviewAndGenerate
-}
-
-/// Add dependency to satisfy requirement
-let addDependency = (pluginId: string, version: string, state: wizardState): wizardState => {
-  let existing = state.dependencies->Array.find(dep => dep.pluginId === pluginId)
-  
-  if (existing->Option.isSome) {
-    // Update existing
-    {
-      ...state,
-      dependencies: state.dependencies->Array.map(dep =>
-        dep.pluginId === pluginId ? {...dep, version} : dep
-      ),
-    }
-  } else {
-    // Add new
-    {
-      ...state,
-      dependencies: state.dependencies->Array.concat([{
-        pluginId,
-        version,
-        tier: Ayo,  // Default tier
-      }]),
-    }
-  }
-}
-
-/// Validate wizard configuration
-let validateWizardConfig = (state: wizardState): array<string> => {
-  let errors = ref([]: array<string>)
-
-  if state.creationType->Option.isNone {
-    errors := errors.contents->Array.concat(["Please select what to create"])
-  }
-
-  if state.selectedCapabilities->Array.length === 0 {
-    errors := errors.contents->Array.concat(["Please select at least one capability"])
-  }
-
-  if !areDependenciesSatisfied(state) {
-    errors := errors.contents->Array.concat(["Some required dependencies are not satisfied"])
-  }
-
-  errors.contents
-}
-
-/// Can proceed to next step?
-let canProceed = (state: wizardState): bool => {
-  switch state.currentStep {
-  | SelectType => state.creationType->Option.isSome
-  | ChooseCapabilities => state.selectedCapabilities->Array.length > 0
-  | ConfigureDependencies => areDependenciesSatisfied(state)
-  | SetupSecurity => true  // Always can proceed from security
-  | ReviewAndGenerate => validateWizardConfig(state)->Array.length === 0
-  }
-}
-
-/// Get next step
-let getNextStep = (current: wizardStep): wizardStep => {
-  switch current {
-  | SelectType => ChooseCapabilities
-  | ChooseCapabilities => ConfigureDependencies
-  | ConfigureDependencies => SetupSecurity
-  | SetupSecurity => ReviewAndGenerate
-  | ReviewAndGenerate => ReviewAndGenerate  // Stay on review
-  }
-}
-
-/// Get previous step
-let getPreviousStep = (current: wizardStep): wizardStep => {
-  switch current {
-  | SelectType => SelectType  // Stay on first step
-  | ChooseCapabilities => SelectType
-  | ConfigureDependencies => ChooseCapabilities
-  | SetupSecurity => ConfigureDependencies
-  | ReviewAndGenerate => SetupSecurity
-  }
-}
-
-/// Step labels
-let stepLabel = (step: wizardStep): string => {
-  switch step {
-  | SelectType => "1. Select Type"
-  | ChooseCapabilities => "2. Choose Capabilities"
-  | ConfigureDependencies => "3. Configure Dependencies"
-  | SetupSecurity => "4. Setup Security"
-  | ReviewAndGenerate => "5. Review & Generate"
-  }
-}
-
-/// Step descriptions
-let stepDescription = (step: wizardStep): string => {
-  switch step {
-  | SelectType => "Choose whether to create a panel or plugin"
-  | ChooseCapabilities => "Select the capabilities your component needs"
-  | ConfigureDependencies => "Set up required dependencies"
-  | SetupSecurity => "Configure security and sandboxing"
-  | ReviewAndGenerate => "Review your configuration and generate"
-  }
-}
-
-/// Get step index (for progress tracking)
-let stepIndex = (step: wizardStep): int => {
-  switch step {
-  | SelectType => 0
-  | ChooseCapabilities => 1
-  | ConfigureDependencies => 2
-  | SetupSecurity => 3
-  | ReviewAndGenerate => 4
-  }
-}
-
-/// Check if step is the last step
-let isLastStep = (step: wizardStep): bool => {
-  step === ReviewAndGenerate
-}
-
-/// Predefined templates for common use cases
-let templateRegistry: array<wizardTemplate> = [
-  {
-    name: "Basic Panel",
-    description: "Simple panel with essential capabilities",
-    category: "Panels",
-    capabilities: ["ui-rendering", "state-management"],
-    dependencies: [],
-    securityConfig: {
-      trustTier: Ayo,
-      sandboxPolicy: {
-        networkAccess: false,
-        filesystemAccess: false,
-        allowedCapabilities: ["ui-rendering", "state-management"],
-      },
-      networkAccess: false,
-      filesystemAccess: false,
-    },
-  },
-  {
-    name: "Groove Integration Panel",
-    description: "Panel with full Groove protocol support",
-    category: "Panels",
-    capabilities: ["groove-hard", "contractile", "http-client"],
-    dependencies: [
-      {
-        pluginId: "groove-core",
-        version: "1.0.0",
-      },
-    ],
-    securityConfig: {
-      trustTier: Ayo,
-      sandboxPolicy: {
-        networkAccess: true,
-        filesystemAccess: false,
-        allowedCapabilities: ["groove-hard", "contractile", "http-client"],
-      },
-      networkAccess: true,
-      filesystemAccess: false,
-    },
-  },
-  {
-    name: "Data Visualization Plugin",
-    description: "Plugin for data visualization components",
-    category: "Plugins",
-    capabilities: ["ui-rendering", "charting", "state-management"],
-    dependencies: [
-      {
-        pluginId: "charting-lib",
-        version: "2.1.0",
-      },
-    ],
-    securityConfig: {
-      trustTier: Ayo,
-      sandboxPolicy: {
-        networkAccess: false,
-        filesystemAccess: false,
-        allowedCapabilities: ["ui-rendering", "charting", "state-management"],
-      },
-      networkAccess: false,
-      filesystemAccess: false,
-    },
-  },
-  {
-    name: "Governance Plugin",
-    description: "Plugin with contractile governance support",
-    category: "Plugins",
-    capabilities: ["contractile", "provisioner", "state-management"],
-    dependencies: [
-      {
-        pluginId: "contractile-core",
-        version: "1.2.0",
-      },
-    ],
-    securityConfig: {
-      trustTier: Shield,
-      sandboxPolicy: {
-        networkAccess: false,
-        filesystemAccess: true,
-        allowedCapabilities: ["contractile", "provisioner", "state-management"],
-      },
-      networkAccess: false,
-      filesystemAccess: true,
-    },
-  },
-]
-
-/// Get template by name
-let getTemplateByName = (name: string): option<wizardTemplate> => {
-  templateRegistry->Array.find(template => template.name === name)
-}
-
-/// Get templates by category
-let getTemplatesByCategory = (category: string): array<wizardTemplate> => {
-  templateRegistry->Array.filter(template => template.category === category)
-}
-
-/// Apply template to wizard state
-let applyTemplate = (template: wizardTemplate, wizard: wizardState): wizardState => {
-  {
-    ...wizard,
-    selectedCapabilities: template.capabilities,
-    dependencies: template.dependencies->Array.map((dep): pluginDependency => ({
-      pluginId: dep.pluginId,
-      version: dep.version,
-      tier: Ayo,
-    })),
-    securityConfig: template.securityConfig,
-    selectedTemplate: Some(template),
-    validationErrors: None, // Clear any validation errors when applying template
-  }
-}
diff --git a/src/model/WorkspaceModel.affine b/src/model/WorkspaceModel.affine
new file mode 100644
index 00000000..100e511a
--- /dev/null
+++ b/src/model/WorkspaceModel.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module WorkspaceModel;
+
+// TODO: Complete semantic implementation
diff --git a/src/model/WorkspaceModel.res b/src/model/WorkspaceModel.res
deleted file mode 100644
index 53b2d51e..00000000
--- a/src/model/WorkspaceModel.res
+++ /dev/null
@@ -1,275 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Workspace Model — types for panel groups, arrangements, sessions,
-/// workspace modes, session protection, simulation, and poly integration.
-///
-/// This is the backbone of PanLL's workspace management layer (DD-022 through DD-027).
-/// It covers everything from how panels are grouped and arranged to how sessions
-/// are protected against accidental (or intentional) mutations.
-///
-/// Dependency: leaf module — no imports from other PanLL models.
-
-// ============================================================================
-// Workspace Modes
-// ============================================================================
-
-/// Workspace personality modes — each hides/shows different subsets of panels
-/// and metadata depending on the user's current focus. These are menu-selectable
-/// and persist across sessions.
-///
-/// - Rhodium: full RSR standard compliance view (SCM files, contractiles, AI manifests,
-///   directory structure, all governance panels visible)
-/// - Everything: every panel, every tool, every metadata viewer enabled
-/// - Code: pure development experience — hides RSR/compliance/governance panels,
-///   shows only panels directly relevant to writing code
-/// - Bespoke: per-repo customisation of which panels and metadata are visible,
-///   saved in the repo's PANELS.a2ml manifest
-type workspaceMode =
-  | RhodiumMode
-  | EverythingMode
-  | CodeMode
-  | BespokeMode
-
-// ============================================================================
-// Session Protection
-// ============================================================================
-
-/// Session protection levels control what operations are permitted within a
-/// session. These form a lattice from fully open to fully locked:
-///
-/// - Open: normal operation, no restrictions
-/// - ReadOnly: browse everything, edit nothing
-/// - Sandboxed: all changes reset when the session ends
-/// - LanguageLocked: specific languages are immutable (e.g., Idris files cannot
-///   be edited, everything else is open)
-/// - TranspilationGuarded: saves require equivalence proof — the new version must
-///   produce the same output as the old before the save is committed
-/// - ProductionGated: changes are staged and require explicit sign-off before
-///   taking effect, like a release gate
-type sessionProtection =
-  | Open
-  | ReadOnly
-  | Sandboxed
-  | LanguageLocked(array<string>)
-  | TranspilationGuarded
-  | ProductionGated
-
-/// Execution modes for testing changes safely before committing them.
-///
-/// - Live: real execution against real data (normal operation)
-/// - DryRun: preview changes without applying — shows diffs, no mutations
-/// - Simulation: run scenarios in a simulated environment with mock data
-/// - Emulation: full emulation of the target environment locally
-type executionMode =
-  | Live
-  | DryRun
-  | Simulation
-  | Emulation
-
-// ============================================================================
-// Panel Groups
-// ============================================================================
-
-/// A group of panels that move, resize, show, and hide together.
-/// Groups are the primary unit of panel organisation beyond individual panels.
-type panelGroup = {
-  /// Unique identifier for this group.
-  id: string,
-  /// Human-readable name (user-assigned).
-  name: string,
-  /// Panel IDs belonging to this group.
-  panelIds: array<string>,
-  /// Whether the group's arrangement is locked (prevents accidental rearrangement).
-  locked: bool,
-  /// Whether the group is currently visible.
-  visible: bool,
-  /// Z-order index (higher = closer to front).
-  zIndex: int,
-  /// User IDs this group is shared with (for collaboration).
-  sharedWith: array<string>,
-}
-
-// ============================================================================
-// Panel Arrangements (Named Layout Presets)
-// ============================================================================
-
-/// Position and size of a single panel within an arrangement.
-type panelPosition = {
-  /// Panel identifier (as string for flexibility with custom panels).
-  panelId: string,
-  /// Horizontal position (percentage of viewport, 0.0–100.0).
-  x: float,
-  /// Vertical position (percentage of viewport, 0.0–100.0).
-  y: float,
-  /// Width (percentage of viewport).
-  width: float,
-  /// Height (percentage of viewport).
-  height: float,
-  /// Z-order within the arrangement.
-  zIndex: int,
-  /// Whether this panel is visible in this arrangement.
-  visible: bool,
-}
-
-/// A named arrangement captures the complete layout state of all panels,
-/// their positions, sizes, groups, and visibility. Arrangements can be
-/// saved, loaded, and shared.
-type arrangement = {
-  /// Unique identifier.
-  id: string,
-  /// Human-readable name ("Default 3-Panel", "AI Focus", "Debug Layout", etc.).
-  name: string,
-  /// Panel positions within this arrangement.
-  positions: array<panelPosition>,
-  /// Group definitions active in this arrangement.
-  groups: array<panelGroup>,
-  /// Whether this is a built-in preset (cannot be deleted, but can be overridden).
-  builtIn: bool,
-  /// Timestamp when this arrangement was last saved.
-  lastSaved: float,
-}
-
-// ============================================================================
-// Sessions & Checkpoints
-// ============================================================================
-
-/// A checkpoint is a named snapshot of the entire workspace state at a point in
-/// time. Used for reset-to-checkpoint, undo-beyond-buffer, and session branching.
-type checkpoint = {
-  /// Unique identifier.
-  id: string,
-  /// Human-readable label.
-  label: string,
-  /// Timestamp when the checkpoint was created.
-  timestamp: float,
-  /// Whether this was an automatic checkpoint (periodic) or manual.
-  automatic: bool,
-}
-
-/// A session represents a complete working context: which repo is loaded,
-/// which arrangement is active, what protection level applies, etc.
-/// Sessions can be saved, loaded, and forked (creating independent copies).
-type session = {
-  /// Unique identifier.
-  id: string,
-  /// Human-readable name.
-  name: string,
-  /// The repo path this session was created for (if any).
-  repoPath: option<string>,
-  /// Active arrangement ID.
-  arrangementId: option<string>,
-  /// Protection level for this session.
-  protection: sessionProtection,
-  /// Execution mode (live, dry-run, simulation, emulation).
-  executionMode: executionMode,
-  /// Active workspace mode.
-  workspaceMode: workspaceMode,
-  /// Checkpoints within this session.
-  checkpoints: array<checkpoint>,
-  /// Timestamp when this session was created.
-  created: float,
-  /// Timestamp of last activity.
-  lastActive: float,
-  /// Parent session ID if this was forked.
-  forkedFrom: option<string>,
-}
-
-// ============================================================================
-// Poly Integration
-// ============================================================================
-
-/// Categories of external tools available via polystack integration.
-/// These represent the families of tools the AI panel can call into.
-type polyToolCategory =
-  | PolyMcp
-  | PolySecrets
-  | PolyKubernetes
-  | PolyDatabases
-  | PolyContainers
-  | PolyNetworking
-  | PolyMonitoring
-  | PolyCustom(string)
-
-/// A registered poly tool that can be invoked from the workspace.
-type polyTool = {
-  /// Unique identifier.
-  id: string,
-  /// Display name.
-  name: string,
-  /// Category this tool belongs to.
-  category: polyToolCategory,
-  /// Brief description of what this tool does.
-  description: string,
-  /// Whether this tool is currently available (service running, auth valid, etc.).
-  available: bool,
-  /// The command or endpoint to invoke this tool.
-  endpoint: string,
-}
-
-// ============================================================================
-// Repo Metadata Menu Items
-// ============================================================================
-
-/// Items viewable from the workspace menu — SCM files, contractiles, AI manifests,
-/// and directory structure. These are the "bones" that RSR repos expose.
-type repoMetadataItem =
-  | MetaStateSCM
-  | MetaEcosystemSCM
-  | MetaMetaSCM
-  | MetaAgenticSCM
-  | MetaNeurosymSCM
-  | MetaPlaybookSCM
-  | MetaLanguagesSCM
-  | MetaContractiles
-  | MetaAIManifest
-  | MetaTrustfile
-  | MetaDirectoryTree
-  | MetaTopology
-
-// ============================================================================
-// Configurator Tabs
-// ============================================================================
-
-/// Tabs within the workspace configurator panel.
-type configuratorTab =
-  | TabArrangements
-  | TabGroups
-  | TabSessions
-  | TabKeybindings
-  | TabModes
-  | TabProtection
-  | TabPolyTools
-
-// ============================================================================
-// Workspace State
-// ============================================================================
-
-/// Root state for the workspace management system.
-type workspaceState = {
-  /// Currently active workspace mode.
-  mode: workspaceMode,
-  /// Current session protection level.
-  protection: sessionProtection,
-  /// Current execution mode.
-  executionMode: executionMode,
-  /// All panel groups.
-  groups: array<panelGroup>,
-  /// All saved arrangements.
-  arrangements: array<arrangement>,
-  /// Currently active arrangement ID.
-  activeArrangementId: option<string>,
-  /// All saved sessions.
-  sessions: array<session>,
-  /// Currently active session ID.
-  activeSessionId: option<string>,
-  /// All registered poly tools.
-  polyTools: array<polyTool>,
-  /// Whether the workspace configurator is open.
-  configuratorOpen: bool,
-  /// Active configurator tab.
-  configuratorTab: configuratorTab,
-  /// Currently viewed repo metadata item (for the menu viewer).
-  viewingMetadata: option<repoMetadataItem>,
-  /// Content of the currently viewed metadata item.
-  metadataContent: option<string>,
-}
diff --git a/src/modules/A2mlParser.affine b/src/modules/A2mlParser.affine
new file mode 100644
index 00000000..8167e3ea
--- /dev/null
+++ b/src/modules/A2mlParser.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module A2mlParser;
+
+// TODO: Complete semantic implementation
diff --git a/src/modules/A2mlParser.res b/src/modules/A2mlParser.res
deleted file mode 100644
index 0e05782e..00000000
--- a/src/modules/A2mlParser.res
+++ /dev/null
@@ -1,137 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL A2ML Parser — parses `.a2ml` clade definition files into structured data.
-///
-/// A2ML is a TOML-like format with `[section]` headers and `key = value` pairs.
-/// Supports string values (`"..."`), multi-line strings (`""" ... """`),
-/// and arrays (`[item1, item2]`). Comments start with `#`.
-
-/// A parsed section: section name → Dict of key-value pairs.
-/// Array values are joined with `|` as a separator for downstream parsing.
-type a2mlSection = Dict.t<string>
-
-/// A fully parsed A2ML document: section name → key-value Dict.
-type a2mlDocument = Dict.t<a2mlSection>
-
-/// Parse a raw `.a2ml` file string into sections.
-let parse = (raw: string): a2mlDocument => {
-  let doc: a2mlDocument = Dict.make()
-  let lines = raw->String.split("\n")
-  let currentSection = ref("")
-  let currentDict: ref<a2mlSection> = ref(Dict.make())
-  let inMultiline = ref(false)
-  let multilineKey = ref("")
-  let multilineBuf = ref("")
-
-  let flushSection = () => {
-    if currentSection.contents !== "" {
-      doc->Dict.set(currentSection.contents, currentDict.contents)
-    }
-  }
-
-  lines->Array.forEach(line => {
-    let trimmed = line->String.trim
-
-    // Handle multi-line string continuation.
-    if inMultiline.contents {
-      if trimmed->String.endsWith(`"""`) {
-        // End of multi-line: strip closing delimiter.
-        let fragment = trimmed->String.slice(~start=0, ~end=String.length(trimmed) - 3)
-        let full = multilineBuf.contents ++ fragment
-        currentDict.contents->Dict.set(multilineKey.contents, full->String.trim)
-        inMultiline := false
-      } else {
-        multilineBuf := multilineBuf.contents ++ trimmed ++ " "
-      }
-    } else if trimmed === "" || trimmed->String.startsWith("#") {
-      // Skip blank lines and comments.
-      ()
-    } else if trimmed->String.startsWith("[") && trimmed->String.endsWith("]") {
-      // New section header.
-      flushSection()
-      let sectionName = trimmed->String.slice(~start=1, ~end=String.length(trimmed) - 1)
-      currentSection := sectionName
-      currentDict := Dict.make()
-    } else {
-      // Key = value pair.
-      let eqIdx = trimmed->String.indexOf("=")
-      if eqIdx > 0 {
-        let key = trimmed->String.slice(~start=0, ~end=eqIdx)->String.trim
-        let rawVal = trimmed->String.sliceToEnd(~start=eqIdx + 1)->String.trim
-
-        if rawVal->String.startsWith(`"""`) {
-          // Multi-line string start.
-          inMultiline := true
-          multilineKey := key
-          multilineBuf := rawVal->String.sliceToEnd(~start=3) ++ " "
-        } else if rawVal->String.startsWith("\"") && rawVal->String.endsWith("\"") {
-          // Quoted string value.
-          let unquoted = rawVal->String.slice(~start=1, ~end=String.length(rawVal) - 1)
-          currentDict.contents->Dict.set(key, unquoted)
-        } else if rawVal->String.startsWith("[") {
-          // Array value — collect items across lines if needed.
-          // For single-line arrays: [item1, item2]
-          // For multi-line: we collect until the closing ]
-          let arrayContent = ref(rawVal)
-
-          // If the line doesn't end with ], read subsequent lines.
-          // But since we process line-by-line, handle single-line only here.
-          // Multi-line arrays are handled via the content string.
-          let content = arrayContent.contents
-          // Strip brackets.
-          let inner = content->String.slice(~start=1, ~end=String.length(content) - 1)
-          // Parse items: split by comma, strip quotes and whitespace.
-          let items =
-            inner
-            ->String.split(",")
-            ->Array.map(s => {
-              let t = s->String.trim
-              if t->String.startsWith("\"") && t->String.endsWith("\"") {
-                t->String.slice(~start=1, ~end=String.length(t) - 1)
-              } else {
-                t
-              }
-            })
-            ->Array.filter(s => s !== "")
-          // Join with pipe separator for downstream parsing.
-          currentDict.contents->Dict.set(key, items->Array.join("|"))
-        } else {
-          // Plain value (boolean, number, or unquoted string).
-          currentDict.contents->Dict.set(key, rawVal)
-        }
-      }
-    }
-  })
-
-  // Flush the last section.
-  flushSection()
-  doc
-}
-
-/// Get a string value from a section, with a default fallback.
-let getString = (doc: a2mlDocument, section: string, key: string, ~default=""): string => {
-  doc
-  ->Dict.get(section)
-  ->Option.flatMap(s => s->Dict.get(key))
-  ->Option.getOr(default)
-}
-
-/// Get a boolean value from a section.
-let getBool = (doc: a2mlDocument, section: string, key: string): bool => {
-  getString(doc, section, key) === "true"
-}
-
-/// Get a pipe-separated array value from a section.
-let getArray = (doc: a2mlDocument, section: string, key: string): array<string> => {
-  let raw = getString(doc, section, key)
-  if raw === "" {
-    []
-  } else {
-    raw->String.split("|")->Array.map(String.trim)->Array.filter(s => s !== "")
-  }
-}
-
-/// Check if a section exists in the document.
-let hasSection = (doc: a2mlDocument, section: string): bool => {
-  doc->Dict.get(section)->Option.isSome
-}
diff --git a/src/modules/CladeLoader.affine b/src/modules/CladeLoader.affine
new file mode 100644
index 00000000..11715ff7
--- /dev/null
+++ b/src/modules/CladeLoader.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CladeLoader;
+
+// TODO: Complete semantic implementation
diff --git a/src/modules/CladeLoader.res b/src/modules/CladeLoader.res
deleted file mode 100644
index 49d5b84d..00000000
--- a/src/modules/CladeLoader.res
+++ /dev/null
@@ -1,159 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Clade Loader — converts parsed A2ML clade files into `cladeEntry` records.
-///
-/// Handles both .a2ml formats:
-///   - Newer format: `[clade-metadata]` section with id/name/kind/version/description
-///   - Legacy format: `[clade]` section for id/name/kind/version, `[clade-description]`
-///     for summary/long, `[clade-taxonomy]` for inheritance
-
-open CladeBrowserModel
-
-/// Parse a single `.a2ml` file's content into a `cladeEntry`.
-/// The `dirId` is the directory name, used as fallback ID.
-let fromA2ml = (dirId: string, content: string): option<cladeEntry> => {
-  let doc = A2mlParser.parse(content)
-
-  // Determine format: newer uses [clade-metadata], legacy uses [clade].
-  let isNewFormat = A2mlParser.hasSection(doc, "clade-metadata")
-  let metaSection = isNewFormat ? "clade-metadata" : "clade"
-
-  // Core identity fields.
-  let id = A2mlParser.getString(doc, metaSection, "id", ~default=dirId)
-  let name = A2mlParser.getString(doc, metaSection, "name", ~default=id)
-  let kind = A2mlParser.getString(doc, metaSection, "kind", ~default="meta")
-  let version = A2mlParser.getString(doc, metaSection, "version", ~default="1.0.0")
-
-  // Description: newer format has `description` in metadata,
-  // legacy has `[clade-description]` with `summary` and `long`.
-  let summary = if isNewFormat {
-    A2mlParser.getString(doc, metaSection, "description")
-  } else {
-    A2mlParser.getString(doc, "clade-description", "summary")
-  }
-  let longDescription = if isNewFormat {
-    A2mlParser.getString(doc, metaSection, "description")
-  } else {
-    A2mlParser.getString(doc, "clade-description", "long")
-  }
-
-  // Traits.
-  let traits: cladeTraits = {
-    hasPersistence: A2mlParser.getBool(doc, "clade-traits", "has-persistence"),
-    hasBackend: A2mlParser.getBool(doc, "clade-traits", "has-backend"),
-    hasWorkItems: A2mlParser.getBool(doc, "clade-traits", "has-work-items"),
-    hasRealTime: A2mlParser.getBool(doc, "clade-traits", "has-real-time"),
-    isAmbient: A2mlParser.getBool(doc, "clade-traits", "is-ambient"),
-  }
-
-  // Taxonomy (legacy format).
-  let parentCladeId = {
-    let raw = A2mlParser.getString(doc, "clade-taxonomy", "inherits-from")
-    if raw === "" {
-      None
-    } else {
-      Some(raw)
-    }
-  }
-  let siblingClades = A2mlParser.getArray(doc, "clade-taxonomy", "sibling-clades")
-  let supersedes = {
-    let raw = A2mlParser.getString(doc, "clade-taxonomy", "supersedes")
-    if raw === "" {
-      []
-    } else {
-      [raw]
-    }
-  }
-
-  // Panel integration.
-  let panelId = A2mlParser.getString(doc, "clade-panel-integration", "panel-id")
-  let panelIds = if panelId === "" {
-    // Construct default panel ID from clade ID.
-    let capitalised =
-      id
-      ->String.split("-")
-      ->Array.map(part => {
-        if String.length(part) > 0 {
-          let first = part->String.slice(~start=0, ~end=1)->String.toUpperCase
-          let rest = part->String.sliceToEnd(~start=1)
-          first ++ rest
-        } else {
-          part
-        }
-      })
-      ->Array.join("")
-    ["Panel" ++ capitalised]
-  } else {
-    [panelId]
-  }
-
-  // Integrations.
-  let consumedBy = A2mlParser.getArray(doc, "clade-integrations", "consumed-by")
-
-  if id === "" {
-    None
-  } else {
-    Some({
-      id,
-      name,
-      kind,
-      version,
-      summary,
-      longDescription,
-      traits,
-      panelIds,
-      consumedBy,
-      supersedes,
-      parentCladeId,
-      siblingClades,
-      // Tier 1 fields — filled by CladeBrowserEngine.enrichClade.
-      protocols: [],
-      capabilities: [],
-      requires: [],
-      enhances: [],
-      isolation: IsolationSoft,
-      signing: SigningNone,
-      sbom: None,
-      sandbox: None,
-    })
-  }
-}
-
-/// Tea_Json decoder for a single scan result item.
-/// Extracts "id" and "content" strings, then delegates to fromA2ml for parsing.
-let scanItemDecoder: Tea_Json.decoder<cladeEntry> = json => {
-  open Tea_Json
-  let inner = map2(
-    (dirId, content) => (dirId, content),
-    field("id", string),
-    field("content", string),
-  )
-  switch inner(json) {
-  | Ok((dirId, content)) =>
-    if dirId !== "" && content !== "" {
-      switch fromA2ml(dirId, content) {
-      | Some(entry) => Ok(entry)
-      | None => Error(Failure("fromA2ml returned None", json))
-      }
-    } else {
-      Error(Failure("Empty id or content", json))
-    }
-  | Error(e) => Error(e)
-  }
-}
-
-/// Parse the JSON response from `scan_clade_files` into an array of clade entries.
-/// Expected format: `[{"id": "...", "content": "..."}]`
-let fromScanResult = (jsonStr: string): array<cladeEntry> =>
-  Decoders.decodeWithDefault(Decoders.lenientArray(scanItemDecoder), [], jsonStr)
-
-/// Merge file-loaded clades with built-in clades. File-loaded clades take
-/// precedence over built-ins with the same ID. Built-ins without a matching
-/// file are retained as fallbacks.
-let mergeWithBuiltins = (loaded: array<cladeEntry>, builtins: array<cladeEntry>): array<
-  cladeEntry,
-> => {
-  let loadedIds = loaded->Array.map(c => c.id)
-  let uniqueBuiltins = builtins->Array.filter(b => !(loadedIds->Array.some(id => id === b.id)))
-  Array.concat(loaded, uniqueBuiltins)
-}
diff --git a/src/modules/CloudGuardModule.affine b/src/modules/CloudGuardModule.affine
new file mode 100644
index 00000000..dc68343b
--- /dev/null
+++ b/src/modules/CloudGuardModule.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CloudGuardModule;
+
+// TODO: Complete semantic implementation
diff --git a/src/modules/CloudGuardModule.res b/src/modules/CloudGuardModule.res
deleted file mode 100644
index 91d254f5..00000000
--- a/src/modules/CloudGuardModule.res
+++ /dev/null
@@ -1,93 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL CloudGuard Module Registration — Capability-driven module protocol.
-///
-/// Registers CloudGuard as a PanLL panel module with its capabilities,
-/// configuration, and metadata. This follows the DatabaseModule.res pattern
-/// but adapted for the Cloudflare domain management use case.
-///
-/// CloudGuard provides:
-///   - Domain inventory and status monitoring
-///   - SSL/TLS and security header configuration
-///   - DNS record management with security templates
-///   - WAF and bot defense configuration
-///   - DNSSEC management
-///   - Compliance auditing against Trustfile policy
-///   - Offline config download/upload with three-way diff
-///   - Bulk hardening operations across all domains
-///   - Cloudflare Pages / GitHub Pages integration
-
-/// Capabilities that CloudGuard provides to the PanLL ecosystem.
-type cloudguardCapability =
-  | DomainInventory // List and monitor all Cloudflare zones
-  | SecurityHardening // Apply security settings (SSL, HSTS, headers)
-  | DnsManagement // DNS record CRUD with security templates
-  | ComplianceAudit // Evaluate settings against Trustfile policy
-  | OfflineConfig // Download/upload config with three-way diff
-  | BulkOperations // Apply settings across multiple domains at once
-  | PagesIntegration // Cloudflare Pages / GitHub Pages setup
-  | DnssecManagement // DNSSEC enable/verify/DS record management
-
-/// CloudGuard module configuration.
-type cloudguardModuleConfig = {
-  id: string, // Module identifier
-  name: string, // Display name
-  version: string, // Module version
-  description: string, // Module description
-  apiEndpoint: string, // Cloudflare API base URL
-  capabilities: array<cloudguardCapability>, // What this module can do
-  icon: option<string>, // Icon identifier for module switcher
-}
-
-/// The CloudGuard module registration.
-let config: cloudguardModuleConfig = {
-  id: "cloudguard",
-  name: "CloudGuard",
-  version: "0.1.0",
-  description: "Cloudflare domain security management. Automates SSL/TLS hardening, DNS security records, WAF configuration, DNSSEC, and compliance auditing across all domains.",
-  apiEndpoint: "https://api.cloudflare.com/client/v4",
-  capabilities: [
-    DomainInventory,
-    SecurityHardening,
-    DnsManagement,
-    ComplianceAudit,
-    OfflineConfig,
-    BulkOperations,
-    PagesIntegration,
-    DnssecManagement,
-  ],
-  icon: Some("shield"),
-}
-
-/// Check if CloudGuard has a specific capability.
-let hasCapability = (cap: cloudguardCapability): bool => {
-  config.capabilities->Array.includes(cap)
-}
-
-/// Human-readable label for a CloudGuard capability.
-let capabilityLabel = (cap: cloudguardCapability): string => {
-  switch cap {
-  | DomainInventory => "Domain Inventory"
-  | SecurityHardening => "Security Hardening"
-  | DnsManagement => "DNS Management"
-  | ComplianceAudit => "Compliance Audit"
-  | OfflineConfig => "Offline Config"
-  | BulkOperations => "Bulk Operations"
-  | PagesIntegration => "Pages Integration"
-  | DnssecManagement => "DNSSEC Management"
-  }
-}
-
-/// Short description for each capability (for tooltip/Panel-N).
-let capabilityDescription = (cap: cloudguardCapability): string => {
-  switch cap {
-  | DomainInventory => "List and monitor all Cloudflare zones with plan tier, status, and nameserver info"
-  | SecurityHardening => "Apply SSL Full (Strict), HSTS, min TLS 1.2, security headers, and other hardening defaults"
-  | DnsManagement => "Create, update, and delete DNS records with templates for SPF, DMARC, DKIM, CAA, and TLSRPT"
-  | ComplianceAudit => "Evaluate live Cloudflare settings against Trustfile/Nickel security policy constraints"
-  | OfflineConfig => "Download zone configs as JSON, edit offline, upload with three-way diff and dry-run preview"
-  | BulkOperations => "Apply hardening settings across all selected domains with real-time progress tracking"
-  | PagesIntegration => "Set up Cloudflare Pages projects from GitHub repos with auto-detected SSG framework"
-  | DnssecManagement => "Enable DNSSEC, verify DS records at registrar, monitor key rotation status"
-  }
-}
diff --git a/src/modules/DatabaseModule.affine b/src/modules/DatabaseModule.affine
new file mode 100644
index 00000000..d52df1de
--- /dev/null
+++ b/src/modules/DatabaseModule.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module DatabaseModule;
+
+// TODO: Complete semantic implementation
diff --git a/src/modules/DatabaseModule.res b/src/modules/DatabaseModule.res
deleted file mode 100644
index 46170f2c..00000000
--- a/src/modules/DatabaseModule.res
+++ /dev/null
@@ -1,151 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// DatabaseModule — standard protocol for database backends in PanLL.
-///
-/// Every database (VeriSimDB, QuandleDB, LithoGlyph, etc.) implements this
-/// protocol to plug into PanLL's three-pane model:
-///
-///   Pane-L (Symbolic):  grammar rules, type system, constraints
-///   Pane-N (Neural):    query engine, inference, reasoning
-///   Pane-W (World):     results, drift status, telemetry dashboard
-///
-/// The protocol is intentionally minimal — each database declares its
-/// capabilities, and PanLL only renders UI for what the database supports.
-///
-/// ## Adding a new database module
-///
-/// 1. Define a `moduleConfig` with the database's identity and capabilities
-/// 2. Register it in `DatabaseRegistry.res`
-/// 3. Implement Gossamer commands for each supported capability
-/// 4. The PanLL UI automatically adapts to the declared capabilities
-
-/// Capabilities that a database module may support. PanLL only renders UI
-/// for capabilities the module declares.
-type capability =
-  | QueryExecution // Can run queries in a native language (VCL, KQL, GQL)
-  | DriftDetection // Can detect cross-modal consistency drift
-  | ProofGeneration // Can generate verifiable proof certificates
-  | Normalisation // Can self-repair drifted modalities
-  | Federation // Can federate queries across heterogeneous backends
-  | Telemetry // Exposes operational metrics for product insights
-  | Playground // Provides an interactive query editor/playground
-
-/// Connection status for a database backend.
-type connectionStatus =
-  | Disconnected
-  | Connecting
-  | Connected(string) // endpoint URL
-  | Error(string) // error message
-
-/// A telemetry snapshot — aggregate product development metrics.
-/// No query content, entity data, or PII — only counters and rates.
-type telemetrySnapshot = {
-  generatedAt: string,
-  modalityHeatmap: array<(string, float)>,
-  queryPatterns: array<(string, int)>,
-  avgQueryDurationMs: float,
-  driftDetectedCount: int,
-  normaliseSuccessRate: float,
-  proofTypeUsage: array<(string, int)>,
-  entityCount: int,
-}
-
-/// Query result from any database module — uniform shape for PanLL rendering.
-type queryResult = {
-  columns: array<string>,
-  rows: array<array<string>>,
-  rowCount: int,
-  timingMs: float,
-  statementType: string,
-  message: option<string>,
-}
-
-/// Drift scores for octad modalities (VeriSimDB) or similar per-dimension
-/// scores for other databases. The key is the modality/dimension name.
-type driftScore = {
-  dimension: string,
-  score: float, // 0.0 = no drift, 1.0 = maximum drift
-}
-
-/// Proof obligation from a query with dependent types.
-type proofObligation = {
-  proofType: string,
-  contractName: string,
-  status: string, // "verified" | "failed" | "pending"
-  proofHash: string,
-}
-
-/// An example query for the playground.
-type exampleQuery = {
-  label: string,
-  query: string,
-  isDependentType: bool,
-}
-
-/// The query language configuration for the playground.
-type playgroundConfig = {
-  languageName: string, // "VCL", "KQL", "GQL"
-  languageVersion: string, // "1.0", "0.5-alpha"
-  fileExtension: string, // ".vcl", ".kql", ".gql"
-  keywords: array<string>, // syntax keywords for highlighting
-  exampleQueries: array<exampleQuery>,
-  hasDependentTypes: bool, // supports a -DT variant
-  linterAvailable: bool,
-  formatterAvailable: bool,
-}
-
-/// Configuration for registering a database module with PanLL.
-type moduleConfig = {
-  id: string, // unique module identifier (e.g., "verisim")
-  name: string, // display name (e.g., "VeriSimDB")
-  version: string, // module version
-  description: string, // one-line description
-  endpoint: string, // default connection endpoint
-  capabilities: array<capability>,
-  playground: option<playgroundConfig>,
-  icon: option<string>, // CSS class or emoji for the module
-}
-
-/// The runtime state for a connected database module in PanLL.
-type moduleState = {
-  config: moduleConfig,
-  connection: connectionStatus,
-  lastQuery: string,
-  queryResult: option<queryResult>,
-  queryError: option<string>,
-  driftScores: option<array<driftScore>>,
-  proofObligations: array<proofObligation>,
-  telemetry: option<telemetrySnapshot>,
-  menuExpanded: bool,
-}
-
-/// Initialise a module state from its configuration.
-let initModuleState = (config: moduleConfig): moduleState => {
-  config,
-  connection: Disconnected,
-  lastQuery: "",
-  queryResult: None,
-  queryError: None,
-  driftScores: None,
-  proofObligations: [],
-  telemetry: None,
-  menuExpanded: false,
-}
-
-/// Check whether a module supports a given capability.
-let hasCapability = (config: moduleConfig, cap: capability): bool => {
-  config.capabilities->Array.includes(cap)
-}
-
-/// Capability display name for UI rendering.
-let capabilityLabel = (cap: capability): string => {
-  switch cap {
-  | QueryExecution => "Query Execution"
-  | DriftDetection => "Drift Detection"
-  | ProofGeneration => "Proof Generation"
-  | Normalisation => "Normalisation"
-  | Federation => "Federation"
-  | Telemetry => "Telemetry"
-  | Playground => "Playground"
-  }
-}
diff --git a/src/modules/DatabaseRegistry.affine b/src/modules/DatabaseRegistry.affine
new file mode 100644
index 00000000..24bf6d06
--- /dev/null
+++ b/src/modules/DatabaseRegistry.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module DatabaseRegistry;
+
+// TODO: Complete semantic implementation
diff --git a/src/modules/DatabaseRegistry.res b/src/modules/DatabaseRegistry.res
deleted file mode 100644
index c5b019cf..00000000
--- a/src/modules/DatabaseRegistry.res
+++ /dev/null
@@ -1,229 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// DatabaseRegistry — manages registered database modules in PanLL.
-///
-/// Each database (VeriSimDB, QuandleDB, LithoGlyph) registers its module
-/// configuration here. PanLL uses the registry to:
-///
-///   1. Discover available database backends
-///   2. Render capability-appropriate UI per module
-///   3. Route Gossamer commands to the correct backend
-///   4. Manage the playground gallery (one playground per query language)
-///
-/// ## Module lifecycle
-///
-///   1. Module config defined in this file
-///   2. `allModules()` returns the list of registered modules
-///   3. PanLL initialises a `moduleState` per module via `DatabaseModule.initModuleState`
-///   4. Gossamer commands are dispatched by module ID
-///
-/// ## Adding a new database
-///
-///   1. Define its `moduleConfig` below
-///   2. Add it to the `allModules` function
-///   3. Implement Gossamer commands (prefixed with the module ID)
-
-open DatabaseModule
-
-/// VeriSimDB — octad multimodal database with drift detection, self-normalisation,
-/// and formally verified queries across 8 modalities.
-let verisim: moduleConfig = {
-  id: "verisim",
-  name: "VeriSimDB",
-  version: "0.1.0-beta",
-  description: "Octad multimodal database with cross-modal drift detection",
-  endpoint: ServiceEndpoints.verisim,
-  capabilities: [
-    QueryExecution,
-    DriftDetection,
-    ProofGeneration,
-    Normalisation,
-    Federation,
-    Telemetry,
-    Playground,
-  ],
-  playground: Some({
-    languageName: "VCL",
-    languageVersion: "1.0",
-    fileExtension: ".vcl",
-    keywords: [
-      "SELECT",
-      "FROM",
-      "WHERE",
-      "LIMIT",
-      "OFFSET",
-      "ORDER",
-      "BY",
-      "INSERT",
-      "INTO",
-      "UPDATE",
-      "SET",
-      "DELETE",
-      "GRAPH",
-      "VECTOR",
-      "TENSOR",
-      "SEMANTIC",
-      "DOCUMENT",
-      "TEMPORAL",
-      "PROVENANCE",
-      "SPATIAL",
-      "PROOF",
-      "EXPLAIN",
-      "SHOW",
-      "STATUS",
-      "DRIFT",
-      "SEARCH",
-      "TEXT",
-      "COUNT",
-      "TRAVERSE",
-      "DEPTH",
-      "RELATED",
-      "WITHIN",
-      "RADIUS",
-      "BOUNDS",
-      "NEAREST",
-      "FEDERATION",
-      "STORE",
-      "NORMALIZER",
-      "THRESHOLD",
-      "CONSISTENCY",
-    ],
-    exampleQueries: [
-      {label: "List octads", query: "SELECT * FROM octads LIMIT 10", isDependentType: false},
-      {
-        label: "Graph query",
-        query: "SELECT GRAPH.* FROM HEXAD 'entity-123'",
-        isDependentType: false,
-      },
-      {
-        label: "Full-text search",
-        query: "SEARCH TEXT 'example query' LIMIT 20",
-        isDependentType: false,
-      },
-      {label: "Show drift", query: "SHOW DRIFT", isDependentType: false},
-      {
-        label: "Existence proof",
-        query: "SELECT SEMANTIC.* FROM HEXAD 'entity-1' PROOF EXISTENCE(entity-1)",
-        isDependentType: true,
-      },
-      {
-        label: "Multi-proof",
-        query: "SELECT * FROM octads PROOF EXISTENCE(e) AND INTEGRITY(e) AND FRESHNESS(e) LIMIT 5",
-        isDependentType: true,
-      },
-    ],
-    hasDependentTypes: true,
-    linterAvailable: true,
-    formatterAvailable: true,
-  }),
-  icon: Some("octad"),
-}
-
-/// QuandleDB — algebraic query language for quandle-structured data.
-/// (Planned — module config ready for when KQL is implemented.)
-let quandledb: moduleConfig = {
-  id: "quandledb",
-  name: "QuandleDB",
-  version: "0.0.1-alpha",
-  description: "Algebraic database with quandle-structured queries",
-  endpoint: ServiceEndpoints.quandledb,
-  capabilities: [QueryExecution, Playground],
-  playground: Some({
-    languageName: "KQL",
-    languageVersion: "0.1-draft",
-    fileExtension: ".kql",
-    keywords: [
-      "QUANDLE",
-      "RACK",
-      "BIQUANDLE",
-      "INVARIANT",
-      "SELECT",
-      "FROM",
-      "WHERE",
-      "COMPUTE",
-      "COLOUR",
-      "KNOT",
-      "LINK",
-      "CROSSING",
-    ],
-    exampleQueries: [
-      {label: "List quandles", query: "SELECT * FROM quandles LIMIT 10", isDependentType: false},
-      {
-        label: "Compute invariant",
-        query: "COMPUTE INVARIANT FOR KNOT '3_1'",
-        isDependentType: false,
-      },
-    ],
-    hasDependentTypes: false,
-    linterAvailable: false,
-    formatterAvailable: false,
-  }),
-  icon: Some("quandle"),
-}
-
-/// LithoGlyph — graph query language for petroglyph pattern databases.
-/// (Planned — module config ready for when GQL is implemented.)
-let lithoglyph: moduleConfig = {
-  id: "lithoglyph",
-  name: "LithoGlyph",
-  version: "0.0.1-alpha",
-  description: "Graph pattern database for archaeological petroglyphs",
-  endpoint: ServiceEndpoints.lithoglyph,
-  capabilities: [QueryExecution, Playground],
-  playground: Some({
-    languageName: "GQL",
-    languageVersion: "0.1-draft",
-    fileExtension: ".gql",
-    keywords: [
-      "MATCH",
-      "PATTERN",
-      "GLYPH",
-      "MOTIF",
-      "SITE",
-      "SELECT",
-      "FROM",
-      "WHERE",
-      "TRAVERSE",
-      "SIMILAR",
-      "WITHIN",
-      "REGION",
-    ],
-    exampleQueries: [
-      {label: "List glyphs", query: "SELECT * FROM glyphs LIMIT 10", isDependentType: false},
-      {label: "Pattern match", query: "MATCH PATTERN 'spiral' SIMILAR 0.8", isDependentType: false},
-    ],
-    hasDependentTypes: false,
-    linterAvailable: false,
-    formatterAvailable: false,
-  }),
-  icon: Some("glyph"),
-}
-
-/// Return all registered database modules. PanLL iterates this list
-/// to initialise module states, render the module gallery, and populate
-/// the playground gallery.
-let allModules = (): array<moduleConfig> => {
-  [verisim, quandledb, lithoglyph]
-}
-
-/// Find a module config by its ID. Returns None if not registered.
-let findModule = (id: string): option<moduleConfig> => {
-  allModules()->Array.find(m => m.id == id)
-}
-
-/// Return only modules that support a given capability.
-let modulesWithCapability = (cap: capability): array<moduleConfig> => {
-  allModules()->Array.filter(m => hasCapability(m, cap))
-}
-
-/// Return all modules that have a playground configuration — these
-/// form the "playground gallery" in PanLL.
-let playgroundModules = (): array<moduleConfig> => {
-  modulesWithCapability(Playground)
-}
-
-/// Return all modules that expose telemetry — these get a telemetry
-/// dashboard panel in Pane-W.
-let telemetryModules = (): array<moduleConfig> => {
-  modulesWithCapability(Telemetry)
-}
diff --git a/src/modules/FarmModule.affine b/src/modules/FarmModule.affine
new file mode 100644
index 00000000..9ab561a0
--- /dev/null
+++ b/src/modules/FarmModule.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FarmModule;
+
+// TODO: Complete semantic implementation
diff --git a/src/modules/FarmModule.res b/src/modules/FarmModule.res
deleted file mode 100644
index 8bb97073..00000000
--- a/src/modules/FarmModule.res
+++ /dev/null
@@ -1,66 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Farm Module — capability registration for the Git-Private-Farm panel.
-///
-/// Declares what the Farm panel can do. The UI renders controls only for
-/// capabilities that are declared here. This follows the same pattern as
-/// CloudGuardModule and DatabaseModule.
-
-/// Capabilities that the Farm panel exposes.
-type farmCapability =
-  /// Read-only repo inventory from farm-manifest.json.
-  | RepoInventory
-  /// Three-tier enrollment status (farm/hypatia/fleet).
-  | EnrollmentDashboard
-  /// Health score aggregation across repos.
-  | HealthDashboard
-  /// Repo group and language breakdown.
-  | GroupAnalysis
-  /// Forge coverage matrix (which repos mirror where).
-  | ForgeCoverage
-
-/// Module configuration for the Farm panel.
-type farmModuleConfig = {
-  /// Unique module identifier.
-  id: string,
-  /// Human-readable name.
-  name: string,
-  /// Semantic version.
-  version: string,
-  /// Short description for tooltips.
-  description: string,
-  /// Data source path (not an HTTP endpoint — reads local JSON).
-  manifestPath: string,
-  /// Declared capabilities.
-  capabilities: array<farmCapability>,
-  /// Panel bar icon name.
-  icon: option<string>,
-}
-
-/// The canonical module configuration. Farm reads a local JSON file,
-/// not an HTTP service, so the "endpoint" is a filesystem path.
-let config: farmModuleConfig = {
-  id: "farm",
-  name: "Git-Private-Farm",
-  version: "0.1.0",
-  description: "Repository admin registry and maintenance hub for ~265 repos across 6 forges",
-  manifestPath: "~/.git-private-farm/farm-manifest.json",
-  capabilities: [RepoInventory, EnrollmentDashboard, HealthDashboard, GroupAnalysis, ForgeCoverage],
-  icon: Some("barn"),
-}
-
-/// Check if a capability is declared.
-let hasCapability = (cap: farmCapability): bool => {
-  config.capabilities->Array.includes(cap)
-}
-
-/// Human-readable label for a capability.
-let capabilityLabel = (cap: farmCapability): string => {
-  switch cap {
-  | RepoInventory => "Repo Inventory"
-  | EnrollmentDashboard => "Enrollment Dashboard"
-  | HealthDashboard => "Health Dashboard"
-  | GroupAnalysis => "Group Analysis"
-  | ForgeCoverage => "Forge Coverage"
-  }
-}
diff --git a/src/modules/LanguageForgeModule.affine b/src/modules/LanguageForgeModule.affine
new file mode 100644
index 00000000..9a816b0b
--- /dev/null
+++ b/src/modules/LanguageForgeModule.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module LanguageForgeModule;
+
+// TODO: Complete semantic implementation
diff --git a/src/modules/LanguageForgeModule.res b/src/modules/LanguageForgeModule.res
deleted file mode 100644
index 38841c77..00000000
--- a/src/modules/LanguageForgeModule.res
+++ /dev/null
@@ -1,60 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Language Forge Module — capability registration for the nextgen-languages panel.
-///
-/// Declares what the Language Forge panel can do. The UI renders controls only
-/// for capabilities that are declared here. Follows the same pattern as
-/// FarmModule and CloudGuardModule.
-
-/// Capabilities that the Language Forge panel exposes.
-type languageForgeCapability =
-  /// Dashboard view of all 14 nextgen-languages with scores and phases.
-  | LanguageDashboard
-  /// Compilation pipeline status (lexer, parser, type checker, backends).
-  | CompilationStatus
-  /// MoSCoW prioritisation breakdown for selected language.
-  | MoscowView
-  /// WASM target readiness tracking across the portfolio.
-  | WasmTargetTracker
-
-/// Module configuration for the Language Forge panel.
-type languageForgeModuleConfig = {
-  /// Unique module identifier.
-  id: string,
-  /// Human-readable name.
-  name: string,
-  /// Semantic version.
-  version: string,
-  /// Short description for tooltips.
-  description: string,
-  /// Declared capabilities.
-  capabilities: array<languageForgeCapability>,
-  /// Panel bar icon name.
-  icon: option<string>,
-}
-
-/// The canonical module configuration. Language Forge uses hardcoded data
-/// from the nextgen-languages assessment — no HTTP service required.
-let config: languageForgeModuleConfig = {
-  id: "language-forge",
-  name: "Language Forge",
-  version: "0.1.0",
-  description: "Monitor and develop the 14 nextgen-languages portfolio — scores, phases, WASM readiness",
-  capabilities: [LanguageDashboard, CompilationStatus, MoscowView, WasmTargetTracker],
-  icon: Some("hammer"),
-}
-
-/// Check if a capability is declared.
-let hasCapability = (cap: languageForgeCapability): bool => {
-  config.capabilities->Array.includes(cap)
-}
-
-/// Human-readable label for a capability.
-let capabilityLabel = (cap: languageForgeCapability): string => {
-  switch cap {
-  | LanguageDashboard => "Language Dashboard"
-  | CompilationStatus => "Compilation Status"
-  | MoscowView => "MoSCoW View"
-  | WasmTargetTracker => "WASM Target Tracker"
-  }
-}
diff --git a/src/modules/MassPanicModule.affine b/src/modules/MassPanicModule.affine
new file mode 100644
index 00000000..4fdc6bcc
--- /dev/null
+++ b/src/modules/MassPanicModule.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MassPanicModule;
+
+// TODO: Complete semantic implementation
diff --git a/src/modules/MassPanicModule.res b/src/modules/MassPanicModule.res
deleted file mode 100644
index bfe72a03..00000000
--- a/src/modules/MassPanicModule.res
+++ /dev/null
@@ -1,66 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Mass Panic module — capability declarations for the organisation-scale
-/// batch scanning panel.
-///
-/// Mass-panic is a deployment mode of panic-attack: assemblyline batch scanning
-/// with rayon parallelism, incremental BLAKE3 fingerprinting, verisim octad
-/// persistence, delta reporting, and notification pipeline. This panel provides
-/// a GUI for operations that would otherwise require complex CLI orchestration.
-
-type massPanicCapability =
-  | AssemblylineScanning
-  | IncrementalBlake3
-  | VerisimDBPersistence
-  | DeltaReporting
-  | NotificationPipeline
-  | RepoDiscovery
-  | CacheManagement
-  | SystemImaging
-  | TemporalNavigation
-
-type massPanicModuleConfig = {
-  id: string,
-  name: string,
-  version: string,
-  description: string,
-  binaryName: string,
-  capabilities: array<massPanicCapability>,
-  icon: option<string>,
-}
-
-let config: massPanicModuleConfig = {
-  id: "mass-panic",
-  name: "Mass Panic",
-  version: "2.1.0",
-  description: "Organisation-scale batch scanning — assemblyline + BLAKE3 + imaging + temporal + verisim",
-  binaryName: "panic-attack",
-  icon: Some("zap-off"), // differentiate from single-repo "zap"
-  capabilities: [
-    AssemblylineScanning,
-    IncrementalBlake3,
-    VerisimDBPersistence,
-    DeltaReporting,
-    NotificationPipeline,
-    RepoDiscovery,
-    CacheManagement,
-    SystemImaging,
-    TemporalNavigation,
-  ],
-}
-
-let hasCapability = (cap: massPanicCapability): bool => config.capabilities->Array.includes(cap)
-
-let capabilityLabel = (cap: massPanicCapability): string =>
-  switch cap {
-  | AssemblylineScanning => "Assemblyline Scanning (rayon parallelism)"
-  | IncrementalBlake3 => "Incremental BLAKE3 Fingerprinting"
-  | VerisimDBPersistence => "VerisimDB Octad Persistence"
-  | DeltaReporting => "Delta Reporting (diff between runs)"
-  | NotificationPipeline => "Notification Pipeline (markdown + GitHub)"
-  | RepoDiscovery => "Repository Discovery (.git detection)"
-  | CacheManagement => "Fingerprint Cache Management"
-  | SystemImaging => "System Health Imaging (fNIRS-style spatial risk map)"
-  | TemporalNavigation => "Temporal Navigation (time-series diff + trend detection)"
-  }
diff --git a/src/modules/MigrationModule.affine b/src/modules/MigrationModule.affine
new file mode 100644
index 00000000..472c0e4f
--- /dev/null
+++ b/src/modules/MigrationModule.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MigrationModule;
+
+// TODO: Complete semantic implementation
diff --git a/src/modules/MigrationModule.res b/src/modules/MigrationModule.res
deleted file mode 100644
index 3a0a8b63..00000000
--- a/src/modules/MigrationModule.res
+++ /dev/null
@@ -1,112 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// MigrationModule — PanLL module registration for the ReScript Migration Observatory.
-///
-/// Maps the migration observatory to PanLL's three-panel model:
-///
-///   Panel-L (Symbolic):  Migration constraints — deprecated APIs, version
-///                        requirements, proof obligations, merge conflicts
-///   Panel-N (Neural):    Hypatia reasoning — migration order, API replacement
-///                        strategies, merge decisions, agentic actions taken
-///   Panel-W (World):     Results dashboard — health scores, build times,
-///                        bundle sizes, submission queue, timeline, rollback
-///
-/// Data sources:
-///   - panic-attack migration-snapshot (via CLI or JSON files)
-///   - feedback-o-tron MCP tools (begin/end observation, review queue)
-///   - merge-resolver session logs (decision log JSON)
-///   - Hypatia migration_rules.lgt (proof obligations, migration readiness)
-///   - VeriSimDB octads (session persistence, cross-repo aggregation)
-
-/// Capabilities supported by the Migration Observatory.
-type migrationCapability =
-  /// Capture before/after snapshots via panic-attack.
-  | HealthSnapshots
-  /// Observe migration sessions via feedback-o-tron MCP.
-  | SessionObservation
-  /// Queue and review issues for ReScript team submission.
-  | SubmissionQueue
-  /// Safe, reversible merge conflict resolution via merge-resolver.
-  | MergeResolution
-  /// Cross-repo aggregation reports from VeriSimDB.
-  | AggregateReports
-  /// Neurosymbolic reasoning from Hypatia migration rules.
-  | ProofObligations
-
-/// Panel-L constraint categories for the migration observatory.
-type constraintCategory =
-  /// Deprecated API usage constraints (Js.*, Belt.*).
-  | DeprecatedApi
-  /// Configuration format constraints (bsconfig.json).
-  | ConfigFormat
-  /// Version bracket requirements (JSX v4, uncurried mode).
-  | VersionRequirement
-  /// Proof obligations from Hypatia (all deprecated calls removed, etc.).
-  | ProofObligation
-  /// Merge conflict constraints (unresolved conflicts block migration).
-  | MergeConflict
-
-/// Panel-N reasoning categories for the migration observatory.
-type reasoningCategory =
-  /// Recommended migration order from Hypatia's dependency graph analysis.
-  | MigrationOrder
-  /// API replacement strategy (search_replace vs module_replace).
-  | ReplacementStrategy
-  /// Merge conflict resolution reasoning (why chose ours/theirs/ai).
-  | MergeReasoning
-  /// Safety triangle routing decisions.
-  | SafetyRouting
-
-/// Panel-W result categories for the migration observatory.
-type resultCategory =
-  /// Health score dashboard with sparklines.
-  | HealthDashboard
-  /// Before/after comparison cards.
-  | ComparisonCards
-  /// Build time and bundle size metrics.
-  | PerformanceMetrics
-  /// Submission review queue with approve/reject.
-  | ReviewQueue
-  /// Merge conflict timeline with rollback points.
-  | MergeTimeline
-  /// Cross-repo aggregation charts.
-  | AggregationCharts
-
-/// Module configuration for the Migration Observatory.
-let moduleConfig = {
-  "name": "Migration Observatory",
-  "version": "1.0.0",
-  "description": "ReScript migration health tracking, session observation, issue submission, and merge conflict resolution",
-  "capabilities": [
-    "health_snapshots",
-    "session_observation",
-    "submission_queue",
-    "merge_resolution",
-    "aggregate_reports",
-    "proof_obligations",
-  ],
-  "backends": [
-    {"name": "panic-attack", "type": "cli", "target": "panic-attack migration-snapshot"},
-    {"name": "feedback-o-tron", "type": "mcp", "target": "feedback-a-tron"},
-    {"name": "merge-resolver", "type": "cli", "target": "merge-resolver"},
-    {"name": "verisim", "type": "api", "target": "http://localhost:8080/api/v1"},
-  ],
-  "panelMapping": {
-    "panelL": [
-      "deprecated_apis",
-      "config_format",
-      "version_requirements",
-      "proof_obligations",
-      "merge_conflicts",
-    ],
-    "panelN": ["migration_order", "replacement_strategy", "merge_reasoning", "safety_routing"],
-    "panelW": [
-      "health_dashboard",
-      "comparison_cards",
-      "performance_metrics",
-      "review_queue",
-      "merge_timeline",
-      "aggregation_charts",
-    ],
-  },
-}
diff --git a/src/modules/PanelRegistry.affine b/src/modules/PanelRegistry.affine
new file mode 100644
index 00000000..bf02ea6e
--- /dev/null
+++ b/src/modules/PanelRegistry.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PanelRegistry;
+
+// TODO: Complete semantic implementation
diff --git a/src/modules/PanelRegistry.res b/src/modules/PanelRegistry.res
deleted file mode 100644
index b6990f98..00000000
--- a/src/modules/PanelRegistry.res
+++ /dev/null
@@ -1,1191 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Panel Registry — canonical registry of all panel modules.
-///
-/// Central source of truth for panel metadata. The panel bar component
-/// reads this to render icons and labels. New panels are added here
-/// first, then wired into Model/Msg/Update/View.
-
-open PanelSwitcherModel
-
-/// All registered panels with their metadata. Order determines
-/// default panel bar layout.
-let allPanels: array<panelMeta> = [
-  {
-    id: PanelCloudGuard,
-    name: "CloudGuard",
-    shortName: "CG",
-    description: "Cloudflare domain security management",
-    icon: "shield",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("cloudguard"),
-  },
-  {
-    id: PanelVab,
-    name: "VAB",
-    shortName: "VAB",
-    description: "Verified Assembly Building — server component composer",
-    icon: "rocket",
-    connectionStatus: ServiceConnected, // VAB is local catalog, always "connected"
-    hasBackend: false,
-    cladeId: Some("vab"),
-  },
-  {
-    id: PanelFarm,
-    name: "Farm",
-    shortName: "Farm",
-    description: "Repository admin registry and maintenance hub",
-    icon: "barn",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: false, // Reads local JSON, no HTTP service
-    cladeId: Some("farm"),
-  },
-  {
-    id: PanelFleet,
-    name: "Fleet",
-    shortName: "Fleet",
-    description: "Gitbot fleet orchestration and dispatch",
-    icon: "bots",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("fleet"),
-  },
-  {
-    id: PanelHypatia,
-    name: "Hypatia",
-    shortName: "Hyp",
-    description: "Neurosymbolic CI/CD intelligence",
-    icon: "brain",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("hypatia"),
-  },
-  {
-    id: PanelReposystem,
-    name: "Reposystem",
-    shortName: "RSR",
-    description: "RSR compliance and template management",
-    icon: "layers",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: false, // Filesystem scanning
-    cladeId: Some("reposystem"),
-  },
-  {
-    id: PanelDatabases,
-    name: "Databases",
-    shortName: "DB",
-    description: "VeriSimDB, QuandleDB, LithoGlyph management",
-    icon: "database",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("databases"),
-  },
-  {
-    id: PanelVcl,
-    name: "VCL-total",
-    shortName: "VCL",
-    description: "Type-safe query language for VeriSimDB — 10-level progressive safety, cross-prover dispatch, dedicated linter and formatter",
-    icon: "database-search",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("vcl"),
-  },
-  {
-    id: PanelAerie,
-    name: "Aerie",
-    shortName: "Net",
-    description: "Network diagnostics and BGP forensics",
-    icon: "network",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("aerie"),
-  },
-  {
-    id: PanelOo7Toolchain,
-    name: "007 Toolchain",
-    shortName: "007",
-    description: "Agentic compiler and high-rigor execution (Groove)",
-    icon: "code",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("oo7-toolchain"),
-  },
-  {
-    id: PanelVideoCoordination,
-    name: "Video Coordination",
-    shortName: "Video",
-    description: "Drive-to-Photos batch transfer dashboard",
-    icon: "video",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("video-coordination"),
-  },
-  {
-    id: PanelInterfaces,
-    name: "Interfaces",
-    shortName: "FFI",
-    description: "Language bridges, ABI/FFI inventory",
-    icon: "bridge",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: false, // Filesystem scanning
-    cladeId: Some("interfaces"),
-  },
-  {
-    id: PanelPlaygrounds,
-    name: "Playgrounds",
-    shortName: "Play",
-    description: "Code sandbox, NQC console, tutorials",
-    icon: "terminal",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true, // NQC proxy + database connections
-    cladeId: Some("playgrounds"),
-  },
-  {
-    id: PanelPlaza,
-    name: "Palimpsest Plaza",
-    shortName: "PMPL",
-    description: "PMPL license adoption, compliance, and governance hub",
-    icon: "scroll",
-    connectionStatus: ServiceConnected, // Local scanning, always available
-    hasBackend: false, // Filesystem scanning + CLI tools
-    cladeId: Some("plaza"),
-  },
-  {
-    id: PanelMinter,
-    name: "Minter",
-    shortName: "Mint",
-    description: "Panel creation wizard — generate accessible panel modules from templates",
-    icon: "wand",
-    connectionStatus: ServiceConnected, // Local generation, always available
-    hasBackend: true, // Gossamer backend generates files and patches wiring
-    cladeId: Some("minter"),
-  },
-  {
-    id: PanelProvisioner,
-    name: "Provisioner",
-    shortName: "Prov",
-    description: "Portfolio bundles, panel configuration, and isolation tier management",
-    icon: "package",
-    connectionStatus: ServiceConnected, // Local state management, always available
-    hasBackend: false, // Configuration is local; container ops handled by Stapeln/Podman
-    cladeId: Some("provisioner"),
-  },
-  {
-    id: PanelWizard,
-    name: "Wizard",
-    shortName: "Wiz",
-    description: "Guided plugin/panel creation wizard",
-    icon: "wand",
-    connectionStatus: ServiceConnected, // Local state management
-    hasBackend: false, // Wizard logic is frontend-only
-    cladeId: None,
-  },
-  {
-    id: PanelVoiceTag,
-    name: "Code MRI",
-    shortName: "MRI",
-    description: "Voice-activated code annotation — tags stored as portable .mri.json sidecars",
-    icon: "mic",
-    connectionStatus: ServiceConnected, // Local filesystem I/O, always available
-    hasBackend: false, // Reads/writes .mri.json sidecar files, no HTTP service
-    cladeId: Some("voicetag"),
-  },
-  {
-    id: PanelAi,
-    name: "AI",
-    shortName: "AI",
-    description: "Multi-provider AI neural interface — Claude, Gemini, Mistral, GPT, local models",
-    icon: "brain-circuit",
-    connectionStatus: ServiceDisconnected, // Connects to external AI providers
-    hasBackend: true, // HTTP calls to AI provider APIs
-    cladeId: Some("ai"),
-  },
-  {
-    id: PanelRepoLoader,
-    name: "Repo Loader",
-    shortName: "Repo",
-    description: "Repository scanner and panel configuration — load a repo, configure panels",
-    icon: "folder-open",
-    connectionStatus: ServiceConnected, // Local filesystem scanning, always available
-    hasBackend: true, // Scans filesystem and reads manifests via Gossamer
-    cladeId: Some("repoloader"),
-  },
-  {
-    id: PanelWorkspace,
-    name: "Workspace",
-    shortName: "WS",
-    description: "Panel arrangements, groups, sessions, modes, and configurator",
-    icon: "layout",
-    connectionStatus: ServiceConnected, // Local state management, always available
-    hasBackend: true, // System info queries via Gossamer
-    cladeId: Some("workspace"),
-  },
-  {
-    id: PanelCapture,
-    name: "Capture",
-    shortName: "Cap",
-    description: "Screenshots, recordings, demos, panel cloning, and comparison views",
-    icon: "camera",
-    connectionStatus: ServiceConnected, // Local file I/O, always available
-    hasBackend: true, // File saving via Gossamer
-    cladeId: Some("capture"),
-  },
-  {
-    id: PanelSecurity,
-    name: "Security",
-    shortName: "Sec",
-    description: "Secrets redaction, vault, 2FA, Trustfile enforcement, shoulder-safe mode",
-    icon: "lock",
-    connectionStatus: ServiceConnected, // Local + vault CLI, always available
-    hasBackend: true, // Redaction regex + vault I/O via Gossamer
-    cladeId: Some("security"),
-  },
-  {
-    id: PanelMigration,
-    name: "Migration",
-    shortName: "Mig",
-    description: "ReScript Migration Observatory — health tracking, sessions, submissions, merge resolver",
-    icon: "migration",
-    connectionStatus: ServiceDisconnected, // Connects to feedback-o-tron MCP + panic-attack
-    hasBackend: true, // panic-attack CLI + feedback-o-tron MCP server
-    cladeId: Some("migration"),
-  },
-  {
-    id: PanelPanicAttack,
-    name: "panic-attack",
-    shortName: "PA",
-    description: "Stress testing and logic-based bug signature detection — 47 languages, 20 categories",
-    icon: "zap",
-    connectionStatus: ServiceDisconnected, // Probes for local panic-attack binary
-    hasBackend: true, // Invokes panic-attack CLI via Gossamer
-    cladeId: Some("panic-attack"),
-  },
-  {
-    id: PanelMassPanic,
-    name: "Mass Panic",
-    shortName: "MP",
-    description: "Organisation-scale batch scanning — assemblyline + BLAKE3 + verisim + delta",
-    icon: "zap-off",
-    connectionStatus: ServiceDisconnected, // Probes for panic-attack binary
-    hasBackend: true, // Invokes panic-attack assemblyline via Gossamer
-    cladeId: Some("mass-panic"),
-  },
-  {
-    id: PanelTsdm,
-    name: "TSDM",
-    shortName: "TSD",
-    description: "Triaxial Software Development Methodology — directive panel for priority ordering across all panels",
-    icon: "compass",
-    connectionStatus: ServiceConnected, // Pure client-side state, always available
-    hasBackend: false, // Directive state is local; optional verisim persistence
-    cladeId: Some("tsdm"),
-  },
-  {
-    id: PanelValenceShell,
-    name: "Valence Shell",
-    shortName: "VS",
-    description: "Embedded terminal with Claude Code, session recording, reversible ops, and collaborative approval gate",
-    icon: "terminal-square",
-    connectionStatus: ServiceDisconnected, // Probes for Valence shell binary + PTY allocation
-    hasBackend: true, // PTY via Gossamer shell plugin + Valence binary
-    cladeId: Some("valence-shell"),
-  },
-  {
-    id: PanelGamePreview,
-    name: "Game Preview",
-    shortName: "Game",
-    description: "Live IDApTIK game preview with hot-reload, frame stepping, overlays, and gameplay recording",
-    icon: "gamepad-2",
-    connectionStatus: ServiceDisconnected, // Probes for Vite dev server on :8080
-    hasBackend: true, // Embedded iframe/webview + Gossamer game control bridge
-    cladeId: Some("game-preview"),
-  },
-  {
-    id: PanelVmInspector,
-    name: "VM Inspector",
-    shortName: "VM",
-    description: "Reversible VM visual debugger — stack, memory, instructions, step forward and backward",
-    icon: "cpu",
-    connectionStatus: ServiceDisconnected, // Connects to running VM via inter-webview or file
-    hasBackend: true, // Gossamer inter-webview messaging or file I/O
-    cladeId: Some("vm-inspector"),
-  },
-  {
-    id: PanelNetworkTopology,
-    name: "Network Topology",
-    shortName: "Topo",
-    description: "Force-directed graph of IDApTIK in-game network — devices, zones, security levels, packet flow",
-    icon: "network",
-    connectionStatus: ServiceDisconnected, // Reads from running game via inter-webview
-    hasBackend: true, // Inter-webview messaging to game instance
-    cladeId: Some("network-topology"),
-  },
-  {
-    id: PanelLevelArchitect,
-    name: "Level Architect",
-    shortName: "Lvl",
-    description: "Visual level design — device placement, guard patrols, defence flags, validation, LevelConfig export",
-    icon: "map",
-    connectionStatus: ServiceDisconnected, // File I/O for level data
-    hasBackend: true, // Gossamer file I/O + validation
-    cladeId: Some("level-architect"),
-  },
-  {
-    id: PanelCoprocessors,
-    name: "Coprocessors",
-    shortName: "CoPr",
-    description: "Monitor IDApTIK's 10 coprocessor backends — call log, heatmap, performance, health",
-    icon: "chip",
-    connectionStatus: ServiceDisconnected, // Reads from running game
-    hasBackend: true, // Inter-webview messaging to game instance
-    cladeId: Some("coprocessors"),
-  },
-  {
-    id: PanelMultiplayerMonitor,
-    name: "Multiplayer Monitor",
-    shortName: "MP",
-    description: "Monitor Elixir/Phoenix sync server — WebSocket, channels, player state, Lamport clocks, latency",
-    icon: "users",
-    connectionStatus: ServiceDisconnected, // WebSocket to Phoenix server
-    hasBackend: true, // Phoenix WebSocket on :4000
-    cladeId: Some("multiplayer-monitor"),
-  },
-  {
-    id: PanelDlcWorkshop,
-    name: "DLC Workshop",
-    shortName: "DLC",
-    description: "Create, test, and package DLC puzzle packs — VM composer, solution testing, asset bundling",
-    icon: "puzzle",
-    connectionStatus: ServiceDisconnected, // File I/O for DLC data
-    hasBackend: true, // Gossamer file I/O + test runner
-    cladeId: Some("dlc-workshop"),
-  },
-  {
-    id: PanelEditorBridge,
-    name: "Editor Bridge",
-    shortName: "EB",
-    description: "Federate with external code editors — LSP diagnostics, symbols, open files, jump-to-line",
-    icon: "file-code",
-    connectionStatus: ServiceDisconnected, // LSP connection to external editor
-    hasBackend: true, // LSP protocol via Gossamer
-    cladeId: Some("editor-bridge"),
-  },
-  {
-    id: PanelBuildDashboard,
-    name: "Build Dashboard",
-    shortName: "Bld",
-    description: "Monitor builds, tests, errors, and compilation status across IDApTIK sub-projects",
-    icon: "hammer",
-    connectionStatus: ServiceDisconnected, // Build process monitoring
-    hasBackend: true, // Gossamer build process invocation
-    cladeId: Some("build-dashboard"),
-  },
-  {
-    id: PanelReleaseManager,
-    name: "Release Manager",
-    shortName: "Rel",
-    description: "Versioning, changelog, artifact building, signing, and distribution of IDApTIK builds",
-    icon: "package-check",
-    connectionStatus: ServiceDisconnected, // Release pipeline
-    hasBackend: true, // Gossamer release process invocation
-    cladeId: Some("release-manager"),
-  },
-  {
-    id: PanelAutomationRouter,
-    name: "Automation Router",
-    shortName: "Auto",
-    description: "Hybrid cross-panel workflow orchestration — event-driven rules with approval gates",
-    icon: "route",
-    connectionStatus: ServiceConnected, // Local rule engine, always available
-    hasBackend: true, // Gossamer rule execution + .machine_readable/ENSAID_CONFIG.a2ml reading
-    cladeId: Some("automation-router"),
-  },
-  {
-    id: PanelScriptGist,
-    name: "Script Gist",
-    shortName: "Gist",
-    description: "Portable computation gists — Minskian diachronic scripts (time) and synchronic schemata (space) as cardfiles, LLM-callable via MCP",
-    icon: "file-code",
-    connectionStatus: ServiceConnected, // Local gist engine, always available
-    hasBackend: false, // Pure TEA state + optional Gossamer persistence
-    cladeId: Some("script-gist"),
-  },
-  {
-    id: PanelBoj,
-    name: "BoJ",
-    shortName: "BoJ",
-    description: "Bundle of Joy — unified cartridge server with 17 domains (incl. LSP/DAP/BSP), 3-layer ABI/FFI/Adapter, Umoja federation",
-    icon: "box",
-    connectionStatus: ServiceDisconnected, // Probes BoJ server at :7700
-    hasBackend: true, // HTTP proxy to BoJ server via Gossamer
-    cladeId: Some("boj"),
-  },
-  {
-    id: PanelCladeBrowser,
-    name: "Clade Browser",
-    shortName: "Clade",
-    description: "Explore and customise panel clades — taxonomy, traits, kind filtering, panel-to-clade mapping",
-    icon: "dna",
-    connectionStatus: ServiceConnected, // Local taxonomy data, always available
-    hasBackend: false, // Reads clade .a2ml files from filesystem
-    cladeId: Some("clade-browser"),
-  },
-  {
-    id: PanelTentacles,
-    name: "7-Tentacles",
-    shortName: "Tentacles",
-    description: "Compiler agent orchestra — 7 colour-coded agents with OODA reasoning, progressive cephalopod staging, and ECHIDNA FFI bridge",
-    icon: "cpu",
-    connectionStatus: ServiceDisconnected, // FFI bridge checked on demand
-    hasBackend: true, // ECHIDNA V-lang REST adapters
-    cladeId: Some("tentacles"),
-  },
-  {
-    id: PanelProtocolSquisher,
-    name: "Protocol-Squisher",
-    shortName: "Squisher",
-    description: "13-format schema analysis — transport class classification, compatibility comparison, adapter cost estimation",
-    icon: "layers",
-    connectionStatus: ServiceDisconnected, // CLI checked on demand
-    hasBackend: true, // Invokes protocol-squisher CLI
-    cladeId: Some("protocol-squisher"),
-  },
-  {
-    id: PanelMyLang,
-    name: "My-Lang",
-    shortName: "My-Lang",
-    description: "AI-native language workbench — 4 dialects (Solo, Duet, Ensemble, Me), REPL, compiler, and LSP integration",
-    icon: "code",
-    connectionStatus: ServiceDisconnected, // CLI checked on demand
-    hasBackend: true, // Invokes my-lang CLI
-    cladeId: Some("my-lang"),
-  },
-  {
-    id: PanelTypeLL,
-    name: "TypeLL",
-    shortName: "TypeLL",
-    description: "Verification kernel — dependent, linear, affine, session, and refinement types with progressive disclosure and cross-panel type intelligence",
-    icon: "shield",
-    connectionStatus: ServiceDisconnected, // Server checked on demand
-    hasBackend: true, // TypeLL server at TYPELL_URL
-    cladeId: Some("typell"),
-  },
-  {
-    id: PanelEvangeliser,
-    name: "Evangeliser",
-    shortName: "Evan",
-    description: "ReScript Evangeliser — JS-to-ReScript transformation teaching with 52 patterns, Makaton glyphs, and celebrate/minimize/better narratives",
-    icon: "sparkles",
-    connectionStatus: ServiceConnected, // Pure local logic, always available
-    hasBackend: false, // All pattern matching runs client-side
-    cladeId: Some("evangeliser"),
-  },
-  {
-    id: PanelHelp,
-    name: "Help",
-    shortName: "Help",
-    description: "In-application help — searchable guides, neurosymbolic glossary, keyboard shortcuts, onboarding walkthrough",
-    icon: "help-circle",
-    connectionStatus: ServiceConnected, // Local content, always available
-    hasBackend: false, // All content is static, no backend service
-    cladeId: Some("help"),
-  },
-  {
-    id: PanelEchidna,
-    name: "ECHIDNA",
-    shortName: "ECH",
-    description: "Multi-solver theorem prover — proof dispatch, tactic suggestions, enterprise model checking",
-    icon: "shield-check",
-    connectionStatus: ServiceDisconnected, // Connects to ECHIDNA service
-    hasBackend: true, // ECHIDNA V-lang REST adapters
-    cladeId: Some("echidna"),
-  },
-  {
-    id: PanelObservatory,
-    name: "Observatory",
-    shortName: "Obs",
-    description: "Integrative dashboard — cross-panel health, service status, resource usage, ambient metrics",
-    icon: "activity",
-    connectionStatus: ServiceConnected, // Aggregates local state, always available
-    hasBackend: true, // Queries Gossamer for system info + panel health
-    cladeId: Some("observatory"),
-  },
-  {
-    id: PanelAmbientOps,
-    name: "AmbientOps",
-    shortName: "Ops",
-    description: "Hospital-model sysadmin — clinician, network ambulance, hardware crash team, emergency room",
-    icon: "stethoscope",
-    connectionStatus: ServiceDisconnected, // Probes for ambientops services
-    hasBackend: true, // Invokes clinician/network-repair CLIs via Gossamer
-    cladeId: Some("ambientops"),
-  },
-  {
-    id: PanelLanguageForge,
-    name: "Language Forge",
-    shortName: "Forge",
-    description: "Monitor and develop the 14 nextgen-languages portfolio — scores, phases, WASM readiness",
-    icon: "hammer",
-    connectionStatus: ServiceConnected, // Hardcoded data, always available
-    hasBackend: false, // Pure client-side data, no HTTP service
-    cladeId: Some("language-forge"),
-  },
-  {
-    id: PanelTangleViz,
-    name: "Tangle Viz",
-    shortName: "Tangle",
-    description: "Topological programming visualizer — braid diagrams, knot invariants, Tangle source parsing",
-    icon: "knot",
-    connectionStatus: ServiceConnected, // Pure client-side, always available
-    hasBackend: false, // All computation runs client-side
-    cladeId: Some("tangle-viz"),
-  },
-  {
-    id: PanelSpecBrowser,
-    name: "Spec Browser",
-    shortName: "Spec",
-    description: "Browse all 16 language specs, grammars, typing rules — side-by-side comparison and taxonomy completeness",
-    icon: "book-open",
-    connectionStatus: ServiceConnected, // Hardcoded data + filesystem reads, always available
-    hasBackend: false, // Pure client-side data, no HTTP service
-    cladeId: Some("spec-browser"),
-  },
-  {
-    id: PanelVerificationDashboard,
-    name: "Verification Dashboard",
-    shortName: "Verify",
-    description: "Proof/test/benchmark/fuzzing status across all nextgen-languages repos",
-    icon: "check-circle",
-    connectionStatus: ServiceConnected, // Hardcoded audit data, always available
-    hasBackend: false, // Pure client-side data, no HTTP service
-    cladeId: Some("verification-dashboard"),
-  },
-  {
-    id: PanelUms,
-    name: "Universal Modding Studio",
-    shortName: "UMS",
-    description: "Unified hub for IDApTIK game content creation — project management, ABI validation, asset pipeline, mod distribution",
-    icon: "wrench",
-    connectionStatus: ServiceDisconnected, // File I/O + ABI validation
-    hasBackend: true, // Gossamer file I/O + validation engine
-    cladeId: Some("ums"),
-  },
-  // ── Game Testing panels ───────────────────────────────────────────────
-  {
-    id: PanelUnitTestRunner,
-    name: "Unit Test Runner",
-    shortName: "UTR",
-    description: "ReScript test execution, coverage heatmap, diff-aware testing",
-    icon: "test-tube",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("unit-test-runner"),
-  },
-  {
-    id: PanelFunctionalTester,
-    name: "Functional Tester",
-    shortName: "FT",
-    description: "End-to-end game workflow simulation and assertion checking",
-    icon: "list-checks",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("functional-tester"),
-  },
-  {
-    id: PanelRegressionGuard,
-    name: "Regression Guard",
-    shortName: "RG",
-    description: "Snapshot comparison and golden-file testing for regressions",
-    icon: "shield-alert",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("regression-guard"),
-  },
-  {
-    id: PanelPerformanceProfiler,
-    name: "Performance Profiler",
-    shortName: "Perf",
-    description: "Frame budget, GC pressure, memory flamegraphs, bottleneck detection",
-    icon: "flame",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("performance-profiler"),
-  },
-  {
-    id: PanelLoadTester,
-    name: "Load Tester",
-    shortName: "Load",
-    description: "Phoenix channel stress testing, concurrent player simulation",
-    icon: "gauge",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("load-tester"),
-  },
-  {
-    id: PanelSoakMonitor,
-    name: "Soak Monitor",
-    shortName: "Soak",
-    description: "Long-running session memory trend analysis and leak detection",
-    icon: "droplets",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("soak-monitor"),
-  },
-  {
-    id: PanelCompatibilityMatrix,
-    name: "Compatibility Matrix",
-    shortName: "Compat",
-    description: "Browser, device, and resolution test matrix management",
-    icon: "grid-3x3",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("compatibility-matrix"),
-  },
-  {
-    id: PanelExploratoryWorkbench,
-    name: "Exploratory Workbench",
-    shortName: "Explore",
-    description: "Freeform play session recording and anomaly detection",
-    icon: "search",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("exploratory-workbench"),
-  },
-  {
-    id: PanelBetaFeedbackHub,
-    name: "Beta Feedback Hub",
-    shortName: "Beta",
-    description: "Feedback-o-tron integration, sentiment analysis, triage queue",
-    icon: "message-circle",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("beta-feedback-hub"),
-  },
-  {
-    id: PanelBalanceAnalyser,
-    name: "Balance Analyser",
-    shortName: "Bal",
-    description: "Game balance stats, Monte Carlo simulation, difficulty curves",
-    icon: "scale",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("balance-analyser"),
-  },
-  // ── Bridge panels ─────────────────────────────────────────────────────
-  {
-    id: PanelTypingBridge,
-    name: "Typing Bridge",
-    shortName: "TyB",
-    description: "TypeLL type constraints for game state — cross-panel type intelligence bridge",
-    icon: "type",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("typing-bridge"),
-  },
-  {
-    id: PanelNeurosymBridge,
-    name: "Neurosymbolic Bridge",
-    shortName: "NsB",
-    description: "Guard AI behaviour reasoning via ECHIDNA neurosymbolic integration",
-    icon: "brain",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("neurosym-bridge"),
-  },
-  {
-    id: PanelAgenticBridge,
-    name: "Agentic Bridge",
-    shortName: "AgB",
-    description: "Automated playtesting agents with OODA loop reasoning",
-    icon: "bot",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("agentic-bridge"),
-  },
-  {
-    id: PanelAutomationBridge,
-    name: "Automation Bridge",
-    shortName: "AuB",
-    description: "CI/CD pipeline orchestration for game builds and deployment",
-    icon: "workflow",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("automation-bridge"),
-  },
-  {
-    id: PanelDatabaseBridge,
-    name: "Database Bridge",
-    shortName: "DbB",
-    description: "VeriSimDB game state persistence and query bridge",
-    icon: "database",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("database-bridge"),
-  },
-  {
-    id: PanelProtocolBridge,
-    name: "Protocol Bridge",
-    shortName: "PrB",
-    description: "Multiplayer sync protocol analysis and debugging",
-    icon: "arrow-left-right",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("protocol-bridge"),
-  },
-  {
-    id: PanelProofsBridge,
-    name: "Proofs Bridge",
-    shortName: "PfB",
-    description: "Proven repo formal verification integration bridge",
-    icon: "check-check",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("proofs-bridge"),
-  },
-  {
-    id: PanelScriptingBridge,
-    name: "Scripting Bridge",
-    shortName: "ScB",
-    description: "VM instruction scripting REPL for game logic development",
-    icon: "terminal",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("scripting-bridge"),
-  },
-  // ── Game-specific panels ──────────────────────────────────────────────
-  {
-    id: PanelGeneratorMode,
-    name: "Generator Mode",
-    shortName: "Gen",
-    description: "Parametric procedural world builder with constraint-based generation",
-    icon: "wand",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("generator-mode"),
-  },
-  {
-    id: PanelArchitectMode,
-    name: "Architect Mode",
-    shortName: "Arch",
-    description: "PixiJS fine-grained level editor with L/N/W pane integration",
-    icon: "ruler",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("architect-mode"),
-  },
-  {
-    id: PanelGuardAiTuner,
-    name: "Guard AI Tuner",
-    shortName: "GAI",
-    description: "Guard patrol paths, alert thresholds, spawn rate tuning",
-    icon: "shield",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("guard-ai-tuner"),
-  },
-  {
-    id: PanelDeviceNetworkDesigner,
-    name: "Device Network Designer",
-    shortName: "DND",
-    description: "Wire devices together, configure security levels and zones",
-    icon: "circuit-board",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("device-network-designer"),
-  },
-  {
-    id: PanelAssetManager,
-    name: "Asset Manager",
-    shortName: "Asset",
-    description: "PixiJS sprites, sounds, level templates, and asset pipeline",
-    icon: "image",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("asset-manager"),
-  },
-  {
-    id: PanelPlaytestRecorder,
-    name: "Playtest Recorder",
-    shortName: "Play",
-    description: "Record and replay game sessions, annotate key moments",
-    icon: "video",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("playtest-recorder"),
-  },
-  // ── Team / collaboration panels ─────────────────────────────────────────
-  {
-    id: PanelCodeReview,
-    name: "Code Review",
-    shortName: "CR",
-    description: "Pull request review, inline comments, file changes, and approval gates",
-    icon: "eye",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("code-review"),
-  },
-  {
-    id: PanelMergeCoordinator,
-    name: "Merge Coordinator",
-    shortName: "Merge",
-    description: "Branch management, conflict resolution, merge queue, and history",
-    icon: "git-merge",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("merge-coordinator"),
-  },
-  {
-    id: PanelTeamDashboard,
-    name: "Team Dashboard",
-    shortName: "Team",
-    description: "Team presence, activity feed, progress tracking, and schedule",
-    icon: "users",
-    connectionStatus: ServiceConnected,
-    hasBackend: false,
-    cladeId: Some("team-dashboard"),
-  },
-  {
-    id: PanelDebuggingWorkbench,
-    name: "Debugging Workbench",
-    shortName: "Debug",
-    description: "Time-travel debugging, state tree inspection, watch expressions, and console",
-    icon: "bug",
-    connectionStatus: ServiceConnected,
-    hasBackend: false,
-    cladeId: Some("debugging-workbench"),
-  },
-  // ── Infrastructure panels ───────────────────────────────────────────
-  {
-    id: PanelWiringInspector,
-    name: "Wiring Inspector",
-    shortName: "Wiring",
-    description: "Constraint-aware panel wiring verification and bottleneck analysis",
-    icon: "plug-zap",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("wiring-inspector"),
-  },
-  {
-    id: PanelK9Manager,
-    name: "K9 Manager",
-    shortName: "K9",
-    description: "Self-validating K9 contractile file management — Kennel/Yard/Hunt security levels",
-    icon: "dog",
-    connectionStatus: ServiceConnected, // Local file I/O, always available
-    hasBackend: true, // Gossamer file I/O for loading .k9.ncl files
-    cladeId: Some("k9-manager"),
-  },
-  {
-    id: PanelContractileManager,
-    name: "Contractile Manager",
-    shortName: "Ctrl",
-    description: "Cognitive governance dashboard — 11 contractiles with elastic enforcement and vexation tracking",
-    icon: "shield-check",
-    connectionStatus: ServiceConnected, // Pure client-side state, always available
-    hasBackend: false, // All contractile evaluation runs client-side
-    cladeId: Some("contractile-manager"),
-  },
-  // ── Floor Raise campaign panels ─────────────────────────────────────────
-  {
-    id: PanelFloorRaise,
-    name: "Floor Raise",
-    shortName: "FR",
-    description: "Floor Raise campaign — foundational tool adoption dashboard",
-    icon: "trending-up",
-    connectionStatus: ServiceDisconnected, // Reads verisim data
-    hasBackend: true, // VeriSimDB queries for adoption metrics
-    cladeId: Some("floor-raise"),
-  },
-  {
-    id: PanelProvenAdoption,
-    name: "Proven Adoption",
-    shortName: "PrA",
-    description: "Proven library adoption — which repos use formally verified safety primitives",
-    icon: "check-circle",
-    connectionStatus: ServiceConnected, // Filesystem scanning, always available
-    hasBackend: false, // Pure filesystem scanning
-    cladeId: Some("proven-adoption"),
-  },
-  {
-    id: PanelContractileCompleteness,
-    name: "Contractile Completeness",
-    shortName: "CC",
-    description: "Contractile completeness — Mustfile/Trustfile/Dustfile/K9 coverage",
-    icon: "file-check",
-    connectionStatus: ServiceConnected, // Filesystem scanning, always available
-    hasBackend: false, // Pure filesystem scanning
-    cladeId: Some("contractile-completeness"),
-  },
-  {
-    id: PanelManifestCoverage,
-    name: "Manifest Coverage",
-    shortName: "MC",
-    description: "AI manifest coverage — 0-AI-MANIFEST.a2ml presence across all repos",
-    icon: "clipboard-check",
-    connectionStatus: ServiceConnected, // Filesystem scanning, always available
-    hasBackend: false, // Pure filesystem scanning
-    cladeId: Some("manifest-coverage"),
-  },
-  {
-    id: PanelVerisimdbFeeds,
-    name: "VeriSimDB Feeds",
-    shortName: "VF",
-    description: "VeriSimDB data feeds — cross-repo analytics health and flow",
-    icon: "activity",
-    connectionStatus: ServiceDisconnected, // Connects to VeriSimDB
-    hasBackend: true, // VeriSimDB queries
-    cladeId: Some("verisim-feeds"),
-  },
-  {
-    id: PanelFeedbackRouting,
-    name: "Feedback Routing",
-    shortName: "FBR",
-    description: "Feedback-o-Tron routing — upstream bug report status and integration map",
-    icon: "message-circle",
-    connectionStatus: ServiceDisconnected, // Connects to feedback-o-tron
-    hasBackend: true, // HTTP calls to feedback platforms
-    cladeId: Some("feedback-routing"),
-  },
-  {
-    id: PanelVexometerFriction,
-    name: "Vexometer Friction",
-    shortName: "VxF",
-    description: "Vexometer friction — irritation surface measurements across tools",
-    icon: "gauge",
-    connectionStatus: ServiceDisconnected, // Connects to vexometer backend
-    hasBackend: true, // Vexometer measurement queries
-    cladeId: Some("vexometer-friction"),
-  },
-  {
-    id: PanelLlmCoding,
-    name: "LLM Coding",
-    shortName: "LLM",
-    description: "Multi-session Claude/LLM coordinator — spawn, monitor, freeze, and coordinate parallel coding sessions with resource limits and workspace locking",
-    icon: "terminal-square",
-    connectionStatus: ServiceDisconnected, // Connects to llm-coding daemon on port 7900
-    hasBackend: true, // Manages Claude/LLM processes
-    cladeId: Some("llm-coding"),
-  },
-  {
-    id: PanelAgentCoordination,
-    name: "Agent Coordination",
-    shortName: "Coord",
-    description: "Multi-agent topology and coordination strategy visualiser",
-    icon: "network",
-    connectionStatus: ServiceDisconnected,
-    hasBackend: true,
-    cladeId: Some("agent-coordination"),
-  },
-  // ════════════════════════════════════════════════════════════════════════
-  // Game Server Admin panels
-  // ════════════════════════════════════════════════════════════════════════
-  {
-    id: PanelGsaServerBrowser,
-    name: "Server Browser",
-    shortName: "Servers",
-    description: "Discover and fingerprint game servers",
-    icon: "radar",
-    connectionStatus: ServiceConnected,
-    hasBackend: true,
-    cladeId: Some("gsa-browser"),
-  },
-  {
-    id: PanelGsaConfigEditor,
-    name: "Config Editor",
-    shortName: "Config",
-    description: "A2ML-aware game server configuration editor",
-    icon: "sliders",
-    connectionStatus: ServiceConnected,
-    hasBackend: true,
-    cladeId: Some("gsa-config"),
-  },
-  {
-    id: PanelGsaServerActions,
-    name: "Server Actions",
-    shortName: "Actions",
-    description: "Start/stop/restart game servers with confirmation",
-    icon: "play-circle",
-    connectionStatus: ServiceConnected,
-    hasBackend: true,
-    cladeId: Some("gsa-actions"),
-  },
-  {
-    id: PanelGsaLiveLogs,
-    name: "Live Logs",
-    shortName: "Logs",
-    description: "Real-time game server log streaming",
-    icon: "terminal",
-    connectionStatus: ServiceConnected,
-    hasBackend: true,
-    cladeId: Some("gsa-logs"),
-  },
-  {
-    id: PanelGsaHealthDashboard,
-    name: "Health Dashboard",
-    shortName: "Health",
-    description: "Server health and config drift detection",
-    icon: "activity",
-    connectionStatus: ServiceConnected,
-    hasBackend: true,
-    cladeId: Some("gsa-health"),
-  },
-  {
-    id: PanelGsaConfigHistory,
-    name: "Config History",
-    shortName: "History",
-    description: "Config version timeline with provenance chain",
-    icon: "git-branch",
-    connectionStatus: ServiceConnected,
-    hasBackend: true,
-    cladeId: Some("gsa-history"),
-  },
-  {
-    id: PanelGsaCrossSearch,
-    name: "Cross-Server Search",
-    shortName: "Search",
-    description: "VCL-powered cross-server config search",
-    icon: "search",
-    connectionStatus: ServiceConnected,
-    hasBackend: true,
-    cladeId: Some("gsa-search"),
-  },
-  // ════════════════════════════════════════════════════════════════════════
-  // Burble Admin panels
-  // ════════════════════════════════════════════════════════════════════════
-  {
-    id: PanelBurbleServerStatus,
-    name: "Burble Status",
-    shortName: "Status",
-    description: "Burble voice server health, uptime, and room overview",
-    icon: "mic",
-    connectionStatus: ServiceConnected,
-    hasBackend: true,
-    cladeId: Some("burble-admin"),
-  },
-  {
-    id: PanelBurbleVoiceQuality,
-    name: "Voice Quality",
-    shortName: "Voice",
-    description: "WebRTC voice metrics — bandwidth, jitter, packet loss",
-    icon: "bar-chart",
-    connectionStatus: ServiceConnected,
-    hasBackend: true,
-    cladeId: Some("burble-admin"),
-  },
-  {
-    id: PanelBurbleRoomMonitor,
-    name: "Room Monitor",
-    shortName: "Rooms",
-    description: "Active voice rooms, recordings, participant activity",
-    icon: "users",
-    connectionStatus: ServiceConnected,
-    hasBackend: true,
-    cladeId: Some("burble-admin"),
-  },
-  // ════════════════════════════════════════════════════════════════════════
-  // IDApTIK Admin panels
-  // ════════════════════════════════════════════════════════════════════════
-  {
-    id: PanelIdaptikServerStatus,
-    name: "IDApTIK Status",
-    shortName: "Server",
-    description: "IDApTIK game server state, sessions, and player count",
-    icon: "shield",
-    connectionStatus: ServiceConnected,
-    hasBackend: true,
-    cladeId: Some("idaptik-admin"),
-  },
-  {
-    id: PanelIdaptikSessionMonitor,
-    name: "Session Monitor",
-    shortName: "Sessions",
-    description: "Active game sessions, completion rates, difficulty balance",
-    icon: "monitor",
-    connectionStatus: ServiceConnected,
-    hasBackend: true,
-    cladeId: Some("idaptik-admin"),
-  },
-  {
-    id: PanelIdaptikPlayerOverview,
-    name: "Player Overview",
-    shortName: "Players",
-    description: "Jessica/Q player stats, asymmetric balance ratio",
-    icon: "users",
-    connectionStatus: ServiceConnected,
-    hasBackend: true,
-    cladeId: Some("idaptik-admin"),
-  },
-]
-
-/// Look up panel metadata by ID.
-let findPanel = (id: panelId): option<panelMeta> => {
-  allPanels->Array.find(p => p.id === id)
-}
-
-/// Get the display name for a panel ID.
-let panelName = (id: panelId): string => {
-  switch findPanel(id) {
-  | Some(p) => p.name
-  | None => "Unknown"
-  }
-}
-
-/// Default panel order (all panels).
-let defaultOrder: array<panelId> = allPanels->Array.map(p => p.id)
-
-// ════════════════════════════════════════════════════════════════════════
-// Clade-aware capability queries
-// ════════════════════════════════════════════════════════════════════════
-
-/// Get the clade ID for a panel.
-let panelCladeId = (id: panelId): option<string> => {
-  switch findPanel(id) {
-  | Some(p) => p.cladeId
-  | None => None
-  }
-}
-
-/// Get the effective traits for a panel by resolving clade inheritance.
-/// Returns None if the panel has no clade or the clade isn't found.
-let panelTraits = (id: panelId, clades: array<CladeBrowserModel.cladeEntry>): option<
-  CladeBrowserModel.cladeTraits,
-> => {
-  switch panelCladeId(id) {
-  | None => None
-  | Some(cid) => CladeBrowserEngine.resolveTraits(clades, cid)
-  }
-}
-
-/// Check if a panel has a specific trait (via clade inheritance).
-let panelHasTrait = (
-  id: panelId,
-  clades: array<CladeBrowserModel.cladeEntry>,
-  getter: CladeBrowserModel.cladeTraits => bool,
-): bool => {
-  switch panelTraits(id, clades) {
-  | None => false
-  | Some(traits) => getter(traits)
-  }
-}
-
-/// Get all panels that have a specific trait (via clade inheritance).
-let panelsWithTrait = (
-  clades: array<CladeBrowserModel.cladeEntry>,
-  getter: CladeBrowserModel.cladeTraits => bool,
-): array<panelMeta> => {
-  allPanels->Array.filter(p => panelHasTrait(p.id, clades, getter))
-}
-
-/// Get all panels that belong to a specific clade.
-let panelsInClade = (cladeId: string): array<panelMeta> => {
-  allPanels->Array.filter(p => p.cladeId == Some(cladeId))
-}
-
-/// Initial panel switcher state.
-let init: panelSwitcherState = {
-  activePanel: None,
-  panelOrder: defaultOrder,
-  panels: allPanels,
-  expandedGroup: None,
-}
diff --git a/src/modules/PanicAttackModule.affine b/src/modules/PanicAttackModule.affine
new file mode 100644
index 00000000..4d1379f7
--- /dev/null
+++ b/src/modules/PanicAttackModule.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PanicAttackModule;
+
+// TODO: Complete semantic implementation
diff --git a/src/modules/PanicAttackModule.res b/src/modules/PanicAttackModule.res
deleted file mode 100644
index 61700e71..00000000
--- a/src/modules/PanicAttackModule.res
+++ /dev/null
@@ -1,63 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL panic-attack module — capability declarations for the stress testing
-/// and weak point analysis panel.
-///
-/// panic-attack is a universal stress testing and logic-based bug signature
-/// detection tool. It analyses code across 47 languages, detecting 20
-/// categories of weak points. This module exposes scan, report, and
-/// comparison capabilities.
-
-type panicAttackCapability =
-  | StaticAnalysis
-  | StressTesting
-  | BugSignatureDetection
-  | ReportGeneration
-  | ReportComparison
-  | BatchScanning
-  | SarifExport
-  | EventChainExport
-
-type panicAttackModuleConfig = {
-  id: string,
-  name: string,
-  version: string,
-  description: string,
-  binaryName: string,
-  capabilities: array<panicAttackCapability>,
-  icon: option<string>,
-}
-
-let config: panicAttackModuleConfig = {
-  id: "panic-attack",
-  name: "panic-attack",
-  version: "2.0.0",
-  description: "Universal stress testing and logic-based bug signature detection",
-  binaryName: "panic-attack",
-  icon: Some("zap"),
-  capabilities: [
-    StaticAnalysis,
-    StressTesting,
-    BugSignatureDetection,
-    ReportGeneration,
-    ReportComparison,
-    BatchScanning,
-    SarifExport,
-    EventChainExport,
-  ],
-}
-
-let hasCapability = (cap: panicAttackCapability): bool => config.capabilities->Array.includes(cap)
-
-let capabilityLabel = (cap: panicAttackCapability): string =>
-  switch cap {
-  | StaticAnalysis => "Static Analysis (assail)"
-  | StressTesting => "Stress Testing (attack/assault)"
-  | BugSignatureDetection => "Bug Signature Detection (kanren)"
-  | ReportGeneration => "Report Generation (JSON/YAML/SARIF)"
-  | ReportComparison => "Report Comparison (diff)"
-  | BatchScanning => "Batch Scanning (assemblyline)"
-  | SarifExport => "SARIF Export (GitHub Security)"
-  | EventChainExport => "Event Chain Export (PanLL)"
-  }
diff --git a/src/modules/PlazaModule.affine b/src/modules/PlazaModule.affine
new file mode 100644
index 00000000..c54d80d2
--- /dev/null
+++ b/src/modules/PlazaModule.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PlazaModule;
+
+// TODO: Complete semantic implementation
diff --git a/src/modules/PlazaModule.res b/src/modules/PlazaModule.res
deleted file mode 100644
index 3537fd01..00000000
--- a/src/modules/PlazaModule.res
+++ /dev/null
@@ -1,79 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Palimpsest Plaza Module — capability registration for the
-/// PMPL licensing adoption and governance panel.
-///
-/// The Plaza gives every PanLL user free access to PMPL compliance
-/// tooling, making license adoption frictionless. This is the panel
-/// that makes PanLL valuable to the wider FOSS community — not just
-/// hyperpolymath projects.
-
-/// Capabilities that the Plaza panel exposes.
-type plazaCapability =
-  /// Adoption dashboard with ecosystem statistics.
-  | AdoptionDashboard
-  /// SPDX header and LICENSE file compliance checking.
-  | ComplianceAudit
-  /// Quantum-safe provenance signature management.
-  | ProvenanceVerification
-  /// License compatibility matrix (PMPL vs MIT/Apache/GPL/etc.).
-  | CompatibilityChecker
-  /// Ethical use guidelines and AI training disclosure.
-  | EthicalUseGuide
-  /// Stewardship Council governance visibility.
-  | GovernanceView
-  /// Quick-start adoption wizard (generate LICENSE, headers, CI config).
-  | AdoptionWizard
-
-/// Module configuration for the Plaza panel.
-type plazaModuleConfig = {
-  /// Unique module identifier.
-  id: string,
-  /// Human-readable name.
-  name: string,
-  /// Semantic version.
-  version: string,
-  /// Description for tooltips.
-  description: string,
-  /// Declared capabilities.
-  capabilities: array<plazaCapability>,
-  /// Panel bar icon name.
-  icon: option<string>,
-}
-
-/// The canonical module configuration. Plaza uses the local pmpl-sign,
-/// pmpl-verify, and pmpl-audit CLI tools plus filesystem scanning.
-let config: plazaModuleConfig = {
-  id: "plaza",
-  name: "Palimpsest Plaza",
-  version: "0.1.0",
-  description: "PMPL license adoption, compliance, and governance hub for the FOSS community",
-  capabilities: [
-    AdoptionDashboard,
-    ComplianceAudit,
-    ProvenanceVerification,
-    CompatibilityChecker,
-    EthicalUseGuide,
-    GovernanceView,
-    AdoptionWizard,
-  ],
-  icon: Some("scroll"),
-}
-
-/// Check if a capability is declared.
-let hasCapability = (cap: plazaCapability): bool => {
-  config.capabilities->Array.includes(cap)
-}
-
-/// Human-readable label for a capability.
-let capabilityLabel = (cap: plazaCapability): string => {
-  switch cap {
-  | AdoptionDashboard => "Adoption Dashboard"
-  | ComplianceAudit => "Compliance Audit"
-  | ProvenanceVerification => "Provenance Verification"
-  | CompatibilityChecker => "Compatibility Checker"
-  | EthicalUseGuide => "Ethical Use Guide"
-  | GovernanceView => "Governance"
-  | AdoptionWizard => "Adopt PMPL"
-  }
-}
diff --git a/src/modules/ServiceEndpoints.affine b/src/modules/ServiceEndpoints.affine
new file mode 100644
index 00000000..5bb7f748
--- /dev/null
+++ b/src/modules/ServiceEndpoints.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ServiceEndpoints;
+
+// TODO: Complete semantic implementation
diff --git a/src/modules/ServiceEndpoints.res b/src/modules/ServiceEndpoints.res
deleted file mode 100644
index 7ad38acb..00000000
--- a/src/modules/ServiceEndpoints.res
+++ /dev/null
@@ -1,39 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL Service Endpoints — centralised default URLs for all backend services.
-///
-/// All hardcoded localhost URLs are defined here so they can be overridden
-/// from environment variables or configuration files without modifying
-/// individual engine/model files.
-///
-/// panic-attack:allow insecure-protocol — all URLs are localhost/loopback
-/// development endpoints. Local services do not run TLS. Production
-/// deployments override these via environment variables or config files.
-
-/// VeriSimDB octad multimodal database.
-let verisim = "http://localhost:8080/api/v1"
-
-/// QuandleDB algebraic query database.
-let quandledb = "http://localhost:8081/api/v1"
-
-/// LithoGlyph graph pattern database.
-let lithoglyph = "http://localhost:8082/api/v1"
-
-/// BoJ (Bundle of Joy) cartridge gateway server.
-let bojServer = "http://localhost:7700"
-
-/// ECHIDNA proof assistant / multi-solver dispatch.
-let echidna = "http://localhost:9000/api/v1"
-
-/// Gitbot-Fleet Axum dashboard API.
-let fleet = "http://localhost:8090/api/v1"
-
-/// Multiplayer Monitor WebSocket server.
-let multiplayerMonitor = "ws://localhost:4000/socket/websocket"
-
-/// Game Preview Vite dev server.
-let gamePreviewDev = "http://localhost:8080"
-
-/// Migration backend (VeriSimDB-backed).
-let migrationBackend = "http://localhost:8080/api/v1"
diff --git a/src/modules/SpecBrowserModule.affine b/src/modules/SpecBrowserModule.affine
new file mode 100644
index 00000000..c6db64a3
--- /dev/null
+++ b/src/modules/SpecBrowserModule.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module SpecBrowserModule;
+
+// TODO: Complete semantic implementation
diff --git a/src/modules/SpecBrowserModule.res b/src/modules/SpecBrowserModule.res
deleted file mode 100644
index 7fab4811..00000000
--- a/src/modules/SpecBrowserModule.res
+++ /dev/null
@@ -1,68 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL SpecBrowser Module — capability registration for the language spec browser.
-///
-/// Declares what the SpecBrowser panel can do. Follows the same pattern as
-/// LanguageForgeModule and FarmModule.
-
-/// Capabilities that the SpecBrowser panel exposes.
-type specBrowserCapability =
-  /// Overview grid of all 16 language specs with taxonomy completeness.
-  | TaxonomyOverview
-  /// Side-by-side comparison of grammar/spec/typing rules.
-  | SpecComparison
-  /// Grammar viewer with syntax highlighting.
-  | GrammarViewer
-  /// Typing rules viewer with notation.
-  | TypingRulesViewer
-  /// Verification status dashboard (tests, proofs, fuzzing).
-  | VerificationStatus
-
-/// Module configuration for the SpecBrowser panel.
-type specBrowserModuleConfig = {
-  /// Unique module identifier.
-  id: string,
-  /// Human-readable name.
-  name: string,
-  /// Semantic version.
-  version: string,
-  /// Short description for tooltips.
-  description: string,
-  /// Declared capabilities.
-  capabilities: array<specBrowserCapability>,
-  /// Panel bar icon name.
-  icon: option<string>,
-}
-
-/// The canonical module configuration. SpecBrowser uses hardcoded spec data
-/// from the nextgen-languages assessment — no HTTP service required.
-let config: specBrowserModuleConfig = {
-  id: "spec-browser",
-  name: "Spec Browser",
-  version: "0.1.0",
-  description: "Browse all 16 language specs, grammars, typing rules — side-by-side comparison and taxonomy completeness",
-  capabilities: [
-    TaxonomyOverview,
-    SpecComparison,
-    GrammarViewer,
-    TypingRulesViewer,
-    VerificationStatus,
-  ],
-  icon: Some("book-open"),
-}
-
-/// Check if a capability is declared.
-let hasCapability = (cap: specBrowserCapability): bool => {
-  config.capabilities->Array.includes(cap)
-}
-
-/// Human-readable label for a capability.
-let capabilityLabel = (cap: specBrowserCapability): string => {
-  switch cap {
-  | TaxonomyOverview => "Taxonomy Overview"
-  | SpecComparison => "Spec Comparison"
-  | GrammarViewer => "Grammar Viewer"
-  | TypingRulesViewer => "Typing Rules Viewer"
-  | VerificationStatus => "Verification Status"
-  }
-}
diff --git a/src/modules/SystemUpdateModule.affine b/src/modules/SystemUpdateModule.affine
new file mode 100644
index 00000000..7869c0a8
--- /dev/null
+++ b/src/modules/SystemUpdateModule.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module SystemUpdateModule;
+
+// TODO: Complete semantic implementation
diff --git a/src/modules/SystemUpdateModule.res b/src/modules/SystemUpdateModule.res
deleted file mode 100644
index b0641d7c..00000000
--- a/src/modules/SystemUpdateModule.res
+++ /dev/null
@@ -1,181 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// SystemUpdateModule — PanLL panel harness for system component updates.
-///
-/// Treats every updatable component on the system as a data source:
-///   - rpm-ostree (Fedora Atomic base OS layer)
-///   - Flatpak (sandboxed desktop apps)
-///   - asdf plugins (33 language toolchains)
-///   - Cargo binaries (Rust CLI tools)
-///   - Deno/Bun (JS runtimes)
-///   - GHCup (Haskell toolchain)
-///   - opam (OCaml packages)
-///   - mix (Elixir hex/rebar)
-///   - Julia packages
-///   - pipx (Python CLI tools)
-///   - fwupd (firmware)
-///
-/// Each component exposes:
-///   - Current version
-///   - Latest available version
-///   - Update status (up-to-date, update-available, updating, failed)
-///   - Last checked timestamp
-///   - Update action
-///
-/// The panel renders as a three-panel view:
-///   Panel-L: Component registry with version constraints and compatibility rules
-///   Panel-N: Update dependency analysis (which updates are safe to apply together)
-///   Panel-W: Live update progress, logs, and history
-///
-/// PanelHarness discovers this via panels/manifest.json and wires it into
-/// any PanLL workspace automatically.
-
-/// Update status for a single component.
-type updateStatus =
-  | UpToDate
-  | UpdateAvailable(string) // new version string
-  | Updating
-  | Failed(string) // error message
-  | Unknown
-
-/// Component category — groups components in the UI.
-type componentCategory =
-  | BaseOS // rpm-ostree
-  | Desktop // Flatpak
-  | Toolchain // asdf-managed language runtimes
-  | PackageManager // cargo, mix, opam, etc.
-  | Runtime // deno, bun
-  | Firmware // fwupd
-
-/// A single updatable component.
-type component = {
-  id: string,
-  name: string,
-  category: componentCategory,
-  currentVersion: string,
-  latestVersion: option<string>,
-  status: updateStatus,
-  lastChecked: option<string>,
-  managed_by: string, // "asdf", "rpm-ostree", "flatpak", "cargo", etc.
-}
-
-/// Summary of all component states.
-type updateSummary = {
-  totalComponents: int,
-  upToDate: int,
-  updatesAvailable: int,
-  updating: int,
-  failed: int,
-  lastFullUpdate: option<string>,
-}
-
-/// Actions available for the update panel.
-type updateAction =
-  | CheckAll // Scan all components for available updates
-  | CheckComponent(string) // Scan a single component by ID
-  | UpdateAll // Apply all available updates
-  | UpdateComponent(string) // Apply update to a single component
-  | UpdateCategory(componentCategory) // Update all in a category
-  | ViewLogs // Show update log history
-  | ViewSummary // Show last update summary
-
-/// Gossamer command names for the Rust backend.
-/// Each maps to a command in src-gossamer/src/system_update/commands.rs
-module Commands = {
-  /// List all components with current/latest versions.
-  /// Returns: array<component>
-  let listComponents = "system_update_list_components"
-
-  /// Check for updates on all components.
-  /// Returns: updateSummary
-  let checkAll = "system_update_check_all"
-
-  /// Check a single component for updates.
-  /// Arg: component_id (string)
-  /// Returns: component
-  let checkComponent = "system_update_check_component"
-
-  /// Apply update to a single component.
-  /// Arg: component_id (string)
-  /// Returns: {success: bool, output: string}
-  let updateComponent = "system_update_apply_component"
-
-  /// Apply all available updates.
-  /// Returns: {success: bool, output: string, summary: updateSummary}
-  let updateAll = "system_update_apply_all"
-
-  /// Get asdf plugin details.
-  /// Returns: array<{plugin: string, installed: string, latest: string}>
-  let asdfStatus = "system_update_asdf_status"
-
-  /// Get update log history.
-  /// Returns: array<{timestamp: string, summary: string}>
-  let logs = "system_update_logs"
-
-  /// Get last summary.
-  /// Returns: string (content of last-summary.txt)
-  let lastSummary = "system_update_last_summary"
-}
-
-/// Module configuration for PanLL registration.
-let moduleConfig = {
-  "id": "system-update",
-  "name": "System Update",
-  "description": "Component update management — opsm, rpm-ostree, flatpak, cargo, and more",
-  "clade": "infrastructure/system-maintenance",
-  "icon": "system-software-update",
-  "capabilities": [
-    "component-listing", // List all updatable components
-    "version-checking", // Check current vs latest versions
-    "update-execution", // Apply updates
-    "log-history", // View past update logs
-    "category-management", // Group and filter by category
-    "opsm-integration", // Deep opsm plugin management
-  ],
-}
-
-/// Category display names for the UI.
-let categoryLabel = (cat: componentCategory) => {
-  switch cat {
-  | BaseOS => "Base OS (rpm-ostree)"
-  | Desktop => "Desktop Apps (Flatpak)"
-  | Toolchain => "Toolchains (opsm)"
-  | PackageManager => "Package Managers"
-  | Runtime => "Runtimes"
-  | Firmware => "Firmware"
-  }
-}
-
-/// Category sort order for the UI.
-let categorySortOrder = (cat: componentCategory) => {
-  switch cat {
-  | BaseOS => 0
-  | Firmware => 1
-  | Toolchain => 2
-  | Runtime => 3
-  | PackageManager => 4
-  | Desktop => 5
-  }
-}
-
-/// Status badge color for the UI.
-let statusColor = (status: updateStatus) => {
-  switch status {
-  | UpToDate => "#2ecc71" // green
-  | UpdateAvailable(_) => "#f39c12" // amber
-  | Updating => "#3498db" // blue
-  | Failed(_) => "#e74c3c" // red
-  | Unknown => "#95a5a6" // grey
-  }
-}
-
-/// Status label for display.
-let statusLabel = (status: updateStatus) => {
-  switch status {
-  | UpToDate => "Up to date"
-  | UpdateAvailable(v) => "Update available: " ++ v
-  | Updating => "Updating..."
-  | Failed(e) => "Failed: " ++ e
-  | Unknown => "Unknown"
-  }
-}
diff --git a/src/modules/TangleVizModule.affine b/src/modules/TangleVizModule.affine
new file mode 100644
index 00000000..2b13896c
--- /dev/null
+++ b/src/modules/TangleVizModule.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TangleVizModule;
+
+// TODO: Complete semantic implementation
diff --git a/src/modules/TangleVizModule.res b/src/modules/TangleVizModule.res
deleted file mode 100644
index bdafa878..00000000
--- a/src/modules/TangleVizModule.res
+++ /dev/null
@@ -1,57 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL TangleViz Module — capability registration for the Tangle topology panel.
-///
-/// Declares what the TangleViz panel can do. The UI renders controls only for
-/// capabilities that are declared here. This follows the same pattern as
-/// FarmModule and CloudGuardModule.
-
-/// Capabilities that the TangleViz panel exposes.
-type tangleVizCapability =
-  /// Interactive SVG braid diagram with over/under crossings.
-  | BraidVisualization
-  /// Compute knot/link invariants (Jones, Alexander, HOMFLY, etc.).
-  | InvariantComputation
-  /// Parse Tangle source code into braid words.
-  | SourceParsing
-
-/// Module configuration for the TangleViz panel.
-type tangleVizModuleConfig = {
-  /// Unique module identifier.
-  id: string,
-  /// Human-readable name.
-  name: string,
-  /// Semantic version.
-  version: string,
-  /// Short description for tooltips.
-  description: string,
-  /// Declared capabilities.
-  capabilities: array<tangleVizCapability>,
-  /// Panel bar icon name.
-  icon: option<string>,
-}
-
-/// The canonical module configuration. TangleViz is a pure client-side
-/// visualizer — no backend service required.
-let config: tangleVizModuleConfig = {
-  id: "tangle-viz",
-  name: "Tangle Viz",
-  version: "0.1.0",
-  description: "Topological programming visualizer — braid diagrams, knot invariants, Tangle source parsing",
-  capabilities: [BraidVisualization, InvariantComputation, SourceParsing],
-  icon: Some("knot"),
-}
-
-/// Check if a capability is declared.
-let hasCapability = (cap: tangleVizCapability): bool => {
-  config.capabilities->Array.includes(cap)
-}
-
-/// Human-readable label for a capability.
-let capabilityLabel = (cap: tangleVizCapability): string => {
-  switch cap {
-  | BraidVisualization => "Braid Visualization"
-  | InvariantComputation => "Invariant Computation"
-  | SourceParsing => "Source Parsing"
-  }
-}
diff --git a/src/modules/TsdmModule.affine b/src/modules/TsdmModule.affine
new file mode 100644
index 00000000..81d50ee8
--- /dev/null
+++ b/src/modules/TsdmModule.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TsdmModule;
+
+// TODO: Complete semantic implementation
diff --git a/src/modules/TsdmModule.res b/src/modules/TsdmModule.res
deleted file mode 100644
index 8c40baaf..00000000
--- a/src/modules/TsdmModule.res
+++ /dev/null
@@ -1,57 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// PanLL TSDM module — capability declarations for the Triaxial Software
-/// Development Methodology directive panel.
-///
-/// TSDM is a directive panel: it controls how other panels present and
-/// sequence work items. Users customise axis ordering, tier priorities,
-/// and cleanup steps. All consumer panels read the active directive.
-
-type tsdmCapability =
-  | AxisReordering
-  | TierCustomisation
-  | CleanupConfiguration
-  | WorkItemAggregation
-  | DirectivePersistence
-  | DirectiveLocking
-  | ConsumerBroadcast
-
-type tsdmModuleConfig = {
-  id: string,
-  name: string,
-  version: string,
-  description: string,
-  capabilities: array<tsdmCapability>,
-  icon: option<string>,
-}
-
-let config: tsdmModuleConfig = {
-  id: "tsdm",
-  name: "TSDM",
-  version: "1.0.0",
-  description: "Triaxial Software Development Methodology — directive panel for priority ordering across all panels",
-  icon: Some("compass"),
-  capabilities: [
-    AxisReordering,
-    TierCustomisation,
-    CleanupConfiguration,
-    WorkItemAggregation,
-    DirectivePersistence,
-    DirectiveLocking,
-    ConsumerBroadcast,
-  ],
-}
-
-let hasCapability = (cap: tsdmCapability): bool => config.capabilities->Array.includes(cap)
-
-let capabilityLabel = (cap: tsdmCapability): string =>
-  switch cap {
-  | AxisReordering => "Axis Reordering (Scope, Maintenance, Audit)"
-  | TierCustomisation => "Tier Customisation (priority within each axis)"
-  | CleanupConfiguration => "Cleanup/Finish-Off Configuration"
-  | WorkItemAggregation => "Work Item Aggregation (from consumer panels)"
-  | DirectivePersistence => "Directive Persistence (localStorage + verisim)"
-  | DirectiveLocking => "Directive Locking (prevent mid-session changes)"
-  | ConsumerBroadcast => "Consumer Broadcast (notify panels of ordering changes)"
-  }
diff --git a/src/modules/TypeLLService.affine b/src/modules/TypeLLService.affine
new file mode 100644
index 00000000..020dcc46
--- /dev/null
+++ b/src/modules/TypeLLService.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TypeLLService;
+
+// TODO: Complete semantic implementation
diff --git a/src/modules/TypeLLService.res b/src/modules/TypeLLService.res
deleted file mode 100644
index cf58004c..00000000
--- a/src/modules/TypeLLService.res
+++ /dev/null
@@ -1,181 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL TypeLL Service — cross-panel type intelligence layer.
-///
-/// This is what makes TypeLL different from every other panel. It isn't just
-/// a visible panel — it's an invisible verification backbone that any panel
-/// can query. When you write a VCL query in VeriSimDB, TypeLL checks its
-/// dependent types. When you analyse a schema in Protocol-Squisher, TypeLL
-/// verifies the type compatibility. When you write code in My-Lang, TypeLL
-/// provides the type inference.
-///
-/// ## Integration Points
-///
-/// | Panel              | What TypeLL provides                                    |
-/// |--------------------|---------------------------------------------------------|
-/// | VeriSimDB          | VCL-total proof obligations, query type safety             |
-/// | Protocol-Squisher  | Schema type compatibility, adapter type safety           |
-/// | My-Lang            | Full type checking across all 4 dialects                |
-/// | Anti-Crash         | Type-level validation before token acceptance            |
-/// | Pane-L             | Type constraints as first-class symbolic constraints     |
-/// | Pane-N             | Type-guided inference — suggest types, explain errors    |
-/// | BoJ                | Cartridge ABI type checking (Idris2 formal specs)        |
-/// | ECHIDNA            | Proof obligation dispatch — TypeLL generates, ECHIDNA proves |
-/// | Build Dashboard    | Type error aggregation across all sub-projects           |
-/// | Playgrounds        | Interactive type checking in code sandboxes              |
-///
-/// ## Architecture
-///
-/// The service is stateless — it wraps TypeLLCmd calls with panel-specific
-/// message taggers. Each panel doesn't need to know about TypeLL's internal
-/// protocol; it just calls these helpers and gets back results in its own
-/// message type.
-///
-/// The TypeLL panel's `queriesServed` counter tracks cross-panel usage.
-
-/// Check types for a VCL query expression.
-/// Used by VeriSimDB panel to validate queries before execution.
-let checkVclTypes = (query: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  let context = `{"language":"vcl","dialect":"vcl-total","features":["dependent","linear","proof-carrying"]}`
-  TypeLLCmd.check(query, Some(context), tagger)
-}
-
-/// Check types for a protocol schema.
-/// Used by Protocol-Squisher to verify schema type compatibility.
-let checkSchemaTypes = (
-  schema: string,
-  format: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  let context = `{"language":"schema","format":"${format}","features":["dependent","session"]}`
-  TypeLLCmd.check(schema, Some(context), tagger)
-}
-
-/// Check types for my-lang source code.
-/// Used by My-Lang panel for type checking across dialects.
-let checkMyLangTypes = (
-  source: string,
-  dialect: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  let features = switch dialect {
-  | "solo" => `["dependent"]`
-  | "duet" => `["dependent","effect"]`
-  | "ensemble" => `["dependent","session","effect"]`
-  | "me" => `["dependent","session","effect","linear"]`
-  | _ => `["dependent"]`
-  }
-  let context = `{"language":"my-lang","dialect":"${dialect}","features":${features}}`
-  TypeLLCmd.check(source, Some(context), tagger)
-}
-
-/// Validate a token against type constraints.
-/// Used by Anti-Crash to add type-level validation to the circuit breaker.
-let validateToken = (
-  tokenContent: string,
-  constraintExpressions: array<string>,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  let constraintsJson =
-    constraintExpressions
-    ->Array.map(c => `"${c}"`)
-    ->Array.join(",")
-  let _context = `{"language":"constraint","features":["dependent","refinement"]}`
-  TypeLLCmd.refine(tokenContent, Some(`[${constraintsJson}]`), tagger)
-}
-
-/// Infer types for a Pane-L constraint expression.
-/// Used by Pane-L to show the type of constraint expressions.
-let inferConstraintType = (expression: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  TypeLLCmd.infer(expression, tagger)
-}
-
-/// Check types for a BoJ cartridge ABI definition.
-/// Used by BoJ panel to validate Idris2 formal specs.
-let checkCartridgeAbi = (abiSpec: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<
-  'msg,
-> => {
-  let context = `{"language":"idris2","features":["dependent","linear","quantitative"]}`
-  TypeLLCmd.check(abiSpec, Some(context), tagger)
-}
-
-/// Generate proof obligations for an expression.
-/// Used by ECHIDNA integration — TypeLL generates, ECHIDNA proves.
-let generateProofObligations = (
-  expression: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  let context = `{"language":"proof","features":["dependent","proof-carrying"],"mode":"obligation-generation"}`
-  TypeLLCmd.check(expression, Some(context), tagger)
-}
-
-/// Apply refinement types interactively.
-/// Used by the Refinement tab in the TypeLL panel and by any panel
-/// that needs to narrow a type with constraints.
-let applyRefinement = (
-  baseType: string,
-  constraints: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  TypeLLCmd.refine(baseType, Some(constraints), tagger)
-}
-
-/// Check types for configuration data (CloudGuard, Provisioner, Workspace, etc.).
-let checkConfigTypes = (
-  configJson: string,
-  domain: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  let context = `{"language":"config","domain":"${domain}","features":["dependent","refinement"]}`
-  TypeLLCmd.check(configJson, Some(context), tagger)
-}
-
-/// Check types for security policy data (Trustfile, attack vectors, directives).
-let checkSecurityTypes = (
-  policyData: string,
-  domain: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  let context = `{"language":"policy","domain":"${domain}","features":["dependent","linear","proof-carrying"]}`
-  TypeLLCmd.check(policyData, Some(context), tagger)
-}
-
-/// Check types for UMS ABI validation results.
-/// Used by Universal Modding Studio to type-check level data against the
-/// 14 Idris2 ABI module interface (dependent types, quantitative erasure).
-let checkUmsAbi = (levelData: string, tagger: result<string, string> => 'msg): Tea_Cmd.t<'msg> => {
-  let context = `{"language":"idris2","domain":"ums-level-abi","features":["dependent","quantitative","erasure","proof-carrying"],"modules":14}`
-  TypeLLCmd.check(levelData, Some(context), tagger)
-}
-
-/// Check types for game data (levels, topology, VM state, puzzles).
-let checkGameDataTypes = (
-  gameData: string,
-  domain: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  let context = `{"language":"game-data","domain":"${domain}","features":["dependent","session"]}`
-  TypeLLCmd.check(gameData, Some(context), tagger)
-}
-
-/// Check types for code or source expressions (playground, REPL, commands).
-let checkCodeTypes = (
-  source: string,
-  language: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  let context = `{"language":"${language}","features":["dependent","effect"]}`
-  TypeLLCmd.check(source, Some(context), tagger)
-}
-
-/// Check types for metadata (tags, clades, manifests, migration specs).
-let checkMetadataTypes = (
-  metadata: string,
-  domain: string,
-  tagger: result<string, string> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  let context = `{"language":"metadata","domain":"${domain}","features":["dependent"]}`
-  TypeLLCmd.check(metadata, Some(context), tagger)
-}
diff --git a/src/modules/VerificationDashboardModule.affine b/src/modules/VerificationDashboardModule.affine
new file mode 100644
index 00000000..d82d9a04
--- /dev/null
+++ b/src/modules/VerificationDashboardModule.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VerificationDashboardModule;
+
+// TODO: Complete semantic implementation
diff --git a/src/modules/VerificationDashboardModule.res b/src/modules/VerificationDashboardModule.res
deleted file mode 100644
index 0ce42741..00000000
--- a/src/modules/VerificationDashboardModule.res
+++ /dev/null
@@ -1,67 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL VerificationDashboard Module — capability registration for the verification panel.
-///
-/// Declares what the VerificationDashboard panel can do. Follows the same
-/// pattern as LanguageForgeModule and SpecBrowserModule.
-
-/// Capabilities that the VerificationDashboard panel exposes.
-type verificationDashboardCapability =
-  /// Summary view with aggregated counts.
-  | VerificationSummary
-  /// Per-language test/proof breakdown.
-  | LanguageBreakdown
-  /// Proof status tracking (admitted/sorry debt).
-  | ProofTracking
-  /// Benchmark results viewer.
-  | BenchmarkResults
-  /// Fuzzing coverage report.
-  | FuzzingReport
-
-/// Module configuration for the VerificationDashboard panel.
-type verificationDashboardModuleConfig = {
-  /// Unique module identifier.
-  id: string,
-  /// Human-readable name.
-  name: string,
-  /// Semantic version.
-  version: string,
-  /// Short description for tooltips.
-  description: string,
-  /// Declared capabilities.
-  capabilities: array<verificationDashboardCapability>,
-  /// Panel bar icon name.
-  icon: option<string>,
-}
-
-/// The canonical module configuration.
-let config: verificationDashboardModuleConfig = {
-  id: "verification-dashboard",
-  name: "Verification Dashboard",
-  version: "0.1.0",
-  description: "Proof, test, benchmark, and fuzzing status across all nextgen-languages repos",
-  capabilities: [
-    VerificationSummary,
-    LanguageBreakdown,
-    ProofTracking,
-    BenchmarkResults,
-    FuzzingReport,
-  ],
-  icon: Some("check-circle"),
-}
-
-/// Check if a capability is declared.
-let hasCapability = (cap: verificationDashboardCapability): bool => {
-  config.capabilities->Array.includes(cap)
-}
-
-/// Human-readable label for a capability.
-let capabilityLabel = (cap: verificationDashboardCapability): string => {
-  switch cap {
-  | VerificationSummary => "Verification Summary"
-  | LanguageBreakdown => "Language Breakdown"
-  | ProofTracking => "Proof Tracking"
-  | BenchmarkResults => "Benchmark Results"
-  | FuzzingReport => "Fuzzing Report"
-  }
-}
diff --git a/src/msg/A2mlMsg.affine b/src/msg/A2mlMsg.affine
new file mode 100644
index 00000000..337f019f
--- /dev/null
+++ b/src/msg/A2mlMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module A2mlMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/A2mlMsg.res b/src/msg/A2mlMsg.res
deleted file mode 100644
index 492e4940..00000000
--- a/src/msg/A2mlMsg.res
+++ /dev/null
@@ -1,19 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// A2ML manifest messages -- loading, validation, and listing of AI manifests.
-
-type a2mlMsg =
-  /// Load a specific A2ML manifest file.
-  | LoadManifest(string)
-  /// Manifest loaded result.
-  | ManifestLoaded(result<string, string>)
-  /// Validate a manifest file.
-  | ValidateManifest(string)
-  /// Validation result.
-  | ManifestValidated(result<string, string>)
-  /// List all A2ML manifests in the repo.
-  | ListManifests
-  /// List result.
-  | ManifestsListed(result<string, string>)
-  /// TypeLL cross-panel type check result for A2ML manifest types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/AccessibilityMsg.affine b/src/msg/AccessibilityMsg.affine
new file mode 100644
index 00000000..ebaa0453
--- /dev/null
+++ b/src/msg/AccessibilityMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AccessibilityMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/AccessibilityMsg.res b/src/msg/AccessibilityMsg.res
deleted file mode 100644
index 239b44fe..00000000
--- a/src/msg/AccessibilityMsg.res
+++ /dev/null
@@ -1,21 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Accessibility toolbar messages -- palette, animation, font size, focus indicators.
-
-open Model
-
-type accessibilityMsg =
-  /// Switch the active colour palette (Standard, Deuteranopia, Protanopia, High Contrast).
-  | SetAccessibilityPalette(accessibilityPalette)
-  /// Set the theme mode (Dark, Light, System).
-  | SetThemeMode(themeMode)
-  /// OS colour scheme changed (dispatched by matchMedia listener when in System mode).
-  | OsColorSchemeChanged(themeMode)
-  /// Set the animation preference (On, Reduced, Off).
-  | SetAnimations(animationPreference)
-  /// Set the font size preset.
-  | SetFontSize(fontSizePreset)
-  /// Set the focus indicator style.
-  | SetFocusStyle(focusIndicatorStyle)
-  /// Toggle the accessibility toolbar expanded/collapsed state.
-  | ToggleAccessibilityToolbar
diff --git a/src/msg/AerieMsg.affine b/src/msg/AerieMsg.affine
new file mode 100644
index 00000000..d426bc30
--- /dev/null
+++ b/src/msg/AerieMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AerieMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/AerieMsg.res b/src/msg/AerieMsg.res
deleted file mode 100644
index 3fdf62e2..00000000
--- a/src/msg/AerieMsg.res
+++ /dev/null
@@ -1,17 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Aerie network diagnostics messages.
-
-open Model
-
-type aerieMsg =
-  | LoadAerie
-  | LatencyLoaded(result<string, string>)
-  | SpeedTestLoaded(result<string, string>)
-  | SetAerieCategory(aerieCategory)
-  /// Toggle BoJ routing for overlay operations (observe-mcp cartridge).
-  | ToggleAerieBojRouting
-  /// Toggle a probe target on/off by endpoint.
-  | ToggleProbe(string)
-  /// TypeLL cross-panel type check result for network config types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/AgenticBridgeMsg.affine b/src/msg/AgenticBridgeMsg.affine
new file mode 100644
index 00000000..fe867b2e
--- /dev/null
+++ b/src/msg/AgenticBridgeMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AgenticBridgeMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/AgenticBridgeMsg.res b/src/msg/AgenticBridgeMsg.res
deleted file mode 100644
index e1dbff5b..00000000
--- a/src/msg/AgenticBridgeMsg.res
+++ /dev/null
@@ -1,11 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Agentic Bridge messages -- automated playtesting agents with OODA loop.
-
-open Model
-
-type agenticBridgeMsg =
-  | SetAbTab(agenticBridgeTab)
-  | AbStarted
-  | AbCompleted(result<string, string>)
-  | DismissAbError
diff --git a/src/msg/AiMsg.affine b/src/msg/AiMsg.affine
new file mode 100644
index 00000000..0482761d
--- /dev/null
+++ b/src/msg/AiMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AiMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/AiMsg.res b/src/msg/AiMsg.res
deleted file mode 100644
index 842b4ccd..00000000
--- a/src/msg/AiMsg.res
+++ /dev/null
@@ -1,68 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// AI panel messages -- multi-provider neural interface for sending messages,
-/// managing providers, building context, and controlling the conversation.
-
-open Model
-
-type aiMsg =
-  /// Send a message to the current provider (or broadcast to all enabled).
-  | SendMessage
-  /// Message response received from a provider.
-  | MessageReceived(result<string, string>)
-  /// Update the input text field.
-  | SetAiInput(string)
-  /// Switch the active category tab.
-  | SetAiCategory(aiCategory)
-  /// Toggle broadcast mode (send to multiple providers simultaneously).
-  | ToggleBroadcast
-  /// Check provider health/auth status.
-  | CheckProvider(aiProviderId)
-  /// Provider health check result.
-  | ProviderChecked(aiProviderId, result<string, string>)
-  /// Change the selected model for a provider.
-  | SetAiModel(aiProviderId, string)
-  /// Model change confirmed.
-  | ModelSet(result<string, string>)
-  /// Change a provider's precedence ranking.
-  | SetAiPriority(aiProviderId, int)
-  /// Priority change confirmed.
-  | PrioritySet(result<string, string>)
-  /// Enable or disable a provider (mute/unmute).
-  | ToggleAiProvider(aiProviderId)
-  /// Provider toggle confirmed.
-  | ProviderToggled(result<string, string>)
-  /// Clear the conversation history.
-  | ClearAiHistory
-  /// History cleared confirmed.
-  | HistoryCleared(result<string, string>)
-  /// Build context from a loaded repo.
-  | BuildContext(string)
-  /// Context built.
-  | ContextBuilt(result<string, string>)
-  /// Load provider state from disk.
-  | LoadProviderState
-  /// Provider state loaded.
-  | ProviderStateLoaded(result<string, string>)
-  /// Update the system prompt override.
-  | SetSystemPrompt(string)
-  /// Mark a provider as quota-exhausted (429 received).
-  | MarkQuotaExhausted(aiProviderId)
-  /// TypeLL cross-panel type check result for prompt types.
-  | TypeCheckResult(result<string, string>)
-  // ---------------------------------------------------------------------------
-  // Streaming + tool_use messages (Claude Code integration)
-  // ---------------------------------------------------------------------------
-  /// A stream chunk arrived from the Gossamer `ai:stream-chunk` event.
-  /// Payload is the raw JSON string from the StreamChunk enum.
-  | AiStreamChunkReceived(string)
-  /// Streaming session started (fire-and-forget acknowledgement).
-  | StreamingStarted(result<string, string>)
-  /// A tool call has been fully accumulated and needs execution via BoJ.
-  /// Dispatched when a ToolUseEnd chunk completes a pending tool call.
-  | AiToolCallRequested({id: string, name: string, input: string})
-  /// A tool call result arrived from BoJ cartridge execution.
-  | AiToolCallResult({toolUseId: string, result: result<string, string>})
-  /// All pending tool calls are complete -- continue the conversation
-  /// by sending a new streaming request with the tool results.
-  | AiContinueAfterToolUse
diff --git a/src/msg/AmbientOpsMsg.affine b/src/msg/AmbientOpsMsg.affine
new file mode 100644
index 00000000..7d592062
--- /dev/null
+++ b/src/msg/AmbientOpsMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AmbientOpsMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/AmbientOpsMsg.res b/src/msg/AmbientOpsMsg.res
deleted file mode 100644
index 95b3bf59..00000000
--- a/src/msg/AmbientOpsMsg.res
+++ /dev/null
@@ -1,15 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// AmbientOps messages -- hospital-model sysadmin diagnostics and repair.
-
-open Model
-
-type ambientOpsMsg =
-  /// Switch the active tab.
-  | SetOpsTab(ambientOpsTab)
-  /// Start a diagnostic sweep.
-  | RunDiagnostics
-  /// Diagnostic sweep completed with findings.
-  | DiagnosticsComplete(result<array<diagnosticFinding>, string>)
-  /// Dismiss error banner.
-  | DismissOpsError
diff --git a/src/msg/AntiCrashMsg.affine b/src/msg/AntiCrashMsg.affine
new file mode 100644
index 00000000..deaf92b6
--- /dev/null
+++ b/src/msg/AntiCrashMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AntiCrashMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/AntiCrashMsg.res b/src/msg/AntiCrashMsg.res
deleted file mode 100644
index 144e8091..00000000
--- a/src/msg/AntiCrashMsg.res
+++ /dev/null
@@ -1,13 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Anti-Crash validation messages -- token validation and operator intervention.
-
-open Model
-
-type antiCrashMsg =
-  | ValidateToken(neuralToken)
-  | ValidationPassed(neuralToken)
-  | ValidationFailed(neuralToken, string)
-  | RequestOperatorIntervention(string)
-  /// TypeLL type-level validation result for a token.
-  | TokenTypeCheckResult(result<string, string>)
diff --git a/src/msg/ArchitectModeMsg.affine b/src/msg/ArchitectModeMsg.affine
new file mode 100644
index 00000000..385f8ec3
--- /dev/null
+++ b/src/msg/ArchitectModeMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ArchitectModeMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/ArchitectModeMsg.res b/src/msg/ArchitectModeMsg.res
deleted file mode 100644
index ca5b167f..00000000
--- a/src/msg/ArchitectModeMsg.res
+++ /dev/null
@@ -1,11 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Architect Mode messages -- PixiJS fine-grained level editor with L/N/W.
-
-open Model
-
-type architectModeMsg =
-  | SetArchModeCategory(architectModeCategory)
-  | ArchModeStarted
-  | ArchModeCompleted(result<string, string>)
-  | DismissArchModeError
diff --git a/src/msg/AssetManagerMsg.affine b/src/msg/AssetManagerMsg.affine
new file mode 100644
index 00000000..bbc983b4
--- /dev/null
+++ b/src/msg/AssetManagerMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AssetManagerMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/AssetManagerMsg.res b/src/msg/AssetManagerMsg.res
deleted file mode 100644
index 4ff796d3..00000000
--- a/src/msg/AssetManagerMsg.res
+++ /dev/null
@@ -1,11 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Asset Manager messages -- PixiJS sprites, sounds, level templates.
-
-open Model
-
-type assetManagerMsg =
-  | SetAmCategory(assetManagerCategory)
-  | AmStarted
-  | AmCompleted(result<string, string>)
-  | DismissAmError
diff --git a/src/msg/AttributionLicenseMsg.affine b/src/msg/AttributionLicenseMsg.affine
new file mode 100644
index 00000000..76c5acb3
--- /dev/null
+++ b/src/msg/AttributionLicenseMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AttributionLicenseMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/AttributionLicenseMsg.res b/src/msg/AttributionLicenseMsg.res
deleted file mode 100644
index b110a4e2..00000000
--- a/src/msg/AttributionLicenseMsg.res
+++ /dev/null
@@ -1,22 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Code MRI — Attribution-to-Licensing Messages (Layer 4)
-
-open AttributionLicenseModel
-
-/// Messages for the attribution-to-licensing panel.
-type attributionLicenseMsg =
-  /// Start a full licensing scan of the codebase.
-  | StartLicenseScan
-  /// Scan completed with file summaries.
-  | ScanComplete(array<fileLicenseSummary>)
-  /// Mark an issue as resolved.
-  | ResolveIssue(string)
-  /// Toggle the expanded state of the panel.
-  | ToggleLicensePanel
-  /// Change the minimum severity filter.
-  | SetMinLicenseSeverity(licenseSeverity)
-  /// Toggle showing resolved issues.
-  | ToggleShowResolved
-  /// Scan failed with error message.
-  | ScanFailed(string)
diff --git a/src/msg/AutomationBridgeMsg.affine b/src/msg/AutomationBridgeMsg.affine
new file mode 100644
index 00000000..82094ff9
--- /dev/null
+++ b/src/msg/AutomationBridgeMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AutomationBridgeMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/AutomationBridgeMsg.res b/src/msg/AutomationBridgeMsg.res
deleted file mode 100644
index 0419c575..00000000
--- a/src/msg/AutomationBridgeMsg.res
+++ /dev/null
@@ -1,11 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Automation Bridge messages -- CI/CD pipeline orchestration for game builds.
-
-open Model
-
-type automationBridgeMsg =
-  | SetAutoBTab(automationBridgeTab)
-  | AutoBStarted
-  | AutoBCompleted(result<string, string>)
-  | DismissAutoBError
diff --git a/src/msg/AutomationRouterMsg.affine b/src/msg/AutomationRouterMsg.affine
new file mode 100644
index 00000000..e5645b6f
--- /dev/null
+++ b/src/msg/AutomationRouterMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module AutomationRouterMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/AutomationRouterMsg.res b/src/msg/AutomationRouterMsg.res
deleted file mode 100644
index ae86a75c..00000000
--- a/src/msg/AutomationRouterMsg.res
+++ /dev/null
@@ -1,50 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Automation Router messages -- rule management, execution, approval gates,
-/// history, and configuration for the hybrid cross-panel workflow orchestrator.
-
-open Model
-
-type automationRouterMsg =
-  /// Switch the active category tab.
-  | SetRouterCategory(automationRouterCategory)
-  /// Toggle global automation on/off.
-  | ToggleGlobalEnabled
-  /// Toggle a specific rule on/off.
-  | ToggleRule(string)
-  /// Execute a rule manually.
-  | ExecuteRule(string)
-  /// Rule execution result.
-  | ExecutionResult(string, result<string, string>)
-  /// Approve a pending action by index.
-  | ApproveAction(int)
-  /// Reject a pending action by index.
-  | RejectAction(int)
-  /// Approve all pending actions.
-  | ApproveAll
-  /// Reject all pending actions.
-  | RejectAll
-  /// Load rules from storage or repo.
-  | LoadRules
-  /// Rules loaded.
-  | RulesLoaded(result<string, string>)
-  /// Save rules to local storage.
-  | SaveRules
-  /// Rules saved.
-  | RulesSaved(result<string, string>)
-  /// Load rules from repo's .machine_readable/ENSAID_CONFIG.a2ml.
-  | LoadFromRepo
-  /// Repo rules loaded.
-  | RepoRulesLoaded(result<string, string>)
-  /// Set filter text.
-  | SetRouterFilter(string)
-  /// Toggle show disabled rules.
-  | ToggleShowDisabled
-  /// Dismiss the error banner.
-  | DismissRouterError
-  /// Export automation rules to ENSAID_CONFIG.a2ml.
-  | ExportAutomationConfig
-  /// Toggle BoJ routing for automation operations (agent-mcp cartridge).
-  | ToggleAutomationBojRouting
-  /// TypeLL cross-panel type check result for rule types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/BalanceAnalyserMsg.affine b/src/msg/BalanceAnalyserMsg.affine
new file mode 100644
index 00000000..b616c9e9
--- /dev/null
+++ b/src/msg/BalanceAnalyserMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module BalanceAnalyserMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/BalanceAnalyserMsg.res b/src/msg/BalanceAnalyserMsg.res
deleted file mode 100644
index 62aec8bd..00000000
--- a/src/msg/BalanceAnalyserMsg.res
+++ /dev/null
@@ -1,14 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Balance Analyser messages -- game balance stats, Monte Carlo, difficulty curves.
-
-open Model
-
-type balanceAnalyserMsg =
-  | SetBaTab(balanceTab)
-  | BaStarted
-  | BaCompleted(result<string, string>)
-  | DismissBaError
-  | RunSimulation
-  | SelectLevel(string)
-  | ApplyRecommendation(string, string, float)
diff --git a/src/msg/BetaFeedbackHubMsg.affine b/src/msg/BetaFeedbackHubMsg.affine
new file mode 100644
index 00000000..d42e8c83
--- /dev/null
+++ b/src/msg/BetaFeedbackHubMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module BetaFeedbackHubMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/BetaFeedbackHubMsg.res b/src/msg/BetaFeedbackHubMsg.res
deleted file mode 100644
index 1d166192..00000000
--- a/src/msg/BetaFeedbackHubMsg.res
+++ /dev/null
@@ -1,18 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Beta Feedback Hub messages -- feedback-o-tron integration, sentiment, triage.
-
-open Model
-
-type betaFeedbackHubMsg =
-  | SetBfhTab(betaFeedbackTab)
-  | BfhStarted
-  | BfhCompleted(result<string, string>)
-  | DismissBfhError
-  | SelectFeedback(string)
-  | Upvote(string)
-  | Downvote(string)
-  | SubmitFeedback
-  | UpdateSubmitTitle(string)
-  | UpdateSubmitBody(string)
-  | ToggleSortByVotes
diff --git a/src/msg/BojMsg.affine b/src/msg/BojMsg.affine
new file mode 100644
index 00000000..98510876
--- /dev/null
+++ b/src/msg/BojMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module BojMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/BojMsg.res b/src/msg/BojMsg.res
deleted file mode 100644
index 0e1b744f..00000000
--- a/src/msg/BojMsg.res
+++ /dev/null
@@ -1,71 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// BoJ messages -- Bundle of Joy cartridge server interaction.
-
-open Model
-
-type bojMsg =
-  /// Switch the active category tab.
-  | SetBojCategory(bojCategory)
-  /// Refresh BoJ server health check.
-  | RefreshHealth
-  /// Health check result.
-  | HealthResult(result<string, string>)
-  /// Refresh cartridge list.
-  | RefreshCartridges
-  /// Cartridge list result.
-  | CartridgesResult(result<string, string>)
-  /// Select a cartridge for detail view.
-  | SelectCartridge(string)
-  /// Load a cartridge into the runtime.
-  | LoadCartridge(string)
-  /// Unload a cartridge from the runtime.
-  | UnloadCartridge(string)
-  /// Load/unload result.
-  | CartridgeActionResult(string, result<string, string>)
-  /// Refresh topology data.
-  | RefreshTopology
-  /// Topology result.
-  | TopologyResult(result<string, string>)
-  /// Refresh Umoja federation status.
-  | RefreshUmoja
-  /// Umoja status result.
-  | UmojaResult(result<string, string>)
-  /// Disconnect a peer from the Umoja federation.
-  | UmojaDisconnectPeer(string)
-  /// Sync catalogue with a specific peer.
-  | UmojaSyncCatalogue(string)
-  /// View metrics for a specific peer.
-  | UmojaPeerMetrics(string)
-  /// Update the add-peer input field.
-  | UmojaAddPeerInput(string)
-  /// Add a new peer to the Umoja federation.
-  | UmojaAddPeer(string)
-  /// Trigger a manual gossip round.
-  | UmojaTriggerGossip
-  /// Result of adding a peer.
-  | UmojaAddPeerResult(result<string, string>)
-  /// Result of disconnecting a peer.
-  | UmojaDisconnectPeerResult(result<string, string>)
-  /// Result of triggering gossip round.
-  | UmojaTriggerGossipResult(result<string, string>)
-  /// Result of catalogue sync.
-  | UmojaSyncCatalogueResult(result<string, string>)
-  /// Result of peer metrics query.
-  | UmojaPeerMetricsResult(result<string, string>)
-  /// Set the cartridge for invocation.
-  | SetInvokeCartridge(string)
-  /// Set the tool name for invocation.
-  | SetInvokeTool(string)
-  /// Set the args JSON for invocation.
-  | SetInvokeArgs(string)
-  /// Execute the invocation.
-  | ExecuteInvoke
-  /// Invocation result.
-  | InvokeResult(result<string, string>)
-  /// Set filter text.
-  | SetBojFilter(string)
-  /// Dismiss the error banner.
-  | DismissBojError
-  /// TypeLL ABI type-check result for cartridge invocation.
-  | AbiTypeCheckResult(result<string, string>)
diff --git a/src/msg/BuildDashboardMsg.affine b/src/msg/BuildDashboardMsg.affine
new file mode 100644
index 00000000..7c492260
--- /dev/null
+++ b/src/msg/BuildDashboardMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module BuildDashboardMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/BuildDashboardMsg.res b/src/msg/BuildDashboardMsg.res
deleted file mode 100644
index 366aff2b..00000000
--- a/src/msg/BuildDashboardMsg.res
+++ /dev/null
@@ -1,42 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Build Dashboard messages -- build triggering, status reading, test
-/// running, error display, and history for the IDApTIK build monitoring panel.
-
-open Model
-
-type buildDashboardMsg =
-  /// Switch the active category tab.
-  | SetBuildCategory(buildDashboardCategory)
-  /// Trigger a build for a specific target.
-  | TriggerBuild(buildTarget)
-  /// Build triggered (or failed).
-  | BuildTriggered(result<string, string>)
-  /// Refresh build status for all targets.
-  | RefreshBuildStatus
-  /// Build status received.
-  | BuildStatusReceived(result<string, string>)
-  /// Run tests for a specific target.
-  | RunTests(buildTarget)
-  /// Test results received.
-  | TestsReceived(result<string, string>)
-  /// Cancel a running build.
-  | CancelBuild(buildTarget)
-  /// Build cancelled (or failed).
-  | BuildCancelled(result<string, string>)
-  /// Refresh build history.
-  | RefreshHistory
-  /// History received.
-  | HistoryReceived(result<string, string>)
-  /// Toggle watch mode.
-  | ToggleWatchMode
-  /// Toggle auto-rebuild.
-  | ToggleAutoRebuild
-  /// Toggle show passed tests.
-  | ToggleShowPassed
-  /// Dismiss the error banner.
-  | DismissBuildError
-  /// Toggle BoJ routing for BSP operations (bsp-mcp cartridge).
-  | ToggleBuildBojRouting
-  /// TypeLL cross-panel type check result for build config types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/CaptureMsg.affine b/src/msg/CaptureMsg.affine
new file mode 100644
index 00000000..88aca7f9
--- /dev/null
+++ b/src/msg/CaptureMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CaptureMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/CaptureMsg.res b/src/msg/CaptureMsg.res
deleted file mode 100644
index b23b9890..00000000
--- a/src/msg/CaptureMsg.res
+++ /dev/null
@@ -1,61 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Capture messages -- screenshots, recordings, demos, cloning (DD-022).
-
-open Model
-
-type captureMsg =
-  /// Take a screenshot of a panel.
-  | CaptureScreenshot(string)
-  /// Screenshot saved to disk.
-  | ScreenshotSaved(result<string, string>)
-  /// Start recording a panel.
-  | StartRecording(string)
-  /// Stop recording.
-  | StopRecording
-  /// Pause/resume recording.
-  | TogglePauseRecording
-  /// Print the active panel.
-  | PrintPanel(string)
-  /// Print result.
-  | PrintResult(result<string, string>)
-  /// Toggle capture selection for a panel (multi-panel capture).
-  | ToggleCaptureSelection(string)
-  /// Clear capture selection.
-  | ClearCaptureSelection
-  /// Capture all selected panels.
-  | CaptureSelected
-  /// Capture full environment.
-  | CaptureFullEnvironment
-  /// Toggle capture bar visibility.
-  | ToggleCaptureBar
-  /// Clone a panel's state.
-  | ClonePanel(string)
-  /// Remove a clone.
-  | RemoveClone(string)
-  /// Enter comparison mode.
-  | SetComparison(comparisonMode)
-  /// Exit comparison mode.
-  | ExitComparison
-  /// Start demo playback.
-  | StartDemo(string)
-  /// Stop demo playback.
-  | StopDemo
-  /// Next demo step.
-  | NextDemoStep
-  /// Previous demo step.
-  | PrevDemoStep
-  /// Save a demo package.
-  | SaveDemo
-  /// Demo saved to disk.
-  | DemoSaved(result<string, string>)
-  /// Load demos from disk.
-  | LoadDemos
-  /// Demos loaded.
-  | DemosLoaded(result<string, string>)
-  /// Set capture category tab.
-  | SetCaptureCategory(captureCategory)
-  /// Remove a capture entry.
-  | RemoveCapture(string)
-  /// TypeLL cross-panel type check result for capture config types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/CladeBrowserMsg.affine b/src/msg/CladeBrowserMsg.affine
new file mode 100644
index 00000000..49bf21c0
--- /dev/null
+++ b/src/msg/CladeBrowserMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CladeBrowserMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/CladeBrowserMsg.res b/src/msg/CladeBrowserMsg.res
deleted file mode 100644
index 0fc8c68b..00000000
--- a/src/msg/CladeBrowserMsg.res
+++ /dev/null
@@ -1,25 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Clade Browser messages -- exploring and customising panel clades.
-
-open Model
-
-type cladeBrowserMsg =
-  /// Switch the active category tab.
-  | SetCladeCategory(cladeBrowserCategory)
-  /// Select a clade for detail view.
-  | SelectClade(option<string>)
-  /// Set the kind filter.
-  | SetKindFilter(cladeKind)
-  /// Update search query.
-  | UpdateCladeSearch(string)
-  /// Load clades from filesystem (or use builtins).
-  | LoadClades
-  /// Clades loaded successfully.
-  | CladesLoaded(array<cladeEntry>)
-  /// Set the permission level for a target clade.
-  | SetCladePermission(string, cladePermission)
-  /// Remove a permission rule (revert to PermitAll).
-  | RemoveCladePermission(string)
-  /// TypeLL cross-panel type check result for clade spec types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/CloudguardMsg.affine b/src/msg/CloudguardMsg.affine
new file mode 100644
index 00000000..749039ba
--- /dev/null
+++ b/src/msg/CloudguardMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CloudguardMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/CloudguardMsg.res b/src/msg/CloudguardMsg.res
deleted file mode 100644
index bd3c2631..00000000
--- a/src/msg/CloudguardMsg.res
+++ /dev/null
@@ -1,64 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// CloudGuard Cloudflare domain security management messages -- connection
-/// lifecycle, zone listing, settings read/write, DNS records, DNSSEC,
-/// hardening operations, audit, and UI state toggling.
-
-open Model
-
-type cloudguardMsg =
-  // Connection lifecycle
-  | VerifyToken
-  | TokenVerified(result<string, string>)
-  // Zone listing
-  | FetchZones
-  | ZonesLoaded(result<string, string>)
-  // Zone selection (multi-select domain ribbon)
-  | ToggleZoneSelection(string)
-  | SelectAllZones
-  | DeselectAllZones
-  // Settings read/write
-  | FetchSettings(string)
-  | SettingsLoaded(result<string, string>)
-  | ToggleSetting(string)
-  | UpdateSettingValue(string, string)
-  | PushChanges
-  | ChangesPushed(result<string, string>)
-  // DNS records
-  | FetchDnsRecords(string)
-  | DnsRecordsLoaded(result<string, string>)
-  | CreateDnsRecord(string, string, string, string, int, option<bool>, option<int>) // zoneId, type, name, content, ttl, proxied, priority
-  | DnsRecordCreated(result<string, string>)
-  | DeleteDnsRecord(string, string)
-  | DnsRecordDeleted(result<string, string>)
-  | StartEditingDnsRecord(string) // record ID to edit
-  | CancelEditingDnsRecord
-  | ApplySecurityTemplate(string) // template name: "spf", "dmarc", "dkim_revoke", "caa", "tlsrpt"
-  // DNSSEC
-  | FetchDnssec(string)
-  | DnssecLoaded(result<string, string>)
-  | EnableDnssec(string)
-  | DnssecEnabled(result<string, string>)
-  // Hardening
-  | HardenSelected
-  | HardenZone(string)
-  | HardenSetting(string) // Fix a single audit finding by settingId
-  | ZoneHardened(result<string, string>)
-  // Audit
-  | RunAudit
-  | AuditComplete(result<string, string>)
-  // Offline config
-  | DownloadConfig
-  | ConfigDownloaded(result<string, string>)
-  // Per-domain exceptions
-  | AddException(string, string, settingValue, string) // domain, settingId, overrideValue, reason
-  | RemoveException(string, string) // domain, settingId
-  // UI state
-  | ToggleCloudGuard
-  | SetCategory(settingCategory)
-  | SetFilterText(string)
-  | SetSettingFilter(string)
-  | ToggleAuditPanel
-  | ToggleDiffPanel
-  /// TypeLL cross-panel type check result for settings JSON types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/CodeReviewMsg.affine b/src/msg/CodeReviewMsg.affine
new file mode 100644
index 00000000..24298704
--- /dev/null
+++ b/src/msg/CodeReviewMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CodeReviewMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/CodeReviewMsg.res b/src/msg/CodeReviewMsg.res
deleted file mode 100644
index a7d39d22..00000000
--- a/src/msg/CodeReviewMsg.res
+++ /dev/null
@@ -1,12 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Code Review messages -- PR review, inline comments, approval gates.
-
-open Model
-
-type codeReviewMsg =
-  | SetCrTab(codeReviewTab)
-  | SetCrFilter(string)
-  | SelectPr(string)
-  | ApprovePr
-  | DismissCrError
diff --git a/src/msg/CompatibilityMatrixMsg.affine b/src/msg/CompatibilityMatrixMsg.affine
new file mode 100644
index 00000000..0b0284ad
--- /dev/null
+++ b/src/msg/CompatibilityMatrixMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CompatibilityMatrixMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/CompatibilityMatrixMsg.res b/src/msg/CompatibilityMatrixMsg.res
deleted file mode 100644
index a963e81f..00000000
--- a/src/msg/CompatibilityMatrixMsg.res
+++ /dev/null
@@ -1,13 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Compatibility Matrix messages -- browser/device/resolution test matrix.
-
-open Model
-
-type compatibilityMatrixMsg =
-  | SetCmTab(compatibilityTab)
-  | CmStarted
-  | CmCompleted(result<string, string>)
-  | DismissCmError
-  | RunAll
-  | SelectCell(string, string)
diff --git a/src/msg/ContractileCompletenessMsg.affine b/src/msg/ContractileCompletenessMsg.affine
new file mode 100644
index 00000000..79b232dd
--- /dev/null
+++ b/src/msg/ContractileCompletenessMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ContractileCompletenessMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/ContractileCompletenessMsg.res b/src/msg/ContractileCompletenessMsg.res
deleted file mode 100644
index 5537f693..00000000
--- a/src/msg/ContractileCompletenessMsg.res
+++ /dev/null
@@ -1,10 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Messages for the Contractile Completeness scanner panel.
-
-type contractileCompletenessMsg =
-  | SetTab(ContractileCompletenessModel.contractileCompletenessTab)
-  | ScanRepos
-  | ReposScanned(result<string, string>)
-  | SelectRepo(string)
-  | ClearError
diff --git a/src/msg/CoprocessorsMsg.affine b/src/msg/CoprocessorsMsg.affine
new file mode 100644
index 00000000..0d73cf66
--- /dev/null
+++ b/src/msg/CoprocessorsMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module CoprocessorsMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/CoprocessorsMsg.res b/src/msg/CoprocessorsMsg.res
deleted file mode 100644
index 357eff8a..00000000
--- a/src/msg/CoprocessorsMsg.res
+++ /dev/null
@@ -1,63 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Coprocessors messages -- metrics refresh, call log, heatmap,
-/// backend toggling, and filter controls for the IDApTIK coprocessor
-/// monitoring dashboard.
-
-open Model
-
-type coprocessorsMsg =
-  /// Switch the active category tab.
-  | SetCoprocCategory(coprocessorsCategory)
-  /// Refresh all metrics.
-  | RefreshMetrics
-  /// Metrics received.
-  | MetricsReceived(result<string, string>)
-  /// Refresh the call log.
-  | RefreshCallLog
-  /// Call log received.
-  | CallLogReceived(result<string, string>)
-  /// Refresh the heatmap.
-  | RefreshHeatmap
-  /// Heatmap received.
-  | HeatmapReceived(result<string, string>)
-  /// Toggle a coprocessor backend on/off.
-  | ToggleCoprocBackend(coprocessorBackend)
-  /// Backend toggle result.
-  | BackendToggled(result<string, string>)
-  /// Select a backend filter for the call log.
-  | SelectBackendFilter(option<coprocessorBackend>)
-  /// Toggle auto-refresh.
-  | ToggleAutoRefresh
-  /// Dismiss the error banner.
-  | DismissCoprocError
-  /// Query an external compute engine (Axiom.jl, BoJ cartridge).
-  | QueryComputeEngine(string, string)
-  /// Compute engine query result.
-  | ComputeEngineResult(result<string, string>)
-  /// Discover available compute devices.
-  | DiscoverDevices
-  /// Device discovery result.
-  | DevicesDiscovered(result<string, string>)
-  /// Toggle BoJ routing for compute operations (agent-mcp cartridge).
-  | ToggleCoprocBojRouting
-  /// Phase 2: Load the Zig FFI shared library for local GPU/CPU dispatch.
-  | LoadLocalFfi
-  /// Phase 2: FFI load result.
-  | LocalFfiLoaded(result<string, string>)
-  /// Phase 2: Dispatch a compute operation to local GPU/CPU via Zig FFI.
-  | DispatchLocal(string, string)
-  /// Phase 2: Local dispatch result.
-  | LocalDispatchResult(result<string, string>)
-  /// Phase 2: Query local system resources (CPU, GPU memory).
-  | QueryLocalResources
-  /// Phase 2: Local resources result.
-  | LocalResourcesResult(result<string, string>)
-  /// Phase 3: Set the routing strategy.
-  | SetRoutingStrategy(routingStrategy)
-  /// Phase 3: Smart route a compute operation (auto-selects local vs remote).
-  | SmartDispatch(string, string)
-  /// Phase 3: Smart routing result.
-  | SmartDispatchResult(result<string, string>)
-  /// TypeLL cross-panel type check result for compute types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/DatabaseBridgeMsg.affine b/src/msg/DatabaseBridgeMsg.affine
new file mode 100644
index 00000000..9913904a
--- /dev/null
+++ b/src/msg/DatabaseBridgeMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module DatabaseBridgeMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/DatabaseBridgeMsg.res b/src/msg/DatabaseBridgeMsg.res
deleted file mode 100644
index 58cca8d9..00000000
--- a/src/msg/DatabaseBridgeMsg.res
+++ /dev/null
@@ -1,11 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Database Bridge messages -- VeriSimDB game state persistence.
-
-open Model
-
-type databaseBridgeMsg =
-  | SetDbBTab(databaseBridgeTab)
-  | DbBStarted
-  | DbBCompleted(result<string, string>)
-  | DismissDbBError
diff --git a/src/msg/DatabasesMsg.affine b/src/msg/DatabasesMsg.affine
new file mode 100644
index 00000000..22b1d5e2
--- /dev/null
+++ b/src/msg/DatabasesMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module DatabasesMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/DatabasesMsg.res b/src/msg/DatabasesMsg.res
deleted file mode 100644
index 27106dc7..00000000
--- a/src/msg/DatabasesMsg.res
+++ /dev/null
@@ -1,51 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Databases panel messages -- unified VeriSimDB/QuandleDB/LithoGlyph management.
-
-open Model
-
-type databasesMsg =
-  /// Switch the active category tab.
-  | SetCategory(databasesCategory)
-  /// Select a database module by ID.
-  | SelectModule(string)
-  /// Connect to all database backends.
-  | ConnectAll
-  /// Refresh health/connection status for all modules.
-  | RefreshHealth
-  /// Health check result for a module.
-  | HealthResult(string, result<string, string>)
-  /// Set the query input text.
-  | SetQueryInput(string)
-  /// Execute the current query against the selected module.
-  | ExecuteQuery
-  /// Query execution result.
-  | QueryResult(result<string, string>)
-  /// Clear the query input and result.
-  | ClearQuery
-  /// Load an example query into the editor.
-  | LoadExampleQuery(string)
-  /// Set the schema filter text.
-  | SetFilter(string)
-  /// Select a schema entity for detail view.
-  | SelectEntity(string)
-  /// Load entity detail JSON.
-  | LoadEntityDetail(string)
-  /// Entity detail result.
-  | EntityDetailResult(result<string, string>)
-  /// Refresh drift scores for the selected module.
-  | RefreshDrift
-  /// Drift scores result.
-  | DriftResult(result<string, string>)
-  /// Normalise all drifted modalities.
-  | NormaliseAll
-  /// Normalisation result.
-  | NormaliseResult(result<string, string>)
-  /// Load telemetry snapshot.
-  | LoadTelemetry
-  /// Telemetry snapshot result.
-  | TelemetryResult(result<string, string>)
-  /// Toggle BoJ cartridge routing.
-  | ToggleBojRouting
-  /// Dismiss error banner.
-  | DismissError
diff --git a/src/msg/DebuggingWorkbenchMsg.affine b/src/msg/DebuggingWorkbenchMsg.affine
new file mode 100644
index 00000000..3154264d
--- /dev/null
+++ b/src/msg/DebuggingWorkbenchMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module DebuggingWorkbenchMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/DebuggingWorkbenchMsg.res b/src/msg/DebuggingWorkbenchMsg.res
deleted file mode 100644
index 4a8a2879..00000000
--- a/src/msg/DebuggingWorkbenchMsg.res
+++ /dev/null
@@ -1,16 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Debugging Workbench messages -- time-travel debugging, state inspection, watches.
-
-open Model
-
-type debuggingWorkbenchMsg =
-  | SetDwTab(debuggingWorkbenchTab)
-  | DwStepBack
-  | DwStepForward
-  | DwGoToSnapshot(int)
-  | DwCaptureSnapshot
-  | DwAddWatch
-  | DwRemoveWatch(string)
-  | DwClearConsole
-  | DismissDwError
diff --git a/src/msg/DeviceNetworkDesignerMsg.affine b/src/msg/DeviceNetworkDesignerMsg.affine
new file mode 100644
index 00000000..17b40590
--- /dev/null
+++ b/src/msg/DeviceNetworkDesignerMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module DeviceNetworkDesignerMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/DeviceNetworkDesignerMsg.res b/src/msg/DeviceNetworkDesignerMsg.res
deleted file mode 100644
index c6fbc186..00000000
--- a/src/msg/DeviceNetworkDesignerMsg.res
+++ /dev/null
@@ -1,11 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Device Network Designer messages -- wire devices, configure security levels.
-
-open Model
-
-type deviceNetworkDesignerMsg =
-  | SetDndCategory(deviceNetworkDesignerCategory)
-  | DndStarted
-  | DndCompleted(result<string, string>)
-  | DismissDndError
diff --git a/src/msg/DlcWorkshopMsg.affine b/src/msg/DlcWorkshopMsg.affine
new file mode 100644
index 00000000..7792db9b
--- /dev/null
+++ b/src/msg/DlcWorkshopMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module DlcWorkshopMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/DlcWorkshopMsg.res b/src/msg/DlcWorkshopMsg.res
deleted file mode 100644
index 6f5b3733..00000000
--- a/src/msg/DlcWorkshopMsg.res
+++ /dev/null
@@ -1,60 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// DLC Workshop messages -- puzzle CRUD, composer, testing, asset browsing,
-/// packaging, import/export for the IDApTIK DLC puzzle pack panel.
-
-open Model
-
-type dlcWorkshopMsg =
-  /// Switch the active category tab.
-  | SetWorkshopCategory(dlcWorkshopCategory)
-  /// Load puzzles from the DLC directory.
-  | LoadPuzzles
-  /// Puzzles loaded.
-  | PuzzlesLoaded(result<string, string>)
-  /// Select a puzzle by ID.
-  | SelectPuzzle(string)
-  /// Deselect the current puzzle.
-  | DeselectPuzzle
-  /// Add an instruction to the composer.
-  | AddInstruction
-  /// Remove an instruction by index.
-  | RemoveInstruction(int)
-  /// Clear the composer.
-  | ClearComposer
-  /// Save the current puzzle.
-  | SavePuzzle
-  /// Puzzle saved.
-  | PuzzleSaved(result<string, string>)
-  /// Run tests for a specific puzzle.
-  | RunPuzzleTest(string)
-  /// Test result for a puzzle.
-  | PuzzleTestResult(result<string, string>)
-  /// Run all tests.
-  | RunAllTests
-  /// All tests result.
-  | AllTestsResult(result<string, string>)
-  /// Browse DLC assets.
-  | BrowseDlcAssets
-  /// Assets loaded.
-  | DlcAssetsLoaded(result<string, string>)
-  /// Package the DLC for distribution.
-  | PackageDlc
-  /// Package result.
-  | PackageResult(result<string, string>)
-  /// Import a puzzle from file.
-  | ImportPuzzle
-  /// Puzzle imported.
-  | PuzzleImported(result<string, string>)
-  /// Export the selected puzzle.
-  | ExportPuzzle
-  /// Puzzle exported.
-  | PuzzleExported(result<string, string>)
-  /// Set filter text.
-  | SetDlcFilter(string)
-  /// Set difficulty filter.
-  | SetDifficultyFilter(option<puzzleDifficulty>)
-  /// Dismiss the error banner.
-  | DismissWorkshopError
-  /// TypeLL cross-panel type check result for puzzle spec types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/EchidnaMsg.affine b/src/msg/EchidnaMsg.affine
new file mode 100644
index 00000000..9904343a
--- /dev/null
+++ b/src/msg/EchidnaMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module EchidnaMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/EchidnaMsg.res b/src/msg/EchidnaMsg.res
deleted file mode 100644
index 6382f08f..00000000
--- a/src/msg/EchidnaMsg.res
+++ /dev/null
@@ -1,67 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// ECHIDNA theorem prover backend messages -- connection lifecycle, prover
-/// catalog browsing, proof submission/verification, interactive sessions
-/// (Phase 2 stub), tactic suggestions (Phase 2 stub), theorem search,
-/// and UI state toggles.
-
-open Model
-
-type echidnaMsg =
-  // Connection lifecycle
-  | CheckHealth
-  | HealthOk(string)
-  | HealthError(string)
-  // Prover catalog
-  | ListProvers
-  | ProversLoaded(result<string, string>)
-  // Proof submission and verification
-  | SubmitProof
-  | ProofResult(result<string, string>)
-  | SubmitVerify
-  | VerifyResult(result<string, string>)
-  // Theorem search
-  | SearchTheorems(string)
-  | SearchResult(result<string, string>)
-  // Interactive sessions
-  | CreateSession
-  | SessionCreated(result<string, string>)
-  | ApplyTactic(string, array<string>)
-  | TacticApplied(result<string, string>)
-  | GetSessionState
-  | SessionStateLoaded(result<string, string>)
-  | CancelSession
-  | UpdateTacticInput(string)
-  // Tactic suggestions
-  | RequestTacticSuggestions
-  | TacticSuggestionsLoaded(result<string, string>)
-  // UI state
-  | ToggleMenu
-  | UpdateProofInput(string)
-  | SelectProver(option<string>)
-  | ClearProofResult
-  /// TypeLL-generated proof obligations for the current proof input.
-  | ProofObligationsGenerated(result<string, string>)
-  /// Toggle BoJ routing for proof operations (proof-mcp cartridge).
-  | ToggleEchidnaBojRouting
-  /// Switch ECHIDNA panel tab (Proof / Enterprise).
-  | SelectEchidnaTab(echidnaTab)
-  // Enterprise model checking (MOF/OCL)
-  /// Import model elements from XMI file.
-  | ImportXmiModel
-  /// XMI model loaded and parsed.
-  | XmiModelLoaded(result<string, string>)
-  /// Add an OCL constraint to the enterprise model.
-  | AddOclConstraint(string, string, string) // context, name, expression
-  /// Remove an OCL constraint by index.
-  | RemoveOclConstraint(int)
-  /// Run batch OCL constraint checking against loaded model.
-  | RunOclCheck
-  /// OCL batch check completed.
-  | OclCheckResult(result<string, string>)
-  /// Filter by metamodel standard.
-  | SetMetamodelFilter(option<metamodelStandard>)
-  /// Filter by MOF layer.
-  | SetMofLayerFilter(option<mofLayer>)
-  /// Clear enterprise model state.
-  | ClearEnterpriseModel
diff --git a/src/msg/EditorBridgeMsg.affine b/src/msg/EditorBridgeMsg.affine
new file mode 100644
index 00000000..38135bda
--- /dev/null
+++ b/src/msg/EditorBridgeMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module EditorBridgeMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/EditorBridgeMsg.res b/src/msg/EditorBridgeMsg.res
deleted file mode 100644
index 16a5174c..00000000
--- a/src/msg/EditorBridgeMsg.res
+++ /dev/null
@@ -1,57 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Editor Bridge messages -- editor detection, LSP lifecycle, diagnostics,
-/// symbols, open files, jump-to-line, and settings for the external code
-/// editor federation panel.
-
-open Model
-
-type editorBridgeMsg =
-  /// Switch the active category tab.
-  | SetBridgeCategory(editorBridgeCategory)
-  /// Detect which editor is running.
-  | DetectEditor
-  /// Editor detection result.
-  | EditorDetected(result<string, string>)
-  /// Connect to the editor's LSP server.
-  | ConnectLsp
-  /// LSP connection result.
-  | LspConnected(result<string, string>)
-  /// Refresh diagnostics from LSP.
-  | RefreshDiagnostics
-  /// Diagnostics received.
-  | DiagnosticsReceived(result<string, string>)
-  /// Refresh open files list.
-  | RefreshOpenFiles
-  /// Open files received.
-  | OpenFilesReceived(result<string, string>)
-  /// Refresh workspace symbols.
-  | RefreshSymbols
-  /// Symbols received.
-  | SymbolsReceived(result<string, string>)
-  /// Open a file at a specific line in the external editor.
-  | OpenFileInEditor(string, int)
-  /// File opened (or failed).
-  | FileOpened(result<string, string>)
-  /// Refresh the bridge status.
-  | RefreshBridge
-  /// Set the diagnostic filter text.
-  | SetDiagnosticFilter(string)
-  /// Toggle BoJ routing -- route LSP through lsp-mcp cartridge.
-  | ToggleBojRouting
-  /// Toggle error visibility.
-  | ToggleShowErrors
-  /// Toggle warning visibility.
-  | ToggleShowWarnings
-  /// Toggle info visibility.
-  | ToggleShowInfo
-  /// Set the symbol search filter.
-  | SetSymbolFilter(string)
-  /// Set the preferred editor kind.
-  | SetEditorKind(editorKind)
-  /// Toggle auto-sync with the editor.
-  | ToggleAutoSync
-  /// Dismiss the error banner.
-  | DismissBridgeError
-  /// TypeLL cross-panel type check result for LSP diagnostics types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/EnsaidConfigMsg.affine b/src/msg/EnsaidConfigMsg.affine
new file mode 100644
index 00000000..e3797f85
--- /dev/null
+++ b/src/msg/EnsaidConfigMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module EnsaidConfigMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/EnsaidConfigMsg.res b/src/msg/EnsaidConfigMsg.res
deleted file mode 100644
index bf74b882..00000000
--- a/src/msg/EnsaidConfigMsg.res
+++ /dev/null
@@ -1,23 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// ENSAID_CONFIG messages -- cross-panel config generation and I/O.
-/// Any panel can trigger a full ENSAID_CONFIG export; the engine assembles
-/// state from Provisioner, Workspace, and Automation Router into one file.
-
-type ensaidConfigMsg =
-  /// Generate and write ENSAID_CONFIG.a2ml to the current repo.
-  | GenerateAndWrite
-  /// Preview the generated content (no disk write).
-  | PreviewConfig
-  /// Config preview ready (content string).
-  | PreviewReady(string)
-  /// Config written successfully.
-  | ConfigWritten(result<string, string>)
-  /// Read existing config from repo.
-  | ReadFromRepo
-  /// Config read from repo.
-  | ConfigRead(result<string, string>)
-  /// Dismiss error.
-  | DismissConfigError
-  /// TypeLL cross-panel type check result for ENSAID config types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/EvangeliserMsg.affine b/src/msg/EvangeliserMsg.affine
new file mode 100644
index 00000000..e9816a0f
--- /dev/null
+++ b/src/msg/EvangeliserMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module EvangeliserMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/EvangeliserMsg.res b/src/msg/EvangeliserMsg.res
deleted file mode 100644
index 010b6fc2..00000000
--- a/src/msg/EvangeliserMsg.res
+++ /dev/null
@@ -1,29 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Evangeliser messages -- JS->ReScript pattern detection and teaching.
-
-open Model
-
-type evangeliserMsg =
-  /// Set the JS code input for scanning.
-  | SetJsInput(string)
-  /// Run the pattern scanner on the current JS input.
-  | RunScan
-  /// Scan completed (or failed).
-  | ScanComplete(result<evangeliserAnalysis, string>)
-  /// Switch the active tab.
-  | SetTab(evangeliserTab)
-  /// Set the view layer (RAW, FOLDED, GLYPHED, WYSIWYG).
-  | SetViewLayer(evangeliserViewLayer)
-  /// Set the minimum confidence threshold.
-  | SetMinConfidence(float)
-  /// Set the difficulty filter.
-  | SetDifficultyFilter(option<evangeliserDifficulty>)
-  /// Toggle a category in the constraint filter.
-  | ToggleCategory(evangeliserCategory)
-  /// Select a match in the results view.
-  | SelectMatch(option<int>)
-  /// Set the pattern filter text.
-  | SetFilterText(string)
-  /// Dismiss error.
-  | DismissError
diff --git a/src/msg/ExploratoryWorkbenchMsg.affine b/src/msg/ExploratoryWorkbenchMsg.affine
new file mode 100644
index 00000000..d0915493
--- /dev/null
+++ b/src/msg/ExploratoryWorkbenchMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ExploratoryWorkbenchMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/ExploratoryWorkbenchMsg.res b/src/msg/ExploratoryWorkbenchMsg.res
deleted file mode 100644
index 6f640adc..00000000
--- a/src/msg/ExploratoryWorkbenchMsg.res
+++ /dev/null
@@ -1,16 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Exploratory Workbench messages -- freeform play session recording, anomaly detection.
-
-open Model
-
-type exploratoryWorkbenchMsg =
-  | SetEwTab(exploratoryTab)
-  | EwStarted
-  | EwCompleted(result<string, string>)
-  | DismissEwError
-  | StartRecording
-  | StopRecording
-  | QuickFlag(string)
-  | ToggleAnomalyDetection
-  | UpdateNotes(string)
diff --git a/src/msg/FarmMsg.affine b/src/msg/FarmMsg.affine
new file mode 100644
index 00000000..963ef71c
--- /dev/null
+++ b/src/msg/FarmMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FarmMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/FarmMsg.res b/src/msg/FarmMsg.res
deleted file mode 100644
index 730d1a7e..00000000
--- a/src/msg/FarmMsg.res
+++ /dev/null
@@ -1,20 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Git-Private-Farm panel messages -- repo inventory loading, filtering,
-/// and category navigation. The farm backend reads local JSON, no HTTP.
-
-open Model
-
-type farmMsg =
-  /// Trigger loading the repo inventory from farm-manifest.json.
-  | LoadRepos
-  /// Repo inventory loaded (or failed).
-  | ReposLoaded(result<string, string>)
-  /// Change the active category tab.
-  | SetFarmCategory(farmCategory)
-  /// Update the text filter for repo search.
-  | SetFarmFilter(string)
-  /// Change the sort order.
-  | SetFarmSort(farmSortBy)
-  /// TypeLL cross-panel type check result for repo manifest types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/FeedbackMsg.affine b/src/msg/FeedbackMsg.affine
new file mode 100644
index 00000000..72c02e0f
--- /dev/null
+++ b/src/msg/FeedbackMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FeedbackMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/FeedbackMsg.res b/src/msg/FeedbackMsg.res
deleted file mode 100644
index 28e7da34..00000000
--- a/src/msg/FeedbackMsg.res
+++ /dev/null
@@ -1,11 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Feedback-O-Tron messages -- user feedback submission lifecycle.
-
-type feedbackMsg =
-  | OpenFeedback
-  | SubmitFeedback(string)
-  | CancelFeedback
-  | SetReportType(string)
-  | FeedbackSubmitted
-  | FeedbackSubmissionResult(result<string, string>)
diff --git a/src/msg/FeedbackRoutingMsg.affine b/src/msg/FeedbackRoutingMsg.affine
new file mode 100644
index 00000000..5d4e63b3
--- /dev/null
+++ b/src/msg/FeedbackRoutingMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FeedbackRoutingMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/FeedbackRoutingMsg.res b/src/msg/FeedbackRoutingMsg.res
deleted file mode 100644
index c8f60e2a..00000000
--- a/src/msg/FeedbackRoutingMsg.res
+++ /dev/null
@@ -1,10 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Messages for the Feedback Routing viewer panel.
-
-type feedbackRoutingMsg =
-  | SetTab(FeedbackRoutingModel.feedbackRoutingTab)
-  | RefreshReports
-  | ReportsRefreshed(result<string, string>)
-  | SelectReport(string)
-  | ClearError
diff --git a/src/msg/FleetMsg.affine b/src/msg/FleetMsg.affine
new file mode 100644
index 00000000..47eafed8
--- /dev/null
+++ b/src/msg/FleetMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FleetMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/FleetMsg.res b/src/msg/FleetMsg.res
deleted file mode 100644
index 3d32e5e7..00000000
--- a/src/msg/FleetMsg.res
+++ /dev/null
@@ -1,20 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Gitbot-Fleet panel messages -- bot status, findings queue, dispatch,
-/// and safety triangle navigation.
-
-open Model
-
-type fleetMsg =
-  /// Load all fleet data (bots + findings).
-  | LoadFleet
-  /// Bot status loaded from fleet API.
-  | BotsLoaded(result<string, string>)
-  /// Findings loaded from fleet API.
-  | FindingsLoaded(result<string, string>)
-  /// Change the active category tab.
-  | SetFleetCategory(fleetCategory)
-  /// Update the findings text filter.
-  | SetFleetFilter(string)
-  /// TypeLL cross-panel type check result for bot dispatch types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/FloorRaiseMsg.affine b/src/msg/FloorRaiseMsg.affine
new file mode 100644
index 00000000..8e9ca25e
--- /dev/null
+++ b/src/msg/FloorRaiseMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FloorRaiseMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/FloorRaiseMsg.res b/src/msg/FloorRaiseMsg.res
deleted file mode 100644
index befed958..00000000
--- a/src/msg/FloorRaiseMsg.res
+++ /dev/null
@@ -1,11 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Messages for the Floor Raise campaign dashboard.
-
-type floorRaiseMsg =
-  | SetTab(FloorRaiseModel.floorRaiseTab)
-  | ScanAdoption
-  | AdoptionScanned(result<string, string>)
-  | RunCampaign(string)
-  | CampaignResult(result<string, string>)
-  | ClearError
diff --git a/src/msg/FocusDimmingMsg.affine b/src/msg/FocusDimmingMsg.affine
new file mode 100644
index 00000000..aa118bda
--- /dev/null
+++ b/src/msg/FocusDimmingMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FocusDimmingMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/FocusDimmingMsg.res b/src/msg/FocusDimmingMsg.res
deleted file mode 100644
index 252ab39c..00000000
--- a/src/msg/FocusDimmingMsg.res
+++ /dev/null
@@ -1,15 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Focus dimming messages -- dimming mode, per-panel overrides, interaction tracking.
-
-open Model
-
-type focusDimmingMsg =
-  /// Set the global dimming mode (Off, Subtle, Strong, SmartMemory).
-  | SetDimmingMode(dimmingMode)
-  /// Set a per-panel override for dimming behaviour.
-  | SetPanelFocusOverride(panelId, panelFocusOverride)
-  /// Record a user interaction with a specific panel (updates timestamps and focus).
-  | RecordInteraction(string)
-  /// Set the custom dim opacity for Smart Memory Mode.
-  | SetDimOpacity(float)
diff --git a/src/msg/FunctionalTesterMsg.affine b/src/msg/FunctionalTesterMsg.affine
new file mode 100644
index 00000000..e81d4413
--- /dev/null
+++ b/src/msg/FunctionalTesterMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module FunctionalTesterMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/FunctionalTesterMsg.res b/src/msg/FunctionalTesterMsg.res
deleted file mode 100644
index 7cc4369a..00000000
--- a/src/msg/FunctionalTesterMsg.res
+++ /dev/null
@@ -1,15 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Functional Tester messages -- end-to-end game workflow simulation.
-
-open Model
-
-type functionalTesterMsg =
-  | SetFtTab(functionalTestTab)
-  | FtStarted
-  | FtCompleted(result<string, string>)
-  | DismissFtError
-  | NewWorkflow
-  | SelectWorkflow(string)
-  | RunWorkflow(string)
-  | LoadTemplate(string)
diff --git a/src/msg/GamePreviewMsg.affine b/src/msg/GamePreviewMsg.affine
new file mode 100644
index 00000000..b466803c
--- /dev/null
+++ b/src/msg/GamePreviewMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module GamePreviewMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/GamePreviewMsg.res b/src/msg/GamePreviewMsg.res
deleted file mode 100644
index 1d75c69e..00000000
--- a/src/msg/GamePreviewMsg.res
+++ /dev/null
@@ -1,61 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Game Preview messages -- dev server lifecycle, game loop control,
-/// overlay management, gameplay recording, and render stats for the
-/// live IDApTIK game preview panel.
-
-open Model
-
-type gamePreviewMsg =
-  /// Switch the active category tab.
-  | SetPreviewCategory(gamePreviewCategory)
-  /// Check if the Vite dev server is running.
-  | CheckDevServer
-  /// Dev server check result.
-  | DevServerResult(result<string, string>)
-  /// Pause the game loop.
-  | PauseGame
-  /// Resume the game loop.
-  | ResumeGame
-  /// Step one frame forward (when paused).
-  | StepFrame
-  /// Game control result.
-  | GameControlResult(result<string, string>)
-  /// Toggle a game overlay on/off.
-  | ToggleOverlay(gameOverlay)
-  /// Start recording gameplay to WebM.
-  | StartGameRecording
-  /// Stop gameplay recording.
-  | StopGameRecording
-  /// Gameplay recording started (or failed).
-  | GameRecordingStarted(result<string, string>)
-  /// Gameplay recording stopped (or failed).
-  | GameRecordingStopped(result<string, string>)
-  /// Take a screenshot of the current game frame.
-  | ScreenshotGame
-  /// Game screenshot captured (or failed).
-  | GameScreenshotCaptured(result<string, string>)
-  /// Set the zoom level.
-  | SetZoom(float)
-  /// Toggle multiplayer/co-op view.
-  | ToggleMultiplayerView
-  /// Load saved gameplay clips.
-  | LoadClips
-  /// Clips loaded (or failed).
-  | ClipsLoaded(result<string, string>)
-  /// Delete a gameplay clip by ID.
-  | DeleteClip(string)
-  /// Clip deleted (or failed).
-  | ClipDeleted(result<string, string>)
-  /// Refresh render statistics.
-  | RefreshStats
-  /// Render stats received.
-  | StatsReceived(result<string, string>)
-  /// Clear the device interaction log.
-  | ClearDeviceLog
-  /// A device interaction event arrived from the game.
-  | DeviceInteractionEvent(deviceInteraction)
-  /// Dismiss the error banner.
-  | DismissGameError
-  /// TypeLL cross-panel type check result for game config types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/GeneratorModeMsg.affine b/src/msg/GeneratorModeMsg.affine
new file mode 100644
index 00000000..4d1a8c82
--- /dev/null
+++ b/src/msg/GeneratorModeMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module GeneratorModeMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/GeneratorModeMsg.res b/src/msg/GeneratorModeMsg.res
deleted file mode 100644
index bc5df23d..00000000
--- a/src/msg/GeneratorModeMsg.res
+++ /dev/null
@@ -1,11 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Generator Mode messages -- parametric procedural world builder.
-
-open Model
-
-type generatorModeMsg =
-  | SetGenCategory(generatorModeCategory)
-  | GenStarted
-  | GenCompleted(result<string, string>)
-  | DismissGenError
diff --git a/src/msg/GuardAiTunerMsg.affine b/src/msg/GuardAiTunerMsg.affine
new file mode 100644
index 00000000..85aa86e3
--- /dev/null
+++ b/src/msg/GuardAiTunerMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module GuardAiTunerMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/GuardAiTunerMsg.res b/src/msg/GuardAiTunerMsg.res
deleted file mode 100644
index 00768314..00000000
--- a/src/msg/GuardAiTunerMsg.res
+++ /dev/null
@@ -1,11 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Guard AI Tuner messages -- guard patrol, alert threshold, spawn rate tuning.
-
-open Model
-
-type guardAiTunerMsg =
-  | SetGatCategory(guardAiTunerCategory)
-  | GatStarted
-  | GatCompleted(result<string, string>)
-  | DismissGatError
diff --git a/src/msg/HelpMsg.affine b/src/msg/HelpMsg.affine
new file mode 100644
index 00000000..4fca42f6
--- /dev/null
+++ b/src/msg/HelpMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module HelpMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/HelpMsg.res b/src/msg/HelpMsg.res
deleted file mode 100644
index c921ee24..00000000
--- a/src/msg/HelpMsg.res
+++ /dev/null
@@ -1,29 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Help system messages -- search, navigation, onboarding, and context-sensitive help.
-
-open Model
-
-type helpMsg =
-  /// Update the search query in the help search bar.
-  | SetHelpSearch(string)
-  /// Switch to a different help category tab.
-  | SetHelpCategory(helpCategory)
-  /// Select a specific help entry to display in full.
-  | SelectEntry(string)
-  /// Close the help panel.
-  | CloseHelp
-  /// Begin the onboarding walkthrough from the first step.
-  | StartOnboarding
-  /// Advance to the next onboarding step.
-  | NextOnboardingStep
-  /// Go back to the previous onboarding step.
-  | PrevOnboardingStep
-  /// Skip the rest of the onboarding walkthrough.
-  | SkipOnboarding
-  /// Mark the onboarding as completed.
-  | CompleteOnboarding
-  /// Open help pre-filtered to the specified panel's guide (F1 context-sensitive).
-  | OpenContextHelp(option<panelId>)
-  /// Search the glossary for a specific term.
-  | SearchGlossary(string)
diff --git a/src/msg/HypatiaMsg.affine b/src/msg/HypatiaMsg.affine
new file mode 100644
index 00000000..1d1d2032
--- /dev/null
+++ b/src/msg/HypatiaMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module HypatiaMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/HypatiaMsg.res b/src/msg/HypatiaMsg.res
deleted file mode 100644
index 593f36ad..00000000
--- a/src/msg/HypatiaMsg.res
+++ /dev/null
@@ -1,24 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Hypatia neurosymbolic scanner messages -- network status, scan results,
-/// learning cycle, quarantine, and category navigation.
-
-open Model
-
-type hypatiaMsg =
-  /// Load all Hypatia data (networks + scans).
-  | LoadHypatia
-  /// Neural network states loaded.
-  | NetworksLoaded(result<string, string>)
-  /// Scan results loaded.
-  | ScansLoaded(result<string, string>)
-  /// Change the active category tab.
-  | SetHypatiaCategory(hypatiaCategory)
-  /// Update the scan results text filter.
-  | SetHypatiaFilter(string)
-  /// TypeLL cross-panel type check result for scan config types.
-  | TypeCheckResult(result<string, string>)
-  /// Select a recipe for detail drill-down (None to deselect).
-  | SelectRecipe(option<string>)
-  /// Update recipe filter text.
-  | SetRecipeFilter(string)
diff --git a/src/msg/IdentityMsg.affine b/src/msg/IdentityMsg.affine
new file mode 100644
index 00000000..4365fa7d
--- /dev/null
+++ b/src/msg/IdentityMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module IdentityMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/IdentityMsg.res b/src/msg/IdentityMsg.res
deleted file mode 100644
index d708b332..00000000
--- a/src/msg/IdentityMsg.res
+++ /dev/null
@@ -1,29 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// IdentityMsg — TEA messages for identity snapshots and team replication.
-
-/// Messages that update the identity state.
-type identityMsg =
-  | /// Capture a new snapshot with the given name.
-  CaptureSnapshot(string)
-  | /// Result of snapshot capture.
-  CaptureResult(result<string, string>)
-  | /// Restore a snapshot by ID.
-  RestoreSnapshot(string)
-  | /// Result of snapshot restore (full snapshot JSON).
-  RestoreResult(result<string, string>)
-  | /// List all available snapshots.
-  ListSnapshots
-  | /// Snapshot list loaded from backend.
-  SnapshotsLoaded(result<string, string>)
-  | /// Delete a snapshot by ID.
-  DeleteSnapshot(string)
-  | /// Result of snapshot deletion.
-  DeleteResult(result<string, string>)
-  | /// Broadcast current snapshot to team members.
-  BroadcastSnapshot(string)
-  | /// Result of team broadcast.
-  BroadcastResult(result<string, string>)
-  | /// Team state received from another member.
-  TeamStateReceived(result<string, string>)
diff --git a/src/msg/InterfacesMsg.affine b/src/msg/InterfacesMsg.affine
new file mode 100644
index 00000000..ca36667a
--- /dev/null
+++ b/src/msg/InterfacesMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module InterfacesMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/InterfacesMsg.res b/src/msg/InterfacesMsg.res
deleted file mode 100644
index e05edd6e..00000000
--- a/src/msg/InterfacesMsg.res
+++ /dev/null
@@ -1,12 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Interfaces ABI/FFI inventory messages.
-
-open Model
-
-type interfacesMsg =
-  | ScanInterfaces
-  | InterfacesLoaded(result<string, string>)
-  | SetIfaceCategory(interfacesCategory)
-  /// TypeLL cross-panel type check result for ABI/FFI binding types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/K9Msg.affine b/src/msg/K9Msg.affine
new file mode 100644
index 00000000..4e99c7d8
--- /dev/null
+++ b/src/msg/K9Msg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module K9Msg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/K9Msg.res b/src/msg/K9Msg.res
deleted file mode 100644
index d3262034..00000000
--- a/src/msg/K9Msg.res
+++ /dev/null
@@ -1,19 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// K9 contractile messages -- loading, validation, and layout application.
-
-type k9Msg =
-  /// Load a K9 contractile file.
-  | LoadContractile(string)
-  /// Contractile loaded result.
-  | ContractileLoaded(result<string, string>)
-  /// Validate a contractile file.
-  | ValidateContractile(string)
-  /// Validation result.
-  | ContractileValidated(result<string, string>)
-  /// Apply a K9 layout by name.
-  | ApplyLayout(string)
-  /// Layout application result.
-  | LayoutApplied(result<string, string>)
-  /// TypeLL cross-panel type check result for K9 contractile types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/KeybindingsMsg.affine b/src/msg/KeybindingsMsg.affine
new file mode 100644
index 00000000..0c994fb2
--- /dev/null
+++ b/src/msg/KeybindingsMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module KeybindingsMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/KeybindingsMsg.res b/src/msg/KeybindingsMsg.res
deleted file mode 100644
index adc845b4..00000000
--- a/src/msg/KeybindingsMsg.res
+++ /dev/null
@@ -1,17 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Keybindings messages -- rebinding, recording, reset.
-
-open Model
-
-type keybindingsMsg =
-  /// Start recording a new keybinding for an action.
-  | StartRecording(keybindingAction)
-  /// A key was pressed while recording.
-  | RecordKey(keyChord)
-  /// Cancel recording.
-  | CancelRecording
-  /// Reset a single binding to default.
-  | ResetBinding(keybindingAction)
-  /// Reset all bindings to defaults.
-  | ResetAllBindings
diff --git a/src/msg/LanguageForgeMsg.affine b/src/msg/LanguageForgeMsg.affine
new file mode 100644
index 00000000..2ccf5fd2
--- /dev/null
+++ b/src/msg/LanguageForgeMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module LanguageForgeMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/LanguageForgeMsg.res b/src/msg/LanguageForgeMsg.res
deleted file mode 100644
index 2d7ba523..00000000
--- a/src/msg/LanguageForgeMsg.res
+++ /dev/null
@@ -1,19 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Language Forge panel messages -- nextgen-languages portfolio monitoring.
-
-open Model
-
-type languageForgeMsg =
-  /// Load language data (re-initialise from hardcoded assessment).
-  | LoadLanguages
-  /// Change the active category tab.
-  | SetForgeCategory(forgeCategory)
-  /// Update the text filter for language search.
-  | SetForgeFilter(string)
-  /// Change the sort order.
-  | SetForgeSort(forgeSortBy)
-  /// Select a language for detail view (None to deselect).
-  | SelectLanguage(option<string>)
-  /// Toggle the MoSCoW breakdown in the detail view.
-  | ToggleMoscow
diff --git a/src/msg/LevelArchitectMsg.affine b/src/msg/LevelArchitectMsg.affine
new file mode 100644
index 00000000..d252e2cf
--- /dev/null
+++ b/src/msg/LevelArchitectMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module LevelArchitectMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/LevelArchitectMsg.res b/src/msg/LevelArchitectMsg.res
deleted file mode 100644
index 4556c56f..00000000
--- a/src/msg/LevelArchitectMsg.res
+++ /dev/null
@@ -1,59 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Level Architect messages -- grid editing, entity placement, patrol
-/// editing, defence flag toggling, asset browsing, validation, undo/redo,
-/// and level file I/O for the IDApTIK visual level design tool.
-
-open Model
-
-type levelArchitectMsg =
-  /// Switch the active category tab.
-  | SetArchitectCategory(levelArchitectCategory)
-  /// Click a grid cell (place/select/erase based on tool).
-  | ClickGrid(int, int)
-  /// Select an entity by ID.
-  | SelectEntity(string)
-  /// Deselect the current entity.
-  | DeselectEntity
-  /// Select an editor tool.
-  | SelectTool(editorTool)
-  /// Toggle a defence flag on/off.
-  | ToggleDefenceFlag(defenceFlag)
-  /// Set the alert threshold.
-  | SetAlertThreshold(int)
-  /// Browse game assets.
-  | BrowseAssets
-  /// Assets loaded.
-  | AssetsLoaded(result<string, string>)
-  /// Validate the current level.
-  | ValidateLevel
-  /// Validation result.
-  | ValidationResult(result<string, string>)
-  /// Load a level from file.
-  | LoadLevel(string)
-  /// Level loaded.
-  | LevelLoaded(result<string, string>)
-  /// Save the current level.
-  | SaveLevel(string)
-  /// Level saved.
-  | LevelSaved(result<string, string>)
-  /// Export as LevelConfig.res.
-  | ExportLevelConfig
-  /// LevelConfig exported.
-  | LevelConfigExported(result<string, string>)
-  /// Undo the last action.
-  | UndoAction
-  /// Redo the last undone action.
-  | RedoAction
-  /// Toggle grid line visibility.
-  | ToggleGrid
-  /// Toggle patrol path visibility.
-  | TogglePatrolPaths
-  /// Dismiss the error banner.
-  | DismissArchitectError
-  /// TypeLL cross-panel type check result for level data types.
-  | TypeCheckResult(result<string, string>)
-  /// Toggle BoJ routing for UMS validation.
-  | ToggleLaBojRouting
-  /// UMS ABI validation result from BoJ cartridge.
-  | UmsValidationResult(result<string, string>)
diff --git a/src/msg/LoadTesterMsg.affine b/src/msg/LoadTesterMsg.affine
new file mode 100644
index 00000000..906e738b
--- /dev/null
+++ b/src/msg/LoadTesterMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module LoadTesterMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/LoadTesterMsg.res b/src/msg/LoadTesterMsg.res
deleted file mode 100644
index b3af9373..00000000
--- a/src/msg/LoadTesterMsg.res
+++ /dev/null
@@ -1,14 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Load Tester messages -- Phoenix channel stress testing, concurrent simulation.
-
-open Model
-
-type loadTesterMsg =
-  | SetLtTab(loadTestTab)
-  | LtStarted
-  | LtCompleted(result<string, string>)
-  | DismissLtError
-  | RunScenario(string)
-  | RunSelectedScenario
-  | SelectScenario(string)
diff --git a/src/msg/ManifestCoverageMsg.affine b/src/msg/ManifestCoverageMsg.affine
new file mode 100644
index 00000000..16b14c93
--- /dev/null
+++ b/src/msg/ManifestCoverageMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ManifestCoverageMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/ManifestCoverageMsg.res b/src/msg/ManifestCoverageMsg.res
deleted file mode 100644
index c91041ed..00000000
--- a/src/msg/ManifestCoverageMsg.res
+++ /dev/null
@@ -1,10 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Messages for the Manifest Coverage scanner panel.
-
-type manifestCoverageMsg =
-  | SetTab(ManifestCoverageModel.manifestCoverageTab)
-  | ScanRepos
-  | ReposScanned(result<string, string>)
-  | SelectRepo(string)
-  | ClearError
diff --git a/src/msg/MassPanicMsg.affine b/src/msg/MassPanicMsg.affine
new file mode 100644
index 00000000..9f459e95
--- /dev/null
+++ b/src/msg/MassPanicMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MassPanicMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/MassPanicMsg.res b/src/msg/MassPanicMsg.res
deleted file mode 100644
index d5e13d72..00000000
--- a/src/msg/MassPanicMsg.res
+++ /dev/null
@@ -1,77 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Mass-panic panel messages -- assemblyline batch scanning, repo discovery,
-/// incremental BLAKE3, verisim persistence, delta reporting, notifications.
-
-type massPanicMsg =
-  /// Set the repos directory path.
-  | SetReposDirectory(string)
-  /// Discover repos in the directory.
-  | DiscoverRepos
-  /// Repos discovered.
-  | ReposDiscovered(result<string, string>)
-  /// Run assemblyline on all repos.
-  | RunAssemblyline
-  /// Run assemblyline on selected repos only.
-  | RunSelected
-  /// Assemblyline scan result.
-  | AssemblylineResult(result<string, string>)
-  /// Poll scan progress.
-  | PollProgress
-  /// Progress update received.
-  | ProgressUpdate(result<string, string>)
-  /// Toggle incremental scanning (BLAKE3).
-  | ToggleIncremental
-  /// Toggle notification generation.
-  | ToggleNotify
-  /// Set filter mode.
-  | SetFilterMode(MassPanicModel.repoFilterMode)
-  /// Set sort mode.
-  | SetSortMode(MassPanicModel.repoSortMode)
-  /// Set search text.
-  | SetSearchText(string)
-  /// Toggle repo selection by index.
-  | ToggleRepoSelection(int)
-  /// Toggle select all.
-  | ToggleSelectAll
-  /// Toggle delta comparison view.
-  | ToggleDelta
-  /// Load delta comparison between latest two runs.
-  | LoadDelta
-  /// Delta loaded.
-  | DeltaLoaded(result<string, string>)
-  /// Generate notification summary.
-  | GenerateNotification
-  /// Notification generated.
-  | NotificationGenerated(result<string, string>)
-  /// Dismiss error.
-  | DismissMassPanicError
-  // -- Sub-view navigation --
-  /// Switch active sub-view (scan / imaging / temporal).
-  | SwitchView(MassPanicModel.massPanicView)
-  // -- Imaging (fNIRS-style spatial health map) --
-  /// Build system image from latest assemblyline results.
-  | BuildImage
-  /// System image built/loaded.
-  | ImageLoaded(result<string, string>)
-  /// Import a panll.system-image.v0 JSON file.
-  | ImportImageFile
-  /// Image file loaded.
-  | ImageFileLoaded(result<string, string>)
-  // -- Temporal navigation --
-  /// List temporal snapshots.
-  | ListSnapshots
-  /// Snapshots listed.
-  | SnapshotsLoaded(result<string, string>)
-  /// Select a snapshot for comparison (slot 0 or 1).
-  | SelectSnapshot(int, int)
-  /// Diff selected snapshots.
-  | DiffSnapshots
-  /// Diff computed.
-  | DiffLoaded(result<string, string>)
-  /// Take a snapshot of the current image.
-  | TakeSnapshot(string)
-  /// Snapshot taken.
-  | SnapshotTaken(result<string, string>)
-  /// TypeLL cross-panel type check result for batch config types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/MenuBarMsg.affine b/src/msg/MenuBarMsg.affine
new file mode 100644
index 00000000..7c339557
--- /dev/null
+++ b/src/msg/MenuBarMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MenuBarMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/MenuBarMsg.res b/src/msg/MenuBarMsg.res
deleted file mode 100644
index 95a71816..00000000
--- a/src/msg/MenuBarMsg.res
+++ /dev/null
@@ -1,13 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Menu bar messages -- standard application menu interactions.
-
-open Model
-
-type menuBarMsg =
-  /// Open a specific top-level menu dropdown.
-  | OpenMenu(openMenu)
-  /// Close all menu dropdowns.
-  | CloseMenus
-  /// Menu item actions (dispatched from menu items, routed to appropriate sub-updaters).
-  | MenuAction(string)
diff --git a/src/msg/MergeCoordinatorMsg.affine b/src/msg/MergeCoordinatorMsg.affine
new file mode 100644
index 00000000..66e57256
--- /dev/null
+++ b/src/msg/MergeCoordinatorMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MergeCoordinatorMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/MergeCoordinatorMsg.res b/src/msg/MergeCoordinatorMsg.res
deleted file mode 100644
index d63f1d9a..00000000
--- a/src/msg/MergeCoordinatorMsg.res
+++ /dev/null
@@ -1,11 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Merge Coordinator messages -- branch management, conflict resolution, merge queue.
-
-open Model
-
-type mergeCoordinatorMsg =
-  | SetMcTab(mergeCoordinatorTab)
-  | SelectBranch(string)
-  | ResolveConflict(string, string)
-  | DismissMcError
diff --git a/src/msg/MigrationMsg.affine b/src/msg/MigrationMsg.affine
new file mode 100644
index 00000000..31efd291
--- /dev/null
+++ b/src/msg/MigrationMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MigrationMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/MigrationMsg.res b/src/msg/MigrationMsg.res
deleted file mode 100644
index 2e8f0149..00000000
--- a/src/msg/MigrationMsg.res
+++ /dev/null
@@ -1,45 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Migration Observatory messages -- migration health, sessions, submissions, merges.
-
-open Model
-
-type migrationMsg =
-  /// Load migration data from panic-attack / feedback-o-tron.
-  | LoadMigrationData
-  /// Migration data loaded successfully.
-  | MigrationDataLoaded(result<string, string>)
-  /// Set migration category tab.
-  | SetMigrationCategory(migrationCategory)
-  /// Set report type selection.
-  | SetMigrationReportType(migrationReportType)
-  /// Filter repos by text.
-  | SetMigrationFilter(string)
-  /// Begin a new migration observation session.
-  | BeginObservation(string, string)
-  /// Observation session started.
-  | ObservationStarted(result<string, string>)
-  /// End current observation session.
-  | EndObservation(string)
-  /// Observation session ended.
-  | ObservationEnded(result<string, string>)
-  /// Approve a submission in the review queue.
-  | ApproveSubmission(string)
-  /// Reject a submission in the review queue.
-  | RejectSubmission(string)
-  /// Submit all approved submissions.
-  | SubmitApproved
-  /// Submissions sent.
-  | SubmissionsResult(result<string, string>)
-  /// Begin merge resolution.
-  | BeginMergeResolution(string, string)
-  /// Merge resolution started.
-  | MergeResolutionStarted(result<string, string>)
-  /// Rollback a merge session.
-  | RollbackMerge(string)
-  /// Accept a merge session.
-  | AcceptMerge(string)
-  /// Refresh migration health data.
-  | RefreshMigrationHealth
-  /// TypeLL cross-panel type check result for migration types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/MinterMsg.affine b/src/msg/MinterMsg.affine
new file mode 100644
index 00000000..1ddb982c
--- /dev/null
+++ b/src/msg/MinterMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MinterMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/MinterMsg.res b/src/msg/MinterMsg.res
deleted file mode 100644
index 39fc91b4..00000000
--- a/src/msg/MinterMsg.res
+++ /dev/null
@@ -1,40 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Panel Minter messages -- wizard state transitions for creating new panel
-/// modules with accessibility and proof hooks baked in by default.
-
-open Model
-
-type minterMsg =
-  /// Update the panel name (triggers live PascalCase validation).
-  | SetPanelName(string)
-  /// Update the short name (panel bar label, max ~8 chars).
-  | SetShortName(string)
-  /// Update the one-line description.
-  | SetDescription(string)
-  /// Update the icon identifier.
-  | SetIcon(string)
-  /// Select the backend kind (NoBackend, FilesystemBackend, HttpBackend, DatabaseBackend).
-  | SetBackendKind(panelBackendKind)
-  /// Select the accessibility level (Standard or Enhanced).
-  | SetAccessibility(accessibilityLevel)
-  /// Update the endpoint URL (relevant for HTTP/Database backends).
-  | SetEndpoint(string)
-  /// Add a new empty capability declaration.
-  | AddCapability
-  /// Remove a capability by index.
-  | RemoveCapability(int)
-  /// Advance to the next wizard step.
-  | NextStep
-  /// Go back to the previous wizard step.
-  | PrevStep
-  /// Trigger the minting operation via Gossamer backend.
-  | ExecuteMint
-  /// Result of the minting operation (success or error).
-  | MintResult(result<string, string>)
-  /// Reset the minter to its initial state for another panel.
-  | ResetMinter
-  /// Export current minter config to ENSAID_CONFIG.a2ml (adds panel entry).
-  | ExportToEnsaidConfig
-  /// TypeLL cross-panel type check result for panel spec types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/MultiplayerMonitorMsg.affine b/src/msg/MultiplayerMonitorMsg.affine
new file mode 100644
index 00000000..303de73c
--- /dev/null
+++ b/src/msg/MultiplayerMonitorMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MultiplayerMonitorMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/MultiplayerMonitorMsg.res b/src/msg/MultiplayerMonitorMsg.res
deleted file mode 100644
index 79400168..00000000
--- a/src/msg/MultiplayerMonitorMsg.res
+++ /dev/null
@@ -1,43 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Multiplayer Monitor messages -- WebSocket lifecycle, player state,
-/// channel subscriptions, state diffs, device locks, latency, and
-/// reconnection testing for the IDApTIK Phoenix sync server.
-
-open Model
-
-type multiplayerMonitorMsg =
-  /// Switch the active category tab.
-  | SetMultiplayerCategory(multiplayerCategory)
-  /// Connect to the Phoenix sync server.
-  | ConnectServer
-  /// Disconnect from the sync server.
-  | DisconnectServer
-  /// Connection result.
-  | ConnectionResult(result<string, string>)
-  /// Disconnection result.
-  | DisconnectionResult(result<string, string>)
-  /// Refresh the full multiplayer state.
-  | RefreshState
-  /// Multiplayer state received.
-  | StateReceived(result<string, string>)
-  /// Refresh state diffs.
-  | RefreshDiffs
-  /// State diffs received.
-  | DiffsReceived(result<string, string>)
-  /// Select a player by ID.
-  | SelectPlayer(string)
-  /// Deselect the current player.
-  | DeselectPlayer
-  /// Toggle spectator visibility.
-  | ToggleSpectators
-  /// Toggle auto-reconnect.
-  | ToggleAutoReconnect
-  /// Run a reconnection test.
-  | ReconnectionTest
-  /// Reconnection test result.
-  | ReconnectionTestResult(result<string, string>)
-  /// Dismiss the error banner.
-  | DismissMultiplayerError
-  /// TypeLL cross-panel type check result for Phoenix types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/MyLangMsg.affine b/src/msg/MyLangMsg.affine
new file mode 100644
index 00000000..86d26f9d
--- /dev/null
+++ b/src/msg/MyLangMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module MyLangMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/MyLangMsg.res b/src/msg/MyLangMsg.res
deleted file mode 100644
index 6808aa32..00000000
--- a/src/msg/MyLangMsg.res
+++ /dev/null
@@ -1,39 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// My-Lang AI-native language messages.
-
-open Model
-
-type myLangMsg =
-  /// Set the active category tab.
-  | SetMlCategory(myLangCategory)
-  /// Switch the active dialect.
-  | SetDialect(myLangDialect)
-  /// Check whether CLI binary is available.
-  | CheckMlCli
-  /// CLI check result.
-  | MlCliResult(result<string, string>)
-  /// Update editor content.
-  | UpdateEditor(string)
-  /// Compile the current editor content.
-  | Compile
-  /// Compilation result from Gossamer backend.
-  | CompileResult(result<string, string>)
-  /// Update REPL input.
-  | UpdateReplInput(string)
-  /// Evaluate the current REPL input.
-  | EvalRepl
-  /// REPL evaluation result from Gossamer backend.
-  | ReplResult(result<string, string>)
-  /// TypeLL cross-panel type check result for the last compilation.
-  | MlTypeCheckResult(result<string, string>)
-  /// Connect to my-lang LSP server.
-  | ConnectLsp
-  /// LSP connection result.
-  | LspConnected(result<string, string>)
-  /// LSP diagnostics received for current editor content.
-  | LspDiagnosticsReceived(array<string>)
-  /// Request diagnostics from LSP.
-  | RequestDiagnostics
-  /// Toggle BoJ routing for My-Lang operations (lsp-mcp cartridge).
-  | ToggleMyLangBojRouting
diff --git a/src/msg/NetworkTopologyMsg.affine b/src/msg/NetworkTopologyMsg.affine
new file mode 100644
index 00000000..4f73a760
--- /dev/null
+++ b/src/msg/NetworkTopologyMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module NetworkTopologyMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/NetworkTopologyMsg.res b/src/msg/NetworkTopologyMsg.res
deleted file mode 100644
index 4f48a4b4..00000000
--- a/src/msg/NetworkTopologyMsg.res
+++ /dev/null
@@ -1,39 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Network Topology messages -- topology reading, device selection,
-/// packet flow animation, DNS browsing, and display toggles for the
-/// IDApTIK in-game network topology viewer.
-
-open Model
-
-type networkTopologyMsg =
-  /// Switch the active category tab.
-  | SetTopologyCategory(networkTopologyCategory)
-  /// Read the network topology from the running game.
-  | RefreshTopology
-  /// Topology data received.
-  | TopologyReceived(result<string, string>)
-  /// Select a device by ID.
-  | SelectDevice(string)
-  /// Deselect the current device.
-  | DeselectDevice
-  /// Read DNS resolution table.
-  | RefreshDns
-  /// DNS data received.
-  | DnsReceived(result<string, string>)
-  /// Toggle packet flow animation.
-  | TogglePacketAnimation
-  /// Packet flow data received.
-  | PacketFlowReceived(result<string, string>)
-  /// Toggle device name labels.
-  | ToggleLabels
-  /// Toggle security level indicators.
-  | ToggleSecurityLevels
-  /// Export topology as SVG.
-  | ExportTopologySvg
-  /// SVG exported (or failed).
-  | TopologySvgExported(result<string, string>)
-  /// Dismiss the error banner.
-  | DismissTopoError
-  /// TypeLL cross-panel type check result for topology types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/NeurosymBridgeMsg.affine b/src/msg/NeurosymBridgeMsg.affine
new file mode 100644
index 00000000..a294b1f7
--- /dev/null
+++ b/src/msg/NeurosymBridgeMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module NeurosymBridgeMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/NeurosymBridgeMsg.res b/src/msg/NeurosymBridgeMsg.res
deleted file mode 100644
index 8e688a93..00000000
--- a/src/msg/NeurosymBridgeMsg.res
+++ /dev/null
@@ -1,11 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Neurosymbolic Bridge messages -- guard AI behaviour reasoning via ECHIDNA.
-
-open Model
-
-type neurosymBridgeMsg =
-  | SetNbTab(neurosymBridgeTab)
-  | NbStarted
-  | NbCompleted(result<string, string>)
-  | DismissNbError
diff --git a/src/msg/ObservabilityMsg.affine b/src/msg/ObservabilityMsg.affine
new file mode 100644
index 00000000..e516f485
--- /dev/null
+++ b/src/msg/ObservabilityMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ObservabilityMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/ObservabilityMsg.res b/src/msg/ObservabilityMsg.res
deleted file mode 100644
index d248ba93..00000000
--- a/src/msg/ObservabilityMsg.res
+++ /dev/null
@@ -1,20 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Observability messages -- SARIF export and OpenTelemetry trace collection
-/// via the observe-mcp BoJ cartridge.
-
-type observabilityMsg =
-  /// Export a panic-attack report as SARIF via observe-mcp.
-  | ExportSarifViaObserveMcp(string)
-  /// SARIF export result.
-  | SarifExportResult(result<string, string>)
-  /// Export BoJ latency entries as OpenTelemetry traces.
-  | ExportOtelTraces
-  /// OTEL trace export result.
-  | OtelExportResult(result<string, string>)
-  /// Fetch observability summary (active exporters, trace counts).
-  | FetchObservabilitySummary
-  /// Observability summary result.
-  | ObservabilitySummaryResult(result<string, string>)
-  /// TypeLL cross-panel type check result for observability types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/ObservatoryMsg.affine b/src/msg/ObservatoryMsg.affine
new file mode 100644
index 00000000..85943b13
--- /dev/null
+++ b/src/msg/ObservatoryMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ObservatoryMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/ObservatoryMsg.res b/src/msg/ObservatoryMsg.res
deleted file mode 100644
index 21fe36e0..00000000
--- a/src/msg/ObservatoryMsg.res
+++ /dev/null
@@ -1,15 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Observatory messages -- integrative dashboard health and resource monitoring.
-
-open Model
-
-type observatoryMsg =
-  /// Switch the active tab.
-  | SetObsTab(observatoryTab)
-  /// Start a health check sweep across all panels.
-  | RunHealthCheck
-  /// Health check completed with resource snapshots.
-  | HealthCheckComplete(result<array<resourceSnapshot>, string>)
-  /// Dismiss error banner.
-  | DismissObsError
diff --git a/src/msg/Oo7Msg.affine b/src/msg/Oo7Msg.affine
new file mode 100644
index 00000000..1ac6edce
--- /dev/null
+++ b/src/msg/Oo7Msg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Oo7Msg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/Oo7Msg.res b/src/msg/Oo7Msg.res
deleted file mode 100644
index a9cc75a4..00000000
--- a/src/msg/Oo7Msg.res
+++ /dev/null
@@ -1,14 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Messages for the 007 Toolchain panel.
-
-type oo7Msg =
-  | SetCategory(Oo7ToolchainModel.oo7Category)
-  | ConnectDaemon
-  | DisconnectDaemon
-  | SetPermissions(Oo7ToolchainModel.daemonPermission)
-  | RunStage(Oo7ToolchainModel.oo7Stage)
-  | StageResult(Oo7ToolchainModel.oo7Stage, result<string, string>)
-  | UpdateSource(string)
-  | LoadToolchain
-  | ClearError
diff --git a/src/msg/OrbitalMsg.affine b/src/msg/OrbitalMsg.affine
new file mode 100644
index 00000000..8ea1b117
--- /dev/null
+++ b/src/msg/OrbitalMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module OrbitalMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/OrbitalMsg.res b/src/msg/OrbitalMsg.res
deleted file mode 100644
index 77a9ce49..00000000
--- a/src/msg/OrbitalMsg.res
+++ /dev/null
@@ -1,8 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Orbital stability messages -- stability, divergence, and drift aura.
-
-type orbitalMsg =
-  | UpdateStability(float)
-  | UpdateDivergence(float)
-  | SetDriftAura(string)
diff --git a/src/msg/PaneAMsg.affine b/src/msg/PaneAMsg.affine
new file mode 100644
index 00000000..29a07b16
--- /dev/null
+++ b/src/msg/PaneAMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PaneAMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/PaneAMsg.res b/src/msg/PaneAMsg.res
deleted file mode 100644
index 51d5d823..00000000
--- a/src/msg/PaneAMsg.res
+++ /dev/null
@@ -1,7 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Pane-A (Ambient) Message Types.
-
-type paneAMsg =
-  | ToggleExpansion
-  | UpdateMetrics(float, bool, Model.humidityLevel) // index, antiInflammatory, humidity
diff --git a/src/msg/PaneLMsg.affine b/src/msg/PaneLMsg.affine
new file mode 100644
index 00000000..7c2097be
--- /dev/null
+++ b/src/msg/PaneLMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PaneLMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/PaneLMsg.res b/src/msg/PaneLMsg.res
deleted file mode 100644
index 482cee65..00000000
--- a/src/msg/PaneLMsg.res
+++ /dev/null
@@ -1,15 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Messages for Pane-L (Symbolic) -- constraint CRUD and editor state.
-
-open Model
-
-type paneLMsg =
-  | AddConstraint(symbolicConstraint)
-  | RemoveConstraint(string)
-  | ToggleConstraint(string)
-  | PinConstraint(string)
-  | UpdateEditorContent(string)
-  | SetActiveConstraint(option<string>)
-  /// TypeLL inferred type for the current editor expression.
-  | ConstraintTypeInferred(result<string, string>)
diff --git a/src/msg/PaneNMsg.affine b/src/msg/PaneNMsg.affine
new file mode 100644
index 00000000..90d4bca0
--- /dev/null
+++ b/src/msg/PaneNMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PaneNMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/PaneNMsg.res b/src/msg/PaneNMsg.res
deleted file mode 100644
index 83b9882e..00000000
--- a/src/msg/PaneNMsg.res
+++ /dev/null
@@ -1,20 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Messages for Pane-N (Neural) -- token stream and filter controls.
-
-open Model
-
-type paneNMsg =
-  | ReceiveToken(neuralToken)
-  | ClearTokens
-  | SetInferenceActive(bool)
-  | UpdateMonologue(string)
-  | UpdateAgency(agencyState)
-  /// Token stream filter controls.
-  | ToggleSourceFilter(tokenSource)
-  | ToggleCategoryFilter(tokenCategory)
-  | TogglePhaseFilter(oodaPhase)
-  | SetConfidenceThreshold(float)
-  | ToggleValidatedOnly
-  | ToggleProofOnly
-  | ClearFilters
diff --git a/src/msg/PaneWMsg.affine b/src/msg/PaneWMsg.affine
new file mode 100644
index 00000000..59f66604
--- /dev/null
+++ b/src/msg/PaneWMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PaneWMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/PaneWMsg.res b/src/msg/PaneWMsg.res
deleted file mode 100644
index 0b7b9faa..00000000
--- a/src/msg/PaneWMsg.res
+++ /dev/null
@@ -1,39 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Messages for Pane-W (World/Barycentre) -- security and event chain pane that
-/// aggregates panic-attacker data and renders the central canvas.
-
-type paneWMsg =
-  | UpdateContent(string)
-  | ToggleTopologyView
-  | SetValidatedOutput(string)
-  | UpdateEventChainInput(string)
-  | ImportEventChain
-  | ImportEventChainFile
-  | ImportPanicAttackerReportFile
-  | ImportLatestPanicAttacker
-  | CheckPanicAttackerCapability
-  | EventChainFileLoaded(result<string, string>)
-  | PanicAttackerReportPathLoaded(result<string, string>)
-  | PanicAttackerImportLoaded(result<string, string>)
-  | PanicAttackerCapabilityLoaded(result<string, string>)
-  /// Security menu interactions and panic-attacker command lifecycle
-  | ToggleSecurityTools
-  | OpenSecurityDialog(string)
-  | CloseSecurityDialog
-  | ToggleSecurityStudyView
-  | SetSecurityTarget(string)
-  | SetSecurityTimeline(string)
-  | SetSecurityAxes(string)
-  | SetSecurityIntensity(string)
-  | SetSecurityDuration(string)
-  | LoadSecurityTimelineFile
-  | SecurityTimelineFileLoaded(result<string, string>)
-  | LaunchSecurityAmbush
-  | SecurityAmbushResult(result<string, string>)
-  | ClearEventChain
-  /// Barycentre tour messages
-  | StartTour
-  | NextTourStep
-  | PrevTourStep
-  | CloseTour
diff --git a/src/msg/PanelBusMsg.affine b/src/msg/PanelBusMsg.affine
new file mode 100644
index 00000000..be5ccb84
--- /dev/null
+++ b/src/msg/PanelBusMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PanelBusMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/PanelBusMsg.res b/src/msg/PanelBusMsg.res
deleted file mode 100644
index 7253e755..00000000
--- a/src/msg/PanelBusMsg.res
+++ /dev/null
@@ -1,11 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Messages for the Panel Bus -- subscriber management.
-
-type panelBusMsg =
-  /// Subscribe a clade to specific topics.
-  | BusSubscribe(string, array<PanelBus.eventTopic>)
-  /// Unsubscribe a clade from the bus.
-  | BusUnsubscribe(string)
-  /// Clear the event history ring buffer.
-  | BusClearHistory
diff --git a/src/msg/PanelSwitcherMsg.affine b/src/msg/PanelSwitcherMsg.affine
new file mode 100644
index 00000000..16930f3b
--- /dev/null
+++ b/src/msg/PanelSwitcherMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PanelSwitcherMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/PanelSwitcherMsg.res b/src/msg/PanelSwitcherMsg.res
deleted file mode 100644
index bf4aa6b1..00000000
--- a/src/msg/PanelSwitcherMsg.res
+++ /dev/null
@@ -1,17 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Panel switcher messages -- unified panel navigation replacing ad-hoc
-/// `visible: bool` toggles on individual overlays.
-
-open Model
-
-type panelSwitcherMsg =
-  /// Toggle a panel: opens it if closed, closes if already active.
-  | TogglePanel(panelId)
-  /// Close whatever panel is currently active (Escape key handler).
-  | ClosePanels
-  /// Expand a group in the sidebar (by kind name, e.g. "ai", "bridge").
-  /// Clicking the same group again collapses it.
-  | ExpandGroup(string)
-  /// Health check result for a panel's backend service.
-  | HealthCheckResult(panelId, result<string, string>)
diff --git a/src/msg/PanicAttackMsg.affine b/src/msg/PanicAttackMsg.affine
new file mode 100644
index 00000000..17b52f04
--- /dev/null
+++ b/src/msg/PanicAttackMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PanicAttackMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/PanicAttackMsg.res b/src/msg/PanicAttackMsg.res
deleted file mode 100644
index b28e93a1..00000000
--- a/src/msg/PanicAttackMsg.res
+++ /dev/null
@@ -1,50 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// panic-attack panel messages -- scanning, report management, filtering,
-/// comparison, and capability probing for the stress testing panel.
-
-type panicAttackMsg =
-  /// Probe whether panic-attack binary is available.
-  | CheckCapability
-  /// Capability probe result.
-  | CapabilityLoaded(result<string, string>)
-  /// Set the target path for scanning.
-  | SetTargetPath(string)
-  /// Run a static analysis scan (assail).
-  | RunAssail
-  /// Assail scan result.
-  | AssailResult(result<string, string>)
-  /// Run a full assault (static + stress).
-  | RunAssault
-  /// Assault result.
-  | AssaultResult(result<string, string>)
-  /// Load saved reports list.
-  | LoadReports
-  /// Reports list loaded.
-  | ReportsLoaded(result<string, string>)
-  /// View a specific report.
-  | ViewReport(string)
-  /// Report loaded.
-  | ReportLoaded(result<string, string>)
-  /// Compare two reports.
-  | CompareReports(string, string)
-  /// Comparison result.
-  | ComparisonLoaded(result<string, string>)
-  /// Export report as SARIF.
-  | ExportSarif(string)
-  /// SARIF export result.
-  | SarifExported(result<string, string>)
-  /// Export report as PanLL event chain.
-  | ExportEventChain(string)
-  /// Event chain export result.
-  | EventChainExported(result<string, string>)
-  /// Set the active category filter.
-  | SetPanicCategory(PanicAttackModel.panicCategory)
-  /// Set the text filter.
-  | SetPanicFilter(string)
-  /// Toggle report diff view.
-  | ToggleDiffView
-  /// Dismiss error.
-  | DismissError
-  /// TypeLL cross-panel type check result for attack vector types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/PatternDiagMsg.affine b/src/msg/PatternDiagMsg.affine
new file mode 100644
index 00000000..8bf39d23
--- /dev/null
+++ b/src/msg/PatternDiagMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PatternDiagMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/PatternDiagMsg.res b/src/msg/PatternDiagMsg.res
deleted file mode 100644
index e55eecb1..00000000
--- a/src/msg/PatternDiagMsg.res
+++ /dev/null
@@ -1,22 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Code MRI — Pattern Diagnostics Messages (Layer 3)
-
-open PatternDiagModel
-
-/// Messages for the pattern diagnostics panel.
-type patternDiagMsg =
-  /// Run all pattern detectors against the current timeline.
-  | AnalysePatterns
-  /// Pattern analysis completed with results.
-  | PatternsDetected(array<patternInstance>)
-  /// Acknowledge/dismiss a specific pattern.
-  | AcknowledgePattern(string)
-  /// Toggle the expanded state of the panel.
-  | TogglePatternPanel
-  /// Change the minimum severity filter.
-  | SetMinPatternSeverity(patternSeverity)
-  /// Toggle gamification on/off.
-  | ToggleGamification
-  /// Reset gamification profile (requires confirmation).
-  | ResetProfile
diff --git a/src/msg/PerformanceProfilerMsg.affine b/src/msg/PerformanceProfilerMsg.affine
new file mode 100644
index 00000000..739684b8
--- /dev/null
+++ b/src/msg/PerformanceProfilerMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PerformanceProfilerMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/PerformanceProfilerMsg.res b/src/msg/PerformanceProfilerMsg.res
deleted file mode 100644
index 940939bf..00000000
--- a/src/msg/PerformanceProfilerMsg.res
+++ /dev/null
@@ -1,13 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Performance Profiler messages -- frame budget, GC pressure, memory flamegraphs.
-
-open Model
-
-type performanceProfilerMsg =
-  | SetPpTab(performanceTab)
-  | PpStarted
-  | PpCompleted(result<string, string>)
-  | DismissPpError
-  | StartProfiling
-  | StopProfiling
diff --git a/src/msg/PlaygroundsMsg.affine b/src/msg/PlaygroundsMsg.affine
new file mode 100644
index 00000000..78050cdf
--- /dev/null
+++ b/src/msg/PlaygroundsMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PlaygroundsMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/PlaygroundsMsg.res b/src/msg/PlaygroundsMsg.res
deleted file mode 100644
index 44d25bd4..00000000
--- a/src/msg/PlaygroundsMsg.res
+++ /dev/null
@@ -1,25 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Playgrounds code sandbox messages.
-
-open Model
-
-type playgroundsMsg =
-  | SetPlayCategory(playgroundsCategory)
-  | SetLanguage(playgroundLanguage)
-  | UpdateCode(string)
-  | Execute
-  | ExecuteResult(result<string, string>)
-  | LoadSnippet(string)
-  /// NQC console: update query input text.
-  | SetNqcInput(string)
-  /// NQC console: switch query language (VCL/KQL/GQL).
-  | SetNqcLanguage(playgroundLanguage)
-  /// NQC console: execute the current NQC query.
-  | ExecuteNqc
-  /// NQC console: query result received.
-  | NqcResult(result<string, string>)
-  /// NQC console: clear query history.
-  | ClearNqcHistory
-  /// TypeLL cross-panel type check result for sandbox code types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/PlaytestRecorderMsg.affine b/src/msg/PlaytestRecorderMsg.affine
new file mode 100644
index 00000000..b4cbcefd
--- /dev/null
+++ b/src/msg/PlaytestRecorderMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PlaytestRecorderMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/PlaytestRecorderMsg.res b/src/msg/PlaytestRecorderMsg.res
deleted file mode 100644
index b20d17c0..00000000
--- a/src/msg/PlaytestRecorderMsg.res
+++ /dev/null
@@ -1,11 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Playtest Recorder messages -- record + replay sessions, annotate moments.
-
-open Model
-
-type playtestRecorderMsg =
-  | SetPrCategory(playtestRecorderCategory)
-  | PrStarted
-  | PrCompleted(result<string, string>)
-  | DismissPrError
diff --git a/src/msg/PlazaMsg.affine b/src/msg/PlazaMsg.affine
new file mode 100644
index 00000000..5bb67ffe
--- /dev/null
+++ b/src/msg/PlazaMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module PlazaMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/PlazaMsg.res b/src/msg/PlazaMsg.res
deleted file mode 100644
index def7b4c2..00000000
--- a/src/msg/PlazaMsg.res
+++ /dev/null
@@ -1,22 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Palimpsest Plaza panel messages -- PMPL licensing adoption, compliance
-/// scanning, and governance. The plaza backend scans local filesystem.
-
-open Model
-
-type plazaMsg =
-  /// Load adoption statistics across the ecosystem.
-  | LoadAdoptionStats
-  /// Adoption stats loaded (or failed).
-  | AdoptionStatsLoaded(result<string, string>)
-  /// Scan a specific repo for compliance.
-  | ScanRepo(string)
-  /// Repo scan result.
-  | RepoScanned(result<string, string>)
-  /// Change the active category tab.
-  | SetPlazaCategory(plazaCategory)
-  /// Update the text filter.
-  | SetPlazaFilter(string)
-  /// TypeLL cross-panel type check result for compliance spec types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/ProofsBridgeMsg.affine b/src/msg/ProofsBridgeMsg.affine
new file mode 100644
index 00000000..bf5b9efe
--- /dev/null
+++ b/src/msg/ProofsBridgeMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ProofsBridgeMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/ProofsBridgeMsg.res b/src/msg/ProofsBridgeMsg.res
deleted file mode 100644
index 81ec9161..00000000
--- a/src/msg/ProofsBridgeMsg.res
+++ /dev/null
@@ -1,11 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Proofs Bridge messages -- proven repo formal verification integration.
-
-open Model
-
-type proofsBridgeMsg =
-  | SetPrBTab(proofsBridgeTab)
-  | PrBStarted
-  | PrBCompleted(result<string, string>)
-  | DismissPrBError
diff --git a/src/msg/ProtocolBridgeMsg.affine b/src/msg/ProtocolBridgeMsg.affine
new file mode 100644
index 00000000..6cc8733b
--- /dev/null
+++ b/src/msg/ProtocolBridgeMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ProtocolBridgeMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/ProtocolBridgeMsg.res b/src/msg/ProtocolBridgeMsg.res
deleted file mode 100644
index 9b2c841b..00000000
--- a/src/msg/ProtocolBridgeMsg.res
+++ /dev/null
@@ -1,11 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Protocol Bridge messages -- multiplayer sync protocol analysis.
-
-open Model
-
-type protocolBridgeMsg =
-  | SetPbTab(protocolBridgeTab)
-  | PbStarted
-  | PbCompleted(result<string, string>)
-  | DismissPbError
diff --git a/src/msg/ProtocolSquisherMsg.affine b/src/msg/ProtocolSquisherMsg.affine
new file mode 100644
index 00000000..421c2053
--- /dev/null
+++ b/src/msg/ProtocolSquisherMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ProtocolSquisherMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/ProtocolSquisherMsg.res b/src/msg/ProtocolSquisherMsg.res
deleted file mode 100644
index d462bb49..00000000
--- a/src/msg/ProtocolSquisherMsg.res
+++ /dev/null
@@ -1,33 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Protocol-Squisher format analysis messages.
-
-open Model
-
-type protocolSquisherMsg =
-  /// Set the active category tab.
-  | SetPsCategory(protocolSquisherCategory)
-  /// Check whether CLI binary is available.
-  | CheckPsCli
-  /// CLI check result.
-  | PsCliResult(result<string, string>)
-  /// Update the analyse file path input.
-  | SetAnalyseInput(string)
-  /// Run analysis on the current input path.
-  | RunAnalysis
-  /// Analysis result from Gossamer backend.
-  | AnalysisResult(result<string, string>)
-  /// Update the left comparison input.
-  | SetCompareLeft(string)
-  /// Update the right comparison input.
-  | SetCompareRight(string)
-  /// Run comparison between left and right schemas.
-  | RunComparison
-  /// Comparison result from Gossamer backend.
-  | ComparisonResult(result<string, string>)
-  /// TypeLL cross-panel type check result for the last schema analysis.
-  | SchemaTypeCheckResult(result<string, string>)
-  /// Import IR analysis results as Panel-L constraints.
-  | ImportIrConstraints
-  /// Toggle transport compatibility display in Panel-W.
-  | ToggleTransportDisplay
diff --git a/src/msg/ProvenAdoptionMsg.affine b/src/msg/ProvenAdoptionMsg.affine
new file mode 100644
index 00000000..3a6511eb
--- /dev/null
+++ b/src/msg/ProvenAdoptionMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ProvenAdoptionMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/ProvenAdoptionMsg.res b/src/msg/ProvenAdoptionMsg.res
deleted file mode 100644
index b893a657..00000000
--- a/src/msg/ProvenAdoptionMsg.res
+++ /dev/null
@@ -1,10 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Messages for the Proven Adoption scanner panel.
-
-type provenAdoptionMsg =
-  | SetTab(ProvenAdoptionModel.provenAdoptionTab)
-  | ScanRepos
-  | ReposScanned(result<string, string>)
-  | SelectRepo(string)
-  | ClearError
diff --git a/src/msg/ProvenanceMsg.affine b/src/msg/ProvenanceMsg.affine
new file mode 100644
index 00000000..07f32d70
--- /dev/null
+++ b/src/msg/ProvenanceMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ProvenanceMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/ProvenanceMsg.res b/src/msg/ProvenanceMsg.res
deleted file mode 100644
index b066c077..00000000
--- a/src/msg/ProvenanceMsg.res
+++ /dev/null
@@ -1,25 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Provenance Map messages -- code trust surface lifecycle.
-/// The provenance map is ambient (always visible), not a panel overlay.
-/// These messages handle file analysis, palette switching, and hostile UX.
-
-open Model
-
-type provenanceMsg =
-  /// Analyse a file's provenance via git blame.
-  | AnalyseFile(string, string) // repoPath, filePath
-  /// Blame analysis result.
-  | AnalysisResult(result<string, string>)
-  /// Unsound marker scan result.
-  | UnsoundScanResult(result<string, string>)
-  /// Switch the accessibility palette.
-  | SetPalette(accessibilityPalette)
-  /// Toggle hostile UX suppression (the "pull the battery" action).
-  | ToggleHostileUx
-  /// Acknowledge a specific unreviewed AI region (dismiss its warning).
-  | AcknowledgeRegion(string, int) // filePath, startLine
-  /// Enable or disable the provenance overlay entirely.
-  | SetEnabled(bool)
-  /// TypeLL cross-panel type check result for provenance types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/ProvisionerMsg.affine b/src/msg/ProvisionerMsg.affine
new file mode 100644
index 00000000..dd4eff52
--- /dev/null
+++ b/src/msg/ProvisionerMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ProvisionerMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/ProvisionerMsg.res b/src/msg/ProvisionerMsg.res
deleted file mode 100644
index ac165b5f..00000000
--- a/src/msg/ProvisionerMsg.res
+++ /dev/null
@@ -1,56 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Provisioner messages -- portfolio bundling, panel configuration,
-/// installation lifecycle, and isolation tier management.
-
-open Model
-
-type provisionerMsg =
-  /// Switch category tab.
-  | SetProvCategory(provisionerCategory)
-  /// Update filter text.
-  | SetProvFilter(string)
-  /// Install all panels in a portfolio.
-  | InstallPortfolio(string)
-  /// Install a single panel.
-  | InstallPanel(string)
-  /// Remove a single panel (clean uninstall for pods).
-  | RemovePanel(string)
-  /// Installation result for a panel.
-  | InstallResult(string, result<string, string>)
-  /// Removal result for a panel.
-  | RemoveResult(string, result<string, string>)
-  /// Toggle a panel's enabled state.
-  | TogglePanelEnabled(string)
-  /// Set a panel's isolation tier.
-  | SetPanelIsolation(string, panelIsolation)
-  /// Update custom portfolio name.
-  | SetCustomName(string)
-  /// Toggle a panel in/out of the custom portfolio.
-  | ToggleCustomPanel(string)
-  /// Save the custom portfolio.
-  | SaveCustomPortfolio
-  /// Export panel configs and portfolios to ENSAID_CONFIG.a2ml.
-  | ExportProvisionerConfig
-  /// Toggle plugin auto-start setting.
-  | TogglePlugin(string, bool)
-  /// Install a plugin bundle.
-  | InstallPluginBundle(string)
-  /// Install a single plugin.
-  | InstallPlugin(string)
-  /// Remove a single plugin.
-  | RemovePlugin(string)
-  /// Installation result for a plugin.
-  | PluginInstallResult(string, result<string, string>)
-  /// Removal result for a plugin.
-  | PluginRemoveResult(string, result<string, string>)
-  /// Update custom plugin bundle name.
-  | SetCustomPluginBundleName(string)
-  /// Toggle a plugin in/out of the custom plugin bundle.
-  | ToggleCustomPluginBundle(string)
-  /// Save the custom plugin bundle.
-  | SaveCustomPluginBundle
-  /// Create a new deployment bundle.
-  | CreateDeploymentBundle(deploymentBundle)
-  /// TypeLL cross-panel type check result for portfolio config types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/RegressionGuardMsg.affine b/src/msg/RegressionGuardMsg.affine
new file mode 100644
index 00000000..98913087
--- /dev/null
+++ b/src/msg/RegressionGuardMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module RegressionGuardMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/RegressionGuardMsg.res b/src/msg/RegressionGuardMsg.res
deleted file mode 100644
index bfcec9ea..00000000
--- a/src/msg/RegressionGuardMsg.res
+++ /dev/null
@@ -1,16 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Regression Guard messages -- snapshot comparison and golden-file testing.
-
-open Model
-
-type regressionGuardMsg =
-  | SetRgTab(regressionTab)
-  | RgStarted
-  | RgCompleted(result<string, string>)
-  | DismissRgError
-  | CheckAll
-  | UpdateAll
-  | UpdateSnapshot(string)
-  | ViewDiff(string)
-  | ToggleAutoUpdate
diff --git a/src/msg/ReleaseManagerMsg.affine b/src/msg/ReleaseManagerMsg.affine
new file mode 100644
index 00000000..309ec8c1
--- /dev/null
+++ b/src/msg/ReleaseManagerMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ReleaseManagerMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/ReleaseManagerMsg.res b/src/msg/ReleaseManagerMsg.res
deleted file mode 100644
index fb0b66c7..00000000
--- a/src/msg/ReleaseManagerMsg.res
+++ /dev/null
@@ -1,45 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Release Manager messages -- version bumping, changelog generation,
-/// artifact building, signing, publishing, and channel management for
-/// the IDApTIK release distribution panel.
-
-open Model
-
-type releaseManagerMsg =
-  /// Switch the active category tab.
-  | SetReleaseCategory(releaseManagerCategory)
-  /// Bump the version (patch, minor, major).
-  | BumpVersion(string)
-  /// Version bumped (or failed).
-  | VersionBumped(result<string, string>)
-  /// Select a release to view details.
-  | SelectRelease(string)
-  /// Generate changelog from git history.
-  | GenerateChangelog
-  /// Changelog generated (or failed).
-  | ChangelogGenerated(result<string, string>)
-  /// Toggle auto-changelog generation.
-  | ToggleAutoChangelog
-  /// Toggle a platform target for artifact building.
-  | TogglePlatform(platformTarget)
-  /// Build artifacts for enabled platforms.
-  | BuildArtifacts
-  /// Artifacts built (or failed).
-  | ArtifactsBuilt(result<string, string>)
-  /// Publish a release.
-  | PublishRelease
-  /// Release published (or failed).
-  | ReleasePublished(result<string, string>)
-  /// Set the release channel.
-  | SetChannel(releaseChannel)
-  /// Toggle artifact signing.
-  | ToggleSignArtifacts
-  /// Load release history.
-  | LoadReleases
-  /// Releases loaded (or failed).
-  | ReleasesLoaded(result<string, string>)
-  /// Dismiss the error banner.
-  | DismissReleaseError
-  /// TypeLL cross-panel type check result for release types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/RepoLoaderMsg.affine b/src/msg/RepoLoaderMsg.affine
new file mode 100644
index 00000000..2712443c
--- /dev/null
+++ b/src/msg/RepoLoaderMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module RepoLoaderMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/RepoLoaderMsg.res b/src/msg/RepoLoaderMsg.res
deleted file mode 100644
index f45d3537..00000000
--- a/src/msg/RepoLoaderMsg.res
+++ /dev/null
@@ -1,36 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Repo Loader messages -- repository scanning, panel configuration,
-/// directory picking, and recent repo management.
-
-open Model
-
-type repoLoaderMsg =
-  /// Open directory picker to select a repo.
-  | PickRepoDirectory
-  /// Directory picked (or cancelled).
-  | DirectoryPicked(result<string, string>)
-  /// Scan a repo by path.
-  | ScanRepo(string)
-  /// Scan result received.
-  | ScanResult(result<string, string>)
-  /// Toggle a panel suggestion's enabled state.
-  | ToggleSuggestion(string)
-  /// Save panel configuration to PANELS.a2ml.
-  | SavePanels
-  /// Panels saved.
-  | PanelsSaved(result<string, string>)
-  /// Load recent repos list.
-  | LoadRecent
-  /// Recent repos loaded.
-  | RecentLoaded(result<string, string>)
-  /// Search the git-private-farm.
-  | SearchFarm(string)
-  /// Farm search results.
-  | FarmSearchResult(result<string, string>)
-  /// Update the search text.
-  | SetRepoSearchText(string)
-  /// Switch category tab.
-  | SetRepoCategory(repoLoaderCategory)
-  /// TypeLL cross-panel type check result for repo config types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/ReposystemMsg.affine b/src/msg/ReposystemMsg.affine
new file mode 100644
index 00000000..89a426d6
--- /dev/null
+++ b/src/msg/ReposystemMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ReposystemMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/ReposystemMsg.res b/src/msg/ReposystemMsg.res
deleted file mode 100644
index 4e46a1da..00000000
--- a/src/msg/ReposystemMsg.res
+++ /dev/null
@@ -1,15 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Reposystem RSR compliance messages.
-
-open Model
-
-type reposystemMsg =
-  | ScanAll
-  | ScanAllLoaded(result<string, string>)
-  | SetRsrCategory(reposystemCategory)
-  | SetRsrFilter(string)
-  /// Select a requirement for drill-down (None to deselect).
-  | SelectRequirement(option<rsrRequirement>)
-  /// TypeLL cross-panel type check result for RSR compliance types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/ScriptGistMsg.affine b/src/msg/ScriptGistMsg.affine
new file mode 100644
index 00000000..6dbd6e37
--- /dev/null
+++ b/src/msg/ScriptGistMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ScriptGistMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/ScriptGistMsg.res b/src/msg/ScriptGistMsg.res
deleted file mode 100644
index 3f7c5f53..00000000
--- a/src/msg/ScriptGistMsg.res
+++ /dev/null
@@ -1,63 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Script Gist messages -- portable computation gist lifecycle.
-/// Covers gist CRUD, execution, template expansion, MCP tool registration,
-/// and diachronic/synchronic state document management (Minskian cardfiles).
-
-open Model
-
-type scriptGistMsg =
-  /// Switch the active category tab.
-  | SetGistCategory(gistCategory)
-  /// Select a gist for editing/viewing.
-  | SelectGist(option<string>)
-  /// Create a new empty gist.
-  | CreateGist
-  /// Create a gist from a template.
-  | CreateFromTemplate(string) // template id
-  /// Update the code of the currently selected gist.
-  | UpdateGistCode(string)
-  /// Update the title of the currently selected gist.
-  | UpdateGistTitle(string)
-  /// Update the language of the currently selected gist.
-  | UpdateGistLanguage(gistLanguage)
-  /// Update the target of the currently selected gist.
-  | UpdateGistTarget(gistTarget)
-  /// Update the visibility of the currently selected gist.
-  | UpdateGistVisibility(gistVisibility)
-  /// Toggle pinned status of a gist.
-  | ToggleGistPin(string)
-  /// Delete a gist by id.
-  | DeleteGist(string)
-  /// Save the current gist (persist to storage).
-  | SaveGist
-  /// Execute the currently selected gist.
-  | ExecuteGist
-  /// Execution result returned.
-  | GistExecutionResult(result<gistResult, string>)
-  /// Set filter/search text.
-  | SetGistFilter(string)
-  /// Set sort order.
-  | SetGistSort(gistSortBy)
-  /// Toggle the gist editor panel open/closed.
-  | ToggleGistEditor
-  /// Toggle MCP tool registration (advertise gists as tools).
-  | ToggleMcpTools
-  /// Dismiss error.
-  | DismissGistError
-  /// Update a schema parameter on the current gist.
-  | UpdateGistSchemaName(string)
-  /// Update schema summary.
-  | UpdateGistSchemaSummary(string)
-  /// Add a schema input parameter.
-  | AddGistSchemaParam
-  /// Remove a schema input parameter by index.
-  | RemoveGistSchemaParam(int)
-  /// Snapshot current gist state as a diachronic checkpoint (time-based rollback).
-  | SnapshotDiachronic
-  /// Restore a diachronic checkpoint by index.
-  | RestoreDiachronic(int)
-  /// Insert gist into a synchronic cardfile (space-based composition).
-  | InsertIntoCardfile(string) // cardfile id
-  /// Remove gist from a synchronic cardfile.
-  | RemoveFromCardfile(string) // cardfile id
diff --git a/src/msg/ScriptingBridgeMsg.affine b/src/msg/ScriptingBridgeMsg.affine
new file mode 100644
index 00000000..f484e50d
--- /dev/null
+++ b/src/msg/ScriptingBridgeMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ScriptingBridgeMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/ScriptingBridgeMsg.res b/src/msg/ScriptingBridgeMsg.res
deleted file mode 100644
index 5f2fce00..00000000
--- a/src/msg/ScriptingBridgeMsg.res
+++ /dev/null
@@ -1,11 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Scripting Bridge messages -- VM instruction scripting REPL.
-
-open Model
-
-type scriptingBridgeMsg =
-  | SetScBTab(scriptingBridgeTab)
-  | ScBStarted
-  | ScBCompleted(result<string, string>)
-  | DismissScBError
diff --git a/src/msg/SecurityMsg.affine b/src/msg/SecurityMsg.affine
new file mode 100644
index 00000000..52d414bf
--- /dev/null
+++ b/src/msg/SecurityMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module SecurityMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/SecurityMsg.res b/src/msg/SecurityMsg.res
deleted file mode 100644
index e2312749..00000000
--- a/src/msg/SecurityMsg.res
+++ /dev/null
@@ -1,53 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Security messages -- redaction, vault, 2FA, Trustfile (DD-026/027).
-
-open Model
-
-type securityMsg =
-  /// Toggle a redaction pattern's enabled state.
-  | TogglePattern(string)
-  /// Add a custom redaction pattern.
-  | AddPattern(redactionPattern)
-  /// Remove a custom pattern.
-  | RemovePattern(string)
-  /// Set the redaction mode.
-  | SetRedactionMode(redactionMode)
-  /// Request text redaction via backend.
-  | RedactText(string, string)
-  /// Redaction result from backend.
-  | RedactionResult(result<string, string>)
-  /// Store a secret in the vault.
-  | VaultStore(string, string)
-  /// Vault store result.
-  | VaultStoreResult(result<string, string>)
-  /// Retrieve a secret from the vault.
-  | VaultRetrieve(string)
-  /// Vault retrieve result.
-  | VaultRetrieveResult(result<string, string>)
-  /// List vault keys.
-  | VaultList
-  /// Vault list result.
-  | VaultListResult(result<string, string>)
-  /// Submit TOTP code for 2FA.
-  | SubmitTotp(string)
-  /// 2FA verification result.
-  | TotpResult(result<string, string>)
-  /// Update TOTP input field.
-  | SetTotpInput(string)
-  /// Load Trustfile from repo.
-  | LoadTrustfile(string)
-  /// Trustfile loaded.
-  | TrustfileLoaded(result<string, string>)
-  /// Toggle shoulder-safe mode.
-  | ToggleShoulderSafe
-  /// Set security category tab.
-  | SetSecurityCategory(securityCategory)
-  /// Update new pattern form: label field.
-  | SetNewPatternLabel(string)
-  /// Update new pattern form: regex field.
-  | SetNewPatternRegex(string)
-  /// Submit the new pattern form.
-  | SubmitNewPattern
-  /// TypeLL cross-panel type check result for trustfile types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/ServiceMsg.affine b/src/msg/ServiceMsg.affine
new file mode 100644
index 00000000..d4030030
--- /dev/null
+++ b/src/msg/ServiceMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ServiceMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/ServiceMsg.res b/src/msg/ServiceMsg.res
deleted file mode 100644
index 95220041..00000000
--- a/src/msg/ServiceMsg.res
+++ /dev/null
@@ -1,23 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// ServiceMsg — TEA messages for the PanLL service registry.
-///
-/// Drives health checks, URL updates, and registry refresh cycles.
-
-/// Messages that update the service registry state.
-type serviceMsg =
-  | /// Request a health check of all registered services.
-  RefreshAll
-  | /// Result of a full registry refresh (JSON from backend).
-  RefreshAllResult(result<string, string>)
-  | /// Request a health check of a specific service by key.
-  CheckService(string)
-  | /// Result of a single service health check.
-  CheckServiceResult(string, result<string, string>)
-  | /// Update the URL of a service (key, newUrl).
-  UpdateServiceUrl(string, string)
-  | /// Result of a URL update.
-  UpdateServiceUrlResult(result<string, string>)
-  | /// Registry loaded from backend at startup.
-  RegistryLoaded(result<string, string>)
diff --git a/src/msg/SettingsMsg.affine b/src/msg/SettingsMsg.affine
new file mode 100644
index 00000000..2a2d6861
--- /dev/null
+++ b/src/msg/SettingsMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module SettingsMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/SettingsMsg.res b/src/msg/SettingsMsg.res
deleted file mode 100644
index 473af435..00000000
--- a/src/msg/SettingsMsg.res
+++ /dev/null
@@ -1,19 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// SettingsMsg — TEA messages for PanLL user configuration.
-
-/// Messages that update the settings state.
-type settingsMsg =
-  | /// Load settings from the backend.
-  LoadSettings
-  | /// Settings loaded from backend.
-  SettingsLoaded(result<string, string>)
-  | /// Update a single setting (key, value).
-  SetSetting(string, string)
-  | /// Result of a single setting update.
-  SetSettingResult(result<string, string>)
-  | /// Save all settings to backend.
-  SaveAllSettings
-  | /// Result of saving all settings.
-  SaveAllResult(result<string, string>)
diff --git a/src/msg/SoakMonitorMsg.affine b/src/msg/SoakMonitorMsg.affine
new file mode 100644
index 00000000..e9eb3623
--- /dev/null
+++ b/src/msg/SoakMonitorMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module SoakMonitorMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/SoakMonitorMsg.res b/src/msg/SoakMonitorMsg.res
deleted file mode 100644
index d6e59883..00000000
--- a/src/msg/SoakMonitorMsg.res
+++ /dev/null
@@ -1,13 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Soak Monitor messages -- long-running session memory trend and leak detection.
-
-open Model
-
-type soakMonitorMsg =
-  | SetSmTab(soakTab)
-  | SmStarted
-  | SmCompleted(result<string, string>)
-  | DismissSmError
-  | StartMonitor
-  | StopMonitor
diff --git a/src/msg/SpecBrowserMsg.affine b/src/msg/SpecBrowserMsg.affine
new file mode 100644
index 00000000..20d3a965
--- /dev/null
+++ b/src/msg/SpecBrowserMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module SpecBrowserMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/SpecBrowserMsg.res b/src/msg/SpecBrowserMsg.res
deleted file mode 100644
index 5c18f5e2..00000000
--- a/src/msg/SpecBrowserMsg.res
+++ /dev/null
@@ -1,19 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// SpecBrowser messages -- language specification browsing and comparison.
-
-open Model
-
-type specBrowserMsg =
-  /// Set the active category tab.
-  | SetSpecCategory(specBrowserCategory)
-  /// Select a language for detail/grammar/typing views.
-  | SelectSpecLanguage(option<string>)
-  /// Set the comparison side language.
-  | SetComparisonSide(comparisonSide, string)
-  /// Update the text filter.
-  | SetSpecFilter(string)
-  /// Toggle showing only incomplete languages.
-  | ToggleIncompleteOnly
-  /// Dismiss error.
-  | DismissSpecError
diff --git a/src/msg/StapelnMsg.affine b/src/msg/StapelnMsg.affine
new file mode 100644
index 00000000..d28c1bc3
--- /dev/null
+++ b/src/msg/StapelnMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module StapelnMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/StapelnMsg.res b/src/msg/StapelnMsg.res
deleted file mode 100644
index 4c5b85ae..00000000
--- a/src/msg/StapelnMsg.res
+++ /dev/null
@@ -1,31 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Stapeln messages -- container assembly pipeline operations.
-
-open Model
-
-type stapelnMsg =
-  /// Set the pipeline backend URL.
-  | SetPipelineUrl(string)
-  /// Initiate connection to the stapeln backend.
-  | Connect
-  /// Connection result (true = connected, false = failed).
-  | Connected(bool)
-  /// Update a constraint field by key and value.
-  | UpdateConstraint(string, string)
-  /// Request validation of the current assembly.
-  | RequestValidation
-  /// Validation results received from backend.
-  | ValidationReceived(validationSummary)
-  /// Request artifact generation in specified format.
-  | RequestGenerate(string)
-  /// Generated artifact content received from backend.
-  | GenerateReceived(string)
-  /// Refresh pipeline status from backend.
-  | RefreshStatus
-  /// Pipeline status received from backend.
-  | StatusReceived(pipelineStatus)
-  /// Switch the active tab ("constraints" | "reasoning" | "results").
-  | SetActiveTab(string)
-  /// Dismiss the error banner.
-  | DismissError
diff --git a/src/msg/SystemUpdateMsg.affine b/src/msg/SystemUpdateMsg.affine
new file mode 100644
index 00000000..43a4694f
--- /dev/null
+++ b/src/msg/SystemUpdateMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module SystemUpdateMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/SystemUpdateMsg.res b/src/msg/SystemUpdateMsg.res
deleted file mode 100644
index 69166fc3..00000000
--- a/src/msg/SystemUpdateMsg.res
+++ /dev/null
@@ -1,30 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// System Update panel messages — component listing, update checking,
-/// update application, asdf details, log viewing.
-
-type systemUpdateMsg =
-  // Component listing
-  | ListComponents
-  | ComponentsLoaded(result<string, string>)
-  // Check for updates
-  | CheckAll
-  | CheckAllResult(result<string, string>)
-  | CheckComponent(string)
-  | CheckComponentResult(result<string, string>)
-  // Apply updates
-  | ApplyComponent(string)
-  | ApplyComponentResult(result<string, string>)
-  | ApplyAll
-  | ApplyAllResult(result<string, string>)
-  // asdf details
-  | AsdfStatus
-  | AsdfStatusResult(result<string, string>)
-  // Logs
-  | ViewLogs
-  | LogsLoaded(result<string, string>)
-  // Summary
-  | LastSummary
-  | LastSummaryResult(result<string, string>)
-  // UI state
-  | ToggleShowLogs
diff --git a/src/msg/TangleVizMsg.affine b/src/msg/TangleVizMsg.affine
new file mode 100644
index 00000000..50cb8f2d
--- /dev/null
+++ b/src/msg/TangleVizMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TangleVizMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/TangleVizMsg.res b/src/msg/TangleVizMsg.res
deleted file mode 100644
index 321aa0b9..00000000
--- a/src/msg/TangleVizMsg.res
+++ /dev/null
@@ -1,23 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Messages for TangleViz topological programming visualizer.
-
-open Model
-
-type tangleVizMsg =
-  /// Switch view mode (braid diagram / knot diagram / algebraic).
-  | SetViewMode(tangleViewMode)
-  /// Update Tangle source code input text.
-  | SetInputText(string)
-  /// Parse the current input text into a braid word.
-  | ParseInput
-  /// Clear all input and state.
-  | ClearAll
-  /// Load an example braid word (array of generators).
-  | LoadExample(array<braidGenerator>)
-  /// Select a knot invariant for computation.
-  | SelectInvariant(knotInvariant)
-  /// Compute the currently selected invariant.
-  | ComputeInvariant
-  /// Dismiss the error banner.
-  | DismissError
diff --git a/src/msg/TeamDashboardMsg.affine b/src/msg/TeamDashboardMsg.affine
new file mode 100644
index 00000000..d963c4e7
--- /dev/null
+++ b/src/msg/TeamDashboardMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TeamDashboardMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/TeamDashboardMsg.res b/src/msg/TeamDashboardMsg.res
deleted file mode 100644
index 7b78d968..00000000
--- a/src/msg/TeamDashboardMsg.res
+++ /dev/null
@@ -1,10 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Team Dashboard messages -- team presence, activity feed, progress tracking.
-
-open Model
-
-type teamDashboardMsg =
-  | SetTdTab(teamDashboardTab)
-  | SetTdFilter(string)
-  | DismissTdError
diff --git a/src/msg/TentaclesMsg.affine b/src/msg/TentaclesMsg.affine
new file mode 100644
index 00000000..17d88bcc
--- /dev/null
+++ b/src/msg/TentaclesMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TentaclesMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/TentaclesMsg.res b/src/msg/TentaclesMsg.res
deleted file mode 100644
index 064bd6b4..00000000
--- a/src/msg/TentaclesMsg.res
+++ /dev/null
@@ -1,41 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Messages for the 7-Tentacles compiler agent panel.
-
-open Model
-
-type tentaclesMsg =
-  /// Switch the active category tab.
-  | SetTentaclesCategory(tentaclesCategory)
-  /// Select an agent for the AgentView tab.
-  | SelectAgent(tentacleId)
-  /// Change the global learner stage.
-  | SetGlobalStage(tentacleStage)
-  /// Toggle orchestra compact mode.
-  | ToggleOrchestraCompact
-  /// An agent broadcasts a message to the orchestra.
-  | BroadcastFromAgent(tentacleId, agentBroadcastPayload)
-  /// Deliver pending broadcasts to all agents.
-  | DeliverBroadcasts
-  /// Start a task on a specific agent.
-  | StartAgentTask(tentacleId, string)
-  /// An agent's OODA phase advanced.
-  | AgentPhaseAdvanced(tentacleId, oodaPhase)
-  /// An agent produced a constraint (Panel-L feed).
-  | AgentConstraintAdded(tentacleId, tentacleConstraint)
-  /// An agent produced a reasoning entry (Panel-N feed).
-  | AgentReasoningAdded(tentacleId, reasoningEntry)
-  /// An agent produced a validated result (Panel-W feed).
-  | AgentResultAdded(tentacleId, validatedResult)
-  /// An agent finished its current task.
-  | AgentTaskCompleted(tentacleId)
-  /// An agent encountered an error.
-  | AgentError(tentacleId, string)
-  /// Clear an agent's error state.
-  | ClearAgentError(tentacleId)
-  /// Check FFI bridge health (ECHIDNA "without" mode).
-  | CheckFfiBridge
-  /// FFI bridge health check result.
-  | FfiBridgeResult(bool, option<string>)
-  /// TypeLL cross-panel type check result for agent task types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/TilingMsg.affine b/src/msg/TilingMsg.affine
new file mode 100644
index 00000000..954b3f57
--- /dev/null
+++ b/src/msg/TilingMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TilingMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/TilingMsg.res b/src/msg/TilingMsg.res
deleted file mode 100644
index 7cff0ffd..00000000
--- a/src/msg/TilingMsg.res
+++ /dev/null
@@ -1,27 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Tiling and multi-monitor messages -- detach panels, snap zones, presets.
-
-open Model
-
-type tilingMsg =
-  /// Detach a panel into its own browser window.
-  | DetachPanel(panelId)
-  /// Reattach a previously detached panel back to the main window.
-  | ReattachPanel(panelId)
-  /// Snap a panel to a specific screen zone.
-  | SetSnapZone(panelId, snapZone)
-  /// Apply a predefined tiling preset layout.
-  | ApplyTilingPreset(tilingPreset)
-  /// Clear the active tiling preset and return to freeform.
-  | ClearTilingPreset
-  /// Show/hide the snap zone preview overlay while dragging.
-  | SetSnapPreview(option<snapZone>)
-  /// A detached panel window has been closed by the user.
-  | DetachedPanelClosed(string)
-  /// Sync model state to a detached window via BroadcastChannel.
-  | SyncToDetached(string)
-  /// Toggle the tiling controls UI visibility.
-  | ToggleTilingControls
-  /// Enable or disable the tiling system entirely.
-  | SetTilingEnabled(bool)
diff --git a/src/msg/TimelineMsg.affine b/src/msg/TimelineMsg.affine
new file mode 100644
index 00000000..63cbbea9
--- /dev/null
+++ b/src/msg/TimelineMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TimelineMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/TimelineMsg.res b/src/msg/TimelineMsg.res
deleted file mode 100644
index b923ca0f..00000000
--- a/src/msg/TimelineMsg.res
+++ /dev/null
@@ -1,34 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Code MRI Timeline messages (Layer 2) -- VeriSimDB-backed development timeline.
-/// Handles database connection, snapshot capture, history loading, scrubber
-/// navigation, and export. The timeline is append-only and passive -- it reads
-/// metrics from other panels but never modifies the codebase.
-
-type timelineMsg =
-  /// Connect to the VeriSimDB timeline database for the loaded repo.
-  | Connect
-  /// Connection result (Ok = db path, Error = message).
-  | Connected(result<string, string>)
-  /// Capture a new snapshot of the current codebase state.
-  | CaptureSnapshot
-  /// Snapshot captured (Ok = snapshot JSON, Error = message).
-  | SnapshotCaptured(result<string, string>)
-  /// Load all historical snapshots from VeriSimDB.
-  | LoadHistory
-  /// History loaded (Ok = snapshots JSON array, Error = message).
-  | HistoryLoaded(result<string, string>)
-  /// Query snapshots within a date range (startDate, endDate in ISO 8601).
-  | QueryRange(string, string)
-  /// Range query result.
-  | RangeLoaded(result<string, string>)
-  /// Move the time-machine scrubber to a specific snapshot index.
-  | SeekScrubber(option<int>)
-  /// Toggle the dashboard panel expanded/collapsed.
-  | ToggleDashboard
-  /// Export timeline to a standalone JSON file.
-  | ExportTimeline(string)
-  /// Export result.
-  | TimelineExported(result<string, string>)
-  /// Dismiss a timeline error.
-  | DismissError
diff --git a/src/msg/TsdmMsg.affine b/src/msg/TsdmMsg.affine
new file mode 100644
index 00000000..893121fa
--- /dev/null
+++ b/src/msg/TsdmMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TsdmMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/TsdmMsg.res b/src/msg/TsdmMsg.res
deleted file mode 100644
index 32284b95..00000000
--- a/src/msg/TsdmMsg.res
+++ /dev/null
@@ -1,50 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// TSDM directive panel messages -- axis reordering, tier customisation,
-/// cleanup configuration, work item aggregation, and directive persistence.
-
-type tsdmMsg =
-  /// Move an axis up in execution order.
-  | MoveAxisUp(int)
-  /// Move an axis down in execution order.
-  | MoveAxisDown(int)
-  /// Move a scope tier up in priority.
-  | MoveScopeTierUp(int)
-  /// Move a scope tier down in priority.
-  | MoveScopeTierDown(int)
-  /// Move a maintenance tier up in priority.
-  | MoveMaintenanceTierUp(int)
-  /// Move a maintenance tier down in priority.
-  | MoveMaintenanceTierDown(int)
-  /// Move an audit tier up in priority.
-  | MoveAuditTierUp(int)
-  /// Move an audit tier down in priority.
-  | MoveAuditTierDown(int)
-  /// Toggle a cleanup step on/off.
-  | ToggleCleanupStep(TsdmModel.cleanupStep)
-  /// Set axis filter for work items view.
-  | SetAxisFilter(option<TsdmModel.axisId>)
-  /// Set search text.
-  | SetTsdmSearch(string)
-  /// Toggle show completed items.
-  | ToggleShowCompleted
-  /// Lock/unlock the directive.
-  | ToggleLock
-  /// Reset all orderings to defaults.
-  | ResetToDefaults
-  /// Save directive to persistent storage.
-  | SaveDirective
-  /// Directive saved result.
-  | DirectiveSaved(result<string, string>)
-  /// Load directive from persistent storage.
-  | LoadDirective
-  /// Directive loaded result.
-  | DirectiveLoaded(result<string, string>)
-  /// Collect work items from consumer panels.
-  | CollectWorkItems
-  /// Work items collected result.
-  | WorkItemsCollected(result<string, string>)
-  /// Dismiss error.
-  | DismissTsdmError
-  /// TypeLL cross-panel type check result for directive types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/TypellMsg.affine b/src/msg/TypellMsg.affine
new file mode 100644
index 00000000..6edaff48
--- /dev/null
+++ b/src/msg/TypellMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TypellMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/TypellMsg.res b/src/msg/TypellMsg.res
deleted file mode 100644
index 06ec1fe3..00000000
--- a/src/msg/TypellMsg.res
+++ /dev/null
@@ -1,53 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// TypeLL verification kernel messages.
-
-open Model
-
-type typellMsg =
-  /// Set the active category tab.
-  | SetTlCategory(typellCategory)
-  /// Set the view layer (progressive disclosure level).
-  | SetViewLayer(viewLayer)
-  /// Check TypeLL server health.
-  | CheckTlHealth
-  /// Health check result.
-  | TlHealthResult(result<string, string>)
-  /// Update checker input.
-  | UpdateCheckerInput(string)
-  /// Run type check on current input.
-  | RunCheck
-  /// Type check result.
-  | CheckResult(result<string, string>)
-  /// Run type inference on current input.
-  | RunInfer
-  /// Type inference result.
-  | InferResult(result<string, string>)
-  /// Load signatures from server.
-  | LoadSignatures
-  /// Signatures loaded.
-  | SignaturesLoaded(result<string, string>)
-  /// Load universe hierarchy.
-  | LoadUniverses
-  /// Universes loaded.
-  | UniversesLoaded(result<string, string>)
-  /// Set signature search filter.
-  | SetSignatureFilter(string)
-  /// Set tier filter.
-  | SetTierFilter(option<typeTier>)
-  /// Update refinement spec.
-  | UpdateRefinementSpec(string)
-  /// Update refinement constraints.
-  | UpdateRefinementConstraints(string)
-  /// Run refinement.
-  | RunRefine
-  /// Refinement result.
-  | RefineResult(result<string, string>)
-  /// Toggle BoJ routing for TypeLL operations (nesy-mcp cartridge).
-  | ToggleTypellBojRouting
-  /// Set the default type discipline for modules without a declaration.
-  | SetDefaultDiscipline(typeDiscipline)
-  /// Add or update a module-level discipline declaration.
-  | SetModuleDiscipline(string, typeDiscipline) // (scope, discipline)
-  /// Remove a module-level discipline declaration (revert to default).
-  | RemoveModuleDiscipline(string) // scope
diff --git a/src/msg/TypingBridgeMsg.affine b/src/msg/TypingBridgeMsg.affine
new file mode 100644
index 00000000..e3538f74
--- /dev/null
+++ b/src/msg/TypingBridgeMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module TypingBridgeMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/TypingBridgeMsg.res b/src/msg/TypingBridgeMsg.res
deleted file mode 100644
index 0e605093..00000000
--- a/src/msg/TypingBridgeMsg.res
+++ /dev/null
@@ -1,11 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Typing Bridge messages -- TypeLL type constraints for game state.
-
-open Model
-
-type typingBridgeMsg =
-  | SetTbTab(typingBridgeTab)
-  | TbStarted
-  | TbCompleted(result<string, string>)
-  | DismissTbError
diff --git a/src/msg/UmsMsg.affine b/src/msg/UmsMsg.affine
new file mode 100644
index 00000000..510611fb
--- /dev/null
+++ b/src/msg/UmsMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UmsMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/UmsMsg.res b/src/msg/UmsMsg.res
deleted file mode 100644
index abf53202..00000000
--- a/src/msg/UmsMsg.res
+++ /dev/null
@@ -1,71 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Universal Modding Studio messages -- project CRUD, ABI validation,
-/// template management, asset pipeline, mod distribution, and API reference
-/// for the unified IDApTIK game content creation hub.
-
-open Model
-
-type umsMsg =
-  /// Switch the active category tab.
-  | SetUmsCategory(umsCategory)
-  /// Load mod projects from disk.
-  | LoadProjects
-  /// Projects loaded result.
-  | ProjectsLoaded(result<string, string>)
-  /// Create a new mod project.
-  | CreateProject(string)
-  /// Project created result.
-  | ProjectCreated(result<string, string>)
-  /// Select a project by ID.
-  | SelectProject(string)
-  /// Deselect the current project.
-  | DeselectProject
-  /// Open an existing project.
-  | OpenProject(string)
-  /// Project opened result.
-  | ProjectOpened(result<string, string>)
-  /// Delete a project.
-  | DeleteProject(string)
-  /// Project deleted result.
-  | ProjectDeleted(result<string, string>)
-  /// Run ABI validation on all levels.
-  | ValidateAll
-  /// Run ABI validation on a level.
-  | ValidateLevel(string)
-  /// Validation result.
-  | ValidationResult(result<string, string>)
-  /// Load available templates.
-  | LoadTemplates
-  /// Templates loaded result.
-  | TemplatesLoaded(result<string, string>)
-  /// Instantiate a template to create a new project.
-  | InstantiateTemplate(string)
-  /// Template instantiated result.
-  | TemplateInstantiated(result<string, string>)
-  /// Load project assets.
-  | LoadAssets
-  /// Assets loaded result.
-  | AssetsLoaded(result<string, string>)
-  /// Import an asset file.
-  | ImportAsset(string)
-  /// Asset imported result.
-  | AssetImported(result<string, string>)
-  /// Publish mod to a distribution target.
-  | PublishMod
-  /// Publish result.
-  | PublishResult(result<string, string>)
-  /// Load modding API reference.
-  | LoadApiReference
-  /// API reference loaded result.
-  | ApiReferenceLoaded(result<string, string>)
-  /// Set filter text.
-  | SetUmsFilter(string)
-  /// Dismiss the error banner.
-  | DismissUmsError
-  /// Toggle BoJ routing for UMS commands.
-  | ToggleUmsBojRouting
-  /// TypeLL cross-panel type check result for ABI validation.
-  | AbiTypeCheckResult(result<string, string>)
-  /// Navigate to a related panel (Level Architect, DLC Workshop, etc.).
-  | NavigateToPanel(panelId)
diff --git a/src/msg/UnitTestRunnerMsg.affine b/src/msg/UnitTestRunnerMsg.affine
new file mode 100644
index 00000000..88583a5d
--- /dev/null
+++ b/src/msg/UnitTestRunnerMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UnitTestRunnerMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/UnitTestRunnerMsg.res b/src/msg/UnitTestRunnerMsg.res
deleted file mode 100644
index 00fbe14d..00000000
--- a/src/msg/UnitTestRunnerMsg.res
+++ /dev/null
@@ -1,14 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Unit Test Runner messages -- test execution, coverage, diff-aware testing.
-
-open Model
-
-type unitTestRunnerMsg =
-  | SetUtrTab(unitTestTab)
-  | UtrStarted
-  | UtrCompleted(result<string, string>)
-  | DismissUtrError
-  | RunAllTests
-  | StopTests
-  | ToggleDiffAware
diff --git a/src/msg/VabMsg.affine b/src/msg/VabMsg.affine
new file mode 100644
index 00000000..de37cf29
--- /dev/null
+++ b/src/msg/VabMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VabMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/VabMsg.res b/src/msg/VabMsg.res
deleted file mode 100644
index 9f841331..00000000
--- a/src/msg/VabMsg.res
+++ /dev/null
@@ -1,19 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// VAB (Verified Assembly Building) messages -- server component assembly,
-/// category navigation, dependency-driven recomputation, and assembly management.
-
-open Model
-
-type vabMsg =
-  | ToggleVab
-  | SelectCategory(vabCategory)
-  | AddComponent(string)
-  | RemoveComponent(string)
-  | RenameServer(string)
-  | ClearAssembly
-  | SetFilterText(string)
-  | SetSortBy(vabSortBy)
-  | HoverComponent(option<string>)
-  /// TypeLL cross-panel type check result for assembly config types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/ValenceShellMsg.affine b/src/msg/ValenceShellMsg.affine
new file mode 100644
index 00000000..4884cc04
--- /dev/null
+++ b/src/msg/ValenceShellMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ValenceShellMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/ValenceShellMsg.res b/src/msg/ValenceShellMsg.res
deleted file mode 100644
index 29b38ab4..00000000
--- a/src/msg/ValenceShellMsg.res
+++ /dev/null
@@ -1,79 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Valence Shell messages -- terminal PTY lifecycle, input handling,
-/// session recording, checkpoint management, approval gate, and Claude
-/// Code integration for the embedded terminal panel.
-
-open Model
-
-type valenceShellMsg =
-  /// Switch the active category tab.
-  | SetShellCategory(valenceShellCategory)
-  /// Update the text input line.
-  | UpdateInput(string)
-  /// Submit the current input line (Enter key).
-  | SubmitInput
-  /// Select a completion from the popup.
-  | SelectCompletion(string)
-  /// Toggle the completions popup visibility.
-  | ToggleCompletions
-  /// PTY spawned (or failed).
-  | PtySpawned(result<string, string>)
-  /// Terminal output received from the PTY.
-  | PtyOutput(string, bool)
-  /// PTY exited.
-  | PtyExited
-  /// Check if Valence shell binary is available.
-  | CheckValenceAvailability
-  /// Valence availability result.
-  | ValenceAvailabilityResult(result<string, string>)
-  /// Launch Claude Code in the terminal.
-  | LaunchClaudeCode
-  /// Start recording a terminal session.
-  | StartRecordingSession
-  /// Stop the current recording.
-  | StopRecordingSession
-  /// Recording started (or failed).
-  | RecordingStarted(result<string, string>)
-  /// Recording stopped and saved (or failed).
-  | RecordingStopped(result<string, string>)
-  /// Load the list of saved recordings.
-  | LoadRecordings
-  /// Recordings loaded (or failed).
-  | RecordingsLoaded(result<string, string>)
-  /// Delete a recording by ID.
-  | DeleteRecordingById(string)
-  /// Recording deleted (or failed).
-  | RecordingDeleted(result<string, string>)
-  /// Export a recording in the given format (html, json, cast).
-  | ExportRecordingAs(string, string)
-  /// Recording exported (or failed).
-  | RecordingExported(result<string, string>)
-  /// Create a Valence filesystem checkpoint with the given label.
-  | CreateCheckpointWithLabel(string)
-  /// Checkpoint created (or failed).
-  | CheckpointCreated(result<string, string>)
-  /// Restore a checkpoint by ID.
-  | RestoreCheckpointById(string)
-  /// Checkpoint restored (or failed).
-  | CheckpointRestored(result<string, string>)
-  /// Load the list of checkpoints.
-  | LoadCheckpoints
-  /// Checkpoints loaded (or failed).
-  | CheckpointsLoaded(result<string, string>)
-  /// Take a screenshot of the terminal state.
-  | ScreenshotTerminal
-  /// Screenshot captured (or failed).
-  | ScreenshotCaptured(result<string, string>)
-  /// Set the approval gate mode.
-  | SetApprovalGate(approvalGateMode)
-  /// Approve a pending command by index.
-  | ApproveCommand(int)
-  /// Reject a pending command by index.
-  | RejectCommand(int)
-  /// Toggle split view mode.
-  | ToggleSplitView
-  /// Dismiss the error banner.
-  | DismissError
-  /// TypeLL cross-panel type check result for command types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/VeriSimDBMsg.affine b/src/msg/VeriSimDBMsg.affine
new file mode 100644
index 00000000..a9d1b893
--- /dev/null
+++ b/src/msg/VeriSimDBMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VeriSimDBMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/VeriSimDBMsg.res b/src/msg/VeriSimDBMsg.res
deleted file mode 100644
index d3a1bfc5..00000000
--- a/src/msg/VeriSimDBMsg.res
+++ /dev/null
@@ -1,40 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// VeriSimDB database backend messages -- connection lifecycle, VCL query
-/// execution, entity browsing, drift status retrieval, normalisation,
-/// entity detail loading, and opt-in telemetry retrieval for product
-/// development insights.
-
-type verisimdbMsg =
-  | CheckHealth
-  | HealthResult(result<string, string>)
-  | SubmitQuery(string)
-  | UpdateQueryInput(string)
-  | QueryResult(result<string, string>)
-  | ListEntities
-  | EntitiesLoaded(result<string, string>)
-  | SelectEntity(string)
-  | DriftLoaded(result<string, string>)
-  | ToggleDbMenu
-  | ClearQueryResult
-  | TriggerNormalise(string)
-  | NormaliseResult(result<string, string>)
-  | LoadEntityDetail(string)
-  | EntityDetailLoaded(result<string, string>)
-  | FetchTelemetry
-  | TelemetryLoaded(result<string, string>)
-  | ToggleTelemetryPanel
-  | FetchOrchStatus
-  | OrchStatusLoaded(result<string, string>)
-  /// TypeLL cross-panel type check result for the last VCL query.
-  | VclTypeCheckResult(result<string, string>)
-  /// Toggle VCL-total proof obligation display in Panel-L.
-  | ToggleProofDisplay
-  /// Neural advisor suggestion for the current VCL query.
-  | InferenceSuggestion(string)
-  /// Clear inference suggestions.
-  | ClearInferenceSuggestions
-  /// Toggle Anti-Crash VCL validation.
-  | ToggleAntiCrashValidation
-  /// Toggle BoJ routing for VCL queries (database-mcp cartridge).
-  | ToggleVeriSimBojRouting
diff --git a/src/msg/VerificationDashboardMsg.affine b/src/msg/VerificationDashboardMsg.affine
new file mode 100644
index 00000000..afc50dac
--- /dev/null
+++ b/src/msg/VerificationDashboardMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VerificationDashboardMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/VerificationDashboardMsg.res b/src/msg/VerificationDashboardMsg.res
deleted file mode 100644
index fc8e66c7..00000000
--- a/src/msg/VerificationDashboardMsg.res
+++ /dev/null
@@ -1,19 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// VerificationDashboard messages -- proof/test/benchmark status.
-
-open Model
-
-type verificationDashboardMsg =
-  /// Set the active category tab.
-  | SetVdCategory(verificationDashboardCategory)
-  /// Select a language for detail view.
-  | SelectVdLanguage(option<string>)
-  /// Update the text filter.
-  | SetVdFilter(string)
-  /// Set the sort criterion.
-  | SetVdSort(verificationSortBy)
-  /// Toggle showing only languages with admitted/sorry debt.
-  | ToggleDebtOnly
-  /// Dismiss error.
-  | DismissVdError
diff --git a/src/msg/VerisimdbFeedsMsg.affine b/src/msg/VerisimdbFeedsMsg.affine
new file mode 100644
index 00000000..4acb2a06
--- /dev/null
+++ b/src/msg/VerisimdbFeedsMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VerisimdbFeedsMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/VerisimdbFeedsMsg.res b/src/msg/VerisimdbFeedsMsg.res
deleted file mode 100644
index cdc6c495..00000000
--- a/src/msg/VerisimdbFeedsMsg.res
+++ /dev/null
@@ -1,10 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Messages for the VeriSimDB Feeds viewer panel.
-
-type verisimdbFeedsMsg =
-  | SetTab(VerisimdbFeedsModel.verisimdbFeedsTab)
-  | CheckFeeds
-  | FeedsChecked(result<string, string>)
-  | SelectFeed(string)
-  | ClearError
diff --git a/src/msg/VexometerFrictionMsg.affine b/src/msg/VexometerFrictionMsg.affine
new file mode 100644
index 00000000..d642605b
--- /dev/null
+++ b/src/msg/VexometerFrictionMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VexometerFrictionMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/VexometerFrictionMsg.res b/src/msg/VexometerFrictionMsg.res
deleted file mode 100644
index 04fea613..00000000
--- a/src/msg/VexometerFrictionMsg.res
+++ /dev/null
@@ -1,10 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Messages for the Vexometer Friction viewer panel.
-
-type vexometerFrictionMsg =
-  | SetTab(VexometerFrictionModel.vexometerFrictionTab)
-  | MeasureAll
-  | MeasureResult(result<string, string>)
-  | SelectTool(string)
-  | ClearError
diff --git a/src/msg/VexometerMsg.affine b/src/msg/VexometerMsg.affine
new file mode 100644
index 00000000..87af5d0d
--- /dev/null
+++ b/src/msg/VexometerMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VexometerMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/VexometerMsg.res b/src/msg/VexometerMsg.res
deleted file mode 100644
index 73157dee..00000000
--- a/src/msg/VexometerMsg.res
+++ /dev/null
@@ -1,14 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Vexometer messages -- cognitive load tracking and anti-inflammatory controls.
-
-type vexometerMsg =
-  | RecordCancellation
-  | RecordCorrection
-  /// Record a VCL query execution for cognitive load tracking.
-  | RecordVclQuery
-  | RequestVexationIndex
-  | UpdateVexationIndex(float)
-  | ToggleAntiInflammatory(bool)
-  | SetInertiaDetected(bool)
-  | ResetVexometer
diff --git a/src/msg/VideoCoordinationMsg.affine b/src/msg/VideoCoordinationMsg.affine
new file mode 100644
index 00000000..4fab37a7
--- /dev/null
+++ b/src/msg/VideoCoordinationMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VideoCoordinationMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/VideoCoordinationMsg.res b/src/msg/VideoCoordinationMsg.res
deleted file mode 100644
index f2ca4db7..00000000
--- a/src/msg/VideoCoordinationMsg.res
+++ /dev/null
@@ -1,11 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Messages for the VideoCoordination panel -- Drive-to-Photos batch transfers.
-
-type videoCoordinationMsg =
-  | StartTransfer(string, string) // source, destination
-  | PauseTransfer(string) // batchId
-  | RefreshStatus
-  | StatusResult(result<string, string>)
-  | TransferResult(result<string, string>)
-  | ClearError
diff --git a/src/msg/ViewMsg.affine b/src/msg/ViewMsg.affine
new file mode 100644
index 00000000..ee45689f
--- /dev/null
+++ b/src/msg/ViewMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module ViewMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/ViewMsg.res b/src/msg/ViewMsg.res
deleted file mode 100644
index 0fd0ff91..00000000
--- a/src/msg/ViewMsg.res
+++ /dev/null
@@ -1,16 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// View control messages -- pane toggles, mode switching, and layout controls.
-
-open Model
-
-type viewMsg =
-  | TogglePaneL
-  | TogglePaneN
-  | TogglePaneW
-  | ToggleProtocolAnalysis
-  | SetViewMode(viewMode)
-  | SetHumidity(humidityLevel)
-  | ParallaxAlign // Synchronous horizontal tiling
-  | TogglePanelBar // Toggle panel switcher bar visibility
-  | ToggleFullscreen // Toggle fullscreen (hide all chrome)
diff --git a/src/msg/VmInspectorMsg.affine b/src/msg/VmInspectorMsg.affine
new file mode 100644
index 00000000..ff7c8a28
--- /dev/null
+++ b/src/msg/VmInspectorMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VmInspectorMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/VmInspectorMsg.res b/src/msg/VmInspectorMsg.res
deleted file mode 100644
index 9f3f8677..00000000
--- a/src/msg/VmInspectorMsg.res
+++ /dev/null
@@ -1,45 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// VM Inspector messages -- VM state reading, step execution, breakpoint
-/// management, timeline navigation, and state export for the reversible
-/// VM visual debugger panel.
-
-open Model
-
-type vmInspectorMsg =
-  /// Switch the active category tab.
-  | SetInspectorCategory(vmInspectorCategory)
-  /// Read the current VM state from the running game.
-  | ReadVmState
-  /// VM state received.
-  | VmStateReceived(result<string, string>)
-  /// Step the VM forward by one instruction.
-  | StepForward
-  /// Step the VM backward by one instruction (reverse execution).
-  | StepBackward
-  /// Step result received.
-  | StepResult(result<string, string>)
-  /// Run the VM until the next breakpoint or end.
-  | RunVm
-  /// Pause the running VM.
-  | PauseVm
-  /// Run/pause result.
-  | RunResult(result<string, string>)
-  /// Reset the VM to initial state.
-  | ResetVm
-  /// Toggle a breakpoint at the given instruction index.
-  | ToggleBreakpoint(int)
-  /// Seek to a position in the execution timeline.
-  | SeekTimeline(int)
-  /// Export the current VM state as JSON.
-  | ExportSnapshot
-  /// Snapshot exported (or failed).
-  | SnapshotExported(result<string, string>)
-  /// Toggle multi-VM view (for multiplayer debugging).
-  | ToggleMultiVm
-  /// Dismiss the error banner.
-  | DismissVmError
-  /// Toggle BoJ routing for DAP operations (dap-mcp cartridge).
-  | ToggleVmBojRouting
-  /// TypeLL cross-panel type check result for VM state types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/VoiceTagMsg.affine b/src/msg/VoiceTagMsg.affine
new file mode 100644
index 00000000..675710bc
--- /dev/null
+++ b/src/msg/VoiceTagMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module VoiceTagMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/VoiceTagMsg.res b/src/msg/VoiceTagMsg.res
deleted file mode 100644
index e8decc12..00000000
--- a/src/msg/VoiceTagMsg.res
+++ /dev/null
@@ -1,41 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Code MRI VoiceTag messages -- tag CRUD, voice input lifecycle, file I/O,
-/// and filter controls. VoiceTag is an ambient annotation system (Layer 0)
-/// that stores tags as portable `.mri.json` sidecar files.
-
-open Model
-
-type voiceTagMsg =
-  /// Load tags from the .mri.json sidecar for the current file.
-  | LoadFileTags
-  /// Tags loaded from disk (or error).
-  | TagsLoaded(result<string, string>)
-  /// Tags saved to disk (or error).
-  | TagsSaved(result<string, string>)
-  /// Sidecar deleted (or error).
-  | SidecarDeleted(result<string, string>)
-  /// Project scan result (list of all .mri.json files).
-  | ProjectScanned(result<string, string>)
-  /// Select a tag by ID (for voice reference or click).
-  | SelectTag(option<int>)
-  /// Delete a tag by ID.
-  | DeleteTagById(int)
-  /// Resolve a tag by ID.
-  | ResolveTagById(int)
-  /// Set the type filter.
-  | SetFilterType(option<mriTagType>)
-  /// Toggle showing resolved tags.
-  | ToggleShowResolved
-  /// Start voice recognition.
-  | StartVoice
-  /// Stop voice recognition.
-  | StopVoice
-  /// Voice transcript received from Web Speech API.
-  | VoiceTranscript(string)
-  /// Voice recognition error.
-  | VoiceError(string)
-  /// Set current file path (when user opens a file).
-  | SetCurrentFile(string)
-  /// TypeLL cross-panel type check result for tag schema types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/msg/WatcherMsg.affine b/src/msg/WatcherMsg.affine
new file mode 100644
index 00000000..68a51589
--- /dev/null
+++ b/src/msg/WatcherMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module WatcherMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/WatcherMsg.res b/src/msg/WatcherMsg.res
deleted file mode 100644
index b9013176..00000000
--- a/src/msg/WatcherMsg.res
+++ /dev/null
@@ -1,22 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Watcher messages -- filesystem observation infrastructure.
-/// The watcher runs in a Rust background thread and emits events via the
-/// Gossamer event bus. These messages handle lifecycle (start/stop/status)
-/// and incoming filesystem events that panels can react to.
-
-open Model
-
-type watcherMsg =
-  /// Start watching the given paths.
-  | StartWatcher(array<string>)
-  /// Stop the filesystem watcher.
-  | StopWatcher
-  /// Request current watcher status.
-  | RequestStatus
-  /// Watcher lifecycle result (start/stop/add/remove responses).
-  | WatcherResult(result<string, string>)
-  /// Status response from the backend.
-  | StatusLoaded(result<string, string>)
-  /// A filesystem event arrived from the Rust watcher.
-  | FileEvent(watchEvent)
diff --git a/src/msg/WiringInspectorMsg.affine b/src/msg/WiringInspectorMsg.affine
new file mode 100644
index 00000000..9fb810a8
--- /dev/null
+++ b/src/msg/WiringInspectorMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module WiringInspectorMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/WiringInspectorMsg.res b/src/msg/WiringInspectorMsg.res
deleted file mode 100644
index 3e71fcb9..00000000
--- a/src/msg/WiringInspectorMsg.res
+++ /dev/null
@@ -1,14 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Wiring Inspector messages -- PCC verification lifecycle, audit tabs, and UI state.
-
-type wiringInspectorMsg =
-  | RunVerification
-  | VerificationResult(result<string, string>)
-  | RunSingleVerification(string)
-  | SingleVerificationResult(result<string, string>)
-  | SelectPanel(option<string>)
-  | SetFilterStatus(option<string>)
-  | SetAuditTab(WiringInspectorModel.auditTab)
-  | SetSortBy(string)
-  | ToggleStateSection(WiringInspectorModel.panelState)
diff --git a/src/msg/WizardMsg.affine b/src/msg/WizardMsg.affine
new file mode 100644
index 00000000..ef5fc2d6
--- /dev/null
+++ b/src/msg/WizardMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module WizardMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/WizardMsg.res b/src/msg/WizardMsg.res
deleted file mode 100644
index 3838a58b..00000000
--- a/src/msg/WizardMsg.res
+++ /dev/null
@@ -1,40 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Wizard Messages — User actions for the plugin/panel creation wizard.
-
-open Model
-open WizardModel
-
-type wizardMsg =
-  /// Set creation type (panel or plugin)
-  | SetCreationType(creationType)
-  /// Apply template to wizard
-  | ApplyTemplate(string)
-  /// Toggle capability selection
-  | ToggleCapability(string)
-  /// Add dependency
-  | AddDependency(string, string)
-  /// Remove dependency
-  | RemoveDependency(string)
-  /// Set trust tier
-  | SetTrustTier(pluginTrustTier)
-  /// Toggle network access
-  | ToggleNetworkAccess(bool)
-  /// Toggle filesystem access
-  | ToggleFilesystemAccess(bool)
-  /// Proceed to next step
-  | NextStep
-  /// Go back to previous step
-  | PreviousStep
-  /// Start generation
-  | StartGeneration
-  /// Generation result
-  | GenerationResult(result<string, string>)
-  /// Validation result
-  | ValidationResult(result<string, string>)
-  /// Reset wizard
-  | ResetWizard
-  
-  /// Test messages
-  | RunWizardTests
-  | TestResults(string)
diff --git a/src/msg/WorkspaceMsg.affine b/src/msg/WorkspaceMsg.affine
new file mode 100644
index 00000000..26ddb7be
--- /dev/null
+++ b/src/msg/WorkspaceMsg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module WorkspaceMsg;
+
+// TODO: Complete semantic implementation
diff --git a/src/msg/WorkspaceMsg.res b/src/msg/WorkspaceMsg.res
deleted file mode 100644
index acdc3079..00000000
--- a/src/msg/WorkspaceMsg.res
+++ /dev/null
@@ -1,70 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Workspace messages -- panel groups, arrangements, sessions, modes,
-/// protection levels, execution modes, checkpoints (DD-022-DD-027).
-
-open Model
-
-type workspaceMsg =
-  /// Set the workspace mode (Rhodium, Everything, Code, Bespoke).
-  | SetWorkspaceMode(workspaceMode)
-  /// Cycle to the next workspace mode.
-  | CycleWorkspaceMode
-  /// Set session protection level.
-  | SetProtection(sessionProtection)
-  /// Set execution mode (Live, DryRun, Simulation, Emulation).
-  | SetExecutionMode(executionMode)
-  /// Toggle between Live and DryRun execution modes.
-  | ToggleDryRun
-  /// Create a panel group.
-  | CreateGroup(string, string, array<string>)
-  /// Disband a panel group.
-  | DisbandGroup(string)
-  /// Lock/unlock a group's arrangement.
-  | ToggleGroupLock(string)
-  /// Toggle group visibility.
-  | ToggleGroupVisibility(string)
-  /// Push a group to back.
-  | PushToBack(string)
-  /// Pull a group to front.
-  | PullToFront(string)
-  /// Save current layout as a named arrangement.
-  | SaveArrangement(string, string)
-  /// Load a saved arrangement by ID.
-  | LoadArrangement(string)
-  /// Delete a saved arrangement.
-  | DeleteArrangement(string)
-  /// Arrangements loaded from disk.
-  | ArrangementsLoaded(result<string, string>)
-  /// Create a new session.
-  | CreateSession(string, string)
-  /// Fork the current session.
-  | ForkSession(string, string)
-  /// Delete a session.
-  | DeleteSession(string)
-  /// Switch active session.
-  | SwitchSession(string)
-  /// Sessions loaded from disk.
-  | SessionsLoaded(result<string, string>)
-  /// Add a checkpoint to the current session.
-  | AddCheckpoint(string, string)
-  /// System info loaded (CPU, memory, disk).
-  | SystemInfoLoaded(result<string, string>)
-  /// Open/close the configurator.
-  | ToggleConfigurator
-  /// Switch configurator tab.
-  | SetConfiguratorTab(configuratorTab)
-  /// View repo metadata item.
-  | ViewMetadata(repoMetadataItem)
-  /// Close metadata viewer.
-  | CloseMetadata
-  /// Metadata content loaded.
-  | MetadataLoaded(result<string, string>)
-  /// Reset a single panel to its default state.
-  | ResetPanel(string)
-  /// Reset all panels to defaults.
-  | ResetAllPanels
-  /// Export workspace config (mode, protection, execution, arrangement) to ENSAID_CONFIG.a2ml.
-  | ExportWorkspaceConfig
-  /// TypeLL cross-panel type check result for arrangement types.
-  | TypeCheckResult(result<string, string>)
diff --git a/src/subscriptions/GossamerEvents.affine b/src/subscriptions/GossamerEvents.affine
new file mode 100644
index 00000000..37d3ce8d
--- /dev/null
+++ b/src/subscriptions/GossamerEvents.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module GossamerEvents;
+
+// TODO: Complete semantic implementation
diff --git a/src/subscriptions/GossamerEvents.res b/src/subscriptions/GossamerEvents.res
deleted file mode 100644
index 7b05ce3b..00000000
--- a/src/subscriptions/GossamerEvents.res
+++ /dev/null
@@ -1,108 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// GossamerEvents — Backend event subscriptions for real-time neurosymbolic streaming.
-///
-/// Wraps Gossamer's event API as TEA subscriptions so backend events
-/// (ECHIDNA proof progress, agent broadcasts, FFI state changes) are
-/// automatically dispatched into the TEA update loop.
-///
-/// In browser-only mode (no Gossamer runtime), all subscriptions gracefully
-/// degrade to no-ops instead of crashing.
-
-/// Detect whether the Gossamer runtime is available.
-%%raw(`
-function isGossamerAvailable() {
-  return typeof window !== 'undefined'
-    && typeof window.__gossamer_invoke === 'function';
-}
-`)
-@val external isGossamerAvailable: unit => bool = "isGossamerAvailable"
-
-/// Gossamer event listener binding.
-/// Gossamer injects __gossamer_on(eventName, callback) into the webview.
-/// Returns an unlisten function.
-%%raw(`
-function gossamerOn(eventName, callback) {
-  if (typeof window !== 'undefined' && typeof window.__gossamer_on === 'function') {
-    return window.__gossamer_on(eventName, callback);
-  }
-  return Promise.resolve(function() {});
-}
-`)
-@val external gossamerOn: (string, string => unit) => promise<unit => unit> = "gossamerOn"
-
-/// Safe wrapper around gossamerOn that returns a no-op subscription
-/// when the Gossamer runtime is absent. Prevents crashes in browser-only mode.
-let safeListen = (key: string, eventName: string, tagger: string => 'msg): Tea_Sub.t<'msg> => {
-  if !isGossamerAvailable() {
-    Tea_Sub.none
-  } else {
-    Tea_Sub.registration(key, dispatch => {
-      let cleanup = ref(() => ())
-      gossamerOn(eventName, payload => {
-        dispatch(tagger(payload))
-      })
-      ->Promise.then(unlisten => {
-        cleanup := unlisten
-        Promise.resolve()
-      })
-      ->ignore
-      () => cleanup.contents()
-    })
-  }
-}
-
-/// Listen for ECHIDNA proof progress events from the Rust backend.
-let onEchidnaProgress = (tagger: string => 'msg): Tea_Sub.t<'msg> => {
-  safeListen("gossamer:echidna-progress", "echidna:proof-progress", tagger)
-}
-
-/// Listen for ECHIDNA tactic suggestions pushed from the backend.
-let onEchidnaTactics = (tagger: string => 'msg): Tea_Sub.t<'msg> => {
-  safeListen("gossamer:echidna-tactics", "echidna:tactic-suggestions", tagger)
-}
-
-/// Listen for Tentacles agent phase changes from the FFI bridge.
-let onTentaclesPhaseChange = (tagger: string => 'msg): Tea_Sub.t<'msg> => {
-  safeListen("gossamer:tentacles-phase", "tentacles:phase-change", tagger)
-}
-
-/// Listen for Tentacles agent broadcast messages.
-let onTentaclesBroadcast = (tagger: string => 'msg): Tea_Sub.t<'msg> => {
-  safeListen("gossamer:tentacles-broadcast", "tentacles:broadcast", tagger)
-}
-
-/// Listen for VeriSimDB drift alerts pushed from the backend.
-let onVeriSimDBDrift = (tagger: string => 'msg): Tea_Sub.t<'msg> => {
-  safeListen("gossamer:verisim-drift", "verisim:drift-alert", tagger)
-}
-
-/// Listen for Hypatia neural network status changes.
-let onHypatiaStatus = (tagger: string => 'msg): Tea_Sub.t<'msg> => {
-  safeListen("gossamer:hypatia-status", "hypatia:network-status", tagger)
-}
-
-/// Listen for governance halt/resume signals from the backend.
-let onGovernanceSignal = (tagger: string => 'msg): Tea_Sub.t<'msg> => {
-  safeListen("gossamer:governance-signal", "governance:signal", tagger)
-}
-
-/// Listen for AI streaming chunks from the SSE provider.
-let onAiStreamChunk = (tagger: string => 'msg): Tea_Sub.t<'msg> => {
-  safeListen("gossamer:ai-stream-chunk", "ai:stream-chunk", tagger)
-}
-
-/// Listen for filesystem watcher events from the Rust backend.
-let onWatcherEvent = (tagger: string => 'msg): Tea_Sub.t<'msg> => {
-  safeListen("gossamer:watcher-event", "watcher://event", tagger)
-}
-
-/// Listen for watcher error events from the Rust backend.
-let onWatcherError = (tagger: string => 'msg): Tea_Sub.t<'msg> => {
-  safeListen("gossamer:watcher-error", "watcher://error", tagger)
-}
-
-/// Listen for panel lifecycle events from the backend.
-let onPanelLifecycle = (tagger: string => 'msg): Tea_Sub.t<'msg> => {
-  safeListen("gossamer:panel-lifecycle", "panel://lifecycle", tagger)
-}
diff --git a/src/subscriptions/KeyboardFixed.affine b/src/subscriptions/KeyboardFixed.affine
new file mode 100644
index 00000000..cfc73c94
--- /dev/null
+++ b/src/subscriptions/KeyboardFixed.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module KeyboardFixed;
+
+// TODO: Complete semantic implementation
diff --git a/src/subscriptions/KeyboardFixed.res b/src/subscriptions/KeyboardFixed.res
deleted file mode 100644
index f50051ee..00000000
--- a/src/subscriptions/KeyboardFixed.res
+++ /dev/null
@@ -1,57 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Keyboard Subscriptions for Custom TEA
-///
-/// Provides keyboard event subscriptions using our custom TEA's registration API.
-
-type keyEvent = {
-  key: string,
-  ctrlKey: bool,
-  shiftKey: bool,
-  altKey: bool,
-  metaKey: bool,
-}
-
-// External bindings for window event listeners
-@val @scope("window")
-external addEventListener: (string, {..} => unit) => unit = "addEventListener"
-
-@val @scope("window")
-external removeEventListener: (string, {..} => unit) => unit = "removeEventListener"
-
-/// Subscribe to keydown events
-let onKeyDown = (tagger: keyEvent => 'msg): Tea_Sub.t<'msg> => {
-  Tea_Sub.registration("keyboard-keydown", dispatch => {
-    let handler = evt => {
-      let keyEvt = {
-        key: evt["key"],
-        ctrlKey: evt["ctrlKey"],
-        shiftKey: evt["shiftKey"],
-        altKey: evt["altKey"],
-        metaKey: evt["metaKey"],
-      }
-      dispatch(tagger(keyEvt))
-    }
-    addEventListener("keydown", handler)
-    // Return cleanup function
-    () => removeEventListener("keydown", handler)
-  })
-}
-
-/// Subscribe to keyup events
-let onKeyUp = (tagger: keyEvent => 'msg): Tea_Sub.t<'msg> => {
-  Tea_Sub.registration("keyboard-keyup", dispatch => {
-    let handler = evt => {
-      let keyEvt = {
-        key: evt["key"],
-        ctrlKey: evt["ctrlKey"],
-        shiftKey: evt["shiftKey"],
-        altKey: evt["altKey"],
-        metaKey: evt["metaKey"],
-      }
-      dispatch(tagger(keyEvt))
-    }
-    addEventListener("keyup", handler)
-    () => removeEventListener("keyup", handler)
-  })
-}
diff --git a/src/tea/Tea.affine b/src/tea/Tea.affine
new file mode 100644
index 00000000..83b63d34
--- /dev/null
+++ b/src/tea/Tea.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Tea;
+
+// TODO: Complete semantic implementation
diff --git a/src/tea/Tea.res b/src/tea/Tea.res
deleted file mode 100644
index 87614d02..00000000
--- a/src/tea/Tea.res
+++ /dev/null
@@ -1,72 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-//
-// Tea.res — The Elm Architecture for ReScript
-//
-// A comprehensive, self-contained TEA implementation featuring:
-// - Virtual DOM with keyed child diffing and fragment support
-// - SVG namespace-aware rendering
-// - Type-safe HTTP client and JSON decoders
-// - Rich subscription modules (keyboard, mouse, window, time, animation)
-// - Server-side rendering to HTML strings
-// - Time-travel debugger
-// - Testing helpers
-//
-// Built for PanLL eNSAID with integrated DOM safety (SafeMount, Trusted Types).
-
-/// Commands (side effects) module
-module Cmd = Tea_Cmd
-
-/// Subscriptions (external event sources) module
-module Sub = Tea_Sub
-
-/// HTML element constructors, attributes, and events
-module Html = Tea_Html
-
-/// SVG element constructors and attributes
-module Svg = Tea_Svg
-
-/// Virtual DOM core types and constructors
-module Vdom = Tea_Vdom
-
-/// TEA application runtime (init/update/view/subscriptions loop)
-module App = Tea_App
-
-/// DOM rendering engine with virtual DOM diffing
-module Render = Tea_Render
-
-/// Type-safe HTTP client (fetch-based)
-module Http = Tea_Http
-
-/// Elm-style JSON decoders
-module Json = Tea_Json
-
-/// Time-based subscriptions (intervals, timeouts)
-module Time = Tea_Time
-
-/// Animation frame subscriptions (requestAnimationFrame)
-module Animationframe = Tea_Animationframe
-
-/// Keyboard event subscriptions
-module Keyboard = Tea_Keyboard
-
-/// Mouse event subscriptions
-module Mouse = Tea_Mouse
-
-/// Window/document event subscriptions (resize, focus, scroll, etc.)
-module Window = Tea_Window
-
-/// Server-side rendering (virtual DOM to HTML string)
-module Ssr = Tea_Ssr
-
-/// Time-travel debugger for TEA programs
-module Debug = Tea_Debug
-
-/// Testing helpers for TEA model-update-view cycle
-module Test = Tea_Test
-
-/// Create a standard TEA program with subscriptions
-let standardProgram = Tea_App.standardProgram
-
-/// Create a simple TEA program (no subscriptions)
-let simpleProgram = Tea_App.simpleProgram
diff --git a/src/tea/Tea_Animationframe.affine b/src/tea/Tea_Animationframe.affine
new file mode 100644
index 00000000..a1e313a7
--- /dev/null
+++ b/src/tea/Tea_Animationframe.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Tea_Animationframe;
+
+// TODO: Complete semantic implementation
diff --git a/src/tea/Tea_Animationframe.res b/src/tea/Tea_Animationframe.res
deleted file mode 100644
index e7db182d..00000000
--- a/src/tea/Tea_Animationframe.res
+++ /dev/null
@@ -1,23 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// TEA Animation Frame - Request animation frame subscriptions
-///
-/// Provides subscriptions for smooth animations using requestAnimationFrame.
-
-@val external requestAnimationFrame: (float => unit) => int = "requestAnimationFrame"
-@val external cancelAnimationFrame: int => unit = "cancelAnimationFrame"
-
-/// Subscribe to animation frames
-let onAnimationFrame = (tagger: float => 'msg): Tea_Sub.t<'msg> => {
-  Tea_Sub.registration("animation-frame", dispatch => {
-    let id = ref(0)
-    let rec callback = (time: float) => {
-      dispatch(tagger(time))
-      id := requestAnimationFrame(callback)
-    }
-    id := requestAnimationFrame(callback)
-
-    // Return cleanup function
-    () => cancelAnimationFrame(id.contents)
-  })
-}
diff --git a/src/tea/Tea_App.affine b/src/tea/Tea_App.affine
new file mode 100644
index 00000000..292292cb
--- /dev/null
+++ b/src/tea/Tea_App.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Tea_App;
+
+// TODO: Complete semantic implementation
diff --git a/src/tea/Tea_App.res b/src/tea/Tea_App.res
deleted file mode 100644
index d3ecf835..00000000
--- a/src/tea/Tea_App.res
+++ /dev/null
@@ -1,271 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// TEA Application - The core TEA runtime.
-///
-/// This module provides the main application loop that ties together
-/// the Model, Update, View, and Subscriptions.
-
-/// Program configuration
-type programConfig<'model, 'msg> = {
-  init: unit => ('model, Tea_Cmd.t<'msg>),
-  update: ('model, 'msg) => ('model, Tea_Cmd.t<'msg>),
-  view: 'model => Tea_Vdom.t<'msg>,
-  subscriptions: 'model => Tea_Sub.t<'msg>,
-}
-
-/// Application state (internal)
-type appState<'model, 'msg> = {
-  mutable model: 'model,
-  mutable currentSub: Tea_Sub.t<'msg>,
-  mutable subscriptionCleanup: unit => unit,
-  mutable isDispatching: bool, // Prevent recursive dispatch
-  mutable messageQueue: array<'msg>,
-  mutable renderState: option<Tea_Render.renderState<'msg>>,
-  mutable container: option<Tea_Render.domElement>,
-}
-
-/// Program interface for external control
-type programInterface<'msg, 'model> = {
-  shutdown: unit => unit,
-  getModel: unit => 'model,
-}
-
-/// Create a standard TEA program
-let standardProgram = (
-  ~init: unit => ('model, Tea_Cmd.t<'msg>),
-  ~update: ('model, 'msg) => ('model, Tea_Cmd.t<'msg>),
-  ~view: 'model => Tea_Vdom.t<'msg>,
-  ~subscriptions: 'model => Tea_Sub.t<'msg>,
-  (),
-): programInterface<'msg, 'model> => {
-  let config = {init, update, view, subscriptions}
-
-  // Initialize model and commands
-  let (initialModel, initialCmd) = config.init()
-
-  // Create mutable app state
-  let state: appState<'model, 'msg> = {
-    model: initialModel,
-    currentSub: Tea_Sub.none,
-    subscriptionCleanup: () => (),
-    isDispatching: false,
-    messageQueue: [],
-    renderState: None,
-    container: None,
-  }
-
-  // Live diagnostic — writes to the blue bar at the bottom of the page
-  let diagWrite: string => unit = %raw(`
-    function(text) {
-      var d = document.getElementById('panll-diag');
-      if (d) d.textContent = text;
-    }
-  `)
-
-  let diagCount = ref(0)
-
-  // Message dispatch function
-  let rec dispatch = (msg: 'msg): unit => {
-    // Queue message if already dispatching (prevent recursion)
-    if state.isDispatching {
-      Array.push(state.messageQueue, msg)
-    } else {
-      state.isDispatching = true
-      diagCount := diagCount.contents + 1
-
-      // Show the message tag in the diagnostic bar for debugging
-      let msgTag: string = %raw(`
-        (function() {
-          var m = msg;
-          if (m && m.TAG) return m.TAG;
-          if (typeof m === 'string') return m;
-          if (typeof m === 'object' && m !== null) return JSON.stringify(Object.keys(m)).slice(0,60);
-          return String(m);
-        })()
-      `)
-      diagWrite("#" ++ Int.toString(diagCount.contents) ++ " " ++ msgTag)
-
-      try {
-        // Process this message
-        processMessage(msg)
-
-        // Process queued messages
-        while Array.length(state.messageQueue) > 0 {
-          let queuedMsg = Array.shift(state.messageQueue)
-          switch queuedMsg {
-          | Some(m) => processMessage(m)
-          | None => ()
-          }
-        }
-      } catch {
-      | exn => {
-          Console.error2("[PanLL TEA] dispatch crash — recovering:", exn)
-          let errMsg: string = %raw(`(function() {
-            var e = exn;
-            if (e && e.RE_EXN_ID) return 'ReScript: ' + e.RE_EXN_ID + ' ' + JSON.stringify(e._1 || e._2 || '').slice(0,200);
-            if (e && e.message) return e.message;
-            if (e && e.stack) return e.stack.split('\\n')[0];
-            return JSON.stringify(e).slice(0,300);
-          })()`)
-          diagWrite("CRASH: " ++ errMsg)
-
-          // Drain the queue to avoid replaying the crashing message
-          state.messageQueue = []
-        }
-      }
-
-      state.isDispatching = false
-    }
-  }
-
-  and processMessage = (msg: 'msg): unit => {
-    // Update model
-    let (newModel, cmd) = config.update(state.model, msg)
-    state.model = newModel
-
-    // Re-render — wrapped in try/catch so a crashing view() doesn't kill dispatch
-    try {
-      render()
-    } catch {
-    | exn => {
-        Console.error2("[PanLL TEA] render crash:", exn)
-        let errMsg: string = %raw(`(function() {
-            var e = exn;
-            if (e && e.RE_EXN_ID) return 'ReScript: ' + e.RE_EXN_ID + ' ' + JSON.stringify(e._1 || e._2 || '').slice(0,200);
-            if (e && e.message) return e.message;
-            if (e && e.stack) return e.stack.split('\\n')[0];
-            return JSON.stringify(e).slice(0,300);
-          })()`)
-        diagWrite("RENDER CRASH: " ++ errMsg)
-      }
-    }
-
-    // Update subscriptions if they changed
-    try {
-      updateSubscriptions()
-    } catch {
-    | exn => Console.error2("[PanLL TEA] subscription crash:", exn)
-    }
-
-    // Execute commands (may dispatch more messages)
-    Tea_Cmd.execute(cmd, dispatch)
-  }
-
-  and render = (): unit => {
-    let vdom = config.view(state.model)
-
-    switch (state.container, state.renderState) {
-    | (Some(container), Some(renderState)) => // Update existing render
-      Tea_Render.update(container, vdom, renderState)
-    | (Some(container), None) => {
-        // Initial render - create render state
-        let renderState = Tea_Render.createState(dispatch)
-        Tea_Render.render(container, vdom, renderState)
-        state.renderState = Some(renderState)
-      }
-    | (None, _) => // No container - validate and mount to #app via SafeMount
-      switch SafeMount.validateAndFind("#app") {
-      | Error(reason) => Console.warn(reason)
-      | Ok(container) => {
-          let renderState = Tea_Render.createState(dispatch)
-          Tea_Render.render(container, vdom, renderState)
-          state.renderState = Some(renderState)
-          state.container = Some(container)
-          SafeMount.trace("tea-app-init", "mounted to #app")
-        }
-      }
-    }
-  }
-
-  and updateSubscriptions = (): unit => {
-    let newSub = config.subscriptions(state.model)
-
-    // Check if subscriptions changed (compare keys)
-    let oldKeys = Tea_Sub.getKeys(state.currentSub)
-    let newKeys = Tea_Sub.getKeys(newSub)
-
-    let changed =
-      Array.length(oldKeys) !== Array.length(newKeys) ||
-        Array.some(oldKeys, key => !Array.includes(newKeys, key))
-
-    if changed {
-      // Clean up old subscriptions
-      state.subscriptionCleanup()
-
-      // Enable new subscriptions
-      state.currentSub = newSub
-      state.subscriptionCleanup = Tea_Sub.enable(newSub, dispatch)
-    }
-  }
-
-  // Initialise safety layers (DOMPurify, Trusted Types, MountTracer)
-  let _safetyReport = SafeMount.initSafety()
-
-  // Initial render
-  render()
-
-  // Set up initial subscriptions
-  let initialSub = config.subscriptions(state.model)
-  state.currentSub = initialSub
-  state.subscriptionCleanup = Tea_Sub.enable(initialSub, dispatch)
-
-  // Execute initial commands
-  Tea_Cmd.execute(initialCmd, dispatch)
-
-  // Expose debug API on window for agent/developer introspection.
-  // window.__panll.getModel()  — read full model state as JS object
-  // window.__panll.dispatch(msg) — inject a TEA message
-  // window.__panll.snapshot()   — JSON summary of key state fields
-  // window.__panll.diagCount    — number of messages dispatched
-  let _exposeDebugApi: (unit => 'model, 'msg => unit, ref<int>) => unit = %raw(`
-    function(getModel, dispatch, diagCount) {
-      window.__panll = {
-        getModel: getModel,
-        dispatch: dispatch,
-        diagCount: diagCount,
-        snapshot: function() {
-          var m = getModel();
-          return {
-            viewMode: m.viewMode,
-            activePanel: m.panelSwitcher ? m.panelSwitcher.activePanel : null,
-            panelBarVisible: m.panelBarVisible,
-            paneLVisible: m.paneLVisible,
-            paneNVisible: m.paneNVisible,
-            paneWVisible: m.paneWVisible,
-            fullscreen: m.fullscreenActive,
-            constraintCount: m.paneL ? m.paneL.constraints.length : 0,
-            tokenCount: m.paneN ? m.paneN.tokens.length : 0,
-            inferenceActive: m.paneN ? m.paneN.inferenceActive : false,
-            eventChainCount: m.paneW ? m.paneW.eventChain.length : 0,
-            focusDimming: m.focusDimming ? m.focusDimming.mode : null,
-            humidity: m.humidity,
-            orbitalStability: m.orbital ? m.orbital.stability : null,
-            echidnaConnected: m.echidna ? m.echidna.connected : false,
-            keybindingCount: m.keybindings ? m.keybindings.bindings.length : 0,
-            dispatched: diagCount.contents
-          };
-        }
-      };
-      window.__panll_log && window.__panll_log('debug API ready');
-    }
-  `)
-  _exposeDebugApi(() => state.model, dispatch, diagCount)
-
-  // Return program interface
-  {
-    shutdown: () => {
-      state.subscriptionCleanup()
-    },
-    getModel: () => state.model,
-  }
-}
-
-/// Create a simple program (no subscriptions)
-let simpleProgram = (
-  ~init: unit => ('model, Tea_Cmd.t<'msg>),
-  ~update: ('model, 'msg) => ('model, Tea_Cmd.t<'msg>),
-  ~view: 'model => Tea_Vdom.t<'msg>,
-  (),
-): programInterface<'msg, 'model> => {
-  standardProgram(~init, ~update, ~view, ~subscriptions=_ => Tea_Sub.none, ())
-}
diff --git a/src/tea/Tea_Cmd.affine b/src/tea/Tea_Cmd.affine
new file mode 100644
index 00000000..5c866018
--- /dev/null
+++ b/src/tea/Tea_Cmd.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Tea_Cmd;
+
+// TODO: Complete semantic implementation
diff --git a/src/tea/Tea_Cmd.res b/src/tea/Tea_Cmd.res
deleted file mode 100644
index b787f789..00000000
--- a/src/tea/Tea_Cmd.res
+++ /dev/null
@@ -1,60 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// TEA Commands - Side effects in the TEA architecture.
-///
-/// Commands represent side effects that should be performed by the runtime.
-/// They are opaque values that get executed after the update function returns.
-
-/// Callbacks for command execution
-type callbacks<'msg> = {enqueue: 'msg => unit}
-
-/// A command that can produce messages of type 'msg
-type rec t<'msg> =
-  | None
-  | Msg('msg)
-  | Batch(array<t<'msg>>)
-  | Call(callbacks<'msg> => unit)
-
-/// No command - no side effects
-let none: t<'msg> = None
-
-/// Create a command that immediately sends a message
-let msg = (m: 'msg): t<'msg> => Msg(m)
-
-/// Batch multiple commands together
-let batch = (cmds: list<t<'msg>>): t<'msg> => {
-  let cmdArray = List.toArray(cmds)
-  switch Array.length(cmdArray) {
-  | 0 => None
-  | 1 => Array.getUnsafe(cmdArray, 0)
-  | _ => Batch(cmdArray)
-  }
-}
-
-/// Create a command from a callback function
-/// This is the main way to integrate async operations (Promises, etc.)
-let call = (f: callbacks<'msg> => unit): t<'msg> => Call(f)
-
-/// Map a command's message type
-let rec map = (cmd: t<'a>, f: 'a => 'b): t<'b> => {
-  switch cmd {
-  | None => None
-  | Msg(a) => Msg(f(a))
-  | Batch(cmds) => Batch(Array.map(cmds, c => map(c, f)))
-  | Call(callback) => Call(callbacks => callback({enqueue: a => callbacks.enqueue(f(a))}))
-  }
-}
-
-/// Execute a command and collect immediate messages
-/// Async commands are started but their results come later via callbacks
-let rec execute = (cmd: t<'msg>, dispatch: 'msg => unit): unit => {
-  switch cmd {
-  | None => ()
-  | Msg(m) => dispatch(m)
-  | Batch(cmds) => Array.forEach(cmds, c => execute(c, dispatch))
-  | Call(f) => {
-      let callbacks = {enqueue: dispatch}
-      f(callbacks)
-    }
-  }
-}
diff --git a/src/tea/Tea_Debug.affine b/src/tea/Tea_Debug.affine
new file mode 100644
index 00000000..68ec57b7
--- /dev/null
+++ b/src/tea/Tea_Debug.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Tea_Debug;
+
+// TODO: Complete semantic implementation
diff --git a/src/tea/Tea_Debug.res b/src/tea/Tea_Debug.res
deleted file mode 100644
index e224ed8f..00000000
--- a/src/tea/Tea_Debug.res
+++ /dev/null
@@ -1,139 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-//
-// Tea_Debug.res — Time-travel debugger for the TEA architecture.
-//
-// Wraps a standard TEA program to record every (msg, model) pair.
-// Access via console: window.__tea_debug.history(), .back(), .forward(),
-// .goto(n), .model(), .export()
-
-/// History entry
-type historyEntry<'model, 'msg> = {
-  index: int,
-  msg: 'msg,
-  msgString: string,
-  model: 'model,
-  timestamp: float,
-}
-
-/// Debug state
-type debugState<'model, 'msg> = {
-  mutable history: array<historyEntry<'model, 'msg>>,
-  mutable currentIndex: int,
-  mutable isTimeTravelling: bool,
-  msgToString: 'msg => string,
-}
-
-/// Create a debug-wrapped TEA program with time-travel support.
-let program = (
-  ~init: unit => ('model, Tea_Cmd.t<'msg>),
-  ~update: ('model, 'msg) => ('model, Tea_Cmd.t<'msg>),
-  ~view: 'model => Tea_Vdom.t<'msg>,
-  ~subscriptions: 'model => Tea_Sub.t<'msg>,
-  ~msgToString: 'msg => string,
-  (),
-): Tea_App.programInterface<'msg, 'model> => {
-  let debugState: debugState<'model, 'msg> = {
-    history: [],
-    currentIndex: -1,
-    isTimeTravelling: false,
-    msgToString,
-  }
-
-  let debugInit = () => {
-    let (model, cmd) = init()
-    debugState.currentIndex = 0
-    (model, cmd)
-  }
-
-  let debugUpdate = (model: 'model, msg: 'msg): ('model, Tea_Cmd.t<'msg>) => {
-    if debugState.isTimeTravelling {
-      (model, Tea_Cmd.none)
-    } else {
-      let (newModel, cmd) = update(model, msg)
-
-      if debugState.currentIndex < Array.length(debugState.history) - 1 {
-        debugState.history = Array.slice(
-          debugState.history,
-          ~start=0,
-          ~end=debugState.currentIndex + 1,
-        )
-      }
-
-      let entry: historyEntry<'model, 'msg> = {
-        index: Array.length(debugState.history),
-        msg,
-        msgString: msgToString(msg),
-        model: newModel,
-        timestamp: Date.now(),
-      }
-      Array.push(debugState.history, entry)->ignore
-      debugState.currentIndex = Array.length(debugState.history) - 1
-
-      (newModel, cmd)
-    }
-  }
-
-  let _program = Tea_App.standardProgram(
-    ~init=debugInit,
-    ~update=debugUpdate,
-    ~view,
-    ~subscriptions,
-    (),
-  )
-
-  let _debugState = debugState
-  let _: unit = %raw(`
-    globalThis.__tea_debug = {
-      history: function() {
-        var h = _debugState.history;
-        console.group("TEA Debug History (" + h.length + " entries)");
-        for (var i = 0; i < h.length; i++) {
-          var marker = i === _debugState.currentIndex ? " <-- current" : "";
-          console.log("#" + i + ": " + h[i].msgString + marker);
-        }
-        console.groupEnd();
-        return h.length;
-      },
-      back: function() {
-        if (_debugState.currentIndex > 0) {
-          _debugState.isTimeTravelling = true;
-          _debugState.currentIndex--;
-          console.log("Back to #" + _debugState.currentIndex);
-          _debugState.isTimeTravelling = false;
-        }
-      },
-      forward: function() {
-        if (_debugState.currentIndex < _debugState.history.length - 1) {
-          _debugState.isTimeTravelling = true;
-          _debugState.currentIndex++;
-          console.log("Forward to #" + _debugState.currentIndex);
-          _debugState.isTimeTravelling = false;
-        }
-      },
-      goto: function(index) {
-        if (index >= 0 && index < _debugState.history.length) {
-          _debugState.isTimeTravelling = true;
-          _debugState.currentIndex = index;
-          console.log("Jumped to #" + index);
-          _debugState.isTimeTravelling = false;
-        }
-      },
-      model: function() {
-        if (_debugState.currentIndex >= 0 && _debugState.currentIndex < _debugState.history.length) {
-          return _debugState.history[_debugState.currentIndex].model;
-        }
-        return _program.getModel();
-      },
-      export: function() {
-        return JSON.stringify(_debugState.history.map(function(e) {
-          return { index: e.index, msg: e.msgString, timestamp: e.timestamp };
-        }), null, 2);
-      }
-    }
-  `)
-
-  Console.log("TEA Debug enabled. Access via window.__tea_debug")
-
-  _program
-}
diff --git a/src/tea/Tea_Html.affine b/src/tea/Tea_Html.affine
new file mode 100644
index 00000000..dab78f9f
--- /dev/null
+++ b/src/tea/Tea_Html.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Tea_Html;
+
+// TODO: Complete semantic implementation
diff --git a/src/tea/Tea_Html.res b/src/tea/Tea_Html.res
deleted file mode 100644
index de556708..00000000
--- a/src/tea/Tea_Html.res
+++ /dev/null
@@ -1,674 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-//
-// Tea_Html.res — HTML element constructors and attribute/event modules.
-
-open Tea_Vdom
-
-/// Re-export Vdom types
-type t<'msg> = Tea_Vdom.t<'msg>
-
-/// Create a text node
-let text = Tea_Vdom.text
-
-/// Create an element node from lists
-let node = Tea_Vdom.node
-
-/// Create an element node from arrays (faster)
-let nodeA = Tea_Vdom.nodeA
-
-/// Create a keyed element from lists (efficient list diffing)
-let keyed = Tea_Vdom.keyed
-
-/// Create a keyed element from arrays
-let keyedA = Tea_Vdom.keyedA
-
-/// Create a fragment (renders children without wrapper element)
-let fragment = Tea_Vdom.fragment
-
-/// Create a fragment from an array
-let fragmentA = Tea_Vdom.fragmentA
-
-/// No node (renders nothing)
-let noNode: t<'msg> = Text("")
-
-// ── HTML elements ──────────────────────────────────────────────────
-
-// Containers and structure
-
-/// HTML `<div>` element constructor.
-let div = (attrs, children) => node("div", attrs, children)
-
-/// HTML `<span>` element constructor.
-let span = (attrs, children) => node("span", attrs, children)
-
-/// HTML `<p>` (paragraph) element constructor.
-let p = (attrs, children) => node("p", attrs, children)
-
-/// HTML `<br>` (line break) void element.
-let br = (): t<'msg> => Element("br", [], [])
-
-// Headings
-
-/// HTML `<h1>` heading element constructor.
-let h1 = (attrs, children) => node("h1", attrs, children)
-
-/// HTML `<h2>` heading element constructor.
-let h2 = (attrs, children) => node("h2", attrs, children)
-
-/// HTML `<h3>` heading element constructor.
-let h3 = (attrs, children) => node("h3", attrs, children)
-
-/// HTML `<h4>` heading element constructor.
-let h4 = (attrs, children) => node("h4", attrs, children)
-
-/// HTML `<h5>` heading element constructor.
-let h5 = (attrs, children) => node("h5", attrs, children)
-
-/// HTML `<h6>` heading element constructor.
-let h6 = (attrs, children) => node("h6", attrs, children)
-
-// Interactive elements
-
-/// HTML `<button>` element constructor.
-let button = (attrs, children) => node("button", attrs, children)
-
-/// HTML `<input>` element constructor.
-let input = (attrs, children) => node("input", attrs, children)
-
-/// HTML `<textarea>` element constructor.
-let textarea = (attrs, children) => node("textarea", attrs, children)
-
-/// HTML `<label>` element constructor.
-let label = (attrs, children) => node("label", attrs, children)
-
-/// HTML `<a>` (anchor/link) element constructor.
-let a = (attrs, children) => node("a", attrs, children)
-
-/// HTML `<img>` (image) element constructor.
-let img = (attrs, children) => node("img", attrs, children)
-
-/// HTML `<details>` (disclosure widget) element constructor.
-let details = (attrs, children) => node("details", attrs, children)
-
-/// HTML `<summary>` element constructor (used inside `<details>`).
-let summary = (attrs, children) => node("summary", attrs, children)
-
-/// HTML `<dialog>` (modal/non-modal dialog) element constructor.
-let dialog = (attrs, children) => node("dialog", attrs, children)
-
-// Lists
-
-/// HTML `<ul>` (unordered list) element constructor.
-let ul = (attrs, children) => node("ul", attrs, children)
-
-/// HTML `<ol>` (ordered list) element constructor.
-let ol = (attrs, children) => node("ol", attrs, children)
-
-/// HTML `<li>` (list item) element constructor.
-let li = (attrs, children) => node("li", attrs, children)
-
-/// HTML `<dl>` (description list) element constructor.
-let dl = (attrs, children) => node("dl", attrs, children)
-
-/// HTML `<dt>` (description term) element constructor.
-let dt = (attrs, children) => node("dt", attrs, children)
-
-/// HTML `<dd>` (description details) element constructor.
-let dd = (attrs, children) => node("dd", attrs, children)
-
-// Form elements
-
-/// HTML `<form>` element constructor.
-let form = (attrs, children) => node("form", attrs, children)
-
-/// HTML `<select>` (dropdown) element constructor.
-let select = (attrs, children) => node("select", attrs, children)
-
-/// HTML `<option>` element constructor. Suffixed with `'` to avoid keyword conflict.
-let option' = (attrs, children) => node("option", attrs, children)
-
-/// HTML `<optgroup>` (option group) element constructor.
-let optgroup = (attrs, children) => node("optgroup", attrs, children)
-
-/// HTML `<fieldset>` element constructor.
-let fieldset = (attrs, children) => node("fieldset", attrs, children)
-
-/// HTML `<legend>` element constructor (used inside `<fieldset>`).
-let legend = (attrs, children) => node("legend", attrs, children)
-
-/// HTML `<datalist>` element constructor.
-let datalist = (attrs, children) => node("datalist", attrs, children)
-
-/// HTML `<output>` element constructor.
-let output = (attrs, children) => node("output", attrs, children)
-
-/// HTML `<progress>` element constructor.
-let progress = (attrs, children) => node("progress", attrs, children)
-
-/// HTML `<meter>` element constructor.
-let meter = (attrs, children) => node("meter", attrs, children)
-
-// Semantic elements
-
-/// HTML `<header>` element constructor.
-let header = (attrs, children) => node("header", attrs, children)
-
-/// HTML `<footer>` element constructor.
-let footer = (attrs, children) => node("footer", attrs, children)
-
-/// HTML `<main>` element constructor.
-let main = (attrs, children) => node("main", attrs, children)
-
-/// HTML `<nav>` (navigation) element constructor.
-let nav = (attrs, children) => node("nav", attrs, children)
-
-/// HTML `<section>` element constructor.
-let section = (attrs, children) => node("section", attrs, children)
-
-/// HTML `<article>` element constructor.
-let article = (attrs, children) => node("article", attrs, children)
-
-/// HTML `<aside>` element constructor.
-let aside = (attrs, children) => node("aside", attrs, children)
-
-/// HTML `<figure>` element constructor.
-let figure = (attrs, children) => node("figure", attrs, children)
-
-/// HTML `<figcaption>` element constructor.
-let figcaption = (attrs, children) => node("figcaption", attrs, children)
-
-/// HTML `<address>` element constructor.
-let address = (attrs, children) => node("address", attrs, children)
-
-/// HTML `<time>` element constructor.
-let time = (attrs, children) => node("time", attrs, children)
-
-/// HTML `<mark>` (highlighted text) element constructor.
-let mark = (attrs, children) => node("mark", attrs, children)
-
-// Table elements
-
-/// HTML `<table>` element constructor.
-let table = (attrs, children) => node("table", attrs, children)
-
-/// HTML `<thead>` (table head) element constructor.
-let thead = (attrs, children) => node("thead", attrs, children)
-
-/// HTML `<tbody>` (table body) element constructor.
-let tbody = (attrs, children) => node("tbody", attrs, children)
-
-/// HTML `<tfoot>` (table foot) element constructor.
-let tfoot = (attrs, children) => node("tfoot", attrs, children)
-
-/// HTML `<tr>` (table row) element constructor.
-let tr = (attrs, children) => node("tr", attrs, children)
-
-/// HTML `<th>` (table header cell) element constructor.
-let th = (attrs, children) => node("th", attrs, children)
-
-/// HTML `<td>` (table data cell) element constructor.
-let td = (attrs, children) => node("td", attrs, children)
-
-/// HTML `<caption>` (table caption) element constructor.
-let caption = (attrs, children) => node("caption", attrs, children)
-
-/// HTML `<colgroup>` element constructor.
-let colgroup = (attrs, children) => node("colgroup", attrs, children)
-
-/// HTML `<col>` element constructor.
-let col = (attrs, children) => node("col", attrs, children)
-
-// Text formatting
-
-/// HTML `<pre>` (preformatted text) element constructor.
-let pre = (attrs, children) => node("pre", attrs, children)
-
-/// HTML `<code>` (inline code) element constructor.
-let code = (attrs, children) => node("code", attrs, children)
-
-/// HTML `<strong>` (bold/important text) element constructor.
-let strong = (attrs, children) => node("strong", attrs, children)
-
-/// HTML `<em>` (emphasised text) element constructor.
-let em = (attrs, children) => node("em", attrs, children)
-
-/// HTML `<small>` element constructor.
-let small = (attrs, children) => node("small", attrs, children)
-
-/// HTML `<sub>` (subscript) element constructor.
-let sub = (attrs, children) => node("sub", attrs, children)
-
-/// HTML `<sup>` (superscript) element constructor.
-let sup = (attrs, children) => node("sup", attrs, children)
-
-/// HTML `<abbr>` (abbreviation) element constructor.
-let abbr = (attrs, children) => node("abbr", attrs, children)
-
-/// HTML `<blockquote>` element constructor.
-let blockquote = (attrs, children) => node("blockquote", attrs, children)
-
-/// HTML `<cite>` element constructor.
-let cite = (attrs, children) => node("cite", attrs, children)
-
-/// HTML `<del>` (deleted text) element constructor.
-let del = (attrs, children) => node("del", attrs, children)
-
-/// HTML `<ins>` (inserted text) element constructor.
-let ins = (attrs, children) => node("ins", attrs, children)
-
-/// HTML `<kbd>` (keyboard input) element constructor.
-let kbd = (attrs, children) => node("kbd", attrs, children)
-
-/// HTML `<samp>` (sample output) element constructor.
-let samp = (attrs, children) => node("samp", attrs, children)
-
-/// HTML `<var>` (variable) element constructor.
-let var = (attrs, children) => node("var", attrs, children)
-
-/// HTML `<hr>` (horizontal rule) void element.
-let hr = (): t<'msg> => Element("hr", [], [])
-
-// Embedded content
-
-/// HTML `<audio>` element constructor.
-let audio = (attrs, children) => node("audio", attrs, children)
-
-/// HTML `<video>` element constructor.
-let video = (attrs, children) => node("video", attrs, children)
-
-/// HTML `<source>` element constructor (used inside `<audio>`/`<video>`).
-let source = (attrs, children) => node("source", attrs, children)
-
-/// HTML `<canvas>` element constructor.
-let canvas = (attrs, children) => node("canvas", attrs, children)
-
-/// HTML `<picture>` element constructor.
-let picture = (attrs, children) => node("picture", attrs, children)
-
-/// HTML `<iframe>` element constructor.
-let iframe = (attrs, children) => node("iframe", attrs, children)
-
-/// HTML attribute constructors.
-///
-/// All standard HTML attributes, form attributes, ARIA attributes,
-/// and data attributes are available as type-safe functions.
-module Attrs = {
-  // Basic
-
-  /// Sets the CSS class attribute.
-  let class_ = Tea_Vdom.class_
-
-  /// Sets the element id attribute.
-  let id = Tea_Vdom.id
-
-  /// Sets an inline CSS style property and value.
-  let style = Tea_Vdom.style
-
-  /// Sets the placeholder text for input/textarea elements.
-  let placeholder = Tea_Vdom.placeholder
-
-  /// Sets the value attribute (for inputs, selects, textareas).
-  let value = Tea_Vdom.value
-
-  /// Sets the title (tooltip) attribute.
-  let title = Tea_Vdom.title
-
-  /// Sets the href attribute (for links).
-  let href = Tea_Vdom.href
-
-  /// Sets the src attribute (for images, scripts, etc.).
-  let src = Tea_Vdom.src
-
-  /// Sets the alt text attribute (for images).
-  let alt = Tea_Vdom.alt
-
-  /// Sets the disabled boolean attribute.
-  let disabled = Tea_Vdom.disabled
-
-  /// Sets the checked boolean attribute (for checkboxes/radios).
-  let checked = Tea_Vdom.checked
-
-  /// Sets the type attribute (e.g. "text", "password", "submit").
-  let type_ = Tea_Vdom.type_
-
-  /// Sets the name attribute (for form elements).
-  let name = Tea_Vdom.name
-
-  /// Sets the tabindex attribute for keyboard navigation order.
-  let tabIndex = Tea_Vdom.tabIndex
-
-  /// A no-op attribute that renders nothing. Use in conditional expressions.
-  let noProp = Tea_Vdom.noProp
-
-  /// Generic property setter for attributes not covered by named helpers.
-  let prop = Tea_Vdom.prop
-
-  // Form
-
-  /// Sets the `for` attribute (associates label with input). Suffixed with `_` to avoid keyword conflict.
-  let for_ = Tea_Vdom.for_
-
-  /// Sets the required boolean attribute.
-  let required = Tea_Vdom.required
-
-  /// Sets the readonly boolean attribute.
-  let readonly = Tea_Vdom.readonly
-
-  /// Sets the autofocus boolean attribute.
-  let autofocus = Tea_Vdom.autofocus
-
-  /// Sets the autocomplete attribute (e.g. "on", "off", "email").
-  let autocomplete = Tea_Vdom.autocomplete
-
-  /// Sets the pattern attribute (regex for input validation).
-  let pattern = Tea_Vdom.pattern
-
-  /// Sets the multiple boolean attribute (for select/file inputs).
-  let multiple = Tea_Vdom.multiple
-
-  /// Sets the accept attribute (MIME types for file inputs).
-  let accept = Tea_Vdom.accept
-
-  /// Sets the min attribute (minimum value for number/date inputs).
-  let min = Tea_Vdom.min
-
-  /// Sets the max attribute (maximum value for number/date inputs).
-  let max = Tea_Vdom.max
-
-  /// Sets the step attribute (increment for number inputs).
-  let step = Tea_Vdom.step
-
-  /// Sets the maxlength attribute (max character count).
-  let maxLength = Tea_Vdom.maxLength
-
-  /// Sets the minlength attribute (min character count).
-  let minLength = Tea_Vdom.minLength
-
-  /// Sets the action URL for form submission.
-  let action = Tea_Vdom.action
-
-  /// Sets the form method (e.g. "GET", "POST").
-  let method = Tea_Vdom.method
-
-  /// Sets the number of visible columns for a textarea.
-  let cols = Tea_Vdom.cols
-
-  /// Sets the number of visible rows for a textarea.
-  let rows = Tea_Vdom.rows
-
-  /// Sets the novalidate boolean attribute on forms.
-  let noValidate = Tea_Vdom.noValidate
-
-  // Media/embed
-
-  /// Sets the width attribute.
-  let width = Tea_Vdom.width
-
-  /// Sets the height attribute.
-  let height = Tea_Vdom.height
-
-  /// Sets the target attribute (e.g. "_blank" for links).
-  let target = Tea_Vdom.target
-
-  /// Sets the download attribute (triggers file download on click).
-  let download = Tea_Vdom.download
-
-  /// Sets the rel attribute (link relationship, e.g. "noopener").
-  let rel = Tea_Vdom.rel
-
-  /// Sets the hidden boolean attribute.
-  let hidden = Tea_Vdom.hidden
-
-  // Interaction
-
-  /// Sets the draggable boolean attribute.
-  let draggable = Tea_Vdom.draggable
-
-  /// Sets the contenteditable boolean attribute.
-  let contentEditable = Tea_Vdom.contentEditable
-
-  /// Sets the spellcheck boolean attribute.
-  let spellCheck = Tea_Vdom.spellCheck
-
-  // Table
-
-  /// Sets the colspan attribute (number of columns a cell spans).
-  let colspan = Tea_Vdom.colspan
-
-  /// Sets the rowspan attribute (number of rows a cell spans).
-  let rowspan = Tea_Vdom.rowspan
-
-  // Data attributes
-
-  /// Sets a data-* attribute. `data_("key", "val")` renders as `data-key="val"`.
-  let data_ = Tea_Vdom.data_
-
-  // ARIA accessibility
-
-  /// Sets the aria-label attribute (accessible name).
-  let ariaLabel = Tea_Vdom.ariaLabel
-
-  /// Sets the aria-live attribute ("polite", "assertive", "off").
-  let ariaLive = Tea_Vdom.ariaLive
-
-  /// Sets the aria-expanded boolean attribute.
-  let ariaExpanded = Tea_Vdom.ariaExpanded
-
-  /// Sets the aria-hidden boolean attribute.
-  let ariaHidden = Tea_Vdom.ariaHidden
-
-  /// Sets the aria-pressed boolean attribute.
-  let ariaPressed = Tea_Vdom.ariaPressed
-
-  /// Sets the aria-current attribute (e.g. "page", "step", "true").
-  let ariaCurrent = Tea_Vdom.ariaCurrent
-
-  /// Sets the aria-valuenow attribute (current value of a range widget).
-  let ariaValueNow = Tea_Vdom.ariaValueNow
-
-  /// Sets the aria-valuemin attribute (minimum value of a range widget).
-  let ariaValueMin = Tea_Vdom.ariaValueMin
-
-  /// Sets the aria-valuemax attribute (maximum value of a range widget).
-  let ariaValueMax = Tea_Vdom.ariaValueMax
-
-  /// Sets the aria-describedby attribute (references describing element id).
-  let ariaDescribedBy = Tea_Vdom.ariaDescribedBy
-
-  /// Sets the aria-checked boolean attribute.
-  let ariaChecked = Tea_Vdom.ariaChecked
-
-  /// Sets the aria-selected boolean attribute.
-  let ariaSelected = Tea_Vdom.ariaSelected
-
-  /// Sets the aria-controls attribute (references controlled element id).
-  let ariaControls = Tea_Vdom.ariaControls
-
-  /// Sets the aria-labelledby attribute (references labelling element id).
-  let ariaLabelledBy = Tea_Vdom.ariaLabelledBy
-
-  /// Sets the aria-required boolean attribute.
-  let ariaRequired = Tea_Vdom.ariaRequired
-
-  /// Sets the aria-invalid boolean attribute.
-  let ariaInvalid = Tea_Vdom.ariaInvalid
-
-  /// Sets the aria-disabled boolean attribute.
-  let ariaDisabled = Tea_Vdom.ariaDisabled
-
-  /// Sets the aria-sort attribute ("ascending", "descending", "none").
-  let ariaSort = Tea_Vdom.ariaSort
-
-  /// Sets the aria-orientation attribute ("horizontal", "vertical").
-  let ariaOrientation = Tea_Vdom.ariaOrientation
-
-  /// Sets the aria-modal boolean attribute.
-  let ariaModal = Tea_Vdom.ariaModal
-
-  /// Sets the role attribute (ARIA landmark role, e.g. "button", "dialog").
-  let role = Tea_Vdom.role
-
-  /// Sets the selected boolean attribute (for option elements).
-  let selected = Tea_Vdom.selected
-}
-
-/// DOM event handler constructors.
-///
-/// Mouse, pointer, touch, keyboard, form, drag-and-drop, clipboard,
-/// scroll, animation, and wheel events.
-module Events = {
-  // Mouse
-
-  /// Fires when the element is clicked. Dispatches the given message.
-  let onClick = Tea_Vdom.onClick
-
-  /// Fires on double-click.
-  let onDoubleClick = Tea_Vdom.onDoubleClick
-
-  /// Fires on right-click (context menu). Prevents the default browser menu.
-  let onContextMenu = Tea_Vdom.onContextMenu
-
-  /// Fires when a mouse button is pressed down.
-  let onMouseDown = Tea_Vdom.onMouseDown
-
-  /// Fires when a mouse button is released.
-  let onMouseUp = Tea_Vdom.onMouseUp
-
-  /// Fires when the cursor enters the element (does not bubble).
-  let onMouseEnter = Tea_Vdom.onMouseEnter
-
-  /// Fires when the cursor leaves the element (does not bubble).
-  let onMouseLeave = Tea_Vdom.onMouseLeave
-
-  /// Fires when the cursor moves over the element (bubbles).
-  let onMouseOver = Tea_Vdom.onMouseOver
-
-  /// Fires when the cursor moves out of the element (bubbles).
-  let onMouseOut = Tea_Vdom.onMouseOut
-
-  // Pointer (unified mouse/touch/pen)
-
-  /// Fires when a pointer (mouse/touch/pen) is pressed down.
-  let onPointerDown = Tea_Vdom.onPointerDown
-
-  /// Fires when a pointer is released.
-  let onPointerUp = Tea_Vdom.onPointerUp
-
-  /// Fires when a pointer moves.
-  let onPointerMove = Tea_Vdom.onPointerMove
-
-  /// Fires when a pointer enters the element.
-  let onPointerEnter = Tea_Vdom.onPointerEnter
-
-  /// Fires when a pointer leaves the element.
-  let onPointerLeave = Tea_Vdom.onPointerLeave
-
-  /// Fires when a pointer interaction is cancelled.
-  let onPointerCancel = Tea_Vdom.onPointerCancel
-
-  // Touch
-
-  /// Fires when a touch point is placed on the touch surface.
-  let onTouchStart = Tea_Vdom.onTouchStart
-
-  /// Fires when a touch point is removed from the touch surface.
-  let onTouchEnd = Tea_Vdom.onTouchEnd
-
-  /// Fires when a touch point moves along the touch surface.
-  let onTouchMove = Tea_Vdom.onTouchMove
-
-  /// Fires when a touch interaction is cancelled.
-  let onTouchCancel = Tea_Vdom.onTouchCancel
-
-  // Form
-
-  /// Fires on input value change. Handler receives the current input value string.
-  let onInput = Tea_Vdom.onInput
-
-  /// Fires when the input value is committed (blur or Enter). Handler receives the value string.
-  let onChange = Tea_Vdom.onChange
-
-  /// Fires on form submission. Prevents the default submit action.
-  let onSubmit = Tea_Vdom.onSubmit
-
-  /// Fires on form reset.
-  let onReset = Tea_Vdom.onReset
-
-  // Focus
-
-  /// Fires when the element gains focus.
-  let onFocus = Tea_Vdom.onFocus
-
-  /// Fires when the element loses focus.
-  let onBlur = Tea_Vdom.onBlur
-
-  // Keyboard
-
-  /// Fires on key down. Handler receives the key string and returns `Some(msg)` to handle or `None` to ignore.
-  let onKeyDown = Tea_Vdom.onKeyDown
-
-  /// Fires on key up. Handler receives the key string and returns `Some(msg)` to handle or `None` to ignore.
-  let onKeyUp = Tea_Vdom.onKeyUp
-
-  /// Fires on key press (deprecated in browsers; prefer onKeyDown).
-  let onKeyPress = Tea_Vdom.onKeyPress
-
-  // Drag and drop
-
-  /// Fires when a drag operation starts.
-  let onDragStart = Tea_Vdom.onDragStart
-
-  /// Fires continuously while dragging.
-  let onDrag = Tea_Vdom.onDrag
-
-  /// Fires when a drag operation ends.
-  let onDragEnd = Tea_Vdom.onDragEnd
-
-  /// Fires when a dragged item enters a valid drop target.
-  let onDragEnter = Tea_Vdom.onDragEnter
-
-  /// Fires when a dragged item leaves a valid drop target.
-  let onDragLeave = Tea_Vdom.onDragLeave
-
-  /// Fires when a dragged item is over a valid drop target. Prevents default to allow dropping.
-  let onDragOver = Tea_Vdom.onDragOver
-
-  /// Fires when a dragged item is dropped. Prevents default browser handling.
-  let onDrop = Tea_Vdom.onDrop
-
-  // Scroll
-
-  /// Fires when the element is scrolled.
-  let onScroll = Tea_Vdom.onScroll
-
-  // Animation/transition
-
-  /// Fires when a CSS animation completes.
-  let onAnimationEnd = Tea_Vdom.onAnimationEnd
-
-  /// Fires when a CSS animation starts.
-  let onAnimationStart = Tea_Vdom.onAnimationStart
-
-  /// Fires when a CSS transition completes.
-  let onTransitionEnd = Tea_Vdom.onTransitionEnd
-
-  // Clipboard
-
-  /// Fires when content is copied.
-  let onCopy = Tea_Vdom.onCopy
-
-  /// Fires when content is cut.
-  let onCut = Tea_Vdom.onCut
-
-  /// Fires when content is pasted.
-  let onPaste = Tea_Vdom.onPaste
-
-  // Wheel
-
-  /// Fires on mouse wheel scroll.
-  let onWheel = Tea_Vdom.onWheel
-}
-
-/// Map the message type of a virtual DOM tree
-let map = Tea_Vdom.map
diff --git a/src/tea/Tea_Http.affine b/src/tea/Tea_Http.affine
new file mode 100644
index 00000000..8f5a5864
--- /dev/null
+++ b/src/tea/Tea_Http.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Tea_Http;
+
+// TODO: Complete semantic implementation
diff --git a/src/tea/Tea_Http.res b/src/tea/Tea_Http.res
deleted file mode 100644
index b2517335..00000000
--- a/src/tea/Tea_Http.res
+++ /dev/null
@@ -1,270 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-//
-// Tea_Http.res — Type-safe HTTP client for the TEA architecture.
-//
-// Usage:
-//   let cmd = Tea_Http.get(
-//     ~url="/api/data",
-//     ~expect=Tea_Http.expectString(GotData),
-//   )
-
-/// HTTP error types
-type error =
-  | BadUrl(string)
-  | Timeout
-  | NetworkError
-  | BadStatus(int, string)
-  | BadBody(string)
-
-/// HTTP header
-type header = {name: string, value: string}
-
-/// Create an HTTP header key-value pair.
-let header = (name: string, value: string): header => {name, value}
-
-/// Format an error to a human-readable string
-let errorToString = (err: error): string => {
-  switch err {
-  | BadUrl(url) => `Bad URL: ${url}`
-  | Timeout => "Request timed out"
-  | NetworkError => "Network error"
-  | BadStatus(status, body) =>
-    `Bad status ${Int.toString(status)}: ${String.slice(body, ~start=0, ~end=200)}`
-  | BadBody(reason) => `Bad body: ${reason}`
-  }
-}
-
-// Internal: execute a fetch request and dispatch the result
-let sendFetch = (
-  ~method: string,
-  ~url: string,
-  ~headers: array<header>,
-  ~body: option<string>,
-  ~timeout: option<int>,
-  ~onResponse: (int, string) => 'msg,
-  ~onError: string => 'msg,
-): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let _url = url
-    let _method = method
-    let _headers = headers
-    let _body = body
-    let _timeout = timeout
-    let _onResponse = onResponse
-    let _onError = onError
-    let _enqueue = callbacks.enqueue
-
-    ignore(
-      %raw(`
-      (function() {
-        var init = { method: _method, headers: {} };
-        for (var i = 0; i < _headers.length; i++) {
-          init.headers[_headers[i].name] = _headers[i].value;
-        }
-        if (_body !== undefined) init.body = _body;
-
-        var controller = new AbortController();
-        init.signal = controller.signal;
-
-        var timeoutId;
-        if (_timeout !== undefined) {
-          timeoutId = setTimeout(function() {
-            controller.abort();
-            _enqueue(_onError("timeout"));
-          }, _timeout);
-        }
-
-        fetch(_url, init)
-          .then(function(response) {
-            if (timeoutId) clearTimeout(timeoutId);
-            return response.text().then(function(text) {
-              _enqueue(_onResponse(response.status, text));
-            });
-          })
-          .catch(function(err) {
-            if (timeoutId) clearTimeout(timeoutId);
-            if (err.name !== 'AbortError') {
-              _enqueue(_onError("network"));
-            }
-          });
-      })()
-    `),
-    )
-  })
-}
-
-/// Build a GET request expecting a string response
-let getString = (
-  ~url: string,
-  ~headers: array<header>=[],
-  ~timeout: option<int>=?,
-  ~toMsg: result<string, error> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  sendFetch(
-    ~method="GET",
-    ~url,
-    ~headers,
-    ~body=None,
-    ~timeout,
-    ~onResponse=(status, body) => {
-      if status >= 200 && status < 300 {
-        toMsg(Ok(body))
-      } else {
-        toMsg(Error(BadStatus(status, body)))
-      }
-    },
-    ~onError=err => {
-      toMsg(Error(err === "timeout" ? Timeout : NetworkError))
-    },
-  )
-}
-
-/// Build a GET request expecting a JSON response decoded by a function
-let getJson = (
-  ~url: string,
-  ~headers: array<header>=[],
-  ~timeout: option<int>=?,
-  ~decoder: string => result<'a, string>,
-  ~toMsg: result<'a, error> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  sendFetch(
-    ~method="GET",
-    ~url,
-    ~headers,
-    ~body=None,
-    ~timeout,
-    ~onResponse=(status, body) => {
-      if status >= 200 && status < 300 {
-        switch decoder(body) {
-        | Ok(value) => toMsg(Ok(value))
-        | Error(reason) => toMsg(Error(BadBody(reason)))
-        }
-      } else {
-        toMsg(Error(BadStatus(status, body)))
-      }
-    },
-    ~onError=err => {
-      toMsg(Error(err === "timeout" ? Timeout : NetworkError))
-    },
-  )
-}
-
-/// Build a POST request with a JSON body
-let postJson = (
-  ~url: string,
-  ~headers: array<header>=[],
-  ~body: string,
-  ~timeout: option<int>=?,
-  ~decoder: string => result<'a, string>,
-  ~toMsg: result<'a, error> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  sendFetch(
-    ~method="POST",
-    ~url,
-    ~headers=Array.concat(headers, [{name: "Content-Type", value: "application/json"}]),
-    ~body=Some(body),
-    ~timeout,
-    ~onResponse=(status, responseBody) => {
-      if status >= 200 && status < 300 {
-        switch decoder(responseBody) {
-        | Ok(value) => toMsg(Ok(value))
-        | Error(reason) => toMsg(Error(BadBody(reason)))
-        }
-      } else {
-        toMsg(Error(BadStatus(status, responseBody)))
-      }
-    },
-    ~onError=err => {
-      toMsg(Error(err === "timeout" ? Timeout : NetworkError))
-    },
-  )
-}
-
-/// Build a PUT request
-let putJson = (
-  ~url: string,
-  ~headers: array<header>=[],
-  ~body: string,
-  ~timeout: option<int>=?,
-  ~decoder: string => result<'a, string>,
-  ~toMsg: result<'a, error> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  sendFetch(
-    ~method="PUT",
-    ~url,
-    ~headers=Array.concat(headers, [{name: "Content-Type", value: "application/json"}]),
-    ~body=Some(body),
-    ~timeout,
-    ~onResponse=(status, responseBody) => {
-      if status >= 200 && status < 300 {
-        switch decoder(responseBody) {
-        | Ok(value) => toMsg(Ok(value))
-        | Error(reason) => toMsg(Error(BadBody(reason)))
-        }
-      } else {
-        toMsg(Error(BadStatus(status, responseBody)))
-      }
-    },
-    ~onError=err => {
-      toMsg(Error(err === "timeout" ? Timeout : NetworkError))
-    },
-  )
-}
-
-/// Build a DELETE request
-let delete = (
-  ~url: string,
-  ~headers: array<header>=[],
-  ~timeout: option<int>=?,
-  ~toMsg: result<string, error> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  sendFetch(
-    ~method="DELETE",
-    ~url,
-    ~headers,
-    ~body=None,
-    ~timeout,
-    ~onResponse=(status, body) => {
-      if status >= 200 && status < 300 {
-        toMsg(Ok(body))
-      } else {
-        toMsg(Error(BadStatus(status, body)))
-      }
-    },
-    ~onError=err => {
-      toMsg(Error(err === "timeout" ? Timeout : NetworkError))
-    },
-  )
-}
-
-/// Build a PATCH request
-let patchJson = (
-  ~url: string,
-  ~headers: array<header>=[],
-  ~body: string,
-  ~timeout: option<int>=?,
-  ~decoder: string => result<'a, string>,
-  ~toMsg: result<'a, error> => 'msg,
-): Tea_Cmd.t<'msg> => {
-  sendFetch(
-    ~method="PATCH",
-    ~url,
-    ~headers=Array.concat(headers, [{name: "Content-Type", value: "application/json"}]),
-    ~body=Some(body),
-    ~timeout,
-    ~onResponse=(status, responseBody) => {
-      if status >= 200 && status < 300 {
-        switch decoder(responseBody) {
-        | Ok(value) => toMsg(Ok(value))
-        | Error(reason) => toMsg(Error(BadBody(reason)))
-        }
-      } else {
-        toMsg(Error(BadStatus(status, responseBody)))
-      }
-    },
-    ~onError=err => {
-      toMsg(Error(err === "timeout" ? Timeout : NetworkError))
-    },
-  )
-}
diff --git a/src/tea/Tea_Json.affine b/src/tea/Tea_Json.affine
new file mode 100644
index 00000000..8fd9c1b1
--- /dev/null
+++ b/src/tea/Tea_Json.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Tea_Json;
+
+// TODO: Complete semantic implementation
diff --git a/src/tea/Tea_Json.res b/src/tea/Tea_Json.res
deleted file mode 100644
index b8900123..00000000
--- a/src/tea/Tea_Json.res
+++ /dev/null
@@ -1,397 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-//
-// Tea_Json.res — Elm-style JSON decoders for type-safe data parsing.
-//
-// Usage:
-//   let userDecoder = Tea_Json.map2(
-//     (name, age) => {name, age},
-//     Tea_Json.field("name", Tea_Json.string),
-//     Tea_Json.field("age", Tea_Json.int),
-//   )
-
-/// Decoder error with path context
-type rec error =
-  | Field(string, error)
-  | Index(int, error)
-  | OneOf(array<error>)
-  | Failure(string, JSON.t)
-
-/// A decoder that transforms JSON.t into a result
-type decoder<'a> = JSON.t => result<'a, error>
-
-// Primitive decoders
-
-/// Decode a JSON string value.
-let string: decoder<string> = json => {
-  switch json {
-  | String(s) => Ok(s)
-  | _ => Error(Failure("Expected a string", json))
-  }
-}
-
-/// Decode a JSON integer value.
-let int: decoder<int> = json => {
-  switch json {
-  | Number(n) =>
-    let i = Float.toInt(n)
-    if Int.toFloat(i) === n {
-      Ok(i)
-    } else {
-      Error(Failure("Expected an integer", json))
-    }
-  | _ => Error(Failure("Expected an integer", json))
-  }
-}
-
-/// Decode a JSON float/number value.
-let float: decoder<float> = json => {
-  switch json {
-  | Number(n) => Ok(n)
-  | _ => Error(Failure("Expected a number", json))
-  }
-}
-
-/// Decode a JSON boolean value.
-let bool: decoder<bool> = json => {
-  switch json {
-  | Boolean(b) => Ok(b)
-  | _ => Error(Failure("Expected a boolean", json))
-  }
-}
-
-/// Decode a JSON null, returning the provided default value.
-let null = (default: 'a): decoder<'a> => {
-  json => {
-    switch json {
-    | Null => Ok(default)
-    | _ => Error(Failure("Expected null", json))
-    }
-  }
-}
-
-// Object decoders
-
-/// Decode a field from a JSON object by name.
-let field = (name: string, decoder: decoder<'a>): decoder<'a> => {
-  json => {
-    switch json {
-    | Object(dict) =>
-      switch Dict.get(dict, name) {
-      | Some(value) =>
-        switch decoder(value) {
-        | Ok(v) => Ok(v)
-        | Error(e) => Error(Field(name, e))
-        }
-      | None => Error(Field(name, Failure(`Field "${name}" not found`, json)))
-      }
-    | _ => Error(Failure("Expected an object", json))
-    }
-  }
-}
-
-/// Decode an optional field. Returns `None` if the field is missing or null.
-let optionalField = (name: string, decoder: decoder<'a>): decoder<option<'a>> => {
-  json => {
-    switch json {
-    | Object(dict) =>
-      switch Dict.get(dict, name) {
-      | Some(value) =>
-        switch value {
-        | Null => Ok(None)
-        | _ =>
-          switch decoder(value) {
-          | Ok(v) => Ok(Some(v))
-          | Error(e) => Error(Field(name, e))
-          }
-        }
-      | None => Ok(None)
-      }
-    | _ => Error(Failure("Expected an object", json))
-    }
-  }
-}
-
-/// Decode a value at a nested path within a JSON object.
-let at = (path: array<string>, decoder: decoder<'a>): decoder<'a> => {
-  json => {
-    let current = ref(json)
-    let error = ref(None)
-    Array.forEach(path, key => {
-      if Option.isNone(error.contents) {
-        switch current.contents {
-        | Object(dict) =>
-          switch Dict.get(dict, key) {
-          | Some(v) => current := v
-          | None => error := Some(Field(key, Failure(`Field "${key}" not found`, current.contents)))
-          }
-        | _ => error := Some(Failure("Expected an object", current.contents))
-        }
-      }
-    })
-    switch error.contents {
-    | Some(e) => Error(e)
-    | None => decoder(current.contents)
-    }
-  }
-}
-
-// Array decoders
-
-/// Decode a JSON array, applying the given decoder to each element.
-let array = (decoder: decoder<'a>): decoder<array<'a>> => {
-  json => {
-    switch json {
-    | Array(arr) => {
-        let results: array<result<'a, error>> = Array.mapWithIndex(arr, (item, i) => {
-          switch decoder(item) {
-          | Ok(v) => Ok(v)
-          | Error(e) => Error(Index(i, e))
-          }
-        })
-        let firstError = Array.find(results, r => Result.isError(r))
-        switch firstError {
-        | Some(Error(e)) => Error(e)
-        | _ =>
-          Ok(
-            Array.filterMap(results, r => {
-              switch r {
-              | Ok(v) => Some(v)
-              | Error(_) => None
-              }
-            }),
-          )
-        }
-      }
-    | _ => Error(Failure("Expected an array", json))
-    }
-  }
-}
-
-/// Decode a value at a specific array index.
-let index = (i: int, decoder: decoder<'a>): decoder<'a> => {
-  json => {
-    switch json {
-    | Array(arr) =>
-      switch arr[i] {
-      | Some(value) =>
-        switch decoder(value) {
-        | Ok(v) => Ok(v)
-        | Error(e) => Error(Index(i, e))
-        }
-      | None => Error(Index(i, Failure(`Index ${Int.toString(i)} out of bounds`, json)))
-      }
-    | _ => Error(Failure("Expected an array", json))
-    }
-  }
-}
-
-// Combinators
-
-/// Transform a decoded value with a function.
-let map = (decoder: decoder<'a>, f: 'a => 'b): decoder<'b> => {
-  json => {
-    switch decoder(json) {
-    | Ok(v) => Ok(f(v))
-    | Error(e) => Error(e)
-    }
-  }
-}
-
-/// Combine two decoders with a function.
-let map2 = (f: ('a, 'b) => 'c, d1: decoder<'a>, d2: decoder<'b>): decoder<'c> => {
-  json => {
-    switch (d1(json), d2(json)) {
-    | (Ok(a), Ok(b)) => Ok(f(a, b))
-    | (Error(e), _) => Error(e)
-    | (_, Error(e)) => Error(e)
-    }
-  }
-}
-
-/// Combine three decoders with a function.
-let map3 = (f: ('a, 'b, 'c) => 'd, d1: decoder<'a>, d2: decoder<'b>, d3: decoder<'c>): decoder<
-  'd,
-> => {
-  json => {
-    switch (d1(json), d2(json), d3(json)) {
-    | (Ok(a), Ok(b), Ok(c)) => Ok(f(a, b, c))
-    | (Error(e), _, _) => Error(e)
-    | (_, Error(e), _) => Error(e)
-    | (_, _, Error(e)) => Error(e)
-    }
-  }
-}
-
-/// Combine four decoders with a function.
-let map4 = (
-  f: ('a, 'b, 'c, 'd) => 'e,
-  d1: decoder<'a>,
-  d2: decoder<'b>,
-  d3: decoder<'c>,
-  d4: decoder<'d>,
-): decoder<'e> => {
-  json => {
-    switch (d1(json), d2(json), d3(json), d4(json)) {
-    | (Ok(a), Ok(b), Ok(c), Ok(d)) => Ok(f(a, b, c, d))
-    | (Error(e), _, _, _) => Error(e)
-    | (_, Error(e), _, _) => Error(e)
-    | (_, _, Error(e), _) => Error(e)
-    | (_, _, _, Error(e)) => Error(e)
-    }
-  }
-}
-
-/// Combine five decoders with a function.
-let map5 = (
-  f: ('a, 'b, 'c, 'd, 'e) => 'f,
-  d1: decoder<'a>,
-  d2: decoder<'b>,
-  d3: decoder<'c>,
-  d4: decoder<'d>,
-  d5: decoder<'e>,
-): decoder<'f> => {
-  json => {
-    switch (d1(json), d2(json), d3(json), d4(json), d5(json)) {
-    | (Ok(a), Ok(b), Ok(c), Ok(d), Ok(e)) => Ok(f(a, b, c, d, e))
-    | (Error(e), _, _, _, _) => Error(e)
-    | (_, Error(e), _, _, _) => Error(e)
-    | (_, _, Error(e), _, _) => Error(e)
-    | (_, _, _, Error(e), _) => Error(e)
-    | (_, _, _, _, Error(e)) => Error(e)
-    }
-  }
-}
-
-/// Chain decoders: decode a value, then use it to select the next decoder.
-let andThen = (decoder: decoder<'a>, f: 'a => decoder<'b>): decoder<'b> => {
-  json => {
-    switch decoder(json) {
-    | Ok(a) => f(a)(json)
-    | Error(e) => Error(e)
-    }
-  }
-}
-
-/// Try each decoder in order, returning the first success.
-let oneOf = (decoders: array<decoder<'a>>): decoder<'a> => {
-  json => {
-    let errors = ref([])
-    let result = ref(None)
-    Array.forEach(decoders, decoder => {
-      if Option.isNone(result.contents) {
-        switch decoder(json) {
-        | Ok(v) => result := Some(Ok(v))
-        | Error(e) => errors := Array.concat(errors.contents, [e])
-        }
-      }
-    })
-    switch result.contents {
-    | Some(r) => r
-    | None => Error(OneOf(errors.contents))
-    }
-  }
-}
-
-/// Make a decoder optional: returns `Some(value)` on success, `None` on failure.
-let optional = (decoder: decoder<'a>): decoder<option<'a>> => {
-  json => {
-    switch decoder(json) {
-    | Ok(v) => Ok(Some(v))
-    | Error(_) => Ok(None)
-    }
-  }
-}
-
-/// Decode a nullable value: returns `None` for JSON null, otherwise decodes with the given decoder.
-let nullable = (decoder: decoder<'a>): decoder<option<'a>> => {
-  json => {
-    switch json {
-    | Null => Ok(None)
-    | _ =>
-      switch decoder(json) {
-      | Ok(v) => Ok(Some(v))
-      | Error(e) => Error(e)
-      }
-    }
-  }
-}
-
-/// A decoder that always succeeds with the given value.
-let succeed = (value: 'a): decoder<'a> => {
-  _json => Ok(value)
-}
-
-/// A decoder that always fails with the given message.
-let fail = (message: string): decoder<'a> => {
-  json => Error(Failure(message, json))
-}
-
-/// A decoder that returns the raw JSON value unchanged.
-let value: decoder<JSON.t> = json => Ok(json)
-
-// Decoding from string
-
-/// Parse a JSON string and run a decoder on the result.
-let decodeString = (decoder: decoder<'a>, jsonString: string): result<'a, error> => {
-  switch JSON.parseExn(jsonString) {
-  | exception _ => Error(Failure("Invalid JSON", JSON.Encode.null))
-  | json => decoder(json)
-  }
-}
-
-// Error formatting
-
-/// Format a decoder error as a human-readable string with path context.
-let rec errorToString = (error: error): string => {
-  errorToStringHelp(error, [])
-}
-
-/// Internal helper for error formatting with accumulated path context.
-and errorToStringHelp = (error: error, context: array<string>): string => {
-  switch error {
-  | Failure(msg, _json) =>
-    let path = Array.length(context) > 0 ? Array.join(context, ".") ++ ": " : ""
-    path ++ msg
-  | Field(name, inner) => errorToStringHelp(inner, Array.concat(context, [name]))
-  | Index(i, inner) => errorToStringHelp(inner, Array.concat(context, [`[${Int.toString(i)}]`]))
-  | OneOf(errors) =>
-    let details = Array.map(errors, e => errorToStringHelp(e, context))
-    `None of the decoders matched: ${Array.join(details, "; ")}`
-  }
-}
-
-/// Create a decoder function suitable for Tea_Http.expectJson
-let toHttpDecoder = (decoder: decoder<'a>): (string => result<'a, string>) => {
-  jsonString => {
-    switch decodeString(decoder, jsonString) {
-    | Ok(v) => Ok(v)
-    | Error(e) => Error(errorToString(e))
-    }
-  }
-}
-
-/// Decode a JSON object as a Dict
-let dict = (valueDecoder: decoder<'a>): decoder<Dict.t<'a>> => {
-  json => {
-    switch json {
-    | Object(d) => {
-        let result = Dict.make()
-        let error = ref(None)
-        Dict.forEachWithKey(d, (val, key) => {
-          if Option.isNone(error.contents) {
-            switch valueDecoder(val) {
-            | Ok(v) => Dict.set(result, key, v)
-            | Error(e) => error := Some(Field(key, e))
-            }
-          }
-        })
-        switch error.contents {
-        | Some(e) => Error(e)
-        | None => Ok(result)
-        }
-      }
-    | _ => Error(Failure("Expected an object", json))
-    }
-  }
-}
diff --git a/src/tea/Tea_Keyboard.affine b/src/tea/Tea_Keyboard.affine
new file mode 100644
index 00000000..d958c9ba
--- /dev/null
+++ b/src/tea/Tea_Keyboard.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Tea_Keyboard;
+
+// TODO: Complete semantic implementation
diff --git a/src/tea/Tea_Keyboard.res b/src/tea/Tea_Keyboard.res
deleted file mode 100644
index 970bda01..00000000
--- a/src/tea/Tea_Keyboard.res
+++ /dev/null
@@ -1,114 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-//
-// Tea_Keyboard.res — Keyboard event subscriptions for the TEA architecture.
-
-/// Key event information
-type keyEvent = {
-  key: string,
-  code: string,
-  altKey: bool,
-  ctrlKey: bool,
-  metaKey: bool,
-  shiftKey: bool,
-  repeat: bool,
-}
-
-/// Subscribe to keydown events on the document
-let downs = (tagger: keyEvent => 'msg): Tea_Sub.t<'msg> => {
-  Tea_Sub.registration("keyboard-downs", dispatch => {
-    let _handler = (_e: Dom.event) => {
-      let ke: keyEvent = %raw(`({
-        key: _e.key || "",
-        code: _e.code || "",
-        altKey: !!_e.altKey,
-        ctrlKey: !!_e.ctrlKey,
-        metaKey: !!_e.metaKey,
-        shiftKey: !!_e.shiftKey,
-        repeat: !!_e.repeat
-      })`)
-      dispatch(tagger(ke))
-    }
-    let _: unit = %raw(`document.addEventListener("keydown", _handler)`)
-    () => {
-      let _: unit = %raw(`document.removeEventListener("keydown", _handler)`)
-    }
-  })
-}
-
-/// Subscribe to keyup events on the document
-let ups = (tagger: keyEvent => 'msg): Tea_Sub.t<'msg> => {
-  Tea_Sub.registration("keyboard-ups", dispatch => {
-    let _handler = (_e: Dom.event) => {
-      let ke: keyEvent = %raw(`({
-        key: _e.key || "",
-        code: _e.code || "",
-        altKey: !!_e.altKey,
-        ctrlKey: !!_e.ctrlKey,
-        metaKey: !!_e.metaKey,
-        shiftKey: !!_e.shiftKey,
-        repeat: !!_e.repeat
-      })`)
-      dispatch(tagger(ke))
-    }
-    let _: unit = %raw(`document.addEventListener("keyup", _handler)`)
-    () => {
-      let _: unit = %raw(`document.removeEventListener("keyup", _handler)`)
-    }
-  })
-}
-
-/// Subscribe to a specific key being pressed (e.g. "Escape", "Enter")
-let onKey = (targetKey: string, msg: 'msg): Tea_Sub.t<'msg> => {
-  Tea_Sub.registration("keyboard-key-" ++ targetKey, dispatch => {
-    let _targetKey = targetKey
-    let _handler = (_e: Dom.event) => {
-      let key: string = %raw(`_e.key || ""`)
-      if key === _targetKey {
-        dispatch(msg)
-      }
-    }
-    let _: unit = %raw(`document.addEventListener("keydown", _handler)`)
-    () => {
-      let _: unit = %raw(`document.removeEventListener("keydown", _handler)`)
-    }
-  })
-}
-
-/// Subscribe to a keyboard shortcut (ctrl/cmd + key)
-let onShortcut = (
-  ~ctrl: bool=false,
-  ~alt: bool=false,
-  ~shift: bool=false,
-  ~meta: bool=false,
-  key: string,
-  msg: 'msg,
-): Tea_Sub.t<'msg> => {
-  let id = `keyboard-shortcut-${ctrl ? "c" : ""}${alt ? "a" : ""}${shift ? "s" : ""}${meta
-      ? "m"
-      : ""}-${key}`
-  Tea_Sub.registration(id, dispatch => {
-    let _ctrl = ctrl
-    let _alt = alt
-    let _shift = shift
-    let _meta = meta
-    let _key = key
-    let _handler = (_e: Dom.event) => {
-      let matches: bool = %raw(`
-        _e.key === _key &&
-        !!_e.ctrlKey === _ctrl &&
-        !!_e.altKey === _alt &&
-        !!_e.shiftKey === _shift &&
-        !!_e.metaKey === _meta
-      `)
-      if matches {
-        let _: unit = %raw(`_e.preventDefault()`)
-        dispatch(msg)
-      }
-    }
-    let _: unit = %raw(`document.addEventListener("keydown", _handler)`)
-    () => {
-      let _: unit = %raw(`document.removeEventListener("keydown", _handler)`)
-    }
-  })
-}
diff --git a/src/tea/Tea_Mouse.affine b/src/tea/Tea_Mouse.affine
new file mode 100644
index 00000000..8b39e566
--- /dev/null
+++ b/src/tea/Tea_Mouse.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Tea_Mouse;
+
+// TODO: Complete semantic implementation
diff --git a/src/tea/Tea_Mouse.res b/src/tea/Tea_Mouse.res
deleted file mode 100644
index ef1540a5..00000000
--- a/src/tea/Tea_Mouse.res
+++ /dev/null
@@ -1,88 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-//
-// Tea_Mouse.res — Mouse event subscriptions for the TEA architecture.
-
-/// Mouse position
-type position = {
-  clientX: float,
-  clientY: float,
-  pageX: float,
-  pageY: float,
-}
-
-/// Subscribe to mouse clicks anywhere on the document
-let clicks = (tagger: position => 'msg): Tea_Sub.t<'msg> => {
-  Tea_Sub.registration("mouse-clicks", dispatch => {
-    let _handler = (_e: Dom.event) => {
-      let pos: position = %raw(`({
-        clientX: _e.clientX || 0,
-        clientY: _e.clientY || 0,
-        pageX: _e.pageX || 0,
-        pageY: _e.pageY || 0
-      })`)
-      dispatch(tagger(pos))
-    }
-    let _: unit = %raw(`document.addEventListener("click", _handler)`)
-    () => {
-      let _: unit = %raw(`document.removeEventListener("click", _handler)`)
-    }
-  })
-}
-
-/// Subscribe to mouse movement anywhere on the document
-let moves = (tagger: position => 'msg): Tea_Sub.t<'msg> => {
-  Tea_Sub.registration("mouse-moves", dispatch => {
-    let _handler = (_e: Dom.event) => {
-      let pos: position = %raw(`({
-        clientX: _e.clientX || 0,
-        clientY: _e.clientY || 0,
-        pageX: _e.pageX || 0,
-        pageY: _e.pageY || 0
-      })`)
-      dispatch(tagger(pos))
-    }
-    let _: unit = %raw(`document.addEventListener("mousemove", _handler)`)
-    () => {
-      let _: unit = %raw(`document.removeEventListener("mousemove", _handler)`)
-    }
-  })
-}
-
-/// Subscribe to mouse button down
-let downs = (tagger: position => 'msg): Tea_Sub.t<'msg> => {
-  Tea_Sub.registration("mouse-downs", dispatch => {
-    let _handler = (_e: Dom.event) => {
-      let pos: position = %raw(`({
-        clientX: _e.clientX || 0,
-        clientY: _e.clientY || 0,
-        pageX: _e.pageX || 0,
-        pageY: _e.pageY || 0
-      })`)
-      dispatch(tagger(pos))
-    }
-    let _: unit = %raw(`document.addEventListener("mousedown", _handler)`)
-    () => {
-      let _: unit = %raw(`document.removeEventListener("mousedown", _handler)`)
-    }
-  })
-}
-
-/// Subscribe to mouse button up
-let ups = (tagger: position => 'msg): Tea_Sub.t<'msg> => {
-  Tea_Sub.registration("mouse-ups", dispatch => {
-    let _handler = (_e: Dom.event) => {
-      let pos: position = %raw(`({
-        clientX: _e.clientX || 0,
-        clientY: _e.clientY || 0,
-        pageX: _e.pageX || 0,
-        pageY: _e.pageY || 0
-      })`)
-      dispatch(tagger(pos))
-    }
-    let _: unit = %raw(`document.addEventListener("mouseup", _handler)`)
-    () => {
-      let _: unit = %raw(`document.removeEventListener("mouseup", _handler)`)
-    }
-  })
-}
diff --git a/src/tea/Tea_Render.affine b/src/tea/Tea_Render.affine
new file mode 100644
index 00000000..aa9ef3da
--- /dev/null
+++ b/src/tea/Tea_Render.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Tea_Render;
+
+// TODO: Complete semantic implementation
diff --git a/src/tea/Tea_Render.res b/src/tea/Tea_Render.res
deleted file mode 100644
index b5b1c4f4..00000000
--- a/src/tea/Tea_Render.res
+++ /dev/null
@@ -1,735 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-//
-// Tea_Render.res — DOM rendering engine with virtual DOM diffing, keyed
-// child reconciliation, fragment support, and event lifecycle management.
-//
-// This module bridges Tea_Vdom (virtual DOM) to the real DOM with:
-// - Key-based child diffing for O(n) list reordering
-// - Positional child diffing for unkeyed elements
-// - Fragment rendering (children without wrapper element)
-// - Proper attribute removal on updates
-// - Event listener lifecycle management (leak-free)
-// - SVG namespace support
-
-open Tea_Vdom
-
-/// DOM element type binding
-type domElement
-
-/// SVG namespace URI
-let svgNS = "http://www.w3.org/2000/svg"
-
-/// Tags that require SVG namespace
-let isSvgTag = (tag: string): bool => {
-  switch tag {
-  | "svg"
-  | "circle"
-  | "ellipse"
-  | "line"
-  | "path"
-  | "polygon"
-  | "polyline"
-  | "rect"
-  | "g"
-  | "defs"
-  | "use"
-  | "symbol"
-  | "clipPath"
-  | "mask"
-  | "pattern"
-  | "image"
-  | "text"
-  | "tspan"
-  | "textPath"
-  | "foreignObject"
-  | "marker"
-  | "linearGradient"
-  | "radialGradient"
-  | "stop"
-  | "filter"
-  | "feBlend"
-  | "feColorMatrix"
-  | "feComposite"
-  | "feFlood"
-  | "feGaussianBlur"
-  | "feMerge"
-  | "feMergeNode"
-  | "feOffset"
-  | "animate"
-  | "animateTransform"
-  | "set"
-  | "desc"
-  | "title"
-  | "metadata" => true
-  | _ => false
-  }
-}
-
-/// Event listener cleanup function
-type eventListener = {
-  element: domElement,
-  eventName: string,
-  handler: Dom.event => unit,
-}
-
-/// Render state tracking event listeners and previous vdom for diffing
-type renderState<'msg> = {
-  mutable listeners: array<eventListener>,
-  dispatch: 'msg => unit,
-  mutable previousVdom: option<t<'msg>>,
-}
-
-/// External DOM bindings
-@val external document: {..} = "document"
-
-/// Set style property using setProperty
-@send external setStyleProperty: ({..}, string, string) => unit = "setProperty"
-
-/// Remove style property
-@send external removeStyleProperty: ({..}, string) => unit = "removeProperty"
-
-/// Zero-cost cast from opaque domElement to open object for DOM property access.
-/// This is safe because domElement is always a browser DOM Element/Node.
-/// Uses ReScript's %identity external instead of Obj.magic (banned pattern).
-external domElementToObj: domElement => {..} = "%identity"
-
-/// Remove all child nodes from a DOM element without innerHTML.
-/// Safer than innerHTML = "" — avoids Trusted Types violations and
-/// is the recommended approach per W3C DOM spec.
-let removeAllChildren = (_el: {..}): unit => {
-  %raw(`(function() { while (_el.firstChild) { _el.removeChild(_el.firstChild); } })()`)
-}
-
-/// Compare two DOM elements for identity.
-let domElementsEqual: (domElement, domElement) => bool = %raw(`function(a, b) { return a === b; }`)
-
-/// Remove event listener from element
-@send
-external removeEventListenerDom: (domElement, string, Dom.event => unit) => unit =
-  "removeEventListener"
-
-/// Remove event listener from element (typed wrapper)
-let removeEventListener = (listener: eventListener): unit => {
-  removeEventListenerDom(listener.element, listener.eventName, listener.handler)
-}
-
-/// Boolean properties that should be set directly on the element
-let isBoolProp = (key: string): bool => {
-  switch key {
-  | "checked"
-  | "disabled"
-  | "readonly"
-  | "required"
-  | "autofocus"
-  | "multiple"
-  | "selected"
-  | "hidden"
-  | "novalidate" => true
-  | _ => false
-  }
-}
-
-/// Apply a single attribute to a DOM element
-let applyAttribute = (
-  el: {..},
-  attr: attribute<'msg>,
-  state: renderState<'msg>,
-  domEl: domElement,
-): unit => {
-  switch attr {
-  | Property(key, value) =>
-    if key === "" {
-      () // noProp — skip
-    } else if key === "class" {
-      // SVG elements have a read-only className (SVGAnimatedString).
-      // Use setAttribute for SVG; direct property for HTML.
-      if el["namespaceURI"] === svgNS {
-        el["setAttribute"]("class", value)
-      } else {
-        el["className"] = value
-      }
-    } else if key === "value" {
-      el["value"] = value
-    } else if key === "checked" {
-      el["checked"] = value === "true"
-    } else if key === "disabled" {
-      el["disabled"] = value === "true"
-    } else if key === "readonly" {
-      el["readOnly"] = value === "true"
-    } else if key === "required" {
-      el["required"] = value === "true"
-    } else if key === "autofocus" {
-      el["autofocus"] = value === "true"
-    } else if key === "multiple" {
-      el["multiple"] = value === "true"
-    } else if key === "selected" {
-      el["selected"] = value === "true"
-    } else if key === "hidden" {
-      el["hidden"] = value === "true"
-    } else {
-      el["setAttribute"](key, value)
-    }
-  | Style(prop, value) => setStyleProperty(el["style"], prop, value)
-  | Event(name, handler) => {
-      let eventHandler = (_: Dom.event) => {
-        state.dispatch(handler())
-      }
-      el["addEventListener"](name, eventHandler)->ignore
-      Array.push(
-        state.listeners,
-        {
-          element: domEl,
-          eventName: name,
-          handler: eventHandler,
-        },
-      )->ignore
-    }
-  | EventWithValue(name, handler) => {
-      let eventHandler = (_e: Dom.event) => {
-        let value: string = %raw(`_e.target.value || ""`)
-        state.dispatch(handler(value))
-      }
-      el["addEventListener"](name, eventHandler)->ignore
-      Array.push(
-        state.listeners,
-        {
-          element: domEl,
-          eventName: name,
-          handler: eventHandler,
-        },
-      )->ignore
-    }
-  | EventWithKey(name, handler) => {
-      let eventHandler = (_e: Dom.event) => {
-        let key: string = %raw(`_e.key || ""`)
-        switch handler(key) {
-        | Some(msg) => {
-            let _: unit = %raw(`_e.preventDefault()`)
-            state.dispatch(msg)
-          }
-        | None => ()
-        }
-      }
-      el["addEventListener"](name, eventHandler)->ignore
-      Array.push(
-        state.listeners,
-        {
-          element: domEl,
-          eventName: name,
-          handler: eventHandler,
-        },
-      )->ignore
-    }
-  | EventPreventDefault(name, handler) => {
-      let eventHandler = (_e: Dom.event) => {
-        let _: unit = %raw(`_e.preventDefault()`)
-        state.dispatch(handler())
-      }
-      el["addEventListener"](name, eventHandler)->ignore
-      Array.push(
-        state.listeners,
-        {
-          element: domEl,
-          eventName: name,
-          handler: eventHandler,
-        },
-      )->ignore
-    }
-  | EventStopPropagation(name, handler) => {
-      let eventHandler = (_e: Dom.event) => {
-        let _: unit = %raw(`_e.stopPropagation()`)
-        state.dispatch(handler())
-      }
-      el["addEventListener"](name, eventHandler)->ignore
-      Array.push(
-        state.listeners,
-        {
-          element: domEl,
-          eventName: name,
-          handler: eventHandler,
-        },
-      )->ignore
-    }
-  }
-}
-
-/// Create a real DOM element from virtual DOM
-let rec createElement = (vdom: t<'msg>, state: renderState<'msg>): domElement => {
-  switch vdom {
-  | Text(s) => document["createTextNode"](s)
-  | Element(tag, attrs, children) => {
-      let el = if isSvgTag(tag) {
-        document["createElementNS"](svgNS, tag)
-      } else {
-        document["createElement"](tag)
-      }
-      let domEl: domElement = el
-      Array.forEach(attrs, attr => applyAttribute(el, attr, state, domEl))
-      Array.forEach(children, child => {
-        let childEl = createElement(child, state)
-        el["appendChild"](childEl)
-      })
-      domEl
-    }
-  | KeyedElement(tag, attrs, keyedChildren) => {
-      let el = if isSvgTag(tag) {
-        document["createElementNS"](svgNS, tag)
-      } else {
-        document["createElement"](tag)
-      }
-      let domEl: domElement = el
-      Array.forEach(attrs, attr => applyAttribute(el, attr, state, domEl))
-      Array.forEach(keyedChildren, ((_key, child)) => {
-        let childEl = createElement(child, state)
-        el["appendChild"](childEl)
-      })
-      domEl
-    }
-  | Fragment(children) => {
-      let frag = document["createDocumentFragment"]()
-      Array.forEach(children, child => {
-        let childEl = createElement(child, state)
-        frag["appendChild"](childEl)
-      })
-      frag
-    }
-  }
-}
-
-/// Cleanup all event listeners
-let cleanup = (state: renderState<'msg>): unit => {
-  Array.forEach(state.listeners, removeEventListener)
-  state.listeners = []
-}
-
-/// Render virtual DOM to a container element (full re-render)
-let render = (container: domElement, vdom: t<'msg>, state: renderState<'msg>): unit => {
-  cleanup(state)
-  let containerObj = domElementToObj(container)
-  removeAllChildren(containerObj)
-  let el = createElement(vdom, state)
-  containerObj["appendChild"](el)
-}
-
-/// Get element by ID
-let getElementById = (id: string): option<domElement> => {
-  let el = document["getElementById"](id)
-  if Nullable.isNullable(Nullable.make(el)) {
-    None
-  } else {
-    Some(el)
-  }
-}
-
-/// Get element by selector
-let querySelector = (selector: string): option<domElement> => {
-  let el = document["querySelector"](selector)
-  if Nullable.isNullable(Nullable.make(el)) {
-    None
-  } else {
-    Some(el)
-  }
-}
-
-// ── Diffing engine ─────────────────────────────────────────────────
-
-/// Patch type representing DOM changes
-type rec patch<'msg> =
-  | Replace(t<'msg>)
-  | UpdateAttrsAndChildren(array<attribute<'msg>>, array<childPatch<'msg>>)
-  | UpdateProps(array<attribute<'msg>>)
-  | UpdateChildren(array<childPatch<'msg>>)
-  | UpdateKeyedChildren(array<(string, t<'msg>)>, array<(string, t<'msg>)>)
-  | RemoveNode
-  | NoChange
-
-and childPatch<'msg> = {
-  index: int,
-  patch: patch<'msg>,
-}
-
-/// Compare two attribute arrays
-let attributesEqual = (a1: array<attribute<'msg>>, a2: array<attribute<'msg>>): bool => {
-  if Array.length(a1) !== Array.length(a2) {
-    false
-  } else {
-    Array.everyWithIndex(a1, (attr, i) => {
-      switch (attr, a2[i]) {
-      | (Property(k1, v1), Some(Property(k2, v2))) => k1 === k2 && v1 === v2
-      | (Style(k1, v1), Some(Style(k2, v2))) => k1 === k2 && v1 === v2
-      | (Event(n1, _), Some(Event(n2, _))) => n1 === n2
-      | (EventWithValue(n1, _), Some(EventWithValue(n2, _))) => n1 === n2
-      | (EventWithKey(n1, _), Some(EventWithKey(n2, _))) => n1 === n2
-      | (EventPreventDefault(n1, _), Some(EventPreventDefault(n2, _))) => n1 === n2
-      | (EventStopPropagation(n1, _), Some(EventStopPropagation(n2, _))) => n1 === n2
-      | _ => false
-      }
-    })
-  }
-}
-
-/// Diff two virtual DOM trees
-let rec diff = (oldVdom: t<'msg>, newVdom: t<'msg>): patch<'msg> => {
-  switch (oldVdom, newVdom) {
-  | (Text(s1), Text(s2)) => s1 === s2 ? NoChange : Replace(newVdom)
-  | (Text(_), _) => Replace(newVdom)
-  | (_, Text(_)) => Replace(newVdom)
-  | (Fragment(_), _) | (_, Fragment(_)) =>
-    // Fragments always replace — they don't have a stable root node
-    Replace(newVdom)
-  | (Element(tag1, attrs1, children1), Element(tag2, attrs2, children2)) =>
-    if tag1 !== tag2 {
-      Replace(newVdom)
-    } else {
-      let attrsChanged = !attributesEqual(attrs1, attrs2)
-      let childPatches = diffChildren(children1, children2)
-      let hasChildChanges = Array.some(childPatches, cp => cp.patch !== NoChange)
-
-      switch (attrsChanged, hasChildChanges) {
-      | (true, true) => UpdateAttrsAndChildren(attrs2, childPatches)
-      | (true, false) => UpdateProps(attrs2)
-      | (false, true) => UpdateChildren(childPatches)
-      | (false, false) => NoChange
-      }
-    }
-  | (KeyedElement(tag1, attrs1, children1), KeyedElement(tag2, attrs2, children2)) =>
-    if tag1 !== tag2 {
-      Replace(newVdom)
-    } else {
-      let attrsChanged = !attributesEqual(attrs1, attrs2)
-      // Check if keyed children changed
-      let keysChanged =
-        Array.length(children1) !== Array.length(children2) ||
-          Array.someWithIndex(children1, ((k1, _), i) => {
-            switch children2[i] {
-            | Some((k2, _)) => k1 !== k2
-            | None => true
-            }
-          })
-
-      if attrsChanged || keysChanged {
-        UpdateKeyedChildren(children1, children2)
-      } else {
-        // Same keys in same order — diff each child
-        let hasChanges = ref(false)
-        Array.forEachWithIndex(children1, ((_k, oldChild), i) => {
-          switch children2[i] {
-          | Some((_k2, newChild)) =>
-            if diff(oldChild, newChild) !== NoChange {
-              hasChanges := true
-            }
-          | None => hasChanges := true
-          }
-        })
-        if hasChanges.contents {
-          UpdateKeyedChildren(children1, children2)
-        } else if attrsChanged {
-          UpdateProps(attrs2)
-        } else {
-          NoChange
-        }
-      }
-    }
-  | (Element(_, _, _), KeyedElement(_, _, _)) => Replace(newVdom)
-  | (KeyedElement(_, _, _), Element(_, _, _)) => Replace(newVdom)
-  }
-}
-
-/// Diff two arrays of child nodes, producing a patch per index.
-and diffChildren = (oldChildren: array<t<'msg>>, newChildren: array<t<'msg>>): array<
-  childPatch<'msg>,
-> => {
-  let maxLen = Pervasives.max(Array.length(oldChildren), Array.length(newChildren))
-  Array.fromInitializer(~length=maxLen, i => {
-    switch (oldChildren[i], newChildren[i]) {
-    | (None, Some(newChild)) => {index: i, patch: Replace(newChild)}
-    | (Some(_), None) => {index: i, patch: RemoveNode}
-    | (Some(oldChild), Some(newChild)) => {index: i, patch: diff(oldChild, newChild)}
-    | (None, None) => {index: i, patch: NoChange}
-    }
-  })
-}
-
-/// Collect property and style keys from old attrs for removal tracking
-let getAttrKeys = (attrs: array<attribute<'msg>>): array<(string, string)> => {
-  Array.filterMap(attrs, attr => {
-    switch attr {
-    | Property(k, _) => k !== "" ? Some(("prop", k)) : None
-    | Style(k, _) => Some(("style", k))
-    | _ => None
-    }
-  })
-}
-
-/// Remove attributes that existed in old but not in new
-let removeStaleAttrs = (
-  el: {..},
-  oldAttrs: array<attribute<'msg>>,
-  newAttrs: array<attribute<'msg>>,
-): unit => {
-  let oldKeys = getAttrKeys(oldAttrs)
-  let newKeys = getAttrKeys(newAttrs)
-  Array.forEach(oldKeys, ((kind, key)) => {
-    let stillExists = Array.some(newKeys, ((k, v)) => k === kind && v === key)
-    if !stillExists {
-      switch kind {
-      | "prop" =>
-        if key === "class" {
-          // SVG elements have a read-only className (SVGAnimatedString)
-          if el["namespaceURI"] === svgNS {
-            el["setAttribute"]("class", "")
-          } else {
-            el["className"] = ""
-          }
-        } else if (
-          key === "checked" ||
-          key === "disabled" ||
-          key === "readonly" ||
-          key === "required" ||
-          key === "autofocus" ||
-          key === "multiple" ||
-          key === "selected" ||
-          key === "hidden"
-        ) {
-          el["removeAttribute"](key)
-        } else {
-          el["removeAttribute"](key)
-        }
-      | "style" => removeStyleProperty(el["style"], key)
-      | _ => ()
-      }
-    }
-  })
-}
-
-/// Remove old event listeners for a specific element
-let removeElementListeners = (state: renderState<'msg>, domEl: domElement): unit => {
-  let (toRemove, toKeep) = Array.reduce(state.listeners, ([], []), ((rem, keep), listener) => {
-    if domElementsEqual(listener.element, domEl) {
-      (Array.concat(rem, [listener]), keep)
-    } else {
-      (rem, Array.concat(keep, [listener]))
-    }
-  })
-  Array.forEach(toRemove, removeEventListener)
-  state.listeners = toKeep
-}
-
-/// Apply keyed child patches using the move-minimising algorithm.
-/// This is the core of efficient list rendering — instead of destroying
-/// and recreating DOM nodes when a list is reordered, we move them.
-let applyKeyedPatch = (
-  _parentEl: domElement,
-  _oldKeyed: array<(string, t<'msg>)>,
-  _newKeyed: array<(string, t<'msg>)>,
-  _state: renderState<'msg>,
-): unit => {
-  // Use raw JS for DOM manipulation — keyed reconciliation requires
-  // direct access to childNodes, insertBefore, and removeChild.
-  let _createElement = createElement
-  let _diff = diff
-  %raw(`
-    (function() {
-      var parentEl = _parentEl;
-      var state = _state;
-      var childNodes = Array.from(parentEl.childNodes);
-
-      // Build old key → {index, dom, vdom} map
-      var oldMap = new Map();
-      for (var i = 0; i < _oldKeyed.length; i++) {
-        var key = _oldKeyed[i][0];
-        var vdom = _oldKeyed[i][1];
-        oldMap.set(key, { index: i, dom: childNodes[i], vdom: vdom });
-      }
-
-      // Track which old nodes we've used
-      var usedOldKeys = new Set();
-
-      // Process new children in order
-      for (var ni = 0; ni < _newKeyed.length; ni++) {
-        var newKey = _newKeyed[ni][0];
-        var newVdom = _newKeyed[ni][1];
-        var old = oldMap.get(newKey);
-        var refNode = parentEl.childNodes[ni] || null;
-
-        if (old) {
-          usedOldKeys.add(newKey);
-          // Diff old vs new vdom for this key
-          var patch = _diff(old.vdom, newVdom);
-          if (patch.TAG !== undefined) {
-            // Has changes — for simplicity, replace the node
-            var newEl = _createElement(newVdom, state);
-            parentEl.insertBefore(newEl, old.dom);
-            parentEl.removeChild(old.dom);
-          } else {
-            // NoChange — just ensure correct position
-            if (parentEl.childNodes[ni] !== old.dom) {
-              parentEl.insertBefore(old.dom, refNode);
-            }
-          }
-        } else {
-          // New key — create and insert
-          var newEl = _createElement(newVdom, state);
-          parentEl.insertBefore(newEl, refNode);
-        }
-      }
-
-      // Remove old nodes whose keys are no longer present
-      for (var [key, old] of oldMap) {
-        if (!usedOldKeys.has(key)) {
-          if (old.dom.parentNode === parentEl) {
-            parentEl.removeChild(old.dom);
-          }
-        }
-      }
-    })()
-  `)
-}
-
-/// Apply a patch to a DOM node
-let rec applyPatch = (
-  domNode: domElement,
-  patchVal: patch<'msg>,
-  state: renderState<'msg>,
-): unit => {
-  switch patchVal {
-  | NoChange => ()
-  | Replace(newVdom) => {
-      let parent: {..} = %raw(`domNode.parentNode`)
-      if !Nullable.isNullable(Nullable.make(parent)) {
-        let newEl = createElement(newVdom, state)
-        parent["replaceChild"](newEl, domNode)
-      }
-    }
-  | UpdateProps(newAttrs) => {
-      let el = domElementToObj(domNode)
-      // Remove stale attrs from previous render
-      switch state.previousVdom {
-      | Some(Element(_, oldAttrs, _)) | Some(KeyedElement(_, oldAttrs, _)) =>
-        removeStaleAttrs(el, oldAttrs, newAttrs)
-      | _ => ()
-      }
-      // Remove old event listeners for this element before re-adding
-      removeElementListeners(state, domNode)
-      // Apply new attributes
-      Array.forEach(newAttrs, attr => applyAttribute(el, attr, state, domNode))
-    }
-  | UpdateChildren(childPatches) => {
-      let childNodes: array<domElement> = %raw(`Array.from(domNode.childNodes)`)
-      let domObj = domElementToObj(domNode)
-      Array.forEach(childPatches, cp => {
-        switch childNodes[cp.index] {
-        | Some(childNode) => applyPatch(childNode, cp.patch, state)
-        | None =>
-          switch cp.patch {
-          | Replace(newChild) => {
-              let newEl = createElement(newChild, state)
-              domObj["appendChild"](newEl)
-            }
-          | _ => ()
-          }
-        }
-      })
-    }
-  | UpdateAttrsAndChildren(newAttrs, childPatches) => {
-      let domObj = domElementToObj(domNode)
-      // Update attrs
-      switch state.previousVdom {
-      | Some(Element(_, oldAttrs, _)) | Some(KeyedElement(_, oldAttrs, _)) =>
-        removeStaleAttrs(domObj, oldAttrs, newAttrs)
-      | _ => ()
-      }
-      removeElementListeners(state, domNode)
-      Array.forEach(newAttrs, attr => applyAttribute(domObj, attr, state, domNode))
-      // Update children
-      let childNodes: array<domElement> = %raw(`Array.from(domNode.childNodes)`)
-      Array.forEach(childPatches, cp => {
-        switch childNodes[cp.index] {
-        | Some(childNode) => applyPatch(childNode, cp.patch, state)
-        | None =>
-          switch cp.patch {
-          | Replace(newChild) => {
-              let newEl = createElement(newChild, state)
-              domObj["appendChild"](newEl)
-            }
-          | _ => ()
-          }
-        }
-      })
-    }
-  | UpdateKeyedChildren(oldKeyed, newKeyed) => applyKeyedPatch(domNode, oldKeyed, newKeyed, state)
-  | RemoveNode => {
-      let parent: {..} = %raw(`domNode.parentNode`)
-      if !Nullable.isNullable(Nullable.make(parent)) {
-        parent["removeChild"](domNode)
-      }
-    }
-  }
-}
-
-/// Create initial render state
-let createState = (dispatch: 'msg => unit): renderState<'msg> => {
-  listeners: [],
-  dispatch,
-  previousVdom: None,
-}
-
-/// Mount a TEA app to a container selector
-let mount = (containerSelector: string, vdom: t<'msg>, dispatch: 'msg => unit): option<
-  renderState<'msg>,
-> => {
-  switch querySelector(containerSelector) {
-  | None => {
-      Console.error(`Mount point not found: ${containerSelector}`)
-      None
-    }
-  | Some(container) => {
-      let state = createState(dispatch)
-      render(container, vdom, state)
-      Some(state)
-    }
-  }
-}
-
-/// Update render - use diffing when possible, fallback to full render
-let update = (container: domElement, vdom: t<'msg>, state: renderState<'msg>): unit => {
-  switch state.previousVdom {
-  | None => {
-      render(container, vdom, state)
-      state.previousVdom = Some(vdom)
-    }
-  | Some(oldVdom) => {
-      let patchVal = diff(oldVdom, vdom)
-      switch patchVal {
-      | NoChange => ()
-      | Replace(_) => render(container, vdom, state)
-      | _ => {
-          let containerObj = domElementToObj(container)
-          let firstChild: option<domElement> = switch containerObj["firstChild"] {
-          | child if !Nullable.isNullable(Nullable.make(child)) => Some(child)
-          | _ => None
-          }
-          switch firstChild {
-          | Some(child) => applyPatch(child, patchVal, state)
-          | None => render(container, vdom, state)
-          }
-        }
-      }
-      state.previousVdom = Some(vdom)
-    }
-  }
-}
-
-/// Unmount and cleanup
-let unmount = (containerSelector: string, state: renderState<'msg>): unit => {
-  cleanup(state)
-
-  switch querySelector(containerSelector) {
-  | Some(container) => {
-      let containerObj = domElementToObj(container)
-      removeAllChildren(containerObj)
-    }
-  | None => ()
-  }
-}
diff --git a/src/tea/Tea_Ssr.affine b/src/tea/Tea_Ssr.affine
new file mode 100644
index 00000000..92bf618c
--- /dev/null
+++ b/src/tea/Tea_Ssr.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Tea_Ssr;
+
+// TODO: Complete semantic implementation
diff --git a/src/tea/Tea_Ssr.res b/src/tea/Tea_Ssr.res
deleted file mode 100644
index 2b53fd12..00000000
--- a/src/tea/Tea_Ssr.res
+++ /dev/null
@@ -1,189 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-//
-// Tea_Ssr.res — Server-side rendering: virtual DOM to HTML string.
-//
-// Renders Tea_Vdom nodes to HTML without requiring a DOM.
-// Useful for: testing, snapshot assertions, SSR, static site generation.
-
-open Tea_Vdom
-
-/// Void elements that must not have closing tags
-let isVoidElement = (tag: string): bool => {
-  switch tag {
-  | "area"
-  | "base"
-  | "br"
-  | "col"
-  | "embed"
-  | "hr"
-  | "img"
-  | "input"
-  | "link"
-  | "meta"
-  | "param"
-  | "source"
-  | "track"
-  | "wbr" => true
-  | _ => false
-  }
-}
-
-/// Escape HTML special characters
-let escapeHtml = (s: string): string => {
-  let r = ref(s)
-  r := String.replaceAll(r.contents, "&", "&amp;")
-  r := String.replaceAll(r.contents, "<", "&lt;")
-  r := String.replaceAll(r.contents, ">", "&gt;")
-  r := String.replaceAll(r.contents, "\"", "&quot;")
-  r := String.replaceAll(r.contents, "'", "&#x27;")
-  r.contents
-}
-
-/// Escape an attribute value
-let escapeAttr = (s: string): string => {
-  let r = ref(s)
-  r := String.replaceAll(r.contents, "&", "&amp;")
-  r := String.replaceAll(r.contents, "\"", "&quot;")
-  r.contents
-}
-
-/// Render a single attribute to string
-let renderAttr = (attr: attribute<'msg>): string => {
-  switch attr {
-  | Property(key, value) =>
-    if key === "" {
-      ""
-    } else if (
-      key === "checked" ||
-      key === "disabled" ||
-      key === "readonly" ||
-      key === "required" ||
-      key === "autofocus" ||
-      key === "multiple" ||
-      key === "selected" ||
-      key === "hidden" ||
-      key === "novalidate"
-    ) {
-      if value === "true" {
-        ` ${key}`
-      } else {
-        ""
-      }
-    } else {
-      ` ${key}="${escapeAttr(value)}"`
-    }
-  | Style(_, _) => "" // Handled in renderAttrs
-  | Event(_, _)
-  | EventWithValue(_, _)
-  | EventWithKey(_, _)
-  | EventPreventDefault(_, _)
-  | EventStopPropagation(_, _) => ""
-  }
-}
-
-/// Render all attributes including collected styles
-let renderAttrs = (attrs: array<attribute<'msg>>): string => {
-  let propAttrs = ref("")
-  let styles = ref("")
-
-  Array.forEach(attrs, attr => {
-    switch attr {
-    | Style(prop, value) =>
-      if String.length(styles.contents) > 0 {
-        styles := styles.contents ++ "; "
-      }
-      styles := styles.contents ++ prop ++ ": " ++ value
-    | _ => propAttrs := propAttrs.contents ++ renderAttr(attr)
-    }
-  })
-
-  if String.length(styles.contents) > 0 {
-    propAttrs.contents ++ ` style="${escapeAttr(styles.contents)}"`
-  } else {
-    propAttrs.contents
-  }
-}
-
-/// Render virtual DOM to compact HTML string
-let rec toString = (vdom: t<'msg>): string => {
-  switch vdom {
-  | Text(s) => escapeHtml(s)
-  | Element(tag, attrs, children) =>
-    let attrStr = renderAttrs(attrs)
-    if isVoidElement(tag) {
-      `<${tag}${attrStr} />`
-    } else {
-      let childrenStr = Array.map(children, toString)->Array.join("")
-      `<${tag}${attrStr}>${childrenStr}</${tag}>`
-    }
-  | KeyedElement(tag, attrs, keyedChildren) =>
-    let attrStr = renderAttrs(attrs)
-    if isVoidElement(tag) {
-      `<${tag}${attrStr} />`
-    } else {
-      let childrenStr = Array.map(keyedChildren, ((_key, child)) => toString(child))->Array.join("")
-      `<${tag}${attrStr}>${childrenStr}</${tag}>`
-    }
-  | Fragment(children) => Array.map(children, toString)->Array.join("")
-  }
-}
-
-/// Render with pretty-printing (indentation)
-let toStringPretty = (vdom: t<'msg>, ~indent: int=2): string => {
-  let indentStr = (level: int): string => String.repeat(" ", level * indent)
-
-  let rec go = (v: t<'msg>, level: int): string => {
-    switch v {
-    | Text(s) => indentStr(level) ++ escapeHtml(s)
-    | Element(tag, attrs, children) =>
-      let attrStr = renderAttrs(attrs)
-      let pad = indentStr(level)
-      if isVoidElement(tag) {
-        `${pad}<${tag}${attrStr} />`
-      } else if Array.length(children) === 0 {
-        `${pad}<${tag}${attrStr}></${tag}>`
-      } else if Array.length(children) === 1 {
-        switch Array.getUnsafe(children, 0) {
-        | Text(s) => `${pad}<${tag}${attrStr}>${escapeHtml(s)}</${tag}>`
-        | child =>
-          let childStr = go(child, level + 1)
-          `${pad}<${tag}${attrStr}>\n${childStr}\n${pad}</${tag}>`
-        }
-      } else {
-        let childrenStr = Array.map(children, c => go(c, level + 1))->Array.join("\n")
-        `${pad}<${tag}${attrStr}>\n${childrenStr}\n${pad}</${tag}>`
-      }
-    | KeyedElement(tag, attrs, keyedChildren) =>
-      let attrStr = renderAttrs(attrs)
-      let pad = indentStr(level)
-      if Array.length(keyedChildren) === 0 {
-        `${pad}<${tag}${attrStr}></${tag}>`
-      } else {
-        let childrenStr =
-          Array.map(keyedChildren, ((_key, c)) => go(c, level + 1))->Array.join("\n")
-        `${pad}<${tag}${attrStr}>\n${childrenStr}\n${pad}</${tag}>`
-      }
-    | Fragment(children) => Array.map(children, c => go(c, level))->Array.join("\n")
-    }
-  }
-
-  go(vdom, 0)
-}
-
-/// Render a full HTML document
-let toDocument = (~title: string, ~head: string="", vdom: t<'msg>): string => {
-  let body = toString(vdom)
-  `<!DOCTYPE html>
-<html>
-<head>
-  <meta charset="UTF-8">
-  <meta name="viewport" content="width=device-width, initial-scale=1.0">
-  <title>${escapeHtml(title)}</title>
-  ${head}
-</head>
-<body>
-  <div id="app">${body}</div>
-</body>
-</html>`
-}
diff --git a/src/tea/Tea_Sub.affine b/src/tea/Tea_Sub.affine
new file mode 100644
index 00000000..9e815beb
--- /dev/null
+++ b/src/tea/Tea_Sub.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Tea_Sub;
+
+// TODO: Complete semantic implementation
diff --git a/src/tea/Tea_Sub.res b/src/tea/Tea_Sub.res
deleted file mode 100644
index 562d9d9e..00000000
--- a/src/tea/Tea_Sub.res
+++ /dev/null
@@ -1,75 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// TEA Subscriptions - External event sources.
-///
-/// Subscriptions allow the TEA application to receive messages from
-/// external sources like timers, WebSockets, or browser events.
-
-/// A subscription that produces messages of type 'msg
-type rec t<'msg> =
-  | None
-  | Registration(string, ('msg => unit) => unit => unit)
-  | Batch(array<t<'msg>>)
-
-/// No subscription
-let none: t<'msg> = None
-
-/// Create a subscription with a unique key and enabler function
-/// The enabler function receives a dispatch function and returns a cleanup function
-let registration = (key: string, enable: ('msg => unit) => unit => unit): t<'msg> => {
-  Registration(key, enable)
-}
-
-/// Batch multiple subscriptions together
-let batch = (subs: list<t<'msg>>): t<'msg> => {
-  let subArray = List.toArray(subs)
-  // Filter out None subscriptions
-  let filtered = Array.filter(subArray, sub => {
-    switch sub {
-    | None => false
-    | _ => true
-    }
-  })
-
-  switch Array.length(filtered) {
-  | 0 => None
-  | 1 => Array.getUnsafe(filtered, 0)
-  | _ => Batch(filtered)
-  }
-}
-
-/// Map a subscription's message type
-let rec map = (sub: t<'a>, f: 'a => 'b): t<'b> => {
-  switch sub {
-  | None => None
-  | Registration(key, enable) =>
-    Registration(
-      key,
-      dispatch => {
-        enable(a => dispatch(f(a)))
-      },
-    )
-  | Batch(subs) => Batch(Array.map(subs, s => map(s, f)))
-  }
-}
-
-/// Get all registration keys from a subscription (for diffing)
-let rec getKeys = (sub: t<'msg>): array<string> => {
-  switch sub {
-  | None => []
-  | Registration(key, _) => [key]
-  | Batch(subs) => Array.flatMap(subs, getKeys)
-  }
-}
-
-/// Enable a subscription and return cleanup function
-let rec enable = (sub: t<'msg>, dispatch: 'msg => unit): (unit => unit) => {
-  switch sub {
-  | None => () => ()
-  | Registration(_key, enabler) => enabler(dispatch)
-  | Batch(subs) => {
-      let cleanups = Array.map(subs, s => enable(s, dispatch))
-      () => Array.forEach(cleanups, cleanup => cleanup())
-    }
-  }
-}
diff --git a/src/tea/Tea_Svg.affine b/src/tea/Tea_Svg.affine
new file mode 100644
index 00000000..8d5dbd00
--- /dev/null
+++ b/src/tea/Tea_Svg.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Tea_Svg;
+
+// TODO: Complete semantic implementation
diff --git a/src/tea/Tea_Svg.res b/src/tea/Tea_Svg.res
deleted file mode 100644
index c16a2e3b..00000000
--- a/src/tea/Tea_Svg.res
+++ /dev/null
@@ -1,301 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-//
-/// Tea_Svg.res — SVG element constructors with proper namespace handling.
-///
-/// All SVG elements are created through `node` which builds virtual DOM
-/// elements. The renderer detects SVG tags and uses `createElementNS` with
-/// the SVG namespace URI automatically.
-
-open Tea_Vdom
-
-/// Create an SVG element node from lists of attributes and children.
-let node = (tag: string, attrs: list<attribute<'msg>>, children: list<t<'msg>>): t<'msg> => {
-  Element(tag, List.toArray(attrs), List.toArray(children))
-}
-
-// Container elements
-
-/// SVG `<svg>` root container element.
-let svg = (attrs, children) => node("svg", attrs, children)
-
-/// SVG `<g>` group element (container for grouping elements).
-let g = (attrs, children) => node("g", attrs, children)
-
-/// SVG `<defs>` element (container for reusable definitions).
-let defs = (attrs, children) => node("defs", attrs, children)
-
-/// SVG `<symbol>` element (reusable graphic template).
-let symbol = (attrs, children) => node("symbol", attrs, children)
-
-/// SVG `<use>` element (references a `<symbol>` or other element by id).
-let use = (attrs, children) => node("use", attrs, children)
-
-/// SVG `<foreignObject>` element (embeds HTML content inside SVG).
-let foreignObject = (attrs, children) => node("foreignObject", attrs, children)
-
-// Shape elements
-
-/// SVG `<circle>` element.
-let circle = (attrs, children) => node("circle", attrs, children)
-
-/// SVG `<ellipse>` element.
-let ellipse = (attrs, children) => node("ellipse", attrs, children)
-
-/// SVG `<line>` element.
-let line = (attrs, children) => node("line", attrs, children)
-
-/// SVG `<path>` element (arbitrary shapes via the `d` attribute).
-let path = (attrs, children) => node("path", attrs, children)
-
-/// SVG `<polygon>` element (closed shape from points).
-let polygon = (attrs, children) => node("polygon", attrs, children)
-
-/// SVG `<polyline>` element (open shape from points).
-let polyline = (attrs, children) => node("polyline", attrs, children)
-
-/// SVG `<rect>` element.
-let rect = (attrs, children) => node("rect", attrs, children)
-
-// Text elements
-
-/// SVG `<text>` element. Suffixed with `'` to avoid conflict with `Tea_Vdom.text`.
-let text' = (attrs, children) => node("text", attrs, children)
-
-/// SVG `<tspan>` element (styled sub-range of text).
-let tspan = (attrs, children) => node("tspan", attrs, children)
-
-/// SVG `<textPath>` element (text along a path).
-let textPath = (attrs, children) => node("textPath", attrs, children)
-
-// Gradient elements
-
-/// SVG `<linearGradient>` element.
-let linearGradient = (attrs, children) => node("linearGradient", attrs, children)
-
-/// SVG `<radialGradient>` element.
-let radialGradient = (attrs, children) => node("radialGradient", attrs, children)
-
-/// SVG `<stop>` element (gradient colour stop).
-let stop = (attrs, children) => node("stop", attrs, children)
-
-// Clipping and masking
-
-/// SVG `<clipPath>` element (defines a clipping region).
-let clipPath = (attrs, children) => node("clipPath", attrs, children)
-
-/// SVG `<mask>` element (alpha/luminance masking).
-let mask = (attrs, children) => node("mask", attrs, children)
-
-/// SVG `<pattern>` element (tiling fill pattern).
-let pattern = (attrs, children) => node("pattern", attrs, children)
-
-/// SVG `<marker>` element (arrowheads/endpoints for lines).
-let marker = (attrs, children) => node("marker", attrs, children)
-
-// Filter elements
-
-/// SVG `<filter>` container element.
-let filter = (attrs, children) => node("filter", attrs, children)
-
-/// SVG `<feGaussianBlur>` filter primitive.
-let feGaussianBlur = (attrs, children) => node("feGaussianBlur", attrs, children)
-
-/// SVG `<feOffset>` filter primitive.
-let feOffset = (attrs, children) => node("feOffset", attrs, children)
-
-/// SVG `<feBlend>` filter primitive.
-let feBlend = (attrs, children) => node("feBlend", attrs, children)
-
-/// SVG `<feColorMatrix>` filter primitive.
-let feColorMatrix = (attrs, children) => node("feColorMatrix", attrs, children)
-
-/// SVG `<feComposite>` filter primitive.
-let feComposite = (attrs, children) => node("feComposite", attrs, children)
-
-/// SVG `<feFlood>` filter primitive.
-let feFlood = (attrs, children) => node("feFlood", attrs, children)
-
-/// SVG `<feMerge>` filter primitive.
-let feMerge = (attrs, children) => node("feMerge", attrs, children)
-
-/// SVG `<feMergeNode>` element (input to `<feMerge>`).
-let feMergeNode = (attrs, children) => node("feMergeNode", attrs, children)
-
-// Animation elements
-
-/// SVG `<animate>` element (attribute animation).
-let animate = (attrs, children) => node("animate", attrs, children)
-
-/// SVG `<animateTransform>` element (transform animation).
-let animateTransform = (attrs, children) => node("animateTransform", attrs, children)
-
-/// SVG `<set>` element (discrete attribute animation).
-let set = (attrs, children) => node("set", attrs, children)
-
-// Descriptive elements
-
-/// SVG `<desc>` element (accessible description).
-let desc = (attrs, children) => node("desc", attrs, children)
-
-/// SVG `<title>` element (accessible title/tooltip).
-let title = (attrs, children) => node("title", attrs, children)
-
-/// SVG `<metadata>` element.
-let metadata = (attrs, children) => node("metadata", attrs, children)
-
-/// SVG `<image>` element (embedded raster image).
-let image = (attrs, children) => node("image", attrs, children)
-
-/// SVG-specific attribute constructors.
-module Attrs = {
-  /// Sets the viewBox attribute (e.g. "0 0 100 100").
-  let viewBox = (v: string): attribute<'msg> => Property("viewBox", v)
-
-  /// Sets the fill colour.
-  let fill = (v: string): attribute<'msg> => Property("fill", v)
-
-  /// Sets the stroke colour.
-  let stroke = (v: string): attribute<'msg> => Property("stroke", v)
-
-  /// Sets the stroke width.
-  let strokeWidth = (v: string): attribute<'msg> => Property("stroke-width", v)
-
-  /// Sets the stroke linecap style ("butt", "round", "square").
-  let strokeLinecap = (v: string): attribute<'msg> => Property("stroke-linecap", v)
-
-  /// Sets the stroke linejoin style ("miter", "round", "bevel").
-  let strokeLinejoin = (v: string): attribute<'msg> => Property("stroke-linejoin", v)
-
-  /// Sets the stroke dash pattern (e.g. "5,10").
-  let strokeDasharray = (v: string): attribute<'msg> => Property("stroke-dasharray", v)
-
-  /// Sets the stroke dash offset.
-  let strokeDashoffset = (v: string): attribute<'msg> => Property("stroke-dashoffset", v)
-
-  /// Sets the stroke opacity (0.0 to 1.0).
-  let strokeOpacity = (v: string): attribute<'msg> => Property("stroke-opacity", v)
-
-  /// Sets the fill opacity (0.0 to 1.0).
-  let fillOpacity = (v: string): attribute<'msg> => Property("fill-opacity", v)
-
-  /// Sets the fill rule ("nonzero" or "evenodd").
-  let fillRule = (v: string): attribute<'msg> => Property("fill-rule", v)
-
-  /// Sets the opacity of the element.
-  let opacity = (v: string): attribute<'msg> => Property("opacity", v)
-
-  /// Sets the transform attribute (e.g. "translate(10,20) rotate(45)").
-  let transform = (v: string): attribute<'msg> => Property("transform", v)
-
-  /// Sets the `d` attribute (path data string for `<path>` elements).
-  let d = (v: string): attribute<'msg> => Property("d", v)
-
-  /// Sets the x position.
-  let x = (v: string): attribute<'msg> => Property("x", v)
-
-  /// Sets the y position.
-  let y = (v: string): attribute<'msg> => Property("y", v)
-
-  /// Sets the x1 coordinate (line/gradient start x).
-  let x1 = (v: string): attribute<'msg> => Property("x1", v)
-
-  /// Sets the y1 coordinate (line/gradient start y).
-  let y1 = (v: string): attribute<'msg> => Property("y1", v)
-
-  /// Sets the x2 coordinate (line/gradient end x).
-  let x2 = (v: string): attribute<'msg> => Property("x2", v)
-
-  /// Sets the y2 coordinate (line/gradient end y).
-  let y2 = (v: string): attribute<'msg> => Property("y2", v)
-
-  /// Sets the cx (centre x) for circles and ellipses.
-  let cx = (v: string): attribute<'msg> => Property("cx", v)
-
-  /// Sets the cy (centre y) for circles and ellipses.
-  let cy = (v: string): attribute<'msg> => Property("cy", v)
-
-  /// Sets the radius for circles.
-  let r = (v: string): attribute<'msg> => Property("r", v)
-
-  /// Sets the x-axis radius for ellipses and rounded rects.
-  let rx = (v: string): attribute<'msg> => Property("rx", v)
-
-  /// Sets the y-axis radius for ellipses and rounded rects.
-  let ry = (v: string): attribute<'msg> => Property("ry", v)
-
-  /// Sets the width attribute.
-  let width = (v: string): attribute<'msg> => Property("width", v)
-
-  /// Sets the height attribute.
-  let height = (v: string): attribute<'msg> => Property("height", v)
-
-  /// Sets the points attribute for polygons and polylines.
-  let points = (v: string): attribute<'msg> => Property("points", v)
-
-  /// Sets the offset for gradient stops (0 to 1 or percentage).
-  let offset = (v: string): attribute<'msg> => Property("offset", v)
-
-  /// Sets the stop-color for gradient stops.
-  let stopColor = (v: string): attribute<'msg> => Property("stop-color", v)
-
-  /// Sets the stop-opacity for gradient stops.
-  let stopOpacity = (v: string): attribute<'msg> => Property("stop-opacity", v)
-
-  /// Sets the gradientUnits attribute ("userSpaceOnUse" or "objectBoundingBox").
-  let gradientUnits = (v: string): attribute<'msg> => Property("gradientUnits", v)
-
-  /// Sets the text-anchor attribute ("start", "middle", "end").
-  let textAnchor = (v: string): attribute<'msg> => Property("text-anchor", v)
-
-  /// Sets the dominant-baseline attribute for text vertical alignment.
-  let dominantBaseline = (v: string): attribute<'msg> => Property("dominant-baseline", v)
-
-  /// Sets the font-size attribute.
-  let fontSize = (v: string): attribute<'msg> => Property("font-size", v)
-
-  /// Sets the font-family attribute.
-  let fontFamily = (v: string): attribute<'msg> => Property("font-family", v)
-
-  /// Sets the font-weight attribute.
-  let fontWeight = (v: string): attribute<'msg> => Property("font-weight", v)
-
-  /// Sets the `in` attribute for filter primitives.
-  let in_ = (v: string): attribute<'msg> => Property("in", v)
-
-  /// Sets the `in2` attribute for filter primitives (second input).
-  let in2 = (v: string): attribute<'msg> => Property("in2", v)
-
-  /// Sets the result attribute for filter primitives (named output).
-  let result = (v: string): attribute<'msg> => Property("result", v)
-
-  /// Sets the stdDeviation for Gaussian blur.
-  let stdDeviation = (v: string): attribute<'msg> => Property("stdDeviation", v)
-
-  /// Sets the dx (horizontal offset).
-  let dx = (v: string): attribute<'msg> => Property("dx", v)
-
-  /// Sets the dy (vertical offset).
-  let dy = (v: string): attribute<'msg> => Property("dy", v)
-
-  /// Sets the xlink:href attribute (now just `href` in SVG 2).
-  let xlinkHref = (v: string): attribute<'msg> => Property("href", v)
-
-  /// Sets the clip-path reference (e.g. "url(#myClip)").
-  let clipPathRef = (v: string): attribute<'msg> => Property("clip-path", v)
-
-  /// Sets the mask reference (e.g. "url(#myMask)").
-  let maskRef = (v: string): attribute<'msg> => Property("mask", v)
-
-  /// Sets the filter reference (e.g. "url(#myFilter)").
-  let filterRef = (v: string): attribute<'msg> => Property("filter", v)
-
-  /// Sets the CSS class attribute.
-  let class_ = Tea_Vdom.class_
-
-  /// Sets the element id attribute.
-  let id = Tea_Vdom.id
-
-  /// Sets an inline CSS style property and value.
-  let style = Tea_Vdom.style
-}
diff --git a/src/tea/Tea_Test.affine b/src/tea/Tea_Test.affine
new file mode 100644
index 00000000..6eb1f524
--- /dev/null
+++ b/src/tea/Tea_Test.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Tea_Test;
+
+// TODO: Complete semantic implementation
diff --git a/src/tea/Tea_Test.res b/src/tea/Tea_Test.res
deleted file mode 100644
index e87a532a..00000000
--- a/src/tea/Tea_Test.res
+++ /dev/null
@@ -1,102 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-//
-// Tea_Test.res — Testing helpers for TEA applications.
-//
-// Test the model-update-view cycle without requiring a DOM.
-//
-// Usage:
-//   let sim = Tea_Test.simulate(~init, ~update)
-//   sim->Tea_Test.send(Increment)
-//   assert(sim->Tea_Test.model == {count: 1})
-
-/// A simulation of a TEA application for testing
-type simulation<'model, 'msg> = {
-  mutable model: 'model,
-  update: ('model, 'msg) => ('model, Tea_Cmd.t<'msg>),
-  mutable messages: array<'msg>,
-  mutable commands: array<Tea_Cmd.t<'msg>>,
-}
-
-/// Create a simulation from init and update functions
-let simulate = (
-  ~init: unit => ('model, Tea_Cmd.t<'msg>),
-  ~update: ('model, 'msg) => ('model, Tea_Cmd.t<'msg>),
-): simulation<'model, 'msg> => {
-  let (initialModel, initialCmd) = init()
-  {
-    model: initialModel,
-    update,
-    messages: [],
-    commands: initialCmd === Tea_Cmd.none ? [] : [initialCmd],
-  }
-}
-
-/// Send a message to the simulation, updating the model
-let send = (sim: simulation<'model, 'msg>, msg: 'msg): unit => {
-  let (newModel, cmd) = sim.update(sim.model, msg)
-  sim.model = newModel
-  Array.push(sim.messages, msg)->ignore
-  if cmd !== Tea_Cmd.none {
-    Array.push(sim.commands, cmd)->ignore
-  }
-}
-
-/// Send multiple messages in sequence
-let sendAll = (sim: simulation<'model, 'msg>, msgs: array<'msg>): unit => {
-  Array.forEach(msgs, msg => send(sim, msg))
-}
-
-/// Get the current model
-let model = (sim: simulation<'model, 'msg>): 'model => sim.model
-
-/// Get all messages that have been sent
-let messageHistory = (sim: simulation<'model, 'msg>): array<'msg> => sim.messages
-
-/// Get the number of messages sent
-let messageCount = (sim: simulation<'model, 'msg>): int => Array.length(sim.messages)
-
-/// Check if any commands were produced
-let hasCommands = (sim: simulation<'model, 'msg>): bool => Array.length(sim.commands) > 0
-
-/// Reset the simulation to initial state
-let reset = (sim: simulation<'model, 'msg>, ~init: unit => ('model, Tea_Cmd.t<'msg>)): unit => {
-  let (initialModel, _) = init()
-  sim.model = initialModel
-  sim.messages = []
-  sim.commands = []
-}
-
-/// Assert that the current model satisfies a predicate
-let assertModel = (
-  sim: simulation<'model, 'msg>,
-  predicate: 'model => bool,
-  label: string,
-): bool => {
-  if predicate(sim.model) {
-    true
-  } else {
-    Console.error(`Tea_Test assertion failed: ${label}`)
-    false
-  }
-}
-
-/// Run a scenario: array of (msg, predicate, label)
-let runScenario = (
-  sim: simulation<'model, 'msg>,
-  steps: array<('msg, 'model => bool, string)>,
-): array<(int, string, bool)> => {
-  Array.mapWithIndex(steps, ((msg, predicate, label), i) => {
-    send(sim, msg)
-    let passed = predicate(sim.model)
-    if !passed {
-      Console.error(`Step ${Int.toString(i)}: ${label} — FAILED`)
-    }
-    (i, label, passed)
-  })
-}
-
-/// Render a view to HTML string for snapshot testing (delegates to Tea_Ssr)
-let viewSnapshot = (view: 'model => Tea_Vdom.t<'msg>, aModel: 'model): string => {
-  Tea_Ssr.toString(view(aModel))
-}
diff --git a/src/tea/Tea_Time.affine b/src/tea/Tea_Time.affine
new file mode 100644
index 00000000..36be2d21
--- /dev/null
+++ b/src/tea/Tea_Time.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Tea_Time;
+
+// TODO: Complete semantic implementation
diff --git a/src/tea/Tea_Time.res b/src/tea/Tea_Time.res
deleted file mode 100644
index 8477a2ff..00000000
--- a/src/tea/Tea_Time.res
+++ /dev/null
@@ -1,29 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// TEA Time - Time-based subscriptions
-///
-/// Provides subscriptions for intervals and timeouts.
-
-/// Subscribe to a repeating interval
-let every = (intervalMs: float, tagger: float => 'msg): Tea_Sub.t<'msg> => {
-  Tea_Sub.registration("time-interval-" ++ Float.toString(intervalMs), dispatch => {
-    let intervalId = setInterval(() => {
-      dispatch(tagger(Date.now()))
-    }, Int.fromFloat(intervalMs))
-
-    // Return cleanup function
-    () => clearInterval(intervalId)
-  })
-}
-
-/// Subscribe to a one-time timeout
-let after = (delayMs: float, msg: 'msg): Tea_Sub.t<'msg> => {
-  Tea_Sub.registration("time-timeout-" ++ Float.toString(delayMs), dispatch => {
-    let timeoutId = setTimeout(() => {
-      dispatch(msg)
-    }, Int.fromFloat(delayMs))
-
-    // Return cleanup function
-    () => clearTimeout(timeoutId)
-  })
-}
diff --git a/src/tea/Tea_Vdom.affine b/src/tea/Tea_Vdom.affine
new file mode 100644
index 00000000..6dc3a0b3
--- /dev/null
+++ b/src/tea/Tea_Vdom.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Tea_Vdom;
+
+// TODO: Complete semantic implementation
diff --git a/src/tea/Tea_Vdom.res b/src/tea/Tea_Vdom.res
deleted file mode 100644
index 921634c5..00000000
--- a/src/tea/Tea_Vdom.res
+++ /dev/null
@@ -1,493 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-//
-// Tea_Vdom.res — Core virtual DOM for The Elm Architecture in ReScript.
-//
-// Supports: elements, text nodes, keyed elements (efficient list diffing),
-// fragments (avoid wrapper divs), and a comprehensive attribute/event system.
-
-/// Attribute types for virtual DOM elements
-type rec attribute<'msg> =
-  | Property(string, string)
-  | Style(string, string)
-  | Event(string, unit => 'msg)
-  | EventWithValue(string, string => 'msg)
-  | EventWithKey(string, string => option<'msg>)
-  | EventPreventDefault(string, unit => 'msg)
-  | EventStopPropagation(string, unit => 'msg)
-
-/// Virtual DOM node type
-///
-/// - Text: plain text node
-/// - Element: standard HTML/SVG element with positional children
-/// - KeyedElement: element with keyed children for O(n) list reordering
-/// - Fragment: renders children without a wrapper element
-type rec t<'msg> =
-  | Text(string)
-  | Element(string, array<attribute<'msg>>, array<t<'msg>>)
-  | KeyedElement(string, array<attribute<'msg>>, array<(string, t<'msg>)>)
-  | Fragment(array<t<'msg>>)
-
-// ── Node constructors ──────────────────────────────────────────────
-
-/// Create a text node
-let text = (s: string): t<'msg> => Text(s)
-
-/// Create an element node from lists (original API, backwards-compatible)
-let node = (tag: string, attrs: list<attribute<'msg>>, children: list<t<'msg>>): t<'msg> => {
-  Element(tag, List.toArray(attrs), List.toArray(children))
-}
-
-/// Create an element node from arrays (faster, avoids list→array conversion)
-let nodeA = (tag: string, attrs: array<attribute<'msg>>, children: array<t<'msg>>): t<'msg> => {
-  Element(tag, attrs, children)
-}
-
-/// Create a keyed element node for efficient list diffing.
-/// Each child has a unique string key. When the list is reordered,
-/// the renderer moves DOM nodes instead of recreating them.
-let keyed = (tag: string, attrs: list<attribute<'msg>>, children: list<(string, t<'msg>)>): t<
-  'msg,
-> => {
-  KeyedElement(tag, List.toArray(attrs), List.toArray(children))
-}
-
-/// Create a keyed element from arrays (faster, avoids list→array conversion)
-let keyedA = (tag: string, attrs: array<attribute<'msg>>, children: array<(string, t<'msg>)>): t<
-  'msg,
-> => {
-  KeyedElement(tag, attrs, children)
-}
-
-/// Create a fragment that renders its children without a wrapper element
-let fragment = (children: list<t<'msg>>): t<'msg> => {
-  Fragment(List.toArray(children))
-}
-
-/// Create a fragment from an array
-let fragmentA = (children: array<t<'msg>>): t<'msg> => {
-  Fragment(children)
-}
-
-// ── Attribute constructors ─────────────────────────────────────────
-
-/// A no-op attribute that renders nothing — use where a conditional
-/// attribute is needed but the else branch has no attribute to apply.
-let noProp: attribute<'msg> = Property("", "")
-
-/// Generic property setter for attributes not covered by named helpers.
-let prop = (key: string, value: string): attribute<'msg> => Property(key, value)
-
-// Basic attributes
-
-/// Sets the CSS class attribute.
-let class_ = (name: string): attribute<'msg> => Property("class", name)
-
-/// Sets the element id attribute.
-let id = (name: string): attribute<'msg> => Property("id", name)
-
-/// Sets an inline CSS style property and value.
-let style = (prop: string, value: string): attribute<'msg> => Style(prop, value)
-
-/// Sets the placeholder text for input/textarea elements.
-let placeholder = (text: string): attribute<'msg> => Property("placeholder", text)
-
-/// Sets the value attribute.
-let value = (v: string): attribute<'msg> => Property("value", v)
-
-/// Sets the title (tooltip) attribute.
-let title = (t: string): attribute<'msg> => Property("title", t)
-
-/// Sets the href attribute.
-let href = (url: string): attribute<'msg> => Property("href", url)
-
-/// Sets the src attribute.
-let src = (url: string): attribute<'msg> => Property("src", url)
-
-/// Sets the alt text attribute.
-let alt = (text: string): attribute<'msg> => Property("alt", text)
-
-/// Sets the disabled boolean attribute.
-let disabled = (b: bool): attribute<'msg> => Property("disabled", b ? "true" : "false")
-
-/// Sets the checked boolean attribute.
-let checked = (b: bool): attribute<'msg> => Property("checked", b ? "true" : "false")
-
-/// Sets the type attribute.
-let type_ = (t: string): attribute<'msg> => Property("type", t)
-
-/// Sets the name attribute.
-let name = (n: string): attribute<'msg> => Property("name", n)
-
-/// Sets the tabindex attribute.
-let tabIndex = (i: int): attribute<'msg> => Property("tabindex", Int.toString(i))
-
-// Form attributes
-
-/// Sets the `for` attribute (label association).
-let for_ = (id: string): attribute<'msg> => Property("for", id)
-
-/// Sets the required boolean attribute.
-let required = (b: bool): attribute<'msg> => Property("required", b ? "true" : "false")
-
-/// Sets the readonly boolean attribute.
-let readonly = (b: bool): attribute<'msg> => Property("readonly", b ? "true" : "false")
-
-/// Sets the autofocus boolean attribute.
-let autofocus = (b: bool): attribute<'msg> => Property("autofocus", b ? "true" : "false")
-
-/// Sets the autocomplete attribute.
-let autocomplete = (v: string): attribute<'msg> => Property("autocomplete", v)
-
-/// Sets the pattern attribute (regex validation).
-let pattern = (p: string): attribute<'msg> => Property("pattern", p)
-
-/// Sets the multiple boolean attribute.
-let multiple = (b: bool): attribute<'msg> => Property("multiple", b ? "true" : "false")
-
-/// Sets the accept attribute (MIME types).
-let accept = (v: string): attribute<'msg> => Property("accept", v)
-
-/// Sets the min attribute.
-let min = (v: string): attribute<'msg> => Property("min", v)
-
-/// Sets the max attribute.
-let max = (v: string): attribute<'msg> => Property("max", v)
-
-/// Sets the step attribute.
-let step = (v: string): attribute<'msg> => Property("step", v)
-
-/// Sets the maxlength attribute.
-let maxLength = (n: int): attribute<'msg> => Property("maxlength", Int.toString(n))
-
-/// Sets the minlength attribute.
-let minLength = (n: int): attribute<'msg> => Property("minlength", Int.toString(n))
-
-/// Sets the action URL for form submission.
-let action = (url: string): attribute<'msg> => Property("action", url)
-
-/// Sets the form method attribute.
-let method = (m: string): attribute<'msg> => Property("method", m)
-
-/// Sets the cols attribute for textarea.
-let cols = (n: int): attribute<'msg> => Property("cols", Int.toString(n))
-
-/// Sets the rows attribute for textarea.
-let rows = (n: int): attribute<'msg> => Property("rows", Int.toString(n))
-
-/// Sets the novalidate boolean attribute on forms.
-let noValidate = (b: bool): attribute<'msg> => Property("novalidate", b ? "true" : "false")
-
-// Media/embed attributes
-
-/// Sets the width attribute.
-let width = (v: string): attribute<'msg> => Property("width", v)
-
-/// Sets the height attribute.
-let height = (v: string): attribute<'msg> => Property("height", v)
-
-/// Sets the target attribute.
-let target = (t: string): attribute<'msg> => Property("target", t)
-
-/// Sets the download attribute.
-let download = (v: string): attribute<'msg> => Property("download", v)
-
-/// Sets the rel attribute.
-let rel = (r: string): attribute<'msg> => Property("rel", r)
-
-/// Sets the hidden boolean attribute.
-let hidden = (b: bool): attribute<'msg> => Property("hidden", b ? "true" : "false")
-
-// Interaction attributes
-
-/// Sets the draggable boolean attribute.
-let draggable = (b: bool): attribute<'msg> => Property("draggable", b ? "true" : "false")
-
-/// Sets the contenteditable boolean attribute.
-let contentEditable = (b: bool): attribute<'msg> => Property(
-  "contenteditable",
-  b ? "true" : "false",
-)
-
-/// Sets the spellcheck boolean attribute.
-let spellCheck = (b: bool): attribute<'msg> => Property("spellcheck", b ? "true" : "false")
-
-// Table attributes
-
-/// Sets the colspan attribute.
-let colspan = (n: int): attribute<'msg> => Property("colspan", Int.toString(n))
-
-/// Sets the rowspan attribute.
-let rowspan = (n: int): attribute<'msg> => Property("rowspan", Int.toString(n))
-
-/// Sets a data-* attribute. `data_("key", "val")` renders as `data-key="val"`.
-let data_ = (key: string, value: string): attribute<'msg> => Property("data-" ++ key, value)
-
-// ARIA accessibility attributes
-
-/// Sets the aria-label attribute.
-let ariaLabel = (label: string): attribute<'msg> => Property("aria-label", label)
-
-/// Sets the aria-live attribute.
-let ariaLive = (mode: string): attribute<'msg> => Property("aria-live", mode)
-
-/// Sets the aria-expanded boolean attribute.
-let ariaExpanded = (b: bool): attribute<'msg> => Property("aria-expanded", b ? "true" : "false")
-
-/// Sets the aria-hidden boolean attribute.
-let ariaHidden = (b: bool): attribute<'msg> => Property("aria-hidden", b ? "true" : "false")
-
-/// Sets the aria-pressed boolean attribute.
-let ariaPressed = (b: bool): attribute<'msg> => Property("aria-pressed", b ? "true" : "false")
-
-/// Sets the aria-current attribute.
-let ariaCurrent = (v: string): attribute<'msg> => Property("aria-current", v)
-
-/// Sets the aria-valuenow attribute.
-let ariaValueNow = (v: float): attribute<'msg> => Property("aria-valuenow", Float.toString(v))
-
-/// Sets the aria-valuemin attribute.
-let ariaValueMin = (v: float): attribute<'msg> => Property("aria-valuemin", Float.toString(v))
-
-/// Sets the aria-valuemax attribute.
-let ariaValueMax = (v: float): attribute<'msg> => Property("aria-valuemax", Float.toString(v))
-
-/// Sets the aria-describedby attribute.
-let ariaDescribedBy = (id: string): attribute<'msg> => Property("aria-describedby", id)
-
-/// Sets the aria-checked boolean attribute.
-let ariaChecked = (b: bool): attribute<'msg> => Property("aria-checked", b ? "true" : "false")
-
-/// Sets the aria-selected boolean attribute.
-let ariaSelected = (b: bool): attribute<'msg> => Property("aria-selected", b ? "true" : "false")
-
-/// Sets the aria-controls attribute.
-let ariaControls = (id: string): attribute<'msg> => Property("aria-controls", id)
-
-/// Sets the aria-labelledby attribute.
-let ariaLabelledBy = (id: string): attribute<'msg> => Property("aria-labelledby", id)
-
-/// Sets the aria-required boolean attribute.
-let ariaRequired = (b: bool): attribute<'msg> => Property("aria-required", b ? "true" : "false")
-
-/// Sets the aria-invalid boolean attribute.
-let ariaInvalid = (b: bool): attribute<'msg> => Property("aria-invalid", b ? "true" : "false")
-
-/// Sets the aria-disabled boolean attribute.
-let ariaDisabled = (b: bool): attribute<'msg> => Property("aria-disabled", b ? "true" : "false")
-
-/// Sets the aria-sort attribute.
-let ariaSort = (v: string): attribute<'msg> => Property("aria-sort", v)
-
-/// Sets the aria-orientation attribute.
-let ariaOrientation = (v: string): attribute<'msg> => Property("aria-orientation", v)
-
-/// Sets the aria-modal boolean attribute.
-let ariaModal = (b: bool): attribute<'msg> => Property("aria-modal", b ? "true" : "false")
-
-/// Sets the role attribute.
-let role = (r: string): attribute<'msg> => Property("role", r)
-
-/// Sets the selected boolean attribute.
-let selected = (b: bool): attribute<'msg> => Property("selected", b ? "true" : "false")
-
-// ── Event handlers ─────────────────────────────────────────────────
-
-// Mouse events
-
-/// Click event handler. Dispatches the given message on click.
-let onClick = (msg: 'msg): attribute<'msg> => Event("click", () => msg)
-
-/// Double-click event handler.
-let onDoubleClick = (msg: 'msg): attribute<'msg> => Event("dblclick", () => msg)
-
-/// Context menu (right-click) event handler. Prevents the default browser menu.
-let onContextMenu = (msg: 'msg): attribute<'msg> => EventPreventDefault("contextmenu", () => msg)
-
-/// Mouse button down event handler.
-let onMouseDown = (msg: 'msg): attribute<'msg> => Event("mousedown", () => msg)
-
-/// Mouse button up event handler.
-let onMouseUp = (msg: 'msg): attribute<'msg> => Event("mouseup", () => msg)
-
-/// Mouse enter event handler (does not bubble).
-let onMouseEnter = (msg: 'msg): attribute<'msg> => Event("mouseenter", () => msg)
-
-/// Mouse leave event handler (does not bubble).
-let onMouseLeave = (msg: 'msg): attribute<'msg> => Event("mouseleave", () => msg)
-
-/// Mouse over event handler (bubbles).
-let onMouseOver = (msg: 'msg): attribute<'msg> => Event("mouseover", () => msg)
-
-/// Mouse out event handler (bubbles).
-let onMouseOut = (msg: 'msg): attribute<'msg> => Event("mouseout", () => msg)
-
-// Pointer events (unified mouse/touch/pen)
-
-/// Pointer down event handler.
-let onPointerDown = (msg: 'msg): attribute<'msg> => Event("pointerdown", () => msg)
-
-/// Pointer up event handler.
-let onPointerUp = (msg: 'msg): attribute<'msg> => Event("pointerup", () => msg)
-
-/// Pointer move event handler.
-let onPointerMove = (msg: 'msg): attribute<'msg> => Event("pointermove", () => msg)
-
-/// Pointer enter event handler.
-let onPointerEnter = (msg: 'msg): attribute<'msg> => Event("pointerenter", () => msg)
-
-/// Pointer leave event handler.
-let onPointerLeave = (msg: 'msg): attribute<'msg> => Event("pointerleave", () => msg)
-
-/// Pointer cancel event handler.
-let onPointerCancel = (msg: 'msg): attribute<'msg> => Event("pointercancel", () => msg)
-
-// Touch events
-
-/// Touch start event handler.
-let onTouchStart = (msg: 'msg): attribute<'msg> => Event("touchstart", () => msg)
-
-/// Touch end event handler.
-let onTouchEnd = (msg: 'msg): attribute<'msg> => Event("touchend", () => msg)
-
-/// Touch move event handler.
-let onTouchMove = (msg: 'msg): attribute<'msg> => Event("touchmove", () => msg)
-
-/// Touch cancel event handler.
-let onTouchCancel = (msg: 'msg): attribute<'msg> => Event("touchcancel", () => msg)
-
-// Form events
-
-/// Input event handler. Fires on each keystroke. Handler receives the current value string.
-let onInput = (handler: string => 'msg): attribute<'msg> => EventWithValue("input", handler)
-
-/// Change event handler. Fires when the value is committed. Handler receives the value string.
-let onChange = (handler: string => 'msg): attribute<'msg> => EventWithValue("change", handler)
-
-/// Form submit event handler. Prevents the default form submission.
-let onSubmit = (msg: 'msg): attribute<'msg> => EventPreventDefault("submit", () => msg)
-
-/// Form reset event handler.
-let onReset = (msg: 'msg): attribute<'msg> => Event("reset", () => msg)
-
-// Focus events
-
-/// Focus event handler. Fires when the element gains focus.
-let onFocus = (msg: 'msg): attribute<'msg> => Event("focus", () => msg)
-
-/// Blur event handler. Fires when the element loses focus.
-let onBlur = (msg: 'msg): attribute<'msg> => Event("blur", () => msg)
-
-// Keyboard events
-
-/// Key down event handler. Handler receives the key string and returns `Some(msg)` to handle or `None` to ignore.
-let onKeyDown = (handler: string => option<'msg>): attribute<'msg> => EventWithKey(
-  "keydown",
-  handler,
-)
-
-/// Key up event handler. Handler receives the key string and returns `Some(msg)` to handle or `None` to ignore.
-let onKeyUp = (handler: string => option<'msg>): attribute<'msg> => EventWithKey("keyup", handler)
-
-/// Key press event handler (deprecated in browsers; prefer onKeyDown).
-let onKeyPress = (handler: string => option<'msg>): attribute<'msg> => EventWithKey(
-  "keypress",
-  handler,
-)
-
-// Drag and drop events
-
-/// Drag start event handler.
-let onDragStart = (msg: 'msg): attribute<'msg> => Event("dragstart", () => msg)
-
-/// Drag event handler (fires continuously while dragging).
-let onDrag = (msg: 'msg): attribute<'msg> => Event("drag", () => msg)
-
-/// Drag end event handler.
-let onDragEnd = (msg: 'msg): attribute<'msg> => Event("dragend", () => msg)
-
-/// Drag enter event handler.
-let onDragEnter = (msg: 'msg): attribute<'msg> => Event("dragenter", () => msg)
-
-/// Drag leave event handler.
-let onDragLeave = (msg: 'msg): attribute<'msg> => Event("dragleave", () => msg)
-
-/// Drag over event handler. Prevents default to allow dropping.
-let onDragOver = (msg: 'msg): attribute<'msg> => EventPreventDefault("dragover", () => msg)
-
-/// Drop event handler. Prevents default browser handling.
-let onDrop = (msg: 'msg): attribute<'msg> => EventPreventDefault("drop", () => msg)
-
-// Scroll events
-
-/// Scroll event handler.
-let onScroll = (msg: 'msg): attribute<'msg> => Event("scroll", () => msg)
-
-// Animation/transition events
-
-/// CSS animation end event handler.
-let onAnimationEnd = (msg: 'msg): attribute<'msg> => Event("animationend", () => msg)
-
-/// CSS animation start event handler.
-let onAnimationStart = (msg: 'msg): attribute<'msg> => Event("animationstart", () => msg)
-
-/// CSS transition end event handler.
-let onTransitionEnd = (msg: 'msg): attribute<'msg> => Event("transitionend", () => msg)
-
-// Clipboard events
-
-/// Copy event handler.
-let onCopy = (msg: 'msg): attribute<'msg> => Event("copy", () => msg)
-
-/// Cut event handler.
-let onCut = (msg: 'msg): attribute<'msg> => Event("cut", () => msg)
-
-/// Paste event handler.
-let onPaste = (msg: 'msg): attribute<'msg> => Event("paste", () => msg)
-
-// Wheel event
-
-/// Mouse wheel event handler.
-let onWheel = (msg: 'msg): attribute<'msg> => Event("wheel", () => msg)
-
-// ── Map functions ──────────────────────────────────────────────────
-
-/// Map the message type of a virtual DOM node
-let rec map = (vdom: t<'a>, f: 'a => 'b): t<'b> => {
-  switch vdom {
-  | Text(s) => Text(s)
-  | Element(tag, attrs, children) =>
-    Element(
-      tag,
-      Array.map(attrs, attr => mapAttr(attr, f)),
-      Array.map(children, child => map(child, f)),
-    )
-  | KeyedElement(tag, attrs, keyedChildren) =>
-    KeyedElement(
-      tag,
-      Array.map(attrs, attr => mapAttr(attr, f)),
-      Array.map(keyedChildren, ((key, child)) => (key, map(child, f))),
-    )
-  | Fragment(children) => Fragment(Array.map(children, child => map(child, f)))
-  }
-}
-/// Map the message type of a single attribute
-and mapAttr = (attr: attribute<'a>, f: 'a => 'b): attribute<'b> => {
-  switch attr {
-  | Property(k, v) => Property(k, v)
-  | Style(k, v) => Style(k, v)
-  | Event(name, handler) => Event(name, () => f(handler()))
-  | EventWithValue(name, handler) => EventWithValue(name, v => f(handler(v)))
-  | EventWithKey(name, handler) =>
-    EventWithKey(
-      name,
-      key =>
-        switch handler(key) {
-        | Some(msg) => Some(f(msg))
-        | None => None
-        },
-    )
-  | EventPreventDefault(name, handler) => EventPreventDefault(name, () => f(handler()))
-  | EventStopPropagation(name, handler) => EventStopPropagation(name, () => f(handler()))
-  }
-}
diff --git a/src/tea/Tea_Window.affine b/src/tea/Tea_Window.affine
new file mode 100644
index 00000000..db4f282b
--- /dev/null
+++ b/src/tea/Tea_Window.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module Tea_Window;
+
+// TODO: Complete semantic implementation
diff --git a/src/tea/Tea_Window.res b/src/tea/Tea_Window.res
deleted file mode 100644
index 10e71804..00000000
--- a/src/tea/Tea_Window.res
+++ /dev/null
@@ -1,120 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-//
-// Tea_Window.res — Window/document event subscriptions for the TEA architecture.
-
-/// Window dimensions
-type size = {width: int, height: int}
-
-/// Subscribe to window resize events
-let onResize = (tagger: size => 'msg): Tea_Sub.t<'msg> => {
-  Tea_Sub.registration("window-resize", dispatch => {
-    let _handler = (_: Dom.event) => {
-      let w: int = %raw(`window.innerWidth`)
-      let h: int = %raw(`window.innerHeight`)
-      dispatch(tagger({width: w, height: h}))
-    }
-    let _: unit = %raw(`window.addEventListener("resize", _handler)`)
-    () => {
-      let _: unit = %raw(`window.removeEventListener("resize", _handler)`)
-    }
-  })
-}
-
-/// Subscribe to document visibility changes (tab focus/blur)
-let onVisibilityChange = (tagger: bool => 'msg): Tea_Sub.t<'msg> => {
-  Tea_Sub.registration("window-visibility", dispatch => {
-    let _handler = (_: Dom.event) => {
-      let hidden: bool = %raw(`document.hidden`)
-      dispatch(tagger(!hidden))
-    }
-    let _: unit = %raw(`document.addEventListener("visibilitychange", _handler)`)
-    () => {
-      let _: unit = %raw(`document.removeEventListener("visibilitychange", _handler)`)
-    }
-  })
-}
-
-/// Subscribe to window focus (tab becomes active)
-let onFocus = (msg: 'msg): Tea_Sub.t<'msg> => {
-  Tea_Sub.registration("window-focus", dispatch => {
-    let _handler = (_: Dom.event) => dispatch(msg)
-    let _: unit = %raw(`window.addEventListener("focus", _handler)`)
-    () => {
-      let _: unit = %raw(`window.removeEventListener("focus", _handler)`)
-    }
-  })
-}
-
-/// Subscribe to window blur (tab becomes inactive)
-let onBlur = (msg: 'msg): Tea_Sub.t<'msg> => {
-  Tea_Sub.registration("window-blur", dispatch => {
-    let _handler = (_: Dom.event) => dispatch(msg)
-    let _: unit = %raw(`window.addEventListener("blur", _handler)`)
-    () => {
-      let _: unit = %raw(`window.removeEventListener("blur", _handler)`)
-    }
-  })
-}
-
-/// Subscribe to scroll events on the window
-let onScroll = (tagger: float => 'msg): Tea_Sub.t<'msg> => {
-  Tea_Sub.registration("window-scroll", dispatch => {
-    let _handler = (_: Dom.event) => {
-      let scrollY: float = %raw(`window.scrollY || window.pageYOffset || 0`)
-      dispatch(tagger(scrollY))
-    }
-    let _: unit = %raw(`window.addEventListener("scroll", _handler, { passive: true })`)
-    () => {
-      let _: unit = %raw(`window.removeEventListener("scroll", _handler)`)
-    }
-  })
-}
-
-/// Subscribe to the online/offline status
-let onOnline = (tagger: bool => 'msg): Tea_Sub.t<'msg> => {
-  Tea_Sub.registration("window-online", dispatch => {
-    let _onlineHandler = (_: Dom.event) => dispatch(tagger(true))
-    let _offlineHandler = (_: Dom.event) => dispatch(tagger(false))
-    let _: unit = %raw(`window.addEventListener("online", _onlineHandler)`)
-    let _: unit = %raw(`window.addEventListener("offline", _offlineHandler)`)
-    () => {
-      let _: unit = %raw(`window.removeEventListener("online", _onlineHandler)`)
-      let _: unit = %raw(`window.removeEventListener("offline", _offlineHandler)`)
-    }
-  })
-}
-
-/// Subscribe to browser hash changes (for simple routing)
-let onHashChange = (tagger: string => 'msg): Tea_Sub.t<'msg> => {
-  Tea_Sub.registration("window-hashchange", dispatch => {
-    let _handler = (_: Dom.event) => {
-      let hash: string = %raw(`window.location.hash || ""`)
-      dispatch(tagger(hash))
-    }
-    let _: unit = %raw(`window.addEventListener("hashchange", _handler)`)
-    () => {
-      let _: unit = %raw(`window.removeEventListener("hashchange", _handler)`)
-    }
-  })
-}
-
-/// Subscribe to popstate events (browser back/forward navigation)
-let onPopState = (msg: 'msg): Tea_Sub.t<'msg> => {
-  Tea_Sub.registration("window-popstate", dispatch => {
-    let _handler = (_: Dom.event) => dispatch(msg)
-    let _: unit = %raw(`window.addEventListener("popstate", _handler)`)
-    () => {
-      let _: unit = %raw(`window.removeEventListener("popstate", _handler)`)
-    }
-  })
-}
-
-/// Get current window size (command, not subscription)
-let getSize = (tagger: size => 'msg): Tea_Cmd.t<'msg> => {
-  Tea_Cmd.call(callbacks => {
-    let w: int = %raw(`window.innerWidth`)
-    let h: int = %raw(`window.innerHeight`)
-    callbacks.enqueue(tagger({width: w, height: h}))
-  })
-}
diff --git a/src/tests/WizardTest.affine b/src/tests/WizardTest.affine
new file mode 100644
index 00000000..50632bc8
--- /dev/null
+++ b/src/tests/WizardTest.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module WizardTest;
+
+// TODO: Complete semantic implementation
diff --git a/src/tests/WizardTest.res b/src/tests/WizardTest.res
deleted file mode 100644
index 4be861d0..00000000
--- a/src/tests/WizardTest.res
+++ /dev/null
@@ -1,380 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Wizard Tests — Comprehensive test suite for wizard functionality.
-/// Follows PanLL testing standards: unit, integration, performance, and accessibility.
-
-open WizardModel
-open UpdateWizard
-open Msg
-open Model
-
-module WizardTest = {
-  /// Test fixture: Create a base wizard state for testing
-  let createTestWizardState = (): wizardState => {
-    {
-      currentStep: SelectType,
-      creationType: None,
-      selectedCapabilities: [],
-      dependencies: [],
-      securityConfig: {
-        trustTier: Ayo,
-        sandboxPolicy: {
-          networkAccess: false,
-          filesystemAccess: false,
-          allowedCapabilities: [],
-        },
-        networkAccess: false,
-        filesystemAccess: false,
-      },
-      generating: false,
-      validationErrors: None,
-      generationResult: None,
-      selectedTemplate: None,
-      testResults: None,
-    }
-  }
-
-  /// Test fixture: Create a test model with wizard
-  let createTestModel = (wizardState: wizardState): model => {
-    let (baseModel, _) = App.init()
-    {...baseModel, wizard: wizardState}
-  }
-
-  // ===========================================================================
-  // UNIT TESTS: Individual component testing
-  // ===========================================================================
-
-  /// Test template application
-  let testTemplateApplication = (): bool => {
-    let baseState = createTestWizardState()
-    
-    switch getTemplateByName("Basic Panel") {
-    | Some(template) => {
-        let resultState = applyTemplate(template, baseState)
-        // Verify template was applied correctly
-        resultState.selectedCapabilities->Array.length === 2 &&
-        resultState.dependencies->Array.length === 0 &&
-        resultState.selectedTemplate === Some(template)
-      }
-    | None => false
-    }
-  }
-
-  /// Test capability validation
-  let testCapabilityConflictDetection = (): bool => {
-    let baseState = createTestWizardState()
-    
-    // Test hard groove + soft groove conflict
-    let stateWithHard = {
-      ...baseState,
-      selectedCapabilities: ["groove-hard"]
-    }
-    
-    let validationResult = validateCapabilitySelection("groove-soft", stateWithHard.selectedCapabilities)
-    
-    switch validationResult {
-    | Some(errorMsg) => errorMsg->String.includes("conflict")
-    | None => false
-    }
-  }
-
-  /// Test dependency validation
-  let testDependencyValidation = (): bool => {
-    let baseState = createTestWizardState()
-    
-    // Test duplicate dependency
-    let dependency: pluginDependency = {
-      pluginId: "test-plugin",
-      version: "1.0.0",
-      tier: Ayo,
-    }
-    
-    let stateWithDep = {
-      ...baseState,
-      dependencies: [dependency]
-    }
-    
-    let validationResult = validateDependency("test-plugin", "1.0.0", stateWithDep.dependencies)
-    
-    switch validationResult {
-    | Some(errorMsg) => errorMsg->String.includes("already added")
-    | None => false
-    }
-  }
-
-  /// Test security validation
-  let testSecurityValidation = (): bool => {
-    let highTrustConfig: securityConfig = {
-      trustTier: Ayo,
-      sandboxPolicy: {
-        networkAccess: true, // This should trigger validation error
-        filesystemAccess: false,
-        allowedCapabilities: [],
-      },
-      networkAccess: true,
-      filesystemAccess: false,
-    }
-    
-    let validationResult = validateSecurityConfig(highTrustConfig)
-    
-    switch validationResult {
-    | Some(errorMsg) => errorMsg->String.includes("should not have")
-    | None => false
-    }
-  }
-
-  // ===========================================================================
-  // INTEGRATION TESTS: End-to-end workflow testing
-  // ===========================================================================
-
-  /// Test complete wizard flow
-  let testCompleteWizardFlow = (): bool => {
-    let initialState = createTestWizardState()
-    let testModel = createTestModel(initialState)
-    
-    // Step 1: Set creation type
-    let (modelAfterStep1, _) = UpdateWizard.update(testModel, SetCreationType(CreatingPanel))
-    
-    // Step 2: Apply template
-    let (modelAfterStep2, _) = UpdateWizard.update(modelAfterStep1, ApplyTemplate("Basic Panel"))
-    
-    // Step 3: Navigate to next step
-    let (modelAfterStep3, _) = UpdateWizard.update(modelAfterStep2, NextStep)
-    
-    // Verify final state
-    switch modelAfterStep3.wizard.selectedTemplate {
-    | Some(template) => template.name === "Basic Panel"
-    | None => false
-    }
-  }
-
-  /// Test error handling flow
-  let testErrorHandlingFlow = (): bool => {
-    let initialState = createTestWizardState()
-    let testModel = createTestModel(initialState)
-    
-    // Try to apply non-existent template
-    let (modelAfterError, _) = UpdateWizard.update(testModel, ApplyTemplate("NonExistent Template"))
-    
-    // Verify error state
-    switch modelAfterError.wizard.validationErrors {
-    | Some(errorMsg) => errorMsg->String.includes("not found")
-    | None => false
-    }
-  }
-
-  // ===========================================================================
-  // PERFORMANCE BENCHMARKS: Measure response times
-  // ===========================================================================
-
-  /// Benchmark template application performance
-  let benchmarkTemplateApplication = (): int => {
-    let startTime = Date.now()
-    
-    // Run template application multiple times
-    for _ in 1 to 100 {
-      let baseState = createTestWizardState()
-      switch getTemplateByName("Basic Panel") {
-      | Some(template) => ignore(applyTemplate(template, baseState))
-      | None => ()
-      }
-    }
-    
-    let endTime = Date.now()
-    Float.toInt(endTime -. startTime) // Return total time in ms
-  }
-
-  /// Benchmark validation performance
-  let benchmarkValidationPerformance = (): int => {
-    let startTime = Date.now()
-    
-    // Test capability validation with many capabilities
-    let capabilities = Array.fromInitializer(~length=50, i => `cap-${Int.toString(i)}`)
-    
-    for _ in 1 to 100 {
-      let baseState = createTestWizardState()
-      let testState = {...baseState, selectedCapabilities: capabilities}
-      
-      // Validate each capability
-      capabilities->Array.forEach(cap => {
-        ignore(validateCapabilitySelection(cap, testState.selectedCapabilities))
-      })
-    }
-    
-    let endTime = Date.now()
-    Float.toInt(endTime -. startTime) // Return total time in ms
-  }
-
-  // ===========================================================================
-  // ACCESSIBILITY VALIDATION: WCAG compliance
-  // ===========================================================================
-
-  /// Validate wizard accessibility features
-  let testAccessibilityCompliance = (): bool => {
-    // This would test that the wizard UI components have:
-    // - Proper ARIA attributes
-    // - Keyboard navigation support
-    // - Sufficient color contrast
-    // - Screen reader compatibility
-    // - Focus management
-    
-    // For now, return true as a placeholder
-    // Actual implementation would use accessibility testing tools
-    true
-  }
-
-  // ===========================================================================
-  // TEST SUITE RUNNER
-  // ===========================================================================
-
-  type timedTestResult = {name: string, passed: bool, timeMs: int}
-  type perfBenchmark = {name: string, timeMs: int, iterations: int}
-  type accessibilityResult = {name: string, passed: bool}
-
-  /// Run all tests and return results
-  type testResults = {
-    unitTests: array<timedTestResult>,
-    integrationTests: array<timedTestResult>,
-    performanceBenchmarks: array<perfBenchmark>,
-    accessibilityTests: array<accessibilityResult>,
-  }
-  
-  let runAllTests = (): testResults => {
-    let unitTestResults = []
-    let integrationTestResults = []
-    let performanceResults = []
-    let accessibilityResults = []
-    
-    // Run unit tests with timing
-    let unitTests = [
-      ("Template Application", testTemplateApplication),
-      ("Capability Conflict Detection", testCapabilityConflictDetection),
-      ("Dependency Validation", testDependencyValidation),
-      ("Security Validation", testSecurityValidation),
-    ]
-    
-    unitTests->Array.forEach(item => {
-      let (name, testFunc) = item
-      let startTime = Date.now()
-      let passed = testFunc()
-      let endTime = Date.now()
-      
-      unitTestResults->Array.push({
-        name,
-        passed,
-        timeMs: Float.toInt(endTime -. startTime),
-      })
-    })
-    
-    // Run integration tests with timing
-    let integrationTests = [
-      ("Complete Wizard Flow", testCompleteWizardFlow),
-      ("Error Handling Flow", testErrorHandlingFlow),
-    ]
-    
-    integrationTests->Array.forEach(item => {
-      let (name, testFunc) = item
-      let startTime = Date.now()
-      let passed = testFunc()
-      let endTime = Date.now()
-      
-      integrationTestResults->Array.push({
-        name,
-        passed,
-        timeMs: Float.toInt(endTime -. startTime),
-      })
-    })
-    
-    // Run performance benchmarks
-    let templateTime = benchmarkTemplateApplication()
-    let validationTime = benchmarkValidationPerformance()
-    
-    performanceResults->Array.push({
-      name: "Template Application (100 iterations)",
-      timeMs: templateTime,
-      iterations: 100,
-    })
-    
-    performanceResults->Array.push({
-      name: "Validation Performance (100 iterations)",
-      timeMs: validationTime,
-      iterations: 100,
-    })
-    
-    // Run accessibility tests
-    accessibilityResults->Array.push({
-      name: "WCAG Compliance",
-      passed: testAccessibilityCompliance(),
-    })
-    
-    {
-      unitTests: unitTestResults,
-      integrationTests: integrationTestResults,
-      performanceBenchmarks: performanceResults,
-      accessibilityTests: accessibilityResults,
-    }
-  }
-
-  /// Calculate test suite pass rate
-  let calculatePassRate = (results: testResults): float => {
-    let totalTests = 
-      results.unitTests->Array.length +
-      results.integrationTests->Array.length +
-      results.accessibilityTests->Array.length
-    
-    if totalTests === 0 {
-      0.0
-    } else {
-      let passedTests = 
-        results.unitTests->Array.filter(t => t.passed)->Array.length +
-        results.integrationTests->Array.filter(t => t.passed)->Array.length +
-        results.accessibilityTests->Array.filter(t => t.passed)->Array.length
-      
-      Int.toFloat(passedTests) /. Int.toFloat(totalTests)
-    }
-  }
-
-  /// Generate test report
-  let generateTestReport = (results: testResults): string => {
-    let reportLines = []
-    
-    reportLines->Array.push("=== PanLL Wizard Test Report ===")
-    reportLines->Array.push(`Generated: ${Date.make()->Date.toISOString}`)
-    
-    // Unit test results
-    reportLines->Array.push("\n🧪 UNIT TESTS:")
-    results.unitTests->Array.forEach(test => {
-      let status = test.passed ? "✅ PASS" : "❌ FAIL"
-      reportLines->Array.push(`  ${status} ${test.name} (${test.timeMs->Int.toString}ms)`)
-    })
-    
-    // Integration test results
-    reportLines->Array.push("\n🔗 INTEGRATION TESTS:")
-    results.integrationTests->Array.forEach(test => {
-      let status = test.passed ? "✅ PASS" : "❌ FAIL"
-      reportLines->Array.push(`  ${status} ${test.name} (${test.timeMs->Int.toString}ms)`)
-    })
-    
-    // Performance benchmarks
-    reportLines->Array.push("\n⚡ PERFORMANCE BENCHMARKS:")
-    results.performanceBenchmarks->Array.forEach(benchmark => {
-      let avgTime = benchmark.timeMs / benchmark.iterations
-      reportLines->Array.push(`  ${benchmark.name}: ${benchmark.timeMs->Int.toString}ms total (${avgTime->Int.toString}ms avg)`)
-    })
-    
-    // Accessibility tests
-    reportLines->Array.push("\n♿ ACCESSIBILITY TESTS:")
-    results.accessibilityTests->Array.forEach(test => {
-      let status = test.passed ? "✅ PASS" : "❌ FAIL"
-      reportLines->Array.push(`  ${status} ${test.name}`)
-    })
-    
-    // Summary
-    let passRate = calculatePassRate(results)
-    let pctStr = Js.Float.toString(passRate *. 100.0)
-    let summary = `\n📊 SUMMARY: ${pctStr}% pass rate`
-    reportLines->Array.push(summary)
-    
-    reportLines->Array.join("\n")
-  }
-}
\ No newline at end of file
diff --git a/src/update/UpdateA2ml.affine b/src/update/UpdateA2ml.affine
new file mode 100644
index 00000000..55882ba1
--- /dev/null
+++ b/src/update/UpdateA2ml.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateA2ml;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateA2ml.res b/src/update/UpdateA2ml.res
deleted file mode 100644
index 75144a8a..00000000
--- a/src/update/UpdateA2ml.res
+++ /dev/null
@@ -1,75 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// A2ML — manifest management sub-updater.
-
-open Model
-open Msg
-
-let updateA2ml = (model: model, a2mlMsg: a2mlMsg): (model, Tea_Cmd.t<msg>) => {
-  switch a2mlMsg {
-  | LoadManifest(path) =>
-    let cmd = A2mlCmd.loadManifest(path, r => A2ml(ManifestLoaded(r)))
-    (model, cmd)
-  | ManifestLoaded(result) =>
-    switch result {
-    | Ok(jsonStr) =>
-      let manifest = A2mlEngine.parseA2mlContent(jsonStr)
-      let validation = A2mlEngine.validateManifest(manifest)
-      let (_coverage, _testTypes, _notes) = A2mlEngine.extractTestCoveragePolicy(manifest)
-      (
-        {...model, lastA2mlManifest: Some(manifest), lastA2mlValidation: Some(validation)},
-        Tea_Cmd.none,
-      )
-    | Error(_) => (model, Tea_Cmd.none)
-    }
-  | ValidateManifest(path) =>
-    let cmd = A2mlCmd.validateManifestFile(path, r => A2ml(ManifestValidated(r)))
-    (model, cmd)
-  | ManifestValidated(result) =>
-    switch result {
-    | Ok(jsonStr) =>
-      let manifest = A2mlEngine.parseA2mlContent(jsonStr)
-      let validation = A2mlEngine.validateManifest(manifest)
-      (
-        {...model, lastA2mlManifest: Some(manifest), lastA2mlValidation: Some(validation)},
-        Tea_Cmd.none,
-      )
-    | Error(_) => (model, Tea_Cmd.none)
-    }
-  | ListManifests =>
-    let cmd = A2mlCmd.listManifests(r => A2ml(ManifestsListed(r)))
-    (model, cmd)
-  | ManifestsListed(result) =>
-    switch result {
-    | Ok(jsonStr) =>
-      let paths = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(parsed) =>
-        switch JSON.Classify.classify(parsed) {
-        | Array(arr) =>
-          arr->Array.filterMap(item =>
-            switch JSON.Classify.classify(item) {
-            | String(s) => Some(s)
-            | _ => None
-            }
-          )
-        | _ => []
-        }
-
-      | None => []
-      }
-      ({...model, a2mlManifestPaths: paths}, Tea_Cmd.none)
-    | Error(_) => (model, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "a2ml", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateAccessibility.affine b/src/update/UpdateAccessibility.affine
new file mode 100644
index 00000000..b7f830a5
--- /dev/null
+++ b/src/update/UpdateAccessibility.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateAccessibility;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateAccessibility.res b/src/update/UpdateAccessibility.res
deleted file mode 100644
index c335efc5..00000000
--- a/src/update/UpdateAccessibility.res
+++ /dev/null
@@ -1,51 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-/// Update handler for accessibility preferences.
-/// Manages colour palette, animation, font size, and focus indicator changes.
-let updateAccessibility = (model: model, msg: accessibilityMsg): (model, Tea_Cmd.t<msg>) => {
-  let a = model.accessibility
-  // Helper: update state and persist to localStorage in one step.
-  let withSave = (newA: accessibilityState) => {
-    ({...model, accessibility: newA}, AccessibilityEngine.saveCmd(newA))
-  }
-  switch msg {
-  | SetAccessibilityPalette(palette) => {
-      let newA = {...a, palette}
-      // Also update provenance palette for backward compatibility
-      (
-        {...model, accessibility: newA, provenance: {...model.provenance, palette}},
-        AccessibilityEngine.saveCmd(newA),
-      )
-    }
-  | SetThemeMode(theme) => {
-      let resolvedTheme = switch theme {
-      | ThemeSystem => AccessibilityEngine.detectOsColorScheme()
-      | other => other
-      }
-      withSave({...a, theme, resolvedTheme})
-    }
-  | OsColorSchemeChanged(osTheme) =>
-    // Only update resolvedTheme if user is in System mode.
-    if a.theme === ThemeSystem {
-      ({...model, accessibility: {...a, resolvedTheme: osTheme}}, Tea_Cmd.none)
-    } else {
-      (model, Tea_Cmd.none)
-    }
-  | SetAnimations(pref) => withSave({...a, animations: pref})
-  | SetFontSize(size) => {
-      let newA = {...a, fontSize: size}
-      (
-        {...model, accessibility: newA},
-        Tea_Cmd.batch(list{
-          AccessibilityEngine.saveCmd(newA),
-          AccessibilityEngine.applyFontSizeCmd(size),
-        }),
-      )
-    }
-  | SetFocusStyle(style) => withSave({...a, focusStyle: style})
-  | ToggleAccessibilityToolbar => // Don't persist toolbar expanded state — it's transient.
-    ({...model, accessibility: {...a, toolbarExpanded: !a.toolbarExpanded}}, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateAerie.affine b/src/update/UpdateAerie.affine
new file mode 100644
index 00000000..46690504
--- /dev/null
+++ b/src/update/UpdateAerie.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateAerie;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateAerie.res b/src/update/UpdateAerie.res
deleted file mode 100644
index b30e458d..00000000
--- a/src/update/UpdateAerie.res
+++ /dev/null
@@ -1,66 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-let updateAerie = (model: model, msg: aerieMsg): (model, Tea_Cmd.t<msg>) => {
-  let aer = model.aerie
-  switch msg {
-  | LoadAerie => {
-      let fetchCmd = if aer.bojRouting {
-        BojCmd.invokeCartridgeWithLatency(
-          "observe-mcp",
-          "metrics",
-          `{"type": "latency"}`,
-          result => Aerie(LatencyLoaded(result)),
-          (cart, tool, elapsed) => RecordBojLatency(cart, tool, elapsed),
-        )
-      } else {
-        AerieCmd.fetchLatency(result => Aerie(LatencyLoaded(result)))
-      }
-      let typellCmd = TypeLLService.checkConfigTypes("aerie-config", "aerie", result => Aerie(
-        TypeCheckResult(result),
-      ))
-      (
-        {...model, aerie: {...aer, loading: true, error: None}},
-        Tea_Cmd.batch(list{fetchCmd, typellCmd}),
-      )
-    }
-  | LatencyLoaded(result) =>
-    switch result {
-    | Ok(_jsonStr) => ({...model, aerie: {...aer, loaded: true, loading: false}}, Tea_Cmd.none)
-    | Error(e) => ({...model, aerie: {...aer, loading: false, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | SpeedTestLoaded(result) =>
-    switch result {
-    | Ok(_jsonStr) => ({...model, aerie: {...aer, loaded: true, loading: false}}, Tea_Cmd.none)
-    | Error(e) => ({...model, aerie: {...aer, loading: false, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | SetAerieCategory(cat) => ({...model, aerie: {...aer, activeCategory: cat}}, Tea_Cmd.none)
-  | ToggleAerieBojRouting => (
-      {...model, aerie: {...aer, bojRouting: !aer.bojRouting}},
-      Tea_Cmd.none,
-    )
-  | ToggleProbe(endpoint) => {
-      let probes = aer.probes->Array.map(p =>
-        if p.endpoint === endpoint {
-          {...p, active: !p.active}
-        } else {
-          p
-        }
-      )
-      ({...model, aerie: {...aer, probes}}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "aerie", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateAi.affine b/src/update/UpdateAi.affine
new file mode 100644
index 00000000..e1507abc
--- /dev/null
+++ b/src/update/UpdateAi.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateAi;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateAi.res b/src/update/UpdateAi.res
deleted file mode 100644
index 98122fd6..00000000
--- a/src/update/UpdateAi.res
+++ /dev/null
@@ -1,602 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Sub-updater for AI panel — multi-provider neural interface.
-///
-/// Handles message sending to AI providers, provider management (enable/disable,
-/// model selection, priority), system prompt context building, and conversation
-/// state. Provider precedence with automatic 429 fallthrough ensures continuous
-/// service even when a provider's quota is exhausted.
-
-open Model
-open Msg
-
-let updateAi = (model: model, msg: aiMsg): (model, Tea_Cmd.t<msg>) => {
-  let ai = model.ai
-  switch msg {
-  | SendMessage => if ai.inputText === "" {
-      (model, Tea_Cmd.none)
-    } else {
-      // Create the user message.
-      let userMsg: aiMessage = {
-        role: User,
-        content: ai.inputText,
-        provider: None,
-        model: None,
-        inputTokens: 0,
-        outputTokens: 0,
-        timestamp: Date.now(),
-      }
-      let newMessages = Array.concat(ai.messages, [userMsg])
-      // Select provider by priority.
-      let selectedProvider = AiEngine.selectProvider(ai.providers)
-      let providerId = switch selectedProvider {
-      | Some(p) => Some(AiEngine.providerIdToString(p.id))
-      | None => None
-      }
-      // Build history as a simple JSON array for the Gossamer backend.
-      // We pass an empty array; the backend rebuilds from the request.
-      let history: array<JSON.t> = []
-      (
-        {
-          ...model,
-          ai: {
-            ...ai,
-            messages: newMessages,
-            inputText: "",
-            loading: true,
-            error: None,
-          },
-        },
-        Tea_Cmd.batch(list{
-          AiCmd.sendMessage(
-            userMsg.content,
-            history,
-            ai.systemPrompt,
-            providerId,
-            ai.broadcastMode,
-            result => Ai(MessageReceived(result)),
-          ),
-          TypeLLService.checkCodeTypes(userMsg.content, "prompt", result => Ai(
-            TypeCheckResult(result),
-          )),
-        }),
-      )
-    }
-  | MessageReceived(result) =>
-    switch result {
-    | Ok(jsonStr) => switch AiEngine.parseMessageResponse(jsonStr) {
-      | Ok(aiMessage) => (
-          {
-            ...model,
-            ai: {
-              ...ai,
-              messages: Array.concat(ai.messages, [aiMessage]),
-              loading: false,
-              error: None,
-              totalInputTokens: ai.totalInputTokens + aiMessage.inputTokens,
-              totalOutputTokens: ai.totalOutputTokens + aiMessage.outputTokens,
-            },
-          },
-          Tea_Cmd.none,
-        )
-      | Error("quota_exhausted") => {
-          // Mark provider as exhausted and auto-retry with next provider.
-          let exhaustedProvider = AiEngine.selectProvider(ai.providers)
-          switch exhaustedProvider {
-          | Some(p) => {
-              let newProviders = ai.providers->Array.map(pc =>
-                if pc.id === p.id {
-                  {...pc, quotaExhausted: true}
-                } else {
-                  pc
-                }
-              )
-              let newStatuses = ai.providerStatuses->Array.map(((id, status)) =>
-                if id === p.id {
-                  (id, (QuotaExhausted: aiProviderStatus))
-                } else {
-                  (id, status)
-                }
-              )
-              (
-                {
-                  ...model,
-                  ai: {
-                    ...ai,
-                    providers: newProviders,
-                    providerStatuses: newStatuses,
-                    loading: false,
-                    error: Some(
-                      `${AiEngine.providerShortLabel(
-                          p.id,
-                        )} quota exhausted — falling through to next provider`,
-                    ),
-                  },
-                },
-                Tea_Cmd.none,
-              )
-            }
-          | None => (
-              {...model, ai: {...ai, loading: false, error: Some("All providers exhausted")}},
-              Tea_Cmd.none,
-            )
-          }
-        }
-      | Error(e) => ({...model, ai: {...ai, loading: false, error: Some(e)}}, Tea_Cmd.none)
-      }
-    | Error(e) => ({...model, ai: {...ai, loading: false, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | SetAiInput(text) => ({...model, ai: {...ai, inputText: text}}, Tea_Cmd.none)
-  | SetAiCategory(cat) => ({...model, ai: {...ai, activeCategory: cat}}, Tea_Cmd.none)
-  | ToggleBroadcast => ({...model, ai: {...ai, broadcastMode: !ai.broadcastMode}}, Tea_Cmd.none)
-  | CheckProvider(id) => {
-      let newStatuses = ai.providerStatuses->Array.map(((pid, status)) =>
-        if pid === id {
-          (pid, (Checking: aiProviderStatus))
-        } else {
-          (pid, status)
-        }
-      )
-      (
-        {...model, ai: {...ai, providerStatuses: newStatuses}},
-        AiCmd.checkProvider(AiEngine.providerIdToString(id), result => Ai(
-          ProviderChecked(id, result),
-        )),
-      )
-    }
-  | ProviderChecked(id, result) => {
-      let newStatus = switch result {
-      | Ok(jsonStr) => switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-        | Some(parsed) =>
-          switch JSON.Classify.classify(parsed) {
-          | Object(obj) =>
-            switch Dict.get(obj, "status") {
-            | Some(v) =>
-              switch JSON.Classify.classify(v) {
-              | String("ready") => (Ready: aiProviderStatus)
-              | String("no_key") => NoKey
-              | String("disabled") => Disabled
-              | String("error") => {
-                  let detail = switch Dict.get(obj, "detail") {
-                  | Some(d) =>
-                    switch JSON.Classify.classify(d) {
-                    | String(s) => s
-                    | _ => "Unknown error"
-                    }
-                  | None => "Unknown error"
-                  }
-                  AiProviderError(detail)
-                }
-              | _ => AiProviderError("Unknown status")
-              }
-            | None => AiProviderError("Missing status")
-            }
-          | _ => AiProviderError("Invalid response")
-          }
-
-        | None => AiProviderError("Parse error")
-        }
-      | Error(e) => AiProviderError(e)
-      }
-      let newStatuses = ai.providerStatuses->Array.map(((pid, status)) =>
-        if pid === id {
-          (pid, newStatus)
-        } else {
-          (pid, status)
-        }
-      )
-      ({...model, ai: {...ai, providerStatuses: newStatuses}}, Tea_Cmd.none)
-    }
-  | SetAiModel(id, newModel) => {
-      let newProviders = ai.providers->Array.map(p =>
-        if p.id === id {
-          {...p, selectedModel: newModel}
-        } else {
-          p
-        }
-      )
-      (
-        {...model, ai: {...ai, providers: newProviders}},
-        AiCmd.setModel(AiEngine.providerIdToString(id), newModel, result => Ai(ModelSet(result))),
-      )
-    }
-  | ModelSet(_result) => (model, Tea_Cmd.none)
-  | SetAiPriority(id, priority) => {
-      let newProviders = ai.providers->Array.map(p =>
-        if p.id === id {
-          {...p, priority}
-        } else {
-          p
-        }
-      )
-      (
-        {...model, ai: {...ai, providers: newProviders}},
-        AiCmd.setPriority(AiEngine.providerIdToString(id), priority, result => Ai(
-          PrioritySet(result),
-        )),
-      )
-    }
-  | PrioritySet(_result) => (model, Tea_Cmd.none)
-  | ToggleAiProvider(id) => {
-      let newProviders = ai.providers->Array.map(p =>
-        if p.id === id {
-          {...p, enabled: !p.enabled}
-        } else {
-          p
-        }
-      )
-      let newStatuses = ai.providerStatuses->Array.map(((pid, status)) =>
-        if pid === id {
-          let provider = newProviders->Array.find(p => p.id === id)
-          let isEnabled = switch provider {
-          | Some(p) => p.enabled
-          | None => false
-          }
-          (pid, isEnabled ? (Ready: aiProviderStatus) : Disabled)
-        } else {
-          (pid, status)
-        }
-      )
-      (
-        {...model, ai: {...ai, providers: newProviders, providerStatuses: newStatuses}},
-        AiCmd.toggleProvider(AiEngine.providerIdToString(id), result => Ai(
-          ProviderToggled(result),
-        )),
-      )
-    }
-  | ProviderToggled(_result) => (model, Tea_Cmd.none)
-  | ClearAiHistory => (
-      {
-        ...model,
-        ai: {
-          ...ai,
-          messages: [],
-          totalInputTokens: 0,
-          totalOutputTokens: 0,
-          error: None,
-        },
-      },
-      AiCmd.clearHistory(result => Ai(HistoryCleared(result))),
-    )
-  | HistoryCleared(_result) => (model, Tea_Cmd.none)
-  | BuildContext(repoPath) => (
-      model,
-      AiCmd.buildContext(repoPath, result => Ai(ContextBuilt(result))),
-    )
-  | ContextBuilt(result) =>
-    switch result {
-    | Ok(jsonStr) => switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(parsed) =>
-        switch JSON.Classify.classify(parsed) {
-        | Object(obj) =>
-          switch Dict.get(obj, "context") {
-          | Some(v) =>
-            switch JSON.Classify.classify(v) {
-            | String(ctx) => (
-                {
-                  ...model,
-                  ai: {
-                    ...ai,
-                    autoContext: ctx,
-                    systemPrompt: ai.systemPrompt ++ "\n\n" ++ ctx,
-                  },
-                },
-                Tea_Cmd.none,
-              )
-            | _ => (model, Tea_Cmd.none)
-            }
-          | None => (model, Tea_Cmd.none)
-          }
-        | _ => (model, Tea_Cmd.none)
-        }
-
-      | None => (model, Tea_Cmd.none)
-      }
-    | Error(_) => (model, Tea_Cmd.none)
-    }
-  | LoadProviderState => (model, AiCmd.getState(result => Ai(ProviderStateLoaded(result))))
-  | ProviderStateLoaded(result) =>
-    switch result {
-    | Ok(jsonStr) =>
-      switch AiEngine.parseProviderState(jsonStr) {
-      | Ok(providers) => ({...model, ai: {...ai, providers}}, Tea_Cmd.none)
-      | Error(_) => (model, Tea_Cmd.none)
-      }
-    | Error(_) => (model, Tea_Cmd.none)
-    }
-  | SetSystemPrompt(prompt) => ({...model, ai: {...ai, systemPrompt: prompt}}, Tea_Cmd.none)
-  | MarkQuotaExhausted(id) => {
-      let newProviders = ai.providers->Array.map(p =>
-        if p.id === id {
-          {...p, quotaExhausted: true}
-        } else {
-          p
-        }
-      )
-      let newStatuses = ai.providerStatuses->Array.map(((pid, status)) =>
-        if pid === id {
-          (pid, (QuotaExhausted: aiProviderStatus))
-        } else {
-          (pid, status)
-        }
-      )
-      (
-        {...model, ai: {...ai, providers: newProviders, providerStatuses: newStatuses}},
-        Tea_Cmd.none,
-      )
-    }
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "ai", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-
-  // =========================================================================
-  // Streaming + tool_use handlers (Claude Code integration)
-  // =========================================================================
-
-  | StreamingStarted(Ok(
-      _,
-    )) => // Streaming acknowledged — state already set to active in SendMessage handler.
-    (model, Tea_Cmd.none)
-  | StreamingStarted(Error(e)) => (
-      {
-        ...model,
-        ai: {...ai, loading: false, error: Some(e), streaming: {...ai.streaming, active: false}},
-      },
-      Tea_Cmd.none,
-    )
-
-  | AiStreamChunkReceived(json) => switch AiEngine.parseStreamChunk(json) {
-    | Ok(("TextDelta", Some(data))) => {
-        let text = switch JSON.Classify.classify(data) {
-        | String(s) => s
-        | _ => ""
-        }
-        let newStreaming = AiEngine.appendTextDelta(ai.streaming, text)
-        // Emit a neuralToken to Panel-N for real-time streaming display.
-        let tokenId = "stream-" ++ Int.toString(Array.length(model.paneN.tokens))
-        let token: neuralToken = {
-          id: tokenId,
-          content: text,
-          timestamp: Date.now(),
-          confidence: 0.95,
-          validated: false,
-          source: NeuralInference,
-          category: Observation,
-          emittedDuring: model.paneN.agency.phase,
-          causedBy: model.paneN.activeCausalChain,
-          proofHash: None,
-        }
-        (
-          {...model, ai: {...ai, streaming: newStreaming}},
-          Tea_Cmd.batch(list{
-            Tea_Cmd.call(callbacks => {
-              callbacks.enqueue(PaneN(ReceiveToken(token)))
-            }),
-          }),
-        )
-      }
-    | Ok(("ToolUseStart", Some(data))) => {
-        // Parse {id, name} from the data object.
-        let (id, name) = switch JSON.Classify.classify(data) {
-        | Object(obj) => {
-            let id = switch Dict.get(obj, "id") {
-            | Some(v) =>
-              switch JSON.Classify.classify(v) {
-              | String(s) => s
-              | _ => ""
-              }
-            | None => ""
-            }
-            let name = switch Dict.get(obj, "name") {
-            | Some(v) =>
-              switch JSON.Classify.classify(v) {
-              | String(s) => s
-              | _ => ""
-              }
-            | None => ""
-            }
-            (id, name)
-          }
-        | _ => ("", "")
-        }
-        let newStreaming = AiEngine.startToolCall(ai.streaming, id, name)
-        ({...model, ai: {...ai, streaming: newStreaming}}, Tea_Cmd.none)
-      }
-    | Ok(("ToolUseDelta", Some(data))) => {
-        let partialJson = switch JSON.Classify.classify(data) {
-        | String(s) => s
-        | _ => ""
-        }
-        let newStreaming = AiEngine.appendToolInput(ai.streaming, partialJson)
-        ({...model, ai: {...ai, streaming: newStreaming}}, Tea_Cmd.none)
-      }
-    | Ok(("ToolUseEnd", _)) => {
-        let (newStreaming, maybeCall) = AiEngine.finalizeToolCall(ai.streaming)
-        let cmd = switch maybeCall {
-        | Some(call) =>
-          // Dispatch tool call to BoJ via BojLiveCmd.
-          Tea_Cmd.call(callbacks => {
-            callbacks.enqueue(
-              Ai(
-                AiToolCallRequested({id: call.callId, name: call.callName, input: call.callInput}),
-              ),
-            )
-          })
-        | None => Tea_Cmd.none
-        }
-        ({...model, ai: {...ai, streaming: newStreaming}}, cmd)
-      }
-    | Ok(("Complete", Some(data))) => {
-        // Parse {input_tokens, output_tokens} from data.
-        let (inputTokens, outputTokens) = switch JSON.Classify.classify(data) {
-        | Object(obj) => {
-            let inp = switch Dict.get(obj, "input_tokens") {
-            | Some(v) =>
-              switch JSON.Classify.classify(v) {
-              | Number(n) => Float.toInt(n)
-              | _ => 0
-              }
-            | None => 0
-            }
-            let out = switch Dict.get(obj, "output_tokens") {
-            | Some(v) =>
-              switch JSON.Classify.classify(v) {
-              | Number(n) => Float.toInt(n)
-              | _ => 0
-              }
-            | None => 0
-            }
-            (inp, out)
-          }
-        | _ => (0, 0)
-        }
-        // Finalize: add the full response as an AiMessage to history.
-        let responseMsg: aiMessage = {
-          role: Assistant,
-          content: ai.streaming.currentText,
-          provider: Some(Anthropic),
-          model: Some("claude-opus-4-6"),
-          inputTokens,
-          outputTokens,
-          timestamp: Date.now(),
-        }
-        let newMessages = Array.concat(ai.messages, [responseMsg])
-        (
-          {
-            ...model,
-            ai: {
-              ...ai,
-              messages: newMessages,
-              loading: false,
-              error: None,
-              totalInputTokens: ai.totalInputTokens + inputTokens,
-              totalOutputTokens: ai.totalOutputTokens + outputTokens,
-              streaming: AiEngine.defaultStreamingState(),
-            },
-          },
-          Tea_Cmd.none,
-        )
-      }
-    | Ok(("Error", Some(data))) => {
-        let errorMsg = switch JSON.Classify.classify(data) {
-        | String(s) => s
-        | _ => "Unknown streaming error"
-        }
-        (
-          {
-            ...model,
-            ai: {
-              ...ai,
-              loading: false,
-              error: Some(errorMsg),
-              streaming: AiEngine.defaultStreamingState(),
-            },
-          },
-          Tea_Cmd.none,
-        )
-      }
-    | Ok(_) | Error(_) => // Unknown chunk type or parse error — ignore gracefully.
-      (model, Tea_Cmd.none)
-    }
-
-  | AiToolCallRequested({id, name, input}) => {
-      // Route the tool call through BoJ Live (MCP cartridge runtime).
-      // The cartridge name is derived from the tool name prefix (e.g. "database_query" → "database").
-      let cartridgeName = switch String.split(name, "_")[0] {
-      | Some(prefix) => prefix
-      | None => name
-      }
-      (
-        model,
-        BojLiveCmd.invokeCartridge(cartridgeName, name, input, result => Ai(
-          AiToolCallResult({toolUseId: id, result}),
-        )),
-      )
-    }
-
-  | AiToolCallResult({toolUseId, result}) => {
-      let (content, isError) = switch result {
-      | Ok(c) => (c, false)
-      | Error(e) => (e, true)
-      }
-      // Update the tool call status and add to completed results.
-      let newPendingCalls = ai.streaming.pendingToolCalls->Array.map(tc =>
-        if tc.id === toolUseId {
-          tc.status = isError ? Failed(content) : Completed(content)
-          tc
-        } else {
-          tc
-        }
-      )
-      let newCompleted = Array.concat(
-        ai.streaming.completedToolResults,
-        [({id: toolUseId, content, isError}: completedToolResult)],
-      )
-      let newStreaming = {
-        ...ai.streaming,
-        pendingToolCalls: newPendingCalls,
-        completedToolResults: newCompleted,
-      }
-      let updatedModel = {...model, ai: {...ai, streaming: newStreaming}}
-
-      // Check if all tool calls are complete — if so, continue the conversation.
-      if AiEngine.allToolCallsComplete(newStreaming) {
-        (
-          updatedModel,
-          Tea_Cmd.call(callbacks => {
-            callbacks.enqueue(Ai(AiContinueAfterToolUse))
-          }),
-        )
-      } else {
-        (updatedModel, Tea_Cmd.none)
-      }
-    }
-
-  | AiContinueAfterToolUse => {
-      // Send a new streaming request with the tool results appended.
-      let toolResultsJson =
-        ai.streaming.completedToolResults->Array.map(tr =>
-          JSON.Encode.object(
-            Dict.fromArray([
-              ("tool_use_id", JSON.Encode.string(tr.id)),
-              ("content", JSON.Encode.string(tr.content)),
-              ("is_error", JSON.Encode.bool(tr.isError)),
-            ]),
-          )
-        )
-      let selectedProvider = AiEngine.selectProvider(ai.providers)
-      let providerId = switch selectedProvider {
-      | Some(p) => Some(AiEngine.providerIdToString(p.id))
-      | None => None
-      }
-      // Reset streaming state for the continuation turn.
-      let newStreaming: streamingState = {
-        active: true,
-        currentText: "",
-        pendingToolCalls: [],
-        completedToolResults: [],
-      }
-      (
-        {...model, ai: {...ai, streaming: newStreaming}},
-        AiCmd.sendMessageStreaming(
-          "",
-          [],
-          ai.systemPrompt,
-          providerId,
-          None,
-          Some(JSON.Encode.array(toolResultsJson)),
-          result => Ai(StreamingStarted(result)),
-        ),
-      )
-    }
-  }
-}
diff --git a/src/update/UpdateAmbientOps.affine b/src/update/UpdateAmbientOps.affine
new file mode 100644
index 00000000..a699a1da
--- /dev/null
+++ b/src/update/UpdateAmbientOps.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateAmbientOps;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateAmbientOps.res b/src/update/UpdateAmbientOps.res
deleted file mode 100644
index cce948ed..00000000
--- a/src/update/UpdateAmbientOps.res
+++ /dev/null
@@ -1,31 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// AmbientOps — hospital-model sysadmin sub-updater.
-
-open Model
-open Msg
-
-let updateAmbientOps = (model: model, subMsg: ambientOpsMsg): (model, Tea_Cmd.t<msg>) => {
-  switch subMsg {
-  | SetOpsTab(tab) => (
-      {...model, ambientOps: {...model.ambientOps, activeTab: tab}},
-      Tea_Cmd.none,
-    )
-  | RunDiagnostics => (
-      {...model, ambientOps: {...model.ambientOps, scanning: true}},
-      Tea_Cmd.none,
-    )
-  | DiagnosticsComplete(result) =>
-    switch result {
-    | Ok(findings) => (
-        {...model, ambientOps: {...model.ambientOps, findings, scanning: false, error: None}},
-        Tea_Cmd.none,
-      )
-    | Error(err) => (
-        {...model, ambientOps: {...model.ambientOps, scanning: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | DismissOpsError => ({...model, ambientOps: {...model.ambientOps, error: None}}, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateAttributionLicense.affine b/src/update/UpdateAttributionLicense.affine
new file mode 100644
index 00000000..7ff8ecbd
--- /dev/null
+++ b/src/update/UpdateAttributionLicense.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateAttributionLicense;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateAttributionLicense.res b/src/update/UpdateAttributionLicense.res
deleted file mode 100644
index 594ce69c..00000000
--- a/src/update/UpdateAttributionLicense.res
+++ /dev/null
@@ -1,80 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Code MRI — Attribution-to-Licensing sub-updater (Layer 4)
-
-open Model
-open Msg
-open AttributionLicenseModel
-open AttributionLicenseMsg
-
-/// Handle attribution-to-licensing messages.
-let updateAttributionLicense = (model: model, msg: attributionLicenseMsg): (model, Tea_Cmd.t<msg>) => {
-  let al = model.attributionLicense
-  switch msg {
-  | StartLicenseScan => (
-      {...model, attributionLicense: {...al, scanning: true}},
-      Tea_Cmd.none, // Command layer dispatches the scan via Gossamer.
-    )
-  | ScanComplete(summaries) => {
-      let allIssues = summaries->Array.flatMap(s => s.issues)
-      let health = AttributionLicenseEngine.computeHealth(summaries)
-      (
-        {
-          ...model,
-          attributionLicense: {
-            ...al,
-            fileSummaries: summaries,
-            issues: allIssues,
-            health,
-            scanning: false,
-            lastScan: Some(Date.toISOString(Date.make())),
-          },
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | ResolveIssue(id) => {
-      let issues = al.issues->Array.map(i =>
-        if i.id === id {
-          {...i, resolved: true}
-        } else {
-          i
-        }
-      )
-      let summaries = al.fileSummaries->Array.map(s => {
-        let fileIssues = s.issues->Array.map(i =>
-          if i.id === id {
-            {...i, resolved: true}
-          } else {
-            i
-          }
-        )
-        {...s, issues: fileIssues}
-      })
-      let health = AttributionLicenseEngine.computeHealth(summaries)
-      (
-        {
-          ...model,
-          attributionLicense: {...al, issues, fileSummaries: summaries, health},
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | ToggleLicensePanel => (
-      {...model, attributionLicense: {...al, expanded: !al.expanded}},
-      Tea_Cmd.none,
-    )
-  | SetMinLicenseSeverity(severity) => (
-      {...model, attributionLicense: {...al, minSeverity: severity}},
-      Tea_Cmd.none,
-    )
-  | ToggleShowResolved => (
-      {...model, attributionLicense: {...al, showResolved: !al.showResolved}},
-      Tea_Cmd.none,
-    )
-  | ScanFailed(_error) => (
-      {...model, attributionLicense: {...al, scanning: false}},
-      Tea_Cmd.none,
-    )
-  }
-}
diff --git a/src/update/UpdateAutomationRouter.affine b/src/update/UpdateAutomationRouter.affine
new file mode 100644
index 00000000..3302356f
--- /dev/null
+++ b/src/update/UpdateAutomationRouter.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateAutomationRouter;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateAutomationRouter.res b/src/update/UpdateAutomationRouter.res
deleted file mode 100644
index 051d1185..00000000
--- a/src/update/UpdateAutomationRouter.res
+++ /dev/null
@@ -1,325 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// UpdateAutomationRouter.res — Automation Router (workflow orchestration) sub-updater extracted from Update.res
-
-open Model
-open Msg
-
-/// Handles all Automation Router (workflow orchestration) messages.
-let updateAutomationRouter = (model: model, msg: automationRouterMsg): (model, Tea_Cmd.t<msg>) => {
-  let ar = model.automationRouter
-  switch msg {
-  | SetRouterCategory(cat) => (
-      {...model, automationRouter: {...ar, activeCategory: cat}},
-      Tea_Cmd.none,
-    )
-  | ToggleGlobalEnabled => (
-      {...model, automationRouter: {...ar, globalEnabled: !ar.globalEnabled}},
-      Tea_Cmd.none,
-    )
-  | ToggleRule(ruleId) => {
-      let newRules = ar.rules->Array.map(r =>
-        if r.id === ruleId {
-          {...r, enabled: !r.enabled}
-        } else {
-          r
-        }
-      )
-      ({...model, automationRouter: {...ar, rules: newRules}}, Tea_Cmd.none)
-    }
-  | ExecuteRule(ruleId) => {
-      let cmd = if ar.bojRouting {
-        BojCmd.invokeCartridgeWithLatency(
-          "agent-mcp",
-          "execute_rule",
-          ruleId,
-          result => AutomationRouter(ExecutionResult(ruleId, result)),
-          (c, t, e) => RecordBojLatency(c, t, e),
-        )
-      } else {
-        AutomationRouterCmd.executeRule(ruleId, result => AutomationRouter(
-          ExecutionResult(ruleId, result),
-        ))
-      }
-      let typellCmd = TypeLLService.checkConfigTypes(
-        ruleId,
-        "automation-router",
-        result => AutomationRouter(TypeCheckResult(result)),
-      )
-      (model, Tea_Cmd.batch(list{cmd, typellCmd}))
-    }
-  | ExecutionResult(ruleId, Ok(detail)) => {
-      let now = Date.now()
-      let entry: executionLogEntry = {
-        ruleId,
-        ruleName: switch ar.rules->Array.find(r => r.id === ruleId) {
-        | Some(r) => r.name
-        | None => ruleId
-        },
-        triggeredAt: now,
-        completedAt: now,
-        success: true,
-        detail,
-      }
-      let newRules = ar.rules->Array.map(r =>
-        if r.id === ruleId {
-          {...r, firedCount: r.firedCount + 1, lastFired: Some(now), lastResult: Some(detail)}
-        } else {
-          r
-        }
-      )
-      (
-        {
-          ...model,
-          automationRouter: {
-            ...ar,
-            rules: newRules,
-            executionLog: Array.concat([entry], ar.executionLog),
-          },
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | ExecutionResult(ruleId, Error(err)) => {
-      let now = Date.now()
-      let entry: executionLogEntry = {
-        ruleId,
-        ruleName: switch ar.rules->Array.find(r => r.id === ruleId) {
-        | Some(r) => r.name
-        | None => ruleId
-        },
-        triggeredAt: now,
-        completedAt: now,
-        success: false,
-        detail: err,
-      }
-      (
-        {
-          ...model,
-          automationRouter: {
-            ...ar,
-            executionLog: Array.concat([entry], ar.executionLog),
-            error: Some(err),
-          },
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | ApproveAction(idx) => {
-      let newPending = ar.pendingActions->Array.filterWithIndex((_a, i) => i !== idx)
-      ({...model, automationRouter: {...ar, pendingActions: newPending}}, Tea_Cmd.none)
-    }
-  | RejectAction(idx) => {
-      let newPending = ar.pendingActions->Array.filterWithIndex((_a, i) => i !== idx)
-      ({...model, automationRouter: {...ar, pendingActions: newPending}}, Tea_Cmd.none)
-    }
-  | ApproveAll => ({...model, automationRouter: {...ar, pendingActions: []}}, Tea_Cmd.none)
-  | RejectAll => ({...model, automationRouter: {...ar, pendingActions: []}}, Tea_Cmd.none)
-  | LoadRules => {
-      let cmd = if ar.bojRouting {
-        BojCmd.invokeCartridgeWithLatency(
-          "agent-mcp",
-          "load_rules",
-          "",
-          result => AutomationRouter(RulesLoaded(result)),
-          (c, t, e) => RecordBojLatency(c, t, e),
-        )
-      } else {
-        AutomationRouterCmd.loadRules(result => AutomationRouter(RulesLoaded(result)))
-      }
-      ({...model, automationRouter: {...ar, loading: true}}, cmd)
-    }
-  | RulesLoaded(Ok(jsonStr)) => {
-      let parseApproval = (s: string): AutomationRouterModel.approvalMode =>
-        switch s {
-        | "require_approval" => RequireApproval
-        | "approve_once" => ApproveOnce
-        | "dry_run_first" => DryRunFirst
-        | _ => AutoFire
-        }
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let items = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let id = obj->Dict.get("id")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let name = obj->Dict.get("name")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let description =
-            obj->Dict.get("description")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let enabled =
-            obj->Dict.get("enabled")->Option.flatMap(JSON.Decode.bool)->Option.getOr(true)
-          let approvalStr =
-            obj->Dict.get("approval")->Option.flatMap(JSON.Decode.string)->Option.getOr("auto_fire")
-          let approval = parseApproval(approvalStr)
-          let priority =
-            obj->Dict.get("priority")->Option.flatMap(JSON.Decode.string)->Option.getOr("normal")
-          let firedCount =
-            obj->Dict.get("firedCount")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let lastFired = obj->Dict.get("lastFired")->Option.flatMap(JSON.Decode.float)
-          let lastResult = obj->Dict.get("lastResult")->Option.flatMap(JSON.Decode.string)
-          Some({
-            AutomationRouterModel.id,
-            name,
-            description,
-            enabled,
-            trigger: Manual,
-            conditions: [],
-            actions: [],
-            approval,
-            priority,
-            firedCount: Float.toInt(firedCount),
-            lastFired,
-            lastResult,
-          })
-        })
-        Some(items)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(rules) => (
-          {...model, automationRouter: {...ar, rules, loading: false, error: None}},
-          Tea_Cmd.none,
-        )
-      | None => ({...model, automationRouter: {...ar, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | RulesLoaded(Error(err)) => (
-      {...model, automationRouter: {...ar, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | SaveRules => {
-      let cmd = if ar.bojRouting {
-        BojCmd.invokeCartridgeWithLatency(
-          "agent-mcp",
-          "save_rules",
-          "",
-          result => AutomationRouter(RulesSaved(result)),
-          (c, t, e) => RecordBojLatency(c, t, e),
-        )
-      } else {
-        AutomationRouterCmd.saveRules("", result => AutomationRouter(RulesSaved(result)))
-      }
-      (model, cmd)
-    }
-  | RulesSaved(Ok(_)) => (model, Tea_Cmd.none)
-  | RulesSaved(Error(err)) => (
-      {...model, automationRouter: {...ar, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | LoadFromRepo => {
-      let cmd = if ar.bojRouting {
-        BojCmd.invokeCartridgeWithLatency(
-          "agent-mcp",
-          "load_from_repo",
-          ".",
-          result => AutomationRouter(RepoRulesLoaded(result)),
-          (c, t, e) => RecordBojLatency(c, t, e),
-        )
-      } else {
-        AutomationRouterCmd.loadFromRepo(".", result => AutomationRouter(RepoRulesLoaded(result)))
-      }
-      ({...model, automationRouter: {...ar, loading: true, configSource: "repo"}}, cmd)
-    }
-  | RepoRulesLoaded(Ok(jsonStr)) => {
-      // ENSAID_CONFIG.a2ml is parsed by the backend and returned as JSON array.
-      let parseApproval = (s: string): AutomationRouterModel.approvalMode =>
-        switch s {
-        | "require_approval" => RequireApproval
-        | "approve_once" => ApproveOnce
-        | "dry_run_first" => DryRunFirst
-        | _ => AutoFire
-        }
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let items = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let id = obj->Dict.get("id")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let name = obj->Dict.get("name")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let description =
-            obj->Dict.get("description")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let enabled =
-            obj->Dict.get("enabled")->Option.flatMap(JSON.Decode.bool)->Option.getOr(true)
-          let approvalStr =
-            obj->Dict.get("approval")->Option.flatMap(JSON.Decode.string)->Option.getOr("auto_fire")
-          let approval = parseApproval(approvalStr)
-          let priority =
-            obj->Dict.get("priority")->Option.flatMap(JSON.Decode.string)->Option.getOr("normal")
-          Some({
-            AutomationRouterModel.id,
-            name,
-            description,
-            enabled,
-            trigger: Manual,
-            conditions: [],
-            actions: [],
-            approval,
-            priority,
-            firedCount: 0,
-            lastFired: None,
-            lastResult: None,
-          })
-        })
-        Some(items)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(rules) => (
-          {
-            ...model,
-            automationRouter: {...ar, rules, loading: false, configSource: "repo", error: None},
-          },
-          Tea_Cmd.none,
-        )
-      | None => ({...model, automationRouter: {...ar, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | RepoRulesLoaded(Error(err)) => (
-      {
-        ...model,
-        automationRouter: {...ar, loading: false, configSource: "local", error: Some(err)},
-      },
-      Tea_Cmd.none,
-    )
-  | SetRouterFilter(text) => ({...model, automationRouter: {...ar, filterText: text}}, Tea_Cmd.none)
-  | ToggleShowDisabled => (
-      {...model, automationRouter: {...ar, showDisabled: !ar.showDisabled}},
-      Tea_Cmd.none,
-    )
-  | DismissRouterError => ({...model, automationRouter: {...ar, error: None}}, Tea_Cmd.none)
-  | ExportAutomationConfig => {
-      let humidityStr = switch model.humidity {
-      | High => "high"
-      | Medium => "medium"
-      | Low => "low"
-      }
-      let preview = EnsaidConfigEngine.generate(
-        ~repoName="(current repo)",
-        ~workspace=model.workspace,
-        ~humidity=humidityStr,
-        ~panelConfigs=model.provisioner.panelConfigs,
-        ~portfolios=model.provisioner.portfolios,
-        ~automationRules=ar.rules,
-        (),
-      )
-      ({...model, ensaidConfigPreview: Some(preview)}, Tea_Cmd.none)
-    }
-  | ToggleAutomationBojRouting => (
-      {...model, automationRouter: {...ar, bojRouting: !ar.bojRouting}},
-      Tea_Cmd.none,
-    )
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "automationrouter", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateBoj.affine b/src/update/UpdateBoj.affine
new file mode 100644
index 00000000..bf7edaa9
--- /dev/null
+++ b/src/update/UpdateBoj.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateBoj;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateBoj.res b/src/update/UpdateBoj.res
deleted file mode 100644
index 527a5016..00000000
--- a/src/update/UpdateBoj.res
+++ /dev/null
@@ -1,229 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// UpdateBoj.res — BoJ (Bundle of Joy) cartridge server sub-updater extracted from Update.res
-
-open Model
-open Msg
-
-let updateBoj = (model: model, msg: bojMsg): (model, Tea_Cmd.t<msg>) => {
-  let boj = model.boj
-  switch msg {
-  | SetBojCategory(cat) => ({...model, boj: {...boj, activeCategory: cat}}, Tea_Cmd.none)
-  | RefreshHealth => (
-      {...model, boj: {...boj, loading: true}},
-      BojCmd.health(result => Boj(HealthResult(result))),
-    )
-  | HealthResult(Ok(_)) => (
-      {...model, boj: {...boj, connected: true, loading: false, error: None}},
-      Tea_Cmd.none,
-    )
-  | HealthResult(Error(err)) => (
-      {...model, boj: {...boj, connected: false, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | RefreshCartridges => (
-      {...model, boj: {...boj, loading: true}},
-      BojCmd.listCartridges(result => Boj(CartridgesResult(result))),
-    )
-  | CartridgesResult(Ok(json)) =>
-    switch BojEngine.parseCartridges(json) {
-    | Ok(cartridges) =>
-      // Integration #5: BoJ Cartridge → K9 Yard Contracts
-      // Generate a Yard contract for the first loaded cartridge (if any) as a preview.
-      let yardContract = switch cartridges->Array.find(c => c.loaded) {
-      | Some(c) =>
-        let protoNames = c.protocols->Array.map(p => BojEngine.protocolLabel(p))
-        let gradeStr = switch c.grade {
-        | BojModel.GradeA => "A"
-        | BojModel.GradeB => "B"
-        | BojModel.GradeC => "C"
-        | BojModel.GradeD => "D"
-        }
-        Some(
-          K9Engine.generateYardContract(
-            c.name,
-            protoNames,
-            c.restPort,
-            c.grpcPort,
-            c.graphqlPort,
-            gradeStr,
-          ),
-        )
-      | None => model.k9YardContract
-      }
-      (
-        {
-          ...model,
-          boj: {...boj, cartridges, loading: false, error: None},
-          k9YardContract: yardContract,
-        },
-        Tea_Cmd.none,
-      )
-    | Error(err) => ({...model, boj: {...boj, loading: false, error: Some(err)}}, Tea_Cmd.none)
-    }
-  | CartridgesResult(Error(err)) => (
-      {...model, boj: {...boj, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | SelectCartridge(name) => {
-      let sel = if name === "" {
-        None
-      } else {
-        Some(name)
-      }
-      // Integration #4: Module Config → K9 Kennel Schema
-      // Generate a Kennel schema for the selected cartridge's config shape.
-      let kennelSchema = if name !== "" {
-        switch boj.cartridges->Array.find(c => c.name === name) {
-        | Some(c) =>
-          let protoNames = c.protocols->Array.map(p => BojEngine.protocolLabel(p))
-          let fields = K9Engine.cartridgeToKennelFields(c.name, protoNames)
-          Some(K9Engine.generateKennelSchema(c.name, fields))
-        | None => model.k9KennelSchema
-        }
-      } else {
-        model.k9KennelSchema
-      }
-      (
-        {...model, boj: {...boj, selectedCartridge: sel}, k9KennelSchema: kennelSchema},
-        Tea_Cmd.none,
-      )
-    }
-  | LoadCartridge(name) => (
-      {...model, boj: {...boj, loading: true}},
-      BojCmd.loadCartridge(name, result => Boj(CartridgeActionResult(name, result))),
-    )
-  | UnloadCartridge(name) => (
-      {...model, boj: {...boj, loading: true}},
-      BojCmd.unloadCartridge(name, result => Boj(CartridgeActionResult(name, result))),
-    )
-  | CartridgeActionResult(_name, Ok(_)) => // Refresh cartridge list after load/unload.
-    (
-      {...model, boj: {...boj, loading: false, error: None}},
-      BojCmd.listCartridges(result => Boj(CartridgesResult(result))),
-    )
-  | CartridgeActionResult(name, Error(err)) => (
-      {...model, boj: {...boj, loading: false, error: Some(`${name}: ${err}`)}},
-      Tea_Cmd.none,
-    )
-  | RefreshTopology => (
-      {...model, boj: {...boj, loading: true}},
-      BojCmd.topology(result => Boj(TopologyResult(result))),
-    )
-  | TopologyResult(Ok(json)) =>
-    // Topology diagram is rendered client-side from model state.
-    // Parse validates the server response; diagram string available for future use.
-    switch BojEngine.parseTopology(json) {
-    | Ok(_diagram) => ({...model, boj: {...boj, loading: false, error: None}}, Tea_Cmd.none)
-    | Error(err) => ({...model, boj: {...boj, loading: false, error: Some(err)}}, Tea_Cmd.none)
-    }
-  | TopologyResult(Error(err)) => (
-      {...model, boj: {...boj, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | RefreshUmoja => (
-      {...model, boj: {...boj, loading: true}},
-      BojCmd.umojaStatus(result => Boj(UmojaResult(result))),
-    )
-  | UmojaResult(Ok(json)) =>
-    switch BojEngine.parseUmojaStatus(json) {
-    | Ok(umoja) => ({...model, boj: {...boj, umoja, loading: false, error: None}}, Tea_Cmd.none)
-    | Error(err) => ({...model, boj: {...boj, loading: false, error: Some(err)}}, Tea_Cmd.none)
-    }
-  | UmojaResult(Error(err)) => (
-      {...model, boj: {...boj, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | UmojaDisconnectPeer(peerId) =>
-    let cmd = UmojaCmd.disconnectPeer(peerId, r => Boj(UmojaDisconnectPeerResult(r)))
-    (model, cmd)
-  | UmojaSyncCatalogue(peerId) =>
-    let cmd = UmojaCmd.syncCatalogue(peerId, r => Boj(UmojaSyncCatalogueResult(r)))
-    (model, cmd)
-  | UmojaPeerMetrics(peerId) =>
-    let cmd = UmojaCmd.getPeerMetrics(peerId, r => Boj(UmojaPeerMetricsResult(r)))
-    (model, cmd)
-  | UmojaAddPeerInput(value) => ({...model, boj: {...boj, umojaAddPeerInput: value}}, Tea_Cmd.none)
-  | UmojaAddPeer(address) =>
-    let cmd = UmojaCmd.addPeer(address, r => Boj(UmojaAddPeerResult(r)))
-    ({...model, boj: {...boj, umojaAddPeerInput: ""}}, cmd)
-  | UmojaTriggerGossip =>
-    let cmd = UmojaCmd.triggerGossipRound(r => Boj(UmojaTriggerGossipResult(r)))
-    (model, cmd)
-  | SetInvokeCartridge(name) => ({...model, boj: {...boj, invokeCartridge: name}}, Tea_Cmd.none)
-  | SetInvokeTool(tool) => ({...model, boj: {...boj, invokeTool: tool}}, Tea_Cmd.none)
-  | SetInvokeArgs(_argsJson) => // Store raw args JSON string — parsed on invocation.
-    (model, Tea_Cmd.none)
-  | ExecuteInvoke => {
-      let abiSpec = `{"cartridge":"${boj.invokeCartridge}","tool":"${boj.invokeTool}"}`
-      (
-        {...model, boj: {...boj, loading: true, invokeResult: None, lastTypeCheck: None}},
-        Tea_Cmd.batch(list{
-          BojCmd.invokeCartridgeWithLatency(
-            boj.invokeCartridge,
-            boj.invokeTool,
-            "{}",
-            result => Boj(InvokeResult(result)),
-            (c, t, e) => RecordBojLatency(c, t, e),
-          ),
-          TypeLLService.checkCartridgeAbi(abiSpec, result => Boj(AbiTypeCheckResult(result))),
-        }),
-      )
-    }
-  | InvokeResult(Ok(payload)) => {
-      let result: BojModel.invokeResult = {success: true, payload, durationMs: 0}
-      (
-        {...model, boj: {...boj, loading: false, invokeResult: Some(result), error: None}},
-        Tea_Cmd.none,
-      )
-    }
-  | InvokeResult(Error(err)) => {
-      let result: BojModel.invokeResult = {success: false, payload: err, durationMs: 0}
-      (
-        {...model, boj: {...boj, loading: false, invokeResult: Some(result), error: None}},
-        Tea_Cmd.none,
-      )
-    }
-  | SetBojFilter(text) => ({...model, boj: {...boj, filterText: text}}, Tea_Cmd.none)
-  | DismissBojError => ({...model, boj: {...boj, error: None}}, Tea_Cmd.none)
-  | AbiTypeCheckResult(Ok(json)) => {
-      let newTypell = {...model.typell, queriesServed: model.typell.queriesServed + 1}
-      ({...model, boj: {...boj, lastTypeCheck: Some(json)}, typell: newTypell}, Tea_Cmd.none)
-    }
-  | AbiTypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  | UmojaAddPeerResult(Ok(_)) => // Peer added successfully — refresh Umoja status.
-    (
-      {...model, boj: {...boj, umojaAddPeerInput: ""}},
-      BojCmd.umojaStatus(result => Boj(UmojaResult(result))),
-    )
-  | UmojaAddPeerResult(Error(err)) => ({...model, boj: {...boj, error: Some(err)}}, Tea_Cmd.none)
-  | UmojaDisconnectPeerResult(Ok(_)) => // Peer disconnected — refresh Umoja status.
-    (model, BojCmd.umojaStatus(result => Boj(UmojaResult(result))))
-  | UmojaDisconnectPeerResult(Error(err)) => (
-      {...model, boj: {...boj, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | UmojaTriggerGossipResult(Ok(_)) => // Gossip triggered — refresh Umoja status.
-    (model, BojCmd.umojaStatus(result => Boj(UmojaResult(result))))
-  | UmojaTriggerGossipResult(Error(err)) => (
-      {...model, boj: {...boj, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | UmojaSyncCatalogueResult(Ok(_)) => (
-      model,
-      BojCmd.umojaStatus(result => Boj(UmojaResult(result))),
-    )
-  | UmojaSyncCatalogueResult(Error(err)) => (
-      {...model, boj: {...boj, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | UmojaPeerMetricsResult(Ok(
-      _json,
-    )) => // Peer metrics received — placeholder for future display.
-    (model, Tea_Cmd.none)
-  | UmojaPeerMetricsResult(Error(err)) => (
-      {...model, boj: {...boj, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  }
-}
diff --git a/src/update/UpdateBuildDashboard.affine b/src/update/UpdateBuildDashboard.affine
new file mode 100644
index 00000000..f5409ec7
--- /dev/null
+++ b/src/update/UpdateBuildDashboard.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateBuildDashboard;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateBuildDashboard.res b/src/update/UpdateBuildDashboard.res
deleted file mode 100644
index af1f497b..00000000
--- a/src/update/UpdateBuildDashboard.res
+++ /dev/null
@@ -1,305 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// UpdateBuildDashboard.res — Build Dashboard (build monitoring) sub-updater extracted from Update.res
-
-open Model
-open Msg
-
-/// Handles all Build Dashboard (build monitoring) messages.
-let updateBuildDashboard = (model: model, msg: buildDashboardMsg): (model, Tea_Cmd.t<msg>) => {
-  let bd = model.buildDashboard
-  switch msg {
-  | SetBuildCategory(cat) => (
-      {...model, buildDashboard: {...bd, activeCategory: cat}},
-      Tea_Cmd.none,
-    )
-  | TriggerBuild(target) => {
-      let label = BuildDashboardEngine.targetLabel(target)
-      let cmd = if bd.bojRouting {
-        BojCmd.invokeCartridgeWithLatency(
-          "bsp-mcp",
-          "build",
-          label,
-          result => BuildDashboard(BuildTriggered(result)),
-          (c, t, e) => RecordBojLatency(c, t, e),
-        )
-      } else {
-        BuildDashboardCmd.triggerBuild(label, result => BuildDashboard(BuildTriggered(result)))
-      }
-      let typellCmd = TypeLLService.checkConfigTypes(
-        label,
-        "build-dashboard",
-        result => BuildDashboard(TypeCheckResult(result)),
-      )
-      ({...model, buildDashboard: {...bd, loading: true}}, Tea_Cmd.batch(list{cmd, typellCmd}))
-    }
-  | BuildTriggered(Ok(jsonStr)) => {
-      let parseTarget = (s: string): BuildDashboardModel.buildTarget =>
-        switch s {
-        | "game" => TargetGame
-        | "vm" => TargetVm
-        | "dlc" => TargetDlc
-        | "sync_server" => TargetSyncServer
-        | "shared" => TargetShared
-        | "coprocessors" => TargetCoprocessors
-        | other => TargetCustom(other)
-        }
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-        let targetStr =
-          obj->Dict.get("target")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-        let target = parseTarget(targetStr)
-        let statusStr =
-          obj->Dict.get("status")->Option.flatMap(JSON.Decode.string)->Option.getOr("running")
-        let duration =
-          obj->Dict.get("durationMs")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-        let status: BuildDashboardModel.buildStatus = switch statusStr {
-        | "success" => BuildSuccess(duration)
-        | "failed" => BuildFailed(duration)
-        | "cancelled" => BuildCancelled
-        | "idle" => BuildIdle
-        | _ => BuildRunning
-        }
-        Some((target, status))
-
-      | None => None
-      }
-      switch parsed {
-      | Some((target, status)) => {
-          let targets = bd.targets->Array.map(((t, s)) =>
-            if t === target {
-              (t, status)
-            } else {
-              (t, s)
-            }
-          )
-          ({...model, buildDashboard: {...bd, targets, loading: false, error: None}}, Tea_Cmd.none)
-        }
-      | None => ({...model, buildDashboard: {...bd, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | BuildTriggered(Error(err)) => (
-      {...model, buildDashboard: {...bd, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | RefreshBuildStatus => {
-      let cmd = if bd.bojRouting {
-        BojCmd.invokeCartridgeWithLatency(
-          "bsp-mcp",
-          "status",
-          "",
-          result => BuildDashboard(BuildStatusReceived(result)),
-          (c, t, e) => RecordBojLatency(c, t, e),
-        )
-      } else {
-        BuildDashboardCmd.readBuildStatus(result => BuildDashboard(BuildStatusReceived(result)))
-      }
-      ({...model, buildDashboard: {...bd, loading: true}}, cmd)
-    }
-  | BuildStatusReceived(Ok(jsonStr)) => {
-      let parseTarget = (s: string): BuildDashboardModel.buildTarget =>
-        switch s {
-        | "game" => TargetGame
-        | "vm" => TargetVm
-        | "dlc" => TargetDlc
-        | "sync_server" => TargetSyncServer
-        | "shared" => TargetShared
-        | "coprocessors" => TargetCoprocessors
-        | other => TargetCustom(other)
-        }
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let items = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let targetStr =
-            obj->Dict.get("target")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let target = parseTarget(targetStr)
-          let statusStr =
-            obj->Dict.get("status")->Option.flatMap(JSON.Decode.string)->Option.getOr("idle")
-          let duration =
-            obj->Dict.get("durationMs")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let status: BuildDashboardModel.buildStatus = switch statusStr {
-          | "success" => BuildSuccess(duration)
-          | "failed" => BuildFailed(duration)
-          | "cancelled" => BuildCancelled
-          | "running" => BuildRunning
-          | _ => BuildIdle
-          }
-          Some((target, status))
-        })
-        Some(items)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(targets) => (
-          {...model, buildDashboard: {...bd, targets, loading: false, error: None}},
-          Tea_Cmd.none,
-        )
-      | None => ({...model, buildDashboard: {...bd, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | BuildStatusReceived(Error(err)) => (
-      {...model, buildDashboard: {...bd, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | RunTests(target) => {
-      let label = BuildDashboardEngine.targetLabel(target)
-      let cmd = if bd.bojRouting {
-        BojCmd.invokeCartridgeWithLatency(
-          "bsp-mcp",
-          "test",
-          label,
-          result => BuildDashboard(TestsReceived(result)),
-          (c, t, e) => RecordBojLatency(c, t, e),
-        )
-      } else {
-        BuildDashboardCmd.runTests(label, result => BuildDashboard(TestsReceived(result)))
-      }
-      ({...model, buildDashboard: {...bd, loading: true}}, cmd)
-    }
-  | TestsReceived(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let items = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let name = obj->Dict.get("name")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let suite = obj->Dict.get("suite")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let passed =
-            obj->Dict.get("passed")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-          let durationMs =
-            obj->Dict.get("durationMs")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let output = obj->Dict.get("output")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          Some({
-            BuildDashboardModel.name,
-            suite,
-            passed,
-            durationMs,
-            output,
-          })
-        })
-        Some(items)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(testResults) => (
-          {...model, buildDashboard: {...bd, testResults, loading: false, error: None}},
-          Tea_Cmd.none,
-        )
-      | None => ({...model, buildDashboard: {...bd, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | TestsReceived(Error(err)) => (
-      {...model, buildDashboard: {...bd, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | CancelBuild(target) => (
-      model,
-      BuildDashboardCmd.cancelBuild(
-        BuildDashboardEngine.targetLabel(target),
-        result => BuildDashboard(BuildCancelled(result)),
-      ),
-    )
-  | BuildCancelled(Ok(_)) => (model, Tea_Cmd.none)
-  | BuildCancelled(Error(err)) => (
-      {...model, buildDashboard: {...bd, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | RefreshHistory => (
-      {...model, buildDashboard: {...bd, loading: true}},
-      BuildDashboardCmd.readHistory(result => BuildDashboard(HistoryReceived(result))),
-    )
-  | HistoryReceived(Ok(jsonStr)) => {
-      let parseTarget = (s: string): BuildDashboardModel.buildTarget =>
-        switch s {
-        | "game" => TargetGame
-        | "vm" => TargetVm
-        | "dlc" => TargetDlc
-        | "sync_server" => TargetSyncServer
-        | "shared" => TargetShared
-        | "coprocessors" => TargetCoprocessors
-        | other => TargetCustom(other)
-        }
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let items = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let id = obj->Dict.get("id")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let targetStr =
-            obj->Dict.get("target")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let target = parseTarget(targetStr)
-          let statusStr =
-            obj->Dict.get("status")->Option.flatMap(JSON.Decode.string)->Option.getOr("idle")
-          let durationMs =
-            obj->Dict.get("durationMs")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let status: BuildDashboardModel.buildStatus = switch statusStr {
-          | "success" => BuildSuccess(durationMs)
-          | "failed" => BuildFailed(durationMs)
-          | "cancelled" => BuildCancelled
-          | "running" => BuildRunning
-          | _ => BuildIdle
-          }
-          let startedAt =
-            obj->Dict.get("startedAt")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let errorCount =
-            obj->Dict.get("errorCount")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let warningCount =
-            obj->Dict.get("warningCount")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          Some({
-            BuildDashboardModel.id,
-            target,
-            status,
-            startedAt,
-            durationMs,
-            errorCount: Float.toInt(errorCount),
-            warningCount: Float.toInt(warningCount),
-          })
-        })
-        Some(items)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(history) => (
-          {...model, buildDashboard: {...bd, history, loading: false, error: None}},
-          Tea_Cmd.none,
-        )
-      | None => ({...model, buildDashboard: {...bd, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | HistoryReceived(Error(err)) => (
-      {...model, buildDashboard: {...bd, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | ToggleWatchMode => ({...model, buildDashboard: {...bd, watchMode: !bd.watchMode}}, Tea_Cmd.none)
-  | ToggleAutoRebuild => (
-      {...model, buildDashboard: {...bd, autoRebuild: !bd.autoRebuild}},
-      Tea_Cmd.none,
-    )
-  | ToggleShowPassed => (
-      {...model, buildDashboard: {...bd, showPassedTests: !bd.showPassedTests}},
-      Tea_Cmd.none,
-    )
-  | DismissBuildError => ({...model, buildDashboard: {...bd, error: None}}, Tea_Cmd.none)
-  | ToggleBuildBojRouting => (
-      {...model, buildDashboard: {...bd, bojRouting: !bd.bojRouting}},
-      Tea_Cmd.none,
-    )
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "builddashboard", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateBus.affine b/src/update/UpdateBus.affine
new file mode 100644
index 00000000..31e2d8d3
--- /dev/null
+++ b/src/update/UpdateBus.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateBus;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateBus.res b/src/update/UpdateBus.res
deleted file mode 100644
index bcaf1329..00000000
--- a/src/update/UpdateBus.res
+++ /dev/null
@@ -1,21 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Bus — cross-panel messaging sub-updater.
-
-open Model
-open Msg
-open PanelBusMsg
-
-let updateBus = (model: model, busMsg: panelBusMsg): (model, Tea_Cmd.t<msg>) => {
-  switch busMsg {
-  | BusSubscribe(cladeId, topics) =>
-    let busRegistry = PanelBus.subscribe(model.busRegistry, cladeId, topics)
-    ({...model, busRegistry}, Tea_Cmd.none)
-  | BusUnsubscribe(cladeId) =>
-    let busRegistry = PanelBus.unsubscribe(model.busRegistry, cladeId)
-    ({...model, busRegistry}, Tea_Cmd.none)
-  | BusClearHistory =>
-    let busRegistry = {...model.busRegistry, recentEvents: [], nextEventId: 1}
-    ({...model, busRegistry}, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateCapture.affine b/src/update/UpdateCapture.affine
new file mode 100644
index 00000000..67f93dc0
--- /dev/null
+++ b/src/update/UpdateCapture.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateCapture;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateCapture.res b/src/update/UpdateCapture.res
deleted file mode 100644
index b52cbb9b..00000000
--- a/src/update/UpdateCapture.res
+++ /dev/null
@@ -1,206 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Sub-updater for Capture — screenshots, recordings, demos, cloning, comparison.
-
-open Model
-open Msg
-
-let updateCapture = (model: model, msg: captureMsg): (model, Tea_Cmd.t<msg>) => {
-  let cap = model.capture
-  switch msg {
-  | CaptureScreenshot(panelId) => {
-      // Invoke html2canvas capture via JS interop, then save the result through Gossamer.
-      let captureId = "cap-" ++ Float.toString(Date.now())
-      let format = "png"
-      // The actual html2canvas call happens in JS; here we wire the save command
-      // with a placeholder base64 string that the frontend JS bridge will populate.
-      (
-        model,
-        Tea_Cmd.batch(list{
-          CaptureCmd.saveScreenshot(captureId, panelId, "", format),
-          TypeLLService.checkConfigTypes(panelId, "capture", result => Capture(
-            TypeCheckResult(result),
-          )),
-        }),
-      )
-    }
-  | ScreenshotSaved(result) =>
-    switch result {
-    | Ok(jsonStr) => {
-        let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-        | Some(json) =>
-          let o = json->JSON.Decode.object->Option.getOr(Dict.make())
-          let gs = (d, k) => d->Dict.get(k)->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let fmt = switch gs(o, "format") {
-          | "pdf" => Pdf
-          | "svg" => Svg
-          | _ => Png
-          }
-          Some(
-            (
-              {
-                id: gs(o, "id"),
-                panelId: gs(o, "panelId"),
-                label: gs(o, "panelId") ++ " capture",
-                filePath: gs(o, "filePath"),
-                format: fmt,
-                timestamp: Date.now(),
-                width: 0,
-                height: 0,
-                isRecording: false,
-                durationSeconds: 0.0,
-              }: captureEntry
-            ),
-          )
-
-        | None => None
-        }
-        switch parsed {
-        | Some(entry) => (
-            {...model, capture: {...cap, captures: Array.concat(cap.captures, [entry])}},
-            Tea_Cmd.none,
-          )
-        | None => (model, Tea_Cmd.none)
-        }
-      }
-    | Error(_) => (model, Tea_Cmd.none)
-    }
-  | StartRecording(panelId) => (
-      {...model, capture: CaptureEngine.startRecording(cap, panelId, 0.0)},
-      Tea_Cmd.none,
-    )
-  | StopRecording => ({...model, capture: CaptureEngine.stopRecording(cap)}, Tea_Cmd.none)
-  | TogglePauseRecording => (
-      {
-        ...model,
-        capture: switch cap.recording {
-        | Recording(_, _) => CaptureEngine.pauseRecording(cap, 0.0)
-        | Paused(_, _) => CaptureEngine.resumeRecording(cap, 0.0)
-        | NotRecording => cap
-        },
-      },
-      Tea_Cmd.none,
-    )
-  | PrintPanel(panelId) => (model, CaptureCmd.printPanel(panelId))
-  | PrintResult(_result) => (model, Tea_Cmd.none)
-  | ToggleCaptureSelection(panelId) => (
-      {...model, capture: CaptureEngine.toggleCaptureSelection(cap, panelId)},
-      Tea_Cmd.none,
-    )
-  | ClearCaptureSelection => ({...model, capture: CaptureEngine.clearSelection(cap)}, Tea_Cmd.none)
-  | CaptureSelected => {
-      // Capture all selected panels as a composite screenshot.
-      // Triggers individual captures for each selected panel; composite assembly happens in the backend.
-      let captureId = "composite-" ++ Float.toString(Date.now())
-      let panelsJson = cap.selectedForCapture->Array.map(p => `"${p}"`)->Array.join(",")
-      (model, CaptureCmd.saveScreenshot(captureId, "[" ++ panelsJson ++ "]", "", "png"))
-    }
-  | CaptureFullEnvironment => {
-      // Capture the entire PanLL window as a single screenshot.
-      let captureId = "full-env-" ++ Float.toString(Date.now())
-      (
-        {...model, capture: {...cap, fullEnvironmentCapture: true}},
-        CaptureCmd.saveScreenshot(captureId, "__full_environment__", "", "png"),
-      )
-    }
-  | ToggleCaptureBar => (
-      {...model, capture: {...cap, captureBarVisible: !cap.captureBarVisible}},
-      Tea_Cmd.none,
-    )
-  | ClonePanel(panelId) => {
-      // Snapshot the panel's current state and create a panelClone entry.
-      let cloneId = "clone-" ++ Float.toString(Date.now())
-      let clone: CaptureModel.panelClone = {
-        id: cloneId,
-        sourcePanelId: panelId,
-        label: panelId ++ " (Clone)",
-        stateSnapshot: "", // State serialisation deferred to JS interop layer.
-        created: Date.now(),
-      }
-      ({...model, capture: {...cap, clones: Array.concat(cap.clones, [clone])}}, Tea_Cmd.none)
-    }
-  | RemoveClone(cloneId) => (
-      {...model, capture: CaptureEngine.removeClone(cap, cloneId)},
-      Tea_Cmd.none,
-    )
-  | SetComparison(mode) => ({...model, capture: {...cap, comparison: mode}}, Tea_Cmd.none)
-  | ExitComparison => ({...model, capture: CaptureEngine.exitComparison(cap)}, Tea_Cmd.none)
-  | StartDemo(demoId) => ({...model, capture: CaptureEngine.startDemo(cap, demoId)}, Tea_Cmd.none)
-  | StopDemo => ({...model, capture: CaptureEngine.stopDemo(cap)}, Tea_Cmd.none)
-  | NextDemoStep => ({...model, capture: CaptureEngine.nextDemoStep(cap)}, Tea_Cmd.none)
-  | PrevDemoStep => ({...model, capture: CaptureEngine.prevDemoStep(cap)}, Tea_Cmd.none)
-  | SaveDemo => {
-      // Serialise the active demo and persist via Gossamer.
-      let demoJson = switch cap.activeDemo {
-      | Some(demoId) =>
-        switch cap.demos->Array.find(d => d.id === demoId) {
-        | Some(demo) =>
-          `{"id":"${demo.id}","title":"${demo.title}","author":"${demo.author}","description":"${demo.description}","panelId":"${demo.panelId}","steps":[],"created":${Float.toString(
-              demo.created,
-            )}}`
-        | None => "{}"
-        }
-      | None => "{}"
-      }
-      (model, CaptureCmd.saveDemo(demoJson))
-    }
-  | DemoSaved(_result) => (model, Tea_Cmd.none)
-  | LoadDemos => (model, CaptureCmd.loadDemos())
-  | DemosLoaded(result) =>
-    switch result {
-    | Ok(jsonStr) => {
-        let demos = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-        | Some(json) =>
-          json
-          ->JSON.Decode.array
-          ->Option.getOr([])
-          ->Array.filterMap(item => {
-            let o = item->JSON.Decode.object->Option.getOr(Dict.make())
-            let gs = (d, k) => d->Dict.get(k)->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-            let gf = (d, k) => d->Dict.get(k)->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-            let id = gs(o, "id")
-            if id !== "" {
-              Some(
-                (
-                  {
-                    id,
-                    title: gs(o, "title"),
-                    author: gs(o, "author"),
-                    description: gs(o, "description"),
-                    panelId: gs(o, "panelId"),
-                    steps: [],
-                    created: gf(o, "created"),
-                    filePath: o->Dict.get("filePath")->Option.flatMap(JSON.Decode.string),
-                  }: demoPackage
-                ),
-              )
-            } else {
-              None
-            }
-          })
-
-        | None => []
-        }
-        ({...model, capture: {...cap, demos}}, Tea_Cmd.none)
-      }
-    | Error(_) => (model, Tea_Cmd.none)
-    }
-  | SetCaptureCategory(cat) => ({...model, capture: {...cap, activeCategory: cat}}, Tea_Cmd.none)
-  | RemoveCapture(captureId) => (
-      {...model, capture: CaptureEngine.removeCapture(cap, captureId)},
-      Tea_Cmd.none,
-    )
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "capture", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateCladeBrowser.affine b/src/update/UpdateCladeBrowser.affine
new file mode 100644
index 00000000..5f08d32f
--- /dev/null
+++ b/src/update/UpdateCladeBrowser.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateCladeBrowser;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateCladeBrowser.res b/src/update/UpdateCladeBrowser.res
deleted file mode 100644
index db84d690..00000000
--- a/src/update/UpdateCladeBrowser.res
+++ /dev/null
@@ -1,96 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// UpdateCladeBrowser.res — Clade Browser sub-updater extracted from Update.res
-
-open Model
-open Msg
-
-let updateCladeBrowser = (model: model, msg: cladeBrowserMsg): (model, Tea_Cmd.t<msg>) => {
-  let cb = model.cladeBrowser
-  switch msg {
-  | SetCladeCategory(cat) => ({...model, cladeBrowser: {...cb, category: cat}}, Tea_Cmd.none)
-  | SelectClade(id) => ({...model, cladeBrowser: {...cb, selectedClade: id}}, Tea_Cmd.none)
-  | SetKindFilter(kind) => ({...model, cladeBrowser: {...cb, kindFilter: kind}}, Tea_Cmd.none)
-  | UpdateCladeSearch(query) => (
-      {...model, cladeBrowser: {...cb, searchQuery: query}},
-      Tea_Cmd.none,
-    )
-  | LoadClades => (
-      {...model, cladeBrowser: {...cb, loading: true}},
-      Tea_Cmd.batch(list{
-        CladeCmd.scanCladeFiles(result => CladeBrowser(
-          CladesLoaded(
-            switch result {
-            | Ok(jsonStr) => {
-                let loaded = CladeLoader.fromScanResult(jsonStr)
-                let merged = CladeLoader.mergeWithBuiltins(
-                  loaded,
-                  CladeBrowserEngine.builtinCladesBase,
-                )
-                merged->Array.map(CladeBrowserEngine.enrichClade)
-              }
-            | Error(_) => CladeBrowserEngine.builtinClades
-            },
-          ),
-        )),
-        TypeLLService.checkMetadataTypes("clade-scan", "clade-browser", result => CladeBrowser(
-          TypeCheckResult(result),
-        )),
-      }),
-    )
-  | CladesLoaded(clades) => (
-      {...model, cladeBrowser: {...cb, clades, loading: false, error: None}},
-      Tea_Cmd.none,
-    )
-  | SetCladePermission(targetCladeId, perm) => {
-      let newRules = CladeBrowserEngine.setPermission(cb.permissionRules, targetCladeId, perm)
-      // Integration #7: Clade Permissions → K9 Hunt check
-      // When setting permissions, verify Hunt-level K9 execution is permitted
-      // based on clade isolation and signing status.
-      let updatedModel = switch cb.clades->Array.find(c => c.id === targetCladeId) {
-      | Some(clade) =>
-        let isolationStr = switch clade.isolation {
-        | CladeBrowserModel.IsolationNone => "none"
-        | CladeBrowserModel.IsolationSoft => "soft"
-        | CladeBrowserModel.IsolationProcess => "process"
-        | CladeBrowserModel.IsolationContainer => "container|hunt|full"
-        }
-        let signingOk = switch clade.signing {
-        | CladeBrowserModel.SigningVerified(_) => true
-        | _ => false
-        }
-        // Check if there's a loaded K9 contractile to verify Hunt permission against
-        let _huntCheck = switch model.lastK9Contractile {
-        | Some(contractile) =>
-          if contractile.securityLevel == K9Engine.Hunt {
-            let (_allowed, _reason) = K9Engine.checkHuntPermission(
-              isolationStr,
-              signingOk,
-              K9Engine.summariseContractile(contractile),
-            )
-            // Hunt permission check result is logged but not blocking (informational)
-          }
-        | None => ()
-        }
-        {...model, cladeBrowser: {...cb, permissionRules: newRules}}
-      | None => {...model, cladeBrowser: {...cb, permissionRules: newRules}}
-      }
-      (updatedModel, Tea_Cmd.none)
-    }
-  | RemoveCladePermission(targetCladeId) => {
-      let newRules = CladeBrowserEngine.removePermission(cb.permissionRules, targetCladeId)
-      ({...model, cladeBrowser: {...cb, permissionRules: newRules}}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "cladebrowser", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateCloudGuard.affine b/src/update/UpdateCloudGuard.affine
new file mode 100644
index 00000000..167fa27e
--- /dev/null
+++ b/src/update/UpdateCloudGuard.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateCloudGuard;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateCloudGuard.res b/src/update/UpdateCloudGuard.res
deleted file mode 100644
index 17ec498f..00000000
--- a/src/update/UpdateCloudGuard.res
+++ /dev/null
@@ -1,511 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-/// Handles all CloudGuard (Cloudflare domain security management) messages.
-/// Connection lifecycle, zone listing, settings read/write, DNS records,
-/// DNSSEC, hardening operations, audit, and UI state toggling.
-let updateCloudGuard = (model: model, msg: cloudguardMsg): (model, Tea_Cmd.t<msg>) => {
-  let cg = model.cloudguard
-  switch msg {
-  // -- Connection lifecycle --
-  | VerifyToken => (
-      {...model, cloudguard: {...cg, connection: Connecting, loading: true}},
-      CloudGuardCmd.verifyToken(result => CloudGuard(TokenVerified(result))),
-    )
-  | TokenVerified(result) =>
-    switch result {
-    | Ok(json) => (
-        {...model, cloudguard: {...cg, connection: Connected(json), loading: false, error: None}},
-        // Auto-fetch zones after successful connection
-        CloudGuardCmd.listZones(result => CloudGuard(ZonesLoaded(result))),
-      )
-    | Error(err) => (
-        {
-          ...model,
-          cloudguard: {...cg, connection: ConnectionError(err), loading: false, error: Some(err)},
-        },
-        Tea_Cmd.none,
-      )
-    }
-
-  // -- Zone listing --
-  | FetchZones => (
-      {...model, cloudguard: {...cg, loading: true}},
-      CloudGuardCmd.listZones(result => CloudGuard(ZonesLoaded(result))),
-    )
-  | ZonesLoaded(result) =>
-    switch result {
-    | Ok(json) => {
-        let zones = CloudGuardEngine.parseZonesJson(json)
-        let sorted = CloudGuardEngine.sortZonesByName(zones)
-        ({...model, cloudguard: {...cg, zones: sorted, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    | Error(err) => (
-        {...model, cloudguard: {...cg, loading: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-
-  // -- Zone selection (multi-select domain ribbon) --
-  | ToggleZoneSelection(zoneId) => {
-      let wasSelected = Array.includes(cg.selectedZoneIds, zoneId)
-      let newSelected = if wasSelected {
-        cg.selectedZoneIds->Array.filter(id => id !== zoneId)
-      } else {
-        Array.concat(cg.selectedZoneIds, [zoneId])
-      }
-      // When selecting a single zone (and it wasn't already selected), auto-fetch its settings + DNS
-      let cmd = if !wasSelected && Array.length(newSelected) === 1 {
-        Tea_Cmd.batch(list{
-          CloudGuardCmd.getSettings(zoneId, result => CloudGuard(SettingsLoaded(result))),
-          CloudGuardCmd.listDnsRecords(zoneId, result => CloudGuard(DnsRecordsLoaded(result))),
-        })
-      } else {
-        Tea_Cmd.none
-      }
-      ({...model, cloudguard: {...cg, selectedZoneIds: newSelected}}, cmd)
-    }
-  | SelectAllZones => {
-      let allIds = cg.zones->Array.map(z => z.id)
-      ({...model, cloudguard: {...cg, selectedZoneIds: allIds}}, Tea_Cmd.none)
-    }
-  | DeselectAllZones => ({...model, cloudguard: {...cg, selectedZoneIds: []}}, Tea_Cmd.none)
-
-  // -- Settings read/write --
-  | FetchSettings(zoneId) => (
-      {...model, cloudguard: {...cg, loading: true}},
-      CloudGuardCmd.getSettings(zoneId, result => CloudGuard(SettingsLoaded(result))),
-    )
-  | SettingsLoaded(result) =>
-    switch result {
-    | Ok(json) => {
-        let settings = CloudGuardEngine.parseSettingsJson(json)
-        ({...model, cloudguard: {...cg, settings, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    | Error(err) => (
-        {...model, cloudguard: {...cg, loading: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | ToggleSetting(settingId) => {
-      let newSettings = cg.settings->Array.map(s => {
-        if s.id === settingId {
-          let newValue = switch s.value {
-          | StringValue("on") => StringValue("off")
-          | StringValue("off") => StringValue("on")
-          | BoolValue(b) => BoolValue(!b)
-          | other => other
-          }
-          {...s, value: newValue, modified: true}
-        } else {
-          s
-        }
-      })
-      ({...model, cloudguard: {...cg, settings: newSettings}}, Tea_Cmd.none)
-    }
-  | UpdateSettingValue(settingId, value) => {
-      let newSettings = cg.settings->Array.map(s => {
-        if s.id === settingId {
-          {...s, value: StringValue(value), modified: true}
-        } else {
-          s
-        }
-      })
-      ({...model, cloudguard: {...cg, settings: newSettings}}, Tea_Cmd.none)
-    }
-  | PushChanges => {
-      let modifiedCount = cg.settings->Array.filter(s => s.modified)->Array.length
-      if modifiedCount === 0 {
-        (model, Tea_Cmd.none)
-      } else {
-        // Get the first selected zone to push to
-        switch cg.selectedZoneIds[0] {
-        | Some(zoneId) => {
-            let settingsJson = CloudGuardEngine.serialiseModifiedSettings(cg.settings)
-            let typellCmd = TypeLLService.checkConfigTypes(
-              settingsJson,
-              "cloudguard",
-              result => CloudGuard(TypeCheckResult(result)),
-            )
-            (
-              {...model, cloudguard: {...cg, loading: true}},
-              Tea_Cmd.batch(list{
-                CloudGuardCmd.updateSettingsBatch(zoneId, settingsJson, result => CloudGuard(
-                  ChangesPushed(result),
-                )),
-                typellCmd,
-              }),
-            )
-          }
-        | None => (model, Tea_Cmd.none)
-        }
-      }
-    }
-  | ChangesPushed(result) =>
-    switch result {
-    | Ok(_json) => {
-        // Clear modified flags on all settings after successful push
-        let clearedSettings = cg.settings->Array.map(s => {...s, modified: false})
-        (
-          {...model, cloudguard: {...cg, settings: clearedSettings, loading: false, error: None}},
-          Tea_Cmd.none,
-        )
-      }
-    | Error(err) => (
-        {...model, cloudguard: {...cg, loading: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-
-  // -- DNS records --
-  | FetchDnsRecords(zoneId) => (
-      {...model, cloudguard: {...cg, loading: true}},
-      CloudGuardCmd.listDnsRecords(zoneId, result => CloudGuard(DnsRecordsLoaded(result))),
-    )
-  | DnsRecordsLoaded(result) =>
-    switch result {
-    | Ok(json) => {
-        let records = CloudGuardEngine.parseDnsRecordsJson(json)
-        (
-          {...model, cloudguard: {...cg, dnsRecords: records, loading: false, error: None}},
-          Tea_Cmd.none,
-        )
-      }
-    | Error(err) => (
-        {...model, cloudguard: {...cg, loading: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | DeleteDnsRecord(zoneId, recordId) => (
-      {...model, cloudguard: {...cg, loading: true}},
-      CloudGuardCmd.deleteDnsRecord(zoneId, recordId, result => CloudGuard(
-        DnsRecordDeleted(result),
-      )),
-    )
-  | DnsRecordDeleted(result) =>
-    switch result {
-    | Ok(_json) =>
-      // Re-fetch DNS records for the first selected zone to update the list
-      let refetchCmd = switch cg.selectedZoneIds[0] {
-      | Some(zoneId) =>
-        CloudGuardCmd.listDnsRecords(zoneId, result => CloudGuard(DnsRecordsLoaded(result)))
-      | None => Tea_Cmd.none
-      }
-      ({...model, cloudguard: {...cg, loading: false}}, refetchCmd)
-    | Error(err) => (
-        {...model, cloudguard: {...cg, loading: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | CreateDnsRecord(zoneId, recordType, name, content, ttl, proxied, priority) => (
-      {...model, cloudguard: {...cg, loading: true}},
-      CloudGuardCmd.createDnsRecord(
-        zoneId,
-        recordType,
-        name,
-        content,
-        ttl,
-        proxied,
-        priority,
-        None,
-        result => CloudGuard(DnsRecordCreated(result)),
-      ),
-    )
-  | DnsRecordCreated(result) =>
-    switch result {
-    | Ok(_json) =>
-      // Re-fetch DNS records to show the newly created record
-      let refetchCmd = switch cg.selectedZoneIds[0] {
-      | Some(zoneId) =>
-        CloudGuardCmd.listDnsRecords(zoneId, result => CloudGuard(DnsRecordsLoaded(result)))
-      | None => Tea_Cmd.none
-      }
-      ({...model, cloudguard: {...cg, loading: false}}, refetchCmd)
-    | Error(err) => (
-        {...model, cloudguard: {...cg, loading: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | StartEditingDnsRecord(recordId) => (
-      {...model, cloudguard: {...cg, dnsEditingId: Some(recordId)}},
-      Tea_Cmd.none,
-    )
-  | CancelEditingDnsRecord => ({...model, cloudguard: {...cg, dnsEditingId: None}}, Tea_Cmd.none)
-  | ApplySecurityTemplate(
-      template,
-    ) => // Apply a DNS security template (SPF, DMARC, DKIM revoke, CAA, TLSRPT)
-    // Requires a selected zone to know the domain name
-    switch cg.selectedZoneIds[0] {
-    | None => ({...model, cloudguard: {...cg, error: Some("No zone selected")}}, Tea_Cmd.none)
-    | Some(zoneId) =>
-      let zoneName = switch cg.zones->Array.find(z => z.id === zoneId) {
-      | Some(z) => z.name
-      | None => "example.com"
-      }
-      let cmd = switch template {
-      | "spf" =>
-        CloudGuardCmd.createDnsRecord(
-          zoneId,
-          "TXT",
-          zoneName,
-          "v=spf1 -all",
-          1,
-          None,
-          None,
-          Some("CloudGuard: SPF deny-all (no mail)"),
-          result => CloudGuard(DnsRecordCreated(result)),
-        )
-      | "dmarc" =>
-        CloudGuardCmd.createDnsRecord(
-          zoneId,
-          "TXT",
-          `_dmarc.${zoneName}`,
-          "v=DMARC1; p=reject; sp=reject; adkim=s; aspf=s; pct=100; fo=1",
-          1,
-          None,
-          None,
-          Some("CloudGuard: DMARC reject policy"),
-          result => CloudGuard(DnsRecordCreated(result)),
-        )
-      | "dkim_revoke" =>
-        CloudGuardCmd.createDnsRecord(
-          zoneId,
-          "TXT",
-          `*._domainkey.${zoneName}`,
-          "v=DKIM1; p=",
-          1,
-          None,
-          None,
-          Some("CloudGuard: DKIM key revocation"),
-          result => CloudGuard(DnsRecordCreated(result)),
-        )
-      | "caa" =>
-        CloudGuardCmd.createDnsRecord(
-          zoneId,
-          "CAA",
-          zoneName,
-          "0 issue \"letsencrypt.org\"",
-          1,
-          None,
-          None,
-          Some("CloudGuard: CAA restrict to Let's Encrypt"),
-          result => CloudGuard(DnsRecordCreated(result)),
-        )
-      | "tlsrpt" =>
-        CloudGuardCmd.createDnsRecord(
-          zoneId,
-          "TXT",
-          `_smtp._tls.${zoneName}`,
-          "v=TLSRPTv1; rua=mailto:tlsrpt@${zoneName}",
-          1,
-          None,
-          None,
-          Some("CloudGuard: TLS-RPT reporting"),
-          result => CloudGuard(DnsRecordCreated(result)),
-        )
-      | _ => Tea_Cmd.none
-      }
-      ({...model, cloudguard: {...cg, loading: true}}, cmd)
-    }
-
-  // -- DNSSEC --
-  | FetchDnssec(zoneId) => (
-      {...model, cloudguard: {...cg, loading: true}},
-      CloudGuardCmd.getDnssec(zoneId, result => CloudGuard(DnssecLoaded(result))),
-    )
-  | DnssecLoaded(result) =>
-    switch result {
-    | Ok(_json) => ({...model, cloudguard: {...cg, loading: false}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, cloudguard: {...cg, loading: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | EnableDnssec(zoneId) => (
-      {...model, cloudguard: {...cg, loading: true}},
-      CloudGuardCmd.enableDnssec(zoneId, result => CloudGuard(DnssecEnabled(result))),
-    )
-  | DnssecEnabled(result) =>
-    switch result {
-    | Ok(_json) => ({...model, cloudguard: {...cg, loading: false}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, cloudguard: {...cg, loading: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-
-  // -- Hardening --
-  | HardenSelected => // Harden first selected zone; subsequent zones handled by ZoneHardened
-    switch cg.selectedZoneIds[0] {
-    | Some(firstZone) => (
-        {
-          ...model,
-          cloudguard: {
-            ...cg,
-            loading: true,
-            bulkProgress: Some({
-              total: Array.length(cg.selectedZoneIds),
-              completed: 0,
-              failed: 0,
-              currentDomain: cg.zones->Array.find(z => z.id === firstZone)->Option.map(z => z.name),
-              startedAt: "",
-              errors: [],
-            }),
-          },
-        },
-        CloudGuardCmd.hardenZone(firstZone, result => CloudGuard(ZoneHardened(result))),
-      )
-    | None => (model, Tea_Cmd.none)
-    }
-  | HardenSetting(_settingId) =>
-    // Single setting fix — delegates to zone hardening for the first selected zone
-    switch cg.selectedZoneIds[0] {
-    | Some(zoneId) => (
-        {...model, cloudguard: {...cg, loading: true}},
-        CloudGuardCmd.hardenZone(zoneId, result => CloudGuard(ZoneHardened(result))),
-      )
-    | None => (model, Tea_Cmd.none)
-    }
-  | HardenZone(zoneId) => (
-      {...model, cloudguard: {...cg, loading: true}},
-      CloudGuardCmd.hardenZone(zoneId, result => CloudGuard(ZoneHardened(result))),
-    )
-  | ZoneHardened(result) => {
-      let progress = switch cg.bulkProgress {
-      | Some(p) =>
-        switch result {
-        | Ok(_) => Some({...p, completed: p.completed + 1})
-        | Error(err) =>
-          Some({
-            ...p,
-            completed: p.completed + 1,
-            failed: p.failed + 1,
-            errors: Array.concat(p.errors, [("unknown", err)]),
-          })
-        }
-      | None => None
-      }
-      // Check if there are more zones to harden
-      let nextIndex = switch progress {
-      | Some(p) => p.completed
-      | None => 0
-      }
-      let cmd = if nextIndex < Array.length(cg.selectedZoneIds) {
-        switch cg.selectedZoneIds[nextIndex] {
-        | Some(nextZone) =>
-          CloudGuardCmd.hardenZone(nextZone, result => CloudGuard(ZoneHardened(result)))
-        | None => Tea_Cmd.none
-        }
-      } else {
-        Tea_Cmd.none // All done
-      }
-      let isDone = nextIndex >= Array.length(cg.selectedZoneIds)
-      ({...model, cloudguard: {...cg, bulkProgress: progress, loading: !isDone}}, cmd)
-    }
-
-  // -- Audit --
-  | RunAudit => {
-      // Run the audit locally against the loaded settings using CloudGuardPolicy.
-      // The audit is pure computation — no API calls needed.
-      let currentDomain = switch cg.selectedZoneIds[0] {
-      | Some(zoneId) =>
-        switch cg.zones->Array.find(z => z.id === zoneId) {
-        | Some(zone) => zone.name
-        | None => "unknown"
-        }
-      | None => "unknown"
-      }
-      let auditResult = CloudGuardPolicy.auditSettings(currentDomain, cg.settings)
-      (
-        {
-          ...model,
-          cloudguard: {
-            ...cg,
-            showAudit: true,
-            auditResult: Some(auditResult),
-            constraints: CloudGuardPolicy.defaultConstraints,
-          },
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | AuditComplete(result) =>
-    switch result {
-    | Ok(_json) => ({...model, cloudguard: {...cg, loading: false}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, cloudguard: {...cg, loading: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-
-  // -- Offline config --
-  | DownloadConfig => {
-      // Download offline config for the first selected zone
-      let cmd = switch cg.selectedZoneIds[0] {
-      | Some(zoneId) =>
-        CloudGuardCmd.downloadConfig(zoneId, result => CloudGuard(ConfigDownloaded(result)))
-      | None => Tea_Cmd.none
-      }
-      ({...model, cloudguard: {...cg, loading: true}}, cmd)
-    }
-  | ConfigDownloaded(result) =>
-    switch result {
-    | Ok(_json) => ({...model, cloudguard: {...cg, loading: false}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, cloudguard: {...cg, loading: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-
-  // -- Per-domain exceptions --
-  | AddException(domain, settingId, overrideValue, reason) => {
-      let newException: domainException = {
-        domain,
-        settingId,
-        overrideValue,
-        reason,
-        addedOn: Date.make()->Date.toISOString,
-      }
-      // Remove any existing exception for the same domain+setting, then add new
-      let filtered =
-        cg.exceptions->Array.filter(e => !(e.domain === domain && e.settingId === settingId))
-      let exceptions = Array.concat(filtered, [newException])
-      ({...model, cloudguard: {...cg, exceptions}}, Tea_Cmd.none)
-    }
-  | RemoveException(domain, settingId) => {
-      let exceptions =
-        cg.exceptions->Array.filter(e => !(e.domain === domain && e.settingId === settingId))
-      ({...model, cloudguard: {...cg, exceptions}}, Tea_Cmd.none)
-    }
-
-  // -- UI state --
-  | ToggleCloudGuard => {
-      let newVisible = !cg.visible
-      let cmd = if newVisible && cg.connection === Disconnected {
-        // Auto-connect when opening the panel
-        CloudGuardCmd.verifyToken(result => CloudGuard(TokenVerified(result)))
-      } else {
-        Tea_Cmd.none
-      }
-      ({...model, cloudguard: {...cg, visible: newVisible}}, cmd)
-    }
-  | SetCategory(cat) => ({...model, cloudguard: {...cg, activeCategory: cat}}, Tea_Cmd.none)
-  | SetFilterText(text) => ({...model, cloudguard: {...cg, filterText: text}}, Tea_Cmd.none)
-  | SetSettingFilter(text) => ({...model, cloudguard: {...cg, settingFilter: text}}, Tea_Cmd.none)
-  | ToggleAuditPanel => ({...model, cloudguard: {...cg, showAudit: !cg.showAudit}}, Tea_Cmd.none)
-  | ToggleDiffPanel => ({...model, cloudguard: {...cg, showDiff: !cg.showDiff}}, Tea_Cmd.none)
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "cloudguard", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateCoprocessors.affine b/src/update/UpdateCoprocessors.affine
new file mode 100644
index 00000000..9944d393
--- /dev/null
+++ b/src/update/UpdateCoprocessors.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateCoprocessors;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateCoprocessors.res b/src/update/UpdateCoprocessors.res
deleted file mode 100644
index 92146502..00000000
--- a/src/update/UpdateCoprocessors.res
+++ /dev/null
@@ -1,446 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Extracted sub-updater for the Coprocessors panel.
-/// Manages coprocessor metrics, call log, heatmap, backend toggling, compute engine
-/// queries, device discovery, BoJ routing, Zig FFI local dispatch, and smart routing.
-
-open Model
-open Msg
-
-let updateCoprocessors = (model: model, msg: coprocessorsMsg): (model, Tea_Cmd.t<msg>) => {
-  let cp = model.coprocessors
-  switch msg {
-  | SetCoprocCategory(cat) => ({...model, coprocessors: {...cp, activeCategory: cat}}, Tea_Cmd.none)
-  | RefreshMetrics => (
-      {...model, coprocessors: {...cp, loading: true}},
-      CoprocessorsCmd.readMetrics(result => Coprocessors(MetricsReceived(result))),
-    )
-  | MetricsReceived(Ok(jsonStr)) => {
-      let parseBackend = (s: string): CoprocessorsModel.coprocessorBackend =>
-        switch s {
-        | "maths" => CoprocMaths
-        | "vector" => CoprocVector
-        | "tensor" => CoprocTensor
-        | "physics" => CoprocPhysics
-        | "crypto" => CoprocCrypto
-        | "neural" => CoprocNeural
-        | "quantum" => CoprocQuantum
-        | "audio" => CoprocAudio
-        | "graphics" => CoprocGraphics
-        | _ => CoprocIO
-        }
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let items = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let backend =
-            obj
-            ->Dict.get("backend")
-            ->Option.flatMap(JSON.Decode.string)
-            ->Option.getOr("")
-            ->parseBackend
-          let totalCalls =
-            obj->Dict.get("totalCalls")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let avgDurationMs =
-            obj->Dict.get("avgDurationMs")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let maxDurationMs =
-            obj->Dict.get("maxDurationMs")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let errorRate =
-            obj->Dict.get("errorRate")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let lastCallTimestamp =
-            obj->Dict.get("lastCallTimestamp")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let healthStr =
-            obj->Dict.get("health")->Option.flatMap(JSON.Decode.string)->Option.getOr("healthy")
-          let health: CoprocessorsModel.coprocHealth = switch healthStr {
-          | "degraded" => CoprocDegraded
-          | "failed" => CoprocFailed
-          | "disabled" => CoprocDisabled
-          | _ => CoprocHealthy
-          }
-          Some({
-            CoprocessorsModel.backend,
-            totalCalls: Float.toInt(totalCalls),
-            avgDurationMs,
-            maxDurationMs,
-            errorRate,
-            lastCallTimestamp,
-            health,
-          })
-        })
-        Some(items)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(metrics) => (
-          {...model, coprocessors: {...cp, metrics, loading: false, error: None}},
-          Tea_Cmd.none,
-        )
-      | None => ({...model, coprocessors: {...cp, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | MetricsReceived(Error(err)) => (
-      {...model, coprocessors: {...cp, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | RefreshCallLog => (
-      {...model, coprocessors: {...cp, loading: true}},
-      CoprocessorsCmd.readCallLog(result => Coprocessors(CallLogReceived(result))),
-    )
-  | CallLogReceived(Ok(jsonStr)) => {
-      let parseBackend = (s: string): CoprocessorsModel.coprocessorBackend =>
-        switch s {
-        | "maths" => CoprocMaths
-        | "vector" => CoprocVector
-        | "tensor" => CoprocTensor
-        | "physics" => CoprocPhysics
-        | "crypto" => CoprocCrypto
-        | "neural" => CoprocNeural
-        | "quantum" => CoprocQuantum
-        | "audio" => CoprocAudio
-        | "graphics" => CoprocGraphics
-        | _ => CoprocIO
-        }
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let items = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let id = obj->Dict.get("id")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let backend =
-            obj
-            ->Dict.get("backend")
-            ->Option.flatMap(JSON.Decode.string)
-            ->Option.getOr("")
-            ->parseBackend
-          let operation =
-            obj->Dict.get("operation")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let inputSummary =
-            obj->Dict.get("inputSummary")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let outputSummary =
-            obj->Dict.get("outputSummary")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let durationMs =
-            obj->Dict.get("durationMs")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let timestamp =
-            obj->Dict.get("timestamp")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let success =
-            obj->Dict.get("success")->Option.flatMap(JSON.Decode.bool)->Option.getOr(true)
-          Some({
-            CoprocessorsModel.id: Float.toInt(id),
-            backend,
-            operation,
-            inputSummary,
-            outputSummary,
-            durationMs,
-            timestamp,
-            success,
-          })
-        })
-        Some(items)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(callLog) => (
-          {...model, coprocessors: {...cp, callLog, loading: false, error: None}},
-          Tea_Cmd.none,
-        )
-      | None => ({...model, coprocessors: {...cp, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | CallLogReceived(Error(err)) => (
-      {...model, coprocessors: {...cp, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | RefreshHeatmap => (
-      {...model, coprocessors: {...cp, loading: true}},
-      CoprocessorsCmd.readHeatmap(result => Coprocessors(HeatmapReceived(result))),
-    )
-  | HeatmapReceived(Ok(jsonStr)) => {
-      let parseBackend = (s: string): CoprocessorsModel.coprocessorBackend =>
-        switch s {
-        | "maths" => CoprocMaths
-        | "vector" => CoprocVector
-        | "tensor" => CoprocTensor
-        | "physics" => CoprocPhysics
-        | "crypto" => CoprocCrypto
-        | "neural" => CoprocNeural
-        | "quantum" => CoprocQuantum
-        | "audio" => CoprocAudio
-        | "graphics" => CoprocGraphics
-        | _ => CoprocIO
-        }
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let items = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let backend =
-            obj
-            ->Dict.get("backend")
-            ->Option.flatMap(JSON.Decode.string)
-            ->Option.getOr("")
-            ->parseBackend
-          let timeSlot =
-            obj->Dict.get("timeSlot")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let callCount =
-            obj->Dict.get("callCount")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let avgDuration =
-            obj->Dict.get("avgDuration")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          Some({
-            CoprocessorsModel.backend,
-            timeSlot: Float.toInt(timeSlot),
-            callCount: Float.toInt(callCount),
-            avgDuration,
-          })
-        })
-        Some(items)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(heatmap) => (
-          {...model, coprocessors: {...cp, heatmap, loading: false, error: None}},
-          Tea_Cmd.none,
-        )
-      | None => ({...model, coprocessors: {...cp, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | HeatmapReceived(Error(err)) => (
-      {...model, coprocessors: {...cp, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | ToggleCoprocBackend(backend) => {
-      let isEnabled = cp.enabledBackends->Array.includes(backend)
-      let newEnabled = if isEnabled {
-        cp.enabledBackends->Array.filter(b => b !== backend)
-      } else {
-        Array.concat(cp.enabledBackends, [backend])
-      }
-      (
-        {...model, coprocessors: {...cp, enabledBackends: newEnabled}},
-        CoprocessorsCmd.toggleBackend(
-          CoprocessorsEngine.backendLabel(backend),
-          !isEnabled,
-          result => Coprocessors(BackendToggled(result)),
-        ),
-      )
-    }
-  | BackendToggled(Ok(_)) => (model, Tea_Cmd.none)
-  | BackendToggled(Error(err)) => (
-      {...model, coprocessors: {...cp, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | SelectBackendFilter(backend) => (
-      {...model, coprocessors: {...cp, selectedBackend: backend}},
-      Tea_Cmd.none,
-    )
-  | ToggleAutoRefresh => (
-      {...model, coprocessors: {...cp, autoRefresh: !cp.autoRefresh}},
-      Tea_Cmd.none,
-    )
-  | DismissCoprocError => ({...model, coprocessors: {...cp, error: None}}, Tea_Cmd.none)
-  | QueryComputeEngine(engineId, operation) => {
-      let queryCmd = if cp.bojRouting {
-        BojCmd.invokeCartridgeWithLatency(
-          "agent-mcp",
-          "query-compute",
-          `{"engine": "${engineId}", "operation": "${operation}"}`,
-          result => Coprocessors(ComputeEngineResult(result)),
-          (cart, tool, elapsed) => RecordBojLatency(cart, tool, elapsed),
-        )
-      } else {
-        CoprocessorsCmd.queryComputeEngine(engineId, operation, result => Coprocessors(
-          ComputeEngineResult(result),
-        ))
-      }
-      let typellCmd = TypeLLService.checkConfigTypes(
-        operation,
-        "coprocessors",
-        result => Coprocessors(TypeCheckResult(result)),
-      )
-      ({...model, coprocessors: {...cp, loading: true}}, Tea_Cmd.batch(list{queryCmd, typellCmd}))
-    }
-  | ComputeEngineResult(Ok(json)) => {
-      let parsed = CoprocessorsEngine.parseComputeResult(json, EngineAxiom)
-      switch parsed {
-      | Ok(queryResult) => (
-          {...model, coprocessors: {...cp, loading: false, lastComputeResult: Some(queryResult)}},
-          Tea_Cmd.none,
-        )
-      | Error(_) => ({...model, coprocessors: {...cp, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | ComputeEngineResult(Error(err)) => (
-      {...model, coprocessors: {...cp, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | DiscoverDevices => (
-      {...model, coprocessors: {...cp, loading: true}},
-      CoprocessorsCmd.discoverDevices(result => Coprocessors(DevicesDiscovered(result))),
-    )
-  | DevicesDiscovered(Ok(json)) => {
-      let devices = CoprocessorsEngine.parseDevices(json)
-      ({...model, coprocessors: {...cp, loading: false, discoveredDevices: devices}}, Tea_Cmd.none)
-    }
-  | DevicesDiscovered(Error(err)) => (
-      {...model, coprocessors: {...cp, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | ToggleCoprocBojRouting => (
-      {...model, coprocessors: {...cp, bojRouting: !cp.bojRouting}},
-      Tea_Cmd.none,
-    )
-  // Phase 2: Zig FFI local dispatch
-  | LoadLocalFfi =>
-    let cmd = CoprocessorsCmd.loadLocalFfi(r => Coprocessors(LocalFfiLoaded(r)))
-    ({...model, coprocessors: {...cp, loading: true}}, cmd)
-  | LocalFfiLoaded(result) =>
-    switch result {
-    | Ok(jsonStr) =>
-      let newDispatch = CoprocessorsEngine.parseLocalDispatchState(jsonStr)
-      (
-        {...model, coprocessors: {...cp, loading: false, localDispatch: newDispatch, error: None}},
-        Tea_Cmd.none,
-      )
-    | Error(err) => (
-        {...model, coprocessors: {...cp, loading: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | DispatchLocal(operation, payload) =>
-    let ld = cp.localDispatch
-    let newDispatch = {...ld, pendingDispatches: ld.pendingDispatches + 1}
-    let cmd = CoprocessorsCmd.dispatchLocal(operation, payload, r => Coprocessors(
-      LocalDispatchResult(r),
-    ))
-    ({...model, coprocessors: {...cp, localDispatch: newDispatch, loading: true}}, cmd)
-  | LocalDispatchResult(result) =>
-    let ld = cp.localDispatch
-    let pending = ld.pendingDispatches - 1
-    let newDispatch = {
-      ...ld,
-      pendingDispatches: if pending > 0 {
-        pending
-      } else {
-        0
-      },
-    }
-    switch result {
-    | Ok(jsonStr) =>
-      switch CoprocessorsEngine.parseComputeResult(jsonStr, CoprocessorsModel.EngineLocal) {
-      | Ok(computeResult) => (
-          {
-            ...model,
-            coprocessors: {
-              ...cp,
-              loading: false,
-              localDispatch: newDispatch,
-              lastComputeResult: Some(computeResult),
-              error: None,
-            },
-          },
-          Tea_Cmd.none,
-        )
-      | Error(_) => (
-          {...model, coprocessors: {...cp, loading: false, localDispatch: newDispatch}},
-          Tea_Cmd.none,
-        )
-      }
-    | Error(err) => (
-        {
-          ...model,
-          coprocessors: {...cp, loading: false, localDispatch: newDispatch, error: Some(err)},
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | QueryLocalResources =>
-    let cmd = CoprocessorsCmd.queryLocalResources(r => Coprocessors(LocalResourcesResult(r)))
-    (model, cmd)
-  | LocalResourcesResult(result) =>
-    switch result {
-    | Ok(jsonStr) =>
-      let newDispatch = CoprocessorsEngine.parseLocalDispatchState(jsonStr)
-      (
-        {
-          ...model,
-          coprocessors: {
-            ...cp,
-            localDispatch: {
-              ...cp.localDispatch,
-              cpuUtilisation: newDispatch.cpuUtilisation,
-              gpuMemoryMb: newDispatch.gpuMemoryMb,
-            },
-          },
-        },
-        Tea_Cmd.none,
-      )
-    | Error(_) => (model, Tea_Cmd.none)
-    }
-  // Phase 3: Smart routing
-  | SetRoutingStrategy(strategy) => (
-      {...model, coprocessors: {...cp, routingStrategy: strategy}},
-      Tea_Cmd.none,
-    )
-  | SmartDispatch(operation, payload) =>
-    // Phase 3: Use SmartRouter for per-operation intelligent dispatch.
-    let (decision, newHistory) = CoprocessorsEngine.smartRouteAndRecord(cp, operation)
-    let cmd = switch decision.chosenRoute {
-    | CoprocessorsModel.RouteLocal =>
-      CoprocessorsCmd.dispatchLocal(operation, payload, r => Coprocessors(SmartDispatchResult(r)))
-    | CoprocessorsModel.RouteRemote =>
-      CoprocessorsCmd.queryComputeEngine("axiom", `${operation}:${payload}`, r => Coprocessors(
-        SmartDispatchResult(r),
-      ))
-    | CoprocessorsModel.RouteBoj =>
-      BojCmd.invokeCartridgeWithLatency(
-        "agent-mcp",
-        "compute",
-        `{"operation":"${operation}","payload":"${payload}"}`,
-        r => Coprocessors(SmartDispatchResult(r)),
-        (c, t, e) => RecordBojLatency(c, t, e),
-      )
-    | CoprocessorsModel.RouteAutomatic =>
-      // Already resolved by selectRoute — should not happen.
-      CoprocessorsCmd.smartDispatch(operation, payload, r => Coprocessors(SmartDispatchResult(r)))
-    }
-    ({...model, coprocessors: {...cp, loading: true, routingHistory: newHistory}}, cmd)
-  | SmartDispatchResult(result) =>
-    switch result {
-    | Ok(jsonStr) =>
-      switch CoprocessorsEngine.parseComputeResult(jsonStr, CoprocessorsModel.EngineLocal) {
-      | Ok(computeResult) => (
-          {
-            ...model,
-            coprocessors: {
-              ...cp,
-              loading: false,
-              lastComputeResult: Some(computeResult),
-              error: None,
-            },
-          },
-          Tea_Cmd.none,
-        )
-      | Error(_) => ({...model, coprocessors: {...cp, loading: false}}, Tea_Cmd.none)
-      }
-    | Error(err) => (
-        {...model, coprocessors: {...cp, loading: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "coprocessors", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateDatabases.affine b/src/update/UpdateDatabases.affine
new file mode 100644
index 00000000..8f0b07a5
--- /dev/null
+++ b/src/update/UpdateDatabases.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateDatabases;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateDatabases.res b/src/update/UpdateDatabases.res
deleted file mode 100644
index 1cc0dcc0..00000000
--- a/src/update/UpdateDatabases.res
+++ /dev/null
@@ -1,116 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// UpdateDatabases.res — Databases (unified database management panel) sub-updater extracted from Update.res
-
-open Model
-open Msg
-
-let updateDatabases = (model: model, msg: databasesMsg): (model, Tea_Cmd.t<msg>) => {
-  let db = model.databases
-  switch msg {
-  | SetCategory(cat) => ({...model, databases: {...db, activeCategory: cat}}, Tea_Cmd.none)
-  | SelectModule(id) => (
-      {...model, databases: {...db, selectedModule: id, selectedEntity: None, entityDetail: None}},
-      Tea_Cmd.none,
-    )
-  | ConnectAll => ({...model, databases: {...db, loading: true}}, Tea_Cmd.none)
-  | RefreshHealth => ({...model, databases: {...db, loading: true}}, Tea_Cmd.none)
-  | HealthResult(moduleId, Ok(_json)) =>
-    let updated = DatabasesEngine.updateModule(db, moduleId, m => {
-      ...m,
-      connection: DatabaseModule.Connected(m.config.endpoint),
-    })
-    ({...model, databases: {...updated, loading: false, error: None}}, Tea_Cmd.none)
-  | HealthResult(moduleId, Error(err)) =>
-    let updated = DatabasesEngine.updateModule(db, moduleId, m => {
-      ...m,
-      connection: DatabaseModule.Error(err),
-    })
-    ({...model, databases: {...updated, loading: false}}, Tea_Cmd.none)
-  | SetQueryInput(value) => ({...model, databases: {...db, queryInput: value}}, Tea_Cmd.none)
-  | ExecuteQuery => ({...model, databases: {...db, queryLoading: true}}, Tea_Cmd.none)
-  | QueryResult(Ok(json)) =>
-    let entry: DatabasesModel.queryHistoryEntry = {
-      moduleId: db.selectedModule,
-      query: db.queryInput,
-      durationMs: 0.0,
-      rowCount: 0,
-      success: true,
-      timestamp: "",
-    }
-    let updated = DatabasesEngine.updateModule(db, db.selectedModule, m => {
-      ...m,
-      queryResult: Some({
-        columns: [],
-        rows: [],
-        rowCount: 0,
-        timingMs: 0.0,
-        statementType: "SELECT",
-        message: Some(json),
-      }),
-      queryError: None,
-    })
-    let withHistory = DatabasesEngine.addToHistory(updated, entry)
-    ({...model, databases: {...withHistory, queryLoading: false}}, Tea_Cmd.none)
-  | QueryResult(Error(err)) =>
-    let entry: DatabasesModel.queryHistoryEntry = {
-      moduleId: db.selectedModule,
-      query: db.queryInput,
-      durationMs: 0.0,
-      rowCount: 0,
-      success: false,
-      timestamp: "",
-    }
-    let updated = DatabasesEngine.updateModule(db, db.selectedModule, m => {
-      ...m,
-      queryResult: None,
-      queryError: Some(err),
-    })
-    let withHistory = DatabasesEngine.addToHistory(updated, entry)
-    ({...model, databases: {...withHistory, queryLoading: false}}, Tea_Cmd.none)
-  | ClearQuery =>
-    let updated = DatabasesEngine.updateModule(db, db.selectedModule, m => {
-      ...m,
-      queryResult: None,
-      queryError: None,
-    })
-    ({...model, databases: {...updated, queryInput: "", queryLoading: false}}, Tea_Cmd.none)
-  | LoadExampleQuery(query) => (
-      {...model, databases: {...db, queryInput: query, activeCategory: DatabasesModel.DbQuery}},
-      Tea_Cmd.none,
-    )
-  | SetFilter(value) => ({...model, databases: {...db, filterText: value}}, Tea_Cmd.none)
-  | SelectEntity(name) => (
-      {...model, databases: {...db, selectedEntity: Some(name), entityDetail: None}},
-      Tea_Cmd.none,
-    )
-  | LoadEntityDetail(_name) => ({...model, databases: {...db, loading: true}}, Tea_Cmd.none)
-  | EntityDetailResult(Ok(json)) => (
-      {...model, databases: {...db, entityDetail: Some(json), loading: false}},
-      Tea_Cmd.none,
-    )
-  | EntityDetailResult(Error(err)) => (
-      {...model, databases: {...db, error: Some(err), loading: false}},
-      Tea_Cmd.none,
-    )
-  | RefreshDrift => ({...model, databases: {...db, loading: true}}, Tea_Cmd.none)
-  | DriftResult(Ok(_json)) => ({...model, databases: {...db, loading: false}}, Tea_Cmd.none)
-  | DriftResult(Error(err)) => (
-      {...model, databases: {...db, error: Some(err), loading: false}},
-      Tea_Cmd.none,
-    )
-  | NormaliseAll => ({...model, databases: {...db, loading: true}}, Tea_Cmd.none)
-  | NormaliseResult(Ok(_)) => ({...model, databases: {...db, loading: false}}, Tea_Cmd.none)
-  | NormaliseResult(Error(err)) => (
-      {...model, databases: {...db, error: Some(err), loading: false}},
-      Tea_Cmd.none,
-    )
-  | LoadTelemetry => ({...model, databases: {...db, loading: true}}, Tea_Cmd.none)
-  | TelemetryResult(Ok(_json)) => ({...model, databases: {...db, loading: false}}, Tea_Cmd.none)
-  | TelemetryResult(Error(err)) => (
-      {...model, databases: {...db, error: Some(err), loading: false}},
-      Tea_Cmd.none,
-    )
-  | ToggleBojRouting => ({...model, databases: {...db, bojRouting: !db.bojRouting}}, Tea_Cmd.none)
-  | DismissError => ({...model, databases: {...db, error: None}}, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateDlcWorkshop.affine b/src/update/UpdateDlcWorkshop.affine
new file mode 100644
index 00000000..9f36ba03
--- /dev/null
+++ b/src/update/UpdateDlcWorkshop.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateDlcWorkshop;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateDlcWorkshop.res b/src/update/UpdateDlcWorkshop.res
deleted file mode 100644
index bb1b7bc4..00000000
--- a/src/update/UpdateDlcWorkshop.res
+++ /dev/null
@@ -1,336 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Extracted sub-updater for the DLC Workshop panel.
-/// Manages puzzle loading, composer instructions, test execution, asset browsing,
-/// DLC packaging, puzzle import/export, filtering, and TypeLL integration.
-
-open Model
-open Msg
-
-let updateDlcWorkshop = (model: model, msg: dlcWorkshopMsg): (model, Tea_Cmd.t<msg>) => {
-  let dw = model.dlcWorkshop
-  switch msg {
-  | SetWorkshopCategory(cat) => (
-      {...model, dlcWorkshop: {...dw, activeCategory: cat}},
-      Tea_Cmd.none,
-    )
-  | LoadPuzzles => (
-      {...model, dlcWorkshop: {...dw, loading: true}},
-      DlcWorkshopCmd.loadPuzzles(result => DlcWorkshop(PuzzlesLoaded(result))),
-    )
-  | PuzzlesLoaded(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let items = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let id = obj->Dict.get("id")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let name = obj->Dict.get("name")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let description =
-            obj->Dict.get("description")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let diffStr =
-            obj->Dict.get("difficulty")->Option.flatMap(JSON.Decode.string)->Option.getOr("medium")
-          let difficulty: DlcWorkshopModel.puzzleDifficulty = switch diffStr {
-          | "tutorial" => DifficultyTutorial
-          | "easy" => DifficultyEasy
-          | "hard" => DifficultyHard
-          | "expert" => DifficultyExpert
-          | "nightmare" => DifficultyNightmare
-          | _ => DifficultyMedium
-          }
-          let solutionSteps =
-            obj->Dict.get("solutionSteps")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let optimalSteps =
-            obj->Dict.get("optimalSteps")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let hintsArr = obj->Dict.get("hints")->Option.flatMap(JSON.Decode.array)->Option.getOr([])
-          let hints = hintsArr->Array.filterMap(v => v->JSON.Decode.string)
-          Some({
-            DlcWorkshopModel.id,
-            name,
-            description,
-            difficulty,
-            instructions: [],
-            solutionSteps: Float.toInt(solutionSteps),
-            optimalSteps: Float.toInt(optimalSteps),
-            testStatus: TestNotRun,
-            hints,
-          })
-        })
-        Some(items)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(puzzles) => (
-          {...model, dlcWorkshop: {...dw, puzzles, loading: false, error: None}},
-          Tea_Cmd.none,
-        )
-      | None => ({...model, dlcWorkshop: {...dw, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | PuzzlesLoaded(Error(err)) => (
-      {...model, dlcWorkshop: {...dw, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | SelectPuzzle(id) => ({...model, dlcWorkshop: {...dw, selectedPuzzleId: Some(id)}}, Tea_Cmd.none)
-  | DeselectPuzzle => ({...model, dlcWorkshop: {...dw, selectedPuzzleId: None}}, Tea_Cmd.none)
-  | AddInstruction => {
-      let idx = Array.length(dw.composerInstructions)
-      let instr: puzzleInstruction = {index: idx, opcode: "NOP", operand: None, comment: ""}
-      (
-        {
-          ...model,
-          dlcWorkshop: {
-            ...dw,
-            composerInstructions: Array.concat(dw.composerInstructions, [instr]),
-          },
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | RemoveInstruction(idx) => {
-      let newInstrs = dw.composerInstructions->Array.filter(i => i.index !== idx)
-      ({...model, dlcWorkshop: {...dw, composerInstructions: newInstrs}}, Tea_Cmd.none)
-    }
-  | ClearComposer => ({...model, dlcWorkshop: {...dw, composerInstructions: []}}, Tea_Cmd.none)
-  | SavePuzzle => (
-      model,
-      Tea_Cmd.batch(list{
-        DlcWorkshopCmd.savePuzzle("", result => DlcWorkshop(PuzzleSaved(result))),
-        TypeLLService.checkGameDataTypes("puzzle-spec", "dlc-workshop", result => DlcWorkshop(
-          TypeCheckResult(result),
-        )),
-      }),
-    )
-  | PuzzleSaved(Ok(_)) => (model, Tea_Cmd.none)
-  | PuzzleSaved(Error(err)) => ({...model, dlcWorkshop: {...dw, error: Some(err)}}, Tea_Cmd.none)
-  | RunPuzzleTest(puzzleId) => (
-      {...model, dlcWorkshop: {...dw, loading: true}},
-      DlcWorkshopCmd.runTest(puzzleId, result => DlcWorkshop(PuzzleTestResult(result))),
-    )
-  | PuzzleTestResult(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-        let puzzleId =
-          obj->Dict.get("puzzleId")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-        let passed = obj->Dict.get("passed")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-        let errorMsg = obj->Dict.get("error")->Option.flatMap(JSON.Decode.string)
-        let status: DlcWorkshopModel.testRunStatus = if passed {
-          TestPassed
-        } else {
-          TestFailed(errorMsg->Option.getOr("Test failed"))
-        }
-        Some((puzzleId, status))
-
-      | None => None
-      }
-      switch parsed {
-      | Some((puzzleId, status)) => {
-          let puzzles = dw.puzzles->Array.map(p =>
-            if p.id === puzzleId {
-              {...p, testStatus: status}
-            } else {
-              p
-            }
-          )
-          let testResults = Array.concat(dw.testResults, [(puzzleId, status)])
-          (
-            {...model, dlcWorkshop: {...dw, puzzles, testResults, loading: false, error: None}},
-            Tea_Cmd.none,
-          )
-        }
-      | None => ({...model, dlcWorkshop: {...dw, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | PuzzleTestResult(Error(err)) => (
-      {...model, dlcWorkshop: {...dw, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | RunAllTests => (
-      {...model, dlcWorkshop: {...dw, loading: true}},
-      DlcWorkshopCmd.runAllTests(result => DlcWorkshop(AllTestsResult(result))),
-    )
-  | AllTestsResult(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let results = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let puzzleId =
-            obj->Dict.get("puzzleId")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let passed =
-            obj->Dict.get("passed")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-          let errorMsg = obj->Dict.get("error")->Option.flatMap(JSON.Decode.string)
-          let status: DlcWorkshopModel.testRunStatus = if passed {
-            TestPassed
-          } else {
-            TestFailed(errorMsg->Option.getOr("Test failed"))
-          }
-          Some((puzzleId, status))
-        })
-        Some(results)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(results) => {
-          let puzzles = dw.puzzles->Array.map(p => {
-            let matching = results->Array.find(((id, _)) => id === p.id)
-            switch matching {
-            | Some((_, status)) => {...p, testStatus: status}
-            | None => p
-            }
-          })
-          (
-            {
-              ...model,
-              dlcWorkshop: {...dw, puzzles, testResults: results, loading: false, error: None},
-            },
-            Tea_Cmd.none,
-          )
-        }
-      | None => ({...model, dlcWorkshop: {...dw, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | AllTestsResult(Error(err)) => (
-      {...model, dlcWorkshop: {...dw, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | BrowseDlcAssets => (
-      {...model, dlcWorkshop: {...dw, loading: true}},
-      DlcWorkshopCmd.browseAssets(result => DlcWorkshop(DlcAssetsLoaded(result))),
-    )
-  | DlcAssetsLoaded(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let items = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let id = obj->Dict.get("id")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let name = obj->Dict.get("name")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let assetType =
-            obj->Dict.get("assetType")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let filePath =
-            obj->Dict.get("filePath")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let sizeBytes =
-            obj->Dict.get("sizeBytes")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          Some({
-            DlcWorkshopModel.id,
-            name,
-            assetType,
-            filePath,
-            sizeBytes: Float.toInt(sizeBytes),
-          })
-        })
-        Some(items)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(assets) => (
-          {...model, dlcWorkshop: {...dw, assets, loading: false, error: None}},
-          Tea_Cmd.none,
-        )
-      | None => ({...model, dlcWorkshop: {...dw, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | DlcAssetsLoaded(Error(err)) => (
-      {...model, dlcWorkshop: {...dw, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | PackageDlc => (
-      {...model, dlcWorkshop: {...dw, loading: true}},
-      DlcWorkshopCmd.packageDlc("", result => DlcWorkshop(PackageResult(result))),
-    )
-  | PackageResult(Ok(_)) => (
-      {...model, dlcWorkshop: {...dw, loading: false, error: None}},
-      Tea_Cmd.none,
-    )
-  | PackageResult(Error(err)) => (
-      {...model, dlcWorkshop: {...dw, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | ImportPuzzle => (
-      model,
-      DlcWorkshopCmd.importPuzzle("", result => DlcWorkshop(PuzzleImported(result))),
-    )
-  | PuzzleImported(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-        let id = obj->Dict.get("id")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-        let name = obj->Dict.get("name")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-        let description =
-          obj->Dict.get("description")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-        let diffStr =
-          obj->Dict.get("difficulty")->Option.flatMap(JSON.Decode.string)->Option.getOr("medium")
-        let difficulty: DlcWorkshopModel.puzzleDifficulty = switch diffStr {
-        | "tutorial" => DifficultyTutorial
-        | "easy" => DifficultyEasy
-        | "hard" => DifficultyHard
-        | "expert" => DifficultyExpert
-        | "nightmare" => DifficultyNightmare
-        | _ => DifficultyMedium
-        }
-        let solutionSteps =
-          obj->Dict.get("solutionSteps")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-        let optimalSteps =
-          obj->Dict.get("optimalSteps")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-        let hintsArr = obj->Dict.get("hints")->Option.flatMap(JSON.Decode.array)->Option.getOr([])
-        let hints = hintsArr->Array.filterMap(v => v->JSON.Decode.string)
-        Some({
-          DlcWorkshopModel.id,
-          name,
-          description,
-          difficulty,
-          instructions: [],
-          solutionSteps: Float.toInt(solutionSteps),
-          optimalSteps: Float.toInt(optimalSteps),
-          testStatus: TestNotRun,
-          hints,
-        })
-
-      | None => None
-      }
-      switch parsed {
-      | Some(puzzle) => (
-          {
-            ...model,
-            dlcWorkshop: {...dw, puzzles: Array.concat(dw.puzzles, [puzzle]), error: None},
-          },
-          Tea_Cmd.none,
-        )
-      | None => ({...model, dlcWorkshop: {...dw, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | PuzzleImported(Error(err)) => ({...model, dlcWorkshop: {...dw, error: Some(err)}}, Tea_Cmd.none)
-  | ExportPuzzle => {
-      let puzzleId = switch dw.selectedPuzzleId {
-      | Some(id) => id
-      | None => ""
-      }
-      (model, DlcWorkshopCmd.exportPuzzle(puzzleId, result => DlcWorkshop(PuzzleExported(result))))
-    }
-  | PuzzleExported(Ok(_)) => (model, Tea_Cmd.none)
-  | PuzzleExported(Error(err)) => ({...model, dlcWorkshop: {...dw, error: Some(err)}}, Tea_Cmd.none)
-  | SetDlcFilter(text) => ({...model, dlcWorkshop: {...dw, filterText: text}}, Tea_Cmd.none)
-  | SetDifficultyFilter(diff) => (
-      {...model, dlcWorkshop: {...dw, filterDifficulty: diff}},
-      Tea_Cmd.none,
-    )
-  | DismissWorkshopError => ({...model, dlcWorkshop: {...dw, error: None}}, Tea_Cmd.none)
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "dlcworkshop", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateEchidna.affine b/src/update/UpdateEchidna.affine
new file mode 100644
index 00000000..03dd0543
--- /dev/null
+++ b/src/update/UpdateEchidna.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateEchidna;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateEchidna.res b/src/update/UpdateEchidna.res
deleted file mode 100644
index a0b6882b..00000000
--- a/src/update/UpdateEchidna.res
+++ /dev/null
@@ -1,820 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Extracted sub-updater for ECHIDNA (Theorem Prover Backend).
-/// Manages the ECHIDNA connection state, prover catalog, proof submission lifecycle,
-/// theorem search, interactive proof sessions, tactic suggestions, UI toggles,
-/// enterprise model checking (MOF/OCL), and BoJ routing.
-
-open Model
-open Msg
-
-// ===========================================================================
-// ECHIDNA Parsers
-// ===========================================================================
-
-/// Parse the ECHIDNA version string from a health check JSON response.
-/// Expected shape: `{ "status": "ok", "version": "0.4.2" }`.
-let parseEchidnaVersion = (json: string): option<string> =>
-  Decoders.decodeOption(Tea_Json.field("version", Tea_Json.string), json)
-
-/// Parse the ECHIDNA prover catalog from a list provers JSON response.
-/// Expected shape: `[{ "name": "z3", "tier": "SMT", "complexity": "NP" }, ...]`
-/// or `{ "provers": [...] }` wrapper.
-let parseEchidnaProvers = (json: string): array<echidnaProver> => {
-  switch Decoders.decodeOption(Tea_Json.value, json) {
-  | Some(parsed) =>
-    // Helper to extract a prover record from a JSON object.
-    let parseProver = (obj: Dict.t<JSON.t>): option<echidnaProver> => {
-      let getStr = (key: string): string =>
-        switch Dict.get(obj, key) {
-        | Some(v) =>
-          switch JSON.Classify.classify(v) {
-          | String(s) => s
-          | _ => ""
-          }
-        | None => ""
-        }
-      let name = getStr("name")
-      if name === "" {
-        None
-      } else {
-        Some({name, tier: getStr("tier"), complexity: getStr("complexity")})
-      }
-    }
-    // Try direct array first, then check for { "provers": [...] } wrapper.
-    switch JSON.Classify.classify(parsed) {
-    | Array(arr) =>
-      arr->Array.filterMap(item =>
-        switch JSON.Classify.classify(item) {
-        | Object(obj) => parseProver(obj)
-        | _ => None
-        }
-      )
-    | Object(obj) =>
-      switch Dict.get(obj, "provers") {
-      | Some(v) =>
-        switch JSON.Classify.classify(v) {
-        | Array(arr) =>
-          arr->Array.filterMap(item =>
-            switch JSON.Classify.classify(item) {
-            | Object(o) => parseProver(o)
-            | _ => None
-            }
-          )
-        | _ => []
-        }
-      | None => []
-      }
-    | _ => []
-    }
-  | None => []
-  }
-}
-
-/// Parse an ECHIDNA dispatch result from a proof/verify JSON response.
-/// Maps trust_level integers (1-5) to the echidnaTrustLevel variant,
-/// parses the axiom report, and extracts prover telemetry.
-let parseEchidnaDispatchResult = (json: string): option<echidnaDispatchResult> => {
-  switch Decoders.decodeOption(Tea_Json.value, json) {
-  | Some(parsed) =>
-    switch JSON.Classify.classify(parsed) {
-    | Object(obj) => {
-        let getStr = (key: string): string =>
-          switch Dict.get(obj, key) {
-          | Some(v) =>
-            switch JSON.Classify.classify(v) {
-            | String(s) => s
-            | _ => ""
-            }
-          | None => ""
-          }
-        let getBool = (key: string): bool =>
-          switch Dict.get(obj, key) {
-          | Some(v) =>
-            switch JSON.Classify.classify(v) {
-            | Bool(b) => b
-            | _ => false
-            }
-          | None => false
-          }
-        let getFloat = (key: string): float =>
-          switch Dict.get(obj, key) {
-          | Some(v) =>
-            switch JSON.Classify.classify(v) {
-            | Number(n) => n
-            | _ => 0.0
-            }
-          | None => 0.0
-          }
-        let getInt = (key: string): int =>
-          switch Dict.get(obj, key) {
-          | Some(v) =>
-            switch JSON.Classify.classify(v) {
-            | Number(n) => Float.toInt(n)
-            | _ => 0
-            }
-          | None => 0
-          }
-
-        // Parse trust_level integer to variant
-        let trustLevel = switch getInt("trust_level") {
-        | 1 => TrustLevel1
-        | 2 => TrustLevel2
-        | 3 => TrustLevel3
-        | 4 => TrustLevel4
-        | 5 => TrustLevel5
-        | _ => TrustLevel1
-        }
-
-        // Parse provers_used string array
-        let proversUsed = switch Dict.get(obj, "provers_used") {
-        | Some(v) =>
-          switch JSON.Classify.classify(v) {
-          | Array(arr) =>
-            arr->Array.filterMap(item =>
-              switch JSON.Classify.classify(item) {
-              | String(s) => Some(s)
-              | _ => None
-              }
-            )
-          | _ => []
-          }
-        | None => []
-        }
-
-        // Parse axiom_report array
-        let axiomReport = switch Dict.get(obj, "axiom_report") {
-        | Some(v) =>
-          switch JSON.Classify.classify(v) {
-          | Array(arr) =>
-            arr->Array.filterMap(item =>
-              switch JSON.Classify.classify(item) {
-              | Object(axiomObj) => {
-                  let aGetStr = (key: string): string =>
-                    switch Dict.get(axiomObj, key) {
-                    | Some(av) =>
-                      switch JSON.Classify.classify(av) {
-                      | String(s) => s
-                      | _ => ""
-                      }
-                    | None => ""
-                    }
-                  let dangerLevel: axiomDangerLevel = switch aGetStr("danger_level") {
-                  | "safe" => Safe
-                  | "noted" => Noted
-                  | "warning" => Warning
-                  | "reject" => Reject
-                  | _ => Noted
-                  }
-                  Some({
-                    axiomName: aGetStr("axiom_name"),
-                    dangerLevel,
-                    description: aGetStr("description"),
-                  })
-                }
-              | _ => None
-              }
-            )
-          | _ => []
-          }
-        | None => []
-        }
-
-        // Parse cross_checked string to variant
-        let crossChecked = switch getStr("cross_checked") {
-        | "cross_checked" => CrossChecked
-        | "single_solver" => SingleSolver
-        | "inconclusive" => Inconclusive
-        | "all_timed_out" => AllTimedOut
-        | _ => SingleSolver
-        }
-
-        // Parse optional certificate hash
-        let certificateHash = switch Dict.get(obj, "certificate_hash") {
-        | Some(v) =>
-          switch JSON.Classify.classify(v) {
-          | String(s) => Some(s)
-          | _ => None
-          }
-        | None => None
-        }
-
-        Some({
-          verified: getBool("verified"),
-          trustLevel,
-          proversUsed,
-          proofTimeMs: getFloat("proof_time_ms"),
-          goalsRemaining: getInt("goals_remaining"),
-          axiomReport,
-          certificateHash,
-          message: getStr("message"),
-          crossChecked,
-        })
-      }
-    | _ => None
-    }
-  | None => None
-  }
-}
-
-// ===========================================================================
-// ECHIDNA Session & Tactic Parsers
-// ===========================================================================
-
-/// Parse a proof status string from ECHIDNA's ProofResponse into the variant type.
-let parseProofStatus = (s: string): echidnaProofStatus => {
-  switch s {
-  | "pending" => Pending
-  | "in_progress" => InProgress
-  | "success" => ProofSuccess
-  | "failed" => ProofFailed
-  | "timeout" => ProofTimeout
-  | "error" => ProofError
-  | _ => Pending
-  }
-}
-
-/// Parse an ECHIDNA ProofResponse JSON into echidnaSessionState.
-/// Expected shape: `{ "id": "...", "prover": "...", "goal": "...",
-///   "status": "in_progress", "goals": [...], "proof_script": [...],
-///   "complete": false, "tactics_applied": [...],
-///   "time_elapsed": 1.23, "error_message": null }`
-let parseEchidnaSession = (json: string): option<echidnaSessionState> => {
-  switch Decoders.decodeOption(Tea_Json.value, json) {
-  | Some(parsed) =>
-    switch JSON.Classify.classify(parsed) {
-    | Object(obj) => {
-        let getStr = (key: string): string =>
-          switch Dict.get(obj, key) {
-          | Some(v) =>
-            switch JSON.Classify.classify(v) {
-            | String(s) => s
-            | _ => ""
-            }
-          | None => ""
-          }
-        let getBool = (key: string): bool =>
-          switch Dict.get(obj, key) {
-          | Some(v) =>
-            switch JSON.Classify.classify(v) {
-            | Bool(b) => b
-            | _ => false
-            }
-          | None => false
-          }
-        let getStrArray = (key: string): array<string> =>
-          switch Dict.get(obj, key) {
-          | Some(v) =>
-            switch JSON.Classify.classify(v) {
-            | Array(arr) =>
-              arr->Array.filterMap(item =>
-                switch JSON.Classify.classify(item) {
-                | String(s) => Some(s)
-                | _ => None
-                }
-              )
-            | _ => []
-            }
-          | None => []
-          }
-        let getOptFloat = (key: string): option<float> =>
-          switch Dict.get(obj, key) {
-          | Some(v) =>
-            switch JSON.Classify.classify(v) {
-            | Number(n) => Some(n)
-            | _ => None
-            }
-          | None => None
-          }
-        let getOptStr = (key: string): option<string> =>
-          switch Dict.get(obj, key) {
-          | Some(v) =>
-            switch JSON.Classify.classify(v) {
-            | String(s) => Some(s)
-            | _ => None
-            }
-          | None => None
-          }
-
-        let sessionId = getStr("id")
-        if sessionId === "" {
-          None
-        } else {
-          Some({
-            sessionId,
-            prover: getStr("prover"),
-            goal: getStr("goal"),
-            status: parseProofStatus(getStr("status")),
-            goals: getStrArray("goals"),
-            proofScript: getStrArray("proof_script"),
-            complete: getBool("complete"),
-            tacticsApplied: getStrArray("tactics_applied"),
-            timeElapsed: getOptFloat("time_elapsed"),
-            errorMessage: getOptStr("error_message"),
-          })
-        }
-      }
-    | _ => None
-    }
-  | None => None
-  }
-}
-
-/// Parse a TacticResponse JSON into (success, updated session state).
-/// Expected shape: `{ "success": true, "proof_state": { ...ProofResponse... } }`
-let parseTacticResponse = (json: string): option<(bool, echidnaSessionState)> => {
-  switch Decoders.decodeOption(Tea_Json.value, json) {
-  | Some(parsed) =>
-    switch JSON.Classify.classify(parsed) {
-    | Object(obj) => {
-        let success = switch Dict.get(obj, "success") {
-        | Some(v) =>
-          switch JSON.Classify.classify(v) {
-          | Bool(b) => b
-          | _ => false
-          }
-        | None => false
-        }
-        // The proof_state is embedded as a nested object — re-stringify it
-        // so we can reuse parseEchidnaSession.
-        switch Dict.get(obj, "proof_state") {
-        | Some(proofState) =>
-          let stateJson = JSON.stringify(proofState)
-          switch parseEchidnaSession(stateJson) {
-          | Some(session) => Some((success, session))
-          | None => None
-          }
-        | None => None
-        }
-      }
-    | _ => None
-    }
-  | None => None
-  }
-}
-
-/// Parse tactic suggestions JSON into an array of echidnaTacticSuggestion.
-/// Expected shape: `[{ "name": "intro", "args": ["x"], "description": "...",
-///   "confidence": 0.85 }, ...]`
-let parseTacticSuggestions = (json: string): array<echidnaTacticSuggestion> => {
-  switch Decoders.decodeOption(Tea_Json.value, json) {
-  | Some(parsed) =>
-    switch JSON.Classify.classify(parsed) {
-    | Array(arr) =>
-      arr->Array.filterMap(item =>
-        switch JSON.Classify.classify(item) {
-        | Object(obj) => {
-            let getStr = (key: string): string =>
-              switch Dict.get(obj, key) {
-              | Some(v) =>
-                switch JSON.Classify.classify(v) {
-                | String(s) => s
-                | _ => ""
-                }
-              | None => ""
-              }
-            let getFloat = (key: string): float =>
-              switch Dict.get(obj, key) {
-              | Some(v) =>
-                switch JSON.Classify.classify(v) {
-                | Number(n) => n
-                | _ => 0.0
-                }
-              | None => 0.0
-              }
-            let getStrArray = (key: string): array<string> =>
-              switch Dict.get(obj, key) {
-              | Some(v) =>
-                switch JSON.Classify.classify(v) {
-                | Array(a) =>
-                  a->Array.filterMap(i =>
-                    switch JSON.Classify.classify(i) {
-                    | String(s) => Some(s)
-                    | _ => None
-                    }
-                  )
-                | _ => []
-                }
-              | None => []
-              }
-            let name = getStr("name")
-            if name === "" {
-              None
-            } else {
-              Some({
-                tactic: name,
-                args: getStrArray("args"),
-                confidence: getFloat("confidence"),
-                aspectTags: getStrArray("aspect_tags"),
-                description: getStr("description"),
-              })
-            }
-          }
-        | _ => None
-        }
-      )
-    | _ => []
-    }
-  | None => []
-  }
-}
-
-// ===========================================================================
-// ECHIDNA Sub-Updater
-// ===========================================================================
-
-/// STATE TRANSITION: ECHIDNA (Theorem Prover Backend)
-/// Manages the ECHIDNA connection state, prover catalog, proof submission lifecycle,
-/// theorem search, interactive proof sessions, tactic suggestions, and UI toggles.
-let updateEchidna = (model: model, msg: echidnaMsg): (model, Tea_Cmd.t<msg>) => {
-  let ec = model.echidna
-  switch msg {
-  // --- Connection lifecycle ---
-  | CheckHealth => (
-      model,
-      GossamerCmd.checkEchidnaHealth(result =>
-        switch result {
-        | Ok(json) => Echidna(HealthOk(json))
-        | Error(err) => Echidna(HealthError(err))
-        }
-      ),
-    )
-  | HealthOk(json) =>
-    let version = parseEchidnaVersion(json)
-    ({...model, echidna: {...ec, connected: true, version, proofError: None}}, Tea_Cmd.none)
-  | HealthError(err) => (
-      {...model, echidna: {...ec, connected: false, version: None, proofError: Some(err)}},
-      Tea_Cmd.none,
-    )
-
-  // --- Prover catalog ---
-  | ListProvers => (model, GossamerCmd.listEchidnaProvers(result => Echidna(ProversLoaded(result))))
-  | ProversLoaded(result) =>
-    switch result {
-    | Ok(json) =>
-      let provers = parseEchidnaProvers(json)
-      ({...model, echidna: {...ec, provers, proofError: None}}, Tea_Cmd.none)
-    | Error(err) => ({...model, echidna: {...ec, proofError: Some(err)}}, Tea_Cmd.none)
-    }
-
-  // --- Proof submission ---
-  | SubmitProof => {
-      let proveCmd = if ec.bojRouting {
-        BojCmd.invokeCartridgeWithLatency(
-          "proof-mcp",
-          "prove",
-          `{"input": "${ec.proofInput}", "prover": "${ec.selectedProver->Option.getOr("auto")}"}`,
-          result => Echidna(ProofResult(result)),
-          (cart, tool, elapsed) => RecordBojLatency(cart, tool, elapsed),
-        )
-      } else {
-        GossamerCmd.echidnaProve(ec.proofInput, ec.selectedProver, result => Echidna(
-          ProofResult(result),
-        ))
-      }
-      (
-        {
-          ...model,
-          echidna: {
-            ...ec,
-            proofLoading: true,
-            proofError: None,
-            lastProofResult: None,
-            lastProofObligations: None,
-          },
-        },
-        Tea_Cmd.batch(list{
-          proveCmd,
-          TypeLLService.generateProofObligations(ec.proofInput, result => Echidna(
-            ProofObligationsGenerated(result),
-          )),
-        }),
-      )
-    }
-  | ProofResult(result) =>
-    switch result {
-    | Ok(json) =>
-      let parsed = parseEchidnaDispatchResult(json)
-      // S4: Proof completion feeds back into the neurosymbolic loop.
-      // Advance OODA phase in Panel-N agency based on proof outcome.
-      let newAgency = switch parsed {
-      | Some(r) if r.verified => {
-          // Proof verified → advance to Act phase (decision confirmed).
-          ...model.paneN.agency,
-          phase: Act,
-        }
-      | Some(_) => {
-          // Proof failed → re-orient (need new approach).
-          ...model.paneN.agency,
-          phase: Orient,
-        }
-      | None => model.paneN.agency
-      }
-      let newPaneN = {...model.paneN, agency: newAgency}
-      (
-        {
-          ...model,
-          echidna: {...ec, lastProofResult: parsed, proofLoading: false, proofError: None},
-          paneN: newPaneN,
-        },
-        Tea_Cmd.none,
-      )
-    | Error(err) => (
-        {
-          ...model,
-          echidna: {...ec, proofLoading: false, proofError: Some(err), lastProofResult: None},
-        },
-        Tea_Cmd.none,
-      )
-    }
-
-  // --- Verification ---
-  | SubmitVerify => (
-      {...model, echidna: {...ec, proofLoading: true, proofError: None, lastProofResult: None}},
-      GossamerCmd.echidnaVerify(ec.proofInput, result => Echidna(VerifyResult(result))),
-    )
-  | VerifyResult(result) =>
-    switch result {
-    | Ok(json) =>
-      let parsed = parseEchidnaDispatchResult(json)
-      (
-        {
-          ...model,
-          echidna: {...ec, lastProofResult: parsed, proofLoading: false, proofError: None},
-        },
-        Tea_Cmd.none,
-      )
-    | Error(err) => (
-        {
-          ...model,
-          echidna: {...ec, proofLoading: false, proofError: Some(err), lastProofResult: None},
-        },
-        Tea_Cmd.none,
-      )
-    }
-
-  // --- Theorem search ---
-  | SearchTheorems(query) => (
-      model,
-      GossamerCmd.echidnaSearchTheorems(query, result => Echidna(SearchResult(result))),
-    )
-  | SearchResult(_result) => // Search results display is Phase 2 — for now just clear errors.
-    ({...model, echidna: {...ec, proofError: None}}, Tea_Cmd.none)
-
-  // --- Interactive sessions ---
-  | CreateSession => {
-      let prover = switch ec.selectedProver {
-      | Some(p) => p
-      | None => "auto"
-      }
-      (
-        {...model, echidna: {...ec, sessionLoading: true, proofError: None}},
-        GossamerCmd.createEchidnaSession(ec.proofInput, prover, result => Echidna(
-          SessionCreated(result),
-        )),
-      )
-    }
-  | SessionCreated(result) =>
-    switch result {
-    | Ok(json) =>
-      let session = parseEchidnaSession(json)
-      switch session {
-      | Some(s) => (
-          {...model, echidna: {...ec, session: Some(s), sessionLoading: false, proofError: None}},
-          // Auto-request tactic suggestions after session creation
-          GossamerCmd.suggestEchidnaTactics(s.sessionId, 5, result => Echidna(
-            TacticSuggestionsLoaded(result),
-          )),
-        )
-      | None => (
-          {
-            ...model,
-            echidna: {
-              ...ec,
-              sessionLoading: false,
-              proofError: Some("Failed to parse session response"),
-            },
-          },
-          Tea_Cmd.none,
-        )
-      }
-    | Error(err) => (
-        {...model, echidna: {...ec, sessionLoading: false, proofError: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | ApplyTactic(name, args) =>
-    switch ec.session {
-    | Some(s) => (
-        model,
-        GossamerCmd.applyEchidnaTactic(s.sessionId, name, args, result => Echidna(
-          TacticApplied(result),
-        )),
-      )
-    | None => (model, Tea_Cmd.none)
-    }
-  | TacticApplied(result) =>
-    switch result {
-    | Ok(json) =>
-      switch parseTacticResponse(json) {
-      | Some((_success, updatedSession)) => {
-          // S4: Tactic applied → advance OODA from Orient to Decide.
-          // Each tactic application represents a decision step in the proof search.
-          let newPhase = switch model.paneN.agency.phase {
-          | Observe => Orient // Observed → now orienting with tactic
-          | Orient => Decide // Oriented → decided on tactic
-          | Decide => Act // Decided → acting (tactic applied)
-          | Act => Observe // Cycle complete → observe result
-          }
-          let newAgency = {...model.paneN.agency, phase: newPhase}
-          let newPaneN = {...model.paneN, agency: newAgency}
-          (
-            {
-              ...model,
-              echidna: {...ec, session: Some(updatedSession), proofError: None},
-              paneN: newPaneN,
-            },
-            // Auto-request fresh suggestions after tactic application
-            GossamerCmd.suggestEchidnaTactics(updatedSession.sessionId, 5, result => Echidna(
-              TacticSuggestionsLoaded(result),
-            )),
-          )
-        }
-      | None => (
-          {...model, echidna: {...ec, proofError: Some("Failed to parse tactic response")}},
-          Tea_Cmd.none,
-        )
-      }
-    | Error(err) => ({...model, echidna: {...ec, proofError: Some(err)}}, Tea_Cmd.none)
-    }
-  | GetSessionState =>
-    switch ec.session {
-    | Some(s) => (
-        model,
-        GossamerCmd.getEchidnaSession(s.sessionId, result => Echidna(SessionStateLoaded(result))),
-      )
-    | None => (model, Tea_Cmd.none)
-    }
-  | SessionStateLoaded(result) =>
-    switch result {
-    | Ok(json) =>
-      let session = parseEchidnaSession(json)
-      switch session {
-      | Some(s) => ({...model, echidna: {...ec, session: Some(s), proofError: None}}, Tea_Cmd.none)
-      | None => (
-          {...model, echidna: {...ec, proofError: Some("Failed to parse session state")}},
-          Tea_Cmd.none,
-        )
-      }
-    | Error(err) => ({...model, echidna: {...ec, proofError: Some(err)}}, Tea_Cmd.none)
-    }
-  | CancelSession => (
-      {
-        ...model,
-        echidna: {
-          ...ec,
-          session: None,
-          tacticSuggestions: [],
-          sessionLoading: false,
-          tacticInput: "",
-          proofError: None,
-        },
-      },
-      Tea_Cmd.none,
-    )
-  | UpdateTacticInput(text) => ({...model, echidna: {...ec, tacticInput: text}}, Tea_Cmd.none)
-
-  // --- Tactic suggestions ---
-  | RequestTacticSuggestions =>
-    switch ec.session {
-    | Some(s) => (
-        model,
-        GossamerCmd.suggestEchidnaTactics(s.sessionId, 5, result => Echidna(
-          TacticSuggestionsLoaded(result),
-        )),
-      )
-    | None => (model, Tea_Cmd.none)
-    }
-  | TacticSuggestionsLoaded(result) =>
-    switch result {
-    | Ok(json) =>
-      let suggestions = parseTacticSuggestions(json)
-      ({...model, echidna: {...ec, tacticSuggestions: suggestions}}, Tea_Cmd.none)
-    | Error(_err) => ({...model, echidna: {...ec, tacticSuggestions: []}}, Tea_Cmd.none)
-    }
-
-  // --- UI state ---
-  | ToggleMenu => ({...model, echidna: {...ec, menuExpanded: !ec.menuExpanded}}, Tea_Cmd.none)
-  | UpdateProofInput(text) => ({...model, echidna: {...ec, proofInput: text}}, Tea_Cmd.none)
-  | SelectProver(prover) => ({...model, echidna: {...ec, selectedProver: prover}}, Tea_Cmd.none)
-  | ClearProofResult => (
-      {
-        ...model,
-        echidna: {...ec, lastProofResult: None, proofError: None, lastProofObligations: None},
-      },
-      Tea_Cmd.none,
-    )
-  | ProofObligationsGenerated(Ok(json)) => {
-      let newTypell = {...model.typell, queriesServed: model.typell.queriesServed + 1}
-      (
-        {...model, echidna: {...ec, lastProofObligations: Some(json)}, typell: newTypell},
-        Tea_Cmd.none,
-      )
-    }
-  | ProofObligationsGenerated(Error(_)) => {
-      UpdateHelpers.logDegradedService("TypeLL", "proof obligation generation failed")
-      (model, Tea_Cmd.none)
-    }
-  | ToggleEchidnaBojRouting => (
-      {...model, echidna: {...ec, bojRouting: !ec.bojRouting}},
-      Tea_Cmd.none,
-    )
-
-  // --- Tab switching ---
-  | SelectEchidnaTab(tab) => ({...model, echidna: {...ec, activeTab: tab}}, Tea_Cmd.none)
-
-  // --- Enterprise model checking (MOF/OCL) ---
-  | ImportXmiModel => (model, Tea_Cmd.none) // Gossamer file dialog → parse XMI → XmiModelLoaded
-  | XmiModelLoaded(Ok(json)) => {
-      // Parse XMI JSON into model elements (simplified — real parser needed)
-      let em = ec.enterpriseModel
-      (
-        {...model, echidna: {...ec, enterpriseModel: {...em, lastXmiImport: Some(json)}}},
-        Tea_Cmd.none,
-      )
-    }
-  | XmiModelLoaded(Error(_)) => {
-      UpdateHelpers.logDegradedService("ECHIDNA", "XMI model import failed")
-      (model, Tea_Cmd.none)
-    }
-  | AddOclConstraint(context, name, expression) => {
-      let em = ec.enterpriseModel
-      let newConstraint: oclConstraint = {
-        context,
-        name,
-        expression,
-        severity: OclInvariant,
-        layer: M1_Model,
-        metamodel: UML,
-      }
-      (
-        {
-          ...model,
-          echidna: {
-            ...ec,
-            enterpriseModel: {...em, constraints: Array.concat(em.constraints, [newConstraint])},
-          },
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | RemoveOclConstraint(index) => {
-      let em = ec.enterpriseModel
-      let filtered = em.constraints->Array.filterWithIndex((_c, i) => i !== index)
-      ({...model, echidna: {...ec, enterpriseModel: {...em, constraints: filtered}}}, Tea_Cmd.none)
-    }
-  | RunOclCheck => {
-      let em = ec.enterpriseModel
-      ({...model, echidna: {...ec, enterpriseModel: {...em, checking: true}}}, Tea_Cmd.none)
-      // In production: dispatch to ECHIDNA backend for constraint checking
-    }
-  | OclCheckResult(Ok(_json)) => {
-      let em = ec.enterpriseModel
-      ({...model, echidna: {...ec, enterpriseModel: {...em, checking: false}}}, Tea_Cmd.none)
-    }
-  | OclCheckResult(Error(_)) => {
-      UpdateHelpers.logDegradedService("ECHIDNA", "OCL constraint check failed")
-      let em = ec.enterpriseModel
-      ({...model, echidna: {...ec, enterpriseModel: {...em, checking: false}}}, Tea_Cmd.none)
-    }
-  | SetMetamodelFilter(filter) => {
-      let em = ec.enterpriseModel
-      (
-        {...model, echidna: {...ec, enterpriseModel: {...em, activeMetamodel: filter}}},
-        Tea_Cmd.none,
-      )
-    }
-  | SetMofLayerFilter(filter) => {
-      let em = ec.enterpriseModel
-      ({...model, echidna: {...ec, enterpriseModel: {...em, activeLayer: filter}}}, Tea_Cmd.none)
-    }
-  | ClearEnterpriseModel => (
-      {
-        ...model,
-        echidna: {
-          ...ec,
-          enterpriseModel: {
-            elements: [],
-            constraints: [],
-            checkResults: [],
-            checking: false,
-            activeMetamodel: None,
-            activeLayer: None,
-            lastXmiImport: None,
-          },
-        },
-      },
-      Tea_Cmd.none,
-    )
-  }
-}
diff --git a/src/update/UpdateEditorBridge.affine b/src/update/UpdateEditorBridge.affine
new file mode 100644
index 00000000..9ee44ecc
--- /dev/null
+++ b/src/update/UpdateEditorBridge.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateEditorBridge;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateEditorBridge.res b/src/update/UpdateEditorBridge.res
deleted file mode 100644
index b0d29150..00000000
--- a/src/update/UpdateEditorBridge.res
+++ /dev/null
@@ -1,300 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// UpdateEditorBridge.res — Editor Bridge (external editor federation) sub-updater extracted from Update.res
-
-open Model
-open Msg
-
-/// Handles all Editor Bridge (external editor federation) messages.
-let updateEditorBridge = (model: model, msg: editorBridgeMsg): (model, Tea_Cmd.t<msg>) => {
-  let eb = model.editorBridge
-  switch msg {
-  | SetBridgeCategory(cat) => ({...model, editorBridge: {...eb, activeCategory: cat}}, Tea_Cmd.none)
-  | DetectEditor => (
-      {...model, editorBridge: {...eb, loading: true}},
-      EditorBridgeCmd.detectEditor(result => EditorBridge(EditorDetected(result))),
-    )
-  | EditorDetected(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-        let editorStr =
-          obj->Dict.get("editorKind")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-        let editorKind: EditorBridgeModel.editorKind = switch editorStr {
-        | "vscodium" => EditorVSCodium
-        | "vscode" => EditorVSCode
-        | "zed" => EditorZed
-        | "helix" => EditorHelix
-        | "neovim" => EditorNeovim
-        | "emacs" => EditorEmacs
-        | "kakoune" => EditorKakoune
-        | other => EditorCustom(other)
-        }
-        let connStr =
-          obj
-          ->Dict.get("connection")
-          ->Option.flatMap(JSON.Decode.string)
-          ->Option.getOr("disconnected")
-        let connection: EditorBridgeModel.editorConnection = switch connStr {
-        | "connected" => EditorConnected(editorStr)
-        | "connecting" => EditorConnecting
-        | _ => EditorDisconnected
-        }
-        Some((editorKind, connection))
-
-      | None => None
-      }
-      switch parsed {
-      | Some((editorKind, connection)) => (
-          {...model, editorBridge: {...eb, editorKind, connection, loading: false, error: None}},
-          Tea_Cmd.none,
-        )
-      | None => ({...model, editorBridge: {...eb, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | EditorDetected(Error(err)) => (
-      {...model, editorBridge: {...eb, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | ConnectLsp => (
-      {...model, editorBridge: {...eb, connection: EditorConnecting}},
-      if eb.bojRouting {
-        // Route through BoJ's lsp-mcp cartridge.
-        let args = `{"port": ${Int.toString(eb.lspPort)}}`
-        Tea_Cmd.batch(list{
-          BojCmd.invokeCartridgeWithLatency(
-            "lsp-mcp",
-            "connect",
-            args,
-            result => EditorBridge(LspConnected(result)),
-            (c, t, e) => RecordBojLatency(c, t, e),
-          ),
-          Tea_Cmd.msg(Vexometer(RecordVclQuery)),
-          TypeLLService.checkConfigTypes(args, "editor-bridge", result => EditorBridge(
-            TypeCheckResult(result),
-          )),
-        })
-      } else {
-        Tea_Cmd.batch(list{
-          EditorBridgeCmd.connectLsp(eb.lspPort, result => EditorBridge(LspConnected(result))),
-          TypeLLService.checkConfigTypes(
-            Int.toString(eb.lspPort),
-            "editor-bridge",
-            result => EditorBridge(TypeCheckResult(result)),
-          ),
-        })
-      },
-    )
-  | LspConnected(Ok(info)) => (
-      {...model, editorBridge: {...eb, connection: EditorConnected(info), error: None}},
-      Tea_Cmd.none,
-    )
-  | LspConnected(Error(err)) => (
-      {...model, editorBridge: {...eb, connection: EditorError(err), error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | RefreshDiagnostics => (
-      {...model, editorBridge: {...eb, loading: true}},
-      if eb.bojRouting {
-        BojCmd.invokeCartridgeWithLatency(
-          "lsp-mcp",
-          "diagnostics",
-          "{}",
-          result => EditorBridge(DiagnosticsReceived(result)),
-          (c, t, e) => RecordBojLatency(c, t, e),
-        )
-      } else {
-        EditorBridgeCmd.readDiagnostics(result => EditorBridge(DiagnosticsReceived(result)))
-      },
-    )
-  | DiagnosticsReceived(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let items = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let filePath =
-            obj->Dict.get("filePath")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let line = obj->Dict.get("line")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let col = obj->Dict.get("col")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let endLine =
-            obj->Dict.get("endLine")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let endCol = obj->Dict.get("endCol")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let severity =
-            obj->Dict.get("severity")->Option.flatMap(JSON.Decode.string)->Option.getOr("warning")
-          let message =
-            obj->Dict.get("message")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let source = obj->Dict.get("source")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let code = obj->Dict.get("code")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          Some({
-            EditorBridgeModel.filePath,
-            line: Float.toInt(line),
-            col: Float.toInt(col),
-            endLine: Float.toInt(endLine),
-            endCol: Float.toInt(endCol),
-            severity,
-            message,
-            source,
-            code,
-          })
-        })
-        Some(items)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(diagnostics) => (
-          {...model, editorBridge: {...eb, diagnostics, loading: false, error: None}},
-          Tea_Cmd.none,
-        )
-      | None => ({...model, editorBridge: {...eb, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | DiagnosticsReceived(Error(err)) => (
-      {...model, editorBridge: {...eb, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | RefreshOpenFiles => (
-      {...model, editorBridge: {...eb, loading: true}},
-      EditorBridgeCmd.readOpenFiles(result => EditorBridge(OpenFilesReceived(result))),
-    )
-  | OpenFilesReceived(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let items = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let path = obj->Dict.get("path")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let language =
-            obj->Dict.get("language")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let modified =
-            obj->Dict.get("modified")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-          let cursorLine =
-            obj->Dict.get("cursorLine")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let cursorCol =
-            obj->Dict.get("cursorCol")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let selections =
-            obj->Dict.get("selections")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          Some({
-            EditorBridgeModel.path,
-            language,
-            modified,
-            cursorLine: Float.toInt(cursorLine),
-            cursorCol: Float.toInt(cursorCol),
-            selections: Float.toInt(selections),
-          })
-        })
-        Some(items)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(openFiles) => (
-          {...model, editorBridge: {...eb, openFiles, loading: false, error: None}},
-          Tea_Cmd.none,
-        )
-      | None => ({...model, editorBridge: {...eb, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | OpenFilesReceived(Error(err)) => (
-      {...model, editorBridge: {...eb, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | RefreshSymbols => (
-      {...model, editorBridge: {...eb, loading: true}},
-      if eb.bojRouting {
-        let args = `{"query": "${eb.symbolFilter}"}`
-        BojCmd.invokeCartridgeWithLatency(
-          "lsp-mcp",
-          "symbols",
-          args,
-          result => EditorBridge(SymbolsReceived(result)),
-          (c, t, e) => RecordBojLatency(c, t, e),
-        )
-      } else {
-        EditorBridgeCmd.readSymbols(eb.symbolFilter, result => EditorBridge(
-          SymbolsReceived(result),
-        ))
-      },
-    )
-  | SymbolsReceived(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let items = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let name = obj->Dict.get("name")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let kind = obj->Dict.get("kind")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let filePath =
-            obj->Dict.get("filePath")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let line = obj->Dict.get("line")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let containerName =
-            obj->Dict.get("containerName")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          Some({
-            EditorBridgeModel.name,
-            kind,
-            filePath,
-            line: Float.toInt(line),
-            containerName,
-          })
-        })
-        Some(items)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(symbols) => (
-          {...model, editorBridge: {...eb, symbols, loading: false, error: None}},
-          Tea_Cmd.none,
-        )
-      | None => ({...model, editorBridge: {...eb, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | SymbolsReceived(Error(err)) => (
-      {...model, editorBridge: {...eb, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | OpenFileInEditor(path, line) => (
-      model,
-      EditorBridgeCmd.openFileAtLine(path, line, result => EditorBridge(FileOpened(result))),
-    )
-  | FileOpened(Ok(_)) => (model, Tea_Cmd.none)
-  | FileOpened(Error(err)) => ({...model, editorBridge: {...eb, error: Some(err)}}, Tea_Cmd.none)
-  | RefreshBridge => (
-      {...model, editorBridge: {...eb, loading: true}},
-      EditorBridgeCmd.detectEditor(result => EditorBridge(EditorDetected(result))),
-    )
-  | SetDiagnosticFilter(text) => (
-      {...model, editorBridge: {...eb, diagnosticFilter: text}},
-      Tea_Cmd.none,
-    )
-  | ToggleShowErrors => (
-      {...model, editorBridge: {...eb, showErrors: !eb.showErrors}},
-      Tea_Cmd.none,
-    )
-  | ToggleShowWarnings => (
-      {...model, editorBridge: {...eb, showWarnings: !eb.showWarnings}},
-      Tea_Cmd.none,
-    )
-  | ToggleShowInfo => ({...model, editorBridge: {...eb, showInfo: !eb.showInfo}}, Tea_Cmd.none)
-  | SetSymbolFilter(text) => ({...model, editorBridge: {...eb, symbolFilter: text}}, Tea_Cmd.none)
-  | SetEditorKind(editor) => ({...model, editorBridge: {...eb, editorKind: editor}}, Tea_Cmd.none)
-  | ToggleAutoSync => ({...model, editorBridge: {...eb, autoSync: !eb.autoSync}}, Tea_Cmd.none)
-  | ToggleBojRouting => (
-      {...model, editorBridge: {...eb, bojRouting: !eb.bojRouting}},
-      Tea_Cmd.none,
-    )
-  | DismissBridgeError => ({...model, editorBridge: {...eb, error: None}}, Tea_Cmd.none)
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "editorbridge", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateEnsaidConfig.affine b/src/update/UpdateEnsaidConfig.affine
new file mode 100644
index 00000000..4e2b87c3
--- /dev/null
+++ b/src/update/UpdateEnsaidConfig.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateEnsaidConfig;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateEnsaidConfig.res b/src/update/UpdateEnsaidConfig.res
deleted file mode 100644
index c397563b..00000000
--- a/src/update/UpdateEnsaidConfig.res
+++ /dev/null
@@ -1,67 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-let updateEnsaidConfig = (model: model, msg: ensaidConfigMsg): (model, Tea_Cmd.t<msg>) => {
-  let humidityStr = switch model.humidity {
-  | High => "high"
-  | Medium => "medium"
-  | Low => "low"
-  }
-  switch msg {
-  | GenerateAndWrite => {
-      let content = EnsaidConfigEngine.generate(
-        ~repoName="(current repo)",
-        ~workspace=model.workspace,
-        ~humidity=humidityStr,
-        ~panelConfigs=model.provisioner.panelConfigs,
-        ~portfolios=model.provisioner.portfolios,
-        ~automationRules=model.automationRouter.rules,
-        (),
-      )
-      (
-        {...model, ensaidConfigPreview: Some(content)},
-        EnsaidConfigCmd.writeConfig(".", content, result => EnsaidConfig(ConfigWritten(result))),
-      )
-    }
-  | PreviewConfig => {
-      let content = EnsaidConfigEngine.generate(
-        ~repoName="(current repo)",
-        ~workspace=model.workspace,
-        ~humidity=humidityStr,
-        ~panelConfigs=model.provisioner.panelConfigs,
-        ~portfolios=model.provisioner.portfolios,
-        ~automationRules=model.automationRouter.rules,
-        (),
-      )
-      ({...model, ensaidConfigPreview: Some(content)}, Tea_Cmd.none)
-    }
-  | PreviewReady(content) => ({...model, ensaidConfigPreview: Some(content)}, Tea_Cmd.none)
-  | ConfigWritten(Ok(_)) => ({...model, ensaidConfigError: None}, Tea_Cmd.none)
-  | ConfigWritten(Error(err)) => ({...model, ensaidConfigError: Some(err)}, Tea_Cmd.none)
-  | ReadFromRepo => (
-      model,
-      EnsaidConfigCmd.readConfig(".", result => EnsaidConfig(ConfigRead(result))),
-    )
-  | ConfigRead(Ok(content)) => (
-      {...model, ensaidConfigPreview: Some(content), ensaidConfigError: None},
-      Tea_Cmd.none,
-    )
-  | ConfigRead(Error(err)) => ({...model, ensaidConfigError: Some(err)}, Tea_Cmd.none)
-  | DismissConfigError => ({...model, ensaidConfigError: None}, Tea_Cmd.none)
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "ensaid-config", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => {
-      UpdateHelpers.logDegradedService("TypeLL", "cross-panel type check failed")
-      (model, Tea_Cmd.none)
-    }
-  }
-}
diff --git a/src/update/UpdateEvangeliser.affine b/src/update/UpdateEvangeliser.affine
new file mode 100644
index 00000000..0d6b0e8f
--- /dev/null
+++ b/src/update/UpdateEvangeliser.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateEvangeliser;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateEvangeliser.res b/src/update/UpdateEvangeliser.res
deleted file mode 100644
index 309c2c82..00000000
--- a/src/update/UpdateEvangeliser.res
+++ /dev/null
@@ -1,69 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-let updateEvangeliser = (model: model, msg: evangeliserMsg): (model, Tea_Cmd.t<msg>) => {
-  let ev = model.evangeliser
-  switch msg {
-  | SetJsInput(code) => ({...model, evangeliser: {...ev, jsInput: code}}, Tea_Cmd.none)
-  | RunScan => {
-      // Run the scan synchronously (pure computation, no side effects)
-      let analysis = EvangeliserEngine.scanCode(ev.jsInput, ev.patterns, ev.constraints)
-      (
-        {
-          ...model,
-          evangeliser: {
-            ...ev,
-            analysis: Some(analysis),
-            scanning: false,
-            scanError: None,
-            activeTab: TabResults,
-          },
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | ScanComplete(result) =>
-    switch result {
-    | Ok(analysis) => (
-        {
-          ...model,
-          evangeliser: {...ev, analysis: Some(analysis), scanning: false, scanError: None},
-        },
-        Tea_Cmd.none,
-      )
-    | Error(err) => (
-        {...model, evangeliser: {...ev, scanning: false, scanError: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | SetTab(tab) => ({...model, evangeliser: {...ev, activeTab: tab}}, Tea_Cmd.none)
-  | SetViewLayer(vl) => ({...model, evangeliser: {...ev, viewLayer: vl}}, Tea_Cmd.none)
-  | SetMinConfidence(conf) => (
-      {...model, evangeliser: {...ev, constraints: {...ev.constraints, minConfidence: conf}}},
-      Tea_Cmd.none,
-    )
-  | SetDifficultyFilter(diff) => (
-      {...model, evangeliser: {...ev, constraints: {...ev.constraints, difficultyFilter: diff}}},
-      Tea_Cmd.none,
-    )
-  | ToggleCategory(cat) => {
-      let cats = ev.constraints.enabledCategories
-      let newCats = if cats->Array.includes(cat) {
-        cats->Array.filter(c => c !== cat)
-      } else {
-        Array.concat(cats, [cat])
-      }
-      (
-        {
-          ...model,
-          evangeliser: {...ev, constraints: {...ev.constraints, enabledCategories: newCats}},
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | SelectMatch(idx) => ({...model, evangeliser: {...ev, selectedMatchIndex: idx}}, Tea_Cmd.none)
-  | SetFilterText(text) => ({...model, evangeliser: {...ev, filterText: text}}, Tea_Cmd.none)
-  | DismissError => ({...model, evangeliser: {...ev, error: None, scanError: None}}, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateFarm.affine b/src/update/UpdateFarm.affine
new file mode 100644
index 00000000..5b8acb2c
--- /dev/null
+++ b/src/update/UpdateFarm.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateFarm;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateFarm.res b/src/update/UpdateFarm.res
deleted file mode 100644
index 19dfc3bb..00000000
--- a/src/update/UpdateFarm.res
+++ /dev/null
@@ -1,64 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-/// STATE TRANSITION: Git-Private-Farm (repo inventory)
-///
-/// Handles loading the manifest, parsing the inventory, and UI state changes
-/// (category, filter, sort). The backend reads local JSON — no HTTP service.
-let updateFarm = (model: model, msg: farmMsg): (model, Tea_Cmd.t<msg>) => {
-  let farm = model.farm
-  switch msg {
-  | LoadRepos => (
-      {...model, farm: {...farm, loading: true, error: None}},
-      FarmCmd.listRepos(result => Farm(ReposLoaded(result))),
-    )
-  | ReposLoaded(result) =>
-    switch result {
-    | Ok(jsonStr) =>
-      switch FarmEngine.parseInventory(jsonStr) {
-      | Ok(repos) => (
-          {
-            ...model,
-            farm: {
-              ...farm,
-              loaded: true,
-              loading: false,
-              error: None,
-              repos,
-              totalRepos: Array.length(repos),
-              unhealthyCount: repos
-              ->Array.filter(r =>
-                switch r.healthScore {
-                | Some(s) => s < 0.5
-                | None => false
-                }
-              )
-              ->Array.length,
-            },
-          },
-          TypeLLService.checkConfigTypes(jsonStr, "farm", result => Farm(TypeCheckResult(result))),
-        )
-      | Error(e) => ({...model, farm: {...farm, loading: false, error: Some(e)}}, Tea_Cmd.none)
-      }
-    | Error(e) => ({...model, farm: {...farm, loading: false, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | SetFarmCategory(cat) => ({...model, farm: {...farm, activeCategory: cat}}, Tea_Cmd.none)
-  | SetFarmFilter(text) => ({...model, farm: {...farm, filterText: text}}, Tea_Cmd.none)
-  | SetFarmSort(sort) => ({...model, farm: {...farm, sortBy: sort}}, Tea_Cmd.none)
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "farm", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => {
-      UpdateHelpers.logDegradedService("TypeLL", "cross-panel type check failed")
-      (model, Tea_Cmd.none)
-    }
-  }
-}
diff --git a/src/update/UpdateFleet.affine b/src/update/UpdateFleet.affine
new file mode 100644
index 00000000..24d0594e
--- /dev/null
+++ b/src/update/UpdateFleet.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateFleet;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateFleet.res b/src/update/UpdateFleet.res
deleted file mode 100644
index d7f36133..00000000
--- a/src/update/UpdateFleet.res
+++ /dev/null
@@ -1,86 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-/// STATE TRANSITION: Gitbot-Fleet (6-bot orchestration)
-///
-/// Handles fleet loading, bot status parsing, findings parsing, category
-/// navigation, and text filtering. The fleet backend is an Axum API at :8080.
-let updateFleet = (model: model, msg: fleetMsg): (model, Tea_Cmd.t<msg>) => {
-  let fleet = model.fleet
-  switch msg {
-  | LoadFleet => (
-      {...model, fleet: {...fleet, loading: true, error: None}},
-      Tea_Cmd.batch(list{
-        FleetCmd.fetchBots(result => Fleet(BotsLoaded(result))),
-        FleetCmd.fetchFindings(result => Fleet(FindingsLoaded(result))),
-        TypeLLService.checkConfigTypes("fleet-dispatch", "fleet", result => Fleet(
-          TypeCheckResult(result),
-        )),
-      }),
-    )
-  | BotsLoaded(result) =>
-    switch result {
-    | Ok(jsonStr) =>
-      switch FleetEngine.parseBots(jsonStr) {
-      | Ok(bots) => {
-          let health = FleetEngine.computeHealth(bots, fleet.findings)
-          (
-            {
-              ...model,
-              fleet: {
-                ...fleet,
-                loaded: true,
-                loading: false,
-                error: None,
-                bots,
-                health: Some(health),
-              },
-            },
-            Tea_Cmd.none,
-          )
-        }
-      | Error(e) => ({...model, fleet: {...fleet, loading: false, error: Some(e)}}, Tea_Cmd.none)
-      }
-    | Error(e) => ({...model, fleet: {...fleet, loading: false, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | FindingsLoaded(result) =>
-    switch result {
-    | Ok(jsonStr) =>
-      switch FleetEngine.parseFindings(jsonStr) {
-      | Ok(findings) => {
-          let health = FleetEngine.computeHealth(fleet.bots, findings)
-          (
-            {
-              ...model,
-              fleet: {
-                ...fleet,
-                loaded: true,
-                loading: false,
-                findings,
-                health: Some(health),
-              },
-            },
-            Tea_Cmd.none,
-          )
-        }
-      | Error(e) => ({...model, fleet: {...fleet, loading: false, error: Some(e)}}, Tea_Cmd.none)
-      }
-    | Error(e) => ({...model, fleet: {...fleet, loading: false, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | SetFleetCategory(cat) => ({...model, fleet: {...fleet, activeCategory: cat}}, Tea_Cmd.none)
-  | SetFleetFilter(text) => ({...model, fleet: {...fleet, filterText: text}}, Tea_Cmd.none)
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "fleet", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateFloorRaise.affine b/src/update/UpdateFloorRaise.affine
new file mode 100644
index 00000000..e05a47f5
--- /dev/null
+++ b/src/update/UpdateFloorRaise.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateFloorRaise;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateFloorRaise.res b/src/update/UpdateFloorRaise.res
deleted file mode 100644
index 722fdc28..00000000
--- a/src/update/UpdateFloorRaise.res
+++ /dev/null
@@ -1,213 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-// ════════════════════════════════════════════════════════════════════════
-// Floor Raise campaign panel sub-updaters
-// ════════════════════════════════════════════════════════════════════════
-
-/// Floor Raise campaign dashboard — tab switching, scan, campaign dispatch.
-let updateFloorRaise = (model: model, msg: floorRaiseMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.floorRaise
-  switch msg {
-  | SetTab(tab) => ({...model, floorRaise: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | ScanAdoption => ({...model, floorRaise: {...state, scanning: true, error: None}}, Tea_Cmd.none)
-  | AdoptionScanned(Ok(_json)) => (
-      {...model, floorRaise: {...state, scanning: false}},
-      Tea_Cmd.none,
-    )
-  | AdoptionScanned(Error(err)) => (
-      {...model, floorRaise: {...state, scanning: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | RunCampaign(_tool) => (model, Tea_Cmd.none)
-  | CampaignResult(Ok(_json)) => (model, Tea_Cmd.none)
-  | CampaignResult(Error(err)) => (
-      {...model, floorRaise: {...state, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | ClearError => ({...model, floorRaise: {...state, error: None}}, Tea_Cmd.none)
-  }
-}
-
-/// Proven Adoption scanner — tab switching, scan, repo selection.
-let updateProvenAdoption = (model: model, msg: provenAdoptionMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.provenAdoption
-  switch msg {
-  | SetTab(tab) => ({...model, provenAdoption: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | ScanRepos => ({...model, provenAdoption: {...state, scanning: true, error: None}}, Tea_Cmd.none)
-  | ReposScanned(Ok(_json)) => (
-      {...model, provenAdoption: {...state, scanning: false}},
-      Tea_Cmd.none,
-    )
-  | ReposScanned(Error(err)) => (
-      {...model, provenAdoption: {...state, scanning: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | SelectRepo(name) => (
-      {...model, provenAdoption: {...state, selectedRepo: Some(name)}},
-      Tea_Cmd.none,
-    )
-  | ClearError => ({...model, provenAdoption: {...state, error: None}}, Tea_Cmd.none)
-  }
-}
-
-/// Contractile Completeness scanner — tab switching, scan, repo selection.
-let updateContractileCompleteness = (model: model, msg: contractileCompletenessMsg): (
-  model,
-  Tea_Cmd.t<msg>,
-) => {
-  let state = model.contractileCompleteness
-  switch msg {
-  | SetTab(tab) => ({...model, contractileCompleteness: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | ScanRepos => (
-      {...model, contractileCompleteness: {...state, scanning: true, error: None}},
-      Tea_Cmd.none,
-    )
-  | ReposScanned(Ok(_json)) => (
-      {...model, contractileCompleteness: {...state, scanning: false}},
-      Tea_Cmd.none,
-    )
-  | ReposScanned(Error(err)) => (
-      {...model, contractileCompleteness: {...state, scanning: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | SelectRepo(name) => (
-      {...model, contractileCompleteness: {...state, selectedRepo: Some(name)}},
-      Tea_Cmd.none,
-    )
-  | ClearError => ({...model, contractileCompleteness: {...state, error: None}}, Tea_Cmd.none)
-  }
-}
-
-/// Manifest Coverage scanner — tab switching, scan, repo selection.
-let updateManifestCoverage = (model: model, msg: manifestCoverageMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.manifestCoverage
-  switch msg {
-  | SetTab(tab) => ({...model, manifestCoverage: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | ScanRepos => (
-      {...model, manifestCoverage: {...state, scanning: true, error: None}},
-      Tea_Cmd.none,
-    )
-  | ReposScanned(Ok(_json)) => (
-      {...model, manifestCoverage: {...state, scanning: false}},
-      Tea_Cmd.none,
-    )
-  | ReposScanned(Error(err)) => (
-      {...model, manifestCoverage: {...state, scanning: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | SelectRepo(name) => (
-      {...model, manifestCoverage: {...state, selectedRepo: Some(name)}},
-      Tea_Cmd.none,
-    )
-  | ClearError => ({...model, manifestCoverage: {...state, error: None}}, Tea_Cmd.none)
-  }
-}
-
-/// VeriSimDB Feeds viewer — tab switching, health check, feed selection.
-let updateVerisimdbFeeds = (model: model, msg: verisimdbFeedsMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.verisimdbFeeds
-  switch msg {
-  | SetTab(tab) => ({...model, verisimdbFeeds: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | CheckFeeds => (
-      {...model, verisimdbFeeds: {...state, checking: true, error: None}},
-      Tea_Cmd.none,
-    )
-  | FeedsChecked(Ok(_json)) => (
-      {...model, verisimdbFeeds: {...state, checking: false}},
-      Tea_Cmd.none,
-    )
-  | FeedsChecked(Error(err)) => (
-      {...model, verisimdbFeeds: {...state, checking: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | SelectFeed(feedId) => (
-      {...model, verisimdbFeeds: {...state, selectedFeed: Some(feedId)}},
-      Tea_Cmd.none,
-    )
-  | ClearError => ({...model, verisimdbFeeds: {...state, error: None}}, Tea_Cmd.none)
-  }
-}
-
-/// Feedback Routing viewer — tab switching, refresh, report selection.
-let updateFeedbackRouting = (model: model, msg: feedbackRoutingMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.feedbackRouting
-  switch msg {
-  | SetTab(tab) => ({...model, feedbackRouting: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | RefreshReports => (
-      {...model, feedbackRouting: {...state, refreshing: true, error: None}},
-      Tea_Cmd.none,
-    )
-  | ReportsRefreshed(Ok(_json)) => (
-      {...model, feedbackRouting: {...state, refreshing: false}},
-      Tea_Cmd.none,
-    )
-  | ReportsRefreshed(Error(err)) => (
-      {...model, feedbackRouting: {...state, refreshing: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | SelectReport(reportId) => (
-      {...model, feedbackRouting: {...state, selectedReport: Some(reportId)}},
-      Tea_Cmd.none,
-    )
-  | ClearError => ({...model, feedbackRouting: {...state, error: None}}, Tea_Cmd.none)
-  }
-}
-
-/// 007 Toolchain update handler.
-let updateOo7Toolchain = (model: model, msg: oo7Msg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.oo7toolchain
-  switch msg {
-  | SetCategory(cat) => ({...model, oo7toolchain: {...state, activeCategory: cat}}, Tea_Cmd.none)
-  | ConnectDaemon => (
-      {...model, oo7toolchain: {...state, loading: true, error: None}},
-      Tea_Cmd.none,
-    )
-  | DisconnectDaemon => ({...model, oo7toolchain: {...state, isConnected: false}}, Tea_Cmd.none)
-  | SetPermissions(p) => ({...model, oo7toolchain: {...state, permissions: p}}, Tea_Cmd.none)
-  | RunStage(_stage) => ({...model, oo7toolchain: {...state, loading: true}}, Tea_Cmd.none)
-  | StageResult(stage, result) =>
-    switch result {
-    | Ok(out) =>
-      let newOutputs = state.stageOutputs->Array.filter(((s, _)) => s !== stage)
-      let newOutputs = Array.concat(newOutputs, [(stage, out)])
-      ({...model, oo7toolchain: {...state, loading: false, stageOutputs: newOutputs}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, oo7toolchain: {...state, loading: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | UpdateSource(code) => ({...model, oo7toolchain: {...state, sourceCode: code}}, Tea_Cmd.none)
-  | LoadToolchain => ({...model, oo7toolchain: {...state, loaded: true}}, Tea_Cmd.none)
-  | ClearError => ({...model, oo7toolchain: {...state, error: None}}, Tea_Cmd.none)
-  }
-}
-
-/// Vexometer Friction viewer — tab switching, measurement, tool selection.
-let updateVexometerFriction = (model: model, msg: vexometerFrictionMsg): (
-  model,
-  Tea_Cmd.t<msg>,
-) => {
-  let state = model.vexometerFriction
-  switch msg {
-  | SetTab(tab) => ({...model, vexometerFriction: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | MeasureAll => (
-      {...model, vexometerFriction: {...state, measuring: true, error: None}},
-      Tea_Cmd.none,
-    )
-  | MeasureResult(Ok(_json)) => (
-      {...model, vexometerFriction: {...state, measuring: false}},
-      Tea_Cmd.none,
-    )
-  | MeasureResult(Error(err)) => (
-      {...model, vexometerFriction: {...state, measuring: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | SelectTool(name) => (
-      {...model, vexometerFriction: {...state, selectedTool: Some(name)}},
-      Tea_Cmd.none,
-    )
-  | ClearError => ({...model, vexometerFriction: {...state, error: None}}, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateFocusDimming.affine b/src/update/UpdateFocusDimming.affine
new file mode 100644
index 00000000..453335c2
--- /dev/null
+++ b/src/update/UpdateFocusDimming.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateFocusDimming;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateFocusDimming.res b/src/update/UpdateFocusDimming.res
deleted file mode 100644
index c02cc346..00000000
--- a/src/update/UpdateFocusDimming.res
+++ /dev/null
@@ -1,19 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-/// Update handler for focus dimming and Smart Memory Mode.
-/// Manages dimming mode, per-panel overrides, and interaction tracking.
-let updateFocusDimming = (model: model, msg: focusDimmingMsg): (model, Tea_Cmd.t<msg>) => {
-  let fd = model.focusDimming
-  switch msg {
-  | SetDimmingMode(mode) => ({...model, focusDimming: {...fd, mode}}, Tea_Cmd.none)
-  | SetPanelFocusOverride(panelId, override) =>
-    let state = FocusDimmingEngine.setOverride(panelId, override, fd)
-    ({...model, focusDimming: state}, Tea_Cmd.none)
-  | RecordInteraction(panelKey) =>
-    let state = FocusDimmingEngine.recordInteraction(fd, panelKey, Date.now())
-    ({...model, focusDimming: state}, Tea_Cmd.none)
-  | SetDimOpacity(opacity) => ({...model, focusDimming: {...fd, dimOpacity: opacity}}, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateGameDevBridges.affine b/src/update/UpdateGameDevBridges.affine
new file mode 100644
index 00000000..5a90bf91
--- /dev/null
+++ b/src/update/UpdateGameDevBridges.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateGameDevBridges;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateGameDevBridges.res b/src/update/UpdateGameDevBridges.res
deleted file mode 100644
index 0e84a1ca..00000000
--- a/src/update/UpdateGameDevBridges.res
+++ /dev/null
@@ -1,166 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-// ===========================================================================
-// Game Dev Panel Sub-Updaters — Bridge Panels
-// ===========================================================================
-
-/// Handles all Typing Bridge messages — TypeLL type constraints for game state.
-let updateTypingBridge = (model: model, msg: typingBridgeMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.typingBridge
-  switch msg {
-  | SetTbTab(tab) => ({...model, typingBridge: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | TbStarted => ({...model, typingBridge: {...state, running: true, error: None}}, Tea_Cmd.none)
-  | TbCompleted(result) =>
-    switch result {
-    | Ok(_) => ({...model, typingBridge: {...state, running: false}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, typingBridge: {...state, running: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | DismissTbError => ({...model, typingBridge: {...state, error: None}}, Tea_Cmd.none)
-  }
-}
-
-/// Handles all Neurosymbolic Bridge messages — guard AI behaviour reasoning via ECHIDNA.
-let updateNeurosymBridge = (model: model, msg: neurosymBridgeMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.neurosymBridge
-  switch msg {
-  | SetNbTab(tab) => ({...model, neurosymBridge: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | NbStarted => (
-      {...model, neurosymBridge: {...state, simulating: true, error: None}},
-      Tea_Cmd.none,
-    )
-  | NbCompleted(result) =>
-    switch result {
-    | Ok(_) => ({...model, neurosymBridge: {...state, simulating: false}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, neurosymBridge: {...state, simulating: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | DismissNbError => ({...model, neurosymBridge: {...state, error: None}}, Tea_Cmd.none)
-  }
-}
-
-/// Handles all Agentic Bridge messages — automated playtesting agents with OODA loop.
-let updateAgenticBridge = (model: model, msg: agenticBridgeMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.agenticBridge
-  switch msg {
-  | SetAbTab(tab) => ({...model, agenticBridge: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | AbStarted => ({...model, agenticBridge: {...state, running: true, error: None}}, Tea_Cmd.none)
-  | AbCompleted(result) =>
-    switch result {
-    | Ok(_) => ({...model, agenticBridge: {...state, running: false}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, agenticBridge: {...state, running: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | DismissAbError => ({...model, agenticBridge: {...state, error: None}}, Tea_Cmd.none)
-  }
-}
-
-/// Handles all Automation Bridge messages — CI/CD pipeline orchestration.
-let updateAutomationBridge = (model: model, msg: automationBridgeMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.automationBridge
-  switch msg {
-  | SetAutoBTab(tab) => ({...model, automationBridge: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | AutoBStarted => (
-      {...model, automationBridge: {...state, running: true, error: None}},
-      Tea_Cmd.none,
-    )
-  | AutoBCompleted(result) =>
-    switch result {
-    | Ok(_) => ({...model, automationBridge: {...state, running: false}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, automationBridge: {...state, running: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | DismissAutoBError => ({...model, automationBridge: {...state, error: None}}, Tea_Cmd.none)
-  }
-}
-
-/// Handles all Database Bridge messages — VeriSimDB game state persistence.
-let updateDatabaseBridge = (model: model, msg: databaseBridgeMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.databaseBridge
-  switch msg {
-  | SetDbBTab(tab) => ({...model, databaseBridge: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | DbBStarted => (
-      {...model, databaseBridge: {...state, connected: true, error: None}},
-      Tea_Cmd.none,
-    )
-  | DbBCompleted(result) =>
-    switch result {
-    | Ok(_) => ({...model, databaseBridge: {...state, connected: true}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, databaseBridge: {...state, connected: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | DismissDbBError => ({...model, databaseBridge: {...state, error: None}}, Tea_Cmd.none)
-  }
-}
-
-/// Handles all Protocol Bridge messages — multiplayer sync protocol analysis.
-let updateProtocolBridge = (model: model, msg: protocolBridgeMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.protocolBridge
-  switch msg {
-  | SetPbTab(tab) => ({...model, protocolBridge: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | PbStarted => (
-      {...model, protocolBridge: {...state, connected: true, error: None}},
-      Tea_Cmd.none,
-    )
-  | PbCompleted(result) =>
-    switch result {
-    | Ok(_) => ({...model, protocolBridge: {...state, connected: true}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, protocolBridge: {...state, connected: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | DismissPbError => ({...model, protocolBridge: {...state, error: None}}, Tea_Cmd.none)
-  }
-}
-
-/// Handles all Proofs Bridge messages — proven repo formal verification.
-let updateProofsBridge = (model: model, msg: proofsBridgeMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.proofsBridge
-  switch msg {
-  | SetPrBTab(tab) => ({...model, proofsBridge: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | PrBStarted => ({...model, proofsBridge: {...state, verifying: true, error: None}}, Tea_Cmd.none)
-  | PrBCompleted(result) =>
-    switch result {
-    | Ok(_) => ({...model, proofsBridge: {...state, verifying: false}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, proofsBridge: {...state, verifying: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | DismissPrBError => ({...model, proofsBridge: {...state, error: None}}, Tea_Cmd.none)
-  }
-}
-
-/// Handles all Scripting Bridge messages — VM instruction scripting REPL.
-let updateScriptingBridge = (model: model, msg: scriptingBridgeMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.scriptingBridge
-  switch msg {
-  | SetScBTab(tab) => ({...model, scriptingBridge: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | ScBStarted => (
-      {...model, scriptingBridge: {...state, executing: true, error: None}},
-      Tea_Cmd.none,
-    )
-  | ScBCompleted(result) =>
-    switch result {
-    | Ok(_) => ({...model, scriptingBridge: {...state, executing: false}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, scriptingBridge: {...state, executing: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | DismissScBError => ({...model, scriptingBridge: {...state, error: None}}, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateGameDevSpecific.affine b/src/update/UpdateGameDevSpecific.affine
new file mode 100644
index 00000000..ddd2a0e5
--- /dev/null
+++ b/src/update/UpdateGameDevSpecific.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateGameDevSpecific;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateGameDevSpecific.res b/src/update/UpdateGameDevSpecific.res
deleted file mode 100644
index 1ede4722..00000000
--- a/src/update/UpdateGameDevSpecific.res
+++ /dev/null
@@ -1,118 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-// ===========================================================================
-// Game Dev Panel Sub-Updaters — Game-Specific Panels
-// ===========================================================================
-
-/// Handles all Generator Mode messages — parametric procedural world builder.
-let updateGeneratorMode = (model: model, msg: generatorModeMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.generatorMode
-  switch msg {
-  | SetGenCategory(cat) => ({...model, generatorMode: {...state, activeTab: cat}}, Tea_Cmd.none)
-  | GenStarted => (
-      {...model, generatorMode: {...state, generating: true, error: None}},
-      Tea_Cmd.none,
-    )
-  | GenCompleted(result) =>
-    switch result {
-    | Ok(_) => ({...model, generatorMode: {...state, generating: false}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, generatorMode: {...state, generating: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | DismissGenError => ({...model, generatorMode: {...state, error: None}}, Tea_Cmd.none)
-  }
-}
-
-/// Handles all Architect Mode messages — PixiJS fine-grained level editor.
-/// Tab switching and error dismissal only (no running state field).
-let updateArchitectMode = (model: model, msg: architectModeMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.architectMode
-  switch msg {
-  | SetArchModeCategory(cat) => (
-      {...model, architectMode: {...state, activeTab: cat}},
-      Tea_Cmd.none,
-    )
-  | ArchModeStarted => (model, Tea_Cmd.none)
-  | ArchModeCompleted(_) => (model, Tea_Cmd.none)
-  | DismissArchModeError => ({...model, architectMode: {...state, error: None}}, Tea_Cmd.none)
-  }
-}
-
-/// Handles all Guard AI Tuner messages — guard patrol, alert threshold tuning.
-let updateGuardAiTuner = (model: model, msg: guardAiTunerMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.guardAiTuner
-  switch msg {
-  | SetGatCategory(cat) => ({...model, guardAiTuner: {...state, activeTab: cat}}, Tea_Cmd.none)
-  | GatStarted => ({...model, guardAiTuner: {...state, editing: true, error: None}}, Tea_Cmd.none)
-  | GatCompleted(result) =>
-    switch result {
-    | Ok(_) => ({...model, guardAiTuner: {...state, editing: false}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, guardAiTuner: {...state, editing: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | DismissGatError => ({...model, guardAiTuner: {...state, error: None}}, Tea_Cmd.none)
-  }
-}
-
-/// Handles all Device Network Designer messages — wire devices, security levels.
-let updateDeviceNetworkDesigner = (model: model, msg: deviceNetworkDesignerMsg): (
-  model,
-  Tea_Cmd.t<msg>,
-) => {
-  let state = model.deviceNetworkDesigner
-  switch msg {
-  | SetDndCategory(cat) => (
-      {...model, deviceNetworkDesigner: {...state, activeTab: cat}},
-      Tea_Cmd.none,
-    )
-  | DndStarted => (
-      {...model, deviceNetworkDesigner: {...state, wiringMode: true, error: None}},
-      Tea_Cmd.none,
-    )
-  | DndCompleted(result) =>
-    switch result {
-    | Ok(_) => ({...model, deviceNetworkDesigner: {...state, wiringMode: false}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, deviceNetworkDesigner: {...state, wiringMode: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | DismissDndError => ({...model, deviceNetworkDesigner: {...state, error: None}}, Tea_Cmd.none)
-  }
-}
-
-/// Handles all Asset Manager messages — PixiJS sprites, sounds, templates.
-let updateAssetManager = (model: model, msg: assetManagerMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.assetManager
-  switch msg {
-  | SetAmCategory(cat) => ({...model, assetManager: {...state, activeTab: cat}}, Tea_Cmd.none)
-  | AmStarted => ({...model, assetManager: {...state, importing: true, error: None}}, Tea_Cmd.none)
-  | AmCompleted(result) =>
-    switch result {
-    | Ok(_) => ({...model, assetManager: {...state, importing: false}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, assetManager: {...state, importing: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | DismissAmError => ({...model, assetManager: {...state, error: None}}, Tea_Cmd.none)
-  }
-}
-
-/// Handles all Playtest Recorder messages — record + replay sessions.
-/// Tab switching and error dismissal only (playback state managed externally).
-let updatePlaytestRecorder = (model: model, msg: playtestRecorderMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.playtestRecorder
-  switch msg {
-  | SetPrCategory(cat) => ({...model, playtestRecorder: {...state, activeTab: cat}}, Tea_Cmd.none)
-  | PrStarted => (model, Tea_Cmd.none)
-  | PrCompleted(_) => (model, Tea_Cmd.none)
-  | DismissPrError => ({...model, playtestRecorder: {...state, error: None}}, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateGameDevTesting.affine b/src/update/UpdateGameDevTesting.affine
new file mode 100644
index 00000000..8616e3de
--- /dev/null
+++ b/src/update/UpdateGameDevTesting.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateGameDevTesting;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateGameDevTesting.res b/src/update/UpdateGameDevTesting.res
deleted file mode 100644
index e5bfe8e3..00000000
--- a/src/update/UpdateGameDevTesting.res
+++ /dev/null
@@ -1,221 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-// ===========================================================================
-// Game Dev Panel Sub-Updaters — Testing & QA Panels
-// ===========================================================================
-
-/// Handles all Unit Test Runner messages — test execution, coverage heatmap.
-let updateUnitTestRunner = (model: model, msg: unitTestRunnerMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.unitTestRunner
-  switch msg {
-  | SetUtrTab(tab) => ({...model, unitTestRunner: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | UtrStarted => ({...model, unitTestRunner: {...state, running: true, error: None}}, Tea_Cmd.none)
-  | UtrCompleted(result) =>
-    switch result {
-    | Ok(_) => ({...model, unitTestRunner: {...state, running: false}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, unitTestRunner: {...state, running: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | DismissUtrError => ({...model, unitTestRunner: {...state, error: None}}, Tea_Cmd.none)
-  | _ => (model, Tea_Cmd.none) // Stub: unhandled unit test runner messages
-  }
-}
-
-/// Handles all Functional Tester messages — end-to-end game workflow simulation.
-let updateFunctionalTester = (model: model, msg: functionalTesterMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.functionalTester
-  switch msg {
-  | SetFtTab(tab) => ({...model, functionalTester: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | FtStarted => (
-      {...model, functionalTester: {...state, running: true, error: None}},
-      Tea_Cmd.none,
-    )
-  | FtCompleted(result) =>
-    switch result {
-    | Ok(_) => ({...model, functionalTester: {...state, running: false}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, functionalTester: {...state, running: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | DismissFtError => ({...model, functionalTester: {...state, error: None}}, Tea_Cmd.none)
-  | _ => (model, Tea_Cmd.none) // Stub: unhandled functional tester messages
-  }
-}
-
-/// Handles all Regression Guard messages — snapshot comparison, golden-file testing.
-let updateRegressionGuard = (model: model, msg: regressionGuardMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.regressionGuard
-  switch msg {
-  | SetRgTab(tab) => ({...model, regressionGuard: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | RgStarted => ({...model, regressionGuard: {...state, running: true, error: None}}, Tea_Cmd.none)
-  | RgCompleted(result) =>
-    switch result {
-    | Ok(_) => ({...model, regressionGuard: {...state, running: false}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, regressionGuard: {...state, running: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | DismissRgError => ({...model, regressionGuard: {...state, error: None}}, Tea_Cmd.none)
-  | _ => (model, Tea_Cmd.none) // Stub: unhandled regression guard messages
-  }
-}
-
-/// Handles all Performance Profiler messages — frame budget, GC pressure, flamegraphs.
-let updatePerformanceProfiler = (model: model, msg: performanceProfilerMsg): (
-  model,
-  Tea_Cmd.t<msg>,
-) => {
-  let state = model.performanceProfiler
-  switch msg {
-  | SetPpTab(tab) => ({...model, performanceProfiler: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | PpStarted => (
-      {...model, performanceProfiler: {...state, profiling: true, error: None}},
-      Tea_Cmd.none,
-    )
-  | PpCompleted(result) =>
-    switch result {
-    | Ok(_) => ({...model, performanceProfiler: {...state, profiling: false}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, performanceProfiler: {...state, profiling: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | DismissPpError => ({...model, performanceProfiler: {...state, error: None}}, Tea_Cmd.none)
-  | _ => (model, Tea_Cmd.none) // Stub: unhandled performance profiler messages
-  }
-}
-
-/// Handles all Load Tester messages — Phoenix channel stress testing.
-let updateLoadTester = (model: model, msg: loadTesterMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.loadTester
-  switch msg {
-  | SetLtTab(tab) => ({...model, loadTester: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | LtStarted => ({...model, loadTester: {...state, running: true, error: None}}, Tea_Cmd.none)
-  | LtCompleted(result) =>
-    switch result {
-    | Ok(_) => ({...model, loadTester: {...state, running: false}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, loadTester: {...state, running: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | DismissLtError => ({...model, loadTester: {...state, error: None}}, Tea_Cmd.none)
-  | _ => (model, Tea_Cmd.none) // Stub: unhandled load tester messages
-  }
-}
-
-/// Handles all Soak Monitor messages — long-running session memory trend.
-let updateSoakMonitor = (model: model, msg: soakMonitorMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.soakMonitor
-  switch msg {
-  | SetSmTab(tab) => ({...model, soakMonitor: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | SmStarted => ({...model, soakMonitor: {...state, monitoring: true, error: None}}, Tea_Cmd.none)
-  | SmCompleted(result) =>
-    switch result {
-    | Ok(_) => ({...model, soakMonitor: {...state, monitoring: false}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, soakMonitor: {...state, monitoring: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | DismissSmError => ({...model, soakMonitor: {...state, error: None}}, Tea_Cmd.none)
-  | _ => (model, Tea_Cmd.none) // Stub: unhandled soak monitor messages
-  }
-}
-
-/// Handles all Compatibility Matrix messages — browser/device/resolution test matrix.
-let updateCompatibilityMatrix = (model: model, msg: compatibilityMatrixMsg): (
-  model,
-  Tea_Cmd.t<msg>,
-) => {
-  let state = model.compatibilityMatrix
-  switch msg {
-  | SetCmTab(tab) => ({...model, compatibilityMatrix: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | CmStarted => (
-      {...model, compatibilityMatrix: {...state, running: true, error: None}},
-      Tea_Cmd.none,
-    )
-  | CmCompleted(result) =>
-    switch result {
-    | Ok(_) => ({...model, compatibilityMatrix: {...state, running: false}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, compatibilityMatrix: {...state, running: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | DismissCmError => ({...model, compatibilityMatrix: {...state, error: None}}, Tea_Cmd.none)
-  | _ => (model, Tea_Cmd.none) // Stub: unhandled compatibility matrix messages
-  }
-}
-
-/// Handles all Exploratory Workbench messages — freeform play session recording.
-let updateExploratoryWorkbench = (model: model, msg: exploratoryWorkbenchMsg): (
-  model,
-  Tea_Cmd.t<msg>,
-) => {
-  let state = model.exploratoryWorkbench
-  switch msg {
-  | SetEwTab(tab) => ({...model, exploratoryWorkbench: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | EwStarted => (
-      {...model, exploratoryWorkbench: {...state, recording: true, error: None}},
-      Tea_Cmd.none,
-    )
-  | EwCompleted(result) =>
-    switch result {
-    | Ok(_) => ({...model, exploratoryWorkbench: {...state, recording: false}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, exploratoryWorkbench: {...state, recording: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | DismissEwError => ({...model, exploratoryWorkbench: {...state, error: None}}, Tea_Cmd.none)
-  | _ => (model, Tea_Cmd.none) // Stub: unhandled exploratory workbench messages
-  }
-}
-
-/// Handles all Beta Feedback Hub messages — feedback-o-tron integration, sentiment.
-let updateBetaFeedbackHub = (model: model, msg: betaFeedbackHubMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.betaFeedbackHub
-  switch msg {
-  | SetBfhTab(tab) => ({...model, betaFeedbackHub: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | BfhStarted => (
-      {...model, betaFeedbackHub: {...state, submitting: true, error: None}},
-      Tea_Cmd.none,
-    )
-  | BfhCompleted(result) =>
-    switch result {
-    | Ok(_) => ({...model, betaFeedbackHub: {...state, submitting: false}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, betaFeedbackHub: {...state, submitting: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | DismissBfhError => ({...model, betaFeedbackHub: {...state, error: None}}, Tea_Cmd.none)
-  | _ => (model, Tea_Cmd.none) // Stub: unhandled beta feedback hub messages
-  }
-}
-
-/// Handles all Balance Analyser messages — game balance stats, Monte Carlo.
-let updateBalanceAnalyser = (model: model, msg: balanceAnalyserMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.balanceAnalyser
-  switch msg {
-  | SetBaTab(tab) => ({...model, balanceAnalyser: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | BaStarted => ({...model, balanceAnalyser: {...state, running: true, error: None}}, Tea_Cmd.none)
-  | BaCompleted(result) =>
-    switch result {
-    | Ok(_) => ({...model, balanceAnalyser: {...state, running: false}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, balanceAnalyser: {...state, running: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | DismissBaError => ({...model, balanceAnalyser: {...state, error: None}}, Tea_Cmd.none)
-  | _ => (model, Tea_Cmd.none) // Stub: unhandled balance analyser messages
-  }
-}
diff --git a/src/update/UpdateGamePreview.affine b/src/update/UpdateGamePreview.affine
new file mode 100644
index 00000000..69bef954
--- /dev/null
+++ b/src/update/UpdateGamePreview.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateGamePreview;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateGamePreview.res b/src/update/UpdateGamePreview.res
deleted file mode 100644
index 800df7e7..00000000
--- a/src/update/UpdateGamePreview.res
+++ /dev/null
@@ -1,226 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Extracted sub-updater for the Game Preview panel.
-/// Manages the live IDApTIK game preview — dev server connection, game loop control
-/// (pause/resume/step), overlay toggles, gameplay recording, clips, render stats,
-/// and device interaction logging.
-
-open Model
-open Msg
-
-let updateGamePreview = (model: model, msg: gamePreviewMsg): (model, Tea_Cmd.t<msg>) => {
-  let gp = model.gamePreview
-  switch msg {
-  | SetPreviewCategory(cat) => ({...model, gamePreview: {...gp, activeCategory: cat}}, Tea_Cmd.none)
-  | CheckDevServer => (
-      {...model, gamePreview: {...gp, loading: true}},
-      Tea_Cmd.batch(list{
-        GamePreviewCmd.checkDevServer(gp.devServerUrl, result => GamePreview(
-          DevServerResult(result),
-        )),
-        TypeLLService.checkGameDataTypes(gp.devServerUrl, "game-preview", result => GamePreview(
-          TypeCheckResult(result),
-        )),
-      }),
-    )
-  | DevServerResult(Ok(_)) => (
-      {...model, gamePreview: {...gp, devServerConnected: true, loading: false, error: None}},
-      Tea_Cmd.none,
-    )
-  | DevServerResult(Error(err)) => (
-      {...model, gamePreview: {...gp, devServerConnected: false, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | PauseGame => (
-      {...model, gamePreview: {...gp, execution: GamePaused}},
-      GamePreviewCmd.controlGameLoop("pause", result => GamePreview(GameControlResult(result))),
-    )
-  | ResumeGame => (
-      {...model, gamePreview: {...gp, execution: GameRunning}},
-      GamePreviewCmd.controlGameLoop("resume", result => GamePreview(GameControlResult(result))),
-    )
-  | StepFrame => (
-      {...model, gamePreview: {...gp, execution: GameStepping}},
-      GamePreviewCmd.controlGameLoop("step", result => GamePreview(GameControlResult(result))),
-    )
-  | GameControlResult(Ok(_)) => (model, Tea_Cmd.none)
-  | GameControlResult(Error(err)) => (
-      {...model, gamePreview: {...gp, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | ToggleOverlay(overlay) => (
-      {
-        ...model,
-        gamePreview: {
-          ...gp,
-          activeOverlays: GamePreviewEngine.toggleOverlay(gp.activeOverlays, overlay),
-        },
-      },
-      Tea_Cmd.none,
-    )
-  | StartGameRecording => (
-      {...model, gamePreview: {...gp, loading: true}},
-      GamePreviewCmd.startGameRecording("gameplay", result => GamePreview(
-        GameRecordingStarted(result),
-      )),
-    )
-  | StopGameRecording => (
-      {...model, gamePreview: {...gp, loading: true}},
-      GamePreviewCmd.stopGameRecording(result => GamePreview(GameRecordingStopped(result))),
-    )
-  | GameRecordingStarted(Ok(_)) => (
-      {
-        ...model,
-        gamePreview: {...gp, gameRecording: GameRecordingActive(0.0), loading: false, error: None},
-      },
-      Tea_Cmd.none,
-    )
-  | GameRecordingStarted(Error(err)) => (
-      {...model, gamePreview: {...gp, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | GameRecordingStopped(Ok(_)) => (
-      {
-        ...model,
-        gamePreview: {...gp, gameRecording: GameRecordingIdle, loading: false, error: None},
-      },
-      GamePreviewCmd.listClips(result => GamePreview(ClipsLoaded(result))),
-    )
-  | GameRecordingStopped(Error(err)) => (
-      {
-        ...model,
-        gamePreview: {...gp, gameRecording: GameRecordingIdle, loading: false, error: Some(err)},
-      },
-      Tea_Cmd.none,
-    )
-  | ScreenshotGame => (
-      model,
-      GamePreviewCmd.screenshotGameFrame(result => GamePreview(GameScreenshotCaptured(result))),
-    )
-  | GameScreenshotCaptured(Ok(_)) => (model, Tea_Cmd.none)
-  | GameScreenshotCaptured(Error(err)) => (
-      {...model, gamePreview: {...gp, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | SetZoom(level) => {
-      let clamped = if level < 0.25 {
-        0.25
-      } else if level > 4.0 {
-        4.0
-      } else {
-        level
-      }
-      ({...model, gamePreview: {...gp, zoomLevel: clamped}}, Tea_Cmd.none)
-    }
-  | ToggleMultiplayerView => (
-      {...model, gamePreview: {...gp, multiplayerView: !gp.multiplayerView}},
-      Tea_Cmd.none,
-    )
-  | LoadClips => (
-      {...model, gamePreview: {...gp, loading: true}},
-      GamePreviewCmd.listClips(result => GamePreview(ClipsLoaded(result))),
-    )
-  | ClipsLoaded(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let items = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let id = obj->Dict.get("id")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let name = obj->Dict.get("name")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let path = obj->Dict.get("path")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let durationSecs =
-            obj->Dict.get("durationSecs")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let sizeBytes =
-            obj->Dict.get("sizeBytes")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let createdAt =
-            obj->Dict.get("createdAt")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          Some({
-            GamePreviewModel.id,
-            name,
-            path,
-            durationSecs,
-            sizeBytes: Float.toInt(sizeBytes),
-            createdAt,
-          })
-        })
-        Some(items)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(clips) => (
-          {...model, gamePreview: {...gp, clips, loading: false, error: None}},
-          Tea_Cmd.none,
-        )
-      | None => ({...model, gamePreview: {...gp, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | ClipsLoaded(Error(err)) => (
-      {...model, gamePreview: {...gp, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | DeleteClip(id) => (
-      model,
-      GamePreviewCmd.deleteClip(id, result => GamePreview(ClipDeleted(result))),
-    )
-  | ClipDeleted(Ok(_)) => (
-      model,
-      GamePreviewCmd.listClips(result => GamePreview(ClipsLoaded(result))),
-    )
-  | ClipDeleted(Error(err)) => ({...model, gamePreview: {...gp, error: Some(err)}}, Tea_Cmd.none)
-  | RefreshStats => (
-      model,
-      GamePreviewCmd.fetchRenderStats(result => GamePreview(StatsReceived(result))),
-    )
-  | StatsReceived(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-        let fps = obj->Dict.get("fps")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-        let drawCalls =
-          obj->Dict.get("drawCalls")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-        let textureMemory =
-          obj->Dict.get("textureMemory")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-        let spriteCount =
-          obj->Dict.get("spriteCount")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-        Some({
-          GamePreviewModel.fps,
-          drawCalls: Float.toInt(drawCalls),
-          textureMemory: Float.toInt(textureMemory),
-          spriteCount: Float.toInt(spriteCount),
-        })
-
-      | None => None
-      }
-      switch parsed {
-      | Some(stats) => ({...model, gamePreview: {...gp, stats: Some(stats)}}, Tea_Cmd.none)
-      | None => (model, Tea_Cmd.none)
-      }
-    }
-  | StatsReceived(Error(err)) => ({...model, gamePreview: {...gp, error: Some(err)}}, Tea_Cmd.none)
-  | ClearDeviceLog => ({...model, gamePreview: {...gp, deviceLog: []}}, Tea_Cmd.none)
-  | DeviceInteractionEvent(entry) => {
-      let log = Array.concat(gp.deviceLog, [entry])
-      let trimmed = if Array.length(log) > 200 {
-        Array.sliceToEnd(log, ~start=Array.length(log) - 200)
-      } else {
-        log
-      }
-      ({...model, gamePreview: {...gp, deviceLog: trimmed}}, Tea_Cmd.none)
-    }
-  | DismissGameError => ({...model, gamePreview: {...gp, error: None}}, Tea_Cmd.none)
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "gamepreview", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateGovernance.affine b/src/update/UpdateGovernance.affine
new file mode 100644
index 00000000..f0c112b0
--- /dev/null
+++ b/src/update/UpdateGovernance.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateGovernance;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateGovernance.res b/src/update/UpdateGovernance.res
deleted file mode 100644
index 62dff78a..00000000
--- a/src/update/UpdateGovernance.res
+++ /dev/null
@@ -1,479 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Extracted sub-updaters for Cognitive Governance.
-/// Contains: updateVexometer, updateOrbital, updateView, updateFeedback,
-/// updateAntiCrash, and applyContractiles (the post-processing pass that
-/// runs after every state-modifying update).
-
-open Model
-open Msg
-
-// ===========================================================================
-// Cognitive Governance Sub-Updaters
-// ===========================================================================
-
-/// STATE TRANSITION: Vexometer
-/// Tracks operator vexation signals (cancellations, corrections) and manages
-/// the anti-inflammatory feedback system. Backend events are recorded via
-/// Gossamer commands so the Rust VexationTracker can compute the composite index.
-let updateVexometer = (model: model, msg: vexometerMsg): (model, Tea_Cmd.t<msg>) => {
-  let vex = model.vexometer
-  switch msg {
-  | RecordCancellation => (
-      {...model, vexometer: {...vex, recentCancellations: vex.recentCancellations + 1}},
-      GossamerCmd.recordVexationEvent("cancellation", _result => NoOp),
-    )
-  | RecordCorrection => (
-      {...model, vexometer: {...vex, recentCorrections: vex.recentCorrections + 1}},
-      GossamerCmd.recordVexationEvent("correction", _result => NoOp),
-    )
-  | RecordVclQuery => (
-      // VCL queries contribute to cognitive load — tracked as a lighter-weight event.
-      model,
-      GossamerCmd.recordVexationEvent("vcl_query", _result => NoOp),
-    )
-  | RequestVexationIndex => (
-      model,
-      GossamerCmd.getVexationIndex(index => Vexometer(UpdateVexationIndex(index))),
-    )
-  | UpdateVexationIndex(index) => ({...model, vexometer: {...vex, index}}, Tea_Cmd.none)
-  | ToggleAntiInflammatory(active) => (
-      {...model, vexometer: {...vex, antiInflammatoryActive: active}},
-      Tea_Cmd.none,
-    )
-  | SetInertiaDetected(detected) => (
-      {...model, vexometer: {...vex, inertiaDetected: detected}},
-      Tea_Cmd.none,
-    )
-  | ResetVexometer => (
-      {
-        ...model,
-        vexometer: {
-          index: 0.0,
-          recentCancellations: 0,
-          recentCorrections: 0,
-          antiInflammatoryActive: false,
-          inertiaDetected: false,
-        },
-      },
-      GossamerCmd.recordVexationEvent("reset", _result => NoOp),
-    )
-  }
-}
-
-/// STATE TRANSITION: Orbital Stability
-/// Manages the Binary Star co-orbit stability metrics and drift aura.
-/// The aura colour reflects orbit health: "indigo" (stable) or "amber" (decaying).
-let updateOrbital = (model: model, msg: orbitalMsg): (model, Tea_Cmd.t<msg>) => {
-  let orbital = model.orbital
-  switch msg {
-  | UpdateStability(value) => {
-      // Recalculate drift aura colour when stability changes.
-      let colour = if value >= 0.7 {
-        "indigo"
-      } else {
-        "amber"
-      }
-      ({...model, orbital: {...orbital, stability: value, driftAuraColour: colour}}, Tea_Cmd.none)
-    }
-  | UpdateDivergence(value) => (
-      {...model, orbital: {...orbital, divergenceLevel: value}},
-      Tea_Cmd.none,
-    )
-  | SetDriftAura(colour) => (
-      {...model, orbital: {...orbital, driftAuraColour: colour}},
-      Tea_Cmd.none,
-    )
-  }
-}
-
-// ===========================================================================
-// View & Feedback Sub-Updaters
-// ===========================================================================
-
-/// STATE TRANSITION: View Controls
-/// Manages pane visibility, view mode, and information humidity level.
-/// ParallaxAlign is a compound action that resets to the canonical three-pane layout.
-let updateView = (model: model, msg: viewMsg): (model, Tea_Cmd.t<msg>) => {
-  switch msg {
-  | TogglePaneL => ({...model, paneLVisible: !model.paneLVisible}, Tea_Cmd.none)
-  | TogglePaneN => ({...model, paneNVisible: !model.paneNVisible}, Tea_Cmd.none)
-  | TogglePaneW => ({...model, paneWVisible: !model.paneWVisible}, Tea_Cmd.none)
-  | ToggleProtocolAnalysis => (
-      {...model, protocolAnalysisVisible: !model.protocolAnalysisVisible},
-      Tea_Cmd.none,
-    )
-  | SetViewMode(mode) => ({...model, viewMode: mode}, Tea_Cmd.none)
-  | SetHumidity(level) => ({...model, humidity: level}, Tea_Cmd.none)
-  | ParallaxAlign => (
-      // Synchronous horizontal tiling: show all panes in Standard mode.
-      {...model, paneLVisible: true, paneNVisible: true, paneWVisible: true, viewMode: Standard},
-      Tea_Cmd.none,
-    )
-  | TogglePanelBar => ({...model, panelBarVisible: !model.panelBarVisible}, Tea_Cmd.none)
-  | ToggleFullscreen => (
-      // When entering fullscreen, hide the panel bar. When exiting, restore it.
-      {
-        ...model,
-        fullscreenActive: !model.fullscreenActive,
-        panelBarVisible: model.fullscreenActive,
-      },
-      Tea_Cmd.none,
-    )
-  }
-}
-
-/// STATE TRANSITION: Feedback-O-Tron
-/// Manages the feedback lifecycle: open dialog, submit to backend, cancel,
-/// and handle the asynchronous submission result.
-let updateFeedback = (model: model, msg: feedbackMsg): (model, Tea_Cmd.t<msg>) => {
-  switch msg {
-  | OpenFeedback => ({...model, feedbackPending: Some("")}, Tea_Cmd.none)
-  | SubmitFeedback(text) => {
-      let reportType = switch model.feedbackReportType {
-      | Some(t) => t
-      | None => "General"
-      }
-      (
-        model,
-        GossamerCmd.submitFeedback(
-          text,
-          model.paneN.monologue,
-          model.paneW.content,
-          reportType,
-          result => Feedback(FeedbackSubmissionResult(result)),
-        ),
-      )
-    }
-  | CancelFeedback => ({...model, feedbackPending: None}, Tea_Cmd.none)
-  | SetReportType(t) => ({...model, feedbackReportType: Some(t)}, Tea_Cmd.none)
-  | FeedbackSubmitted => {
-      // Build a JSON report from current feedback state and submit to Rust backend.
-      let reportType = switch model.feedbackReportType {
-      | Some(t) => t
-      | None => "General"
-      }
-      let feedbackText = switch model.feedbackPending {
-      | Some(text) => text
-      | None => ""
-      }
-      let reportJson = `{"type":"${reportType}","text":"${feedbackText}","timestamp":"${Date.make()->Date.toISOString}"}`
-      let cmd = FeedbackCmd.saveReport(reportJson, r => Feedback(FeedbackSubmissionResult(r)))
-      ({...model, feedbackPending: None, feedbackError: None}, cmd)
-    }
-  | FeedbackSubmissionResult(result) =>
-    switch result {
-    | Ok(_) => ({...model, feedbackPending: None, feedbackError: None}, Tea_Cmd.none)
-    | Error(err) => ({...model, feedbackError: Some(err)}, Tea_Cmd.none)
-    }
-  }
-}
-
-// ===========================================================================
-// Anti-Crash Sub-Updater
-// ===========================================================================
-
-/// STATE TRANSITION: Anti-Crash Validation
-/// Routes neural tokens through the symbolic validation pipeline (the Circuit
-/// Breaker) before they can reach the Task Barycentre. Halts inference when
-/// a strict violation is detected, requiring operator intervention to resume.
-let updateAntiCrash = (model: model, msg: antiCrashMsg): (model, Tea_Cmd.t<msg>) => {
-  switch msg {
-  | ValidateToken(token) => {
-      // Run the token through the full Anti-Crash pipeline.
-      let (newAntiCrash, validatedToken) = AntiCrash.processToken(
-        token,
-        model.paneL.constraints,
-        model.antiCrash,
-      )
-      // If the token passed validation, add it to the neural stream.
-      let newPaneN = switch validatedToken {
-      | Some(vt) => {
-          ...model.paneN,
-          tokens: Array.concat(model.paneN.tokens, [vt]),
-          nextTokenId: model.paneN.nextTokenId + 1,
-          activeCausalChain: [vt.id],
-        }
-      | None => model.paneN
-      }
-      // M4: Anti-Crash → Governance feedback. When a token is rejected,
-      // record a correction in the Vexometer so the governance engine
-      // can adjust contractile elasticity on the next pass.
-      let newVexometer = switch validatedToken {
-      | None => {...model.vexometer, recentCorrections: model.vexometer.recentCorrections + 1}
-      | Some(_) => model.vexometer
-      }
-      // Fire TypeLL type-level validation asynchronously for the token content.
-      let constraintExprs = Array.map(Array.filter(model.paneL.constraints, c => c.active), c =>
-        c.expression
-      )
-      let typellCmd = if Array.length(constraintExprs) > 0 {
-        TypeLLService.validateToken(token.content, constraintExprs, result => AntiCrash(
-          TokenTypeCheckResult(result),
-        ))
-      } else {
-        Tea_Cmd.none
-      }
-      ({...model, antiCrash: newAntiCrash, paneN: newPaneN, vexometer: newVexometer}, typellCmd)
-    }
-  | ValidationPassed(token) => {
-      // Token has already been validated externally — mark as validated and add.
-      let validatedToken = {...token, validated: true}
-      let newPaneN = {
-        ...model.paneN,
-        tokens: Array.concat(model.paneN.tokens, [validatedToken]),
-        nextTokenId: model.paneN.nextTokenId + 1,
-        activeCausalChain: [validatedToken.id],
-      }
-      ({...model, paneN: newPaneN}, Tea_Cmd.none)
-    }
-  | ValidationFailed(_token, reason) => {
-      // Record the violation and potentially halt inference.
-      let violation = LogicContradiction(reason)
-      let newAntiCrash = {
-        ...model.antiCrash,
-        violations: Array.concat(model.antiCrash.violations, [violation]),
-        halted: model.antiCrash.strictMode,
-      }
-      ({...model, antiCrash: newAntiCrash}, Tea_Cmd.none)
-    }
-  | RequestOperatorIntervention(_reason) => {
-      // Halt the system and wait for operator to review.
-      let newAntiCrash = {
-        ...model.antiCrash,
-        halted: true,
-      }
-      ({...model, antiCrash: newAntiCrash}, Tea_Cmd.none)
-    }
-  | TokenTypeCheckResult(Ok(_json)) => {
-      // TypeLL confirmed type safety — increment service counter.
-      let newTypell = {...model.typell, queriesServed: model.typell.queriesServed + 1}
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TokenTypeCheckResult(Error(reason)) => {
-      // TypeLL found a type violation — record it as a type-level constraint failure.
-      let violation = LogicContradiction("TypeLL: " ++ reason)
-      let newAntiCrash = {
-        ...model.antiCrash,
-        violations: Array.concat(model.antiCrash.violations, [violation]),
-      }
-      let newTypell = {...model.typell, queriesServed: model.typell.queriesServed + 1}
-      ({...model, antiCrash: newAntiCrash, typell: newTypell}, Tea_Cmd.none)
-    }
-  }
-}
-
-// ===========================================================================
-// Contractiles Post-Processing (Cognitive Governance)
-// ===========================================================================
-
-/// Evaluate all contractiles against the current model state and update their
-/// statuses. If any Strict contractile is Violated, halt neural inference as
-/// a safety measure. This is called after every state-modifying update in the
-/// main orchestrator.
-let applyContractiles = (model: model, cmd: Tea_Cmd.t<msg>): (model, Tea_Cmd.t<msg>) => {
-  // --- Phase 1: Evaluate contractiles ---
-
-  let results = Contractiles.evaluateAll(model, model.contractiles)
-
-  // Update each contractile's status based on evaluation results.
-  let updatedContractiles = Array.map(model.contractiles, c => {
-    let result = Array.find(results, r => r.contractId === c.id)
-    switch result {
-    | Some(r) => {...c, status: r.status}
-    | None => c
-    }
-  })
-
-  // Check for any Strict contractile violation — these require halting.
-  let hasStrictViolation = Array.some(results, r => {
-    let contractile = Array.find(model.contractiles, c => c.id === r.contractId)
-    switch contractile {
-    | Some(c) =>
-      switch (c.enforcement, r.status) {
-      | (Strict, Violated(_)) => true
-      | _ => false
-      }
-    | None => false
-    }
-  })
-
-  let newModel = {...model, contractiles: updatedContractiles}
-
-  // Auto-activate anti-inflammatory when vexation index exceeds threshold (0.7).
-  let antiInflammatoryActive = newModel.vexometer.index > 0.7
-  let newModel = {
-    ...newModel,
-    vexometer: {...newModel.vexometer, antiInflammatoryActive},
-  }
-
-  // If a Strict contractile is violated, halt neural inference.
-  let newModel = if hasStrictViolation {
-    {...newModel, paneN: {...newModel.paneN, inferenceActive: false}}
-  } else {
-    newModel
-  }
-
-  // --- Phase 2: OrbitalSync — detect L↔N↔W divergence (M2) ---
-
-  let (newSyncState, newOrbital) = OrbitalSync.sync(newModel, newModel.syncState)
-  let newModel = {...newModel, syncState: newSyncState, orbital: newOrbital}
-
-  // --- Phase 3: Consume pendingSync events (M2) ---
-  // Cross-panel sync events feed back into the orbital metrics and
-  // are cleared after processing. In future, these will trigger
-  // Panel Bus events for inter-module communication.
-
-  let syncEventCount = Array.length(newModel.syncState.pendingSync)
-  let newModel = if syncEventCount > 0 {
-    // Sync latency increases with event volume (simple heuristic).
-    let latencyAdjust = Int.toFloat(syncEventCount) *. 5.0
-    let newSync = {
-      ...newModel.syncState,
-      pendingSync: [], // Consumed — clear the queue
-      syncLatency: Math.min(500.0, newModel.syncState.syncLatency +. latencyAdjust),
-    }
-    {...newModel, syncState: newSync}
-  } else {
-    // No events — latency decays toward zero.
-    let newSync = {
-      ...newModel.syncState,
-      syncLatency: Math.max(0.0, newModel.syncState.syncLatency -. 2.0),
-    }
-    {...newModel, syncState: newSync}
-  }
-
-  // --- Phase 4: GovernanceEngine — close all feedback loops (M1, M3, M4) ---
-  // Anti-Crash violations → Governance → Contractile elasticity
-  // Vexometer frustration → Governance → Anti-Crash strictness
-  // Orbital divergence → Governance → inference halting / humidity
-
-  let (newModel, governanceCmd) = GovernanceEngine.governWithCmd(
-    newModel,
-    r => GovernanceNesyResult(r),
-  )
-
-  // --- Phase 5: Panel Bus event emission (M5) ---
-  // Emit cross-panel events based on state transitions detected by
-  // OrbitalSync and GovernanceEngine. Events are wrapped in envelopes
-  // with metadata and routed through the subscriber registry.
-
-  let busEvents: array<PanelBus.panelEvent> = []
-
-  // Emit confidence update if orbital stability changed significantly.
-  let stabilityDiff = newModel.orbital.stability -. model.orbital.stability
-  let busEvents = if stabilityDiff > 0.05 || stabilityDiff < -0.05 {
-    Array.concat(busEvents, [PanelBus.RepoHealthChanged("panll-orbit", newModel.orbital.stability)])
-  } else {
-    busEvents
-  }
-
-  // Emit database connection change if VeriSimDB state changed.
-  let busEvents = if newModel.verisim.connected !== model.verisim.connected {
-    Array.concat(
-      busEvents,
-      [PanelBus.DatabaseConnectionChanged("verisim", newModel.verisim.connected)],
-    )
-  } else {
-    busEvents
-  }
-
-  // Emit inference activity change if Hypatia confidence shifted.
-  let busEvents = if newModel.paneN.inferenceActive !== model.paneN.inferenceActive {
-    Array.concat(
-      busEvents,
-      [
-        PanelBus.HypatiaConfidenceUpdated(
-          "paneN-inference",
-          newModel.paneN.inferenceActive ? 1.0 : 0.0,
-        ),
-      ],
-    )
-  } else {
-    busEvents
-  }
-
-  // Emit ECHIDNA proof dispatch if a proof result just arrived.
-  let busEvents = if newModel.echidna.lastProofResult !== model.echidna.lastProofResult {
-    switch newModel.echidna.lastProofResult {
-    | Some(_result) =>
-      Array.concat(busEvents, [PanelBus.HypatiaConfidenceUpdated("echidna-proof", 0.95)])
-    | None => busEvents
-    }
-  } else {
-    busEvents
-  }
-
-  // Emit fleet dispatch when fleet findings change.
-  let busEvents = if Array.length(newModel.fleet.findings) !== Array.length(model.fleet.findings) {
-    Array.concat(busEvents, [PanelBus.FarmRepoListUpdated(Array.length(newModel.fleet.findings))])
-  } else {
-    busEvents
-  }
-
-  // Emit compliance change if contractile statuses changed.
-  let violatedCount = Array.filter(newModel.contractiles, c => {
-    switch c.status {
-    | Violated(_) => true
-    | _ => false
-    }
-  })->Array.length
-  let prevViolatedCount = Array.filter(model.contractiles, c => {
-    switch c.status {
-    | Violated(_) => true
-    | _ => false
-    }
-  })->Array.length
-  let busEvents = if violatedCount !== prevViolatedCount {
-    let complianceScore = if Array.length(newModel.contractiles) > 0 {
-      1.0 -. Int.toFloat(violatedCount) /. Int.toFloat(Array.length(newModel.contractiles))
-    } else {
-      1.0
-    }
-    Array.concat(busEvents, [PanelBus.RsrComplianceChanged("contractiles", complianceScore)])
-  } else {
-    busEvents
-  }
-
-  // Wrap events in envelopes and record in the registry ring buffer.
-  let nowMs = Date.now()
-  let busRegistry = Array.reduce(busEvents, newModel.busRegistry, (reg, evt) => {
-    let (_envelope, updatedReg) = PanelBus.wrapEvent(reg, "governance", evt, nowMs)
-    updatedReg
-  })
-  let newModel = {...newModel, busRegistry}
-
-  // Dispatch follow-up messages for bus events. Each bus event maps to a
-  // message that the consuming panel handles. This closes the cross-panel
-  // intelligence loop: governance changes propagate to dependent panels.
-  let busCmd = if Array.length(busEvents) > 0 {
-    let followUps = Array.filterMap(busEvents, evt => {
-      switch evt {
-      | PanelBus.HypatiaConfidenceUpdated(_repo, _conf) => None // Hypatia consumes internally
-      | PanelBus.RepoHealthChanged(_source, _score) => None // Orbital metric, no panel dispatch needed
-      | PanelBus.DatabaseConnectionChanged(_db, connected) =>
-        // When VeriSimDB connection changes, trigger a health check.
-        connected ? Some(VeriSimDB(CheckHealth)) : None
-      | PanelBus.RsrComplianceChanged(_source, _score) => None // Reposystem tracks internally
-      | PanelBus.FarmRepoListUpdated(_count) => None // Farm refresh handled by Farm panel
-      | PanelBus.FleetFixDispatched(_repo, _recipe) => None // Fleet tracks internally
-      | PanelBus.HypatiaFindingsRouted(_json) =>
-        // When Hypatia routes findings, tell Fleet to reload.
-        Some(Fleet(LoadFleet))
-      | _ => None // Unhandled bus events are no-ops
-      }
-    })
-    if Array.length(followUps) > 0 {
-      Tea_Cmd.batch(List.fromArray(Array.map(followUps, m => Tea_Cmd.msg(m))))
-    } else {
-      Tea_Cmd.none
-    }
-  } else {
-    Tea_Cmd.none
-  }
-
-  // Merge bus commands and governance commands with the original command.
-  let finalCmd = Tea_Cmd.batch(list{cmd, busCmd, governanceCmd})
-
-  (newModel, finalCmd)
-}
diff --git a/src/update/UpdateHelp.affine b/src/update/UpdateHelp.affine
new file mode 100644
index 00000000..15ff73d8
--- /dev/null
+++ b/src/update/UpdateHelp.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateHelp;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateHelp.res b/src/update/UpdateHelp.res
deleted file mode 100644
index d71893ef..00000000
--- a/src/update/UpdateHelp.res
+++ /dev/null
@@ -1,68 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-/// Update handler for the in-application help system.
-/// Manages search, category filtering, entry navigation, glossary lookup,
-/// and the onboarding walkthrough.
-let updateHelp = (model: model, msg: helpMsg): (model, Tea_Cmd.t<msg>) => {
-  let h = model.help
-  switch msg {
-  | SetHelpSearch(query) =>
-    let allEntries = HelpContent.allEntries()
-    let filtered = if query === "" {
-      HelpEngine.filterByCategory(h.activeCategory, allEntries)
-    } else {
-      HelpEngine.searchEntries(query, allEntries)
-    }
-    ({...model, help: {...h, searchQuery: query, filteredEntries: filtered}}, Tea_Cmd.none)
-  | SetHelpCategory(cat) =>
-    let allEntries = HelpContent.allEntries()
-    let filtered = HelpEngine.filterByCategory(cat, allEntries)
-    (
-      {...model, help: {...h, activeCategory: cat, filteredEntries: filtered, activeEntry: None}},
-      Tea_Cmd.none,
-    )
-  | SelectEntry(id) => ({...model, help: {...h, activeEntry: Some(id)}}, Tea_Cmd.none)
-  | CloseHelp => (
-      {...model, panelSwitcher: {...model.panelSwitcher, activePanel: None}},
-      Tea_Cmd.none,
-    )
-  | StartOnboarding =>
-    let onboarding = {...h.onboarding, active: true, currentStep: 0}
-    ({...model, help: {...h, onboarding}}, Tea_Cmd.none)
-  | NextOnboardingStep =>
-    let onboarding = HelpEngine.nextOnboardingStep(h.onboarding)
-    ({...model, help: {...h, onboarding}}, Tea_Cmd.none)
-  | PrevOnboardingStep =>
-    let onboarding = HelpEngine.prevOnboardingStep(h.onboarding)
-    ({...model, help: {...h, onboarding}}, Tea_Cmd.none)
-  | SkipOnboarding =>
-    let onboarding = {...h.onboarding, active: false, completedOnce: true}
-    ({...model, help: {...h, onboarding}}, Tea_Cmd.none)
-  | CompleteOnboarding =>
-    let onboarding = {...h.onboarding, active: false, completedOnce: true}
-    ({...model, help: {...h, onboarding}}, Tea_Cmd.none)
-  | OpenContextHelp(panelId) =>
-    let allEntries = HelpContent.allEntries()
-    let filtered = HelpEngine.filterByPanel(panelId, allEntries)
-    let newHelp = {
-      ...h,
-      contextPanelId: panelId,
-      filteredEntries: filtered,
-      activeCategory: PanelGuide,
-      activeEntry: None,
-    }
-    (
-      {
-        ...model,
-        help: newHelp,
-        panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelHelp)},
-      },
-      Tea_Cmd.none,
-    )
-  | SearchGlossary(query) =>
-    let glossary = HelpEngine.searchGlossary(query, HelpContent.allGlossaryTerms())
-    ({...model, help: {...h, glossary, activeCategory: Glossary}}, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateHelpers.affine b/src/update/UpdateHelpers.affine
new file mode 100644
index 00000000..67c26db9
--- /dev/null
+++ b/src/update/UpdateHelpers.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateHelpers;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateHelpers.res b/src/update/UpdateHelpers.res
deleted file mode 100644
index a37fa579..00000000
--- a/src/update/UpdateHelpers.res
+++ /dev/null
@@ -1,78 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Shared helpers for the Update engine — undo/redo snapshots, error logging,
-/// and the contractiles post-processor that runs after every state transition.
-
-open Model
-
-// ===========================================================================
-// Undo/Redo Snapshot Helpers
-// ===========================================================================
-
-/// Maximum number of entries in each undo/redo stack.
-let undoStackLimit = 50
-
-/// Serialize a lightweight snapshot of core model state to a JSON string.
-/// We avoid serializing the entire model to keep snapshots small and avoid
-/// circular-reference issues. Only the fields users care about undoing are
-/// captured: the three panels, echidna proof input, orbital metrics, and
-/// contractile statuses.
-let snapshotToJson: model => string = %raw(`
-  function snapshotToJson(m) {
-    return JSON.stringify({
-      paneL: m.paneL,
-      paneN: { monologue: m.paneN.monologue, inferenceActive: m.paneN.inferenceActive },
-      paneW: { content: m.paneW.content },
-      echidnaProofInput: m.echidna.proofInput,
-      orbital: m.orbital,
-      contractiles: m.contractiles
-    });
-  }
-`)
-
-/// Restore a snapshot JSON string back onto the model. Fields not captured in
-/// the snapshot are left untouched so transient UI state (menus, loading flags,
-/// connection status, etc.) is preserved across undo/redo.
-let restoreSnapshot: (model, string) => model = %raw(`
-  function restoreSnapshot(m, json) {
-    try {
-      var s = JSON.parse(json);
-      return Object.assign({}, m, {
-        paneL: s.paneL != null ? s.paneL : m.paneL,
-        paneN: Object.assign({}, m.paneN, s.paneN || {}),
-        paneW: Object.assign({}, m.paneW, { content: s.paneW != null ? s.paneW.content : m.paneW.content }),
-        echidna: Object.assign({}, m.echidna, { proofInput: s.echidnaProofInput != null ? s.echidnaProofInput : m.echidna.proofInput }),
-        orbital: s.orbital != null ? s.orbital : m.orbital,
-        contractiles: s.contractiles != null ? s.contractiles : m.contractiles
-      });
-    } catch (_e) {
-      return m;
-    }
-  }
-`)
-
-/// Push a snapshot of the current model onto the undo stack (capped at
-/// `undoStackLimit`). Returns a new model with the updated stacks — the
-/// redo stack is cleared because a new action invalidates the redo history.
-let pushUndoSnapshot = (model: model): model => {
-  let snapshot = snapshotToJson(model)
-  let stack = Array.concat(model.undoStack, [snapshot])
-  // Cap at limit by dropping oldest entries.
-  let trimmed = if Array.length(stack) > undoStackLimit {
-    Array.slice(stack, ~start=Array.length(stack) - undoStackLimit, ~end=Array.length(stack))
-  } else {
-    stack
-  }
-  {...model, undoStack: trimmed, redoStack: []}
-}
-
-// ===========================================================================
-// Error Logging
-// ===========================================================================
-
-/// Log a degraded service warning to the console. Called from Error(_) branches
-/// that previously swallowed errors silently. This gives operators visibility
-/// into which services are failing without disrupting the user experience.
-let logDegradedService = (service: string, context: string): unit => {
-  Console.warn(`[PanLL] Service degraded: ${service} — ${context}`)
-}
diff --git a/src/update/UpdateHypatia.affine b/src/update/UpdateHypatia.affine
new file mode 100644
index 00000000..725f715a
--- /dev/null
+++ b/src/update/UpdateHypatia.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateHypatia;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateHypatia.res b/src/update/UpdateHypatia.res
deleted file mode 100644
index eafb1ee5..00000000
--- a/src/update/UpdateHypatia.res
+++ /dev/null
@@ -1,107 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-/// STATE TRANSITION: Hypatia (neurosymbolic scanner)
-///
-/// Handles loading network status, scan results, category navigation,
-/// and text filtering. The backend is an Elixir Phoenix API.
-let updateHypatia = (model: model, msg: hypatiaMsg): (model, Tea_Cmd.t<msg>) => {
-  let hyp = model.hypatia
-  switch msg {
-  | LoadHypatia => (
-      {...model, hypatia: {...hyp, loading: true, error: None}},
-      Tea_Cmd.batch(list{
-        HypatiaCmd.fetchNetworks(result => Hypatia(NetworksLoaded(result))),
-        HypatiaCmd.fetchScans(result => Hypatia(ScansLoaded(result))),
-        TypeLLService.checkConfigTypes("hypatia-scan-config", "hypatia", result => Hypatia(
-          TypeCheckResult(result),
-        )),
-      }),
-    )
-  | NetworksLoaded(result) =>
-    switch result {
-    | Ok(jsonStr) =>
-      switch HypatiaEngine.parseNetworks(jsonStr) {
-      | Ok(networks) => {
-          // S5: Propagate Hypatia neural confidence to Panel-N autonomy.
-          // Average confidence across active networks sets the autonomy ceiling.
-          let activeNets = networks->Array.filter(n =>
-            switch n.status {
-            | NetActive => true
-            | _ => false
-            }
-          )
-          let avgConfidence = if Array.length(activeNets) > 0 {
-            let total = activeNets->Array.reduce(0.0, (acc, n) => acc +. n.confidence)
-            total /. Int.toFloat(Array.length(activeNets))
-          } else {
-            0.0
-          }
-          // Clamp autonomy to the confidence level — can't be more autonomous
-          // than the neural networks are confident.
-          let newAutonomy = Math.min(model.paneN.agency.autonomyLevel, avgConfidence)
-          let newAgency = {...model.paneN.agency, autonomyLevel: newAutonomy}
-          let newPaneN = {...model.paneN, agency: newAgency}
-          (
-            {
-              ...model,
-              paneN: newPaneN,
-              hypatia: {
-                ...hyp,
-                loaded: true,
-                loading: false,
-                error: None,
-                networks,
-              },
-            },
-            Tea_Cmd.none,
-          )
-        }
-      | Error(e) => ({...model, hypatia: {...hyp, loading: false, error: Some(e)}}, Tea_Cmd.none)
-      }
-    | Error(e) => ({...model, hypatia: {...hyp, loading: false, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | ScansLoaded(result) =>
-    switch result {
-    | Ok(jsonStr) =>
-      switch HypatiaEngine.parseScans(jsonStr) {
-      | Ok(scans) => {
-          let quarantined = scans->Array.reduce(0, (acc, s) => acc + s.quarantineCount)
-          (
-            {
-              ...model,
-              hypatia: {
-                ...hyp,
-                loaded: true,
-                loading: false,
-                scans,
-                totalRepos: Array.length(scans),
-                quarantinedCount: quarantined,
-              },
-            },
-            Tea_Cmd.none,
-          )
-        }
-      | Error(e) => ({...model, hypatia: {...hyp, loading: false, error: Some(e)}}, Tea_Cmd.none)
-      }
-    | Error(e) => ({...model, hypatia: {...hyp, loading: false, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | SetHypatiaCategory(cat) => ({...model, hypatia: {...hyp, activeCategory: cat}}, Tea_Cmd.none)
-  | SetHypatiaFilter(text) => ({...model, hypatia: {...hyp, filterText: text}}, Tea_Cmd.none)
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "hypatia", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  | SelectRecipe(id) => ({...model, hypatia: {...hyp, selectedRecipe: id}}, Tea_Cmd.none)
-  | SetRecipeFilter(text) => ({...model, hypatia: {...hyp, recipeFilter: text}}, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateIdentity.affine b/src/update/UpdateIdentity.affine
new file mode 100644
index 00000000..bdf25436
--- /dev/null
+++ b/src/update/UpdateIdentity.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateIdentity;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateIdentity.res b/src/update/UpdateIdentity.res
deleted file mode 100644
index 330e293a..00000000
--- a/src/update/UpdateIdentity.res
+++ /dev/null
@@ -1,201 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// UpdateIdentity — TEA state transitions for identity snapshots and team replication.
-///
-/// Handles capture, restore, list, delete, broadcast, and team state receive.
-
-open Model
-open Msg
-
-/// Parse the snapshot list from backend JSON into an array of identitySnapshot.
-let parseSnapshotList = (jsonStr: string): array<identitySnapshot> => {
-  try {
-    switch JSON.parseExn(jsonStr)->JSON.Classify.classify {
-    | Array(arr) =>
-      arr->Array.filterMap(item => {
-        switch JSON.Classify.classify(item) {
-        | Object(d) => {
-            let getString = key =>
-              d
-              ->Dict.get(key)
-              ->Option.flatMap(v =>
-                switch JSON.Classify.classify(v) {
-                | String(s) => Some(s)
-                | _ => None
-                }
-              )
-            switch (getString("id"), getString("name"), getString("created_at")) {
-            | (Some(id), Some(name), Some(createdAt)) => Some({id, name, createdAt})
-            | _ => None
-            }
-          }
-        | _ => None
-        }
-      })
-    | _ => []
-    }
-  } catch {
-  | _ => []
-  }
-}
-
-/// Identity updater — routes identity messages to state transitions.
-let rec updateIdentity = (model: model, subMsg: identityMsg): (model, Tea_Cmd.t<msg>) => {
-  let ident = model.identity
-  switch subMsg {
-  | CaptureSnapshot(name) => {
-      // Serialize current panel state, settings, and service URLs
-      let panllState = Storage.serialize(Storage.extractPersistedState(model))
-      let settingsJson =
-        JSON.stringifyAny({
-          "verisimdb_url": model.settings.verisimdbUrl,
-          "echidna_url": model.settings.echidnaUrl,
-          "burble_url": model.settings.burbleUrl,
-          "boj_url": model.settings.bojUrl,
-          "typell_url": model.settings.typellUrl,
-          "theme": model.settings.theme,
-        })->Option.getOr("{}")
-      let serviceUrls =
-        JSON.stringifyAny(model.serviceRegistry.services)->Option.getOr("{}")
-      (
-        {...model, identity: {...ident, isCapturing: true, error: None}},
-        IdentityCmd.captureSnapshot(name, panllState, settingsJson, serviceUrls, result =>
-          Identity(CaptureResult(result))
-        ),
-      )
-    }
-  | CaptureResult(result) =>
-    switch result {
-    | Ok(_jsonStr) => (
-        {...model, identity: {...ident, isCapturing: false}},
-        // Refresh the snapshot list after capture
-        IdentityCmd.listSnapshots(result => Identity(SnapshotsLoaded(result))),
-      )
-    | Error(err) => (
-        {...model, identity: {...ident, isCapturing: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | RestoreSnapshot(id) => (
-      {...model, identity: {...ident, isRestoring: true, error: None}},
-      IdentityCmd.loadSnapshot(id, result => Identity(RestoreResult(result))),
-    )
-  | RestoreResult(result) =>
-    switch result {
-    | Ok(jsonStr) => {
-        // Parse the full snapshot and apply panel state
-        try {
-          switch JSON.parseExn(jsonStr)->JSON.Classify.classify {
-          | Object(d) => {
-              let getString = key =>
-                d
-                ->Dict.get(key)
-                ->Option.flatMap(v =>
-                  switch JSON.Classify.classify(v) {
-                  | String(s) => Some(s)
-                  | _ => None
-                  }
-                )
-              let snapshotId = getString("id")
-              let panllStateJson = getString("panll_state")
-              // Apply the panel state through the same decoder as VeriSimDBStateLoaded
-              let restoredModel = switch panllStateJson {
-              | Some(stateStr) =>
-                switch Decoders.decodeOption(Storage.persistedStateDecoder, stateStr) {
-                | Some(state) => Some(Storage.modelFromPersisted(state))
-                | None => None
-                }
-              | None => None
-              }
-              switch restoredModel {
-              | Some(restored) => (
-                  {
-                    ...model,
-                    paneL: restored.paneL,
-                    paneN: restored.paneN,
-                    paneW: restored.paneW,
-                    viewMode: restored.viewMode,
-                    paneLVisible: restored.paneLVisible,
-                    paneNVisible: restored.paneNVisible,
-                    paneWVisible: restored.paneWVisible,
-                    humidity: restored.humidity,
-                    vexometer: {...model.vexometer, index: restored.vexometer.index},
-                    orbital: {...model.orbital, stability: restored.orbital.stability},
-                    identity: {
-                      ...ident,
-                      isRestoring: false,
-                      activeSnapshotId: snapshotId,
-                    },
-                  },
-                  Tea_Cmd.none,
-                )
-              | None => (
-                  {
-                    ...model,
-                    identity: {
-                      ...ident,
-                      isRestoring: false,
-                      error: Some("Failed to decode snapshot state"),
-                    },
-                  },
-                  Tea_Cmd.none,
-                )
-              }
-            }
-          | _ => (
-              {
-                ...model,
-                identity: {...ident, isRestoring: false, error: Some("Invalid snapshot format")},
-              },
-              Tea_Cmd.none,
-            )
-          }
-        } catch {
-        | _ => (
-            {
-              ...model,
-              identity: {...ident, isRestoring: false, error: Some("Snapshot parse failed")},
-            },
-            Tea_Cmd.none,
-          )
-        }
-      }
-    | Error(err) => (
-        {...model, identity: {...ident, isRestoring: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | ListSnapshots => (model, IdentityCmd.listSnapshots(result => Identity(SnapshotsLoaded(result))))
-  | SnapshotsLoaded(result) =>
-    switch result {
-    | Ok(jsonStr) => {
-        let snapshots = parseSnapshotList(jsonStr)
-        ({...model, identity: {...ident, snapshots}}, Tea_Cmd.none)
-      }
-    | Error(_) => (model, Tea_Cmd.none)
-    }
-  | DeleteSnapshot(id) => (
-      model,
-      IdentityCmd.deleteSnapshot(id, result => Identity(DeleteResult(result))),
-    )
-  | DeleteResult(result) =>
-    switch result {
-    | Ok(_) =>
-      // Refresh list after deletion
-      (model, IdentityCmd.listSnapshots(result => Identity(SnapshotsLoaded(result))))
-    | Error(err) => ({...model, identity: {...ident, error: Some(err)}}, Tea_Cmd.none)
-    }
-  | BroadcastSnapshot(snapshotJson) => (
-      model,
-      IdentityCmd.broadcastSnapshot(snapshotJson, result => Identity(BroadcastResult(result))),
-    )
-  | BroadcastResult(_) => (model, Tea_Cmd.none)
-  | TeamStateReceived(result) =>
-    // Reuse the RestoreResult handler logic
-    switch result {
-    | Ok(jsonStr) => updateIdentity(model, RestoreResult(Ok(jsonStr)))
-    | Error(_) => (model, Tea_Cmd.none)
-    }
-  }
-}
diff --git a/src/update/UpdateInterfaces.affine b/src/update/UpdateInterfaces.affine
new file mode 100644
index 00000000..19acbb3e
--- /dev/null
+++ b/src/update/UpdateInterfaces.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateInterfaces;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateInterfaces.res b/src/update/UpdateInterfaces.res
deleted file mode 100644
index 98818456..00000000
--- a/src/update/UpdateInterfaces.res
+++ /dev/null
@@ -1,39 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-let updateInterfaces = (model: model, msg: interfacesMsg): (model, Tea_Cmd.t<msg>) => {
-  let iface = model.interfaces
-  switch msg {
-  | ScanInterfaces => (
-      {...model, interfaces: {...iface, loading: true, error: None}},
-      Tea_Cmd.batch(list{
-        InterfacesCmd.scanInterfaces(result => Interfaces(InterfacesLoaded(result))),
-        TypeLLService.checkConfigTypes("abi-ffi-scan", "interfaces", result => Interfaces(
-          TypeCheckResult(result),
-        )),
-      }),
-    )
-  | InterfacesLoaded(result) =>
-    switch result {
-    | Ok(_jsonStr) => (
-        {...model, interfaces: {...iface, loaded: true, loading: false}},
-        Tea_Cmd.none,
-      )
-    | Error(e) => ({...model, interfaces: {...iface, loading: false, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | SetIfaceCategory(cat) => ({...model, interfaces: {...iface, activeCategory: cat}}, Tea_Cmd.none)
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "interfaces", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateK9.affine b/src/update/UpdateK9.affine
new file mode 100644
index 00000000..dcfd1e72
--- /dev/null
+++ b/src/update/UpdateK9.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateK9;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateK9.res b/src/update/UpdateK9.res
deleted file mode 100644
index bc01ef65..00000000
--- a/src/update/UpdateK9.res
+++ /dev/null
@@ -1,60 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// K9 — contractile management sub-updater.
-
-open Model
-open Msg
-
-let updateK9 = (model: model, k9Msg: k9Msg): (model, Tea_Cmd.t<msg>) => {
-  switch k9Msg {
-  | LoadContractile(path) =>
-    let cmd = K9Cmd.loadContractile(path, r => K9(ContractileLoaded(r)))
-    (model, cmd)
-  | ContractileLoaded(result) =>
-    switch result {
-    | Ok(jsonStr) =>
-      let contractile = K9Engine.validateContractile(jsonStr, ~path="loaded")
-      let kennelSchema = if contractile.securityLevel == K9Engine.Kennel {
-        Some(jsonStr)
-      } else {
-        model.k9KennelSchema
-      }
-      (
-        {...model, lastK9Contractile: Some(contractile), k9KennelSchema: kennelSchema},
-        Tea_Cmd.none,
-      )
-    | Error(_) => (model, Tea_Cmd.none)
-    }
-  | ValidateContractile(path) =>
-    let cmd = K9Cmd.validateContractileFile(path, r => K9(ContractileValidated(r)))
-    (model, cmd)
-  | ContractileValidated(result) =>
-    switch result {
-    | Ok(jsonStr) =>
-      let contractile = K9Engine.validateContractile(jsonStr, ~path="validated")
-      ({...model, lastK9Contractile: Some(contractile)}, Tea_Cmd.none)
-    | Error(_) => (model, Tea_Cmd.none)
-    }
-  | ApplyLayout(name) =>
-    let cmd = K9Cmd.applyLayout(name, r => K9(LayoutApplied(r)))
-    (model, cmd)
-  | LayoutApplied(result) =>
-    switch result {
-    | Ok(jsonStr) =>
-      let layout = K9Engine.parseLayoutPanels(jsonStr)
-      ({...model, lastK9Layout: Some(layout)}, Tea_Cmd.none)
-    | Error(_) => (model, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "k9", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateKeybindings.affine b/src/update/UpdateKeybindings.affine
new file mode 100644
index 00000000..d56cbdaf
--- /dev/null
+++ b/src/update/UpdateKeybindings.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateKeybindings;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateKeybindings.res b/src/update/UpdateKeybindings.res
deleted file mode 100644
index 0c4b360f..00000000
--- a/src/update/UpdateKeybindings.res
+++ /dev/null
@@ -1,51 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Sub-updater for Keybindings — recording, rebinding, reset.
-
-open Model
-open Msg
-
-let updateKeybindings = (model: model, msg: keybindingsMsg): model => {
-  let kb = model.keybindings
-  switch msg {
-  | StartRecording(action) => {
-      ...model,
-      keybindings: {...kb, recording: true, recordingAction: Some(action)},
-    }
-  | RecordKey(chord) =>
-    switch kb.recordingAction {
-    | Some(action) => {
-        let newBindings = KeybindingsEngine.rebind(kb.bindings, action, chord)
-        let conflicts = KeybindingsEngine.detectConflicts(newBindings)
-        {
-          ...model,
-          keybindings: {
-            bindings: newBindings,
-            recording: false,
-            recordingAction: None,
-            conflicts,
-          },
-        }
-      }
-    | None => {...model, keybindings: {...kb, recording: false, recordingAction: None}}
-    }
-  | CancelRecording => {...model, keybindings: {...kb, recording: false, recordingAction: None}}
-  | ResetBinding(action) => {
-      let newBindings = KeybindingsEngine.resetBinding(kb.bindings, action)
-      let conflicts = KeybindingsEngine.detectConflicts(newBindings)
-      {...model, keybindings: {...kb, bindings: newBindings, conflicts}}
-    }
-  | ResetAllBindings => {
-      let newBindings = KeybindingsEngine.resetAll()
-      {
-        ...model,
-        keybindings: {
-          bindings: newBindings,
-          recording: false,
-          recordingAction: None,
-          conflicts: [],
-        },
-      }
-    }
-  }
-}
diff --git a/src/update/UpdateLanguageForge.affine b/src/update/UpdateLanguageForge.affine
new file mode 100644
index 00000000..7e57ec87
--- /dev/null
+++ b/src/update/UpdateLanguageForge.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateLanguageForge;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateLanguageForge.res b/src/update/UpdateLanguageForge.res
deleted file mode 100644
index cee9a234..00000000
--- a/src/update/UpdateLanguageForge.res
+++ /dev/null
@@ -1,41 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-// ===========================================================================
-// Language Forge Sub-Updater
-// ===========================================================================
-
-/// Handle Language Forge messages — nextgen-languages portfolio monitoring.
-let updateLanguageForge = (model: model, msg: languageForgeMsg): (model, Tea_Cmd.t<msg>) => {
-  let forge = model.languageForge
-  switch msg {
-  | LoadLanguages => (
-      {
-        ...model,
-        languageForge: {
-          ...forge,
-          loaded: true,
-          loading: false,
-          error: None,
-          languages: LanguageForgeEngine.languageData(),
-        },
-      },
-      Tea_Cmd.none,
-    )
-  | SetForgeCategory(cat) => (
-      {...model, languageForge: {...forge, activeCategory: cat}},
-      Tea_Cmd.none,
-    )
-  | SetForgeFilter(text) => ({...model, languageForge: {...forge, filterText: text}}, Tea_Cmd.none)
-  | SetForgeSort(sort) => ({...model, languageForge: {...forge, sortBy: sort}}, Tea_Cmd.none)
-  | SelectLanguage(name) => (
-      {...model, languageForge: {...forge, selectedLanguage: name}},
-      Tea_Cmd.none,
-    )
-  | ToggleMoscow => (
-      {...model, languageForge: {...forge, showMoscow: !forge.showMoscow}},
-      Tea_Cmd.none,
-    )
-  }
-}
diff --git a/src/update/UpdateLevelArchitect.affine b/src/update/UpdateLevelArchitect.affine
new file mode 100644
index 00000000..90a01100
--- /dev/null
+++ b/src/update/UpdateLevelArchitect.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateLevelArchitect;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateLevelArchitect.res b/src/update/UpdateLevelArchitect.res
deleted file mode 100644
index a42de705..00000000
--- a/src/update/UpdateLevelArchitect.res
+++ /dev/null
@@ -1,416 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Extracted sub-updater for the Level Architect panel.
-/// Manages the IDApTIK level editor — grid interaction, entity placement/erasure,
-/// patrol waypoints, defence flags, asset browsing, level validation, load/save,
-/// undo/redo, and visual toggles.
-
-open Model
-open Msg
-
-let updateLevelArchitect = (model: model, msg: levelArchitectMsg): (model, Tea_Cmd.t<msg>) => {
-  let la = model.levelArchitect
-  switch msg {
-  | SetArchitectCategory(cat) => (
-      {...model, levelArchitect: {...la, activeCategory: cat}},
-      Tea_Cmd.none,
-    )
-  | ClickGrid(x, y) => // Behaviour depends on selected tool
-    switch la.selectedTool {
-    | ToolSelect =>
-      let entity = la.entities->Array.find(e => e.gridX === x && e.gridY === y)
-      let selected = switch entity {
-      | Some(e) => Some(e.id)
-      | None => None
-      }
-      ({...model, levelArchitect: {...la, selectedEntityId: selected}}, Tea_Cmd.none)
-    | ToolPlace(kind) =>
-      if LevelArchitectEngine.isOccupied(la.entities, x, y) {
-        (model, Tea_Cmd.none)
-      } else {
-        let id = `${Int.toString(x)}_${Int.toString(y)}_${Int.toString(Array.length(la.entities))}`
-        let entity: levelEntity = {
-          id,
-          kind,
-          name: LevelArchitectEngine.entityKindLabel(kind),
-          gridX: x,
-          gridY: y,
-          rotation: 0,
-          properties: [],
-        }
-        (
-          {
-            ...model,
-            levelArchitect: {
-              ...la,
-              entities: Array.concat(la.entities, [entity]),
-              selectedEntityId: Some(id),
-            },
-          },
-          Tea_Cmd.none,
-        )
-      }
-    | ToolErase =>
-      let newEntities = la.entities->Array.filter(e => !(e.gridX === x && e.gridY === y))
-      ({...model, levelArchitect: {...la, entities: newEntities}}, Tea_Cmd.none)
-    | ToolPatrol => {
-        // Add a patrol waypoint at the clicked grid position for the currently selected guard.
-        let waypoint: LevelArchitectModel.patrolWaypoint = {x, y, pauseDuration: 1.0}
-        let patrols = switch la.selectedEntityId {
-        | Some(guardId) => {
-            let existing = la.patrols->Array.find(p => p.guardId === guardId)
-            switch existing {
-            | Some(_patrol) =>
-              la.patrols->Array.map(p =>
-                if p.guardId === guardId {
-                  {...p, waypoints: Array.concat(p.waypoints, [waypoint])}
-                } else {
-                  p
-                }
-              )
-            | None =>
-              Array.concat(
-                la.patrols,
-                [{guardId, waypoints: [waypoint], looping: true, speed: 1.0}],
-              )
-            }
-          }
-        | None => la.patrols
-        }
-        ({...model, levelArchitect: {...la, patrols}}, Tea_Cmd.none)
-      }
-    | ToolDefenceFlag => // Place a defence flag entity at the clicked grid position.
-      if !LevelArchitectEngine.isOccupied(la.entities, x, y) {
-        let id = `flag_${Int.toString(x)}_${Int.toString(y)}`
-        let entity: levelEntity = {
-          id,
-          kind: EntityTrigger,
-          name: "Defence Flag",
-          gridX: x,
-          gridY: y,
-          rotation: 0,
-          properties: [("type", "defence_flag")],
-        }
-        (
-          {
-            ...model,
-            levelArchitect: {
-              ...la,
-              entities: Array.concat(la.entities, [entity]),
-              selectedEntityId: Some(id),
-            },
-          },
-          Tea_Cmd.none,
-        )
-      } else {
-        (model, Tea_Cmd.none)
-      }
-    }
-  | SelectEntity(id) => (
-      {...model, levelArchitect: {...la, selectedEntityId: Some(id)}},
-      Tea_Cmd.none,
-    )
-  | DeselectEntity => ({...model, levelArchitect: {...la, selectedEntityId: None}}, Tea_Cmd.none)
-  | SelectTool(tool) => ({...model, levelArchitect: {...la, selectedTool: tool}}, Tea_Cmd.none)
-  | ToggleDefenceFlag(flag) => {
-      let hasIt = la.defenceFlags->Array.includes(flag)
-      let newFlags = if hasIt {
-        la.defenceFlags->Array.filter(f => f !== flag)
-      } else {
-        Array.concat(la.defenceFlags, [flag])
-      }
-      ({...model, levelArchitect: {...la, defenceFlags: newFlags}}, Tea_Cmd.none)
-    }
-  | SetAlertThreshold(n) => ({...model, levelArchitect: {...la, alertThreshold: n}}, Tea_Cmd.none)
-  | BrowseAssets => (
-      {...model, levelArchitect: {...la, loading: true}},
-      LevelArchitectCmd.browseAssets(result => LevelArchitect(AssetsLoaded(result))),
-    )
-  | AssetsLoaded(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let items = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let id = obj->Dict.get("id")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let name = obj->Dict.get("name")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let category =
-            obj->Dict.get("category")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let thumbnail =
-            obj->Dict.get("thumbnail")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let kindStr =
-            obj->Dict.get("entityKind")->Option.flatMap(JSON.Decode.string)->Option.getOr("device")
-          let entityKind = switch kindStr {
-          | "guard" => LevelArchitectModel.EntityGuard
-          | "spawn_point" => EntitySpawnPoint
-          | "companion" => EntityCompanion
-          | "collectable" => EntityCollectable
-          | "trigger" => EntityTrigger
-          | "decoration" => EntityDecoration
-          | _ => EntityDevice
-          }
-          Some({
-            LevelArchitectModel.id,
-            name,
-            category,
-            thumbnail,
-            entityKind,
-          })
-        })
-        Some(items)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(assets) => (
-          {...model, levelArchitect: {...la, assets, loading: false, error: None}},
-          Tea_Cmd.none,
-        )
-      | None => ({...model, levelArchitect: {...la, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | AssetsLoaded(Error(err)) => (
-      {...model, levelArchitect: {...la, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | ValidateLevel => (
-      {...model, levelArchitect: {...la, loading: true}},
-      Tea_Cmd.batch(list{
-        LevelArchitectCmd.validateLevel("", result => LevelArchitect(ValidationResult(result))),
-        TypeLLService.checkGameDataTypes("level-data", "level-architect", result => LevelArchitect(
-          TypeCheckResult(result),
-        )),
-      }),
-    )
-  | ValidationResult(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let issues = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let severity =
-            obj->Dict.get("severity")->Option.flatMap(JSON.Decode.string)->Option.getOr("warning")
-          let message =
-            obj->Dict.get("message")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let entityId = obj->Dict.get("entityId")->Option.flatMap(JSON.Decode.string)
-          let gridX =
-            obj->Dict.get("gridX")->Option.flatMap(JSON.Decode.float)->Option.map(Float.toInt)
-          let gridY =
-            obj->Dict.get("gridY")->Option.flatMap(JSON.Decode.float)->Option.map(Float.toInt)
-          Some({
-            LevelArchitectModel.severity,
-            message,
-            entityId,
-            gridX,
-            gridY,
-          })
-        })
-        Some(issues)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(issues) => (
-          {
-            ...model,
-            levelArchitect: {...la, validationIssues: issues, loading: false, error: None},
-          },
-          Tea_Cmd.none,
-        )
-      | None => ({...model, levelArchitect: {...la, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | ValidationResult(Error(err)) => (
-      {...model, levelArchitect: {...la, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | LoadLevel(path) => (
-      {...model, levelArchitect: {...la, loading: true}},
-      LevelArchitectCmd.loadLevel(path, result => LevelArchitect(LevelLoaded(result))),
-    )
-  | LevelLoaded(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-        let levelName =
-          obj->Dict.get("levelName")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-        let gridWidth =
-          obj->Dict.get("gridWidth")->Option.flatMap(JSON.Decode.float)->Option.getOr(32.0)
-        let gridHeight =
-          obj->Dict.get("gridHeight")->Option.flatMap(JSON.Decode.float)->Option.getOr(32.0)
-        let entArr = obj->Dict.get("entities")->Option.flatMap(JSON.Decode.array)->Option.getOr([])
-        let entities = entArr->Array.filterMap(e => {
-          let eObj = e->JSON.Decode.object->Option.getOr(Dict.make())
-          let id = eObj->Dict.get("id")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let kindStr =
-            eObj->Dict.get("kind")->Option.flatMap(JSON.Decode.string)->Option.getOr("device")
-          let kind = switch kindStr {
-          | "guard" => LevelArchitectModel.EntityGuard
-          | "spawn_point" => EntitySpawnPoint
-          | "companion" => EntityCompanion
-          | "collectable" => EntityCollectable
-          | "trigger" => EntityTrigger
-          | "decoration" => EntityDecoration
-          | _ => EntityDevice
-          }
-          let name = eObj->Dict.get("name")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let gridX = eObj->Dict.get("gridX")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let gridY = eObj->Dict.get("gridY")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let rotation =
-            eObj->Dict.get("rotation")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let propsArr =
-            eObj->Dict.get("properties")->Option.flatMap(JSON.Decode.array)->Option.getOr([])
-          let properties = propsArr->Array.filterMap(p => {
-            let pArr = p->JSON.Decode.array->Option.getOr([])
-            switch (pArr->Array.get(0), pArr->Array.get(1)) {
-            | (Some(k), Some(v)) =>
-              switch (k->JSON.Decode.string, v->JSON.Decode.string) {
-              | (Some(key), Some(val)) => Some((key, val))
-              | _ => None
-              }
-            | _ => None
-            }
-          })
-          Some({
-            LevelArchitectModel.id,
-            kind,
-            name,
-            gridX: Float.toInt(gridX),
-            gridY: Float.toInt(gridY),
-            rotation: Float.toInt(rotation),
-            properties,
-          })
-        })
-        let patArr = obj->Dict.get("patrols")->Option.flatMap(JSON.Decode.array)->Option.getOr([])
-        let patrols = patArr->Array.filterMap(p => {
-          let pObj = p->JSON.Decode.object->Option.getOr(Dict.make())
-          let guardId =
-            pObj->Dict.get("guardId")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let looping =
-            pObj->Dict.get("looping")->Option.flatMap(JSON.Decode.bool)->Option.getOr(true)
-          let speed = pObj->Dict.get("speed")->Option.flatMap(JSON.Decode.float)->Option.getOr(1.0)
-          let wpArr =
-            pObj->Dict.get("waypoints")->Option.flatMap(JSON.Decode.array)->Option.getOr([])
-          let waypoints = wpArr->Array.filterMap(w => {
-            let wObj = w->JSON.Decode.object->Option.getOr(Dict.make())
-            let x = wObj->Dict.get("x")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-            let y = wObj->Dict.get("y")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-            let pauseDuration =
-              wObj->Dict.get("pauseDuration")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-            Some({LevelArchitectModel.x: Float.toInt(x), y: Float.toInt(y), pauseDuration})
-          })
-          Some({
-            LevelArchitectModel.guardId,
-            waypoints,
-            looping,
-            speed,
-          })
-        })
-        Some((levelName, Float.toInt(gridWidth), Float.toInt(gridHeight), entities, patrols))
-
-      | None => None
-      }
-      switch parsed {
-      | Some((levelName, gridWidth, gridHeight, entities, patrols)) => (
-          {
-            ...model,
-            levelArchitect: {
-              ...la,
-              levelName,
-              gridWidth,
-              gridHeight,
-              entities,
-              patrols,
-              loading: false,
-              error: None,
-            },
-          },
-          Tea_Cmd.none,
-        )
-      | None => ({...model, levelArchitect: {...la, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | LevelLoaded(Error(err)) => (
-      {...model, levelArchitect: {...la, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | SaveLevel(path) => (
-      model,
-      LevelArchitectCmd.saveLevel(path, "", result => LevelArchitect(LevelSaved(result))),
-    )
-  | LevelSaved(Ok(_)) => (model, Tea_Cmd.none)
-  | LevelSaved(Error(err)) => ({...model, levelArchitect: {...la, error: Some(err)}}, Tea_Cmd.none)
-  | ExportLevelConfig => (
-      model,
-      LevelArchitectCmd.exportLevelConfig("", result => LevelArchitect(
-        LevelConfigExported(result),
-      )),
-    )
-  | LevelConfigExported(Ok(_)) => (model, Tea_Cmd.none)
-  | LevelConfigExported(Error(err)) => (
-      {...model, levelArchitect: {...la, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | UndoAction => if la.historyIndex > 0 {
-      let newIdx = la.historyIndex - 1
-      let entry = la.history->Array.get(newIdx)
-      switch entry {
-      | Some(e) => (
-          {
-            ...model,
-            levelArchitect: {
-              ...la,
-              entities: e.entities,
-              patrols: e.patrols,
-              historyIndex: newIdx,
-            },
-          },
-          Tea_Cmd.none,
-        )
-      | None => (model, Tea_Cmd.none)
-      }
-    } else {
-      (model, Tea_Cmd.none)
-    }
-  | RedoAction => if la.historyIndex < Array.length(la.history) - 1 {
-      let newIdx = la.historyIndex + 1
-      let entry = la.history->Array.get(newIdx)
-      switch entry {
-      | Some(e) => (
-          {
-            ...model,
-            levelArchitect: {
-              ...la,
-              entities: e.entities,
-              patrols: e.patrols,
-              historyIndex: newIdx,
-            },
-          },
-          Tea_Cmd.none,
-        )
-      | None => (model, Tea_Cmd.none)
-      }
-    } else {
-      (model, Tea_Cmd.none)
-    }
-  | ToggleGrid => ({...model, levelArchitect: {...la, showGrid: !la.showGrid}}, Tea_Cmd.none)
-  | TogglePatrolPaths => (
-      {...model, levelArchitect: {...la, showPatrolPaths: !la.showPatrolPaths}},
-      Tea_Cmd.none,
-    )
-  | DismissArchitectError => ({...model, levelArchitect: {...la, error: None}}, Tea_Cmd.none)
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "levelarchitect", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  | _ => (model, Tea_Cmd.none) // Stub: unhandled level architect messages
-  }
-}
diff --git a/src/update/UpdateMassPanic.affine b/src/update/UpdateMassPanic.affine
new file mode 100644
index 00000000..0a00b566
--- /dev/null
+++ b/src/update/UpdateMassPanic.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateMassPanic;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateMassPanic.res b/src/update/UpdateMassPanic.res
deleted file mode 100644
index 395a0468..00000000
--- a/src/update/UpdateMassPanic.res
+++ /dev/null
@@ -1,641 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Sub-updater for Mass Panic — organisation-scale batch scanning.
-///
-/// Handles assemblyline scanning, repo discovery, incremental BLAKE3,
-/// verisim persistence, delta reporting, and notification generation.
-
-open Model
-open Msg
-
-let updateMassPanic = (model: model, subMsg: massPanicMsg): (model, Tea_Cmd.t<msg>) => {
-  let mp = model.massPanic
-  switch subMsg {
-  | SetReposDirectory(dir) => ({...model, massPanic: {...mp, reposDirectory: dir}}, Tea_Cmd.none)
-  | DiscoverRepos => (
-      {...model, massPanic: {...mp, loading: true, lastError: None}},
-      MassPanicCmd.discoverRepos(mp.reposDirectory, result => MassPanic(ReposDiscovered(result))),
-    )
-  | ReposDiscovered(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let items = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let repoPath =
-            obj->Dict.get("repoPath")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let repoName =
-            obj->Dict.get("repoName")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          Some({
-            MassPanicModel.repoPath,
-            repoName,
-            status: Queued,
-            totalFindings: 0,
-            critical: 0,
-            high: 0,
-            medium: 0,
-            low: 0,
-            filesScanned: 0,
-            blake3Hash: None,
-            scanDuration: None,
-          })
-        })
-        Some(items)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(repoResults) => (
-          {...model, massPanic: {...mp, repoResults, loading: false}},
-          Tea_Cmd.none,
-        )
-      | None => ({...model, massPanic: {...mp, loading: false}}, Tea_Cmd.none)
-      }
-    }
-  | ReposDiscovered(Error(err)) => (
-      {...model, massPanic: {...mp, loading: false, lastError: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | RunAssemblyline =>
-    let storePath = switch mp.storage {
-    | Filesystem(p) => Some(p)
-    | VerisimDB(p) => Some(p)
-    | NoStorage => None
-    }
-    (
-      {
-        ...model,
-        massPanic: {
-          ...mp,
-          scanning: true,
-          progress: 0.0,
-          currentRepo: None,
-          lastError: None,
-        },
-      },
-      Tea_Cmd.batch(list{
-        MassPanicCmd.runAssemblyline(
-          mp.reposDirectory,
-          mp.incremental,
-          mp.cachePath,
-          storePath,
-          mp.minFindings,
-          result => MassPanic(AssemblylineResult(result)),
-        ),
-        TypeLLService.checkConfigTypes(mp.reposDirectory, "mass-panic", result => MassPanic(
-          TypeCheckResult(result),
-        )),
-      }),
-    )
-  | RunSelected =>
-    // Same as RunAssemblyline but for selected repos only.
-    // Backend filters by selection indices.
-    let storePath = switch mp.storage {
-    | Filesystem(p) => Some(p)
-    | VerisimDB(p) => Some(p)
-    | NoStorage => None
-    }
-    (
-      {
-        ...model,
-        massPanic: {
-          ...mp,
-          scanning: true,
-          progress: 0.0,
-          currentRepo: None,
-          lastError: None,
-        },
-      },
-      MassPanicCmd.runAssemblyline(
-        mp.reposDirectory,
-        mp.incremental,
-        mp.cachePath,
-        storePath,
-        mp.minFindings,
-        result => MassPanic(AssemblylineResult(result)),
-      ),
-    )
-  | AssemblylineResult(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-        let parseStatus = (s: string): MassPanicModel.repoScanStatus =>
-          switch s {
-          | "scanning" => Scanning
-          | "complete" => Complete
-          | "skipped" => Skipped
-          | "queued" => Queued
-          | _ => Failed(s)
-          }
-        let resultsArr =
-          obj->Dict.get("results")->Option.flatMap(JSON.Decode.array)->Option.getOr([])
-        let repoResults = resultsArr->Array.filterMap(item => {
-          let o = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let gs = (d, k) => d->Dict.get(k)->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let gi = (d, k) =>
-            d->Dict.get(k)->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)->Float.toInt
-          Some({
-            MassPanicModel.repoPath: gs(o, "repo_path"),
-            repoName: gs(o, "repo_name"),
-            status: parseStatus(gs(o, "status")),
-            totalFindings: gi(o, "total_findings"),
-            critical: gi(o, "critical"),
-            high: gi(o, "high"),
-            medium: gi(o, "medium"),
-            low: gi(o, "low"),
-            filesScanned: gi(o, "files_scanned"),
-            blake3Hash: o->Dict.get("blake3_hash")->Option.flatMap(JSON.Decode.string),
-            scanDuration: o->Dict.get("scan_duration")->Option.flatMap(JSON.Decode.float),
-          })
-        })
-        let summaryObj = obj->Dict.get("summary")->Option.flatMap(JSON.Decode.object)
-        let summary = switch summaryObj {
-        | Some(s) => {
-            let gs = (d, k) => d->Dict.get(k)->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-            let gf = (d, k) => d->Dict.get(k)->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-            let gi = (d, k) =>
-              d->Dict.get(k)->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)->Float.toInt
-            Some({
-              MassPanicModel.totalRepos: gi(s, "total_repos"),
-              scannedRepos: gi(s, "scanned_repos"),
-              skippedRepos: gi(s, "skipped_repos"),
-              failedRepos: gi(s, "failed_repos"),
-              totalFindings: gi(s, "total_findings"),
-              totalCritical: gi(s, "total_critical"),
-              totalHigh: gi(s, "total_high"),
-              scanDuration: gf(s, "scan_duration"),
-              timestamp: gs(s, "timestamp"),
-            })
-          }
-        | None => None
-        }
-        Some((repoResults, summary))
-
-      | None => None
-      }
-      switch parsed {
-      | Some((repoResults, summary)) => (
-          {
-            ...model,
-            massPanic: {
-              ...mp,
-              scanning: false,
-              progress: 1.0,
-              repoResults,
-              summary,
-              lastError: None,
-            },
-          },
-          Tea_Cmd.none,
-        )
-      | None => ({...model, massPanic: {...mp, scanning: false, progress: 1.0}}, Tea_Cmd.none)
-      }
-    }
-  | AssemblylineResult(Error(err)) => (
-      {...model, massPanic: {...mp, scanning: false, lastError: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | PollProgress => (model, MassPanicCmd.getProgress(result => MassPanic(ProgressUpdate(result))))
-  | ProgressUpdate(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-        let reposDone =
-          obj->Dict.get("repos_done")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-        let reposTotal =
-          obj->Dict.get("repos_total")->Option.flatMap(JSON.Decode.float)->Option.getOr(1.0)
-        let currentRepo = obj->Dict.get("current_repo")->Option.flatMap(JSON.Decode.string)
-        let progress = if reposTotal > 0.0 {
-          reposDone /. reposTotal
-        } else {
-          0.0
-        }
-        Some((progress, currentRepo))
-
-      | None => None
-      }
-      switch parsed {
-      | Some((progress, currentRepo)) => (
-          {...model, massPanic: {...mp, progress, currentRepo}},
-          Tea_Cmd.none,
-        )
-      | None => (model, Tea_Cmd.none)
-      }
-    }
-  | ProgressUpdate(Error(_)) => // Silently ignore progress poll failures.
-    (model, Tea_Cmd.none)
-  | ToggleIncremental => (
-      {...model, massPanic: {...mp, incremental: !mp.incremental}},
-      Tea_Cmd.none,
-    )
-  | ToggleNotify => ({...model, massPanic: {...mp, notifyEnabled: !mp.notifyEnabled}}, Tea_Cmd.none)
-  | SetFilterMode(mode) => ({...model, massPanic: {...mp, filterMode: mode}}, Tea_Cmd.none)
-  | SetSortMode(mode) => ({...model, massPanic: {...mp, sortMode: mode}}, Tea_Cmd.none)
-  | SetSearchText(text) => ({...model, massPanic: {...mp, searchText: text}}, Tea_Cmd.none)
-  | ToggleRepoSelection(index) => {
-      let selected = if mp.selectedRepos->Array.includes(index) {
-        mp.selectedRepos->Array.filter(i => i !== index)
-      } else {
-        mp.selectedRepos->Array.concat([index])
-      }
-      ({...model, massPanic: {...mp, selectedRepos: selected, selectAll: false}}, Tea_Cmd.none)
-    }
-  | ToggleSelectAll => {
-      let newSelectAll = !mp.selectAll
-      let selected = if newSelectAll {
-        Array.fromInitializer(~length=Array.length(mp.repoResults), i => i)
-      } else {
-        []
-      }
-      (
-        {...model, massPanic: {...mp, selectAll: newSelectAll, selectedRepos: selected}},
-        Tea_Cmd.none,
-      )
-    }
-  | ToggleDelta => ({...model, massPanic: {...mp, showDelta: !mp.showDelta}}, Tea_Cmd.none)
-  | LoadDelta => {
-      // Use storage path to find the latest reports directory for delta comparison.
-      let storePath = switch mp.storage {
-      | Filesystem(p) | VerisimDB(p) => p
-      | NoStorage => "reports"
-      }
-      let leftPath = storePath ++ "/previous-report.json"
-      let rightPath = storePath ++ "/latest-report.json"
-      (
-        {...model, massPanic: {...mp, loading: true}},
-        MassPanicCmd.diffReports(leftPath, rightPath, result => MassPanic(DeltaLoaded(result))),
-      )
-    }
-  | DeltaLoaded(Ok(jsonStr)) => {
-      let deltas = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        arr->Array.filterMap(item => {
-          let o = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let gs = (d, k) => d->Dict.get(k)->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let gi = (d, k) =>
-            d->Dict.get(k)->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)->Float.toInt
-          let repoName = gs(o, "repo")
-          if repoName !== "" {
-            Some({
-              MassPanicModel.repoName,
-              newFindings: gi(o, "new_findings"),
-              fixedFindings: gi(o, "fixed_findings"),
-              changeDirection: gs(o, "direction"),
-            })
-          } else {
-            None
-          }
-        })
-
-      | None => []
-      }
-      (
-        {
-          ...model,
-          massPanic: {...mp, loading: false, delta: deltas, showDelta: true, lastError: None},
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | DeltaLoaded(Error(err)) => (
-      {...model, massPanic: {...mp, loading: false, lastError: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | GenerateNotification => {
-      // Use the storage path as the report directory for notification generation.
-      let reportPath = switch mp.storage {
-      | Filesystem(p) | VerisimDB(p) => p ++ "/latest-report.json"
-      | NoStorage => "reports/latest-report.json"
-      }
-      (
-        {...model, massPanic: {...mp, loading: true}},
-        MassPanicCmd.generateNotification(reportPath, mp.notifyCriticalOnly, result => MassPanic(
-          NotificationGenerated(result),
-        )),
-      )
-    }
-  | NotificationGenerated(Ok(_md)) => ({...model, massPanic: {...mp, loading: false}}, Tea_Cmd.none)
-  | NotificationGenerated(Error(err)) => (
-      {...model, massPanic: {...mp, loading: false, lastError: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | DismissMassPanicError => ({...model, massPanic: {...mp, lastError: None}}, Tea_Cmd.none)
-
-  // -- Sub-view navigation --
-  | SwitchView(view) => ({...model, massPanic: {...mp, activeView: view}}, Tea_Cmd.none)
-
-  // -- Imaging (fNIRS-style spatial health map) --
-  | BuildImage =>
-    let storePath = switch mp.storage {
-    | Filesystem(p) | VerisimDB(p) => Some(p)
-    | NoStorage => None
-    }
-    (
-      {...model, massPanic: {...mp, imagingLoading: true, lastError: None}},
-      MassPanicCmd.buildImage(mp.reposDirectory, mp.incremental, storePath, result => MassPanic(
-        ImageLoaded(result),
-      )),
-    )
-  | ImageLoaded(Ok(json)) => {
-      // Parse panll.system-image.v0 JSON into systemImage
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, json) {
-      | Some(obj) =>
-        let getStr = (o, k) =>
-          switch o->JSON.Decode.object->Option.flatMap(d => d->Dict.get(k)) {
-          | Some(v) => v->JSON.Decode.string->Option.getOr("")
-          | None => ""
-          }
-        let getFloat = (o, k) =>
-          switch o->JSON.Decode.object->Option.flatMap(d => d->Dict.get(k)) {
-          | Some(v) => v->JSON.Decode.float->Option.getOr(0.0)
-          | None => 0.0
-          }
-        let getInt = (o, k) =>
-          switch o->JSON.Decode.object->Option.flatMap(d => d->Dict.get(k)) {
-          | Some(v) => v->JSON.Decode.float->Option.getOr(0.0)->Float.toInt
-          | None => 0
-          }
-        let image: MassPanicModel.systemImage = {
-          scanSurface: getStr(obj, "scan_surface"),
-          generatedAt: getStr(obj, "generated_at"),
-          globalHealth: getFloat(obj, "global_health"),
-          globalRisk: getFloat(obj, "global_risk"),
-          nodeCount: getInt(obj, "node_count"),
-          edgeCount: getInt(obj, "edge_count"),
-          totalWeakPoints: getInt(obj, "total_weak_points"),
-          totalCritical: getInt(obj, "total_critical"),
-          riskDistribution: {healthy: 0, low: 0, moderate: 0, high: 0, critical: 0},
-          nodes: [],
-          edges: [],
-        }
-        Some(image)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(img) => (
-          {...model, massPanic: {...mp, imagingLoading: false, currentImage: Some(img)}},
-          Tea_Cmd.none,
-        )
-      | None => (
-          {
-            ...model,
-            massPanic: {
-              ...mp,
-              imagingLoading: false,
-              lastError: Some("Failed to parse system image JSON"),
-            },
-          },
-          Tea_Cmd.none,
-        )
-      }
-    }
-  | ImageLoaded(Error(err)) => (
-      {...model, massPanic: {...mp, imagingLoading: false, lastError: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | ImportImageFile => // Wire file picker dialog — invoke Gossamer open dialog, then load the selected file.
-    (
-      {...model, massPanic: {...mp, imagingLoading: true}},
-      MassPanicCmd.buildImage(mp.reposDirectory, false, None, result => MassPanic(
-        ImageFileLoaded(result),
-      )),
-    )
-  | ImageFileLoaded(Ok(json)) => {
-      // Reuse same parsing logic as ImageLoaded — panll.system-image.v0 JSON.
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, json) {
-      | Some(obj) =>
-        let getStr = (o, k) =>
-          switch o->JSON.Decode.object->Option.flatMap(d => d->Dict.get(k)) {
-          | Some(v) => v->JSON.Decode.string->Option.getOr("")
-          | None => ""
-          }
-        let getFloat = (o, k) =>
-          switch o->JSON.Decode.object->Option.flatMap(d => d->Dict.get(k)) {
-          | Some(v) => v->JSON.Decode.float->Option.getOr(0.0)
-          | None => 0.0
-          }
-        let getInt = (o, k) =>
-          switch o->JSON.Decode.object->Option.flatMap(d => d->Dict.get(k)) {
-          | Some(v) => v->JSON.Decode.float->Option.getOr(0.0)->Float.toInt
-          | None => 0
-          }
-        let image: MassPanicModel.systemImage = {
-          scanSurface: getStr(obj, "scan_surface"),
-          generatedAt: getStr(obj, "generated_at"),
-          globalHealth: getFloat(obj, "global_health"),
-          globalRisk: getFloat(obj, "global_risk"),
-          nodeCount: getInt(obj, "node_count"),
-          edgeCount: getInt(obj, "edge_count"),
-          totalWeakPoints: getInt(obj, "total_weak_points"),
-          totalCritical: getInt(obj, "total_critical"),
-          riskDistribution: {healthy: 0, low: 0, moderate: 0, high: 0, critical: 0},
-          nodes: [],
-          edges: [],
-        }
-        Some(image)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(img) => (
-          {...model, massPanic: {...mp, imagingLoading: false, currentImage: Some(img)}},
-          Tea_Cmd.none,
-        )
-      | None => (
-          {
-            ...model,
-            massPanic: {
-              ...mp,
-              imagingLoading: false,
-              lastError: Some("Failed to parse imported image JSON"),
-            },
-          },
-          Tea_Cmd.none,
-        )
-      }
-    }
-  | ImageFileLoaded(Error(err)) => (
-      {...model, massPanic: {...mp, imagingLoading: false, lastError: Some(err)}},
-      Tea_Cmd.none,
-    )
-
-  // -- Temporal navigation --
-  | ListSnapshots => {
-      let storePath = switch mp.storage {
-      | VerisimDB(p) => p
-      | _ => "verisim-data"
-      }
-      (
-        {...model, massPanic: {...mp, temporalLoading: true, lastError: None}},
-        MassPanicCmd.listSnapshots(storePath, result => MassPanic(SnapshotsLoaded(result))),
-      )
-    }
-  | SnapshotsLoaded(Ok(jsonStr)) => {
-      let snapshots = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        arr->Array.filterMap(item => {
-          let o = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let gs = (d, k) => d->Dict.get(k)->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let gf = (d, k) => d->Dict.get(k)->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let gi = (d, k) =>
-            d->Dict.get(k)->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)->Float.toInt
-          Some({
-            MassPanicModel.sequence: gi(o, "sequence"),
-            timestamp: gs(o, "timestamp"),
-            label: gs(o, "label"),
-            nodeCount: gi(o, "node_count"),
-            globalHealth: gf(o, "global_health"),
-            globalRisk: gf(o, "global_risk"),
-            totalWeakPoints: gi(o, "total_weak_points"),
-          })
-        })
-
-      | None => []
-      }
-      (
-        {...model, massPanic: {...mp, temporalLoading: false, snapshots, lastError: None}},
-        Tea_Cmd.none,
-      )
-    }
-  | SnapshotsLoaded(Error(err)) => (
-      {...model, massPanic: {...mp, temporalLoading: false, lastError: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | SelectSnapshot(slot, index) => {
-      let (s0, s1) = mp.selectedSnapshots
-      let newSelected = if slot == 0 {
-        (Some(index), s1)
-      } else {
-        (s0, Some(index))
-      }
-      ({...model, massPanic: {...mp, selectedSnapshots: newSelected}}, Tea_Cmd.none)
-    }
-  | DiffSnapshots => {
-      let storePath = switch mp.storage {
-      | VerisimDB(p) => p
-      | _ => "verisim-data"
-      }
-      switch mp.selectedSnapshots {
-      | (Some(fromIdx), Some(toIdx)) => (
-          {...model, massPanic: {...mp, temporalLoading: true}},
-          MassPanicCmd.diffSnapshots(storePath, fromIdx, toIdx, result => MassPanic(
-            DiffLoaded(result),
-          )),
-        )
-      | _ => (model, Tea_Cmd.none)
-      }
-    }
-  | DiffLoaded(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-        let gs = (d, k) => d->Dict.get(k)->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-        let gf = (d, k) => d->Dict.get(k)->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-        let gi = (d, k) =>
-          d->Dict.get(k)->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)->Float.toInt
-        let getStringArray = (d, k) =>
-          d
-          ->Dict.get(k)
-          ->Option.flatMap(JSON.Decode.array)
-          ->Option.getOr([])
-          ->Array.filterMap(v => v->JSON.Decode.string)
-        let parseNodeDeltas = (d, k) =>
-          d
-          ->Dict.get(k)
-          ->Option.flatMap(JSON.Decode.array)
-          ->Option.getOr([])
-          ->Array.filterMap(item => {
-            let o = item->JSON.Decode.object->Option.getOr(Dict.make())
-            let name = gs(o, "name")
-            if name !== "" {
-              Some({
-                MassPanicModel.name,
-                healthBefore: gf(o, "health_before"),
-                healthAfter: gf(o, "health_after"),
-                healthDelta: gf(o, "health_delta"),
-                riskBefore: gf(o, "risk_before"),
-                riskAfter: gf(o, "risk_after"),
-                riskDelta: gf(o, "risk_delta"),
-                weakPointDelta: gi(o, "weak_point_delta"),
-              })
-            } else {
-              None
-            }
-          })
-        Some({
-          MassPanicModel.fromLabel: gs(obj, "from_label"),
-          toLabel: gs(obj, "to_label"),
-          fromTimestamp: gs(obj, "from_timestamp"),
-          toTimestamp: gs(obj, "to_timestamp"),
-          healthDelta: gf(obj, "health_delta"),
-          riskDelta: gf(obj, "risk_delta"),
-          weakPointDelta: gi(obj, "weak_point_delta"),
-          criticalDelta: gi(obj, "critical_delta"),
-          newNodes: getStringArray(obj, "new_nodes"),
-          removedNodes: getStringArray(obj, "removed_nodes"),
-          improvedNodes: parseNodeDeltas(obj, "improved_nodes"),
-          degradedNodes: parseNodeDeltas(obj, "degraded_nodes"),
-          unchangedCount: gi(obj, "unchanged_count"),
-          trend: gs(obj, "trend"),
-        })
-
-      | None => None
-      }
-      switch parsed {
-      | Some(diff) => (
-          {
-            ...model,
-            massPanic: {...mp, temporalLoading: false, currentDiff: Some(diff), lastError: None},
-          },
-          Tea_Cmd.none,
-        )
-      | None => (
-          {
-            ...model,
-            massPanic: {
-              ...mp,
-              temporalLoading: false,
-              lastError: Some("Failed to parse temporal diff JSON"),
-            },
-          },
-          Tea_Cmd.none,
-        )
-      }
-    }
-  | DiffLoaded(Error(err)) => (
-      {...model, massPanic: {...mp, temporalLoading: false, lastError: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | TakeSnapshot(label) => {
-      let storePath = switch mp.storage {
-      | VerisimDB(p) => p
-      | _ => "verisim-data"
-      }
-      (
-        {...model, massPanic: {...mp, temporalLoading: true}},
-        MassPanicCmd.takeSnapshot(storePath, label, result => MassPanic(SnapshotTaken(result))),
-      )
-    }
-  | SnapshotTaken(Ok(_json)) => // Refresh snapshot list after taking a new one
-    ({...model, massPanic: {...mp, temporalLoading: false}}, Tea_Cmd.none)
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "masspanic", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  | SnapshotTaken(Error(err)) => (
-      {...model, massPanic: {...mp, temporalLoading: false, lastError: Some(err)}},
-      Tea_Cmd.none,
-    )
-  }
-}
diff --git a/src/update/UpdateMenuBar.affine b/src/update/UpdateMenuBar.affine
new file mode 100644
index 00000000..76e2aa68
--- /dev/null
+++ b/src/update/UpdateMenuBar.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateMenuBar;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateMenuBar.res b/src/update/UpdateMenuBar.res
deleted file mode 100644
index 16783980..00000000
--- a/src/update/UpdateMenuBar.res
+++ /dev/null
@@ -1,294 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-/// Update handler for menu bar interactions.
-/// Routes menu actions to appropriate sub-updaters or panel activations.
-let updateMenuBar = (model: model, msg: menuBarMsg): (model, Tea_Cmd.t<msg>) => {
-  switch msg {
-  | OpenMenu(menu) => ({...model, menuBar: {activeMenu: Some(menu)}}, Tea_Cmd.none)
-  | CloseMenus => ({...model, menuBar: {activeMenu: None}}, Tea_Cmd.none)
-  | MenuAction(actionId) =>
-    // Close the menu first, then route the action.
-    let model = {...model, menuBar: {activeMenu: None}}
-    switch actionId {
-    // File actions
-    | "file:save-state" => (model, Tea_Cmd.none) // Routed to SaveState in main update
-    | "file:open-repo" => (model, Tea_Cmd.none) // Would open RepoLoader panel
-    | "file:new-workspace" => {
-        // Reset to initial state but keep viewMode as Standard (not DarkStart).
-        let fresh = Model.init()
-        ({...fresh, viewMode: Standard}, Tea_Cmd.none)
-      }
-    | "file:export-ensaid" => // No backend export yet — route to Help panel with status message.
-      (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelHelp)}},
-        Tea_Cmd.none,
-      )
-    | "file:export-chain" => // No backend export yet — route to Help panel with status message.
-      (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelHelp)}},
-        Tea_Cmd.none,
-      )
-    | "file:import-chain" => (
-        // Open file dialog to import an event chain JSON file (same as PaneW import button).
-        model,
-        GossamerCmd.openEventChainFile(result => PaneW(EventChainFileLoaded(result))),
-      )
-    | "file:import-panic" => (
-        // Open file dialog to import a panic-attacker report file (same as PaneW import button).
-        model,
-        GossamerCmd.openPanicAttackerReportFile(result => PaneW(
-          PanicAttackerReportPathLoaded(result),
-        )),
-      )
-    | "file:preferences" => (
-        // Open the Workspace panel — that's where preferences live.
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelWorkspace)}},
-        Tea_Cmd.none,
-      )
-    | "file:print" => (model, Tea_Cmd.none) // No print backend — intentional no-op
-    // Edit actions
-    | "edit:undo" => (model, Tea_Cmd.none) // Handled by main update loop — MenuAction routes through parent
-    | "edit:redo" => (model, Tea_Cmd.none) // Handled by main update loop — MenuAction routes through parent
-    | "edit:clear-chain" => (
-        {
-          ...model,
-          paneW: {
-            ...model.paneW,
-            eventChain: [],
-            eventChainSummary: None,
-            eventChainTimeline: None,
-            eventChainInput: "",
-            eventChainError: None,
-          },
-        },
-        Tea_Cmd.none,
-      )
-    | "edit:find" => (model, Tea_Cmd.none) // No find UI yet — awaiting search panel implementation
-    | "edit:replace" => (model, Tea_Cmd.none) // No find/replace UI yet — awaiting search panel implementation
-    | "edit:reset-panel" => {
-        // Reset all panels to defaults via the Workspace handler's logic.
-        // Inline the same reset as Workspace(ResetAllPanels) since we can't recurse.
-        let m = {
-          ...model,
-          coprocessors: CoprocessorsEngine.defaultState,
-          buildDashboard: BuildDashboardEngine.defaultState,
-          releaseManager: ReleaseManagerEngine.defaultState,
-          automationRouter: AutomationRouterEngine.defaultState,
-          scriptGist: ScriptGistEngine.defaultState,
-          security: SecurityEngine.defaultState,
-          voiceTag: VoiceTagEngine.defaultState,
-          massPanic: MassPanicModel.init,
-          panicAttack: PanicAttackModel.init,
-          tsdm: TsdmModel.init,
-          levelArchitect: LevelArchitectEngine.defaultState,
-          networkTopology: NetworkTopologyEngine.defaultState,
-          typell: TypeLLEngine.defaultState,
-          boj: BojEngine.defaultState,
-          vmInspector: VmInspectorEngine.defaultState,
-          gamePreview: GamePreviewEngine.defaultState,
-          provenance: ProvenanceEngine.defaultState,
-          myLang: MyLangEngine.defaultState,
-          valenceShell: ValenceShellEngine.defaultState,
-          migration: MigrationEngine.defaultState,
-          repoLoader: RepoLoaderEngine.defaultState,
-          ai: AiEngine.defaultState,
-          statusBar: StatusBarEngine.defaultState,
-          cladeBrowser: CladeBrowserModel.defaultState,
-          protocolSquisher: ProtocolSquisherEngine.defaultState,
-          aerie: AerieEngine.defaultState,
-        }
-        (m, Tea_Cmd.none)
-      }
-    // View actions
-    | "view:toggle-pane-l" => ({...model, paneLVisible: !model.paneLVisible}, Tea_Cmd.none)
-    | "view:toggle-pane-n" => ({...model, paneNVisible: !model.paneNVisible}, Tea_Cmd.none)
-    | "view:toggle-pane-w" => ({...model, paneWVisible: !model.paneWVisible}, Tea_Cmd.none)
-    | "view:toggle-panel-bar" => ({...model, panelBarVisible: !model.panelBarVisible}, Tea_Cmd.none)
-    | "view:toggle-topology" => (
-        {...model, paneW: {...model.paneW, topologyView: !model.paneW.topologyView}},
-        Tea_Cmd.none,
-      )
-    | "view:fullscreen" => ({...model, fullscreenActive: !model.fullscreenActive}, Tea_Cmd.none)
-    | "view:light-mode" => (
-        {...model, viewMode: model.viewMode === LightMode ? Standard : LightMode},
-        Tea_Cmd.none,
-      )
-    | "view:zen" => ({...model, viewMode: Zen}, Tea_Cmd.none)
-    | "view:dark-start" => ({...model, viewMode: DarkStart}, Tea_Cmd.none)
-    | "view:accessibility" => (
-        {...model, accessibility: {...model.accessibility, toolbarExpanded: true}},
-        Tea_Cmd.none,
-      )
-    // Panel actions — open panels via panel switcher
-    | "panel:ai" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelAi)}},
-        Tea_Cmd.none,
-      )
-    | "panel:vab" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelVab)}},
-        Tea_Cmd.none,
-      )
-    | "panel:cloudguard" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelCloudGuard)}},
-        Tea_Cmd.none,
-      )
-    | "panel:hypatia" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelHypatia)}},
-        Tea_Cmd.none,
-      )
-    | "panel:reposystem" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelReposystem)}},
-        Tea_Cmd.none,
-      )
-    | "panel:build-dashboard" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelBuildDashboard)}},
-        Tea_Cmd.none,
-      )
-    | "panel:editor-bridge" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelEditorBridge)}},
-        Tea_Cmd.none,
-      )
-    | "panel:release-manager" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelReleaseManager)}},
-        Tea_Cmd.none,
-      )
-    | "panel:workspace" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelWorkspace)}},
-        Tea_Cmd.none,
-      )
-    | "panel:capture" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelCapture)}},
-        Tea_Cmd.none,
-      )
-    | "panel:security" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelSecurity)}},
-        Tea_Cmd.none,
-      )
-    | "panel:boj" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelBoj)}},
-        Tea_Cmd.none,
-      )
-    | "panel:typell" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelTypeLL)}},
-        Tea_Cmd.none,
-      )
-    | "panel:provenance" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelHelp)}},
-        Tea_Cmd.none,
-      ) // Provenance panel slot needed — routes to Help for now
-    // Tools actions — open tool panels
-    | "tools:panic-attack" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelPanicAttack)}},
-        Tea_Cmd.none,
-      )
-    | "tools:mass-panic" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelMassPanic)}},
-        Tea_Cmd.none,
-      )
-    | "tools:tsdm" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelTsdm)}},
-        Tea_Cmd.none,
-      )
-    | "tools:clade-browser" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelCladeBrowser)}},
-        Tea_Cmd.none,
-      )
-    | "tools:network-topology" => (
-        {
-          ...model,
-          panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelNetworkTopology)},
-        },
-        Tea_Cmd.none,
-      )
-    | "tools:vm-inspector" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelVmInspector)}},
-        Tea_Cmd.none,
-      )
-    | "tools:coprocessors" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelCoprocessors)}},
-        Tea_Cmd.none,
-      )
-    | "tools:automation" => (
-        {
-          ...model,
-          panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelAutomationRouter)},
-        },
-        Tea_Cmd.none,
-      )
-    | "tools:tentacles" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelTentacles)}},
-        Tea_Cmd.none,
-      )
-    | "tools:protocol-squisher" => (
-        {
-          ...model,
-          panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelProtocolSquisher)},
-        },
-        Tea_Cmd.none,
-      )
-    | "tools:mof-ocl" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelEchidna)}},
-        Tea_Cmd.none,
-      )
-    | "tools:echidna" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelEchidna)}},
-        Tea_Cmd.none,
-      )
-    | "tools:keybindings" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelWorkspace)}},
-        Tea_Cmd.none,
-      )
-    | "panel:echidna" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelEchidna)}},
-        Tea_Cmd.none,
-      )
-    | "panel:observatory" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelObservatory)}},
-        Tea_Cmd.none,
-      )
-    | "panel:ambientops" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelAmbientOps)}},
-        Tea_Cmd.none,
-      )
-    | "panel:interfaces" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelInterfaces)}},
-        Tea_Cmd.none,
-      )
-    | "panel:protocol-squisher" => (
-        {
-          ...model,
-          panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelProtocolSquisher)},
-        },
-        Tea_Cmd.none,
-      )
-    // Help actions
-    | "help:tour" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelHelp)}},
-        Tea_Cmd.none,
-      )
-    | "help:glossary" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelHelp)}},
-        Tea_Cmd.none,
-      )
-    | "help:barycentre-tour" => (
-        {
-          ...model,
-          barycentreTour: {
-            active: true,
-            currentStep: TourIntro,
-            completed: model.barycentreTour.completed,
-          },
-          paneW: {...model.paneW, topologyView: true},
-        },
-        Tea_Cmd.none,
-      )
-    | "help:about" => (
-        {...model, panelSwitcher: {...model.panelSwitcher, activePanel: Some(PanelHelp)}},
-        Tea_Cmd.none,
-      )
-    | _ => (model, Tea_Cmd.none)
-    }
-  }
-}
diff --git a/src/update/UpdateMigration.affine b/src/update/UpdateMigration.affine
new file mode 100644
index 00000000..2ac693c5
--- /dev/null
+++ b/src/update/UpdateMigration.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateMigration;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateMigration.res b/src/update/UpdateMigration.res
deleted file mode 100644
index 0d0cbf7b..00000000
--- a/src/update/UpdateMigration.res
+++ /dev/null
@@ -1,127 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Sub-updater for Migration Observatory — health tracking, sessions,
-/// submissions, merge resolver.
-
-open Model
-open Msg
-
-let updateMigration = (model: model, msg: migrationMsg): (model, Tea_Cmd.t<msg>) => {
-  let mig = model.migration
-  switch msg {
-  | LoadMigrationData => (
-      {...model, migration: {...mig, loading: true, error: None}},
-      TypeLLService.checkMetadataTypes("migration-data", "migration", result => Migration(
-        TypeCheckResult(result),
-      )),
-    )
-  | MigrationDataLoaded(Ok(_data)) => // Data parsing would happen here in a real implementation.
-    // For now, mark as loaded.
-    (
-      {
-        ...model,
-        migration: {
-          ...mig,
-          loaded: true,
-          loading: false,
-          error: None,
-          avgHealth: MigrationEngine.computeAvgHealth(mig.repos),
-          readyCount: MigrationEngine.countReady(mig.repos),
-          blockedCount: MigrationEngine.countBlocked(mig.repos),
-          totalRepos: Array.length(mig.repos),
-        },
-      },
-      Tea_Cmd.none,
-    )
-  | MigrationDataLoaded(Error(err)) => (
-      {...model, migration: {...mig, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | SetMigrationCategory(cat) => (
-      {...model, migration: {...mig, activeCategory: cat}},
-      Tea_Cmd.none,
-    )
-  | SetMigrationReportType(rt) => (
-      {...model, migration: {...mig, activeReportType: rt}},
-      Tea_Cmd.none,
-    )
-  | SetMigrationFilter(text) => ({...model, migration: {...mig, filterText: text}}, Tea_Cmd.none)
-  | BeginObservation(_repo, _label) => (
-      {...model, migration: {...mig, loading: true}},
-      Tea_Cmd.none,
-    )
-  | ObservationStarted(Ok(_data)) => ({...model, migration: {...mig, loading: false}}, Tea_Cmd.none)
-  | ObservationStarted(Error(err)) => (
-      {...model, migration: {...mig, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | EndObservation(_sessionId) => ({...model, migration: {...mig, loading: true}}, Tea_Cmd.none)
-  | ObservationEnded(Ok(_data)) => ({...model, migration: {...mig, loading: false}}, Tea_Cmd.none)
-  | ObservationEnded(Error(err)) => (
-      {...model, migration: {...mig, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | ApproveSubmission(id) => {
-      let updated = mig.submissions->Array.map(s =>
-        if s.id === id {
-          {...s, status: SubmissionApproved}
-        } else {
-          s
-        }
-      )
-      ({...model, migration: {...mig, submissions: updated}}, Tea_Cmd.none)
-    }
-  | RejectSubmission(id) => {
-      let updated = mig.submissions->Array.map(s =>
-        if s.id === id {
-          {...s, status: SubmissionRejected}
-        } else {
-          s
-        }
-      )
-      ({...model, migration: {...mig, submissions: updated}}, Tea_Cmd.none)
-    }
-  | SubmitApproved => ({...model, migration: {...mig, loading: true}}, Tea_Cmd.none)
-  | SubmissionsResult(Ok(_data)) =>
-    // Mark approved submissions as submitted.
-    let updated = mig.submissions->Array.map(s =>
-      if s.status == SubmissionApproved {
-        {...s, status: SubmissionSubmitted}
-      } else {
-        s
-      }
-    )
-    ({...model, migration: {...mig, loading: false, submissions: updated}}, Tea_Cmd.none)
-  | SubmissionsResult(Error(err)) => (
-      {...model, migration: {...mig, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | BeginMergeResolution(_repo, _branch) => (
-      {...model, migration: {...mig, loading: true}},
-      Tea_Cmd.none,
-    )
-  | MergeResolutionStarted(Ok(_data)) => (
-      {...model, migration: {...mig, loading: false}},
-      Tea_Cmd.none,
-    )
-  | MergeResolutionStarted(Error(err)) => (
-      {...model, migration: {...mig, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | RollbackMerge(_sessionId) => (model, Tea_Cmd.none)
-  | AcceptMerge(_sessionId) => (model, Tea_Cmd.none)
-  | RefreshMigrationHealth => ({...model, migration: {...mig, loading: true}}, Tea_Cmd.none)
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "migration", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateMinter.affine b/src/update/UpdateMinter.affine
new file mode 100644
index 00000000..20fd6266
--- /dev/null
+++ b/src/update/UpdateMinter.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateMinter;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateMinter.res b/src/update/UpdateMinter.res
deleted file mode 100644
index 10b2a68a..00000000
--- a/src/update/UpdateMinter.res
+++ /dev/null
@@ -1,199 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-/// STATE TRANSITION: Panel Minter (panel creation wizard)
-///
-/// Handles all minterMsg variants: form field updates, wizard navigation,
-/// minting execution, and result handling. Most messages are pure state
-/// updates; ExecuteMint dispatches a Gossamer command via MinterCmd.
-let updateMinter = (model: model, msg: minterMsg): (model, Tea_Cmd.t<msg>) => {
-  let minter = model.minter
-  let form = minter.form
-  switch msg {
-  | SetPanelName(name) => {
-      let validation = MinterEngine.validateName(name)
-      (
-        {
-          ...model,
-          minter: {
-            ...minter,
-            form: {...form, panelName: name, nameValidation: validation},
-          },
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | SetShortName(v) => (
-      {...model, minter: {...minter, form: {...form, shortName: v}}},
-      Tea_Cmd.none,
-    )
-  | SetDescription(v) => (
-      {...model, minter: {...minter, form: {...form, description: v}}},
-      Tea_Cmd.none,
-    )
-  | SetIcon(v) => ({...model, minter: {...minter, form: {...form, icon: v}}}, Tea_Cmd.none)
-  | SetBackendKind(kind) => (
-      {...model, minter: {...minter, form: {...form, backendKind: kind}}},
-      Tea_Cmd.none,
-    )
-  | SetAccessibility(level) => (
-      {...model, minter: {...minter, form: {...form, accessibility: level}}},
-      Tea_Cmd.none,
-    )
-  | SetEndpoint(v) => ({...model, minter: {...minter, form: {...form, endpoint: v}}}, Tea_Cmd.none)
-  | AddCapability => {
-      let newCap: minterCapability = {id: "", label: ""}
-      (
-        {
-          ...model,
-          minter: {
-            ...minter,
-            form: {
-              ...form,
-              capabilities: Array.concat(form.capabilities, [newCap]),
-            },
-          },
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | RemoveCapability(idx) => {
-      let caps = form.capabilities->Array.filterWithIndex((_c, i) => i !== idx)
-      (
-        {
-          ...model,
-          minter: {...minter, form: {...form, capabilities: caps}},
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | NextStep => {
-      let next = minter.wizardStep + 1
-      let clamped = next > 3 ? 3 : next
-      ({...model, minter: {...minter, wizardStep: clamped}}, Tea_Cmd.none)
-    }
-  | PrevStep => {
-      let prev = minter.wizardStep - 1
-      let clamped = prev < 0 ? 0 : prev
-      ({...model, minter: {...minter, wizardStep: clamped}}, Tea_Cmd.none)
-    }
-  | ExecuteMint => {
-      let capsJson =
-        form.capabilities
-        ->Array.map(c => `{"id":"${c.id}","label":"${c.label}"}`)
-        ->Array.join(",")
-      let capsStr = `[${capsJson}]`
-      let specJson = `{"panel":"${form.panelName}","backend":"${MinterEngine.backendKindLabel(
-          form.backendKind,
-        )}","caps":${capsStr}}`
-      (
-        {...model, minter: {...minter, minting: true, error: None}},
-        Tea_Cmd.batch(list{
-          MinterCmd.mintPanel(
-            form.panelName,
-            form.shortName,
-            form.description,
-            form.icon,
-            MinterEngine.backendKindLabel(form.backendKind),
-            MinterEngine.accessibilityLabel(form.accessibility),
-            capsStr,
-            form.endpoint,
-            result => Minter(MintResult(result)),
-          ),
-          TypeLLService.checkConfigTypes(specJson, "minter", result => Minter(
-            TypeCheckResult(result),
-          )),
-        }),
-      )
-    }
-  | MintResult(result) => {
-      let summary = MinterEngine.fileSummary(form)
-      let allPaths = summary->Array.map(((path, _desc)) => path)
-      // First entries are created files, last 6 are patches to existing files.
-      let numPatches = 6
-      let numCreated = Array.length(allPaths) - numPatches
-      let created = allPaths->Array.slice(~start=0, ~end=numCreated)
-      let patched = allPaths->Array.slice(~start=numCreated, ~end=Array.length(allPaths))
-      switch result {
-      | Ok(_jsonStr) => (
-          {
-            ...model,
-            minter: {
-              ...minter,
-              minting: false,
-              error: None,
-              lastResult: Some({
-                success: true,
-                filesCreated: created,
-                filesPatched: patched,
-                warnings: [],
-                error: None,
-              }),
-            },
-          },
-          Tea_Cmd.none,
-        )
-      | Error(e) => (
-          {
-            ...model,
-            minter: {
-              ...minter,
-              minting: false,
-              error: Some(e),
-              lastResult: Some({
-                success: false,
-                filesCreated: [],
-                filesPatched: [],
-                warnings: [],
-                error: Some(e),
-              }),
-            },
-          },
-          Tea_Cmd.none,
-        )
-      }
-    }
-  | ResetMinter => ({...model, minter: MinterEngine.defaultState}, Tea_Cmd.none)
-  | ExportToEnsaidConfig => {
-      // Generate a preview showing what the minted panel would add to ENSAID_CONFIG.
-      let form = model.minter.form
-      let humidityStr = switch model.humidity {
-      | High => "high"
-      | Medium => "medium"
-      | Low => "low"
-      }
-      let newPanelConfig: ProvisionerModel.panelConfig = {
-        panelName: form.panelName,
-        endpoint: form.endpoint,
-        autoConnect: true,
-        isolation: ProvisionerModel.Native,
-        envVars: [],
-        enabled: true,
-      }
-      let configs = Array.concat(model.provisioner.panelConfigs, [newPanelConfig])
-      let preview = EnsaidConfigEngine.generate(
-        ~repoName="(current repo)",
-        ~workspace=model.workspace,
-        ~humidity=humidityStr,
-        ~panelConfigs=configs,
-        ~portfolios=model.provisioner.portfolios,
-        ~automationRules=model.automationRouter.rules,
-        (),
-      )
-      ({...model, ensaidConfigPreview: Some(preview)}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "minter", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateMultiplayerMonitor.affine b/src/update/UpdateMultiplayerMonitor.affine
new file mode 100644
index 00000000..87c1a9dc
--- /dev/null
+++ b/src/update/UpdateMultiplayerMonitor.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateMultiplayerMonitor;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateMultiplayerMonitor.res b/src/update/UpdateMultiplayerMonitor.res
deleted file mode 100644
index 813e233f..00000000
--- a/src/update/UpdateMultiplayerMonitor.res
+++ /dev/null
@@ -1,264 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Extracted sub-updater for the Multiplayer Monitor panel.
-/// Manages WebSocket connection lifecycle, player/channel/device-lock state,
-/// state diff inspection, reconnection testing, and TypeLL integration.
-
-open Model
-open Msg
-
-let updateMultiplayerMonitor = (model: model, msg: multiplayerMonitorMsg): (
-  model,
-  Tea_Cmd.t<msg>,
-) => {
-  let mp = model.multiplayerMonitor
-  switch msg {
-  | SetMultiplayerCategory(cat) => (
-      {...model, multiplayerMonitor: {...mp, activeCategory: cat}},
-      Tea_Cmd.none,
-    )
-  | ConnectServer => (
-      {...model, multiplayerMonitor: {...mp, wsConnection: WsConnecting, loading: true}},
-      Tea_Cmd.batch(list{
-        MultiplayerMonitorCmd.connectToServer(mp.serverUrl, result => MultiplayerMonitor(
-          ConnectionResult(result),
-        )),
-        TypeLLService.checkGameDataTypes(mp.serverUrl, "multiplayer", result => MultiplayerMonitor(
-          TypeCheckResult(result),
-        )),
-      }),
-    )
-  | DisconnectServer => (
-      {...model, multiplayerMonitor: {...mp, loading: true}},
-      MultiplayerMonitorCmd.disconnectFromServer(result => MultiplayerMonitor(
-        DisconnectionResult(result),
-      )),
-    )
-  | ConnectionResult(Ok(_)) => (
-      {
-        ...model,
-        multiplayerMonitor: {...mp, wsConnection: WsConnected, loading: false, error: None},
-      },
-      MultiplayerMonitorCmd.readMultiplayerState(result => MultiplayerMonitor(
-        StateReceived(result),
-      )),
-    )
-  | ConnectionResult(Error(err)) => (
-      {
-        ...model,
-        multiplayerMonitor: {...mp, wsConnection: WsError(err), loading: false, error: Some(err)},
-      },
-      Tea_Cmd.none,
-    )
-  | DisconnectionResult(Ok(_)) => (
-      {
-        ...model,
-        multiplayerMonitor: {
-          ...mp,
-          wsConnection: WsDisconnected,
-          loading: false,
-          players: [],
-          channels: [],
-          error: None,
-        },
-      },
-      Tea_Cmd.none,
-    )
-  | DisconnectionResult(Error(err)) => (
-      {...model, multiplayerMonitor: {...mp, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | RefreshState => (
-      {...model, multiplayerMonitor: {...mp, loading: true}},
-      MultiplayerMonitorCmd.readMultiplayerState(result => MultiplayerMonitor(
-        StateReceived(result),
-      )),
-    )
-  | StateReceived(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-        let playersArr =
-          obj->Dict.get("players")->Option.flatMap(JSON.Decode.array)->Option.getOr([])
-        let players = playersArr->Array.filterMap(item => {
-          let p = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let playerId =
-            p->Dict.get("playerId")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let displayName =
-            p->Dict.get("displayName")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let deviceId =
-            p->Dict.get("deviceId")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let latencyMs =
-            p->Dict.get("latencyMs")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let lamportClock =
-            p->Dict.get("lamportClock")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let lastHeartbeat =
-            p->Dict.get("lastHeartbeat")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let isHost = p->Dict.get("isHost")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-          let isSpectator =
-            p->Dict.get("isSpectator")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-          Some({
-            MultiplayerMonitorModel.playerId,
-            displayName,
-            deviceId,
-            latencyMs: Float.toInt(latencyMs),
-            lamportClock: Float.toInt(lamportClock),
-            lastHeartbeat,
-            isHost,
-            isSpectator,
-          })
-        })
-        let channelsArr =
-          obj->Dict.get("channels")->Option.flatMap(JSON.Decode.array)->Option.getOr([])
-        let channels = channelsArr->Array.filterMap(item => {
-          let c = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let topic = c->Dict.get("topic")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let joinedAt =
-            c->Dict.get("joinedAt")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let messageCount =
-            c->Dict.get("messageCount")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let lastMessageAt =
-            c->Dict.get("lastMessageAt")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          Some({
-            MultiplayerMonitorModel.topic,
-            joinedAt,
-            messageCount: Float.toInt(messageCount),
-            lastMessageAt,
-          })
-        })
-        let locksArr =
-          obj->Dict.get("deviceLocks")->Option.flatMap(JSON.Decode.array)->Option.getOr([])
-        let deviceLocks = locksArr->Array.filterMap(item => {
-          let l = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let deviceId =
-            l->Dict.get("deviceId")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let lockedBy = l->Dict.get("lockedBy")->Option.flatMap(JSON.Decode.string)
-          let lockedAt =
-            l->Dict.get("lockedAt")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let contestedArr =
-            l->Dict.get("contestedBy")->Option.flatMap(JSON.Decode.array)->Option.getOr([])
-          let contestedBy = contestedArr->Array.filterMap(v => v->JSON.Decode.string)
-          Some({
-            MultiplayerMonitorModel.deviceId,
-            lockedBy,
-            lockedAt,
-            contestedBy,
-          })
-        })
-        Some((players, channels, deviceLocks))
-
-      | None => None
-      }
-      switch parsed {
-      | Some((players, channels, deviceLocks)) => (
-          {
-            ...model,
-            multiplayerMonitor: {
-              ...mp,
-              players,
-              channels,
-              deviceLocks,
-              loading: false,
-              error: None,
-            },
-          },
-          Tea_Cmd.none,
-        )
-      | None => ({...model, multiplayerMonitor: {...mp, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | StateReceived(Error(err)) => (
-      {...model, multiplayerMonitor: {...mp, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | RefreshDiffs => (
-      {...model, multiplayerMonitor: {...mp, loading: true}},
-      MultiplayerMonitorCmd.readStateDiffs(result => MultiplayerMonitor(DiffsReceived(result))),
-    )
-  | DiffsReceived(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let diffs = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let timestamp =
-            obj->Dict.get("timestamp")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let playerId =
-            obj->Dict.get("playerId")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let field = obj->Dict.get("field")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let localValue =
-            obj->Dict.get("localValue")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let remoteValue =
-            obj->Dict.get("remoteValue")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let resolved =
-            obj->Dict.get("resolved")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-          Some({
-            MultiplayerMonitorModel.timestamp,
-            playerId,
-            field,
-            localValue,
-            remoteValue,
-            resolved,
-          })
-        })
-        Some(diffs)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(stateDiffs) => (
-          {...model, multiplayerMonitor: {...mp, stateDiffs, loading: false, error: None}},
-          Tea_Cmd.none,
-        )
-      | None => ({...model, multiplayerMonitor: {...mp, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | DiffsReceived(Error(err)) => (
-      {...model, multiplayerMonitor: {...mp, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | SelectPlayer(id) => (
-      {...model, multiplayerMonitor: {...mp, selectedPlayerId: Some(id)}},
-      Tea_Cmd.none,
-    )
-  | DeselectPlayer => (
-      {...model, multiplayerMonitor: {...mp, selectedPlayerId: None}},
-      Tea_Cmd.none,
-    )
-  | ToggleSpectators => (
-      {...model, multiplayerMonitor: {...mp, showSpectators: !mp.showSpectators}},
-      Tea_Cmd.none,
-    )
-  | ToggleAutoReconnect => (
-      {...model, multiplayerMonitor: {...mp, autoReconnect: !mp.autoReconnect}},
-      Tea_Cmd.none,
-    )
-  | ReconnectionTest => (
-      {...model, multiplayerMonitor: {...mp, loading: true}},
-      MultiplayerMonitorCmd.reconnectionTest(result => MultiplayerMonitor(
-        ReconnectionTestResult(result),
-      )),
-    )
-  | ReconnectionTestResult(Ok(_)) => (
-      {...model, multiplayerMonitor: {...mp, loading: false, error: None}},
-      Tea_Cmd.none,
-    )
-  | ReconnectionTestResult(Error(err)) => (
-      {...model, multiplayerMonitor: {...mp, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | DismissMultiplayerError => ({...model, multiplayerMonitor: {...mp, error: None}}, Tea_Cmd.none)
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "multiplayermonitor", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateMyLang.affine b/src/update/UpdateMyLang.affine
new file mode 100644
index 00000000..6de68c2e
--- /dev/null
+++ b/src/update/UpdateMyLang.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateMyLang;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateMyLang.res b/src/update/UpdateMyLang.res
deleted file mode 100644
index 5d56aab7..00000000
--- a/src/update/UpdateMyLang.res
+++ /dev/null
@@ -1,170 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// UpdateMyLang.res — MyLang (nextgen language playground) sub-updater extracted from Update.res
-
-open Model
-open Msg
-
-let updateMyLang = (model: model, msg: myLangMsg): (model, Tea_Cmd.t<msg>) => {
-  let ml = model.myLang
-  switch msg {
-  | SetMlCategory(cat) => ({...model, myLang: {...ml, activeCategory: cat}}, Tea_Cmd.none)
-  | SetDialect(d) => {
-      // #9: Save current REPL session before switching dialect.
-      let savedSessions =
-        ml.replSessions->Array.filter(((dialect, _)) => dialect !== ml.activeDialect)
-      let sessionId = `session-${MyLangEngine.dialectLabel(ml.activeDialect)}`
-      let savedSessions = Array.concat(savedSessions, [(ml.activeDialect, sessionId)])
-      // Restore REPL history for the new dialect (or start fresh).
-      (
-        {
-          ...model,
-          myLang: {
-            ...ml,
-            activeDialect: d,
-            editorContent: MyLangEngine.dialectExample(d),
-            replSessions: savedSessions,
-            lspDiagnostics: [], // Clear diagnostics on dialect switch
-          },
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | CheckMlCli => (
-      {...model, myLang: {...ml, loading: true}},
-      MyLangCmd.checkCli(result => MyLang(MlCliResult(result))),
-    )
-  | MlCliResult(Ok(_)) => (
-      {...model, myLang: {...ml, cliAvailable: true, loading: false, error: None}},
-      Tea_Cmd.none,
-    )
-  | MlCliResult(Error(e)) => (
-      {...model, myLang: {...ml, cliAvailable: false, loading: false, error: Some(e)}},
-      Tea_Cmd.none,
-    )
-  | UpdateEditor(v) => ({...model, myLang: {...ml, editorContent: v}}, Tea_Cmd.none)
-  | Compile => {
-      let dialectStr = MyLangEngine.dialectLabel(ml.activeDialect)
-      let compileCmd = if ml.bojRouting {
-        BojCmd.invokeCartridgeWithLatency(
-          "lsp-mcp",
-          "compile",
-          `{"code": "${ml.editorContent}", "dialect": "${dialectStr}"}`,
-          result => MyLang(CompileResult(result)),
-          (cart, tool, elapsed) => RecordBojLatency(cart, tool, elapsed),
-        )
-      } else {
-        MyLangCmd.compile(ml.editorContent, dialectStr, result => MyLang(CompileResult(result)))
-      }
-      (
-        {...model, myLang: {...ml, loading: true, error: None, lastTypeCheck: None}},
-        Tea_Cmd.batch(list{
-          compileCmd,
-          TypeLLService.checkMyLangTypes(ml.editorContent, dialectStr, result => MyLang(
-            MlTypeCheckResult(result),
-          )),
-        }),
-      )
-    }
-  | CompileResult(Ok(json)) =>
-    switch MyLangEngine.parseCompilation(json) {
-    | Ok(result) => (
-        {...model, myLang: {...ml, loading: false, lastCompilation: Some(result), error: None}},
-        Tea_Cmd.none,
-      )
-    | Error(e) => ({...model, myLang: {...ml, loading: false, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | CompileResult(Error(e)) => (
-      {...model, myLang: {...ml, loading: false, error: Some(e)}},
-      Tea_Cmd.none,
-    )
-  | UpdateReplInput(v) => ({...model, myLang: {...ml, replInput: v}}, Tea_Cmd.none)
-  | EvalRepl =>
-    if ml.replInput === "" {
-      (model, Tea_Cmd.none)
-    } else {
-      let dialectStr = MyLangEngine.dialectLabel(ml.activeDialect)
-      let evalCmd = if ml.bojRouting {
-        BojCmd.invokeCartridgeWithLatency(
-          "lsp-mcp",
-          "repl",
-          `{"input": "${ml.replInput}", "dialect": "${dialectStr}"}`,
-          result => MyLang(ReplResult(result)),
-          (cart, tool, elapsed) => RecordBojLatency(cart, tool, elapsed),
-        )
-      } else {
-        MyLangCmd.replEval(ml.replInput, dialectStr, result => MyLang(ReplResult(result)))
-      }
-      ({...model, myLang: {...ml, loading: true, replInput: ""}}, evalCmd)
-    }
-  | ReplResult(Ok(output)) => {
-      let entry: replEntry = {
-        input: ml.replInput !== "" ? ml.replInput : "(previous input)",
-        output,
-        isError: false,
-      }
-      (
-        {
-          ...model,
-          myLang: {...ml, loading: false, replHistory: Array.concat(ml.replHistory, [entry])},
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | ReplResult(Error(e)) => {
-      let entry: replEntry = {
-        input: ml.replInput !== "" ? ml.replInput : "(previous input)",
-        output: e,
-        isError: true,
-      }
-      (
-        {
-          ...model,
-          myLang: {...ml, loading: false, replHistory: Array.concat(ml.replHistory, [entry])},
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | MlTypeCheckResult(Ok(json)) => {
-      let newTypell = {...model.typell, queriesServed: model.typell.queriesServed + 1}
-      ({...model, myLang: {...ml, lastTypeCheck: Some(json)}, typell: newTypell}, Tea_Cmd.none)
-    }
-  | MlTypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  // #8: LSP integration for syntax highlighting and diagnostics.
-  | ConnectLsp => (
-      {...model, myLang: {...ml, loading: true}},
-      MyLangCmd.connectLsp(result => MyLang(LspConnected(result))),
-    )
-  | LspConnected(Ok(_)) => (
-      {...model, myLang: {...ml, lspConnected: true, loading: false, error: None}},
-      Tea_Cmd.none,
-    )
-  | LspConnected(Error(e)) => (
-      {...model, myLang: {...ml, lspConnected: false, loading: false, error: Some(e)}},
-      Tea_Cmd.none,
-    )
-  | LspDiagnosticsReceived(diagnostics) => (
-      {...model, myLang: {...ml, lspDiagnostics: diagnostics}},
-      Tea_Cmd.none,
-    )
-  | RequestDiagnostics =>
-    if ml.lspConnected {
-      let filePath = "panll://mylang/" ++ MyLangEngine.dialectLabel(ml.activeDialect) ++ "/input"
-      (
-        model,
-        MyLangCmd.requestDiagnostics(filePath, ml.editorContent, result =>
-          switch result {
-          | Ok(json) => MyLang(LspDiagnosticsReceived([json]))
-          | Error(e) => MyLang(LspDiagnosticsReceived([e]))
-          }
-        ),
-      )
-    } else {
-      (model, Tea_Cmd.none)
-    }
-  | ToggleMyLangBojRouting => (
-      {...model, myLang: {...ml, bojRouting: !ml.bojRouting}},
-      Tea_Cmd.none,
-    )
-  }
-}
diff --git a/src/update/UpdateNetworkTopology.affine b/src/update/UpdateNetworkTopology.affine
new file mode 100644
index 00000000..80e139e2
--- /dev/null
+++ b/src/update/UpdateNetworkTopology.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateNetworkTopology;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateNetworkTopology.res b/src/update/UpdateNetworkTopology.res
deleted file mode 100644
index 691bd02f..00000000
--- a/src/update/UpdateNetworkTopology.res
+++ /dev/null
@@ -1,247 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Extracted sub-updater for the Network Topology panel.
-/// Manages the IDApTIK network topology visualisation — device/connection parsing,
-/// DNS table, packet flow animation, SVG export, and security level overlays.
-
-open Model
-open Msg
-
-let updateNetworkTopology = (model: model, msg: networkTopologyMsg): (model, Tea_Cmd.t<msg>) => {
-  let nt = model.networkTopology
-  switch msg {
-  | SetTopologyCategory(cat) => (
-      {...model, networkTopology: {...nt, activeCategory: cat}},
-      Tea_Cmd.none,
-    )
-  | RefreshTopology => (
-      {...model, networkTopology: {...nt, loading: true}},
-      Tea_Cmd.batch(list{
-        NetworkTopologyCmd.readTopology(result => NetworkTopology(TopologyReceived(result))),
-        TypeLLService.checkGameDataTypes("topology", "network-topology", result => NetworkTopology(
-          TypeCheckResult(result),
-        )),
-      }),
-    )
-  | TopologyReceived(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-        let devArr = obj->Dict.get("devices")->Option.flatMap(JSON.Decode.array)->Option.getOr([])
-        let devices = devArr->Array.filterMap(d => {
-          let dObj = d->JSON.Decode.object->Option.getOr(Dict.make())
-          let id = dObj->Dict.get("id")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let name = dObj->Dict.get("name")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let deviceType =
-            dObj->Dict.get("deviceType")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let zoneStr =
-            dObj->Dict.get("zone")->Option.flatMap(JSON.Decode.string)->Option.getOr("public")
-          let zone = switch zoneStr {
-          | "dmz" => NetworkTopologyModel.ZoneDmz
-          | "internal" => ZoneInternal
-          | "restricted" => ZoneRestricted
-          | "air_gapped" => ZoneAirGapped
-          | _ => ZonePublic
-          }
-          let securityLevel =
-            dObj->Dict.get("securityLevel")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let x = dObj->Dict.get("x")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let y = dObj->Dict.get("y")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let flagsArr =
-            dObj->Dict.get("defenceFlags")->Option.flatMap(JSON.Decode.array)->Option.getOr([])
-          let defenceFlags = flagsArr->Array.filterMap(f => f->JSON.Decode.string)
-          let compromised =
-            dObj->Dict.get("compromised")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-          let active =
-            dObj->Dict.get("active")->Option.flatMap(JSON.Decode.bool)->Option.getOr(true)
-          Some({
-            NetworkTopologyModel.id,
-            name,
-            deviceType,
-            zone,
-            securityLevel: Float.toInt(securityLevel),
-            x,
-            y,
-            defenceFlags,
-            compromised,
-            active,
-          })
-        })
-        let connArr =
-          obj->Dict.get("connections")->Option.flatMap(JSON.Decode.array)->Option.getOr([])
-        let connections = connArr->Array.filterMap(c => {
-          let cObj = c->JSON.Decode.object->Option.getOr(Dict.make())
-          let sourceId =
-            cObj->Dict.get("sourceId")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let targetId =
-            cObj->Dict.get("targetId")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let protoStr =
-            cObj->Dict.get("protocol")->Option.flatMap(JSON.Decode.string)->Option.getOr("custom")
-          let protocol = switch protoStr {
-          | "ssh" => NetworkTopologyModel.ProtoSSH
-          | "https" => ProtoHTTPS
-          | "ftp" => ProtoFTP
-          | "dns" => ProtoDNS
-          | other => ProtoCustom(other)
-          }
-          let encrypted =
-            cObj->Dict.get("encrypted")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-          let packetCount =
-            cObj->Dict.get("packetCount")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let latencyMs =
-            cObj->Dict.get("latencyMs")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let active =
-            cObj->Dict.get("active")->Option.flatMap(JSON.Decode.bool)->Option.getOr(true)
-          Some({
-            NetworkTopologyModel.sourceId,
-            targetId,
-            protocol,
-            encrypted,
-            packetCount: Float.toInt(packetCount),
-            latencyMs,
-            active,
-          })
-        })
-        Some((devices, connections))
-
-      | None => None
-      }
-      switch parsed {
-      | Some((devices, connections)) => (
-          {
-            ...model,
-            networkTopology: {
-              ...nt,
-              devices,
-              connections,
-              loading: false,
-              error: None,
-            },
-          },
-          Tea_Cmd.none,
-        )
-      | None => ({...model, networkTopology: {...nt, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | TopologyReceived(Error(err)) => (
-      {...model, networkTopology: {...nt, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | SelectDevice(id) => (
-      {...model, networkTopology: {...nt, selectedDeviceId: Some(id)}},
-      Tea_Cmd.none,
-    )
-  | DeselectDevice => ({...model, networkTopology: {...nt, selectedDeviceId: None}}, Tea_Cmd.none)
-  | RefreshDns => (
-      {...model, networkTopology: {...nt, loading: true}},
-      NetworkTopologyCmd.readDnsTable(result => NetworkTopology(DnsReceived(result))),
-    )
-  | DnsReceived(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let entries = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let hostname =
-            obj->Dict.get("hostname")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let resolvedIp =
-            obj->Dict.get("resolvedIp")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let recordType =
-            obj->Dict.get("recordType")->Option.flatMap(JSON.Decode.string)->Option.getOr("A")
-          let ttl = obj->Dict.get("ttl")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          Some({
-            NetworkTopologyModel.hostname,
-            resolvedIp,
-            recordType,
-            ttl: Float.toInt(ttl),
-          })
-        })
-        Some(entries)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(entries) => (
-          {...model, networkTopology: {...nt, dnsEntries: entries, loading: false, error: None}},
-          Tea_Cmd.none,
-        )
-      | None => ({...model, networkTopology: {...nt, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | DnsReceived(Error(err)) => (
-      {...model, networkTopology: {...nt, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | TogglePacketAnimation => (
-      {...model, networkTopology: {...nt, animatePackets: !nt.animatePackets}},
-      if !nt.animatePackets {
-        NetworkTopologyCmd.readPacketFlow(result => NetworkTopology(PacketFlowReceived(result)))
-      } else {
-        Tea_Cmd.none
-      },
-    )
-  | PacketFlowReceived(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let events = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let connectionId =
-            obj->Dict.get("connectionId")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let timestamp =
-            obj->Dict.get("timestamp")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let size = obj->Dict.get("size")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let blocked =
-            obj->Dict.get("blocked")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-          Some({
-            NetworkTopologyModel.connectionId,
-            timestamp,
-            size: Float.toInt(size),
-            blocked,
-          })
-        })
-        Some(events)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(events) => (
-          {...model, networkTopology: {...nt, packetFlow: events, error: None}},
-          Tea_Cmd.none,
-        )
-      | None => ({...model, networkTopology: {...nt, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | PacketFlowReceived(Error(err)) => (
-      {...model, networkTopology: {...nt, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | ToggleLabels => ({...model, networkTopology: {...nt, showLabels: !nt.showLabels}}, Tea_Cmd.none)
-  | ToggleSecurityLevels => (
-      {...model, networkTopology: {...nt, showSecurityLevels: !nt.showSecurityLevels}},
-      Tea_Cmd.none,
-    )
-  | ExportTopologySvg => (
-      model,
-      NetworkTopologyCmd.exportSvg(result => NetworkTopology(TopologySvgExported(result))),
-    )
-  | TopologySvgExported(Ok(_)) => (model, Tea_Cmd.none)
-  | TopologySvgExported(Error(err)) => (
-      {...model, networkTopology: {...nt, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | DismissTopoError => ({...model, networkTopology: {...nt, error: None}}, Tea_Cmd.none)
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "networktopology", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateObservability.affine b/src/update/UpdateObservability.affine
new file mode 100644
index 00000000..bb102213
--- /dev/null
+++ b/src/update/UpdateObservability.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateObservability;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateObservability.res b/src/update/UpdateObservability.res
deleted file mode 100644
index 529da572..00000000
--- a/src/update/UpdateObservability.res
+++ /dev/null
@@ -1,39 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Observability — SARIF export, OTEL traces, and summary sub-updater.
-
-open Model
-open Msg
-
-let updateObservability = (model: model, obsMsg: observabilityMsg): (model, Tea_Cmd.t<msg>) => {
-  switch obsMsg {
-  | ExportSarifViaObserveMcp(reportId) =>
-    let cmd = ObservabilityCmd.exportSarifViaObserveMcp(reportId, r => Observability(
-      SarifExportResult(r),
-    ))
-    (model, cmd)
-  | SarifExportResult(_result) => (model, Tea_Cmd.none)
-  | ExportOtelTraces =>
-    let batch = ObservabilityEngine.exportTraceBatch(model.boj.latencyLog)
-    let cmd = ObservabilityCmd.exportOtelTraces(batch, r => Observability(OtelExportResult(r)))
-    (model, cmd)
-  | OtelExportResult(_result) => (model, Tea_Cmd.none)
-  | FetchObservabilitySummary =>
-    let cmd = ObservabilityCmd.fetchObservabilitySummary(r => Observability(
-      ObservabilitySummaryResult(r),
-    ))
-    (model, cmd)
-  | ObservabilitySummaryResult(_result) => (model, Tea_Cmd.none)
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "observability", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateObservatory.affine b/src/update/UpdateObservatory.affine
new file mode 100644
index 00000000..42e8b3d2
--- /dev/null
+++ b/src/update/UpdateObservatory.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateObservatory;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateObservatory.res b/src/update/UpdateObservatory.res
deleted file mode 100644
index e351447c..00000000
--- a/src/update/UpdateObservatory.res
+++ /dev/null
@@ -1,34 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Observatory — integrative dashboard sub-updater.
-
-open Model
-open Msg
-
-let updateObservatory = (model: model, subMsg: observatoryMsg): (model, Tea_Cmd.t<msg>) => {
-  switch subMsg {
-  | SetObsTab(tab) => (
-      {...model, observatory: {...model.observatory, activeTab: tab}},
-      Tea_Cmd.none,
-    )
-  | RunHealthCheck => (
-      {...model, observatory: {...model.observatory, checking: true}},
-      Tea_Cmd.none,
-    )
-  | HealthCheckComplete(result) =>
-    switch result {
-    | Ok(snapshots) => (
-        {...model, observatory: {...model.observatory, snapshots, checking: false, error: None}},
-        Tea_Cmd.none,
-      )
-    | Error(err) => (
-        {...model, observatory: {...model.observatory, checking: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | DismissObsError => (
-      {...model, observatory: {...model.observatory, error: None}},
-      Tea_Cmd.none,
-    )
-  }
-}
diff --git a/src/update/UpdatePaneA.affine b/src/update/UpdatePaneA.affine
new file mode 100644
index 00000000..fe27b3d5
--- /dev/null
+++ b/src/update/UpdatePaneA.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdatePaneA;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdatePaneA.res b/src/update/UpdatePaneA.res
deleted file mode 100644
index 7b7eeaca..00000000
--- a/src/update/UpdatePaneA.res
+++ /dev/null
@@ -1,28 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Pane-A (Ambient) Update Logic.
-
-open Model
-open Msg
-
-/// Update logic for the Ambient Substrate (Ergonomics).
-let update = (model: model, msg: paneAMsg): (model, Tea_Cmd.t<msg>) => {
-  switch msg {
-  | ToggleExpansion => (
-      {...model, paneA: {...model.paneA, expanded: !model.paneA.expanded}},
-      Tea_Cmd.none,
-    )
-  | UpdateMetrics(index, antiInflammatory, humidity) => (
-      {
-        ...model,
-        paneA: {
-          ...model.paneA,
-          vexationIndex: index,
-          antiInflammatoryActive: antiInflammatory,
-          humidity: humidity,
-        },
-      },
-      Tea_Cmd.none,
-    )
-  }
-}
diff --git a/src/update/UpdatePaneL.affine b/src/update/UpdatePaneL.affine
new file mode 100644
index 00000000..c006bfe8
--- /dev/null
+++ b/src/update/UpdatePaneL.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdatePaneL;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdatePaneL.res b/src/update/UpdatePaneL.res
deleted file mode 100644
index 865f6a74..00000000
--- a/src/update/UpdatePaneL.res
+++ /dev/null
@@ -1,126 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Extracted sub-updater for Pane-L (Logical Constraints).
-/// Manages the set of formal constraints applied to the current inference session.
-/// Handles all paneLMsg variants: add, remove, toggle, pin, edit, set active,
-/// and constraint type inference results.
-
-open Model
-open Msg
-
-/// STATE TRANSITION: Pane-L (Logical Constraints)
-/// Manages the set of formal constraints applied to the current inference session.
-/// Handles all 6 paneLMsg variants: add, remove, toggle, pin, edit, set active.
-let updatePaneL = (model: model, msg: paneLMsg): (model, Tea_Cmd.t<msg>) => {
-  // Push undo snapshot for user-initiated constraint changes.
-  let model = switch msg {
-  | AddConstraint(_) | RemoveConstraint(_) | ToggleConstraint(_) | PinConstraint(_) =>
-    UpdateHelpers.pushUndoSnapshot(model)
-  | _ => model
-  }
-  let paneL = model.paneL
-  switch msg {
-  | AddConstraint(c) => {
-      let newModel = {
-        ...model,
-        paneL: {...paneL, constraints: Array.concat(paneL.constraints, [c])},
-      }
-      // When the new constraint is active, dispatch a proof obligation to ECHIDNA
-      // via the Panel-N monologue so the neural layer can begin verification.
-      let cmd = if c.active {
-        Tea_Cmd.call(callbacks => {
-          let proverLabel = switch model.echidna.selectedProver {
-          | Some(p) => p
-          | None => "default prover"
-          }
-          callbacks.enqueue(
-            PaneN(
-              UpdateMonologue(
-                model.paneN.monologue ++
-                "\n\n[DISPATCH] New proof obligation: " ++
-                c.expression ++
-                " \u2192 dispatching to " ++
-                proverLabel ++ "...",
-              ),
-            ),
-          )
-        })
-      } else {
-        Tea_Cmd.none
-      }
-      (newModel, cmd)
-    }
-  | RemoveConstraint(id) => (
-      {
-        ...model,
-        paneL: {
-          ...paneL,
-          constraints: Array.filter(paneL.constraints, c => c.id !== id),
-        },
-      },
-      Tea_Cmd.none,
-    )
-  | ToggleConstraint(id) => {
-      let newConstraints = Array.map(paneL.constraints, c =>
-        c.id === id ? {...c, active: !c.active} : c
-      )
-      let newModel = {...model, paneL: {...paneL, constraints: newConstraints}}
-      // If the toggled constraint became active, dispatch an ECHIDNA proof obligation
-      // to complete the symbolic-neural feedback loop.
-      let toggledConstraint = Array.find(newConstraints, c => c.id === id)
-      let cmd = switch toggledConstraint {
-      | Some(c) if c.active =>
-        Tea_Cmd.call(callbacks => {
-          let proverLabel = switch model.echidna.selectedProver {
-          | Some(p) => p
-          | None => "default prover"
-          }
-          callbacks.enqueue(
-            PaneN(
-              UpdateMonologue(
-                model.paneN.monologue ++
-                "\n\n[DISPATCH] Constraint reactivated: " ++
-                c.expression ++
-                " \u2192 dispatching to " ++
-                proverLabel ++ "...",
-              ),
-            ),
-          )
-        })
-      | _ => Tea_Cmd.none
-      }
-      (newModel, cmd)
-    }
-  | PinConstraint(id) => (
-      {
-        ...model,
-        paneL: {
-          ...paneL,
-          constraints: Array.map(paneL.constraints, c =>
-            c.id === id ? {...c, pinned: !c.pinned} : c
-          ),
-        },
-      },
-      Tea_Cmd.none,
-    )
-  | UpdateEditorContent(content) => {
-      // Fire TypeLL type inference on the editor content (debounced by TEA — every keystroke
-      // sends a command, but the backend handles deduplication).
-      let cmd = if content !== "" {
-        TypeLLService.inferConstraintType(content, result => PaneL(ConstraintTypeInferred(result)))
-      } else {
-        Tea_Cmd.none
-      }
-      ({...model, paneL: {...paneL, editorContent: content, lastInferredType: None}}, cmd)
-    }
-  | SetActiveConstraint(id) => ({...model, paneL: {...paneL, activeConstraintId: id}}, Tea_Cmd.none)
-  | ConstraintTypeInferred(Ok(json)) => {
-      let newTypell = {...model.typell, queriesServed: model.typell.queriesServed + 1}
-      ({...model, paneL: {...paneL, lastInferredType: Some(json)}, typell: newTypell}, Tea_Cmd.none)
-    }
-  | ConstraintTypeInferred(Error(_)) => {
-      UpdateHelpers.logDegradedService("TypeLL", "constraint type inference failed")
-      (model, Tea_Cmd.none)
-    }
-  }
-}
diff --git a/src/update/UpdatePaneN.affine b/src/update/UpdatePaneN.affine
new file mode 100644
index 00000000..5f51b8be
--- /dev/null
+++ b/src/update/UpdatePaneN.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdatePaneN;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdatePaneN.res b/src/update/UpdatePaneN.res
deleted file mode 100644
index 4d59ab62..00000000
--- a/src/update/UpdatePaneN.res
+++ /dev/null
@@ -1,79 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Extracted sub-updater for Pane-N (Neural/Inference Tokens).
-/// Handles the real-time stream of tokens generated by the LLM.
-/// All paneNMsg variants: receive, clear, toggle active, monologue, agency,
-/// source/category/phase filters, confidence threshold, validated/proof only.
-
-open Model
-open Msg
-
-/// STATE TRANSITION: Pane-N (Neural/Inference Tokens)
-/// Handles the real-time stream of tokens generated by the LLM.
-/// All 5 paneNMsg variants: receive, clear, toggle active, monologue, agency.
-let updatePaneN = (model: model, msg: paneNMsg): model => {
-  let paneN = model.paneN
-  let newPaneN = switch msg {
-  | ReceiveToken(token) => {
-      ...paneN,
-      tokens: Array.concat(paneN.tokens, [token]),
-      nextTokenId: paneN.nextTokenId + 1,
-      activeCausalChain: [token.id],
-    }
-  | ClearTokens => {...paneN, tokens: [], nextTokenId: 0, activeCausalChain: []}
-  | SetInferenceActive(active) => {...paneN, inferenceActive: active}
-  | UpdateMonologue(text) => {...paneN, monologue: text}
-  | UpdateAgency(agency) => {...paneN, agency}
-  | ToggleSourceFilter(source) => {
-      let current = paneN.filters.sources
-      let has = current->Array.some(s => s === source)
-      let newSources = if has {
-        current->Array.filter(s => s !== source)
-      } else {
-        Array.concat(current, [source])
-      }
-      {...paneN, filters: {...paneN.filters, sources: newSources}}
-    }
-  | ToggleCategoryFilter(cat) => {
-      let current = paneN.filters.categories
-      let has = current->Array.some(c => c === cat)
-      let newCats = if has {
-        current->Array.filter(c => c !== cat)
-      } else {
-        Array.concat(current, [cat])
-      }
-      {...paneN, filters: {...paneN.filters, categories: newCats}}
-    }
-  | TogglePhaseFilter(phase) => {
-      let current = paneN.filters.phases
-      let has = current->Array.some(p => p === phase)
-      let newPhases = if has {
-        current->Array.filter(p => p !== phase)
-      } else {
-        Array.concat(current, [phase])
-      }
-      {...paneN, filters: {...paneN.filters, phases: newPhases}}
-    }
-  | SetConfidenceThreshold(threshold) => {
-      ...paneN,
-      filters: {...paneN.filters, confidenceThreshold: threshold},
-    }
-  | ToggleValidatedOnly => {
-      ...paneN,
-      filters: {...paneN.filters, validatedOnly: !paneN.filters.validatedOnly},
-    }
-  | ToggleProofOnly => {...paneN, filters: {...paneN.filters, proofOnly: !paneN.filters.proofOnly}}
-  | ClearFilters => {
-      ...paneN,
-      filters: {
-        sources: [],
-        categories: [],
-        phases: [],
-        confidenceThreshold: 0.0,
-        validatedOnly: false,
-        proofOnly: false,
-      },
-    }
-  }
-  {...model, paneN: newPaneN}
-}
diff --git a/src/update/UpdatePaneW.affine b/src/update/UpdatePaneW.affine
new file mode 100644
index 00000000..d922e66f
--- /dev/null
+++ b/src/update/UpdatePaneW.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdatePaneW;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdatePaneW.res b/src/update/UpdatePaneW.res
deleted file mode 100644
index 45f4b1a4..00000000
--- a/src/update/UpdatePaneW.res
+++ /dev/null
@@ -1,346 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Extracted sub-updater for Pane-W (World / Event Chains).
-/// Orchestrates the visualization of complex temporal event chains,
-/// security study reports, and panic-attacker integration.
-
-open Model
-open Msg
-
-// ===========================================================================
-// Pane-W Helpers
-// ===========================================================================
-
-/// Parse panic-attacker capability JSON response.
-/// Extracts mode, binary path, and status detail from the backend probe result.
-/// Expected JSON shape: { "mode": "full"|"fallback"|"unavailable",
-///   "binary_path": "/path/to/binary", "status_detail": "..." }
-/// Tea_Json decoder for panic-attacker capability response.
-let panicAttackerCapabilityDecoder: Tea_Json.decoder<(
-  string,
-  option<string>,
-  option<string>,
-)> = Tea_Json.map3(
-  (mode, binary, detail) => (mode, binary, detail),
-  Decoders.fieldWithDefault("mode", Tea_Json.string, "unknown"),
-  Decoders.optionalFieldDecoder("binary_path", Tea_Json.string),
-  Decoders.optionalFieldDecoder("status_detail", Tea_Json.string),
-)
-
-let parsePanicAttackerCapability = (json: string): (string, option<string>, option<string>) =>
-  Decoders.decodeWithDefault(panicAttackerCapabilityDecoder, ("unknown", None, None), json)
-
-// ===========================================================================
-// Pane-W Sub-Updater
-// ===========================================================================
-
-/// STATE TRANSITION: Pane-W (World / Event Chains)
-/// Orchestrates the visualization of complex temporal event chains,
-/// security study reports, and panic-attacker integration.
-///
-/// Returns `(model, Tea_Cmd.t<msg>)` because several handlers issue Gossamer
-/// commands (file dialogs, backend imports, security ambush runs).
-let updatePaneW = (model: model, msg: paneWMsg): (model, Tea_Cmd.t<msg>) => {
-  let paneW = model.paneW
-  switch msg {
-  // --- Content & view toggles (pure state) ---
-  | UpdateContent(text) => ({...model, paneW: {...paneW, content: text}}, Tea_Cmd.none)
-  | ToggleTopologyView => (
-      {...model, paneW: {...paneW, topologyView: !paneW.topologyView}},
-      Tea_Cmd.none,
-    )
-  | SetValidatedOutput(text) => (
-      {...model, paneW: {...paneW, lastValidatedOutput: text}},
-      Tea_Cmd.none,
-    )
-  | UpdateEventChainInput(text) => (
-      {...model, paneW: {...paneW, eventChainInput: text}},
-      Tea_Cmd.none,
-    )
-  | ClearEventChain => (
-      {
-        ...model,
-        paneW: {
-          ...paneW,
-          eventChain: [],
-          eventChainSummary: None,
-          eventChainTimeline: None,
-          eventChainInput: "",
-          eventChainError: None,
-        },
-      },
-      Tea_Cmd.none,
-    )
-
-  // --- Barycentre tour ---
-  | StartTour => (
-      {
-        ...model,
-        barycentreTour: {
-          active: true,
-          currentStep: TourIntro,
-          completed: model.barycentreTour.completed,
-        },
-      },
-      Tea_Cmd.none,
-    )
-  | NextTourStep => {
-      let next = switch model.barycentreTour.currentStep {
-      | TourIntro => TourBinaryStar
-      | TourBinaryStar => TourBarycentrePosition
-      | TourBarycentrePosition => TourOrbitalMetrics
-      | TourOrbitalMetrics => TourContractiles
-      | TourContractiles => TourSyncHealth
-      | TourSyncHealth => TourComplete
-      | TourComplete => TourComplete
-      }
-      let completed = next === TourComplete
-      (
-        {
-          ...model,
-          barycentreTour: {
-            active: !completed,
-            currentStep: next,
-            completed: completed || model.barycentreTour.completed,
-          },
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | PrevTourStep => {
-      let prev = switch model.barycentreTour.currentStep {
-      | TourIntro => TourIntro
-      | TourBinaryStar => TourIntro
-      | TourBarycentrePosition => TourBinaryStar
-      | TourOrbitalMetrics => TourBarycentrePosition
-      | TourContractiles => TourOrbitalMetrics
-      | TourSyncHealth => TourContractiles
-      | TourComplete => TourSyncHealth
-      }
-      ({...model, barycentreTour: {...model.barycentreTour, currentStep: prev}}, Tea_Cmd.none)
-    }
-  | CloseTour => (
-      {...model, barycentreTour: {...model.barycentreTour, active: false}},
-      Tea_Cmd.none,
-    )
-
-  // --- Inline event chain parsing from text input ---
-  | ImportEventChain =>
-    // PARSING: Transforms raw JSON input into a structured event chain.
-    switch EventChain.parse(paneW.eventChainInput) {
-    | Ok(payload) => (
-        {
-          ...model,
-          paneW: {
-            ...paneW,
-            eventChain: payload.events,
-            eventChainSummary: payload.summary,
-            eventChainTimeline: payload.timeline,
-            eventChainError: None,
-          },
-        },
-        Tea_Cmd.none,
-      )
-    | Error(err) => ({...model, paneW: {...paneW, eventChainError: Some(err)}}, Tea_Cmd.none)
-    }
-
-  // --- File import commands (issue Gossamer commands, await result) ---
-  | ImportEventChainFile => (
-      model,
-      GossamerCmd.openEventChainFile(result => PaneW(EventChainFileLoaded(result))),
-    )
-  | ImportPanicAttackerReportFile => (
-      model,
-      GossamerCmd.openPanicAttackerReportFile(result => PaneW(
-        PanicAttackerReportPathLoaded(result),
-      )),
-    )
-  | ImportLatestPanicAttacker => (
-      model,
-      GossamerCmd.importLatestPanicAttackerReport(result => PaneW(
-        PanicAttackerImportLoaded(result),
-      )),
-    )
-  | CheckPanicAttackerCapability => (
-      model,
-      GossamerCmd.getPanicAttackerCapability(result => PaneW(
-        PanicAttackerCapabilityLoaded(result),
-      )),
-    )
-
-  // --- File import results (parse response data) ---
-  | EventChainFileLoaded(result) =>
-    switch result {
-    | Ok(contents) =>
-      switch EventChain.parse(contents) {
-      | Ok(payload) => (
-          {
-            ...model,
-            paneW: {
-              ...paneW,
-              eventChain: payload.events,
-              eventChainSummary: payload.summary,
-              eventChainTimeline: payload.timeline,
-              eventChainError: None,
-            },
-          },
-          Tea_Cmd.none,
-        )
-      | Error(err) => ({...model, paneW: {...paneW, eventChainError: Some(err)}}, Tea_Cmd.none)
-      }
-    | Error(err) => ({...model, paneW: {...paneW, eventChainError: Some(err)}}, Tea_Cmd.none)
-    }
-  | PanicAttackerReportPathLoaded(result) =>
-    // Two-phase import: first get the file path, then ask backend to convert.
-    switch result {
-    | Ok(path) => (
-        model,
-        GossamerCmd.importPanicAttackerReport(path, result => PaneW(
-          PanicAttackerImportLoaded(result),
-        )),
-      )
-    | Error(err) => ({...model, paneW: {...paneW, eventChainError: Some(err)}}, Tea_Cmd.none)
-    }
-  | PanicAttackerImportLoaded(result) =>
-    switch result {
-    | Ok(json) =>
-      switch EventChain.parse(json) {
-      | Ok(payload) => (
-          {
-            ...model,
-            paneW: {
-              ...paneW,
-              eventChain: payload.events,
-              eventChainSummary: payload.summary,
-              eventChainTimeline: payload.timeline,
-              eventChainError: None,
-            },
-          },
-          Tea_Cmd.none,
-        )
-      | Error(err) => ({...model, paneW: {...paneW, eventChainError: Some(err)}}, Tea_Cmd.none)
-      }
-    | Error(err) => ({...model, paneW: {...paneW, eventChainError: Some(err)}}, Tea_Cmd.none)
-    }
-  | PanicAttackerCapabilityLoaded(result) =>
-    switch result {
-    | Ok(json) => {
-        let (mode, binary, detail) = parsePanicAttackerCapability(json)
-        (
-          {
-            ...model,
-            paneW: {
-              ...paneW,
-              panicAttackerMode: mode,
-              panicAttackerBinary: binary,
-              panicAttackerStatusDetail: detail,
-            },
-          },
-          Tea_Cmd.none,
-        )
-      }
-    | Error(err) => (
-        {
-          ...model,
-          paneW: {
-            ...paneW,
-            panicAttackerMode: "unavailable",
-            panicAttackerStatusDetail: Some(err),
-          },
-        },
-        Tea_Cmd.none,
-      )
-    }
-
-  // --- Security menu interactions (pure state) ---
-  | ToggleSecurityTools => (
-      {...model, paneW: {...paneW, securityMenuExpanded: !paneW.securityMenuExpanded}},
-      Tea_Cmd.none,
-    )
-  | OpenSecurityDialog(tool) => (
-      {...model, paneW: {...paneW, securityDialogOpen: true, securityDialogTool: Some(tool)}},
-      Tea_Cmd.none,
-    )
-  | CloseSecurityDialog => (
-      {...model, paneW: {...paneW, securityDialogOpen: false, securityDialogTool: None}},
-      Tea_Cmd.none,
-    )
-  | ToggleSecurityStudyView => (
-      {...model, paneW: {...paneW, securityViewActive: !paneW.securityViewActive}},
-      Tea_Cmd.none,
-    )
-  | SetSecurityTarget(t) => ({...model, paneW: {...paneW, securityTarget: t}}, Tea_Cmd.none)
-  | SetSecurityTimeline(t) => ({...model, paneW: {...paneW, securityTimeline: t}}, Tea_Cmd.none)
-  | SetSecurityAxes(a) => ({...model, paneW: {...paneW, securityAxes: a}}, Tea_Cmd.none)
-  | SetSecurityIntensity(i) => ({...model, paneW: {...paneW, securityIntensity: i}}, Tea_Cmd.none)
-  | SetSecurityDuration(d) => ({...model, paneW: {...paneW, securityDuration: d}}, Tea_Cmd.none)
-
-  // --- Security command lifecycle ---
-  | LoadSecurityTimelineFile => (
-      model,
-      GossamerCmd.openSecurityTimelineFile(result => PaneW(SecurityTimelineFileLoaded(result))),
-    )
-  | SecurityTimelineFileLoaded(result) =>
-    switch result {
-    | Ok(path) => ({...model, paneW: {...paneW, securityTimeline: path}}, Tea_Cmd.none)
-    | Error(err) => ({...model, paneW: {...paneW, securityError: Some(err)}}, Tea_Cmd.none)
-    }
-  | LaunchSecurityAmbush => {
-      // Gather options from current Pane-W state for the ambush command.
-      let timeline = if paneW.securityTimeline !== "" {
-        Some(paneW.securityTimeline)
-      } else {
-        None
-      }
-      let axes = if paneW.securityAxes !== "" {
-        Some(paneW.securityAxes)
-      } else {
-        None
-      }
-      let durationSecs = switch Int.fromString(paneW.securityDuration) {
-      | Some(d) => d
-      | None => 30
-      }
-      (
-        {...model, paneW: {...paneW, securityStatus: Some("Running..."), securityError: None}},
-        GossamerCmd.runPanicAttackAmbush(
-          paneW.securityTarget,
-          timeline,
-          axes,
-          paneW.securityIntensity,
-          durationSecs,
-          result => PaneW(SecurityAmbushResult(result)),
-        ),
-      )
-    }
-  | SecurityAmbushResult(result) =>
-    switch result {
-    | Ok(json) =>
-      switch EventChain.parse(json) {
-      | Ok(payload) => (
-          {
-            ...model,
-            paneW: {
-              ...paneW,
-              eventChain: payload.events,
-              eventChainSummary: payload.summary,
-              eventChainTimeline: payload.timeline,
-              eventChainError: None,
-              securityStatus: Some("Complete"),
-              securityError: None,
-            },
-          },
-          Tea_Cmd.none,
-        )
-      | Error(err) => (
-          {...model, paneW: {...paneW, securityStatus: Some("Failed"), securityError: Some(err)}},
-          Tea_Cmd.none,
-        )
-      }
-    | Error(err) => (
-        {...model, paneW: {...paneW, securityStatus: Some("Failed"), securityError: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  }
-}
diff --git a/src/update/UpdatePanelSwitcher.affine b/src/update/UpdatePanelSwitcher.affine
new file mode 100644
index 00000000..c1520051
--- /dev/null
+++ b/src/update/UpdatePanelSwitcher.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdatePanelSwitcher;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdatePanelSwitcher.res b/src/update/UpdatePanelSwitcher.res
deleted file mode 100644
index 64678be5..00000000
--- a/src/update/UpdatePanelSwitcher.res
+++ /dev/null
@@ -1,73 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-/// STATE TRANSITION: Panel Switcher (unified panel navigation)
-///
-/// Handles panel toggle, close, and health check results. Updates the
-/// `panelSwitcher` state and the `connectionStatus` of individual panels
-/// in the registry. Also bridges to legacy `visible` fields on VAB and
-/// CloudGuard so existing code continues to work during migration.
-let updatePanelSwitcher = (model: model, msg: panelSwitcherMsg): (model, Tea_Cmd.t<msg>) => {
-  let ps = model.panelSwitcher
-  switch msg {
-  | TogglePanel(id) => {
-      // Toggle: if already active, close; otherwise open the requested panel.
-      let newActive = ps.activePanel === Some(id) ? None : Some(id)
-      // Bridge to legacy visible fields for VAB and CloudGuard.
-      let newVab = {...model.vab, visible: newActive === Some(PanelVab)}
-      let newCg = {...model.cloudguard, visible: newActive === Some(PanelCloudGuard)}
-      // Auto-load Farm inventory when opening the panel for the first time.
-      let farmCmd = if newActive === Some(PanelFarm) && !model.farm.loaded && !model.farm.loading {
-        FarmCmd.listRepos(result => Farm(ReposLoaded(result)))
-      } else {
-        Tea_Cmd.none
-      }
-      // Auto-connect CloudGuard when opening.
-      let cgCmd = if (
-        newActive === Some(PanelCloudGuard) && model.cloudguard.connection === Disconnected
-      ) {
-        CloudGuardCmd.verifyToken(result => CloudGuard(TokenVerified(result)))
-      } else {
-        Tea_Cmd.none
-      }
-      (
-        {
-          ...model,
-          panelSwitcher: {...ps, activePanel: newActive},
-          vab: newVab,
-          cloudguard: newCg,
-        },
-        Tea_Cmd.batch(list{farmCmd, cgCmd}),
-      )
-    }
-  | ClosePanels => {
-      let newVab = {...model.vab, visible: false}
-      let newCg = {...model.cloudguard, visible: false}
-      (
-        {
-          ...model,
-          panelSwitcher: {...ps, activePanel: None, expandedGroup: None},
-          vab: newVab,
-          cloudguard: newCg,
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | ExpandGroup(kind) => {
-      // Toggle: collapse if already expanded, otherwise expand.
-      let newExpanded = ps.expandedGroup === Some(kind) ? None : Some(kind)
-      ({...model, panelSwitcher: {...ps, expandedGroup: newExpanded}}, Tea_Cmd.none)
-    }
-  | HealthCheckResult(panelId, result) => {
-      // Update the connectionStatus of the panel that was checked.
-      let newStatus = switch result {
-      | Ok(_) => ServiceConnected
-      | Error(e) => ServiceError(e)
-      }
-      let newPanels =
-        ps.panels->Array.map(p => p.id === panelId ? {...p, connectionStatus: newStatus} : p)
-      ({...model, panelSwitcher: {...ps, panels: newPanels}}, Tea_Cmd.none)
-    }
-  }
-}
diff --git a/src/update/UpdatePanicAttack.affine b/src/update/UpdatePanicAttack.affine
new file mode 100644
index 00000000..fbb87490
--- /dev/null
+++ b/src/update/UpdatePanicAttack.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdatePanicAttack;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdatePanicAttack.res b/src/update/UpdatePanicAttack.res
deleted file mode 100644
index a5718cb6..00000000
--- a/src/update/UpdatePanicAttack.res
+++ /dev/null
@@ -1,321 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Sub-updater for Panic-Attack — stress testing and weak point analysis.
-///
-/// Handles capability probing, assail/assault scans, report management,
-/// SARIF export, event-chain export, and category/filter state.
-
-open Model
-open Msg
-
-let updatePanicAttack = (model: model, subMsg: panicAttackMsg): (model, Tea_Cmd.t<msg>) => {
-  let pa = model.panicAttack
-  switch subMsg {
-  | CheckCapability => (
-      {...model, panicAttack: {...pa, mode: "checking"}},
-      PanicAttackCmd.checkCapability(result => PanicAttack(CapabilityLoaded(result))),
-    )
-  | CapabilityLoaded(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-        let mode =
-          obj->Dict.get("mode")->Option.flatMap(JSON.Decode.string)->Option.getOr("unavailable")
-        let detail = obj->Dict.get("detail")->Option.flatMap(JSON.Decode.string)
-        let binary = obj->Dict.get("binary")->Option.flatMap(JSON.Decode.string)
-        Some((mode, detail, binary))
-
-      | None => None
-      }
-      switch parsed {
-      | Some((mode, _detail, binary)) => (
-          {...model, panicAttack: {...pa, mode, binaryPath: binary, version: binary}},
-          Tea_Cmd.none,
-        )
-      | None => (
-          {...model, panicAttack: {...pa, mode: "full", version: Some(jsonStr)}},
-          Tea_Cmd.none,
-        )
-      }
-    }
-  | CapabilityLoaded(Error(_err)) => (
-      {...model, panicAttack: {...pa, mode: "unavailable"}},
-      Tea_Cmd.none,
-    )
-  | SetTargetPath(path) => ({...model, panicAttack: {...pa, targetPath: path}}, Tea_Cmd.none)
-  | RunAssail => (
-      {...model, panicAttack: {...pa, scanning: true, lastError: None}},
-      Tea_Cmd.batch(list{
-        PanicAttackCmd.assail(pa.targetPath, result => PanicAttack(AssailResult(result))),
-        TypeLLService.checkSecurityTypes(pa.targetPath, "panic-attack", result => PanicAttack(
-          TypeCheckResult(result),
-        )),
-      }),
-    )
-  | AssailResult(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-        let summaryObj =
-          obj->Dict.get("summary")->Option.flatMap(JSON.Decode.object)->Option.getOr(Dict.make())
-        let getInt = (d, key) =>
-          d->Dict.get(key)->Option.flatMap(JSON.Decode.float)->Option.map(Float.toInt)
-        let weakPts = getInt(summaryObj, "weak_points")->Option.getOr(0)
-        let critPts = getInt(summaryObj, "critical_weak_points")->Option.getOr(0)
-        let crashes = getInt(summaryObj, "total_crashes")->Option.getOr(0)
-        let robustness =
-          summaryObj
-          ->Dict.get("robustness_score")
-          ->Option.flatMap(JSON.Decode.float)
-          ->Option.getOr(0.0)
-        let filesScanned = getInt(summaryObj, "files_scanned")->Option.getOr(0)
-        let summary: scanSummary = {
-          totalFindings: weakPts,
-          critical: critPts,
-          high: 0,
-          medium: weakPts - critPts,
-          low: 0,
-          info: crashes,
-          filesScanned,
-          language: summaryObj
-          ->Dict.get("program")
-          ->Option.flatMap(JSON.Decode.string)
-          ->Option.getOr("unknown"),
-        }
-        Some(summary, robustness)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(summary, _robustness) => (
-          {...model, panicAttack: {...pa, scanning: false, summary: Some(summary)}},
-          Tea_Cmd.none,
-        )
-      | None => ({...model, panicAttack: {...pa, scanning: false}}, Tea_Cmd.none)
-      }
-    }
-  | AssailResult(Error(err)) => (
-      {...model, panicAttack: {...pa, scanning: false, lastError: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | RunAssault => (
-      {...model, panicAttack: {...pa, scanning: true, lastError: None}},
-      PanicAttackCmd.assault(pa.targetPath, result => PanicAttack(AssaultResult(result))),
-    )
-  | AssaultResult(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-        let summaryObj =
-          obj->Dict.get("summary")->Option.flatMap(JSON.Decode.object)->Option.getOr(Dict.make())
-        let getInt = (d, key) =>
-          d->Dict.get(key)->Option.flatMap(JSON.Decode.float)->Option.map(Float.toInt)
-        let weakPts = getInt(summaryObj, "weak_points")->Option.getOr(0)
-        let critPts = getInt(summaryObj, "critical_weak_points")->Option.getOr(0)
-        let crashes = getInt(summaryObj, "total_crashes")->Option.getOr(0)
-        let summary: scanSummary = {
-          totalFindings: weakPts,
-          critical: critPts,
-          high: 0,
-          medium: weakPts - critPts,
-          low: 0,
-          info: crashes,
-          filesScanned: 0,
-          language: summaryObj
-          ->Dict.get("program")
-          ->Option.flatMap(JSON.Decode.string)
-          ->Option.getOr("unknown"),
-        }
-        Some(summary)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(summary) => (
-          {...model, panicAttack: {...pa, scanning: false, summary: Some(summary)}},
-          Tea_Cmd.none,
-        )
-      | None => ({...model, panicAttack: {...pa, scanning: false}}, Tea_Cmd.none)
-      }
-    }
-  | AssaultResult(Error(err)) => (
-      {...model, panicAttack: {...pa, scanning: false, lastError: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | LoadReports => (model, PanicAttackCmd.listReports(result => PanicAttack(ReportsLoaded(result))))
-  | ReportsLoaded(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let items = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let id = obj->Dict.get("id")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let targetPath =
-            obj->Dict.get("targetPath")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let timestamp =
-            obj->Dict.get("timestamp")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let summaryObj =
-            obj->Dict.get("summary")->Option.flatMap(JSON.Decode.object)->Option.getOr(Dict.make())
-          let getInt = key =>
-            summaryObj
-            ->Dict.get(key)
-            ->Option.flatMap(JSON.Decode.float)
-            ->Option.getOr(0.0)
-            ->Float.toInt
-          let language =
-            summaryObj->Dict.get("language")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let summary: PanicAttackModel.scanSummary = {
-            totalFindings: getInt("totalFindings"),
-            critical: getInt("critical"),
-            high: getInt("high"),
-            medium: getInt("medium"),
-            low: getInt("low"),
-            info: getInt("info"),
-            filesScanned: getInt("filesScanned"),
-            language,
-          }
-          Some({PanicAttackModel.id, targetPath, timestamp, summary})
-        })
-        Some(items)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(reports) => ({...model, panicAttack: {...pa, reports}}, Tea_Cmd.none)
-      | None => (model, Tea_Cmd.none)
-      }
-    }
-  | ReportsLoaded(Error(err)) => (
-      {...model, panicAttack: {...pa, lastError: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | ViewReport(path) => (
-      model,
-      PanicAttackCmd.viewReport(path, result => PanicAttack(ReportLoaded(result))),
-    )
-  | ReportLoaded(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let findings = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let file = obj->Dict.get("file")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let line =
-            obj->Dict.get("line")->Option.flatMap(JSON.Decode.float)->Option.map(Float.toInt)
-          let sevStr =
-            obj->Dict.get("severity")->Option.flatMap(JSON.Decode.string)->Option.getOr("info")
-          let severity: PanicAttackModel.weakPointSeverity = switch sevStr {
-          | "critical" => Critical
-          | "high" => High
-          | "medium" => Medium
-          | "low" => Low
-          | _ => Info
-          }
-          let description =
-            obj->Dict.get("description")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let context = obj->Dict.get("context")->Option.flatMap(JSON.Decode.string)
-          Some({
-            PanicAttackModel.file,
-            line,
-            category: OtherCategory(""),
-            severity,
-            description,
-            context,
-          })
-        })
-        Some(findings)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(findings) => ({...model, panicAttack: {...pa, findings}}, Tea_Cmd.none)
-      | None => (model, Tea_Cmd.none)
-      }
-    }
-  | ReportLoaded(Error(err)) => (
-      {...model, panicAttack: {...pa, lastError: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | CompareReports(left, right) => (
-      model,
-      PanicAttackCmd.diffReports(left, right, result => PanicAttack(ComparisonLoaded(result))),
-    )
-  | ComparisonLoaded(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-        let diffArr = obj->Dict.get("findings")->Option.flatMap(JSON.Decode.array)->Option.getOr([])
-        let findings = diffArr->Array.filterMap(item => {
-          let o = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let file = o->Dict.get("file")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let line = o->Dict.get("line")->Option.flatMap(JSON.Decode.float)->Option.map(Float.toInt)
-          let sevStr =
-            o->Dict.get("severity")->Option.flatMap(JSON.Decode.string)->Option.getOr("info")
-          let severity: PanicAttackModel.weakPointSeverity = switch sevStr {
-          | "critical" => Critical
-          | "high" => High
-          | "medium" => Medium
-          | "low" => Low
-          | _ => Info
-          }
-          let description =
-            o->Dict.get("description")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let context = o->Dict.get("context")->Option.flatMap(JSON.Decode.string)
-          Some({
-            PanicAttackModel.file,
-            line,
-            category: OtherCategory(""),
-            severity,
-            description,
-            context,
-          })
-        })
-        Some(findings)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(findings) => ({...model, panicAttack: {...pa, findings, showDiff: true}}, Tea_Cmd.none)
-      | None => (model, Tea_Cmd.none)
-      }
-    }
-  | ComparisonLoaded(Error(err)) => (
-      {...model, panicAttack: {...pa, lastError: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | ExportSarif(path) => (
-      model,
-      PanicAttackCmd.exportSarif(path, result => PanicAttack(SarifExported(result))),
-    )
-  | SarifExported(Ok(_path)) => (model, Tea_Cmd.none)
-  | SarifExported(Error(err)) => (
-      {...model, panicAttack: {...pa, lastError: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | ExportEventChain(path) => (
-      model,
-      PanicAttackCmd.exportEventChain(path, result => PanicAttack(EventChainExported(result))),
-    )
-  | EventChainExported(Ok(_path)) => (model, Tea_Cmd.none)
-  | EventChainExported(Error(err)) => (
-      {...model, panicAttack: {...pa, lastError: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | SetPanicCategory(cat) => ({...model, panicAttack: {...pa, activeCategory: cat}}, Tea_Cmd.none)
-  | SetPanicFilter(filterText) => ({...model, panicAttack: {...pa, filterText}}, Tea_Cmd.none)
-  | ToggleDiffView => ({...model, panicAttack: {...pa, showDiff: !pa.showDiff}}, Tea_Cmd.none)
-  | DismissError => ({...model, panicAttack: {...pa, lastError: None}}, Tea_Cmd.none)
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "panicattack", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdatePatternDiag.affine b/src/update/UpdatePatternDiag.affine
new file mode 100644
index 00000000..1a85d203
--- /dev/null
+++ b/src/update/UpdatePatternDiag.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdatePatternDiag;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdatePatternDiag.res b/src/update/UpdatePatternDiag.res
deleted file mode 100644
index 7ea9633c..00000000
--- a/src/update/UpdatePatternDiag.res
+++ /dev/null
@@ -1,79 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Code MRI — Pattern Diagnostics sub-updater (Layer 3)
-
-open Model
-open Msg
-open PatternDiagModel
-open PatternDiagMsg
-
-/// Handle pattern diagnostics messages.
-let updatePatternDiag = (model: model, msg: patternDiagMsg): (model, Tea_Cmd.t<msg>) => {
-  let pd = model.patternDiag
-  switch msg {
-  | AnalysePatterns => {
-      // Run pattern analysis against the timeline snapshots.
-      let patterns = PatternDiagEngine.analyseTimeline(model.codeMriTimeline.snapshots)
-      // Award XP for any positive patterns detected.
-      let profile = patterns->Array.reduce(pd.profile, (prof, p) =>
-        PatternDiagEngine.awardXp(prof, p.kind)
-      )
-      let now = Date.toISOString(Date.make())
-      (
-        {
-          ...model,
-          patternDiag: {
-            ...pd,
-            patterns: Array.concat(patterns, pd.patterns),
-            profile,
-            lastAnalysis: Some(now),
-          },
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | PatternsDetected(patterns) => (
-      {
-        ...model,
-        patternDiag: {
-          ...pd,
-          patterns: Array.concat(patterns, pd.patterns),
-          lastAnalysis: Some(Date.toISOString(Date.make())),
-        },
-      },
-      Tea_Cmd.none,
-    )
-  | AcknowledgePattern(id) => {
-      let patterns = pd.patterns->Array.map(p =>
-        if p.id === id {
-          {...p, acknowledged: true}
-        } else {
-          p
-        }
-      )
-      ({...model, patternDiag: {...pd, patterns}}, Tea_Cmd.none)
-    }
-  | TogglePatternPanel => (
-      {...model, patternDiag: {...pd, expanded: !pd.expanded}},
-      Tea_Cmd.none,
-    )
-  | SetMinPatternSeverity(severity) => (
-      {...model, patternDiag: {...pd, minSeverity: severity}},
-      Tea_Cmd.none,
-    )
-  | ToggleGamification => (
-      {...model, patternDiag: {...pd, gamificationEnabled: !pd.gamificationEnabled}},
-      Tea_Cmd.none,
-    )
-  | ResetProfile => (
-      {
-        ...model,
-        patternDiag: {
-          ...pd,
-          profile: {xp: [], totalXp: 0, badges: [], streaks: [], level: 1},
-        },
-      },
-      Tea_Cmd.none,
-    )
-  }
-}
diff --git a/src/update/UpdatePlaygrounds.affine b/src/update/UpdatePlaygrounds.affine
new file mode 100644
index 00000000..d9d303f7
--- /dev/null
+++ b/src/update/UpdatePlaygrounds.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdatePlaygrounds;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdatePlaygrounds.res b/src/update/UpdatePlaygrounds.res
deleted file mode 100644
index a436376d..00000000
--- a/src/update/UpdatePlaygrounds.res
+++ /dev/null
@@ -1,112 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-let updatePlaygrounds = (model: model, msg: playgroundsMsg): (model, Tea_Cmd.t<msg>) => {
-  let pg = model.playgrounds
-  switch msg {
-  | SetPlayCategory(cat) => ({...model, playgrounds: {...pg, activeCategory: cat}}, Tea_Cmd.none)
-  | SetLanguage(lang) => ({...model, playgrounds: {...pg, activeLanguage: lang}}, Tea_Cmd.none)
-  | UpdateCode(code) => ({...model, playgrounds: {...pg, editorContent: code}}, Tea_Cmd.none)
-  | Execute => (
-      {...model, playgrounds: {...pg, executing: true, error: None}},
-      Tea_Cmd.batch(list{
-        PlaygroundsCmd.executeQuery(
-          PlaygroundsEngine.languageLabel(pg.activeLanguage),
-          pg.editorContent,
-          result => Playgrounds(ExecuteResult(result)),
-        ),
-        TypeLLService.checkCodeTypes(
-          pg.editorContent,
-          PlaygroundsEngine.languageLabel(pg.activeLanguage),
-          result => Playgrounds(TypeCheckResult(result)),
-        ),
-      }),
-    )
-  | ExecuteResult(result) =>
-    switch result {
-    | Ok(_jsonStr) => (
-        {
-          ...model,
-          playgrounds: {
-            ...pg,
-            executing: false,
-            lastResult: Some({
-              success: true,
-              data: Some(_jsonStr),
-              error: None,
-              durationMs: 0.0,
-              rowCount: 0,
-            }),
-          },
-        },
-        Tea_Cmd.none,
-      )
-    | Error(e) => (
-        {
-          ...model,
-          playgrounds: {
-            ...pg,
-            executing: false,
-            lastResult: Some({
-              success: false,
-              data: None,
-              error: Some(e),
-              durationMs: 0.0,
-              rowCount: 0,
-            }),
-          },
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | LoadSnippet(snippetId) => {
-      let snippet = pg.snippets->Array.find(s => s.id === snippetId)
-      switch snippet {
-      | Some(s) => (
-          {...model, playgrounds: {...pg, editorContent: s.code, activeLanguage: s.language}},
-          Tea_Cmd.none,
-        )
-      | None => (model, Tea_Cmd.none)
-      }
-    }
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "playgrounds", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | SetNqcInput(text) => ({...model, playgrounds: {...pg, nqcInput: text}}, Tea_Cmd.none)
-  | SetNqcLanguage(lang) => ({...model, playgrounds: {...pg, nqcLanguage: lang}}, Tea_Cmd.none)
-  | ExecuteNqc => (
-      {...model, playgrounds: {...pg, executing: true, error: None}},
-      PlaygroundsCmd.executeQuery(
-        PlaygroundsEngine.languageLabel(pg.nqcLanguage),
-        pg.nqcInput,
-        result => Playgrounds(NqcResult(result)),
-      ),
-    )
-  | NqcResult(result) => {
-      let qr = switch result {
-      | Ok(data) => {success: true, data: Some(data), error: None, durationMs: 0.0, rowCount: 0}
-      | Error(e) => {success: false, data: None, error: Some(e), durationMs: 0.0, rowCount: 0}
-      }
-      let entry = (pg.nqcInput, pg.nqcLanguage, Some(qr))
-      let history = [entry]->Array.concat(pg.nqcHistory)
-      (
-        {
-          ...model,
-          playgrounds: {...pg, executing: false, nqcHistory: history, lastResult: Some(qr)},
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | ClearNqcHistory => ({...model, playgrounds: {...pg, nqcHistory: []}}, Tea_Cmd.none)
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdatePlaza.affine b/src/update/UpdatePlaza.affine
new file mode 100644
index 00000000..86d962e4
--- /dev/null
+++ b/src/update/UpdatePlaza.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdatePlaza;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdatePlaza.res b/src/update/UpdatePlaza.res
deleted file mode 100644
index c9bd4497..00000000
--- a/src/update/UpdatePlaza.res
+++ /dev/null
@@ -1,153 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-/// STATE TRANSITION: Palimpsest Plaza (PMPL licensing)
-///
-/// Handles adoption stats loading, repo scanning, and UI state changes.
-/// The backend scans the local filesystem for SPDX headers and LICENSE files.
-let updatePlaza = (model: model, msg: plazaMsg): (model, Tea_Cmd.t<msg>) => {
-  let plaza = model.plaza
-  switch msg {
-  | LoadAdoptionStats => (
-      {...model, plaza: {...plaza, loading: true, error: None}},
-      PlazaCmd.adoptionStats(result => Plaza(AdoptionStatsLoaded(result))),
-    )
-  | AdoptionStatsLoaded(result) =>
-    switch result {
-    | Ok(jsonStr) =>
-      switch PlazaEngine.parseAdoptionStats(jsonStr) {
-      | Ok(stats) => (
-          {
-            ...model,
-            plaza: {
-              ...plaza,
-              loaded: true,
-              loading: false,
-              error: None,
-              stats: Some(stats),
-            },
-          },
-          Tea_Cmd.none,
-        )
-      | Error(e) => ({...model, plaza: {...plaza, loading: false, error: Some(e)}}, Tea_Cmd.none)
-      }
-    | Error(e) => ({...model, plaza: {...plaza, loading: false, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | ScanRepo(repoName) => (
-      {...model, plaza: {...plaza, loading: true}},
-      Tea_Cmd.batch(list{
-        PlazaCmd.scanRepo(repoName, result => Plaza(RepoScanned(result))),
-        TypeLLService.checkConfigTypes(repoName, "plaza", result => Plaza(TypeCheckResult(result))),
-      }),
-    )
-  | RepoScanned(result) =>
-    switch result {
-    | Ok(jsonStr) => {
-        let audit = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-        | Some(json) =>
-          let o = json->JSON.Decode.object->Option.getOr(Dict.make())
-          let gb = (d, k) => d->Dict.get(k)->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-          let gi = (d, k) =>
-            d
-            ->Dict.get(k)
-            ->Option.flatMap(JSON.Decode.float)
-            ->Option.map(Float.toInt)
-            ->Option.getOr(0)
-          let gs = (d, k) => d->Dict.get(k)->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let rn = gs(o, "repo_name")
-          let hl = gb(o, "has_license_file")
-          let sc = gi(o, "spdx_header_count")
-          let tf = gi(o, "total_source_files")
-          let ea = gb(o, "has_exhibit_a")
-          let eb = gb(o, "has_exhibit_b")
-          let ps = gb(o, "has_provenance_sig")
-          let lv = if hl && sc === tf && ea && eb && ps {
-            FullCompliance
-          } else if hl && sc > 0 {
-            PartialCompliance
-          } else {
-            NonCompliant
-          }
-          Some(
-            (
-              {
-                repoName: rn,
-                level: lv,
-                filesScanned: tf,
-                filesWithHeaders: sc,
-                lastAudit: Date.make()->Date.toISOString,
-                checks: [
-                  {
-                    id: "license",
-                    name: "LICENSE",
-                    description: "LICENSE file",
-                    passed: hl,
-                    severity: "critical",
-                    detail: hl ? "Found" : "Missing",
-                  },
-                  {
-                    id: "spdx",
-                    name: "SPDX",
-                    description: "SPDX headers",
-                    passed: sc === tf,
-                    severity: "warning",
-                    detail: `${Int.toString(sc)}/${Int.toString(tf)}`,
-                  },
-                  {
-                    id: "exhibit-a",
-                    name: "Exhibit A",
-                    description: "Ethical Use",
-                    passed: ea,
-                    severity: "info",
-                    detail: ea ? "Present" : "Missing",
-                  },
-                  {
-                    id: "exhibit-b",
-                    name: "Exhibit B",
-                    description: "QS Provenance",
-                    passed: eb,
-                    severity: "info",
-                    detail: eb ? "Present" : "Missing",
-                  },
-                  {
-                    id: "sig",
-                    name: "Provenance",
-                    description: "Signature",
-                    passed: ps,
-                    severity: "warning",
-                    detail: ps ? "Verified" : "Not found",
-                  },
-                ],
-              }: complianceAudit
-            ),
-          )
-
-        | None => None
-        }
-        switch audit {
-        | Some(a) => (
-            {...model, plaza: {...plaza, loading: false, audits: Array.concat(plaza.audits, [a])}},
-            Tea_Cmd.none,
-          )
-        | None => ({...model, plaza: {...plaza, loading: false}}, Tea_Cmd.none)
-        }
-      }
-    | Error(e) => ({...model, plaza: {...plaza, loading: false, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | SetPlazaCategory(cat) => ({...model, plaza: {...plaza, activeCategory: cat}}, Tea_Cmd.none)
-  | SetPlazaFilter(text) => ({...model, plaza: {...plaza, filterText: text}}, Tea_Cmd.none)
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "plaza", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateProtocolSquisher.affine b/src/update/UpdateProtocolSquisher.affine
new file mode 100644
index 00000000..3de2205f
--- /dev/null
+++ b/src/update/UpdateProtocolSquisher.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateProtocolSquisher;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateProtocolSquisher.res b/src/update/UpdateProtocolSquisher.res
deleted file mode 100644
index 87d2b458..00000000
--- a/src/update/UpdateProtocolSquisher.res
+++ /dev/null
@@ -1,132 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// UpdateProtocolSquisher.res — Protocol Squisher sub-updater extracted from Update.res
-
-open Model
-open Msg
-
-let updateProtocolSquisher = (model: model, msg: protocolSquisherMsg): (model, Tea_Cmd.t<msg>) => {
-  let ps = model.protocolSquisher
-  switch msg {
-  | SetPsCategory(cat) => ({...model, protocolSquisher: {...ps, activeCategory: cat}}, Tea_Cmd.none)
-  | CheckPsCli => (
-      {...model, protocolSquisher: {...ps, loading: true}},
-      ProtocolSquisherCmd.checkCli(result => ProtocolSquisher(PsCliResult(result))),
-    )
-  | PsCliResult(Ok(_)) => (
-      {...model, protocolSquisher: {...ps, cliAvailable: true, loading: false, error: None}},
-      Tea_Cmd.none,
-    )
-  | PsCliResult(Error(e)) => (
-      {...model, protocolSquisher: {...ps, cliAvailable: false, loading: false, error: Some(e)}},
-      Tea_Cmd.none,
-    )
-  | SetAnalyseInput(v) => ({...model, protocolSquisher: {...ps, analyseInput: v}}, Tea_Cmd.none)
-  | RunAnalysis => (
-      {...model, protocolSquisher: {...ps, loading: true, error: None, lastTypeCheck: None}},
-      Tea_Cmd.batch(list{
-        ProtocolSquisherCmd.analyse(ps.analyseInput, result => ProtocolSquisher(
-          AnalysisResult(result),
-        )),
-        TypeLLService.checkSchemaTypes(ps.analyseInput, "auto", result => ProtocolSquisher(
-          SchemaTypeCheckResult(result),
-        )),
-      }),
-    )
-  | AnalysisResult(Ok(json)) =>
-    switch ProtocolSquisherEngine.parseAnalysis(json) {
-    | Ok(result) => {
-        // #6: Extract IR constraints from the analysis result automatically.
-        let irConstraints = ProtocolSquisherEngine.extractIrConstraints(result)
-        (
-          {
-            ...model,
-            protocolSquisher: {
-              ...ps,
-              loading: false,
-              lastAnalysis: Some(result),
-              analysisHistory: Array.concat([result], ps.analysisHistory),
-              irConstraints,
-              error: None,
-            },
-          },
-          Tea_Cmd.none,
-        )
-      }
-    | Error(e) => (
-        {...model, protocolSquisher: {...ps, loading: false, error: Some(e)}},
-        Tea_Cmd.none,
-      )
-    }
-  | AnalysisResult(Error(e)) => (
-      {...model, protocolSquisher: {...ps, loading: false, error: Some(e)}},
-      Tea_Cmd.none,
-    )
-  | SetCompareLeft(v) => ({...model, protocolSquisher: {...ps, compareLeftInput: v}}, Tea_Cmd.none)
-  | SetCompareRight(v) => (
-      {...model, protocolSquisher: {...ps, compareRightInput: v}},
-      Tea_Cmd.none,
-    )
-  | RunComparison => (
-      {...model, protocolSquisher: {...ps, loading: true, error: None}},
-      ProtocolSquisherCmd.compare(
-        ps.compareLeftInput,
-        ps.compareRightInput,
-        result => ProtocolSquisher(ComparisonResult(result)),
-      ),
-    )
-  | ComparisonResult(Ok(json)) => {
-      let parsed = ProtocolSquisherEngine.parseComparison(json)
-      switch parsed {
-      | Ok(comparison) => (
-          {
-            ...model,
-            protocolSquisher: {
-              ...ps,
-              loading: false,
-              error: None,
-              lastComparison: Some(comparison),
-            },
-          },
-          Tea_Cmd.none,
-        )
-      | Error(_) => (
-          {...model, protocolSquisher: {...ps, loading: false, error: None}},
-          Tea_Cmd.none,
-        )
-      }
-    }
-  | ComparisonResult(Error(e)) => (
-      {...model, protocolSquisher: {...ps, loading: false, error: Some(e)}},
-      Tea_Cmd.none,
-    )
-  | SchemaTypeCheckResult(Ok(json)) => {
-      let newTypell = {...model.typell, queriesServed: model.typell.queriesServed + 1}
-      (
-        {...model, protocolSquisher: {...ps, lastTypeCheck: Some(json)}, typell: newTypell},
-        Tea_Cmd.none,
-      )
-    }
-  | SchemaTypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  // #6: Import IR constraints as Panel-L symbolic constraints.
-  | ImportIrConstraints => {
-      let newConstraints = ps.irConstraints->Array.mapWithIndex((expr, idx) => {
-        let c: symbolicConstraint = {
-          id: `ps-ir-${Int.toString(idx)}`,
-          expression: expr,
-          active: true,
-          pinned: false,
-        }
-        c
-      })
-      let existingConstraints = model.paneL.constraints
-      let merged = Array.concat(existingConstraints, newConstraints)
-      ({...model, paneL: {...model.paneL, constraints: merged}}, Tea_Cmd.none)
-    }
-  // #7: Toggle transport compatibility display in Panel-W.
-  | ToggleTransportDisplay => (
-      {...model, protocolSquisher: {...ps, transportDisplayActive: !ps.transportDisplayActive}},
-      Tea_Cmd.none,
-    )
-  }
-}
diff --git a/src/update/UpdateProvenance.affine b/src/update/UpdateProvenance.affine
new file mode 100644
index 00000000..fbce0116
--- /dev/null
+++ b/src/update/UpdateProvenance.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateProvenance;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateProvenance.res b/src/update/UpdateProvenance.res
deleted file mode 100644
index 944c696c..00000000
--- a/src/update/UpdateProvenance.res
+++ /dev/null
@@ -1,176 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Sub-updater for Provenance Map — code trust surface.
-///
-/// Handles file analysis requests, result parsing, palette switching,
-/// hostile UX toggling, and per-region acknowledgement. The provenance
-/// map is ambient — it doesn't occupy a panel slot.
-
-open Model
-open Msg
-
-let updateProvenance = (model: model, msg: provenanceMsg): (model, Tea_Cmd.t<msg>) => {
-  let prov = model.provenance
-  switch msg {
-  | AnalyseFile(repoPath, filePath) => (
-      {...model, provenance: {...prov, loading: true, error: None}},
-      ProvenanceCmd.analyseFile(repoPath, filePath, result => Provenance(AnalysisResult(result))),
-    )
-  | AnalysisResult(result) =>
-    switch result {
-    | Ok(jsonStr) => {
-        let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-        | Some(json) =>
-          let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-          let filePath =
-            obj->Dict.get("filePath")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let analysedAt =
-            obj->Dict.get("analysedAt")->Option.flatMap(JSON.Decode.float)->Option.getOr(Date.now())
-          let regionsArr =
-            obj->Dict.get("regions")->Option.flatMap(JSON.Decode.array)->Option.getOr([])
-          let regions = regionsArr->Array.filterMap(item => {
-            let r = item->JSON.Decode.object->Option.getOr(Dict.make())
-            let startLine =
-              r->Dict.get("startLine")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-            let endLine =
-              r->Dict.get("endLine")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-            let trustStr =
-              r->Dict.get("trustLevel")->Option.flatMap(JSON.Decode.string)->Option.getOr("unknown")
-            let trustLevel: ProvenanceModel.trustLevel = switch trustStr {
-            | "verified" => Verified
-            | "human_reviewed" => HumanReviewed
-            | "ai_assisted" => AiAssisted
-            | "unreviewed_ai" => UnreviewedAi
-            | _ => Unknown
-            }
-            let author = r->Dict.get("author")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-            let authorEmail =
-              r->Dict.get("authorEmail")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-            let coAuthored =
-              r->Dict.get("coAuthored")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-            let coAuthor = r->Dict.get("coAuthor")->Option.flatMap(JSON.Decode.string)
-            let commitSha =
-              r->Dict.get("commitSha")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-            let commitTimestamp =
-              r->Dict.get("commitTimestamp")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-            let acknowledged =
-              r->Dict.get("acknowledged")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-            Some({
-              ProvenanceModel.startLine: Float.toInt(startLine),
-              endLine: Float.toInt(endLine),
-              trustLevel,
-              author,
-              authorEmail,
-              coAuthored,
-              coAuthor,
-              commitSha,
-              commitTimestamp,
-              acknowledged,
-            })
-          })
-          let summaryObj =
-            obj->Dict.get("summary")->Option.flatMap(JSON.Decode.object)->Option.getOr(Dict.make())
-          let getInt = key =>
-            summaryObj
-            ->Dict.get(key)
-            ->Option.flatMap(JSON.Decode.float)
-            ->Option.getOr(0.0)
-            ->Float.toInt
-          let summary: ProvenanceModel.provenanceSummary = {
-            totalLines: getInt("totalLines"),
-            verifiedLines: getInt("verifiedLines"),
-            humanReviewedLines: getInt("humanReviewedLines"),
-            aiAssistedLines: getInt("aiAssistedLines"),
-            unreviewedAiLines: getInt("unreviewedAiLines"),
-            unknownLines: getInt("unknownLines"),
-            authorCount: getInt("authorCount"),
-            coAuthorCount: getInt("coAuthorCount"),
-            hasViolations: summaryObj
-            ->Dict.get("hasViolations")
-            ->Option.flatMap(JSON.Decode.bool)
-            ->Option.getOr(false),
-            unsoundMarkers: getInt("unsoundMarkers"),
-          }
-          let fp: ProvenanceModel.fileProvenance = {filePath, regions, summary, analysedAt}
-          Some(fp)
-
-        | None => None
-        }
-        switch parsed {
-        | Some(fp) => (
-            {...model, provenance: {...prov, activeFile: Some(fp), loading: false, error: None}},
-            Tea_Cmd.none,
-          )
-        | None => ({...model, provenance: {...prov, loading: false, error: None}}, Tea_Cmd.none)
-        }
-      }
-    | Error(e) => ({...model, provenance: {...prov, loading: false, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | UnsoundScanResult(result) =>
-    switch result {
-    | Ok(jsonStr) => {
-        let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-        | Some(json) =>
-          let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-          let unsoundMarkers =
-            obj
-            ->Dict.get("unsoundMarkers")
-            ->Option.flatMap(JSON.Decode.float)
-            ->Option.getOr(0.0)
-            ->Float.toInt
-          Some(unsoundMarkers)
-
-        | None => None
-        }
-        switch (parsed, prov.activeFile) {
-        | (Some(count), Some(fp)) => {
-            let updatedSummary = {
-              ...fp.summary,
-              unsoundMarkers: count,
-              hasViolations: count > 0 || fp.summary.hasViolations,
-            }
-            let updatedFp = {...fp, summary: updatedSummary}
-            ({...model, provenance: {...prov, activeFile: Some(updatedFp)}}, Tea_Cmd.none)
-          }
-        | _ => (model, Tea_Cmd.none)
-        }
-      }
-    | Error(e) => ({...model, provenance: {...prov, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | SetPalette(palette) => ({...model, provenance: {...prov, palette}}, Tea_Cmd.none)
-  | ToggleHostileUx => (
-      {...model, provenance: {...prov, hostileUxSuppressed: !prov.hostileUxSuppressed}},
-      Tea_Cmd.none,
-    )
-  | AcknowledgeRegion(_filePath, startLine) =>
-    switch prov.activeFile {
-    | Some(fp) => {
-        let updatedRegions = fp.regions->Array.map(r =>
-          if r.startLine === startLine {
-            {...r, acknowledged: true}
-          } else {
-            r
-          }
-        )
-        let updatedFp = {...fp, regions: updatedRegions}
-        ({...model, provenance: {...prov, activeFile: Some(updatedFp)}}, Tea_Cmd.none)
-      }
-    | None => (model, Tea_Cmd.none)
-    }
-  | SetEnabled(enabled) => ({...model, provenance: {...prov, enabled}}, Tea_Cmd.none)
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "provenance", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => {
-      UpdateHelpers.logDegradedService("TypeLL", "cross-panel type check failed")
-      (model, Tea_Cmd.none)
-    }
-  }
-}
diff --git a/src/update/UpdateProvisioner.affine b/src/update/UpdateProvisioner.affine
new file mode 100644
index 00000000..2a551356
--- /dev/null
+++ b/src/update/UpdateProvisioner.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateProvisioner;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateProvisioner.res b/src/update/UpdateProvisioner.res
deleted file mode 100644
index 22451db8..00000000
--- a/src/update/UpdateProvisioner.res
+++ /dev/null
@@ -1,222 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-/// STATE TRANSITION: Provisioner (portfolio bundling, config, installation)
-///
-/// Handles portfolio installation, per-panel config changes, isolation tier
-/// selection, custom portfolio creation, and panel enable/disable toggling.
-let updateProvisioner = (model: model, msg: provisionerMsg): (model, Tea_Cmd.t<msg>) => {
-  let prov = model.provisioner
-  switch msg {
-  | SetProvCategory(cat) => ({...model, provisioner: {...prov, activeCategory: cat}}, Tea_Cmd.none)
-  | SetProvFilter(text) => ({...model, provisioner: {...prov, filterText: text}}, Tea_Cmd.none)
-  | InstallPortfolio(portfolioId) => {
-      // Find the portfolio and install all its panels.
-      let portfolio = prov.portfolios->Array.find(p => p.id === portfolioId)
-      switch portfolio {
-      | Some(p) => {
-          // Mark all panels as Installing.
-          let newStatuses = prov.panelInstallStatus->Array.map(((name, status)) =>
-            if p.panels->Array.some(pn => pn === name) {
-              (name, (Installing: panelInstallStatus))
-            } else {
-              (name, status)
-            }
-          )
-          (
-            {
-              ...model,
-              provisioner: {
-                ...prov,
-                panelInstallStatus: newStatuses,
-                installProgress: Some({
-                  portfolioId,
-                  totalPanels: Array.length(p.panels),
-                  installedPanels: 0,
-                  failedPanels: 0,
-                  currentPanel: p.panels->Array.get(0),
-                }),
-              },
-            },
-            // For now, immediately mark as installed (native panels are built-in).
-            // Container installation will be async via ProvisionerCmd.
-            TypeLLService.checkConfigTypes(portfolioId, "provisioner", result => Provisioner(
-              TypeCheckResult(result),
-            )),
-          )
-        }
-      | None => (model, Tea_Cmd.none)
-      }
-    }
-  | InstallPanel(panelName) => {
-      let newStatuses = prov.panelInstallStatus->Array.map(((name, status)) =>
-        if name === panelName {
-          (name, (Installing: panelInstallStatus))
-        } else {
-          (name, status)
-        }
-      )
-      let config = prov.panelConfigs->Array.find(c => c.panelName === panelName)
-      let isoLabel = switch config {
-      | Some(c) => ProvisionerEngine.isolationShortLabel(c.isolation)
-      | None => "Native"
-      }
-      (
-        {...model, provisioner: {...prov, panelInstallStatus: newStatuses}},
-        ProvisionerCmd.installPanel(panelName, isoLabel, result => Provisioner(
-          InstallResult(panelName, result),
-        )),
-      )
-    }
-  | RemovePanel(panelName) => {
-      let newStatuses = prov.panelInstallStatus->Array.map(((name, status)) =>
-        if name === panelName {
-          (name, (Removing: panelInstallStatus))
-        } else {
-          (name, status)
-        }
-      )
-      (
-        {...model, provisioner: {...prov, panelInstallStatus: newStatuses}},
-        ProvisionerCmd.removePanel(panelName, result => Provisioner(
-          RemoveResult(panelName, result),
-        )),
-      )
-    }
-  | InstallResult(panelName, result) => {
-      let newStatus = switch result {
-      | Ok(_) => (Installed: panelInstallStatus)
-      | Error(e) => (InstallFailed(e): panelInstallStatus)
-      }
-      let newStatuses = prov.panelInstallStatus->Array.map(((name, status)) =>
-        if name === panelName {
-          (name, newStatus)
-        } else {
-          (name, status)
-        }
-      )
-      ({...model, provisioner: {...prov, panelInstallStatus: newStatuses}}, Tea_Cmd.none)
-    }
-  | RemoveResult(panelName, result) => {
-      let newStatus = switch result {
-      | Ok(_) => (NotInstalled: panelInstallStatus)
-      | Error(e) => (InstallFailed(e): panelInstallStatus)
-      }
-      let newStatuses = prov.panelInstallStatus->Array.map(((name, status)) =>
-        if name === panelName {
-          (name, newStatus)
-        } else {
-          (name, status)
-        }
-      )
-      ({...model, provisioner: {...prov, panelInstallStatus: newStatuses}}, Tea_Cmd.none)
-    }
-  | TogglePanelEnabled(panelName) => {
-      let newConfigs = prov.panelConfigs->Array.map(c =>
-        if c.panelName === panelName {
-          {...c, enabled: !c.enabled}
-        } else {
-          c
-        }
-      )
-      ({...model, provisioner: {...prov, panelConfigs: newConfigs}}, Tea_Cmd.none)
-    }
-  | SetPanelIsolation(panelName, tier) => {
-      let newConfigs = prov.panelConfigs->Array.map(c =>
-        if c.panelName === panelName {
-          {...c, isolation: tier}
-        } else {
-          c
-        }
-      )
-      ({...model, provisioner: {...prov, panelConfigs: newConfigs}}, Tea_Cmd.none)
-    }
-  | SetCustomName(name) =>({...model, provisioner: {...prov, customName: name}}, Tea_Cmd.none)
-  | ToggleCustomPanel(panelName) => {
-      let exists = prov.customPanels->Array.some(p => p === panelName)
-      let newPanels = if exists {
-        prov.customPanels->Array.filter(p => p !== panelName)
-      } else {
-        Array.concat(prov.customPanels, [panelName])
-      }
-      ({...model, provisioner: {...prov, customPanels: newPanels}}, Tea_Cmd.none)
-    }
-  | SaveCustomPortfolio => if prov.customName === "" || Array.length(prov.customPanels) === 0 {
-      (
-        {
-          ...model,
-          provisioner: {...prov, error: Some("Portfolio needs a name and at least one panel")},
-        },
-        Tea_Cmd.none,
-      )
-    } else {
-      let newPortfolio: portfolio = {
-        id: String.toLowerCase(prov.customName)->String.replaceAll(" ", "-"),
-        name: prov.customName,
-        description: `Custom portfolio with ${Int.toString(
-            Array.length(prov.customPanels),
-          )} panels`,
-        panels: prov.customPanels,
-        defaultIsolation: Native,
-        builtIn: false,
-        icon: "folder",
-        audience: "Custom",
-      }
-      (
-        {
-          ...model,
-          provisioner: {
-            ...prov,
-            portfolios: Array.concat(prov.portfolios, [newPortfolio]),
-            customName: "",
-            customPanels: [],
-            error: None,
-          },
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | ExportProvisionerConfig => {
-      let humidityStr = switch model.humidity {
-      | High => "high"
-      | Medium => "medium"
-      | Low => "low"
-      }
-      let preview = EnsaidConfigEngine.generate(
-        ~repoName="(current repo)",
-        ~workspace=model.workspace,
-        ~humidity=humidityStr,
-        ~panelConfigs=prov.panelConfigs,
-        ~portfolios=prov.portfolios,
-        ~automationRules=model.automationRouter.rules,
-        (),
-      )
-      ({...model, ensaidConfigPreview: Some(preview)}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "provisioner", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  | SaveCustomPluginBundle
-  | TogglePlugin(_, _)
-  | InstallPluginBundle(_)
-  | InstallPlugin(_)
-  | RemovePlugin(_)
-  | PluginInstallResult(_, _)
-  | PluginRemoveResult(_, _)
-  | SetCustomPluginBundleName(_)
-  | ToggleCustomPluginBundle(_)
-  | CreateDeploymentBundle(_) =>
-    // Plugin bundle variants — not yet implemented
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateReleaseManager.affine b/src/update/UpdateReleaseManager.affine
new file mode 100644
index 00000000..70c76023
--- /dev/null
+++ b/src/update/UpdateReleaseManager.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateReleaseManager;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateReleaseManager.res b/src/update/UpdateReleaseManager.res
deleted file mode 100644
index 8f54c532..00000000
--- a/src/update/UpdateReleaseManager.res
+++ /dev/null
@@ -1,320 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// UpdateReleaseManager.res — Release Manager (versioning and distribution) sub-updater extracted from Update.res
-
-open Model
-open Msg
-
-/// Handles all Release Manager (versioning and distribution) messages.
-let updateReleaseManager = (model: model, msg: releaseManagerMsg): (model, Tea_Cmd.t<msg>) => {
-  let rm = model.releaseManager
-  switch msg {
-  | SetReleaseCategory(cat) => (
-      {...model, releaseManager: {...rm, activeCategory: cat}},
-      Tea_Cmd.none,
-    )
-  | BumpVersion(bumpType) => (
-      {...model, releaseManager: {...rm, loading: true}},
-      ReleaseManagerCmd.bumpVersion(bumpType, result => ReleaseManager(VersionBumped(result))),
-    )
-  | VersionBumped(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-        let currentVersion =
-          obj
-          ->Dict.get("currentVersion")
-          ->Option.flatMap(JSON.Decode.string)
-          ->Option.getOr(rm.currentVersion)
-        let nextVersion =
-          obj
-          ->Dict.get("nextVersion")
-          ->Option.flatMap(JSON.Decode.string)
-          ->Option.getOr(rm.nextVersion)
-        Some((currentVersion, nextVersion))
-
-      | None => None
-      }
-      switch parsed {
-      | Some((currentVersion, nextVersion)) => (
-          {
-            ...model,
-            releaseManager: {...rm, currentVersion, nextVersion, loading: false, error: None},
-          },
-          Tea_Cmd.none,
-        )
-      | None => ({...model, releaseManager: {...rm, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | VersionBumped(Error(err)) => (
-      {...model, releaseManager: {...rm, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | SelectRelease(version) => (
-      {...model, releaseManager: {...rm, selectedRelease: Some(version)}},
-      Tea_Cmd.none,
-    )
-  | GenerateChangelog => (
-      {...model, releaseManager: {...rm, loading: true}},
-      ReleaseManagerCmd.generateChangelog(rm.currentVersion, result => ReleaseManager(
-        ChangelogGenerated(result),
-      )),
-    )
-  | ChangelogGenerated(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let items = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let version =
-            obj->Dict.get("version")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let date = obj->Dict.get("date")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let category =
-            obj->Dict.get("category")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let description =
-            obj->Dict.get("description")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let commitHash =
-            obj->Dict.get("commitHash")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let author = obj->Dict.get("author")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          Some({
-            ReleaseManagerModel.version,
-            date,
-            category,
-            description,
-            commitHash,
-            author,
-          })
-        })
-        Some(items)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(entries) => (
-          {
-            ...model,
-            releaseManager: {...rm, pendingChangelog: entries, loading: false, error: None},
-          },
-          Tea_Cmd.none,
-        )
-      | None => ({...model, releaseManager: {...rm, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | ChangelogGenerated(Error(err)) => (
-      {...model, releaseManager: {...rm, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | ToggleAutoChangelog => (
-      {...model, releaseManager: {...rm, autoChangelog: !rm.autoChangelog}},
-      Tea_Cmd.none,
-    )
-  | TogglePlatform(platform) => {
-      let enabled = rm.enabledPlatforms->Array.includes(platform)
-      let newPlatforms = if enabled {
-        rm.enabledPlatforms->Array.filter(p => p !== platform)
-      } else {
-        Array.concat(rm.enabledPlatforms, [platform])
-      }
-      ({...model, releaseManager: {...rm, enabledPlatforms: newPlatforms}}, Tea_Cmd.none)
-    }
-  | BuildArtifacts => {
-      let platformStr =
-        rm.enabledPlatforms
-        ->Array.map(ReleaseManagerEngine.platformLabel)
-        ->Array.join(",")
-      (
-        {...model, releaseManager: {...rm, loading: true}},
-        ReleaseManagerCmd.buildArtifacts(rm.nextVersion, platformStr, result => ReleaseManager(
-          ArtifactsBuilt(result),
-        )),
-      )
-    }
-  | ArtifactsBuilt(Ok(jsonStr)) => {
-      let parsePlatform = (s: string): ReleaseManagerModel.platformTarget =>
-        switch s {
-        | "web" => PlatformWeb
-        | "linux" => PlatformDesktopLinux
-        | "mac" => PlatformDesktopMac
-        | "windows" => PlatformDesktopWindows
-        | "android" => PlatformMobileAndroid
-        | "ios" => PlatformMobileIOS
-        | _ => PlatformWeb
-        }
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let items = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let name = obj->Dict.get("name")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let platformStr =
-            obj->Dict.get("platform")->Option.flatMap(JSON.Decode.string)->Option.getOr("web")
-          let platform = parsePlatform(platformStr)
-          let filePath =
-            obj->Dict.get("filePath")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let sizeBytes =
-            obj->Dict.get("sizeBytes")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let checksum =
-            obj->Dict.get("checksum")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let builtAt =
-            obj->Dict.get("builtAt")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          Some({
-            ReleaseManagerModel.name,
-            platform,
-            filePath,
-            sizeBytes: Float.toInt(sizeBytes),
-            checksum,
-            builtAt,
-          })
-        })
-        Some(items)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(artifacts) => (
-          {...model, releaseManager: {...rm, artifacts, loading: false, error: None}},
-          Tea_Cmd.none,
-        )
-      | None => ({...model, releaseManager: {...rm, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | ArtifactsBuilt(Error(err)) => (
-      {...model, releaseManager: {...rm, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | PublishRelease => (
-      {...model, releaseManager: {...rm, loading: true}},
-      Tea_Cmd.batch(list{
-        ReleaseManagerCmd.publishRelease(
-          rm.nextVersion,
-          ReleaseManagerEngine.channelLabel(rm.channel),
-          result => ReleaseManager(ReleasePublished(result)),
-        ),
-        TypeLLService.checkConfigTypes(rm.nextVersion, "release-manager", result => ReleaseManager(
-          TypeCheckResult(result),
-        )),
-      }),
-    )
-  | ReleasePublished(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-        let version =
-          obj->Dict.get("version")->Option.flatMap(JSON.Decode.string)->Option.getOr(rm.nextVersion)
-        let publishedAt = obj->Dict.get("publishedAt")->Option.flatMap(JSON.Decode.float)
-        let newRelease: ReleaseManagerModel.releaseVersion = {
-          version,
-          channel: rm.channel,
-          status: ReleasePublished,
-          artifacts: rm.artifacts,
-          changelog: rm.pendingChangelog,
-          createdAt: Date.now(),
-          publishedAt,
-        }
-        Some(newRelease)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(release) => (
-          {
-            ...model,
-            releaseManager: {
-              ...rm,
-              releases: Array.concat([release], rm.releases),
-              currentVersion: release.version,
-              loading: false,
-              error: None,
-            },
-          },
-          Tea_Cmd.none,
-        )
-      | None => ({...model, releaseManager: {...rm, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | ReleasePublished(Error(err)) => (
-      {...model, releaseManager: {...rm, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | SetChannel(ch) => ({...model, releaseManager: {...rm, channel: ch}}, Tea_Cmd.none)
-  | ToggleSignArtifacts => (
-      {...model, releaseManager: {...rm, signArtifacts: !rm.signArtifacts}},
-      Tea_Cmd.none,
-    )
-  | LoadReleases => (
-      {...model, releaseManager: {...rm, loading: true}},
-      ReleaseManagerCmd.readReleases(result => ReleaseManager(ReleasesLoaded(result))),
-    )
-  | ReleasesLoaded(Ok(jsonStr)) => {
-      let parseChannel = (s: string): ReleaseManagerModel.releaseChannel =>
-        switch s {
-        | "dev" => ChannelDev
-        | "alpha" => ChannelAlpha
-        | "beta" => ChannelBeta
-        | "rc" => ChannelRC
-        | _ => ChannelStable
-        }
-      let parseStatus = (s: string): ReleaseManagerModel.releaseStatus =>
-        switch s {
-        | "draft" => ReleaseDraft
-        | "building" => ReleaseBuilding
-        | "ready" => ReleaseReady
-        | "published" => ReleasePublished
-        | _ => ReleaseDraft
-        }
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let items = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let version =
-            obj->Dict.get("version")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let channelStr =
-            obj->Dict.get("channel")->Option.flatMap(JSON.Decode.string)->Option.getOr("stable")
-          let channel = parseChannel(channelStr)
-          let statusStr =
-            obj->Dict.get("status")->Option.flatMap(JSON.Decode.string)->Option.getOr("draft")
-          let status = parseStatus(statusStr)
-          let createdAt =
-            obj->Dict.get("createdAt")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let publishedAt = obj->Dict.get("publishedAt")->Option.flatMap(JSON.Decode.float)
-          Some({
-            ReleaseManagerModel.version,
-            channel,
-            status,
-            artifacts: [],
-            changelog: [],
-            createdAt,
-            publishedAt,
-          })
-        })
-        Some(items)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(releases) => (
-          {...model, releaseManager: {...rm, releases, loading: false, error: None}},
-          Tea_Cmd.none,
-        )
-      | None => ({...model, releaseManager: {...rm, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | ReleasesLoaded(Error(err)) => (
-      {...model, releaseManager: {...rm, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | DismissReleaseError => ({...model, releaseManager: {...rm, error: None}}, Tea_Cmd.none)
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "releasemanager", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateRepoLoader.affine b/src/update/UpdateRepoLoader.affine
new file mode 100644
index 00000000..11fb55f0
--- /dev/null
+++ b/src/update/UpdateRepoLoader.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateRepoLoader;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateRepoLoader.res b/src/update/UpdateRepoLoader.res
deleted file mode 100644
index 3187a967..00000000
--- a/src/update/UpdateRepoLoader.res
+++ /dev/null
@@ -1,121 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Sub-updater for Repo Loader — repository scanning, panel configuration.
-///
-/// Handles directory picking, repo scanning, panel suggestion management,
-/// PANELS.a2ml saving, recent repo tracking, and farm search. When a repo
-/// is loaded, dispatches Ai(BuildContext) to give the AI panel repo awareness.
-
-open Model
-open Msg
-
-let updateRepoLoader = (model: model, msg: repoLoaderMsg): (model, Tea_Cmd.t<msg>) => {
-  let rl = model.repoLoader
-  switch msg {
-  | PickRepoDirectory => (
-      model,
-      RepoLoaderCmd.pickDirectory(result => RepoLoader(DirectoryPicked(result))),
-    )
-  | DirectoryPicked(result) =>
-    switch result {
-    | Ok(path) => (
-        {...model, repoLoader: {...rl, scanning: true, error: None}},
-        RepoLoaderCmd.scan(path, result => RepoLoader(ScanResult(result))),
-      )
-    | Error(e) => ({...model, repoLoader: {...rl, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | ScanRepo(path) => (
-      {...model, repoLoader: {...rl, scanning: true, error: None}},
-      Tea_Cmd.batch(list{
-        RepoLoaderCmd.scan(path, result => RepoLoader(ScanResult(result))),
-        TypeLLService.checkConfigTypes(path, "repoloader", result => RepoLoader(
-          TypeCheckResult(result),
-        )),
-      }),
-    )
-  | ScanResult(result) =>
-    switch result {
-    | Ok(jsonStr) =>
-      switch RepoLoaderEngine.parseScanResult(jsonStr) {
-      | Ok((repo, suggestions)) => (
-          {
-            ...model,
-            repoLoader: {
-              ...rl,
-              currentRepo: Some(repo),
-              suggestions,
-              scanning: false,
-              activeCategory: Configure,
-              saved: false,
-              error: None,
-            },
-          },
-          // Push context to AI panel.
-          Tea_Cmd.msg(Ai(BuildContext(repo.path))),
-        )
-      | Error(e) => ({...model, repoLoader: {...rl, scanning: false, error: Some(e)}}, Tea_Cmd.none)
-      }
-    | Error(e) => ({...model, repoLoader: {...rl, scanning: false, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | ToggleSuggestion(panelName) => {
-      let newSuggestions = rl.suggestions->Array.map(s =>
-        if s.panelName === panelName {
-          {...s, enabled: !s.enabled}
-        } else {
-          s
-        }
-      )
-      ({...model, repoLoader: {...rl, suggestions: newSuggestions, saved: false}}, Tea_Cmd.none)
-    }
-  | SavePanels =>
-    switch rl.currentRepo {
-    | Some(repo) => {
-        // Serialise enabled suggestions as a JSON string for the backend.
-        let enabledPanels = rl.suggestions->Array.filter(s => s.enabled)
-        let jsonEntries = enabledPanels->Array.map(s => {
-          `{"name":"${s.panelName}","enabled":true,"priority":"${s.priority}"}`
-        })
-        let jsonStr = "[" ++ Array.join(jsonEntries, ",") ++ "]"
-        (
-          model,
-          RepoLoaderCmd.savePanels(repo.path, jsonStr, result => RepoLoader(PanelsSaved(result))),
-        )
-      }
-    | None => ({...model, repoLoader: {...rl, error: Some("No repo loaded")}}, Tea_Cmd.none)
-    }
-  | PanelsSaved(result) =>
-    switch result {
-    | Ok(_) => ({...model, repoLoader: {...rl, saved: true, error: None}}, Tea_Cmd.none)
-    | Error(e) => ({...model, repoLoader: {...rl, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | LoadRecent => (model, RepoLoaderCmd.listRecent(result => RepoLoader(RecentLoaded(result))))
-  | RecentLoaded(result) =>
-    switch result {
-    | Ok(jsonStr) => {
-        let paths = RepoLoaderEngine.parseRecentPaths(jsonStr)
-        ({...model, repoLoader: {...rl, recentPaths: paths}}, Tea_Cmd.none)
-      }
-    | Error(_) => (model, Tea_Cmd.none)
-    }
-  | SearchFarm(query) => (
-      model,
-      RepoLoaderCmd.searchFarm(query, result => RepoLoader(FarmSearchResult(result))),
-    )
-  | FarmSearchResult(_result) => // Farm search results are displayed directly — handled in UI.
-    (model, Tea_Cmd.none)
-  | SetRepoSearchText(text) => ({...model, repoLoader: {...rl, searchText: text}}, Tea_Cmd.none)
-  | SetRepoCategory(cat) => ({...model, repoLoader: {...rl, activeCategory: cat}}, Tea_Cmd.none)
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "repoloader", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateReposystem.affine b/src/update/UpdateReposystem.affine
new file mode 100644
index 00000000..4ec14f6f
--- /dev/null
+++ b/src/update/UpdateReposystem.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateReposystem;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateReposystem.res b/src/update/UpdateReposystem.res
deleted file mode 100644
index 15fafb10..00000000
--- a/src/update/UpdateReposystem.res
+++ /dev/null
@@ -1,54 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-let updateReposystem = (model: model, msg: reposystemMsg): (model, Tea_Cmd.t<msg>) => {
-  let rsr = model.reposystem
-  switch msg {
-  | ScanAll => (
-      {...model, reposystem: {...rsr, loading: true, error: None}},
-      Tea_Cmd.batch(list{
-        ReposystemCmd.scanAll(result => Reposystem(ScanAllLoaded(result))),
-        TypeLLService.checkConfigTypes("rsr-scan", "reposystem", result => Reposystem(
-          TypeCheckResult(result),
-        )),
-      }),
-    )
-  | ScanAllLoaded(result) =>
-    switch result {
-    | Ok(jsonStr) =>
-      switch ReposystemEngine.parseAudits(jsonStr) {
-      | Ok(audits) => {
-          let stats = ReposystemEngine.computeStats(audits)
-          (
-            {
-              ...model,
-              reposystem: {...rsr, loaded: true, loading: false, audits, stats: Some(stats)},
-            },
-            Tea_Cmd.none,
-          )
-        }
-      | Error(e) => ({...model, reposystem: {...rsr, loading: false, error: Some(e)}}, Tea_Cmd.none)
-      }
-    | Error(e) => ({...model, reposystem: {...rsr, loading: false, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | SetRsrCategory(cat) => ({...model, reposystem: {...rsr, activeCategory: cat}}, Tea_Cmd.none)
-  | SetRsrFilter(text) => ({...model, reposystem: {...rsr, filterText: text}}, Tea_Cmd.none)
-  | SelectRequirement(req) => (
-      {...model, reposystem: {...rsr, selectedRequirement: req}},
-      Tea_Cmd.none,
-    )
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "reposystem", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateScriptGist.affine b/src/update/UpdateScriptGist.affine
new file mode 100644
index 00000000..9e910591
--- /dev/null
+++ b/src/update/UpdateScriptGist.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateScriptGist;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateScriptGist.res b/src/update/UpdateScriptGist.res
deleted file mode 100644
index 6137be9c..00000000
--- a/src/update/UpdateScriptGist.res
+++ /dev/null
@@ -1,384 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// UpdateScriptGist.res — ScriptGist (portable computation gists / Minskian cardfiles) sub-updater extracted from Update.res
-
-open Model
-open Msg
-
-let updateScriptGist = (model: model, msg: scriptGistMsg): (model, Tea_Cmd.t<msg>) => {
-  let sg = model.scriptGist
-  switch msg {
-  | SetGistCategory(cat) => ({...model, scriptGist: {...sg, activeCategory: cat}}, Tea_Cmd.none)
-  | SelectGist(id) => ({...model, scriptGist: {...sg, selectedGistId: id}}, Tea_Cmd.none)
-  | CreateGist => {
-      let id = "gist-" ++ Float.toString(Date.now())
-      let gist = ScriptGistEngine.newGist(id, "Untitled Gist", GistReScript)
-      (
-        {
-          ...model,
-          scriptGist: {
-            ...sg,
-            gists: Array.concat(sg.gists, [gist]),
-            selectedGistId: Some(id),
-            editorOpen: true,
-          },
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | CreateFromTemplate(tplId) => {
-      let id = "gist-" ++ Float.toString(Date.now())
-      switch sg.templates->Array.find(t => t.id === tplId) {
-      | Some(tpl) => {
-          let gist: scriptGist = {
-            ...ScriptGistEngine.newGist(id, tpl.name, tpl.language),
-            code: tpl.templateCode,
-            target: tpl.target,
-            tags: ["from-template"],
-          }
-          (
-            {
-              ...model,
-              scriptGist: {
-                ...sg,
-                gists: Array.concat(sg.gists, [gist]),
-                selectedGistId: Some(id),
-                editorOpen: true,
-              },
-            },
-            Tea_Cmd.none,
-          )
-        }
-      | None => (
-          {...model, scriptGist: {...sg, error: Some("Template not found: " ++ tplId)}},
-          Tea_Cmd.none,
-        )
-      }
-    }
-  | UpdateGistCode(code) => {
-      let gists = sg.gists->Array.map(g =>
-        if Some(g.id) === sg.selectedGistId {
-          {...g, code, modifiedAt: Date.now(), version: g.version + 1}
-        } else {
-          g
-        }
-      )
-      ({...model, scriptGist: {...sg, gists}}, Tea_Cmd.none)
-    }
-  | UpdateGistTitle(title) => {
-      let gists = sg.gists->Array.map(g =>
-        if Some(g.id) === sg.selectedGistId {
-          {...g, title, modifiedAt: Date.now()}
-        } else {
-          g
-        }
-      )
-      ({...model, scriptGist: {...sg, gists}}, Tea_Cmd.none)
-    }
-  | UpdateGistLanguage(lang) => {
-      let gists = sg.gists->Array.map(g =>
-        if Some(g.id) === sg.selectedGistId {
-          {
-            ...g,
-            language: lang,
-            target: ScriptGistEngine.defaultTarget(lang),
-            modifiedAt: Date.now(),
-          }
-        } else {
-          g
-        }
-      )
-      ({...model, scriptGist: {...sg, gists}}, Tea_Cmd.none)
-    }
-  | UpdateGistTarget(target) => {
-      let gists = sg.gists->Array.map(g =>
-        if Some(g.id) === sg.selectedGistId {
-          {...g, target, modifiedAt: Date.now()}
-        } else {
-          g
-        }
-      )
-      ({...model, scriptGist: {...sg, gists}}, Tea_Cmd.none)
-    }
-  | UpdateGistVisibility(vis) => {
-      let gists = sg.gists->Array.map(g =>
-        if Some(g.id) === sg.selectedGistId {
-          {...g, visibility: vis, modifiedAt: Date.now()}
-        } else {
-          g
-        }
-      )
-      ({...model, scriptGist: {...sg, gists}}, Tea_Cmd.none)
-    }
-  | ToggleGistPin(id) => {
-      let gists = sg.gists->Array.map(g =>
-        if g.id === id {
-          {...g, pinned: !g.pinned}
-        } else {
-          g
-        }
-      )
-      ({...model, scriptGist: {...sg, gists}}, Tea_Cmd.none)
-    }
-  | DeleteGist(id) => {
-      let gists = sg.gists->Array.filter(g => g.id !== id)
-      let selectedGistId = if sg.selectedGistId === Some(id) {
-        None
-      } else {
-        sg.selectedGistId
-      }
-      ({...model, scriptGist: {...sg, gists, selectedGistId}}, Tea_Cmd.none)
-    }
-  | SaveGist => // Persist the currently selected gist to ~/.panll/gists/<id>.json via Gossamer.
-    switch sg.selectedGistId {
-    | Some(gistId) =>
-      switch sg.gists->Array.find(g => g.id === gistId) {
-      | Some(gist) => {
-          let gistJson = JSON.stringifyAny(gist)->Option.getOr("{}")
-          (
-            model,
-            ScriptGistCmd.saveGist(gistJson, result =>
-              switch result {
-              | Ok(_) =>
-                ScriptGist(
-                  GistExecutionResult(
-                    Ok({
-                      success: true,
-                      output: "Gist saved successfully",
-                      error: None,
-                      durationMs: 0.0,
-                      executedAt: Date.now(),
-                      invoker: "user",
-                    }),
-                  ),
-                )
-              | Error(err) => ScriptGist(GistExecutionResult(Error(err)))
-              }
-            ),
-          )
-        }
-      | None => (
-          {...model, scriptGist: {...sg, error: Some("No gist found with id: " ++ gistId)}},
-          Tea_Cmd.none,
-        )
-      }
-    | None => (
-        {...model, scriptGist: {...sg, error: Some("No gist selected to save")}},
-        Tea_Cmd.none,
-      )
-    }
-  | ExecuteGist => // Dispatch the currently selected gist to its execution target via BoJ/Gossamer.
-    switch sg.selectedGistId {
-    | Some(gistId) =>
-      switch sg.gists->Array.find(g => g.id === gistId) {
-      | Some(gist) => {
-          let gistJson = JSON.stringifyAny(gist)->Option.getOr("{}")
-          (
-            {...model, scriptGist: {...sg, executing: true}},
-            ScriptGistCmd.executeGist(gistJson, result =>
-              switch result {
-              | Ok(resultJson) => {
-                  // Parse the execution result from the backend.
-                  let parsed = switch Tea_Json.decodeString(Tea_Json.value, resultJson) {
-                  | Ok(json) => json
-                  | Error(_) => JSON.Encode.null
-                  }
-                  let obj = parsed->JSON.Decode.object->Option.getOr(Dict.make())
-                  let success =
-                    obj->Dict.get("success")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-                  let output =
-                    obj->Dict.get("output")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-                  let errorStr = obj->Dict.get("error")->Option.flatMap(JSON.Decode.string)
-                  let durationMs =
-                    obj
-                    ->Dict.get("durationMs")
-                    ->Option.flatMap(JSON.Decode.float)
-                    ->Option.getOr(0.0)
-                  let executedAt =
-                    obj
-                    ->Dict.get("executedAt")
-                    ->Option.flatMap(JSON.Decode.float)
-                    ->Option.getOr(Date.now())
-                  let invoker =
-                    obj
-                    ->Dict.get("invoker")
-                    ->Option.flatMap(JSON.Decode.string)
-                    ->Option.getOr("user")
-                  ScriptGist(
-                    GistExecutionResult(
-                      Ok({
-                        success,
-                        output,
-                        error: errorStr,
-                        durationMs,
-                        executedAt,
-                        invoker,
-                      }),
-                    ),
-                  )
-                }
-              | Error(err) => ScriptGist(GistExecutionResult(Error(err)))
-              }
-            ),
-          )
-        }
-      | None => (
-          {...model, scriptGist: {...sg, error: Some("No gist found with id: " ++ gistId)}},
-          Tea_Cmd.none,
-        )
-      }
-    | None => (
-        {...model, scriptGist: {...sg, error: Some("No gist selected to execute")}},
-        Tea_Cmd.none,
-      )
-    }
-  | GistExecutionResult(result) => switch result {
-    | Ok(gistResult) => (
-        {...model, scriptGist: {...sg, executing: false, lastResult: Some(gistResult)}},
-        Tea_Cmd.none,
-      )
-    | Error(err) => (
-        {...model, scriptGist: {...sg, executing: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | SetGistFilter(text) => ({...model, scriptGist: {...sg, filterText: text}}, Tea_Cmd.none)
-  | SetGistSort(sortBy) => ({...model, scriptGist: {...sg, sortBy}}, Tea_Cmd.none)
-  | ToggleGistEditor => ({...model, scriptGist: {...sg, editorOpen: !sg.editorOpen}}, Tea_Cmd.none)
-  | ToggleMcpTools => (
-      {...model, scriptGist: {...sg, mcpToolsActive: !sg.mcpToolsActive}},
-      Tea_Cmd.none,
-    )
-  | DismissGistError => ({...model, scriptGist: {...sg, error: None}}, Tea_Cmd.none)
-  | UpdateGistSchemaName(name) => {
-      let gists = sg.gists->Array.map(g =>
-        if Some(g.id) === sg.selectedGistId {
-          {...g, schema: {...g.schema, toolName: name}}
-        } else {
-          g
-        }
-      )
-      ({...model, scriptGist: {...sg, gists}}, Tea_Cmd.none)
-    }
-  | UpdateGistSchemaSummary(summary) => {
-      let gists = sg.gists->Array.map(g =>
-        if Some(g.id) === sg.selectedGistId {
-          {...g, schema: {...g.schema, summary}}
-        } else {
-          g
-        }
-      )
-      ({...model, scriptGist: {...sg, gists}}, Tea_Cmd.none)
-    }
-  | AddGistSchemaParam => {
-      let param: gistParam = {
-        name: "param",
-        description: "",
-        schemaType: "string",
-        required: false,
-        defaultValue: None,
-      }
-      let gists = sg.gists->Array.map(g =>
-        if Some(g.id) === sg.selectedGistId {
-          {...g, schema: {...g.schema, inputs: Array.concat(g.schema.inputs, [param])}}
-        } else {
-          g
-        }
-      )
-      ({...model, scriptGist: {...sg, gists}}, Tea_Cmd.none)
-    }
-  | RemoveGistSchemaParam(idx) => {
-      let gists = sg.gists->Array.map(g =>
-        if Some(g.id) === sg.selectedGistId {
-          let inputs = g.schema.inputs->Array.filterWithIndex((_p, i) => i !== idx)
-          {...g, schema: {...g.schema, inputs}}
-        } else {
-          g
-        }
-      )
-      ({...model, scriptGist: {...sg, gists}}, Tea_Cmd.none)
-    }
-  | SnapshotDiachronic => {
-      // Serialise the current scriptGistState into the checkpoint snapshot.
-      let snapshotStr = switch JSON.stringifyAny(sg) {
-      | Some(s) => s
-      | None => "{}"
-      }
-      let checkpoint: diachronicCheckpoint = {
-        index: Array.length(sg.diachronicHistory),
-        timestamp: Date.now(),
-        label: "Checkpoint #" ++ Int.toString(Array.length(sg.diachronicHistory) + 1),
-        snapshot: snapshotStr,
-      }
-      (
-        {
-          ...model,
-          scriptGist: {...sg, diachronicHistory: Array.concat(sg.diachronicHistory, [checkpoint])},
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | RestoreDiachronic(idx) => // Restore a diachronic checkpoint by deserialising the snapshot JSON
-    // back into a scriptGistState. Preserves the diachronic history itself
-    // so the user can still navigate between checkpoints after restoring.
-    switch sg.diachronicHistory->Array.get(idx) {
-    | Some(checkpoint) => if checkpoint.snapshot === "" {
-        // Empty snapshot (legacy checkpoint before serialisation was wired).
-        (
-          {...model, scriptGist: {...sg, error: Some("Checkpoint has no snapshot data")}},
-          Tea_Cmd.none,
-        )
-      } else {
-        // Deserialise the snapshot directly — it was serialised with JSON.stringify
-        // in SnapshotDiachronic above, so it is a valid scriptGistState shape.
-        // Self-serialized data — identity cast is safe for data roundtripped
-        // through JSON.stringify/parse of the same ReScript record type.
-        let jsonToGistState: JSON.t => scriptGistState = %raw(`function(j) { return j; }`)
-        let restored: scriptGistState = switch Tea_Json.decodeString(
-          Tea_Json.value,
-          checkpoint.snapshot,
-        ) {
-        | Ok(json) => jsonToGistState(json)
-        | Error(_) => sg // On parse failure, keep current state.
-        }
-        // Replace gist state but preserve the full checkpoint history
-        // and clear any error from previous operations.
-        let restoredWithHistory = {
-          ...restored,
-          diachronicHistory: sg.diachronicHistory,
-          error: None,
-        }
-        ({...model, scriptGist: restoredWithHistory}, Tea_Cmd.none)
-      }
-    | None => (
-        {...model, scriptGist: {...sg, error: Some("Checkpoint index out of bounds")}},
-        Tea_Cmd.none,
-      )
-    }
-  | InsertIntoCardfile(cardfileId) => switch sg.selectedGistId {
-    | Some(gistId) => {
-        let cardfiles = sg.cardfiles->Array.map(cf =>
-          if cf.id === cardfileId {
-            ScriptGistEngine.addGistToCardfile(cf, gistId)
-          } else {
-            cf
-          }
-        )
-        ({...model, scriptGist: {...sg, cardfiles}}, Tea_Cmd.none)
-      }
-    | None => (model, Tea_Cmd.none)
-    }
-  | RemoveFromCardfile(cardfileId) => switch sg.selectedGistId {
-    | Some(gistId) => {
-        let cardfiles = sg.cardfiles->Array.map(cf =>
-          if cf.id === cardfileId {
-            ScriptGistEngine.removeGistFromCardfile(cf, gistId)
-          } else {
-            cf
-          }
-        )
-        ({...model, scriptGist: {...sg, cardfiles}}, Tea_Cmd.none)
-      }
-    | None => (model, Tea_Cmd.none)
-    }
-  }
-}
diff --git a/src/update/UpdateSecurity.affine b/src/update/UpdateSecurity.affine
new file mode 100644
index 00000000..7d25b8a3
--- /dev/null
+++ b/src/update/UpdateSecurity.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateSecurity;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateSecurity.res b/src/update/UpdateSecurity.res
deleted file mode 100644
index 1c3a0e56..00000000
--- a/src/update/UpdateSecurity.res
+++ /dev/null
@@ -1,266 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Sub-updater for Security — redaction, vault, 2FA, Trustfile, shoulder-safe.
-
-open Model
-open Msg
-
-let updateSecurity = (model: model, msg: securityMsg): (model, Tea_Cmd.t<msg>) => {
-  let sec = model.security
-  switch msg {
-  | TogglePattern(id) => ({...model, security: SecurityEngine.togglePattern(sec, id)}, Tea_Cmd.none)
-  | AddPattern(pattern) => (
-      {...model, security: SecurityEngine.addPattern(sec, pattern)},
-      Tea_Cmd.none,
-    )
-  | RemovePattern(id) => ({...model, security: SecurityEngine.removePattern(sec, id)}, Tea_Cmd.none)
-  | SetRedactionMode(mode) => (
-      {...model, security: SecurityEngine.setRedactionMode(sec, mode)},
-      Tea_Cmd.none,
-    )
-  | RedactText(text, panelId) => {
-      let activePatterns = sec.patterns->Array.filter(p => p.enabled)
-      let patternsJson =
-        "[" ++
-        activePatterns
-        ->Array.map(p => `{"id":"${p.id}","pattern":"${p.pattern}"}`)
-        ->Array.join(",") ++ "]"
-      (model, SecurityCmd.redactText(text, panelId, patternsJson))
-    }
-  | RedactionResult(result) =>
-    switch result {
-    | Ok(jsonStr) => {
-        let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-        | Some(json) =>
-          let arr = json->JSON.Decode.array->Option.getOr([])
-          let secrets = arr->Array.filterMap(item => {
-            let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-            let patternId =
-              obj->Dict.get("patternId")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-            let panelId =
-              obj->Dict.get("panelId")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-            let offset =
-              obj->Dict.get("offset")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-            let length =
-              obj->Dict.get("length")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-            let placeholder =
-              obj
-              ->Dict.get("placeholder")
-              ->Option.flatMap(JSON.Decode.string)
-              ->Option.getOr("[REDACTED]")
-            Some({
-              SecurityModel.patternId,
-              panelId,
-              offset: Float.toInt(offset),
-              length: Float.toInt(length),
-              placeholder,
-            })
-          })
-          Some(secrets)
-
-        | None => None
-        }
-        switch parsed {
-        | Some(detectedSecrets) => ({...model, security: {...sec, detectedSecrets}}, Tea_Cmd.none)
-        | None => (model, Tea_Cmd.none)
-        }
-      }
-    | Error(_) => (model, Tea_Cmd.none)
-    }
-  | VaultStore(key, value) => (model, SecurityCmd.vaultStore(key, value))
-  | VaultStoreResult(result) => switch result {
-    | Ok(_) => ({...model, security: {...sec, error: None}}, Tea_Cmd.none)
-    | Error(e) => ({...model, security: {...sec, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | VaultRetrieve(key) => (model, SecurityCmd.vaultRetrieve(key))
-  | VaultRetrieveResult(result) => switch result {
-    | Ok(_value) => // Value is used by the caller, not stored in frontend state.
-      ({...model, security: {...sec, error: None}}, Tea_Cmd.none)
-    | Error(e) => ({...model, security: {...sec, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | VaultList => (model, SecurityCmd.vaultList())
-  | VaultListResult(result) => switch result {
-    | Ok(jsonStr) => {
-        let keys = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-        | Some(json) =>
-          json
-          ->JSON.Decode.array
-          ->Option.getOr([])
-          ->Array.filterMap(item => {
-            let o = item->JSON.Decode.object->Option.getOr(Dict.make())
-            let k = o->Dict.get("key")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-            if k !== "" {
-              Some(
-                (
-                  {
-                    key: k,
-                    description: o
-                    ->Dict.get("description")
-                    ->Option.flatMap(JSON.Decode.string)
-                    ->Option.getOr(""),
-                    lastUpdated: o
-                    ->Dict.get("lastUpdated")
-                    ->Option.flatMap(JSON.Decode.float)
-                    ->Option.getOr(0.0),
-                  }: vaultKey
-                ),
-              )
-            } else {
-              None
-            }
-          })
-
-        | None => []
-        }
-        ({...model, security: {...sec, vaultStatus: VaultUnlocked, vaultKeys: keys}}, Tea_Cmd.none)
-      }
-    | Error(e) => (
-        {...model, security: {...sec, error: Some(e), vaultStatus: VaultError(e)}},
-        Tea_Cmd.none,
-      )
-    }
-  | SubmitTotp(code) => {
-      // Submit the TOTP code for verification; result comes back via TotpResult.
-      let cmd = Tea_Cmd.call(callbacks => {
-        SecurityCmd.invoke("verify_totp", {"code": code})
-        ->Promise.then(result => {
-          callbacks.enqueue(Security(TotpResult(Ok(result))))
-          Promise.resolve()
-        })
-        ->Promise.catch(_err => {
-          callbacks.enqueue(Security(TotpResult(Error("TOTP verification failed"))))
-          Promise.resolve()
-        })
-        ->ignore
-      })
-      ({...model, security: {...sec, totpInput: ""}}, cmd)
-    }
-  | TotpResult(result) => switch result {
-    | Ok(_) => (
-        {...model, security: {...sec, twoFactorStatus: TwoFactorAuthenticated(0.0)}},
-        Tea_Cmd.none,
-      )
-    | Error(e) => ({...model, security: {...sec, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | SetTotpInput(input) => ({...model, security: {...sec, totpInput: input}}, Tea_Cmd.none)
-  | LoadTrustfile(repoPath) => (
-      model,
-      Tea_Cmd.batch(list{
-        SecurityCmd.loadTrustfile(repoPath),
-        TypeLLService.checkSecurityTypes(repoPath, "security", result => Security(
-          TypeCheckResult(result),
-        )),
-      }),
-    )
-  | TrustfileLoaded(result) => switch result {
-    | Ok(jsonStr) => {
-        let policy = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-        | Some(json) =>
-          let o = json->JSON.Decode.object->Option.getOr(Dict.make())
-          let gs = (d, k) => d->Dict.get(k)->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let gb = (d, k) => d->Dict.get(k)->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-          let sl = switch gs(o, "securityLevel") {
-          | "low" => SecurityLow
-          | "high" => SecurityHigh
-          | "maximum" => SecurityMaximum
-          | _ => SecurityMedium
-          }
-          let rm = switch gs(o, "redactionMode") {
-          | "always" => RedactAlways
-          | "on_save" => RedactOnSave
-          | "on_display" => RedactOnDisplay
-          | _ => RedactOnShare
-          }
-          let patterns =
-            o
-            ->Dict.get("customPatterns")
-            ->Option.flatMap(JSON.Decode.array)
-            ->Option.getOr([])
-            ->Array.filterMap(p => {
-              let po = p->JSON.Decode.object->Option.getOr(Dict.make())
-              let pid = gs(po, "id")
-              if pid !== "" {
-                Some(
-                  (
-                    {
-                      id: pid,
-                      label: gs(po, "label"),
-                      pattern: gs(po, "pattern"),
-                      enabled: gb(po, "enabled"),
-                      builtIn: gb(po, "builtIn"),
-                    }: redactionPattern
-                  ),
-                )
-              } else {
-                None
-              }
-            })
-          Some(
-            (
-              {
-                securityLevel: sl,
-                redactionMode: rm,
-                customPatterns: patterns,
-                twoFactorRequirements: [],
-                defaultSharingPermission: ViewOnly,
-                requireApproval: gb(o, "requireApproval"),
-                loaded: true,
-                filePath: o->Dict.get("filePath")->Option.flatMap(JSON.Decode.string),
-              }: trustfilePolicy
-            ),
-          )
-
-        | None => None
-        }
-        switch policy {
-        | Some(p) => ({...model, security: SecurityEngine.applyTrustfile(sec, p)}, Tea_Cmd.none)
-        | None => (
-            {...model, security: {...sec, error: Some("Failed to parse Trustfile")}},
-            Tea_Cmd.none,
-          )
-        }
-      }
-    | Error(e) => ({...model, security: {...sec, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | ToggleShoulderSafe => (
-      {...model, security: SecurityEngine.toggleShoulderSafe(sec)},
-      Tea_Cmd.none,
-    )
-  | SetSecurityCategory(cat) => ({...model, security: {...sec, activeCategory: cat}}, Tea_Cmd.none)
-  | SetNewPatternLabel(v) => ({...model, security: {...sec, newPatternLabel: v}}, Tea_Cmd.none)
-  | SetNewPatternRegex(v) => ({...model, security: {...sec, newPatternRegex: v}}, Tea_Cmd.none)
-  | SubmitNewPattern => if sec.newPatternLabel != "" && sec.newPatternRegex != "" {
-      let pattern: redactionPattern = {
-        id: "custom-" ++ Float.toString(Date.now()),
-        label: sec.newPatternLabel,
-        pattern: sec.newPatternRegex,
-        enabled: true,
-        builtIn: false,
-      }
-      (
-        {
-          ...model,
-          security: SecurityEngine.addPattern(
-            {...sec, newPatternLabel: "", newPatternRegex: ""},
-            pattern,
-          ),
-        },
-        Tea_Cmd.none,
-      )
-    } else {
-      (model, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "security", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateService.affine b/src/update/UpdateService.affine
new file mode 100644
index 00000000..65a674c5
--- /dev/null
+++ b/src/update/UpdateService.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateService;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateService.res b/src/update/UpdateService.res
deleted file mode 100644
index 463482c2..00000000
--- a/src/update/UpdateService.res
+++ /dev/null
@@ -1,202 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// UpdateService — TEA state transitions for the PanLL service registry.
-///
-/// Pure updater for service health checks, URL changes, and registry refresh.
-/// Follows the standard (model, msg) => (model, cmd) pattern.
-
-open Model
-open Msg
-
-/// Parse a service status string from the backend JSON into a serviceStatus variant.
-let parseServiceStatus = (json: JSON.t): serviceStatus => {
-  switch JSON.Classify.classify(json) {
-  | Object(d) =>
-    switch d->Dict.get("status") {
-    | Some(v) =>
-      switch JSON.Classify.classify(v) {
-      | String("Running") => Running
-      | String("Stopped") => Stopped
-      | String("Checking") => Checking
-      | String("Error") =>
-        switch d->Dict.get("message") {
-        | Some(m) =>
-          switch JSON.Classify.classify(m) {
-          | String(s) => Error(s)
-          | _ => Error("Unknown error")
-          }
-        | None => Error("Unknown error")
-        }
-      | _ => Stopped
-      }
-    | None => Stopped
-    }
-  | _ => Stopped
-  }
-}
-
-/// Parse a single service entry from backend JSON.
-let parseServiceEntry = (json: JSON.t): option<serviceEntry> => {
-  switch JSON.Classify.classify(json) {
-  | Object(d) => {
-      let name =
-        d->Dict.get("name")->Option.flatMap(v =>
-          switch JSON.Classify.classify(v) {
-          | String(s) => Some(s)
-          | _ => None
-          }
-        )
-      let url =
-        d->Dict.get("url")->Option.flatMap(v =>
-          switch JSON.Classify.classify(v) {
-          | String(s) => Some(s)
-          | _ => None
-          }
-        )
-      let healthPath =
-        d
-        ->Dict.get("health_path")
-        ->Option.flatMap(v =>
-          switch JSON.Classify.classify(v) {
-          | String(s) => Some(s)
-          | _ => None
-          }
-        )
-      switch (name, url, healthPath) {
-      | (Some(n), Some(u), Some(hp)) =>
-        Some({
-          name: n,
-          url: u,
-          healthPath: hp,
-          status: parseServiceStatus(json),
-        })
-      | _ => None
-      }
-    }
-  | _ => None
-  }
-}
-
-/// Parse the full registry response from the backend.
-/// The backend returns a JSON object keyed by service identifier.
-let parseRegistryResponse = (jsonStr: string): Dict.t<serviceEntry> => {
-  try {
-    let parsed = JSON.parseExn(jsonStr)
-    switch JSON.Classify.classify(parsed) {
-    | Object(d) => {
-        let result = Dict.make()
-        let keys = d->Dict.keysToArray
-        keys->Array.forEach(key => {
-          switch d->Dict.get(key) {
-          | Some(value) =>
-            switch parseServiceEntry(value) {
-            | Some(entry) => result->Dict.set(key, entry)
-            | None => ()
-            }
-          | None => ()
-          }
-        })
-        result
-      }
-    | _ => Dict.make()
-    }
-  } catch {
-  | _ => Dict.make()
-  }
-}
-
-/// Service registry updater — routes service messages to state transitions.
-let updateService = (model: model, subMsg: serviceMsg): (model, Tea_Cmd.t<msg>) => {
-  let reg = model.serviceRegistry
-  switch subMsg {
-  | RefreshAll => (
-      {...model, serviceRegistry: {...reg, isRefreshing: true}},
-      ServiceCmd.refreshAll(result => Service(RefreshAllResult(result))),
-    )
-  | RefreshAllResult(result) =>
-    switch result {
-    | Ok(jsonStr) => {
-        let services = parseRegistryResponse(jsonStr)
-        (
-          {
-            ...model,
-            serviceRegistry: {
-              services,
-              lastChecked: Some(Date.now()),
-              isRefreshing: false,
-            },
-          },
-          Tea_Cmd.none,
-        )
-      }
-    | Error(_) => ({...model, serviceRegistry: {...reg, isRefreshing: false}}, Tea_Cmd.none)
-    }
-  | CheckService(key) => {
-      // Mark as checking
-      let services = Dict.make()
-      reg.services->Dict.forEachWithKey((v, k) => {
-        if k === key {
-          services->Dict.set(k, {...v, status: Checking})
-        } else {
-          services->Dict.set(k, v)
-        }
-      })
-      (
-        {...model, serviceRegistry: {...reg, services}},
-        ServiceCmd.checkService(key, result => Service(CheckServiceResult(key, result))),
-      )
-    }
-  | CheckServiceResult(key, result) =>
-    switch result {
-    | Ok(jsonStr) => {
-        let services = Dict.make()
-        reg.services->Dict.forEachWithKey((v, k) => {
-          if k === key {
-            switch parseServiceEntry(JSON.parseExn(jsonStr)) {
-            | Some(entry) => services->Dict.set(k, entry)
-            | None => services->Dict.set(k, v)
-            }
-          } else {
-            services->Dict.set(k, v)
-          }
-        })
-        ({...model, serviceRegistry: {...reg, services}}, Tea_Cmd.none)
-      }
-    | Error(err) => {
-        let services = Dict.make()
-        reg.services->Dict.forEachWithKey((v, k) => {
-          if k === key {
-            services->Dict.set(k, {...v, status: Error(err)})
-          } else {
-            services->Dict.set(k, v)
-          }
-        })
-        ({...model, serviceRegistry: {...reg, services}}, Tea_Cmd.none)
-      }
-    }
-  | UpdateServiceUrl(key, newUrl) => {
-      let services = Dict.make()
-      reg.services->Dict.forEachWithKey((v, k) => {
-        if k === key {
-          services->Dict.set(k, {...v, url: newUrl, status: Stopped})
-        } else {
-          services->Dict.set(k, v)
-        }
-      })
-      (
-        {...model, serviceRegistry: {...reg, services}},
-        ServiceCmd.updateServiceUrl(key, newUrl, result => Service(UpdateServiceUrlResult(result))),
-      )
-    }
-  | UpdateServiceUrlResult(_) => (model, Tea_Cmd.none)
-  | RegistryLoaded(result) =>
-    switch result {
-    | Ok(jsonStr) => {
-        let services = parseRegistryResponse(jsonStr)
-        ({...model, serviceRegistry: {...reg, services}}, Tea_Cmd.none)
-      }
-    | Error(_) => (model, Tea_Cmd.none)
-    }
-  }
-}
diff --git a/src/update/UpdateSettings.affine b/src/update/UpdateSettings.affine
new file mode 100644
index 00000000..056387d6
--- /dev/null
+++ b/src/update/UpdateSettings.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateSettings;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateSettings.res b/src/update/UpdateSettings.res
deleted file mode 100644
index 2db53cb1..00000000
--- a/src/update/UpdateSettings.res
+++ /dev/null
@@ -1,140 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// Copyright (c) 2026 Jonathan D.A. Jewell (hyperpolymath) <j.d.a.jewell@open.ac.uk>
-
-/// UpdateSettings — TEA state transitions for PanLL settings.
-///
-/// Pure updater for settings load, individual setting changes, and bulk save.
-
-open Model
-open Msg
-
-/// Parse settings JSON from the backend into a settingsState.
-let parseSettingsJson = (jsonStr: string, current: settingsState): settingsState => {
-  try {
-    switch JSON.parseExn(jsonStr)->JSON.Classify.classify {
-    | Object(d) => {
-        let getString = (key: string, default: string) =>
-          d
-          ->Dict.get(key)
-          ->Option.flatMap(v =>
-            switch JSON.Classify.classify(v) {
-            | String(s) => Some(s)
-            | _ => None
-            }
-          )
-          ->Option.getOr(default)
-        let getInt = (key: string, default: int) =>
-          d
-          ->Dict.get(key)
-          ->Option.flatMap(v =>
-            switch JSON.Classify.classify(v) {
-            | Number(n) => Some(Float.toInt(n))
-            | _ => None
-            }
-          )
-          ->Option.getOr(default)
-        let getBool = (key: string, default: bool) =>
-          d
-          ->Dict.get(key)
-          ->Option.flatMap(v =>
-            switch JSON.Classify.classify(v) {
-            | Bool(b) => Some(b)
-            | _ => None
-            }
-          )
-          ->Option.getOr(default)
-        {
-          verisimdbUrl: getString("verisimdb_url", current.verisimdbUrl),
-          echidnaUrl: getString("echidna_url", current.echidnaUrl),
-          burbleUrl: getString("burble_url", current.burbleUrl),
-          bojUrl: getString("boj_url", current.bojUrl),
-          typellUrl: getString("typell_url", current.typellUrl),
-          configDir: getString("config_dir", current.configDir),
-          theme: getString("theme", current.theme),
-          autoSaveIntervalMs: getInt("auto_save_interval_ms", current.autoSaveIntervalMs),
-          autoConnectServices: getBool("auto_connect_services", current.autoConnectServices),
-          isLoading: false,
-          error: None,
-          isDirty: false,
-        }
-      }
-    | _ => {...current, isLoading: false, error: Some("Invalid settings response")}
-    }
-  } catch {
-  | _ => {...current, isLoading: false, error: Some("Failed to parse settings")}
-  }
-}
-
-/// Settings updater — routes settings messages to state transitions.
-let updateSettings = (model: model, subMsg: settingsMsg): (model, Tea_Cmd.t<msg>) => {
-  let settings = model.settings
-  switch subMsg {
-  | LoadSettings => (
-      {...model, settings: {...settings, isLoading: true, error: None}},
-      SettingsCmd.getSettings(result => Settings(SettingsLoaded(result))),
-    )
-  | SettingsLoaded(result) =>
-    switch result {
-    | Ok(jsonStr) => {
-        let newSettings = parseSettingsJson(jsonStr, settings)
-        ({...model, settings: newSettings}, Tea_Cmd.none)
-      }
-    | Error(err) => (
-        {...model, settings: {...settings, isLoading: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | SetSetting(key, value) => {
-      // Optimistically update the local setting
-      let updated = switch key {
-      | "verisimdb_url" => {...settings, verisimdbUrl: value, isDirty: true}
-      | "echidna_url" => {...settings, echidnaUrl: value, isDirty: true}
-      | "burble_url" => {...settings, burbleUrl: value, isDirty: true}
-      | "boj_url" => {...settings, bojUrl: value, isDirty: true}
-      | "typell_url" => {...settings, typellUrl: value, isDirty: true}
-      | "theme" => {...settings, theme: value, isDirty: true}
-      | _ => {...settings, isDirty: true}
-      }
-      (
-        {...model, settings: updated},
-        SettingsCmd.setSetting(key, value, result => Settings(SetSettingResult(result))),
-      )
-    }
-  | SetSettingResult(result) =>
-    switch result {
-    | Ok(jsonStr) => {
-        let newSettings = parseSettingsJson(jsonStr, settings)
-        ({...model, settings: {...newSettings, isDirty: false}}, Tea_Cmd.none)
-      }
-    | Error(err) => ({...model, settings: {...settings, error: Some(err)}}, Tea_Cmd.none)
-    }
-  | SaveAllSettings => {
-      let settingsJson = JSON.stringifyAny({
-        "verisimdb_url": settings.verisimdbUrl,
-        "echidna_url": settings.echidnaUrl,
-        "burble_url": settings.burbleUrl,
-        "boj_url": settings.bojUrl,
-        "typell_url": settings.typellUrl,
-        "config_dir": settings.configDir,
-        "theme": settings.theme,
-        "auto_save_interval_ms": settings.autoSaveIntervalMs,
-        "auto_connect_services": settings.autoConnectServices,
-      })->Option.getOr("{}")
-      (
-        {...model, settings: {...settings, isLoading: true}},
-        SettingsCmd.saveAllSettings(settingsJson, result => Settings(SaveAllResult(result))),
-      )
-    }
-  | SaveAllResult(result) =>
-    switch result {
-    | Ok(jsonStr) => {
-        let newSettings = parseSettingsJson(jsonStr, settings)
-        ({...model, settings: {...newSettings, isDirty: false}}, Tea_Cmd.none)
-      }
-    | Error(err) => (
-        {...model, settings: {...settings, isLoading: false, error: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  }
-}
diff --git a/src/update/UpdateSpecBrowser.affine b/src/update/UpdateSpecBrowser.affine
new file mode 100644
index 00000000..662a122a
--- /dev/null
+++ b/src/update/UpdateSpecBrowser.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateSpecBrowser;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateSpecBrowser.res b/src/update/UpdateSpecBrowser.res
deleted file mode 100644
index f1aac328..00000000
--- a/src/update/UpdateSpecBrowser.res
+++ /dev/null
@@ -1,48 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// SpecBrowser — language specification browsing sub-updater.
-
-open Model
-open Msg
-
-let updateSpecBrowser = (model: model, subMsg: specBrowserMsg): (model, Tea_Cmd.t<msg>) => {
-  switch subMsg {
-  | SetSpecCategory(cat) => (
-      {...model, specBrowser: {...model.specBrowser, activeCategory: cat}},
-      Tea_Cmd.none,
-    )
-  | SelectSpecLanguage(name) => (
-      {...model, specBrowser: {...model.specBrowser, selectedLanguage: name}},
-      Tea_Cmd.none,
-    )
-  | SetComparisonSide(side, name) =>
-    switch side {
-    | LeftSide => (
-        {...model, specBrowser: {...model.specBrowser, comparisonLeft: Some(name)}},
-        Tea_Cmd.none,
-      )
-    | RightSide => (
-        {...model, specBrowser: {...model.specBrowser, comparisonRight: Some(name)}},
-        Tea_Cmd.none,
-      )
-    }
-  | SetSpecFilter(txt) => (
-      {...model, specBrowser: {...model.specBrowser, filterText: txt}},
-      Tea_Cmd.none,
-    )
-  | ToggleIncompleteOnly => (
-      {
-        ...model,
-        specBrowser: {
-          ...model.specBrowser,
-          showIncompleteOnly: !model.specBrowser.showIncompleteOnly,
-        },
-      },
-      Tea_Cmd.none,
-    )
-  | DismissSpecError => (
-      {...model, specBrowser: {...model.specBrowser, error: None}},
-      Tea_Cmd.none,
-    )
-  }
-}
diff --git a/src/update/UpdateStapeln.affine b/src/update/UpdateStapeln.affine
new file mode 100644
index 00000000..717fd24d
--- /dev/null
+++ b/src/update/UpdateStapeln.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateStapeln;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateStapeln.res b/src/update/UpdateStapeln.res
deleted file mode 100644
index bbf7d1ce..00000000
--- a/src/update/UpdateStapeln.res
+++ /dev/null
@@ -1,161 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-let updateStapeln = (model: model, msg: stapelnMsg): (model, Tea_Cmd.t<msg>) => {
-  let st = model.stapeln
-  switch msg {
-  | SetPipelineUrl(url) => ({...model, stapeln: {...st, pipelineUrl: url}}, Tea_Cmd.none)
-  | Connect => (
-      {...model, stapeln: {...st, loading: true, error: None}},
-      StapelnCmd.connect(st.pipelineUrl, r => Stapeln(Connected(Result.isOk(r)))),
-    )
-  | Connected(ok) => (
-      {
-        ...model,
-        stapeln: {
-          ...st,
-          connected: ok,
-          loading: false,
-          error: ok ? None : Some("Connection failed"),
-        },
-      },
-      Tea_Cmd.none,
-    )
-  | UpdateConstraint(key, value) => {
-      // Simple constraint updates by key name. The detailed constraint editor
-      // lives in stapeln's own frontend; PanLL provides high-level overrides.
-      let c = st.constraints
-      let newConstraints = switch key {
-      | "maxImageSizeMb" => {
-          ...c,
-          maxImageSizeMb: Int.fromString(value)->Option.getOr(c.maxImageSizeMb),
-        }
-      | "memoryLimitMb" => {
-          ...c,
-          memoryLimitMb: Int.fromString(value)->Option.getOr(c.memoryLimitMb),
-        }
-      | "cpuLimit" => {...c, cpuLimit: Float.fromString(value)->Option.getOr(c.cpuLimit)}
-      | "requireHealthcheck" => {...c, requireHealthcheck: value === "true"}
-      | "requireNonRoot" => {...c, requireNonRoot: value === "true"}
-      | _ => c
-      }
-      ({...model, stapeln: {...st, constraints: newConstraints}}, Tea_Cmd.none)
-    }
-  | RequestValidation => (
-      {...model, stapeln: {...st, loading: true}},
-      StapelnCmd.requestValidation(st.pipelineUrl, r => Stapeln(
-        switch r {
-        | Ok(json) => {
-            // Parse validation summary from JSON response.
-            // For now, create a minimal summary — full parsing comes with
-            // the stapeln backend integration.
-            ignore(json)
-            ValidationReceived({
-              passed: true,
-              errorCount: 0,
-              warningCount: 0,
-              infoCount: 0,
-              findings: [],
-              scanTimestamp: Date.now(),
-            })
-          }
-        | Error(err) => {
-            ignore(err)
-            ValidationReceived({
-              passed: false,
-              errorCount: 1,
-              warningCount: 0,
-              infoCount: 0,
-              findings: [
-                {
-                  id: "conn-err",
-                  level: "error",
-                  rule: "CONN",
-                  message: "Could not reach validation endpoint",
-                  line: None,
-                  autoFixAvailable: false,
-                },
-              ],
-              scanTimestamp: Date.now(),
-            })
-          }
-        },
-      )),
-    )
-  | ValidationReceived(summary) => (
-      {...model, stapeln: {...st, lastValidation: Some(summary), loading: false}},
-      Tea_Cmd.none,
-    )
-  | RequestGenerate(format) => (
-      {...model, stapeln: {...st, loading: true}},
-      StapelnCmd.requestGenerate(st.pipelineUrl, format, r =>
-        switch r {
-        | Ok(content) => Stapeln(GenerateReceived(content))
-        | Error(err) => Stapeln(GenerateReceived("# Error: " ++ err))
-        }
-      ),
-    )
-  | GenerateReceived(content) => (
-      {...model, stapeln: {...st, generatedArtifact: Some(content), loading: false}},
-      Tea_Cmd.none,
-    )
-  | RefreshStatus => (
-      {...model, stapeln: {...st, loading: true}},
-      StapelnCmd.refreshStatus(st.pipelineUrl, r =>
-        switch r {
-        | Ok(json) => {
-            // Parse pipeline status from JSON response.
-            // Minimal stub — full parsing comes with backend integration.
-            ignore(json)
-            Stapeln(
-              StatusReceived({
-                health: PipelineUnknown,
-                nodeCount: 0,
-                connectionCount: 0,
-                validationPassing: false,
-                suggestions: [],
-                securityPosture: {
-                  score: 0.0,
-                  slsaCompliant: false,
-                  sbomPresent: false,
-                  signatureValid: false,
-                  vulnerabilities: 0,
-                  criticalVulns: 0,
-                },
-                dependencies: [],
-                lastUpdated: Date.now(),
-              }),
-            )
-          }
-        | Error(_) =>
-          Stapeln(
-            StatusReceived({
-              health: PipelineUnknown,
-              nodeCount: 0,
-              connectionCount: 0,
-              validationPassing: false,
-              suggestions: [],
-              securityPosture: {
-                score: 0.0,
-                slsaCompliant: false,
-                sbomPresent: false,
-                signatureValid: false,
-                vulnerabilities: 0,
-                criticalVulns: 0,
-              },
-              dependencies: [],
-              lastUpdated: Date.now(),
-            }),
-          )
-        }
-      ),
-    )
-  | StatusReceived(status) => (
-      {...model, stapeln: {...st, pipelineStatus: Some(status), loading: false}},
-      Tea_Cmd.none,
-    )
-  | SetActiveTab(tab) => ({...model, stapeln: {...st, activeTab: tab}}, Tea_Cmd.none)
-  | DismissError => ({...model, stapeln: {...st, error: None}}, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateSystemUpdate.affine b/src/update/UpdateSystemUpdate.affine
new file mode 100644
index 00000000..1de48aaf
--- /dev/null
+++ b/src/update/UpdateSystemUpdate.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateSystemUpdate;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateSystemUpdate.res b/src/update/UpdateSystemUpdate.res
deleted file mode 100644
index 5c591b74..00000000
--- a/src/update/UpdateSystemUpdate.res
+++ /dev/null
@@ -1,92 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// SystemUpdate — component update management sub-updater.
-
-open Model
-open Msg
-open SystemUpdateMsg
-
-let updateSystemUpdate = (model: model, subMsg: systemUpdateMsg): (model, Tea_Cmd.t<msg>) => {
-  let su = model.systemUpdate
-  switch subMsg {
-  | ListComponents => (
-      {...model, systemUpdate: {...su, loading: true}},
-      SystemUpdateCmd.listComponents(r => SystemUpdate(ComponentsLoaded(r))),
-    )
-  | ComponentsLoaded(Ok(json)) => {
-      let _ = json
-      ({...model, systemUpdate: {...su, loading: false}}, Tea_Cmd.none)
-    }
-  | ComponentsLoaded(Error(e)) => (
-      {...model, systemUpdate: {...su, loading: false, error: Some(e)}},
-      Tea_Cmd.none,
-    )
-  | CheckAll => (
-      {...model, systemUpdate: {...su, loading: true}},
-      SystemUpdateCmd.checkAll(r => SystemUpdate(CheckAllResult(r))),
-    )
-  | CheckAllResult(Ok(_json)) => ({...model, systemUpdate: {...su, loading: false}}, Tea_Cmd.none)
-  | CheckAllResult(Error(e)) => (
-      {...model, systemUpdate: {...su, loading: false, error: Some(e)}},
-      Tea_Cmd.none,
-    )
-  | CheckComponent(id) => (
-      {...model, systemUpdate: {...su, loading: true}},
-      SystemUpdateCmd.checkComponent(id, r => SystemUpdate(CheckComponentResult(r))),
-    )
-  | CheckComponentResult(Ok(_json)) => ({...model, systemUpdate: {...su, loading: false}}, Tea_Cmd.none)
-  | CheckComponentResult(Error(e)) => (
-      {...model, systemUpdate: {...su, loading: false, error: Some(e)}},
-      Tea_Cmd.none,
-    )
-  | ApplyComponent(id) => (
-      {...model, systemUpdate: {...su, loading: true}},
-      SystemUpdateCmd.applyComponent(id, r => SystemUpdate(ApplyComponentResult(r))),
-    )
-  | ApplyComponentResult(Ok(_json)) => ({...model, systemUpdate: {...su, loading: false}}, Tea_Cmd.none)
-  | ApplyComponentResult(Error(e)) => (
-      {...model, systemUpdate: {...su, loading: false, error: Some(e)}},
-      Tea_Cmd.none,
-    )
-  | ApplyAll => (
-      {...model, systemUpdate: {...su, loading: true}},
-      SystemUpdateCmd.applyAll(r => SystemUpdate(ApplyAllResult(r))),
-    )
-  | ApplyAllResult(Ok(_json)) => ({...model, systemUpdate: {...su, loading: false}}, Tea_Cmd.none)
-  | ApplyAllResult(Error(e)) => (
-      {...model, systemUpdate: {...su, loading: false, error: Some(e)}},
-      Tea_Cmd.none,
-    )
-  | AsdfStatus => (
-      {...model, systemUpdate: {...su, loading: true}},
-      SystemUpdateCmd.asdfStatus(r => SystemUpdate(AsdfStatusResult(r))),
-    )
-  | AsdfStatusResult(Ok(_json)) => ({...model, systemUpdate: {...su, loading: false}}, Tea_Cmd.none)
-  | AsdfStatusResult(Error(e)) => (
-      {...model, systemUpdate: {...su, loading: false, error: Some(e)}},
-      Tea_Cmd.none,
-    )
-  | ViewLogs => (
-      {...model, systemUpdate: {...su, loading: true}},
-      SystemUpdateCmd.logs(r => SystemUpdate(LogsLoaded(r))),
-    )
-  | LogsLoaded(Ok(_json)) => ({...model, systemUpdate: {...su, loading: false}}, Tea_Cmd.none)
-  | LogsLoaded(Error(e)) => (
-      {...model, systemUpdate: {...su, loading: false, error: Some(e)}},
-      Tea_Cmd.none,
-    )
-  | LastSummary => (
-      {...model, systemUpdate: {...su, loading: true}},
-      SystemUpdateCmd.lastSummary(r => SystemUpdate(LastSummaryResult(r))),
-    )
-  | LastSummaryResult(Ok(_json)) => ({...model, systemUpdate: {...su, loading: false}}, Tea_Cmd.none)
-  | LastSummaryResult(Error(e)) => (
-      {...model, systemUpdate: {...su, loading: false, error: Some(e)}},
-      Tea_Cmd.none,
-    )
-  | ToggleShowLogs => (
-      {...model, systemUpdate: {...su, showLogs: !su.showLogs}},
-      Tea_Cmd.none,
-    )
-  }
-}
diff --git a/src/update/UpdateTangleViz.affine b/src/update/UpdateTangleViz.affine
new file mode 100644
index 00000000..bbcea195
--- /dev/null
+++ b/src/update/UpdateTangleViz.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateTangleViz;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateTangleViz.res b/src/update/UpdateTangleViz.res
deleted file mode 100644
index f37f2c3a..00000000
--- a/src/update/UpdateTangleViz.res
+++ /dev/null
@@ -1,110 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-/// Update handler for TangleViz topological programming visualizer.
-let updateTangleViz = (model: model, msg: tangleVizMsg): (model, Tea_Cmd.t<msg>) => {
-  let tv = model.tangleViz
-  switch msg {
-  | SetViewMode(mode) => ({...model, tangleViz: {...tv, viewMode: mode}}, Tea_Cmd.none)
-  | SetInputText(text) => ({...model, tangleViz: {...tv, inputText: text}}, Tea_Cmd.none)
-  | ParseInput => {
-      // Parse braid word notation: space/comma-separated tokens like
-      // "s1", "s2^-1", "s1 s2^-1 s1", "sigma1", "s3inv", etc.
-      let input = String.trim(tv.inputText)
-      if input === "" {
-        (
-          {
-            ...model,
-            tangleViz: {
-              ...tv,
-              braidWord: [],
-              strandCount: 2,
-              parsedProgram: Some(ParsedOk),
-              error: None,
-            },
-          },
-          Tea_Cmd.none,
-        )
-      } else {
-        let tokens =
-          input
-          ->String.replaceRegExp(/[,;\\s]+/g, " ")
-          ->String.trim
-          ->String.split(" ")
-        let generators: array<braidGenerator> = []
-        let parseError = ref(None)
-        tokens->Array.forEach(token => {
-          let t = String.trim(String.toLowerCase(token))
-          if t !== "" && parseError.contents === None {
-            let hasInverse =
-              String.includes(t, "^-1") || String.includes(t, "inv") || String.includes(t, "-1")
-            let numStr = String.replaceRegExp(t, /[^0-9]/g, "")
-            switch Int.fromString(numStr) {
-            | Some(idx) if idx >= 1 => {
-                let _ = generators->Array.push({
-                  index: idx,
-                  exponent: hasInverse ? -1 : 1,
-                })
-              }
-            | _ => parseError := Some(`Invalid generator: "${token}"`)
-            }
-          }
-        })
-        switch parseError.contents {
-        | Some(err) => (
-            {...model, tangleViz: {...tv, parsedProgram: Some(ParseFailed(err)), error: Some(err)}},
-            Tea_Cmd.none,
-          )
-        | None => {
-            let strandCount = TangleVizEngine.strandCountFromWord(generators)
-            (
-              {
-                ...model,
-                tangleViz: {
-                  ...tv,
-                  braidWord: generators,
-                  strandCount,
-                  parsedProgram: Some(ParsedOk),
-                  error: None,
-                  invariantResult: None,
-                },
-              },
-              Tea_Cmd.none,
-            )
-          }
-        }
-      }
-    }
-  | ClearAll => ({...model, tangleViz: TangleVizEngine.defaultState}, Tea_Cmd.none)
-  | LoadExample(generators) =>
-    let strandCount = TangleVizEngine.strandCountFromWord(generators)
-    (
-      {
-        ...model,
-        tangleViz: {
-          ...tv,
-          braidWord: generators,
-          strandCount,
-          inputText: TangleVizEngine.braidWordToString(generators),
-          parsedProgram: Some(ParsedOk),
-          invariantResult: None,
-          error: None,
-        },
-      },
-      Tea_Cmd.none,
-    )
-  | SelectInvariant(inv) => (
-      {...model, tangleViz: {...tv, selectedInvariant: Some(inv), invariantResult: None}},
-      Tea_Cmd.none,
-    )
-  | ComputeInvariant =>
-    switch tv.selectedInvariant {
-    | None => (model, Tea_Cmd.none)
-    | Some(inv) =>
-      let result = TangleVizEngine.computeInvariant(inv, tv.braidWord)
-      ({...model, tangleViz: {...tv, invariantResult: Some(result)}}, Tea_Cmd.none)
-    }
-  | DismissError => ({...model, tangleViz: {...tv, error: None}}, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateTeamCollab.affine b/src/update/UpdateTeamCollab.affine
new file mode 100644
index 00000000..73ec96f6
--- /dev/null
+++ b/src/update/UpdateTeamCollab.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateTeamCollab;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateTeamCollab.res b/src/update/UpdateTeamCollab.res
deleted file mode 100644
index b36f8eaf..00000000
--- a/src/update/UpdateTeamCollab.res
+++ /dev/null
@@ -1,145 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-// ===========================================================================
-// Team & Collaboration Sub-Updaters
-// ===========================================================================
-
-/// Handles all Code Review messages — PR review, inline comments, approval gates.
-let updateCodeReview = (model: model, msg: codeReviewMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.codeReview
-  switch msg {
-  | SetCrTab(tab) => ({...model, codeReview: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | SetCrFilter(f) => ({...model, codeReview: {...state, filter: f}}, Tea_Cmd.none)
-  | SelectPr(id) => ({...model, codeReview: {...state, selectedPr: Some(id)}}, Tea_Cmd.none)
-  | ApprovePr => (model, Tea_Cmd.none)
-  | DismissCrError => ({...model, codeReview: {...state, error: None}}, Tea_Cmd.none)
-  }
-}
-
-/// Handles all Merge Coordinator messages — branch management, conflict resolution.
-let updateMergeCoordinator = (model: model, msg: mergeCoordinatorMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.mergeCoordinator
-  switch msg {
-  | SetMcTab(tab) => ({...model, mergeCoordinator: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | SelectBranch(name) => (
-      {...model, mergeCoordinator: {...state, selectedBranch: Some(name)}},
-      Tea_Cmd.none,
-    )
-  | ResolveConflict(filePath, _resolution) => {
-      let newConflicts =
-        state.conflicts->Array.map(c => c.filePath === filePath ? {...c, resolved: true} : c)
-      ({...model, mergeCoordinator: {...state, conflicts: newConflicts}}, Tea_Cmd.none)
-    }
-  | DismissMcError => ({...model, mergeCoordinator: {...state, error: None}}, Tea_Cmd.none)
-  }
-}
-
-/// Handles all Team Dashboard messages — team presence, activity feed.
-let updateTeamDashboard = (model: model, msg: teamDashboardMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.teamDashboard
-  switch msg {
-  | SetTdTab(tab) => ({...model, teamDashboard: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | SetTdFilter(f) => ({...model, teamDashboard: {...state, filter: f}}, Tea_Cmd.none)
-  | DismissTdError => ({...model, teamDashboard: {...state, error: None}}, Tea_Cmd.none)
-  }
-}
-
-/// Handles all Debugging Workbench messages — time-travel, state inspection, watches.
-let updateDebuggingWorkbench = (model: model, msg: debuggingWorkbenchMsg): (
-  model,
-  Tea_Cmd.t<msg>,
-) => {
-  let state = model.debuggingWorkbench
-  let tt = state.timeTravel
-  switch msg {
-  | SetDwTab(tab) => ({...model, debuggingWorkbench: {...state, activeTab: tab}}, Tea_Cmd.none)
-  | DwStepBack =>
-    if DebuggingWorkbenchEngine.canGoBack(tt) {
-      let newTt = {...tt, currentIndex: tt.currentIndex - 1, isTimeTravelling: true}
-      let snap = tt.snapshots->Array.get(newTt.currentIndex)
-      let selectedId = switch snap {
-      | Some(s) => Some(s.id)
-      | None => state.selectedSnapshot
-      }
-      (
-        {...model, debuggingWorkbench: {...state, timeTravel: newTt, selectedSnapshot: selectedId}},
-        Tea_Cmd.none,
-      )
-    } else {
-      (model, Tea_Cmd.none)
-    }
-  | DwStepForward =>
-    if DebuggingWorkbenchEngine.canGoForward(tt) {
-      let newTt = {...tt, currentIndex: tt.currentIndex + 1, isTimeTravelling: true}
-      let snap = tt.snapshots->Array.get(newTt.currentIndex)
-      let selectedId = switch snap {
-      | Some(s) => Some(s.id)
-      | None => state.selectedSnapshot
-      }
-      (
-        {...model, debuggingWorkbench: {...state, timeTravel: newTt, selectedSnapshot: selectedId}},
-        Tea_Cmd.none,
-      )
-    } else {
-      (model, Tea_Cmd.none)
-    }
-  | DwGoToSnapshot(idx) =>
-    if idx >= 0 && idx < Array.length(tt.snapshots) {
-      let newTt = {...tt, currentIndex: idx, isTimeTravelling: idx < Array.length(tt.snapshots) - 1}
-      let snap = tt.snapshots->Array.get(idx)
-      let selectedId = switch snap {
-      | Some(s) => Some(s.id)
-      | None => state.selectedSnapshot
-      }
-      (
-        {...model, debuggingWorkbench: {...state, timeTravel: newTt, selectedSnapshot: selectedId}},
-        Tea_Cmd.none,
-      )
-    } else {
-      (model, Tea_Cmd.none)
-    }
-  | DwCaptureSnapshot => {
-      let now = Date.now()
-      let snap: debugSnapshot = {
-        id: `snap-${Float.toString(now)}`,
-        modelJson: UpdateHelpers.snapshotToJson(model),
-        timestamp: now,
-        label: `Snapshot at ${Float.toFixed(now /. 1000.0, ~digits=1)}s`,
-      }
-      let newSnapshots = Array.concat(tt.snapshots, [snap])
-      let newTt = {
-        snapshots: newSnapshots,
-        currentIndex: Array.length(newSnapshots) - 1,
-        isTimeTravelling: false,
-      }
-      (
-        {
-          ...model,
-          debuggingWorkbench: {...state, timeTravel: newTt, selectedSnapshot: Some(snap.id)},
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | DwAddWatch => {
-      let id = `watch-${Int.toString(Array.length(state.watches) + 1)}`
-      let watch: watchExpression = {
-        id,
-        expression: "",
-        currentValue: "(not evaluated)",
-        lastUpdated: Date.now(),
-      }
-      (
-        {...model, debuggingWorkbench: {...state, watches: Array.concat(state.watches, [watch])}},
-        Tea_Cmd.none,
-      )
-    }
-  | DwRemoveWatch(id) => {
-      let newWatches = state.watches->Array.filter(w => w.id !== id)
-      ({...model, debuggingWorkbench: {...state, watches: newWatches}}, Tea_Cmd.none)
-    }
-  | DwClearConsole => ({...model, debuggingWorkbench: {...state, consoleLog: []}}, Tea_Cmd.none)
-  | DismissDwError => ({...model, debuggingWorkbench: {...state, error: None}}, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateTentacles.affine b/src/update/UpdateTentacles.affine
new file mode 100644
index 00000000..ec7a42f2
--- /dev/null
+++ b/src/update/UpdateTentacles.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateTentacles;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateTentacles.res b/src/update/UpdateTentacles.res
deleted file mode 100644
index afdbfd1b..00000000
--- a/src/update/UpdateTentacles.res
+++ /dev/null
@@ -1,111 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// UpdateTentacles.res — 7Tentacles (agent orchestration) sub-updater extracted from Update.res
-
-open Model
-open Msg
-
-let updateTentacles = (model: model, msg: tentaclesMsg): (model, Tea_Cmd.t<msg>) => {
-  let st = model.tentacles
-  switch msg {
-  | SetTentaclesCategory(cat) => ({...model, tentacles: {...st, activeCategory: cat}}, Tea_Cmd.none)
-  | SelectAgent(id) => ({...model, tentacles: {...st, selectedAgent: id}}, Tea_Cmd.none)
-  | SetGlobalStage(stage) => {
-      let updatedAgents = st.agents->Array.map(a => {...a, stage})
-      ({...model, tentacles: {...st, globalStage: stage, agents: updatedAgents}}, Tea_Cmd.none)
-    }
-  | ToggleOrchestraCompact => (
-      {...model, tentacles: {...st, orchestraCompact: !st.orchestraCompact}},
-      Tea_Cmd.none,
-    )
-  | BroadcastFromAgent(_source, payload) => (
-      {
-        ...model,
-        tentacles: {...st, pendingBroadcasts: Array.concat(st.pendingBroadcasts, [payload])},
-      },
-      Tea_Cmd.none,
-    )
-  | DeliverBroadcasts => ({...model, tentacles: {...st, pendingBroadcasts: []}}, Tea_Cmd.none)
-  | StartAgentTask(id, task) => {
-      let agents = TentaclesEngine.updateAgent(st.agents, id, a =>
-        TentaclesEngine.startTask(a, task)
-      )
-      (
-        {...model, tentacles: {...st, agents}},
-        TypeLLService.checkCodeTypes(task, "tentacles", result => Tentacles(
-          TypeCheckResult(result),
-        )),
-      )
-    }
-  | AgentPhaseAdvanced(id, _phase) => {
-      // S1: Use OODA progression engine — advance through Observe→Orient→Decide→Act.
-      // When the cycle completes (Act→Observe), the agent task finishes automatically.
-      let updatedAgents = TentaclesEngine.updateAgent(st.agents, id, a => {
-        let (advanced, _completed) = TentaclesEngine.advancePhase(a)
-        advanced
-      })
-      ({...model, tentacles: {...st, agents: updatedAgents}}, Tea_Cmd.none)
-    }
-  | AgentConstraintAdded(id, newConstraint) => {
-      let agents = TentaclesEngine.updateAgent(st.agents, id, a => {
-        ...a,
-        constraints: Array.concat(a.constraints, [newConstraint]),
-      })
-      ({...model, tentacles: {...st, agents}}, Tea_Cmd.none)
-    }
-  | AgentReasoningAdded(id, entry) => {
-      let agents = TentaclesEngine.updateAgent(st.agents, id, a => {
-        ...a,
-        reasoning: Array.concat(a.reasoning, [entry]),
-      })
-      ({...model, tentacles: {...st, agents}}, Tea_Cmd.none)
-    }
-  | AgentResultAdded(id, result) => {
-      let agents = TentaclesEngine.updateAgent(st.agents, id, a => {
-        ...a,
-        results: Array.concat(a.results, [result]),
-      })
-      ({...model, tentacles: {...st, agents}}, Tea_Cmd.none)
-    }
-  | AgentTaskCompleted(id) => {
-      let agents = TentaclesEngine.updateAgent(st.agents, id, a => {
-        ...a,
-        busy: false,
-        currentTask: None,
-      })
-      ({...model, tentacles: {...st, agents}}, Tea_Cmd.none)
-    }
-  | AgentError(id, err) => {
-      let agents = TentaclesEngine.updateAgent(st.agents, id, a => TentaclesEngine.failTask(a, err))
-      ({...model, tentacles: {...st, agents}}, Tea_Cmd.none)
-    }
-  | ClearAgentError(id) => {
-      let agents = TentaclesEngine.updateAgent(st.agents, id, a => {...a, lastError: None})
-      ({...model, tentacles: {...st, agents}}, Tea_Cmd.none)
-    }
-  | CheckFfiBridge => (
-      model,
-      TentaclesCmd.checkFfiBridge(result =>
-        switch result {
-        | Ok(_) => Tentacles(FfiBridgeResult(true, None))
-        | Error(err) => Tentacles(FfiBridgeResult(false, Some(err)))
-        }
-      ),
-    )
-  | FfiBridgeResult(connected, error) => (
-      {...model, tentacles: {...st, ffiConnected: connected, ffiError: error, ffiLastCheck: 0.0}},
-      Tea_Cmd.none,
-    )
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "tentacles", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateTiling.affine b/src/update/UpdateTiling.affine
new file mode 100644
index 00000000..30da31b5
--- /dev/null
+++ b/src/update/UpdateTiling.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateTiling;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateTiling.res b/src/update/UpdateTiling.res
deleted file mode 100644
index bc09d9fb..00000000
--- a/src/update/UpdateTiling.res
+++ /dev/null
@@ -1,79 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-/// Update handler for multi-monitor tiling and panel detachment.
-/// Manages detached windows, snap zones, and tiling presets.
-let updateTiling = (model: model, msg: tilingMsg): (model, Tea_Cmd.t<msg>) => {
-  let t = model.tiling
-  switch msg {
-  | DetachPanel(panelId) => {
-      let name = PanelRegistry.panelName(panelId)
-      let windowName = `panll-detach-${name}`
-      // Open a new browser window for this panel
-      let _windowRef = WindowBridge.openWindow(
-        `detached.html`,
-        windowName,
-        "width=800,height=600,menubar=no,toolbar=no,status=no",
-      )
-      // Track the detached panel in tiling state
-      let newTiling = TilingEngine.addDetachedPanel(panelId, windowName, t)
-      // Create a BroadcastChannel and send initial sync
-      let cmd = Tea_Cmd.call(callbacks => {
-        let channel = WindowBridge.createChannel(windowName)
-        // Send current panel state identifier to the new window
-        WindowBridge.postMessage(channel, `{"panel":"${name}","action":"init"}`)
-        // Listen for close events from the detached window
-        let _cleanup = WindowBridge.onMessage(channel, msg => {
-          if msg === "close" {
-            callbacks.enqueue(Tiling(DetachedPanelClosed(windowName)))
-          }
-        })
-      })
-      ({...model, tiling: newTiling}, cmd)
-    }
-  | ReattachPanel(panelId) => {
-      // Find the detached panel entry
-      let entry = t.detachedPanels->Array.find(dp => dp.panelId === panelId)
-      switch entry {
-      | Some(dp) => {
-          // Close the BroadcastChannel for this window
-          let channel = WindowBridge.createChannel(dp.windowName)
-          WindowBridge.postMessage(channel, `{"action":"reattach"}`)
-          WindowBridge.closeChannel(channel)
-          // Remove from detached panels
-          let newTiling = TilingEngine.removeDetachedPanel(dp.windowName, t)
-          ({...model, tiling: newTiling}, Tea_Cmd.none)
-        }
-      | None => (model, Tea_Cmd.none)
-      }
-    }
-  | SetSnapZone(_panelId, _zone) => (model, Tea_Cmd.none)
-  | ApplyTilingPreset(preset) => (
-      {...model, tiling: {...t, activePreset: Some(preset)}},
-      Tea_Cmd.none,
-    )
-  | ClearTilingPreset => ({...model, tiling: {...t, activePreset: None}}, Tea_Cmd.none)
-  | SetSnapPreview(zone) => ({...model, tiling: {...t, snapPreview: zone}}, Tea_Cmd.none)
-  | DetachedPanelClosed(windowName) =>
-    let state = TilingEngine.markDetachedDead(windowName, t)
-    ({...model, tiling: state}, Tea_Cmd.none)
-  | SyncToDetached(windowName) => {
-      // Send model state sync to a specific detached window
-      let cmd = Tea_Cmd.call(_callbacks => {
-        let channel = WindowBridge.createChannel(windowName)
-        WindowBridge.postMessage(
-          channel,
-          `{"action":"sync","timestamp":${Float.toString(Date.now())}}`,
-        )
-        WindowBridge.closeChannel(channel)
-      })
-      (model, cmd)
-    }
-  | ToggleTilingControls => (
-      {...model, tiling: {...t, controlsVisible: !t.controlsVisible}},
-      Tea_Cmd.none,
-    )
-  | SetTilingEnabled(enabled) => ({...model, tiling: {...t, tilingEnabled: enabled}}, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateTimeline.affine b/src/update/UpdateTimeline.affine
new file mode 100644
index 00000000..6f9960c2
--- /dev/null
+++ b/src/update/UpdateTimeline.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateTimeline;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateTimeline.res b/src/update/UpdateTimeline.res
deleted file mode 100644
index bf934b94..00000000
--- a/src/update/UpdateTimeline.res
+++ /dev/null
@@ -1,103 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-// ===========================================================================
-// Code MRI Timeline Sub-Updater (Layer 2)
-//
-// Handles VeriSimDB connection, snapshot capture/load, scrubber navigation,
-// and export. All metric computation is delegated to TimelineEngine (pure).
-// ===========================================================================
-
-let updateTimeline = (model: model, msg: timelineMsg): (model, Tea_Cmd.t<msg>) => {
-  let tl = model.codeMriTimeline
-  switch msg {
-  | Connect => (
-      {...model, codeMriTimeline: {...tl, error: None}},
-      TimelineCmd.connect(".", result => Timeline(Connected(result))),
-    )
-  | Connected(Ok(dbPath)) => (
-      {...model, codeMriTimeline: {...tl, dbPath: Some(dbPath), connected: true, error: None}},
-      Tea_Cmd.none,
-    )
-  | Connected(Error(err)) => (
-      {...model, codeMriTimeline: {...tl, connected: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | CaptureSnapshot => (
-      {...model, codeMriTimeline: {...tl, capturing: true, error: None}},
-      TimelineCmd.captureSnapshot(".", result => Timeline(SnapshotCaptured(result))),
-    )
-  | SnapshotCaptured(Ok(_json)) => {
-      // Parse snapshot from JSON and add to timeline
-      // For now, create a snapshot from current model state
-      let snap: TimelineEngine.timelineSnapshot = {
-        timestamp: Float.toString(Date.now()),
-        linesOfCode: 0, // Will be populated by Rust backend
-        todoCount: model.voiceTag.summary.todoCount,
-        fixmeCount: model.voiceTag.summary.fixmeCount,
-        tagCount: model.voiceTag.summary.totalTags,
-        libraryCount: 0,
-        failedTypeChecks: 0,
-        panicAttackFindings: 0,
-        aiAttributionPercent: 0.0,
-        vexometerReading: model.vexometer.index,
-        commitHash: "",
-      }
-      let newSnapshots = TimelineEngine.addSnapshot(tl.snapshots, snap)
-      let newMetrics = TimelineEngine.allMetrics(newSnapshots)
-      (
-        {
-          ...model,
-          codeMriTimeline: {
-            ...tl,
-            snapshots: newSnapshots,
-            cachedMetrics: newMetrics,
-            capturing: false,
-            error: None,
-          },
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | SnapshotCaptured(Error(err)) => (
-      {...model, codeMriTimeline: {...tl, capturing: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | LoadHistory => (model, TimelineCmd.loadHistory(".", result => Timeline(HistoryLoaded(result))))
-  | HistoryLoaded(Ok(_json)) => {
-      // Parsing will be done properly when VeriSimDB backend is wired.
-      // For now, refresh metrics from existing snapshots.
-      let newMetrics = TimelineEngine.allMetrics(tl.snapshots)
-      ({...model, codeMriTimeline: {...tl, cachedMetrics: newMetrics, error: None}}, Tea_Cmd.none)
-    }
-  | HistoryLoaded(Error(err)) => (
-      {...model, codeMriTimeline: {...tl, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | QueryRange(startDate, endDate) => (
-      model,
-      TimelineCmd.queryRange(".", startDate, endDate, result => Timeline(RangeLoaded(result))),
-    )
-  | RangeLoaded(Ok(_json)) => (model, Tea_Cmd.none)
-  | RangeLoaded(Error(err)) => (
-      {...model, codeMriTimeline: {...tl, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | SeekScrubber(pos) => ({...model, codeMriTimeline: {...tl, scrubberPosition: pos}}, Tea_Cmd.none)
-  | ToggleDashboard => (
-      {...model, codeMriTimeline: {...tl, dashboardExpanded: !tl.dashboardExpanded}},
-      Tea_Cmd.none,
-    )
-  | ExportTimeline(outputPath) => (
-      model,
-      TimelineCmd.exportTimeline(".", outputPath, result => Timeline(TimelineExported(result))),
-    )
-  | TimelineExported(Ok(_path)) => (model, Tea_Cmd.none)
-  | TimelineExported(Error(err)) => (
-      {...model, codeMriTimeline: {...tl, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | DismissError => ({...model, codeMriTimeline: {...tl, error: None}}, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateTsdm.affine b/src/update/UpdateTsdm.affine
new file mode 100644
index 00000000..978915d4
--- /dev/null
+++ b/src/update/UpdateTsdm.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateTsdm;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateTsdm.res b/src/update/UpdateTsdm.res
deleted file mode 100644
index 9d3ee60a..00000000
--- a/src/update/UpdateTsdm.res
+++ /dev/null
@@ -1,319 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Extracted sub-updater for TSDM (Triaxial Software Development Methodology).
-/// Manages axis ordering, scope/maintenance/audit tier reordering, cleanup toggles,
-/// directive persistence, work item collection, and TypeLL integration.
-
-open Model
-open Msg
-
-/// Swap adjacent elements at index `i` and `i+1` in an array.
-/// Returns a new array with the swap applied. No-op if index is out of bounds.
-let swapAt = (arr: array<'a>, i: int): array<'a> => {
-  if i < 0 || i >= Array.length(arr) - 1 {
-    arr
-  } else {
-    let copy = Array.copy(arr)
-    let tmp = copy[i]
-    switch (tmp, copy[i + 1]) {
-    | (Some(a), Some(b)) =>
-      ignore(Array.setUnsafe(copy, i, b))
-      ignore(Array.setUnsafe(copy, i + 1, a))
-      copy
-    | _ => arr
-    }
-  }
-}
-
-let updateTsdm = (model: model, subMsg: tsdmMsg): (model, Tea_Cmd.t<msg>) => {
-  let ts = model.tsdm
-  switch subMsg {
-  | MoveAxisUp(idx) =>
-    if idx <= 0 {
-      (model, Tea_Cmd.none)
-    } else {
-      ({...model, tsdm: {...ts, axisOrder: swapAt(ts.axisOrder, idx - 1)}}, Tea_Cmd.none)
-    }
-  | MoveAxisDown(idx) => (
-      {...model, tsdm: {...ts, axisOrder: swapAt(ts.axisOrder, idx)}},
-      Tea_Cmd.none,
-    )
-  | MoveScopeTierUp(idx) =>
-    if idx <= 0 {
-      (model, Tea_Cmd.none)
-    } else {
-      ({...model, tsdm: {...ts, scopeOrder: swapAt(ts.scopeOrder, idx - 1)}}, Tea_Cmd.none)
-    }
-  | MoveScopeTierDown(idx) => (
-      {...model, tsdm: {...ts, scopeOrder: swapAt(ts.scopeOrder, idx)}},
-      Tea_Cmd.none,
-    )
-  | MoveMaintenanceTierUp(idx) =>
-    if idx <= 0 {
-      (model, Tea_Cmd.none)
-    } else {
-      (
-        {
-          ...model,
-          tsdm: {...ts, maintenanceOrder: swapAt(ts.maintenanceOrder, idx - 1)},
-        },
-        Tea_Cmd.none,
-      )
-    }
-  | MoveMaintenanceTierDown(idx) => (
-      {
-        ...model,
-        tsdm: {...ts, maintenanceOrder: swapAt(ts.maintenanceOrder, idx)},
-      },
-      Tea_Cmd.none,
-    )
-  | MoveAuditTierUp(idx) =>
-    if idx <= 0 {
-      (model, Tea_Cmd.none)
-    } else {
-      ({...model, tsdm: {...ts, auditOrder: swapAt(ts.auditOrder, idx - 1)}}, Tea_Cmd.none)
-    }
-  | MoveAuditTierDown(idx) => (
-      {...model, tsdm: {...ts, auditOrder: swapAt(ts.auditOrder, idx)}},
-      Tea_Cmd.none,
-    )
-  | ToggleCleanupStep(step) =>
-    let isEnabled = ts.cleanupEnabled->Array.some(s => s === step)
-    let newEnabled = if isEnabled {
-      ts.cleanupEnabled->Array.filter(s => s !== step)
-    } else {
-      ts.cleanupEnabled->Array.concat([step])
-    }
-    ({...model, tsdm: {...ts, cleanupEnabled: newEnabled}}, Tea_Cmd.none)
-  | SetAxisFilter(filter) => ({...model, tsdm: {...ts, axisFilter: filter}}, Tea_Cmd.none)
-  | SetTsdmSearch(text) => ({...model, tsdm: {...ts, searchText: text}}, Tea_Cmd.none)
-  | ToggleShowCompleted => (
-      {...model, tsdm: {...ts, showCompleted: !ts.showCompleted}},
-      Tea_Cmd.none,
-    )
-  | ToggleLock => ({...model, tsdm: {...ts, locked: !ts.locked}}, Tea_Cmd.none)
-  | ResetToDefaults => ({...model, tsdm: TsdmModel.init}, Tea_Cmd.none)
-  | SaveDirective => {
-      // Serialise the current TSDM state as JSON and persist via Gossamer.
-      let axisOrderJson = ts.axisOrder->Array.map(a =>
-        switch a {
-        | AxisScope => "scope"
-        | AxisMaintenance => "maintenance"
-        | AxisAudit => "audit"
-        }
-      )
-      let scopeOrderJson = ts.scopeOrder->Array.map(s =>
-        switch s {
-        | Must => "must"
-        | Intend => "intend"
-        | Like => "like"
-        }
-      )
-      let maintOrderJson = ts.maintenanceOrder->Array.map(m =>
-        switch m {
-        | Corrective => "corrective"
-        | Adaptive => "adaptive"
-        | Perfective => "perfective"
-        }
-      )
-      let auditOrderJson = ts.auditOrder->Array.map(a =>
-        switch a {
-        | Systems => "systems"
-        | Compliance => "compliance"
-        | Effects => "effects"
-        }
-      )
-      let directiveJson = `{"axisOrder":${JSON.stringify(
-          JSON.Encode.array(axisOrderJson->Array.map(JSON.Encode.string)),
-        )},"scopeOrder":${JSON.stringify(
-          JSON.Encode.array(scopeOrderJson->Array.map(JSON.Encode.string)),
-        )},"maintenanceOrder":${JSON.stringify(
-          JSON.Encode.array(maintOrderJson->Array.map(JSON.Encode.string)),
-        )},"auditOrder":${JSON.stringify(
-          JSON.Encode.array(auditOrderJson->Array.map(JSON.Encode.string)),
-        )},"locked":${if ts.locked {
-          "true"
-        } else {
-          "false"
-        }}}`
-      (
-        model,
-        Tea_Cmd.batch(list{
-          TsdmCmd.saveDirective(directiveJson, result => Tsdm(DirectiveSaved(result))),
-          TypeLLService.checkSecurityTypes(directiveJson, "tsdm", result => Tsdm(
-            TypeCheckResult(result),
-          )),
-        }),
-      )
-    }
-  | DirectiveSaved(Ok(_path)) => (model, Tea_Cmd.none)
-  | DirectiveSaved(Error(err)) => ({...model, tsdm: {...ts, lastError: Some(err)}}, Tea_Cmd.none)
-  | LoadDirective => (model, TsdmCmd.loadDirective(result => Tsdm(DirectiveLoaded(result))))
-  | DirectiveLoaded(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-        let parseAxisOrder =
-          obj
-          ->Dict.get("axisOrder")
-          ->Option.flatMap(JSON.Decode.array)
-          ->Option.getOr([])
-          ->Array.filterMap(v =>
-            switch v->JSON.Decode.string {
-            | Some("scope") => Some(TsdmModel.AxisScope)
-            | Some("maintenance") => Some(TsdmModel.AxisMaintenance)
-            | Some("audit") => Some(TsdmModel.AxisAudit)
-            | _ => None
-            }
-          )
-        let parseScopeOrder =
-          obj
-          ->Dict.get("scopeOrder")
-          ->Option.flatMap(JSON.Decode.array)
-          ->Option.getOr([])
-          ->Array.filterMap(v =>
-            switch v->JSON.Decode.string {
-            | Some("must") => Some(TsdmModel.Must)
-            | Some("intend") => Some(TsdmModel.Intend)
-            | Some("like") => Some(TsdmModel.Like)
-            | _ => None
-            }
-          )
-        let parseMaintOrder =
-          obj
-          ->Dict.get("maintenanceOrder")
-          ->Option.flatMap(JSON.Decode.array)
-          ->Option.getOr([])
-          ->Array.filterMap(v =>
-            switch v->JSON.Decode.string {
-            | Some("corrective") => Some(TsdmModel.Corrective)
-            | Some("adaptive") => Some(TsdmModel.Adaptive)
-            | Some("perfective") => Some(TsdmModel.Perfective)
-            | _ => None
-            }
-          )
-        let parseAuditOrder =
-          obj
-          ->Dict.get("auditOrder")
-          ->Option.flatMap(JSON.Decode.array)
-          ->Option.getOr([])
-          ->Array.filterMap(v =>
-            switch v->JSON.Decode.string {
-            | Some("systems") => Some(TsdmModel.Systems)
-            | Some("compliance") => Some(TsdmModel.Compliance)
-            | Some("effects") => Some(TsdmModel.Effects)
-            | _ => None
-            }
-          )
-        let locked = obj->Dict.get("locked")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-        Some((parseAxisOrder, parseScopeOrder, parseMaintOrder, parseAuditOrder, locked))
-
-      | None => None
-      }
-      switch parsed {
-      | Some((axisOrder, scopeOrder, maintOrder, auditOrder, locked)) =>
-        let newTs = {
-          ...ts,
-          axisOrder: if Array.length(axisOrder) > 0 {
-            axisOrder
-          } else {
-            ts.axisOrder
-          },
-          scopeOrder: if Array.length(scopeOrder) > 0 {
-            scopeOrder
-          } else {
-            ts.scopeOrder
-          },
-          maintenanceOrder: if Array.length(maintOrder) > 0 {
-            maintOrder
-          } else {
-            ts.maintenanceOrder
-          },
-          auditOrder: if Array.length(auditOrder) > 0 {
-            auditOrder
-          } else {
-            ts.auditOrder
-          },
-          locked,
-        }
-        ({...model, tsdm: newTs}, Tea_Cmd.none)
-      | None => (model, Tea_Cmd.none)
-      }
-    }
-  | DirectiveLoaded(Error(err)) => ({...model, tsdm: {...ts, lastError: Some(err)}}, Tea_Cmd.none)
-  | CollectWorkItems => (
-      model,
-      TsdmCmd.collectWorkItems(result => Tsdm(WorkItemsCollected(result))),
-    )
-  | WorkItemsCollected(Ok(jsonStr)) => {
-      let items = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        arr->Array.filterMap(item => {
-          let o = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let gs = (d, k) => d->Dict.get(k)->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let gb = (d, k) => d->Dict.get(k)->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-          let id = gs(o, "id")
-          if id !== "" {
-            let axis = switch gs(o, "axis") {
-            | "scope" => TsdmModel.AxisScope
-            | "maintenance" => TsdmModel.AxisMaintenance
-            | _ => TsdmModel.AxisAudit
-            }
-            let scopeTier = switch gs(o, "scope_tier") {
-            | "must" => Some(TsdmModel.Must)
-            | "intend" => Some(TsdmModel.Intend)
-            | "like" => Some(TsdmModel.Like)
-            | _ => None
-            }
-            let maintenanceTier = switch gs(o, "maintenance_tier") {
-            | "corrective" => Some(TsdmModel.Corrective)
-            | "adaptive" => Some(TsdmModel.Adaptive)
-            | "perfective" => Some(TsdmModel.Perfective)
-            | _ => None
-            }
-            let auditTier = switch gs(o, "audit_tier") {
-            | "systems" => Some(TsdmModel.Systems)
-            | "compliance" => Some(TsdmModel.Compliance)
-            | "effects" => Some(TsdmModel.Effects)
-            | _ => None
-            }
-            Some({
-              TsdmModel.id,
-              title: gs(o, "title"),
-              description: gs(o, "description"),
-              axis,
-              scopeTier,
-              maintenanceTier,
-              auditTier,
-              sourcePanel: gs(o, "source_panel"),
-              done: gb(o, "done"),
-            })
-          } else {
-            None
-          }
-        })
-
-      | None => []
-      }
-      ({...model, tsdm: {...ts, workItems: items}}, Tea_Cmd.none)
-    }
-  | WorkItemsCollected(Error(err)) => (
-      {...model, tsdm: {...ts, lastError: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | DismissTsdmError => ({...model, tsdm: {...ts, lastError: None}}, Tea_Cmd.none)
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "tsdm", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateTypeLL.affine b/src/update/UpdateTypeLL.affine
new file mode 100644
index 00000000..59bd6890
--- /dev/null
+++ b/src/update/UpdateTypeLL.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateTypeLL;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateTypeLL.res b/src/update/UpdateTypeLL.res
deleted file mode 100644
index e3ba9190..00000000
--- a/src/update/UpdateTypeLL.res
+++ /dev/null
@@ -1,242 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-let updateTypeLL = (model: model, msg: typellMsg): (model, Tea_Cmd.t<msg>) => {
-  let tl = model.typell
-  switch msg {
-  | SetTlCategory(cat) => ({...model, typell: {...tl, activeCategory: cat}}, Tea_Cmd.none)
-  | SetViewLayer(vl) => ({...model, typell: {...tl, activeViewLayer: vl}}, Tea_Cmd.none)
-  | CheckTlHealth => (
-      {...model, typell: {...tl, loading: true}},
-      TypeLLCmd.health(result => TypeLL(TlHealthResult(result))),
-    )
-  | TlHealthResult(Ok(_)) => (
-      {...model, typell: {...tl, serverConnected: true, loading: false, error: None}},
-      Tea_Cmd.none,
-    )
-  | TlHealthResult(Error(e)) => (
-      {...model, typell: {...tl, serverConnected: false, loading: false, error: Some(e)}},
-      Tea_Cmd.none,
-    )
-  | UpdateCheckerInput(v) => ({...model, typell: {...tl, checkerInput: v}}, Tea_Cmd.none)
-  | RunCheck => {
-      let ctx = if tl.checkerContext !== "" {
-        Some(tl.checkerContext)
-      } else {
-        None
-      }
-      let checkCmd = if tl.bojRouting {
-        let ctxStr = switch ctx {
-        | Some(c) => `, "context": "${c}"`
-        | None => ""
-        }
-        BojCmd.invokeCartridgeWithLatency(
-          "nesy-mcp",
-          "check",
-          `{"input": "${tl.checkerInput}"${ctxStr}}`,
-          result => TypeLL(CheckResult(result)),
-          (cart, tool, elapsed) => RecordBojLatency(cart, tool, elapsed),
-        )
-      } else {
-        TypeLLCmd.check(tl.checkerInput, ctx, result => TypeLL(CheckResult(result)))
-      }
-      ({...model, typell: {...tl, loading: true, error: None}}, checkCmd)
-    }
-  | CheckResult(Ok(json)) =>
-    switch TypeLLEngine.parseCheckResult(json) {
-    | Ok(result) => {
-        let narrative = TypeLLEngine.generateNarrative(result)
-        (
-          {
-            ...model,
-            typell: {
-              ...tl,
-              loading: false,
-              lastCheckResult: Some(result),
-              lastNarrative: Some(narrative),
-              queriesServed: tl.queriesServed + 1,
-              error: None,
-            },
-          },
-          Tea_Cmd.none,
-        )
-      }
-    | Error(e) => ({...model, typell: {...tl, loading: false, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | CheckResult(Error(e)) => (
-      {...model, typell: {...tl, loading: false, error: Some(e)}},
-      Tea_Cmd.none,
-    )
-  | RunInfer => {
-      let inferCmd = if tl.bojRouting {
-        BojCmd.invokeCartridgeWithLatency(
-          "nesy-mcp",
-          "infer",
-          `{"input": "${tl.checkerInput}"}`,
-          result => TypeLL(InferResult(result)),
-          (cart, tool, elapsed) => RecordBojLatency(cart, tool, elapsed),
-        )
-      } else {
-        TypeLLCmd.infer(tl.checkerInput, result => TypeLL(InferResult(result)))
-      }
-      ({...model, typell: {...tl, loading: true, error: None}}, inferCmd)
-    }
-  | InferResult(Ok(json)) =>
-    switch TypeLLEngine.parseCheckResult(json) {
-    | Ok(result) => {
-        let narrative = TypeLLEngine.generateNarrative(result)
-        (
-          {
-            ...model,
-            typell: {
-              ...tl,
-              loading: false,
-              lastCheckResult: Some(result),
-              lastNarrative: Some(narrative),
-              queriesServed: tl.queriesServed + 1,
-              error: None,
-            },
-          },
-          Tea_Cmd.none,
-        )
-      }
-    | Error(e) => ({...model, typell: {...tl, loading: false, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | InferResult(Error(e)) => (
-      {...model, typell: {...tl, loading: false, error: Some(e)}},
-      Tea_Cmd.none,
-    )
-  | LoadSignatures => (
-      {...model, typell: {...tl, loading: true}},
-      TypeLLCmd.listSignatures(result => TypeLL(SignaturesLoaded(result))),
-    )
-  | SignaturesLoaded(Ok(jsonStr)) => {
-      let sigs = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        arr->Array.filterMap(item => {
-          let o = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let gs = (d, k) => d->Dict.get(k)->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let name = gs(o, "name")
-          if name !== "" {
-            let tier = switch gs(o, "tier") {
-            | "advanced" => TypeLLModel.TierAdvanced
-            | "research" => TypeLLModel.TierResearch
-            | _ => TypeLLModel.TierCore
-            }
-            Some({
-              TypeLLModel.name,
-              signature: gs(o, "signature"),
-              module_: gs(o, "module"),
-              tier,
-            })
-          } else {
-            None
-          }
-        })
-
-      | None => []
-      }
-      ({...model, typell: {...tl, loading: false, signatures: sigs, error: None}}, Tea_Cmd.none)
-    }
-  | SignaturesLoaded(Error(e)) => (
-      {...model, typell: {...tl, loading: false, error: Some(e)}},
-      Tea_Cmd.none,
-    )
-  | LoadUniverses => (
-      {...model, typell: {...tl, loading: true}},
-      TypeLLCmd.universes(result => TypeLL(UniversesLoaded(result))),
-    )
-  | UniversesLoaded(Ok(jsonStr)) => {
-      let univs = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        arr->Array.filterMap(item => {
-          let o = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let gs = (d, k) => d->Dict.get(k)->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let gi = (d, k) =>
-            d->Dict.get(k)->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)->Float.toInt
-          let name = gs(o, "name")
-          if name !== "" {
-            Some({
-              TypeLLModel.level: gi(o, "level"),
-              name,
-              description: gs(o, "description"),
-            })
-          } else {
-            None
-          }
-        })
-
-      | None => []
-      }
-      ({...model, typell: {...tl, loading: false, universes: univs, error: None}}, Tea_Cmd.none)
-    }
-  | UniversesLoaded(Error(e)) => (
-      {...model, typell: {...tl, loading: false, error: Some(e)}},
-      Tea_Cmd.none,
-    )
-  | SetSignatureFilter(v) => ({...model, typell: {...tl, signatureFilter: v}}, Tea_Cmd.none)
-  | SetTierFilter(t) => ({...model, typell: {...tl, tierFilter: t}}, Tea_Cmd.none)
-  | UpdateRefinementSpec(v) => ({...model, typell: {...tl, refinementSpec: v}}, Tea_Cmd.none)
-  | UpdateRefinementConstraints(v) => (
-      {...model, typell: {...tl, refinementConstraints: v}},
-      Tea_Cmd.none,
-    )
-  | RunRefine => {
-      let constraints = if tl.refinementConstraints !== "" {
-        Some(tl.refinementConstraints)
-      } else {
-        None
-      }
-      (
-        {...model, typell: {...tl, loading: true, error: None}},
-        TypeLLCmd.refine(tl.refinementSpec, constraints, result => TypeLL(RefineResult(result))),
-      )
-    }
-  | RefineResult(Ok(json)) =>
-    switch TypeLLEngine.parseRefinementResult(json) {
-    | Ok(result) => (
-        {
-          ...model,
-          typell: {
-            ...tl,
-            loading: false,
-            lastRefinement: Some(result),
-            queriesServed: tl.queriesServed + 1,
-            error: None,
-          },
-        },
-        Tea_Cmd.none,
-      )
-    | Error(e) => ({...model, typell: {...tl, loading: false, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | RefineResult(Error(e)) => (
-      {...model, typell: {...tl, loading: false, error: Some(e)}},
-      Tea_Cmd.none,
-    )
-  | ToggleTypellBojRouting => (
-      {...model, typell: {...tl, bojRouting: !tl.bojRouting}},
-      Tea_Cmd.none,
-    )
-  | SetDefaultDiscipline(d) => ({...model, typell: {...tl, defaultDiscipline: d}}, Tea_Cmd.none)
-  | SetModuleDiscipline(scope, discipline) => {
-      let existing = tl.disciplineDeclarations->Array.filter(d => d.scope !== scope)
-      let decl: disciplineDeclaration = {
-        scope,
-        discipline,
-        inferenceAllowed: true,
-        enabledFeatures: TypeLLEngine.disciplineImpliedFeatures(discipline),
-      }
-      (
-        {...model, typell: {...tl, disciplineDeclarations: Array.concat(existing, [decl])}},
-        Tea_Cmd.none,
-      )
-    }
-  | RemoveModuleDiscipline(scope) => {
-      let filtered = tl.disciplineDeclarations->Array.filter(d => d.scope !== scope)
-      ({...model, typell: {...tl, disciplineDeclarations: filtered}}, Tea_Cmd.none)
-    }
-  }
-}
diff --git a/src/update/UpdateUms.affine b/src/update/UpdateUms.affine
new file mode 100644
index 00000000..70f85f16
--- /dev/null
+++ b/src/update/UpdateUms.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateUms;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateUms.res b/src/update/UpdateUms.res
deleted file mode 100644
index 7b98a791..00000000
--- a/src/update/UpdateUms.res
+++ /dev/null
@@ -1,365 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-// UpdateUms.res — UMS (User Mod System) sub-updater extracted from Update.res
-
-open Model
-open Msg
-
-let updateUms = (model: model, msg: umsMsg): (model, Tea_Cmd.t<msg>) => {
-  let u = model.ums
-  switch msg {
-  | SetUmsCategory(cat) => ({...model, ums: {...u, activeCategory: cat}}, Tea_Cmd.none)
-  | LoadProjects => (
-      {...model, ums: {...u, loading: true}},
-      UmsCmd.loadProjects(result => Ums(ProjectsLoaded(result))),
-    )
-  | ProjectsLoaded(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let id = obj->Dict.get("id")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let name = obj->Dict.get("name")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let description =
-            obj->Dict.get("description")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let author = obj->Dict.get("author")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let version =
-            obj->Dict.get("version")->Option.flatMap(JSON.Decode.string)->Option.getOr("0.1.0")
-          let createdAt =
-            obj->Dict.get("createdAt")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let lastModified =
-            obj->Dict.get("lastModified")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let levelCount =
-            obj
-            ->Dict.get("levelCount")
-            ->Option.flatMap(JSON.Decode.float)
-            ->Option.getOr(0.0)
-            ->Float.toInt
-          let puzzleCount =
-            obj
-            ->Dict.get("puzzleCount")
-            ->Option.flatMap(JSON.Decode.float)
-            ->Option.getOr(0.0)
-            ->Float.toInt
-          let assetCount =
-            obj
-            ->Dict.get("assetCount")
-            ->Option.flatMap(JSON.Decode.float)
-            ->Option.getOr(0.0)
-            ->Float.toInt
-          let validated =
-            obj->Dict.get("validated")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-          let projectPath =
-            obj->Dict.get("projectPath")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          if id !== "" {
-            Some({
-              UmsModel.id,
-              name,
-              description,
-              author,
-              version,
-              createdAt,
-              lastModified,
-              levelCount,
-              puzzleCount,
-              assetCount,
-              validated,
-              projectPath,
-            })
-          } else {
-            None
-          }
-        })
-
-      | None => []
-      }
-      ({...model, ums: {...u, projects: parsed, loading: false, error: None}}, Tea_Cmd.none)
-    }
-  | ProjectsLoaded(Error(err)) => (
-      {...model, ums: {...u, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | CreateProject(name) => (
-      {...model, ums: {...u, loading: true}},
-      UmsCmd.createProject(name, "", result => Ums(ProjectCreated(result))),
-    )
-  | ProjectCreated(Ok(_)) => (model, UmsCmd.loadProjects(result => Ums(ProjectsLoaded(result))))
-  | ProjectCreated(Error(err)) => (
-      {...model, ums: {...u, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | SelectProject(id) => ({...model, ums: {...u, selectedProjectId: Some(id)}}, Tea_Cmd.none)
-  | DeselectProject => ({...model, ums: {...u, selectedProjectId: None}}, Tea_Cmd.none)
-  | OpenProject(id) => (
-      {...model, ums: {...u, loading: true}},
-      UmsCmd.openProject(id, result => Ums(ProjectOpened(result))),
-    )
-  | ProjectOpened(Ok(_jsonStr)) => ({...model, ums: {...u, loading: false}}, Tea_Cmd.none)
-  | ProjectOpened(Error(err)) => (
-      {...model, ums: {...u, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | DeleteProject(id) => (
-      {...model, ums: {...u, loading: true}},
-      UmsCmd.deleteProject(id, result => Ums(ProjectDeleted(result))),
-    )
-  | ProjectDeleted(Ok(_)) => (model, UmsCmd.loadProjects(result => Ums(ProjectsLoaded(result))))
-  | ProjectDeleted(Error(err)) => (
-      {...model, ums: {...u, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | ValidateLevel(levelId) => {
-      // Route through BoJ database-mcp when bojRouting is enabled, otherwise Gossamer direct.
-      let validateCmd = if u.bojRouting {
-        BojCmd.invokeCartridgeWithLatency(
-          "database-mcp",
-          "ums_validate_level",
-          levelId,
-          result => Ums(ValidationResult(result)),
-          (c, t, e) => RecordBojLatency(c, t, e),
-        )
-      } else {
-        UmsCmd.validateLevel(levelId, result => Ums(ValidationResult(result)))
-      }
-      // Fire TypeLL ABI type check in parallel — validates level data against
-      // the 14 Idris2 ABI module interface (dependent types, quantitative erasure).
-      let typellCmd = TypeLLService.checkUmsAbi(levelId, result => Ums(AbiTypeCheckResult(result)))
-      ({...model, ums: {...u, loading: true}}, Tea_Cmd.batch(list{validateCmd, typellCmd}))
-    }
-  | ValidationResult(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-        let levelId = obj->Dict.get("levelId")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-        let guardsInZones =
-          obj->Dict.get("guardsInZones")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-        let defenceTargetsValid =
-          obj
-          ->Dict.get("defenceTargetsValid")
-          ->Option.flatMap(JSON.Decode.bool)
-          ->Option.getOr(false)
-        let zonesOrdered =
-          obj->Dict.get("zonesOrdered")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-        let pbxConsistent =
-          obj->Dict.get("pbxConsistent")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-        let devicesExist =
-          obj->Dict.get("devicesExist")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-        let allPassed =
-          guardsInZones && defenceTargetsValid && zonesOrdered && pbxConsistent && devicesExist
-        let validatedAt =
-          obj->Dict.get("validatedAt")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-        let errors =
-          obj
-          ->Dict.get("errors")
-          ->Option.flatMap(JSON.Decode.array)
-          ->Option.getOr([])
-          ->Array.filterMap(e => e->JSON.Decode.string)
-        Some({
-          UmsModel.levelId,
-          guardsInZones,
-          defenceTargetsValid,
-          zonesOrdered,
-          pbxConsistent,
-          devicesExist,
-          allPassed,
-          validatedAt,
-          errors,
-        })
-
-      | None => None
-      }
-      let results = switch parsed {
-      | Some(r) => Array.concat(u.validationResults, [r])
-      | None => u.validationResults
-      }
-      (
-        {...model, ums: {...u, validationResults: results, loading: false, error: None}},
-        Tea_Cmd.none,
-      )
-    }
-  | ValidationResult(Error(err)) => (
-      {...model, ums: {...u, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | LoadTemplates => (
-      {...model, ums: {...u, loading: true}},
-      UmsCmd.loadTemplates(result => Ums(TemplatesLoaded(result))),
-    )
-  | TemplatesLoaded(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let id = obj->Dict.get("id")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let name = obj->Dict.get("name")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let description =
-            obj->Dict.get("description")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let categoryStr =
-            obj->Dict.get("category")->Option.flatMap(JSON.Decode.string)->Option.getOr("level")
-          let category: templateCategory = switch categoryStr {
-          | "puzzle" => TemplatePuzzle
-          | "campaign" => TemplateCampaign
-          | "asset_pack" => TemplateAssetPack
-          | _ => TemplateLevel
-          }
-          let difficulty =
-            obj->Dict.get("difficulty")->Option.flatMap(JSON.Decode.string)->Option.getOr("medium")
-          let previewImagePath =
-            obj->Dict.get("previewImagePath")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          if id !== "" {
-            Some({UmsModel.id, name, description, category, difficulty, previewImagePath})
-          } else {
-            None
-          }
-        })
-
-      | None => []
-      }
-      ({...model, ums: {...u, templates: parsed, loading: false, error: None}}, Tea_Cmd.none)
-    }
-  | TemplatesLoaded(Error(err)) => (
-      {...model, ums: {...u, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | InstantiateTemplate(templateId) => (
-      {...model, ums: {...u, loading: true}},
-      UmsCmd.instantiateTemplate(templateId, "", result => Ums(TemplateInstantiated(result))),
-    )
-  | TemplateInstantiated(Ok(_)) => (
-      model,
-      UmsCmd.loadProjects(result => Ums(ProjectsLoaded(result))),
-    )
-  | TemplateInstantiated(Error(err)) => (
-      {...model, ums: {...u, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | LoadAssets => (
-      {...model, ums: {...u, loading: true}},
-      UmsCmd.loadAssets(u.selectedProjectId->Option.getOr(""), result => Ums(AssetsLoaded(result))),
-    )
-  | AssetsLoaded(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let id = obj->Dict.get("id")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let name = obj->Dict.get("name")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let assetTypeStr =
-            obj->Dict.get("assetType")->Option.flatMap(JSON.Decode.string)->Option.getOr("sprite")
-          let assetType: modAssetType = switch assetTypeStr {
-          | "sound" => AssetSound
-          | "map" => AssetMap
-          | "tileset" => AssetTileset
-          | "animation" => AssetAnimation
-          | "script" => AssetScript
-          | _ => AssetSprite
-          }
-          let filePath =
-            obj->Dict.get("filePath")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let sizeBytes =
-            obj
-            ->Dict.get("sizeBytes")
-            ->Option.flatMap(JSON.Decode.float)
-            ->Option.getOr(0.0)
-            ->Float.toInt
-          let usedIn =
-            obj
-            ->Dict.get("usedIn")
-            ->Option.flatMap(JSON.Decode.array)
-            ->Option.getOr([])
-            ->Array.filterMap(e => e->JSON.Decode.string)
-          if id !== "" {
-            Some({UmsModel.id, name, assetType, filePath, sizeBytes, usedIn})
-          } else {
-            None
-          }
-        })
-
-      | None => []
-      }
-      ({...model, ums: {...u, assets: parsed, loading: false, error: None}}, Tea_Cmd.none)
-    }
-  | AssetsLoaded(Error(err)) => (
-      {...model, ums: {...u, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | ImportAsset(path) => (
-      {...model, ums: {...u, loading: true}},
-      UmsCmd.importAsset(u.selectedProjectId->Option.getOr(""), path, result => Ums(
-        AssetImported(result),
-      )),
-    )
-  | AssetImported(Ok(_)) => (
-      model,
-      UmsCmd.loadAssets(u.selectedProjectId->Option.getOr(""), result => Ums(AssetsLoaded(result))),
-    )
-  | AssetImported(Error(err)) => (
-      {...model, ums: {...u, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | PublishMod => (
-      {...model, ums: {...u, loading: true}},
-      UmsCmd.publishMod(u.selectedProjectId->Option.getOr(""), "", result => Ums(
-        PublishResult(result),
-      )),
-    )
-  | PublishResult(Ok(_jsonStr)) => ({...model, ums: {...u, loading: false}}, Tea_Cmd.none)
-  | PublishResult(Error(err)) => (
-      {...model, ums: {...u, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | LoadApiReference => (
-      {...model, ums: {...u, loading: true}},
-      UmsCmd.loadApiReference(result => Ums(ApiReferenceLoaded(result))),
-    )
-  | ApiReferenceLoaded(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let name = obj->Dict.get("name")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let category =
-            obj->Dict.get("category")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let signature =
-            obj->Dict.get("signature")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let description =
-            obj->Dict.get("description")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let example =
-            obj->Dict.get("example")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let since = obj->Dict.get("since")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          if name !== "" {
-            Some({UmsModel.name, category, signature, description, example, since})
-          } else {
-            None
-          }
-        })
-
-      | None => []
-      }
-      ({...model, ums: {...u, apiEntries: parsed, loading: false, error: None}}, Tea_Cmd.none)
-    }
-  | ApiReferenceLoaded(Error(err)) => (
-      {...model, ums: {...u, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | SetUmsFilter(text) => ({...model, ums: {...u, filterText: text}}, Tea_Cmd.none)
-  | DismissUmsError => ({...model, ums: {...u, error: None}}, Tea_Cmd.none)
-  | ToggleUmsBojRouting => ({...model, ums: {...u, bojRouting: !u.bojRouting}}, Tea_Cmd.none)
-  | AbiTypeCheckResult(Ok(_typeInfo)) => {
-      // TypeLL verified the level data types against the Idris2 ABI.
-      // Increment TypeLL queries served counter for cross-panel telemetry.
-      let tl = model.typell
-      ({...model, typell: {...tl, queriesServed: tl.queriesServed + 1}}, Tea_Cmd.none)
-    }
-  | AbiTypeCheckResult(Error(_)) => (model, Tea_Cmd.none) // TypeLL errors don't block UMS workflow
-  | NavigateToPanel(targetPanel) => {
-      // Cross-panel navigation — switch to a related eNSAID panel from UMS.
-      let ps = model.panelSwitcher
-      ({...model, panelSwitcher: {...ps, activePanel: Some(targetPanel)}}, Tea_Cmd.none)
-    }
-  | _ => (model, Tea_Cmd.none) // Stub: unhandled UMS messages
-  }
-}
diff --git a/src/update/UpdateVab.affine b/src/update/UpdateVab.affine
new file mode 100644
index 00000000..22e8c317
--- /dev/null
+++ b/src/update/UpdateVab.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateVab;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateVab.res b/src/update/UpdateVab.res
deleted file mode 100644
index 5a325321..00000000
--- a/src/update/UpdateVab.res
+++ /dev/null
@@ -1,63 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-let recomputeVabStatus = (vab: vabState): vabState => {
-  let warnings = VabEngine.checkDependencies(vab.server.components, vab.catalog)
-  let capabilities = VabEngine.computeCapabilities(vab.server.components, vab.catalog, warnings)
-  {...vab, warnings, capabilities}
-}
-
-/// STATE TRANSITION: VAB (Verified Assembly Building)
-/// Handles server composition: category browsing, component add/remove,
-/// server naming, filter/sort, and assembly management. After every
-/// assembly-modifying action, recomputes dependency warnings and capabilities.
-let updateVab = (model: model, msg: vabMsg): (model, Tea_Cmd.t<msg>) => {
-  let vab = model.vab
-  switch msg {
-  | ToggleVab => ({...model, vab: {...vab, visible: !vab.visible}}, Tea_Cmd.none)
-  | SelectCategory(cat) => ({...model, vab: {...vab, selectedCategory: cat}}, Tea_Cmd.none)
-  | AddComponent(id) => {
-      // Only add if not already present
-      let alreadyPresent = Array.some(vab.server.components, c => c === id)
-      if alreadyPresent {
-        (model, Tea_Cmd.none)
-      } else {
-        let server = {
-          ...vab.server,
-          components: Array.concat(vab.server.components, [id]),
-        }
-        ({...model, vab: recomputeVabStatus({...vab, server})}, Tea_Cmd.none)
-      }
-    }
-  | RemoveComponent(id) => {
-      let server = {
-        ...vab.server,
-        components: Array.filter(vab.server.components, c => c !== id),
-      }
-      ({...model, vab: recomputeVabStatus({...vab, server})}, Tea_Cmd.none)
-    }
-  | RenameServer(name) => ({...model, vab: {...vab, server: {...vab.server, name}}}, Tea_Cmd.none)
-  | ClearAssembly => {
-      let server = {...vab.server, components: []}
-      ({...model, vab: recomputeVabStatus({...vab, server})}, Tea_Cmd.none)
-    }
-  | SetFilterText(text) => ({...model, vab: {...vab, filterText: text}}, Tea_Cmd.none)
-  | SetSortBy(sort) => ({...model, vab: {...vab, sortBy: sort}}, Tea_Cmd.none)
-  | HoverComponent(id) => ({...model, vab: {...vab, hoveredComponent: id}}, Tea_Cmd.none)
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "vab", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => {
-      UpdateHelpers.logDegradedService("TypeLL", "cross-panel type check failed")
-      (model, Tea_Cmd.none)
-    }
-  }
-}
diff --git a/src/update/UpdateValenceShell.affine b/src/update/UpdateValenceShell.affine
new file mode 100644
index 00000000..0dc2d1e9
--- /dev/null
+++ b/src/update/UpdateValenceShell.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateValenceShell;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateValenceShell.res b/src/update/UpdateValenceShell.res
deleted file mode 100644
index 3e97027a..00000000
--- a/src/update/UpdateValenceShell.res
+++ /dev/null
@@ -1,474 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Extracted sub-updater for the Valence Shell panel.
-/// Manages the embedded terminal — PTY lifecycle, input handling, session recording,
-/// checkpoint management, approval gate, and Claude Code integration.
-
-open Model
-open Msg
-
-let updateValenceShell = (model: model, msg: valenceShellMsg): (model, Tea_Cmd.t<msg>) => {
-  let vs = model.valenceShell
-  switch msg {
-  | SetShellCategory(cat) => ({...model, valenceShell: {...vs, activeCategory: cat}}, Tea_Cmd.none)
-  | UpdateInput(value) => (
-      {
-        ...model,
-        valenceShell: {
-          ...vs,
-          inputLine: value,
-          completionsVisible: String.length(value) > 0,
-        },
-      },
-      Tea_Cmd.none,
-    )
-  | SubmitInput => {
-      let input = String.trim(vs.inputLine)
-      if String.length(input) === 0 {
-        (model, Tea_Cmd.none)
-      } else {
-        // Check approval gate
-        switch vs.approvalGate {
-        | GateDisabled => (
-            {
-              ...model,
-              valenceShell: {
-                ...vs,
-                inputLine: "",
-                commandHistory: Array.concat(vs.commandHistory, [input]),
-                historyIndex: -1,
-                completionsVisible: false,
-                claudeCodeActive: input === "claude" || String.startsWith(input, "claude "),
-              },
-            },
-            Tea_Cmd.batch(list{
-              ValenceShellCmd.sendInput(input ++ "\n", result => ValenceShell(
-                PtyOutput(
-                  switch result {
-                  | Ok(s) => s
-                  | Error(e) => e
-                  },
-                  switch result {
-                  | Ok(_) => true
-                  | Error(_) => false
-                  },
-                ),
-              )),
-              TypeLLService.checkCodeTypes(input, "shell", result => ValenceShell(
-                TypeCheckResult(result),
-              )),
-            }),
-          )
-        | GateEnabled | GateLearning => {
-            // Check whitelist for learning mode
-            let isWhitelisted =
-              vs.approvalGate === GateLearning &&
-                Array.some(vs.approvedCommands, cmd => cmd === input)
-            if isWhitelisted {
-              // Auto-approve whitelisted commands
-              (
-                {
-                  ...model,
-                  valenceShell: {
-                    ...vs,
-                    inputLine: "",
-                    commandHistory: Array.concat(vs.commandHistory, [input]),
-                    historyIndex: -1,
-                    completionsVisible: false,
-                  },
-                },
-                ValenceShellCmd.sendInput(input ++ "\n", result => ValenceShell(
-                  PtyOutput(
-                    switch result {
-                    | Ok(s) => s
-                    | Error(e) => e
-                    },
-                    switch result {
-                    | Ok(_) => true
-                    | Error(_) => false
-                    },
-                  ),
-                )),
-              )
-            } else {
-              // Queue for approval
-              let pending: pendingCommand = {
-                command: input,
-                author: "child",
-                submittedAt: 0.0,
-              }
-              (
-                {
-                  ...model,
-                  valenceShell: {
-                    ...vs,
-                    inputLine: "",
-                    pendingCommands: Array.concat(vs.pendingCommands, [pending]),
-                    completionsVisible: false,
-                  },
-                },
-                Tea_Cmd.none,
-              )
-            }
-          }
-        }
-      }
-    }
-  | SelectCompletion(completion) => (
-      {
-        ...model,
-        valenceShell: {
-          ...vs,
-          inputLine: completion,
-          completionsVisible: false,
-        },
-      },
-      Tea_Cmd.none,
-    )
-  | ToggleCompletions => (
-      {...model, valenceShell: {...vs, completionsVisible: !vs.completionsVisible}},
-      Tea_Cmd.none,
-    )
-  | PtySpawned(Ok(_sessionId)) => (
-      {...model, valenceShell: {...vs, ptyConnected: true, error: None}},
-      Tea_Cmd.none,
-    )
-  | PtySpawned(Error(err)) => (
-      {...model, valenceShell: {...vs, ptyConnected: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | PtyOutput(content, isStdout) => {
-      let line: terminalLine = {content, isStdout, timestamp: 0.0}
-      let buffer = Array.concat(vs.outputBuffer, [line])
-      // Ring buffer: keep last 1000 lines
-      let trimmed = if Array.length(buffer) > 1000 {
-        Array.sliceToEnd(buffer, ~start=Array.length(buffer) - 1000)
-      } else {
-        buffer
-      }
-      ({...model, valenceShell: {...vs, outputBuffer: trimmed}}, Tea_Cmd.none)
-    }
-  | PtyExited => (
-      {...model, valenceShell: {...vs, ptyConnected: false, claudeCodeActive: false}},
-      Tea_Cmd.none,
-    )
-  | CheckValenceAvailability => (
-      model,
-      ValenceShellCmd.checkValenceAvailability(result => ValenceShell(
-        ValenceAvailabilityResult(result),
-      )),
-    )
-  | ValenceAvailabilityResult(Ok(_version)) => (
-      {
-        ...model,
-        valenceShell: {
-          ...vs,
-          valenceAvailable: true,
-          backend: ValenceShell,
-        },
-      },
-      Tea_Cmd.none,
-    )
-  | ValenceAvailabilityResult(Error(_)) => (
-      {...model, valenceShell: {...vs, valenceAvailable: false}},
-      Tea_Cmd.none,
-    )
-  | LaunchClaudeCode => (
-      {
-        ...model,
-        valenceShell: {
-          ...vs,
-          inputLine: "",
-          commandHistory: Array.concat(vs.commandHistory, ["claude"]),
-          claudeCodeActive: true,
-        },
-      },
-      ValenceShellCmd.sendInput("claude\n", result => ValenceShell(
-        PtyOutput(
-          switch result {
-          | Ok(s) => s
-          | Error(e) => e
-          },
-          switch result {
-          | Ok(_) => true
-          | Error(_) => false
-          },
-        ),
-      )),
-    )
-  | StartRecordingSession => (
-      {...model, valenceShell: {...vs, loading: true}},
-      ValenceShellCmd.startRecording("session", result => ValenceShell(RecordingStarted(result))),
-    )
-  | StopRecordingSession => (
-      {...model, valenceShell: {...vs, loading: true}},
-      ValenceShellCmd.stopRecording(result => ValenceShell(RecordingStopped(result))),
-    )
-  | RecordingStarted(Ok(_path)) => (
-      {
-        ...model,
-        valenceShell: {
-          ...vs,
-          recording: RecordingActive(0.0),
-          loading: false,
-          error: None,
-        },
-      },
-      Tea_Cmd.none,
-    )
-  | RecordingStarted(Error(err)) => (
-      {...model, valenceShell: {...vs, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | RecordingStopped(Ok(_path)) => (
-      {
-        ...model,
-        valenceShell: {
-          ...vs,
-          recording: RecordingIdle,
-          loading: false,
-          error: None,
-        },
-      },
-      // Reload the recordings list after stopping
-      ValenceShellCmd.listRecordings(result => ValenceShell(RecordingsLoaded(result))),
-    )
-  | RecordingStopped(Error(err)) => (
-      {
-        ...model,
-        valenceShell: {
-          ...vs,
-          recording: RecordingIdle,
-          loading: false,
-          error: Some(err),
-        },
-      },
-      Tea_Cmd.none,
-    )
-  | LoadRecordings => (
-      {...model, valenceShell: {...vs, loading: true}},
-      ValenceShellCmd.listRecordings(result => ValenceShell(RecordingsLoaded(result))),
-    )
-  | RecordingsLoaded(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let items = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let id = obj->Dict.get("id")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let name = obj->Dict.get("name")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let path = obj->Dict.get("path")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let durationSecs =
-            obj->Dict.get("durationSecs")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let createdAt =
-            obj->Dict.get("createdAt")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let sizeBytes =
-            obj->Dict.get("sizeBytes")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          Some({
-            ValenceShellModel.id,
-            name,
-            path,
-            durationSecs,
-            createdAt,
-            sizeBytes: Float.toInt(sizeBytes),
-          })
-        })
-        Some(items)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(recs) => (
-          {...model, valenceShell: {...vs, recordings: recs, loading: false, error: None}},
-          Tea_Cmd.none,
-        )
-      | None => ({...model, valenceShell: {...vs, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | RecordingsLoaded(Error(err)) => (
-      {...model, valenceShell: {...vs, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | DeleteRecordingById(id) => (
-      model,
-      ValenceShellCmd.deleteRecording(id, result => ValenceShell(RecordingDeleted(result))),
-    )
-  | RecordingDeleted(Ok(_)) => (
-      model,
-      ValenceShellCmd.listRecordings(result => ValenceShell(RecordingsLoaded(result))),
-    )
-  | RecordingDeleted(Error(err)) => (
-      {...model, valenceShell: {...vs, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | ExportRecordingAs(id, format) => (
-      {...model, valenceShell: {...vs, loading: true}},
-      ValenceShellCmd.exportRecording(id, format, result => ValenceShell(
-        RecordingExported(result),
-      )),
-    )
-  | RecordingExported(Ok(_path)) => (
-      {...model, valenceShell: {...vs, loading: false, error: None}},
-      Tea_Cmd.none,
-    )
-  | RecordingExported(Error(err)) => (
-      {...model, valenceShell: {...vs, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | CreateCheckpointWithLabel(label) => (
-      {...model, valenceShell: {...vs, loading: true}},
-      ValenceShellCmd.createCheckpoint(label, result => ValenceShell(CheckpointCreated(result))),
-    )
-  | CheckpointCreated(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-        let id = obj->Dict.get("id")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-        let label = obj->Dict.get("label")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-        let createdAt =
-          obj->Dict.get("createdAt")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-        let opsSince =
-          obj->Dict.get("opsSinceCheckpoint")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-        Some({
-          ValenceShellModel.id,
-          label,
-          createdAt,
-          opsSinceCheckpoint: Float.toInt(opsSince),
-        })
-
-      | None => None
-      }
-      let newCheckpoints = switch parsed {
-      | Some(cp) => Array.concat(vs.checkpoints, [cp])
-      | None => vs.checkpoints
-      }
-      (
-        {...model, valenceShell: {...vs, checkpoints: newCheckpoints, loading: false, error: None}},
-        ValenceShellCmd.listCheckpoints(result => ValenceShell(CheckpointsLoaded(result))),
-      )
-    }
-  | CheckpointCreated(Error(err)) => (
-      {...model, valenceShell: {...vs, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | RestoreCheckpointById(id) => (
-      {...model, valenceShell: {...vs, loading: true}},
-      ValenceShellCmd.restoreCheckpoint(id, result => ValenceShell(CheckpointRestored(result))),
-    )
-  | CheckpointRestored(Ok(_)) => (
-      {...model, valenceShell: {...vs, loading: false, error: None}},
-      Tea_Cmd.none,
-    )
-  | CheckpointRestored(Error(err)) => (
-      {...model, valenceShell: {...vs, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | LoadCheckpoints => (
-      {...model, valenceShell: {...vs, loading: true}},
-      ValenceShellCmd.listCheckpoints(result => ValenceShell(CheckpointsLoaded(result))),
-    )
-  | CheckpointsLoaded(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let arr = json->JSON.Decode.array->Option.getOr([])
-        let items = arr->Array.filterMap(item => {
-          let obj = item->JSON.Decode.object->Option.getOr(Dict.make())
-          let id = obj->Dict.get("id")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let label = obj->Dict.get("label")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let createdAt =
-            obj->Dict.get("createdAt")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let opsSince =
-            obj
-            ->Dict.get("opsSinceCheckpoint")
-            ->Option.flatMap(JSON.Decode.float)
-            ->Option.getOr(0.0)
-          Some({
-            ValenceShellModel.id,
-            label,
-            createdAt,
-            opsSinceCheckpoint: Float.toInt(opsSince),
-          })
-        })
-        Some(items)
-
-      | None => None
-      }
-      switch parsed {
-      | Some(cps) => (
-          {...model, valenceShell: {...vs, checkpoints: cps, loading: false, error: None}},
-          Tea_Cmd.none,
-        )
-      | None => ({...model, valenceShell: {...vs, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | CheckpointsLoaded(Error(err)) => (
-      {...model, valenceShell: {...vs, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | ScreenshotTerminal => (
-      model,
-      ValenceShellCmd.screenshotTerminal(result => ValenceShell(ScreenshotCaptured(result))),
-    )
-  | ScreenshotCaptured(Ok(_path)) => (model, Tea_Cmd.none)
-  | ScreenshotCaptured(Error(err)) => (
-      {...model, valenceShell: {...vs, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | SetApprovalGate(gate) => ({...model, valenceShell: {...vs, approvalGate: gate}}, Tea_Cmd.none)
-  | ApproveCommand(idx) => {
-      let cmd = vs.pendingCommands->Array.get(idx)
-      switch cmd {
-      | Some(pending) => {
-          let remaining = Array.filterWithIndex(vs.pendingCommands, (_c, i) => i !== idx)
-          let newApproved = if vs.approvalGate === GateLearning {
-            Array.concat(vs.approvedCommands, [pending.command])
-          } else {
-            vs.approvedCommands
-          }
-          (
-            {
-              ...model,
-              valenceShell: {
-                ...vs,
-                pendingCommands: remaining,
-                approvedCommands: newApproved,
-                commandHistory: Array.concat(vs.commandHistory, [pending.command]),
-              },
-            },
-            ValenceShellCmd.sendInput(pending.command ++ "\n", result => ValenceShell(
-              PtyOutput(
-                switch result {
-                | Ok(s) => s
-                | Error(e) => e
-                },
-                switch result {
-                | Ok(_) => true
-                | Error(_) => false
-                },
-              ),
-            )),
-          )
-        }
-      | None => (model, Tea_Cmd.none)
-      }
-    }
-  | RejectCommand(idx) => {
-      let remaining = Array.filterWithIndex(vs.pendingCommands, (_c, i) => i !== idx)
-      ({...model, valenceShell: {...vs, pendingCommands: remaining}}, Tea_Cmd.none)
-    }
-  | ToggleSplitView => ({...model, valenceShell: {...vs, splitView: !vs.splitView}}, Tea_Cmd.none)
-  | DismissError => ({...model, valenceShell: {...vs, error: None}}, Tea_Cmd.none)
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "valenceshell", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateVeriSimDB.affine b/src/update/UpdateVeriSimDB.affine
new file mode 100644
index 00000000..97edd5b7
--- /dev/null
+++ b/src/update/UpdateVeriSimDB.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateVeriSimDB;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateVeriSimDB.res b/src/update/UpdateVeriSimDB.res
deleted file mode 100644
index 68a565bc..00000000
--- a/src/update/UpdateVeriSimDB.res
+++ /dev/null
@@ -1,516 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Extracted sub-updater for VeriSimDB (Database Backend).
-/// Manages the VeriSimDB connection state, VCL query lifecycle, entity browsing,
-/// drift detection status, normalisation, entity detail, telemetry, orchestration
-/// status, proof obligations, inference suggestions, and BoJ routing toggles.
-
-open Model
-open Msg
-
-// ===========================================================================
-// VeriSimDB Parsers
-// ===========================================================================
-
-/// Parse proof obligations from a VCL-total JSON response.
-/// VCL-total queries return a `proof_certificate` object with an array of proofs.
-/// Each proof has type, contract, verified status, and hash fields.
-/// Tea_Json decoder for a single proof obligation.
-let proofObligationDecoder: Tea_Json.decoder<proofObligation> = Tea_Json.map4(
-  (proofType, contractName, verifiedStr, proofHash) => {
-    let status = if verifiedStr == "true" {
-      "verified"
-    } else {
-      "pending"
-    }
-    {proofType, contractName, status, proofHash}
-  },
-  Decoders.stringField("type"),
-  Decoders.stringField("contract"),
-  Decoders.stringField("verified"),
-  Decoders.stringField("hash"),
-)
-
-let parseProofObligations = (json: string): array<proofObligation> =>
-  Decoders.decodeWithDefault(
-    Tea_Json.at(["proof_certificate", "proofs"], Decoders.lenientArray(proofObligationDecoder)),
-    [],
-    json,
-  )
-
-/// Parse drift scores from a drift status JSON response.
-/// Returns structured drift scores for all 8 octad modalities.
-/// Tea_Json decoder for drift scores across all 8 octad modalities.
-let driftScoresDecoder: Tea_Json.decoder<driftScores> = Decoders.map8(
-  (graph, vector, tensor, semantic, document, temporal, provenance, spatial) => {
-    graph,
-    vector,
-    tensor,
-    semantic,
-    document,
-    temporal,
-    provenance,
-    spatial,
-  },
-  Decoders.floatField("graph"),
-  Decoders.floatField("vector"),
-  Decoders.floatField("tensor"),
-  Decoders.floatField("semantic"),
-  Decoders.floatField("document"),
-  Decoders.floatField("temporal"),
-  Decoders.floatField("provenance"),
-  Decoders.floatField("spatial"),
-)
-
-let parseDriftScores = (json: string): option<driftScores> =>
-  Decoders.decodeOption(driftScoresDecoder, json)
-
-/// Parse a telemetry snapshot from the VeriSimDB reporter JSON response.
-/// Extracts aggregate-only product development metrics — no PII or query content.
-let parseTelemetrySnapshot = (json: string): option<telemetrySnapshot> => {
-  switch Decoders.decodeOption(Tea_Json.value, json) {
-  | Some(parsedValue) =>
-    let parsed = parsedValue
-    switch JSON.Classify.classify(parsed) {
-    | Object(obj) => {
-        // Helper to safely extract nested fields.
-        let getObj = (key: string): option<Dict.t<JSON.t>> =>
-          switch Dict.get(obj, key) {
-          | Some(v) =>
-            switch JSON.Classify.classify(v) {
-            | Object(o) => Some(o)
-            | _ => None
-            }
-          | None => None
-          }
-
-        let getFloat = (o: Dict.t<JSON.t>, key: string): float =>
-          switch Dict.get(o, key) {
-          | Some(v) =>
-            switch JSON.Classify.classify(v) {
-            | Number(n) => n
-            | _ => 0.0
-            }
-          | None => 0.0
-          }
-
-        let getInt = (o: Dict.t<JSON.t>, key: string): int =>
-          switch Dict.get(o, key) {
-          | Some(v) =>
-            switch JSON.Classify.classify(v) {
-            | Number(n) => Float.toInt(n)
-            | _ => 0
-            }
-          | None => 0
-          }
-
-        let getString = (o: Dict.t<JSON.t>, key: string): string =>
-          switch Dict.get(o, key) {
-          | Some(v) =>
-            switch JSON.Classify.classify(v) {
-            | String(s) => s
-            | _ => ""
-            }
-          | None => ""
-          }
-
-        // Parse modality heatmap (percentages)
-        let modalityHeatmap = switch getObj("modality_heatmap") {
-        | Some(heatmap) =>
-          switch Dict.get(heatmap, "percentages") {
-          | Some(v) =>
-            switch JSON.Classify.classify(v) {
-            | Object(pcts) => Dict.keysToArray(pcts)->Array.map(key => (key, getFloat(pcts, key)))
-            | _ => []
-            }
-          | None => []
-          }
-        | None => []
-        }
-
-        // Parse query patterns
-        let queryPatterns = switch getObj("query_patterns") {
-        | Some(patterns) =>
-          switch Dict.get(patterns, "by_type") {
-          | Some(v) =>
-            switch JSON.Classify.classify(v) {
-            | Object(types) => Dict.keysToArray(types)->Array.map(key => (key, getInt(types, key)))
-            | _ => []
-            }
-          | None => []
-          }
-        | None => []
-        }
-
-        // Parse proof type usage
-        let proofTypeUsage = switch getObj("proof_types") {
-        | Some(proofs) =>
-          switch Dict.get(proofs, "by_type") {
-          | Some(v) =>
-            switch JSON.Classify.classify(v) {
-            | Object(types) => Dict.keysToArray(types)->Array.map(key => (key, getInt(types, key)))
-            | _ => []
-            }
-          | None => []
-          }
-        | None => []
-        }
-
-        // Extract scalar metrics
-        let avgDuration = switch getObj("performance") {
-        | Some(perf) => getFloat(perf, "avg_duration_ms")
-        | None => 0.0
-        }
-
-        let driftCount = switch getObj("drift") {
-        | Some(drift) => getInt(drift, "drift_detected_count")
-        | None => 0
-        }
-
-        let successRate = switch getObj("drift") {
-        | Some(drift) => getFloat(drift, "normalise_success_rate")
-        | None => 0.0
-        }
-
-        let entityCount = switch getObj("entities") {
-        | Some(entities) => getInt(entities, "created")
-        | None => 0
-        }
-
-        let generatedAt = switch getObj("meta") {
-        | Some(meta) => getString(meta, "generated_at")
-        | None => ""
-        }
-
-        let privacyNotice = switch getObj("meta") {
-        | Some(meta) => getString(meta, "privacy_notice")
-        | None => "Aggregate metrics only. No query content or PII."
-        }
-
-        Some({
-          generatedAt,
-          modalityHeatmap,
-          queryPatterns,
-          avgQueryDurationMs: avgDuration,
-          driftDetectedCount: driftCount,
-          normaliseSuccessRate: successRate,
-          proofTypeUsage,
-          entityCount,
-          privacyNotice,
-        })
-      }
-    | _ => None
-    }
-  | None => None
-  }
-}
-
-// ===========================================================================
-// VeriSimDB Sub-Updater
-// ===========================================================================
-
-/// STATE TRANSITION: VeriSimDB (Database Backend)
-/// Manages the VeriSimDB connection state, VCL query lifecycle, entity browsing,
-/// drift detection status, normalisation, and entity detail. Each message either
-/// triggers a Gossamer command (side effect) or updates model state from a command
-/// result.
-let updateVeriSimDB = (model: model, msg: verisimdbMsg): (model, Tea_Cmd.t<msg>) => {
-  let db = model.verisim
-  switch msg {
-  | CheckHealth => {
-      let cmd = if db.bojRouting {
-        BojCmd.invokeCartridgeWithLatency(
-          "database-mcp",
-          "health",
-          "",
-          result => VeriSimDB(HealthResult(result)),
-          (c, t, e) => RecordBojLatency(c, t, e),
-        )
-      } else {
-        GossamerCmd.checkVeriSimDBHealth(result => VeriSimDB(HealthResult(result)))
-      }
-      (model, cmd)
-    }
-  | HealthResult(result) =>
-    switch result {
-    | Ok(_json) => ({...model, verisim: {...db, connected: true, queryError: None}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, verisim: {...db, connected: false, queryError: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | SubmitQuery(query) => {
-      // #4: Optionally validate VCL through Anti-Crash before execution.
-      let antiCrashCmd = if db.antiCrashValidation {
-        let tokenId = "t-" ++ Int.toString(model.paneN.nextTokenId)
-        let token: neuralToken = {
-          id: tokenId,
-          content: query,
-          timestamp: 0.0,
-          confidence: 0.5,
-          validated: false,
-          source: VeriSimInference,
-          category: Observation,
-          emittedDuring: model.paneN.agency.phase,
-          causedBy: model.paneN.activeCausalChain,
-          proofHash: None,
-        }
-        Tea_Cmd.msg(AntiCrash(ValidateToken(token)))
-      } else {
-        Tea_Cmd.none
-      }
-      // #5: Track VCL query count for Vexometer cognitive load.
-      let newDb = {
-        ...db,
-        lastQuery: query,
-        queryResult: None,
-        queryError: None,
-        proofObligations: [],
-        lastTypeCheck: None,
-        inferenceStream: [],
-        queryCount: db.queryCount + 1,
-      }
-      // Route through BoJ database-mcp cartridge when bojRouting is enabled.
-      let queryCmd = if db.bojRouting {
-        BojCmd.invokeCartridgeWithLatency(
-          "database-mcp",
-          "query",
-          query,
-          result => VeriSimDB(QueryResult(result)),
-          (c, t, e) => RecordBojLatency(c, t, e),
-        )
-      } else {
-        GossamerCmd.queryVeriSimDB(query, result => VeriSimDB(QueryResult(result)))
-      }
-      (
-        {...model, verisim: newDb},
-        Tea_Cmd.batch(list{
-          queryCmd,
-          TypeLLService.checkVclTypes(query, result => VeriSimDB(VclTypeCheckResult(result))),
-          antiCrashCmd,
-          Tea_Cmd.msg(Vexometer(RecordVclQuery)),
-        }),
-      )
-    }
-  | UpdateQueryInput(text) => ({...model, verisim: {...db, lastQuery: text}}, Tea_Cmd.none)
-  | QueryResult(result) =>
-    switch result {
-    | Ok(json) =>
-      // Parse proof obligations from VCL-total responses
-      let proofs = parseProofObligations(json)
-      (
-        {
-          ...model,
-          verisim: {...db, queryResult: Some(json), queryError: None, proofObligations: proofs},
-        },
-        Tea_Cmd.none,
-      )
-    | Error(err) => (
-        {...model, verisim: {...db, queryResult: None, queryError: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | ListEntities => {
-      let cmd = if db.bojRouting {
-        BojCmd.invokeCartridgeWithLatency(
-          "database-mcp",
-          "list_entities",
-          "{\"limit\":50,\"offset\":0}",
-          result => VeriSimDB(EntitiesLoaded(result)),
-          (c, t, e) => RecordBojLatency(c, t, e),
-        )
-      } else {
-        GossamerCmd.listOctads(50, 0, result => VeriSimDB(EntitiesLoaded(result)))
-      }
-      (model, cmd)
-    }
-  | EntitiesLoaded(result) =>
-    switch result {
-    | Ok(_json) => ({...model, verisim: {...db, queryError: None}}, Tea_Cmd.none)
-    | Error(err) => ({...model, verisim: {...db, queryError: Some(err)}}, Tea_Cmd.none)
-    }
-  | SelectEntity(entityId) => {
-      let (driftCmd, detailCmd) = if db.bojRouting {
-        (
-          BojCmd.invokeCartridgeWithLatency(
-            "database-mcp",
-            "drift",
-            entityId,
-            result => VeriSimDB(DriftLoaded(result)),
-            (c, t, e) => RecordBojLatency(c, t, e),
-          ),
-          BojCmd.invokeCartridgeWithLatency(
-            "database-mcp",
-            "entity_detail",
-            entityId,
-            result => VeriSimDB(EntityDetailLoaded(result)),
-            (c, t, e) => RecordBojLatency(c, t, e),
-          ),
-        )
-      } else {
-        (
-          GossamerCmd.getDrift(entityId, result => VeriSimDB(DriftLoaded(result))),
-          GossamerCmd.getEntityDetail(entityId, result => VeriSimDB(EntityDetailLoaded(result))),
-        )
-      }
-      (
-        {...model, verisim: {...db, selectedEntity: Some(entityId), entityDetail: None}},
-        Tea_Cmd.batch(list{driftCmd, detailCmd}),
-      )
-    }
-  | DriftLoaded(result) =>
-    switch result {
-    | Ok(json) =>
-      let scores = parseDriftScores(json)
-      (
-        {
-          ...model,
-          verisim: {...db, driftStatus: Some(json), driftScores: scores, queryError: None},
-        },
-        Tea_Cmd.none,
-      )
-    | Error(err) => (
-        {...model, verisim: {...db, driftStatus: None, driftScores: None, queryError: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | ToggleDbMenu => (
-      {...model, verisim: {...db, dbMenuExpanded: !db.dbMenuExpanded}},
-      Tea_Cmd.none,
-    )
-  | ClearQueryResult => (
-      {
-        ...model,
-        verisim: {
-          ...db,
-          queryResult: None,
-          queryError: None,
-          proofObligations: [],
-          lastTypeCheck: None,
-        },
-      },
-      Tea_Cmd.none,
-    )
-  | TriggerNormalise(entityId) => (
-      {...model, verisim: {...db, normalisingEntity: Some(entityId)}},
-      GossamerCmd.triggerNormalise(entityId, result => VeriSimDB(NormaliseResult(result))),
-    )
-  | NormaliseResult(result) =>
-    switch result {
-    | Ok(_json) => (
-        {...model, verisim: {...db, normalisingEntity: None, queryError: None}},
-        // Refresh drift status after normalisation
-        switch db.selectedEntity {
-        | Some(entityId) => GossamerCmd.getDrift(entityId, result => VeriSimDB(DriftLoaded(result)))
-        | None => Tea_Cmd.none
-        },
-      )
-    | Error(err) => (
-        {...model, verisim: {...db, normalisingEntity: None, queryError: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | LoadEntityDetail(entityId) => (
-      model,
-      GossamerCmd.getEntityDetail(entityId, result => VeriSimDB(EntityDetailLoaded(result))),
-    )
-  | EntityDetailLoaded(result) =>
-    switch result {
-    | Ok(json) => (
-        {...model, verisim: {...db, entityDetail: Some(json), queryError: None}},
-        Tea_Cmd.none,
-      )
-    | Error(err) => (
-        {...model, verisim: {...db, entityDetail: None, queryError: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | FetchTelemetry => {
-      let cmd = if db.bojRouting {
-        BojCmd.invokeCartridgeWithLatency(
-          "database-mcp",
-          "telemetry",
-          "",
-          result => VeriSimDB(TelemetryLoaded(result)),
-          (c, t, e) => RecordBojLatency(c, t, e),
-        )
-      } else {
-        GossamerCmd.getTelemetry(result => VeriSimDB(TelemetryLoaded(result)))
-      }
-      (model, cmd)
-    }
-  | TelemetryLoaded(result) =>
-    switch result {
-    | Ok(json) =>
-      let snapshot = parseTelemetrySnapshot(json)
-      ({...model, verisim: {...db, telemetry: snapshot, queryError: None}}, Tea_Cmd.none)
-    | Error(err) => (
-        {...model, verisim: {...db, telemetry: None, queryError: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | ToggleTelemetryPanel => (
-      {...model, verisim: {...db, telemetryVisible: !db.telemetryVisible}},
-      Tea_Cmd.none,
-    )
-  | FetchOrchStatus => {
-      let cmd = if db.bojRouting {
-        BojCmd.invokeCartridgeWithLatency(
-          "database-mcp",
-          "orch_status",
-          "",
-          result => VeriSimDB(OrchStatusLoaded(result)),
-          (c, t, e) => RecordBojLatency(c, t, e),
-        )
-      } else {
-        GossamerCmd.getOrchStatus(result => VeriSimDB(OrchStatusLoaded(result)))
-      }
-      (model, cmd)
-    }
-  | OrchStatusLoaded(result) =>
-    switch result {
-    | Ok(json) => (
-        {...model, verisim: {...db, orchStatus: Some(json), queryError: None}},
-        Tea_Cmd.none,
-      )
-    | Error(err) => (
-        {...model, verisim: {...db, orchStatus: None, queryError: Some(err)}},
-        Tea_Cmd.none,
-      )
-    }
-  | VclTypeCheckResult(Ok(json)) => {
-      let newTypell = {...model.typell, queriesServed: model.typell.queriesServed + 1}
-      ({...model, verisim: {...db, lastTypeCheck: Some(json)}, typell: newTypell}, Tea_Cmd.none)
-    }
-  | VclTypeCheckResult(Error(_)) => {
-      UpdateHelpers.logDegradedService(
-        "TypeLL",
-        "VCL type check failed — VCL workflow continues unblocked",
-      )
-      (model, Tea_Cmd.none)
-    }
-  // #2: Toggle proof obligation display in Panel-L.
-  | ToggleProofDisplay => (
-      {...model, verisim: {...db, proofDisplayActive: !db.proofDisplayActive}},
-      Tea_Cmd.none,
-    )
-  // #3: Neural advisor inference suggestion for VCL.
-  | InferenceSuggestion(suggestion) => (
-      {
-        ...model,
-        verisim: {...db, inferenceStream: Array.concat(db.inferenceStream, [suggestion])},
-      },
-      Tea_Cmd.none,
-    )
-  | ClearInferenceSuggestions => ({...model, verisim: {...db, inferenceStream: []}}, Tea_Cmd.none)
-  // #4: Toggle Anti-Crash validation of VCL queries.
-  | ToggleAntiCrashValidation => (
-      {...model, verisim: {...db, antiCrashValidation: !db.antiCrashValidation}},
-      Tea_Cmd.none,
-    )
-  | ToggleVeriSimBojRouting => (
-      {...model, verisim: {...db, bojRouting: !db.bojRouting}},
-      Tea_Cmd.none,
-    )
-  }
-}
diff --git a/src/update/UpdateVerificationDashboard.affine b/src/update/UpdateVerificationDashboard.affine
new file mode 100644
index 00000000..220820f0
--- /dev/null
+++ b/src/update/UpdateVerificationDashboard.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateVerificationDashboard;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateVerificationDashboard.res b/src/update/UpdateVerificationDashboard.res
deleted file mode 100644
index 1f715c44..00000000
--- a/src/update/UpdateVerificationDashboard.res
+++ /dev/null
@@ -1,41 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// VerificationDashboard — proof/test/benchmark status sub-updater.
-
-open Model
-open Msg
-
-let updateVerificationDashboard = (model: model, subMsg: verificationDashboardMsg): (model, Tea_Cmd.t<msg>) => {
-  switch subMsg {
-  | SetVdCategory(cat) => (
-      {...model, verificationDashboard: {...model.verificationDashboard, activeCategory: cat}},
-      Tea_Cmd.none,
-    )
-  | SelectVdLanguage(name) => (
-      {...model, verificationDashboard: {...model.verificationDashboard, selectedLanguage: name}},
-      Tea_Cmd.none,
-    )
-  | SetVdFilter(txt) => (
-      {...model, verificationDashboard: {...model.verificationDashboard, filterText: txt}},
-      Tea_Cmd.none,
-    )
-  | SetVdSort(sortBy) => (
-      {...model, verificationDashboard: {...model.verificationDashboard, sortBy}},
-      Tea_Cmd.none,
-    )
-  | ToggleDebtOnly => (
-      {
-        ...model,
-        verificationDashboard: {
-          ...model.verificationDashboard,
-          showDebtOnly: !model.verificationDashboard.showDebtOnly,
-        },
-      },
-      Tea_Cmd.none,
-    )
-  | DismissVdError => (
-      {...model, verificationDashboard: {...model.verificationDashboard, error: None}},
-      Tea_Cmd.none,
-    )
-  }
-}
diff --git a/src/update/UpdateVideoCoordination.affine b/src/update/UpdateVideoCoordination.affine
new file mode 100644
index 00000000..ab786c8d
--- /dev/null
+++ b/src/update/UpdateVideoCoordination.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateVideoCoordination;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateVideoCoordination.res b/src/update/UpdateVideoCoordination.res
deleted file mode 100644
index c9ee88f3..00000000
--- a/src/update/UpdateVideoCoordination.res
+++ /dev/null
@@ -1,32 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Extracted sub-updater for VideoCoordination panel.
-/// Manages batch transfer lifecycle, status polling, and error handling.
-
-open Model
-open Msg
-
-let updateVideoCoordination = (model: model, subMsg: videoCoordinationMsg): (model, Tea_Cmd.t<msg>) => {
-  let vc = model.videoCoordination
-  switch subMsg {
-  | StartTransfer(source, destination) =>
-    let newState = VideoCoordinationEngine.addBatch(vc, source, destination, 0)
-    ({...model, videoCoordination: {...newState, loading: true}}, Tea_Cmd.none)
-  | PauseTransfer(_batchId) => (model, Tea_Cmd.none)
-  | RefreshStatus => ({...model, videoCoordination: {...vc, loading: true}}, Tea_Cmd.none)
-  | StatusResult(Ok(_json)) => ({...model, videoCoordination: {...vc, loading: false}}, Tea_Cmd.none)
-  | StatusResult(Error(err)) => (
-      {...model, videoCoordination: {...vc, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | TransferResult(Ok(_json)) => (
-      {...model, videoCoordination: {...vc, loading: false}},
-      Tea_Cmd.none,
-    )
-  | TransferResult(Error(err)) => (
-      {...model, videoCoordination: {...vc, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | ClearError => ({...model, videoCoordination: {...vc, error: None}}, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateVmInspector.affine b/src/update/UpdateVmInspector.affine
new file mode 100644
index 00000000..8922b93a
--- /dev/null
+++ b/src/update/UpdateVmInspector.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateVmInspector;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateVmInspector.res b/src/update/UpdateVmInspector.res
deleted file mode 100644
index 36e64faa..00000000
--- a/src/update/UpdateVmInspector.res
+++ /dev/null
@@ -1,413 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Extracted sub-updater for the VM Inspector panel.
-/// Manages the reversible VM visual debugger — step forward/backward,
-/// breakpoints, timeline navigation, and state export.
-
-open Model
-open Msg
-
-let updateVmInspector = (model: model, msg: vmInspectorMsg): (model, Tea_Cmd.t<msg>) => {
-  let vm = model.vmInspector
-  switch msg {
-  | SetInspectorCategory(cat) => (
-      {...model, vmInspector: {...vm, activeCategory: cat}},
-      Tea_Cmd.none,
-    )
-  | ReadVmState => {
-      let vmCmd = switch vm.connection {
-      | VmFileConnection(path) =>
-        VmInspectorCmd.readVmStateFromFile(path, result => VmInspector(VmStateReceived(result)))
-      | VmLiveConnection | VmDisconnected =>
-        VmInspectorCmd.readVmState(result => VmInspector(VmStateReceived(result)))
-      }
-      (
-        {...model, vmInspector: {...vm, loading: true}},
-        Tea_Cmd.batch(list{
-          vmCmd,
-          TypeLLService.checkGameDataTypes("vm-state", "vm-inspector", result => VmInspector(
-            TypeCheckResult(result),
-          )),
-        }),
-      )
-    }
-  | VmStateReceived(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-        let pc = obj->Dict.get("pc")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-        let stackArr = obj->Dict.get("stack")->Option.flatMap(JSON.Decode.array)->Option.getOr([])
-        let stack = stackArr->Array.filterMap(v => v->JSON.Decode.float->Option.map(Float.toInt))
-        let memArr = obj->Dict.get("memory")->Option.flatMap(JSON.Decode.array)->Option.getOr([])
-        let memory = memArr->Array.filterMap(m => {
-          let mObj = m->JSON.Decode.object->Option.getOr(Dict.make())
-          let address =
-            mObj->Dict.get("address")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let value = mObj->Dict.get("value")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let recentRead =
-            mObj->Dict.get("recentRead")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-          let recentWrite =
-            mObj->Dict.get("recentWrite")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-          Some({
-            VmInspectorModel.address: Float.toInt(address),
-            value: Float.toInt(value),
-            recentRead,
-            recentWrite,
-          })
-        })
-        let instrArr =
-          obj->Dict.get("instructions")->Option.flatMap(JSON.Decode.array)->Option.getOr([])
-        let instructions = instrArr->Array.filterMap(i => {
-          let iObj = i->JSON.Decode.object->Option.getOr(Dict.make())
-          let index = iObj->Dict.get("index")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let mnemonic =
-            iObj->Dict.get("mnemonic")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-          let tierStr =
-            iObj->Dict.get("tier")->Option.flatMap(JSON.Decode.string)->Option.getOr("arithmetic")
-          let tier = switch tierStr {
-          | "conditionals" => VmInspectorModel.TierConditionals
-          | "stack_memory" => TierStackMemory
-          | "subroutines" => TierSubroutines
-          | "io" => TierIO
-          | _ => TierArithmetic
-          }
-          let hasBreakpoint =
-            iObj->Dict.get("hasBreakpoint")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-          let executionCount =
-            iObj->Dict.get("executionCount")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          Some({
-            VmInspectorModel.index: Float.toInt(index),
-            mnemonic,
-            tier,
-            hasBreakpoint,
-            executionCount: Float.toInt(executionCount),
-          })
-        })
-        let running =
-          obj->Dict.get("running")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-        let totalSteps =
-          obj->Dict.get("totalSteps")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-        let tierCountsArr =
-          obj->Dict.get("tierCounts")->Option.flatMap(JSON.Decode.array)->Option.getOr([])
-        let tierCounts =
-          tierCountsArr->Array.filterMap(v => v->JSON.Decode.float->Option.map(Float.toInt))
-        Some((
-          Float.toInt(pc),
-          stack,
-          memory,
-          instructions,
-          running,
-          Float.toInt(totalSteps),
-          tierCounts,
-        ))
-
-      | None => None
-      }
-      switch parsed {
-      | Some((pc, stack, memory, instructions, running, totalSteps, tierCounts)) => (
-          {
-            ...model,
-            vmInspector: {
-              ...vm,
-              pc,
-              stack,
-              memory,
-              instructions,
-              running,
-              totalSteps,
-              tierCounts,
-              loading: false,
-              error: None,
-            },
-          },
-          Tea_Cmd.none,
-        )
-      | None => ({...model, vmInspector: {...vm, loading: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | VmStateReceived(Error(err)) => (
-      {...model, vmInspector: {...vm, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | StepForward => {
-      let cmd = if vm.bojRouting {
-        BojCmd.invokeCartridgeWithLatency(
-          "dap-mcp",
-          "step_forward",
-          "",
-          result => VmInspector(StepResult(result)),
-          (c, t, e) => RecordBojLatency(c, t, e),
-        )
-      } else {
-        VmInspectorCmd.stepForward(result => VmInspector(StepResult(result)))
-      }
-      ({...model, vmInspector: {...vm, loading: true}}, cmd)
-    }
-  | StepBackward => {
-      let cmd = if vm.bojRouting {
-        BojCmd.invokeCartridgeWithLatency(
-          "dap-mcp",
-          "step_backward",
-          "",
-          result => VmInspector(StepResult(result)),
-          (c, t, e) => RecordBojLatency(c, t, e),
-        )
-      } else {
-        VmInspectorCmd.stepBackward(result => VmInspector(StepResult(result)))
-      }
-      ({...model, vmInspector: {...vm, loading: true}}, cmd)
-    }
-  | StepResult(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-        let pc = obj->Dict.get("pc")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-        let stackArr = obj->Dict.get("stack")->Option.flatMap(JSON.Decode.array)->Option.getOr([])
-        let stack = stackArr->Array.filterMap(v => v->JSON.Decode.float->Option.map(Float.toInt))
-        let memArr = obj->Dict.get("memory")->Option.flatMap(JSON.Decode.array)->Option.getOr([])
-        let memory = memArr->Array.filterMap(m => {
-          let mObj = m->JSON.Decode.object->Option.getOr(Dict.make())
-          let address =
-            mObj->Dict.get("address")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let value = mObj->Dict.get("value")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let recentRead =
-            mObj->Dict.get("recentRead")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-          let recentWrite =
-            mObj->Dict.get("recentWrite")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-          Some({
-            VmInspectorModel.address: Float.toInt(address),
-            value: Float.toInt(value),
-            recentRead,
-            recentWrite,
-          })
-        })
-        let instrMnemonic =
-          obj->Dict.get("instructionMnemonic")->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-        let running =
-          obj->Dict.get("running")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-        let totalSteps =
-          obj->Dict.get("totalSteps")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-        let tierCountsArr =
-          obj->Dict.get("tierCounts")->Option.flatMap(JSON.Decode.array)->Option.getOr([])
-        let tierCounts =
-          tierCountsArr->Array.filterMap(v => v->JSON.Decode.float->Option.map(Float.toInt))
-        Some((
-          Float.toInt(pc),
-          stack,
-          memory,
-          instrMnemonic,
-          running,
-          Float.toInt(totalSteps),
-          tierCounts,
-        ))
-
-      | None => None
-      }
-      switch parsed {
-      | Some((pc, stack, memory, instrMnemonic, running, totalSteps, tierCounts)) => {
-          let newStep = totalSteps
-          let snapshot: VmInspectorModel.vmSnapshot = {
-            step: newStep,
-            pc,
-            stack,
-            memory,
-            instructionMnemonic: instrMnemonic,
-          }
-          let history = Array.concat(vm.history, [snapshot])
-          let trimmed = if Array.length(history) > 10000 {
-            Array.sliceToEnd(history, ~start=Array.length(history) - 10000)
-          } else {
-            history
-          }
-          (
-            {
-              ...model,
-              vmInspector: {
-                ...vm,
-                pc,
-                stack,
-                memory,
-                running,
-                totalSteps: newStep,
-                tierCounts,
-                history: trimmed,
-                timelinePosition: Array.length(trimmed) - 1,
-                loading: false,
-                error: None,
-              },
-            },
-            Tea_Cmd.none,
-          )
-        }
-      | None => {
-          let newStep = vm.totalSteps + 1
-          (
-            {...model, vmInspector: {...vm, loading: false, totalSteps: newStep, error: None}},
-            Tea_Cmd.none,
-          )
-        }
-      }
-    }
-  | StepResult(Error(err)) => (
-      {...model, vmInspector: {...vm, loading: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | RunVm => {
-      let cmd = if vm.bojRouting {
-        BojCmd.invokeCartridgeWithLatency(
-          "dap-mcp",
-          "run",
-          "",
-          result => VmInspector(RunResult(result)),
-          (c, t, e) => RecordBojLatency(c, t, e),
-        )
-      } else {
-        VmInspectorCmd.runToBreakpoint(result => VmInspector(RunResult(result)))
-      }
-      ({...model, vmInspector: {...vm, running: true}}, cmd)
-    }
-  | PauseVm => ({...model, vmInspector: {...vm, running: false}}, Tea_Cmd.none)
-  | RunResult(Ok(jsonStr)) => {
-      let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-        let pc = obj->Dict.get("pc")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-        let stackArr = obj->Dict.get("stack")->Option.flatMap(JSON.Decode.array)->Option.getOr([])
-        let stack = stackArr->Array.filterMap(v => v->JSON.Decode.float->Option.map(Float.toInt))
-        let memArr = obj->Dict.get("memory")->Option.flatMap(JSON.Decode.array)->Option.getOr([])
-        let memory = memArr->Array.filterMap(m => {
-          let mObj = m->JSON.Decode.object->Option.getOr(Dict.make())
-          let address =
-            mObj->Dict.get("address")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let value = mObj->Dict.get("value")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          let recentRead =
-            mObj->Dict.get("recentRead")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-          let recentWrite =
-            mObj->Dict.get("recentWrite")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-          Some({
-            VmInspectorModel.address: Float.toInt(address),
-            value: Float.toInt(value),
-            recentRead,
-            recentWrite,
-          })
-        })
-        let totalSteps =
-          obj->Dict.get("totalSteps")->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-        let tierCountsArr =
-          obj->Dict.get("tierCounts")->Option.flatMap(JSON.Decode.array)->Option.getOr([])
-        let tierCounts =
-          tierCountsArr->Array.filterMap(v => v->JSON.Decode.float->Option.map(Float.toInt))
-        Some((Float.toInt(pc), stack, memory, Float.toInt(totalSteps), tierCounts))
-
-      | None => None
-      }
-      switch parsed {
-      | Some((pc, stack, memory, totalSteps, tierCounts)) => (
-          {
-            ...model,
-            vmInspector: {
-              ...vm,
-              pc,
-              stack,
-              memory,
-              totalSteps,
-              tierCounts,
-              running: false,
-              error: None,
-            },
-          },
-          Tea_Cmd.none,
-        )
-      | None => ({...model, vmInspector: {...vm, running: false, error: None}}, Tea_Cmd.none)
-      }
-    }
-  | RunResult(Error(err)) => (
-      {...model, vmInspector: {...vm, running: false, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | ResetVm => (
-      {
-        ...model,
-        vmInspector: {
-          ...vm,
-          pc: 0,
-          stack: [],
-          history: [],
-          timelinePosition: 0,
-          totalSteps: 0,
-          running: false,
-          portLog: [],
-          tierCounts: [0, 0, 0, 0, 0],
-        },
-      },
-      Tea_Cmd.none,
-    )
-  | ToggleBreakpoint(idx) => {
-      let hasIt = Array.some(vm.breakpoints, bp =>
-        switch bp {
-        | BreakAtInstruction(i) => i === idx
-        | _ => false
-        }
-      )
-      let newBps = if hasIt {
-        Array.filter(vm.breakpoints, bp =>
-          switch bp {
-          | BreakAtInstruction(i) => i !== idx
-          | _ => true
-          }
-        )
-      } else {
-        Array.concat(vm.breakpoints, [BreakAtInstruction(idx)])
-      }
-      let newInstructions = Array.map(vm.instructions, instr =>
-        if instr.index === idx {
-          {...instr, hasBreakpoint: !instr.hasBreakpoint}
-        } else {
-          instr
-        }
-      )
-      (
-        {...model, vmInspector: {...vm, breakpoints: newBps, instructions: newInstructions}},
-        Tea_Cmd.none,
-      )
-    }
-  | SeekTimeline(pos) => {
-      let maxPos = Array.length(vm.history) - 1
-      let clamped = if pos < 0 {
-        0
-      } else if pos > maxPos {
-        maxPos
-      } else {
-        pos
-      }
-      ({...model, vmInspector: {...vm, timelinePosition: clamped}}, Tea_Cmd.none)
-    }
-  | ExportSnapshot => (
-      model,
-      VmInspectorCmd.exportSnapshot(result => VmInspector(SnapshotExported(result))),
-    )
-  | SnapshotExported(Ok(_)) => (model, Tea_Cmd.none)
-  | SnapshotExported(Error(err)) => (
-      {...model, vmInspector: {...vm, error: Some(err)}},
-      Tea_Cmd.none,
-    )
-  | ToggleMultiVm => ({...model, vmInspector: {...vm, multiVmView: !vm.multiVmView}}, Tea_Cmd.none)
-  | DismissVmError => ({...model, vmInspector: {...vm, error: None}}, Tea_Cmd.none)
-  | ToggleVmBojRouting => (
-      {...model, vmInspector: {...vm, bojRouting: !vm.bojRouting}},
-      Tea_Cmd.none,
-    )
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "vminspector", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateVoiceTag.affine b/src/update/UpdateVoiceTag.affine
new file mode 100644
index 00000000..25b13794
--- /dev/null
+++ b/src/update/UpdateVoiceTag.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateVoiceTag;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateVoiceTag.res b/src/update/UpdateVoiceTag.res
deleted file mode 100644
index 8b390d09..00000000
--- a/src/update/UpdateVoiceTag.res
+++ /dev/null
@@ -1,330 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Sub-updater for VoiceTag panel — file tag loading, voice commands,
-/// tag CRUD, project scanning, and TypeLL integration.
-
-open Model
-open Msg
-
-let updateVoiceTag = (model: model, msg: voiceTagMsg): (model, Tea_Cmd.t<msg>) => {
-  let vt = model.voiceTag
-  switch msg {
-  | LoadFileTags =>
-    switch vt.currentFile {
-    | Some(filePath) => (
-        {...model, voiceTag: {...vt, error: None}},
-        Tea_Cmd.batch(list{
-          VoiceTagCmd.loadTags(filePath, result => VoiceTag(TagsLoaded(result))),
-          TypeLLService.checkMetadataTypes(filePath, "voicetag", result => VoiceTag(
-            TypeCheckResult(result),
-          )),
-        }),
-      )
-    | None => ({...model, voiceTag: {...vt, error: Some("No file selected")}}, Tea_Cmd.none)
-    }
-  | TagsLoaded(result) =>
-    switch result {
-    | Ok(jsonStr) => // Parse the .mri.json content. For now, extract tags array from JSON.
-      // Full parsing deferred to when we have proper JSON codec — store raw.
-      switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(parsed) =>
-        switch JSON.Classify.classify(parsed) {
-        | JSON.Classify.Object(dict) => {
-            let tags = switch dict->Dict.get("tags") {
-            | Some(tagsJson) =>
-              switch JSON.Classify.classify(tagsJson) {
-              | JSON.Classify.Array(arr) =>
-                arr->Array.mapWithIndex((json, idx) => {
-                  // Minimal tag parsing — extract what we can from each JSON object
-                  switch JSON.Classify.classify(json) {
-                  | JSON.Classify.Object(tagDict) => {
-                      let getStr = (key: string): string =>
-                        switch tagDict->Dict.get(key) {
-                        | Some(v) =>
-                          switch JSON.Classify.classify(v) {
-                          | JSON.Classify.String(s) => s
-                          | _ => ""
-                          }
-                        | None => ""
-                        }
-                      let getInt = (key: string): int =>
-                        switch tagDict->Dict.get(key) {
-                        | Some(v) =>
-                          switch JSON.Classify.classify(v) {
-                          | JSON.Classify.Number(n) => Float.toInt(n)
-                          | _ => 0
-                          }
-                        | None => 0
-                        }
-                      let getBool = (key: string): bool =>
-                        switch tagDict->Dict.get(key) {
-                        | Some(v) =>
-                          switch JSON.Classify.classify(v) {
-                          | JSON.Classify.Bool(b) => b
-                          | _ => false
-                          }
-                        | None => false
-                        }
-                      let getOptStr = (key: string): option<string> =>
-                        switch tagDict->Dict.get(key) {
-                        | Some(v) =>
-                          switch JSON.Classify.classify(v) {
-                          | JSON.Classify.String(s) => Some(s)
-                          | JSON.Classify.Null => None
-                          | _ => None
-                          }
-                        | None => None
-                        }
-                      let tag: mriTag = {
-                        id: getInt("id") > 0 ? getInt("id") : idx + 1,
-                        startLine: getInt("startLine"),
-                        endLine: getInt("endLine"),
-                        tagType: VoiceTagEngine.tagTypeFromString(getStr("tagType")),
-                        message: getOptStr("message"),
-                        attribution: {
-                          agent: getStr("agent") === "" ? "human" : getStr("agent"),
-                          method: VoiceTagEngine.methodFromString(getStr("method")),
-                          timestamp: switch tagDict->Dict.get("timestamp") {
-                          | Some(v) =>
-                            switch JSON.Classify.classify(v) {
-                            | JSON.Classify.Number(n) => n
-                            | _ => 0.0
-                            }
-                          | None => 0.0
-                          },
-                          sessionId: None,
-                        },
-                        codeAuthor: None,
-                        resolved: getBool("resolved"),
-                        resolvedBy: None,
-                      }
-                      tag
-                    }
-                  | _ => {
-                      let fallback: mriTag = {
-                        id: idx + 1,
-                        startLine: 0,
-                        endLine: 0,
-                        tagType: Note,
-                        message: Some("(malformed tag)"),
-                        attribution: {
-                          agent: "unknown",
-                          method: Import("parse-error"),
-                          timestamp: 0.0,
-                          sessionId: None,
-                        },
-                        codeAuthor: None,
-                        resolved: false,
-                        resolvedBy: None,
-                      }
-                      fallback
-                    }
-                  }
-                })
-              | _ => []
-              }
-            | None => []
-            }
-            let summary = VoiceTagEngine.computeSummary(tags)
-            (
-              {
-                ...model,
-                voiceTag: {
-                  ...vt,
-                  tags,
-                  summary,
-                  error: None,
-                },
-              },
-              Tea_Cmd.none,
-            )
-          }
-        | _ => ({...model, voiceTag: {...vt, tags: [], error: None}}, Tea_Cmd.none)
-        }
-
-      | None => (
-          {...model, voiceTag: {...vt, error: Some("Failed to parse .mri.json")}},
-          Tea_Cmd.none,
-        )
-      }
-    | Error(e) => ({...model, voiceTag: {...vt, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | TagsSaved(result) =>
-    switch result {
-    | Ok(_) => ({...model, voiceTag: {...vt, error: None}}, Tea_Cmd.none)
-    | Error(e) => ({...model, voiceTag: {...vt, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | SidecarDeleted(result) =>
-    switch result {
-    | Ok(_) => ({...model, voiceTag: {...vt, error: None}}, Tea_Cmd.none)
-    | Error(e) => ({...model, voiceTag: {...vt, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | ProjectScanned(result) =>
-    switch result {
-    | Ok(jsonStr) => {
-        let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-        | Some(json) =>
-          let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-          let getInt = key =>
-            obj->Dict.get(key)->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)->Float.toInt
-          Some({
-            VoiceTagModel.totalTags: getInt("totalTags"),
-            unresolvedTags: getInt("unresolvedTags"),
-            todoCount: getInt("todoCount"),
-            fixmeCount: getInt("fixmeCount"),
-            careOnRegions: getInt("careOnRegions"),
-            ecoModeRegions: getInt("ecoModeRegions"),
-            burdenRegions: getInt("burdenRegions"),
-            aiTagCount: getInt("aiTagCount"),
-            humanTagCount: getInt("humanTagCount"),
-          })
-
-        | None => None
-        }
-        switch parsed {
-        | Some(summary) => ({...model, voiceTag: {...vt, summary}}, Tea_Cmd.none)
-        | None => (model, Tea_Cmd.none)
-        }
-      }
-    | Error(e) => ({...model, voiceTag: {...vt, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | SelectTag(id) => ({...model, voiceTag: {...vt, selectedTagId: id}}, Tea_Cmd.none)
-  | DeleteTagById(id) => {
-      let newTags = VoiceTagEngine.removeTag(vt.tags, id)
-      let newSummary = VoiceTagEngine.computeSummary(newTags)
-      let newModel = {
-        ...model,
-        voiceTag: {...vt, tags: newTags, summary: newSummary, selectedTagId: None},
-      }
-      // Auto-save after deletion. If no tags remain, delete the sidecar.
-      switch vt.currentFile {
-      | Some(filePath) =>
-        if Array.length(newTags) === 0 {
-          (
-            newModel,
-            VoiceTagCmd.deleteSidecar(filePath, result => VoiceTag(SidecarDeleted(result))),
-          )
-        } else {
-          // Serialise and save — simplified JSON output for now.
-          let json = `{"version":"1.0","sourceFile":"${filePath}","tags":[],"lastModified":${Float.toString(
-              Date.now(),
-            )}}`
-          (newModel, VoiceTagCmd.saveTags(filePath, json, result => VoiceTag(TagsSaved(result))))
-        }
-      | None => (newModel, Tea_Cmd.none)
-      }
-    }
-  | ResolveTagById(id) => {
-      let newTags = VoiceTagEngine.resolveTag(vt.tags, id, "human")
-      let newSummary = VoiceTagEngine.computeSummary(newTags)
-      ({...model, voiceTag: {...vt, tags: newTags, summary: newSummary}}, Tea_Cmd.none)
-    }
-  | SetFilterType(filterType) => ({...model, voiceTag: {...vt, filterType}}, Tea_Cmd.none)
-  | ToggleShowResolved => (
-      {...model, voiceTag: {...vt, showResolved: !vt.showResolved}},
-      Tea_Cmd.none,
-    )
-  | StartVoice => ({...model, voiceTag: {...vt, voice: VoiceListening, error: None}}, Tea_Cmd.none)
-  | StopVoice => ({...model, voiceTag: {...vt, voice: VoiceOff}}, Tea_Cmd.none)
-  | VoiceTranscript(transcript) => {
-      // Parse the voice command and apply it.
-      let cmd = VoiceTagEngine.parseVoiceCommand(transcript)
-      switch cmd {
-      | VoiceTagEngine.TagRange(startLine, endLine, tagType, message) => {
-          let newTag = VoiceTagEngine.createTagWithAttribution(
-            vt.tags,
-            startLine,
-            endLine,
-            tagType,
-            message,
-            "human",
-            Voice,
-          )
-          let newTags = VoiceTagEngine.addTag(vt.tags, newTag)
-          let newSummary = VoiceTagEngine.computeSummary(newTags)
-          (
-            {...model, voiceTag: {...vt, tags: newTags, summary: newSummary, voice: VoiceOff}},
-            Tea_Cmd.none,
-          )
-        }
-      | VoiceTagEngine.TagSelection(tagType, message) => {
-          // Tag at line 1 (no selection context available — future: use editor selection).
-          let newTag = VoiceTagEngine.createTagWithAttribution(
-            vt.tags,
-            1,
-            1,
-            tagType,
-            message,
-            "human",
-            Voice,
-          )
-          let newTags = VoiceTagEngine.addTag(vt.tags, newTag)
-          let newSummary = VoiceTagEngine.computeSummary(newTags)
-          (
-            {...model, voiceTag: {...vt, tags: newTags, summary: newSummary, voice: VoiceOff}},
-            Tea_Cmd.none,
-          )
-        }
-      | VoiceTagEngine.DeleteTag(id) => {
-          let newTags = VoiceTagEngine.removeTag(vt.tags, id)
-          let newSummary = VoiceTagEngine.computeSummary(newTags)
-          (
-            {...model, voiceTag: {...vt, tags: newTags, summary: newSummary, voice: VoiceOff}},
-            Tea_Cmd.none,
-          )
-        }
-      | VoiceTagEngine.ResolveTag(id) => {
-          let newTags = VoiceTagEngine.resolveTag(vt.tags, id, "human")
-          let newSummary = VoiceTagEngine.computeSummary(newTags)
-          (
-            {...model, voiceTag: {...vt, tags: newTags, summary: newSummary, voice: VoiceOff}},
-            Tea_Cmd.none,
-          )
-        }
-      | VoiceTagEngine.ShowTag(id) => (
-          {...model, voiceTag: {...vt, selectedTagId: Some(id), voice: VoiceOff}},
-          Tea_Cmd.none,
-        )
-      | VoiceTagEngine.ShowAll(maybeType) => (
-          {...model, voiceTag: {...vt, filterType: maybeType, voice: VoiceOff}},
-          Tea_Cmd.none,
-        )
-      | VoiceTagEngine.EditTag(_)
-      | VoiceTagEngine.WhoWroteLine(_)
-      | VoiceTagEngine.AttributeHuman
-      | VoiceTagEngine.AttributeAi(_) => // These commands need editor integration — stub for now.
-        ({...model, voiceTag: {...vt, voice: VoiceOff}}, Tea_Cmd.none)
-      | VoiceTagEngine.VoiceUnrecognised(raw) => (
-          {...model, voiceTag: {...vt, voice: Model.VoiceError(`Unrecognised: "${raw}"`)}},
-          Tea_Cmd.none,
-        )
-      }
-    }
-  | VoiceError(err) => ({...model, voiceTag: {...vt, voice: Model.VoiceError(err)}}, Tea_Cmd.none)
-  | SetCurrentFile(filePath) => (
-      {
-        ...model,
-        voiceTag: {
-          ...vt,
-          currentFile: Some(filePath),
-          tags: [],
-          summary: VoiceTagEngine.emptySummary,
-          error: None,
-        },
-      },
-      VoiceTagCmd.loadTags(filePath, result => VoiceTag(TagsLoaded(result))),
-    )
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "voicetag", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateWatcher.affine b/src/update/UpdateWatcher.affine
new file mode 100644
index 00000000..8d831bac
--- /dev/null
+++ b/src/update/UpdateWatcher.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateWatcher;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateWatcher.res b/src/update/UpdateWatcher.res
deleted file mode 100644
index 61845f4a..00000000
--- a/src/update/UpdateWatcher.res
+++ /dev/null
@@ -1,93 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Sub-updater for Watcher — filesystem observation.
-///
-/// Handles watcher lifecycle (start/stop/status) and incoming filesystem events.
-/// FileEvent is the key message — it carries a `watchEvent` that panels can
-/// react to. The watcher maintains a ring buffer of the last 50 events so
-/// panels opened after events occur can still see recent activity.
-
-open Model
-open Msg
-
-let updateWatcher = (model: model, msg: watcherMsg): (model, Tea_Cmd.t<msg>) => {
-  let w = model.watcher
-  switch msg {
-  | StartWatcher(paths) => (
-      {...model, watcher: {...w, error: None}},
-      WatcherCmd.start(paths, result => Watcher(WatcherResult(result))),
-    )
-  | StopWatcher => (model, WatcherCmd.stop(result => Watcher(WatcherResult(result))))
-  | RequestStatus => (model, WatcherCmd.status(result => Watcher(StatusLoaded(result))))
-  | WatcherResult(result) =>
-    switch result {
-    | Ok(_json) => ({...model, watcher: {...w, running: true, error: None}}, Tea_Cmd.none)
-    | Error(e) => ({...model, watcher: {...w, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | StatusLoaded(result) =>
-    switch result {
-    | Ok(jsonStr) => // Parse the status JSON to update watcher state.
-      // The Rust side returns { running, watched_paths, event_count }.
-      switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-      | Some(json) =>
-        switch JSON.Classify.classify(json) {
-        | JSON.Classify.Object(dict) => {
-            let running = switch dict->Dict.get("running") {
-            | Some(v) =>
-              switch JSON.Classify.classify(v) {
-              | JSON.Classify.Bool(b) => b
-              | _ => false
-              }
-            | None => false
-            }
-            let eventCount = switch dict->Dict.get("event_count") {
-            | Some(v) =>
-              switch JSON.Classify.classify(v) {
-              | JSON.Classify.Number(n) => Float.toInt(n)
-              | _ => 0
-              }
-            | None => 0
-            }
-            (
-              {
-                ...model,
-                watcher: {
-                  ...w,
-                  running,
-                  eventCount,
-                  error: None,
-                },
-              },
-              Tea_Cmd.none,
-            )
-          }
-        | _ => (model, Tea_Cmd.none)
-        }
-
-      | None => (model, Tea_Cmd.none)
-      }
-    | Error(e) => ({...model, watcher: {...w, error: Some(e)}}, Tea_Cmd.none)
-    }
-  | FileEvent(event) => {
-      // Add to ring buffer (keep last 50 events).
-      let maxEvents = 50
-      let updated = Array.concat(w.recentEvents, [event])
-      let trimmed = if Array.length(updated) > maxEvents {
-        updated->Array.sliceToEnd(~start=Array.length(updated) - maxEvents)
-      } else {
-        updated
-      }
-      (
-        {
-          ...model,
-          watcher: {
-            ...w,
-            eventCount: w.eventCount + 1,
-            recentEvents: trimmed,
-          },
-        },
-        Tea_Cmd.none,
-      )
-    }
-  }
-}
diff --git a/src/update/UpdateWiringInspector.affine b/src/update/UpdateWiringInspector.affine
new file mode 100644
index 00000000..85de9cd5
--- /dev/null
+++ b/src/update/UpdateWiringInspector.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateWiringInspector;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateWiringInspector.res b/src/update/UpdateWiringInspector.res
deleted file mode 100644
index df8c7c59..00000000
--- a/src/update/UpdateWiringInspector.res
+++ /dev/null
@@ -1,91 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-
-/// Compute derived audit fields (distribution and bottlenecks) from results.
-let computeAuditDerived = (
-  state: wiringInspectorState,
-  results: array<panelVerification>,
-): wiringInspectorState => {
-  ...state,
-  results,
-  distribution: WiringInspectorEngine.computeDistribution(results),
-  bottlenecks: WiringInspectorEngine.extractBottlenecks(results),
-}
-
-/// Sub-updater for Wiring Inspector — PCC verification lifecycle, audit tabs, and UI state.
-let updateWiringInspector = (model: model, msg: wiringInspectorMsg): (model, Tea_Cmd.t<msg>) => {
-  let state = model.wiringInspector
-  switch msg {
-  | RunVerification =>
-    let newState = {...state, loading: true, error: None}
-    let cmd = WiringInspectorCmd.runVerification(result => WiringInspector(
-      VerificationResult(result),
-    ))
-    ({...model, wiringInspector: newState}, cmd)
-
-  | VerificationResult(Ok(json)) =>
-    let results = WiringInspectorEngine.parseVerificationJson(json)
-    let now = Date.make()->Date.toISOString
-    let newState = computeAuditDerived(
-      {
-        ...state,
-        loading: false,
-        lastRunAt: Some(now),
-        error: None,
-      },
-      results,
-    )
-    ({...model, wiringInspector: newState}, Tea_Cmd.none)
-
-  | VerificationResult(Error(e)) =>
-    UpdateHelpers.logDegradedService("WiringInspector", e)
-    let newState = {...state, loading: false, error: Some(e)}
-    ({...model, wiringInspector: newState}, Tea_Cmd.none)
-
-  | RunSingleVerification(panelId) =>
-    let newState = {...state, loading: true, error: None}
-    let cmd = WiringInspectorCmd.runSingleVerification(panelId, result => WiringInspector(
-      SingleVerificationResult(result),
-    ))
-    ({...model, wiringInspector: newState}, cmd)
-
-  | SingleVerificationResult(Ok(json)) =>
-    let results = WiringInspectorEngine.parseVerificationJson(json)
-    let now = Date.make()->Date.toISOString
-    let newState = computeAuditDerived(
-      {
-        ...state,
-        loading: false,
-        lastRunAt: Some(now),
-        error: None,
-      },
-      results,
-    )
-    ({...model, wiringInspector: newState}, Tea_Cmd.none)
-
-  | SingleVerificationResult(Error(e)) =>
-    UpdateHelpers.logDegradedService("WiringInspector", e)
-    let newState = {...state, loading: false, error: Some(e)}
-    ({...model, wiringInspector: newState}, Tea_Cmd.none)
-
-  | SelectPanel(p) => ({...model, wiringInspector: {...state, selectedPanel: p}}, Tea_Cmd.none)
-
-  | SetFilterStatus(s) => ({...model, wiringInspector: {...state, filterStatus: s}}, Tea_Cmd.none)
-
-  | SetAuditTab(tab) => ({...model, wiringInspector: {...state, activeTab: tab}}, Tea_Cmd.none)
-
-  | SetSortBy(field) => ({...model, wiringInspector: {...state, sortBy: field}}, Tea_Cmd.none)
-
-  | ToggleStateSection(panelState) =>
-    // Toggle panel selection to act as expand/collapse for state sections.
-    // Uses the state label as a pseudo-panel ID for section tracking.
-    let sectionId = WiringInspectorEngine.stateLabel(panelState)
-    let newSelected = if state.selectedPanel == Some(sectionId) {
-      None
-    } else {
-      Some(sectionId)
-    }
-    ({...model, wiringInspector: {...state, selectedPanel: newSelected}}, Tea_Cmd.none)
-  }
-}
diff --git a/src/update/UpdateWizard.affine b/src/update/UpdateWizard.affine
new file mode 100644
index 00000000..ca0427fb
--- /dev/null
+++ b/src/update/UpdateWizard.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateWizard;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateWizard.res b/src/update/UpdateWizard.res
deleted file mode 100644
index 1283e808..00000000
--- a/src/update/UpdateWizard.res
+++ /dev/null
@@ -1,305 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-open Model
-open Msg
-open WizardModel
-open WizardCmd
-open WizardMinter
-
-/// Client-side validation rules for immediate feedback
-let validateCapabilitySelection = (capId: string, selectedCaps: array<string>): option<string> => {
-  // Define capability conflicts
-  let conflicts: dict<array<string>> = Dict.fromArray([
-    ("groove_hard", ["groove_soft"]),
-    ("groove_soft", ["groove_hard"]),
-    ("contractile_strict", ["contractile_permissive"]),
-    ("contractile_permissive", ["contractile_strict"]),
-  ])
-  
-  switch Dict.get(conflicts, capId) {
-  | Some(conflictingCaps) => {
-      // Check if any conflicting capabilities are already selected
-      let hasConflict = conflictingCaps->Array.some(conflictCap => 
-        selectedCaps->Array.some(selected => selected === conflictCap)
-      )
-      if hasConflict {
-        Some(`Cannot select ${capId}: conflicts with ${conflictingCaps->Array.join(", ")}`)
-      } else {
-        None
-      }
-    }
-  | None => None
-  }
-}
-
-let validateDependency = (pluginId: string, version: string, dependencies: array<pluginDependency>): option<string> => {
-  // Check for duplicate dependencies
-  let hasDuplicate = dependencies->Array.some(dep => dep.pluginId === pluginId)
-  if hasDuplicate {
-    Some(`Dependency ${pluginId} already added`)
-  } else if String.length(pluginId) === 0 {
-    Some("Plugin ID cannot be empty")
-  } else if String.length(version) === 0 {
-    Some("Version cannot be empty")
-  } else {
-    None
-  }
-}
-
-let validateSecurityConfig = (config: securityConfig): option<string> => {
-  // Check for high trust tier with dangerous permissions
-  if config.trustTier === Ayo && (config.networkAccess || config.filesystemAccess) {
-    Some("High trust tier (Ayo) should not have network/filesystem access")
-  } else {
-    None
-  }
-}
-
-type serializedConfig = {
-  creationType: string,
-  capabilities: string,
-  dependencies: string,
-  securityConfig: string,
-}
-
-/// Convert wizard state to JSON strings for backend communication
-let serializeWizardConfig = (wizard: wizardState): serializedConfig => {
-  let creationTypeStr = switch wizard.creationType {
-    | Some(CreatingPanel) => "panel"
-    | Some(CreatingPlugin) => "plugin"
-    | None => "unknown"
-  }
-  let capsStr = wizard.selectedCapabilities->Array.map(cap => `"${cap}"`)->Array.join(",")
-  let capabilitiesJson = `[${capsStr}]`
-  let depsStr = wizard.dependencies->Array.map(dep => `{"id":"${dep.pluginId}","version":"${dep.version}"}`)->Array.join(",")
-  let dependenciesJson = `[${depsStr}]`
-  let tierStr = switch wizard.securityConfig.trustTier {
-    | Teranga => "Teranga" | Shield => "Shield" | Ayo => "Ayo"
-  }
-  let netStr = wizard.securityConfig.networkAccess ? "true" : "false"
-  let fsStr = wizard.securityConfig.filesystemAccess ? "true" : "false"
-  let securityJson = `{"trustTier":"${tierStr}","networkAccess":${netStr},"filesystemAccess":${fsStr}}`
-  {
-    creationType: creationTypeStr,
-    capabilities: capabilitiesJson,
-    dependencies: dependenciesJson,
-    securityConfig: securityJson,
-  }
-}
-
-module UpdateWizard = {
-  let update = (model: model, msg: wizardMsg): (model, Tea_Cmd.t<msg>) => {
-    switch msg {
-    | SetCreationType(creationType) =>
-        let newWizardState = {...model.wizard, creationType: Some(creationType)}
-        ({...model, wizard: newWizardState}, Tea_Cmd.none)
-
-    | ApplyTemplate(templateName) => {
-        switch WizardModel.getTemplateByName(templateName) {
-        | Some(template) =>
-            let newWizardState = WizardModel.applyTemplate(template, model.wizard)
-            ({...model, wizard: newWizardState}, Tea_Cmd.none)
-        | None =>
-            // Template not found, show error
-            let newWizardState = {
-              ...model.wizard,
-              validationErrors: Some(`Template "${templateName}" not found`)
-            }
-            ({...model, wizard: newWizardState}, Tea_Cmd.none)
-        }
-      }
-
-    | ToggleCapability(capId) => {
-        // Validate capability selection before updating state
-        let validationError = validateCapabilitySelection(capId, model.wizard.selectedCapabilities)
-        
-        switch validationError {
-        | Some(errorMsg) =>
-            // Show validation error but don't change selection
-            let newWizardState = {
-              ...model.wizard,
-              validationErrors: Some(errorMsg)
-            }
-            ({...model, wizard: newWizardState}, Tea_Cmd.none)
-        | None =>
-            // Selection is valid, proceed with toggle
-            let newWizardState = WizardModel.toggleCapability(capId, model.wizard)
-            ({...model, wizard: {...newWizardState, validationErrors: None}}, Tea_Cmd.none)
-        }
-      }
-
-    | AddDependency(pluginId, version) => {
-        // Validate dependency before adding
-        let validationError = validateDependency(pluginId, version, model.wizard.dependencies)
-        
-        switch validationError {
-        | Some(errorMsg) =>
-            // Show validation error but don't add dependency
-            let newWizardState = {
-              ...model.wizard,
-              validationErrors: Some(errorMsg)
-            }
-            ({...model, wizard: newWizardState}, Tea_Cmd.none)
-        | None =>
-            // Dependency is valid, proceed with addition
-            let newWizardState = WizardModel.addDependency(pluginId, version, model.wizard)
-            ({...model, wizard: {...newWizardState, validationErrors: None}}, Tea_Cmd.none)
-        }
-      }
-
-    | RemoveDependency(pluginId) =>
-        let newWizardState = {
-          ...model.wizard,
-          dependencies: model.wizard.dependencies->Array.filter(dep => dep.pluginId !== pluginId)
-        }
-        ({...model, wizard: newWizardState}, Tea_Cmd.none)
-
-    | SetTrustTier(tier) =>
-        let newSecurityConfig = {...model.wizard.securityConfig, trustTier: tier}
-        let newWizardState = {...model.wizard, securityConfig: newSecurityConfig}
-        ({...model, wizard: newWizardState}, Tea_Cmd.none)
-
-    | ToggleNetworkAccess(enabled) => {
-        let newSecurityConfig = {...model.wizard.securityConfig, networkAccess: enabled}
-        let newWizardState = {...model.wizard, securityConfig: newSecurityConfig}
-        
-        // Validate security configuration after change
-        let validationError = validateSecurityConfig(newSecurityConfig)
-        
-        switch validationError {
-        | Some(errorMsg) =>
-            ({...model, wizard: {...newWizardState, validationErrors: Some(errorMsg)}}, Tea_Cmd.none)
-        | None =>
-            ({...model, wizard: {...newWizardState, validationErrors: None}}, Tea_Cmd.none)
-        }
-      }
-
-    | ToggleFilesystemAccess(enabled) => {
-        let newSecurityConfig = {...model.wizard.securityConfig, filesystemAccess: enabled}
-        let newWizardState = {...model.wizard, securityConfig: newSecurityConfig}
-        
-        // Validate security configuration after change
-        let validationError = validateSecurityConfig(newSecurityConfig)
-        
-        switch validationError {
-        | Some(errorMsg) =>
-            ({...model, wizard: {...newWizardState, validationErrors: Some(errorMsg)}}, Tea_Cmd.none)
-        | None =>
-            ({...model, wizard: {...newWizardState, validationErrors: None}}, Tea_Cmd.none)
-        }
-      }
-
-    | NextStep => {
-        let nextStep = WizardModel.getNextStep(model.wizard.currentStep)
-        // Clear validation errors when moving to next step
-        let newWizardState = {
-          ...model.wizard,
-          currentStep: nextStep,
-          validationErrors: None
-        }
-        ({...model, wizard: newWizardState}, Tea_Cmd.none)
-      }
-
-    | PreviousStep => {
-        let prevStep = WizardModel.getPreviousStep(model.wizard.currentStep)
-        // Clear validation errors when moving to previous step
-        let newWizardState = {
-          ...model.wizard,
-          currentStep: prevStep,
-          validationErrors: None
-        }
-        ({...model, wizard: newWizardState}, Tea_Cmd.none)
-      }
-
-    | StartGeneration =>
-        // Validate configuration before generation
-        let config = serializeWizardConfig(model.wizard)
-        (
-          {
-            ...model,
-            wizard: {
-              ...model.wizard,
-              generating: true,
-              validationErrors: None,
-              generationResult: None,
-            },
-          },
-          Tea_Cmd.batch(list{
-            WizardCmd.validateConfig(
-              config.creationType,
-              config.capabilities,
-              config.dependencies,
-              result => Wizard(ValidationResult(result)),
-            ),
-            // Start actual generation after validation
-            WizardCmd.generate(
-              config.creationType,
-              config.capabilities,
-              config.dependencies,
-              config.securityConfig,
-              result => Wizard(GenerationResult(result)),
-            ),
-          }),
-        )
-
-    | ValidationResult(result) =>
-        switch result {
-        | Ok(_validationJson) =>
-            // Validation passed, continue with generation
-            ({...model, wizard: {...model.wizard, validationErrors: None}}, Tea_Cmd.none)
-        | Error(errorMsg) =>
-            // Validation failed, stop generation
-            let newWizardState = {
-              ...model.wizard,
-              generating: false,
-              validationErrors: Some(errorMsg),
-            }
-            ({...model, wizard: newWizardState}, Tea_Cmd.none)
-        }
-
-    | GenerationResult(result) =>
-        switch result {
-        | Ok(_generationJson) =>
-            let newWizardState = {
-              ...model.wizard,
-              generating: false,
-              generationResult: Some(GenerationSuccess({
-                filesCreated: [],
-                filesPatched: [],
-                warnings: [],
-              })),
-            }
-            ({...model, wizard: newWizardState}, Tea_Cmd.none)
-        | Error(errorMsg) =>
-            let newWizardState = {
-              ...model.wizard,
-              generating: false,
-              generationResult: Some(GenerationFailed(errorMsg)),
-            }
-            ({...model, wizard: newWizardState}, Tea_Cmd.none)
-        }
-
-    | ResetWizard =>
-        ({...model, wizard: WizardModel.defaultWizardState}, Tea_Cmd.none)
-    
-    | RunWizardTests => {
-        // Run via `deno task test` — calling WizardTest from here creates a
-        // circular dependency (WizardTest opens UpdateWizard for integration tests).
-        let cmd = Tea_Cmd.call(callbacks => {
-          callbacks.enqueue(Wizard(TestResults("Run `deno task test` for wizard test results")))
-        })
-        (model, cmd)
-      }
-    
-    | TestResults(report) => {
-        let newWizardState = {
-          ...model.wizard,
-          testResults: Some({
-            report,
-            timestamp: Date.now(),
-          })
-        }
-        ({...model, wizard: newWizardState}, Tea_Cmd.none)
-      }
-    }
-  }
-}
\ No newline at end of file
diff --git a/src/update/UpdateWizardTest.affine b/src/update/UpdateWizardTest.affine
new file mode 100644
index 00000000..6f5f7d7c
--- /dev/null
+++ b/src/update/UpdateWizardTest.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateWizardTest;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateWizardTest.res b/src/update/UpdateWizardTest.res
deleted file mode 100644
index 2d28937a..00000000
--- a/src/update/UpdateWizardTest.res
+++ /dev/null
@@ -1,17 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// PanLL Wizard Test Integration — stub; wizard test dispatch lives in UpdateWizard.res.
-
-open Model
-open Msg
-open WizardTest
-
-module UpdateWizardTest = {
-  let runTests = (tagger: string => msg): Tea_Cmd.t<msg> => {
-    Tea_Cmd.call(callbacks => {
-      let results = WizardTest.runAllTests()
-      let report = WizardTest.generateTestReport(results)
-      callbacks.enqueue(tagger(report))
-    })
-  }
-}
diff --git a/src/update/UpdateWorkspace.affine b/src/update/UpdateWorkspace.affine
new file mode 100644
index 00000000..71926c19
--- /dev/null
+++ b/src/update/UpdateWorkspace.affine
@@ -0,0 +1,7 @@
+// SPDX-License-Identifier: MPL-2.0
+// SPDX-FileCopyrightText: 2026 Jonathan D.A. Jewell
+// Ported via Harvard Engine bulk-processor
+
+module UpdateWorkspace;
+
+// TODO: Complete semantic implementation
diff --git a/src/update/UpdateWorkspace.res b/src/update/UpdateWorkspace.res
deleted file mode 100644
index 02bdf0ea..00000000
--- a/src/update/UpdateWorkspace.res
+++ /dev/null
@@ -1,391 +0,0 @@
-// SPDX-License-Identifier: MPL-2.0
-
-/// Sub-updater for Workspace — modes, groups, arrangements, sessions,
-/// protection, execution mode, checkpoints, metadata viewer.
-
-open Model
-open Msg
-
-let updateWorkspace = (model: model, msg: workspaceMsg): (model, Tea_Cmd.t<msg>) => {
-  let ws = model.workspace
-  switch msg {
-  | SetWorkspaceMode(mode) => ({...model, workspace: {...ws, mode}}, Tea_Cmd.none)
-  | CycleWorkspaceMode => (
-      {...model, workspace: {...ws, mode: WorkspaceEngine.cycleMode(ws.mode)}},
-      Tea_Cmd.none,
-    )
-  | SetProtection(p) => ({...model, workspace: {...ws, protection: p}}, Tea_Cmd.none)
-  | SetExecutionMode(m) => ({...model, workspace: {...ws, executionMode: m}}, Tea_Cmd.none)
-  | ToggleDryRun => {
-      let newMode = switch ws.executionMode {
-      | Live => WorkspaceModel.DryRun
-      | DryRun => WorkspaceModel.Live
-      | other => other
-      }
-      ({...model, workspace: {...ws, executionMode: newMode}}, Tea_Cmd.none)
-    }
-  | CreateGroup(id, name, panelIds) => (
-      {
-        ...model,
-        workspace: {...ws, groups: WorkspaceEngine.createGroup(ws.groups, id, name, panelIds)},
-      },
-      Tea_Cmd.none,
-    )
-  | DisbandGroup(id) => (
-      {...model, workspace: {...ws, groups: WorkspaceEngine.disbandGroup(ws.groups, id)}},
-      Tea_Cmd.none,
-    )
-  | ToggleGroupLock(id) => {
-      let hasGroup = Array.find(ws.groups, g => g.id === id)
-      switch hasGroup {
-      | Some(g) =>
-        let newGroups = if g.locked {
-          WorkspaceEngine.unlockGroup(ws.groups, id)
-        } else {
-          WorkspaceEngine.lockGroup(ws.groups, id)
-        }
-        ({...model, workspace: {...ws, groups: newGroups}}, Tea_Cmd.none)
-      | None => (model, Tea_Cmd.none)
-      }
-    }
-  | ToggleGroupVisibility(id) => (
-      {...model, workspace: {...ws, groups: WorkspaceEngine.toggleGroupVisibility(ws.groups, id)}},
-      Tea_Cmd.none,
-    )
-  | PushToBack(id) => (
-      {...model, workspace: {...ws, groups: WorkspaceEngine.pushToBack(ws.groups, id)}},
-      Tea_Cmd.none,
-    )
-  | PullToFront(id) => (
-      {...model, workspace: {...ws, groups: WorkspaceEngine.pullToFront(ws.groups, id)}},
-      Tea_Cmd.none,
-    )
-  | SaveArrangement(id, name) => {
-      let arr: arrangement = {
-        id,
-        name,
-        positions: [],
-        groups: ws.groups,
-        builtIn: false,
-        lastSaved: Date.now(),
-      }
-      let arrangements = Array.concat(ws.arrangements->Array.filter(a => a.id !== id), [arr])
-      let json = `{"id":"${id}","name":"${name}","builtIn":false,"lastSaved":${Float.toString(
-          Date.now(),
-        )},"positions":[],"groups":[]}`
-      (
-        {...model, workspace: {...ws, arrangements}},
-        Tea_Cmd.batch(list{
-          WorkspaceCmd.saveArrangement(json),
-          TypeLLService.checkConfigTypes(json, "workspace", result => Workspace(
-            TypeCheckResult(result),
-          )),
-        }),
-      )
-    }
-  | LoadArrangement(id) => (
-      {...model, workspace: {...ws, activeArrangementId: Some(id)}},
-      Tea_Cmd.none,
-    )
-  | DeleteArrangement(id) => (
-      {
-        ...model,
-        workspace: {...ws, arrangements: WorkspaceEngine.deleteArrangement(ws.arrangements, id)},
-      },
-      Tea_Cmd.none,
-    )
-  | ArrangementsLoaded(result) =>
-    switch result {
-    | Ok(jsonStr) => {
-        let loaded = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-        | Some(json) =>
-          json
-          ->JSON.Decode.array
-          ->Option.getOr([])
-          ->Array.filterMap(item => {
-            let o = item->JSON.Decode.object->Option.getOr(Dict.make())
-            let gs = (d, k) => d->Dict.get(k)->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-            let gf = (d, k) => d->Dict.get(k)->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-            let gb = (d, k) => d->Dict.get(k)->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
-            let id = gs(o, "id")
-            if id !== "" {
-              Some(
-                (
-                  {
-                    id,
-                    name: gs(o, "name"),
-                    positions: [],
-                    groups: [],
-                    builtIn: gb(o, "builtIn"),
-                    lastSaved: gf(o, "lastSaved"),
-                  }: arrangement
-                ),
-              )
-            } else {
-              None
-            }
-          })
-
-        | None => []
-        }
-        let merged = Array.concat(
-          ws.arrangements->Array.filter(a => a.builtIn),
-          loaded->Array.filter(a => !a.builtIn),
-        )
-        ({...model, workspace: {...ws, arrangements: merged}}, Tea_Cmd.none)
-      }
-    | Error(_) => (model, Tea_Cmd.none)
-    }
-  | CreateSession(id, name) => {
-      let now = Date.now()
-      let newSession: session = {
-        id,
-        name,
-        repoPath: None,
-        arrangementId: ws.activeArrangementId,
-        protection: ws.protection,
-        executionMode: ws.executionMode,
-        workspaceMode: ws.mode,
-        checkpoints: [],
-        created: now,
-        lastActive: now,
-        forkedFrom: None,
-      }
-      let sessions = Array.concat(ws.sessions, [newSession])
-      ({...model, workspace: {...ws, sessions, activeSessionId: Some(id)}}, Tea_Cmd.none)
-    }
-  | ForkSession(newId, newName) => {
-      let now = Date.now()
-      let parentSession = ws.sessions->Array.find(s => Some(s.id) === ws.activeSessionId)
-      let forked: session = switch parentSession {
-      | Some(parent) => {
-          ...parent,
-          id: newId,
-          name: newName,
-          created: now,
-          lastActive: now,
-          forkedFrom: Some(parent.id),
-          checkpoints: [],
-        }
-      | None => {
-          id: newId,
-          name: newName,
-          repoPath: None,
-          arrangementId: ws.activeArrangementId,
-          protection: ws.protection,
-          executionMode: ws.executionMode,
-          workspaceMode: ws.mode,
-          checkpoints: [],
-          created: now,
-          lastActive: now,
-          forkedFrom: ws.activeSessionId,
-        }
-      }
-      let sessions = Array.concat(ws.sessions, [forked])
-      ({...model, workspace: {...ws, sessions, activeSessionId: Some(newId)}}, Tea_Cmd.none)
-    }
-  | DeleteSession(id) => (
-      {...model, workspace: {...ws, sessions: WorkspaceEngine.deleteSession(ws.sessions, id)}},
-      Tea_Cmd.none,
-    )
-  | SwitchSession(id) => ({...model, workspace: {...ws, activeSessionId: Some(id)}}, Tea_Cmd.none)
-  | SessionsLoaded(result) =>
-    switch result {
-    | Ok(jsonStr) => {
-        let loaded = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-        | Some(json) =>
-          json
-          ->JSON.Decode.array
-          ->Option.getOr([])
-          ->Array.filterMap(item => {
-            let o = item->JSON.Decode.object->Option.getOr(Dict.make())
-            let gs = (d, k) => d->Dict.get(k)->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-            let gf = (d, k) => d->Dict.get(k)->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-            let id = gs(o, "id")
-            if id !== "" {
-              Some(
-                (
-                  {
-                    id,
-                    name: gs(o, "name"),
-                    repoPath: o->Dict.get("repoPath")->Option.flatMap(JSON.Decode.string),
-                    arrangementId: o->Dict.get("arrangementId")->Option.flatMap(JSON.Decode.string),
-                    protection: Open,
-                    executionMode: Live,
-                    workspaceMode: EverythingMode,
-                    checkpoints: [],
-                    created: gf(o, "created"),
-                    lastActive: gf(o, "lastActive"),
-                    forkedFrom: o->Dict.get("forkedFrom")->Option.flatMap(JSON.Decode.string),
-                  }: session
-                ),
-              )
-            } else {
-              None
-            }
-          })
-
-        | None => []
-        }
-        if Array.length(loaded) > 0 {
-          ({...model, workspace: {...ws, sessions: loaded}}, Tea_Cmd.none)
-        } else {
-          (model, Tea_Cmd.none)
-        }
-      }
-    | Error(_) => (model, Tea_Cmd.none)
-    }
-  | AddCheckpoint(id, label) => {
-      let now = Date.now()
-      let cp: checkpoint = {id, label, timestamp: now, automatic: false}
-      let sessions = ws.sessions->Array.map(s =>
-        if Some(s.id) === ws.activeSessionId {
-          {...s, checkpoints: Array.concat(s.checkpoints, [cp]), lastActive: now}
-        } else {
-          s
-        }
-      )
-      ({...model, workspace: {...ws, sessions}}, Tea_Cmd.none)
-    }
-  | SystemInfoLoaded(result) => switch result {
-    | Ok(jsonStr) => {
-        let parsed = switch Decoders.decodeOption(Tea_Json.value, jsonStr) {
-        | Some(json) =>
-          let obj = json->JSON.Decode.object->Option.getOr(Dict.make())
-          let getFloat = key =>
-            obj->Dict.get(key)->Option.flatMap(JSON.Decode.float)->Option.getOr(0.0)
-          Some({
-            StatusBarModel.cpuUsage: getFloat("cpu_usage"),
-            memoryTotal: getFloat("memory_total"),
-            memoryUsed: getFloat("memory_used"),
-            diskTotal: getFloat("disk_total"),
-            diskUsed: getFloat("disk_used"),
-            uptimeSeconds: getFloat("uptime_seconds"),
-          })
-
-        | None => None
-        }
-        switch parsed {
-        | Some(info) => (
-            {...model, statusBar: {...model.statusBar, systemInfo: Some(info)}},
-            Tea_Cmd.none,
-          )
-        | None => (model, Tea_Cmd.none)
-        }
-      }
-    | Error(_) => (model, Tea_Cmd.none)
-    }
-  | ToggleConfigurator => (
-      {...model, workspace: {...ws, configuratorOpen: !ws.configuratorOpen}},
-      Tea_Cmd.none,
-    )
-  | SetConfiguratorTab(tab) => ({...model, workspace: {...ws, configuratorTab: tab}}, Tea_Cmd.none)
-  | ViewMetadata(item) => (
-      {...model, workspace: {...ws, viewingMetadata: Some(item)}},
-      Tea_Cmd.none,
-    )
-  | CloseMetadata => (
-      {...model, workspace: {...ws, viewingMetadata: None, metadataContent: None}},
-      Tea_Cmd.none,
-    )
-  | MetadataLoaded(result) => switch result {
-    | Ok(content) => ({...model, workspace: {...ws, metadataContent: Some(content)}}, Tea_Cmd.none)
-    | Error(_) => (model, Tea_Cmd.none)
-    }
-  | ResetPanel(panelId) => {
-      // Reset a single panel to its default state by matching the panel identifier.
-      let m = switch panelId {
-      | "coprocessors" => {...model, coprocessors: CoprocessorsEngine.defaultState}
-      | "buildDashboard" => {...model, buildDashboard: BuildDashboardEngine.defaultState}
-      | "releaseManager" => {...model, releaseManager: ReleaseManagerEngine.defaultState}
-      | "automationRouter" => {...model, automationRouter: AutomationRouterEngine.defaultState}
-      | "scriptGist" => {...model, scriptGist: ScriptGistEngine.defaultState}
-      | "security" => {...model, security: SecurityEngine.defaultState}
-      | "voiceTag" => {...model, voiceTag: VoiceTagEngine.defaultState}
-      | "massPanic" => {...model, massPanic: MassPanicModel.init}
-      | "panicAttack" => {...model, panicAttack: PanicAttackModel.init}
-      | "tsdm" => {...model, tsdm: TsdmModel.init}
-      | "levelArchitect" => {...model, levelArchitect: LevelArchitectEngine.defaultState}
-      | "networkTopology" => {...model, networkTopology: NetworkTopologyEngine.defaultState}
-      | "typell" => {...model, typell: TypeLLEngine.defaultState}
-      | "boj" => {...model, boj: BojEngine.defaultState}
-      | "vmInspector" => {...model, vmInspector: VmInspectorEngine.defaultState}
-      | "gamePreview" => {...model, gamePreview: GamePreviewEngine.defaultState}
-      | "provenance" => {...model, provenance: ProvenanceEngine.defaultState}
-      | "myLang" => {...model, myLang: MyLangEngine.defaultState}
-      | "valenceShell" => {...model, valenceShell: ValenceShellEngine.defaultState}
-      | "migration" => {...model, migration: MigrationEngine.defaultState}
-      | "repoLoader" => {...model, repoLoader: RepoLoaderEngine.defaultState}
-      | "ai" => {...model, ai: AiEngine.defaultState}
-      | "statusBar" => {...model, statusBar: StatusBarEngine.defaultState}
-      | "cladeBrowser" => {...model, cladeBrowser: CladeBrowserModel.defaultState}
-      | "protocolSquisher" => {...model, protocolSquisher: ProtocolSquisherEngine.defaultState}
-      | "aerie" => {...model, aerie: AerieEngine.defaultState}
-      | _ => model
-      }
-      (m, Tea_Cmd.none)
-    }
-  | ResetAllPanels => {
-      // Reset all panels to defaults, preserving workspace config (arrangements, sessions, mode).
-      let m = {
-        ...model,
-        coprocessors: CoprocessorsEngine.defaultState,
-        buildDashboard: BuildDashboardEngine.defaultState,
-        releaseManager: ReleaseManagerEngine.defaultState,
-        automationRouter: AutomationRouterEngine.defaultState,
-        scriptGist: ScriptGistEngine.defaultState,
-        security: SecurityEngine.defaultState,
-        voiceTag: VoiceTagEngine.defaultState,
-        massPanic: MassPanicModel.init,
-        panicAttack: PanicAttackModel.init,
-        tsdm: TsdmModel.init,
-        levelArchitect: LevelArchitectEngine.defaultState,
-        networkTopology: NetworkTopologyEngine.defaultState,
-        typell: TypeLLEngine.defaultState,
-        boj: BojEngine.defaultState,
-        vmInspector: VmInspectorEngine.defaultState,
-        gamePreview: GamePreviewEngine.defaultState,
-        provenance: ProvenanceEngine.defaultState,
-        myLang: MyLangEngine.defaultState,
-        valenceShell: ValenceShellEngine.defaultState,
-        migration: MigrationEngine.defaultState,
-        repoLoader: RepoLoaderEngine.defaultState,
-        ai: AiEngine.defaultState,
-        statusBar: StatusBarEngine.defaultState,
-        cladeBrowser: CladeBrowserModel.defaultState,
-        protocolSquisher: ProtocolSquisherEngine.defaultState,
-        aerie: AerieEngine.defaultState,
-      }
-      (m, Tea_Cmd.none)
-    }
-  | ExportWorkspaceConfig => {
-      let humidityStr = switch model.humidity {
-      | High => "high"
-      | Medium => "medium"
-      | Low => "low"
-      }
-      let preview = EnsaidConfigEngine.generate(
-        ~repoName="(current repo)",
-        ~workspace=model.workspace,
-        ~humidity=humidityStr,
-        ~panelConfigs=model.provisioner.panelConfigs,
-        ~portfolios=model.provisioner.portfolios,
-        ~automationRules=model.automationRouter.rules,
-        (),
-      )
-      ({...model, ensaidConfigPreview: Some(preview)}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Ok(json)) => {
-      let checks = model.typell.panelTypeChecks
-      Dict.set(checks, "workspace", json)
-      let newTypell = {
-        ...model.typell,
-        queriesServed: model.typell.queriesServed + 1,
-        panelTypeChecks: checks,
-      }
-      ({...model, typell: newTypell}, Tea_Cmd.none)
-    }
-  | TypeCheckResult(Error(_)) => // TypeLL unavailable — degrade gracefully
-    (model, Tea_Cmd.none)
-  }
-}