feat: Add VQL-UT panel — flagship PanLL panel for type-safe queries

The VQL panel is the primary interface for VeriSimDB, ECHIDNA provers,
and the 10-level VQL-UT type safety system. Includes:

- VqlModel.res: 500+ line state model covering 10 safety levels,
  linter (30+ rules, 6 categories), formatter (5 presets),
  query editor, execution engine, schema browser, prover dispatch
- VqlEngine.res: 900+ line pure computation engine with full linter
  implementation, formatter, template system, narrative generation
- VqlCmd.res: Tauri FFI bridge for VeriSimDB/ECHIDNA/TypeLL/BoJ
- Vql.res: 900+ line component with 7 tabs (Editor, Results, Plan,
  Schema, Provers, History, Config), safety gauge, diagnostics,
  evangeliser narratives, keyboard shortcuts
- VQL.a2ml: Clade definition with capabilities and endpoint config
- Wired into PanelSwitcherModel, PanelRegistry, PanelBus

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>

Author: hyperpolymath

panel-clades/clades/vql/VQL.a2ml

@@ -0,0 +1,75 @@
+// SPDX-License-Identifier: PMPL-1.0-or-later
+// VQL-UT Panel Clade Definition — Attested Markup Language
+
+[clade]
+id = "vql"
+kind = "service"
+version = "1.0.0"
+name = "VQL-UT: Type-Safe Query Language"
+description = """
+The flagship PanLL panel. VQL-UT provides a 10-level progressive type safety
+system for querying VeriSimDB's 8-modality octad storage, dispatching across
+ECHIDNA's 30 prover backends, and generating formally verified query plans.
+
+Features:
+- 10-level type safety ratchet (L0 Unsafe → L10 Linear-Safe)
+- Dedicated linter with 30+ rules across 6 categories
+- Dedicated formatter with 5 style presets
+- Cross-prover federated query dispatch
+- VeriSimDB octad-aware schema browser
+- Query plan visualization with cost estimation
+- TypeLL integration for dependent-type checking
+- Proof obligation tracking and discharge
+- Evangeliser narratives (celebrate/minimize/improve/safety)
+"""
+
+capabilities = [
+  "VqlQuery",
+  "VqlLint",
+  "VqlFormat",
+  "VqlTypeCheck",
+  "VqlExplain",
+  "SchemaIntrospect",
+  "CrossProverDispatch",
+  "ProofObligationTrack",
+  "QueryHistoryManage",
+  "ResultExport",
+]
+
+consumed-by = [
+  "typell",       // TypeLL provides type checking for VQL expressions
+  "echidna",      // ECHIDNA provides cross-prover dispatch
+  "verisimdb",    // VeriSimDB provides octad storage
+  "databases",    // Databases panel shares connection state
+  "boj",          // BoJ routes queries through cartridges
+]
+
+consumes = [
+  "verisimdb",    // Query execution target
+  "echidna",      // Prover dispatch
+  "typell",       // Type checking service
+]
+
+[endpoints]
+verisimdb = "http://localhost:8200"
+echidna = "http://localhost:8000"
+typell = "http://localhost:7800"
+boj = "http://localhost:7700"
+
+[health]
+check-interval-ms = 10000
+endpoints = [
+  "http://localhost:8200/api/v1/health",
+  "http://localhost:8000/api/v1/health",
+  "http://localhost:7800/api/v1/health",
+]
+
+[bus]
+subscribes = ["TopicDatabase", "TopicType", "TopicProtocol"]
+publishes = ["TopicDatabase", "TopicType"]
+
+[taxonomy]
+domain = "data"
+group = "Data"
+priority = 1
+icon = "database-search"

src/commands/VqlCmd.res

@@ -0,0 +1,196 @@
+// SPDX-License-Identifier: PMPL-1.0-or-later
+// VQL-UT Commands — Tauri FFI bridge for VQL panel I/O.
+//
+// All side effects (HTTP calls, file I/O, clipboard) route through here.
+// The VQL 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: Tauri Command Bindings
+// ============================================================
+
+/// Generic Tauri invoke binding.
+@module("@tauri-apps/api/core")
+external invoke: (string, 'a) => promise<string> = "invoke"
+
+/// Invoke with no arguments.
+@module("@tauri-apps/api/core")
+external invokeNoArgs: string => promise<string> = "invoke"
+
+// ============================================================
+// SECTION 2: VeriSimDB Commands
+// ============================================================
+
+/// Execute a VQL-UT 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/vql"
+  | TargetBoJ => "http://localhost:7700/echidna-llm/vql"
+  | TargetTypeLL => "http://localhost:7800/api/v1/vql-ut/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 {
+    | Exn.Error(e) => switch Exn.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 {
+    | Exn.Error(e) => switch Exn.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 {
+    | Exn.Error(e) => switch Exn.message(e) { | Some(m) => m | None => "Connection failed" }
+    | _ => "Connection failed"
+    }
+    Promise.resolve(Error(msg))
+  })
+}
+
+// ============================================================
+// SECTION 3: TypeLL Type Checking Commands
+// ============================================================
+
+/// Send a VQL-UT 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": "vql-ut"}`
+  invoke("http_post", {"url": "http://localhost:7800/api/v1/vql-ut/check", "body": body})
+  ->Promise.then(r => Promise.resolve(Ok(r)))
+  ->Promise.catch(err => {
+    let msg = switch err {
+    | Exn.Error(e) => switch Exn.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 {
+    | Exn.Error(e) => switch Exn.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/vql/explain", "body": body})
+  ->Promise.then(r => Promise.resolve(Ok(r)))
+  ->Promise.catch(err => {
+    let msg = switch err {
+    | Exn.Error(e) => switch Exn.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": `vql-results.${format}`})
+  ->Promise.then(r => Promise.resolve(Ok(r)))
+  ->Promise.catch(err => {
+    let msg = switch err {
+    | Exn.Error(e) => switch Exn.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 {
+    | Exn.Error(e) => switch Exn.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 = JSON.stringify(Obj.magic(history))
+  invoke("store_set", {"key": "vql_history", "value": json})
+  ->Promise.then(r => Promise.resolve(Ok(r)))
+  ->Promise.catch(err => {
+    let msg = switch err {
+    | Exn.Error(e) => switch Exn.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": "vql_history"})
+  ->Promise.then(r => Promise.resolve(Ok(r)))
+  ->Promise.catch(err => {
+    let msg = switch err {
+    | Exn.Error(e) => switch Exn.message(e) { | Some(m) => m | None => "Load failed" }
+    | _ => "Load failed"
+    }
+    Promise.resolve(Error(msg))
+  })
+}