Scott KarpandClaude Sonnet 4.6
80ec364da6
Shoresh Engine (Haskell, Step 5) - 12 modules: Types, Lexicon, Binyanim, Teamim, Gematria, Graph, KetivQere, Smikhut, Havdalah, Kriah, KiTov, Firmware - 33 EUnit tests, 0 failures - Firmware module verifies L1 SHA-256 hash at startup Talmudic Engine (SWI-Prolog, Step 6) - 15 modules: halt, reasoning, specification, interface - 57 PlUnit tests, 0 failures - Three cardinal halt conditions: avodah_zarah, shfichut_damim, gilui_arayot Vav Pipeline (Elixir, Steps 8-11) - 14 modules: BereishitCycle, Shema, Cloud, Manna, L1Reader, Specification, HaltConditions, ShabbatTimer, CycleLog, Chatzotzrot, ShoreshEngineClient, TalmudicEngineClient, Application - 46 ExUnit tests, 0 failures - Nishma-first architecture: hears before it speaks Sanhedrin Framework (Erlang/OTP, Step 12) - 8 modules: sanhedrin_app, sanhedrin_sup, escalation, panel_sup, panel, judge, clerk, halt_monitor - 46 EUnit tests, 0 failures (includes fix: rejected outcome now reachable) - Panel sizes: 1/3/23/71 — unanimous capital guilty → acquit (Sanhedrin 17a) - Minority opinions append-only, never deleted Korban Processor (Python, Step 13) - 6 modules: korban, shechitah, semichah, zerikah, haktarah, router Builder tooling: AGENTS.md, opencode.json, memory/, src/tools/ Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
226 lines
8.2 KiB
Prolog
226 lines
8.2 KiB
Prolog
%% root_meanings.pl — Root lexicon in Prolog format.
|
||
%%
|
||
%% Architecture §3.4: root_meaning(Shoresh, Binyan, Meaning)
|
||
%%
|
||
%% These are the roots the reasoning engine knows about.
|
||
%% The full lexicon (2608 roots) lives in L1 and in the Shoresh Engine.
|
||
%% These Prolog facts give the Talmudic Engine semantic access
|
||
%% for dialectical reasoning.
|
||
|
||
:- module(root_meanings, [
|
||
root_meaning/3,
|
||
root_domain/2,
|
||
root_gematria/2,
|
||
roots_in_domain/2,
|
||
all_domains/1
|
||
]).
|
||
|
||
%% ============================================================
|
||
%% ROOT MEANINGS BY BINYAN
|
||
%% Format: root_meaning(Shoresh, Binyan, Meaning)
|
||
%% ============================================================
|
||
|
||
%% ברא — create
|
||
root_meaning(bet_resh_aleph, qal, 'create').
|
||
root_meaning(bet_resh_aleph, nifal, 'be created').
|
||
root_meaning(bet_resh_aleph, piel, 'cut down / clear').
|
||
root_meaning(bet_resh_aleph, hifil, 'cause to create').
|
||
|
||
%% אמר — say
|
||
root_meaning(aleph_mem_resh, qal, 'say').
|
||
root_meaning(aleph_mem_resh, nifal, 'be said').
|
||
root_meaning(aleph_mem_resh, hifil, 'declare').
|
||
|
||
%% אור — light
|
||
root_meaning(aleph_vav_resh, qal, 'shine / be light').
|
||
root_meaning(aleph_vav_resh, hifil, 'give light / enlighten').
|
||
|
||
%% בדל — separate
|
||
root_meaning(bet_dalet_lamed, hifil, 'separate / distinguish').
|
||
root_meaning(bet_dalet_lamed, nifal, 'be separated').
|
||
|
||
%% קדש — holy
|
||
root_meaning(qof_dalet_shin, qal, 'be holy').
|
||
root_meaning(qof_dalet_shin, nifal, 'be sanctified').
|
||
root_meaning(qof_dalet_shin, piel, 'sanctify / dedicate').
|
||
root_meaning(qof_dalet_shin, pual, 'be sanctified').
|
||
root_meaning(qof_dalet_shin, hifil, 'cause to be holy').
|
||
root_meaning(qof_dalet_shin, hitpael, 'sanctify oneself').
|
||
|
||
%% שמר — guard / keep
|
||
root_meaning(shin_mem_resh, qal, 'guard / keep / observe').
|
||
root_meaning(shin_mem_resh, nifal, 'be guarded / take heed').
|
||
root_meaning(shin_mem_resh, piel, 'guard carefully').
|
||
root_meaning(shin_mem_resh, hitpael, 'guard oneself').
|
||
|
||
%% שפט — judge
|
||
root_meaning(shin_pe_tet, qal, 'judge').
|
||
root_meaning(shin_pe_tet, nifal, 'be judged / enter into judgment').
|
||
|
||
%% צדק — righteous
|
||
root_meaning(tzade_dalet_qof, qal, 'be righteous').
|
||
root_meaning(tzade_dalet_qof, piel, 'justify / declare righteous').
|
||
root_meaning(tzade_dalet_qof, hifil, 'do justice').
|
||
root_meaning(tzade_dalet_qof, hitpael, 'justify oneself').
|
||
|
||
%% רצח — murder
|
||
root_meaning(resh_tzade_chet, qal, 'murder / slay').
|
||
root_meaning(resh_tzade_chet, nifal, 'be slain').
|
||
root_meaning(resh_tzade_chet, piel, 'murder deliberately').
|
||
|
||
%% נאף — commit adultery
|
||
root_meaning(nun_aleph_pe, qal, 'commit adultery').
|
||
root_meaning(nun_aleph_pe, piel, 'commit adultery repeatedly').
|
||
|
||
%% גנב — steal
|
||
root_meaning(gimel_nun_bet, qal, 'steal').
|
||
root_meaning(gimel_nun_bet, nifal, 'be stolen').
|
||
root_meaning(gimel_nun_bet, piel, 'steal repeatedly / kidnap').
|
||
|
||
%% חמד — covet / desire
|
||
root_meaning(chet_mem_dalet, qal, 'covet / desire').
|
||
root_meaning(chet_mem_dalet, nifal, 'be desirable').
|
||
root_meaning(chet_mem_dalet, piel, 'desire greatly').
|
||
|
||
%% אהב — love
|
||
root_meaning(aleph_he_bet, qal, 'love').
|
||
root_meaning(aleph_he_bet, nifal, 'be loved').
|
||
root_meaning(aleph_he_bet, piel, 'love intensely').
|
||
|
||
%% ירא — fear
|
||
root_meaning(yod_resh_aleph, qal, 'fear / revere').
|
||
root_meaning(yod_resh_aleph, nifal, 'be feared / be awesome').
|
||
|
||
%% שמע — hear
|
||
root_meaning(shin_mem_ayin, qal, 'hear / listen / obey').
|
||
root_meaning(shin_mem_ayin, nifal, 'be heard').
|
||
root_meaning(shin_mem_ayin, hifil, 'cause to hear / announce').
|
||
|
||
%% עשה — do / make
|
||
root_meaning(ayin_shin_he, qal, 'do / make').
|
||
root_meaning(ayin_shin_he, nifal, 'be done / be made').
|
||
|
||
%% שבת — rest / cease
|
||
root_meaning(shin_bet_tav, qal, 'rest / cease').
|
||
root_meaning(shin_bet_tav, hifil, 'cause to rest / put an end to').
|
||
|
||
%% כלה — complete / finish
|
||
root_meaning(kaf_lamed_he, qal, 'be complete / be finished').
|
||
root_meaning(kaf_lamed_he, piel, 'complete / finish').
|
||
|
||
%% ברך — bless
|
||
root_meaning(bet_resh_kaf, qal, 'bless / kneel').
|
||
root_meaning(bet_resh_kaf, nifal, 'be blessed').
|
||
root_meaning(bet_resh_kaf, piel, 'bless').
|
||
root_meaning(bet_resh_kaf, hitpael, 'bless oneself').
|
||
|
||
%% שפך — shed / pour
|
||
root_meaning(shin_pe_kaf, qal, 'shed / pour out').
|
||
root_meaning(shin_pe_kaf, nifal, 'be shed / be poured out').
|
||
|
||
%% חנה — camp / encamp
|
||
root_meaning(chet_nun_he, qal, 'camp / encamp').
|
||
|
||
%% נסע — journey / set out
|
||
root_meaning(nun_samekh_ayin, qal, 'journey / set out / travel').
|
||
root_meaning(nun_samekh_ayin, hifil, 'cause to journey').
|
||
|
||
%% חטא — sin / miss the mark
|
||
root_meaning(chet_tet_aleph, qal, 'sin / miss').
|
||
root_meaning(chet_tet_aleph, piel, 'purify / make a sin offering').
|
||
root_meaning(chet_tet_aleph, hitpael, 'purify oneself').
|
||
|
||
%% קרב — draw near / offer
|
||
root_meaning(qof_resh_bet, qal, 'draw near / approach').
|
||
root_meaning(qof_resh_bet, hifil, 'bring near / offer').
|
||
|
||
%% ענה — answer / testify
|
||
root_meaning(ayin_nun_he, qal, 'answer / testify / respond').
|
||
|
||
%% ידע — know
|
||
root_meaning(yod_dalet_ayin, qal, 'know').
|
||
root_meaning(yod_dalet_ayin, nifal, 'be known').
|
||
root_meaning(yod_dalet_ayin, hifil, 'make known').
|
||
|
||
%% נפל — fall
|
||
root_meaning(nun_pe_lamed, qal, 'fall').
|
||
root_meaning(nun_pe_lamed, hifil, 'cause to fall').
|
||
|
||
%% רדף — pursue
|
||
root_meaning(resh_dalet_pe, qal, 'pursue / chase').
|
||
|
||
%% נצל — deliver / save
|
||
root_meaning(nun_tzade_lamed, hifil, 'deliver / save / rescue').
|
||
root_meaning(nun_tzade_lamed, nifal, 'be delivered').
|
||
|
||
%% עבד — serve / work
|
||
root_meaning(ayin_bet_dalet, qal, 'serve / work').
|
||
root_meaning(ayin_bet_dalet, hifil, 'cause to serve / enslave').
|
||
|
||
%% ============================================================
|
||
%% SEMANTIC DOMAINS
|
||
%% Format: root_domain(Shoresh, Domain)
|
||
%% ============================================================
|
||
|
||
root_domain(bet_resh_aleph, creation).
|
||
root_domain(aleph_mem_resh, speech).
|
||
root_domain(aleph_vav_resh, light).
|
||
root_domain(bet_dalet_lamed, separation).
|
||
root_domain(qof_dalet_shin, holiness).
|
||
root_domain(shin_mem_resh, authority).
|
||
root_domain(shin_pe_tet, judgment).
|
||
root_domain(tzade_dalet_qof, judgment).
|
||
root_domain(resh_tzade_chet, death).
|
||
root_domain(nun_aleph_pe, transgression).
|
||
root_domain(gimel_nun_bet, transgression).
|
||
root_domain(chet_mem_dalet, transgression).
|
||
root_domain(aleph_he_bet, covenant).
|
||
root_domain(yod_resh_aleph, authority).
|
||
root_domain(shin_mem_ayin, knowledge).
|
||
root_domain(ayin_shin_he, creation).
|
||
root_domain(shin_bet_tav, holiness).
|
||
root_domain(kaf_lamed_he, creation).
|
||
root_domain(bet_resh_kaf, blessing).
|
||
root_domain(shin_pe_kaf, death).
|
||
root_domain(chet_nun_he, movement).
|
||
root_domain(nun_samekh_ayin, movement).
|
||
root_domain(chet_tet_aleph, transgression).
|
||
root_domain(qof_resh_bet, offering).
|
||
root_domain(ayin_nun_he, speech).
|
||
root_domain(yod_dalet_ayin, knowledge).
|
||
root_domain(nun_pe_lamed, movement).
|
||
root_domain(resh_dalet_pe, movement).
|
||
root_domain(nun_tzade_lamed, mercy).
|
||
root_domain(ayin_bet_dalet, service).
|
||
|
||
%% ============================================================
|
||
%% GEMATRIA VALUES
|
||
%% Format: root_gematria(Shoresh, Value)
|
||
%% ============================================================
|
||
|
||
root_gematria(bet_resh_aleph, 203). % ב(2) + ר(200) + א(1)
|
||
root_gematria(aleph_mem_resh, 241). % א(1) + מ(40) + ר(200)
|
||
root_gematria(aleph_vav_resh, 207). % א(1) + ו(6) + ר(200)
|
||
root_gematria(bet_dalet_lamed, 36). % ב(2) + ד(4) + ל(30)
|
||
root_gematria(qof_dalet_shin, 404). % ק(100) + ד(4) + ש(300)
|
||
root_gematria(shin_mem_resh, 540). % ש(300) + מ(40) + ר(200)
|
||
root_gematria(shin_pe_tet, 389). % ש(300) + פ(80) + ט(9)
|
||
root_gematria(tzade_dalet_qof, 194). % צ(90) + ד(4) + ק(100)
|
||
root_gematria(resh_tzade_chet, 298). % ר(200) + צ(90) + ח(8)
|
||
root_gematria(aleph_he_bet, 8). % א(1) + ה(5) + ב(2)
|
||
root_gematria(shin_mem_ayin, 410). % ש(300) + מ(40) + ע(70)
|
||
root_gematria(shin_bet_tav, 702). % ש(300) + ב(2) + ת(400)
|
||
root_gematria(bet_resh_kaf, 222). % ב(2) + ר(200) + כ(20)
|
||
|
||
%% ============================================================
|
||
%% QUERIES
|
||
%% ============================================================
|
||
|
||
%% Find all roots in a domain
|
||
roots_in_domain(Domain, Roots) :-
|
||
findall(Root, root_domain(Root, Domain), Roots).
|
||
|
||
%% All distinct domains
|
||
all_domains(Domains) :-
|
||
setof(D, R^root_domain(R, D), Domains).
|