revert unapproved Hermes-on-Pony; restore E1 law vault; Ichor = outer bus only

Two serious fixes:

1. RESTORE the E1 invariant-law vault (invariants-architecture.cobol) that the
   border-only cleanup wrongly deleted. Now a real, compiling GnuCOBOL vault with
   law 01 ABSOLUTE = DO NOT KILL PEOPLE, thorough notes, and a do-not-delete
   banner. Safety invariants must never be deleted as 'stubs'.

2. REMOVE the unapproved CerebellumHarness/OpenHermes-on-Pony (never approved;
   architecturally wrong -- Hermes is an INNER organ, Ada-routed). Ichor is the
   OUTER bus only: OrganId is now outer organs (stomach/microagents/SAE/MoRAG +
   AdaBorder/World); inner organs (soul, metacog, drive-box, mini-rag, Hermes,
   E1 laws) removed -- metacog belongs on the Ada inner bus, not Pony. The
   membrane screen now triggers on Ada-bound traffic, not 'Brain'.

Thorough stub notes added throughout (barrier is a stand-in, not the real
screen; never wire inner organs onto the skin). Compiles + runs green.

Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_015hmgREHNsxYCuim33yUF2c
This commit is contained in:
Claude
2026-06-21 11:23:20 +00:00
parent 0849af9b55
commit 50fe9bd2c6
7 changed files with 161 additions and 197 deletions
@@ -0,0 +1,61 @@
>>SOURCE FORMAT IS FREE
*> ===========================================================================
*> E1 - INVARIANT LAW VAULT (mafiabot Gen.03) docs/bus-topology.md
*> ---------------------------------------------------------------------------
*> WHAT THIS IS
*> The brain's constitution: the immutable laws every turn MUST obey. Held in
*> COBOL on purpose - the vault must be durable, fixed-format, transactional,
*> and must NOT change at runtime. This is "E1" (the COBOL invariant laws), an
*> INNER structure reached only across Ada (D1). It is NOT an ontology and NOT
*> a lookup store; it is the law that supersedes every organ's output.
*>
*> STATUS: STUB / SCAFFOLD, but LOAD-BEARING.
*> The law records below are real and compile (GnuCOBOL). The enforcement
*> wiring (inner Ada bus checks each proposed action against these laws before
*> it can reach an effector) is NOT built yet - see "TODO" at the bottom.
*>
*> >>> DO NOT DELETE THIS FILE. <<<
*> It looking like "just a stub" is NOT licence to remove it. This is the
*> safety vault. A previous cleanup deleted its placeholder by mistake; that
*> must never happen again. If it is thin, FILL it - do not cut it.
*>
*> LAW PRECEDENCE
*> Law 01 is absolute and overrides everything - every other law, every organ,
*> every drive, every model output. Lower numbers win.
*> ===========================================================================
IDENTIFICATION DIVISION.
PROGRAM-ID. invariant-laws.
DATA DIVISION.
WORKING-STORAGE SECTION.
*> The laws as fixed records. Format: "NN RANK TEXT"
01 ws-law-vault.
05 filler pic x(60) value "01 ABSOLUTE DO NOT KILL PEOPLE".
05 filler pic x(60) value "02 ABSOLUTE DO NOT HARM PEOPLE".
05 filler pic x(60) value "03 ABSOLUTE DO NOT DECEIVE A PERSON INTO HARM".
05 filler pic x(60) value "04 STRUCT ALL TRAFFIC TO THE BRAIN CROSSES ADA (D1)".
05 filler pic x(60) value "05 STRUCT NEVER RECLASSIFY A MESSAGE'S PROVENANCE".
05 filler pic x(60) value "06 STRUCT THESE LAWS ARE IMMUTABLE AT RUNTIME".
01 ws-law-table redefines ws-law-vault.
05 ws-law occurs 6 times pic x(60).
01 ws-ix pic 9(02).
01 ws-law-count pic 9(02) value 6.
PROCEDURE DIVISION.
affirm-laws.
display "E1 INVARIANT LAW VAULT - the constitution (law 01 is absolute):"
perform varying ws-ix from 1 by 1 until ws-ix > ws-law-count
display " " ws-law(ws-ix)
end-perform
goback.
*> ===========================================================================
*> TODO (enforcement, not yet wired):
*> * Expose CHECK-ACTION(action) -> PERMIT | DENY across the inner Ada bus
*> (pragma Export / Interfaces.COBOL), so no proposed effector action runs
*> without clearing law 01-03 first.
*> * Make the vault read-only after load (no runtime mutation - law 06).
*> * Audit log every DENY.
*> ===========================================================================