%% 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).