eyelang 1.3.8 → 1.4.0

package/README.md

@@ -5,10 +5,10 @@
 
 eyelang is a small rule engine for Prolog-style Horn clauses over ordinary terms, lists, arithmetic, strings, and finite search. The command-line executable is `eyelang`.
 
-Programs write relations directly, for example `ancestor(pat, emma)` or `status(case1, accepted)`. eyelang output is ordinary eyelang syntax: by default, each answer fact is followed by a `why/2` explanation that records the proof. Pass `--no-why` when you want answer facts only. When no `--query` is supplied, the CLI materializes distinct new binary derivations of the form `p(S, O)`, suppresses repeated source facts, and prints each derived answer. Programs may add `materialize(Name, Arity).` declarations to focus default output on selected predicates.
+Programs write relations directly, for example `ancestor(pat, emma)` or `status(case1, accepted)`. eyelang output is ordinary eyelang syntax: by default, it prints answer facts only. Pass `--proof` (or `-p`) when you also want each answer followed by a `why/2` explanation fact that records the proof. When no `--query` is supplied, the CLI materializes distinct new binary derivations of the form `p(S, O)`, suppresses repeated source facts, and prints each derived answer. Programs may add `materialize(Name, Arity).` declarations to focus default output on selected predicates.
 
 
-Try it in the [browser playground](https://eyereasoner.github.io/eyelang/playground). The playground includes run options equivalent to CLI `--query`, `--stats`, and `--no-why`.
+Try it in the [browser playground](https://eyereasoner.github.io/eyelang/playground). The playground includes run options equivalent to CLI `--query`, `--stats`, and `--proof`.
 
 For the normative language definition, including lexical syntax, terms, clauses, goals, built-ins, `memoize/2`, `materialize/2`, and conformance boundaries, read the [eyelang specification](SPEC.md).
 
@@ -63,7 +63,7 @@ bin/eyelang --version
 bin/eyelang -v
 ```
 
-Run a program and let eyelang print derived binary facts with explanations:
+Run a program and let eyelang print derived binary facts:
 
 ```sh
 bin/eyelang examples/ancestor.pl
@@ -75,14 +75,14 @@ Run an explicit query:
 bin/eyelang --query 'ancestor(pat, X)' examples/ancestor.pl
 ```
 
-Suppress proof explanations when you want only answer facts:
+Enable proof explanations when you want machine-readable provenance:
 
 ```sh
-bin/eyelang --no-why --query 'ancestor(pat, X)' examples/ancestor.pl
-bin/eyelang --no-why examples/ancestor.pl
+bin/eyelang --proof --query 'ancestor(pat, X)' examples/ancestor.pl
+bin/eyelang -p examples/ancestor.pl
 ```
 
-eyelang-readable explanations are part of the default output. Each `why/2` fact contains a nested abstract proof term, and a blank line separates consecutive explanations. Using eyelang syntax for explanations keeps them in the same language as the answers themselves: they are readable by humans, parseable by eyelang, easy to test, and can be queried, transformed, or explained further like any other eyelang data. For example:
+eyelang-readable explanations are opt-in proof output. Each `why/2` fact contains a nested abstract proof term, and a blank line separates consecutive explanations. Using eyelang syntax for explanations keeps them in the same language as the answers themselves: they are readable by humans, parseable by eyelang, easy to test, and can be queried, transformed, or explained further like any other eyelang data. For example:
 
 ```prolog
 type(socrates, mortal).
@@ -103,16 +103,16 @@ why(
 
 ```
 
-The explanation output can itself be read as eyelang input and queried, for example `why(type(socrates, mortal), Proof)`. `--no-why` suppresses only these explanation facts; it does not change the answers found by the solver.
+The explanation output can itself be read as eyelang input and queried, for example `why(type(socrates, mortal), Proof)`. `--proof` adds only these explanation facts; it does not change the answers found by the solver.
 
 ### Explanation cookbook
 
-eyelang answers carry their own provenance by default.
+eyelang answers can carry their own provenance when proof output is enabled.
 
 Explain one derived fact:
 
 ```sh
-bin/eyelang --query 'type(socrates, mortal)' examples/socrates.pl
+bin/eyelang --proof --query 'type(socrates, mortal)' examples/socrates.pl
 ```
 
 The output contains the answer and a `why/2` fact. The proof term shows the source rule that produced the answer and the source fact used below it. Source references use `rule("file.pl", clause(N))` and `fact("file.pl", clause(N))`, where `N` is the 1-based clause number in that file.
@@ -153,7 +153,7 @@ Use the `uses([...])` list to follow the proof tree. In the policy example it co
 Reuse explanations as data:
 
 ```sh
-bin/eyelang --query 'type(socrates, mortal)' examples/socrates.pl > socrates.why.pl
+bin/eyelang --proof --query 'type(socrates, mortal)' examples/socrates.pl > socrates.why.pl
 bin/eyelang --query 'why(type(socrates, mortal), Proof)' socrates.why.pl
 ```
 
@@ -266,7 +266,7 @@ Add `--stats` when you want lightweight solver counters on stderr without changi
 bin/eyelang --stats --query 'once(solution(classic, S))' examples/sudoku.pl
 ```
 
-The playground has matching `--stats` and `--no-why` checkboxes, so browser runs can show the same counters or suppress explanations like the CLI.
+The playground has matching `--stats` and `--proof` checkboxes, so browser runs can show the same counters or explanations like the CLI.
 
 
 ### Builtins
@@ -474,13 +474,18 @@ The repository includes examples for recursion, graph reachability, finite searc
 
 ## Golden outputs, tests, and conformance
 
-Golden outputs live in [`examples/output`](examples/output). They include both answer facts and their `why/2` explanations. Example tests pin `local_time/1` to `2026-05-30` so date-dependent examples stay deterministic. Regenerate them after an intentional output or explanation change:
+Golden answer outputs live in [`examples/output`](examples/output). A curated proof-output suite lives in [`examples/proof`](examples/proof). Example tests pin `local_time/1` to `2026-05-30` so date-dependent examples stay deterministic. Regenerate them after an intentional output or explanation change:
 
 ```sh
 for f in examples/*.pl; do
   b=$(basename "$f")
   EYELANG_LOCAL_TIME=2026-05-30 bin/eyelang "$f" > "examples/output/$b"
 done
+
+for f in examples/proof/*.pl; do
+  b=$(basename "$f")
+  EYELANG_LOCAL_TIME=2026-05-30 bin/eyelang --proof "examples/$b" > "examples/proof/$b"
+done
 ```
 
 Run the full test suite:
@@ -525,7 +530,7 @@ For a release:
 2. update `README.md` and `SPEC.md`;
 3. regenerate golden outputs if behavior changed;
 4. run `npm test`;
-5. publish the repository with `playground.html` and `playground-worker.mjs` if publishing the playground. The playground includes controls equivalent to CLI `--query GOAL`, `--stats`, and `--no-why`.
+5. publish the repository with `playground.html` and `playground-worker.mjs` if publishing the playground. The playground includes controls equivalent to CLI `--query GOAL`, `--stats`, and `--proof`.
 
 ## Performance notes
 

package/SPEC.md

@@ -570,13 +570,13 @@ When eyelang derives `ancestor(pat, emma)`, the answer explanation can still ref
 
 ### 12.3 Sockets and AI agents
 
-eyelang Sockets are especially useful for AI-facing systems. An AI agent can extract or propose candidate claims, but those claims should enter a reasoning program as explicit eyelang facts or rules through a declared socket rather than as opaque text. eyelang can then check the claims against other facts and rules, derive consequences, and return ordinary `why/2` explanations.
+eyelang Sockets are especially useful for AI-facing systems. An AI agent can extract or propose candidate claims, but those claims should enter a reasoning program as explicit eyelang facts or rules through a declared socket rather than as opaque text. eyelang can then check the claims against other facts and rules, derive consequences, and optionally return ordinary `why/2` explanations.
 
 This gives a clear division of labor: AI can help generate, translate, and connect knowledge; eyelang can represent, check, and explain the reasoning; sockets define the boundary between them.
 
 ## 13. Output and read-back profile
 
-Normal answer output prints one resolved answer term followed by a period, and by default a `why/2` explanation fact for that answer. Strings are double-quoted; atom constants are quoted when needed; lists use list syntax; compound terms use functor notation. Host interfaces MAY provide an option such as `--no-why` to suppress explanation facts; this option MUST NOT change the answers found.
+Normal answer output prints one resolved answer term followed by a period. Strings are double-quoted; atom constants are quoted when needed; lists use list syntax; compound terms use functor notation. Host interfaces MAY provide an option such as `--proof` to add `why/2` explanation facts; this option MUST NOT change the answers found.
 
 Output SHOULD be accepted as eyelang input when it contains only supported term syntax. Explanations are ordinary eyelang facts, so answer output can be read back and queried by eyelang.
 
@@ -588,11 +588,11 @@ Without `--query`, the host behavior is:
 4. keep only ground answers;
 5. remove answers identical to source facts;
 6. suppress duplicates;
-7. print each answer followed by its `why/2` explanation, unless the host interface was explicitly asked to suppress explanations.
+7. print each answer, followed by its `why/2` explanation only if the host interface was explicitly asked to emit proof output.
 
 ### 13.1 Explanation output
 
-Each answer SHOULD be followed by a machine-readable `why/2` fact unless explanation output is explicitly suppressed by the host interface. Explanation output is ordinary eyelang syntax whose second argument is a nested abstract proof term such as `proof(goal(G), by(Method), bindings(Bindings), uses(Proofs))`; implementations SHOULD print `goal(...)` and `by(...)` on separate lines for readability. A proof term preserves the answer goal, derivation method, relevant bindings, and nested uses while omitting proof IDs. User clauses SHOULD be referenced explicitly as `fact(Filename, clause(N))` or `rule(Filename, clause(N))`, where `N` is the 1-based clause number within that source. Built-ins SHOULD be referenced as `builtin(Name, Arity)` because they do not come from source clauses. Explanation output is outside the logical semantics of the input program and MUST NOT change the set of answers.
+When proof output is enabled, each answer SHOULD be followed by a machine-readable `why/2` fact. Explanation output is ordinary eyelang syntax whose second argument is a nested abstract proof term such as `proof(goal(G), by(Method), bindings(Bindings), uses(Proofs))`; implementations SHOULD print `goal(...)` and `by(...)` on separate lines for readability. A proof term preserves the answer goal, derivation method, relevant bindings, and nested uses while omitting proof IDs. User clauses SHOULD be referenced explicitly as `fact(Filename, clause(N))` or `rule(Filename, clause(N))`, where `N` is the 1-based clause number within that source. Built-ins SHOULD be referenced as `builtin(Name, Arity)` because they do not come from source clauses. Explanation output is outside the logical semantics of the input program and MUST NOT change the set of answers.
 
 ## 14. Conformance profiles
 

package/conformance/expected/core/001_fact_query.out

@@ -1,9 +1 @@
 parent(pat, jan).
-why(
-  parent(pat, jan),
-  proof(
-    goal(parent(pat, jan)),
-    by(fact("001_fact_query.pl", clause(1)))
-  )
-).
-

package/conformance/expected/core/002_rule_recursion.out

@@ -1,43 +1,2 @@
 ancestor(pat, jan).
-why(
-  ancestor(pat, jan),
-  proof(
-    goal(ancestor(pat, jan)),
-    by(rule("002_rule_recursion.pl", clause(3))),
-    bindings([binding("X", pat), binding("Y", jan)]),
-    uses([
-      proof(
-        goal(parent(pat, jan)),
-        by(fact("002_rule_recursion.pl", clause(1)))
-      )
-    ])
-  )
-).
-
 ancestor(pat, emma).
-why(
-  ancestor(pat, emma),
-  proof(
-    goal(ancestor(pat, emma)),
-    by(rule("002_rule_recursion.pl", clause(4))),
-    bindings([binding("X", pat), binding("Z", emma), binding("Y", jan)]),
-    uses([
-      proof(
-        goal(parent(pat, jan)),
-        by(fact("002_rule_recursion.pl", clause(1)))
-      ),
-      proof(
-        goal(ancestor(jan, emma)),
-        by(rule("002_rule_recursion.pl", clause(3))),
-        bindings([binding("X", jan), binding("Y", emma)]),
-        uses([
-          proof(
-            goal(parent(jan, emma)),
-            by(fact("002_rule_recursion.pl", clause(2)))
-          )
-        ])
-      )
-    ])
-  )
-).
-

package/conformance/expected/core/003_terms_and_readback.out

@@ -1,117 +1,13 @@
 value(atom, pat).
-why(
-  value(atom, pat),
-  proof(
-    goal(value(atom, pat)),
-    by(fact("003_terms_and_readback.pl", clause(1)))
-  )
-).
-
 value(quoted_atom, 'atom with spaces').
-why(
-  value(quoted_atom, 'atom with spaces'),
-  proof(
-    goal(value(quoted_atom, 'atom with spaces')),
-    by(fact("003_terms_and_readback.pl", clause(2)))
-  )
-).
-
 value(quoted_quote, 'needs''quote').
-why(
-  value(quoted_quote, 'needs''quote'),
-  proof(
-    goal(value(quoted_quote, 'needs''quote')),
-    by(fact("003_terms_and_readback.pl", clause(3)))
-  )
-).
-
 value(empty_atom, '').
-why(
-  value(empty_atom, ''),
-  proof(
-    goal(value(empty_atom, '')),
-    by(fact("003_terms_and_readback.pl", clause(4)))
-  )
-).
-
 value(string, "line\nquote: \"ok\"").
-why(
-  value(string, "line\nquote: \"ok\""),
-  proof(
-    goal(value(string, "line\nquote: \"ok\"")),
-    by(fact("003_terms_and_readback.pl", clause(5)))
-  )
-).
-
 value(integer, -42).
-why(
-  value(integer, -42),
-  proof(
-    goal(value(integer, -42)),
-    by(fact("003_terms_and_readback.pl", clause(6)))
-  )
-).
-
 value(decimal, 0.25).
-why(
-  value(decimal, 0.25),
-  proof(
-    goal(value(decimal, 0.25)),
-    by(fact("003_terms_and_readback.pl", clause(7)))
-  )
-).
-
 value(scientific, 1.25e-3).
-why(
-  value(scientific, 1.25e-3),
-  proof(
-    goal(value(scientific, 1.25e-3)),
-    by(fact("003_terms_and_readback.pl", clause(8)))
-  )
-).
-
 value(compound, pair(3, nested(atom, [x, y]))).
-why(
-  value(compound, pair(3, nested(atom, [x, y]))),
-  proof(
-    goal(value(compound, pair(3, nested(atom, [x, y])))),
-    by(fact("003_terms_and_readback.pl", clause(9)))
-  )
-).
-
 value(zero_arity, nil()).
-why(
-  value(zero_arity, nil()),
-  proof(
-    goal(value(zero_arity, nil())),
-    by(fact("003_terms_and_readback.pl", clause(10)))
-  )
-).
-
 value(empty_list, []).
-why(
-  value(empty_list, []),
-  proof(
-    goal(value(empty_list, [])),
-    by(fact("003_terms_and_readback.pl", clause(11)))
-  )
-).
-
 value(proper_list, [a, b, c]).
-why(
-  value(proper_list, [a, b, c]),
-  proof(
-    goal(value(proper_list, [a, b, c])),
-    by(fact("003_terms_and_readback.pl", clause(12)))
-  )
-).
-
 value(improper_list, [a, b | tail]).
-why(
-  value(improper_list, [a, b | tail]),
-  proof(
-    goal(value(improper_list, [a, b | tail])),
-    by(fact("003_terms_and_readback.pl", clause(13)))
-  )
-).
-

package/conformance/expected/core/004_conjunction_and_parentheses.out

@@ -1,26 +1 @@
 ok(a, yes).
-why(
-  ok(a, yes),
-  proof(
-    goal(ok(a, yes)),
-    by(rule("004_conjunction_and_parentheses.pl", clause(3))),
-    bindings([binding("X", a)]),
-    uses([
-      proof(
-        goal((p(a), q(a))),
-        by(conjunction),
-        uses([
-          proof(
-            goal(p(a)),
-            by(fact("004_conjunction_and_parentheses.pl", clause(1)))
-          ),
-          proof(
-            goal(q(a)),
-            by(fact("004_conjunction_and_parentheses.pl", clause(2)))
-          )
-        ])
-      )
-    ])
-  )
-).
-

package/conformance/expected/core/005_list_deconstruction.out

@@ -1,34 +1,2 @@
 answer(first, a).
-why(
-  answer(first, a),
-  proof(
-    goal(answer(first, a)),
-    by(rule("005_list_deconstruction.pl", clause(3))),
-    bindings([binding("X", a)]),
-    uses([
-      proof(
-        goal(first([a, b, c], a)),
-        by(fact("005_list_deconstruction.pl", clause(1))),
-        bindings([binding("X", a), binding("_Rest", [b, c])])
-      )
-    ])
-  )
-).
-
 answer(tail, [b, c]).
-why(
-  answer(tail, [b, c]),
-  proof(
-    goal(answer(tail, [b, c])),
-    by(rule("005_list_deconstruction.pl", clause(4))),
-    bindings([binding("Tail", [b, c])]),
-    uses([
-      proof(
-        goal(tail([a, b, c], [b, c])),
-        by(fact("005_list_deconstruction.pl", clause(2))),
-        bindings([binding("_Head", a), binding("Tail", [b, c])])
-      )
-    ])
-  )
-).
-

package/conformance/expected/core/006_comma_formula_data.out

@@ -1,16 +1 @@
 answer(formula, (name(alice, "Alice"), knows(alice, bob))).
-why(
-  answer(formula, (name(alice, "Alice"), knows(alice, bob))),
-  proof(
-    goal(answer(formula, (name(alice, "Alice"), knows(alice, bob)))),
-    by(rule("006_comma_formula_data.pl", clause(2))),
-    bindings([binding("F", (name(alice, "Alice"), knows(alice, bob)))]),
-    uses([
-      proof(
-        goal(record((name(alice, "Alice"), knows(alice, bob)))),
-        by(fact("006_comma_formula_data.pl", clause(1)))
-      )
-    ])
-  )
-).
-

package/conformance/expected/core/007_anonymous_variables.out

@@ -1,20 +1 @@
 answer(fresh, yes).
-why(
-  answer(fresh, yes),
-  proof(
-    goal(answer(fresh, yes)),
-    by(rule("007_anonymous_variables.pl", clause(3))),
-    bindings([binding("__anon0", one), binding("__anon1", two)]),
-    uses([
-      proof(
-        goal(pair(a, one)),
-        by(fact("007_anonymous_variables.pl", clause(1)))
-      ),
-      proof(
-        goal(pair(b, two)),
-        by(fact("007_anonymous_variables.pl", clause(2)))
-      )
-    ])
-  )
-).
-

package/conformance/expected/core/008_graphic_atoms.out

@@ -1,27 +1,3 @@
 value(hash, #).
-why(
-  value(hash, #),
-  proof(
-    goal(value(hash, #)),
-    by(fact("008_graphic_atoms.pl", clause(1)))
-  )
-).
-
 value(arrow, =>).
-why(
-  value(arrow, =>),
-  proof(
-    goal(value(arrow, =>)),
-    by(fact("008_graphic_atoms.pl", clause(2)))
-  )
-).
-
 value(comparison, =<).
-why(
-  value(comparison, =<),
-  proof(
-    goal(value(comparison, =<)),
-    by(fact("008_graphic_atoms.pl", clause(3)))
-  )
-).
-

package/conformance/expected/core/009_comments_and_whitespace.out

@@ -1,32 +1,2 @@
 answer(quoted_percent, "% not a comment").
-why(
-  answer(quoted_percent, "% not a comment"),
-  proof(
-    goal(answer(quoted_percent, "% not a comment")),
-    by(rule("009_comments_and_whitespace.pl", clause(3))),
-    bindings([binding("K", quoted_percent), binding("V", "% not a comment")]),
-    uses([
-      proof(
-        goal(item(quoted_percent, "% not a comment")),
-        by(fact("009_comments_and_whitespace.pl", clause(1)))
-      )
-    ])
-  )
-).
-
 answer(quoted_atom, 'has % sign').
-why(
-  answer(quoted_atom, 'has % sign'),
-  proof(
-    goal(answer(quoted_atom, 'has % sign')),
-    by(rule("009_comments_and_whitespace.pl", clause(3))),
-    bindings([binding("K", quoted_atom), binding("V", 'has % sign')]),
-    uses([
-      proof(
-        goal(item(quoted_atom, 'has % sign')),
-        by(fact("009_comments_and_whitespace.pl", clause(2)))
-      )
-    ])
-  )
-).
-

package/conformance/expected/core/010_variable_scope_and_reuse.out

@@ -1,54 +1,2 @@
 answer(from_a, c).
-why(
-  answer(from_a, c),
-  proof(
-    goal(answer(from_a, c)),
-    by(rule("010_variable_scope_and_reuse.pl", clause(5))),
-    bindings([binding("Z", c)]),
-    uses([
-      proof(
-        goal(two_step(a, c)),
-        by(rule("010_variable_scope_and_reuse.pl", clause(4))),
-        bindings([binding("X", a), binding("Z", c), binding("Y", b)]),
-        uses([
-          proof(
-            goal(edge(a, b)),
-            by(fact("010_variable_scope_and_reuse.pl", clause(1)))
-          ),
-          proof(
-            goal(edge(b, c)),
-            by(fact("010_variable_scope_and_reuse.pl", clause(2)))
-          )
-        ])
-      )
-    ])
-  )
-).
-
 answer(from_b, d).
-why(
-  answer(from_b, d),
-  proof(
-    goal(answer(from_b, d)),
-    by(rule("010_variable_scope_and_reuse.pl", clause(6))),
-    bindings([binding("Z", d)]),
-    uses([
-      proof(
-        goal(two_step(b, d)),
-        by(rule("010_variable_scope_and_reuse.pl", clause(4))),
-        bindings([binding("X", b), binding("Z", d), binding("Y", c)]),
-        uses([
-          proof(
-            goal(edge(b, c)),
-            by(fact("010_variable_scope_and_reuse.pl", clause(2)))
-          ),
-          proof(
-            goal(edge(c, d)),
-            by(fact("010_variable_scope_and_reuse.pl", clause(3)))
-          )
-        ])
-      )
-    ])
-  )
-).
-

package/conformance/expected/core/011_predicate_arity.out

@@ -1,32 +1,2 @@
 answer(unary, a).
-why(
-  answer(unary, a),
-  proof(
-    goal(answer(unary, a)),
-    by(rule("011_predicate_arity.pl", clause(3))),
-    bindings([binding("X", a)]),
-    uses([
-      proof(
-        goal(p(a)),
-        by(fact("011_predicate_arity.pl", clause(1)))
-      )
-    ])
-  )
-).
-
 answer(binary, pair(a, b)).
-why(
-  answer(binary, pair(a, b)),
-  proof(
-    goal(answer(binary, pair(a, b))),
-    by(rule("011_predicate_arity.pl", clause(4))),
-    bindings([binding("X", a), binding("Y", b)]),
-    uses([
-      proof(
-        goal(p(a, b)),
-        by(fact("011_predicate_arity.pl", clause(2)))
-      )
-    ])
-  )
-).
-

package/conformance/expected/core/012_nested_compound_unification.out

@@ -1,32 +1,2 @@
 answer(middle, b).
-why(
-  answer(middle, b),
-  proof(
-    goal(answer(middle, b)),
-    by(rule("012_nested_compound_unification.pl", clause(2))),
-    bindings([binding("X", b)]),
-    uses([
-      proof(
-        goal(fact(pair(a, nested(b, [c, d])))),
-        by(fact("012_nested_compound_unification.pl", clause(1)))
-      )
-    ])
-  )
-).
-
 answer(list_tail, [d]).
-why(
-  answer(list_tail, [d]),
-  proof(
-    goal(answer(list_tail, [d])),
-    by(rule("012_nested_compound_unification.pl", clause(3))),
-    bindings([binding("T", [d])]),
-    uses([
-      proof(
-        goal(fact(pair(a, nested(b, [c, d])))),
-        by(fact("012_nested_compound_unification.pl", clause(1)))
-      )
-    ])
-  )
-).
-

package/conformance/expected/core/013_multiple_clauses_order.out

@@ -1,46 +1,2 @@
 answer(color, red).
-why(
-  answer(color, red),
-  proof(
-    goal(answer(color, red)),
-    by(rule("013_multiple_clauses_order.pl", clause(4))),
-    bindings([binding("X", red)]),
-    uses([
-      proof(
-        goal(paint(red)),
-        by(rule("013_multiple_clauses_order.pl", clause(3))),
-        bindings([binding("X", red)]),
-        uses([
-          proof(
-            goal(color(red)),
-            by(fact("013_multiple_clauses_order.pl", clause(1)))
-          )
-        ])
-      )
-    ])
-  )
-).
-
 answer(color, blue).
-why(
-  answer(color, blue),
-  proof(
-    goal(answer(color, blue)),
-    by(rule("013_multiple_clauses_order.pl", clause(4))),
-    bindings([binding("X", blue)]),
-    uses([
-      proof(
-        goal(paint(blue)),
-        by(rule("013_multiple_clauses_order.pl", clause(3))),
-        bindings([binding("X", blue)]),
-        uses([
-          proof(
-            goal(color(blue)),
-            by(fact("013_multiple_clauses_order.pl", clause(2)))
-          )
-        ])
-      )
-    ])
-  )
-).
-

package/conformance/expected/core/014_failure_filters_answers.out

@@ -1,20 +1 @@
 answer(a, ok).
-why(
-  answer(a, ok),
-  proof(
-    goal(answer(a, ok)),
-    by(rule("014_failure_filters_answers.pl", clause(4))),
-    bindings([binding("X", a)]),
-    uses([
-      proof(
-        goal(candidate(a)),
-        by(fact("014_failure_filters_answers.pl", clause(1)))
-      ),
-      proof(
-        goal(allowed(a)),
-        by(fact("014_failure_filters_answers.pl", clause(3)))
-      )
-    ])
-  )
-).
-