feat(WP-0012): IHF Phase 11 — Advanced AI Federation

- Schema: AgentRegistration, ModelRoutingPolicy, AgentDelegation,
  CollectiveProposal, CollectiveProposalContribution, AiGovernancePolicy,
  AgentPerformanceRecord + ALTER TABLE agent_proposals
  (migration 1744156800; CHECK constraints on trust_level, status,
  consensus_status — GAAF compliant)

- Bridge: scripts/llm_bridge.py (llm-connect subprocess seam) +
  Application/Helper/AgentBridge.hs (callBridge, callAgent,
  checkGovernancePolicy, jsonArrayTexts)

- Routing: Application/Helper/ModelRouter.hs (resolveAgent,
  resolveAllAgents) + ModelRoutingPolicies CRUD

- Registry: AgentRegistrations CRUD (Index/Show/New/Edit/Performance),
  DeactivateAgentAction, ComputeAgentPerformanceAction

- Delegation: AgentDelegations controller + views, DelegateSubtaskAction
  with token budget enforcement at bridge call time

- Collective: CollectiveProposals controller + views,
  CreateCollectiveProposalAction (fan-out → synthesis → consensus detection)

- Governance: AiGovernancePolicies CRUD + ToggleAiGovernancePolicyAction;
  checkGovernancePolicy enforced at all 4 Phase 5 invocation points

- Phase 5 wiring: replaced callClaudeApi in Widgets, DecisionRecords,
  RequirementCandidates with resolveAgent + callAgent + token tracking

- llm-connect feature requests: ~/llm-connect/FEATURE_REQUESTS.md
  (FR-1 HTTP serve, FR-2 RoutingPolicy, FR-3 async, FR-4 BudgetTracker)

- GAAF scorecard: 3.61 (up from 3.56); Functional 3.4→3.6, Extensions 3.8→3.9

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>

Web/View/CollectiveProposals/Index.hs

@@ -0,0 +1,47 @@
+module Web.View.CollectiveProposals.Index where
+
+import Web.View.Prelude
+
+data IndexView = IndexView
+    { proposals :: ![CollectiveProposal] }
+
+instance View IndexView where
+    html IndexView { .. } = [hsx|
+        <div class="p-6">
+            <h1 class="text-2xl font-bold text-gray-900 mb-6">Collective Proposals</h1>
+            <div class="bg-white shadow rounded-lg overflow-hidden">
+                <table class="min-w-full divide-y divide-gray-200">
+                    <thead class="bg-gray-50">
+                        <tr>
+                            <th class="px-6 py-3 text-left text-xs font-medium text-gray-500 uppercase">Title</th>
+                            <th class="px-6 py-3 text-left text-xs font-medium text-gray-500 uppercase">Task Type</th>
+                            <th class="px-6 py-3 text-left text-xs font-medium text-gray-500 uppercase">Consensus</th>
+                            <th class="px-6 py-3 text-left text-xs font-medium text-gray-500 uppercase">Created</th>
+                            <th class="px-6 py-3"></th>
+                        </tr>
+                    </thead>
+                    <tbody class="divide-y divide-gray-200">
+                        {forEach proposals renderRow}
+                    </tbody>
+                </table>
+            </div>
+        </div>
+    |]
+      where
+        renderRow p = [hsx|
+            <tr class="hover:bg-gray-50">
+                <td class="px-6 py-4 text-sm font-medium text-gray-900">{p.title}</td>
+                <td class="px-6 py-4 text-sm font-mono text-gray-500">{p.taskType}</td>
+                <td class="px-6 py-4">{consensusBadge p.consensusStatus}</td>
+                <td class="px-6 py-4 text-sm text-gray-500">{timeAgo p.createdAt}</td>
+                <td class="px-6 py-4 text-right">
+                    <a href={ShowCollectiveProposalAction p.id}
+                       class="text-sm text-blue-600 hover:text-blue-800">View</a>
+                </td>
+            </tr>
+        |]
+
+consensusBadge :: Text -> Html
+consensusBadge "consensus"  = [hsx|<span class="px-2 py-0.5 text-xs rounded-full bg-green-100 text-green-800">consensus</span>|]
+consensusBadge "divergent"  = [hsx|<span class="px-2 py-0.5 text-xs rounded-full bg-orange-100 text-orange-800">divergent</span>|]
+consensusBadge _            = [hsx|<span class="px-2 py-0.5 text-xs rounded-full bg-gray-100 text-gray-500">pending</span>|]

Web/View/CollectiveProposals/Show.hs

@@ -0,0 +1,58 @@
+module Web.View.CollectiveProposals.Show where
+
+import Web.View.Prelude
+import Web.View.CollectiveProposals.Index (consensusBadge)
+
+data ShowView = ShowView
+    { proposal          :: !CollectiveProposal
+    , agentContributions :: ![(CollectiveProposalContribution, Text)]
+      -- ^ (contribution, agent name)
+    }
+
+instance View ShowView where
+    html ShowView { .. } = [hsx|
+        <div class="p-6 space-y-6 max-w-4xl">
+            <div class="flex justify-between items-start">
+                <div>
+                    <h1 class="text-2xl font-bold text-gray-900">{proposal.title}</h1>
+                    <p class="text-sm font-mono text-gray-500 mt-1">{proposal.taskType}</p>
+                </div>
+                {consensusBadge proposal.consensusStatus}
+            </div>
+
+            {case proposal.summary of
+                Nothing -> mempty
+                Just s  -> [hsx|<p class="text-gray-700">{s}</p>|]}
+
+            {case proposal.finalContent of
+                Nothing -> mempty
+                Just fc -> [hsx|
+                    <div class="bg-green-50 border border-green-200 rounded-lg p-4">
+                        <h2 class="text-sm font-semibold text-green-800 mb-2">Synthesized Recommendation</h2>
+                        <pre class="text-sm text-green-900 whitespace-pre-wrap">{show fc}</pre>
+                    </div>
+                |]}
+
+            <div>
+                <h2 class="text-lg font-semibold text-gray-800 mb-3">
+                    Agent Contributions ({show (length agentContributions)})
+                </h2>
+                <div class="grid gap-4">
+                    {forEach agentContributions renderContrib}
+                </div>
+            </div>
+        </div>
+    |]
+      where
+        renderContrib (contrib, agentName) = [hsx|
+            <div class="bg-white shadow rounded-lg p-4">
+                <div class="flex justify-between items-center mb-2">
+                    <span class="text-sm font-medium text-gray-800">{agentName}</span>
+                    <span class="text-xs text-gray-400">
+                        {maybe "" (\m -> "model: " <> m) contrib.modelUsed}
+                        {maybe "" (\t -> " · " <> show t <> " tokens out") contrib.tokensOut}
+                    </span>
+                </div>
+                <pre class="text-sm text-gray-700 whitespace-pre-wrap bg-gray-50 rounded p-3">{show contrib.content}</pre>
+            </div>
+        |]