diff --git a/eye.pl b/eye.pl index 748c201d3..0fd08e90c 100644 --- a/eye.pl +++ b/eye.pl @@ -784,7 +784,7 @@ ), append(V, W, U) ), ''(U, C), '<>')), - % resolve two negative surfaces + % resolve paired negative surfaces assertz(implies((''(V, G), is_list(V), conj_list(G, L),