checkpoint

This commit is contained in:
Kacper Marzecki 2025-06-16 20:59:23 +02:00
parent 72d851d71b
commit 5bf920da3a

View File

@ -1081,9 +1081,6 @@ defmodule Tdd do
type_none() type_none()
{var, y, n, d} -> {var, y, n, d} ->
# --- START OF THE CRUCIAL NEW LOGIC ---
# Special check for list head/tail vs. all_elements contradiction.
# This logic MUST be here because it requires calling TDD operations (intersect).
contradiction = contradiction =
case var do case var do
{5, :head, head_predicate} -> {5, :head, head_predicate} ->
@ -1125,8 +1122,6 @@ defmodule Tdd do
# The 'yes' branch is impossible. The node simplifies to its 'no' branch. # The 'yes' branch is impossible. The node simplifies to its 'no' branch.
simplify(n, constraints) simplify(n, constraints)
else else
# --- END OF NEW LOGIC ---
# Proceed with the original simplification logic.
case Map.get(constraints, var) do case Map.get(constraints, var) do
true -> true ->
simplify(y, constraints) simplify(y, constraints)