testing s(urface) equ(ivalent) ent(ailment)s

RELEASE

@@ -1,5 +1,6 @@
                                   EYE release
 
+v5.0.10 (2023-10-15) testing s(urface) equ(ivalent) ent(ailment)s
 v5.0.9 (2023-10-15) Surface Equivalent Entailment - SEE
 v5.0.8 (2023-10-15) checking surface equivalent entailment
 v5.0.7 (2023-10-09) adding create sequent metarule for blogic

VERSION

@@ -1 +1 @@
-5.0.9
+5.0.10

eye.pl

@@ -21,7 +21,7 @@
 :- use_module(library(pcre)).
 :- catch(use_module(library(http/http_open)), _, true).
 
-version_info('EYE v5.0.9 (2023-10-15)').
+version_info('EYE v5.0.10 (2023-10-15)').
 
 license_info('MIT License
 
@@ -627,10 +627,11 @@
     ).
 
 %
-% Surface Equivalent Entailment - SEE
+% Sequents
+% See https://en.wikipedia.org/wiki/Sequent
 %
 
-see :-
+sequents :-
     % resolution
     assertz(implies((
             implies(A, set(B), _),
@@ -778,7 +779,7 @@
             findvars(S, W, beta),
             makevars(S, I, beta(W))
             ), '<http://www.w3.org/2000/10/swap/log#implies>'(Q, I), '<>')),
-    % create see
+    % create sequent
     assertz(implies((
             '<http://www.w3.org/2000/10/swap/log#onNegativeSurface>'(V, G),
             is_list(V),
@@ -1486,11 +1487,11 @@
         ->  nb_setval(current_scope, Scope)
         ;   true
         ),
-        (   \+flag(see),
+        (   \+flag(sequents),
             \+flag(blogic),
             Rt = '<http://www.w3.org/2000/10/swap/log#implies>'(_, set(_))
-        ->  assertz(flag(see)),
-            see
+        ->  assertz(flag(sequents)),
+            sequents
         ;   true
         ),
         (   functor(Rt, F, _),
@@ -1935,11 +1936,11 @@
     tr_n3p(Z, Src, query).
 tr_n3p(['\'<http://www.w3.org/2000/10/swap/log#implies>\''(X, Y)|Z], Src, Mode) :-
     !,
-    (   \+flag(see),
+    (   \+flag(sequents),
         \+flag(blogic),
         Y = set(_)
-    ->  assertz(flag(see)),
-        see
+    ->  assertz(flag(sequents)),
+        sequents
     ;   true
     ),
     (   flag(tactic, 'linear-select')
@@ -5179,7 +5180,7 @@
         ;   djiti_assertz(Dn),
             (   flag('pass-only-new'),
                 Dn \= answer(_, _, _),
-                \+ (flag(see), Dn = '<http://www.w3.org/2000/10/swap/log#implies>'(_, _)),
+                \+ (flag(sequents), Dn = '<http://www.w3.org/2000/10/swap/log#implies>'(_, _)),
                 \+ (flag(blogic), Dn = '<http://www.w3.org/2000/10/swap/log#implies>'(_, _)),
                 \+pass_only_new(Dn)
             ->  assertz(pass_only_new(Dn))
@@ -5217,7 +5218,7 @@
             ;   djiti_assertz(Cn),
                 (   flag('pass-only-new'),
                     Cn \= answer(_, _, _),
-                    \+ (flag(see), Cn = '<http://www.w3.org/2000/10/swap/log#implies>'(_, _)),
+                    \+ (flag(sequents), Cn = '<http://www.w3.org/2000/10/swap/log#implies>'(_, _)),
                     \+ (flag(blogic), Cn = '<http://www.w3.org/2000/10/swap/log#implies>'(_, _)),
                     \+pass_only_new(Cn)
                 ->  assertz(pass_only_new(Cn))
@@ -5338,11 +5339,11 @@
     !.
 djiti_fact('<http://www.w3.org/2000/10/swap/log#implies>'(A, B), C) :-
     nonvar(B),
-    (   \+flag(see),
+    (   \+flag(sequents),
         \+flag(blogic),
         B = set(_)
-    ->  assertz(flag(see)),
-        see
+    ->  assertz(flag(sequents)),
+        sequents
     ;   true
     ),
     (   conj_list(B, D)

reasoning/blogic/version.n3s.out

@@ -1,3 +1,3 @@
 @prefix log: <http://www.w3.org/2000/10/swap/log#>.
 
-() log:version "EYE v5.0.9 (2023-10-15)".
+() log:version "EYE v5.0.10 (2023-10-15)".

reasoning/see/README → reasoning/sequents/README

@@ -1,8 +1,11 @@
------------------------------------
-Surface Equivalent Entailment - SEE
------------------------------------
+--------
+Sequents
+--------
 
-Supporting log:implies with a set of possible conclusions e.g.
+See https://en.wikipedia.org/wiki/Sequent
+Aka s(urface) equ(ivalent) ent(ailment)s
+
+A sequent is a log:implies with a set of possible conclusions e.g.
 
 # all cars are green or blue
 {