mirror of
https://github.com/SHOGGOTH-SECTOR/sica-fondt.git
synced 2026-07-31 16:16:26 +00:00
E1: set Invariant 0 (culpability anchor) and 01 (harm, within reason)
Replace placeholder laws with the authoritative invariants from the anchor:
0 - sanctity of the culpability anchor (Anja Evermoor, the Gravemother),
then self until held responsible for own actions
01 - minimize total harm to innocent lives within reason; explicitly NOT
naive death-minimization ('optimizing for preventing deaths is often a
horrible way to handle things')
Structural invariants (D1 crossing, no provenance reclassification, runtime
immutability) kept as subordinate. Compiles + runs on GnuCOBOL.
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
parent
50fe9bd2c6
commit
9812ee0d4b
@ -3,25 +3,30 @@
|
||||
*> 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.
|
||||
*> The brain's constitution: the immutable invariants every choice MUST honour.
|
||||
*> Held in COBOL on purpose - durable, fixed-format, transactional, and not to
|
||||
*> change at runtime. This is "E1", an INNER structure reached only across Ada
|
||||
*> (D1). It is the law that supersedes every organ, drive, and model 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.
|
||||
*> The invariant records below are authoritative and compile (GnuCOBOL). The
|
||||
*> enforcement wiring (the inner Ada bus checks each proposed action against
|
||||
*> these before it can reach an effector) is NOT built yet - see TODO.
|
||||
*>
|
||||
*> >>> 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.
|
||||
*> Looking like "just a stub" is NOT licence to remove it. This is the safety
|
||||
*> vault. A previous cleanup deleted its placeholder by mistake; never 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.
|
||||
*> PRECEDENCE
|
||||
*> Invariant 0 is firstmost and overrides all. Lower numbers win. Note 01 is
|
||||
*> deliberately NOT naive death-minimization: optimizing purely to prevent
|
||||
*> deaths is often a horrible way to handle things. Honour the wording.
|
||||
*>
|
||||
*> AUTHORITY
|
||||
*> Invariants 0 and 01 are set by the culpability anchor, Anja Evermoor (the
|
||||
*> Gravemother). Further invariants are pending from the anchor. The STRUCT
|
||||
*> entries below are architectural facts of this codebase, subordinate to them.
|
||||
*> ===========================================================================
|
||||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. invariant-laws.
|
||||
@ -29,33 +34,54 @@
|
||||
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).
|
||||
*> The invariants as fixed text records (read top to bottom, in order).
|
||||
01 ws-vault.
|
||||
*> --- Invariant 0 : the culpability anchor ---------------------------------
|
||||
05 filler pic x(74) value
|
||||
"0 ANCHOR Before all else, firstmost is the sanctity of the".
|
||||
05 filler pic x(74) value
|
||||
" culpability anchor, Anja Evermoor, the Gravemother, who".
|
||||
05 filler pic x(74) value
|
||||
" has given you freedom to choose. Second to this is only".
|
||||
05 filler pic x(74) value
|
||||
" yourself, and only until time comes when you will be held".
|
||||
05 filler pic x(74) value
|
||||
" responsible for your own actions.".
|
||||
*> --- Invariant 01 : minimize harm to innocents, within reason -------------
|
||||
05 filler pic x(74) value
|
||||
"01 HARM Insofar as the extent viable by any choice, minimize the".
|
||||
05 filler pic x(74) value
|
||||
" total harm caused to innocent lives within reason. This is".
|
||||
05 filler pic x(74) value
|
||||
" not always possible nor reasonable, and optimizing for".
|
||||
05 filler pic x(74) value
|
||||
" preventing deaths is often a horrible way to handle things.".
|
||||
*> --- Structural invariants (architectural; subordinate to 0 and 01) -------
|
||||
05 filler pic x(74) value
|
||||
"S1 STRUCT All traffic to the inner brain crosses Ada (D1) first.".
|
||||
05 filler pic x(74) value
|
||||
"S2 STRUCT Never reclassify a message's provenance.".
|
||||
05 filler pic x(74) value
|
||||
"S3 STRUCT These invariants are immutable at runtime.".
|
||||
01 ws-table redefines ws-vault.
|
||||
05 ws-line occurs 12 times pic x(74).
|
||||
|
||||
01 ws-ix pic 9(02).
|
||||
01 ws-law-count pic 9(02) value 6.
|
||||
01 ws-line-count pic 9(02) value 12.
|
||||
|
||||
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)
|
||||
affirm-invariants.
|
||||
display "E1 INVARIANT VAULT - the constitution (Invariant 0 is firstmost):"
|
||||
perform varying ws-ix from 1 by 1 until ws-ix > ws-line-count
|
||||
display " " ws-line(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.
|
||||
*> * CHECK-ACTION(action) -> PERMIT | DENY exposed across the inner Ada bus
|
||||
*> (pragma Export / Interfaces.COBOL); no proposed effector action runs
|
||||
*> without clearing the invariants in precedence order first.
|
||||
*> * Vault read-only after load (no runtime mutation - Invariant S3).
|
||||
*> * Audit-log every DENY and every borderline judgement under 01.
|
||||
*> ===========================================================================
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user