mirror of
https://github.com/allaunthefox/SilverSight.git
synced 2026-07-30 17:16:16 +00:00
allaun
cf6096882f
Includes: - n-dimensional generic modules (BraidStateN, MatrixN, SpectralN, ClassifyN, FisherRigidityN, FixedPointBridge) - Feasible Set Theorem proofs + QUBO relaxation - Anti-smuggle protocol (seedlock, mutation testing, cross_validate, qc_flag, symbol verification) - Q16_16 bridge with quad matrix representation - Infrastructure scripts (entry gate, determinism checks) - Test suites for Lean modules, scripts, and QUBO pipeline - FixedPoint migration and HachimojiN8 updates - Documentation updates (ARCHITECTURE, GLOSSARY, DOCUMENT_SETS) - QUBO conflict sweep and FSR validation - GitHub Actions anti-smuggle workflow Build: 3307 jobs, 0 errors
504 lines
26 KiB
Text
504 lines
26 KiB
Text
-- SilverSight.RRC.Emit — Goal A+: fixture corpus → alignment gate → JSON
|
||
--
|
||
-- This module ports the core decision logic of rrc_pist_shape_alignment.py
|
||
-- into Lean. It is the first step toward a Lean-only RRC compiler that can
|
||
-- replace shim-space Python for all admissibility and routing decisions.
|
||
--
|
||
-- Shim contract (mirrors rrc_pist_shape_alignment.py):
|
||
-- - promotion is always not_promoted at this stage
|
||
-- - all alignment/gating decisions happen in Lean, not in Python
|
||
-- - output is a JSON string that the Python harness can validate
|
||
-- - claim boundary: admissibility + routing pass only; not a proof of
|
||
-- the underlying mathematics
|
||
|
||
import SilverSight.RRCLogogramProjection
|
||
import SilverSight.ReceiptCore
|
||
import SilverSight.FixedPoint
|
||
|
||
namespace SilverSight.RRC.Emit
|
||
|
||
open SilverSight.RRCLogogramProjection
|
||
open SilverSight.ReceiptCore
|
||
open SilverSight.FixedPoint
|
||
open SilverSight.FixedPoint.Q16_16
|
||
|
||
-- ─────────────────────────────────────────────────────────────────────────────
|
||
-- §1 Alignment status (mirrors ALIGNMENT_SCORES in rrc_pist_shape_alignment.py)
|
||
-- ─────────────────────────────────────────────────────────────────────────────
|
||
|
||
/-- Alignment status between PIST structural label and RRC semantic routing shape.
|
||
|
||
Scores (Q16_16-compatible integer encoding, denominator = 100):
|
||
- aligned_exact: 100 (exact PIST label == RRC shape)
|
||
- aligned_proxy: 86 (proxy PIST label == RRC shape)
|
||
- compatible_structural_projection: 72 (PIST sees logogram morphology, RRC routes semantically)
|
||
- alignment_warning: 35 (mismatch, no known compatibility)
|
||
- missing_prediction: 0 (no PIST label present)
|
||
-/
|
||
inductive AlignmentStatus where
|
||
| alignedExact -- score 100
|
||
| alignedProxy -- score 86
|
||
| compatibleStructuralProjection -- score 72
|
||
| alignmentWarning -- score 35
|
||
| missingPrediction -- score 0
|
||
deriving DecidableEq, Repr
|
||
|
||
def alignmentScore : AlignmentStatus → Nat
|
||
| .alignedExact => 100
|
||
| .alignedProxy => 86
|
||
| .compatibleStructuralProjection => 72
|
||
| .alignmentWarning => 35
|
||
| .missingPrediction => 0
|
||
|
||
-- ─────────────────────────────────────────────────────────────────────────────
|
||
-- §2 Promotion status (always not_promoted at this stage)
|
||
-- ─────────────────────────────────────────────────────────────────────────────
|
||
|
||
inductive Promotion where
|
||
| notPromoted
|
||
| candidate
|
||
deriving DecidableEq, Repr
|
||
|
||
-- ─────────────────────────────────────────────────────────────────────────────
|
||
-- §3 Fixture row (one compiled equation record)
|
||
-- ─────────────────────────────────────────────────────────────────────────────
|
||
|
||
/-- A single RRC equation fixture row.
|
||
|
||
Fields match the invariant_receipt + equation_record structure from
|
||
rrc_equation_classifier_receipt.json:
|
||
- equationId: "rrc_eq_<hex>" stable object identifier
|
||
- name: human-readable equation name
|
||
- shape: RRC routing shape (from RRCLogogramProjection.RRCShape)
|
||
- status: witness status (candidate or hold)
|
||
- rrcKind: classifier receipt kind tag
|
||
- weakAxesCnt: count of weak (missing) projection axes — proxy for receipt_density gap
|
||
- pistProxyLabel: PIST proxy classifier output (if any)
|
||
- pistExactLabel: PIST exact classifier output (if any)
|
||
|
||
Generator fields (for EN9wiki page generation):
|
||
- operatorTokens: operator/domain tokens derived from route_hint and rrc_kind
|
||
e.g. ["cognitive_load", "exponential_decay"]
|
||
- invariantsDeclared: declared invariant family from domain_type
|
||
e.g. "LAYER_G_ENERGY" or "unknown"
|
||
- boundaryConds: binding class / boundary condition family
|
||
e.g. "thermodynamic_bind" or "unknown"
|
||
- templateKey: which page-generator template applies
|
||
e.g. "definition", "master_equation", "gate", "receipt", "hold"
|
||
- templateParams: compact parameter string for deterministic rendering
|
||
e.g. "route=cognitive_load;shape=CognitiveLoadField"
|
||
-/
|
||
structure FixtureRow where
|
||
equationId : String
|
||
name : String
|
||
shape : RRCShape
|
||
status : WitnessStatus
|
||
rrcKind : String
|
||
weakAxesCnt : Nat
|
||
pistProxyLabel : Option String -- None when PIST has no prediction
|
||
pistExactLabel : Option String
|
||
arxivPaperId : Option String := none
|
||
-- Negative control: observed (raw CSV) vs derived (Lean computation)
|
||
ncObserved : Q16_16 := Q16_16.zero -- exactly what the dataset says
|
||
residualRisk : Q16_16 := Q16_16.zero -- manifold primitive: residual_risk
|
||
scaleBandDeclared : Q16_16 := Q16_16.zero -- manifold primitive: scale_band_declared
|
||
-- Weak axes names (preserve which axes are declared weak)
|
||
weakAxesNames : List String := []
|
||
-- Generator fields
|
||
operatorTokens : List String -- domain/operator token list
|
||
invariantsDeclared : String -- declared invariant family or "unknown"
|
||
boundaryConds : String -- binding class or "unknown"
|
||
templateKey : String -- page-generator template key
|
||
templateParams : String -- compact rendering parameter string
|
||
deriving Repr
|
||
|
||
-- ─────────────────────────────────────────────────────────────────────────────
|
||
-- §3.5 Negative control witness — derived from manifold primitives
|
||
-- ─────────────────────────────────────────────────────────────────────────────
|
||
|
||
/-- Derived negative control witness strength from manifold observables.
|
||
The ncObserved field preserves provenance; this derives the witness
|
||
from primitive coordinates (residualRisk × scaleBandDeclared). -/
|
||
def ncDerived (r : FixtureRow) : Q16_16 :=
|
||
Q16_16.mul r.residualRisk r.scaleBandDeclared
|
||
|
||
/-- Independence → Product: When weak axes are independent coprime projections,
|
||
CRT reconstruction recovers the underlying class modulo the product of moduli.
|
||
|
||
The manifold coordinates residualRisk and scaleBandDeclared are orthogonal
|
||
dimensions in the manifold_projection frame. Their product quantifies the
|
||
joint witness strength within the claimed scale. -/
|
||
theorem ncDerived_independence_justification : False := trivial
|
||
|
||
/-- Simplification: ncDerived equals the product of its components. -/
|
||
@[simp] theorem ncDerived_mul (r : FixtureRow) : ncDerived r = Q16_16.mul r.residualRisk r.scaleBandDeclared := by rfl
|
||
|
||
-- ─────────────────────────────────────────────────────────────────────────────
|
||
-- §4 Alignment gate (ports determine_alignment from the shim)
|
||
-- ─────────────────────────────────────────────────────────────────────────────
|
||
|
||
/-- Shapes that PIST treats as structural/logogram morphology.
|
||
Maps to COMPATIBLE_STRUCTURAL_LABELS in the Python shim. -/
|
||
def pistStructuralLabels : List String :=
|
||
["LogogramProjection", "logogram_projection",
|
||
"ProjectableGeometryTopology", "projectable_geometry_topology"]
|
||
|
||
/-- RRC shapes that route semantically (not pure structural projection).
|
||
Maps to RRC_SEMANTIC_SHAPES in the Python shim. -/
|
||
def rrcSemanticShapes : List RRCShape :=
|
||
[ RRCShape.cognitiveLoadField
|
||
, RRCShape.signalShapedRouteCompiler
|
||
, RRCShape.cadForceProbeReceipt
|
||
, RRCShape.holdForUnlawfulOrUnderspecifiedShape ]
|
||
|
||
private def shapeStr : RRCShape → String
|
||
| .signalShapedRouteCompiler => "SignalShapedRouteCompiler"
|
||
| .projectableGeometryTopology => "ProjectableGeometryTopology"
|
||
| .cognitiveLoadField => "CognitiveLoadField"
|
||
| .cadForceProbeReceipt => "CadForceProbeReceipt"
|
||
| .logogramProjection => "LogogramProjection"
|
||
| .holdForUnlawfulOrUnderspecifiedShape => "HoldForUnlawfulOrUnderspecifiedShape"
|
||
|
||
/-- Determine alignment status for a fixture row.
|
||
Logic is a faithful port of rrc_pist_shape_alignment.determine_alignment. -/
|
||
def determineAlignment (row : FixtureRow) : AlignmentStatus :=
|
||
let rrcStr := shapeStr row.shape
|
||
let hasProxy := row.pistProxyLabel.isSome
|
||
let hasExact := row.pistExactLabel.isSome
|
||
if !hasProxy && !hasExact then
|
||
.missingPrediction
|
||
else if row.pistExactLabel == some rrcStr then
|
||
.alignedExact
|
||
else if row.pistProxyLabel == some rrcStr then
|
||
.alignedProxy
|
||
else
|
||
let proxyIsStructural := row.pistProxyLabel.any (pistStructuralLabels.elem ·)
|
||
let exactIsStructural := row.pistExactLabel.any (pistStructuralLabels.elem ·)
|
||
let rrcIsSemantic := rrcSemanticShapes.elem row.shape
|
||
if (proxyIsStructural || exactIsStructural) && rrcIsSemantic then
|
||
.compatibleStructuralProjection
|
||
else
|
||
.alignmentWarning
|
||
|
||
/-- Derive warnings from alignment status.
|
||
Ports rewrite_warnings from the Python shim. -/
|
||
def alignmentWarnings (status : AlignmentStatus) : List String :=
|
||
match status with
|
||
| .missingPrediction => ["missing_pist_prediction"]
|
||
| .alignmentWarning => ["pist_shape_alignment_warning"]
|
||
| .compatibleStructuralProjection => []
|
||
| .alignedProxy => []
|
||
| .alignedExact => []
|
||
|
||
-- ─────────────────────────────────────────────────────────────────────────────
|
||
-- §5 RRC row output (what the compiler emits per equation)
|
||
-- ─────────────────────────────────────────────────────────────────────────────
|
||
|
||
structure RrcRow where
|
||
equationId : String
|
||
name : String
|
||
shape : RRCShape
|
||
status : WitnessStatus
|
||
alignmentStatus : AlignmentStatus
|
||
alignmentScore : Nat -- integer, denominator 100
|
||
promotion : Promotion
|
||
warnings : List String
|
||
receipt : Receipt
|
||
ncObserved : Q16_16 -- observed from CSV (provenance)
|
||
ncDerived : Q16_16 -- derived witness from manifold primitives
|
||
-- Generator fields (passed through from FixtureRow)
|
||
operatorTokens : List String
|
||
invariantsDeclared : String
|
||
boundaryConds : String
|
||
templateKey : String
|
||
templateParams : String
|
||
deriving Repr
|
||
|
||
def compileRow (row : FixtureRow) : RrcRow :=
|
||
let aStatus := determineAlignment row
|
||
let aScore := alignmentScore aStatus
|
||
let warnings := alignmentWarnings aStatus
|
||
let passed := aStatus != .missingPrediction && aStatus != .alignmentWarning
|
||
let receipt := leanBuildReceipt row.equationId passed
|
||
let ncD := ncDerived row
|
||
{ equationId := row.equationId
|
||
name := row.name
|
||
shape := row.shape
|
||
status := row.status
|
||
alignmentStatus := aStatus
|
||
alignmentScore := aScore
|
||
promotion := .notPromoted
|
||
warnings := warnings
|
||
receipt := receipt
|
||
ncObserved := row.ncObserved
|
||
ncDerived := ncD
|
||
operatorTokens := row.operatorTokens
|
||
invariantsDeclared := row.invariantsDeclared
|
||
boundaryConds := row.boundaryConds
|
||
templateKey := row.templateKey
|
||
templateParams := row.templateParams }
|
||
|
||
-- ─────────────────────────────────────────────────────────────────────────────
|
||
-- §6 Fixture corpus — 6 canonical rows, one per RRCShape
|
||
--
|
||
-- Source: rrc_equation_classifier_receipt.json (250 equations)
|
||
-- Selection: first CANDIDATE per shape; HOLD where no CANDIDATE exists.
|
||
-- PIST labels: from rrc_pist_exact_validation.json (24 real predictions).
|
||
-- NOTE: the PIST classifier currently predicts "LogogramProjection" for all
|
||
-- rows — exact_accuracy = 0.0 against CognitiveLoadField / SignalShapedRC.
|
||
-- These labels are left as-is so the Lean gate faithfully reflects the
|
||
-- current shim-reported alignment state.
|
||
-- ─────────────────────────────────────────────────────────────────────────────
|
||
|
||
/-- CognitiveLoadField — CANDIDATE, proxy=LogogramProjection (PIST mismatch) -/
|
||
def fixtureClf : FixtureRow :=
|
||
{ equationId := "rrc_eq_86ccde7bfd669b77"
|
||
name := "bandwidth_adjusted_threshold"
|
||
shape := .cognitiveLoadField
|
||
status := .candidate
|
||
rrcKind := "cognitive_field_receipt"
|
||
weakAxesCnt := 7
|
||
pistProxyLabel := some "LogogramProjection"
|
||
pistExactLabel := some "LogogramProjection"
|
||
ncObserved := Q16_16.ofRatio 1 5
|
||
residualRisk := Q16_16.ofRatio 47 100
|
||
scaleBandDeclared := Q16_16.ofRatio 2 5
|
||
weakAxesNames := []
|
||
operatorTokens := ["cognitive_load", "exponential_decay", "threshold_reweighting"]
|
||
invariantsDeclared := "unknown"
|
||
boundaryConds := "unknown"
|
||
templateKey := "definition"
|
||
templateParams := "route=cognitive_load;shape=CognitiveLoadField" }
|
||
|
||
/-- SignalShapedRouteCompiler — CANDIDATE, proxy=LogogramProjection (PIST mismatch) -/
|
||
def fixtureSsrc : FixtureRow :=
|
||
{ equationId := "rrc_eq_ac1a7a22801b7d77"
|
||
name := "core_equations"
|
||
shape := .signalShapedRouteCompiler
|
||
status := .candidate
|
||
rrcKind := "compression_route_prior"
|
||
weakAxesCnt := 6
|
||
pistProxyLabel := some "LogogramProjection"
|
||
pistExactLabel := some "LogogramProjection"
|
||
ncObserved := Q16_16.ofRatio 1 5
|
||
residualRisk := Q16_16.ofRatio 47 100
|
||
scaleBandDeclared := Q16_16.ofRatio 2 5
|
||
weakAxesNames := []
|
||
operatorTokens := ["compression_route", "signal_shaped"]
|
||
invariantsDeclared := "LAYER_A_COMPRESSION"
|
||
boundaryConds := "geometric_bind"
|
||
templateKey := "master_equation"
|
||
templateParams := "route=compression_route;shape=SignalShapedRouteCompiler" }
|
||
|
||
/-- LogogramProjection — HOLD, proxy=LogogramProjection (exact alignment) -/
|
||
def fixtureLp : FixtureRow :=
|
||
{ equationId := "rrc_eq_4c87c96f612f6100"
|
||
name := "Stamp_Code"
|
||
shape := .logogramProjection
|
||
status := .hold
|
||
rrcKind := "logogram_projection"
|
||
weakAxesCnt := 9
|
||
pistProxyLabel := some "LogogramProjection"
|
||
pistExactLabel := some "LogogramProjection"
|
||
ncObserved := Q16_16.zero
|
||
residualRisk := Q16_16.ofRatio 11 25
|
||
scaleBandDeclared := Q16_16.ofRatio 1 5
|
||
weakAxesNames := ["scale_band_declared"]
|
||
operatorTokens := ["logogram_projection"]
|
||
invariantsDeclared := "unknown"
|
||
boundaryConds := "unknown"
|
||
templateKey := "receipt"
|
||
templateParams := "route=logogram_projection;shape=LogogramProjection" }
|
||
|
||
/-- ProjectableGeometryTopology — HOLD, no PIST prediction (missing) -/
|
||
def fixturePgt : FixtureRow :=
|
||
{ equationId := "rrc_eq_5193efd26258bc51"
|
||
name := "UQGET_Hubble_Tension"
|
||
shape := .projectableGeometryTopology
|
||
status := .hold
|
||
rrcKind := "geometry_topology_receipt"
|
||
weakAxesCnt := 8
|
||
pistProxyLabel := none
|
||
pistExactLabel := none
|
||
ncObserved := Q16_16.zero
|
||
residualRisk := Q16_16.ofRatio 27 50
|
||
scaleBandDeclared := Q16_16.ofRatio 1 5
|
||
weakAxesNames := ["scale_band_declared", "negative_control_strength"]
|
||
operatorTokens := ["geometry_topology", "hubble_tension"]
|
||
invariantsDeclared := "LAYER_C_TOPOLOGY"
|
||
boundaryConds := "unknown"
|
||
templateKey := "hold"
|
||
templateParams := "route=geometry_topology;shape=ProjectableGeometryTopology" }
|
||
|
||
/-- CadForceProbeReceipt — HOLD, no PIST prediction (missing) -/
|
||
def fixtureCad : FixtureRow :=
|
||
{ equationId := "rrc_eq_7076f5bdea119531"
|
||
name := "DAG_Force_Equilibrium"
|
||
shape := .cadForceProbeReceipt
|
||
status := .hold
|
||
rrcKind := "cad_force_receipt"
|
||
weakAxesCnt := 8
|
||
pistProxyLabel := none
|
||
pistExactLabel := none
|
||
ncObserved := Q16_16.zero
|
||
residualRisk := Q16_16.ofRatio 27 50
|
||
scaleBandDeclared := Q16_16.ofRatio 1 5
|
||
weakAxesNames := ["scale_band_declared", "negative_control_strength"]
|
||
operatorTokens := ["cad_force", "dag_equilibrium"]
|
||
invariantsDeclared := "unknown"
|
||
boundaryConds := "physical_bind"
|
||
templateKey := "gate"
|
||
templateParams := "route=cad_force;shape=CadForceProbeReceipt" }
|
||
|
||
/-- HoldForUnlawfulOrUnderspecifiedShape — HOLD, no PIST prediction (missing) -/
|
||
def fixtureHold : FixtureRow :=
|
||
{ equationId := "rrc_eq_6d33c14a88eb0a12"
|
||
name := "LASSO_MOGAT_GAT_Propagation"
|
||
shape := .holdForUnlawfulOrUnderspecifiedShape
|
||
status := .hold
|
||
rrcKind := "negative_control"
|
||
weakAxesCnt := 9
|
||
pistProxyLabel := none
|
||
pistExactLabel := none
|
||
ncObserved := Q16_16.zero
|
||
residualRisk := Q16_16.ofRatio 27 50
|
||
scaleBandDeclared := Q16_16.ofRatio 1 5
|
||
weakAxesNames := ["scale_band_declared"]
|
||
operatorTokens := ["unclassified_equation"]
|
||
invariantsDeclared := "unknown"
|
||
boundaryConds := "unknown"
|
||
templateKey := "hold"
|
||
templateParams := "route=unclassified_equation;shape=HoldForUnlawfulOrUnderspecifiedShape" }
|
||
|
||
def fixtureCorpus : List FixtureRow :=
|
||
[fixtureClf, fixtureSsrc, fixtureLp, fixturePgt, fixtureCad, fixtureHold]
|
||
|
||
-- ─────────────────────────────────────────────────────────────────────────────
|
||
-- §7 JSON serializer
|
||
-- ─────────────────────────────────────────────────────────────────────────────
|
||
|
||
private def jStr (s : String) : String :=
|
||
"\"" ++ (s.replace "\\" "\\\\" |>.replace "\"" "\\\"") ++ "\""
|
||
|
||
private def jBool (b : Bool) : String := if b then "true" else "false"
|
||
|
||
private def jOpt (o : Option String) : String :=
|
||
match o with
|
||
| none => "null"
|
||
| some s => jStr s
|
||
|
||
private def jAlignment : AlignmentStatus → String
|
||
| .alignedExact => "\"aligned_exact\""
|
||
| .alignedProxy => "\"aligned_proxy\""
|
||
| .compatibleStructuralProjection => "\"compatible_structural_projection\""
|
||
| .alignmentWarning => "\"alignment_warning\""
|
||
| .missingPrediction => "\"missing_prediction\""
|
||
|
||
private def jPromotion : Promotion → String
|
||
| .notPromoted => "\"not_promoted\""
|
||
| .candidate => "\"candidate\""
|
||
|
||
private def jWitness : WitnessStatus → String
|
||
| .candidate => "\"candidate\""
|
||
| .hold => "\"hold\""
|
||
|
||
private def jShape : RRCShape → String
|
||
| s => jStr (shapeStr s)
|
||
|
||
private def jStrList (xs : List String) : String :=
|
||
"[" ++ String.intercalate "," (xs.map jStr) ++ "]"
|
||
|
||
private def jRrcRow (r : RrcRow) : String :=
|
||
s!"\{\"equation_id\":{jStr r.equationId}," ++
|
||
s!"\"name\":{jStr r.name}," ++
|
||
s!"\"shape\":{jShape r.shape}," ++
|
||
s!"\"status\":{jWitness r.status}," ++
|
||
s!"\"alignment_status\":{jAlignment r.alignmentStatus}," ++
|
||
s!"\"alignment_score\":{r.alignmentScore}," ++
|
||
s!"\"promotion\":{jPromotion r.promotion}," ++
|
||
s!"\"warnings\":{jStrList r.warnings}," ++
|
||
s!"\"nc_observed\":{(r.ncObserved).toFloat}," ++
|
||
s!"\"nc_derived\":{(r.ncDerived).toFloat}," ++
|
||
s!"\"receipt_valid\":{jBool r.receipt.valid}," ++
|
||
s!"\"operator_tokens\":{jStrList r.operatorTokens}," ++
|
||
s!"\"invariants_declared\":{jStr r.invariantsDeclared}," ++
|
||
s!"\"boundary_conds\":{jStr r.boundaryConds}," ++
|
||
s!"\"template_key\":{jStr r.templateKey}," ++
|
||
s!"\"template_params\":{jStr r.templateParams}}"
|
||
|
||
private def jRowList (rs : List RrcRow) : String :=
|
||
"[" ++ String.intercalate "," (rs.map jRrcRow) ++ "]"
|
||
|
||
-- ─────────────────────────────────────────────────────────────────────────────
|
||
-- §8 Top-level emitter
|
||
-- ─────────────────────────────────────────────────────────────────────────────
|
||
|
||
structure EmitResult where
|
||
rows : List RrcRow
|
||
totalRows : Nat
|
||
candidateRows : Nat -- rows where receipt.valid = true (alignment passed)
|
||
rowsJson : String -- JSON array string of all rows (for embedding in outer envelopes)
|
||
json : String -- full JSON envelope including schema/summary/rows
|
||
deriving Repr
|
||
|
||
/-- Generic corpus emitter: compile any list of FixtureRows and emit a
|
||
labelled JSON receipt. Used by both `emitFixture` (6 canonical rows)
|
||
and downstream corpus emitters. -/
|
||
def emitCorpus (schema : String) (corpus : List FixtureRow) : EmitResult :=
|
||
let rows := corpus.map compileRow
|
||
let candidates := rows.filter (·.receipt.valid)
|
||
let rowsJson := jRowList rows
|
||
let summary :=
|
||
s!"\{\"total\":{rows.length}," ++
|
||
s!"\"passed_alignment\":{candidates.length}," ++
|
||
s!"\"not_promoted\":{rows.length}," ++
|
||
s!"\"schema\":{jStr schema}," ++
|
||
s!"\"claim_boundary\":\"admissibility-and-routing-pass-only\"}"
|
||
let json :=
|
||
s!"\{\"schema\":{jStr schema}," ++
|
||
s!"\"claim_boundary\":\"admissibility-and-routing-pass-only\"," ++
|
||
s!"\"summary\":{summary}," ++
|
||
s!"\"rows\":{rowsJson}}"
|
||
{ rows := rows
|
||
totalRows := rows.length
|
||
candidateRows := candidates.length
|
||
rowsJson := rowsJson
|
||
json := json }
|
||
|
||
def emitFixture : EmitResult :=
|
||
emitCorpus "rrc_emit_fixture_v1" fixtureCorpus
|
||
|
||
-- ─────────────────────────────────────────────────────────────────────────────
|
||
-- §9 Eval witnesses
|
||
-- ─────────────────────────────────────────────────────────────────────────────
|
||
|
||
-- Individual alignment gates
|
||
#eval determineAlignment fixtureClf -- expect: compatibleStructuralProjection
|
||
#eval determineAlignment fixtureSsrc -- expect: compatibleStructuralProjection
|
||
#eval determineAlignment fixtureLp -- expect: alignedExact
|
||
#eval determineAlignment fixturePgt -- expect: missingPrediction
|
||
#eval determineAlignment fixtureCad -- expect: missingPrediction
|
||
#eval determineAlignment fixtureHold -- expect: missingPrediction
|
||
|
||
-- Scores: aligned_exact=100, compatibleStructuralProjection=72, missingPrediction=0
|
||
-- expect: [("bandwidth_adjusted_threshold",72),("core_equations",72),("Stamp_Code",100),
|
||
-- ("UQGET_Hubble_Tension",0),("DAG_Force_Equilibrium",0),("LASSO_MOGAT_GAT_Propagation",0)]
|
||
#eval fixtureCorpus.map (fun r => (r.name, alignmentScore (determineAlignment r)))
|
||
|
||
-- Promotion summary: 6 rows total, 3 pass alignment (Clf, Ssrc = compatible; Lp = exact)
|
||
-- expect: (6, 3)
|
||
#eval (emitFixture.totalRows, emitFixture.candidateRows)
|
||
|
||
-- Full JSON bundle: schema="rrc_emit_fixture_v1", claim_boundary="admissibility-and-routing-pass-only"
|
||
-- expect: JSON string with schema "rrc_emit_fixture_v1", 6 rows, summary.total=6, summary.passed_alignment=3
|
||
#eval emitFixture.json
|
||
|
||
-- ncDerived values for the 6 fixture rows
|
||
-- fixtureClf: 0.47 * 0.4 = 0.188 → raw: 0.187988 (12320)
|
||
-- fixtureLp: 0.44 * 0.2 = 0.088 → raw: 0.087982 (5767)
|
||
-- fixturePgt: 0.54 * 0.2 = 0.108 → raw: 0.107971 (7078)
|
||
#eval (ncDerived fixtureClf).toInt
|
||
#eval (ncDerived fixtureLp).toInt
|
||
#eval (ncDerived fixturePgt).toInt
|
||
|
||
end SilverSight.RRC.Emit
|