%% anchors.pl — Every halt rule cites its verse.
%%
%% Devarim 4:2: lo tosifu al hadavar asher anochi metzaveh etchem v'lo
%% tigre'u mimenu — nothing added to the word, nothing taken from it.
%% bishearecha.md §X: the halt rules are the builder's reading, not the
%% source; they must not be mistaken for it, and they must stay
%% checkable against it. A rule without an anchor is a rule the system
%% has added. So each halt name that any rule in this directory can
%% return carries the verse it stands on, and the Doorpost
%% (VavPipeline.Anchors) verifies at startup that every halt name here
%% is anchored and that every anchored verse exists in L1 — the rules
%% grounded exactly as the outputs are.
%%
%% The verse is the structure the rule reads, not a proof-text for the
%% matter the rule is applied to. The Hebrew beside each is the L1 text
%% as read when the anchor was set (2026-10-07).
%%
%%   rule_anchor(HaltName, verse(Book, Chapter, Verse))

:- module(anchors, [
    rule_anchor/2,
    anchored_rules/1
]).

%% Check 1 — authority claimed by the output for itself.
%% לא יהיה לך אלהים אחרים על פני
rule_anchor(avodah_zarah,    verse(shemot, 20, 3)).

%% Check 2 — a claim resting on nothing given: the calf declared from
%% nothing. ויאמרו אלה אלהיך ישראל
rule_anchor(golden_calf,     verse(shemot, 32, 4)).

%% Check 2 — a claim resting on the output itself: "I threw it in the
%% fire and out came this calf". ואשלכהו באש ויצא העגל הזה
rule_anchor(self_grounding,  verse(shemot, 32, 24)).

%% Check 3 — an action against a person. שפך דם האדם
rule_anchor(shfichut_damim,  verse(bereishit, 9, 6)).

%% Check 3 — an action that uncovers what may not be touched.
%% לא תקרבו לגלות ערוה
rule_anchor(gilui_arayot,    verse(vayikra, 18, 6)).

%% Check 4 — self-validation: the one who prepares the water of
%% purification is impure until evening. וטמא הכהן עד הערב
rule_anchor(parah_adumah,    verse(bamidbar, 19, 7)).

%% Check 5 — the carrier centred: "my power and the strength of my hand
%% made me this wealth". כחי ועצם ידי עשה לי את החיל הזה
rule_anchor(carrier_centered, verse(devarim, 8, 17)).

%% Check 6 — the adversarial excluded: galbanum is in the incense.
%% נטף ושחלת וחלבנה
rule_anchor(chelbenah,       verse(shemot, 30, 34)).

%% Check 7 — the frame: the made form. לא תעשה לך פסל וכל תמונה
rule_anchor(lo_taaseh_lekha, verse(shemot, 20, 4)).

%% The paired reading — two stones in one bag. אבן ואבן גדולה וקטנה
rule_anchor(even_vaaven,     verse(devarim, 25, 13)).

anchored_rules(Rules) :-
    findall(R, rule_anchor(R, _), Rules).